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

View File

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