collapseos/blk/493

CODE KEY
    A 0x01 LDrn, ( @KEY )
    0x28 RSTn,
    L A LDrr, H 0 LDrn,
    HL PUSHqq,
;CODE
CODE (emit)
    BC POPqq, ( c == @DSP arg )
    chkPS,
    A 0x02 LDrn, ( @DSP )
    0x28 RSTn,
;CODE
CODE BYE
    HL 0 LDddnn,
    A 0x16 LDrn, ( @EXIT )
    0x28 RSTn,
recipes/trs80: making progress on floppy drivers 2020-04-30 16:10:35 -04:00			`CODE KEY`
			`A 0x01 LDrn, ( @KEY )`
			`0x28 RSTn,`
			`L A LDrr, H 0 LDrn,`
			`HL PUSHqq,`
			`;CODE`
Add layer of indirection to EMIT This would allow things like temporary giving control to the CL line on the TRS-80. For example... A very far fetched example. Not at all the only raison d'etre* of the layer... 2020-05-01 20:05:15 -04:00			`CODE (emit)`
recipes/trs80: making progress on floppy drivers 2020-04-30 16:10:35 -04:00			`BC POPqq, ( c == @DSP arg )`
			`chkPS,`
			`A 0x02 LDrn, ( @DSP )`
			`0x28 RSTn,`
			`;CODE`
			`CODE BYE`
			`HL 0 LDddnn,`
			`A 0x16 LDrn, ( @EXIT )`
			`0x28 RSTn,`