Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-02-28 06:30:18 +00:00
Code Issues Projects Releases Wiki Activity
dos33fsprogs/xmas_2019/xmas2019.s
Vince Weaver 248a8078ec xmas2019: vapor lock with snow
2019-12-20 13:25:11 -05:00

737 lines
13 KiB
ArmAsm
Raw Blame History

; XMAS2019 Demo
; + Display awesome tree
; + Starfield
; + Music
; + Snow
; by deater (Vince Weaver) <vince@deater.net>
; Zero Page
CH = $24
CV = $25
GBASL = $26
GBASH = $27
BASL = $28
BASH = $29
SEEDL = $4E
SEEDH = $4F
HGR_COLOR = $E4
DRAW_PAGE = $EE
SNOWX = $F0
COLOR = $F1
CMASK1 = $F2
CMASK2 = $F3
WHICH_Y = $F4
FRAME = $F5
TEMPY = $F6
HGR = $F3E2
NUMFLAKES = 10
TREESIZE = 12
.include "hardware.inc"
;==================================
;==================================
; Init
lda #0
sta FRAME
jsr HGR
bit SET_GR
bit FULLGR
bit LORES
bit PAGE0
;==================================
; init snow
;==================================
ldx #NUMFLAKES-1
snow_init_loop:
jsr random16
lda SEEDL
and #$3f
sta snow_x,X
lda SEEDH
and #$7f
sta snow_y,X
dex
bpl snow_init_loop
;==========================================================
;==========================================================
; Vapor Lock
;==========================================================
;==========================================================
jsr vapor_lock
; vapor lock returns with us at beginning of hsync in line
; 114 (7410 cycles), so with 5070 lines to go to vblank
; then we want another 4050 cycles to end, so 9120
;=================================
; do nothing
;=================================
; and take 9120 cycles to do it
do_nothing:
; Try X=139 Y=13 cycles=9114R6
nop
nop
nop
ldy #13 ; 2
loop1: ldx #139 ; 2
loop2: dex ; 2
bne loop2 ; 2nt/3
dey ; 2
bne loop1 ; 2nt/3
display_loop:
;==========================
; First 8*4 = 32 lines GR??
; 2080 cycles
bit SET_GR ; 4
bit LORES ; 4
; Try X=1 Y=188 cycles=2069 R3
lda COLOR ; 3
ldy #188 ; 2
bloop1: ldx #1 ; 2
bloop2: dex ; 2
bne bloop2 ; 2nt/3
dey ; 2
bne bloop1 ; 2nt/3
;=====================================
; Next 32*4 = 128 lines HGR1/GR1 for 20 cycles/HGR1
ldx #127 ; 2
middle_loop:
bit HIRES ; 4
; 27
lda COLOR ; 3
bit LORES ; 4
; 16
nop
nop
nop
nop
nop
nop
nop
nop
bit HIRES ; 4
; 5cycles
nop
lda COLOR
lda COLOR ; 3
lda COLOR ; 3
lda COLOR ; 3
lda COLOR ; 3
lda COLOR ; 3
lda COLOR ; 3
lda COLOR ; 3
lda COLOR ; 3
dex ; 2
bpl middle_loop ; 3
; -1
;==========================
; Next 8*4 = 32 lines GR ??
; 2080 cycles -8 -2 +1=2071
bit SET_GR ; 4
bit LORES ; 4
; Try X=1 Y=188 cycles=2069 R2
nop
ldy #188 ; 2
cloop1: ldx #1 ; 2
cloop2: dex ; 2
bne cloop2 ; 2nt/3
dey ; 2
bne cloop1 ; 2nt/3
vblank_start:
;===========================
; alternate between tree and snow/music
; every other frame
;===========================
lda #1 ; 2
eor FRAME ; 3
sta FRAME ; 3
beq tree_half ; 3
;====
; 11
; -1
jmp music_snow ; 3
;=====
; 2
tree_half:
;==========================================================
;==========================================================
; TREE at 30Hz
;==========================================================
;==========================================================
;==========================================================
; erase old lines
;==========================================================
; clear 10-30 on lines 8-38
; 4+(80+5)*20-1 = 1703 cycles
clear_lores:
lda #$0 ; 2
ldx #19 ; 2
;===========
; 4
clear_lores_loop:
sta $600+10,X ; 8 ; 5
sta $680+10,X ; 10 ; 5
sta $700+10,X ; 12 ; 5
sta $780+10,X ; 14 ; 5
sta $428+10,X ; 16 ; 5
sta $4A8+10,X ; 18 ; 5
sta $528+10,X ; 20 ; 5
sta $5A8+10,X ; 22 ; 5
sta $628+10,X ; 24 ; 5
sta $6A8+10,X ; 26 ; 5
sta $728+10,X ; 28 ; 5
sta $7A8+10,X ; 30 ; 5
sta $450+10,X ; 32 ; 5
sta $4D0+10,X ; 34 ; 5
sta $550+10,X ; 36 ; 5
sta $5D0+10,X ; 38 ; 5
;===========
; 80
dex ; 2
bpl clear_lores_loop ; 3
;===========
; 5
; -1
;============================================================
;============================================================
; move line
;============================================================
;============================================================
inc WHICH_Y ; 5
lda WHICH_Y ; 3
and #$7f ; 2
sta WHICH_Y ; 3
;=====
; 13
jmp draw_tree ; 3
.align $100
draw_tree:
;==========================================================
;==========================================================
; draw new line
;==========================================================
;==========================================================
;NEW: 2,4,6,8,10,12,14,16,18,2,2,2
;
; 2-1 + 7*TREESIZE + 85*TREESIZE +
; 18*(2+4+6+8+10+12+14+16+18+2+1+1)
;
; 1 + 84 + 1020 + 18*94 = 1105 + 1692 = 2797
ldx #0 ; 2
draw_line_loop:
;=================================
;=================================
; draw line
;=================================
;=================================
; X = which
; optimized: 34 + 18 + 34 + 18*len + -1 = 85+(18*len)
draw_line:
; set up proper sine table
ldy tree_line,X ; 4+
lda sine_table_l,Y ; 4+
sta sine_table_smc+1 ; 4
lda sine_table_h,Y ; 4+
sta sine_table_smc+2 ; 4
ldy WHICH_Y ; 3
sine_table_smc:
lda sine_table5,Y ; 4+
lsr ; 2
tay ; 2
bcs draw_line_odd ; 3
;======
; 34
draw_line_even:
; -1
lda tree_color,X ; 4+
and #$0f ; 2
sta ll_smc1+1 ; 4
lda #$f0 ; 2
sta ll_smc2+1 ; 4
jmp draw_line_actual ; 3
;====
; 18
draw_line_odd:
lda tree_color,X ; 4+
and #$f0 ; 2
sta ll_smc1+1 ; 4
lda #$0f ; 2
sta ll_smc2+1 ; 4
nop ; 2
;====
; 18
draw_line_actual:
lda gr_offsets_l,Y ; 4+
clc ; 2
adc tree_start,X ; 4+
sta ll_smc3+1 ; 4
sta ll_smc4+1 ; 4
lda gr_offsets_h,Y ; 4+
sta ll_smc3+2 ; 4
sta ll_smc4+2 ; 4
ldy tree_len,X ; 4+
;=====
; 34
line_loop:
ll_smc3:
lda $400,Y ; 4+
ll_smc2:
and #$f0 ; 2
ll_smc1:
ora #$0f ; 2
ll_smc4:
sta $400,Y ; 5
dey ; 2
bpl line_loop ; 3
;=====
; 18
; -1
inx ; 2
cpx #TREESIZE ; 2
bne draw_line_loop ; 3
; -1
;==============================================================
;==============================================================
; 4550 cycles
; -11 alternate frame
;-1703 erase lores
; -13 move tree
; -3 jmp (alignment)
;-2797 draw tree
; -3 jmp at end
;========
; 20
; Try X=2 Y=1 cycles=17R3
lda COLOR
ldy #1 ; 2
eloop1: ldx #2 ; 2
eloop2: dex ; 2
bne eloop2 ; 2nt/3
dey ; 2
bne eloop1 ; 2nt/3
jmp display_loop ; 3
;=======================================================
;=======================================================
;=======================================================
; music/snow
;=======================================================
;=======================================================
;=======================================================
; Display falling snow
music_snow:
; 0 4 8 c 10 14 18 1c
; 0 1 2 3 4 5 6 7
;=========================
; erase old snow
;=========================
; 2 + (40+38+7)*NUMFLAKES - 1
; 1 + 85*NUMFLAKES = 851
ldx #0 ; 2
erase_loop:
lda snow_y,X ; get Y ; 4+
lsr ; 2
lsr ; 2
lsr ; divide by 8 ; 2
sta TEMPY ; 3
lda snow_x,X ; 4+
tay ; 2
lda div_7_q,Y ; 4+
ldy TEMPY ; 3
clc ; 2
adc hgr_offsets_l,Y ; 4+
sta GBASL ; 3
adc #30 ; 2
sta BASL ; 3
;=============
; 40
lda snow_y,X ; 4+
asl ; 2
asl ; 2
and #$1f ; 2
clc ; 2
adc hgr_offsets_h,Y ; 4
sta GBASH ; 3
sta BASH ; 3
lda #0 ; 2
tay ; 2
sta (GBASL),Y ; 6
sta (BASL),Y ; 6
;============
; 38
inx ; 2
cpx #NUMFLAKES ; 2
bne erase_loop ; 3
;============
; 7
; -1
;==========================
; move snow
;
; 2 + NUM_FLAKES*(9+17+56+16+11+7) -1
; 1 + NUM_FLAKES*116 = 1161
ldx #0 ; 2
move_snow:
; Check if off edge of screen
lda snow_y,X ; 4+
cmp #160 ; 2
beq snow_new_y ; 3
;==========
; 9
no_new_y:
; -1
lda SEEDH ; 3
lda SEEDH ; 3
lda SEEDH ; 3
lda SEEDH ; 3
lda SEEDH ; 3
jmp just_inc ; 3
;============
; 17
snow_new_y:
; out of bounds, get new
lda #32 ; 2
sta snow_y,X ; 5
lda SEEDH ; 3
and #$3f ; 2
sta snow_x,X ; 5
;============
; 17
just_inc:
jsr random16 ; 6+42
lda SEEDL ; 3
and #$f ; 2
beq snow_left ; 3
;===============
; 56
; if left = 7 = 7 + (9) = 16
; if right = 4+10 = 14 + (2) = 16
; else = 4+9 = 13 + (3) = 16
; -1
cmp #$1 ; 2
beq snow_right ; 3
;===============
; 4
snow_else:
lda SEEDL ; nop ; 3
; -1
inc snow_y,X ; 7
jmp snow_no ; 3
;===============
; 9+3
snow_right:
nop ; 2
inc snow_x,X ; 7
jmp snow_no ; 3
;============
; 10+2
snow_left:
dec snow_x,X ; 7
lda SEEDL ; nop
lda SEEDL ; nop
lda SEEDL ; nop
snow_no:
lda snow_x,X ; 4+
and #$3f ; 2
sta snow_x,X ; 5
;====
; 11
done_inc:
inx ; 2
cpx #NUMFLAKES ; 2
bne move_snow ; 3
;===========
; 7
; -1
;=========================
; draw new snow
;=========================
; 2+ (40+22+28+7)*NUMFLAKES -1
; 1+97*NUMFLAKES = 971
ldx #0 ; 2
draw_loop:
lda snow_y,X ; 4+
lsr ; 2
lsr ; 2
lsr ; 2
sta TEMPY ; 3
lda snow_x,X ; 4+
tay ; 2
lda div_7_q,Y ; 4+
ldy TEMPY ; 3
clc ; 2
adc hgr_offsets_l,Y ; 4+
sta GBASL ; 3
adc #30 ; 2
sta BASL ; 3
;===========
; 40
lda snow_y,X ; 4+
asl ; 2
asl ; 2
and #$1f ; 2
clc ; 2
adc hgr_offsets_h,Y ; 4+
sta GBASH ; 3
sta BASH ; 3
;=============
; 22
ldy snow_x,X ; 4+
lda div_7_r,Y ; 4+
tay ; 2
lda pixel_lookup,Y ; 4+
ldy #0 ; 2
sta (GBASL),Y ; 6
sta (BASL),Y ; 6
;=============
; 28
inx ; 2
cpx #NUMFLAKES ; 2
bne draw_loop ; 3
;=============
; 7
; -1
; 4550 cycles
; -11 even/odd
; -2 even/odd jump
; -851 erase
;-1161 move
; -971 draw
; -3 jump at end
;======
; 1551
; Try X=5 Y=50 cycles=1551
ldy #50 ; 2
dloop1: ldx #5 ; 2
dloop2: dex ; 2
bne dloop2 ; 2nt/3
dey ; 2
bne dloop1 ; 2nt/3
jmp display_loop ; 3
tree:
; color start stop ; 01234567890123456789
; .byte $DD, 19, 20, $00 ; YY
; .byte $44, 17, 22, $00 ; DDDD
; .byte $CC, 16, 23, $00 ; LLLLLL
; .byte $44, 15, 24, $00 ; DDDDDDDD
; .byte $CC, 14, 25, $00 ; LLLLLRRLLL
; .byte $44, 13, 26, $00 ; DDDDDDDDDDDD
; .byte $CC, 12, 27, $00 ; LLLLLLLLLLLLLL
; .byte $44, 11, 28, $00 ; DDDDRRDDDDDDDDDD
; .byte $CC, 10, 29, $00 ; LLLLLLLLLLLLLLLLLL
; .byte $88, 19, 20, $00 ; BB
.align $100
tree_color: .byte $DD,$44,$CC,$44, $CC,$11, $44, $CC, $44,$11, $CC, $88
tree_line: .byte 0, 1, 2, 3, 4, 4, 5, 6, 7, 7, 8, 9
tree_start: .byte 19, 18, 17, 16, 15, 20, 14, 13, 12, 16, 11, 19
tree_len: .byte 2-1,4-1,6-1,8-1,10-1,1-1,12-1,14-1,16-1,1-1,18-1, 2-1
gr_offsets_l:
.byte <$400,<$480,<$500,<$580,<$600,<$680,<$700,<$780
.byte <$428,<$4a8,<$528,<$5a8,<$628,<$6a8,<$728,<$7a8
.byte <$450,<$4d0,<$550,<$5d0,<$650,<$6d0,<$750,<$7d0
gr_offsets_h:
.byte >$400,>$480,>$500,>$580,>$600,>$680,>$700,>$780
.byte >$428,>$4a8,>$528,>$5a8,>$628,>$6a8,>$728,>$7a8
.byte >$450,>$4d0,>$550,>$5d0,>$650,>$6d0,>$750,>$7d0
sine_table_l:
.byte <sine_table5, <sine_table6, <sine_table7, <sine_table8
.byte <sine_table9, <sine_table10,<sine_table11,<sine_table12
.byte <sine_table13,<sine_table14,<sine_table15
sine_table_h:
.byte >sine_table5, >sine_table6, >sine_table7, >sine_table8
.byte >sine_table9, >sine_table10,>sine_table11,>sine_table12
.byte >sine_table13,>sine_table14,>sine_table15
snow_x:
.byte 0,0,0,0,0,0,0,0,0,0
snow_y:
.byte 0,0,0,0,0,0,0,0,0,0
hgr_offsets_h:
.byte >$2000,>$2080,>$2100,>$2180,>$2200,>$2280,>$2300,>$2380
.byte >$2028,>$20A8,>$2128,>$21A8,>$2228,>$22A8,>$2328,>$23A8
.byte >$2050,>$20D0,>$2150,>$21D0,>$2250,>$22D0,>$2350,>$23D0
hgr_offsets_l:
.byte <$2000,<$2080,<$2100,<$2180,<$2200,<$2280,<$2300,<$2380
.byte <$2028,<$20A8,<$2128,<$21A8,<$2228,<$22A8,<$2328,<$23A8
.byte <$2050,<$20D0,<$2150,<$21D0,<$2250,<$22D0,<$2350,<$23D0
div_7_q:
.byte 0,0,0,0,0,0,0 ; 0..6
.byte 1,1,1,1,1,1,1 ; 7..13
.byte 2,2,2,2,2,2,2 ; 14..20
.byte 3,3,3,3,3,3,3 ; 21..27
.byte 4,4,4,4,4,4,4 ; 28..34
.byte 5,5,5,5,5,5,5 ; 35..41
.byte 6,6,6,6,6,6,6 ; 42..48
.byte 7,7,7,7,7,7,7 ; 49..55
.byte 8,8,8,8,8,8,8 ; 56..62
.byte 9 ; 63
.align $100
div_7_r:
.byte 0,1,2,3,4,5,6 ; 0..6
.byte 0,1,2,3,4,5,6 ; 7..13
.byte 0,1,2,3,4,5,6 ; 14..20
.byte 0,1,2,3,4,5,6 ; 21..27
.byte 0,1,2,3,4,5,6 ; 28..34
.byte 0,1,2,3,4,5,6 ; 35..41
.byte 0,1,2,3,4,5,6 ; 42..48
.byte 0,1,2,3,4,5,6 ; 49..55
.byte 0,1,2,3,4,5,6 ; 56..62
.byte 0 ; 63
pixel_lookup:
.byte $01,$02,$04,$08,$10,$20,$40
.align $100
.include "sines.inc"
.include "vapor_lock.s"
.include "delay_a.s"
.include "random16.s"
Reference in New Issue View Git Blame Copy Permalink