DISK UTILITY
FILE INFORMATION
FILENAME(S): DISK UTILITY
FILE TYPE(S): PRG
FILE SIZE: 4.6K
FIRST SEEN: 2025-11-30 20:21:35
APPEARS ON: 1 disk(s)
FILE HASH
24b7886e4b3b483f3e798544848b9751903916dc5bf1f26626ed414210468006
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CARSTEN 9D | DISK UTILITY | PRG | Curtcool, Misc | 26 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 26 08 E8 03 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |..&....*********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 00 41 08 F2 03 8F 20 20 20 20 |******.A.... |
00000030: 20 20 20 20 20 44 49 53 4B 20 55 54 49 4C 49 54 | DISK UTILIT|
00000040: 59 00 64 08 FC 03 8F 20 20 42 59 20 4D 41 54 54 |Y.d.... BY MATT|
00000050: 48 45 57 20 44 45 53 4D 4F 4E 44 20 28 43 29 20 |HEW DESMOND (C) |
00000060: 31 39 38 34 00 89 08 06 04 8F 2A 2A 2A 2A 2A 2A |1984......******|
00000070: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 9C 08 10 04 86 20 |*********...... |
00000090: 4E 46 24 28 31 30 29 3A 4E 46 B2 38 00 B3 08 1A |NF$(10):NF.8....|
000000A0: 04 81 41 B2 31 A4 38 3A 87 20 4E 46 24 28 41 29 |..A.1.8:. NF$(A)|
000000B0: 3A 82 41 00 D1 08 24 04 83 44 49 52 45 43 54 4F |:.A...$..DIRECTO|
000000C0: 52 59 2C 46 4F 52 4D 41 54 2C 53 43 52 41 54 43 |RY,FORMAT,SCRATC|
000000D0: 48 00 F2 08 2E 04 83 52 45 3D 4E 41 4D 45 2C 49 |H......RE=NAME,I|
000000E0: 4E 49 54 49 41 4C 49 53 45 2C 56 41 4C 49 44 41 |NITIALISE,VALIDA|
000000F0: 54 45 00 00 09 38 04 83 43 4F 50 59 2C 45 4E 44 |TE...8..COPY,END|
00000100: 00 13 09 42 04 81 41 B2 35 30 30 30 30 A4 35 30 |...B..A.50000.50|
00000110: 30 32 30 00 22 09 4C 04 87 42 3A 97 41 2C 42 3A |020.".L..B:.A,B:|
00000120: 82 41 00 40 09 56 04 83 20 31 36 32 2C 33 2C 33 |.A.@.V.. 162,3,3|
00000130: 32 2C 31 39 38 2C 32 35 35 2C 33 32 2C 32 30 37 |2,198,255,32,207|
00000140: 00 61 09 60 04 83 20 32 35 35 2C 33 32 2C 32 31 |.a.`.. 255,32,21|
00000150: 30 2C 32 35 35 2C 32 30 38 2C 32 34 38 2C 31 36 |0,255,208,248,16|
00000160: 39 00 80 09 6A 04 83 20 31 33 2C 33 32 2C 32 31 |9...j.. 13,32,21|
00000170: 30 2C 32 35 35 2C 37 36 2C 32 30 34 2C 32 35 35 |0,255,76,204,255|
00000180: 00 8B 09 74 04 89 20 31 33 30 30 00 B0 09 7E 04 |...t.. 1300...~.|
00000190: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
000001A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001B0: 00 D5 09 88 04 8F 2A 2A 2A 2A 20 57 41 49 54 20 |......**** WAIT |
000001C0: 46 4F 52 20 41 20 4B 45 59 20 50 52 45 53 53 20 |FOR A KEY PRESS |
000001D0: 20 2A 2A 2A 2A 00 FA 09 92 04 8F 2A 2A 2A 2A 2A | ****......*****|
000001E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 19 0A 9C 04 99 |**********......|
00000200: A3 31 33 29 22 11 90 2A 20 50 52 45 53 53 20 41 |.13)"..* PRESS A|
00000210: 20 4B 45 59 20 2A 11 11 22 00 24 0A A6 04 97 31 | KEY *..".$....1|
00000220: 39 38 2C 30 00 38 0A B0 04 A1 41 24 3A 8B 41 24 |98,0.8....A$:.A$|
00000230: B2 22 22 A7 31 32 30 30 00 3E 0A BA 04 8E 00 63 |."".1200.>.....c|
00000240: 0A C4 04 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |....************|
00000250: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000260: 2A 2A 2A 00 88 0A CE 04 8F 2A 2A 2A 2A 20 52 45 |***......**** RE|
00000270: 41 44 20 45 52 52 4F 52 20 20 46 52 4F 4D 20 44 |AD ERROR FROM D|
00000280: 49 53 4B 20 2A 2A 2A 2A 00 AD 0A D8 04 8F 2A 2A |ISK ****......**|
00000290: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000002A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 BA 0A |*************...|
000002B0: E2 04 9F 31 35 2C 38 2C 31 35 00 CB 0A EC 04 84 |...15,8,15......|
000002C0: 31 35 2C 41 2C 42 24 2C 43 2C 44 00 D3 0A F6 04 |15,A,B$,C,D.....|
000002D0: A0 31 35 00 F5 0A 00 05 99 22 90 11 20 44 49 53 |.15......".. DIS|
000002E0: 4B 20 53 54 41 54 55 53 20 20 3A 22 3B 41 3B 42 |K STATUS :";A;B|
000002F0: 24 3B 43 3B 44 00 FB 0A 0A 05 8E 00 20 0B 14 05 |$;C;D....... ...|
00000300: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
00000310: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000320: 00 45 0B 1E 05 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.E....**********|
00000330: 2A 2A 20 4D 45 4E 55 2E 20 2A 2A 2A 2A 2A 2A 2A |** MENU. *******|
00000340: 2A 2A 2A 2A 2A 00 6A 0B 28 05 8F 2A 2A 2A 2A 2A |*****.j.(..*****|
00000350: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000360: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 80 0B 32 05 97 |**********...2..|
00000370: 35 33 32 38 30 2C 36 3A 97 35 33 32 38 31 2C 31 |53280,6:.53281,1|
00000380: 00 8A 0B 3C 05 99 22 93 22 3B 00 A3 0B 46 05 99 |...<..".";...F..|
00000390: A3 31 34 29 22 1C D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 |.14)"...........|
000003A0: D2 D2 22 00 BC 0B 50 05 99 A3 31 34 29 22 12 44 |.."...P...14)".D|
000003B0: 49 53 4B 20 55 54 49 4C 49 54 59 22 00 C7 0B 5A |ISK UTILITY"...Z|
000003C0: 05 99 22 11 11 22 3B 00 DC 0B 64 05 99 A3 31 36 |.."..";...d...16|
000003D0: 29 22 90 2A 2A 2A 2A 2A 2A 2A 2A 22 00 F1 0B 6E |)".********"...n|
000003E0: 05 99 A3 31 36 29 22 90 2A 20 4D 45 4E 55 20 2A |...16)".* MENU *|
000003F0: 22 00 06 0C 78 05 99 A3 31 36 29 22 90 2A 2A 2A |"...x...16)".***|
00000400: 2A 2A 2A 2A 2A 22 00 0C 0C 82 05 99 00 18 0C 8C |*****"..........|
00000410: 05 81 41 B2 31 A4 4E 46 00 36 0C 96 05 99 3B 22 |..A.1.NF.6....;"|
00000420: 1E 22 3B 41 3B 22 1F 9C 29 20 22 3B 22 90 22 3B |.";A;"..) ";".";|
00000430: 4E 46 24 28 41 29 00 3D 0C A0 05 82 41 00 68 0C |NF$(A).=....A.h.|
00000440: AA 05 99 22 11 11 81 57 48 49 43 48 20 46 55 4E |..."...WHICH FUN|
00000450: 43 54 49 4F 4E 20 44 4F 20 59 4F 55 20 52 45 51 |CTION DO YOU REQ|
00000460: 55 49 52 45 3F 20 22 3B 00 7A 0C B4 05 8D 31 31 |UIRE? ";.z....11|
00000470: 39 30 3A 41 B2 C5 28 41 24 29 00 8E 0C BE 05 8B |90:A..(A$)......|
00000480: 41 B3 31 B0 41 B1 4E 46 A7 89 31 34 36 30 00 9E |A.1.A.NF..1460..|
00000490: 0C C8 05 99 22 1F 22 3B 41 24 3B 22 90 22 00 C0 |....".";A$;"."..|
000004A0: 0C D2 05 91 41 20 20 89 31 35 37 30 2C 31 37 31 |....A .1570,171|
000004B0: 30 2C 31 38 36 30 2C 31 39 39 30 2C 32 31 37 30 |0,1860,1990,2170|
000004C0: 00 D8 0C DC 05 91 41 AB 35 89 32 33 30 30 2C 32 |......A.5.2300,2|
000004D0: 34 33 30 2C 31 35 32 30 00 E2 0C E6 05 89 31 34 |430,1520......14|
000004E0: 36 30 00 07 0D F0 05 8F 2A 2A 2A 2A 2A 2A 2A 2A |60......********|
000004F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000500: 2A 2A 2A 2A 2A 2A 2A 00 2C 0D FA 05 8F 2A 2A 2A |*******.,....***|
00000510: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 45 4E 44 20 2A |********** END *|
00000520: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 51 0D 04 |************.Q..|
00000530: 06 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************|
00000540: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000550: 2A 00 65 0D 0E 06 99 22 93 1F 12 47 4F 4F 44 42 |*.e...."...GOODB|
00000560: 59 45 2E 90 22 00 6B 0D 18 06 80 00 90 0D 22 06 |YE..".k.......".|
00000570: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
00000580: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000590: 00 B5 0D 2C 06 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...,..**********|
000005A0: 20 44 49 52 45 43 54 4F 52 59 2A 2A 2A 2A 2A 2A | DIRECTORY******|
000005B0: 2A 2A 2A 2A 2A 00 DA 0D 36 06 8F 2A 2A 2A 2A 2A |*****...6..*****|
000005C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000005D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E9 0D 40 06 99 |**********...@..|
000005E0: 22 93 22 3B 3A 50 52 B2 30 00 FC 0D 4A 06 99 22 |".";:PR.0...J.."|
000005F0: 1C D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 22 00 10 0E 54 |..........."...T|
00000600: 06 99 22 12 44 49 52 45 43 54 4F 52 59 3A 90 22 |..".DIRECTORY:."|
00000610: 00 2F 0E 5E 06 99 22 11 50 4C 45 41 53 45 20 4C |./.^..".PLEASE L|
00000620: 4F 41 44 20 44 49 53 4B 22 3A 8D 31 31 35 30 00 |OAD DISK":.1150.|
00000630: 49 0E 68 06 9F 33 2C 38 2C 30 2C 22 24 30 22 3A |I.h..3,8,0,"$0":|
00000640: A1 23 33 2C 41 24 2C 41 24 00 5F 0E 72 06 A1 23 |.#3,A$,A$._.r..#|
00000650: 33 2C 41 24 2C 41 24 2C 42 4C 24 2C 42 48 24 00 |3,A$,A$,BL$,BH$.|
00000660: 73 0E 7C 06 8B 41 24 B2 22 22 A7 A0 33 3A 89 31 |s.|..A$.""..3:.1|
00000670: 37 30 30 00 91 0E 86 06 42 4C 24 B2 42 4C 24 AA |700.....BL$.BL$.|
00000680: C7 28 30 29 3A 42 48 24 B2 42 48 24 AA C7 28 30 |.(0):BH$.BH$..(0|
00000690: 29 00 A9 0E 90 06 99 32 35 36 AC C6 28 42 48 24 |)......256..(BH$|
000006A0: 29 AA C6 28 42 4C 24 29 3B 00 BA 0E 9A 06 9E 35 |)..(BL$);......5|
000006B0: 30 30 30 30 3A 89 31 36 35 30 00 CA 0E A4 06 8D |0000:.1650......|
000006C0: 31 31 35 30 3A 89 31 33 30 30 00 EF 0E AE 06 8F |1150:.1300......|
000006D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000006E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000006F0: 14 0F B8 06 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.....***********|
00000700: 20 46 4F 52 4D 41 54 20 20 2A 2A 2A 2A 2A 2A 2A | FORMAT *******|
00000710: 2A 2A 2A 2A 00 39 0F C2 06 8F 2A 2A 2A 2A 2A 2A |****.9....******|
00000720: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000730: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 51 0F CC 06 99 22 |*********.Q...."|
00000740: 93 22 3B 3A 49 44 24 B2 22 22 3A 44 4E 24 B2 22 |.";:ID$."":DN$."|
00000750: 22 00 61 0F D6 06 99 22 1C D2 D2 D2 D2 D2 D2 D2 |".a...."........|
00000760: 22 00 72 0F E0 06 99 22 12 46 4F 52 4D 41 54 3A |".r....".FORMAT:|
00000770: 90 22 00 91 0F EA 06 99 22 11 50 4C 45 41 53 45 |."......".PLEASE|
00000780: 20 4C 4F 41 44 20 44 49 53 4B 22 3A 8D 31 31 35 | LOAD DISK":.115|
00000790: 30 00 A6 0F F4 06 85 22 44 49 53 4B 20 4E 41 4D |0......"DISK NAM|
000007A0: 45 22 3B 44 4E 24 00 C8 0F FE 06 8B 44 4E 24 B2 |E";DN$......DN$.|
000007B0: 22 22 B0 44 4E 24 B2 22 2A 22 B0 44 4E 24 B2 22 |"".DN$."*".DN$."|
000007C0: 24 22 A7 20 31 37 31 30 00 DB 0F 08 07 85 22 44 |$". 1710......"D|
000007D0: 49 53 4B 20 49 44 22 3B 49 44 24 00 F8 0F 12 07 |ISK ID";ID$.....|
000007E0: 8B 49 44 24 B3 B1 22 22 A7 44 4E 24 B2 44 4E 24 |.ID$.."".DN$.DN$|
000007F0: AA 22 2C 22 AA 49 44 24 00 11 10 1C 07 9F 31 2C |.",".ID$......1,|
00000800: 38 2C 31 35 2C 22 4E 30 3A 22 AA 44 4E 24 3A A0 |8,15,"N0:".DN$:.|
00000810: 31 00 1B 10 26 07 8D 31 32 32 30 00 25 10 30 07 |1...&..1220.%.0.|
00000820: 8D 31 31 35 30 00 2F 10 3A 07 8D 31 33 30 30 00 |.1150./.:..1300.|
00000830: 54 10 44 07 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |T.D..***********|
00000840: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000850: 2A 2A 2A 2A 00 79 10 4E 07 8F 2A 2A 2A 2A 2A 2A |****.y.N..******|
00000860: 2A 2A 2A 2A 2A 20 53 43 52 41 54 43 48 20 2A 2A |***** SCRATCH **|
00000870: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 9E 10 58 07 8F 2A |*********...X..*|
00000880: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000890: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A8 |**************..|
000008A0: 10 62 07 99 22 93 22 3B 00 B9 10 6C 07 99 22 1C |.b..".";...l..".|
000008B0: D2 D2 D2 D2 D2 D2 D2 D2 22 00 CB 10 76 07 99 22 |........"...v.."|
000008C0: 12 53 43 52 41 54 43 48 3A 90 22 00 EA 10 80 07 |.SCRATCH:.".....|
000008D0: 99 22 11 50 4C 45 41 53 45 20 4C 4F 41 44 20 44 |.".PLEASE LOAD D|
000008E0: 49 53 4B 22 3A 8D 31 31 35 30 00 11 11 8A 07 99 |ISK":.1150......|
000008F0: 22 4E 41 4D 45 20 4F 46 20 50 52 4F 47 52 41 4D |"NAME OF PROGRAM|
00000900: 20 54 4F 20 42 45 20 53 43 52 41 54 43 48 45 44 | TO BE SCRATCHED|
00000910: 22 00 27 11 94 07 85 50 4E 24 3A 8B 50 4E 24 B2 |".'....PN$:.PN$.|
00000920: 22 22 A7 31 38 36 30 00 40 11 9E 07 9F 32 2C 38 |"".1860.@....2,8|
00000930: 2C 31 35 2C 22 53 30 3A 22 AA 50 4E 24 3A A0 32 |,15,"S0:".PN$:.2|
00000940: 00 4A 11 A8 07 8D 31 32 32 30 00 54 11 B2 07 8D |.J....1220.T....|
00000950: 31 31 35 30 00 5E 11 BC 07 89 31 33 30 30 00 83 |1150.^....1300..|
00000960: 11 C6 07 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |....************|
00000970: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000980: 2A 2A 2A 00 A8 11 D0 07 8F 2A 2A 2A 2A 2A 2A 2A |***......*******|
00000990: 2A 2A 2A 20 52 45 2D 4E 41 4D 45 20 2A 2A 2A 2A |*** RE-NAME ****|
000009A0: 2A 2A 2A 2A 2A 2A 2A 2A 00 CD 11 DA 07 8F 2A 2A |********......**|
000009B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000009C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D7 11 |*************...|
000009D0: E4 07 99 22 93 22 3B 00 E8 11 EE 07 99 22 1C D2 |...".";......"..|
000009E0: D2 D2 D2 D2 D2 D2 D2 22 00 FA 11 F8 07 99 22 12 |......."......".|
000009F0: 52 45 2D 4E 41 4D 45 3A 90 22 00 19 12 02 08 99 |RE-NAME:."......|
00000A00: 22 11 50 4C 45 41 53 45 20 4C 4F 41 44 20 44 49 |".PLEASE LOAD DI|
00000A10: 53 4B 22 3A 8D 31 31 35 30 00 2A 12 0C 08 99 22 |SK":.1150.*...."|
00000A20: 4E 45 57 20 4E 41 4D 45 22 3B 00 33 12 16 08 85 |NEW NAME";.3....|
00000A30: 4E 4E 24 00 54 12 20 08 8B 4E 4E 24 B2 22 22 B0 |NN$.T. ..NN$."".|
00000A40: 4E 4E 24 B2 22 24 22 B0 4E 4E 24 B2 22 2A 22 A7 |NN$."$".NN$."*".|
00000A50: 31 39 39 30 00 65 12 2A 08 99 22 4F 4C 44 20 4E |1990.e.*.."OLD N|
00000A60: 41 4D 45 22 3B 00 6E 12 34 08 85 4F 4C 24 00 8F |AME";.n.4..OL$..|
00000A70: 12 3E 08 8B 4F 4C 24 B2 22 22 B0 4F 4C 24 B2 22 |.>..OL$."".OL$."|
00000A80: 24 22 B0 4F 4C 24 B2 22 2A 22 A7 31 39 39 30 00 |$".OL$."*".1990.|
00000A90: AD 12 48 08 9F 34 2C 38 2C 31 35 2C 22 52 30 3A |..H..4,8,15,"R0:|
00000AA0: 22 AA 4E 4E 24 AA 22 3D 22 AA 4F 4C 24 00 B4 12 |".NN$."=".OL$...|
00000AB0: 52 08 A0 34 00 BE 12 5C 08 8D 31 32 32 30 00 C8 |R..4...\..1220..|
00000AC0: 12 66 08 8D 31 31 35 30 00 D3 12 70 08 89 20 31 |.f..1150...p.. 1|
00000AD0: 33 30 30 00 F8 12 7A 08 8F 2A 2A 2A 2A 2A 2A 2A |300...z..*******|
00000AE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000AF0: 2A 2A 2A 2A 2A 2A 2A 2A 00 1D 13 84 08 8F 2A 2A |********......**|
00000B00: 2A 2A 2A 2A 2A 2A 2A 20 49 4E 49 54 49 41 4C 49 |******* INITIALI|
00000B10: 53 45 2E 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 42 13 |SE. *********.B.|
00000B20: 8E 08 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...*************|
00000B30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B40: 2A 2A 00 4C 13 98 08 99 22 93 22 3B 00 60 13 A2 |**.L....".";.`..|
00000B50: 08 99 22 1C D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 22 |.."............"|
00000B60: 00 75 13 AC 08 99 22 12 49 4E 49 54 49 41 4C 49 |.u....".INITIALI|
00000B70: 53 45 3A 90 22 00 94 13 B6 08 99 22 11 50 4C 45 |SE:."......".PLE|
00000B80: 41 53 45 20 4C 4F 41 44 20 44 49 53 4B 22 3A 8D |ASE LOAD DISK":.|
00000B90: 31 31 35 30 00 B7 13 C0 08 99 22 1E 11 11 D2 D2 |1150......".....|
00000BA0: D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 |................|
00000BB0: D2 D2 D2 D2 D2 D2 22 00 D9 13 CA 08 99 22 12 49 |......"......".I|
00000BC0: 4E 49 54 49 41 4C 49 53 45 52 49 4E 47 20 44 49 |NITIALISERING DI|
00000BD0: 53 4B 20 44 52 49 56 45 22 00 F5 13 D4 08 9F 35 |SK DRIVE"......5|
00000BE0: 2C 38 2C 31 35 2C 22 49 4E 49 54 49 41 4C 49 53 |,8,15,"INITIALIS|
00000BF0: 45 22 3A A0 35 00 FF 13 DE 08 8D 31 32 32 30 00 |E":.5......1220.|
00000C00: 09 14 E8 08 8D 31 31 35 30 00 13 14 F2 08 89 31 |.....1150......1|
00000C10: 33 30 30 00 38 14 FC 08 8F 2A 2A 2A 2A 2A 2A 2A |300.8....*******|
00000C20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000C30: 2A 2A 2A 2A 2A 2A 2A 2A 00 5D 14 06 09 8F 2A 2A |********.]....**|
00000C40: 2A 2A 2A 2A 2A 2A 2A 2A 20 56 41 4C 49 44 41 54 |******** VALIDAT|
00000C50: 45 2E 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 82 14 |E. **********...|
00000C60: 10 09 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...*************|
00000C70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000C80: 2A 2A 00 8C 14 1A 09 99 22 93 22 3B 00 9E 14 24 |**......".";...$|
00000C90: 09 99 22 1C D2 D2 D2 D2 D2 D2 D2 D2 D2 22 00 B1 |..".........."..|
00000CA0: 14 2E 09 99 22 12 56 41 4C 49 44 41 54 45 3A 90 |....".VALIDATE:.|
00000CB0: 22 00 D0 14 38 09 99 22 11 50 4C 45 41 53 45 20 |"...8..".PLEASE |
00000CC0: 4C 4F 41 44 20 44 49 53 4B 22 3A 8D 31 31 35 30 |LOAD DISK":.1150|
00000CD0: 00 EA 14 42 09 99 22 1E 11 11 D2 D2 D2 D2 D2 D2 |...B..".........|
00000CE0: D2 D2 D2 D2 D2 D2 D2 D2 D2 22 00 02 15 4C 09 99 |........."...L..|
00000CF0: 22 12 56 41 4C 49 44 41 54 49 4E 47 20 44 49 53 |".VALIDATING DIS|
00000D00: 4B 22 00 1C 15 56 09 9F 36 2C 38 2C 31 35 2C 22 |K"...V..6,8,15,"|
00000D10: 56 41 4C 49 44 41 54 45 22 3A A0 36 00 26 15 60 |VALIDATE":.6.&.`|
00000D20: 09 8D 31 32 32 30 00 30 15 6A 09 8D 31 31 35 30 |..1220.0.j..1150|
00000D30: 00 3A 15 74 09 89 31 33 30 30 00 5F 15 7E 09 8F |.:.t..1300._.~..|
00000D40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000D50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000D60: 84 15 88 09 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.....***********|
00000D70: 2A 20 43 4F 50 59 2E 20 2A 2A 2A 2A 2A 2A 2A 2A |* COPY. ********|
00000D80: 2A 2A 2A 2A 00 A9 15 92 09 8F 2A 2A 2A 2A 2A 2A |****......******|
00000D90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000DA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B3 15 9C 09 99 22 |*********......"|
00000DB0: 93 22 3B 00 C1 15 A6 09 99 22 1C D2 D2 D2 D2 D2 |.";......"......|
00000DC0: 22 00 D0 15 B0 09 99 22 12 43 4F 50 59 3A 90 22 |"......".COPY:."|
00000DD0: 00 EE 15 BA 09 99 22 50 4C 45 41 53 45 20 4C 4F |......"PLEASE LO|
00000DE0: 41 44 20 44 49 53 4B 22 3A 8D 31 31 35 30 00 06 |AD DISK":.1150..|
00000DF0: 16 C4 09 99 22 43 4F 50 59 20 4F 52 20 4D 45 52 |...."COPY OR MER|
00000E00: 47 45 20 3F 22 3B 00 10 16 CE 09 8D 31 31 39 30 |GE ?";......1190|
00000E10: 00 27 16 D8 09 8B 41 24 B2 22 4D 22 A7 99 22 4D |.'....A$."M".."M|
00000E20: 22 3A 89 32 36 32 30 00 39 16 E2 09 8B 41 24 B3 |":.2620.9....A$.|
00000E30: B1 22 43 22 A7 32 35 31 30 00 55 16 EC 09 99 22 |."C".2510.U...."|
00000E40: 43 22 3A 99 22 4F 52 49 47 49 4E 41 4C 20 4E 41 |C":."ORIGINAL NA|
00000E50: 4D 45 3A 22 3B 00 5E 16 F6 09 85 4F 4F 24 00 7F |ME:";.^....OO$..|
00000E60: 16 00 0A 8B 4F 4F 24 B2 22 22 B0 4F 4F 24 B2 22 |....OO$."".OO$."|
00000E70: 24 22 B0 4F 4F 24 B2 22 2A 22 A7 32 34 33 30 00 |$".OO$."*".2430.|
00000E80: 91 16 0A 0A 99 22 4E 45 57 20 4E 41 4D 45 3A 22 |....."NEW NAME:"|
00000E90: 3B 00 9A 16 14 0A 85 4E 4D 24 00 BB 16 1E 0A 8B |;......NM$......|
00000EA0: 4E 4E 24 B2 22 22 B0 4E 4E 24 B2 22 24 22 B0 4E |NN$."".NN$."$".N|
00000EB0: 4E 24 B2 22 2A 22 A7 32 34 33 30 00 DA 16 28 0A |N$."*".2430...(.|
00000EC0: 46 46 24 B2 22 43 4F 50 59 30 3A 22 AA 4E 4E 24 |FF$."COPY0:".NN$|
00000ED0: AA 22 3D 30 3A 22 AA 4F 4F 24 00 E4 16 32 0A 89 |."=0:".OO$...2..|
00000EE0: 32 38 31 30 00 02 17 3C 0A 99 22 48 4F 57 20 4D |2810...<.."HOW M|
00000EF0: 41 4E 59 20 46 49 4C 45 53 20 28 32 2D 34 29 3F |ANY FILES (2-4)?|
00000F00: 22 3B 00 14 17 46 0A 8D 31 31 39 30 3A 41 B2 C5 |";...F..1190:A..|
00000F10: 28 41 24 29 00 27 17 50 0A 8B 41 B3 32 B0 41 B1 |(A$).'.P..A.2.A.|
00000F20: 34 A7 89 32 36 33 30 00 34 17 5A 0A 99 41 24 22 |4..2630.4.Z..A$"|
00000F30: 11 11 11 22 00 4C 17 64 0A 4D 4D 24 28 31 29 B2 |...".L.d.MM$(1).|
00000F40: 22 22 3A 4D 4D 24 28 32 29 B2 22 22 00 64 17 6E |"":MM$(2)."".d.n|
00000F50: 0A 4D 4D 24 28 33 29 B2 22 22 3A 4D 4D 24 28 33 |.MM$(3)."":MM$(3|
00000F60: 29 B2 22 22 00 6F 17 78 0A 81 42 B2 31 A4 41 00 |)."".o.x..B.1.A.|
00000F70: 8D 17 82 0A 99 22 91 46 49 4C 45 4E 41 4D 45 20 |.....".FILENAME |
00000F80: 23 22 3B CA 28 C4 28 42 29 2C 32 29 3B 00 A9 17 |#";.(.(B),2);...|
00000F90: 8C 0A 99 22 3A 20 20 20 20 20 20 20 20 20 20 20 |...": |
00000FA0: 20 20 20 20 20 20 20 22 3B 00 C3 17 96 0A 99 22 | ";......"|
00000FB0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00000FC0: 9D 22 3B 00 D9 17 A0 0A 85 4D 4D 24 28 42 29 3A |.";......MM$(B):|
00000FD0: 54 24 B2 4D 4D 24 28 42 29 00 F7 17 AA 0A 8B 54 |T$.MM$(B)......T|
00000FE0: 24 B2 22 2A 22 B0 54 24 B2 22 22 B0 54 24 B2 22 |$."*".T$."".T$."|
00000FF0: 24 22 A7 32 36 39 30 00 14 18 B4 0A 8B 42 B3 B1 |$".2690......B..|
00001000: A7 4D 4D 24 28 42 29 B2 22 2C 30 3A 22 AA 4D 4D |.MM$(B).",0:".MM|
00001010: 24 28 42 29 00 20 18 BE 0A 82 42 3A 99 22 11 22 |$(B). ....B:."."|
00001020: 00 37 18 C8 0A 99 22 91 4E 45 57 20 46 49 4C 45 |.7....".NEW FILE|
00001030: 4E 41 4D 45 3A 22 3B 00 40 18 D2 0A 85 4D 4D 24 |NAME:";.@....MM$|
00001040: 00 61 18 DC 0A 8B 4D 4D 24 B2 22 22 B0 4E 46 24 |.a....MM$."".NF$|
00001050: B2 22 2A 22 B0 4E 46 24 B2 22 24 22 A7 32 37 36 |."*".NF$."$".276|
00001060: 30 00 8A 18 E6 0A 46 46 24 B2 22 43 4F 50 59 30 |0.....FF$."COPY0|
00001070: 3A 22 AA 4D 4D 24 AA 22 3D 30 3A 22 AA 4D 4D 24 |:".MM$."=0:".MM$|
00001080: 28 31 29 AA 4D 4D 24 28 32 29 00 A4 18 F0 0A 46 |(1).MM$(2).....F|
00001090: 46 24 B2 46 46 24 AA 4D 4D 24 28 33 29 AA 4D 4D |F$.FF$.MM$(3).MM|
000010A0: 24 28 34 29 00 BA 18 FA 0A 9F 37 2C 38 2C 31 35 |$(4)......7,8,15|
000010B0: 3A 98 37 2C 46 46 24 3A A0 37 00 C4 18 04 0B 8D |:.7,FF$:.7......|
000010C0: 31 32 32 30 00 CE 18 0E 0B 8D 31 31 35 30 00 D8 |1220......1150..|
000010D0: 18 18 0B 89 31 33 30 30 00 FD 18 22 0B 8F 2A 2A |....1300..."..**|
000010E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000010F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 22 19 |*************.".|
00001100: 2C 0B 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |,..*************|
00001110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001120: 2A 2A 00 47 19 36 0B 8F 2A 2A 2A 2A 20 4D 41 43 |**.G.6..**** MAC|
00001130: 48 49 4E 45 20 43 4F 44 45 20 4C 49 53 54 4E 49 |HINE CODE LISTNI|
00001140: 4E 47 2E 2A 2A 2A 2A 00 6C 19 4A 0B 8F 2A 2A 2A |NG.****.l.J..***|
00001150: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 72 19 54 |************.r.T|
00001170: 0B 3A 00 78 19 5E 0B 3A 00 96 19 68 0B 2C 43 30 |.:.x.^.:...h.,C0|
00001180: 30 30 20 20 41 32 20 30 33 20 20 20 20 20 20 4C |00 A2 03 L|
00001190: 44 58 23 24 30 33 00 B6 19 72 0B 2C 43 30 30 32 |DX#$03...r.,C002|
000011A0: 20 20 32 30 20 43 36 20 46 46 20 20 20 4A 53 52 | 20 C6 FF JSR|
000011B0: 20 24 46 46 43 36 00 D6 19 7C 0B 2C 43 30 30 35 | $FFC6...|.,C005|
000011C0: 20 20 32 30 20 43 46 20 46 46 20 20 20 4A 53 52 | 20 CF FF JSR|
000011D0: 20 24 46 46 43 46 00 F6 19 86 0B 2C 43 30 30 38 | $FFCF.....,C008|
000011E0: 20 20 32 30 20 44 32 20 46 46 20 20 20 4A 53 52 | 20 D2 FF JSR|
000011F0: 20 24 46 46 44 32 00 16 1A 90 0B 2C 43 30 30 42 | $FFD2.....,C00B|
00001200: 20 20 44 30 20 46 38 20 20 20 20 20 20 42 4E 45 | D0 F8 BNE|
00001210: 20 24 43 30 30 35 00 35 1A 9A 0B 2C 43 30 30 44 | $C005.5...,C00D|
00001220: 20 20 41 39 20 30 44 20 20 20 20 20 20 4C 44 41 | A9 0D LDA|
00001230: 20 23 24 30 44 00 55 1A A4 0B 2C 43 30 30 46 20 | #$0D.U...,C00F |
00001240: 20 32 30 20 44 32 20 46 46 20 20 20 4A 53 52 20 | 20 D2 FF JSR |
00001250: 24 46 46 44 32 00 75 1A AE 0B 2C 43 30 31 32 20 |$FFD2.u...,C012 |
00001260: 20 34 43 20 43 43 20 46 46 20 20 20 4A 4D 50 20 | 4C CC FF JMP |
00001270: 24 46 46 43 43 00 7B 1A B8 0B 3A 00 81 1A C2 0B |$FFCC.{...:.....|
00001280: 3A 00 00 00 |:... |
..&....*******************************.A
.... DISK UTILITY.D.... BY MATT
HEW DESMOND (C) 1984......**************
*****************...... NF$(10):NF.8....
..A.1.8:. NF$(A):.A.Q.$..DIRECTORY,FORMA
T,SCRATCH......RE=NAME,INITIALISE,VALIDA
TE...8..COPY,END...B..A.50000.50020.".L.
.B:.A,B:.A.@.V.. 162,3,32,198,255,32,207
.A.`.. 255,32,210,255,208,248,169...J..
13,32,210,255,76,204,255...T.. 1300...~.
.*******************************.U....**
** WAIT FOR A KEY PRESS ****......*****
**************************.......13)"..*
PRESS A KEY *..".$....198,0.8....A$:.A$
."".1200.>.....C.D..********************
***********...N..**** READ ERROR FROM D
ISK ****...X..**************************
*****......15,8,15.K....15,A,B$,C,D.S...
15......".. DISK STATUS :";A;B$;C;D...
.... ....*******************************
.E....************ MENU. ************.J.
(..*******************************...2..
53280,6:.53281,1...<..".";...F...14)".RR
RRRRRRRRRR"...P...14)".DISK UTILITY".G.Z
.."..";...D...16)".********"...N...16)".
* MENU *"...X...16)".********"..........
..A.1.NF.6....;".";A;"..) ";".";NF$(A).=
. ..A.H...."...WHICH FUNCTION DO YOU REQ
UIRE? ";.Z....1190:A.E(A$)......A.1.A.NF
..1460...H..".";A$;"."...R..A .1570,171
0,1860,1990,2170.X....A.5.2300,2430,1520
......1460......************************
*******.,....************* END *********
****.Q....******************************
*.E...."...GOODBYE..".K......."..*******
************************...,..**********
DIRECTORY***********.Z.6..*************
******************...@..".";:PR.0...J.."
.RRRRRRRRRR"...T..".DIRECTORY:."./.^..".
PLEASE LOAD DISK":.1150.I.H..3,8,0,"$0":
.#3,A$,A$._.R..#3,A$,A$,BL$,BH$.S.|..A$.
"". 3:.1700.....BL$.BL$.G(0):BH$.BH$.G(0
)......256.F(BH$).F(BL$);......50000:.16
50.J....1150:.1300......****************
***************......*********** FORMAT
***********.9.B..**********************
*********.Q.L..".";:ID$."":DN$."".A.V.."
.RRRRRRR".R....".FORMAT:."......".PLEASE
LOAD DISK":.1150......"DISK NAME";DN$.H
....DN$."".DN$."*".DN$."$". 1710......"D
ISK ID";ID$......ID$.."".DN$.DN$.",".ID$
......1,8,15,"N0:".DN$: 1...&..1220.%.0.
.1150./.:..1300.T.D..*******************
************.Y.N..*********** SCRATCH **
*********...X..*************************
******...B..".";...L..".RRRRRRRR".K.V.."
.SCRATCH:."......".PLEASE LOAD DISK":.11
50......"NAME OF PROGRAM TO BE SCRATCHED
".'....PN$:.PN$."".1860.@....2,8,15,"S0:
".PN$: 2.J....1220.T....1150.^....1300..
.F..*******************************...P.
.********** RE-NAME ************.M.Z..**
*****************************.W....".";.
.....".RRRRRRRR"......".RE-NAME:."......
".PLEASE LOAD DISK":.1150.*...."NEW NAME
";.3....NN$.T. ..NN$."".NN$."$".NN$."*".
1990.E.*.."OLD NAME";.N.4..OL$...>..OL$.
"".OL$."$".OL$."*".1990...H..4,8,15,"R0:
".NN$."=".OL$...R. 4...\..1220.H.F..1150
.S.P.. 1300...Z..***********************
********......********* INITIALISE. ****
*****.B....*****************************
**.L....".";.`....".RRRRRRRRRRR".U....".
INITIALISE:."......".PLEASE LOAD DISK":.
1150......"...RRRRRRRRRRRRRRRRRRRRRRRR".
Y.J..".INITIALISERING DISK DRIVE"...T..5
,8,15,"INITIALISE": 5......1220......115
0......1300.8....***********************
********.]....********** VALIDATE. *****
*****......*****************************
**......".";...$..".RRRRRRRRR"......".VA
LIDATE:.".P.8..".PLEASE LOAD DISK":.1150
...B.."...RRRRRRRRRRRRRRR"...L..".VALIDA
TING DISK"...V..6,8,15,"VALIDATE": 6.&.`
..1220.0.J..1150.:.T..1300._.~..********
***********************......***********
* COPY. ************......**************
*****************......".";.A....".RRRRR
".P....".COPY:."......"PLEASE LOAD DISK"
:.1150...D.."COPY OR MERGE ?";...N..1190
.'.X..A$."M".."M":.2620.9....A$.."C".251
0.U...."C":."ORIGINAL NAME:";.^....OO$.
....OO$."".OO$."$".OO$."*".2430......"NE
W NAME:";......NM$......NN$."".NN$."$".N
N$."*".2430.Z.(.FF$."COPY0:".NN$."=0:".O
O$...2..2810...<.."HOW MANY FILES (2-4)?
";...F..1190:A.E(A$).'.P..A.2.A.4..2630.
4.Z..A$"...".L.D.MM$(1)."":MM$(2)."".D.N
.MM$(3)."":MM$(3)."".O.X..B.1.A......".F
ILENAME #";J(D(B),2);......":
";.C....".................";.Y. .
.MM$(B):T$.MM$(B)......T$."*".T$."".T$."
$".2690......B...MM$(B).",0:".MM$(B). ..
..B:.".".7.H..".NEW FILENAME:";.@.R..MM$
.A....MM$."".NF$."*".NF$."$".2760.....FF
$."COPY0:".MM$."=0:".MM$(1).MM$(2).....F
F$.FF$.MM$(3).MM$(4)......7,8,15:.7,FF$:
7.D....1220.N....1150.X....1300..."..**
*****************************.".,..*****
**************************.G.6..**** MAC
HINE CODE LISTNING.****.L.J..***********
********************.R.T.:.X.^.:...H.,C0
00 A2 03 LDX#$03...R.,C002 20 C6
FF JSR $FFC6.V.|.,C005 20 CF FF JSR
$FFCF.....,C008 20 D2 FF JSR $FFD2..
...,C00B D0 F8 BNE $C005.5...,C00D
A9 0D LDA #$0D.U...,C00F 20 D2 F
F JSR $FFD2.U...,C012 4C CC FF JMP
$FFCC.{...:...B.:...
> CLICK IMAGE PREVIEW FOR FULL MODAL