Return to see.fs CVS log | Up to [gforth] / gforth |
version 1.11, 1996/05/04 18:39:25 | version 1.12, 1996/05/13 16:37:02 |
---|---|
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 |