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

40 lines
337 B
ArmAsm
Executable File

;
; LORES VLINE
;
BIT $C081
PLA
STA $A0
PLA
STA $A1
PLA
TAX
PLA
PLA
PLA
TXA
JSR $F864 ; SET COLOR
PLA
STA $2D ; VERTICAL POSITION BOTTOM
PLA
PLA
PLA
PLA
STA $A2 ; VERTICAL POSITION TOP
PLA
PLA
PLA
PLA
TAY ; HORIZ POSITION
PLA
PLA
PLA
LDA $A2
JSR $F828
LDA $A1
PHA
LDA $A0
PHA
BIT $C083
BIT $C083
RTS