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:
|
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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user