_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

DUPLICATE T&S

FILE INFORMATION

FILENAME(S): DUPLICATE T&S

FILE TYPE(S): PRG

FILE SIZE: 1.3K

FIRST SEEN: 2025-11-30 21:23:31

APPEARS ON: 1 disk(s)

FILE HASH

28a6c23c1a1b04561aa50391f5ce77b57a0b2ccc1d424047b21b77a78a09ef48

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
C64 HULP 43 1 DUPLICATE T&S PRG DuncanTwain 12 7 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 27 08 64 00 8F 20  44 55 50 4C 49 43 41 54  |..'.d.. DUPLICAT|
00000010: 45 20 54 52 41 43 4B 20  26 20 53 45 43 54 4F 52  |E TRACK & SECTOR|
00000020: 20 2D 20 31 35 34 31 00  4F 08 6E 00 99 22 93 44  | - 1541.O.n..".D|
00000030: 55 50 4C 49 43 41 54 45  20 54 52 41 43 4B 20 26  |UPLICATE TRACK &|
00000040: 20 53 45 43 54 4F 52 20  2D 20 31 35 34 31 22 00  | SECTOR - 1541".|
00000050: 70 08 78 00 99 22 11 49  4E 53 45 52 54 20 44 49  |p.x..".INSERT DI|
00000060: 53 4B 45 54 54 45 20 49  4E 20 44 52 49 56 45 22  |SKETTE IN DRIVE"|
00000070: 00 9A 08 82 00 85 22 11  53 4F 55 52 43 45 20 54  |......".SOURCE T|
00000080: 52 41 43 4B 20 41 4E 44  20 53 45 43 54 4F 52 20  |RACK AND SECTOR |
00000090: 28 54 2C 53 29 22 3B 54  2C 53 00 A3 08 8C 00 8D  |(T,S)";T,S......|
000000A0: 35 38 30 00 B0 08 96 00  54 52 B2 54 3A 54 B2 30  |580.....TR.T:T.0|
000000B0: 00 BD 08 A0 00 53 52 B2  53 3A 53 B2 30 00 E7 08  |.....SR.S:S.0...|
000000C0: AA 00 85 22 11 54 41 52  47 45 54 20 54 52 41 43  |...".TARGET TRAC|
000000D0: 4B 20 41 4E 44 20 53 45  43 54 4F 52 20 28 54 2C  |K AND SECTOR (T,|
000000E0: 53 29 22 3B 54 2C 53 00  F0 08 B4 00 8D 35 38 30  |S)";T,S......580|
000000F0: 00 F9 08 BE 00 54 57 B2  54 00 02 09 C8 00 53 57  |.....TW.T.....SW|
00000100: B2 53 00 20 09 D2 00 85  22 11 41 52 45 20 59 4F  |.S. ....".ARE YO|
00000110: 55 20 53 55 52 45 20 20  59 9D 9D 9D 22 3B 51 24  |U SURE  Y...";Q$|
00000120: 00 2F 09 DC 00 8B 51 24  B3 B1 22 59 22 A7 80 00  |./....Q$.."Y"...|
00000130: 3C 09 E6 00 9F 31 35 2C  38 2C 31 35 00 49 09 F0  |<....15,8,15.I..|
00000140: 00 98 31 35 2C 22 49 30  22 00 61 09 FA 00 84 31  |..15,"I0".a....1|
00000150: 35 2C 45 4E 24 2C 45 4D  24 2C 45 54 24 2C 45 53  |5,EN$,EM$,ET$,ES|
00000160: 24 00 73 09 04 01 8B 45  4E 24 B2 22 30 30 22 89  |$.s....EN$."00".|
00000170: 33 31 30 00 91 09 0E 01  99 22 11 22 45 4E 24 2C  |310......"."EN$,|
00000180: 20 22 45 4D 24 22 2C 22  45 54 24 22 2C 22 45 53  | "EM$","ET$","ES|
00000190: 24 00 99 09 18 01 A0 31  35 00 9F 09 22 01 80 00  |$......15..."...|
000001A0: AA 09 2C 01 8F 20 53 45  45 4B 00 B3 09 36 01 54  |..,.. SEEK...6.T|
000001B0: B2 54 52 00 BC 09 40 01  53 B2 53 52 00 C8 09 4A  |.TR...@.S.SR...J|
000001C0: 01 4A 4F 42 B2 31 37 36  00 D1 09 54 01 8D 36 33  |.JOB.176...T..63|
000001D0: 30 00 DE 09 5E 01 8B 45  B2 31 89 33 38 30 00 E7  |0...^..E.1.380..|
000001E0: 09 68 01 89 37 35 30 00  F2 09 72 01 8F 20 52 45  |.h..750...r.. RE|
000001F0: 41 44 00 FE 09 7C 01 4A  4F 42 B2 31 32 38 00 07  |AD...|.JOB.128..|
00000200: 0A 86 01 8D 36 33 30 00  14 0A 90 01 8B 45 B2 31  |....630......E.1|
00000210: 89 34 33 30 00 1D 0A 9A  01 89 37 35 30 00 28 0A  |.430......750.(.|
00000220: A4 01 8F 20 53 45 45 4B  00 31 0A AE 01 54 B2 54  |... SEEK.1...T.T|
00000230: 57 00 3A 0A B8 01 53 B2  53 57 00 46 0A C2 01 4A  |W.:...S.SW.F...J|
00000240: 4F 42 B2 31 37 36 00 4F  0A CC 01 8D 36 33 30 00  |OB.176.O....630.|
00000250: 5C 0A D6 01 8B 45 B2 31  89 35 30 30 00 65 0A E0  |\....E.1.500.e..|
00000260: 01 89 37 35 30 00 71 0A  EA 01 8F 20 57 52 49 54  |..750.q.... WRIT|
00000270: 45 00 7D 0A F4 01 4A 4F  42 B2 31 34 34 00 86 0A  |E.}...JOB.144...|
00000280: FE 01 8D 36 33 30 00 93  0A 08 02 8B 45 B2 31 89  |...630......E.1.|
00000290: 35 34 30 00 9C 0A 12 02  89 37 35 30 00 A4 0A 1C  |540......750....|
000002A0: 02 A0 31 35 00 B2 0A 26  02 99 22 11 44 4F 4E 45  |..15...&..".DONE|
000002B0: 21 22 00 B8 0A 30 02 80  00 D6 0A 3A 02 8F 20 49  |!"...0.....:.. I|
000002C0: 4C 4C 45 47 41 4C 20 54  52 41 43 4B 20 4F 54 20  |LLEGAL TRACK OT |
000002D0: 53 45 43 54 4F 52 00 E6  0A 44 02 8B 54 B3 31 B0  |SECTOR...D..T.1.|
000002E0: 54 B1 33 35 A7 80 00 07  0B 4E 02 4E 53 B2 32 30  |T.35.....N.NS.20|
000002F0: AA 32 AC 28 54 B1 31 37  29 AA 28 54 B1 32 34 29  |.2.(T.17).(T.24)|
00000300: AA 28 54 B1 33 30 29 00  17 0B 58 02 8B 53 B3 30  |.(T.30)...X..S.0|
00000310: B0 53 B1 4E 53 A7 80 00  1D 0B 62 02 8E 00 2D 0B  |.S.NS.....b...-.|
00000320: 6C 02 8F 20 4A 4F 42 20  51 55 45 55 45 00 37 0B  |l.. JOB QUEUE.7.|
00000330: 76 02 54 52 59 B2 30 00  59 0B 80 02 98 31 35 2C  |v.TRY.0.Y....15,|
00000340: 22 4D 2D 57 22 C7 28 38  29 C7 28 30 29 C7 28 32  |"M-W".(8).(0).(2|
00000350: 29 C7 28 54 29 C7 28 53  29 00 79 0B 8A 02 98 31  |).(T).(S).y....1|
00000360: 35 2C 22 4D 2D 57 22 C7  28 31 29 C7 28 30 29 C7  |5,"M-W".(1).(0).|
00000370: 28 31 29 C7 28 4A 4F 42  29 00 87 0B 94 02 54 52  |(1).(JOB).....TR|
00000380: 59 B2 54 52 59 AA 31 00  9D 0B 9E 02 98 31 35 2C  |Y.TRY.1......15,|
00000390: 22 4D 2D 52 22 C7 28 31  29 C7 28 30 29 00 A9 0B  |"M-R".(1).(0)...|
000003A0: A8 02 A1 23 31 35 2C 45  24 00 BC 0B B2 02 8B 45  |...#15,E$......E|
000003B0: 24 B2 22 22 A7 45 24 B2  C7 28 30 29 00 C8 0B BC  |$."".E$..(0)....|
000003C0: 02 45 B2 C6 28 45 24 29  00 D9 0B C6 02 8B 54 52  |.E..(E$)......TR|
000003D0: 59 B2 35 30 30 89 37 35  30 00 E8 0B D0 02 8B 45  |Y.500.750......E|
000003E0: B1 31 32 37 89 36 36 30  00 EE 0B DA 02 8E 00 02  |.127.660........|
000003F0: 0C E4 02 8F 20 45 52 52  4F 52 20 48 41 4E 44 4C  |.... ERROR HANDL|
00000400: 45 52 00 1C 0C EE 02 45  54 24 B2 C9 28 C4 28 54  |ER.....ET$..(.(T|
00000410: 29 2C C3 28 C4 28 54 29  29 AB 31 29 00 32 0C F8  |),.(.(T)).1).2..|
00000420: 02 8B 54 B3 31 30 A7 45  54 24 B2 22 30 22 AA 45  |..T.10.ET$."0".E|
00000430: 54 24 00 4D 0C 02 03 45  53 24 B2 C9 28 C4 28 53  |T$.M...ES$..(.(S|
00000440: 29 2C C3 28 44 54 28 53  29 29 AB 31 29 00 62 0C  |),.(DT(S)).1).b.|
00000450: 0C 03 8B B3 31 30 A7 45  53 24 B2 22 30 22 AA 45  |....10.ES$."0".E|
00000460: 53 24 00 85 0C 16 03 8B  45 B1 AF 45 B3 31 32 A7  |S$......E..E.12.|
00000470: 45 4E 24 B2 C9 28 C4 28  45 AA 31 38 29 2C 32 29  |EN$..(.(E.18),2)|
00000480: 3A 89 38 31 30 00 A7 0C  20 03 45 4E 24 B2 22 30  |:.810... .EN$."0|
00000490: 32 22 3A 45 4D 24 B2 99  54 49 4D 45 20 4F 55 54  |2":EM$..TIME OUT|
000004A0: 22 3A 47 CF 38 33 30 00  CB 0C 2A 03 8B 45 B2 37  |":G.830...*..E.7|
000004B0: B0 45 B2 38 A7 45 4D 24  B2 22 57 52 49 54 45 20  |.E.8.EM$."WRITE |
000004C0: 45 52 52 4F 52 22 3A 89  38 33 30 00 E0 0C 34 03  |ERROR":.830...4.|
000004D0: 45 4D 24 B2 22 52 45 41  44 20 45 52 52 4F 52 22  |EM$."READ ERROR"|
000004E0: 00 FD 0C 3E 03 99 22 11  22 45 4E 24 22 2C 20 22  |...>.."."EN$", "|
000004F0: 45 4D 24 22 2C 45 54 24  22 2C 45 53 24 00 0E 0D  |EM$",ET$",ES$...|
00000500: 48 03 99 22 11 12 46 41  49 4C 45 44 92 22 00 16  |H.."..FAILED."..|
00000510: 0D 52 03 A0 31 35 00 1C  0D 5C 03 80 00 00 00 00  |.R..15...\......|
..'.D.. DUPLICATE TRACK & SECTOR - 1541.
O.N..".DUPLICATE TRACK & SECTOR - 1541".
P.X..".INSERT DISKETTE IN DRIVE"......".
SOURCE TRACK AND SECTOR (T,S)";T,S......
580.....TR.T:T.0... .SR.S:S.0......".TAR
GET TRACK AND SECTOR (T,S)";T,S......580
.....TW.T...H.SW.S. .R..".ARE YOU SURE  
Y...";Q$./....Q$.."Y"...<....15,8,15.I..
..15,"I0".A....15,EN$,EM$,ET$,ES$.S....E
N$."00".310......"."EN$, "EM$","ET$","ES
$..... 15...".....,.. SEEK...6.T.TR...@.
S.SR.H.J.JOB.176.Q.T..630...^..E.1.380..
.H..750...R.. READ...|.JOB.128......630.
.....E.1.430......750.(.... SEEK.1...T.T
W.:...S.SW.F.B.JOB.176.O.L..630.\.V..E.1
.500.E....750.Q.... WRITE.}...JOB.144...
...630......E.1.540......750..... 15...&
..".DONE!"...0...V.:.. ILLEGAL TRACK OT 
SECTOR...D..T.1.T.35.....N.NS.20.2.(T.17
).(T.24).(T.30)...X..S.0.S.NS.....B...-.
L.. JOB QUEUE.7.V.TRY.0.Y....15,"M-W"G(8
)G(0)G(2)G(T)G(S).Y....15,"M-W"G(1)G(0)G
(1)G(JOB).....TRY.TRY.1......15,"M-R"G(1
)G(0)......#15,E$......E$."".E$.G(0).H..
.E.F(E$).Y.F..TRY.500.750...P..E.127.660
...Z........ ERROR HANDLER.....ET$.I(D(T
),C(D(T)).1).2....T.10.ET$."0".ET$.M...E
S$.I(D(S),C(DT(S)).1).B.....10.ES$."0".E
S$......E..E.12.EN$.I(D(E.18),2):.810...
 .EN$."02":EM$..TIME OUT":GO830.K.*..E.7
.E.8.EM$."WRITE ERROR":.830...4.EM$."REA
D ERROR"...>.."."EN$", "EM$",ET$",ES$...
H.."..FAILED."...R. 15...\......
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL