$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