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

driven: have intro auto-play

Browse Source 
could maybe use some timing work
This commit is contained in:
Vince Weaver 2024-11-12 12:15:03 -05:00
parent 1441f7750d
commit 9bfa4d4036
5 changed files with 16 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
demos/driven/Makefile
View File

@ -106,6 +106,7 @@ qload.inc: generate_common QLOAD
./generate_common -a 0x1200 -s wait_vblank qload.lst >> qload.inc
./generate_common -a 0x1200 -s wait_seconds qload.lst >> qload.inc
./generate_common -a 0x1200 -s wait_for_pattern qload.lst >> qload.inc
./generate_common -a 0x1200 -s wait_ticks qload.lst >> qload.inc
####

3
demos/driven/irq_wait.s
View File

@ -64,6 +64,9 @@ done_check_timeout_done:
; busy wait A * 1 50Hz tick
;==========================
wait_ticks:
; is there a race condition here?
; no, don't think so
sta IRQ_COUNTDOWN
wait_tick_loop:
lda IRQ_COUNTDOWN

5
demos/driven/part00_intro/erase.s
View File

@ -59,7 +59,10 @@ efo_y2_smc:
erase_frame_done:
sty ERASE_OFFSET
jsr wait_until_keypress
lda #5
jsr wait_ticks
; jsr wait_until_keypress
jmp next_box
erase_frame_totally_done:

9
demos/driven/part00_intro/intro.s
View File

@ -45,7 +45,7 @@ load_loop:
; wait a bit
lda #8
lda #4
jsr wait_seconds
;==============================
@ -79,7 +79,10 @@ d_rotate_loop:
jsr hgr_draw_sprite
jsr wait_until_keypress
; jsr wait_until_keypress
lda #5
jsr wait_ticks
inc X_OFFSET
lda X_OFFSET
@ -246,7 +249,7 @@ logo_transit3_inner_loop:
; wait a bit
lda #8
lda #3
jsr wait_seconds

4
demos/driven/start.s
View File

@ -154,7 +154,7 @@ load_program_loop:
.endif
.if 0
.if 1
;=======================
;=======================
; Run intro
@ -176,7 +176,7 @@ load_program_loop:
.if 0
.if 1
;=======================
;=======================
; Run Atrus