$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