diff options
| author | Simon Rettberg | 2018-10-16 10:08:48 +0200 |
|---|---|---|
| committer | Simon Rettberg | 2018-10-16 10:08:48 +0200 |
| commit | d3a98cf6cbc3bd0b9efc570f58e8812c03931c18 (patch) | |
| tree | cbddf8e50f35a9c6e878a5bfe3c6d625d99e12ba /hacks/images/m6502/colors.asm | |
| download | xscreensaver-d3a98cf6cbc3bd0b9efc570f58e8812c03931c18.tar.gz xscreensaver-d3a98cf6cbc3bd0b9efc570f58e8812c03931c18.tar.xz xscreensaver-d3a98cf6cbc3bd0b9efc570f58e8812c03931c18.zip | |
Original 5.40
Diffstat (limited to 'hacks/images/m6502/colors.asm')
| -rw-r--r-- | hacks/images/m6502/colors.asm | 46 |
1 files changed, 46 insertions, 0 deletions
diff --git a/hacks/images/m6502/colors.asm b/hacks/images/m6502/colors.asm new file mode 100644 index 0000000..2097f7a --- /dev/null +++ b/hacks/images/m6502/colors.asm @@ -0,0 +1,46 @@ +; submitted by Anonymous + + jmp $700 + *=$700 + ldx #0 + ldy #0 + ;init screen + lda #0 + sta $0 + sta $3 + lda #2 + sta $1 +loop: + lda colors,x + bpl ok + inc $0 + ldx #0 + lda colors,x +ok: + inx + sta ($0),y + iny + bne ok2 + inc $1 + lda $1 + cmp #6 + beq end +ok2: + jmp loop +end: + inc $3 + lda $3 + and #$3f + tax + ldy #0 + lda #2 + sta $1 + sty $0 + jmp loop + +colors: +dcb 0,2,0,2,2,8,2,8,8,7,8,7,7,1,7,1,1,7,1,7,7,8,7,8 +dcb 8,2,8,2,2,0,2,0,2,2,8,2,8,8,7,8,7,7,1,7,1,1,1,1 +dcb 1,1,1,1,7,1,7,7,8,7,8,8,2,8,2,2,255 + + |