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

   1 ; Rule 30 cellular automata
   2 ; by D.S.
   3
   4  lda #1
   5  sta $20f
   6
   7 l3:
   8  lda #2
   9  sta 3
  10  sta 5
  11  sta 7
  12  lda #1
  13  sta 9
  14  sta 6
  15  lda #255
  16  sta 8
  17  lda #0
  18  sta 2
  19  lda #32
  20  sta 4
  21  ldx #30
  22 l1:
  23  ldy #31
  24
  25 l2:
  26  lda ($2),y
  27  ora ($6),y
  28  eor ($8),y
  29  sta ($4),y
  30  dey
  31  bpl l2
  32
  33  lda $2
  34  adc #32
  35  sta $2
  36  lda $3
  37  adc #0
  38  sta $3
  39  lda $4
  40  adc #32
  41  sta $4
  42  lda $5
  43  adc #0
  44  sta $5
  45  lda $6
  46  adc #32
  47  sta $6
  48  lda $7
  49  adc #0
  50  sta $7
  51  lda $8
  52  adc #32
  53  sta $8
  54  lda $9
  55  adc #0
  56  sta $9
  57  dex
  58  bpl l1
  59
  60  ldy #31
  61 l4:
  62  lda ($2),y
  63  sta $200,y
  64  dey
  65  bpl l4
  66
  67  jmp l3