Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-08-13 04:28:59 +00:00
Code Issues Projects Releases Wiki Activity

megademo: waterfall now exits, so can watch whole thing

Browse Source
This commit is contained in:
Vince Weaver 2018-10-13 17:13:09 -04:00
parent 26ed9b8d24
commit c27b51e8ab
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
megademo/waterfall.s
View File

@ -293,15 +293,19 @@ convoluted:
is_it_left: is_it_left:
; 5 ; 5
cmp #$8 ; left arrow ; 2 cmp #$8 ; left arrow ; 2
beq is_left beq is_left ; 3
; 2
nop ; 2 ; -1
lda YPOS ; 3-cycle nop cmp #0 ; space? ; 2
bne not_space ; 3
rts
; nop ; 2
; lda YPOS ; 3-cycle nop ; 3
not_space:
jmp convoluted ; 3 jmp convoluted ; 3
; ------ 20 if neither ; ------ 20 if neither
is_left: is_left:
; 3
dec XPOS ; 5 ; 20 if left dec XPOS ; 5 ; 20 if left
lda #1 ; 2 lda #1 ; 2
sta BIRD_DIR ; 3 sta BIRD_DIR ; 3
@ -315,6 +319,7 @@ adjust_xpos:
jmp wf_display_loop ; 3 jmp wf_display_loop ; 3
.align $100 .align $100
.include "gr_unrolled_copy.s" .include "gr_unrolled_copy.s"
@ -616,6 +621,6 @@ ground_loop_done:
jmp wf_display_loop_return ; 3 jmp wf_display_loop_return ; 3
; Moved to megademo.s
;.include "waterfall_page1.inc" ;.include "waterfall_page1.inc"
;.include "waterfall_page2.inc" ;.include "waterfall_page2.inc"