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	#352,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	#11264,D1
	MOVE.L	D1,D2
	ADD.L	#11264,D2
	MOVE.L	D2,D3
	add.l	#11264,D3
	move.l	d3,d4
	add.l	#11264,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

	move.b	#0,cdown






			
	
	
	
	
	
	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

 

subrt	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	#40,a0
	add.l	#40,a2
	
outloop	moveq	#32,d1
inloop	move.l	(a1)+,(a0)
	add.l	#44,a0
	sub.b	#1,d1
	cmp.b	#0,d1
	bne	inloop	
	add.l	#11264,a2
	move.l	a2,a0
	sub.b	#1,d0
	cmp.b	#0,d0
	bne outloop
	rts	


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

	;	woplist
	
;	lea	woplist+1,a0
;	moveq	#12,d0
;	wpit	move.b	12(a0),(a0)
;	add.l	#12,a0
;	subi.b	#1,d0
;	cmp.b	#0,d0
;	bne 	wpit
;	move.l	woppt,a2
;	move.b	(a2),(a0)
;	add.l	#1,a2
;	cmp.b	#$fe,(a2)
;	bne	wopok
;	move.l	#wopdata,a2
;wopok	move.l	a2,woppt


	cmp.b	#0,cdown
	bne bypass
	move.b	#8,cdown
	bsr	subrt
	move.l	spoint,a6
	cmp.b	#$ff,(a6)
	bne	bypass
	move.l	#string,spoint
bypass	sub.b	#1,cdown
	lea 	myrastport,a1
	moveq	#3,d0
	moveq	#0,d1
	moveq	#0,d2
	moveq	#0,d3
	move.l	#350,d4
	moveq	#32,d5
	callgraf scrollraster
	
	
	

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
cdown	dc.b 0

OLDCOPPER	DC.L	0
NEWCOPPER	DC.W	$0100,$5200,$0102,$0000,$0104,$000A
		DC.W	$0108,$0002,$010A,$0002
		DC.W	$0092,$0038,$0094,$00D4
		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	$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	$01a8,$333,$1aA,$444,$1ac,$555
		dc.w	$1ae,$555,$1b0,$666,$1b2,$777,$1b4,$7aa
		dc.w	$1b6,$8bb,$1b8,$9cc,$1ba,$9dd,$1bc,$aee,$1be,$bff
 
 dc.w	$2c09,$fffe,$186,$000
 dc.w  	$2d09,$fffe,$186,$000
 dc.w 	$2e09,$fffe,$186,$000
 dc.w 	$2f09,$fffe,$186,$11
 dc.w	$3009,$fffe,$186,$22
 dc.w	$3109,$fffe,$186,$33
 dc.w	$3209,$fffe,$186,$044
 dc.w 	$3309,$fffe,$186,$055
 dc.w	$3409,$fffe,$186,$066
 dc.w	$3509,$fffe,$186,$077
 dc.w	$3609,$fffe,$186,$088
 dc.w 	$3709,$fffe,$186,$099
 dc.w	$3809,$fffe,$186,$0aa
 dc.w	$3909,$fffe,$186,$0bb
 dc.w	$3a09,$fffe,$186,$0cc
 dc.w	$3b09,$fffe,$186,$0dd
 dc.w	$3c09,$fffe,$186,$0ee
 dc.w	$3d09,$fffe,$186,$1ee
 dc.w	$3e09,$fffe,$186,$2ee
 dc.w	$3f09,$fffe,$186,$3ee
 dc.w	$4009,$fffe,$186,$4ee
 dc.w	$4109,$fffe,$186,$5ee
 dc.w	$4209,$fffe,$186,$6ee
 dc.w	$4309,$fffe,$186,$7Ee
 DC.W   $4409,$fffe,$186,$8ee,$180,$1,$182,$1
 dc.w	$4509,$fffe,$186,$9ee,$180,$3,$182,$3
 dc.w	$4609,$fffe,$186,$aee,$180,$5,$182,$5
 dc.w	$4709,$fffe,$186,$bee,$180,$7,$182,$7
 dc.w	$4809,$fffe,$186,$cee,$180,$9,$182,$9
 dc.w	$4909,$fffe,$186,$dee,$180,$b,$182,$b
 dc.w	$4a09,$fffe,$186,$eee,$180,$d,$182,$d
 dc.w	$4e09,$fffe,$186,$0f0,$180,$f,$182,$f

 dc.w	$4f09,$fffe,$108,$ff7e,$10a,$ff7e

 dc.w	$5209,$fffe,$186,$dee
woplist	
 dc.w	$5309,$fffe,$186,$cee
 dc.w	$5409,$fffe,$186,$bee
 dc.w	$5509,$fffe,$186,$aee
 dc.w	$5609,$fffe,$186,$9ee
 dc.w	$5709,$fffe,$186,$8ee
 dc.w	$5809,$fffe,$186,$7ee
 dc.w	$5909,$fffe,$186,$6ee
 dc.w	$5a09,$fffe,$186,$5ee
 dc.w	$5b09,$fffe,$186,$4ee
 dc.w	$5c09,$fffe,$186,$3ee
 dc.w	$5d09,$fffe,$186,$2ee
 dc.w	$5e09,$fffe,$186,$1ee
 dc.w	$5f09,$fffe,$186,$0ee,$180,$0,$182,$0,$184,$e00,$186,$f60,$188,$d60
 dc.w	$18a,$b50,$18c,$a50,$18e,$840

 dc.w	$6009,$fffe,$108,$8c6,$10a,$8c6
 dc.w	$6109,$fffe,$108,$2,$10a,$2
 dc.w	$9009,$fffe,$009c,$8010
		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



woppt	dc.l	wopdata

string	
	dc.b	"COMRADE J OF SHARE AND ENJOY PRESENTS HIS NEW "
	DC.B 	"SCROLLY TEXT ROUTINE, FOR USE IN SAE DEMOS AND "
	DC.B	"INTROS ONLY! ULTRA GREETOIDS TO ALL SAE MEMBERS "
	DC.B	"YEAH IT'S ANOTHER  a SAE a  DISK! - GREETS TO "
	DC.B	"EVERYONE. PHONE ME ON 01-668 9605 FOR A CHAT "
	DC.B	"!!!!! NEXT a COPY PARTY @ CBM SHOW!    "
	dc.b	"THIS IS A JOURNEY INTO SCROLLYTEXT WITH A DIP AND A "
	DC.B	"DOP AND A WIPEDY WOP "
	DC.B	"aaaaaaa SHARE AND ENJOY aaaaaaa AND NOW, "
 



	dc.b	255

spoint	dc.l	string
myfont	dc.b	"gof "
	ds.b 	33788
	dc.l	0
mypiccy	dc.b	"fog "
	ds.b 	56316+200