collapseos/blk/431

11 lines
231 B
Plaintext
Raw Normal View History

2020-04-25 21:54:07 -04: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
2020-04-25 21:54:07 -04:00
variables are sent to PS at runtime )
: DO COMPILE 2>R H@ ; IMMEDIATE
2020-04-25 21:54:07 -04:00