mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-08-28 12:29:35 +00:00
sa: fix some minor bugs, add wait-for-keypress at end
This commit is contained in:
parent
0f9f48a508
commit
3a02db54fe
@ -26,8 +26,6 @@ handle_lyrics_ed:
|
||||
|
||||
handle_lyrics_loop_ed:
|
||||
|
||||
; beq done_lyric_ed ; if 0, done lyric
|
||||
|
||||
cmp #11 ; check if in range 1-10
|
||||
bcs lyric_home_ed ; if not, skip ahead
|
||||
|
||||
@ -40,12 +38,17 @@ lyric_home_ed:
|
||||
cmp #12 ; check if form feed char
|
||||
bne lyric_char_ed ; if not skip ahead
|
||||
|
||||
sty TEMPY
|
||||
jsr HOME ; call HOME
|
||||
ldy TEMPY
|
||||
|
||||
jmp lyric_continue_ed ; continue
|
||||
|
||||
lyric_char_ed:
|
||||
|
||||
ldy FORTYCOL ; if 40 column, uppercase it
|
||||
beq just_output_already_ed
|
||||
|
||||
; Uppercase it
|
||||
|
||||
cmp #'a'+$80
|
||||
|
@ -857,7 +857,7 @@
|
||||
; 8856 "\iIVIT"
|
||||
.byte $98,$BE, $C9,$D6,$C9,$D4,$00
|
||||
; 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
|
||||
.byte $A4,$00, $8D,$00
|
||||
.byte $A4,$00, $8D,$00
|
||||
|
@ -57,11 +57,16 @@ only_forty:
|
||||
|
||||
jsr still_alive_mb
|
||||
|
||||
jmp reset
|
||||
jmp wait_for_keypress
|
||||
|
||||
no_mockingboard:
|
||||
jsr still_alive_ed
|
||||
|
||||
wait_for_keypress:
|
||||
lda KEYPRESS ; check if keypressed
|
||||
bpl wait_for_keypress ; if not, loop
|
||||
|
||||
|
||||
reset:
|
||||
lda $AA6A ; current disk slot, dos 3.3
|
||||
ora #$c0
|
||||
|
Loading…
Reference in New Issue
Block a user