Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-08-15 08:27:41 +00:00
Code Issues Projects Releases Wiki Activity

xmas2019: vapor lock with snow

Browse Source
This commit is contained in:
Vince Weaver
2019-12-20 13:25:11 -05:00
parent a1bffc7040
commit 248a8078ec
2 changed files with 307 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
xmas_2019/snow.s
View File

@@ -112,8 +112,8 @@ erase_loop:
;========================== ;==========================
; move snow ; move snow
; ;
; 2 + NUM_FLAKES*(9+17+56+15+11+7) -1 ; 2 + NUM_FLAKES*(9+17+56+16+11+7) -1
; 1 + NUM_FLAKES*115 = 1151 ; 1 + NUM_FLAKES*116 = 1161
ldx #0 ; 2 ldx #0 ; 2
move_snow: move_snow:
@@ -156,9 +156,9 @@ just_inc:
;=============== ;===============
; 56 ; 56
; if left = 6 = 6 + (9) = 15 ; if left = 7 = 6 + (9) = 16
; if right = 4+9 = 13 + (2) = 15 ; if right = 4+10 = 13 + (2) = 16
; else = 4+8 = 12 + (3) = 15 ; else = 4+9 = 12 + (3) = 16
; -1 ; -1
cmp #$1 ; 2 cmp #$1 ; 2
beq snow_right ; 3 beq snow_right ; 3
@@ -168,20 +168,20 @@ just_inc:
snow_else: snow_else:
lda SEEDL ; nop ; 3 lda SEEDL ; nop ; 3
; -1 ; -1
inc snow_y,X ; 6 inc snow_y,X ; 7
jmp snow_no ; 3 jmp snow_no ; 3
;=============== ;===============
; 8+3 ; 8+3
snow_right: snow_right:
nop ; 2 nop ; 2
inc snow_x,X ; 6 inc snow_x,X ; 7
jmp snow_no ; 3 jmp snow_no ; 3
;============ ;============
; 9+2 ; 9+2
snow_left: snow_left:
dec snow_x,X ; 6 dec snow_x,X ; 7
lda SEEDL ; nop lda SEEDL ; nop
lda SEEDL ; nop lda SEEDL ; nop
lda SEEDL ; nop lda SEEDL ; nop

305
xmas_2019/xmas2019.s
View File

@@ -14,6 +14,10 @@ GBASL = $26
GBASH = $27 GBASH = $27
BASL = $28 BASL = $28
BASH = $29 BASH = $29
SEEDL = $4E
SEEDH = $4F
HGR_COLOR = $E4 HGR_COLOR = $E4
DRAW_PAGE = $EE DRAW_PAGE = $EE
SNOWX = $F0 SNOWX = $F0
@@ -22,6 +26,11 @@ CMASK1 = $F2
CMASK2 = $F3 CMASK2 = $F3
WHICH_Y = $F4 WHICH_Y = $F4
FRAME = $F5 FRAME = $F5
TEMPY = $F6
HGR = $F3E2
NUMFLAKES = 10
TREESIZE = 12 TREESIZE = 12
@@ -35,11 +44,33 @@ TREESIZE = 12
lda #0 lda #0
sta FRAME sta FRAME
jsr HGR
bit SET_GR bit SET_GR
bit FULLGR bit FULLGR
bit LORES bit LORES
bit PAGE0 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
;========================================================== ;==========================================================
;========================================================== ;==========================================================
@@ -369,25 +400,239 @@ eloop2: dex ; 2
jmp display_loop ; 3 jmp display_loop ; 3
;=======================================================
;======================================================= ;=======================================================
;======================================================= ;=======================================================
; music/snow ; music/snow
;======================================================= ;=======================================================
;======================================================= ;=======================================================
;=======================================================
; Display falling snow
music_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 ; 4550 cycles
; -11 even/odd ; -11 even/odd
; -2 even/odd jump ; -2 even/odd jump
; -851 erase
;-1161 move
; -971 draw
; -3 jump at end ; -3 jump at end
;====== ;======
; 4534 ; 1551
; Try X=29 Y=30 cycles=4531R3 ; Try X=5 Y=50 cycles=1551
lda COLOR ldy #50 ; 2
dloop1: ldx #5 ; 2
ldy #30 ; 2
dloop1: ldx #29 ; 2
dloop2: dex ; 2 dloop2: dex ; 2
bne dloop2 ; 2nt/3 bne dloop2 ; 2nt/3
dey ; 2 dey ; 2
@@ -411,6 +656,7 @@ tree:
; .byte $CC, 10, 29, $00 ; LLLLLLLLLLLLLLLLLL ; .byte $CC, 10, 29, $00 ; LLLLLLLLLLLLLLLLLL
; .byte $88, 19, 20, $00 ; BB ; .byte $88, 19, 20, $00 ; BB
.align $100
tree_color: .byte $DD,$44,$CC,$44, $CC,$11, $44, $CC, $44,$11, $CC, $88 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_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_start: .byte 19, 18, 17, 16, 15, 20, 14, 13, 12, 16, 11, 19
@@ -437,7 +683,54 @@ sine_table_h:
.byte >sine_table13,>sine_table14,>sine_table15 .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 .align $100
.include "sines.inc" .include "sines.inc"
.include "vapor_lock.s" .include "vapor_lock.s"
.include "delay_a.s" .include "delay_a.s"
.include "random16.s"