collapseos/blk/306

CODE (n) ( number literal )
PC ORG @ 0x25 + ! ( stable ABI JP )
  ( Literal value to push to stack is next to (n) reference
    in the atom list. That is where IP is currently pointing.
    Read, push, then advance IP. )
    E 0 IY+ LDrIXY,
    D 1 IY+ LDrIXY,
    IY INCd, IY INCd,
    DE PUSH,
;CODE
Extract (n) code from stable ABI 2020-07-06 04:13:01 +10:00			`CODE (n) ( number literal )`
			`PC ORG @ 0x25 + ! ( stable ABI JP )`
			`( Literal value to push to stack is next to (n) reference`
			`in the atom list. That is where IP is currently pointing.`
			`Read, push, then advance IP. )`
			`E 0 IY+ LDrIXY,`
			`D 1 IY+ LDrIXY,`
			`IY INCd, IY INCd,`
			`DE PUSH,`
Copy boot.z80 to blkfs 2020-04-23 11:19:12 +10:00			`;CODE`