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

   1 ; We all love zookeeper !!!!
   2 ; muhmi Nov 13, 2007 9:45 am
   3
   4 ldx #0
   5 lda #0
   6 hupsu:
   7 sta $200,x
   8 sta $300,x
   9 sta $400,x
  10 sta $500,x
  11 bne hupsu
  12
  13
  14 lda #1
  15 ldx #0
  16 fill:
  17 txa
  18 tay
  19 lda seko,x
  20 tax
  21 lda kuva,x
  22 sta $200,x
  23 lda kuva_0,x
  24 sta $300,x
  25 lda kuva_1,x
  26 sta $400,x
  27 lda kuva_2,x
  28 sta $500,x
  29 tya
  30 tax
  31 inx
  32 bne fill
  33
  34 rts
  35
  36 seko:
  37 dcb 46,93,219,97,168,170,196,63,204,201,206
  38 dcb 56,238,25,2,186,209,191,138,226,80,128
  39 dcb 58,171,81,115,42,44,102,193,69,231,107
  40 dcb 78,5,218,103,11,13,221,130,149,16,227
  41 dcb 105,213,232,182,17,255,27,190,205,137,192
  42 dcb 222,233,94,52,229,96,18,220,202,122,166
  43 dcb 43,153,131,246,177,4,70,22,7,86,173
  44 dcb 141,151,164,32,143,40,156,185,121,132,165
  45 dcb 62,249,252,139,154,251,85,236,12,134,245
  46 dcb 184,39,195,119,242,244,162,74,1,77,51
  47 dcb 33,75,35,76,34,10,89,47,189,237,71
  48 dcb 159,9,38,101,180,116,147,140,183,157,123
  49 dcb 14,19,126,199,100,45,241,28,125,210,155
  50 dcb 41,254,31,144,55,247,111,95,57,53,223
  51 dcb 152,108,203,36,214,37,113,200,66,67,197
  52 dcb 29,250,20,212,68,87,207,163,145,211,48
  53 dcb 136,24,98,215,169,83,124,224,181,187,142
  54 dcb 84,240,54,110,234,59,243,79,50,30,114
  55 dcb 6,178,0,172,148,146,179,120,60,225,65
  56 dcb 230,208,15,72,117,248,198,106,129,92,127
  57 dcb 175,160,49,216,176,133,64,109,112,82,90
  58 dcb 235,104,158,194,8,161,167,88,91,174,23
  59 dcb 73,118,150,3,99,61,217,26,239,21,253
  60 dcb 135,188,228
  61
  62 kuva:
  63 dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  64 dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  65 dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0
  66 dcb 0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,1,1,1,1,1,1
  67 dcb 1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0
  68 dcb 0,0,0,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1
  69 dcb 0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,11,11
  70 dcb 11,0,0,0,0,0,0,1,0,0,0,11,11,11,0,0,0,0,0,1,1,1,1,1
  71 dcb 1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  72 dcb 0,0,0,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0
  73 dcb 0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1
  74 kuva_0:
  75 dcb 1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  76 dcb 0,0,0,0,0,1,1,1,1,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1
  77 dcb 1,1,1,1,1,1,1,1,1,1,0,0,0,0,1,1,1,0,0,0,0,1,1,1
  78 dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,1,1
  79 dcb 1,0,0,0,1,1,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0
  80 dcb 0,1,15,0,0,0,1,1,1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,1
  81 dcb 0,0,0,0,0,0,0,0,0,0,15,0,0,0,1,1,1,0,0,0,1,0,0,0
  82 dcb 0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,15,0,0,0,1,1
  83 dcb 1,0,0,0,1,0,0,0,0,1,1,1,0,0,0,1,0,0,0,1,1,1,0,0
  84 dcb 0,0,15,0,0,0,1,1,1,0,0,0,1,0,0,0,0,1,1,1,0,0,0,1
  85 dcb 0,0,0,1,1,1,0,0,0,0,1,0,0,0,1,1
  86 kuva_1:
  87 dcb 1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0
  88 dcb 0,0,15,0,0,0,1,1,1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,1
  89 dcb 0,0,0,0,0,0,0,0,0,0,15,0,0,0,1,1,1,0,0,0,1,1,0,0
  90 dcb 0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,1,1,0,0,0,1,1
  91 dcb 1,0,0,0,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1
  92 dcb 1,1,1,0,0,0,1,1,1,0,0,0,1,1,1,1,1,1,1,1,1,1,1,0
  93 dcb 1,1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,1,0,0,0,1,1,1,1
  94 dcb 1,1,1,1,1,0,0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0,1,1
  95 dcb 1,0,0,0,1,1,1,1,1,1,1,1,1,15,15,15,1,1,1,1,1,1,1,1
  96 dcb 1,1,15,0,0,0,1,1,1,0,0,0,1,1,1,1,1,1,1,1,1,15,15,15
  97 dcb 1,1,1,1,1,1,1,1,1,1,15,0,0,0,1,1
  98 kuva_2:
  99 dcb 1,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
 100 dcb 1,1,1,0,0,0,1,1,1,0,0,0,1,1,1,1,1,1,1,1,1,15,15,0
 101 dcb 15,15,1,1,1,1,1,1,1,1,1,0,0,0,1,1,1,0,0,0,1,1,1,1
 102 dcb 1,1,1,1,1,15,15,0,15,15,1,1,1,1,1,1,1,1,1,0,0,0,1,1
 103 dcb 1,0,0,0,15,1,1,1,1,1,1,1,1,15,15,0,1,1,1,1,1,1,1,1
 104 dcb 1,1,1,0,0,0,1,1,1,0,0,0,0,15,15,15,15,15,15,1,15,1,1,1
 105 dcb 1,1,15,1,15,15,15,1,1,15,0,0,0,0,1,1,1,0,0,0,0,15,15,15
 106 dcb 15,15,15,1,15,1,1,1,1,1,15,1,15,15,15,1,1,15,0,0,0,0,1,1
 107 dcb 1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
 108 dcb 0,0,0,0,0,1,1,1,1,1,1,1,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,1,1,1,1,1