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

trogdor: more timing

Browse Source
This commit is contained in:
Vince Weaver 2024-01-29 20:35:01 -05:00
parent be1000cee6
commit 223eccd5d3
3 changed files with 36 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
demos/trogdor/Makefile
View File

@ -86,6 +86,7 @@ qload.inc: generate_common QLOAD
./generate_common -a 0x1200 -s hgr_vertical_scroll_right qload.lst >> qload.inc ./generate_common -a 0x1200 -s hgr_vertical_scroll_right qload.lst >> qload.inc
./generate_common -a 0x1200 -s hgr_vertical_scroll_left qload.lst >> qload.inc ./generate_common -a 0x1200 -s hgr_vertical_scroll_left qload.lst >> qload.inc
./generate_common -a 0x1200 -s horiz_pan_skip qload.lst >> qload.inc ./generate_common -a 0x1200 -s horiz_pan_skip qload.lst >> qload.inc
./generate_common -a 0x1200 -s horiz_pan_skip_short qload.lst >> qload.inc
./generate_common -a 0x1200 -s hgr_copy_magnify qload.lst >> qload.inc ./generate_common -a 0x1200 -s hgr_copy_magnify qload.lst >> qload.inc
./generate_common -a 0x1200 -s hgr_vertical_scroll_down_left qload.lst >> qload.inc ./generate_common -a 0x1200 -s hgr_vertical_scroll_down_left qload.lst >> qload.inc
./generate_common -a 0x1200 -s hgr_copy_right qload.lst >> qload.inc ./generate_common -a 0x1200 -s hgr_copy_right qload.lst >> qload.inc

7
demos/trogdor/horiz_scroll_skip.s
View File

@ -8,8 +8,14 @@
; screens to pan in $2000/$4000 to left ; screens to pan in $2000/$4000 to left
horiz_pan_skip_short:
; value in A
jmp horiz_pan_skip_common
horiz_pan_skip: horiz_pan_skip:
lda #36
horiz_pan_skip_common:
sta horiz_pan_end_smc+1
pan_skip_loop: pan_skip_loop:
@ -126,6 +132,7 @@ pil_out_smc5:
inc COUNT inc COUNT
lda COUNT lda COUNT
horiz_pan_end_smc:
cmp #36 cmp #36
bne pan_skip_outer_outer_loop bne pan_skip_outer_outer_loop

54
demos/trogdor/trogdor.s
View File

@ -513,7 +513,7 @@ long_tall:
; o/~ Burninating the... o/~ ; o/~ Burninating the... o/~
lda #7 lda #6
sta ANIMATE_COUNT sta ANIMATE_COUNT
country_flames: country_flames:
@ -590,11 +590,13 @@ country_flames:
jsr horiz_pan_skip jsr horiz_pan_skip
; clear to white ; clear to white
ldy #$7f ldy #$7f
jsr hgr_clear_screen jsr hgr_clear_screen
jsr horiz_pan_skip lda #20
jsr horiz_pan_skip_short
jsr hgr_page_flip jsr hgr_page_flip
@ -638,11 +640,11 @@ country_flames:
;====================== ;======================
; animate ; animate
lda #12 lda #8
sta ANIMATE_COUNT sta ANIMATE_COUNT
up_down_animate: up_down_animate:
jsr hgr_page_flip jsr hgr_page_flip
lda #10 lda #7
jsr wait_ticks jsr wait_ticks
dec ANIMATE_COUNT dec ANIMATE_COUNT
bne up_down_animate bne up_down_animate
@ -702,7 +704,7 @@ peasant_inner_loop:
jsr hgr_page_flip jsr hgr_page_flip
lda #20 lda #10
jsr wait_ticks jsr wait_ticks
inc COUNT inc COUNT
@ -710,7 +712,7 @@ peasant_inner_loop:
cmp #6 cmp #6
bne peasant_outer_loop bne peasant_outer_loop
lda #25 lda #10
jsr wait_ticks jsr wait_ticks
@ -727,9 +729,9 @@ peasant_inner_loop:
jsr hgr_clear_screen jsr hgr_clear_screen
jsr hgr_page_flip jsr hgr_page_flip
ldy #$7f ; ldy #$7f
jsr hgr_clear_screen ; jsr hgr_clear_screen
jsr hgr_page_flip ; jsr hgr_page_flip
lda #<trog04_graphics lda #<trog04_graphics
sta zx_src_l+1 sta zx_src_l+1
@ -752,8 +754,8 @@ scroll_in_loop2:
cmp #200 cmp #200
bne scroll_in_loop2 bne scroll_in_loop2
lda #10 ; lda #10
jsr wait_ticks ; jsr wait_ticks
;====================================== ;======================================
@ -777,13 +779,13 @@ scroll_in_loop2:
jsr down_cottage jsr down_cottage
jsr up_cottage jsr up_cottage
jsr down_cottage jsr down_cottage
jsr up_cottage ; jsr up_cottage
jsr down_cottage ; jsr down_cottage
;====================================== ;======================================
; draw SCENE 14 ; draw SCENE 14
;====================================== ;======================================
; o/~ Thached roof cottages o/~ ; o/~ Thatched roof cottages o/~
; 1479 ; 1479
; low flames, tall flames at edges ; low flames, tall flames at edges
; 60 frames as cottage comes in upside down from top ; 60 frames as cottage comes in upside down from top
@ -795,7 +797,7 @@ scroll_in_loop2:
jsr draw_twin_flames_low jsr draw_twin_flames_low
jsr hgr_page_flip jsr hgr_page_flip
lda #2 lda #1
jsr wait_ticks jsr wait_ticks
;====================== ;======================
@ -898,14 +900,14 @@ done_upside_down_flame:
adc #8 adc #8
sta COUNT sta COUNT
cmp #192 cmp #176
bne scroll_down_loop bne scroll_down_loop
;================================ ;================================
; done ; done
lda #10 ; lda #10
jsr wait_ticks ; jsr wait_ticks
;====================================== ;======================================
@ -937,8 +939,8 @@ done_upside_down_flame:
jsr hgr_page_flip jsr hgr_page_flip
lda #5 ; lda #2
jsr wait_ticks ; jsr wait_ticks
;========================== ;==========================
; man ; man
@ -959,8 +961,8 @@ done_upside_down_flame:
jsr hgr_page_flip jsr hgr_page_flip
lda #5 ; lda #2
jsr wait_ticks ; jsr wait_ticks
;=========================== ;===========================
; peasant ; peasant
@ -1070,7 +1072,7 @@ done_upside_down_flame:
jsr hgr_page_flip jsr hgr_page_flip
lda #5 lda #1
jsr wait_ticks jsr wait_ticks
;======================= ;=======================
@ -1081,7 +1083,7 @@ done_upside_down_flame:
jsr hgr_copy_left jsr hgr_copy_left
jsr draw_twin_flames_tall_1 jsr draw_twin_flames_tall_1
jsr hgr_page_flip jsr hgr_page_flip
lda #5 lda #2
jsr wait_ticks jsr wait_ticks
;======================= ;=======================
@ -1092,7 +1094,7 @@ done_upside_down_flame:
jsr hgr_copy_left jsr hgr_copy_left
jsr draw_twin_flames_tall_2 jsr draw_twin_flames_tall_2
jsr hgr_page_flip jsr hgr_page_flip
lda #5 lda #2
jsr wait_ticks jsr wait_ticks
;======================= ;=======================
@ -1103,7 +1105,7 @@ done_upside_down_flame:
jsr hgr_copy_left jsr hgr_copy_left
jsr draw_twin_flames_tall_1 jsr draw_twin_flames_tall_1
jsr hgr_page_flip jsr hgr_page_flip
lda #5 lda #2
jsr wait_ticks jsr wait_ticks