gforth/kernel/basics.fs - diff

Return to basics.fs CVS log

Up to [gforth] / gforth / kernel

version 1.3, 1997/07/06 16:08:57	version 1.4, 1997/08/31 19:32:29
Line 28 HEX	Line 28 HEX

\ Aliases	\ Aliases

	[IFUNDEF] r@
' i Alias r@ ( -- w ; R: w -- w ) \ core r-fetch	' i Alias r@ ( -- w ; R: w -- w ) \ core r-fetch
\G copy w from the return stack to the data stack	\G copy w from the return stack to the data stack
	[THEN]

\ !! this is machine-dependent, but works on all but the strangest machines	\ !! this is machine-dependent, but works on all but the strangest machines

Line 50 HEX	Line 52 HEX

\ UNUSED 17may93jaw	\ UNUSED 17may93jaw

	has? ec
	[IF]
	unlock ram-dictionary area nip lock
	Constant dictionary-end
	[ELSE]
: dictionary-end ( -- addr )	: dictionary-end ( -- addr )
forthstart [ 3 cells ] Aliteral @ + ;	forthstart [ 3 cells ] Aliteral @ + ;
	[THEN]

: unused ( -- u ) \ core-ext	: unused ( -- u ) \ core-ext
dictionary-end here - [ word-pno-size pad-minsize + ] Literal - ;	dictionary-end here - [ word-pno-size pad-minsize + ] Literal - ;
Line 65 HEX	Line 73 HEX

\ on off 23feb93py	\ on off 23feb93py

	\ on is used by docol:
: on ( addr -- ) \ gforth	: on ( addr -- ) \ gforth
true swap ! ;	true swap ! ;
: off ( addr -- ) \ gforth	: off ( addr -- ) \ gforth