1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-26 16:38:06 +11:00
collapseos/blk/623
Virgil Dupras 2d9a07d215 blkunpack: don't include trailing empty lines
This was becoming heavy to manage.
2020-06-23 06:52:34 -04:00

11 lines
230 B
Plaintext

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