$F250/62032:   Set Output Device

F250: 20 0F F3  JSR $F30F     ; Find File
F253: F0 03     BEQ $F258
F255: 4C 01 F7  JMP $F701     ; Output I/O Error Messages: 'FILE NOT OPEN'

Jump from $F253:

F258: 20 1F F3  JSR $F31F     ; Set File values
F25B: A5 BA     LDA $BA       ; Current File - First Address (Device number)
F25D: D0 03     BNE $F262

Jump from $F273:

F25F: 4C 0D F7  JMP $F70D     ; Output I/O Error Messages: 'NOT OUTPUT FILE'

Jump from $F25D:

F262: C9 03     CMP #$03
F264: F0 0F     BEQ $F275
F266: B0 11     BCS $F279
F268: C9 02     CMP #$02
F26A: D0 03     BNE $F26F
F26C: 4C E1 EF  JMP $EFE1     ; Submit to RS232

Jump from $F26A:

F26F: A6 B9     LDX $B9       ; Current File - Secondary Address
F271: E0 60     CPX #$60
F273: F0 EA     BEQ $F25F

Jump from $F264, $F28C:

F275: 85 9A     STA $9A       ; Default Output Device (3)
F277: 18        CLC
F278: 60        RTS

Jump from $F266:

F279: AA        TAX
F27A: 20 0C ED  JSR $ED0C     ; Send LISTEN Command on Serial Bus
F27D: A5 B9     LDA $B9       ; Current File - Secondary Address
F27F: 10 05     BPL $F286
F281: 20 BE ED  JSR $EDBE     ; Clear ATN
F284: D0 03     BNE $F289

Jump from $F27F:

F286: 20 B9 ED  JSR $EDB9     ; Send LISTEN Secondary Address

Jump from $F284:

F289: 8A        TXA
F28A: 24 90     BIT $90       ; Kernal I/O Status Word ST
F28C: 10 E7     BPL $F275
F28E: 4C 07 F7  JMP $F707     ; Output I/O Error Messages: 'DEVICE NOT PRESENT'

    Previous Page / Next Page