mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-27 17:48:05 +11:00
9 lines
263 B
Plaintext
9 lines
263 B
Plaintext
: VARIABLE CREATE 2 ALLOT ;
|
|
: CONSTANT CREATE , DOES> @ ;
|
|
|
|
( In addition to pushing H@ this compiles 2>R so that loop
|
|
variables are sent to PS at runtime )
|
|
: DO COMPILE 2>R H@ ; IMMEDIATE
|
|
: LOOP COMPILE (loop) H@ - , ; IMMEDIATE
|
|
: LEAVE R> R> DROP I 1- >R >R ;
|