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

ds: sorta have sound and progression going first 2 screens

Browse Source
This commit is contained in:
Vince Weaver 2019-11-07 22:16:26 -05:00
parent 3a57302641
commit 3a204cba54
2 changed files with 24 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
demosplash/demosplash.s
View File

@ -50,21 +50,15 @@ demosplash2019:
; Setup pages (is this necessary?)
;===========================
lda #0
sta DRAW_PAGE
lda #1
sta DISP_PAGE
; lda #0
; sta DRAW_PAGE
; lda #1
; sta DISP_PAGE
;===========================
; apple II intro
;============================
nop
nop
nop
jsr appleII_intro
@ -72,10 +66,6 @@ demosplash2019:
; missing scene
;===========================
; nop
; nop
; nop
jsr missing_intro
@ -83,7 +73,6 @@ demosplash2019:
; start irq music
;========================
nop
; cli ; enable interrupts
;===========================
@ -208,6 +197,7 @@ wait_until_keypressed:
; Pictures (no need to align)
.include "appleII_40_96.inc"
.include "k_40_48d.inc"
.include "graphics/book_open/book_open.inc"
.include "graphics/starbase/starbase.inc"
.include "graphics/starbase/ship_flames.inc"

37
demosplash/missing.s
View File

@ -144,42 +144,43 @@ missing_display_loop:
; do_nothing should be
; 4550
; -12 jsr/ret to update_type1
; - 7 check keypress
; - 3 jmp loop
; - 8 check keypress
; -1239
;=============
; 4528
; 3291
; blah, current code the tight loops are right at a page boundary
jsr play_frame_compressed ; 6+1233
do_nothing_missing:
; want 4528
; want 3291
; Try X=4 Y=174 cycles=4525 R3
; Try X=163 Y=4 cycles=3285R6
lda TEMP ; nop 3
lda TEMP
lda TEMP
ldy #174 ; 2
gloop1: ldx #4 ; 2
ldy #4 ; 2
gloop1: ldx #163 ; 2
gloop2: dex ; 2
bne gloop2 ; 2nt/3
dey ; 2
bne gloop1 ; 2nt/3
lda KEYPRESS ; 4
bpl missing_no_keypress ; 3
lda FRAME_PLAY_PAGE ; 3
cmp #4 ; 2
bne missing_display_loop ; 3
; lda KEYPRESS ; 4
; bpl missing_no_keypress ; 3
rts
missing_no_keypress:
jmp missing_display_loop ; 3
.align $100
.include "k_40_48d.inc"
;.align $100
;.include "k_40_48d.inc"