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

ds: update open_book

Browse Source
This commit is contained in:
Vince Weaver 2019-11-14 23:06:32 -05:00
parent a8a10bf37c
commit 4aa05bbd77
2 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
demosplash/missing.s
View File

@ -153,7 +153,7 @@ mloopB: dex ; 2
jmp missing_display_loop ; 3
.align $100
;.align $100
;================================================
; Display Loop

14
demosplash/open_book.s
View File

@ -25,7 +25,8 @@ open_book:
lda #>book00_rle
sta GBASH
lda #$4
jsr load_rle_gr
jsr load_rle_gr ; load book to PAGE0
jsr clear_bottom
bit TEXTGR
@ -39,23 +40,28 @@ open_book:
jsr move_and_print
jsr move_and_print
lda #<book00_rle
sta GBASL
lda #>book00_rle
sta GBASH
lda #$8
jsr load_rle_gr ; load book to PAGE1
lda #200
jsr long_wait
lda #200
jsr long_wait
; continue with animation
lda #<open_book_sequence
sta INTRO_LOOPL
lda #>open_book_sequence
sta INTRO_LOOPH
bit FULLGR ; 4
bit PAGE1
jsr run_sequence