More simple Forth-Standard words
TG9541 opened this issue · 0 comments
TG9541 commented
FS | implementation |
---|---|
>BODY |
: >BODY ( xt -- a-addr ) 3 + ; |
ALIGN |
no op |
ALIGNED |
no op |
C" |
`' $" ALIAS C" |
CELL+ |
' 2+ ALIAS CELL+ ( c-addr1 -- c-addr2 ) |
CELLS |
' 2* ALIAS CELLS ( n1 -- n2 ) |
CHAR+ |
' 1+ ALIAS CHAR+ ( c-addr1 -- c-addr2 ) |
CHAR |
: CHAR ( "char" -- c ) BL WORD CHAR+ C@ ; |
CHARS |
no op |
[CHAR] |
: [CHAR] ( "name"<spaces -- ) CHAR POSTPONE LITERAL ; IMMEDIATE |
COMPILE, |
' CALL, ALIAS COMPILE, ( xt -- ) |
ENVIRONMENT? |
: ENVIRONMENT? ( c-addr u -- false ) 2DROP 0 ; |
FALSE |
' 0 ALIAS FALSE ( -- false ) |
INVERT |
' NOT ALIAS INVERT ( x1 -- x2 ) |
J |
like I (won't work with FOR ... NEXT ) |
RSHIFT |
like LSHIFT ( n1 u -- n2 ) |
STATE |
kludge using STATE? and a variable stateflag |
TO |
limited to writable dictionary, like VALUE |
TRUE |
' -1 ALIAS TRUE ( -- true ) |