> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 0A 00 3B AB AB AB AB AB AB 20 4D 49 |..%...;...... MI|
00000010: 43 52 4F 20 41 53 53 45 4D 42 4C 45 52 20 AB AB |CRO ASSEMBLER ..|
00000020: AB AB AB AB AB 00 49 08 14 00 3B AB AB AB AB AB |......I...;.....|
00000030: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000040: AB AB AB AB AB AB AB AB AB 00 4F 08 1E 00 3B 00 |..........O...;.|
00000050: 5D 08 28 00 3B 43 4F 4D 4D AF 53 3A AB 00 63 08 |].(.;COMM.S:..c.|
00000060: 32 00 3B 00 84 08 3C 00 3B 41 55 A4 2E 2E 47 49 |2.;...<.;AU...GI|
00000070: 56 45 53 20 41 55 A4 20 4C 49 4E 45 20 4E 55 4D |VES AU. LINE NUM|
00000080: 42 45 52 53 00 AC 08 46 00 3B 44 49 53 53 41 53 |BERS...F.;DISSAS|
00000090: 53 45 4D 42 4C 45 2E 2E 44 49 53 53 20 41 20 50 |SEMBLE..DISS A P|
000000A0: 41 52 54 20 4F 46 20 4D 45 4D B0 59 00 CD 08 50 |ART OF MEM.Y...P|
000000B0: 00 3B 4E 55 4D 42 45 52 2E 2E 43 91 56 45 52 54 |.;NUMBER..C.VERT|
000000C0: 53 20 48 45 58 AD 44 45 43 AD 42 49 4E 00 E8 08 |S HEX.DEC.BIN...|
000000D0: 5A 00 3B 54 49 4D 2E 2E 2E 2E 45 4E 54 45 52 53 |Z.;TIM....ENTERS|
000000E0: 20 41 20 4D 91 49 A4 52 00 00 09 64 00 3B 58 2E | A M.I.R...d.;X.|
000000F0: 2E 2E 2E 2E 2E 45 58 49 54 53 20 4D 91 49 A4 52 |.....EXITS M.I.R|
00000100: 00 23 09 6E 00 3B 81 4D 41 54 2E 2E 44 49 53 50 |.#.n.;.MAT..DISP|
00000110: 4C 41 59 53 20 53 4F 55 52 43 45 20 46 49 4C 45 |LAYS SOURCE FILE|
00000120: 20 49 4E 00 3F 09 78 00 3B 20 20 20 20 20 20 20 | IN.?.x.; |
00000130: 20 41 20 4E 45 41 54 45 52 20 81 4D 41 54 2E 00 | A NEATER .MAT..|
00000140: 64 09 82 00 3B 41 53 53 45 4D 42 4C 45 2E 2E 41 |d...;ASSEMBLE..A|
00000150: 53 53 45 4D 42 4C 45 53 20 54 48 45 20 43 55 52 |SSEMBLES THE CUR|
00000160: 52 45 4E 54 00 80 09 8C 00 3B 20 20 20 20 20 20 |RENT.....; |
00000170: 20 20 20 20 53 4F 55 52 43 45 20 46 49 4C 45 2E | SOURCE FILE.|
00000180: 00 86 09 96 00 3B 00 AA 09 A0 00 3B AB AB AB AB |.....;.....;....|
00000190: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000001A0: AB AB AB AB AB AB AB AB AB AB 00 BE 09 AA 00 3B |...............;|
000001B0: 51 55 41 53 49 20 4F 50 20 43 4F 44 45 53 00 C4 |QUASI OP CODES..|
000001C0: 09 B4 00 3B 00 D8 09 BE 00 3B 42 59 54 2E 2E 81 |...;.....;BYT...|
000001D0: 20 4E 55 4D 42 45 52 53 00 DE 09 C8 00 3B 00 F2 | NUMBERS.....;..|
000001E0: 09 D2 00 3B 45 2E 47 2E 20 42 59 54 20 31 2C 32 |...;E.G. BYT 1,2|
000001F0: 2C 33 00 F8 09 DC 00 3B 00 1A 0A E6 00 3B 57 4F |,3.....;.....;WO|
00000200: 55 4C 44 20 53 A4 52 45 20 54 48 45 20 4E 55 4D |ULD S.RE THE NUM|
00000210: 42 45 52 53 20 31 2C 32 2C 33 00 20 0A F0 00 3B |BERS 1,2,3. ...;|
00000220: 00 3B 0A FA 00 3B 54 58 54 2E 2E A4 20 53 A4 52 |.;...;TXT... S.R|
00000230: 45 20 C6 49 49 20 54 45 58 54 2E 00 41 0A 04 01 |E .II TEXT..A...|
00000240: 3B 00 65 0A 0E 01 3B AB AB AB AB AB AB AB AB AB |;.e...;.........|
00000250: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000260: AB AB AB AB AB 00 8B 0A 18 01 3B 41 4C 4C 20 53 |..........;ALL S|
00000270: 4F 55 52 43 45 20 46 49 4C 45 53 20 4D 55 53 54 |OURCE FILES MUST|
00000280: 20 42 45 47 49 4E 20 57 49 54 48 00 A8 0A 22 01 | BEGIN WITH...".|
00000290: 3B 54 48 45 20 49 4E 53 54 52 55 43 54 49 91 20 |;THE INSTRUCTI. |
000002A0: AC B2 20 A7 20 54 48 45 00 C6 0A 2C 01 3B 41 44 |.. . THE...,.;AD|
000002B0: 44 52 45 53 53 20 57 48 45 52 45 20 59 4F 55 20 |DRESS WHERE YOU |
000002C0: 57 49 53 48 20 A4 00 D5 0A 36 01 3B 41 53 53 45 |WISH ....6.;ASSE|
000002D0: 4D 42 4C 45 2E 00 DB 0A 40 01 3B 00 00 0B 4A 01 |MBLE....@.;...J.|
000002E0: 3B 45 2E 47 2E 20 AC B2 24 43 30 30 30 20 57 4F |;E.G. ..$C000 WO|
000002F0: 55 4C 44 20 41 53 53 45 4D 42 4C 45 20 54 48 45 |ULD ASSEMBLE THE|
00000300: 00 23 0B 54 01 3B 43 4F 44 45 20 A4 20 24 43 30 |.#.T.;CODE . $C0|
00000310: 30 30 20 28 34 39 31 35 32 29 20 57 48 45 4E 20 |00 (49152) WHEN |
00000320: 59 4F 55 00 44 0B 5E 01 3B 45 4E 54 45 52 20 54 |YOU.D.^.;ENTER T|
00000330: 48 45 20 43 4F 4D 4D AF 20 27 41 53 53 45 4D 42 |HE COMM. 'ASSEMB|
00000340: 4C 45 27 2E 00 4A 0B 68 01 3B 00 6A 0B 72 01 3B |LE'..J.h.;.j.r.;|
00000350: 41 4C 4C 20 4E 55 4D 42 45 52 53 20 49 4E 20 48 |ALL NUMBERS IN H|
00000360: 45 58 20 4D 55 53 54 20 42 45 00 81 0B 7C 01 3B |EX MUST BE...|.;|
00000370: 50 52 45 43 45 44 45 44 20 57 49 54 48 20 41 20 |PRECEDED WITH A |
00000380: 24 00 87 0B 86 01 3B 00 AB 0B 90 01 3B AB AB AB |$.....;.....;...|
00000390: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000003A0: AB AB AB AB AB AB AB AB AB AB AB 00 B1 0B 9A 01 |................|
000003B0: 3B 00 D4 0B A4 01 3B 57 48 45 4E 20 45 4E 54 45 |;.....;WHEN ENTE|
000003C0: 52 49 4E 47 20 41 20 43 4F 4D 4D AF 20 59 4F 55 |RING A COMM. YOU|
000003D0: 20 43 41 4E 00 F8 0B AE 01 3B 41 4C 53 4F 20 55 | CAN.....;ALSO U|
000003E0: 53 45 20 54 48 45 20 4D 45 54 48 4F 44 20 4C 49 |SE THE METHOD LI|
000003F0: 4B 45 20 42 41 53 49 43 00 1B 0C B8 01 3B 53 55 |KE BASIC.....;SU|
00000400: 43 48 20 41 53 20 41 28 53 48 8B 54 20 55 29 20 |CH AS A(SH.T U) |
00000410: 49 53 20 54 48 45 20 53 41 4D 45 00 32 0C C2 01 |IS THE SAME.2...|
00000420: 3B 41 53 20 45 4E 54 45 52 49 4E 47 20 27 41 55 |;AS ENTERING 'AU|
00000430: A4 27 00 38 0C CC 01 3B 00 49 0C D6 01 3B 45 2E |.'.8...;.I...;E.|
00000440: 47 2E 20 41 31 30 2C 31 30 00 4F 0C E0 01 3B 00 |G. A10,10.O...;.|
00000450: 73 0C EA 01 3B AB AB AB AB AB AB AB AB AB AB AB |s...;...........|
00000460: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000470: AB AB AB 00 96 0C F4 01 3B A4 20 54 45 53 54 20 |........;. TEST |
00000480: 54 48 49 53 20 53 4F 55 52 43 45 20 4A 55 53 54 |THIS SOURCE JUST|
00000490: 20 45 4E 54 45 52 00 9C 0C FE 01 3B 00 B6 0C 08 | ENTER.....;....|
000004A0: 02 3B 41 53 53 45 4D 42 4C 45 20 B0 20 41 28 53 |.;ASSEMBLE . A(S|
000004B0: 48 8B 54 20 53 29 00 BC 0C 12 02 3B 00 CC 0C 1C |H.T S).....;....|
000004C0: 02 3B A7 20 9E 20 34 39 31 35 32 2E 00 D2 0C 26 |.;. . 49152....&|
000004D0: 02 3B 00 F6 0C 30 02 3B AB AB AB AB AB AB AB AB |.;...0.;........|
000004E0: AB AB AB AB AB 20 4E 4D 31 35 36 20 AB AB AB AB |..... NM156 ....|
000004F0: AB AB AB AB AB AB 00 1B 0D 3A 02 3B AB AB AB AB |.........:.;....|
00000500: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000510: AB AB AB AB AB AB AB AB AB AB AB 00 21 0D 44 02 |............!.D.|
00000520: 3B 00 27 0D 4E 02 3B 00 33 0D 58 02 AC B2 24 43 |;.'.N.;.3.X...$C|
00000530: 30 30 30 00 39 0D 62 02 3B 00 3F 0D 6C 02 3B 00 |000.9.b.;.?.l.;.|
00000540: 61 0D 76 02 43 4C 45 41 52 B2 24 45 35 34 34 20 |a.v.CLEAR.$E544 |
00000550: 3B 52 4F 4D AD 43 4C 45 41 52 20 53 43 52 45 45 |;ROM.CLEAR SCREE|
00000560: 4E 00 74 0D 80 02 53 43 4F 4C B2 30 20 20 3B 42 |N.t...SCOL.0 ;B|
00000570: 4C 41 43 4B 00 87 0D 8A 02 42 43 4F 4C B2 30 20 |LACK.....BCOL.0 |
00000580: 20 3B 42 4C 41 43 4B 00 9F 0D 94 02 54 43 4F 4C | ;BLACK.....TCOL|
00000590: B2 31 35 20 3B 4C 49 47 48 54 20 47 52 41 59 00 |.15 ;LIGHT GRAY.|
000005A0: BD 0D 9E 02 A1 49 4E B2 24 46 46 45 34 20 3B 52 |.....IN.$FFE4 ;R|
000005B0: 4F 4D AD A1 20 4B 45 59 50 52 45 53 53 00 C3 0D |OM.. KEYPRESS...|
000005C0: A8 02 3B 00 C9 0D B2 02 3B 00 CF 0D BC 02 3B 00 |..;.....;.....;.|
000005D0: F1 0D C6 02 53 54 41 52 54 20 4A 53 52 20 43 4C |....START JSR CL|
000005E0: 45 41 52 20 3B 43 4C 45 41 52 20 53 43 52 45 45 |EAR ;CLEAR SCREE|
000005F0: 4E 00 FF 0D D0 02 4C 44 41 20 23 53 43 4F 4C 00 |N.....LDA #SCOL.|
00000600: 0D 0E DA 02 53 54 41 20 24 44 30 32 31 00 1B 0E |....STA $D021...|
00000610: E4 02 4C 44 41 20 23 42 43 4F 4C 00 29 0E EE 02 |..LDA #BCOL.)...|
00000620: 53 54 41 20 24 44 30 32 30 00 2F 0E F8 02 3B 00 |STA $D020./...;.|
00000630: 3A 0E 02 03 4C 44 58 20 23 30 00 5B 0E 0C 03 4C |:...LDX #0.[...L|
00000640: 44 41 20 23 54 43 4F 4C 20 3B 53 45 54 20 43 4F |DA #TCOL ;SET CO|
00000650: 4C 4F 55 52 20 81 20 54 45 58 54 00 70 0E 16 03 |LOUR . TEXT.p...|
00000660: 4C 4F 4F 50 20 53 54 41 20 24 44 38 30 30 2C 58 |LOOP STA $D800,X|
00000670: 00 78 0E 20 03 49 4E 58 00 85 0E 2A 03 42 4E 45 |.x. .INX...*.BNE|
00000680: 20 4C 4F 4F 50 00 8B 0E 34 03 3B 00 AB 0E 3E 03 | LOOP...4.;...>.|
00000690: 4C 44 58 20 23 36 32 20 3B 97 20 4D 45 53 53 41 |LDX #62 ;. MESSA|
000006A0: 47 45 20 A4 20 53 43 52 45 45 4E 00 C0 0E 48 03 |GE . SCREEN...H.|
000006B0: 4C 4F 4F 50 32 20 4C 44 41 20 4D 45 53 53 2C 58 |LOOP2 LDA MESS,X|
000006C0: 00 E3 0E 52 03 AF 20 23 24 33 46 20 3B 43 91 56 |...R.. #$3F ;C.V|
000006D0: 45 52 54 20 C6 49 49 AD 53 43 52 45 45 4E 20 43 |ERT .II.SCREEN C|
000006E0: 4F 44 45 00 F2 0E 5C 03 53 54 41 20 31 30 32 34 |ODE...\.STA 1024|
000006F0: 2C 58 00 FA 0E 66 03 44 45 58 00 08 0F 70 03 42 |,X...f.DEX...p.B|
00000700: 50 4C 20 4C 4F 4F 50 32 00 0E 0F 7A 03 3B 00 25 |PL LOOP2...z.;.%|
00000710: 0F 84 03 92 20 4A 53 52 20 A1 49 4E 20 3B 92 20 |.... JSR .IN ;. |
00000720: 81 20 4B 45 59 00 42 0F 8E 03 42 45 51 20 92 20 |. KEY.B...BEQ . |
00000730: 3B 5A 45 52 4F 20 4D 45 41 4E 53 20 4E 4F 20 4B |;ZERO MEANS NO K|
00000740: 45 59 00 5E 0F 98 03 52 54 53 20 20 3B 45 58 49 |EY.^...RTS ;EXI|
00000750: 54 20 42 41 43 4B 20 A4 20 42 41 53 49 43 00 64 |T BACK . BASIC.d|
00000760: 0F A2 03 3B 00 6A 0F AC 03 3B 00 A2 0F B6 03 4D |...;.j...;.....M|
00000770: 45 53 53 20 54 58 54 20 22 48 45 4C 4C 4F 20 54 |ESS TXT "HELLO T|
00000780: 48 49 53 20 49 53 20 41 20 42 52 49 4C 4C 49 41 |HIS IS A BRILLIA|
00000790: 4E 54 20 44 45 4D 4F 20 49 53 4E 27 54 20 49 54 |NT DEMO ISN'T IT|
000007A0: 3F 22 00 A8 0F C0 03 3B 00 CA 0F CA 03 54 58 54 |?".....;.....TXT|
000007B0: 20 22 2D 20 50 52 45 53 53 20 41 20 4B 45 59 20 | "- PRESS A KEY |
000007C0: 54 4F 20 45 58 49 54 20 2D 22 00 D0 0F D4 03 3B |TO EXIT -".....;|
000007D0: 00 D6 0F DE 03 3B 00 00 00 |.....;... |
..%...;...... MICRO ASSEMBLER ........I.
..;...............................O...;.
].(.;COMM.S:..C.2.;...<.;AU...GIVES AU.
LINE NUMBERS...F.;DISSASSEMBLE..DISS A P
ART OF MEM.Y.M.P.;NUMBER..C.VERTS HEX.DE
C.BIN...Z.;TIM....ENTERS A M.I.R...D.;X.
.....EXITS M.I.R.#.N.;.MAT..DISPLAYS SOU
RCE FILE IN.?.X.; A NEATER .MAT..
D...;ASSEMBLE..ASSEMBLES THE CURRENT....
.; SOURCE FILE......;... .;....
...............................;QUASI OP
CODES.D...;.X...;BYT... NUMBERS...H.;..
.R.;E.G. BYT 1,2,3.....;.....;WOULD S.RE
THE NUMBERS 1,2,3. ...;.;...;TXT... S.R
E FII TEXT..A...;.E...;.................
..................;ALL SOURCE FILES MUST
BEGIN WITH...".;THE INSTRUCTI. .. . THE
.F.,.;ADDRESS WHERE YOU WISH ..U.6.;ASSE
MBLE....@.;...J.;E.G. ..$C000 WOULD ASSE
MBLE THE.#.T.;CODE . $C000 (49152) WHEN
YOU.D.^.;ENTER THE COMM. 'ASSEMBLE'..J.H
.;.J.R.;ALL NUMBERS IN HEX MUST BE...|.;
PRECEDED WITH A $.....;.....;...........
........................;.T...;WHEN ENTE
RING A COMM. YOU CAN.....;ALSO USE THE M
ETHOD LIKE BASIC.....;SUCH AS A(SH.T U)
IS THE SAME.2.B.;AS ENTERING 'AU.'.8.L.;
.I.V.;E.G. A10,10.O...;.S...;...........
........................;. TEST THIS SOU
RCE JUST ENTER.....;.....;ASSEMBLE . A(S
H.T S).....;.L...;. . 49152..R.&.;...0.;
............. NM156 .............:.;....
............................!.D.;.'.N.;.
3.X...$C000.9.B.;.?.L.;.A.V.CLEAR.$E544
;ROM.CLEAR SCREEN.T...SCOL.0 ;BLACK....
.BCOL.0 ;BLACK.....TCOL.15 ;LIGHT GRAY.
.....IN.$FFE4 ;ROM.. KEYPRESS.C...;.I...
;.O...;...F.START JSR CLEAR ;CLEAR SCREE
N...P.LDA #SCOL...Z.STA $D021.....LDA #B
COL.)...STA $D020./...;.:...LDX #0.[...L
DA #TCOL ;SET COLOUR . TEXT.P...LOOP STA
$D800,X.X. .INX...*.BNE LOOP...4.;...>.
LDX #62 ;. MESSAGE . SCREEN...H.LOOP2 LD
A MESS,X...R.. #$3F ;C.VERT FII.SCREEN C
ODE...\.STA 1024,X...F.DEX...P.BPL LOOP2
...Z.;.%.... JSR .IN ;. . KEY.B...BEQ .
;ZERO MEANS NO KEY.^...RTS ;EXIT BACK .
BASIC.D...;.J...;.....MESS TXT "HELLO T
HIS IS A BRILLIANT DEMO ISN'T IT?".....;
.J.J.TXT "- PRESS A KEY TO EXIT -".P.T.;
.V...;...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL