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

ds: add message before reading

Browse Source
This commit is contained in:
Vince Weaver 2019-11-05 23:40:29 -05:00
parent a91dd48187
commit 94be8d95e8
2 changed files with 39 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
demosplash/demosplash.s
View File

@ -125,7 +125,11 @@ frame_decode_loop:
; starbase scene
;===========================
jsr starbase
nop
nop
nop
; jsr starbase
;============================
; disable irq music
@ -149,7 +153,7 @@ frame_decode_loop:
nop
nop
nop
; jsr end_book
jsr end_book
;===========================
; credits

38
demosplash/reading.s
View File

@ -18,12 +18,35 @@ end_book:
lda #0
sta DRAW_PAGE
lda #255
sta FRAMEL
;===================
; setup grahics
jsr create_update_type1
;======================
; print message
lda #<read_book_text
sta OUTL
lda #>read_book_text
sta OUTH
jsr move_and_print
jsr move_and_print
lda #200
jsr long_wait
lda #200
jsr long_wait
;=============================
; Load graphic page0
@ -144,14 +167,19 @@ bloop2:
dey ; 2
bne bloop1 ; 2nt/3
dec FRAMEL ; 5
nop ; 2
bne book_loop ; 3
; lda TEMP ; 3
; lda KEYPRESS ; 4
; bpl book_loop ; 3
lda KEYPRESS ; 4
bpl book_no_keypress ; 3
rts ; 6
book_no_keypress:
jmp book_loop ; 3
read_book_text:
.byte 2,11,"QUIET AT LAST",0
.byte 2,12,"FINALLY I CAN READ MY BOOK IN PEACE",0