http://www.jwz.org/xscreensaver/xscreensaver-5.13.tar.gz
[xscreensaver] / hacks / images / m6502 / santa.asm
1 start:
2 ldx #0
3 cs:
4 lda $2000,x
5 sta $500,x
6 dex
7 bne cs
8
9 stx $20
10
11 loop:
12
13 inc $20
14 lda $20
15 and #$7f
16 tay
17 and #$1f
18 tax
19 lda sinus,x
20 tax
21
22 d:
23
24 lda #0
25 sta $1e0,x
26 sta $2e0,x
27 lda $1000,y
28 sta $200,x
29 lda $1080,y
30 sta $220,x
31 lda $1100,y
32 sta $240,x
33 lda $1180,y
34 sta $260,x
35 lda $1200,y
36 sta $280,x
37 lda $1280,y
38 sta $2a0,x
39 lda $1300,y
40 sta $2c0,x
41 lda $1380,y
42 sta $2c0,x
43 inx
44 iny
45 txa
46 and #$1f
47 bne d
48
49 jmp loop
50
51 ; 32 ($20) long
52 sinus:
53 dcb 0,0,0,0,$20,$20,$20
54 dcb $40,$40,$60,$80,$a0,$a0,$c0,$c0,$c0
55 dcb $e0,$e0,$e0,$e0,$c0,$c0,$c0
56 dcb $a0,$a0,$80,$60,$40,$40,$20,$20,$20
57
58 *=$1000
59 santa:
60 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
61 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
62 dcb 0,0,0,0,0,0,0,0,$a,$a,0,0,0,0,0,0
63 dcb 0,0,0,0,0,$a,$a,0,0,0,0,0,0,0,0,0
64 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
65 dcb 0,2,2,2,1,0,0,0,0,$9,$9,$9,$9,0,0,0
66 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
67 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
68 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
69 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
70 dcb 0,0,0,0,0,0,0,0,$a,$a,$a,0,0,0,0,0
71 dcb 0,0,0,0,0,$a,$a,$a,0,0,0,0,0,0,0,0
72 dcb 0,0,0,0,0,0,$9,$9,0,0,0,0,0,0,0,0
73 dcb 0,1,1,2,2,0,$9,$9,$9,$9,$9,$9,0,0,0,0
74 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
75 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
76 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
77 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
78 dcb 0,0,0,0,0,0,$a,$a,$a,$a,$a,$a,0,0,0,0
79 dcb 0,0,0,$a,$a,$a,$a,$a,$a,0,0,0,0,0,0,0
80 dcb 0,0,0,0,0,0,0,$9,$9,$9,0,0,0,0,0,0
81 dcb 0,1,2,2,$9,$9,$9,$9,$9,$9,$9,0,0,0,0,0
82 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
83 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
84 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
85 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
86 dcb 0,0,0,0,0,0,0,0,0,$a,$a,$a,$a,$a,$a,$b
87 dcb $b,$b,$b,$b,$b,$b,$a,$a,$a,$a,$a,$a,$b,$b,$b,$b
88 dcb $b,$b,$b,$b,$b,$9,$9,$9,$9,$9,$9,$9,$9,$9,$9,$9
89 dcb $9,2,2,$9,$9,$9,$9,$9,$9,$9,0,0,0,0,0,0
90 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
91 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
92 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
93 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
94 dcb 0,0,0,0,0,0,0,0,0,$a,$a,$a,$a,$a,$a,$a
95 dcb $a,0,0,0,0,0,$a,$a,$a,$a,$a,$a,$a,$a,0,0
96 dcb 0,0,0,0,0,0,0,$9,$9,$9,$9,$9,$9,$9,$9,$9
97 dcb 2,2,$9,$9,$9,$9,$9,$9,$9,$9,$9,0,0,0,0,0
98 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
99 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
100 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
101 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
102 dcb 0,0,0,0,0,0,0,0,0,$a,$a,$a,$a,$a,$a,0
103 dcb $a,$a,0,0,0,0,$a,$a,$a,$a,$a,$a,0,$a,$a,0
104 dcb 0,0,0,0,0,$a,$a,0,0,$9,$a,$9,$9,$9,$9,$9
105 dcb $9,$9,$a,$9,$9,$9,$9,$9,$9,$9,$9,0,0,0,0,0
106 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
107 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
108 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
109 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
110 dcb 0,0,0,0,0,0,0,0,0,$a,0,$a,0,0,$a,0
111 dcb 0,$a,0,0,0,0,$a,0,$a,0,0,$a,0,0,$a,0
112 dcb 0,0,0,0,0,$a,0,0,0,$a,0,0,0,0,0,0
113 dcb 0,$a,0,0,0,0,0,0,0,0,0,0,0,0,0,0
114 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
115 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
116 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
117 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
118 dcb 0,0,0,0,0,0,0,0,$a,$a,0,$a,0,0,$a,$a
119 dcb 0,$a,$a,0,0,$a,$a,0,$a,0,0,$a,$a,0,$a,$a
120 dcb 0,0,0,0,0,0,$a,$a,$a,$a,$a,$a,$a,$a,$a,$a
121 dcb $a,$a,$a,$a,$a,$a,$a,$a,$a,$a,$a,0,0,0,0,0
122 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
123 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
124
125 *=$2000
126 dcb 0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0
127 dcb 0,0,0,0,0,0,0,0,0,0,0,0,$c,1,1,1
128 dcb 0,0,0,0,0,0,0,0,0,0,0,1,1,1,$a,$a
129 dcb 0,0,0,0,0,0,0,0,0,0,$c,1,1,1,1,1
130 dcb 1,1,$c,0,0,0,0,0,0,0,0,0,1,1,0,0
131 dcb 0,0,0,0,0,0,0,0,$c,1,1,1,1,1,1,1
132 dcb 1,1,1,1,1,$c,0,0,0,0,0,1,1,1,1,0
133 dcb 0,0,0,0,0,0,$c,1,1,1,1,1,1,1,1,1
134 dcb 1,1,1,1,1,1,$c,0,0,0,0,1,1,1,1,0
135 dcb 0,0,0,0,0,$c,1,1,1,1,1,1,1,1,1,1,1
136 dcb 1,1,1,1,1,1,1,1,$c,0,0,1,1,0,0
137 dcb 0,0,$c,1,1,1,1,1,1,1,1,1,1,1,1,1
138 dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
139 dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
140 dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
141 dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
142