gforth/see.fs - diff

Return to see.fs CVS log

Up to [gforth] / gforth

version 1.10, 1996/01/07 17:22:14	version 1.12, 1996/05/13 16:37:02
Line 495 CREATE C-Table	Line 495 CREATE C-Table
WHILE 2 pick <>	WHILE 2 pick <>
WHILE 2 cells +	WHILE 2 cells +
REPEAT	REPEAT
nip cell+ @ EXECUTE	nip cell+ perform
true	true
ELSE	ELSE
2drop drop false	2drop drop false
Line 590 create wordtypes	Line 590 create wordtypes
wordtypes	wordtypes
BEGIN dup @ dup	BEGIN dup @ dup
WHILE 2 pick = IF cell+ @ nip EXECUTE	WHILE 2 pick = IF cell+ @ nip EXECUTE
r> dup 32 and IF ." immediate" THEN	r> dup immediate-mask and IF ." immediate" THEN
64 and IF ." restrict" THEN EXIT THEN	restrict-mask and IF ." restrict" THEN
	EXIT THEN
2 cells +	2 cells +
REPEAT	REPEAT
2drop rdrop	2drop rdrop