gforth/arch/misc/asm.fs - diff

Return to asm.fs CVS log

Up to [gforth] / gforth / arch / misc

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

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

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