$F291/62097: Close File
F291: 20 14 F3 JSR $F314 ; Find File
F294: F0 02 BEQ $F298
F296: 18 CLC
F297: 60 RTS
Jump from $F294:
F298: 20 1F F3 JSR $F31F ; Set File values
F29B: 8A TXA
F29C: 48 PHA
F29D: A5 BA LDA $BA ; Current File - First Address (Device number)
F29F: F0 50 BEQ $F2F1
F2A1: C9 03 CMP #$03
F2A3: F0 4C BEQ $F2F1
F2A5: B0 47 BCS $F2EE
F2A7: C9 02 CMP #$02
F2A9: D0 1D BNE $F2C8
F2AB: 68 PLA
F2AC: 20 F2 F2 JSR $F2F2
F2AF: 20 83 F4 JSR $F483 ; Open RS232
F2B2: 20 27 FE JSR $FE27 ; Read / Set Top of Memory
F2B5: A5 F8 LDA $F8 ; RS232 Input Buffer Pointer
F2B7: F0 01 BEQ $F2BA
F2B9: C8 INY
Jump from $F2B7:
F2BA: A5 FA LDA $FA ; RS232 Output Buffer Pointer
F2BC: F0 01 BEQ $F2BF
F2BE: C8 INY
Jump from $F2BC:
F2BF: A9 00 LDA #$00
F2C1: 85 F8 STA $F8 ; RS232 Input Buffer Pointer
F2C3: 85 FA STA $FA ; RS232 Output Buffer Pointer
F2C5: 4C 7D F4 JMP $F47D ; Open RS232
Jump from $F2A9:
F2C8: A5 B9 LDA $B9 ; Current File - Secondary Address
F2CA: 29 0F AND #$0F
F2CC: F0 23 BEQ $F2F1
F2CE: 20 D0 F7 JSR $F7D0 ; Get Buffer Address
F2D1: A9 00 LDA #$00
F2D3: 38 SEC
F2D4: 20 DD F1 JSR $F1DD ; Output One Character
F2D7: 20 64 F8 JSR $F864 ; Initiate Tape Write
F2DA: 90 04 BCC $F2E0
F2DC: 68 PLA
F2DD: A9 00 LDA #$00
F2DF: 60 RTS
Jump from $F2DA:
F2E0: A5 B9 LDA $B9 ; Current File - Secondary Address
F2E2: C9 62 CMP #$62
F2E4: D0 0B BNE $F2F1
F2E6: A9 05 LDA #$05
F2E8: 20 6A F7 JSR $F76A ; Write Tape Header
F2EB: 4C F1 F2 JMP $F2F1
Jump from $F2A5:
F2EE: 20 42 F6 JSR $F642 ; Save to Serial Bus
Jump from $F29F, $F2A3, $F2CC, $F2E4, $F2EB:
F2F1: 68 PLA
Jump from $F2AC:
F2F2: AA TAX
F2F3: C6 98 DEC $98 ; Number of Open Files/Index to File Table
F2F5: E4 98 CPX $98 ; Number of Open Files/Index to File Table
F2F7: F0 14 BEQ $F30D
F2F9: A4 98 LDY $98 ; Number of Open Files/Index to File Table
F2FB: B9 59 02 LDA $0259,Y ; Active logical File numbers
F2FE: 9D 59 02 STA $0259,X ; Active logical File numbers
F301: B9 63 02 LDA $0263,Y ; Active File First Addresses (Device numbers)
F304: 9D 63 02 STA $0263,X ; Active File First Addresses (Device numbers)
F307: B9 6D 02 LDA $026D,Y ; Active File Secondary Addresses
F30A: 9D 6D 02 STA $026D,X ; Active File Secondary Addresses
Jump from $F2F7:
F30D: 18 CLC
F30E: 60 RTS
Previous Page / Next Page