2023-10-31 21:05:14 +00:00
|
|
|
|
|
|
|
|
; monitor, horizontal=Y vert=a
|
|
|
|
|
plot_compat:
|
|
|
|
|
sty XPOS
|
|
|
|
|
sta YPOS
|
|
|
|
|
|
2023-10-29 00:13:34 +00:00
|
|
|
;================================
|
|
|
|
|
; plot routine
|
|
|
|
|
;================================
|
|
|
|
|
; Xcoord in XPOS
|
|
|
|
|
; Ycoord in YPOS
|
|
|
|
|
; color in COLOR
|
|
|
|
|
plot:
|
|
|
|
|
lda YPOS ; 3
|
|
|
|
|
|
|
|
|
|
lsr ; shift bottom bit into carry ; 2
|
|
|
|
|
|
|
|
|
|
bcc plot_even ; 2nt/3
|
|
|
|
|
plot_odd:
|
2023-11-01 00:27:19 +00:00
|
|
|
ldy #$f0 ; 2
|
2023-10-29 00:13:34 +00:00
|
|
|
bcs plot_c_done ; 2nt/3
|
|
|
|
|
plot_even:
|
2023-11-01 00:27:19 +00:00
|
|
|
ldy #$0f ; 2
|
2023-10-29 00:13:34 +00:00
|
|
|
plot_c_done:
|
2023-11-01 00:27:19 +00:00
|
|
|
sty MASK ; 3
|
2023-10-29 00:13:34 +00:00
|
|
|
|
|
|
|
|
asl ; shift back (now even) ; 2
|
|
|
|
|
tay ; 2
|
|
|
|
|
|
|
|
|
|
lda gr_offsets,Y ; lookup low-res memory address ; 4
|
|
|
|
|
clc ; 2
|
|
|
|
|
adc XPOS ; 3
|
|
|
|
|
sta GBASL ; 3
|
|
|
|
|
|
|
|
|
|
lda gr_offsets+1,Y ; 4
|
|
|
|
|
adc DRAW_PAGE ; add in draw page offset ; 3
|
|
|
|
|
sta GBASH ; 3
|
|
|
|
|
|
|
|
|
|
ldy #0 ; 2
|
|
|
|
|
|
|
|
|
|
plot_write:
|
|
|
|
|
lda MASK ; 3
|
|
|
|
|
eor #$ff ; 2
|
|
|
|
|
|
|
|
|
|
and (GBASL),Y ; 5+
|
|
|
|
|
sta COLOR_MASK ; 3
|
|
|
|
|
|
|
|
|
|
lda COLOR ; 3
|
|
|
|
|
and MASK ; 3
|
|
|
|
|
ora COLOR_MASK ; 3
|
|
|
|
|
sta (GBASL),Y ; 6
|
|
|
|
|
|
|
|
|
|
rts ; 6
|
