;******************
;** SCROLL INTRO **
;******************
;THIS INTRO IS BY SKYMAN OF DRAGONS.
;********************************************************************
OPENLIB= -552
FORBID = -132
PERMIT = -138
EXECBASE=4
STARTLIST=38
;********************************************************************
START:	LEA	$40000,A0
	LEA	X2,A1
START1:	CLR.B	(A0)+
	CMP.L	A0,A1
	BHI.S	START1
	MOVE.L	EXECBASE,A6
	JSR	FORBID(A6)
	MOVE.W	#$3E0,$DFF096
	MOVE.L	#COPPER,$DFF080
	CLR.W	$DFF088
	MOVE.W	#$87C0,$DFF096
	MOVE.L	$6C.W,MODIFY1+2
	MOVE.L	#MODIFY,$6C.W
;********************************************************************
TSTSOU:	BTST	#6,$BFE001
	BNE.S	TSTSOU
;********************************************************************
	MOVE.L	MODIFY1+2,$6C.W
	MOVE.L	EXECBASE,A6
	MOVE.L	#GRNAME,A1
	CLR.L	D0
	JSR	OPENLIB(A6)
	MOVE.L	D0,A4
	MOVE.L	STARTLIST(A4),$DFF080
	CLR.W	$DFF088
	MOVE.W	#$8060,$DFF096
	JSR	PERMIT(A6)
	MOVEQ	#0,D0
	RTS
;********************************************************************
MODIFY:	MOVEM.L	D0-D7/A0-A6,-(SP)
	BSR.L	SCRHOR
	BSR.L	SETCOP
	BSR.S	MOVOSC
	BSR.S	MOVCOL
	MOVEM.L	(SP)+,D0-D7/A0-A6
MODIFY1:JMP	$0
;********************************************************************
MOVCOL:	LEA	COLORS,A0
	MOVE.W	(A0)+,D0
MOVCOL2:TST.W	(A0)
	BNE.S	MOVCOL1
	MOVE.W	D0,-2(A0)
	RTS
MOVCOL1:MOVE.W	(A0)+,-4(A0)
	BRA.S	MOVCOL2
;********************************************************************
MOVOSC:	LEA	TABOSC,A0
	MOVEQ	#62,D7
	MOVE.B	(A0),D0
MOVOSC1:MOVE.B	1(A0),(A0)+
	DBRA	D7,MOVOSC1
	MOVE.B	D0,-1(A0)
	RTS
;********************************************************************
ADRCOL:	DC.L	COLORS,COLORS
COLORS:	DC.W	$FC9,$EC9,$DC9,$CC9,$CB9,$CA9,$C99,$C9A,$C9B,$C9C
	DC.W	$C9D,$C9E,$C9F,$B9F,$A9F,$99F,$9AF,$9BF,$9CF,$ACF
	DC.W	$BCF,$CCF,$DCF,$ECF,$FCF,$FBF,$FAF,$F9F,$F9E,$F9D
	DC.W	$F9C,$E9C,$D9C,$C9C,$CAC,$CBC,$CCC,$CDC,$CEC,$CFC
	DC.W	$CFB,$CFA,$CF9,$BF9,$AF9,$9F9,$9FA,$9FB,$9FC,$AFC
	DC.W	$BFC,$CFC,$DFC,$EFC,$FFC,$FEC,$FDC,$FCC,$FCB,$FCA
	DC.W	0
SETCOP:	LEA	COPPER1,A0
	MOVE.L	ADRCOL,A2
	TST.W	(A2)
	BNE.S	SETCOP1
	MOVE.L	ADRCOL+4,ADRCOL
	MOVE.L	ADRCOL+4,A2
SETCOP1:MOVE.L	#$3007FFFE,D7
	MOVE.L	#SCR+50,D0
	LEA	TABOSC,A1
	MOVE.L	#38,D5
OSC2:	MOVE.B	(A1)+,D6
	TST.B	D6
	BNE.S	OSC1
	ADDI.L	#40,D0
	DBRA	D5,OSC2
	BRA.L	OSC4
OSC1:	MOVE.L	D7,(A0)+
	SWAP	D0
	MOVE.W	#$E0,(A0)+
	MOVE.W	D0,(A0)+
	SWAP	D0
	MOVE.W	#$E2,(A0)+
	MOVE.W	D0,(A0)+
	TST.W	(A2)
	BNE.S	SETCOP2
	MOVE.L	ADRCOL+4,A2
SETCOP2:MOVE.W	#$182,(A0)+
	MOVE.W	(A2)+,(A0)+
	ADDI.L	#$01000000,D7
	BCC.S	SETCOP3
	MOVE.L	#$FFE1FFFE,(A0)+
	MOVE.L	#$0011FFFE,D7
SETCOP3:SUBQ.B	#1,D6
	TST.B	D6
	BNE.S	OSC1
	ADDI.L	#50,D0
	DBRA	D5,OSC2
OSC4:	MOVE.L	#$1000000,(A0)+
	MOVE.L	#$FFFFFFFE,(A0)+
	RTS
;********************************************************************
TABOSC:	DC.B	2,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9
	DC.B	9,9,8,8,7,7,6,6,5,5,4,4,3,3,2,2
	DC.B	2,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9
	DC.B	9,9,8,8,7,7,6,6,5,5,4,4,3,3,2,2
	EVEN
;********************************************************************
DATSCR:	DC.B	0
	EVEN
ADRTXT:	DC.L	TEXT
;*************************************************
;** SCROLL MULTIVITESSE A CARACTERES MODULABLES **
;*************************************************
SCRHOR:	ADDI.B	#4,DATSCR
	CMP.B	#32,DATSCR
	BLO.S	SCRHOR1
	BSR.S	SCRHOR1
	CLR.B	DATSCR
	BSR.S	RECCHR
	RTS
SCRHOR1:BTST	#6,$DFF002
	BNE.S	SCRHOR1
	MOVE.L	#SCR+402,$DFF050
	MOVE.L	#SCR+400,$DFF054
	CLR.L	$DFF064
	MOVE.L	#$C9F00000,$DFF040
	MOVE.L	#$FFFFFFFF,$DFF044
	MOVE.W	#33*64+25,$DFF058
	CLR.W	SCR+448
	RTS
RECCHR:	LEA	TABLE1,A1
	LEA	TABLE2,A2
RECCHR2:MOVE.L	ADRTXT,A0
	TST.B	(A0)
	BNE.S	RECCHR1
	MOVE.L	#TEXT,ADRTXT
	MOVE.L	#TEXT,A0
	BRA.S	RECCHR2
RECCHR1:MOVE.B	(A0),D0
RECCHR5:CMP.B	(A2)+,D0
	BEQ.S	RECCHR3
	ADDQ.L	#4,A1
	BRA.S	RECCHR5
RECCHR3:LEA	CHARS,A0
	ADDI.L	(A1),A0
RECCHR6:BTST	#6,$DFF002
	BNE.S	RECCHR6
	MOVE.L	A0,$DFF050
	MOVE.L	#SCR+496,$DFF054
	MOVE.W	#36,$DFF064
	MOVE.W	#46,$DFF066
	MOVE.L	#$09F00000,$DFF040
	MOVE.L	#$FFFFFFFF,$DFF044
	MOVE.W	#32*64+2,$DFF058
	ADDQ.L	#1,ADRTXT
	RTS
;********************************************************************
TABLE1:	DC.L	0000,0004,0008,0012,0016,0020,0024,0028,0032,0036
	DC.L	1280,1284,1288,1292,1296,1300,1304,1308,1312,1316
	DC.L	2560,2564,2568,2572,2576,2580,2584,2588,2592,2596
	DC.L	3840,3844,3848,3852,3856,3860,3864,3868,3872,3876
	DC.L	5120,5124,5128,5132
TABLE2:	DC.B	"ABCDEFGHIJKLMNOPQRSTUVWXYZ01'3456789!?()-,. ",0
	EVEN


TEXT:	DC.B	'DRAGONS ARE BACK WITH A NEW GAME CRACKED BY '
	DC.B	'ACID!    '

; --------------------------------------
; LISTE DE GREETINGS AU 16 DECEMBRE 1989
; --------------------------------------
; -    GREETS REUNIS PAR MEGABLAST     -
; --------------------------------------
;
; INTEGRER CETTE LISTE DANS TOUTE PRODUC
; DRAGONS ----> STAYING COOL AT ANY TIME

		DC.B	'YOHOOS TO,  '
		DC.B	' ACCUMULATORS -'	;MEGABLAST
		DC.B	' ACTIVE -'		;COBRA
		DC.B	' ALIVE -'		;FOXY
		DC.B	' AVENGER -'		;MEGABLAST
		DC.B	' BAMIGA SECTOR ONE -'	;COBRA
		DC.B	' BLACKMONKS -'		;FOXY & MEGABLAST
		DC.B	' BLOODSUCKERS -'	;MEGABLAST
		DC.B	' BRAINKILLER'		;MEGABLAST
		DC.B	'.MORDICUS -'
		DC.B	' BRAINSTORM -'		;LUCYFER&MEGAB.	
		DC.B	' BROWBEAT -'		;LUCYFER
		DC.B	' CASCADE -'		;FOXY
		DC.B	' DEATHSTAR -'		;MEGABLAST
		DC.B	' DEFJAM.CCS -'		;MEGABLAST
		DC.B	' DROID -'		;FOXY
		DC.B	' ESCAPE -'		;MEGABLAST
		DC.B	' FAIRLIGHT -'		;MEGABLAST
		DC.B	' FRAXION -'		;FOXY
		DC.B	' FREESTYLE UK -'	;MEGABLAST
		DC.B	' HAGAR.TST -'		;MEGABLAST
		DC.B	' IMPACT INC -'		;MOBY
		DC.B	' INFOCORNER -'		;MEGABLAST
		DC.B	' ITALIAN BAD BOYS -'	;COBRA & MEGABLAST
		DC.B	' IT! -'		;MEGABLAST
		DC.B	' JOHN AUSTRIA -'	;COBRA
		DC.B	' JUNGLE COMMAND -'	;MEGABLAST
		DC.B	' KOOL KIDS -'		;MEGABLAST
;		DC.B	' MAD -'		 COBRA & MEGABLAST
		DC.B	' MASTER CREW -'	;LUCYFER
		DC.B	' MICROSHIP.TFS -'	;COBRA
		DC.B	' NAPALM -'		;MEGABLAST
		DC.B	' NANDES -'		;COBRA
		DC.B	' ORACLE -'		;MEGABLAST
		DC.B	' PHENOMENA -'		;MEGABLAST
		DC.B	' PULSAR -'		;COBRA
		DC.B	' REBELS -'		;COBRA & FOXY
		DC.B	' RSI -'		;MEGABLAST
		DC.B	' SCOOPEX -'		;MEGABLAST
		DC.B	' S EXPRESS -'		;COBRA
		DC.B	' STARHAWKS -'		;MEGABLAST
		DC.B	' STORM -'		;FOXY
;		DC.B	' SUBSOFTWARE -'	;COBRA
		DC.B	' SUBWAY -'		;MEGABLAST
;		DC.B	' SUN CONNECTION -'	;MEGABLAST
		DC.B	' TEAM X -'		;FOXY
		DC.B	' THE GREAT SWAPERS -'	;MR VIDEO & CORSAIR
		DC.B	' UNIQUE -'		;LUCYFER
		DC.B	' TRILOGY -'		;COBRA & MEGABLAST
		DC.B	' VISION -'		;FOXY
		DC.B	' VISION FACTORY -'	;MEGABLAST
		DC.B	' X MEN '		;MOBY
		DC.B	' AND ALL THE OTHERS WE FORGOT   '


		DC.B	'THIS INTRO WAS DONE BY SKYMAN OF DRAGONS'
;	DC.B	' AND I AM SO PROUD TO PRESENT YOU THE UNREDEABLE'
;	DC.B	' SCROLLER CALLED MEGABLAST '
		DC.B	' AHAHAHAHAHAHAH... DRAGONS... '
		DC.B	"'STAYING COOL AT ANY TIME' OK BOY?"
		DC.B	'          '
		DC.B	0			;FIN TEXT

		EVEN
;********************************************************************
	EVEN
GRNAME:	DC.B	'graphics.library',0
	EVEN
COPPER:	DC.L	$8E3081,$9038CA,$920028,$9400E0,$1001000
	DC.L	$1800000
COPPER1:BLK.L	3888,0
	DC.L	$FFFFFFFE
CHARS:	BLK.B	6400,0
;********************************************************************
SCR=$40000
X2=SCR+2000
;********************************************************************
>EXTERN "PIC.CHARS.160",CHARS,6400