1541 CLEAN AID
FILE INFORMATION
FILENAME(S): 1541 CLEAN AID
FILE TYPE(S): PRG
FILE SIZE: 888b
FIRST SEEN: 2025-12-01 02:25:33
APPEARS ON: 1 disk(s)
FILE HASH
5a976af02e9b0eb65c7a0b10e2953d6c8be4b9296d9f97eb3c8deff7e2cda323
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| STONYSOFT PD NR | 1541 CLEAN AID | PRG | hedning, shine | 9 | 19 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 64 00 8F 2A 49 4D 50 52 4F 56 45 44 |..(.d..*IMPROVED| 00000010: 20 31 35 34 31 20 48 45 41 44 20 43 4C 45 41 4E | 1541 HEAD CLEAN| 00000020: 49 4E 47 20 50 52 47 2A 00 54 08 6E 00 99 22 93 |ING PRG*.T.n..".| 00000030: 49 4E 53 45 52 54 20 43 4C 45 41 4E 49 4E 47 20 |INSERT CLEANING | 00000040: 44 49 53 4B 20 41 4E 44 20 48 49 54 20 52 45 54 |DISK AND HIT RET| 00000050: 55 52 4E 22 00 6B 08 78 00 A1 41 24 3A 8B 41 24 |URN".k.x..A$:.A$| 00000060: B3 B1 C7 28 31 33 29 A7 31 32 30 00 8E 08 82 00 |...(13).120.....| 00000070: 9F 31 35 2C 38 2C 31 35 3A 98 31 35 2C 22 4D 2D |.15,8,15:.15,"M-| 00000080: 45 22 C7 28 31 32 36 29 C7 28 32 34 39 29 00 A0 |E".(126).(249)..| 00000090: 08 8C 00 8F 20 4C 4F 43 41 54 45 20 48 45 41 44 |.... LOCATE HEAD| 000000A0: 00 B7 08 96 00 98 31 35 2C 22 4D 2D 52 22 C7 28 |......15,"M-R".(| 000000B0: 32 34 29 C7 28 30 29 00 D0 08 A0 00 A1 23 31 35 |24).(0)......#15| 000000C0: 2C 41 24 3A 58 B2 C6 28 41 24 AA C7 28 30 29 29 |,A$:X..(A$..(0))| 000000D0: 00 EE 08 AA 00 99 22 44 52 49 56 45 20 48 45 41 |......"DRIVE HEA| 000000E0: 44 20 41 54 20 54 52 41 43 4B 20 23 22 58 00 FE |D AT TRACK #"X..| 000000F0: 08 B4 00 8F 20 52 45 41 44 24 31 43 30 30 00 15 |.... READ$1C00..| 00000100: 09 BE 00 98 31 35 2C 22 4D 2D 52 22 C7 28 30 29 |....15,"M-R".(0)| 00000110: C7 28 32 38 29 00 31 09 C8 00 A1 23 31 35 2C 53 |.(28).1....#15,S| 00000120: 43 24 3A 53 43 B2 C6 28 53 43 24 AA C7 28 30 29 |C$:SC..(SC$..(0)| 00000130: 29 00 4B 09 D2 00 8F 20 53 45 4C 45 43 54 20 42 |).K.... SELECT B| 00000140: 49 54 53 20 30 20 41 4E 44 20 31 00 57 09 DC 00 |ITS 0 AND 1.W...| 00000150: 42 54 B2 53 43 AF 33 00 6B 09 E6 00 8F 20 23 20 |BT.SC.3.k.... # | 00000160: 54 52 41 43 4B 53 20 54 4F 20 31 00 7A 09 F0 00 |TRACKS TO 1.z...| 00000170: 53 50 B2 32 AC 28 58 AB 31 29 00 95 09 FA 00 8F |SP.2.(X.1)......| 00000180: 20 4D 4F 56 45 20 48 45 41 44 20 54 4F 20 54 52 | MOVE HEAD TO TR| 00000190: 41 43 4B 20 31 00 B2 09 04 01 99 22 11 53 54 45 |ACK 1......".STE| 000001A0: 50 50 49 4E 47 20 54 4F 20 54 52 41 43 4B 20 23 |PPING TO TRACK #| 000001B0: 31 22 00 BE 09 0E 01 81 59 B2 31 A4 53 50 00 D4 |1"......Y.1.SP..| 000001C0: 09 18 01 42 54 B2 42 54 AB 31 3A 42 54 B2 42 54 |...BT.BT.1:BT.BT| 000001D0: 20 AF 20 33 00 E6 09 22 01 53 B2 28 53 43 AF 32 | . 3...".S.(SC.2| 000001E0: 35 32 29 B0 42 54 00 05 0A 2C 01 98 31 35 2C 22 |52).BT...,..15,"| 000001F0: 4D 2D 57 22 C7 28 30 29 C7 28 32 38 29 C7 28 31 |M-W".(0).(28).(1| 00000200: 29 C7 28 53 29 00 0C 0A 36 01 82 59 00 21 0A 40 |).(S)...6..Y.!.@| 00000210: 01 8F 20 53 54 45 50 20 4F 55 54 20 54 4F 20 33 |.. STEP OUT TO 3| 00000220: 35 00 45 0A 4A 01 99 22 53 54 45 50 50 49 4E 47 |5.E.J.."STEPPING| 00000230: 20 4F 55 54 20 54 4F 20 54 52 41 43 4B 20 23 33 | OUT TO TRACK #3| 00000240: 35 2E 2E 2E 22 00 5C 0A 54 01 98 31 35 2C 22 4D |5...".\.T..15,"M| 00000250: 2D 52 22 C7 28 30 29 C7 28 32 38 29 00 76 0A 5E |-R".(0).(28).v.^| 00000260: 01 A1 23 31 35 2C 41 24 3A 53 43 B2 C6 28 41 24 |..#15,A$:SC..(A$| 00000270: AA C7 28 30 29 29 00 82 0A 68 01 42 54 B2 53 43 |..(0))...h.BT.SC| 00000280: AF 33 00 8E 0A 72 01 81 59 B2 31 A4 36 38 00 A7 |.3...r..Y.1.68..| 00000290: 0A 7C 01 99 22 11 11 54 52 41 43 4B 20 23 22 B5 |.|.."..TRACK #".| 000002A0: 28 59 AD 32 AA 31 29 00 B3 0A 86 01 99 22 91 91 |(Y.2.1)......"..| 000002B0: 91 91 22 00 C9 0A 90 01 42 54 B2 42 54 AA 31 3A |..".....BT.BT.1:| 000002C0: 42 54 B2 42 54 20 AF 20 33 00 DB 0A 9A 01 53 B2 |BT.BT . 3.....S.| 000002D0: 28 53 43 AF 32 35 32 29 B0 42 54 00 FA 0A A4 01 |(SC.252).BT.....| 000002E0: 98 31 35 2C 22 4D 2D 57 22 C7 28 30 29 C7 28 32 |.15,"M-W".(0).(2| 000002F0: 38 29 C7 28 31 29 C7 28 53 29 00 0A 0B AE 01 81 |8).(1).(S)......| 00000300: 44 B2 31 A4 32 32 30 3A 82 44 00 11 0B B8 01 82 |D.1.220:.D......| 00000310: 59 00 2F 0B C2 01 98 31 35 2C 22 4D 2D 45 22 C7 |Y./....15,"M-E".| 00000320: 28 32 33 32 29 C7 28 32 34 39 29 3A A0 31 35 00 |(232).(249):.15.| 00000330: 75 0B CC 01 A2 3A 8F 20 54 4F 20 20 50 52 45 56 |u....:. TO PREV| 00000340: 45 4E 54 20 52 45 2D 52 55 4E 4E 49 4E 47 20 57 |ENT RE-RUNNING W| 00000350: 2F 4F 20 20 20 20 20 20 41 20 4E 4F 52 4D 41 4C |/O A NORMAL| 00000360: 20 44 49 53 4B 20 4F 50 45 52 41 54 49 4F 4E 20 | DISK OPERATION | 00000370: 46 49 52 53 54 00 00 00 |FIRST... |
..(.D..*IMPROVED 1541 HEAD CLEANING PRG* .T.N..".INSERT CLEANING DISK AND HIT RET URN".K.X..A$:.A$..G(13).120......15,8,15 :.15,"M-E"G(126)G(249). .... LOCATE HEAD ......15,"M-R"G(24)G(0).P. ..#15,A$:X.F( A$.G(0))......"DRIVE HEAD AT TRACK #"X.. .... READ$1C00......15,"M-R"G(0)G(28).1. H..#15,SC$:SC.F(SC$.G(0)).K.R.. SELECT B ITS 0 AND 1.W...BT.SC.3.K.... # TRACKS T O 1.Z...SP.2.(X.1)...... MOVE HEAD TO TR ACK 1......".STEPPING TO TRACK #1"...... Y.1.SP.T...BT.BT.1:BT.BT . 3...".S.(SC.2 52).BT...,..15,"M-W"G(0)G(28)G(1)G(S)... 6..Y.!.@.. STEP OUT TO 35.E.J.."STEPPING OUT TO TRACK #35...".\.T..15,"M-R"G(0)G (28).V.^..#15,A$:SC.F(A$.G(0))...H.BT.SC .3...R..Y.1.68...|.."..TRACK #".(Y.2.1). ....."....".I...BT.BT.1:BT.BT . 3.....S. (SC.252).BT......15,"M-W"G(0)G(28)G(1)G( S)......D.1.220:.D......Y./.B..15,"M-E"G (232)G(249): 15.U.L..:. TO PREVENT RE-R UNNING W/O A NORMAL DISK OPERATION FIRST...
> CLICK IMAGE PREVIEW FOR FULL MODAL