UNIT TO UNIT
FILE INFORMATION
FILENAME(S): UNIT TO UNIT
FILE TYPE(S): PRG
FILE SIZE: 2.1K
FIRST SEEN: 2025-11-30 21:23:21
APPEARS ON: 1 disk(s)
FILE HASH
84d01f957d71cc2ef3e772b8e235017f77d1719f66b8b73be78ec812340ffe49
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 10 2 | UNIT TO UNIT | PRG | DuncanTwain | 29 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 29 04 01 00 89 31 35 3A 8F 20 43 4F 50 59 |..)....15:. COPY| 00000010: 20 55 4E 49 54 20 54 4F 20 55 4E 49 54 20 46 4F | UNIT TO UNIT FO| 00000020: 52 20 33 32 4B 20 50 45 54 00 44 04 02 00 A1 23 |R 32K PET.D....#| 00000030: 44 52 2C 41 24 3A 8B 41 24 B2 22 22 A7 41 24 B2 |DR,A$:.A$."".A$.| 00000040: C7 28 30 29 00 52 04 03 00 41 B2 C6 28 41 24 29 |.(0).R...A..(A$)| 00000050: 3A 8E 00 84 04 0F 00 97 31 31 AC 32 35 36 AA 34 |:.......11.256.4| 00000060: 2C 33 32 3A 97 31 31 AC 32 35 36 AA 35 2C 31 31 |,32:.11.256.5,11| 00000070: 32 3A 8F 20 53 45 54 20 4C 4F 57 4C 49 4D 2C 48 |2:. SET LOWLIM,H| 00000080: 49 4C 49 4D 00 9B 04 13 00 8F 20 50 4F 4B 45 20 |ILIM...... POKE | 00000090: 44 4F 57 4E 20 4D 45 4D 54 4F 50 00 B8 04 14 00 |DOWN MEMTOP.....| 000000A0: 97 33 AC 31 36 AA 34 2C 32 35 35 3A 97 33 AC 31 |.3.16.4,255:.3.1| 000000B0: 36 AA 35 2C 33 31 3A 9C 00 D0 04 1E 00 86 20 46 |6.5,31:....... F| 000000C0: 4C 24 28 31 35 32 29 2C 54 59 24 28 31 35 32 29 |L$(152),TY$(152)| 000000D0: 00 ED 04 F2 03 53 46 B2 32 3A 44 46 B2 33 3A 44 |.....SF.2:DF.3:D| 000000E0: 52 B2 34 3A 56 52 B2 31 31 AC 32 35 36 00 07 05 |R.4:VR.11.256...| 000000F0: 06 04 8F 20 47 45 54 20 53 52 43 2C 44 53 54 20 |... GET SRC,DST | 00000100: 55 4E 49 54 20 23 53 00 34 05 0B 04 99 22 93 11 |UNIT #S.4...."..| 00000110: 11 12 55 4E 49 54 20 54 4F 20 55 4E 49 54 20 43 |..UNIT TO UNIT C| 00000120: 4F 50 59 20 56 31 2E 31 20 37 2F 31 2F 38 30 22 |OPY V1.1 7/1/80"| 00000130: 3A 99 3A 99 00 53 05 10 04 85 22 20 43 4F 50 59 |:.:..S...." COPY| 00000140: 20 46 52 4F 4D 20 55 4E 49 54 20 23 20 20 20 22 | FROM UNIT # "| 00000150: 3B 53 55 00 71 05 15 04 97 20 56 52 2C 53 55 3A |;SU.q.... VR,SU:| 00000160: 97 56 52 AA 31 2C 53 46 3A 97 56 52 AA 33 2C 44 |.VR.1,SF:.VR.3,D| 00000170: 46 00 90 05 1A 04 85 22 20 54 4F 20 55 4E 49 54 |F......" TO UNIT| 00000180: 20 23 20 20 20 20 20 20 20 20 20 20 22 3B 44 55 | # ";DU| 00000190: 00 9E 05 1F 04 97 20 56 52 AA 32 2C 44 55 00 BE |...... VR.2,DU..| 000001A0: 05 24 04 85 22 20 46 49 4C 45 20 4E 41 4D 45 20 |.$.." FILE NAME | 000001B0: 54 4F 20 43 4F 50 59 20 20 22 3B 43 46 24 00 DE |TO COPY ";CF$..| 000001C0: 05 2E 04 85 22 20 53 4F 55 52 43 45 20 44 52 49 |...." SOURCE DRI| 000001D0: 56 45 20 23 20 20 20 20 20 22 3B 53 44 24 00 FE |VE # ";SD$..| 000001E0: 05 38 04 85 22 20 44 45 53 54 49 4E 41 54 49 4F |.8.." DESTINATIO| 000001F0: 4E 20 44 52 49 56 45 20 23 22 3B 44 44 24 00 16 |N DRIVE #";DD$..| 00000200: 06 3A 04 9F 31 2C 44 55 2C 31 35 2C 22 49 22 AA |.:..1,DU,15,"I".| 00000210: 44 44 24 3A A0 31 00 2E 06 3C 04 9F 31 2C 53 55 |DD$:.1...<..1,SU| 00000220: 2C 31 35 2C 22 49 22 AA 53 44 24 3A A0 31 00 4A |,15,"I".SD$:.1.J| 00000230: 06 42 04 8F 20 4F 50 45 4E 20 53 4F 55 52 43 45 |.B.. OPEN SOURCE| 00000240: 20 44 49 52 45 43 54 4F 52 59 00 61 06 4C 04 46 | DIRECTORY.a.L.F| 00000250: 24 B2 22 24 22 AA 53 44 24 AA 22 3A 22 AA 43 46 |$."$".SD$.":".CF| 00000260: 24 00 72 06 56 04 9F 20 44 52 2C 53 55 2C 30 2C |$.r.V.. DR,SU,0,| 00000270: 46 24 00 98 06 60 04 A1 23 44 52 2C 41 24 3A A1 |F$...`..#DR,A$:.| 00000280: 23 44 52 2C 41 24 3A 8F 20 44 49 53 43 41 52 44 |#DR,A$:. DISCARD| 00000290: 20 41 44 44 52 45 53 53 00 B2 06 6A 04 8D 35 30 | ADDRESS...j..50| 000002A0: 30 30 20 3A 8F 20 47 45 54 20 44 49 53 4B 4E 41 |00 :. GET DISKNA| 000002B0: 4D 45 00 CC 06 74 04 8D 35 30 30 30 20 3A 8F 20 |ME...t..5000 :. | 000002C0: 47 45 54 20 46 49 4C 45 4E 41 4D 45 00 DE 06 7E |GET FILENAME...~| 000002D0: 04 8B 20 45 44 B3 B1 30 20 A7 32 30 30 30 00 02 |.. ED..0 .2000..| 000002E0: 07 88 04 4E 4E B2 4E 4E AA 31 3A 46 4C 24 28 4E |...NN.NN.1:FL$(N| 000002F0: 4E 29 B2 53 53 24 3A 54 59 24 28 4E 4E 29 B2 54 |N).SS$:TY$(NN).T| 00000300: 59 24 00 35 07 8D 04 99 22 20 20 20 20 20 20 20 |Y$.5...." | 00000310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A | ":| 00000330: 99 22 91 22 3B 00 46 07 92 04 99 22 46 49 4C 45 |.".";.F...."FILE| 00000340: 3A 20 22 53 53 24 00 50 07 97 04 99 22 91 22 3B |: "SS$.P....".";| 00000350: 00 5B 07 9C 04 89 20 31 31 34 30 00 8E 07 D0 07 |.[.... 1140.....| 00000360: 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." | 00000370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000380: 20 20 20 20 20 20 20 22 3A 99 22 91 22 3B 00 A6 | ":.".";..| 00000390: 07 D5 07 99 22 45 4E 44 20 4F 46 20 44 49 52 45 |...."END OF DIRE| 000003A0: 43 54 4F 52 59 22 00 B3 07 DA 07 81 20 49 B2 31 |CTORY"...... I.1| 000003B0: A4 4E 4E 00 CD 07 E4 07 53 53 24 B2 46 4C 24 28 |.NN.....SS$.FL$(| 000003C0: 49 29 3A 54 59 24 B2 54 59 24 28 49 29 00 00 08 |I):TY$.TY$(I)...| 000003D0: E9 07 99 22 20 20 20 20 20 20 20 20 20 20 20 20 |..." | 000003E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000003F0: 20 20 20 20 20 20 20 20 20 22 3A 99 22 91 22 3B | ":.".";| 00000400: 00 25 08 34 08 99 22 43 4F 50 59 20 46 49 4C 45 |.%.4.."COPY FILE| 00000410: 3A 20 22 53 53 24 A3 33 30 29 22 54 59 50 45 3A |: "SS$.30)"TYPE:| 00000420: 20 22 54 59 24 00 2F 08 39 08 99 22 91 22 3B 00 | "TY$./.9..".";.| 00000430: 64 08 3E 08 8B 20 54 59 24 B2 22 52 22 20 A7 20 |d.>.. TY$."R" . | 00000440: 99 20 22 2A 2A 2A 20 43 41 4E 20 4E 4F 54 20 43 |. "*** CAN NOT C| 00000450: 4F 50 59 20 52 45 4C 20 46 49 4C 45 53 22 3A 89 |OPY REL FILES":.| 00000460: 32 32 30 30 00 7F 08 48 08 46 24 B2 53 44 24 AA |2200...H.F$.SD$.| 00000470: 22 3A 22 AA 53 53 24 AA 22 2C 22 AA 54 59 24 00 |":".SS$.",".TY$.| 00000480: 90 08 52 08 9F 53 46 2C 53 55 2C 53 46 2C 46 24 |..R..SF,SU,SF,F$| 00000490: 00 B0 08 5C 08 46 24 B2 44 44 24 AA 22 3A 22 AA |...\.F$.DD$.":".| 000004A0: 53 53 24 AA 22 2C 22 AA 54 59 24 AA 22 2C 57 22 |SS$.",".TY$.",W"| 000004B0: 00 C1 08 66 08 9F 44 46 2C 44 55 2C 44 46 2C 46 |...f..DF,DU,DF,F| 000004C0: 24 00 CB 08 7A 08 9E 32 38 33 31 00 0D 09 84 08 |$...z..2831.....| 000004D0: 8B 20 53 54 B3 B1 30 20 AF 20 53 54 B3 B1 36 34 |. ST..0 . ST..64| 000004E0: 20 A7 99 3A 99 20 22 2A 2A 2A 20 43 4F 50 59 20 | ..:. "*** COPY | 000004F0: 46 49 4C 45 20 45 52 52 4F 52 20 2A 2A 2A 20 20 |FILE ERROR *** | 00000500: 20 20 20 20 20 20 20 20 20 20 22 53 54 00 1A 09 | "ST...| 00000510: 8E 08 A0 20 44 46 3A A0 53 46 00 56 09 98 08 82 |... DF:.SF.V....| 00000520: 20 49 3A A0 20 44 52 3A 99 20 22 2A 2A 2A 20 45 | I:. DR:. "*** E| 00000530: 4E 44 20 4F 46 20 43 4F 50 59 20 2A 2A 2A 20 20 |ND OF COPY *** | 00000540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000550: 20 20 20 20 20 22 00 78 09 9D 08 85 22 11 11 4D | ".x...."..M| 00000560: 4F 52 45 20 28 59 2F 4E 29 22 3B 59 24 3A 8B 59 |ORE (Y/N)";Y$:.Y| 00000570: 24 B2 22 59 22 A7 32 30 00 94 09 AC 08 97 33 AC |$."Y".20......3.| 00000580: 31 36 AA 34 2C 30 3A 97 33 AC 31 36 AA 35 2C 31 |16.4,0:.3.16.5,1| 00000590: 32 38 3A A2 00 B1 09 88 13 8F 20 47 45 54 20 46 |28:....... GET F| 000005A0: 49 4C 45 4E 41 4D 45 20 46 52 4F 4D 20 4C 49 4E |ILENAME FROM LIN| 000005B0: 45 00 C6 09 A6 13 8D 32 20 3A 8F 20 53 4B 49 50 |E......2 :. SKIP| 000005C0: 20 4C 49 4E 4B 53 00 CD 09 B0 13 8D 32 00 E3 09 | LINKS......2...| 000005D0: CE 13 8D 32 20 3A 8F 20 53 4B 49 50 20 4C 49 4E |...2 :. SKIP LIN| 000005E0: 45 20 23 00 EA 09 D8 13 8D 32 00 01 0A E2 13 8F |E #......2......| 000005F0: 20 46 49 4E 44 20 46 49 52 53 54 20 51 55 4F 54 | FIND FIRST QUOT| 00000600: 45 00 08 0A EC 13 8D 32 00 1B 0A F1 13 8B 20 41 |E......2...... A| 00000610: B2 30 20 A7 20 45 44 B2 31 3A 8E 00 2E 0A F6 13 |.0 . ED.1:......| 00000620: 8B 20 41 B3 B1 33 34 20 A7 20 35 31 30 30 00 42 |. A..34 . 5100.B| 00000630: 0A 00 14 8F 20 47 45 54 20 46 49 4C 45 20 4E 41 |.... GET FILE NA| 00000640: 4D 45 00 4D 0A 05 14 53 53 24 B2 22 22 00 54 0A |ME.M...SS$."".T.| 00000650: 0A 14 8D 32 00 73 0A 14 14 8B 20 41 B3 B1 33 34 |...2.s.... A..34| 00000660: 20 A7 20 53 53 24 B2 53 53 24 AA 41 24 3A 89 35 | . SS$.SS$.A$:.5| 00000670: 31 33 30 00 88 0A 16 14 8F 20 46 49 4E 44 20 46 |130...... FIND F| 00000680: 49 4C 45 20 54 59 50 45 00 9C 0A 17 14 8D 32 3A |ILE TYPE......2:| 00000690: 8B 20 41 B2 33 32 20 A7 35 31 34 33 00 A7 0A 18 |. A.32 .5143....| 000006A0: 14 54 59 24 B2 41 24 00 B9 0A 1E 14 8F 20 52 45 |.TY$.A$...... RE| 000006B0: 41 44 20 54 4F 20 45 4E 44 00 C0 0A 28 14 8D 32 |AD TO END...(..2| 000006C0: 00 D2 0A 32 14 8B 20 41 B3 B1 30 20 A7 20 35 31 |...2.. A..0 . 51| 000006D0: 36 30 00 D8 0A 3C 14 8E 00 00 00 41 B3 B1 30 20 |60...<.....A..0 | 000006E0: A7 20 35 31 36 30 00 DB 0A 3C 14 8E 00 00 00 AA |. 5160...<......| 000006F0: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................| 00000700: AA 08 02 08 03 20 70 01 01 60 01 60 02 F0 0F A9 |..... p..`.`....| 00000710: 20 AA 0B 20 BE 0B A5 96 F0 01 60 85 C6 8D 00 80 | .. ......`.....| 00000720: 8D 02 80 A5 C0 09 40 85 D4 20 F7 0B A5 C1 09 60 |......@.. .....`| 00000730: 85 D3 20 FD 0B A9 00 85 C7 A5 C4 85 C8 20 00 0C |.. .......... ..| 00000740: A0 00 91 C7 EE 00 80 A5 96 F0 06 C9 40 D0 14 E6 |............@...| 00000750: C6 E6 C7 D0 02 E6 C8 A5 C6 D0 0B A5 C8 C5 C5 90 |................| 00000760: DC B0 03 4C AA 0B A5 C2 09 20 85 D4 A5 C3 09 60 |...L..... .....`| 00000770: 85 D3 20 FA 0B A5 D3 20 F4 0B A9 00 85 C9 A5 C4 |.. .... ........| 00000780: 85 CA A0 00 B1 C9 EE 02 80 20 EE 0B A5 96 29 03 |......... ....).| 00000790: D0 D1 E6 C9 D0 02 E6 CA A5 CA C5 C8 D0 E4 A5 C9 |................| 000007A0: C5 C7 D0 DE A5 C6 D0 03 4C 22 0B A0 0F B9 C0 00 |........L"......| 000007B0: 48 B9 00 0B 99 C0 00 68 99 00 0B 88 10 EF 60 A9 |H......h......`.| 000007C0: 00 85 96 A2 03 BD FC FF DD 03 0C D0 04 CA 10 F5 |................| 000007D0: 60 A2 03 BD FC FF DD 07 0C D0 0F CA 10 F5 A2 14 |`...............| 000007E0: BD 0B 0C 9D EE 0B CA 10 F7 60 A9 FF 85 96 60 4C |.........`....`L| 000007F0: 9E F1 4C B9 F1 4C 43 F1 4C D2 F0 4C D5 F0 4C 93 |..L..LC.L..L..L.| 00000800: F1 4C C0 F1 16 FD 42 E4 D1 FC 1B E6 4C 6F F1 4C |.L....B.....Lo.L| 00000810: 83 F1 4C 28 F1 4C B6 F0 4C BA F0 4C 64 F1 4C 8C |..L(.L..L..Ld.L.| 00000820: F1 AD AC 02 0D AD 02 F0 02 A0 00 98 4D B5 03 D0 |............M...| 00000830: 15 20 60 0C C9 0D D0 F9 20 60 0C C9 3E D0 F2 20 |. `..... `..>.. | 00000840: 60 0C C9 0D D0 F9 4C 9C 0F AD A6 02 D0 03 A9 0B |`.....L.........| 00000850: 2C A9 01 2C A9 07 2C A9 0D AE AA 02 A0 00 4C 99 |,..,..,.......L.| 00000860: 0F 20 F3 1E C9 00 F0 01 60 4C 01 0B A0 00 8C 9D |. ......`L......| 00000870: 02 8C B0 02 8C 9E 02 AD 93 02 C9 14 D0 10 A0 00 |................| 00000880: 00 |. |
..)....15:. COPY UNIT TO UNIT FOR 32K PE
T.D....#DR,A$:.A$."".A$.G(0).R...A.F(A$)
:.......11.256.4,32:.11.256.5,112:. SET
LOWLIM,HILIM...... POKE DOWN MEMTOP.....
.3.16.4,255:.3.16.5,31:..P.... FL$(152),
TY$(152).....SF.2:DF.3:DR.4:VR.11.256...
... GET SRC,DST UNIT #S.4...."....UNIT T
O UNIT COPY V1.1 7/1/80":.:..S...." COPY
FROM UNIT # ";SU.Q.... VR,SU:.VR.1,SF
:.VR.3,DF......" TO UNIT # ";DU
...... VR.2,DU...$.." FILE NAME TO COPY
";CF$......" SOURCE DRIVE # ";SD$..
.8.." DESTINATION DRIVE #";DD$...:..1,DU
,15,"I".DD$: 1...<..1,SU,15,"I".SD$: 1.J
.B.. OPEN SOURCE DIRECTORY.A.L.F$."$".SD
$.":".CF$.R.V.. DR,SU,0,F$...`..#DR,A$:.
#DR,A$:. DISCARD ADDRESS...J..5000 :. GE
T DISKNAME.L.T..5000 :. GET FILENAME...~
.. ED..0 .2000.....NN.NN.1:FL$(NN).SS$:T
Y$(NN).TY$.5...."
":.".";.F...."FILE: "SS$.P
....".";.[.... 1140...P.."
":.".";...U.."END
OF DIRECTORY"...Z.. I.1.NN.M...SS$.FL$(
I):TY$.TY$(I)......"
":.".";.%.4.."COPY FILE
: "SS$.30)"TYPE: "TY$./.9..".";.D.>.. TY
$."R" . . "*** CAN NOT COPY REL FILES":.
2200..H.F$.SD$.":".SS$.",".TY$...R..SF,
SU,SF,F$...\.F$.DD$.":".SS$.",".TY$.",W"
.A.F..DF,DU,DF,F$.K.Z..2831...... ST..0
. ST..64 ..:. "*** COPY FILE ERROR ***
"ST..... DF: SF.V.... I: DR:
. "*** END OF COPY ***
".X...."..MORE (Y/N)";Y$:.Y$."Y".20
......3.16.4,0:.3.16.5,128:....... GET F
ILENAME FROM LINE.F....2 :. SKIP LINKS.M
....2...N..2 :. SKIP LINE #...X..2......
FIND FIRST QUOTE......2...... A.0 . ED.
1:....... A..34 . 5100.B.... GET FILE NA
ME.M...SS$."".T....2.S.... A..34 . SS$.S
S$.A$:.5130...... FIND FILE TYPE......2:
. A.32 .5143.....TY$.A$...... READ TO EN
D...(..2.R.2.. A..0 . 5160.X.<.....A..0
. 5160...<........................... P.
.`.`.... .. ......`.F.........@.T ...A.`
.S .....G.D.H .. ..G.......I@P..F.GP..H.
FP..HEE....L...B. .T.C.`.S ...S .....I.D
.J ..I... ....).PQ.IP..J.JEHP..IEGP..FP.
L". ....H......H......`............P.J..
`........P.J..........J..`....`L..L..LC.
LR.LU.L..L....B.Q...LO.L..L(.L..L..LD.L.
......... ..M..P. `.I.P. `.I>P. `.I.P.L.
....P...,..,..,..... .L.. ..I...`L.. ...
..........I.P. ..
> CLICK IMAGE PREVIEW FOR FULL MODAL