1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-24 05:58:06 +11:00
collapseos/blk/431

14 lines
263 B
Plaintext
Raw Normal View History

2020-04-26 11:54:07 +10:00
: 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