$F333/62259:   Restore Default I/O

F333: A2 03     LDX #$03
F335: E4 9A     CPX $9A       ; Default Output Device (3)
F337: B0 03     BCS $F33C
F339: 20 FE ED  JSR $EDFE     ; Send UNLISTEN

Jump from $F337:

F33C: E4 99     CPX $99       ; Default Input Device (0)
F33E: B0 03     BCS $F343
F340: 20 EF ED  JSR $EDEF     ; Send UNTALK

Jump from $F33E:

F343: 86 9A     STX $9A       ; Default Output Device (3)
F345: A9 00     LDA #$00
F347: 85 99     STA $99       ; Default Input Device (0)
F349: 60        RTS

    Previous Page / Next Page