Restore SSC flags after detection. Fixes #8

This commit is contained in:
Joshua Bell 2019-09-28 09:41:16 -07:00
parent 3c9c491bae
commit 06cbcd4fa9
1 changed files with 9 additions and 4 deletions

View File

@ -215,13 +215,11 @@ digit: cmp #HI('0') ; < '0' ?
bcc :-
cricket_found:
jsr restore_cmd_ctl
jmp install_driver
cricket_not_found:
lda saved_control
sta CONTROL
lda saved_command
sta COMMAND
jsr restore_cmd_ctl
;; fall through...
not_found:
@ -231,6 +229,13 @@ not_found:
HIASCIIZ CR, CR, CR, PRODUCT, " - Not Found."
jmp launch_next_sys_file
restore_cmd_ctl:
lda saved_control
sta CONTROL
lda saved_command
sta COMMAND
rts
saved_command: .byte 0
saved_control: .byte 0
.endproc