TAPE DUPE
FILE INFORMATION
FILENAME(S): TAPE DUPE
FILE TYPE(S): PRG
FILE SIZE: 1.6K
FIRST SEEN: 2025-10-19 22:48:24
APPEARS ON: 1 disk(s)
FILE HASH
aa14db91fbd10c90778f631f46da046e79a328a655af6fb463303734aa5427af
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| USER 64 | TAPE DUPE | PRG | Radd Maxx | 13 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 26 08 02 00 99 22 20 20 2A 20 20 20 20 20 |..&...." * | 00000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000020: 20 20 20 20 20 2A 00 4B 08 03 00 99 22 20 20 2A | *.K...." *| 00000030: 20 20 20 20 20 20 20 20 54 41 50 45 44 55 50 45 | TAPEDUPE| 00000040: 20 20 20 20 20 20 20 20 20 20 2A 00 70 08 04 00 | *.p...| 00000050: 99 22 20 20 2A 20 20 20 20 20 20 20 20 20 20 20 |." * | 00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A | *| 00000070: 00 95 08 05 00 99 22 20 20 2A 20 57 52 49 54 54 |......" * WRITT| 00000080: 45 4E 20 42 59 20 53 2E 20 45 49 43 48 45 4E 42 |EN BY S. EICHENB| 00000090: 41 55 4D 20 2A 00 BA 08 06 00 99 22 20 20 2A 20 |AUM *......" * | 000000A0: 20 20 20 20 20 20 20 30 33 2F 32 32 2F 37 39 20 | 03/22/79 | 000000B0: 20 20 20 20 20 20 20 20 20 2A 00 DF 08 07 00 99 | *......| 000000C0: 22 20 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 |" * | 000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.| 000000E0: 04 09 08 00 99 22 20 20 2A 2A 2A 2A 2A 2A 2A 2A |....." ********| 000000F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000100: 2A 2A 2A 2A 00 0A 09 09 00 99 00 2E 09 0A 00 99 |****............| 00000110: 22 20 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 |" THIS PROGRAM | 00000120: 57 49 4C 4C 20 50 45 52 46 4F 52 4D 20 41 00 51 |WILL PERFORM A.Q| 00000130: 09 0F 00 99 22 20 20 54 41 50 45 20 53 41 56 45 |...." TAPE SAVE| 00000140: 20 4F 4E 20 43 41 53 53 45 54 54 45 23 31 20 4F | ON CASSETTE#1 O| 00000150: 46 00 75 09 14 00 99 22 20 20 41 4E 59 20 50 52 |F.u...." ANY PR| 00000160: 4F 47 52 41 4D 20 4C 4F 41 44 45 44 20 57 49 54 |OGRAM LOADED WIT| 00000170: 48 20 54 48 45 00 98 09 19 00 99 22 20 20 4C 4F |H THE......" LO| 00000180: 41 44 20 43 4F 4D 4D 41 4E 44 2E 20 59 4F 55 20 |AD COMMAND. YOU | 00000190: 57 49 4C 4C 20 4E 4F 57 00 BB 09 1E 00 99 22 20 |WILL NOW......" | 000001A0: 20 42 45 20 41 42 4C 45 20 54 4F 20 53 41 56 45 | BE ABLE TO SAVE| 000001B0: 20 50 52 45 56 49 4F 55 53 4C 59 00 DF 09 23 00 | PREVIOUSLY...#.| 000001C0: 99 22 20 20 55 4E 44 55 50 4C 49 43 41 54 41 42 |." UNDUPLICATAB| 000001D0: 4C 45 20 50 52 4F 47 52 41 4D 53 20 46 4F 52 00 |LE PROGRAMS FOR.| 000001E0: FF 09 28 00 99 22 20 20 46 4F 52 20 42 41 43 4B |..(.." FOR BACK| 000001F0: 2D 55 50 20 50 52 4F 54 45 43 54 49 4F 4E 2E 00 |-UP PROTECTION..| 00000200: 05 0A 2D 00 8F 00 18 0A 32 00 8F 20 49 4E 53 54 |..-.....2.. INST| 00000210: 52 55 43 54 49 4F 4E 53 00 2B 0A 37 00 8F 20 3D |RUCTIONS.+.7.. =| 00000220: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 4E 0A 3C 00 |===========.N.<.| 00000230: 8F 20 31 2E 20 4C 4F 41 44 20 41 4E 44 20 52 55 |. 1. LOAD AND RU| 00000240: 4E 20 54 48 49 53 20 50 52 4F 47 52 41 4D 00 71 |N THIS PROGRAM.q| 00000250: 0A 41 00 8F 20 32 2E 20 4C 4F 41 44 20 50 52 4F |.A.. 2. LOAD PRO| 00000260: 47 52 41 4D 20 54 4F 20 42 45 20 43 4F 50 49 45 |GRAM TO BE COPIE| 00000270: 44 00 95 0A 46 00 8F 20 33 2E 20 49 4E 53 45 52 |D...F.. 3. INSER| 00000280: 54 20 43 41 53 53 45 54 54 45 20 49 4E 20 44 52 |T CASSETTE IN DR| 00000290: 49 56 45 23 31 00 B3 0A 4B 00 8F 20 34 2E 20 49 |IVE#1...K.. 4. I| 000002A0: 53 53 55 45 20 44 49 52 45 43 54 20 43 4F 4D 4D |SSUE DIRECT COMM| 000002B0: 41 4E 44 00 CC 0A 50 00 8F 20 20 20 20 20 20 20 |AND...P.. | 000002C0: 20 20 20 20 53 59 53 28 38 32 36 29 00 D2 0A 55 | SYS(826)...U| 000002D0: 00 8F 00 D8 0A 5A 00 8F 00 F4 0A 64 00 83 20 31 |.....Z.....d.. 1| 000002E0: 36 39 2C 31 20 20 20 20 20 20 3A 8F 20 4C 44 41 |69,1 :. LDA| 000002F0: 23 20 30 31 00 10 0B 6E 00 83 20 31 33 33 2C 32 |# 01...n.. 133,2| 00000300: 34 31 20 20 20 20 3A 8F 20 53 54 41 20 20 46 31 |41 :. STA F1| 00000310: 00 2E 0B 78 00 83 20 31 37 33 2C 31 32 33 2C 32 |...x.. 173,123,2| 00000320: 20 20 3A 8F 20 4C 44 41 40 20 30 32 37 42 00 4A | :. LDA@ 027B.J| 00000330: 0B 82 00 83 20 31 33 33 2C 32 34 37 20 20 20 20 |.... 133,247 | 00000340: 3A 8F 20 53 54 41 20 20 46 37 00 68 0B 8C 00 83 |:. STA F7.h....| 00000350: 20 31 37 33 2C 31 32 34 2C 32 20 20 3A 8F 20 4C | 173,124,2 :. L| 00000360: 44 41 40 20 30 32 37 43 00 84 0B 96 00 83 20 31 |DA@ 027C...... 1| 00000370: 33 33 2C 32 34 38 20 20 20 20 3A 8F 20 53 54 41 |33,248 :. STA| 00000380: 20 20 46 38 00 A2 0B A0 00 83 20 31 37 33 2C 31 | F8...... 173,1| 00000390: 32 35 2C 32 20 20 3A 8F 20 4C 44 41 40 20 30 32 |25,2 :. LDA@ 02| 000003A0: 37 44 00 BE 0B AA 00 83 20 31 33 33 2C 32 32 39 |7D...... 133,229| 000003B0: 20 20 20 20 3A 8F 20 53 54 41 20 20 45 35 00 DC | :. STA E5..| 000003C0: 0B B4 00 83 20 31 37 33 2C 31 32 36 2C 32 20 20 |.... 173,126,2 | 000003D0: 3A 8F 20 4C 44 41 40 20 30 32 37 45 00 F8 0B BE |:. LDA@ 027E....| 000003E0: 00 83 20 31 33 33 2C 32 33 30 20 20 20 20 3A 8F |.. 133,230 :.| 000003F0: 20 53 54 41 20 20 45 36 00 14 0C C8 00 83 20 31 | STA E6...... 1| 00000400: 36 39 2C 30 20 20 20 20 20 20 3A 8F 20 4C 44 41 |69,0 :. LDA| 00000410: 23 20 30 30 00 2C 0C D2 00 83 20 31 37 30 20 20 |# 00.,.... 170 | 00000420: 20 20 20 20 20 20 3A 8F 20 54 41 58 00 4C 0C DC | :. TAX.L..| 00000430: 00 83 20 31 38 39 2C 31 32 37 2C 32 20 20 3A 8F |.. 189,127,2 :.| 00000440: 20 4C 44 41 40 20 30 32 37 46 2C 58 00 68 0C E6 | LDA@ 027F,X.h..| 00000450: 00 83 20 32 30 31 2C 33 32 20 20 20 20 20 3A 8F |.. 201,32 :.| 00000460: 20 43 4D 50 23 20 32 30 00 84 0C F0 00 83 20 32 | CMP# 20...... 2| 00000470: 34 30 2C 36 20 20 20 20 20 20 3A 8F 20 42 45 51 |40,6 :. BEQ| 00000480: 20 20 30 36 00 A4 0C FA 00 83 20 31 35 37 2C 31 | 06...... 157,1| 00000490: 31 32 2C 33 20 20 3A 8F 20 53 54 41 40 20 30 33 |12,3 :. STA@ 03| 000004A0: 37 30 2C 58 00 BC 0C 04 01 83 20 32 33 32 20 20 |70,X...... 232 | 000004B0: 20 20 20 20 20 20 3A 8F 20 49 4E 58 00 D8 0C 0E | :. INX....| 000004C0: 01 83 20 32 30 38 2C 32 34 33 20 20 20 20 3A 8F |.. 208,243 :.| 000004D0: 20 42 4E 45 20 20 46 33 00 F4 0C 18 01 83 20 31 | BNE F3...... 1| 000004E0: 33 34 2C 32 33 38 20 20 20 20 3A 8F 20 53 54 58 |34,238 :. STX| 000004F0: 20 20 45 45 00 10 0D 22 01 83 20 31 36 39 2C 31 | EE...".. 169,1| 00000500: 31 32 20 20 20 20 3A 8F 20 4C 44 41 23 20 37 30 |12 :. LDA# 70| 00000510: 00 2C 0D 2C 01 83 20 31 33 33 2C 32 34 39 20 20 |.,.,.. 133,249 | 00000520: 20 20 3A 8F 20 53 54 41 20 20 46 39 00 48 0D 36 | :. STA F9.H.6| 00000530: 01 83 20 31 36 39 2C 33 20 20 20 20 20 20 3A 8F |.. 169,3 :.| 00000540: 20 4C 44 41 23 20 30 33 00 64 0D 40 01 83 20 31 | LDA# 03.d.@.. 1| 00000550: 33 33 2C 32 35 30 20 20 20 20 3A 8F 20 53 54 41 |33,250 :. STA| 00000560: 20 20 46 41 00 82 0D 4A 01 83 20 33 32 2C 31 37 | FA...J.. 32,17| 00000570: 37 2C 32 34 36 20 3A 8F 20 4A 53 52 20 20 46 36 |7,246 :. JSR F6| 00000580: 42 31 00 9A 0D 54 01 83 20 39 36 20 20 20 20 20 |B1...T.. 96 | 00000590: 20 20 20 20 3A 8F 20 52 54 53 00 AC 0D 5E 01 81 | :. RTS...^..| 000005A0: 20 49 B2 38 32 36 20 A4 20 38 37 39 00 B4 0D 68 | I.826 . 879...h| 000005B0: 01 87 20 44 00 BE 0D 72 01 97 20 49 2C 44 00 C6 |.. D...r.. I,D..| 000005C0: 0D 7C 01 82 20 49 00 EA 0D 86 01 99 22 20 20 4E |.|.. I......" N| 000005D0: 4F 57 20 4C 4F 41 44 20 54 41 50 45 20 54 4F 20 |OW LOAD TAPE TO | 000005E0: 42 45 20 43 4F 50 49 45 44 22 00 07 0E 90 01 99 |BE COPIED"......| 000005F0: 22 20 20 55 53 49 4E 47 20 54 41 50 45 20 44 52 |" USING TAPE DR| 00000600: 49 56 45 23 31 2E 22 00 2D 0E 9A 01 99 22 20 20 |IVE#1.".-...." | 00000610: 41 46 54 45 52 20 4C 4F 41 44 49 4E 47 2C 49 4E |AFTER LOADING,IN| 00000620: 53 45 52 54 20 41 4E 4F 54 48 45 52 22 00 53 0E |SERT ANOTHER".S.| 00000630: A4 01 99 22 20 20 43 41 53 53 45 54 54 45 20 49 |..." CASSETTE I| 00000640: 4E 20 44 52 49 56 45 23 31 20 41 4E 44 20 47 49 |N DRIVE#1 AND GI| 00000650: 56 45 22 00 69 0E AE 01 99 22 20 20 54 48 45 20 |VE".i...." THE | 00000660: 43 4F 4D 4D 41 4E 44 20 22 00 7F 0E C2 01 99 22 |COMMAND "......"| 00000670: 20 20 20 20 20 20 53 59 53 28 38 32 36 29 22 00 | SYS(826)".| 00000680: 85 0E CC 01 80 00 00 00 24 |........$ |
..&...." * *.K
...." * TAPEDUPE *.P...
." * *......"
* WRITTEN BY S. EICHENBAUM *......" *
03/22/79 *......" *
*......" ********
********************............" THIS
PROGRAM WILL PERFORM A.Q...." TAPE SAVE
ON CASSETTE#1 OF.U...." ANY PROGRAM LO
ADED WITH THE......" LOAD COMMAND. YOU
WILL NOW......" BE ABLE TO SAVE PREVIOU
SLY...#.." UNDUPLICATABLE PROGRAMS FOR.
..(.." FOR BACK-UP PROTECTION....-.....
2.. INSTRUCTIONS.+.7.. ============.N.<.
. 1. LOAD AND RUN THIS PROGRAM.Q.A.. 2.
LOAD PROGRAM TO BE COPIED...F.. 3. INSER
T CASSETTE IN DRIVE#1...K.. 4. ISSUE DIR
ECT COMMAND.L.P.. SYS(826).R.U
...X.Z.....D.. 169,1 :. LDA# 01...N
.. 133,241 :. STA F1...X.. 173,123,2
:. LDA@ 027B.J.... 133,247 :. STA
F7.H.... 173,124,2 :. LDA@ 027C...... 1
33,248 :. STA F8... .. 173,125,2 :.
LDA@ 027D...... 133,229 :. STA E5..
.... 173,126,2 :. LDA@ 027E...... 133,2
30 :. STA E6...H.. 169,0 :. LDA
# 00.,.R.. 170 :. TAX.L.... 189,1
27,2 :. LDA@ 027F,X.H.... 201,32 :.
CMP# 20...... 240,6 :. BEQ 06....
.. 157,112,3 :. STA@ 0370,X...... 232
:. INX.X.... 208,243 :. BNE F3
...... 134,238 :. STX EE...".. 169,1
12 :. LDA# 70.,.,.. 133,249 :. STA
F9.H.6.. 169,3 :. LDA# 03.D.@.. 1
33,250 :. STA FA...J.. 32,177,246 :.
JSR F6B1...T.. 96 :. RTS...^..
I.826 . 879...H.. D...R.. I,D.F.|.. I..
...." NOW LOAD TAPE TO BE COPIED"......
" USING TAPE DRIVE#1.".-...." AFTER LO
ADING,INSERT ANOTHER".S...." CASSETTE I
N DRIVE#1 AND GIVE".I...." THE COMMAND
"..B.." SYS(826)"...L.....$
> CLICK IMAGE PREVIEW FOR FULL MODAL