mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-27 18:38:06 +11:00
14 lines
511 B
Plaintext
14 lines
511 B
Plaintext
|
: _ BEGIN LIT< ) WORD S= UNTIL ; IMMEDIATE
|
||
|
|
40 CURRENT @ 4 - C!
|
||
|
|
( Hello, hello, krkrkrkr... do you hear me?
|
||
|
|
Ah, voice at last! Some lines above need comments
|
||
|
|
BTW: Forth lines limited to 64 cols because of default
|
||
|
|
input buffer size in Collapse OS
|
||
|
|
|
||
|
|
40 is ASCII for '('. We do this to simplify XPACK's task of
|
||
|
|
not mistakenly consider '(' definition as a comment.
|
||
|
|
LITS: 34 == litWord
|
||
|
|
LITA: 36 == addrWord
|
||
|
|
COMPILE: Tough one. Get addr of caller word (example above
|
||
|
|
(br)) and then call LITA on it. )
|