$F5FA/62970:   Save to Serial Bus

F5FA: A9 61     LDA #$61
F5FC: 85 B9     STA $B9       ; Current File - Secondary Address
F5FE: A4 B7     LDY $B7       ; Number of Characters in Filename
F600: D0 03     BNE $F605
F602: 4C 10 F7  JMP $F710     ; Output I/O Error Messages: 'MISSING FILENAME'

Jump from $F600:

F605: 20 D5 F3  JSR $F3D5     ; Send Secondary Address
F608: 20 8F F6  JSR $F68F     ; Print "SAVING"
F60B: A5 BA     LDA $BA       ; Current File - First Address (Device number)
F60D: 20 0C ED  JSR $ED0C     ; Send LISTEN Command on Serial Bus
F610: A5 B9     LDA $B9       ; Current File - Secondary Address
F612: 20 B9 ED  JSR $EDB9     ; Send LISTEN Secondary Address
F615: A0 00     LDY #$00
F617: 20 8E FB  JSR $FB8E     ; Reset Tape Pointer
F61A: A5 AC     LDA $AC       ; Pointer: Tape Buffer/Screen scrolling
F61C: 20 DD ED  JSR $EDDD     ; Send Serial Deferred
F61F: A5 AD     LDA $AD       ; Pointer: Tape Buffer/Screen scrolling
F621: 20 DD ED  JSR $EDDD     ; Send Serial Deferred

Jump from $F63D:

F624: 20 D1 FC  JSR $FCD1     ; Check Read / Write Pointer
F627: B0 16     BCS $F63F
F629: B1 AC     LDA ($AC),Y   ; Pointer: Tape Buffer/Screen scrolling
F62B: 20 DD ED  JSR $EDDD     ; Send Serial Deferred
F62E: 20 E1 FF  JSR $FFE1     ; Test-Stop Vector
F631: D0 07     BNE $F63A

Jump from $F4FE:

F633: 20 42 F6  JSR $F642
F636: A9 00     LDA #$00
F638: 38        SEC
F639: 60        RTS

Jump from $F631:

F63A: 20 DB FC  JSR $FCDB     ; Bump Read / Write Pointer
F63D: D0 E5     BNE $F624

Jump from $F627:

F63F: 20 FE ED  JSR $EDFE     ; Send UNLISTEN

Jump from $F633, $F2EE, $F52B:

F642: 24 B9     BIT $B9       ; Current File - Secondary Address
F644: 30 11     BMI $F657
F646: A5 BA     LDA $BA       ; Current File - First Address (Device number)
F648: 20 0C ED  JSR $ED0C     ; Send LISTEN Command on Serial Bus
F64B: A5 B9     LDA $B9       ; Current File - Secondary Address
F64D: 29 EF     AND #$EF
F64F: 09 E0     ORA #$E0
F651: 20 B9 ED  JSR $EDB9     ; Send LISTEN Secondary Address

Jump from $F406:

F654: 20 FE ED  JSR $EDFE     ; Send UNLISTEN

Jump from $F644:

F657: 18        CLC
F658: 60        RTS

    Previous Page / Next Page