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
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
|
start:
ldx #0
cs:
lda $2000,x
sta $500,x
dex
bne cs
stx $20
loop:
inc $20
lda $20
and #$7f
tay
and #$1f
tax
lda sinus,x
tax
d:
lda #0
sta $1e0,x
sta $2e0,x
lda $1000,y
sta $200,x
lda $1080,y
sta $220,x
lda $1100,y
sta $240,x
lda $1180,y
sta $260,x
lda $1200,y
sta $280,x
lda $1280,y
sta $2a0,x
lda $1300,y
sta $2c0,x
lda $1380,y
sta $2c0,x
inx
iny
txa
and #$1f
bne d
jmp loop
; 32 ($20) long
sinus:
dcb 0,0,0,0,$20,$20,$20
dcb $40,$40,$60,$80,$a0,$a0,$c0,$c0,$c0
dcb $e0,$e0,$e0,$e0,$c0,$c0,$c0
dcb $a0,$a0,$80,$60,$40,$40,$20,$20,$20
*=$1000
santa:
dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
dcb 0,0,0,0,0,0,0,0,$a,$a,0,0,0,0,0,0
dcb 0,0,0,0,0,$a,$a,0,0,0,0,0,0,0,0,0
dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
dcb 0,2,2,2,1,0,0,0,0,$9,$9,$9,$9,0,0,0
dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
dcb 0,0,0,0,0,0,0,0,$a,$a,$a,0,0,0,0,0
dcb 0,0,0,0,0,$a,$a,$a,0,0,0,0,0,0,0,0
dcb 0,0,0,0,0,0,$9,$9,0,0,0,0,0,0,0,0
dcb 0,1,1,2,2,0,$9,$9,$9,$9,$9,$9,0,0,0,0
dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
dcb 0,0,0,0,0,0,$a,$a,$a,$a,$a,$a,0,0,0,0
dcb 0,0,0,$a,$a,$a,$a,$a,$a,0,0,0,0,0,0,0
dcb 0,0,0,0,0,0,0,$9,$9,$9,0,0,0,0,0,0
dcb 0,1,2,2,$9,$9,$9,$9,$9,$9,$9,0,0,0,0,0
dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
dcb 0,0,0,0,0,0,0,0,0,$a,$a,$a,$a,$a,$a,$b
dcb $b,$b,$b,$b,$b,$b,$a,$a,$a,$a,$a,$a,$b,$b,$b,$b
dcb $b,$b,$b,$b,$b,$9,$9,$9,$9,$9,$9,$9,$9,$9,$9,$9
dcb $9,2,2,$9,$9,$9,$9,$9,$9,$9,0,0,0,0,0,0
dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
dcb 0,0,0,0,0,0,0,0,0,$a,$a,$a,$a,$a,$a,$a
dcb $a,0,0,0,0,0,$a,$a,$a,$a,$a,$a,$a,$a,0,0
dcb 0,0,0,0,0,0,0,$9,$9,$9,$9,$9,$9,$9,$9,$9
dcb 2,2,$9,$9,$9,$9,$9,$9,$9,$9,$9,0,0,0,0,0
dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
dcb 0,0,0,0,0,0,0,0,0,$a,$a,$a,$a,$a,$a,0
dcb $a,$a,0,0,0,0,$a,$a,$a,$a,$a,$a,0,$a,$a,0
dcb 0,0,0,0,0,$a,$a,0,0,$9,$a,$9,$9,$9,$9,$9
dcb $9,$9,$a,$9,$9,$9,$9,$9,$9,$9,$9,0,0,0,0,0
dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
dcb 0,0,0,0,0,0,0,0,0,$a,0,$a,0,0,$a,0
dcb 0,$a,0,0,0,0,$a,0,$a,0,0,$a,0,0,$a,0
dcb 0,0,0,0,0,$a,0,0,0,$a,0,0,0,0,0,0
dcb 0,$a,0,0,0,0,0,0,0,0,0,0,0,0,0,0
dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
dcb 0,0,0,0,0,0,0,0,$a,$a,0,$a,0,0,$a,$a
dcb 0,$a,$a,0,0,$a,$a,0,$a,0,0,$a,$a,0,$a,$a
dcb 0,0,0,0,0,0,$a,$a,$a,$a,$a,$a,$a,$a,$a,$a
dcb $a,$a,$a,$a,$a,$a,$a,$a,$a,$a,$a,0,0,0,0,0
dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
*=$2000
dcb 0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0
dcb 0,0,0,0,0,0,0,0,0,0,0,0,$c,1,1,1
dcb 0,0,0,0,0,0,0,0,0,0,0,1,1,1,$a,$a
dcb 0,0,0,0,0,0,0,0,0,0,$c,1,1,1,1,1
dcb 1,1,$c,0,0,0,0,0,0,0,0,0,1,1,0,0
dcb 0,0,0,0,0,0,0,0,$c,1,1,1,1,1,1,1
dcb 1,1,1,1,1,$c,0,0,0,0,0,1,1,1,1,0
dcb 0,0,0,0,0,0,$c,1,1,1,1,1,1,1,1,1
dcb 1,1,1,1,1,1,$c,0,0,0,0,1,1,1,1,0
dcb 0,0,0,0,0,$c,1,1,1,1,1,1,1,1,1,1,1
dcb 1,1,1,1,1,1,1,1,$c,0,0,1,1,0,0
dcb 0,0,$c,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
|
