> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 0A 00 8F 20 54 48 49 53 20 50 52 4F |..%.... THIS PRO|
00000010: 47 52 41 4D 20 44 45 4D 4F 4E 53 54 52 41 54 45 |GRAM DEMONSTRATE|
00000020: 53 20 48 4F 57 00 4A 08 14 00 8F 20 54 4F 20 49 |S HOW.J.... TO I|
00000030: 4E 43 4C 55 44 45 20 4D 41 43 48 49 4E 45 20 43 |NCLUDE MACHINE C|
00000040: 4F 44 45 20 49 4E 54 4F 20 41 00 67 08 1E 00 8F |ODE INTO A.g....|
00000050: 20 43 4F 4D 50 49 4C 45 44 20 42 41 53 49 43 20 | COMPILED BASIC |
00000060: 50 52 4F 47 52 41 4D 00 6D 08 28 00 8F 00 93 08 |PROGRAM.m.(.....|
00000070: 32 00 8F 20 54 48 45 20 43 4F 44 45 20 41 54 20 |2.. THE CODE AT |
00000080: 4C 49 4E 45 53 20 31 30 30 30 2D 31 30 35 30 20 |LINES 1000-1050 |
00000090: 49 53 3A 00 99 08 3C 00 8F 00 AA 08 46 00 8F 20 |IS:...<.....F.. |
000000A0: 20 20 20 20 20 20 20 53 45 49 00 C0 08 50 00 8F | SEI...P..|
000000B0: 20 20 20 20 20 20 20 20 4C 44 58 20 23 24 30 30 | LDX #$00|
000000C0: 00 E3 08 5A 00 8F 20 20 20 4C 4F 4F 50 20 4C 44 |...Z.. LOOP LD|
000000D0: 41 20 24 44 30 31 32 20 3B 47 45 54 20 52 41 53 |A $D012 ;GET RAS|
000000E0: 54 45 52 00 04 09 5B 00 8F 20 20 20 20 20 20 20 |TER...[.. |
000000F0: 20 4C 53 52 20 41 20 20 20 20 20 3B 50 4F 53 49 | LSR A ;POSI|
00000100: 54 49 4F 4E 00 17 09 5C 00 8F 20 20 20 20 20 20 |TION...\.. |
00000110: 20 20 4C 53 52 20 41 00 2A 09 5D 00 8F 20 20 20 | LSR A.*.].. |
00000120: 20 20 20 20 20 4C 53 52 20 41 00 3D 09 5E 00 8F | LSR A.=.^..|
00000130: 20 20 20 20 20 20 20 20 4C 53 52 20 41 00 63 09 | LSR A.c.|
00000140: 5F 00 8F 20 20 20 20 20 20 20 20 53 54 41 20 35 |_.. STA 5|
00000150: 33 32 38 31 20 3B 43 48 41 4E 47 45 20 43 4F 4C |3281 ;CHANGE COL|
00000160: 4F 55 52 00 86 09 60 00 8F 20 20 20 20 20 20 20 |OUR...`.. |
00000170: 20 44 45 58 20 20 20 20 20 20 20 3B 52 45 50 45 | DEX ;REPE|
00000180: 41 54 20 32 35 36 00 A4 09 61 00 8F 20 20 20 20 |AT 256...a.. |
00000190: 20 20 20 20 42 4E 45 20 4C 4F 4F 50 20 20 3B 54 | BNE LOOP ;T|
000001A0: 49 4D 45 53 00 B5 09 62 00 8F 20 20 20 20 20 20 |IMES...b.. |
000001B0: 20 20 43 4C 49 00 BB 09 63 00 8F 00 C5 09 64 00 | CLI...c.....d.|
000001C0: 8D 31 30 30 30 00 D8 09 6E 00 A1 41 24 3A 8B 41 |.1000...n..A$:.A|
000001D0: 24 B2 22 22 A7 31 30 30 00 E7 09 78 00 97 35 33 |$."".100...x..53|
000001E0: 32 38 31 2C 30 3A 80 00 F9 09 E8 03 8F 23 24 37 |281,0:.......#$7|
000001F0: 38 2C 24 41 32 2C 24 30 30 00 0B 0A F2 03 8F 23 |8,$A2,$00......#|
00000200: 24 41 44 2C 24 31 32 2C 24 44 30 00 21 0A FC 03 |$AD,$12,$D0.!...|
00000210: 8F 23 24 34 41 2C 24 34 41 2C 24 34 41 2C 24 34 |.#$4A,$4A,$4A,$4|
00000220: 41 00 32 0A 06 04 8F 23 24 38 44 2C 44 35 33 32 |A.2....#$8D,D532|
00000230: 38 31 00 44 0A 10 04 8F 23 24 43 41 2C 24 44 30 |81.D....#$CA,$D0|
00000240: 2C 24 46 33 00 4E 0A 1A 04 8F 23 24 35 38 00 54 |,$F3.N....#$58.T|
00000250: 0A 24 04 8E 00 00 00 |.$..... |
..%.... THIS PROGRAM DEMONSTRATES HOW.J.
... TO INCLUDE MACHINE CODE INTO A.G....
COMPILED BASIC PROGRAM.M.(.....2.. THE
CODE AT LINES 1000-1050 IS:...<.....F..
SEI...P.. LDX #$00...Z..
LOOP LDA $D012 ;GET RASTER...[..
LSR A ;POSITION...\.. LSR A.
*.].. LSR A.=.^.. LSR A.C.
_.. STA 53281 ;CHANGE COLOUR...`.
. DEX ;REPEAT 256...A..
BNE LOOP ;TIMES...B.. CLI...
C...E.D..1000.X.N..A$:.A$."".100...X..53
281,0:.......#$78,$A2,$00......#$AD,$12,
$D0.!....#$4A,$4A,$4A,$4A.2....#$8D,D532
81.D....#$CA,$D0,$F3.N....#$58.T.$.....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL