181 lines
2.5 KiB
ArmAsm
181 lines
2.5 KiB
ArmAsm
; rotozoom with cycling plasma texture
|
|
;
|
|
|
|
; TODO:
|
|
; make angle 64 degrees?
|
|
; remove scaling step?
|
|
; cycle between all four color schemes?
|
|
|
|
|
|
|
|
;.include "zp.inc"
|
|
;.include "hardware.inc"
|
|
|
|
;================================
|
|
; Clear screen and setup graphics
|
|
;================================
|
|
rotoplasma:
|
|
jsr HOME
|
|
bit PAGE0 ; set page 0
|
|
bit LORES ; Lo-res graphics
|
|
bit FULLGR ; mixed gr/text mode
|
|
bit SET_GR ; set graphics
|
|
|
|
lda #0
|
|
sta DISP_PAGE
|
|
lda #4
|
|
sta DRAW_PAGE
|
|
sta REV_COUNT
|
|
|
|
;===================================
|
|
; Clear top/bottom of page 0 and 1
|
|
;===================================
|
|
|
|
; jsr clear_screens
|
|
|
|
;===================================
|
|
; init the multiply tables
|
|
;===================================
|
|
|
|
; jsr init_multiply_tables
|
|
|
|
;======================
|
|
; init plasma texture
|
|
;======================
|
|
|
|
jsr init_plasma_texture
|
|
|
|
;=================================
|
|
; main loop
|
|
|
|
lda #0
|
|
sta ANGLE
|
|
sta SCALE_F
|
|
sta FRAME
|
|
|
|
lda #1
|
|
sta SCALE_I
|
|
|
|
roto_loop:
|
|
jsr update_plasma
|
|
|
|
jsr rotozoom
|
|
|
|
jsr page_flip
|
|
|
|
wait_for_keypress:
|
|
; lda KEYPRESS
|
|
; bpl wait_for_keypress
|
|
; bit KEYRESET
|
|
|
|
|
|
clc
|
|
lda FRAME
|
|
adc direction
|
|
sta FRAME
|
|
|
|
cmp #$f8 ; why -8?
|
|
beq back_at_zero
|
|
cmp #9 ; why 33?
|
|
; beq at_far_end
|
|
beq back_at_zero
|
|
bne done_reverse
|
|
|
|
back_at_zero:
|
|
; change plasma color
|
|
|
|
inc which_color
|
|
lda which_color
|
|
cmp #4
|
|
bne refresh_color
|
|
lda #0
|
|
sta which_color
|
|
refresh_color:
|
|
asl
|
|
tay
|
|
|
|
lda colorlookup,Y
|
|
sta color_lookup_smc+1
|
|
; sta colorlookup2_smc+1
|
|
lda colorlookup+1,Y
|
|
sta color_lookup_smc+2
|
|
; sta colorlookup2_smc+2
|
|
|
|
at_far_end:
|
|
|
|
; change bg color
|
|
|
|
; reverse direction
|
|
lda direction
|
|
eor #$ff
|
|
clc
|
|
adc #1
|
|
sta direction
|
|
|
|
lda scaleaddl
|
|
eor #$ff
|
|
clc
|
|
adc #1
|
|
sta scaleaddl
|
|
|
|
lda scaleaddh
|
|
eor #$ff
|
|
adc #0
|
|
sta scaleaddh
|
|
|
|
dec REV_COUNT
|
|
bne done_reverse
|
|
rts
|
|
|
|
|
|
done_reverse:
|
|
|
|
|
|
clc
|
|
lda ANGLE
|
|
adc direction
|
|
and #$3f
|
|
sta ANGLE
|
|
|
|
; increment zoom
|
|
|
|
; clc
|
|
; lda SCALE_F
|
|
; adc scaleaddl
|
|
; sta SCALE_F
|
|
; lda SCALE_I
|
|
; adc scaleaddh
|
|
; sta SCALE_I
|
|
|
|
|
|
|
|
jmp roto_loop
|
|
|
|
|
|
|
|
|
|
direction: .byte $01
|
|
scaleaddl: .byte $10
|
|
scaleaddh: .byte $00
|
|
|
|
;===============================================
|
|
; External modules
|
|
;===============================================
|
|
|
|
;.include "rotozoom_texture.s"
|
|
;.include "plasma.s"
|
|
|
|
;.include "gr_pageflip.s"
|
|
;.include "gr_fast_clear.s"
|
|
;.include "gr_copy.s"
|
|
;.include "decompress_fast_v2.s"
|
|
|
|
;.include "gr_offsets.s"
|
|
;.include "c00_scrn_offsets.s"
|
|
|
|
;.include "multiply_fast.s"
|
|
|
|
;===============================================
|
|
; Data
|
|
;===============================================
|