Return to asm.fs CVS log

Up to [gforth] / gforth / arch / misc

Mega-Patch; lots of changes

    1: \ PIE MISC assembler
    2: 
    3: Vocabulary assembler
    4: also assembler also definitions forth
    5: 
    6: \ sources
    7: 
    8: $0 Constant PC		$1 Constant PC+2
    9: $2 Constant PC+4	$3 Constant PC+6
   10: 
   11: $8 Constant ACCU	$9 Constant SF
   12: $A Constant ZF		$C Constant CF
   13: 
   14: \ destinations
   15: 
   16: $0 Constant JMP		$1 Constant JS
   17: $2 Constant JZ		$4 Constant JC
   18: 
   19: $7 Constant *ACCU
   20: ( $8 Constant ACCU )	$9 Constant SUB
   21: ( $A Constant SUBR )	$B Constant ADD
   22: $C Constant XOR		$D Constant OR
   23: $E Constant AND		$F Constant SHR
   24: 
   25: $FFFC Constant tx
   26: \ $FFF0 Constant tx
   27: 
   28: : end-label previous ;
   29: 
   30: Create marks $10 cells allot
   31: 
   32: : ahere s" here" evaluate 2/ ;
   33: 
   34: : m ( n -- ) cells marks + ahere 2* swap ! 0 ;
   35: : r ( n -- ) cells marks + @ ahere swap s" !" evaluate 0 ;
   36: 
   37: \ intel hex dump
   38: 
   39: : 0.r ( n1 n2 -- ) 0 swap <# 0 ?DO # LOOP #> type ;
   40: 
   41: : tohex ( dest addr u -- )  base @ >r hex
   42:   ." :" swap >r >r
   43:   r@ dup 2 0.r  over 4 0.r  ." 00"
   44:   over 8 rshift + +
   45:   r> r> swap bounds ?DO  I ( 1 xor ) c@ dup 2 0.r +  LOOP
   46:   negate $FF and 2 0.r  r> base ! ;
   47: 
   48: : 2hex ( dest addr u -- )
   49:   BEGIN  dup WHILE
   50:          >r 2dup r@ $10 min tohex cr
   51:          r> $10 /string 0 max rot $10 + -rot
   52:   REPEAT  drop 2drop ;
   53: 
   54: : sym base @ >r hex
   55:     cr ." sym:s/PC=" ahere 4 0.r ." /" bl word count type ." /g" cr
   56:     r> base ! ;
   57: 
   58: : label ahere Constant ;
   59: 
   60: also forth definitions
   61: 
   62: : label also assembler label ;
   63: 
   64: : (code) also assembler ;
   65: : (end-code) previous ;
   66: 
   67: previous previous previous