VM02/src/apple2/lrClrHLine.s
2018-04-25 09:13:44 -07:00

40 lines
340 B
ArmAsm
Executable File

;
; LORES COLOR HLINE
;
BIT $C081
PLA
STA $A0
PLA
STA $A1
PLA
TAX
PLA
PLA
PLA
TXA
JSR $F864 ; SET COLOR
PLA
STA $A2 ; VERTICAL POSITION
PLA
PLA
PLA
PLA
STA $2C ; HORIZ POSITION RIGHT
PLA
PLA
PLA
PLA
TAY ; HORIZ POSITION LEFT
PLA
PLA
PLA
LDA $A2
JSR $F819
LDA $A1
PHA
LDA $A0
PHA
BIT $C083
BIT $C083
RTS