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

sa: fix some minor bugs, add wait-for-keypress at end

Browse Source
This commit is contained in:
Vince Weaver 2018-06-05 10:07:19 -04:00
parent 0f9f48a508
commit 3a02db54fe
3 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
still_alive/display_lyrics.s
View File

@ -26,8 +26,6 @@ handle_lyrics_ed:
handle_lyrics_loop_ed: handle_lyrics_loop_ed:
; beq done_lyric_ed ; if 0, done lyric
cmp #11 ; check if in range 1-10 cmp #11 ; check if in range 1-10
bcs lyric_home_ed ; if not, skip ahead bcs lyric_home_ed ; if not, skip ahead
@ -40,12 +38,17 @@ lyric_home_ed:
cmp #12 ; check if form feed char cmp #12 ; check if form feed char
bne lyric_char_ed ; if not skip ahead bne lyric_char_ed ; if not skip ahead
sty TEMPY
jsr HOME ; call HOME jsr HOME ; call HOME
ldy TEMPY
jmp lyric_continue_ed ; continue jmp lyric_continue_ed ; continue
lyric_char_ed: lyric_char_ed:
ldy FORTYCOL ; if 40 column, uppercase it
beq just_output_already_ed
; Uppercase it ; Uppercase it
cmp #'a'+$80 cmp #'a'+$80

2
still_alive/lyrics.inc
View File

@ -857,7 +857,7 @@
; 8856 "\iIVIT" ; 8856 "\iIVIT"
.byte $98,$BE, $C9,$D6,$C9,$D4,$00 .byte $98,$BE, $C9,$D6,$C9,$D4,$00
; 8868 "\iY!!\n" ; 8868 "\iY!!\n"
.byte $A4,$BF, $A1,$A1,$8D,$00 .byte $A4,$BF, $D9,$A1,$A1,$8D,$00
; HACK to make sure we don't run off the end waiting for the song to finish ; HACK to make sure we don't run off the end waiting for the song to finish
.byte $A4,$00, $8D,$00 .byte $A4,$00, $8D,$00
.byte $A4,$00, $8D,$00 .byte $A4,$00, $8D,$00

7
still_alive/still_alive.s
View File

@ -57,11 +57,16 @@ only_forty:
jsr still_alive_mb jsr still_alive_mb
jmp reset jmp wait_for_keypress
no_mockingboard: no_mockingboard:
jsr still_alive_ed jsr still_alive_ed
wait_for_keypress:
lda KEYPRESS ; check if keypressed
bpl wait_for_keypress ; if not, loop
reset: reset:
lda $AA6A ; current disk slot, dos 3.3 lda $AA6A ; current disk slot, dos 3.3
ora #$c0 ora #$c0