;Written by MFC Productions
;THIS ROUTINE WAS NOT STOLEN FROM THE 1001 CREW
;ONLY THE IDEA WAS STOLEN
;CONTACT MFC :SANDER HANS
;             TRAUNAUSTR.4
;             A-4600 WELS     THANK YOU!!!
; 
;YOU MUST LOAD A PICTURE WITH 4 BITPLANES
;TO THE ADRESS $50000!




o:
move.w #$0020,$dff096
bsr color
lea copperl(pc),a0
move.l a0,$dff080
bsr ion
loop:
andi.b #64,$bfe001
beq end
jmp loop
end:
a:
cmp.l #$0628,4
bne aa
move.l #$2670,$dff080
rts
aa:
move.l #$22f8,$dff080
copperl:
dc.w $008e,$0581
dc.w $0090,$ffc1
dc.w $0104,$0024
dc.w $0092,$0038
dc.w $0094,$00d2
dc.w $0102,$0000
dc.w $0108,$0000
dc.w $010a,$0000
dc.w $00e0,$0004
dc.w $00e2,$0000
dc.w $00e4,$0004
dc.w $00e6,$1f40
dc.w $00e8,$0004
dc.w $00ea,$3e80
dc.w $00ec,$0004
dc.w $00ee,$5dc0
dc.w $2c01,$fffe
dc.w $009c,$8010
dc.w $0100,$4200
dc.w $f401,$fffe
dc.w $0100,$0200
dc.w $ffff,$fffe
;move #$0020,$dff096
color:
move.w #$0000,$dff180
move.w #$0d30,$dff182
move.w #$0c10,$dff184
move.w #$0a00,$dff186
move.w #$0900,$dff188
move.w #$08f0,$dff18a
move.w #$0080,$dff18c
move.w #$00b6,$dff18e
move.w #$00cf,$dff190
move.w #$04ef,$dff192
move.w #$06ef,$dff194
move.w #$07ef,$dff196
move.w #$09ff,$dff198
move.w #$0bff,$dff19a
move.w #$0dff,$dff19c
move.w #$00cd,$dff19e
rts
ion:
move.l $6c,int_jmp+2
move.l $6c,int_jmp_end+2
lea intb1,a0
move.l a0,$6c
rts
iloop: blk.w 1,$0000
plane1= $50000
pziel = $40000
abstand: dc.l $0280
intb1:
movem.l a0-a6/d0-d7,-(a7)
btst #4,$dff01c
bne intoff
addi.w #$0001,iloop
cmpi.w #$0006,iloop
bne intoff
move.l #$10,$dff09c
charly:
clr.w iloop
move.l #plane1,a0
move.l #pziel,a1
move.l #plane1+8000,a2
move.l #pziel+8000,a3
move.l #plane1+16000,d0
move.l #pziel+16000,d1
move.l #plane1+24000,d2
move.l #pziel+24000,d3
zeile1:
move.w #$0014,d7
zeile:
move.w (a0)+,(a1)+
move.w (a2)+,(a3)+
move.l d0,a4
move.l d1,a5
move.w (a4)+,(a5)+
move.l a4,d0
move.l a5,d1
move.l d2,a4
move.l d3,a5
move.w (a4)+,(a5)+
move.l a4,d2
move.l a5,d3
subi.w #$0001,d7
cmpi.W #$0000,d7
bne zeile
adda.l abstand,a0
adda.l abstand,a2
adda.l abstand,d0
adda.l abstand,d2
cmpa.l #plane1+16000,a2
blt zeile1
subi.l#$28,abstand
cmpi.l #$00,abstand
bge intoff
ioff:
move.l int_jmp+2,$6c

int_jmp_end:
jmp$00000000
intoff:
movem.l (a7)+,a0-a6/d0-d7
int_jmp:
jmp$00000000