collapseos/arch/z80/sms/blk/603

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