http://www.tienza.es/crux/src/www.jwz.org/xscreensaver/xscreensaver-5.05.tar.gz

[xscreensaver] / hacks / images / m6502 / rorschach.asm

diff --git a/hacks/images/m6502/rorschach.asm b/hacks/images/m6502/rorschach.asm
new file mode 100644 (file)
index 0000000..c5591f0
--- /dev/null
+++ b/hacks/images/m6502/rorschach.asm
@@ -0,0 +1,124 @@
+; "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
+