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