mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-10 08:54:51 +00:00
xmas2018: some fine tuning
This commit is contained in:
parent
dd582f3ced
commit
432085f8cd
@ -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
|
||||
;===============
|
||||
|
@ -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"
|
||||
|
||||
|
@ -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:
|
||||
|
Loading…
Reference in New Issue
Block a user