$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