$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