Diff for /gforth/arch/misc/asm.fs between versions 1.3 and 1.4

version 1.3, 1998/05/02 21:28:57 version 1.4, 2002/10/02 15:31:13
Line 2 Line 2
   
 Vocabulary assembler  Vocabulary assembler
 also assembler also definitions forth  also assembler also definitions forth
   \ [IFUNDEF] cross
   \ : X ;
   \ [THEN]
   
 \ sources  \ sources
   
Line 22  $7 Constant *ACCU Line 25  $7 Constant *ACCU
 $C Constant XOR         $D Constant OR  $C Constant XOR         $D Constant OR
 $E Constant AND         $F Constant SHR  $E Constant AND         $F Constant SHR
   
 $FFFC Constant tx  $FFFC Constant txd
   $FFFF Constant rx?
   $FFFE Constant rxd
 \ $FFF0 Constant tx  \ $FFF0 Constant tx
   
 : end-label previous ;  : end-label previous ;
   
 Create marks $10 cells allot  Create marks $10 cells allot
   
 : ahere s" here" evaluate 2/ ;  : ahere X here 2/ ;
   
 : m ( n -- ) cells marks + ahere 2* swap ! 0 ;  : m ( n -- ) cells marks + ahere 2* swap ! 0 ;
 : r ( n -- ) cells marks + @ ahere swap s" !" evaluate 0 ;  : r ( n -- ) cells marks + @ ahere swap s" !" evaluate 0 ;
Line 51  Create marks $10 cells allot Line 56  Create marks $10 cells allot
          r> $10 /string 0 max rot $10 + -rot           r> $10 /string 0 max rot $10 + -rot
   REPEAT  drop 2drop ;    REPEAT  drop 2drop ;
   
 : sym base @ >r hex  \ : sym 
     cr ." sym:s/PC=" ahere 4 0.r ." /" bl word count type ." /g" cr  \    base @ >r hex
     r> base ! ;  \    cr ." sym:s/PC=" ahere 4 0.r ." /" bl word count type ." /g" cr
   \    r> base ! ;
 : label ahere Constant ;  : sym bl word drop ;
   
   : label 
     >in @ bl word count X here symentry >in !
     ahere Constant ;
   
 also forth definitions  also forth definitions
   
Line 65  also forth definitions Line 74  also forth definitions
 : (end-code) previous ;  : (end-code) previous ;
   
 previous previous previous  previous previous previous
   

Removed from v.1.3  
changed lines
  Added in v.1.4


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>