$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