; 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