collapseos/blk/493
Virgil Dupras b2b556911f trs80: implement AT-XY
Also, I've run VE on the TRS-80 for the first time! It doesn't work
well though. Screen is mostly blank all the time.

I removed instructions from the recipe which became obsolete when
Collapse OS became 100% bootstrapped. Also, I've updated instructions
to change the NL override which is necessary for blkup to work.
2020-06-07 11:14:57 -04:00

17 lines
315 B
Plaintext

CODE (key)
A 0x01 LDrn, ( @KEY )
0x28 RSTn,
PUSHA,
;CODE
CODE (emit)
BC POPqq, ( c == @DSP arg ) chkPS,
A 0x02 LDrn, ( @DSP )
0x28 RSTn,
;CODE
CODE AT-XY
DE POPqq, H E LDrr, ( Y )
DE POPqq, L E LDrr, ( X ) chkPS,
A 0x0f LDrn, ( @VDCTL ) B 3 LDrn, ( setcur )
0x28 RSTn,
;CODE