http://www.jwz.org/xscreensaver/xscreensaver-5.08.tar.gz

[xscreensaver] / hacks / images / m6502 / amiga.asm

diff --git a/hacks/images/m6502/amiga.asm b/hacks/images/m6502/amiga.asm
new file mode 100644 (file)
index 0000000..3195d4b
--- /dev/null
+++ b/hacks/images/m6502/amiga.asm
@@ -0,0 +1,120 @@
+; super mega amiga emulator :) :) :)
+; (c)by Thorex
+start:
+  lda #$b
+  jsr setcol
+  jsr delay
+  lda #$f
+  jsr setcol
+  jsr delay
+  lda #$1
+  jsr setcol
+  jsr delay
+
+  ldx #0
+cp:
+  lda pic,x
+  sta $200,x
+  lda pic2,x
+  sta $300,x
+  lda pic3,x
+  sta $400,x
+  lda pic4,x
+  sta $500,x
+  dex
+  bne cp
+  rts
+
+setcol:
+  ldx #0
+s:sta $200,x
+  sta $300,x
+  sta $400,x
+  sta $500,x
+  dex
+  bne s
+  rts
+
+delay:
+  ldy #29
+d1:
+  ldx #0
+d2:
+  dex
+  bne d2
+  dey
+  bne d1
+  rts
+
+pic:
+        dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
+        dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
+        dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
+        dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
+        dcb 1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0
+        dcb 0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1
+        dcb 1,1,1,1,1,1,1,0,$e,$e,$e,$e,0,$f,$f,$f
+        dcb $f,$f,$f,$f,0,0,0,$f,0,$e,$e,0,1,1,1,1
+        dcb 1,1,1,1,1,1,1,0,$e,$e,$e,$e,0,$f,$f,$f
+        dcb $f,$f,$f,$f,0,$e,0,$f,0,$e,$e,$e,0,1,1,1
+        dcb 1,1,1,1,1,1,1,0,$e,$e,$e,$e,0,$f,$f,$f
+        dcb $f,$f,$f,$f,0,$e,0,$f,0,$e,$e,$e,$e,0,1,1
+        dcb 1,1,1,1,1,1,1,0,$e,$e,$e,$e,0,$f,$f,$f
+        dcb $f,$f,$f,$f,0,0,0,$f,0,$e,$e,$e,$e,0,1,1
+        dcb 1,1,1,1,1,1,1,0,$e,$e,$e,$e,0,0,0,0
+        dcb 0,0,0,0,0,0,0,0,0,$e,$e,$e,$e,0,1,1
+ 
+pic2:
+        dcb 1,1,1,1,1,1,1,0,$e,$e,$e,$e,$e,$e,$e,$e
+        dcb $e,$e,$e,$e,$e,$e,$e,$e,$e,$e,$e,$e,$e,0,1,1
+        dcb 1,1,1,1,1,1,1,0,$e,$e,$e,$e,$e,$e,$e,$e
+        dcb $e,$e,$e,$e,$e,$e,$e,$e,$e,$e,$e,$e,$e,0,1,1
+        dcb 1,1,1,1,1,1,1,0,$e,$e,$e,$e,$e,$e,$e,$e
+        dcb $e,$e,$e,$e,$e,$e,$e,$e,$e,$e,$e,$e,$e,0,1,1
+        dcb 1,1,1,1,1,1,1,0,$e,$e,$e,$e,$e,$e,$e,$e
+        dcb $e,$e,$e,$e,$e,$e,$e,$e,$e,$e,$e,$e,$e,0,1,1
+        dcb 1,1,1,1,1,1,1,0,$e,0,0,0,0,0,0,0
+        dcb 0,0,0,0,0,0,0,0,0,0,0,$e,$e,0,1,1
+        dcb 1,1,1,1,1,1,0,0,$e,0,0,1,1,1,1,1
+        dcb 1,1,1,1,1,1,1,1,1,1,0,$e,$e,0,1,1
+        dcb 1,1,1,1,1,0,1,0,$e,0,0,0,0,1,1,$e
+        dcb $e,$e,1,$e,1,$e,1,$e,1,1,0,$e,$e,0,1,1
+        dcb 1,1,1,0,0,1,1,0,0,1,0,1,1,0,1,1
+        dcb 1,1,1,1,1,1,1,1,1,1,0,$e,$e,0,1,1
+
+pic3:
+        dcb 1,1,0,1,1,1,0,1,1,1,1,0,0,1,1,1
+        dcb $e,1,$e,1,$e,1,$e,1,1,1,0,$e,$e,0,1,1
+        dcb 1,0,1,1,0,1,1,1,1,1,1,1,0,1,1,0
+        dcb 1,1,1,1,1,1,1,1,1,1,0,$e,$e,0,1,1
+        dcb 1,0,1,0,1,1,1,1,1,1,0,0,1,1,0,$f
+        dcb 0,1,0,1,1,1,0,0,0,1,0,$e,$e,0,1,1
+        dcb 1,0,1,1,1,1,1,1,1,1,0,1,1,1,1,0
+        dcb 0,$f,1,0,1,$f,1,0,1,1,0,$e,$e,0,1,1
+        dcb 1,0,1,1,1,1,1,1,1,1,1,0,0,0,0,0
+        dcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1
+        dcb 1,0,1,1,1,1,1,1,1,1,1,0,1,1,0,0
+        dcb 0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
+        dcb 1,0,1,1,1,1,1,1,1,1,1,0,1,0,0,1
+        dcb 0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
+        dcb 1,0,1,1,1,1,1,1,1,1,1,0,1,0,1,1
+        dcb 0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
+
+pic4:
+        dcb 1,0,1,1,1,1,1,1,1,1,1,0,1,0,0,0
+        dcb 0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
+        dcb 1,0,1,1,1,1,1,1,0,0,0,0,0,1,1,0
+        dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
+        dcb 1,0,1,1,1,1,1,1,0,1,1,1,0,0,0,1
+        dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
+        dcb 1,1,0,1,1,1,1,1,0,1,1,1,0,1,1,1
+        dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
+        dcb 1,1,0,1,1,1,1,1,0,1,1,1,0,1,1,1
+        dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
+        dcb 1,1,0,1,1,1,1,1,0,1,1,1,0,1,1,1
+        dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
+        dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
+        dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
+        dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
+        dcb 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
+       
\ No newline at end of file