1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-24 02:48:07 +11:00
collapseos/recipes/sms/blk/603
2020-09-20 10:21:21 -04:00

11 lines
226 B
Plaintext

: XYPOS [ VDP_MEM LITN ] ;
CODE _ctl ( a -- sends LSB then MSB )
HL POP, chkPS,
A L LDrr, VDP_CTLPORT OUTiA,
A H LDrr, VDP_CTLPORT OUTiA,
;CODE
CODE _data
HL POP, chkPS,
A L LDrr, VDP_DATAPORT OUTiA,
;CODE