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

xmas2018: some fine tuning

Browse Source
This commit is contained in:
Vince Weaver 2018-12-21 09:55:06 -05:00
parent dd582f3ced
commit 432085f8cd
3 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
xmas_2018/ball.s
View File

@ -174,7 +174,7 @@ done_framing:
lda FRAMEH ; 3
cmp #30 ; length of song? ; 2
cmp #10 ; length of song? ; 2
beq ball_done ; 3
; -1
;===============

10
xmas_2018/wreath.s
View File

@ -44,13 +44,11 @@ wreath:
; so we have 5070 + 4550 = 9620 to kill
; FIXME: clear page0 screen
; clear page0 screen
jsr clear_top ; 6+5410
; now we have left
; GR part
; Set graphics mode
; bit HIRES ; 4
bit SET_GR ; 4
bit FULLGR ; 4
@ -327,7 +325,7 @@ wrloop2:dex ; 2
lda FLAME1 ; 3
cmp #30 ; length of song? ; 2
cmp #15 ; length of song? ; 2
beq wreath_done ; 3
; -1
;===============
@ -350,5 +348,5 @@ wreath_done:
rts ; 6
;.assert >wreath_begin_loop = >(wreath_done), error, "wreath crosses page"

7
xmas_2018/xmas2018.s
View File

@ -30,7 +30,7 @@ apple_iie:
;===================
; Load graphics
;===================
reload_everything:
; load WREATH.LZ4 to $a000
; then decompress it to $2000 (HGR PAGE0)
@ -163,7 +163,9 @@ forever:
jsr merry
jmp forever
jsr wait_until_keypress
jmp reload_everything
;==================
; Game over
@ -186,7 +188,6 @@ game_over_man:
.include "delay_a.s"
.include "wait_keypress.s"
.include "gr_putsprite.s"
; .include "text_print.s"
.include "play_music.s"
; filename to open is 30-character Apple text: