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

   1 ; super mega amiga emulator :) :) :)
   2 ; (c)by Thorex
   3 start:
   4   lda #$b
   5   jsr setcol
   6   jsr delay
   7   lda #$f
   8   jsr setcol
   9   jsr delay
  10   lda #$1
  11   jsr setcol
  12   jsr delay
  13
  14   ldx #0
  15 cp:
  16   lda pic,x
  17   sta $200,x
  18   lda pic2,x
  19   sta $300,x
  20   lda pic3,x
  21   sta $400,x
  22   lda pic4,x
  23   sta $500,x
  24   dex
  25   bne cp
  26   rts
  27
  28 setcol:
  29   ldx #0
  30 s:sta $200,x
  31   sta $300,x
  32   sta $400,x
  33   sta $500,x
  34   dex
  35   bne s
  36   rts
  37
  38 delay:
  39   ldy #29
  40 d1:
  41   ldx #0
  42 d2:
  43   dex
  44   bne d2
  45   dey
  46   bne d1
  47   rts
  48
  49 pic:
  50         dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  51         dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  52         dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  53         dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  54         dcb 1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0
  55         dcb 0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1
  56         dcb 1,1,1,1,1,1,1,0,$e,$e,$e,$e,0,$f,$f,$f
  57         dcb $f,$f,$f,$f,0,0,0,$f,0,$e,$e,0,1,1,1,1
  58         dcb 1,1,1,1,1,1,1,0,$e,$e,$e,$e,0,$f,$f,$f
  59         dcb $f,$f,$f,$f,0,$e,0,$f,0,$e,$e,$e,0,1,1,1
  60         dcb 1,1,1,1,1,1,1,0,$e,$e,$e,$e,0,$f,$f,$f
  61         dcb $f,$f,$f,$f,0,$e,0,$f,0,$e,$e,$e,$e,0,1,1
  62         dcb 1,1,1,1,1,1,1,0,$e,$e,$e,$e,0,$f,$f,$f
  63         dcb $f,$f,$f,$f,0,0,0,$f,0,$e,$e,$e,$e,0,1,1
  64         dcb 1,1,1,1,1,1,1,0,$e,$e,$e,$e,0,0,0,0
  65         dcb 0,0,0,0,0,0,0,0,0,$e,$e,$e,$e,0,1,1
  66
  67 pic2:
  68         dcb 1,1,1,1,1,1,1,0,$e,$e,$e,$e,$e,$e,$e,$e
  69         dcb $e,$e,$e,$e,$e,$e,$e,$e,$e,$e,$e,$e,$e,0,1,1
  70         dcb 1,1,1,1,1,1,1,0,$e,$e,$e,$e,$e,$e,$e,$e
  71         dcb $e,$e,$e,$e,$e,$e,$e,$e,$e,$e,$e,$e,$e,0,1,1
  72         dcb 1,1,1,1,1,1,1,0,$e,$e,$e,$e,$e,$e,$e,$e
  73         dcb $e,$e,$e,$e,$e,$e,$e,$e,$e,$e,$e,$e,$e,0,1,1
  74         dcb 1,1,1,1,1,1,1,0,$e,$e,$e,$e,$e,$e,$e,$e
  75         dcb $e,$e,$e,$e,$e,$e,$e,$e,$e,$e,$e,$e,$e,0,1,1
  76         dcb 1,1,1,1,1,1,1,0,$e,0,0,0,0,0,0,0
  77         dcb 0,0,0,0,0,0,0,0,0,0,0,$e,$e,0,1,1
  78         dcb 1,1,1,1,1,1,0,0,$e,0,0,1,1,1,1,1
  79         dcb 1,1,1,1,1,1,1,1,1,1,0,$e,$e,0,1,1
  80         dcb 1,1,1,1,1,0,1,0,$e,0,0,0,0,1,1,$e
  81         dcb $e,$e,1,$e,1,$e,1,$e,1,1,0,$e,$e,0,1,1
  82         dcb 1,1,1,0,0,1,1,0,0,1,0,1,1,0,1,1
  83         dcb 1,1,1,1,1,1,1,1,1,1,0,$e,$e,0,1,1
  84
  85 pic3:
  86         dcb 1,1,0,1,1,1,0,1,1,1,1,0,0,1,1,1
  87         dcb $e,1,$e,1,$e,1,$e,1,1,1,0,$e,$e,0,1,1
  88         dcb 1,0,1,1,0,1,1,1,1,1,1,1,0,1,1,0
  89         dcb 1,1,1,1,1,1,1,1,1,1,0,$e,$e,0,1,1
  90         dcb 1,0,1,0,1,1,1,1,1,1,0,0,1,1,0,$f
  91         dcb 0,1,0,1,1,1,0,0,0,1,0,$e,$e,0,1,1
  92         dcb 1,0,1,1,1,1,1,1,1,1,0,1,1,1,1,0
  93         dcb 0,$f,1,0,1,$f,1,0,1,1,0,$e,$e,0,1,1
  94         dcb 1,0,1,1,1,1,1,1,1,1,1,0,0,0,0,0
  95         dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1
  96         dcb 1,0,1,1,1,1,1,1,1,1,1,0,1,1,0,0
  97         dcb 0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  98         dcb 1,0,1,1,1,1,1,1,1,1,1,0,1,0,0,1
  99         dcb 0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
 100         dcb 1,0,1,1,1,1,1,1,1,1,1,0,1,0,1,1
 101         dcb 0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
 102
 103 pic4:
 104         dcb 1,0,1,1,1,1,1,1,1,1,1,0,1,0,0,0
 105         dcb 0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
 106         dcb 1,0,1,1,1,1,1,1,0,0,0,0,0,1,1,0
 107         dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
 108         dcb 1,0,1,1,1,1,1,1,0,1,1,1,0,0,0,1
 109         dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
 110         dcb 1,1,0,1,1,1,1,1,0,1,1,1,0,1,1,1
 111         dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
 112         dcb 1,1,0,1,1,1,1,1,0,1,1,1,0,1,1,1
 113         dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
 114         dcb 1,1,0,1,1,1,1,1,0,1,1,1,0,1,1,1
 115         dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
 116         dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
 117         dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
 118         dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
 119         dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
 120