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

   1 ;;Matrix :)
   2
   3 loop:
   4         lda $fe
   5         and #$1f
   6         tay
   7         tax
   8         lda matrix,y
   9         sta $1
  10         tay
  11         lda #0
  12         jsr paint
  13    inc $1
  14    lda $1
  15    and #$1f
  16    sta matrix,y
  17    tay
  18    lda #5
  19    jsr paint
  20         lda $fe
  21         and #$1f
  22         tay
  23         tax
  24         lda matrix,y
  25         sta $1
  26         tay
  27         lda #$d
  28         jsr paint
  29         lda $fe
  30         and #$1f
  31         tay
  32         tax
  33         lda matrix,y
  34         sta $1
  35         tay
  36         lda #$5
  37         jsr paint
  38    jmp loop
  39
  40 paint:
  41    pha
  42    lda yl,y
  43    sta $2
  44    lda yh,y
  45    sta $3
  46    txa
  47    tay
  48    pla
  49    sta ($2),y
  50    rts
  51
  52 yh:
  53        dcb $02, $02, $02, $02, $02, $02, $02, $02
  54        dcb $03, $03, $03, $03, $03, $03, $03, $03
  55        dcb $04, $04, $04, $04, $04, $04, $04, $04
  56        dcb $05, $05, $05, $05, $05, $05, $05, $05
  57
  58 yl:
  59        dcb $00, $20, $40, $60, $80, $a0, $c0, $e0
  60        dcb $00, $20, $40, $60, $80, $a0, $c0, $e0
  61        dcb $00, $20, $40, $60, $80, $a0, $c0, $e0
  62        dcb $00, $20, $40, $60, $80, $a0, $c0, $e0
  63
  64 matrix:
  65         dcb 5,16,19,19,17,26,10,14,11,4,1,2,20,1,8,30
  66         dcb 17,26,19,19,31,21,11,19,3,24,4,24,13,8,8,26
  67