1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
|
; super mega amiga emulator :) :) :)
; (c)by Thorex
start:
lda #$b
jsr setcol
jsr delay
lda #$f
jsr setcol
jsr delay
lda #$1
jsr setcol
jsr delay
ldx #0
cp:
lda pic,x
sta $200,x
lda pic2,x
sta $300,x
lda pic3,x
sta $400,x
lda pic4,x
sta $500,x
dex
bne cp
rts
setcol:
ldx #0
s:sta $200,x
sta $300,x
sta $400,x
sta $500,x
dex
bne s
rts
delay:
ldy #29
d1:
ldx #0
d2:
dex
bne d2
dey
bne d1
rts
pic:
dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
dcb 1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0
dcb 0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1
dcb 1,1,1,1,1,1,1,0,$e,$e,$e,$e,0,$f,$f,$f
dcb $f,$f,$f,$f,0,0,0,$f,0,$e,$e,0,1,1,1,1
dcb 1,1,1,1,1,1,1,0,$e,$e,$e,$e,0,$f,$f,$f
dcb $f,$f,$f,$f,0,$e,0,$f,0,$e,$e,$e,0,1,1,1
dcb 1,1,1,1,1,1,1,0,$e,$e,$e,$e,0,$f,$f,$f
dcb $f,$f,$f,$f,0,$e,0,$f,0,$e,$e,$e,$e,0,1,1
dcb 1,1,1,1,1,1,1,0,$e,$e,$e,$e,0,$f,$f,$f
dcb $f,$f,$f,$f,0,0,0,$f,0,$e,$e,$e,$e,0,1,1
dcb 1,1,1,1,1,1,1,0,$e,$e,$e,$e,0,0,0,0
dcb 0,0,0,0,0,0,0,0,0,$e,$e,$e,$e,0,1,1
pic2:
dcb 1,1,1,1,1,1,1,0,$e,$e,$e,$e,$e,$e,$e,$e
dcb $e,$e,$e,$e,$e,$e,$e,$e,$e,$e,$e,$e,$e,0,1,1
dcb 1,1,1,1,1,1,1,0,$e,$e,$e,$e,$e,$e,$e,$e
dcb $e,$e,$e,$e,$e,$e,$e,$e,$e,$e,$e,$e,$e,0,1,1
dcb 1,1,1,1,1,1,1,0,$e,$e,$e,$e,$e,$e,$e,$e
dcb $e,$e,$e,$e,$e,$e,$e,$e,$e,$e,$e,$e,$e,0,1,1
dcb 1,1,1,1,1,1,1,0,$e,$e,$e,$e,$e,$e,$e,$e
dcb $e,$e,$e,$e,$e,$e,$e,$e,$e,$e,$e,$e,$e,0,1,1
dcb 1,1,1,1,1,1,1,0,$e,0,0,0,0,0,0,0
dcb 0,0,0,0,0,0,0,0,0,0,0,$e,$e,0,1,1
dcb 1,1,1,1,1,1,0,0,$e,0,0,1,1,1,1,1
dcb 1,1,1,1,1,1,1,1,1,1,0,$e,$e,0,1,1
dcb 1,1,1,1,1,0,1,0,$e,0,0,0,0,1,1,$e
dcb $e,$e,1,$e,1,$e,1,$e,1,1,0,$e,$e,0,1,1
dcb 1,1,1,0,0,1,1,0,0,1,0,1,1,0,1,1
dcb 1,1,1,1,1,1,1,1,1,1,0,$e,$e,0,1,1
pic3:
dcb 1,1,0,1,1,1,0,1,1,1,1,0,0,1,1,1
dcb $e,1,$e,1,$e,1,$e,1,1,1,0,$e,$e,0,1,1
dcb 1,0,1,1,0,1,1,1,1,1,1,1,0,1,1,0
dcb 1,1,1,1,1,1,1,1,1,1,0,$e,$e,0,1,1
dcb 1,0,1,0,1,1,1,1,1,1,0,0,1,1,0,$f
dcb 0,1,0,1,1,1,0,0,0,1,0,$e,$e,0,1,1
dcb 1,0,1,1,1,1,1,1,1,1,0,1,1,1,1,0
dcb 0,$f,1,0,1,$f,1,0,1,1,0,$e,$e,0,1,1
dcb 1,0,1,1,1,1,1,1,1,1,1,0,0,0,0,0
dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1
dcb 1,0,1,1,1,1,1,1,1,1,1,0,1,1,0,0
dcb 0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
dcb 1,0,1,1,1,1,1,1,1,1,1,0,1,0,0,1
dcb 0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
dcb 1,0,1,1,1,1,1,1,1,1,1,0,1,0,1,1
dcb 0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
pic4:
dcb 1,0,1,1,1,1,1,1,1,1,1,0,1,0,0,0
dcb 0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
dcb 1,0,1,1,1,1,1,1,0,0,0,0,0,1,1,0
dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
dcb 1,0,1,1,1,1,1,1,0,1,1,1,0,0,0,1
dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
dcb 1,1,0,1,1,1,1,1,0,1,1,1,0,1,1,1
dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
dcb 1,1,0,1,1,1,1,1,0,1,1,1,0,1,1,1
dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
dcb 1,1,0,1,1,1,1,1,0,1,1,1,0,1,1,1
dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
|