Opt	c-

	Section	"Psykos Blox Code",Code_c

Start	Movem.l	d0-d7/a0-a6,-(sp)
	Bsr	KillSys

	Lea	PicBase(pc),a0
	Move.l	0,d0
	Move.l	#"FUCK",0
	Cmpi.l	#"FUCK",$80000
	Beq	NoMegChip
	
	Move.l	#$e0000,(a0)
	Bra	Reset0Long

NoMegChip	Move.l	#$70000,(a0)
Reset0Long	Move.l	d0,0
	
	Move.l	PicBase(pc),$Dff080
	Move.w	#$83c0,$Dff096

	Bsr	DoCopy
	Bsr	SetCopWaits
	Bsr	DoBPX

Loop	Lea	XPos0(pc),a5
	Moveq	#4,d7
	Moveq	#1,d0
	
AddIncLoop	Add.w	d0,(a5)+
	Add.w	d0,(a5)+
	Addq	#1,d0
	Dbf	d7,AddIncLoop

	Lea	XPos0(pc),a5
	Moveq	#4,d7	
AddTrackLoop	Bsr	TrackMouse	
	Add.w	d0,(a5)+
	Add.w	d1,(a5)+
	Dbf	d7,AddTrackLoop
	
	Lea	BMap0(pc),a0
	Move.l	PicBase(pc),a1
	Lea	$1b30(a1),a1
	Move.w	XPos0(pc),d0
	Bsr	SetBMaps
	Lea	BMap5(pc),a0
	Move.l	PicBase(pc),a1
	Lea	$1b80(a1),a1
	Move.w	XPos0(pc),d0
	Bsr	SetBMaps
		
	Lea	BMap1(pc),a0
	Move.l	PicBase(pc),a1
	Lea	$1c30(a1),a1
	Move.w	XPos1(pc),d0	
	Bsr	SetBMaps
	
	Lea	BMap2(pc),a0
	Move.l	PicBase(pc),a1
	Lea	$1c80(a1),a1
	Move.w	XPos2(pc),d0	
	Bsr	SetBMaps
	
	Lea	BMap3(pc),a0
	Move.l	PicBase(pc),a1
	Lea	$1d30(a1),a1
	Move.w	XPos3(pc),d0	
	Bsr	SetBMaps
	
	Lea	BMap4(pc),a0
	Move.l	PicBase(pc),a1
	Lea	$1d80(a1),a1
	Move.w	XPos4(pc),d0	
	Bsr	SetBMaps
		
	Lea	BP0List(pc),a0
	Move.l	PicBase(pc),a1
	Lea	$cc(a1),a1
	Move.w	YPos0(pc),d2
	And.w	#$1f,d2
	Bsr	DoYMap
	Bsr	Blitter1

	Lea	BP1List(pc),a0
	Move.l	PicBase(pc),a1
	Lea	$cc+4(a1),a1
	Move.w	YPos1(pc),d2
	And.w	#$1f,d2
	Bsr	DoYMap
	Bsr	Blitter1

	Lea	BP2List(pc),a0
	Move.l	PicBase(pc),a1
	Lea	$cc+8(a1),a1
	Move.w	YPos2(pc),d2
	And.w	#$3f,d2
	Bsr	DoYMap
	Bsr	Blitter1

	Lea	BP3List(pc),a0
	Move.l	PicBase(pc),a1
	Lea	$cc+12(a1),a1
	Move.w	YPos3(pc),d2
	And.w	#$3f,d2
	Bsr	DoYMap
	Bsr	Blitter2

	Lea	BP4List(pc),a0
	Move.l	PicBase(pc),a1
	Lea	$cc+16(a1),a1
	Move.w	YPos4(pc),d2
	Bsr	DoYMap
	Bsr	Blitter3

XLoop	Bsr	VBL

	Btst	#6,$Bfe001
	Bne	Loop
Xit	Bsr	ReturnSys
	Movem.l	(sp)+,d0-d7/a0-a6
	Rts

DoBPX	Move.l	PicBase(pc),d0
	Move.l	d0,a0
	Lea	$ae(a0),a0
	Swap	d0
	Move.w	d0,00(a0)
	Move.w	d0,04(a0)
	Move.w	d0,08(a0)
	Move.w	d0,12(a0)
	Move.w	d0,16(a0)
	Rts

DoYMap	Moveq	#0,d0
	Move.w	d2,d0
	And.w	#$ff,d0
	Asl.l	#3,d0
	Add.l	d0,a0
	Rts

VBL	Move.l	$Dff004,d0
	And.l	#$1ff00,d0
	Cmpi.l	#$12800,d0
	Bne	VBL
	Rts
	
Blitter1	Move.w	#3,d7
	Lea	$Dff000,a6
DBXT	Bsr	BWait
	Move.l	a0,BltApth(a6)
	Move.l	a1,BltDpth(a6)
	Move.w	#0,BltAMod(a6)	
	Move.w	#20,BltDMod(a6)	
	Move.l	#$ffffffff,BltAFWM(a6)
	Move.l	#$09f00000,BltCon0(a6)
	Move.w	#(64*64)+2,BltSize(a6)
	Add.l	#24*64,a1
	Dbf	d7,DBXT
	Bsr	BWait
	Move.l	a0,BltApth(a6)
	Move.l	a1,BltDpth(a6)
	Move.w	#0,BltAMod(a6)	
	Move.w	#20,BltDMod(a6)	
	Move.l	#$ffffffff,BltAFWM(a6)
	Move.l	#$09f00000,BltCon0(a6)
	Move.w	#(26*64)+2,BltSize(a6)
	Rts

Blitter2	Move.w	#1,d7
	Lea	$Dff000,a6
DBXT1	Bsr	BWait
	Move.l	a0,BltApth(a6)
	Move.l	a1,BltDpth(a6)
	Move.w	#0,BltAMod(a6)	
	Move.w	#20,BltDMod(a6)	
	Move.l	#$ffffffff,BltAFWM(a6)
	Move.l	#$09f00000,BltCon0(a6)
	Move.w	#(128*64)+2,BltSize(a6)
	Add.l	#24*128,a1
	Dbf	d7,DBXT1
	Bsr	BWait
	Move.l	a0,BltApth(a6)
	Move.l	a1,BltDpth(a6)
	Move.w	#0,BltAMod(a6)	
	Move.w	#20,BltDMod(a6)	
	Move.l	#$ffffffff,BltAFWM(a6)
	Move.l	#$09f00000,BltCon0(a6)
	Move.w	#(26*64)+2,BltSize(a6)
	Rts

Blitter3	Lea	$Dff000,a6
	Bsr	BWait
	Move.l	a0,BltApth(a6)
	Move.l	a1,BltDpth(a6)
	Move.w	#0,BltAMod(a6)	
	Move.w	#20,BltDMod(a6)	
	Move.l	#$ffffffff,BltAFWM(a6)
	Move.l	#$09f00000,BltCon0(a6)
	Move.w	#(256*64)+2,BltSize(a6)
	Add.l	#24*256,a1
	Bsr	BWait
	Move.l	a0,BltApth(a6)
	Move.l	a1,BltDpth(a6)
	Move.w	#0,BltAMod(a6)	
	Move.w	#20,BltDMod(a6)	
	Move.l	#$ffffffff,BltAFWM(a6)
	Move.l	#$09f00000,BltCon0(a6)
	Move.w	#(24*64)+2,BltSize(a6)
	Rts

Copy	Lea	$Dff000,a6
	Bsr	BWait
	Move.l	a0,BltApth(a6)
	Move.l	a1,BltDpth(a6)
	Move.w	#0,BltAMod(a6)	
	Move.w	#0,BltDMod(a6)	
	Move.l	#$ffffffff,BltAFWM(a6)
	Move.l	#$09f00000,BltCon0(a6)
	And.l	#$1ff,d0
	Asl.w	#6,d0
	Bset	#0,d0
	Move.w	d0,BltSize(a6)
	Rts

BWait	Btst	#14,$Dff002
	Bne	BWait
	Rts

DoCopy	Move.w	#51*2,d0
	Lea	CopperList1(pc),a0
	Move.l	PicBase(pc),a1
	Bsr	Copy
	
	Move.l	PicBase(pc),a1
	Lea	$cc(a1),a1
	Move.w	#281,d7
CopyBSLoop	Move.w	#12,d0
	Lea	CopBit(pc),a0
	Bsr	Copy
	Add.l	#24,a1
	Dbf	d7,CopyBSLoop
	
	Move.w	#10,d0
	Lea	EndCop(pc),a0
	Bsr	Copy
	Rts

KillSys	Bsr	SysWait
	Move.l	$4,a6			
	Lea	GFXLibName(pc),a1
	Moveq	#0,d0
	Jsr	-552(a6)
	Lea	OldCopper(pc),a5
	Move.l	$26(a0),(a5)
	Lea	$Dff000,a6
	Move.w	IntEnaR(a6),d0
	Move.w	DMAConR(a6),d1
	Or.w	#$8000,d0
	And.w	#$03ff,d1
	Or.w	#$8000,d1
	Move.w	#$7fff,IntEna(a6)
	Move.w	#$7fff,DMACon(a6)
	Move.w	d0,$4(a5)
	Move.w	d1,$6(a5)
	Bset	#1,$Bfe001
	Rts

SysWait	Move.w	#15,d7
SWLoop1	Move.w	#$1000,d0
SWLoop2	Move.w	d0,$Dff182
	Move.w	d7,$Dff180
	Dbf	d0,SWLoop2
	Dbf	d7,SWLoop1
	Rts

ReturnSys	Lea	$Dff000,a6
	Move.w	OldIntEna(pc),IntEna(a6)
	Move.w	OldDMACon(pc),DMACon(a6)
	Move.l	OldCopper(pc),Cop1lc(a6)
	Bclr	#1,$Bfe001
	Moveq	#0,d0
	Rts

SetCopWaits	Move.l	PicBase(pc),a0
	Lea	$cc(a0),a0
	Lea	20(a0),a0
	Move.w	#$1f,d0
	Move.w	#281,d1
CWaitLoop	Add.w	#1,d0
	Move.b	d0,(a0)
	Cmpi.w	#$100,d0
	Bne	ConCop
	Move.w	#$ffd9,(a0)
	Move.w	#0,d0
	
ConCop	Lea	24(a0),a0
	Dbf	d1,CWaitLoop
	Rts
	
SetBMaps	And.w	#$ff,d0
	
	Moveq	#0,d1
	Move.w	d0,d1
	Asr.w	#3,d1
	Bclr	#0,d1
	Add.l	d1,a0
	Asl.w	#8,d0
	Asl.w	#4,d0
	Move.w	#$f000,d2
	Sub.w	d0,d2
	Move.w	d2,d0
	And.w	#$f000,d0
	Or.w	#$09f0,d0
	
	Lea	$Dff000,a6
	Bsr	BWait
	Move.l	a0,BltApth(a6)
	Move.l	a1,BltDpth(a6)
	Move.w	#0,BltAMod(a6)	
	Move.w	#0,BltDMod(a6)	
	Move.l	#$ffffffff,BltAFWM(a6)
	Move.w	d0,BltCon0(a6)
	Move.w	#0,BltCon1(a6)
	Move.w	#(1*64)+32,BltSize(a6)
	Rts
	
TrackMouse	Lea	$Dff000,a6
	Move.w	Joy0Dat(a6),d0
	Lea	OldX(pc),a3
	Lea	XPos(pc),a4
	Move.b	0(a3),d1
	Move.b	d0,0(a3)
	Sub.b	d0,d1
	Ext.w	d1
	Sub.w	d1,0(a4)
	
	Lsr.w	#8,d0
	Move.b	1(a3),d1
	Move.b	d0,1(a3)
	Sub.b	d0,d1
	Ext.w	d1
	Sub.w	d1,2(a4)
	
	Move.w	0(a4),d0
	Move.w	2(a4),d1
	Asr.w	#4,d0
	Asr.w	#4,d1
	Rts

GFXLibName	Dc.b	"graphics.library",0,0,0,0
OldCopper	Dc.l	0
OldIntEna	Dc.w	0
OldDmaCon	Dc.w	0
OldX	Dc.b	0
OldY	Dc.b	0
XPos	Dc.w	0
YPos	Dc.w	0
PicBase	Dc.l	0
XPos0	Dc.w	0
YPos0	Dc.w	0
XPos1	Dc.w	0
YPos1	Dc.w	0
XPos2	Dc.w	0
YPos2	Dc.w	0
XPos3	Dc.w	0
YPos3	Dc.w	0
XPos4	Dc.w	0
YPos4	Dc.w	0

Cmv	Macro
	Dc.w	\2,\1
	EndM
	
Cwt	Macro
	Dc.w	(\1*$100)+$01,$fffe
	EndM	

Pal	Macro
	Dc.w	$ffd9,$fffe
	EndM	

EndCop	Macro
	Dc.w	$ffff,$fffe
	EndM	

DatP	Macro	
	Dc.w	$e2+(\1*4),(\2-((\2/$10000)*$10000))
	EndM

CopBit	Cmv	$0000,BplPt0l
	Cmv	$0000,BplPt1l
	Cmv	$0000,BplPt2l
	Cmv	$0000,BplPt3l
	Cmv	$0000,BplPt4l
	Cwt	$31

CopperList1	Cwt	$14
	Cmv	$0200,BplCon0
	Cmv	$0000,BplCon1
	Cmv	$000a,BplCon2
	Cmv	$0030,DdfStrt
	Cmv	$00d2,DdfStop
	Cmv	$1611,DiwStrt
	Cmv	$36f1,DiwStop
	Cmv	$0002,BplMod1
	Cmv	$0002,BplMod2
	Cwt	$15
CopperCOLS	Cmv	$0000,Color00
	Cmv	$0111,Color01
	Cmv	$0222,Color02
	Cmv	$0333,Color03
	Cmv	$0444,Color04
	Cmv	$0555,Color05
	Cmv	$0666,Color06
	Cmv	$0777,Color07
	Cmv	$0888,Color08
	Cmv	$0999,Color09
	Cmv	$0aaa,Color10
	Cmv	$0bbb,Color11
	Cmv	$0ccc,Color12
	Cmv	$0ddd,Color13
	Cmv	$0eee,Color14
	Cmv	$0fff,Color15
	Cmv	$0fff,Color16
	Cmv	$0eef,Color17
	Cmv	$0ddf,Color18
	Cmv	$0ccf,Color19
	Cmv	$0bbf,Color20
	Cmv	$0aaf,Color21
	Cmv	$099f,Color22
	Cmv	$088f,Color23
	Cmv	$077f,Color24
	Cmv	$066f,Color25
	Cmv	$055f,Color26
	Cmv	$044f,Color27
	Cmv	$033f,Color28
	Cmv	$022f,Color29
	Cmv	$011f,Color30
	Cmv	$000f,Color31
DKX	Cmv	$000b,BplPt0h
	Cmv	$000b,BplPt1h
	Cmv	$000b,BplPt2h
	Cmv	$000b,BplPt3h
	Cmv	$000b,BplPt4h
	Cwt	$1f
	Cmv	$5200,BplCon0
	Cmv	$0111,Color00

EndCop	Cmv	$0200,BplCon0
	Cmv	$0000,Color00	
	EndCop

BP0List	
	Rept	8
	Datp	0,$1b34
	Datp	0,$1b34
	Datp	0,$1b34
	Datp	0,$1b34
	Datp	0,$1b34
	Datp	0,$1b34
	Datp	0,$1b34
	Datp	0,$1b34

	Datp	0,$1b84
	Datp	0,$1b84
	Datp	0,$1b84
	Datp	0,$1b84
	Datp	0,$1b84
	Datp	0,$1b84
	Datp	0,$1b84
	Datp	0,$1b84
	EndR
BP1List	
	Rept	4
	Datp	1,$1c34
	Datp	1,$1c34
	Datp	1,$1c34
	Datp	1,$1c34
	Datp	1,$1c34
	Datp	1,$1c34
	Datp	1,$1c34
	Datp	1,$1c34

	Datp	1,$1c34
	Datp	1,$1c34
	Datp	1,$1c34
	Datp	1,$1c34
	Datp	1,$1c34
	Datp	1,$1c34
	Datp	1,$1c34
	Datp	1,$1c34

	Datp	1,$1c36
	Datp	1,$1c36
	Datp	1,$1c36
	Datp	1,$1c36
	Datp	1,$1c36
	Datp	1,$1c36
	Datp	1,$1c36
	Datp	1,$1c36

	Datp	1,$1c36
	Datp	1,$1c36
	Datp	1,$1c36
	Datp	1,$1c36
	Datp	1,$1c36
	Datp	1,$1c36
	Datp	1,$1c36
	Datp	1,$1c36
	EndR
BP2List	
	Rept	3
	Datp	2,$1c84
	Datp	2,$1c84
	Datp	2,$1c84
	Datp	2,$1c84
	Datp	2,$1c84
	Datp	2,$1c84
	Datp	2,$1c84
	Datp	2,$1c84
	
	Datp	2,$1c84	
	Datp	2,$1c84
	Datp	2,$1c84
	Datp	2,$1c84
	Datp	2,$1c84
	Datp	2,$1c84
	Datp	2,$1c84
	Datp	2,$1c84
	
	Datp	2,$1c84	
	Datp	2,$1c84	
	Datp	2,$1c84
	Datp	2,$1c84
	Datp	2,$1c84
	Datp	2,$1c84
	Datp	2,$1c84
	Datp	2,$1c84
	
	Datp	2,$1c84
	Datp	2,$1c84
	Datp	2,$1c84
	Datp	2,$1c84
	Datp	2,$1c84
	Datp	2,$1c84
	Datp	2,$1c84
	Datp	2,$1c84



	Datp	2,$1c88
	Datp	2,$1c88
	Datp	2,$1c88
	Datp	2,$1c88
	Datp	2,$1c88
	Datp	2,$1c88
	Datp	2,$1c88
	Datp	2,$1c88
	Datp	2,$1c88
	Datp	2,$1c88
	Datp	2,$1c88
	Datp	2,$1c88
	Datp	2,$1c88
	Datp	2,$1c88
	Datp	2,$1c88
	Datp	2,$1c88
	Datp	2,$1c88
	Datp	2,$1c88
	Datp	2,$1c88
	Datp	2,$1c88
	Datp	2,$1c88
	Datp	2,$1c88
	Datp	2,$1c88
	Datp	2,$1c88
	Datp	2,$1c88
	Datp	2,$1c88
	Datp	2,$1c88
	Datp	2,$1c88
	Datp	2,$1c88
	Datp	2,$1c88
	Datp	2,$1c88
	Datp	2,$1c88
	EndR
BP3List	
	Rept	2
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34
	Datp	3,$1d34

	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	Datp	3,$1d3c
	EndR
BP4List	
	Rept	3
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82	
	Datp	4,$1d82
		
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82	
	Datp	4,$1d82
	
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82
	Datp	4,$1d82


	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	Datp	4,$1d92
	EndR
	
BMap0	
	Rept	20
	Dc.w	$00ff,$00ff
	Endr
BMap5	
	Rept	20
	Dc.w	$ff00,$ff00
	Endr
BMap1	
	Rept	20
	Dc.w	$ffff,$0000
	Endr
BMap2	
	Rept	10
	Dc.w	$ffff,$ffff,$0000,$0000
	Endr
BMap3		
	Rept	10
	Dc.l	$ffffffff,$ffffffff
	Dc.l	$00000000,$00000000	
	Endr
BMap4	
	Rept	5
	Dc.l	$ffffffff,$ffffffff
	Dc.l	$ffffffff,$ffffffff
	Dc.l	$00000000,$00000000	
	Dc.l	$00000000,$00000000	
	Endr
	
****Custom Chip Registers****

;Control Registers

Dmaconr	= $002
Vposr	= $004
Vhposr	= $006
Joy0dat	= $00A
Joy1dat	= $00C
Clxdat	= $00E
Intenar	= $01C
Intereqr	= $01E
Copcon	= $02E

;Blitter Registers

Bltcon0	= $040
Bltcon1	= $042
Bltafwm	= $044
Bltalwm	= $046
Bltcpth	= $048
Bltcptl	= $04A
Bltbpth	= $04C
Bltbptl	= $04E
Bltapth	= $050
Bltaptl	= $052
Bltdpth	= $054
Bltdptl	= $056
Bltsize	= $058
Bltcmod	= $060
Bltbmod	= $062
Bltamod	= $064
Bltdmod	= $066
Bltcdat	= $070
Bltbdat	= $072
Bltadat	= $074

;Copper Registers

Cop1lc	= $080
Cop1lch	= $080
Cop1lcl	= $082
Cop2lc	= $084
Cop2lch	= $084
Cop2lcl	= $086
Copjmp1	= $088
Copjmp2	= $08A
Diwstrt	= $08E
Diwstop	= $090
Ddfstrt	= $092
Ddfstop	= $094
Dmacon	= $096
Clxcon	= $098
Intena	= $09A
Intreq	= $09C

;BitPlane Registers 

BplCon0	= $100
BplCon1	= $102
BplCon2	= $104
BplMod1	= $108
BplMod2	= $10a

BplPt0h	= $0e0
BplPt0l	= $0e2
BplPt1h	= $0e4
BplPt1l	= $0e6
BplPt2h	= $0e8
BplPt2l	= $0ea
BplPt3h	= $0ec
BplPt3l	= $0ee
BplPt4h	= $0f0
BplPt4l	= $0f2
BplPt5h	= $0f4
BplPt5l	= $0f6

;Colorour Registers

Color00	= $180
Color01	= $182
Color02	= $184
Color03	= $186
Color04	= $188
Color05	= $18a
Color06	= $18c
Color07	= $18e
Color08	= $190
Color09	= $192
Color10	= $194
Color11	= $196
Color12	= $198
Color13	= $19a
Color14	= $19c
Color15	= $19e
Color16	= $1a0
Color17	= $1a2
Color18	= $1a4
Color19	= $1a6
Color20	= $1a8
Color21	= $1aa
Color22	= $1ac
Color23	= $1ae
Color24	= $1b0
Color25	= $1b2
Color26	= $1b4
Color27	= $1b6
Color28	= $1b8
Color29	= $1ba
Color30	= $1bc
Color31	= $1be