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

xmas2018: add candle flame

Browse Source
This commit is contained in:
Vince Weaver 2018-12-15 22:47:11 -05:00
parent b2d104b9fc
commit 5fd5bee1eb
3 changed files with 64 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
xmas_2018/Makefile
View File

@ -26,7 +26,7 @@ xmas2018.o: xmas2018.s \
zp.inc hardware.inc \
vapor_lock.s delay_a.s wait_keypress.s \
play_music.s mockingboard.s rts.s \
wreath.s wreath.img.lz4 \
wreath.s wreath.img.lz4 sprites.inc \
ball.s ball.img.lz4 \
merry.s merry.img.lz4
ca65 -o xmas2018.o xmas2018.s -l xmas2018.lst

41
xmas_2018/sprites.inc Normal file
View File

@ -0,0 +1,41 @@
wide_flame0:
.byte $2,$3
.byte $dd,$dd
.byte $dd,$dd
.byte $dd,$dd
; 00=0 0X=0 X0=0 XX=6
; = 33 + Y*(52)+ [30A + 64B + 69C + 54D]-Y
; = 33 + 3*52 + 30*0 + 64*0 + 69*0 + 54*6 - 3
; = 510
wide_flame1:
.byte $2,$3
.byte $dd,$dd
.byte $dd,$dd
.byte $dd,$dd
; 00=0 0X=0 X0=0 XX=6
; = 33 + Y*(52)+ [30A + 64B + 69C + 54D]-Y
; = 33 + 3*52 + 30*0 + 64*0 + 69*0 + 54*6 - 3
; = 510
wide_flame2:
.byte $2,$3
.byte $dd,$dd
.byte $dd,$dd
.byte $dd,$dd
; 00=0 0X=0 X0=0 XX=6
; = 33 + Y*(52)+ [30A + 64B + 69C + 54D]-Y
; = 33 + 3*52 + 30*0 + 64*0 + 69*0 + 54*6 - 3
; = 510
wide_flame3:
.byte $2,$3
.byte $dd,$dd
.byte $dd,$dd
.byte $dd,$dd
; 00=0 0X=0 X0=0 XX=6
; = 33 + Y*(52)+ [30A + 64B + 69C + 54D]-Y
; = 33 + 3*52 + 30*0 + 64*0 + 69*0 + 54*6 - 3
; = 510

26
xmas_2018/wreath.s
View File

@ -136,19 +136,36 @@ wrloopF:dex ; 2
; do_nothing should be 4550
; play music 1023
; sprite 536
; -10 keypress
; ===========
; 3517
; 2981
jsr play_music ; 6+1017
; Try X=116 Y=6 cycles=3517
;========================
; draw sprites
;========================
lda #>wide_flame0 ; 2
sta INH ; 3
lda #<wide_flame0 ; 2
sta INL ; 3
ldy #6 ; 2
wrloop1:ldx #116 ; 2
lda #4 ; 2
sta XPOS ; 3
lda #4 ; 2
sta YPOS ; 3
jsr put_sprite ; 6+510
;===============
; 536
; Try X=118 Y=5 cycles=2981
ldy #5 ; 2
wrloop1:ldx #118 ; 2
wrloop2:dex ; 2
bne wrloop2 ; 2nt/3
dey ; 2
@ -168,3 +185,4 @@ wr_handle_keypress:
rts ; 6
.include "sprites.inc"