> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1C 08 0A 00 85 20 22 93 49 4E 50 55 54 20 |....... ".INPUT |
00000010: 54 52 41 43 4B 20 4E 4F 2E 22 3B 54 00 2E 08 14 |TRACK NO.";T....|
00000020: 00 8B 20 54 B3 30 B0 54 B1 34 30 A7 31 30 00 53 |.. T.0.T.40.10.S|
00000030: 08 1E 00 85 20 22 4E 55 4D 42 45 52 20 42 4C 4F |.... "NUMBER BLO|
00000040: 43 4B 53 20 54 4F 20 54 52 41 4E 53 46 45 52 2E |CKS TO TRANSFER.|
00000050: 22 3B 42 00 64 08 28 00 8B 20 42 B3 31 B0 42 B1 |";B.d.(.. B.1.B.|
00000060: 34 A7 33 30 00 75 08 32 00 9F 31 35 2C 38 2C 31 |4.30.u.2..15,8,1|
00000070: 35 2C 22 49 22 00 7B 08 3C 00 3A 00 A9 08 46 00 |5,"I".{.<.:...F.|
00000080: 8F 20 52 45 41 44 20 4D 4C 20 43 4F 44 45 20 41 |. READ ML CODE A|
00000090: 4E 44 20 57 52 49 54 45 20 54 4F 20 24 30 33 30 |ND WRITE TO $030|
000000A0: 30 20 49 4E 20 31 35 34 31 00 AF 08 50 00 3A 00 |0 IN 1541...P.:.|
000000B0: BE 08 5A 00 81 20 49 B2 30 20 A4 20 37 31 00 C6 |..Z.. I.0 . 71..|
000000C0: 08 64 00 87 20 56 00 E4 08 6E 00 98 31 35 2C 22 |.d.. V...n..15,"|
000000D0: 4D 2D 57 22 C7 28 49 29 C7 28 33 29 C7 28 31 29 |M-W".(I).(3).(1)|
000000E0: C7 28 56 29 00 EC 08 78 00 82 20 49 00 F2 08 82 |.(V)...x.. I....|
000000F0: 00 3A 00 08 09 8C 00 8F 20 4A 4F 42 20 51 55 45 |.:...... JOB QUE|
00000100: 20 45 58 45 43 55 54 45 00 0E 09 96 00 3A 00 2C | EXECUTE.....:.,|
00000110: 09 A0 00 98 31 35 2C 22 4D 2D 57 22 C7 28 36 29 |....15,"M-W".(6)|
00000120: C7 28 30 29 C7 28 31 29 C7 28 54 29 00 4A 09 AA |.(0).(1).(T).J..|
00000130: 00 98 31 35 2C 22 4D 2D 57 22 C7 28 37 29 C7 28 |..15,"M-W".(7).(|
00000140: 30 29 C7 28 31 29 C7 28 30 29 00 6A 09 B4 00 98 |0).(1).(0).j....|
00000150: 31 35 2C 22 4D 2D 57 22 C7 28 30 29 C7 28 30 29 |15,"M-W".(0).(0)|
00000160: C7 28 31 29 C7 28 32 32 34 29 00 82 09 BE 00 81 |.(1).(224)......|
00000170: 20 49 B2 31 A4 32 30 30 30 3A 82 3A 8F 20 57 41 | I.1.2000:.:. WA|
00000180: 49 54 00 98 09 C8 00 98 31 35 2C 22 4D 2D 52 22 |IT......15,"M-R"|
00000190: C7 28 30 29 C7 28 30 29 00 B1 09 D2 00 A1 23 31 |.(0).(0)......#1|
000001A0: 35 2C 41 24 3A 41 B2 C6 28 41 24 AA C7 28 30 29 |5,A$:A..(A$..(0)|
000001B0: 29 00 CE 09 DC 00 99 22 11 11 4A 4F 42 20 53 54 |)......"..JOB ST|
000001C0: 41 54 55 53 20 28 24 30 30 29 3A 22 3B 41 00 09 |ATUS ($00):";A..|
000001D0: 0A E6 00 99 20 22 11 11 50 4C 45 41 53 45 20 57 |.... "..PLEASE W|
000001E0: 41 49 54 2D 54 52 41 4E 53 46 45 52 52 49 4E 47 |AIT-TRANSFERRING|
000001F0: 20 44 41 54 41 20 46 52 4F 4D 20 31 35 34 31 20 | DATA FROM 1541 |
00000200: 54 4F 20 24 35 30 30 30 22 00 38 0A F0 00 8F 20 |TO $5000".8.... |
00000210: 44 55 4D 50 20 43 4F 4E 54 45 4E 54 53 20 4F 46 |DUMP CONTENTS OF|
00000220: 20 24 30 34 30 30 20 54 4F 20 24 30 37 46 46 20 | $0400 TO $07FF |
00000230: 54 4F 20 24 35 30 30 30 00 52 0A FA 00 81 20 49 |TO $5000.R.... I|
00000240: B2 34 AC 32 35 36 A4 28 34 AA 42 29 AC 32 35 36 |.4.256.(4.B).256|
00000250: AB 31 00 73 0A 04 01 48 B2 B5 28 49 AD 32 35 36 |.1.s...H..(I.256|
00000260: 29 3A 8F 20 48 49 47 48 20 4F 52 44 45 52 20 42 |):. HIGH ORDER B|
00000270: 59 54 45 00 96 0A 0E 01 4C B2 49 AB 48 AC 32 35 |YTE.....L.I.H.25|
00000280: 36 20 20 20 3A 8F 20 4C 4F 57 20 20 4F 52 44 45 |6 :. LOW ORDE|
00000290: 52 20 42 59 54 45 00 AC 0A 18 01 98 31 35 2C 22 |R BYTE......15,"|
000002A0: 4D 2D 52 22 C7 28 4C 29 C7 28 48 29 00 C5 0A 22 |M-R".(L).(H)..."|
000002B0: 01 A1 23 31 35 2C 41 24 3A 41 B2 C6 28 41 24 AA |..#15,A$:A..(A$.|
000002C0: C7 28 30 29 29 00 EB 0A 2C 01 97 28 31 39 34 35 |.(0))...,..(1945|
000002D0: 36 AA 49 29 2C 41 3A 8F 20 50 4F 4B 45 20 24 35 |6.I),A:. POKE $5|
000002E0: 30 30 30 20 49 4E 20 43 2D 36 34 00 F3 0A 36 01 |000 IN C-64...6.|
000002F0: 82 20 49 00 03 0B 3B 01 8F 20 53 59 53 20 34 39 |. I...;.. SYS 49|
00000300: 31 35 32 00 19 0B 40 01 83 20 31 36 39 2C 30 2C |152...@.. 169,0,|
00000310: 31 37 30 2C 31 36 39 2C 30 00 30 0B 4A 01 83 20 |170,169,0.0.J.. |
00000320: 31 33 33 2C 34 38 2C 31 36 39 2C 34 2C 31 33 33 |133,48,169,4,133|
00000330: 00 46 0B 54 01 83 20 34 39 2C 31 36 39 2C 33 2C |.F.T.. 49,169,3,|
00000340: 37 32 2C 31 36 39 00 5C 0B 5E 01 83 20 32 30 2C |72,169.\.^.. 20,|
00000350: 37 32 2C 37 36 2C 38 36 2C 32 34 35 00 73 0B 68 |72,76,86,245.s.h|
00000360: 01 83 20 38 30 2C 32 35 34 2C 31 38 34 2C 31 37 |.. 80,254,184,17|
00000370: 33 2C 31 00 8B 0B 72 01 83 20 32 38 2C 31 34 35 |3,1...r.. 28,145|
00000380: 2C 34 38 2C 32 30 30 2C 32 30 38 00 A4 0B 7C 01 |,48,200,208...|.|
00000390: 83 20 32 34 35 2C 32 33 30 2C 34 39 2C 32 33 32 |. 245,230,49,232|
000003A0: 2C 32 32 34 00 BC 0B 86 01 83 20 34 2C 32 30 38 |,224...... 4,208|
000003B0: 2C 32 33 38 2C 31 36 30 2C 31 38 36 00 D3 0B 90 |,238,160,186....|
000003C0: 01 83 20 38 30 2C 32 35 34 2C 31 38 34 2C 31 37 |.. 80,254,184,17|
000003D0: 33 2C 31 00 E8 0B 9A 01 83 20 32 38 2C 31 35 33 |3,1...... 28,153|
000003E0: 2C 30 2C 31 2C 32 30 30 00 01 0C A4 01 83 20 32 |,0,1,200...... 2|
000003F0: 30 38 2C 32 34 34 2C 33 32 2C 32 32 34 2C 32 34 |08,244,32,224,24|
00000400: 38 00 19 0C AE 01 83 20 31 36 35 2C 35 36 2C 31 |8...... 165,56,1|
00000410: 39 37 2C 37 31 2C 32 34 30 00 2E 0C B8 01 83 20 |97,71,240...... |
00000420: 35 2C 31 36 39 2C 34 2C 37 36 2C 31 30 35 00 46 |5,169,4,76,105.F|
00000430: 0C C2 01 83 20 32 34 39 2C 33 32 2C 32 33 33 2C |.... 249,32,233,|
00000440: 32 34 35 2C 37 36 00 54 0C CC 01 83 20 32 35 34 |245,76.T.... 254|
00000450: 2C 32 34 34 00 00 00 |,244... |
....... ".INPUT TRACK NO.";T...... T.0.T
.40.10.S.... "NUMBER BLOCKS TO TRANSFER.
";B.D.(.. B.1.B.4.30.U.2..15,8,15,"I".{.
<.:...F.. READ ML CODE AND WRITE TO $030
0 IN 1541...P.:...Z.. I.0 . 71.F.D.. V..
.N..15,"M-W"G(I)G(3)G(1)G(V)...X.. I....
.:...... JOB QUE EXECUTE.....:.,. ..15,"
M-W"G(6)G(0)G(1)G(T).J....15,"M-W"G(7)G(
0)G(1)G(0).J....15,"M-W"G(0)G(0)G(1)G(22
4)...... I.1.2000:.:. WAIT...H..15,"M-R"
G(0)G(0)...R..#15,A$:A.F(A$.G(0)).N...."
..JOB STATUS ($00):";A...... "..PLEASE W
AIT-TRANSFERRING DATA FROM 1541 TO $5000
".8.... DUMP CONTENTS OF $0400 TO $07FF
TO $5000.R.... I.4.256.(4.B).256.1.S...H
..(I.256):. HIGH ORDER BYTE.....L.I.H.25
6 :. LOW ORDER BYTE......15,"M-R"G(L)
G(H).E."..#15,A$:A.F(A$.G(0))...,..(1945
6.I),A:. POKE $5000 IN C-64...6.. I...;.
. SYS 49152...@.. 169,0,170,169,0.0.J..
133,48,169,4,133.F.T.. 49,169,3,72,169.\
.^.. 20,72,76,86,245.S.H.. 80,254,184,17
3,1...R.. 28,145,48,200,208...|.. 245,23
0,49,232,224...... 4,208,238,160,186.S..
.. 80,254,184,173,1...... 28,153,0,1,200
...... 208,244,32,224,248...... 165,56,1
97,71,240...... 5,169,4,76,105.F.B.. 249
,32,233,245,76.T.L.. 254,244...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL