git.hungrycats.org Git - xscreensaver/blob - hacks/images/m6502/rorschach.asm

   1 ; "Rorschach test"
   2 ; Not at all what it was supposed to be,
   3 ; but it turns out pretty cool and can
   4 ; create some interesting patterns.
   5
   6   lda #8
   7   tax
   8 dr:
   9   sta $3cb,x
  10   sta $40b,x
  11   dex
  12   bpl dr
  13   sta $3f3
  14   sta $3eb
  15
  16   lda #1
  17   sta $3ec
  18
  19   ldx #255
  20 mk:
  21   lda $fe
  22   sta $1200,x
  23   lda $fe
  24   sta $1300,x
  25   lda $fe
  26   sta $1400,x
  27   lda $fe
  28   sta $1500,x
  29   dex
  30   cpx #$ff
  31   bne mk
  32
  33 ; smooth it
  34
  35   ldy #0
  36 re:
  37   lda #1
  38   sta $3ec,y
  39
  40   ldx #255
  41 sm:
  42   lda $1201,x
  43   adc $11ff,x
  44   adc $1220,x
  45   adc $11e0,x
  46   lsr
  47   lsr
  48   sta $1200,x
  49
  50   lda $1301,x
  51   adc $12ff,x
  52   adc $1320,x
  53   adc $12e0,x
  54   lsr
  55   lsr
  56   sta $1300,x
  57
  58   lda $1401,x
  59   adc $13ff,x
  60   adc $1420,x
  61   adc $13e0,x
  62   lsr
  63   lsr
  64   sta $1400,x
  65
  66   lda $1501,x
  67   adc $14ff,x
  68   adc $1520,x
  69   adc $14e0,x
  70   lsr
  71   lsr
  72   sta $1500,x
  73
  74   dex
  75   cpx #$ff
  76   bne sm
  77   iny
  78   cpy #7
  79   bne re
  80
  81   lda #1
  82   sta $3f0
  83
  84   ;copy it
  85
  86   clc
  87   ldx #255
  88 cp:
  89   lda $1200,x
  90   lsr
  91   lsr
  92   tay
  93   lda colors,y
  94   sta $200,x
  95
  96   lda $1300,x
  97   lsr
  98   lsr
  99   tay
 100   lda colors,y
 101   sta $300,x
 102
 103   lda $1400,x
 104   lsr
 105   lsr
 106   tay
 107   lda colors,y
 108   sta $400,x
 109
 110   lda $1500,x
 111   lsr
 112   lsr
 113   tay
 114   lda colors,y
 115   sta $500,x
 116
 117   dex
 118   cpx #$ff
 119   bne cp
 120   rts
 121
 122 colors:
 123   dcb 0,0,0,0,0,$9,$9,1,1,0,0,0,0,0
 124