collapseos/blk/819

L3 BSET 4 A, 'B' A, 'O' A, 'O' A, 'T' A,
PC 3 - ORG @ 1+ ! ( main )
    SP PS_ADDR MOVxI,
    BP RS_ADDR MOVxI,
    DI 0x08 MOVxm, ( LATEST )
    SI L3 @ MOVxI,
    CALLn, lblfind @ RPCn, ( find )
    IFZ, JMPn, lblexec @ RPCn, ( execute ) THEN,
    AH 0x0e MOVri, ( print char ) AL '!' MOVri, 0x10 INT,
    BEGIN, JMPs, AGAIN,
pcat: begin organizing native words properly This port is taking shape! 2020-06-19 05:28:30 +10:00			`L3 BSET 4 A, 'B' A, 'O' A, 'O' A, 'T' A,`
pcat: implement (loop) 8086 asm is a lot terser than z80... Those indirect memory operations are very handy. 2020-06-19 05:01:04 +10:00			`PC 3 - ORG @ 1+ ! ( main )`
			`SP PS_ADDR MOVxI,`
			`BP RS_ADDR MOVxI,`
			`DI 0x08 MOVxm, ( LATEST )`
			`SI L3 @ MOVxI,`
pcat: begin organizing native words properly This port is taking shape! 2020-06-19 05:28:30 +10:00			`CALLn, lblfind @ RPCn, ( find )`
			`IFZ, JMPn, lblexec @ RPCn, ( execute ) THEN,`
pcat: implement (loop) 8086 asm is a lot terser than z80... Those indirect memory operations are very handy. 2020-06-19 05:01:04 +10:00			`AH 0x0e MOVri, ( print char ) AL '!' MOVri, 0x10 INT,`
			`BEGIN, JMPs, AGAIN,`