mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-10-12 05:24:02 +00:00
mode7: move starfield to use common plot
This commit is contained in:
parent
c1dbf70269
commit
e39c4f0e68
@ -176,48 +176,7 @@ new_star:
|
|||||||
jmp plot_star_continue ; 3
|
jmp plot_star_continue ; 3
|
||||||
|
|
||||||
plot_star:
|
plot_star:
|
||||||
;================================
|
jsr plot ; 6
|
||||||
; plot routine
|
|
||||||
;================================
|
|
||||||
; put address in GBASL/GBASH
|
|
||||||
; Xcoord in XPOS
|
|
||||||
; Ycoord in Y
|
|
||||||
|
|
||||||
tya ; 2
|
|
||||||
and #$fe ; mask to make it even ; 2
|
|
||||||
tay ; 2
|
|
||||||
|
|
||||||
lda gr_offsets,Y ; lookup low-res memory address ; 4
|
|
||||||
clc ; 2
|
|
||||||
adc XPOS ; 3
|
|
||||||
sta GBASL ; 3
|
|
||||||
iny ; 2
|
|
||||||
|
|
||||||
lda gr_offsets,Y ; 4
|
|
||||||
adc DRAW_PAGE ; add in draw page offset ; 3
|
|
||||||
sta GBASH ; 3
|
|
||||||
;===========
|
|
||||||
;
|
|
||||||
ldy #0
|
|
||||||
lda YPOS
|
|
||||||
and #$1
|
|
||||||
bne plot_odd
|
|
||||||
plot_even:
|
|
||||||
lda COLOR
|
|
||||||
and #$0f
|
|
||||||
sta COLOR
|
|
||||||
lda (GBASL),Y
|
|
||||||
and #$f0
|
|
||||||
jmp plot_write
|
|
||||||
plot_odd:
|
|
||||||
lda COLOR
|
|
||||||
and #$f0
|
|
||||||
sta COLOR
|
|
||||||
lda (GBASL),Y
|
|
||||||
and #$0f
|
|
||||||
plot_write:
|
|
||||||
ora COLOR
|
|
||||||
sta (GBASL),Y
|
|
||||||
|
|
||||||
plot_star_continue:
|
plot_star_continue:
|
||||||
|
|
||||||
@ -318,6 +277,7 @@ random_star:
|
|||||||
;.include "../asm_routines/gr_putsprite.s"
|
;.include "../asm_routines/gr_putsprite.s"
|
||||||
.include "../asm_routines/gr_offsets.s"
|
.include "../asm_routines/gr_offsets.s"
|
||||||
.include "../asm_routines/gr_fast_clear.s"
|
.include "../asm_routines/gr_fast_clear.s"
|
||||||
|
.include "../asm_routines/gr_plot.s"
|
||||||
|
|
||||||
;===============================================
|
;===============================================
|
||||||
; Variables
|
; Variables
|
||||||
|
Loading…
Reference in New Issue
Block a user