Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-07-06 22:29:00 +00:00
Code Issues Projects Releases Wiki Activity

megadamo: learn that we can add asserts

Browse Source
This commit is contained in:
Vince Weaver 2018-10-29 12:30:09 -04:00
parent 63b251cb7d
commit 7f38158fa4
2 changed files with 15 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
megademo/takeoff.s
View File

@ -137,18 +137,24 @@ toloopB:dex ; 2
to_begin_loop:
; 12*4 = 48 lines of HIRES = 3120
; -4 set HIRES
; -1038 play_music
; =========
; 2078
bit HIRES ; 4
; 3116 - 1038 (music) = 2078
jsr play_music
; jsr play_music ; 6 + 1032
; Try X=5 Y=67 cycles=2078
; Try X=11 Y=51 cycles=3112 R4
ldy #67 ; 2
toloop8:ldx #5 ; 2
nop
nop
ldy #51 ; 2
toloop8:ldx #11 ; 2
toloop9:dex ; 2
bne toloop9 ; 2nt/3
dey ; 2

6
megademo/waterfall.s
View File

@ -366,7 +366,7 @@ adjust_xpos:
jmp wf_display_loop ; 3
.align $100
;=========================================================
; fast copy rows 22-36 from $C00 to $400
@ -374,6 +374,8 @@ adjust_xpos:
;
; 7+ 8*[9*7 + 7] + 5 = 572
.assert >gr_copy_row22 = >gr_copy_row_done, error, "gr_copy_row22 crosses page"
gr_copy_row22:
ldy #8 ; 2
ldx XPOS ; 3
@ -399,7 +401,7 @@ grcr_loop:
bne grcr_loop ; 3
; -1
rts ; 6
gr_copy_row_done: