> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1D 08 08 00 97 35 33 32 38 30 2C 30 3A 97 |.......53280,0:.|
00000010: 35 33 32 38 31 2C 30 3A 99 22 93 9E 22 00 47 08 |53281,0:."..".G.|
00000020: 0A 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...*************|
00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000040: 2A 2A 2A 2A 2A 2A 2A 00 4E 08 0B 00 8F 2A 00 72 |*******.N....*.r|
00000050: 08 0C 00 8F 2A 20 43 48 41 4E 47 45 20 43 42 4D |....* CHANGE CBM|
00000060: 20 44 49 53 4B 20 20 20 53 45 50 54 2F 31 34 2F | DISK SEPT/14/|
00000070: 38 31 00 79 08 0D 00 8F 2A 00 A0 08 0E 00 8F 2A |81.y....*......*|
00000080: 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 43 48 | THIS PROGRAM CH|
00000090: 41 4E 47 45 53 20 54 48 45 20 44 49 53 4B 27 53 |ANGES THE DISK'S|
000000A0: 00 C8 08 0F 00 8F 2A 20 44 45 56 49 43 45 20 4E |......* DEVICE N|
000000B0: 55 4D 42 45 52 20 54 4F 20 54 48 45 20 4E 55 4D |UMBER TO THE NUM|
000000C0: 42 45 52 20 54 48 41 54 00 EE 08 10 00 8F 2A 20 |BER THAT......* |
000000D0: 49 53 20 47 49 56 45 4E 20 42 59 20 54 48 45 20 |IS GIVEN BY THE |
000000E0: 4F 50 45 52 41 54 4F 52 2E 20 54 48 49 53 00 15 |OPERATOR. THIS..|
000000F0: 09 11 00 8F 2A 20 43 41 4E 20 52 41 4E 47 45 20 |....* CAN RANGE |
00000100: 46 52 4F 4D 20 39 20 54 4F 20 31 35 2E 20 54 48 |FROM 9 TO 15. TH|
00000110: 49 53 20 49 53 00 3B 09 12 00 8F 2A 20 41 20 53 |IS IS.;....* A S|
00000120: 4F 46 54 20 43 48 41 4E 47 45 3B 20 54 48 55 53 |OFT CHANGE; THUS|
00000130: 20 41 20 52 45 53 45 54 20 4F 46 00 64 09 13 00 | A RESET OF.d...|
00000140: 8F 2A 20 54 48 45 20 44 49 53 4B 20 57 49 4C 4C |.* THE DISK WILL|
00000150: 20 43 41 55 53 45 20 49 54 20 54 4F 20 52 45 53 | CAUSE IT TO RES|
00000160: 54 4F 52 45 00 86 09 14 00 8F 2A 20 54 4F 20 54 |TORE......* TO T|
00000170: 48 45 20 48 41 52 44 20 44 45 56 49 43 45 20 4E |HE HARD DEVICE N|
00000180: 55 4D 42 45 52 2E 00 8D 09 15 00 8F 2A 00 B3 09 |UMBER.......*...|
00000190: 16 00 8F 2A 20 54 48 49 53 20 50 52 4F 47 52 41 |...* THIS PROGRA|
000001A0: 4D 20 49 53 20 41 50 50 4C 49 43 41 42 4C 45 20 |M IS APPLICABLE |
000001B0: 46 4F 52 00 D2 09 17 00 8F 2A 20 41 4E 59 20 32 |FOR......* ANY 2|
000001C0: 30 34 30 2C 20 34 30 34 30 20 4F 52 20 38 30 35 |040, 4040 OR 805|
000001D0: 30 2E 00 D9 09 18 00 8F 2A 00 00 0A 19 00 8F 2A |0.......*......*|
000001E0: 20 54 48 49 53 20 56 45 52 53 49 4F 4E 20 42 59 | THIS VERSION BY|
000001F0: 20 4A 49 4D 20 42 55 54 54 45 52 46 49 45 4C 44 | JIM BUTTERFIELD|
00000200: 00 07 0A 1A 00 8F 2A 00 31 0A 1B 00 8F 2A 2A 2A |......*.1....***|
00000210: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000220: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000230: 2A 00 43 0A 63 00 83 20 31 32 2C 35 30 2C 31 31 |*.C.c.. 12,50,11|
00000240: 39 2C 30 00 5F 0A 64 00 85 22 4F 4C 44 20 44 45 |9,0._.d.."OLD DE|
00000250: 56 49 43 45 20 4E 55 4D 42 45 52 22 3B 44 4F 00 |VICE NUMBER";DO.|
00000260: 76 0A 6E 00 8B 44 4F B3 38 20 B0 20 44 4F B1 31 |v.n..DO.8 . DO.1|
00000270: 35 20 A7 31 30 30 00 92 0A 96 00 85 22 4E 45 57 |5 .100......"NEW|
00000280: 20 44 45 56 49 43 45 20 4E 55 4D 42 45 52 22 3B | DEVICE NUMBER";|
00000290: 44 4E 00 A9 0A A0 00 8B 44 4E B3 38 20 B0 20 44 |DN......DN.8 . D|
000002A0: 4E B1 31 35 20 A7 31 35 30 00 C9 0A C8 00 9F 31 |N.15 .150......1|
000002B0: 35 2C 44 4F 2C 31 35 3A 8F 20 43 4F 4D 4D 41 4E |5,DO,15:. COMMAN|
000002C0: 44 20 43 48 41 4E 4E 45 4C 00 E5 0A D2 00 41 24 |D CHANNEL.....A$|
000002D0: B2 C7 28 44 4F AA 33 32 29 3A 42 24 B2 C7 28 44 |..(DO.32):B$..(D|
000002E0: 4F AA 36 34 29 00 0E 0B DC 00 87 41 3A 8B 41 B2 |O.64)......A:.A.|
000002F0: 30 A7 99 22 44 49 53 4B 20 4E 4F 54 20 52 45 43 |0.."DISK NOT REC|
00000300: 4F 47 4E 49 5A 45 44 21 22 3A 89 33 31 30 00 38 |OGNIZED!":.310.8|
00000310: 0B E6 00 98 31 35 2C 22 4D 2D 52 22 C7 28 41 29 |....15,"M-R".(A)|
00000320: C7 28 30 29 3A A1 23 31 35 2C 58 24 3A 8B 58 24 |.(0):.#15,X$:.X$|
00000330: B3 B1 41 24 89 32 32 30 00 64 0B F0 00 98 31 35 |..A$.220.d....15|
00000340: 2C 22 4D 2D 52 22 C7 28 41 AA 31 29 C7 28 30 29 |,"M-R".(A.1).(0)|
00000350: 3A A1 23 31 35 2C 58 24 3A 8B 58 24 B3 B1 42 24 |:.#15,X$:.X$..B$|
00000360: 89 32 32 30 00 8E 0B 2C 01 98 31 35 2C 22 4D 2D |.220...,..15,"M-|
00000370: 57 22 C7 28 41 29 C7 28 30 29 C7 28 32 29 C7 28 |W".(A).(0).(2).(|
00000380: 44 4E AA 33 32 29 C7 28 44 4E AA 36 34 29 00 96 |DN.32).(DN.64)..|
00000390: 0B 36 01 A0 31 35 00 AC 0B 40 01 85 22 11 11 41 |.6..15...@.."..A|
000003A0: 4E 59 20 4D 4F 52 45 22 3B 41 4E 24 00 C5 0B 4A |NY MORE";AN$...J|
000003B0: 01 8B 41 4E 24 B2 22 59 22 B0 41 4E 24 B2 22 59 |..AN$."Y".AN$."Y|
000003C0: 45 53 22 A7 8A 00 E1 0B 54 01 8B 41 4E 24 B3 B1 |ES".....T..AN$..|
000003D0: 22 4E 22 B0 41 4E 24 B3 B1 22 4E 4F 22 A7 33 32 |"N".AN$.."NO".32|
000003E0: 30 00 EE 0B 5E 01 93 22 43 4F 4D 22 2C 38 00 F4 |0...^.."COM",8..|
000003F0: 0B 68 01 80 00 00 00 |.h..... |
.......53280,0:.53281,0:."..".G....*****
*******************************.N....*.R
....* CHANGE CBM DISK SEPT/14/81.Y....
*. ....* THIS PROGRAM CHANGES THE DISK'S
.H....* DEVICE NUMBER TO THE NUMBER THAT
......* IS GIVEN BY THE OPERATOR. THIS..
....* CAN RANGE FROM 9 TO 15. THIS IS.;.
...* A SOFT CHANGE; THUS A RESET OF.D...
.* THE DISK WILL CAUSE IT TO RESTORE....
..* TO THE HARD DEVICE NUMBER.......*...
...* THIS PROGRAM IS APPLICABLE FOR.R...
.* ANY 2040, 4040 OR 8050..Y....*......*
THIS VERSION BY JIM BUTTERFIELD......*.
1....***********************************
*.C.C.. 12,50,119,0._.D.."OLD DEVICE NUM
BER";DO.V.N..DO.8 . DO.15 .100......"NEW
DEVICE NUMBER";DN... ..DN.8 . DN.15 .15
0.I.H..15,DO,15:. COMMAND CHANNEL...R.A$
.G(DO.32):B$.G(DO.64)......A:.A.0.."DISK
NOT RECOGNIZED!":.310.8....15,"M-R"G(A)
G(0):.#15,X$:.X$..A$.220.D....15,"M-R"G(
A.1)G(0):.#15,X$:.X$..B$.220...,..15,"M-
W"G(A)G(0)G(2)G(DN.32)G(DN.64)...6. 15..
.@.."..ANY MORE";AN$.E.J..AN$."Y".AN$."Y
ES".....T..AN$.."N".AN$.."NO".320...^.."
COM",8...H.....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL