collapseos/blk/492

14 lines
196 B
Plaintext
Raw Normal View History

2020-04-28 07:51:41 -04:00
CODE KEY
A 0x01 LDrn, ( @KEY )
0x28 RSTn,
L A LDrr, H 0 LDrn,
HL PUSHqq,
;CODE
CODE EMIT
2020-04-28 10:11:38 -04:00
BC POPqq, ( c == @DSP arg )
2020-04-28 07:51:41 -04:00
chkPS,
A 0x02 LDrn, ( @DSP )
2020-04-28 10:11:38 -04:00
0x28 RSTn,
2020-04-28 07:51:41 -04:00
;CODE