collapseos/blk/431

: 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 2>R H@ ; IMMEDIATE
Copy core words to blkfs 2020-04-26 11:54:07 +10:00			`: VARIABLE CREATE 2 ALLOT ;`
			`: CONSTANT CREATE , DOES> @ ;`
			`: / /MOD SWAP DROP ;`
			`: MOD /MOD DROP ;`

Add 2>R and 2R> This allows us to make DO..LOOP more compact. 2020-05-06 23:49:37 +10:00			`( In addition to pushing H@ this compiles 2>R so that loop`
Copy core words to blkfs 2020-04-26 11:54:07 +10:00			`variables are sent to PS at runtime )`
Add 2>R and 2R> This allows us to make DO..LOOP more compact. 2020-05-06 23:49:37 +10:00			`: DO COMPILE 2>R H@ ; IMMEDIATE`
Copy core words to blkfs 2020-04-26 11:54:07 +10:00