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

   1 start:
   2 ldx #0
   3 cs:
   4 lda $2000,x
   5 sta $500,x
   6 dex
   7 bne cs
   8
   9 stx $20
  10
  11 loop:
  12
  13 inc $20
  14 lda $20
  15 and #$7f
  16 tay
  17 and #$1f
  18 tax
  19 lda sinus,x
  20 tax
  21
  22 d:
  23
  24 lda #0
  25 sta $1e0,x
  26 sta $2e0,x
  27 lda $1000,y
  28 sta $200,x
  29 lda $1080,y
  30 sta $220,x
  31 lda $1100,y
  32 sta $240,x
  33 lda $1180,y
  34 sta $260,x
  35 lda $1200,y
  36 sta $280,x
  37 lda $1280,y
  38 sta $2a0,x
  39 lda $1300,y
  40 sta $2c0,x
  41 lda $1380,y
  42 sta $2c0,x
  43 inx
  44 iny
  45 txa
  46 and #$1f
  47 bne d
  48
  49 jmp loop
  50
  51 ; 32 ($20) long
  52 sinus:
  53 dcb 0,0,0,0,$20,$20,$20
  54 dcb $40,$40,$60,$80,$a0,$a0,$c0,$c0,$c0
  55 dcb $e0,$e0,$e0,$e0,$c0,$c0,$c0
  56 dcb $a0,$a0,$80,$60,$40,$40,$20,$20,$20
  57
  58 *=$1000
  59 santa:
  60 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  61 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  62 dcb 0,0,0,0,0,0,0,0,$a,$a,0,0,0,0,0,0
  63 dcb 0,0,0,0,0,$a,$a,0,0,0,0,0,0,0,0,0
  64 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  65 dcb 0,2,2,2,1,0,0,0,0,$9,$9,$9,$9,0,0,0
  66 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  67 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  68 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  69 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  70 dcb 0,0,0,0,0,0,0,0,$a,$a,$a,0,0,0,0,0
  71 dcb 0,0,0,0,0,$a,$a,$a,0,0,0,0,0,0,0,0
  72 dcb 0,0,0,0,0,0,$9,$9,0,0,0,0,0,0,0,0
  73 dcb 0,1,1,2,2,0,$9,$9,$9,$9,$9,$9,0,0,0,0
  74 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  75 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  76 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  77 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  78 dcb 0,0,0,0,0,0,$a,$a,$a,$a,$a,$a,0,0,0,0
  79 dcb 0,0,0,$a,$a,$a,$a,$a,$a,0,0,0,0,0,0,0
  80 dcb 0,0,0,0,0,0,0,$9,$9,$9,0,0,0,0,0,0
  81 dcb 0,1,2,2,$9,$9,$9,$9,$9,$9,$9,0,0,0,0,0
  82 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  83 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  84 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  85 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  86 dcb 0,0,0,0,0,0,0,0,0,$a,$a,$a,$a,$a,$a,$b
  87 dcb $b,$b,$b,$b,$b,$b,$a,$a,$a,$a,$a,$a,$b,$b,$b,$b
  88 dcb $b,$b,$b,$b,$b,$9,$9,$9,$9,$9,$9,$9,$9,$9,$9,$9
  89 dcb $9,2,2,$9,$9,$9,$9,$9,$9,$9,0,0,0,0,0,0
  90 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  91 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  92 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  93 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  94 dcb 0,0,0,0,0,0,0,0,0,$a,$a,$a,$a,$a,$a,$a
  95 dcb $a,0,0,0,0,0,$a,$a,$a,$a,$a,$a,$a,$a,0,0
  96 dcb 0,0,0,0,0,0,0,$9,$9,$9,$9,$9,$9,$9,$9,$9
  97 dcb 2,2,$9,$9,$9,$9,$9,$9,$9,$9,$9,0,0,0,0,0
  98 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  99 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 100 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 101 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 102 dcb 0,0,0,0,0,0,0,0,0,$a,$a,$a,$a,$a,$a,0
 103 dcb $a,$a,0,0,0,0,$a,$a,$a,$a,$a,$a,0,$a,$a,0
 104 dcb 0,0,0,0,0,$a,$a,0,0,$9,$a,$9,$9,$9,$9,$9
 105 dcb $9,$9,$a,$9,$9,$9,$9,$9,$9,$9,$9,0,0,0,0,0
 106 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 107 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 108 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 109 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 110 dcb 0,0,0,0,0,0,0,0,0,$a,0,$a,0,0,$a,0
 111 dcb 0,$a,0,0,0,0,$a,0,$a,0,0,$a,0,0,$a,0
 112 dcb 0,0,0,0,0,$a,0,0,0,$a,0,0,0,0,0,0
 113 dcb 0,$a,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 114 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 115 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 116 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 117 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 118 dcb 0,0,0,0,0,0,0,0,$a,$a,0,$a,0,0,$a,$a
 119 dcb 0,$a,$a,0,0,$a,$a,0,$a,0,0,$a,$a,0,$a,$a
 120 dcb 0,0,0,0,0,0,$a,$a,$a,$a,$a,$a,$a,$a,$a,$a
 121 dcb $a,$a,$a,$a,$a,$a,$a,$a,$a,$a,$a,0,0,0,0,0
 122 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 123 dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 124
 125 *=$2000
 126 dcb 0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0
 127 dcb 0,0,0,0,0,0,0,0,0,0,0,0,$c,1,1,1
 128 dcb 0,0,0,0,0,0,0,0,0,0,0,1,1,1,$a,$a
 129 dcb 0,0,0,0,0,0,0,0,0,0,$c,1,1,1,1,1
 130 dcb 1,1,$c,0,0,0,0,0,0,0,0,0,1,1,0,0
 131 dcb 0,0,0,0,0,0,0,0,$c,1,1,1,1,1,1,1
 132 dcb 1,1,1,1,1,$c,0,0,0,0,0,1,1,1,1,0
 133 dcb 0,0,0,0,0,0,$c,1,1,1,1,1,1,1,1,1
 134 dcb 1,1,1,1,1,1,$c,0,0,0,0,1,1,1,1,0
 135 dcb 0,0,0,0,0,$c,1,1,1,1,1,1,1,1,1,1,1
 136 dcb 1,1,1,1,1,1,1,1,$c,0,0,1,1,0,0
 137 dcb 0,0,$c,1,1,1,1,1,1,1,1,1,1,1,1,1
 138 dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
 139 dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
 140 dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
 141 dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
 142