version 1.8, 1997/03/13 23:40:33
|
version 1.9, 1997/03/31 22:14:39
|
Line 9
|
Line 9
|
\ |
\ |
\ The program uses the following words |
\ The program uses the following words |
\ from CORE : |
\ from CORE : |
\ decimal : bl word 0= ; = cells Constant Variable ! Create , allot @ IF POSTPONE >r ELSE +! dup + THEN immediate r> * >body cell+ Literal drop align here aligned DOES> execute ['] 2@ recurse swap 1+ over LOOP and EXIT ?dup 0< rot r@ - i negate +LOOP 2drop BEGIN WHILE 2dup REPEAT 1- rshift > / ' move UNTIL or count |
\ decimal : bl word 0= ; = cells Constant Variable ! Create , allot @ IF |
|
\ POSTPONE >r ELSE +! dup + THEN immediate r> * >body cell+ Literal drop |
|
\ align here aligned DOES> execute ['] 2@ recurse swap 1+ over LOOP and |
|
\ EXIT ?dup 0< rot r@ - i negate +LOOP 2drop BEGIN WHILE 2dup REPEAT 1- |
|
\ rshift > / ' move UNTIL or count |
\ from CORE-EXT : |
\ from CORE-EXT : |
\ nip tuck true ?DO compile, false Value erase pick :noname 0<> |
\ nip tuck true ?DO compile, false Value erase pick :noname 0<> |
\ from BLOCK-EXT : |
\ from BLOCK-EXT : |
Line 27
|
Line 31
|
\ from MEMORY : |
\ from MEMORY : |
\ allocate free |
\ allocate free |
\ from SEARCH : |
\ from SEARCH : |
\ find definitions get-order set-order get-current wordlist set-current search-wordlist |
\ find definitions get-order set-order get-current wordlist set-current |
|
\ search-wordlist |
\ from SEARCH-EXT : |
\ from SEARCH-EXT : |
\ also Forth previous |
\ also Forth previous |
\ from STRING : |
\ from STRING : |