collapseos/blk/300

PC ORG @ 0x1b + ! ( next )
( This routine is jumped to at the end of every word. In it,
  we jump to current IP, but we also take care of increasing
  it by 2 before jumping. )
	( Before we continue: are stacks within bounds? )
    0x1d BCALL, ( chkPS )
    ( check RS )
    IX PUSHqq, HL POPqq,
    DE RS_ADDR LDddnn,
    DE SUBHLss,
    JRC, L2 BWR ( IX < RS_ADDR? abortUnderflow-B298 )
    E 0 IY+ LDrIXY,
    D 1 IY+ LDrIXY,
    IY INCss,
    IY INCss,
    ( continue to execute )
Copy boot.z80 to blkfs 2020-04-23 11:19:12 +10:00			`PC ORG @ 0x1b + ! ( next )`
			`( This routine is jumped to at the end of every word. In it,`
			`we jump to current IP, but we also take care of increasing`
			`it by 2 before jumping. )`
			`( Before we continue: are stacks within bounds? )`
z80a: add BIN( parameter Will be useful for assembling binaries for the TRS-80 which can't start at addr 0. 2020-04-28 05:04:37 +10:00			`0x1d BCALL, ( chkPS )`
Copy boot.z80 to blkfs 2020-04-23 11:19:12 +10:00			`( check RS )`
			`IX PUSHqq, HL POPqq,`
			`DE RS_ADDR LDddnn,`
			`DE SUBHLss,`
			`JRC, L2 BWR ( IX < RS_ADDR? abortUnderflow-B298 )`
			`E 0 IY+ LDrIXY,`
			`D 1 IY+ LDrIXY,`
			`IY INCss,`
			`IY INCss,`
			`( continue to execute )`