| 1 |
135 |
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
|
