DIS/PR T&S

FILE INFORMATION

FILENAME(S): DIS/PR T&S

FILE TYPE(S): PRG

FILE SIZE: 1.8K

FIRST SEEN: 2025-12-02 00:01:56

APPEARS ON: 1 disk(s)

FILE HASH

492a4855190cb818ee045e5a8ab3c56f518f07690b21f359c0fe4c04fece93e6

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
DE GROOT	DIS/PR T&S	PRG	earthshaker	23	16	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 1D 08 8C 00 97 35  35 2C 30 3A 97 35 36 2C  |.......55,0:.56,|
00000010: 31 31 32 3A 99 C7 28 31  34 32 29 3A 9C 00 29 08  |112:..(142):..).|
00000020: AA 00 41 B2 32 38 36 37  32 00 3B 08 B4 00 87 42  |..A.28672.;....B|
00000030: 3A 8B 42 B2 39 39 39 A7  32 37 30 00 4F 08 BE 00  |:.B.999.270.O...|
00000040: 97 41 2C 42 3A 41 B2 41  AA 31 3A 89 31 38 30 00  |.A,B:A.A.1:.180.|
00000050: 72 08 0E 01 99 22 93 11  11 1D 1D 1D 1D 1D A4 A4  |r...."..........|
00000060: A4 A4 A4 A4 A4 A4 A4 A4  A4 A4 A4 A4 A4 A4 A4 A4  |................|
00000070: A4 22 00 9C 08 18 01 99  22 20 20 20 20 20 12 20  |."......"     . |
00000080: 44 49 53 50 4C 41 59 20  54 52 41 43 4B 20 41 4E  |DISPLAY TRACK AN|
00000090: 44 20 53 45 43 54 4F 52  20 11 11 22 00 C6 08 4A  |D SECTOR .."...J|
000000A0: 01 99 22 11 11 44 49 53  50 4C 41 59 20 4F 4E 20  |.."..DISPLAY ON |
000000B0: 12 53 92 43 52 45 45 4E  20 4F 52 20 12 50 92 52  |.S.CREEN OR .P.R|
000000C0: 49 4E 54 45 52 22 00 DA  08 54 01 A1 20 4A 24 3A  |INTER"...T.. J$:|
000000D0: 8B 4A 24 B2 22 22 A7 33  34 30 00 F0 08 5E 01 8B  |.J$."".340...^..|
000000E0: 4A 24 B2 22 53 22 A7 9F  34 2C 33 3A 89 34 30 30  |J$."S"..4,3:.400|
000000F0: 00 06 09 68 01 8B 4A 24  B2 22 50 22 A7 9F 34 2C  |...h..J$."P"..4,|
00000100: 34 3A 89 34 30 30 00 10  09 72 01 89 54 33 34 30  |4:.400...r..T340|
00000110: 00 2E 09 86 01 8F 20 20  2A 20 4F 50 45 4E 20 46  |......  * OPEN F|
00000120: 49 4C 45 53 20 54 4F 20  44 49 53 4B 20 2A 00 40  |ILES TO DISK *.@|
00000130: 09 90 01 9F 31 35 2C 38  2C 31 35 3A 8D 37 37 30  |....15,8,15:.770|
00000140: 00 58 09 9A 01 9F 32 2C  38 2C 32 2C 22 23 22 AA  |.X....2,8,2,"#".|
00000150: 22 30 22 3A 8D 37 37 30  00 77 09 AE 01 8F 20 2A  |"0":.770.w.... *|
00000160: 20 47 45 54 20 54 52 41  43 4B 20 41 4E 44 20 53  | GET TRACK AND S|
00000170: 45 43 54 4F 52 20 2A 00  9D 09 B8 01 97 31 39 38  |ECTOR *......198|
00000180: 2C 30 3A 99 22 11 54 52  41 43 4B 20 3A 20 22 3B  |,0:.".TRACK : ";|
00000190: 3A 8D 38 31 30 3A 54 B2  C5 28 58 24 29 00 C3 09  |:.810:T..(X$)...|
000001A0: D6 01 8B 54 B2 30 B0 54  B1 33 35 B0 58 24 B2 22  |...T.0.T.35.X$."|
000001B0: 58 22 A7 A0 32 3A A0 34  3A A0 31 35 3A 99 22 93  |X"..2:.4:.15:.".|
000001C0: 22 3A 80 00 E9 09 E0 01  99 2C 2C 22 93 53 45 43  |":.......,,".SEC|
000001D0: 54 4F 52 20 3A 20 22 3B  3A 8D 38 31 30 3A 8B 58  |TOR : ";:.810:.X|
000001E0: 24 B2 22 58 22 A7 34 34  30 00 F5 09 EA 01 53 B2  |$."X".440.....S.|
000001F0: C5 28 58 24 29 00 17 0A  F4 01 8B 4A 24 B2 22 53  |.(X$)......J$."S|
00000200: 22 A7 99 22 54 52 41 43  4B 22 54 22 53 45 43 54  |".."TRACK"T"SECT|
00000210: 4F 52 22 53 22 11 22 00  38 0A FE 01 8B 4A 24 B2  |OR"S".".8....J$.|
00000220: 22 50 22 A7 98 34 2C 22  54 52 41 43 4B 22 54 22  |"P"..4,"TRACK"T"|
00000230: 53 45 43 54 4F 52 22 53  00 58 0A 12 02 8F 20 2A  |SECTOR"S.X.... *|
00000240: 20 47 45 54 20 42 4C 4F  43 4B 20 49 4E 54 4F 20  | GET BLOCK INTO |
00000250: 4D 45 4D 4F 52 59 20 2A  00 73 0A 1C 02 98 31 35  |MEMORY *.s....15|
00000260: 2C 22 55 31 3A 32 2C 22  3B 30 3B 54 3B 53 3A 8D  |,"U1:2,";0;T;S:.|
00000270: 37 37 30 00 85 0A 26 02  98 31 35 2C 22 42 2D 50  |770...&..15,"B-P|
00000280: 3A 32 2C 31 22 00 9B 0A  30 02 98 31 35 2C 22 4D  |:2,1"...0..15,"M|
00000290: 2D 52 22 C7 28 30 29 C7  28 33 29 00 B2 0A 3A 02  |-R".(0).(3)...:.|
000002A0: A1 23 31 35 2C 41 24 3A  41 24 B2 41 24 AA C7 28  |.#15,A$:A$.A$..(|
000002B0: 30 29 00 CA 0A 44 02 97  33 30 37 32 30 2C C6 28  |0)...D..30720,.(|
000002C0: 41 24 29 3A 9E 32 38 36  37 32 00 F7 0A 58 02 8F  |A$):.28672...X..|
000002D0: 20 2A 20 44 49 53 50 4C  41 59 20 42 4C 4F 43 4B  | * DISPLAY BLOCK|
000002E0: 20 4F 4E 20 53 43 52 45  45 4E 20 4F 52 20 50 52  | ON SCREEN OR PR|
000002F0: 49 4E 54 45 52 20 2A 00  05 0B 62 02 9D 34 3A 9E  |INTER *...b..4:.|
00000300: 32 38 36 39 31 00 15 0B  6C 02 8B 4A 24 B2 22 50  |28691...l..J$."P|
00000310: 22 A7 36 34 30 00 28 0B  76 02 A1 5A 24 3A 8B 5A  |".640.(.v..Z$:.Z|
00000320: 24 B2 22 22 A7 36 33 30  00 36 0B 80 02 9E 32 38  |$."".630.6....28|
00000330: 36 39 39 3A 98 34 00 5A  0B 94 02 8F 20 2A 20 47  |699:.4.Z.... * G|
00000340: 45 54 20 4E 45 58 54 20  54 52 41 43 4B 20 41 4E  |ET NEXT TRACK AN|
00000350: 44 20 53 45 43 54 4F 52  20 2A 00 76 0B 9E 02 54  |D SECTOR *.v...T|
00000360: 31 B2 C2 28 33 30 37 32  30 29 3A 53 31 B2 C2 28  |1..(30720):S1..(|
00000370: 33 30 37 32 31 29 00 97  0B A8 02 8B 54 31 B2 30  |30721)......T1.0|
00000380: A7 99 22 11 11 20 45 4E  44 20 4F 46 20 46 49 4C  |..".. END OF FIL|
00000390: 45 22 3A 89 34 34 30 00  BB 0B B2 02 99 22 11 4E  |E":.440......".N|
000003A0: 45 58 54 20 54 52 41 43  4B 2C 20 53 45 43 54 4F  |EXT TRACK, SECTO|
000003B0: 52 20 3A 20 22 3B 54 31  2C 53 31 00 EA 0B BC 02  |R : ";T1,S1.....|
000003C0: 99 22 44 4F 20 59 4F 55  20 57 41 4E 54 20 54 48  |."DO YOU WANT TH|
000003D0: 45 20 4E 45 58 54 20 54  52 41 43 4B 20 41 4E 44  |E NEXT TRACK AND|
000003E0: 20 53 45 43 54 4F 52 3F  20 22 00 FD 0B C6 02 A1  | SECTOR? "......|
000003F0: 5A 24 3A 8B 5A 24 B2 22  22 A7 37 31 30 00 20 0C  |Z$:.Z$."".710. .|
00000400: D0 02 8B 5A 24 B2 22 59  22 B0 20 5A 24 B2 22 20  |...Z$."Y". Z$." |
00000410: 22 A7 54 B2 54 31 3A 53  B2 53 31 3A 89 35 30 30  |".T.T1:S.S1:.500|
00000420: 00 30 0C DA 02 8B 5A 24  B2 22 4E 22 A7 34 34 30  |.0....Z$."N".440|
00000430: 00 39 0C E4 02 89 37 31  30 00 5C 0C F8 02 8F 20  |.9....710.\.... |
00000440: 2A 20 43 48 45 43 4B 20  44 49 53 4B 20 45 52 52  |* CHECK DISK ERR|
00000450: 4F 52 20 43 48 41 4E 4E  45 4C 20 2A 00 79 0C 02  |OR CHANNEL *.y..|
00000460: 03 84 31 35 2C 45 4E 2C  45 4D 24 2C 45 54 2C 45  |..15,EN,EM$,ET,E|
00000470: 53 3A 8B 45 4E B2 30 A7  8E 00 A5 0C 0C 03 99 22  |S:.EN.0........"|
00000480: 12 44 49 53 4B 20 45 52  52 4F 52 92 22 45 4E 2C  |.DISK ERROR."EN,|
00000490: 45 4D 24 2C 45 54 2C 45  53 3A A0 32 3A A0 34 3A  |EM$,ET,ES:.2:.4:|
000004A0: A0 31 35 3A 80 00 C2 0C  20 03 8F 20 2A 20 42 4F  |.15:.... .. * BO|
000004B0: 4D 42 20 50 52 4F 4F 46  20 52 4F 55 54 49 4E 45  |MB PROOF ROUTINE|
000004C0: 20 2A 00 D8 0C 2A 03 9F  39 2C 30 3A 84 39 2C 58  | *...*..9,0:.9,X|
000004D0: 24 3A A0 39 3A 99 3A 8E  00 F4 0C 3E 03 8F 20 2A  |$:.9:.:....>.. *|
000004E0: 20 4D 41 43 48 49 4E 45  20 43 4F 44 45 20 44 41  | MACHINE CODE DA|
000004F0: 54 41 20 2A 00 32 0D 48  03 83 20 31 36 32 2C 32  |TA *.2.H.. 162,2|
00000500: 2C 33 32 2C 31 39 38 2C  32 35 35 2C 31 36 30 2C  |,32,198,255,160,|
00000510: 31 2C 33 32 2C 32 30 37  2C 32 35 35 2C 31 35 33  |1,32,207,255,153|
00000520: 2C 30 2C 31 32 30 2C 32  30 30 2C 32 30 38 2C 32  |,0,120,200,208,2|
00000530: 34 37 00 73 0D 52 03 83  37 36 2C 32 30 34 2C 32  |47.s.R..76,204,2|
00000540: 35 35 2C 31 36 39 2C 31  32 30 2C 31 33 33 2C 31  |55,169,120,133,1|
00000550: 38 31 2C 31 36 39 2C 30  2C 31 33 33 2C 31 38 30  |81,169,0,133,180|
00000560: 2C 31 36 35 2C 31 38 30  2C 33 32 2C 31 32 36 2C  |,165,180,32,126,|
00000570: 31 31 32 00 B2 0D 5C 03  83 31 36 39 2C 33 32 2C  |112...\..169,32,|
00000580: 33 32 2C 32 31 30 2C 32  35 35 2C 31 36 39 2C 35  |32,210,255,169,5|
00000590: 38 2C 33 32 2C 32 31 30  2C 32 35 35 2C 31 36 39  |8,32,210,255,169|
000005A0: 2C 33 32 2C 33 32 2C 32  31 30 2C 32 35 35 2C 31  |,32,32,210,255,1|
000005B0: 36 30 00 F0 0D 66 03 83  30 2C 31 37 37 2C 31 38  |60...f..0,177,18|
000005C0: 30 2C 33 32 2C 31 32 36  2C 31 31 32 2C 31 36 39  |0,32,126,112,169|
000005D0: 2C 33 32 2C 33 32 2C 32  31 30 2C 32 35 35 2C 32  |,32,32,210,255,2|
000005E0: 30 30 2C 31 39 32 2C 38  2C 32 30 38 2C 32 34 31  |00,192,8,208,241|
000005F0: 00 2E 0E 70 03 83 31 36  30 2C 30 2C 31 36 39 2C  |...p..160,0,169,|
00000600: 35 38 2C 33 32 2C 32 31  30 2C 32 35 35 2C 31 36  |58,32,210,255,16|
00000610: 39 2C 33 32 2C 33 32 2C  32 31 30 2C 32 35 35 2C  |9,32,32,210,255,|
00000620: 31 37 37 2C 31 38 30 2C  32 30 31 2C 33 32 00 6B  |177,180,201,32.k|
00000630: 0E 7A 03 83 31 34 34 2C  31 32 2C 32 30 31 2C 39  |.z..144,12,201,9|
00000640: 36 2C 31 34 34 2C 31 30  2C 32 30 31 2C 31 36 30  |6,144,10,201,160|
00000650: 2C 31 34 34 2C 34 2C 32  30 31 2C 32 32 34 2C 31  |,144,4,201,224,1|
00000660: 34 34 2C 32 2C 31 36 39  2C 33 32 00 AA 0E 84 03  |44,2,169,32.....|
00000670: 83 33 32 2C 32 31 30 2C  32 35 35 2C 32 30 30 2C  |.32,210,255,200,|
00000680: 31 39 32 2C 38 2C 32 30  38 2C 32 32 38 2C 31 36  |192,8,208,228,16|
00000690: 39 2C 31 33 2C 33 32 2C  32 31 30 2C 32 35 35 2C  |9,13,32,210,255,|
000006A0: 32 34 2C 31 36 35 2C 31  38 30 00 E5 0E 8E 03 83  |24,165,180......|
000006B0: 31 30 35 2C 38 2C 31 33  33 2C 31 38 30 2C 32 30  |105,8,133,180,20|
000006C0: 31 2C 30 2C 32 30 38 2C  31 2C 39 36 2C 32 30 31  |1,0,208,1,96,201|
000006D0: 2C 31 32 38 2C 32 30 38  2C 31 35 38 2C 39 36 2C  |,128,208,158,96,|
000006E0: 37 32 2C 37 34 00 21 0F  98 03 83 37 34 2C 37 34  |72,74.!....74,74|
000006F0: 2C 37 34 2C 33 32 2C 31  FF FF FF FF FF FF FF FF  |,74,32,1........|
00000700: FF FF FF FF FF FF FF FF  FF FF FF FF FF FF FF FF  |................|
00000710: FF FF C0 86 C4 C4 40 86  4E 40 86 C4 44 FF 86 44  |......@.N@..D..D|
00000720: 48 80 A8 07 08 0C FF 40  C4 C0 86 40 CE CE 86 C4  |H......@...@....|
00000730: C0 CA 86 4E 4A 86 40 C4  C0 86 40 CE CE 86 40 CA  |...NJ.@...@...@.|
00000740: 86 C4 C0 CE 86 40 CA 4A  86 C4 CA CA 86 40 86 C4  |.....@.J.....@..|
00000750: C0 CE 86 4A 86 C4 C0 CE  86 CE FF 86 FF 4A 86 FF  |...J.........J..|
00000760: FF FF 88 88 80                                    |.....           |

.......55,0:.56,112:.G(142):..)...A.2867
2.;....B:.B.999.270.O....A,B:A.A.1:.180.
R...."..........................."......
"     . DISPLAY TRACK AND SECTOR ..".F.J
.."..DISPLAY ON .S.CREEN OR .P.RINTER".Z
.T.. J$:.J$."".340...^..J$."S"..4,3:.400
...H..J$."P"..4,4:.400...R..T340......  
* OPEN FILES TO DISK *.@....15,8,15:.770
.X....2,8,2,"#"."0":.770.W.... * GET TRA
CK AND SECTOR *......198,0:.".TRACK : ";
:.810:T.E(X$).C.V..T.0.T.35.X$."X". 2: 4
: 15:.".":.......,,".SECTOR : ";:.810:.X
$."X".440.....S.E(X$)......J$."S".."TRAC
K"T"SECTOR"S".".8....J$."P"..4,"TRACK"T"
SECTOR"S.X.... * GET BLOCK INTO MEMORY *
.S....15,"U1:2,";0;T;S:.770...&..15,"B-P
:2,1"...0..15,"M-R"G(0)G(3)...:..#15,A$:
A$.A$.G(0).J.D..30720,F(A$):.28672...X..
 * DISPLAY BLOCK ON SCREEN OR PRINTER *.
..B..4:.28691...L..J$."P".640.(.V..Z$:.Z
$."".630.6....28699:.4.Z.... * GET NEXT 
TRACK AND SECTOR *.V...T1.B(30720):S1.B(
30721)......T1.0..".. END OF FILE":.440.
.....".NEXT TRACK, SECTOR : ";T1,S1.....
."DO YOU WANT THE NEXT TRACK AND SECTOR?
 "...F..Z$:.Z$."".710. .P..Z$."Y". Z$." 
".T.T1:S.S1:.500.0.Z..Z$."N".440.9....71
0.\.... * CHECK DISK ERROR CHANNEL *.Y..
..15,EN,EM$,ET,ES:.EN.0........".DISK ER
ROR."EN,EM$,ET,ES: 2: 4: 15:..B. .. * BO
MB PROOF ROUTINE *.X.*..9,0:.9,X$: 9:.:.
...>.. * MACHINE CODE DATA *.2.H.. 162,2
,32,198,255,160,1,32,207,255,153,0,120,2
00,208,247.S.R..76,204,255,169,120,133,1
81,169,0,133,180,165,180,32,126,112...\.
.169,32,32,210,255,169,58,32,210,255,169
,32,32,210,255,160...F..0,177,180,32,126
,112,169,32,32,210,255,200,192,8,208,241
...P..160,0,169,58,32,210,255,169,32,32,
210,255,177,180,201,32.K.Z..144,12,201,9
6,144,10,201,160,144,4,201,224,144,2,169
,32......32,210,255,200,192,8,208,228,16
9,13,32,210,255,24,165,180......105,8,13
3,180,201,0,208,1,96,201,128,208,158,96,
72,74.!....74,74,74,32,1................
............DD@.N@.DD..DH......@D..@NN.D
.J.NJ.@D..@NN.@J.D.N.@JJ.DJJ.@.D.N.J.D.N
.N...J.......

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL