collapseos/blk/284

( BOOT DICT: There are only 3 words in the boot dict, but
  these words' offset need to be stable, so they're part of
  the "stable ABI" )
'E' A, 'X' A, 'I' A, 'T' A,
0 A,, ( prev )
4 A,
H@ XCURRENT !        ( set current tip of dict, 0x42 )
    0x17 A,          ( nativeWord )
    0x14 BCALL,      ( popRS )
    HL PUSHqq, IY POPqq, ( --> IP )
    JPNEXT,
CODE (br)            ( 0x53 )
L2 BSET ( used in CBR )
    E 0 IY+ LDrIXY, D 1 IY+ LDrIXY,
    DE ADDIYss,
    JPNEXT,
Copy boot.z80 to blkfs 2020-04-22 21:19:12 -04:00			`( BOOT DICT: There are only 3 words in the boot dict, but`
			`these words' offset need to be stable, so they're part of`
			`the "stable ABI" )`
			`'E' A, 'X' A, 'I' A, 'T' A,`
Make DO..LOOP stable DO and LOOP now only compile words from stable ABI, which make them suitable for xcomp. This will greatly simplify driver writing and allow us to mostly avoid the low/high divide in drivers. LEAVE is still xcomp-incompatible though. This make us very very tight for "<0x100" limit for literal words. Hopefully, we won't need more stuff in that area of the binary... 2020-05-12 10:37:24 -04:00			`0 A,, ( prev )`
Copy boot.z80 to blkfs 2020-04-22 21:19:12 -04:00			`4 A,`
			`H@ XCURRENT ! ( set current tip of dict, 0x42 )`
			`0x17 A, ( nativeWord )`
z80a: add BIN( parameter Will be useful for assembling binaries for the TRS-80 which can't start at addr 0. 2020-04-27 15:04:37 -04:00			`0x14 BCALL, ( popRS )`
Copy boot.z80 to blkfs 2020-04-22 21:19:12 -04:00			`HL PUSHqq, IY POPqq, ( --> IP )`
			`JPNEXT,`
Make DO..LOOP stable DO and LOOP now only compile words from stable ABI, which make them suitable for xcomp. This will greatly simplify driver writing and allow us to mostly avoid the low/high divide in drivers. LEAVE is still xcomp-incompatible though. This make us very very tight for "<0x100" limit for literal words. Hopefully, we won't need more stuff in that area of the binary... 2020-05-12 10:37:24 -04:00			`CODE (br) ( 0x53 )`
			`L2 BSET ( used in CBR )`
			`E 0 IY+ LDrIXY, D 1 IY+ LDrIXY,`
			`DE ADDIYss,`
			`JPNEXT,`