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
	cmp.b	#254,d0
	beq	part2y
	add.l	#1,spoint
	sub.b	#32,d0			; now =1
zza	mulu	#512,d0			; now =512
	add.l	d0,a1
	

	moveq	#4,d0
	lea	mypiccy,a0
	lea	mypiccy,a2
	ADD.l	#9324,a0
	add.l	#9324,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	
part2y	add.l #1,spoint
	move.b	#$dc,pauser
	moveq	#0,d0
	
	bra	zza


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,pauser
	beq	zxcv
	sub.b	#1,pauser
	bra	out

zxcv	cmp.b	#0,cdown
	bne bypass
	move.b	#6,cdown
	bsr	subrt
	move.l	spoint,a6
	cmp.b	#$ff,(a6)
	bne	bypass
	move.l	#string,spoint
bypass	sub.b	#1,cdown
	

      
      moveq #4,d0
      lea mypiccy+9324,a0
      lea mypiccy+9326,a1
lp80: btst #14,$dff002			; Thank's to TBY of FREESTYLE
					; for the blitter info.
      bne lp80
      move.l a0,$dff054 ;dest
      move.l a1,$dff050 ;source
      move.w #$ffff,$dff044
      move.w #$ffff,$dff046
      move.w #0,$dff064
      move.w #0,$dff066
      move.w #%1100100111110000,$dff040
      move.w #%0000000000000000,$dff042
      move.w #%0000101000010111,$dff058; was 0000101100010111
      adda.l #11264,a0
      adda.l #11264,a1
      dbf d0,lp80      

      
      


	
	
	

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
pauser	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,$0fdb
		DC.W	$0184,$0131,$0186,$0c30
		DC.W	$0188,$0eee,$018A,$0121
		DC.W	$018C,$0447,$018E,$0740
		DC.W	$0190,$0db0,$0192,$04a2
		DC.W	$0194,$0242,$0196,$0372
		DC.W	$0198,$0252,$019A,$0444
		DC.W	$019C,$0333,$019E,$04b2

		DC.W	$01a0,$0392,$01a2,$05c5
		DC.W	$01a4,$0ccc,$01a6,$0d70
		DC.W	$01a8,$0382,$01aA,$08c8
		DC.W	$01aC,$04d2,$01aE,$06c6
		DC.W	$01b0,$0bcb,$01b2,$0362
		DC.W	$01b4,$0aca,$01b6,$0a50
		DC.W	$01b8,$0f5f,$01bA,$0252
		DC.W	$01bC,$04a2,$01bE,$0210

 dc.w	$ff09,$fffe,$ffdd,$fffe

 dc.w	$0009,$fffe

		DC.W	$0180,$0000,$0182,$0000
		DC.W	$0184,$0fff,$0186,$0000
		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  	$0109,$fffe,$186,$000
 dc.w 	$0209,$fffe,$186,$000
 dc.w 	$0309,$fffe,$186,$11
 dc.w	$0409,$fffe,$186,$22
 dc.w	$0509,$fffe,$186,$33
 dc.w	$0609,$fffe,$186,$044
 dc.w 	$0709,$fffe,$186,$055
 dc.w	$0809,$fffe,$186,$066
 dc.w	$0909,$fffe,$186,$077
 dc.w	$0a09,$fffe,$186,$088
 dc.w 	$0b09,$fffe,$186,$099
 dc.w	$0c09,$fffe,$186,$0aa
 dc.w	$0d09,$fffe,$186,$0bb
 dc.w	$0e09,$fffe,$186,$0cc
 dc.w	$0f09,$fffe,$186,$0dd
 dc.w	$1009,$fffe,$186,$0ee
 dc.w	$1109,$fffe,$186,$1ee
 dc.w	$1209,$fffe,$186,$2ee
 dc.w	$1309,$fffe,$186,$3ee
 dc.w	$1409,$fffe,$186,$4ee
 dc.w	$1509,$fffe,$186,$5ee
 dc.w	$1609,$fffe,$186,$6ee
 dc.w	$1709,$fffe,$186,$7Ee
 DC.W   $1809,$fffe,$186,$8ee,$180,$1,$182,$1
 dc.w	$1909,$fffe,$186,$9ee,$180,$3,$182,$3
 dc.w	$1a09,$fffe,$186,$aee,$180,$5,$182,$5
 dc.w	$1b,$fffe,$186,$bee,$180,$7,$182,$7
 dc.w	$1c09,$fffe,$186,$cee,$180,$9,$182,$9
 dc.w	$1d09,$fffe,$186,$dee,$180,$b,$182,$b
 dc.w	$1e09,$fffe,$186,$eee,$180,$d,$182,$d
 dc.w	$1f09,$fffe,$186,$0f0,$180,$e,$182,$e

 dc.w	$2109,$fffe,$108,$ff7e,$10a,$ff7e

 dc.w	$2309,$fffe,$186,$ccc
woplist	
 dc.w	$2409,$fffe,$186,$bcc
 dc.w	$2509,$fffe,$186,$acc
 dc.w	$2609,$fffe,$186,$9cc
 dc.w	$2709,$fffe,$186,$8bb
 dc.w	$2809,$fffe,$186,$7bb
 dc.w	$2909,$fffe,$186,$6bb
 dc.w	$2a09,$fffe,$186,$5aa
 dc.w	$2b09,$fffe,$186,$4aa
 dc.w	$2c09,$fffe,$186,$3aa
 dc.w	$2d09,$fffe,$186,$299
 dc.w	$2e09,$fffe,$186,$199
 dc.w	$2f09,$fffe,$186,$099
 dc.w	$3009,$fffe,$186,$088
 dc.w	$3109,$fffe,$108,$8c6,$10a,$8c6
 dc.w	$3209,$fffe,$108,$2,$10a,$2
 dc.w   $3309,$fffe,$180,$0,$182,$0,$184,$e00,$186,$f60,$188,$d60
 dc.w	$18a,$b50,$18c,$a50,$18e,$840
 dc.w	$9c,$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





string			;     *
	dc.b	"  COMRADE J  ",254
	dc.b	"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 HERE IZ ANOTHER    a SAE a   ",254,"  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	"DABBLE OF PURE 68000 FUNTIME GUYZ!?!?! "
	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+100