$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