collapseos/blk/373

: BLK$
    H@ 0x3c ( BLK(* ) RAM+ !
    1024 ALLOT
    ( LOAD detects end of block with ASCII EOT. This is why
      we write it there. )
    EOT,
    0 BLKDTY !
    -1 BLK> !
;
Move most of the high layer of comp core into the low one With KEY and EMIT being switch words, most of the high layer can be defined before drivers. In addition to this change, I've compacted core blocks which were becoming quite sparse. 2020-10-29 09:06:58 +11:00			`: BLK$`
			`H@ 0x3c ( BLK(* ) RAM+ !`
			`1024 ALLOT`
			`( LOAD detects end of block with ASCII EOT. This is why`
			`we write it there. )`
			`EOT,`
			`0 BLKDTY !`
			`-1 BLK> !`
Move a bunch of words from core to xcomp core 2020-05-13 22:50:07 +10:00			`;`