> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1A 08 64 00 44 56 B2 C2 28 31 38 36 29 3A |....d.DV..(186):|
00000010: 8B 44 56 B3 38 A7 44 56 B2 38 00 49 08 6E 00 99 |.DV.8.DV.8.I.n..|
00000020: 22 93 0E D4 48 49 53 20 50 52 4F 47 52 41 4D 20 |"...HIS PROGRAM |
00000030: 57 52 49 54 45 53 20 41 20 44 49 53 4B 20 46 49 |WRITES A DISK FI|
00000040: 4C 45 20 43 41 4C 4C 45 44 00 77 08 78 00 99 22 |LE CALLED.w.x.."|
00000050: 27 D5 D3 C5 D2 2E D0 C1 D2 D4 2E C9 CE C6 CF 27 |'..............'|
00000060: 20 54 4F 20 54 48 45 20 43 55 52 52 45 4E 54 20 | TO THE CURRENT |
00000070: 44 52 49 56 45 2E 22 00 A6 08 82 00 99 22 11 D4 |DRIVE."......"..|
00000080: 48 49 53 20 49 4E 46 4F 20 46 49 4C 45 20 49 53 |HIS INFO FILE IS|
00000090: 20 55 53 45 44 20 42 59 20 56 45 52 53 49 4F 4E | USED BY VERSION|
000000A0: 20 34 20 4F 46 22 00 D4 08 8C 00 99 20 22 C3 CD | 4 OF"...... "..|
000000B0: C4 A0 D0 C1 D2 D4 A0 D6 C9 C5 D7 C5 D2 20 54 4F |............. TO|
000000C0: 20 44 45 43 49 44 45 20 57 48 49 43 48 20 46 49 | DECIDE WHICH FI|
000000D0: 45 4C 44 53 00 F9 08 96 00 99 20 22 54 4F 20 4F |ELDS...... "TO O|
000000E0: 55 54 50 55 54 20 54 4F 20 44 49 53 4B 20 4F 52 |UTPUT TO DISK OR|
000000F0: 20 50 52 49 4E 54 45 52 2E 00 2A 09 A0 00 99 20 | PRINTER..*.... |
00000100: 22 11 D7 48 45 4E 20 54 48 45 20 50 52 4F 47 52 |"..HEN THE PROGR|
00000110: 41 4D 20 49 53 20 4C 4F 41 44 45 44 20 41 4E 44 |AM IS LOADED AND|
00000120: 20 52 55 4E 2C 20 54 48 45 22 00 58 09 AA 00 99 | RUN, THE".X....|
00000130: 20 22 43 55 52 52 45 4E 54 20 50 41 52 54 49 54 | "CURRENT PARTIT|
00000140: 49 4F 4E 20 4F 46 20 54 48 45 20 43 55 52 52 45 |ION OF THE CURRE|
00000150: 4E 54 20 44 52 49 56 45 00 87 09 B4 00 99 20 22 |NT DRIVE...... "|
00000160: 49 53 20 50 4F 4C 4C 45 44 20 46 4F 52 20 54 48 |IS POLLED FOR TH|
00000170: 45 20 46 49 4C 45 20 27 D5 D3 C5 D2 2E D0 C1 D2 |E FILE '........|
00000180: D4 2E C9 CE C6 CF 27 00 B5 09 BE 00 99 20 22 C9 |......'...... ".|
00000190: 46 20 49 54 20 45 58 49 53 54 53 2C 20 54 48 45 |F IT EXISTS, THE|
000001A0: 20 46 49 45 4C 44 20 44 41 54 41 20 49 53 20 4C | FIELD DATA IS L|
000001B0: 4F 41 44 45 44 00 E3 09 C8 00 99 20 22 49 4E 54 |OADED...... "INT|
000001C0: 4F 20 54 48 45 20 50 52 4F 47 52 41 4D 2E 20 20 |O THE PROGRAM. |
000001D0: C9 46 20 4E 4F 54 2C 20 54 48 45 20 44 45 46 41 |.F NOT, THE DEFA|
000001E0: 55 4C 54 00 FD 09 D2 00 99 20 22 53 45 54 54 49 |ULT...... "SETTI|
000001F0: 4E 47 53 20 41 52 45 20 55 53 45 44 2E 00 2D 0A |NGS ARE USED..-.|
00000200: DC 00 99 20 22 11 D4 4F 20 43 48 41 4E 47 45 20 |... "..O CHANGE |
00000210: 54 48 45 20 44 45 46 41 55 4C 54 20 53 45 54 54 |THE DEFAULT SETT|
00000220: 49 4E 47 53 20 46 52 4F 4D 20 4D 59 22 00 5B 0A |INGS FROM MY".[.|
00000230: E6 00 99 20 22 50 52 45 46 45 52 52 45 44 20 53 |... "PREFERRED S|
00000240: 45 54 55 50 20 54 4F 20 59 4F 55 52 20 4F 57 4E |ETUP TO YOUR OWN|
00000250: 2C 20 52 45 41 52 52 41 4E 47 45 00 8A 0A F0 00 |, REARRANGE.....|
00000260: 99 20 22 54 48 45 20 44 41 54 41 20 53 54 41 54 |. "THE DATA STAT|
00000270: 45 4D 45 4E 54 53 20 49 4E 20 4C 49 4E 45 53 20 |EMENTS IN LINES |
00000280: 34 36 30 2B 2E 20 20 D9 4F 55 00 B8 0A FA 00 99 |460+. .OU......|
00000290: 20 22 4D 41 59 20 44 55 50 4C 49 43 41 54 45 20 | "MAY DUPLICATE |
000002A0: 46 49 45 4C 44 53 2C 20 42 55 54 20 44 4F 4E 27 |FIELDS, BUT DON'|
000002B0: 54 20 45 58 43 45 45 44 00 E4 0A 04 01 99 20 22 |T EXCEED...... "|
000002C0: 33 31 20 54 4F 54 41 4C 20 46 49 45 4C 44 53 2C |31 TOTAL FIELDS,|
000002D0: 20 41 4E 44 20 44 4F 4E 27 54 20 46 4F 52 47 45 | AND DON'T FORGE|
000002E0: 54 20 54 4F 00 10 0B 0E 01 99 20 22 55 53 45 20 |T TO...... "USE |
000002F0: 2D 31 20 41 53 20 54 48 45 20 4C 41 53 54 20 44 |-1 AS THE LAST D|
00000300: 41 54 41 20 53 54 41 54 45 4D 45 4E 54 2E 11 22 |ATA STATEMENT.."|
00000310: 00 3D 0B 18 01 99 20 22 CE 4F 54 45 3A 20 D6 49 |.=.... ".OTE: .I|
00000320: 52 54 55 41 4C 20 41 44 44 52 45 53 53 2F 42 4C |RTUAL ADDRESS/BL|
00000330: 4F 43 4B 53 20 57 49 4C 4C 20 4E 4F 54 00 6D 0B |OCKS WILL NOT.m.|
00000340: 22 01 99 20 22 20 20 20 20 20 20 50 52 49 4E 54 |".. " PRINT|
00000350: 20 49 46 20 42 4C 4F 43 4B 20 53 49 5A 45 20 3D | IF BLOCK SIZE =|
00000360: 20 32 35 36 20 28 52 4C 2F 52 44 29 11 00 9E 0B | 256 (RL/RD)....|
00000370: 2C 01 99 20 22 50 52 45 53 53 20 4B 45 59 20 54 |,.. "PRESS KEY T|
00000380: 4F 20 57 52 49 54 45 2E 2E 2E 20 3C 52 55 4E 2F |O WRITE... <RUN/|
00000390: 53 54 4F 50 3E 20 41 42 4F 52 54 53 22 3B 00 B5 |STOP> ABORTS";..|
000003A0: 0B 36 01 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 |.6..198,0:.198,1|
000003B0: 3A A1 41 24 3A 00 BB 0B 40 01 3A 00 DC 0B 4A 01 |:.A$:...@.:...J.|
000003C0: 43 54 B2 30 3A 86 20 4E 28 33 31 29 3A 20 8F 20 |CT.0:. N(31): . |
000003D0: 4D 41 58 20 45 4C 45 4D 45 4E 54 53 00 FC 0B 54 |MAX ELEMENTS...T|
000003E0: 01 43 54 B2 43 54 AA 31 3A 87 4E 28 43 54 29 3A |.CT.CT.1:.N(CT):|
000003F0: 8B 4E 28 43 54 29 B1 30 A7 33 34 30 00 10 0C 5E |.N(CT).0.340...^|
00000400: 01 43 54 B2 43 54 AB 31 3A 4E 28 30 29 B2 43 54 |.CT.CT.1:N(0).CT|
00000410: 00 16 0C 68 01 3A 00 37 0C 72 01 9F 35 2C 44 56 |...h.:.7.r..5,DV|
00000420: 2C 35 2C 22 55 53 45 52 2E 50 41 52 54 2E 49 4E |,5,"USER.PART.IN|
00000430: 46 4F 2C 50 2C 57 22 00 3D 0C 7C 01 3A 00 53 0C |FO,P,W".=.|.:.S.|
00000440: 86 01 98 35 2C C7 28 31 32 38 29 3B C7 28 31 39 |...5,.(128);.(19|
00000450: 34 29 3B 00 59 0C 90 01 3A 00 73 0C 9A 01 81 58 |4);.Y...:.s....X|
00000460: B2 30 A4 43 54 3A 98 35 2C C7 28 4E 28 58 29 29 |.0.CT:.5,.(N(X))|
00000470: 3B 3A 82 00 7A 0C A4 01 A0 35 00 80 0C AE 01 3A |;:..z....5.....:|
00000480: 00 A4 0C B8 01 8F 20 20 23 23 20 20 20 57 49 44 |...... ## WID|
00000490: 54 48 20 46 49 45 4C 44 20 44 45 53 43 52 49 50 |TH FIELD DESCRIP|
000004A0: 54 49 4F 4E 00 CA 0C C2 01 8F 20 20 2D 2D 20 20 |TION...... -- |
000004B0: 20 20 20 20 20 2D 20 2D 2D 2D 2D 2D 2D 2D 2D 2D | - ---------|
000004C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 E0 0C CC 01 83 |----------......|
000004D0: 20 20 32 20 3A 8F 20 20 34 20 4E 55 4D 42 45 52 | 2 :. 4 NUMBER|
000004E0: 00 FE 0C D6 01 83 20 20 33 20 3A 8F 20 31 37 20 |...... 3 :. 17 |
000004F0: 50 41 52 54 49 54 49 4F 4E 20 4E 41 4D 45 00 1C |PARTITION NAME..|
00000500: 0D E0 01 83 20 20 34 20 3A 8F 20 32 30 20 48 45 |.... 4 :. 20 HE|
00000510: 41 44 45 52 20 4E 41 4D 45 2F 49 44 00 30 0D EA |ADER NAME/ID.0..|
00000520: 01 83 20 20 35 20 3A 8F 20 20 35 20 54 59 50 45 |.. 5 :. 5 TYPE|
00000530: 00 4B 0D F4 01 83 20 20 38 20 3A 8F 20 20 37 20 |.K.... 8 :. 7 |
00000540: 42 4C 4F 43 4B 53 20 46 52 45 45 00 61 0D FE 01 |BLOCKS FREE.a...|
00000550: 83 20 20 37 20 3A 8F 20 20 35 20 54 52 41 43 4B |. 7 :. 5 TRACK|
00000560: 53 00 80 0D 08 02 83 20 20 39 20 3A 8F 20 20 38 |S...... 9 :. 8|
00000570: 20 56 49 52 54 55 41 4C 20 41 44 44 52 45 53 53 | VIRTUAL ADDRESS|
00000580: 00 A2 0D 12 02 83 20 31 30 20 3A 8F 20 20 38 20 |...... 10 :. 8 |
00000590: 56 49 52 54 55 41 4C 20 42 4C 4F 43 4B 20 53 49 |VIRTUAL BLOCK SI|
000005A0: 5A 45 00 C5 0D 1C 02 8F 20 20 20 20 20 20 20 20 |ZE...... |
000005B0: 20 20 37 34 2D 45 4E 44 20 4F 46 20 38 30 20 43 | 74-END OF 80 C|
000005C0: 4F 4C 55 4D 4E 00 CB 0D 26 02 3A 00 ED 0D 30 02 |OLUMN...&.:...0.|
000005D0: 83 20 31 31 20 3A 8F 20 20 38 20 41 43 54 55 41 |. 11 :. 8 ACTUA|
000005E0: 4C 20 53 59 53 54 45 4D 20 41 44 44 52 00 0E 0E |L SYSTEM ADDR...|
000005F0: 3A 02 83 20 31 32 20 3A 8F 20 20 38 20 41 43 54 |:.. 12 :. 8 ACT|
00000600: 55 41 4C 20 42 4C 4F 43 4B 20 53 49 5A 45 00 31 |UAL BLOCK SIZE.1|
00000610: 0E 44 02 83 20 31 33 20 3A 8F 20 31 30 20 53 54 |.D.. 13 :. 10 ST|
00000620: 41 52 54 20 41 44 44 52 20 49 4E 20 42 59 54 45 |ART ADDR IN BYTE|
00000630: 53 00 53 0E 4E 02 83 20 31 34 20 3A 8F 20 31 30 |S.S.N.. 14 :. 10|
00000640: 20 50 41 52 54 20 53 49 5A 45 20 49 4E 20 42 59 | PART SIZE IN BY|
00000650: 54 45 53 00 69 0E 58 02 83 20 20 32 20 3A 8F 20 |TES.i.X.. 2 :. |
00000660: 20 34 20 4E 55 4D 42 45 52 00 88 0E 62 02 83 20 | 4 NUMBER...b.. |
00000670: 2D 31 20 3A 8F 20 20 20 20 54 45 52 4D 49 4E 41 |-1 :. TERMINA|
00000680: 54 4F 52 20 42 59 54 45 00 8E 0E 6C 02 3A 00 B1 |TOR BYTE...l.:..|
00000690: 0E 76 02 83 20 20 31 20 3A 8F 20 20 33 20 4E 4F |.v.. 1 :. 3 NO|
000006A0: 54 20 55 53 45 44 3A 53 4F 52 54 20 43 4F 55 4E |T USED:SORT COUN|
000006B0: 54 00 D4 0E 80 02 83 20 20 36 20 3A 8F 20 20 31 |T...... 6 :. 1|
000006C0: 20 4E 4F 54 20 55 53 45 44 3A 42 52 49 45 46 20 | NOT USED:BRIEF |
000006D0: 54 59 50 45 00 DA 0E 8A 02 3A 00 E0 0E 94 02 3A |TYPE.....:.....:|
000006E0: 00 E6 0E 9E 02 3A 00 EC 0E A8 02 3A 00 F2 0E B2 |.....:.....:....|
000006F0: 02 3A 00 F8 0E BC 02 3A 00 00 00 |.:.....:... |
....D.DV.B(186):.DV.8.DV.8.I.N.."..THIS
PROGRAM WRITES A DISK FILE CALLED.W.X.."
'USER.PART.INFO' TO THE CURRENT DRIVE.".
.....".THIS INFO FILE IS USED BY VERSION
4 OF".T.... "CMD PART VIEWER TO DECIDE
WHICH FIELDS...... "TO OUTPUT TO DISK OR
PRINTER..*. .. ".WHEN THE PROGRAM IS LO
ADED AND RUN, THE".X.... "CURRENT PARTIT
ION OF THE CURRENT DRIVE...... "IS POLLE
D FOR THE FILE 'USER.PART.INFO'...... "I
F IT EXISTS, THE FIELD DATA IS LOADED...
H.. "INTO THE PROGRAM. IF NOT, THE DEFA
ULT...R.. "SETTINGS ARE USED..-.... ".TO
CHANGE THE DEFAULT SETTINGS FROM MY".[.
... "PREFERRED SETUP TO YOUR OWN, REARRA
NGE...... "THE DATA STATEMENTS IN LINES
460+. YOU...... "MAY DUPLICATE FIELDS,
BUT DON'T EXCEED...... "31 TOTAL FIELDS,
AND DON'T FORGET TO...... "USE -1 AS TH
E LAST DATA STATEMENT..".=.... "NOTE: VI
RTUAL ADDRESS/BLOCKS WILL NOT.M.".. "
PRINT IF BLOCK SIZE = 256 (RL/RD)....
,.. "PRESS KEY TO WRITE... <RUN/STOP> AB
ORTS";...6..198,0:.198,1:.A$:...@.:...J.
CT.0:. N(31): . MAX ELEMENTS...T.CT.CT.1
:.N(CT):.N(CT).0.340...^.CT.CT.1:N(0).CT
...H.:.7.R..5,DV,5,"USER.PART.INFO,P,W".
=.|.:.S....5,G(128);G(194);.Y...:.S....X
.0.CT:.5,G(N(X));:..Z... 5.....:......
## WIDTH FIELD DESCRIPTION.J.B.. --
- -------------------...L.. 2 :.
4 NUMBER...V.. 3 :. 17 PARTITION NAME..
.... 4 :. 20 HEADER NAME/ID.0.... 5 :.
5 TYPE.K.... 8 :. 7 BLOCKS FREE.A...
. 7 :. 5 TRACKS...... 9 :. 8 VIRTUAL
ADDRESS...... 10 :. 8 VIRTUAL BLOCK SI
ZE.E.... 74-END OF 80 COLUMN.K.
&.:...0.. 11 :. 8 ACTUAL SYSTEM ADDR...
:.. 12 :. 8 ACTUAL BLOCK SIZE.1.D.. 13
:. 10 START ADDR IN BYTES.S.N.. 14 :. 10
PART SIZE IN BYTES.I.X.. 2 :. 4 NUMBE
R...B.. -1 :. TERMINATOR BYTE...L.:..
.V.. 1 :. 3 NOT USED:SORT COUNT.T....
6 :. 1 NOT USED:BRIEF TYPE.Z...:.....:
.....:.....:.....:.....:...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL