> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 27 08 0A 00 8F 20 50 52 4F 47 52 41 4D 20 |..'.... PROGRAM |
00000010: 54 4F 20 50 52 49 4E 54 20 43 48 41 52 20 52 4F |TO PRINT CHAR RO|
00000020: 4D 20 49 4D 41 47 45 00 33 08 14 00 9F 20 34 2C |M IMAGE.3.... 4,|
00000030: 34 2C 35 00 3E 08 1E 00 89 20 31 30 30 30 00 5F |4,5.>.... 1000._|
00000040: 08 64 00 8F 20 45 4E 41 42 4C 45 20 47 52 2E 4D |.d.. ENABLE GR.M|
00000050: 4F 44 45 20 46 4F 52 20 4E 20 43 48 41 52 53 00 |ODE FOR N CHARS.|
00000060: 7C 08 6E 00 4E 24 B2 C4 28 4E 29 3A 4E 24 B2 C9 ||.n.N$..(N):N$..|
00000070: 28 4E 24 2C C3 28 4E 24 29 AB 31 29 00 98 08 78 |(N$,.(N$).1)...x|
00000080: 00 4E 24 B2 C8 28 22 30 30 30 30 22 2C 34 AB C3 |.N$..("0000",4..|
00000090: 28 4E 24 29 29 AA 4E 24 00 AD 08 82 00 98 34 2C |(N$)).N$......4,|
000000A0: C7 28 32 37 29 3B 22 53 22 3B 4E 24 3B 00 B3 08 |.(27);"S";N$;...|
000000B0: 8C 00 8E 00 D6 08 C8 00 8F 20 46 49 4C 4C 20 53 |......... FILL S|
000000C0: 41 28 29 20 46 52 4F 4D 20 38 20 42 59 54 45 53 |A() FROM 8 BYTES|
000000D0: 20 41 54 20 43 50 00 F1 08 D2 00 97 20 35 36 33 | AT CP...... 563|
000000E0: 33 34 2C C2 28 35 36 33 33 34 29 20 AF 20 32 35 |34,.(56334) . 25|
000000F0: 34 00 04 09 DC 00 97 20 31 2C C2 28 31 29 20 AF |4...... 1,.(1) .|
00000100: 20 32 35 31 00 11 09 E6 00 81 20 49 B2 30 20 A4 | 251...... I.0 .|
00000110: 37 00 25 09 F0 00 53 41 28 49 29 B2 C2 28 43 50 |7.%...SA(I)..(CP|
00000120: AA 49 29 3A 82 00 36 09 FA 00 97 20 31 2C C2 28 |.I):..6.... 1,.(|
00000130: 31 29 20 B0 20 34 00 4F 09 04 01 97 20 35 36 33 |1) . 4.O.... 563|
00000140: 33 34 2C C2 28 35 36 33 33 34 29 20 B0 20 31 00 |34,.(56334) . 1.|
00000150: 55 09 0E 01 8E 00 6C 09 2C 01 8F 20 50 52 49 4E |U.....l.,.. PRIN|
00000160: 54 20 53 41 28 29 20 41 52 52 41 59 00 7F 09 36 |T SA() ARRAY...6|
00000170: 01 81 20 4A B2 30 20 A4 20 37 3A 47 43 B2 30 00 |.. J.0 . 7:GC.0.|
00000180: 8C 09 40 01 81 20 49 B2 30 20 A4 37 00 A8 09 4A |..@.. I.0 .7...J|
00000190: 01 47 43 B2 47 43 AD 32 20 B0 20 28 53 41 28 49 |.GC.GC.2 . (SA(I|
000001A0: 29 20 AF 20 31 32 38 29 00 BC 09 54 01 53 41 28 |) . 128)...T.SA(|
000001B0: 49 29 B2 53 41 28 49 29 20 AC 20 32 00 D2 09 5E |I).SA(I) . 2...^|
000001C0: 01 82 20 49 3A 98 34 2C C7 28 47 43 29 3B 3A 82 |.. I:.4,.(GC);:.|
000001D0: 20 4A 00 D8 09 68 01 8E 00 EF 09 E8 03 8F 20 54 | J...h........ T|
000001E0: 48 45 20 4D 41 49 4E 20 52 4F 55 54 49 4E 45 00 |HE MAIN ROUTINE.|
000001F0: 03 0A F2 03 98 34 2C C7 28 32 37 29 3B 22 54 31 |.....4,.(27);"T1|
00000200: 36 22 3B 00 17 0A FC 03 4E B2 31 36 AC 38 3A 43 |6";.....N.16.8:C|
00000210: 50 B2 35 33 32 34 38 00 37 0A 06 04 81 20 4C B2 |P.53248.7.... L.|
00000220: 31 20 A4 20 33 32 3A 8F 20 50 52 49 4E 54 20 33 |1 . 32:. PRINT 3|
00000230: 32 20 4C 49 4E 45 53 00 41 0A 10 04 8D 20 31 30 |2 LINES.A.... 10|
00000240: 30 00 61 0A 1A 04 81 20 47 B2 31 20 A4 20 31 36 |0.a.... G.1 . 16|
00000250: 3A 8F 20 31 36 20 47 52 4F 55 50 53 2F 4C 49 4E |:. 16 GROUPS/LIN|
00000260: 45 00 7D 0A 24 04 8D 20 32 30 30 3A 8D 20 33 30 |E.}.$.. 200:. 30|
00000270: 30 3A 43 50 B2 43 50 AA 38 3A 82 20 47 00 88 0A |0:CP.CP.8:. G...|
00000280: 2E 04 98 34 3A 82 20 4C 00 9A 0A 38 04 98 34 2C |...4:. L...8..4,|
00000290: C7 28 32 37 29 3B 22 41 22 3B 00 A2 0A 42 04 A0 |.(27);"A";...B..|
000002A0: 20 34 00 00 00 | 4... |
..'.... PROGRAM TO PRINT CHAR ROM IMAGE.
3.... 4,4,5.>.... 1000._.D.. ENABLE GR.M
ODE FOR N CHARS.|.N.N$.D(N):N$.I(N$,C(N$
).1)...X.N$.H("0000",4.C(N$)).N$......4,
G(27);"S";N$;.......V.H.. FILL SA() FROM
8 BYTES AT CP...R.. 56334,B(56334) . 25
4...... 1,B(1) . 251...... I.0 .7.%...SA
(I).B(CP.I):..6.... 1,B(1) . 4.O.... 563
34,B(56334) . 1.U.....L.,.. PRINT SA() A
RRAY..6.. J.0 . 7:GC.0...@.. I.0 .7...J
.GC.GC.2 . (SA(I) . 128)...T.SA(I).SA(I)
. 2.R.^.. I:.4,G(GC);:. J.X.H........ T
HE MAIN ROUTINE......4,G(27);"T16";.....
N.16.8:CP.53248.7.... L.1 . 32:. PRINT 3
2 LINES.A.... 100.A.... G.1 . 16:. 16 GR
OUPS/LINE.}.$.. 200:. 300:CP.CP.8:. G...
...4:. L...8..4,G(27);"A";...B. 4...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL