mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-12-28 09:30:41 +00:00
26 lines
252 B
ArmAsm
26 lines
252 B
ArmAsm
; turn on double high point at CH,CV
|
|
plot_point:
|
|
lda CV ; y
|
|
lsr
|
|
lsr
|
|
and #$fe ; make even
|
|
tax
|
|
lda gr_offsets,X
|
|
sta OUTL
|
|
|
|
lda gr_offsets+1,X
|
|
clc
|
|
adc DRAW_PAGE
|
|
sta OUTH
|
|
|
|
lda CH ; X * 2
|
|
lsr
|
|
tay
|
|
|
|
plot_color:
|
|
lda #$77
|
|
sta (OUTL),Y
|
|
|
|
rts
|
|
|