collapseos/blk/431

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

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`
Make DO..LOOP stable DO and LOOP now only compile words from stable ABI, which make them suitable for xcomp. This will greatly simplify driver writing and allow us to mostly avoid the low/high divide in drivers. LEAVE is still xcomp-incompatible though. This make us very very tight for "<0x100" limit for literal words. Hopefully, we won't need more stuff in that area of the binary... 2020-05-13 00:37:24 +10:00			`: LOOP COMPILE (loop) H@ - , ; IMMEDIATE`
			`: LEAVE R> R> DROP I 1- >R >R ;`