1 |
131 |
jt_eaton |
|
2 |
|
|
|
3 |
|
|
cpu 6502
|
4 |
|
|
output HEX
|
5 |
|
|
|
6 |
|
|
* = $0000 ; assemble at $f000
|
7 |
|
|
code
|
8 |
|
|
;-------------------------------------------
|
9 |
|
|
; ;
|
10 |
|
|
;Code 00h defines a solid block ;
|
11 |
|
|
;Codes 01h-04h define block graphics ;
|
12 |
|
|
;Codes 05h-1Fh define line graphics ;
|
13 |
|
|
;Codes 20h-7Eh define the ASCII characters ;
|
14 |
|
|
;Code 7Fh defines a hash pattern ;
|
15 |
|
|
;Codes 80h-FFh user defined characters ;
|
16 |
|
|
;------------------------------------------- ;
|
17 |
|
|
;//// Solid Block ////
|
18 |
|
|
;// 00h: solid block address 000
|
19 |
|
|
db $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF;
|
20 |
|
|
;// Block graphics ////
|
21 |
|
|
; 01h: Left block up, right block down address 008
|
22 |
|
|
db $F0,$F0,$F0,$F0,$0F,$0F,$0F,$0F;
|
23 |
|
|
; 02h: Left block down, right block up address 010
|
24 |
|
|
db $0F,$0F,$0F,$0F,$F0,$F0,$F0,$F0;
|
25 |
|
|
; 03h: Both blocks down address 018
|
26 |
|
|
db $00,$00,$00,$00,$FF,$FF,$FF,$FF;
|
27 |
|
|
; 04h: Both blocks up address 020
|
28 |
|
|
db $FF,$FF,$FF,$FF,$00,$00,$00,$00;
|
29 |
|
|
;// Line Graphics ////
|
30 |
|
|
; 05h: corner upper left address 028
|
31 |
|
|
db $FF,$80,$80,$80,$80,$80,$80,$80;
|
32 |
|
|
; 06h: corner upper right address 030
|
33 |
|
|
db $FF,$01,$01,$01,$01,$01,$01,$01;
|
34 |
|
|
; 07h: corner lower left address 038
|
35 |
|
|
db $80,$80,$80,$80,$80,$80,$80,$FF;
|
36 |
|
|
; 08h: corner lower right address 040
|
37 |
|
|
db $01,$01,$01,$01,$01,$01,$01,$FF;
|
38 |
|
|
; 09h: cross junction address 048
|
39 |
|
|
db $10,$10,$10,$FF,$10,$10,$10,$10;
|
40 |
|
|
; 0Ah: "T" junction address 050
|
41 |
|
|
db $FF,$10,$10,$10,$10,$10,$10,$10;
|
42 |
|
|
; 0Bh: "T" juntion rotated 90 clockwise address 058
|
43 |
|
|
db $01,$01,$01,$FF,$01,$01,$01,$01;
|
44 |
|
|
; 0Ch: "T" juntion rotated 180 address 060
|
45 |
|
|
db $10,$10,$10,$10,$10,$10,$10,$FF;
|
46 |
|
|
; 0Dh: "T" junction rotated 270 clockwise address 068
|
47 |
|
|
db $80,$80,$80,$FF,$80,$80,$80,$80;
|
48 |
|
|
; 0Eh: arrow pointing right address 070
|
49 |
|
|
db $08,$04,$02,$FF,$02,$04,$08,$00;
|
50 |
|
|
; 0Fh: arrow pointing left address 078
|
51 |
|
|
db $10,$20,$40,$FF,$40,$20,$10,$00;
|
52 |
|
|
; 10h: first (top) horizontal line address 080
|
53 |
|
|
db $FF,$00,$00,$00,$00,$00,$00,$00;
|
54 |
|
|
; 11h: second horizontal line address 088
|
55 |
|
|
db $00,$FF,$00,$00,$00,$00,$00,$00;
|
56 |
|
|
; 12h: third horizontal line address 090
|
57 |
|
|
db $00,$00,$FF,$00,$00,$00,$00,$00;
|
58 |
|
|
; 13h: fourth horizontal line address 098
|
59 |
|
|
db $00,$00,$00,$FF,$00,$00,$00,$00;
|
60 |
|
|
; 14h: fifth horizontal line address 0A0
|
61 |
|
|
db $00,$00,$00,$00,$FF,$00,$00;
|
62 |
|
|
; 15h: sixth horizontal line address 0A7
|
63 |
|
|
db $00,$00,$00,$00,$00,$00,$FF,$00,$00;
|
64 |
|
|
; 16h: seventh horizontal line address 0B0
|
65 |
|
|
db $00,$00,$00,$00,$00,$00,$FF,$00;
|
66 |
|
|
; 17h: eighth (bottom) horizontal line address 0B8
|
67 |
|
|
db $00,$00,$00,$00,$00,$00,$00,$FF;
|
68 |
|
|
; 18h: first (left) vertical line address 0C0
|
69 |
|
|
db $80,$80,$80,$80,$80,$80,$80,$80;
|
70 |
|
|
; 19h: second vertical line address 0C8
|
71 |
|
|
db $40,$40,$40,$40,$40,$40,$40,$40;
|
72 |
|
|
; 1Ah: third vertical line address 0D0
|
73 |
|
|
db $20,$20,$20,$20,$20,$20,$20,$20;
|
74 |
|
|
; 1Bh: fourth vertical line address 0D8
|
75 |
|
|
db $10,$10,$10,$10,$10,$10,$10,$10;
|
76 |
|
|
; 1Ch: fifth vertical line address 0E0
|
77 |
|
|
db $08,$08,$08,$08,$08,$08,$08,$08;
|
78 |
|
|
; 1Dh: sixth vertical line address 0E8
|
79 |
|
|
db $04,$04,$04,$04,$04,$04,$04,$04;
|
80 |
|
|
; 1Eh: seventh vertical line address 0F0
|
81 |
|
|
db $02,$02,$02,$02,$02,$02,$02,$02;
|
82 |
|
|
; 1Fh: eighth (right) vertical line address 0F8
|
83 |
|
|
db $01,$01,$01,$01,$01,$01,$01,$01;
|
84 |
|
|
;// ASCII Characters ////
|
85 |
|
|
; 20h: space address 100
|
86 |
|
|
db $00,$00,$00,$00,$00,$00,$00,$00;
|
87 |
|
|
; 21h: ! address 108
|
88 |
|
|
db $10,$10,$10,$10,$00,$00,$10,$00;
|
89 |
|
|
; 22h: " address 110
|
90 |
|
|
db $28,$28,$28,$00,$00,$00,$00,$00;
|
91 |
|
|
; 23h: # address 118
|
92 |
|
|
db $28,$28,$7C,$28,$7C,$28,$28,$00;
|
93 |
|
|
; 24h: $ address 120
|
94 |
|
|
db $10,$3C,$50,$38,$14,$78,$10,$00;
|
95 |
|
|
; 25h: % address 128
|
96 |
|
|
db $60,$64,$08,$10,$20,$46,$06,$00;
|
97 |
|
|
; 26h: & address 130
|
98 |
|
|
db $30,$48,$50,$20,$54,$48,$34,$00;
|
99 |
|
|
; 27h: ' address 138
|
100 |
|
|
db $30,$10,$20,$00,$00,$00,$00,$00;
|
101 |
|
|
; 28h: ( address 140
|
102 |
|
|
db $08,$10,$20,$20,$20,$10,$08,$00;
|
103 |
|
|
; 29h: ) address 148
|
104 |
|
|
db $20,$10,$08,$08,$08,$10,$20,$00;
|
105 |
|
|
; 2Ah: * address 150
|
106 |
|
|
db $00,$10,$54,$38,$54,$10,$00,$00;
|
107 |
|
|
; 2Bh: + address 158
|
108 |
|
|
db $00,$10,$10,$7C,$10,$10,$00,$00;
|
109 |
|
|
; 2Ch: , address 160
|
110 |
|
|
db $00,$00,$00,$00,$00,$30,$10,$20;
|
111 |
|
|
; 2Dh: - address 168
|
112 |
|
|
db $00,$00,$00,$7C,$00,$00,$00,$00;
|
113 |
|
|
; 2Eh: . address 170
|
114 |
|
|
db $00,$00,$00,$00,$00,$30,$30,$00;
|
115 |
|
|
; 2Fh: / address 178
|
116 |
|
|
db $00,$04,$08,$10,$20,$40,$00,$00;
|
117 |
|
|
; 30h: 0 address 180
|
118 |
|
|
db $38,$44,$4C,$54,$64,$44,$38,$00;
|
119 |
|
|
; 31h: 1 address 188
|
120 |
|
|
db $10,$30,$10,$10,$10,$10,$38,$00;
|
121 |
|
|
; 32h: 2 address 190
|
122 |
|
|
db $38,$44,$04,$08,$10,$20,$7C,$00;
|
123 |
|
|
; 33h: 3 address 198
|
124 |
|
|
db $7C,$08,$10,$08,$04,$44,$38,$00;
|
125 |
|
|
; 34h: 4 address 1A0
|
126 |
|
|
db $08,$18,$28,$48,$7C,$08,$08,$00;
|
127 |
|
|
; 35h: 5 address 1A8
|
128 |
|
|
db $7C,$40,$78,$04,$04,$44,$38,$00;
|
129 |
|
|
; 36h: 6 address 1B0
|
130 |
|
|
db $18,$20,$40,$78,$44,$44,$38,$00;
|
131 |
|
|
; 37h: 7 address 1B8
|
132 |
|
|
db $7C,$04,$08,$10,$20,$20,$20,$00;
|
133 |
|
|
; 38h: 8 address 1C0
|
134 |
|
|
db $38,$44,$44,$38,$44,$44,$38,$00;
|
135 |
|
|
; 39h: 9 address 1C8
|
136 |
|
|
db $38,$44,$44,$3C,$04,$08,$30,$00;
|
137 |
|
|
; 3Ah: : address 1D0
|
138 |
|
|
db $00,$30,$30,$00,$00,$30,$30,$00;
|
139 |
|
|
; 3Bh: ; address 1D8
|
140 |
|
|
db $00,$30,$30,$00,$00,$30,$10,$20;
|
141 |
|
|
; 3Ch: < address 1E0
|
142 |
|
|
db $08,$10,$20,$40,$20,$10,$08,$00;
|
143 |
|
|
; 3Dh: = address 1E8
|
144 |
|
|
db $00,$00,$7C,$00,$7C,$00,$00,$00;
|
145 |
|
|
; 3Eh: > address 1F0
|
146 |
|
|
db $20,$10,$08,$04,$08,$10,$20,$00;
|
147 |
|
|
; 3Fh: ? address 1F8
|
148 |
|
|
db $38,$44,$04,$08,$10,$00,$10,$00;
|
149 |
|
|
; 40h: @ address 200
|
150 |
|
|
db $38,$44,$04,$34,$54,$54,$38,$00;
|
151 |
|
|
; 41h: A address 208
|
152 |
|
|
db $38,$44,$44,$44,$7C,$44,$44,$00;
|
153 |
|
|
; 42h: B address 210
|
154 |
|
|
db $78,$44,$44,$78,$44,$44,$78,$00;
|
155 |
|
|
; 43h: C address 218
|
156 |
|
|
db $38,$44,$40,$40,$40,$44,$38,$00;
|
157 |
|
|
; 44h: D address 220
|
158 |
|
|
db $70,$48,$44,$44,$44,$48,$70,$00;
|
159 |
|
|
; 45h: E address 228
|
160 |
|
|
db $7C,$40,$40,$78,$40,$40,$7C,$00;
|
161 |
|
|
; 46h: F address 230
|
162 |
|
|
db $7C,$40,$40,$78,$40,$40,$40,$00;
|
163 |
|
|
; 47h: G address 238
|
164 |
|
|
db $38,$44,$40,$5C,$44,$44,$3C,$00;
|
165 |
|
|
; 48h: H address 240
|
166 |
|
|
db $44,$44,$44,$7C,$44,$44,$44,$00;
|
167 |
|
|
; 49h: I address 248
|
168 |
|
|
db $38,$10,$10,$10,$10,$10,$38,$00;
|
169 |
|
|
; 4Ah: J address 250
|
170 |
|
|
db $1C,$08,$08,$08,$08,$48,$30,$00;
|
171 |
|
|
; 4Bh: K address 258
|
172 |
|
|
db $44,$48,$50,$60,$50,$48,$44,$00;
|
173 |
|
|
; 4Ch: L address 260
|
174 |
|
|
db $40,$40,$40,$40,$40,$40,$7C,$00;
|
175 |
|
|
; 4Dh: M address 268
|
176 |
|
|
db $44,$6C,$54,$54,$44,$44,$44,$00;
|
177 |
|
|
; 4Eh: N address 270
|
178 |
|
|
db $44,$44,$64,$54,$4C,$44,$44,$00;
|
179 |
|
|
; 4Fh: O address 278
|
180 |
|
|
db $38,$44,$44,$44,$44,$44,$38,$00;
|
181 |
|
|
; 50h: P address 280
|
182 |
|
|
db $78,$44,$44,$78,$40,$40,$40,$00;
|
183 |
|
|
; 51h: Q address 288
|
184 |
|
|
db $38,$44,$44,$44,$54,$48,$34,$00;
|
185 |
|
|
; 52h: R address 290
|
186 |
|
|
db $78,$44,$44,$78,$50,$48,$44,$00;
|
187 |
|
|
; 53h: S address 298
|
188 |
|
|
db $3C,$40,$40,$38,$04,$04,$78,$00;
|
189 |
|
|
; 54h: T address 2A0
|
190 |
|
|
db $7C,$10,$10,$10,$10,$10,$10,$00;
|
191 |
|
|
; 55h: U address 2A8
|
192 |
|
|
db $44,$44,$44,$44,$44,$44,$38,$00;
|
193 |
|
|
; 56h: V address 2B0
|
194 |
|
|
db $44,$44,$44,$44,$44,$28,$10,$00;
|
195 |
|
|
; 57h: W address 2B8
|
196 |
|
|
db $44,$44,$44,$54,$54,$54,$28,$00;
|
197 |
|
|
; 58h: X address 2C0
|
198 |
|
|
db $44,$44,$28,$10,$28,$44,$44,$00;
|
199 |
|
|
; 59h: Y address 2C8
|
200 |
|
|
db $44,$44,$44,$28,$10,$10,$10,$00;
|
201 |
|
|
; 5Ah: Z address 2D0
|
202 |
|
|
db $7C,$04,$08,$10,$20,$40,$7C,$00;
|
203 |
|
|
; 5Bh: [ address 2D8
|
204 |
|
|
db $38,$20,$20,$20,$20,$20,$38,$00;
|
205 |
|
|
; 5Ch: \ address 2E0
|
206 |
|
|
db $00,$40,$20,$10,$08,$04,$00,$00;
|
207 |
|
|
; 5Dh: ] address 2E8
|
208 |
|
|
db $38,$08,$08,$08,$08,$08,$38,$00;
|
209 |
|
|
; 5Eh: ^ address 2F0
|
210 |
|
|
db $10,$28,$44,$00,$00,$00,$00,$00;
|
211 |
|
|
; 5Fh: _ address 2F8
|
212 |
|
|
db $00,$00,$00,$00,$00,$00,$7C,$00;
|
213 |
|
|
; 60h: ` address 300
|
214 |
|
|
db $20,$10,$08,$00,$00,$00,$00,$00;
|
215 |
|
|
; 61h: a address 308
|
216 |
|
|
db $00,$00,$38,$04,$3C,$44,$3C,$00;
|
217 |
|
|
; 62h: b address 310
|
218 |
|
|
db $40,$40,$58,$64,$44,$44,$78,$00;
|
219 |
|
|
; 63h: c address 318
|
220 |
|
|
db $00,$00,$38,$40,$40,$44,$38,$00;
|
221 |
|
|
; 64h: d address 320
|
222 |
|
|
db $04,$04,$34,$4C,$44,$44,$3C,$00;
|
223 |
|
|
; 65h: e address 328
|
224 |
|
|
db $00,$00,$38,$44,$7C,$40,$38,$00;
|
225 |
|
|
; 66h: f address 330
|
226 |
|
|
db $18,$24,$20,$70,$20,$20,$20,$00;
|
227 |
|
|
; 67h: g address 338
|
228 |
|
|
db $00,$00,$3C,$44,$44,$3C,$04,$38;
|
229 |
|
|
; 68h: h address 340
|
230 |
|
|
db $40,$40,$58,$64,$44,$44,$44,$00;
|
231 |
|
|
; 69h: i address 348
|
232 |
|
|
db $10,$10,$30,$10,$10,$10,$38,$00;
|
233 |
|
|
; 6Ah: j address 350
|
234 |
|
|
db $00,$08,$00,$18,$08,$08,$48,$30;
|
235 |
|
|
; 6Bh: k address 358
|
236 |
|
|
db $40,$40,$48,$50,$60,$50,$48,$00;
|
237 |
|
|
; 6Ch: l address 360
|
238 |
|
|
db $30,$10,$10,$10,$10,$10,$38,$00;
|
239 |
|
|
; 6Dh: m address 368
|
240 |
|
|
db $00,$00,$68,$54,$54,$44,$44,$00;
|
241 |
|
|
; 6Eh: n address 370
|
242 |
|
|
db $00,$00,$58,$64,$44,$44,$44,$00;
|
243 |
|
|
; 6Fh: o address 378
|
244 |
|
|
db $00,$00,$38,$44,$44,$44,$38,$00;
|
245 |
|
|
; 70h: p address 380
|
246 |
|
|
db $00,$00,$78,$44,$78,$40,$40,$40;
|
247 |
|
|
; 71h: q address 388
|
248 |
|
|
db $00,$00,$00,$34,$4C,$3C,$04,$04;
|
249 |
|
|
; 72h: r address 390
|
250 |
|
|
db $00,$00,$58,$64,$40,$40,$40,$00;
|
251 |
|
|
; 73h: s address 398
|
252 |
|
|
db $00,$00,$38,$40,$38,$04,$78,$00;
|
253 |
|
|
; 74h: t address 3A0
|
254 |
|
|
db $00,$20,$20,$70,$20,$20,$24,$18;
|
255 |
|
|
; 75h: u address 3A8
|
256 |
|
|
db $00,$00,$44,$44,$44,$4C,$34,$00;
|
257 |
|
|
; 76h: v address 3B0
|
258 |
|
|
db $00,$00,$44,$44,$44,$28,$10,$00;
|
259 |
|
|
; 77h: w address 3B8
|
260 |
|
|
db $00,$00,$44,$44,$54,$54,$28,$00;
|
261 |
|
|
; 78h: x address 3C0
|
262 |
|
|
db $00,$00,$44,$28,$10,$28,$44,$00;
|
263 |
|
|
; 79h: y address 3C8
|
264 |
|
|
db $00,$00,$00,$44,$44,$3C,$04,$38;
|
265 |
|
|
; 7Ah: z address 3D0
|
266 |
|
|
db $00,$00,$7C,$08,$10,$20,$7C,$00;
|
267 |
|
|
; 7Bh: { address 3D8
|
268 |
|
|
db $08,$10,$10,$20,$10,$10,$08,$00;
|
269 |
|
|
; 7Ch: | address 3E0
|
270 |
|
|
db $10,$10,$10,$10,$10,$10,$10,$00;
|
271 |
|
|
; 7Dh: } address 3E8
|
272 |
|
|
db $20,$10,$10,$08,$10,$10,$20,$00;
|
273 |
|
|
; 7Eh: ~ address 3F0
|
274 |
|
|
db $00,$00,$60,$92,$0C,$00,$00,$00;
|
275 |
|
|
;// Hash Pattern ////
|
276 |
|
|
; 7Fh: hash pattern address 3F8
|
277 |
|
|
db $55,$AA,$55,$AA,$55,$AA,$55,$AA;
|
278 |
|
|
;// User Defined Characters ////
|
279 |
|
|
; 80h: vertical to the left address 400
|
280 |
|
|
db $F0,$F0,$F0,$F0,$F0,$F0,$F0,$F0;
|
281 |
|
|
; 81h: vertical to the right address 408
|
282 |
|
|
db $0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F;
|
283 |
|
|
; 82h: circle address 410
|
284 |
|
|
db $00,$18,$3C,$7E,$7E,$3C,$18,$00;
|
285 |
|
|
; 83h: Upper left block only address 418
|
286 |
|
|
db $F0,$F0,$F0,$F0,$00,$00,$00,$00;
|
287 |
|
|
; 84h: Upper right block only address 420
|
288 |
|
|
db $0F,$0F,$0F,$0F,$00,$00,$00,$00;
|
289 |
|
|
; 85h: Lower left block only address 428
|
290 |
|
|
db $00,$00,$00,$00,$F0,$F0,$F0,$F0;
|
291 |
|
|
; 86h: Lower right block only address 430
|
292 |
|
|
db $00,$00,$00,$00,$0F,$0F,$0F,$0F;
|
293 |
|
|
; 87h: One horizontal line address 438
|
294 |
|
|
db $00,$00,$00,$00,$00,$00,$00,$FF;
|
295 |
|
|
; 88h: Two horizontal lines address 440
|
296 |
|
|
db $00,$00,$00,$00,$00,$00,$FF,$FF;
|
297 |
|
|
; 89h: Three horizontal lines address 448
|
298 |
|
|
db $00,$00,$00,$00,$00,$FF,$FF,$FF;
|
299 |
|
|
; 8Ah: Four horizontal lines address 450
|
300 |
|
|
db $00,$00,$00,$00,$FF,$FF,$FF,$FF;
|
301 |
|
|
; 8Bh: Five horizontal lines address 458
|
302 |
|
|
db $00,$00,$00,$FF,$FF,$FF,$FF,$FF;
|
303 |
|
|
; 8Ch: Six horizontal lines address 460
|
304 |
|
|
db $00,$00,$FF,$FF,$FF,$FF,$FF,$FF;
|
305 |
|
|
; 8Dh: Seven horizontal lines address 468
|
306 |
|
|
db $00,$FF,$FF,$FF,$FF,$FF,$FF,$FF;
|
307 |
|
|
; 8Eh: One vertical line address 470
|
308 |
|
|
db $80,$80,$80,$80,$80,$80,$80,$80;
|
309 |
|
|
; 8Fh: Two vertical lines address 478
|
310 |
|
|
db $c0,$c0,$c0,$c0,$c0,$c0,$c0,$c0;
|
311 |
|
|
|
312 |
|
|
|
313 |
|
|
code
|