Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-01-16 11:30:55 +00:00
Code Issues Projects Releases Wiki Activity

ds: oh so close

Browse Source
This commit is contained in:
Vince Weaver 2019-11-08 20:07:02 -05:00
parent 106ed631f8
commit a8e02ec815
3 changed files with 37 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
demosplash/credits.s
View File

@ -16,6 +16,8 @@ credits:
sta FRAME_PLAY_PAGE sta FRAME_PLAY_PAGE
jsr update_pt3_play jsr update_pt3_play
jsr pt3_write_lc_4
lda #<credits_text lda #<credits_text
sta CREDITS_POINTERL sta CREDITS_POINTERL
lda #>credits_text lda #>credits_text

27
demosplash/demosplash.s
View File

@ -53,37 +53,54 @@ demosplash2019:
; apple II intro ; apple II intro
;============================ ;============================
; nop
; nop
; nop
jsr appleII_intro jsr appleII_intro
;=========================== ;===========================
; missing scene ; missing scene
;=========================== ;===========================
jsr missing_intro nop
nop
nop
; jsr missing_intro
;======================== ;========================
; start irq music ; start irq music
;======================== ;========================
cli ; enable interrupts nop
; cli ; enable interrupts
;=========================== ;===========================
; opening book scene ; opening book scene
;============================ ;============================
jsr open_book nop
nop
nop
; jsr open_book
;=========================== ;===========================
; starbase scene ; starbase scene
;=========================== ;===========================
jsr starbase nop
nop
nop
; jsr starbase
;============================ ;============================
; disable irq music ; disable irq music
sei nop
; sei
;=========================== ;===========================

20
demosplash/reading.s
View File

@ -7,7 +7,8 @@
end_book: end_book:
cli cli
;=================== ;===================
; init screen ; init screen
@ -48,7 +49,7 @@ cli
lda #200 lda #200
jsr long_wait jsr long_wait
sei sei
lda #0 lda #0
sta FRAME_PLAY_OFFSET sta FRAME_PLAY_OFFSET
@ -57,8 +58,8 @@ sei
sta FRAME_PAGE sta FRAME_PAGE
jsr update_pt3_play jsr update_pt3_play
; setup 4 frames ; setup 1 frame
jsr pt3_write_lc_4 jsr pt3_write_lc_1
;============================= ;=============================
@ -181,9 +182,14 @@ bloop2:
dey ; 2 dey ; 2
bne bloop1 ; 2nt/3 bne bloop1 ; 2nt/3
dec FRAMEL ; 5 lda FRAME_PLAY_PAGE ; 3
nop ; 2 nop
bne book_loop ; 3 nop
beq book_loop ; 3
; dec FRAMEL ; 5
; nop ; 2
; bne book_loop ; 3
; lda TEMP ; 3 ; lda TEMP ; 3
; lda KEYPRESS ; 4 ; lda KEYPRESS ; 4