$F76A/63338: Write Tape Header
Jump from $F2E8, $F3BF, $F677, $F689:
F76A: 85 9E STA $9E ; Tape Error log pass 1
F76C: 20 D0 F7 JSR $F7D0 ; Get Buffer Address
F76F: 90 5E BCC $F7CF
F771: A5 C2 LDA $C2 ; Start Address for LOAD and Cassette Write
F773: 48 PHA
F774: A5 C1 LDA $C1 ; Start Address for LOAD and Cassette Write
F776: 48 PHA
F777: A5 AF LDA $AF ; Tape End Address/End of Program
F779: 48 PHA
F77A: A5 AE LDA $AE ; Tape End Address/End of Program
F77C: 48 PHA
F77D: A0 BF LDY #$BF
F77F: A9 20 LDA #$20
Jump from $F784:
F781: 91 B2 STA ($B2),Y ; Pointer: Start Address of Tape Buffer
F783: 88 DEY
F784: D0 FB BNE $F781
F786: A5 9E LDA $9E ; Tape Error log pass 1
F788: 91 B2 STA ($B2),Y ; Pointer: Start Address of Tape Buffer
F78A: C8 INY
F78B: A5 C1 LDA $C1 ; Start Address for LOAD and Cassette Write
F78D: 91 B2 STA ($B2),Y ; Pointer: Start Address of Tape Buffer
F78F: C8 INY
F790: A5 C2 LDA $C2 ; Start Address for LOAD and Cassette Write
F792: 91 B2 STA ($B2),Y ; Pointer: Start Address of Tape Buffer
F794: C8 INY
F795: A5 AE LDA $AE ; Tape End Address/End of Program
F797: 91 B2 STA ($B2),Y ; Pointer: Start Address of Tape Buffer
F799: C8 INY
F79A: A5 AF LDA $AF ; Tape End Address/End of Program
F79C: 91 B2 STA ($B2),Y ; Pointer: Start Address of Tape Buffer
F79E: C8 INY
F79F: 84 9F STY $9F ; Tape Error log pass 2
F7A1: A0 00 LDY #$00
F7A3: 84 9E STY $9E ; Tape Error log pass 1
Jump from $F7B5:
F7A5: A4 9E LDY $9E ; Tape Error log pass 1
F7A7: C4 B7 CPY $B7 ; Number of Characters in Filename
F7A9: F0 0C BEQ $F7B7
F7AB: B1 BB LDA ($BB),Y ; Pointer: Current File name Address
F7AD: A4 9F LDY $9F ; Tape Error log pass 2
F7AF: 91 B2 STA ($B2),Y ; Pointer: Start Address of Tape Buffer
F7B1: E6 9E INC $9E ; Tape Error log pass 1
F7B3: E6 9F INC $9F ; Tape Error log pass 2
F7B5: D0 EE BNE $F7A5
Jump from $F7A9:
F7B7: 20 D7 F7 JSR $F7D7 ; Set Buffer Stat / End Pointers
F7BA: A9 69 LDA #$69
F7BC: 85 AB STA $AB ; RS232 Input parity/Tape temporary
F7BE: 20 6B F8 JSR $F86B ; Initiate Tape Write
F7C1: A8 TAY
F7C2: 68 PLA
F7C3: 85 AE STA $AE ; Tape End Address/End of Program
F7C5: 68 PLA
F7C6: 85 AF STA $AF ; Tape End Address/End of Program
F7C8: 68 PLA
F7C9: 85 C1 STA $C1 ; Start Address for LOAD and Cassette Write
F7CB: 68 PLA
F7CC: 85 C2 STA $C2 ; Start Address for LOAD and Cassette Write
F7CE: 98 TYA
Jump from $F76F:
F7CF: 60 RTS
Previous Page / Next Page