$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 |