collapseos/blk/814

PC 0x1d - ORG @ 0x1b + ! ( next )
    DI DX MOVxx, ( <-- IP ) DX INCx, DX INCx,
    DI [DI] MOVx[], ( wordref )
    ( continue to execute )
L1 BSET PC 0x36 - ORG @ 0x34 + ! ( execute -- DI -> wordref )
    AH AH XORrr, AL [DI] MOVr[],
    DI INCx, ( PFA )
    AX JMPr,

PC 0x11 - ORG @ 0x0f + ! ( compiledWord -- DI -> PFA )
    DX DI MOVxx, DX INCx, DX INCx, ( --> IP )
    DI [DI] MOVx[],
    JMPs, L1 @ RPCs,
pcat: begin implementing compiledWord/next 2020-06-17 09:05:36 +10:00			`PC 0x1d - ORG @ 0x1b + ! ( next )`
			`DI DX MOVxx, ( <-- IP ) DX INCx, DX INCx,`
			`DI [DI] MOVx[], ( wordref )`
			`( continue to execute )`
			`L1 BSET PC 0x36 - ORG @ 0x34 + ! ( execute -- DI -> wordref )`
			`AH AH XORrr, AL [DI] MOVr[],`
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			`DI INCx, ( PFA )`
pcat: read LATEST and jump to it 2020-06-15 04:51:32 +10:00			`AX JMPr,`
pcat: begin implementing compiledWord/next 2020-06-17 09:05:36 +10:00
			`PC 0x11 - ORG @ 0x0f + ! ( compiledWord -- DI -> PFA )`
			`DX DI MOVxx, DX INCx, DX INCx, ( --> IP )`
			`DI [DI] MOVx[],`
			`JMPs, L1 @ RPCs,`