opt	c-,d+
	incdir	"df0:include/"
	include graphics/gfx.i
	include	graphics/rastport.i
	include graphics/graphics_lib.i
	include exec/memory.i
	include	exec/exec_lib.i
	include	hardware/custom.i

custom	equ	$dff000

memory	equ	MEMF_CHIP+MEMF_CLEAR
	
	lea	GFXLIB,a1
	MOVEQ	#0,D0
	CALLEXEC OPENLIBRARY
	TST	D0
	BEQ	ERROR
	MOVE.L	D0,_GFXBASE
	
	MOVE.L	#MYPICCY,MEMORY_POINTER
	LEA MYBITMAP,A0
	MOVE.L	#$05,D0
	MOVE.L	#320,D1
	MOVE.L	#256,D2
	CALLGRAF INITBITMAP
	LEA	MYRASTPORT,A1
	CALLGRAF INITRASTPORT
	LEA	MYRASTPORT,A1
	MOVE.L	#MYBITMAP,RP_BITMAP(A1)
	MOVE.L	MEMORY_POINTER,D0
	MOVE.L	D0,D1
	ADD.L	#10240,D1
	MOVE.L	D1,D2
	ADD.L	#10240,D2
	MOVE.L	D2,D3
	add.l	#10240,D3
	move.l	d3,d4
	add.l	#10240,d4


	

	LEA 	MYBITMAP,A0
	MOVE.L	D0,BM_PLANES(a0)
	MOVE.L	D1,BM_PLANES+4(a0)
	MOVE.L 	D2,BM_PLANES+8(a0)
	MOVE.L	D3,BM_PLANES+12(A0)
	move.l	d4,BM_PLANES+16(a0)
	MOVE.W	D0,PL0L
	MOVE.W	D1,PL1L
	MOVE.W	D2,PL2L
	MOVE.W	D3,PL3L
	move.w	d4,pl4l
	SWAP	D0
	SWAP	D1
	SWAP	D2
	SWAP	D3
	swap	d4
	MOVE.W	D0,PL0H
	MOVE.W	D1,PL1H
	MOVE.W	D2,PL2H
	MOVE.W	D3,PL3H
	move.w	d4,pl4h
	

	MOVE.L	_GFXBASE,A6
	ADD.L	#$32,A6
	MOVE.W	#$80,DMACON
	MOVE.L	(A6),OLDCOPPER
	MOVE.L	#NEWCOPPER,(A6)
	MOVE.W	#$8080,DMACON

	move.l	#string,spoint
	callexec forbid

	moveq	#9,d3	
	moveq	#0,d4

zloop
	lea	myfont,a1
	clr.l	d0
	move.l	spoint,a2
	move.b	(a2),d0			; now has 33
	add.l	#1,spoint
	sub.b	#32,d0			; now =1
	mulu	#512,d0			; now =512
	add.l	d0,a1
	

	moveq	#4,d0
	lea	mypiccy,a0
	lea	mypiccy,a2
	add.l	d4,a0
	add.l	d4,a0
	add.l	d4,a0
	add.l	d4,a0
	add.l   d4,a2
	add.l	d4,a2
	add.l	d4,a2
	add.l	d4,a2
	add.l	#1,d4
outloop	moveq	#32,d1
inloop	move.l	(a1)+,(a0)
	add.l	#40,a0
	sub.b	#1,d1
	cmp.b	#0,d1
	bne	inloop	
	add.l	#10240,a2
	move.l	a2,a0
	sub.b	#1,d0
	cmp.b	#0,d0
	bne outloop	

	sub.b	#1,d3
	cmp.b	#0,d3
	bne zloop
			
	
	
	
	
	
	move.w 	#$8010,$dff09a
	move.l	$6c,old
	move.l  #new,$6c
	
	
	
	
	


WAIT	ANDI.B	#$40,$BFE001
	BNE	WAIT
	move.l	old,$6c

	callexec permit

	MOVE.L	_GFXBASE,A6
	ADD.L	#$32,A6
	MOVE.W	#$80,DMACON
	MOVE.L	OLDCOPPER,(A6)
	MOVE.W	#$8080,DMACON
	move.w	#$8020,$dff096
ERROR	clr.l	d0
	move.w	#$f,$dff096
	move.w	#$0,$dff0a8
	move.w	#$0,$dff0b8
	move.w	#$0,$dff0c8
	move.w	#$0,$dff0d8
	RTS

 


new:	movem.l d0-d7/a0-a6,-(sp)
	and #$10,$dff01e        
	beq out
	move.w	#$10,$dff09c

	
	
	
	

out movem.l (sp)+,d0-d7/a0-a6
	dc.w $4ef9
old dc.l 0


count	dc.b 0
read    dc.l 0
buffy	ds.w 30
falagz	dc.b 0

OLDCOPPER	DC.L	0
NEWCOPPER	DC.W	$0100,$5200,$0102,$0000,$0104,$000A
		DC.W	$0108,$0000,$010A,$0000
		DC.W	$0092,$0038,$0094,$00D0
		DC.W	$008E,$2C81,$0090,$2cC1
		dc.w	$0096,$0020
		DC.W	$00E0
PL0H		DC.W	$0000,$00E2
PL0L		DC.W	$0000,$00E4
PL1H		DC.W	$0000,$00E6
PL1L		DC.W	$0000,$00E8
PL2H		DC.W	$0000,$00EA
PL2L		DC.W	$0000,$00EC
PL3H		DC.W	$0000,$00EE
PL3L		DC.W	$0000,$00F0
PL4H		DC.W	$0000,$00F2
PL4L		DC.W	$0000
		DC.W	$009c,$8010
		DC.W	$0180,$0000,$0182,$0000
		DC.W	$0184,$0fff,$0186,$0eee
		DC.W	$0188,$0ddd,$018A,$0bbb
		DC.W	$018C,$0aaa,$018E,$0999
		DC.W	$0190,$0888,$0192,$0777
		DC.W	$0194,$0666,$0196,$0555
		DC.W	$0198,$0333,$019A,$0222
		DC.W	$019C,$0111,$019E,$0000
 
 dc.w	$2c09,$fffe,$186,$000
 dc.w  	$2d09,$fffe,$186,$000
 dc.w 	$2e09,$fffe,$186,$000
 dc.w 	$2f09,$fffe,$186,$010
 dc.w	$3009,$fffe,$186,$020
 dc.w	$3109,$fffe,$186,$030
 dc.w	$3209,$fffe,$186,$040
 dc.w 	$3309,$fffe,$186,$050
 dc.w	$3409,$fffe,$186,$060
 dc.w	$3509,$fffe,$186,$070
 dc.w	$3609,$fffe,$186,$080
 dc.w 	$3709,$fffe,$186,$090
 dc.w	$3809,$fffe,$186,$0a0
 dc.w	$3909,$fffe,$186,$0b0
 dc.w	$3a09,$fffe,$186,$0c0
 dc.w	$3b09,$fffe,$186,$0d0
 dc.w	$3c09,$fffe,$186,$0e0
 dc.w	$3d09,$fffe,$186,$1e1
 dc.w	$3e09,$fffe,$186,$2e2
 dc.w	$3f09,$fffe,$186,$3e3
 dc.w	$4009,$fffe,$186,$4e4
 dc.w	$4109,$fffe,$186,$5e5
 dc.w	$4209,$fffe,$186,$6e6
 dc.w	$4309,$fffe,$186,$7E7
 DC.W   $4409,$fffe,$186,$8e8
 dc.w	$4509,$fffe,$186,$9e9
 dc.w	$4609,$fffe,$186,$aea
 dc.w	$4709,$fffe,$186,$beb
 dc.w	$4809,$fffe,$186,$cec
 dc.w	$4909,$fffe,$186,$ded
 dc.w	$4a09,$fffe,$186,$eee
 dc.w	$4e09,$fffe,$186,$0f0
		DC.W	$FFFF,$FFFE
gfxlib	dc.b	"graphics.library",0
	EVEN
_gfxbase	dc.l	0
MEMORY_POINTER	dc.l    0
MYRASTPORT	ds.b	RP_Sizeof
MYBITMAP	ds.b	BM_Sizeof
colour	dc.w	0
flagz	dc.b	0



string	dc.b	"SAE 1988!"

spoint	dc.l	string
myfont	dc.b	"gof "
	ds.b 	33788
	dc.l	0
mypiccy	dc.b	"fog "
	ds.b 	51200-4