$F20E/61966: Set Input Device
F20E: 20 0F F3 JSR $F30F ; Find File
F211: F0 03 BEQ $F216
F213: 4C 01 F7 JMP $F701 ; Output I/O Error Messages: 'FILE NOT OPEN'
Jump from $F211:
F216: 20 1F F3 JSR $F31F ; Set File values
F219: A5 BA LDA $BA ; Current File - First Address (Device number)
F21B: F0 16 BEQ $F233
F21D: C9 03 CMP #$03
F21F: F0 12 BEQ $F233
F221: B0 14 BCS $F237
F223: C9 02 CMP #$02
F225: D0 03 BNE $F22A
F227: 4C 4D F0 JMP $F04D ; Input From RS232
Jump from $F225:
F22A: A6 B9 LDX $B9 ; Current File - Secondary Address
F22C: E0 60 CPX #$60
F22E: F0 03 BEQ $F233
F230: 4C 0A F7 JMP $F70A ; Output I/O Error Messages: 'NOT INPUT FILE'
Jump from $F21B, $F21F, $F22E, $F24B:
F233: 85 99 STA $99 ; Default Input Device (0)
F235: 18 CLC
F236: 60 RTS
Jump from $F221:
F237: AA TAX
F238: 20 09 ED JSR $ED09 ; Send TALK Command on Serial Bus
F23B: A5 B9 LDA $B9 ; Current File - Secondary Address
F23D: 10 06 BPL $F245
F23F: 20 CC ED JSR $EDCC ; Wait For Clock
F242: 4C 48 F2 JMP $F248
Jump from $F23D:
F245: 20 C7 ED JSR $EDC7 ; Send TALK Secondary Address
Jump from $F242:
F248: 8A TXA
F249: 24 90 BIT $90 ; Kernal I/O Status Word ST
F24B: 10 E6 BPL $F233
F24D: 4C 07 F7 JMP $F707 ; Output I/O Error Messages: 'DEVICE NOT PRESENT'
Previous Page / Next Page