collapseos/blk/445

: 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 is implemented in xcomp )
Pack core words a bit This leaves space for xcomp-core which is growing. 2020-05-13 11:27:06 +10:00			`: 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`
rc2014: unify SD Card driver Now more low/high layers. 2020-05-13 11:48:29 +10:00			`( LEAVE is implemented in xcomp )`