$F4B8/62648:   Load File From Serial Bus

F4B8: A4 B7     LDY $B7       ; Number of Characters in Filename
F4BA: D0 03     BNE $F4BF
F4BC: 4C 10 F7  JMP $F710     ; Output I/O Error Messages: 'MISSING FILENAME'

Jump from $F4BA:

F4BF: A6 B9     LDX $B9       ; Current File - Secondary Address
F4C1: 20 AF F5  JSR $F5AF     ; Print "SEARCHING"
F4C4: A9 60     LDA #$60
F4C6: 85 B9     STA $B9       ; Current File - Secondary Address
F4C8: 20 D5 F3  JSR $F3D5     ; Send Secondary Address
F4CB: A5 BA     LDA $BA       ; Current File - First Address (Device number)
F4CD: 20 09 ED  JSR $ED09     ; Send TALK Command on Serial Bus
F4D0: A5 B9     LDA $B9       ; Current File - Secondary Address
F4D2: 20 C7 ED  JSR $EDC7     ; Send TALK Secondary Address
F4D5: 20 13 EE  JSR $EE13     ; Receive From Serial Bus
F4D8: 85 AE     STA $AE       ; Tape End Address/End of Program
F4DA: A5 90     LDA $90       ; Kernal I/O Status Word ST
F4DC: 4A        LSR
F4DD: 4A        LSR
F4DE: B0 50     BCS $F530
F4E0: 20 13 EE  JSR $EE13     ; Receive From Serial Bus
F4E3: 85 AF     STA $AF       ; Tape End Address/End of Program
F4E5: 8A        TXA
F4E6: D0 08     BNE $F4F0
F4E8: A5 C3     LDA $C3       ; Pointer: Type 3 Tape LOAD and general use
F4EA: 85 AE     STA $AE       ; Tape End Address/End of Program
F4EC: A5 C4     LDA $C4       ; Pointer: Type 3 Tape LOAD and general use
F4EE: 85 AF     STA $AF       ; Tape End Address/End of Program

Jump from $F4E6:

F4F0: 20 D2 F5  JSR $F5D2     ; Print "LOADING / VERIFYING"

Jump from $F509, $F526:

F4F3: A9 FD     LDA #$FD
F4F5: 25 90     AND $90       ; Kernal I/O Status Word ST
F4F7: 85 90     STA $90       ; Kernal I/O Status Word ST
F4F9: 20 E1 FF  JSR $FFE1     ; Test-Stop Vector
F4FC: D0 03     BNE $F501
F4FE: 4C 33 F6  JMP $F633     ; Save to Serial Bus

Jump from $F4FC:

F501: 20 13 EE  JSR $EE13     ; Receive From Serial Bus
F504: AA        TAX
F505: A5 90     LDA $90       ; Kernal I/O Status Word ST
F507: 4A        LSR
F508: 4A        LSR
F509: B0 E8     BCS $F4F3
F50B: 8A        TXA
F50C: A4 93     LDY $93       ; Flag: 0 = Load, 1 = Verify
F50E: F0 0C     BEQ $F51C
F510: A0 00     LDY #$00
F512: D1 AE     CMP ($AE),Y   ; Tape End Address/End of Program
F514: F0 08     BEQ $F51E
F516: A9 10     LDA #$10
F518: 20 1C FE  JSR $FE1C     ; Control OS Messages
F51B: 2C        .BYTE $2C

Jump from $F50E:

F51C: 91 AE     STA ($AE),Y   ; Tape End Address/End of Program

Jump from $F514:

F51E: E6 AE     INC $AE       ; Tape End Address/End of Program
F520: D0 02     BNE $F524
F522: E6 AF     INC $AF       ; Tape End Address/End of Program

Jump from $F520:

F524: 24 90     BIT $90       ; Kernal I/O Status Word ST
F526: 50 CB     BVC $F4F3
F528: 20 EF ED  JSR $EDEF     ; Send UNTALK
F52B: 20 42 F6  JSR $F642     ; Save to Serial Bus
F52E: 90 79     BCC $F5A9     ; Load File From Tape

Jump from $F4DE, $F554, $F55B:

F530: 4C 04 F7  JMP $F704     ; Output I/O Error Messages: 'FILE NOT FOUND'

    Previous Page / Next Page