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
|
; testing byterun compression
start:
lda #<logo
sta $0
lda #>logo
sta $1
lda #$00
sta $2
lda #$02
sta $3
decrunchLoop:
lda $3
cmp #$6
bne moreWork
rts
moreWork:
ldy #0
lda ($0),y
cmp #$ff
bne notCrunched
iny
lda ($0),y ; repeat #
sta $4
iny
lda ($0),y ; color
ldy $4
drawLoop:
ldx #0
sta ($2,x)
jsr nextPixel
dey
bne drawLoop
jsr getNextByte
jsr getNextByte
jmp decrunchLoop
notCrunched:
ldx #0
sta ($2,x)
jsr nextPixel
jsr getNextByte
jmp decrunchLoop
getNextByte:
inc $0
lda $0
cmp #$00
bne notHi
inc $1
notHi:
rts
nextPixel:
inc $2
ldx $2
cpx #$00
bne notNextLine
inc $3
notNextLine:
rts
logo:
dcb $ff,43,1,$f,$f,$f,$c,$f,$f,$f,$ff,24,1,$c,$f,$c,0
dcb $c,$f,$c,$ff,24,1,0,$f,$c,0,$c,$f,$c,$ff,24,1
dcb $c,$f,$c,0,$c,$f,$c,$ff,24,1,0,$f,$c,0,$c,$f,$c
dcb $ff,24,1,$c,$f,0,0,$c,$f,$c,$ff,24,1,0,$f,$c,0
dcb $c,$f,$c,$ff,24,1,0,$f,$c,0,$c,$f,0,$ff,24,1
dcb 0,$f,$c,0,$c,$f,0,$ff,23,1,$f,0,$f,$c,0,$c,$f,0,$f
dcb $ff,22,1,$c,0,1,$c,0,$c,$f,0,$c,$ff,21,1
dcb $f,0,0,1,0,0,$c,1,0,0,$ff,21,1,$c,0,$c,1,$c,0
dcb $c,1,$c,0,$c,$ff,19,1,$f,0,0,$f,1,$c,0
dcb $c,1,$f,0,0,$f,$ff,17,1,$f,0,0,0,1,1,$c,0
dcb $c,1,1,0,0,0,$ff,16,1,$f,0,0,0,$f,1,1,0,0
dcb $c,1,1,$f,0,0,0,$f,$ff,13,1
dcb $c,0,0,0,$c,1,1,1,$c,0,$c,1,1,1,$c,0,0,0,$c
dcb $ff,10,1,$c,0,0,0,0,$c,1,1,1,1,0,0
dcb $c,1,1,1,1,0,0,0,0,0,$c,$ff,8,1
dcb 0,0,0,0,$c,1,1,1,1,1,0,0
dcb $c,1,1,1,1,1,$c,0,0,0,0,1,1,1,1,1
dcb 1,1,1,1,0,0,$c,1,1,1,1,1,1,1,$c,0
dcb $c,1,1,1,1,1,1,$f,$c,0,0,$ff,18,1,$f
dcb $ff,53,1,0,$f,1,0,0,0,0,0,$f,1,$c
dcb $c,1,1,1,$c,0,0,0,1,1,0,$f,$f,1,1,1
dcb 1,1,1,1,$c,0,0,1,1,1,0,$f,1,1,$f,0
dcb 0,$f,1,1,0,$f,1,$c,$c,1,0,$f,1,1,1,1
dcb 1,1,1,1,0,$f,0,$f,1,1,0,$f,1,1,$f,$c
dcb $c,$c,1,1,0,1,1,$f,0,1,0,$f,1,1,1,1
dcb 1,1,1,1,0,1,$c,$f,1,1,$c,$f,1,1,0,$f
dcb $f,0,1,1,0,$f,$f,0,$f,1,0,$f,1,1,1,1
dcb 1,1,1,$c,0,$c,0,0,1,1,0,$f,1,1,0,$c
dcb $c,0,$f,1,0,$f,0,$f,1,1,0,$f,1,1,1,1
dcb 1,1,1,0,$c,$f,$f,0,$f,1,$c,$f,1,$c,$c,$f
dcb $f,$c,$c,1,0,1,$f,$c,1,1,0,$f,1,1,1,1
dcb 1,1,$f,0,1,1,1,$c,$c,1,0,$f,1,0,$f,1
dcb 1,$f,0,1,0,$f,1,0,$f,1,0,$f,$ff,16,1
dcb $f,$ff,5,1,$f,1,1,1,$f,$ff,38,1
|
