R:
	move.l	#60,d0
	lsl.l	#6,d0
* SOS *

>extern "op_wolf.1bp",font
>extern "angels",sin
>extern "tristar",module 
>extern	"logo",logoo
>extern	"xy",xy

;------ credits ---------------------------------------------------
;
;	coding by CORSAIR of DRAGONS
;	font   by MISTER VIDEO of DRAGONS
;	music  by LEFFTY of TRISTAR
;  	logo   by LUCYFER of ANGELS
;
;------ sauvegarde -----------------------------------------------
;
;	A <ret><ret> Y <ret>
;	WI <ret> RAM:ANGELS <ret> BEG <ret> END <ret>

;------ crunchage sous TETRAPACK ------------------------------
;
;	mega crunch : N <ret>
;	low-mem : $30000 <ret>
;	high-mem : 50000 <ret>
;	scan-width : 1500 <ret>
;	load-type : O <ret>	
;	filename : RAM:nom du prg a cruncher <ret>
;	load-adr : $40000 <ret>	
;	load-type : <ret>
;	     ATTENDRE
;	jmp adr : $40000 <ret>
;	flash-reg : 00 <ret>
;	pro-decrunch : N <ret>
;	filename : RAM:nom du prg a sauvegarder <ret>	
;	save again : N <ret>
; 	run now : Y <ret>
;
;------ registres divers ------------------------------------------
;
;si tu veux pas la music tu mets	music:		= 0
;sinon, (si tu veux la music), tu mets	music:		= 1
	music:		= 1
	scry:		= 104

;------ registres bp ----------------------------------------------
	bp1:		= $60000
	bp1a:		= bp1+[scry*48]
	bp_log:		= $70000

;------------------------------------------------------------------
	jmp		beg
	org		$40000
	load		$40000

;******************************************************************
;************** programme principal *******************************
;******************************************************************

beg:		move.l	4.w,a6
		jsr	-132(a6)		;forbid
;==================================================================
		move.l	#init,$80.w
		trap	#0
;==================================================================
if music
		bsr.L	end_music
endif
		move.l	4.w,a6
		lea	gfxn(pc),a1
		jsr	-408(a6)		;openlib
		move.l	d0,a1
		move.l	38(a1),$dff080
		move	#$8020,$dff096
		jsr	-414(a6)		;closelib
		jsr	-138(a6)		;permit
		moveq	#0,d0
		rts

;******************************************************************
;************** init **********************************************
;******************************************************************
init:		lea	end,a0
		lea	$7f000,a1
vide_bp:	clr.l	(a0)+
		cmp.l	a0,a1
		bne.s	vide_bp
;==================================================================
		lea	sin,a0
		lea	sin2,a1
		move	#8192-1,d0
init_sin:	move.b	(a0)+,d1
		ext	d1
		mulu	#48,d1
		move	d1,(a1)+
		dbf	d0,init_sin
;==================================================================
if music
		bsr.L	init_music
endif
		move.l	#new_copper,$dff080
		
;******************************************************************
;************** irq ***********************************************
;******************************************************************

irq_0:		move.l	$dff004,d0
		and.l	#$1ff00,d0
		cmp.l	#$10000,d0
		bne.s	irq_0
		bsr.s	scr
		bsr.L	controle_mouse
		bsr	place
if music
		bsr.L	play
endif
		btst	#6,$bfe001
		bne.s	irq_0
		rte

;******************************************************************
;************** scr ***********************************************
;******************************************************************

scr:		eor.b	#$01,bp_scr+1
		eor.b	#$01,adr_bp_scr+3
		lea	$dff000,a6
		move	pos_sin(pc),d0
		move	vit(pc),d1

		tst.b	tps_scr
		beq.s	ok_sin
		move	pas(pc),d2
		asl	#2,d2
		sub	d2,d1

ok_sin:		add	d1,d0
		move	d0,pos_sin
;==================================================================
		move.l	#$09000000,$40(a6)
		clr.l	$64(a6)
		move.l	bp_scr(pc),$54(a6)
		move	#64+16*64+24,$58(a6)
;==================================================================
		lea	sin2,a0
		move.l	#$0dfc0000,$40(a6)
		move.l	#$ffffffff,$44(a6)
		move.l	#$002e002e,$60(a6)
		move.l	#$002e002e,$64(a6)
		move.l	#bp_log,d1
		move.l	bp_scr(pc),d3
		move	#8192*2-1,d5
		move	pas(pc),d6
		moveq	#23-1,d4
;==================================================================
put_sin:	move.l	d3,d2			;part
		add	d6,d0
		and	d5,d0
		add	(a0,d0.w),d2
		move	#$8000,$44(a6)
		move.l	d1,$50(a6)
		move.l	d2,$54(a6)
		move.l	d2,$4c(a6)
		move	#16*64+1,$58(a6)
		move.l	d3,d2			;part
		add	d6,d0
		and	d5,d0
		add	(a0,d0.w),d2
		move	#$4000,$44(a6)
		move.l	d1,$50(a6)
		move.l	d2,$54(a6)
		move.l	d2,$4c(a6)
		move	#16*64+1,$58(a6)
		move.l	d3,d2			;part
		add	d6,d0
		and	d5,d0
		add	(a0,d0.w),d2
		move	#$2000,$44(a6)
		move.l	d1,$50(a6)
		move.l	d2,$54(a6)
		move.l	d2,$4c(a6)
		move	#16*64+1,$58(a6)
		move.l	d3,d2			;part
		add	d6,d0
		and	d5,d0
		add	(a0,d0.w),d2
		move	#$1000,$44(a6)
		move.l	d1,$50(a6)
		move.l	d2,$54(a6)
		move.l	d2,$4c(a6)
		move	#16*64+1,$58(a6)
;==================================================================
		move.l	d3,d2			;part
		add	d6,d0
		and	d5,d0
		add	(a0,d0.w),d2
		move	#$0800,$44(a6)
		move.l	d1,$50(a6)
		move.l	d2,$54(a6)
		move.l	d2,$4c(a6)
		move	#16*64+1,$58(a6)
		move.l	d3,d2			;part
		add	d6,d0
		and	d5,d0
		add	(a0,d0.w),d2
		move	#$0400,$44(a6)
		move.l	d1,$50(a6)
		move.l	d2,$54(a6)
		move.l	d2,$4c(a6)
		move	#16*64+1,$58(a6)
		move.l	d3,d2			;part
		add	d6,d0
		and	d5,d0
		add	(a0,d0.w),d2
		move	#$0200,$44(a6)
		move.l	d1,$50(a6)
		move.l	d2,$54(a6)
		move.l	d2,$4c(a6)
		move	#16*64+1,$58(a6)
		move.l	d3,d2			;part
		add	d6,d0
		and	d5,d0
		add	(a0,d0.w),d2
		move	#$0100,$44(a6)
		move.l	d1,$50(a6)
		move.l	d2,$54(a6)
		move.l	d2,$4c(a6)
		move	#16*64+1,$58(a6)
;==================================================================
		move.l	d3,d2			;part
		add	d6,d0
		and	d5,d0
		add	(a0,d0.w),d2
		move	#$0080,$44(a6)
		move.l	d1,$50(a6)
		move.l	d2,$54(a6)
		move.l	d2,$4c(a6)
		move	#16*64+1,$58(a6)
		move.l	d3,d2			;part
		add	d6,d0
		and	d5,d0
		add	(a0,d0.w),d2
		move	#$0040,$44(a6)
		move.l	d1,$50(a6)
		move.l	d2,$54(a6)
		move.l	d2,$4c(a6)
		move	#16*64+1,$58(a6)
		move.l	d3,d2			;part
		add	d6,d0
		and	d5,d0
		add	(a0,d0.w),d2
		move	#$0020,$44(a6)
		move.l	d1,$50(a6)
		move.l	d2,$54(a6)
		move.l	d2,$4c(a6)
		move	#16*64+1,$58(a6)
		move.l	d3,d2			;part
		add	d6,d0
		and	d5,d0
		add	(a0,d0.w),d2
		move	#$0010,$44(a6)
		move.l	d1,$50(a6)
		move.l	d2,$54(a6)
		move.l	d2,$4c(a6)
		move	#16*64+1,$58(a6)
;==================================================================
		move.l	d3,d2			;part
		add	d6,d0
		and	d5,d0
		add	(a0,d0.w),d2
		move	#$0008,$44(a6)
		move.l	d1,$50(a6)
		move.l	d2,$54(a6)
		move.l	d2,$4c(a6)
		move	#16*64+1,$58(a6)
		move.l	d3,d2			;part
		add	d6,d0
		and	d5,d0
		add	(a0,d0.w),d2
		move	#$0004,$44(a6)
		move.l	d1,$50(a6)
		move.l	d2,$54(a6)
		move.l	d2,$4c(a6)
		move	#16*64+1,$58(a6)
		move.l	d3,d2			;part
		add	d6,d0
		and	d5,d0
		add	(a0,d0.w),d2
		move	#$0002,$44(a6)
		move.l	d1,$50(a6)
		move.l	d2,$54(a6)
		move.l	d2,$4c(a6)
		move	#16*64+1,$58(a6)
		move.l	d3,d2			;part
		add	d6,d0
		and	d5,d0
		add	(a0,d0.w),d2
		move	#$0001,$44(a6)
		move.l	d1,$50(a6)
		move.l	d2,$54(a6)
		move.l	d2,$4c(a6)
		move	#16*64+1,$58(a6)
		addq	#2,d1
		addq	#2,d3
		dbf	d4,put_sin
;==================================================================
		tst.b	tps_scr
		beq.s	ok_scr
		subq.b	#1,tps_scr
		rts
;==================================================================
ok_scr:		move.l	#$c9f00000,$40(a6)
		move.l	#$ffffffff,$44(a6)
		clr.l	$64(a6)
		move.l	#bp_log,$50(a6)
		move.l	#bp_log-2,$54(a6)
		move	#17*64+24,$58(a6)
		subq.b	#1,nb_scr
		beq.s	nv_car
		rts
;==================================================================
nv_car:		move.b	#4,nb_scr
		move.l	compt(pc),a0
		move.b	(a0)+,d0
		bne.s	pas_fin_scr
		lea	scrtxt(pc),a0
		move.b	(a0)+,d0
pas_fin_scr:	move.l	a0,compt
		cmp.b	#'A',d0
		bne.s	pas_pause
		move.b	#100,tps_scr
		bra.s	nv_car
pas_pause:	lea	ordre(pc),a0
		lea	adr_font-4(pc),a1
ch_font:	addq	#4,a1
		cmp.b	(a0)+,d0
		bne.s	ch_font
		move.l	#$09f00000,$40(a6)
		move.l	#$ffffffff,$44(a6)
		move.l	#$0026002e,$64(a6)
		move.l	(a1),$50(a6)
		move.l	#bp_log+46,$54(a6)
		move	#16*64+1,$58(a6)
fin_scr:	rts

;******************************************************************
;************** controle mouse ************************************
;******************************************************************

controle_mouse:	move.b	$bfec01,d0
		cmp.b	#$67,d0
		bne.s	pas_ht
		cmp	#2*80,pas
		beq.s	pas_ht
		add	#2,pas
;==================================================================
pas_ht:		cmp.b	#$65,d0
		bne.s	pas_bas
		cmp	#0,pas
		beq.s	pas_bas
		sub	#2,pas
;==================================================================
pas_bas:	cmp.b	#$61,d0
		bne.s	pas_g
		cmp	#8*80,vit
		beq.s	pas_g
		add	#8,vit
;==================================================================
pas_g:		cmp.b	#$63,d0
		bne.s	pas_d
		cmp	#0,vit
		beq.s	pas_d
		sub	#8,vit
pas_d:		rts

place:
	add.l	#4,pxy
	cmp.l	#findata,pxy
	blo	encorecourbe
	move.l	#xy,pxy
encorecourbe:
	move.l	pxy,a0
	lea	logoo,a1
	moveq.l	#0,d1
	moveq.l	#0,d2
	move.w	(a0)+,d1
	move.w	(a0)+,d2
	or.w	#$09f0,d2
	lea	$dff000,a5
	move.l	#2-1,d0
copy:
	btst	#14,2(a5)
	bne	copy
	move.l	#$ffffffff,$44(a5)
	move.l	#$00000016,$64(a5)
	move.l	a1,$50(a5)
	move.l	#$63000,d3
	add.w	d1,d3
	move.l	d3,$54(a5)
	move.w	d2,$40(a5)
	move.w	#$0000,$42(a5)
	move.w	#$0f0d,$58(a5)
	add.l	#$3000,d1
	add.l	#26*60,a1
	dbf	d0,copy
rts

if music
*************************************************************
**  Amiga FUTURE COMPOSER V1.0 / V1.2  --  Replay routine  **
*************************************************************

END_MUSIC:
clr.w onoff
clr.l $dff0a6
clr.l $dff0b6
clr.l $dff0c6
clr.l $dff0d6
move.w #$000f,$dff096
bclr #1,$bfe001
rts

INIT_MUSIC:
move.w #1,onoff
bset #1,$bfe001
lea MODULE,a0
lea 100(a0),a1
move.l a1,SEQpoint
move.l a0,a1
add.l 8(a0),a1
move.l a1,PATpoint
move.l a0,a1
add.l 16(a0),a1
move.l a1,FRQpoint
move.l a0,a1
add.l 24(a0),a1
move.l a1,VOLpoint
move.l 4(a0),d0
divu #13,d0

lea 40(a0),a1
lea SOUNDINFO+4(pc),a2
moveq #10-1,d1
initloop:
move.w (a1)+,(a2)+
move.l (a1)+,(a2)+
addq.w #4,a2
dbf d1,initloop
moveq #0,d2
move.l a0,d1
add.l 32(a0),d1
sub.l #WAVEFORMS,d1
lea SOUNDINFO(pc),a0
move.l d1,(a0)+
moveq #9-1,d3
initloop1:
move.w (a0),d2
add.l d2,d1
add.l d2,d1
addq.w #6,a0
move.l d1,(a0)+
dbf d3,initloop1

move.l SEQpoint(pc),a0
moveq #0,d2
move.b 12(a0),d2		;Get replay speed
bne.s speedok
move.b #3,d2			;Set default speed
speedok:
move.w d2,respcnt		;Init repspeed counter
move.w d2,repspd
INIT2:
clr.w audtemp
move.w #$000f,$dff096		;Disable audio DMA
move.w #$0780,$dff09a		;Disable audio IRQ
moveq #0,d7
mulu #13,d0
moveq #4-1,d6			;Number of soundchannels-1
lea V1data(pc),a0		;Point to 1st voice data area
lea silent(pc),a1
lea o4a0c8(pc),a2
initloop2:
move.l a1,10(a0)
move.l a1,18(a0)
clr.l 14(a0)
clr.b 45(a0)
clr.b 47(a0)
clr.w 8(a0)
clr.l 48(a0)
move.b #$01,23(a0)
move.b #$01,24(a0)
clr.b 25(a0)
clr.l 26(a0)
clr.w 30(a0)
moveq #$00,d3
move.w (a2)+,d1
move.w (a2)+,d3
divu #$0003,d3
move.b d3,32(a0)
mulu #$0003,d3
andi.l #$00ff,d3
andi.l #$00ff,d1
addi.l #$dff0a0,d1
move.l d1,a6
move.l #$0000,(a6)
move.w #$0100,4(a6)
move.w #$0000,6(a6)
move.w #$0000,8(a6)
move.l d1,60(a0)
clr.w 64(a0)
move.l SEQpoint(pc),(a0)
move.l SEQpoint(pc),52(a0)
add.l d0,52(a0)
add.l d3,52(a0)
add.l d7,(a0)
add.l d3,(a0)
move.w #$000d,6(a0)
move.l (a0),a3
move.b (a3),d1
andi.l #$00ff,d1
lsl.w #6,d1
move.l PATpoint(pc),a4
adda.w d1,a4
move.l a4,34(a0)
clr.l 38(a0)
move.b #$01,33(a0)
move.b #$02,42(a0)
move.b 1(a3),44(a0)
move.b 2(a3),22(a0)
clr.b 43(a0)
clr.b 45(a0)
clr.w 56(a0)
adda.w #$004a,a0	;Point to next voice's data area
dbf d6,initloop2
rts


PLAY:
lea pervol(pc),a6
tst.w onoff
bne.s music_on
rts
music_on:
subq.w #1,respcnt		;Decrease replayspeed counter
bne.s nonewnote
move.w repspd(pc),respcnt	;Restore replayspeed counter
lea V1data(pc),a0		;Point to voice1 data area
bsr.L new_note
lea V2data(pc),a0		;Point to voice2 data area
bsr.L new_note
lea V3data(pc),a0		;Point to voice3 data area
bsr.L new_note
lea V4data(pc),a0		;Point to voice4 data area
bsr.L new_note
nonewnote:
clr.w audtemp
lea V1data(pc),a0
bsr.L effects
move.w d0,(a6)+
move.w d1,(a6)+
lea V2data(pc),a0
bsr.L effects
move.w d0,(a6)+
move.w d1,(a6)+
lea V3data(pc),a0
bsr.L effects
move.w d0,(a6)+
move.w d1,(a6)+
lea V4data(pc),a0
bsr.L effects
move.w d0,(a6)+
move.w d1,(a6)+
lea pervol(pc),a6
move.w audtemp(pc),d0
ori.w #$8000,d0			;Set/clr bit = 1
move.w d0,-(a7)
moveq #0,d1
move.l start1(pc),d2		;Get samplepointers
move.w offset1(pc),d1		;Get offset
add.l d1,d2			;Add offset
move.l start2(pc),d3
move.w offset2(pc),d1
add.l d1,d3
move.l start3(pc),d4
move.w offset3(pc),d1
add.l d1,d4
move.l start4(pc),d5
move.w offset4(pc),d1
add.l d1,d5
move.w ssize1(pc),d0		;Get sound lengths
move.w ssize2(pc),d1
move.w ssize3(pc),d6
move.w ssize4(pc),d7
move.w (a7)+,$dff096		;Enable audio DMA
chan1:
lea V1data(pc),a0
tst.w 72(a0)
beq.l chan2
subq.w #1,72(a0)
cmpi.w #1,72(a0)
bne.s chan2
clr.w 72(a0)
move.l d2,$dff0a0		;Set soundstart
move.w d0,$dff0a4		;Set soundlength
chan2:
lea V2data(pc),a0
tst.w 72(a0)
beq.s chan3
subq.w #1,72(a0)
cmpi.w #1,72(a0)
bne.s chan3
clr.w 72(a0)
move.l d3,$dff0b0
move.w d1,$dff0b4
chan3:
lea V3data(pc),a0
tst.w 72(a0)
beq.s chan4
subq.w #1,72(a0)
cmpi.w #1,72(a0)
bne.s chan4
clr.w 72(a0)
move.l d4,$dff0c0
move.w d6,$dff0c4
chan4:
lea V4data(pc),a0
tst.w 72(a0)
beq.s setpervol
subq.w #1,72(a0)
cmpi.w #1,72(a0)
bne.s setpervol
clr.w 72(a0)
move.l d5,$dff0d0
move.w d7,$dff0d4
setpervol:
lea $dff0a6,a5
move.w (a6)+,(a5)	;Set period
move.w (a6)+,2(a5)	;Set volume
move.w (a6)+,16(a5)
move.w (a6)+,18(a5)
move.w (a6)+,32(a5)
move.w (a6)+,34(a5)
move.w (a6)+,48(a5)
move.w (a6)+,50(a5)
rts

NEW_NOTE:
moveq #0,d5
move.l 34(a0),a1
adda.w 40(a0),a1
cmp.w #64,40(a0)
bne.s samepat
move.l (a0),a2
adda.w 6(a0),a2		;Point to next sequence row
cmpa.l 52(a0),a2	;Is it the end?
bne.s notend
move.w d5,6(a0)		;yes!
move.l (a0),a2		;Point to first sequence
notend:
moveq #0,d1
addq.b #1,spdtemp
cmpi.b #4,spdtemp
bne.s nonewspd
move.b d5,spdtemp
move.b -1(a1),d1	;Get new replay speed
beq.s nonewspd
move.w d1,respcnt	;store in counter
move.w d1,repspd
nonewspd:
move.b (a2),d1		;Pattern to play
move.b 1(a2),44(a0)	;Transpose value
move.b 2(a2),22(a0)	;Soundtranspose value

move.w d5,40(a0)
lsl.w #6,d1
add.l PATpoint(pc),d1	;Get pattern pointer
move.l d1,34(a0)
addi.w #$000d,6(a0)
move.l d1,a1
samepat:
move.b 1(a1),d1		;Get info byte
move.b (a1)+,d0		;Get note
bne.s ww1
andi.w #%11000000,d1
beq.s noport
bra.s ww11
ww1:
move.w d5,56(a0)
ww11:
move.b d5,47(a0)
move.b (a1),31(a0)

		;31(a0) = PORTAMENTO/INSTR. info
			;Bit 7 = portamento on
			;Bit 6 = portamento off
			;Bit 5-0 = instrument number
		;47(a0) = portamento value
			;Bit 7-5 = always zero
			;Bit 4 = up/down
			;Bit 3-0 = value
t_porton:
btst #7,d1
beq.s noport
move.b 2(a1),47(a0)	
noport:
andi.w #$007f,d0
beq.s nextnote
move.b d0,8(a0)
move.b (a1),9(a0)
move.b 32(a0),d2
moveq #0,d3
bset d2,d3
or.w d3,audtemp
move.w d3,$dff096
move.b (a1),d1
andi.w #$003f,d1	;Max 64 instruments
add.b 22(a0),d1
move.l VOLpoint(pc),a2
lsl.w #6,d1
adda.w d1,a2
move.w d5,16(a0)
move.b (a2),23(a0)
move.b (a2)+,24(a0)
move.b (a2)+,d1
andi.w #$00ff,d1
move.b (a2)+,27(a0)
move.b #$40,46(a0)
move.b (a2)+,d0
move.b d0,28(a0)
move.b d0,29(a0)
move.b (a2)+,30(a0)
move.l a2,10(a0)
move.l FRQpoint(pc),a2
lsl.w #6,d1
adda.w d1,a2
move.l a2,18(a0)
move.w d5,50(a0)
move.b d5,26(a0)
move.b d5,25(a0)
nextnote:
addq.w #2,40(a0)
rts

EFFECTS:
moveq #0,d7
testsustain:
tst.b 26(a0)		;Is sustain counter = 0
beq.s sustzero
subq.b #1,26(a0)	;if no, decrease counter
bra.L VOLUfx
sustzero:		;Next part of effect sequence
move.l 18(a0),a1	;can be executed now.
adda.w 50(a0),a1
testeffects:
cmpi.b #$e1,(a1)	;E1 = end of FREQseq sequence
beq.L VOLUfx
cmpi.b #$e0,(a1)	;E0 = loop to other part of sequence
bne.s testnewsound
move.b 1(a1),d0		;loop to start of sequence + 1(a1)
andi.w #$003f,d0
move.w d0,50(a0)
move.l 18(a0),a1
adda.w d0,a1
testnewsound:
cmpi.b #$e2,(a1)	;E2 = set waveform
bne.s o49c64
moveq #0,d0
moveq #0,d1
move.b 32(a0),d1
bset d1,d0
or.w d0,audtemp
move.w d0,$dff096
move.b 1(a1),d0
andi.w #$00ff,d0
lea SOUNDINFO(pc),a4
add.w d0,d0
move.w d0,d1
add.w d1,d1
add.w d1,d1
add.w d1,d0
adda.w d0,a4
move.l 60(a0),a3
move.l (a4),d1
add.l #WAVEFORMS,d1
move.l d1,(a3)
move.l d1,68(a0)
move.w 4(a4),4(a3)
move.l 6(a4),64(a0)
swap d1
move.w #$0003,72(a0)
tst.w d1
bne.s o49c52
move.w #$0002,72(a0)
o49c52:
clr.w 16(a0)
move.b #$01,23(a0)
addq.w #2,50(a0)
bra.L o49d02
o49c64:
cmpi.b #$e4,(a1)
bne.s testpatjmp
move.b 1(a1),d0
andi.w #$00ff,d0
lea SOUNDINFO(pc),a4
add.w d0,d0
move.w d0,d1
add.w d1,d1
add.w d1,d1
add.w d1,d0
adda.w d0,a4
move.l 60(a0),a3
move.l (a4),d1
add.l #WAVEFORMS,d1
move.l d1,(a3)
move.l d1,68(a0)
move.w 4(a4),4(a3)
move.l 6(a4),64(a0)

swap d1
move.w #$0003,72(a0)
tst.w d1
bne.s o49cae
move.w #$0002,72(a0)
o49cae:
addq.w #2,50(a0)
bra.s o49d02
testpatjmp:
cmpi.b #$e7,(a1)
bne.s testnewsustain
move.b 1(a1),d0
andi.w #$00ff,d0
lsl.w #6,d0
move.l FRQpoint(pc),a1
adda.w d0,a1
move.l a1,18(a0)
move.w d7,50(a0)
bra.L testeffects
testnewsustain:
cmpi.b #$e8,(a1)	;E8 = set sustain time
bne.s o49cea
move.b 1(a1),26(a0)
addq.w #2,50(a0)
bra.L testsustain
o49cea:
cmpi.b #$e3,(a1)
bne.s o49d02
addq.w #3,50(a0)
move.b 1(a1),27(a0)
move.b 2(a1),28(a0)
o49d02:
move.l 18(a0),a1
adda.w 50(a0),a1
move.b (a1),43(a0)
addq.w #1,50(a0)
VOLUfx:
tst.b 25(a0)
beq.s o49d1e
subq.b #1,25(a0)
bra.s o49d70
o49d1e:
subq.b #1,23(a0)
bne.s o49d70
move.b 24(a0),23(a0)
o49d2a:
move.l 10(a0),a1
adda.w 16(a0),a1
move.b (a1),d0
cmpi.b #$e8,d0
bne.s o49d4a
addq.w #2,16(a0)
move.b 1(a1),25(a0)
bra.s VOLUfx
o49d4a:
cmpi.b #$e1,d0
beq.s o49d70
cmpi.b #$e0,d0
bne.s o49d68
move.b 1(a1),d0
andi.l #$003f,d0
subq.b #5,d0
move.w d0,16(a0)
bra.s o49d2a
o49d68:
move.b (a1),45(a0)
addq.w #1,16(a0)
o49d70:
move.b 43(a0),d0
bmi.s o49d7e
add.b 8(a0),d0
add.b 44(a0),d0
o49d7e:
andi.w #$007f,d0
lea PERIODS(pc),a1
add.w d0,d0
move.w d0,d1
adda.w d0,a1
move.w (a1),d0
move.b 46(a0),d7
tst.b 30(a0)
beq.s o49d9e
subq.b #1,30(a0)

bra.s o49df4
o49d9e:
move.b d1,d5
move.b 28(a0),d4
add.b d4,d4
move.b 29(a0),d1
tst.b d7
bpl.s o49db4
btst #0,d7
bne.s o49dda
o49db4:
btst #5,d7
bne.s o49dc8
sub.b 27(a0),d1
bcc.s o49dd6
bset #5,d7
moveq #0,d1
bra.s o49dd6
o49dc8:
add.b 27(a0),d1
cmp.b d4,d1
bcs.s o49dd6
bclr #5,d7
move.b d4,d1
o49dd6:
move.b d1,29(a0)
o49dda:
lsr.b #1,d4
sub.b d4,d1
bcc.s o49de4
subi.w #$0100,d1
o49de4:
addi.b #$a0,d5
bcs.s o49df2
o49dea:
add.w d1,d1
addi.b #$18,d5
bcc.s o49dea
o49df2:
add.w d1,d0
o49df4:
eori.b #$01,d7
move.b d7,46(a0)

; DO THE PORTAMENTO THING
moveq #0,d1
move.b 47(a0),d1	;get portavalue
beq.s a56d0		;0=no portamento
cmpi.b #$1f,d1
bls.s portaup
portadown: 
andi.w #$1f,d1
neg.w d1
portaup:
sub.w d1,56(a0)
a56d0:
add.w 56(a0),d0
o49e3e:
cmpi.w #$0070,d0
bhi.s nn1
move.w #$0071,d0
nn1:
cmpi.w #$06b0,d0
bls.s nn2
move.w #$06b0,d0
nn2:
moveq #0,d1
move.b 45(a0),d1
rts



pervol: blk.b 16,0	;Periods & Volumes temp. store
respcnt: dc.w 0		;Replay speed counter 
repspd:  dc.w 0		;Replay speed counter temp
onoff:   dc.w 0		;Music on/off flag.
firseq:	 dc.w 0		;First sequence
lasseq:	 dc.w 0		;Last sequence
audtemp: dc.w 0
spdtemp: dc.w 0

V1data:  blk.b 64,0	;Voice 1 data area
offset1: blk.b 02,0	;Is added to start of sound
ssize1:  blk.b 02,0	;Length of sound
start1:  blk.b 06,0	;Start of sound

V2data:  blk.b 64,0	;Voice 2 data area
offset2: blk.b 02,0
ssize2:  blk.b 02,0
start2:  blk.b 06,0

V3data:  blk.b 64,0	;Voice 3 data area
offset3: blk.b 02,0
ssize3:  blk.b 02,0
start3:  blk.b 06,0

V4data:  blk.b 64,0	;Voice 4 data area
offset4: blk.b 02,0
ssize4:  blk.b 02,0
start4:  blk.b 06,0

o4a0c8: dc.l $00000000,$00100003,$00200006,$00300009
SEQpoint: dc.l 0
PATpoint: dc.l 0
FRQpoint: dc.l 0
VOLpoint: dc.l 0


even
SILENT: dc.w $0100,$0000,$0000,$00e1

PERIODS:dc.w $06b0,$0650,$05f4,$05a0,$054c,$0500,$04b8,$0474
	dc.w $0434,$03f8,$03c0,$038a,$0358,$0328,$02fa,$02d0
	dc.w $02a6,$0280,$025c,$023a,$021a,$01fc,$01e0,$01c5
	dc.w $01ac,$0194,$017d,$0168,$0153,$0140,$012e,$011d
	dc.w $010d,$00fe,$00f0,$00e2,$00d6,$00ca,$00be,$00b4
	dc.w $00aa,$00a0,$0097,$008f,$0087,$007f,$0078,$0071
	dc.w $0071,$0071,$0071,$0071,$0071,$0071,$0071,$0071
	dc.w $0071,$0071,$0071,$0071,$0d60,$0ca0,$0be8,$0b40
	dc.w $0a98,$0a00,$0970,$08e8,$0868,$07f0,$0780,$0714
	dc.w $1ac0,$1940,$17d0,$1680,$1530,$1400,$12e0,$11d0
	dc.w $10d0,$0fe0,$0f00,$0e28

SOUNDINFO:
;Offset.l , Sound-length.w , Start-offset.w , Repeat-length.w 

;Reserved for samples
	dc.w $0000,$0000 ,$0000 ,$0000 ,$0001 
	dc.w $0000,$0000 ,$0000 ,$0000 ,$0001 
	dc.w $0000,$0000 ,$0000 ,$0000 ,$0001 
	dc.w $0000,$0000 ,$0000 ,$0000 ,$0001 
	dc.w $0000,$0000 ,$0000 ,$0000 ,$0001 
	dc.w $0000,$0000 ,$0000 ,$0000 ,$0001 
	dc.w $0000,$0000 ,$0000 ,$0000 ,$0001 
	dc.w $0000,$0000 ,$0000 ,$0000 ,$0001 
	dc.w $0000,$0000 ,$0000 ,$0000 ,$0001 
	dc.w $0000,$0000 ,$0000 ,$0000 ,$0001 
;Reserved for synth sounds
	dc.w $0000,$0000 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$0020 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$0040 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$0060 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$0080 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$00a0 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$00c0 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$00e0 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$0100 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$0120 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$0140 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$0160 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$0180 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$01a0 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$01c0 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$01e0 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$0200 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$0220 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$0240 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$0260 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$0280 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$02a0 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$02c0 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$02e0 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$0300 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$0320 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$0340 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$0360 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$0380 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$03a0 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$03c0 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$03e0 ,$0010 ,$0000 ,$0010 
	dc.w $0000,$0400 ,$0008 ,$0000 ,$0008 
	dc.w $0000,$0410 ,$0008 ,$0000 ,$0008 
	dc.w $0000,$0420 ,$0008 ,$0000 ,$0008 
	dc.w $0000,$0430 ,$0008 ,$0000 ,$0008 
	dc.w $0000,$0440 ,$0008 ,$0000 ,$0008
	dc.w $0000,$0450 ,$0008 ,$0000 ,$0008
	dc.w $0000,$0460 ,$0008 ,$0000 ,$0008
	dc.w $0000,$0470 ,$0008 ,$0000 ,$0008
	dc.w $0000,$0480 ,$0010 ,$0000 ,$0010
	dc.w $0000,$04a0 ,$0008 ,$0000 ,$0008
	dc.w $0000,$04b0 ,$0010 ,$0000 ,$0010
	dc.w $0000,$04d0 ,$0010 ,$0000 ,$0010
	dc.w $0000,$04f0 ,$0008 ,$0000 ,$0008
	dc.w $0000,$0500 ,$0008 ,$0000 ,$0008
	dc.w $0000,$0510 ,$0018 ,$0000 ,$0018
 

WAVEFORMS:
dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
dc.w $3f37,$2f27,$1f17,$0f07,$ff07,$0f17,$1f27,$2f37
dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
dc.w $c037,$2f27,$1f17,$0f07,$ff07,$0f17,$1f27,$2f37
dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
dc.w $c0b8,$2f27,$1f17,$0f07,$ff07,$0f17,$1f27,$2f37
dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
dc.w $c0b8,$b027,$1f17,$0f07,$ff07,$0f17,$1f27,$2f37
dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
dc.w $c0b8,$b0a8,$1f17,$0f07,$ff07,$0f17,$1f27,$2f37
dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
dc.w $c0b8,$b0a8,$a017,$0f07,$ff07,$0f17,$1f27,$2f37
dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
dc.w $c0b8,$b0a8,$a098,$0f07,$ff07,$0f17,$1f27,$2f37
dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
dc.w $c0b8,$b0a8,$a098,$9007,$ff07,$0f17,$1f27,$2f37
dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
dc.w $c0b8,$b0a8,$a098,$9088,$ff07,$0f17,$1f27,$2f37
dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
dc.w $c0b8,$b0a8,$a098,$9088,$8007,$0f17,$1f27,$2f37
dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
dc.w $c0b8,$b0a8,$a098,$9088,$8088,$0f17,$1f27,$2f37
dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
dc.w $c0b8,$b0a8,$a098,$9088,$8088,$9017,$1f27,$2f37
dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
dc.w $c0b8,$b0a8,$a098,$9088,$8088,$9098,$1f27,$2f37
dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
dc.w $c0b8,$b0a8,$a098,$9088,$8088,$9098,$a027,$2f37
dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
dc.w $c0b8,$b0a8,$a098,$9088,$8088,$9098,$a0a8,$2f37
dc.w $c0c0,$d0d8,$e0e8,$f0f8,$00f8,$f0e8,$e0d8,$d0c8
dc.w $c0b8,$b0a8,$a098,$9088,$8088,$9098,$a0a8,$b037
dc.w $8181,$8181,$8181,$8181,$8181,$8181,$8181,$8181
dc.w $7f7f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f
dc.w $8181,$8181,$8181,$8181,$8181,$8181,$8181,$8181
dc.w $817f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f
dc.w $8181,$8181,$8181,$8181,$8181,$8181,$8181,$8181
dc.w $8181,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f
dc.w $8181,$8181,$8181,$8181,$8181,$8181,$8181,$8181
dc.w $8181,$817f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f
dc.w $8181,$8181,$8181,$8181,$8181,$8181,$8181,$8181
dc.w $8181,$8181,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f
dc.w $8181,$8181,$8181,$8181,$8181,$8181,$8181,$8181
dc.w $8181,$8181,$817f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f
dc.w $8181,$8181,$8181,$8181,$8181,$8181,$8181,$8181
dc.w $8181,$8181,$8181,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f
dc.w $8181,$8181,$8181,$8181,$8181,$8181,$8181,$8181
dc.w $8181,$8181,$8181,$817f,$7f7f,$7f7f,$7f7f,$7f7f
dc.w $8181,$8181,$8181,$8181,$8181,$8181,$8181,$8181
dc.w $8181,$8181,$8181,$8181,$7f7f,$7f7f,$7f7f,$7f7f
dc.w $8181,$8181,$8181,$8181,$8181,$8181,$8181,$8181
dc.w $8181,$8181,$8181,$8181,$817f,$7f7f,$7f7f,$7f7f
dc.w $8181,$8181,$8181,$8181,$8181,$8181,$8181,$8181
dc.w $8181,$8181,$8181,$8181,$8181,$7f7f,$7f7f,$7f7f
dc.w $8181,$8181,$8181,$8181,$8181,$8181,$8181,$8181
dc.w $8181,$8181,$8181,$8181,$8181,$817f,$7f7f,$7f7f
dc.w $8181,$8181,$8181,$8181,$8181,$8181,$8181,$8181
dc.w $8181,$8181,$8181,$8181,$8181,$8181,$7f7f,$7f7f
dc.w $8181,$8181,$8181,$8181,$8181,$8181,$8181,$8181
dc.w $8181,$8181,$8181,$8181,$8181,$8181,$817f,$7f7f
dc.w $8080,$8080,$8080,$8080,$8080,$8080,$8080,$8080
dc.w $8080,$8080,$8080,$8080,$8080,$8080,$8080,$7f7f
dc.w $8080,$8080,$8080,$8080,$8080,$8080,$8080,$8080
dc.w $8080,$8080,$8080,$8080,$8080,$8080,$8080,$807f
dc.w $8080,$8080,$8080,$8080,$7f7f,$7f7f,$7f7f,$7f7f
dc.w $8080,$8080,$8080,$807f,$7f7f,$7f7f,$7f7f,$7f7f
dc.w $8080,$8080,$8080,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f
dc.w $8080,$8080,$807f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f
dc.w $8080,$8080,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f
dc.w $8080,$807f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f
dc.w $8080,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f
dc.w $8080,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f,$7f7f
dc.w $8080,$9098,$a0a8,$b0b8,$c0c8,$d0d8,$e0e8,$f0f8
dc.w $0008,$1018,$2028,$3038,$4048,$5058,$6068,$707f
dc.w $8080,$a0b0,$c0d0,$e0f0,$0010,$2030,$4050,$6070
dc.w $4545,$797d,$7a77,$7066,$6158,$534d,$2c20,$1812
dc.w $04db,$d3cd,$c6bc,$b5ae,$a8a3,$9d99,$938e,$8b8a
dc.w $4545,$797d,$7a77,$7066,$5b4b,$4337,$2c20,$1812
dc.w $04f8,$e8db,$cfc6,$beb0,$a8a4,$9e9a,$9594,$8d83
dc.w $0000,$4060,$7f60,$4020,$00e0,$c0a0,$80a0,$c0e0
dc.w $0000,$4060,$7f60,$4020,$00e0,$c0a0,$80a0,$c0e0
dc.w $8080,$9098,$a0a8,$b0b8,$c0c8,$d0d8,$e0e8,$f0f8
dc.w $0008,$1018,$2028,$3038,$4048,$5058,$6068,$707f
dc.w $8080,$a0b0,$c0d0,$e0f0,$0010,$2030,$4050,$6070
endif

;******************************************************************
;************** copper list ***************************************
;******************************************************************
pxy:	dc.l	xy

new_copper:	dc.l	$1800000,$1820900,$1840900,$1860900	;00
		dc.l	$1880c00,$18a0005,$18c0005,$18e0005	;04
		dc.l	$1900000,$1920000,$1940000,$1960000	;08
		dc.l	$1980000,$19a0000,$19c0000,$19e0000	;12
		dc.l	$1a00000,$1a20000,$1a40000,$1a60000	;16
		dc.l	$1a80000,$1aa0000,$1ac0000,$1ae0000	;20
		dc.l	$1b00000,$1b20000,$1b40000,$1b60000	;24
		dc.l	$1b80000,$1ba0000,$1bc0000,$1be0000	;28
;==================================================================
		dc.l	$08e2081,$09000d1,$0920028,$09400d8
;		dc.l	$08e2081,$09020c1,$0920038,$09400d0
		dc.l	$09687f0,$0960020,$1003000,$1020000
		dc.l	$1040000,$1080002,$10a0002
;==================================================================
		dc.w	$0e0,bp1/$ffff,$0e2,bp1
		dc.w	$e4,$6,$e6,$3000
		dc.w	$e8,$6,$ea,$6000
		dc.l	$1800000,$8801fffe
adr_bp_scr:	dc.w	$0e0,bp1a/$ffff,$0e2,bp1a
		dc.l	$1820330,$8801fffe
		dc.l	$1820440,$8a01fffe
		dc.l	$1820550,$8c01fffe
		dc.l	$1820660,$8e01fffe
		dc.l	$1820770,$9001fffe
		dc.l	$1820880,$9201fffe
		dc.l	$1820990,$9401fffe
		dc.l	$1820aa0,$9601fffe
		dc.l	$1820bb0,$9801fffe
		dc.l	$1820cc0,$9a01fffe
		dc.l	$1820dd0,$9c01fffe
		dc.l	$1820ee0,$9e01fffe
		dc.l	$1820ff0,$a001fffe
		dc.l	$1820ff1,$1800001,$a201fffe
		dc.l	$1820fe2,$1800002,$a701fffe
		dc.l	$1820fd3,$1800003,$ac01fffe
		dc.l	$1820fc4,$1800004,$b001fffe
		dc.l	$1820fb5,$1800005,$b401fffe
		dc.l	$1820fa6,$1800006,$b801fffe
		dc.l	$1820f97,$1800007,$bb01fffe
		dc.l	$1820f88,$1800008,$be01fffe
		dc.l	$1820f79,$1800009,$c101fffe
		dc.l	$1820f6a,$180000a,$c301fffe
		dc.l	$1820f5b,$180000b,$c501fffe
		dc.l	$1820f4c,$180000c,$c601fffe
		dc.l	$1820f3d,$180000d,$c701fffe
		dc.l	$1820f2e,$180000e,$c801fffe
		dc.l	$1820f1f,$180000f,$c901fffe
		dc.l	$1820f1f,$180001f,$ca01fffe
		dc.l	$1820f2f,$180002f,$cb01fffe
		dc.l	$1820f3f,$180003f,$cc01fffe
		dc.l	$1820f4f,$180004f,$cd01fffe
		dc.l	$1820f5f,$180005f,$ce01fffe
		dc.l	$1820f6f,$180006f,$cf01fffe
		dc.l	$1820f7f,$180007f,$d001fffe
		dc.l	$1820f8f,$180008f,$d101fffe
		dc.l	$1820f9f,$180009f,$d201fffe
		dc.l	$1820faf,$18000af,$d301fffe
		dc.l	$1820fbf,$18000bf,$d401fffe
		dc.l	$1820fcf,$18000cf,$d501fffe
		dc.l	$1820fdf,$18000df,$d601fffe
		dc.l	$1820fef,$18000ef,$d7dffffe
		dc.l	$1820fff,$18000ff,$d801fffe
		dc.b	$20+scry+16+64,$01,$ff,$fe
		dc.w	$108,-48*2-46,$10a,-48*2-46
		dc.l	$1820888,$1800088,$da01fffe
		dc.l	$1820878,$1800078,$dc01fffe
		dc.l	$1820868,$1800068,$de01fffe
		dc.l	$1820858,$1800058,$e001fffe
		dc.l	$1820848,$1800048,$e201fffe
		dc.l	$1820838,$1800038,$e401fffe
		dc.l	$1820828,$1800028,$e601fffe
		dc.l	$1820818,$1800018,$e701fffe
		dc.l	$1820808,$1800008,$ea01fffe
		dc.l	$1820707,$1800007,$ec01fffe
		dc.l	$1820606,$1800006,$ee01fffe
		dc.l	$1820505,$1800005,$f101fffe
		dc.l	$1820404,$1800004,$f401fffe
		dc.l	$1820303,$1800003,$f701fffe
		dc.l	$1820202,$1800002,$fb01fffe
		dc.l	$1820101,$1800001,$ff01fffe
		dc.l	$1820000,$1800000
		dc.l	-2

;******************************************************************
;************** donnees divers ************************************
;******************************************************************

gfxn:		dc.b	'graphics.library',0
posx:		dc.b	0
posy:		dc.b	0
;==================================================================
		even
bp_scr:		dc.l	bp1a+$10000
vit:		dc.w	$78
pas:		dc.w	$42
pos_sin:	dc.w	0

;******************************************************************
;************** donnees scroll ************************************
;******************************************************************

		even
compt:		dc.l	scrtxt
nb_scr:		dc.b	4
tps_scr:	dc.b	0
;==================================================================
		even
adr_font:	dc.l	li1+00,li1+02,li1+04,li1+06,li1+08
		dc.l	li1+10,li1+12,li1+14,li1+16,li1+18
		dc.l	li1+20,li1+22,li1+24,li1+26,li1+28
		dc.l	li1+30,li1+32,li1+34,li1+36,li1+38
		dc.l	li2+00,li2+02,li2+04,li2+06,li2+08
		dc.l	li2+10,li2+12,li2+14,li2+16,li2+18
		dc.l	li2+20,li2+22,li2+24,li2+26,li2+28
		dc.l	li2+30,li2+32,li2+34,li2+36,li2+38
		dc.l	li3+00,li3+02,li3+04,li3+06,li3+08
		dc.l	li3+10,li3+12,li3+14,li3+16,li3+18
		dc.l	li3+20,li3+22,li3+24,li3+26,li3+28
		dc.l	li3+30,li3+32,li3+34,li3+36,li3+38
ordre:		dc.b	'abcdefghijklmnopqrst'
		dc.b	'uvwxyz1234567890/()-'
		dc.b	'.,:!* _@"?'
;==================================================================
;@	= carre
;_	= barre
;==================================================================
scrtxt:		dc.b	'( just try cursor keys )                '
		dc.b	'_@_@_@_ angels _@_@_@_A      '
		dc.b	'proudly present you a new crack called '
		dc.b	'sly spy from ocean.  '
		dc.b	'call our whq amiga east in states at: '
		dc.b	'*** 804-499-22-66 ***A      '
		dc.b    'digital expressions in states at : '
		dc.b    '*** 813-884-04-64 ***A      '	
		dc.b    'wreck house in states at : '
		dc.b    '*** 813-584-60-89 ***A      '
		dc.b 	'escape zone in states at : '
		dc.b	'*** 704-254-64-48 ***A      '
		dc.b	'ehq insider bbs in italy at : '
		dc.b    '*** 39-564-415-697 ***A     '
		dc.b    'innerspace in swiss at: '
		dc.b	'*** 41-619-618-03 ***A	     '	
		dc.b	'reign in blood in germany at: '
		dc.b	'*** 49-203-406-0981 ***A    '
		dc.b	'the dutch pirate bbs in holland at: '
		dc.b	'*** 31-011-723-666 ***A     '
		dc.b	'if you have no modem write to :       '
		dc.b	'no name bp 10    A 4504 obercorn    A'
		dc.b 	'  luxemburg       A '
		dc.b	'no name bp 3     A 6040 jumet       A'
		dc.b	'   belgium        A '
		dc.b	'paradise greetings to all our friends qnd contacts ' 
		dc.b	'watch out for more and more production of '
 		dc.b    'angels ...................................'
		dc.b	'                  ',0

;******************************************************************
;************** donnees finales ***********************************
;******************************************************************

		even
font:		blk.b	1920
li1:		= font
li2:		= li1+[40*16]
li3:		= li2+[40*16]
sin:		blk.b	8192
xy:		blk.b	1260
findata:
logoo:		blk.b	3120
module:
end:		= module+[6378*music] +4 & -4
sin2:		= end
* END *
	ori.w	#208/16,d0
rts