SECTION	MENU_MK_IX_,CODE_C
	OPT	O+ C-
	incdir  df0:,df2:
	move.w  #19,d1
loop:   bsr colourplace
        bsr colourcycle
        bsr colourplace2
        bsr colourcycle2
	dbf d1,loop
	move.l  #logo,store
	lea bitmap,a0
	move.w #4,d0
planes: move.w store,2(a0)
 	move.w store+2,6(a0)
 	add.w  #8,a0
 	add.l  #4640,store
 	dbf d0,planes
 	lea logo+23200,a0
 	lea cols+2,a1
 	move.w #31,d0
place: 	move.w (a0)+,(a1)
 	add.w  #4,a1
 	dbf d0,place
	MOVE.L	4,A6
	LEA.L	GFxNAME,A1
	CLR.L	D0
	JSR	-552(A6)
	MOVE.L	D0,GFXLOC
	MOVE.L	GFXLOC,A6
	MOVE.L	50(A6),OLDCOP
	MOVE.L	#COPPER,50(A6)
	MOVE.L	#$FFFF,D0
COPDEL:	DBF	D0,COPDEL
	MOVE.W	#%1000011111100000,$DFF096
	MOVE.W	#$C000,$DFF09A
	MOVE.L	#$FFFFFFFF,$DFF044
	MOVE.W	#00,$DFF042
	MOVE.W	#%0000100111110000,$DFF040
	MOVE.W	#$4000,$DFF09A
START:	CMP.B	#$ff,$DFF006
	BNE.S	START
	bsr     colourplace
	bsr     colourcycle
	bsr     colourplace2
	bsr     colourcycle2
	btst	#6,$bfe001
	beq	reset
	btst	#7,$bfe001
	beq	reset
	btst	#10,$dff016
	beq	reset
	BRA.s	START

RESET:	MOVE.W	#$C000,$DFF09A
	MOVE.W	#$0F,$DFF096
	MOVE.L	GFXLOC,A6
	MOVE.L	OLDCOP,50(A6)
	MOVE.L	4,A6
	MOVE.L	GFXLOC,A1
	JSR	-414(A6)
	CLR.L	D0
EX:	RTS
COPPER:	DC.W	$0102,$0000,$0104,$0000
	DC.W	$0108,$0000,$010A,$0000
	DC.W	$0092,$0038,$0094,$00D0
	DC.W	$008E,$2C61,$0090,$2AC1
	DC.W	$0120,$0000,$0122,$0000
	dc.w	$0180,$0000,$0182,$0fff
bitmap  dc.w    $00e0,$0000,$00e2,$0000
	dc.w    $00e4,$0000,$00e6,$0000
	dc.w    $00e8,$0000,$00ea,$0000
	dc.w    $00ec,$0000,$00ee,$0000
	dc.w    $00f0,$0000,$00f2,$0000
a set $180
cols:	rept 32
	dc.w a,0
a set a+2 
  	endr
	dc.w	$4001,$fffe
	
a set $4009
colours:	rept 20
	dc.w a,$fffe,$0180,$0
a set a+4
	endr
colours1:dc.w a,$fffe,$0180,$0
	 dc.w a+4,$fffe,$0180,$0
	dc.w	$4301,$fffe,$0100,$5200
         dc.w $b001,$fffe,$0100,$0000	 	
a set $b009
colours2:	rept 20
	dc.w a,$fffe,$0180,$0
a set a+4
	endr
colours3:dc.w a,$fffe,$0180,$0
	 dc.w a+4,$fffe,$0180,$0
	 		 		        
	DC.W	$FFFF,$FFFE
GFXNAME:DC.B	"graphics.library",0
GFXLOC:	DC.L	0
OLDCOP:	DC.L	0
store:  dc.l    0

	even
	
colourplace: lea colourtable,a0
	     add.w colourptr,a0
	     cmp.w #$8888,(a0)
	     bne colour1
	     clr.W colourptr
	     bra.s colourplace
colour1:     move.w (a0),colours1+6
   	     add.w #2,colourptr
   	     rts
   	     
   	     
colourcycle: lea colours+6,a0
	     move.w #19,d0
colourcycle1:move.w 8(a0),(a0)
	     add.w #8,a0
	     dbf d0,colourcycle1
	     rts
	     
colourptr:   dc.w $0
colourplace2: lea colourtable,a0
	     add.w colourptr2,a0
	     cmp.w #$8888,(a0)
	     bne colour12
	     clr.W colourptr2
	     bra.s colourplace2
colour12:     move.w (a0),colours2+6
   	     add.w #2,colourptr2
   	     rts
   	     
   	     
colourcycle2: lea colours3-10,a0
	     move.w #18,d0
colourcycle12:move.w (a0),8(a0)
	     sub.w #8,a0
	     dbf d0,colourcycle12
	     rts
	     
colourptr2:   dc.w $0

colourtable: 
		
 	     dc.w $100,$200,$300,$400,$500,$600,$700,$800,$900,$a00,$b00,$c00,$d00,$e00,$f00
	     dc.w $e00,$d00,$c00,$b00,$a00,$900,$800,$700,$600,$500,$400,$300,$200,$100,$000

	dc.w $8888
logo:	incbin logo.raw