http://www.tienza.es/crux/src/www.jwz.org/xscreensaver/xscreensaver-5.05.tar.gz
[xscreensaver] / hacks / images / m6502 / fullscreenlogo.asm
1 ;\r
2 ;  draw image\r
3 ;\r
4 \r
5 start:\r
6   lda #<logo\r
7   sta $0\r
8   lda #>logo\r
9   sta $1\r
10 \r
11   lda #$00\r
12   sta $2\r
13   lda #$02\r
14   sta $3\r
15 \r
16   ldx #$0\r
17 l:\r
18   lda ($0,x)\r
19   sta ($2,x)\r
20 \r
21   inc $00\r
22   lda $00\r
23   cmp #$00\r
24   bne notReset1\r
25   inc $01\r
26 notReset1:\r
27 \r
28   inc $02\r
29   lda $02 \r
30   cmp #$00\r
31   bne notReset2\r
32   lda $03\r
33   cmp #$05\r
34   beq done\r
35   inc $03\r
36 notReset2:\r
37 \r
38   jmp l\r
39 done:\r
40   rts\r
41 \r
42 logo:\r
43  dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1\r
44  dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1\r
45  dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,6,6,6\r
46  dcb 6,6,6,6,1,1,1,1,1,1,1,1,1,1,1,1\r
47  dcb 1,1,1,1,1,1,1,1,1,1,6,6,6,6,6,6\r
48  dcb 6,6,6,6,6,1,1,1,1,1,1,1,1,1,1,1\r
49  dcb 1,1,1,1,1,1,1,1,6,6,6,6,6,6,6,6\r
50  dcb 6,6,6,6,6,1,1,1,1,1,1,1,1,1,1,1\r
51  dcb 1,1,1,1,1,1,1,6,6,6,6,6,6,6,6,6\r
52  dcb 6,6,6,6,6,1,1,1,1,1,1,1,1,1,1,1\r
53  dcb 1,1,1,1,1,1,6,6,6,6,6,6,6,6,6,6\r
54  dcb 6,6,6,6,6,1,1,1,1,1,1,1,1,1,1,1\r
55  dcb 1,1,1,1,1,6,6,6,6,6,6,6,6,6,6,6\r
56  dcb 6,6,6,6,6,1,1,1,1,1,1,1,1,1,1,1\r
57  dcb 1,1,1,1,6,6,6,6,6,6,6,6,6,6,6,6\r
58  dcb 6,6,6,6,6,1,1,1,1,1,1,1,1,1,1,1\r
59  dcb 1,1,1,6,6,6,6,6,6,6,6,6,6,6,6,1\r
60  dcb 1,1,1,6,6,1,1,1,1,1,1,1,1,1,1,1\r
61  dcb 1,1,1,6,6,6,6,6,6,6,6,6,6,1,1,1\r
62  dcb 1,1,1,1,1,6,6,6,6,6,6,6,6,6,6,6\r
63  dcb 1,1,6,6,6,6,6,6,6,6,6,1,1,1,1,1\r
64  dcb 1,1,1,1,1,6,6,6,6,6,6,6,6,6,6,1\r
65  dcb 1,1,6,6,6,6,6,6,6,6,1,1,1,1,1,1\r
66  dcb 1,1,1,1,1,6,6,6,6,6,6,6,6,6,1,1\r
67  dcb 1,1,6,6,6,6,6,6,6,6,1,1,1,1,1,1\r
68  dcb 1,1,1,1,1,6,6,6,6,6,6,6,6,1,1,1\r
69  dcb 1,6,6,6,6,6,6,6,6,1,1,1,1,1,1,1\r
70  dcb 1,1,1,1,1,6,6,6,6,6,6,6,1,1,1,1\r
71  dcb 1,6,6,6,6,6,6,6,6,1,1,1,1,1,1,1\r
72  dcb 1,1,1,1,1,6,6,6,6,6,6,1,1,1,1,1\r
73  dcb 1,6,6,6,6,6,6,6,6,1,1,1,1,1,1,1\r
74  dcb 1,1,1,1,1,6,6,6,6,6,1,1,1,1,1,1\r
75  dcb 1,6,6,6,6,6,6,6,6,1,1,1,1,1,1,1\r
76  dcb 1,1,1,1,1,2,2,2,2,2,1,1,1,1,1,1\r
77  dcb 1,6,6,6,6,6,6,6,6,1,1,1,1,1,1,1\r
78  dcb 1,1,1,1,1,2,2,2,2,2,2,1,1,1,1,1\r
79  dcb 1,6,6,6,6,6,6,6,6,1,1,1,1,1,1,1\r
80  dcb 1,1,1,1,1,2,2,2,2,2,2,2,1,1,1,1\r
81  dcb 1,6,6,6,6,6,6,6,6,1,1,1,1,1,1,1\r
82  dcb 1,1,1,1,1,2,2,2,2,2,2,2,2,1,1,1\r
83  dcb 1,1,6,6,6,6,6,6,6,6,1,1,1,1,1,1\r
84  dcb 1,1,1,1,1,2,2,2,2,2,2,2,2,2,1,1\r
85  dcb 1,1,6,6,6,6,6,6,6,6,6,1,1,1,1,1\r
86  dcb 1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,1\r
87  dcb 1,1,1,6,6,6,6,6,6,6,6,6,1,1,1,1\r
88  dcb 1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2\r
89  dcb 1,1,1,6,6,6,6,6,6,6,6,6,6,1,1,1\r
90  dcb 1,1,1,1,6,1,1,1,1,1,1,1,1,1,1,1\r
91  dcb 1,1,1,1,6,6,6,6,6,6,6,6,6,6,6,6\r
92  dcb 6,6,6,6,6,1,1,1,1,1,1,1,1,1,1,1\r
93  dcb 1,1,1,1,6,6,6,6,6,6,6,6,6,6,6,6\r
94  dcb 6,6,6,6,6,1,1,1,1,1,1,1,1,1,1,1\r
95  dcb 1,1,1,1,1,6,6,6,6,6,6,6,6,6,6,6\r
96  dcb 6,6,6,6,6,1,1,1,1,1,1,1,1,1,1,1\r
97  dcb 1,1,1,1,1,1,6,6,6,6,6,6,6,6,6,6\r
98  dcb 6,6,6,6,6,1,1,1,1,1,1,1,1,1,1,1\r
99  dcb 1,1,1,1,1,1,1,1,6,6,6,6,6,6,6,6\r
100  dcb 6,6,6,6,6,1,1,1,1,1,1,1,1,1,1,1\r
101  dcb 1,1,1,1,1,1,1,1,1,6,6,6,6,6,6,6\r
102  dcb 6,6,6,6,6,1,1,1,1,1,1,1,1,1,1,1\r
103  dcb 1,1,1,1,1,1,1,1,1,1,1,1,6,6,6,6\r
104  dcb 6,6,6,6,6,1,1,1,1,1,1,1,1,1,1,1\r
105  dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1\r
106  dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1\r
107 \r