mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-21 02:28:05 +11:00
440ea43a88
Initially, I used the same letters as those used in the z80 ref docs, but it makes the different assemblers harder to use than they should. Having consistent "argtype" rules across assemblers should help.
11 lines
226 B
Plaintext
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
|