summaryrefslogtreecommitdiffstats
path: root/hacks/images/m6502/rorschach.asm
diff options
context:
space:
mode:
Diffstat (limited to 'hacks/images/m6502/rorschach.asm')
-rw-r--r--hacks/images/m6502/rorschach.asm124
1 files changed, 0 insertions, 124 deletions
diff --git a/hacks/images/m6502/rorschach.asm b/hacks/images/m6502/rorschach.asm
deleted file mode 100644
index c5591f0..0000000
--- a/hacks/images/m6502/rorschach.asm
+++ /dev/null
@@ -1,124 +0,0 @@
-; "Rorschach test"
-; Not at all what it was supposed to be,
-; but it turns out pretty cool and can
-; create some interesting patterns.
-
- lda #8
- tax
-dr:
- sta $3cb,x
- sta $40b,x
- dex
- bpl dr
- sta $3f3
- sta $3eb
-
- lda #1
- sta $3ec
-
- ldx #255
-mk:
- lda $fe
- sta $1200,x
- lda $fe
- sta $1300,x
- lda $fe
- sta $1400,x
- lda $fe
- sta $1500,x
- dex
- cpx #$ff
- bne mk
-
-; smooth it
-
- ldy #0
-re:
- lda #1
- sta $3ec,y
-
- ldx #255
-sm:
- lda $1201,x
- adc $11ff,x
- adc $1220,x
- adc $11e0,x
- lsr
- lsr
- sta $1200,x
-
- lda $1301,x
- adc $12ff,x
- adc $1320,x
- adc $12e0,x
- lsr
- lsr
- sta $1300,x
-
- lda $1401,x
- adc $13ff,x
- adc $1420,x
- adc $13e0,x
- lsr
- lsr
- sta $1400,x
-
- lda $1501,x
- adc $14ff,x
- adc $1520,x
- adc $14e0,x
- lsr
- lsr
- sta $1500,x
-
- dex
- cpx #$ff
- bne sm
- iny
- cpy #7
- bne re
-
- lda #1
- sta $3f0
-
- ;copy it
-
- clc
- ldx #255
-cp:
- lda $1200,x
- lsr
- lsr
- tay
- lda colors,y
- sta $200,x
-
- lda $1300,x
- lsr
- lsr
- tay
- lda colors,y
- sta $300,x
-
- lda $1400,x
- lsr
- lsr
- tay
- lda colors,y
- sta $400,x
-
- lda $1500,x
- lsr
- lsr
- tay
- lda colors,y
- sta $500,x
-
- dex
- cpx #$ff
- bne cp
- rts
-
-colors:
- dcb 0,0,0,0,0,$9,$9,1,1,0,0,0,0,0
-