$F659/63065: Save to Tape
Jump from $F5F8:
F659: 4A LSR
F65A: B0 03 BCS $F65F
F65C: 4C 13 F7 JMP $F713 ; Output I/O Error Messages: 'ILLEGAL DEVICE NUMBER'
Jump from $F65A:
F65F: 20 D0 F7 JSR $F7D0 ; Get Buffer Address
F662: 90 8D BCC $F5F1 ; Save RAM
F664: 20 38 F8 JSR $F838 ; Print "PRESS RECORD..."
F667: B0 25 BCS $F68E
F669: 20 8F F6 JSR $F68F ; Print "SAVING"
F66C: A2 03 LDX #$03
F66E: A5 B9 LDA $B9 ; Current File - Secondary Address
F670: 29 01 AND #$01
F672: D0 02 BNE $F676
F674: A2 01 LDX #$01
Jump from $F672:
F676: 8A TXA
F677: 20 6A F7 JSR $F76A ; Write Tape Header
F67A: B0 12 BCS $F68E
F67C: 20 67 F8 JSR $F867 ; Initiate Tape Write
F67F: B0 0D BCS $F68E
F681: A5 B9 LDA $B9 ; Current File - Secondary Address
F683: 29 02 AND #$02
F685: F0 06 BEQ $F68D
F687: A9 05 LDA #$05
F689: 20 6A F7 JSR $F76A ; Write Tape Header
F68C: 24 .BYTE $24
Jump from $F685:
F68D: 18 CLC
Jump from $F667, $F67A, $F67F, $F691:
F68E: 60 RTS
Previous Page / Next Page