Quick & Dirty Tape Backup
           For MC-10
        RLS - 72415,1607
      ******  ****  ******
 
  Here's a simple BASIC/ML
program for making backup copies
of your program cassettes
(that's "backup" - not
"freebie").  It quickly copies
BASIC, ML, and/or DATA.
 
HARDWARE:
 
  You will need 2 cassette
recorders (1 to read and 1 to
write).  Be sure that both
recorders are able to
CSAVE/CLOAD correctly with your
system.  Put the original tape
in 1 recorder and connect the
appropriate cable to the EAR or
MONITOR jack.  The copy tape
goes in the second recorder to
which the appropriate cable is
plugged into the MIC jack.
  When you're ready, the
recorder with the original is
put in PLAY and the recorder
with the copy is put in RECORD.
  NOTE: For monitoring purposes,
the program also sends the tape
signal to your TV audio so
adjust the TV volume to a
comfortable level.
 
SOFTWARE:
 
10 CLS
20 PRINT@ 36,"<= TAPE-TO-TAPE COPY =>"
30 PRINT@ 416,"TO EXIT:  PRESS <RESET>"
31 REM THE ML ROUTINE GETS STUFFED INTO THE TOP 24 BYTES OF
32 REM MICKEY'S INPUT BUFFER.
40 FOR KT=0 TO 23
50 READ IT
60 POKE 17177+KT,IT
70 NEXT
80 EXEC 17177
90 DATA 150,3,132,16,39,11,134,1,151
100 DATA 3,134,128,183,191,255,32,239
110 DATA 151,3,183,191,255,32,232
 
The assembly routine follows
for those interested:
 
PRT2  EQU    $03      ;I/O PORT 2
TVOUT EQU    $BFFF    ;AUDIO OUT (AMONG OTHER THINGS)
 
RCAS  LDAA   PRT2     ;READ PORT 2
      ANDA   #$10     ;AND CHECK CASIN BIT
      BEQ    SET0     ;BRANCH IF 0
      LDAA   #$01     ;ELSE, SET CASOUT BIT
      STAA   PRT2
      LDAA   #$80     ;AND SET AUDIO BIT.
      STAA   TVOUT    ;ELEGANT, AIN'T IT?!??
      BRA    RCAS     ;LOOP TIL H.F.O.
 
SET0  STAA   PRT2     ;CLEAR CASOUT
      STAA   TVOUT    ;AND AUDIO BITS
      BRA    RCAS     ;DO IT AGAIN