collapseos/blk/377

: _ ( a -- a+8 )
    DUP ( a a )
    ':' EMIT DUP .x SPC
    4 0 DO DUP @ 256 /MOD SWAP .x .x SPC 2+ LOOP
    DROP ( a )
    8 0 DO
        C@+ DUP 0x20 0x7e =><= NOT IF DROP '.' THEN EMIT
    LOOP NL ;
: DUMP ( n a -- )
    LF
    SWAP 8 /MOD SWAP IF 1+ THEN
    0 DO _ LOOP
;
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			`: _ ( a -- a+8 )`
			`DUP ( a a )`
			`':' EMIT DUP .x SPC`
			`4 0 DO DUP @ 256 /MOD SWAP .x .x SPC 2+ LOOP`
			`DROP ( a )`
			`8 0 DO`
			`C@+ DUP 0x20 0x7e =><= NOT IF DROP '.' THEN EMIT`
			`LOOP NL ;`
			`: DUMP ( n a -- )`
			`LF`
			`SWAP 8 /MOD SWAP IF 1+ THEN`
			`0 DO _ LOOP`
Copy core words to blkfs 2020-04-26 11:54:07 +10:00			`;`