summaryrefslogtreecommitdiffstats
path: root/hacks/images/m6502/amiga.asm
diff options
context:
space:
mode:
Diffstat (limited to 'hacks/images/m6502/amiga.asm')
-rw-r--r--hacks/images/m6502/amiga.asm120
1 files changed, 120 insertions, 0 deletions
diff --git a/hacks/images/m6502/amiga.asm b/hacks/images/m6502/amiga.asm
new file mode 100644
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