$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