collapseos/blk/817

L3 BSET 3 A, 'B' A, 'A' A, 'R' A,
PC 3 - ORG @ 1+ ! ( main )
    DI 0x08 MOVxm, ( LATEST )
    SI L3 @ MOVxI,
    CALLn, L4 @ RPCn, ( find )
    IFZ, JMPs, L1 @ RPCs, ( execute ) THEN,
    AH 0x0e MOVri, ( print char ) AL '!' MOVri, 0x10 INT,
    BEGIN, JMPs, AGAIN,
pcat: begin implementing compiledWord/next 2020-06-17 09:05:36 +10:00			`L3 BSET 3 A, 'B' A, 'A' A, 'R' A,`
pcat: make find compare strings find is the biggest chunk of logic of the boot code. The 8086 version is significantly terser than the z80 one. REP/CMPS helps... 2020-06-15 20:23:19 +10:00			`PC 3 - ORG @ 1+ ! ( main )`
			`DI 0x08 MOVxm, ( LATEST )`
8086asm: add support for modrm 8-bit displacement 2020-06-15 20:52:47 +10:00			`SI L3 @ MOVxI,`
pcat: make find compare strings find is the biggest chunk of logic of the boot code. The 8086 version is significantly terser than the z80 one. REP/CMPS helps... 2020-06-15 20:23:19 +10:00			`CALLn, L4 @ RPCn, ( find )`
			`IFZ, JMPs, L1 @ RPCs, ( execute ) THEN,`
			`AH 0x0e MOVri, ( print char ) AL '!' MOVri, 0x10 INT,`
			`BEGIN, JMPs, AGAIN,`