collapseos/blk/268

: XPACK ( blkno -- )
    BLK@
    BLK( 0x2e RAM+ ! ( boot ptr )
    ['] (boot<) 0x08 RAM+ ! ( C<* override )
    BEGIN
        WORD
        0x2e RAM+ @ BLK( 1024 + < IF
            DUP LIT< ( S= IF
                DROP [COMPILE] (
            ELSE
                SCPY 0x20 C,
            THEN 0 ( loop again )
        ELSE 1 ( stop looping ) THEN
    UNTIL
    0 0x08 RAM+ !
;
xcomp: add XPACK 2020-04-26 05:43:07 +10:00			`: XPACK ( blkno -- )`
			`BLK@`
			`BLK( 0x2e RAM+ ! ( boot ptr )`
			`['] (boot<) 0x08 RAM+ ! ( C<* override )`
			`BEGIN`
			`WORD`
			`0x2e RAM+ @ BLK( 1024 + < IF`
			`DUP LIT< ( S= IF`
			`DROP [COMPILE] (`
			`ELSE`
SCPY: don't copy the NULL This makes [entry] much simpler. Also, remove unused LITS word. 2020-05-12 21:36:20 +10:00			`SCPY 0x20 C,`
xcomp: add XPACK 2020-04-26 05:43:07 +10:00			`THEN 0 ( loop again )`
			`ELSE 1 ( stop looping ) THEN`
			`UNTIL`
			`0 0x08 RAM+ !`
			`;`