gforth/arch/4stack/asm.fs - diff

Return to asm.fs CVS log

Up to [gforth] / gforth / arch / 4stack

version 1.1, 1997/05/29 19:42:44	version 1.2, 1999/12/30 20:43:25
Line 26 Defer 4allot	Line 26 Defer 4allot

: 4there 4here ;	: 4there 4here ;

: op, 4there '2! 2 cells 4allot ;
: op! '2! ;	: op! '2! ;
	: op, 4there op! 2 cells 4allot ;
: op@ '2@ ;	: op@ '2@ ;
: caddr ; immediate	: caddr ; immediate
: waddr ; immediate	: waddr ; immediate
Line 694 Variable old-notfound	Line 694 Variable old-notfound
also Forth definitions	also Forth definitions

: (code)	: (code)
also asm4stack also	also asm4stack
s" F' 2@ F' 2! F' c! F' ! F' here F' allot" evaluate	s" F' 2@ F' 2! F' c! F' ! F' here F' allot" evaluate
IS 4allot IS 4here IS '! IS 'c! IS '2! IS '2@	IS 4allot IS 4here IS '! IS 'c! IS '2! IS '2@
What's interpreter-notfound old-notfound !	What's interpreter-notfound old-notfound !
['] ?label IS interpreter-notfound ;	['] ?label IS interpreter-notfound ;
: label (code) 4here label: drop asm4stack depth ;	: label (code) 4here label: drop asm4stack depth ;
: (end-code) previous previous old-notfound @ IS interpreter-notfound ;	: (end-code) previous old-notfound @ IS interpreter-notfound ;

previous previous previous Forth	previous previous previous Forth