; HAWK Demo 1
; Allocate some chip mem
; "j main" to launch
; source code must be read from top to bottom
; follow the comments
; Compile with AsmOne 1.07 or kseka (at that time I was using kseka, can not remember the exact version)

main:				; version 1.0
	bsr	save_all    ; Save all system info
	bsr	mt_init     ; Init music routine

	lea	$dff000,a6

	move.w	#0,motcom ; Init some stuffs for the demo
	move.w	#0,arretecom
	move.w	#0,couul
	move.w	#0,com
	move.w	#0,com1
	move.w	#0,kon
	move.w	#0,edit1
	move.w	#0,edit

	move.w	#$3fff,$9a(a6)
	move.w	#$c010,$9a(a6)
	move.w	#$3fff,$96(a6)
	move.w	#$83c0,$96(a6)
	move.l	#$2c812dc1,$8e(a6)	
	move.w	#$9000,$100(a6)
	clr.l	$102(a6)
	clr.l	$108(a6)
	move.l	#$003800d0,$92(a6)
	bsr		copp1
	
	; Set all planes
	lea	pl,a0
	move.l	#$dff180,a1
	move.w	#7,d0
	mm:
	move.w	(a0)+,(a1)+
	dbra	d0,mm
	move.w	#$0bbb,(a1)+
	lea	copper_list+8,a0
	move.l	#bt1,d0
	bsr	cop
	move.l	#bt2,d0
	bsr	cop
	move.l	#bt3,d0
	bsr	cop
	move.l	#bt4,d0
	bsr	cop

	lea	pointst,a0
	move.l	#place,d0
	move.w  d0,6(a0)
	swap	d0
	move.w	d0,2(a0)

	lea	point0,a0
	move.l	#elog+30,d0	; bon
	move.w  d0,6(a0)
	swap	d0
	move.w	d0,2(a0)

	lea	point1,a0
	move.l	#elog+2954,d0   ;2954
	move.w  d0,6(a0)	;bon 1914
	swap	d0
	move.w	d0,2(a0)

	lea	point2,a0	; tres bon
	move.l	#elog+5876,d0   ; 5876
	move.w  d0,6(a0)
	swap	d0
	move.w	d0,2(a0)

	lea	point3,a0
	move.l	#elog+8800,d0   ; 8760 bon
	move.w  d0,6(a0)	; possible 8720
	swap	d0
	move.w	d0,2(a0)

	lea	point4,a0	;tres bon
	move.l	#elog+11720,d0
	move.w  d0,6(a0)
	swap	d0
	move.w	d0,2(a0)

	move.w	#24,d3
	move.l	#1960,d1
	move.w	#6,d0
const:	
	lea	dada1,a0
	move.l	#bt1,d4
parti1:
	move.l	#bt1,d4
	bsr	gggg
	move.l	#bt2,d4
	bsr	gggg
	move.l	#bt3,d4
	bsr	gggg
add.w	#8,d0	
sub.l	#80,d1
	dbra	d3,const

	lea	decc2,a0
	move.l	#bt1+2880,d0	;2880
	move.w	d0,6(a0)
	swap	d0
	move.w	d0,2(a0)
	
	move.l	#place,d0
	move.w	d0,14(a0)
	swap	d0
	move.w	d0,10(a0)
	move.l	#place,d0
	move.w	d0,22(a0)
	swap	d0
	move.w	d0,18(a0)

	move.l	#irq,$6c
	move.w	#$20,96(a6)
	
efff:
	move.w	#1320,d0
	lea	bt1+5800,a0
ffffff:
	move.b	#0,(a0)+
	dbra	d0,ffffff
	bra	attent			; Jump to label "attent" ("wait")
	
gggg:
	add.l	d1,d4
	swap	d4
	move.w	d4,(a0,d0.w)
	swap	d4
	add.w	#4,d0
	move.w	d4,(a0,d0.w)
	add.w	#4,d0
	rts
	
test:
	cmp.w	#10,com
	bne	endtest
	move.w	#1,testcoul
	bra	endtest
	copp1:
	move.l	#bthi,d0
	lea	copp11,a0	
	move.w	d0,6(a0)
	swap	d0
	move.w	d0,2(a0)
	move.l	#copp,$dff080
	clr.w	$dff088
	rts
	
couul:dc.w	0,0
motcom:dc.w	0,0

endtest:
	cmp.w	#1,testcoul
	bne	testend
	cmp.w	#0,com1
	bne	testend
	add.w	#$0111,couul	
	move.w	couul,d0
	lea	copp11,a0
	move.w	d0,10(a0)
testend:
	cmp.w	#24,com
	bne	finfin
	move.w	#0,testcoul
finfin:
	cmp.w	#44,com
	bne	finfin1
	move.w	#2,testcoul
finfin1:
	cmp.w	#2,testcoul
	bne	finfin88
	cmp.w	#0,com1
	bne	finfin88
	sub.w	#$0111,couul	
	move.w	couul,d0
	lea	copp11,a0
	move.w	d0,10(a0)
finfin88:
	cmp.w	#58,com
	bne	tintin
	move.w	#0,testcoul
tintin:
	lea	space,a0
	cmp.w	#70,com
	bne	tintin1
	cmp.w	#0,com1
	bne	tintin1

	cmp.w	#0,motcom
	bne	jjj12
	lea	space+715,a0
	bra	ttrans
jjj12:
	cmp.w	#1,motcom
	bne	jjj1
	lea	space+3596,a0
	bra	ttrans
jjj1:
	cmp.w	#2,motcom
	bne	jjj2
	lea	space+6805,a0
	bra	ttrans
jjj2:
	cmp.w	#3,motcom
	bne	jjj3
	lea	space+9516,a0
	bra	ttrans
jjj3:
	cmp.w	#4,motcom
	bne	jjj4
	lea	space+12660,a0
	bra	ttrans1
jjj4:
	cmp.w	#5,motcom
	bne	jjj5
	move.w	#1,arretecom
	move.l	#copper_list,$dff080
	clr.w	$dff088
jjj5:
tintin1:
	rts
ttrans:
	btst	#14,$dff002
	bne ttrans
	move.l	#$ffffffff,$dff044
	move.w	#0,$dff064
	move.w	#0,$dff066
	move.l	#$09f00000,$dff040
	move.l	a0,$dff050
	move.l	#bthi+1040,$dff054	
	move.w	#72*64+20,$dff058

	move.w	#0,testcoul
	move.w	#0,com1
	move.w	#0,com
	move.w	#0,couul
	add.w	#1,motcom
	bra	tintin1
ttrans1:
	btst	#14,$dff002
	bne ttrans1
	move.l	#$ffffffff,$dff044
	move.w	#0,$dff064
	move.w	#0,$dff066
	move.l	#$09f00000,$dff040
	move.l	a0,$dff050
	move.l	#bthi+26,$dff054	
	move.w	#142*64+20,$dff058

	move.w	#0,testcoul
	move.w	#0,com1
	move.w	#0,com
	move.w	#0,couul
	add.w	#1,motcom
	bra	tintin1
	
copp:
	dc.l	$01820000
	dc.l	$800ffffe
copp11:
	dc.l	$00e00000,$00e20000
	dc.l	$01820000,$01009000
	dc.l 	$009c8010
	dc.l    $c60ffffe,$01820000	
	dc.l	$fffffffe
	
cop:	
	move.w	d0,6(a0)
	swap	d0
	move.w	d0,2(a0)
	swap	d0
	add.l	#8,a0
	rts
	
	; Waiting loop. The program stay here until mousebutton is closed
	; The demo is done into the "irq" routine
attent:
	btst	#6,$bfe001	; test the mouse button
	bne	attent

	bsr	mt_end		; Stop music
	bsr	restore_all	; Restore system values
	moveq	#0,d0
	rts				; Exit demo
	
	; --------------------------------------------------------------
	; The is the main "frame" routine
	; This irq is executed each time one frame is displayed (60 fps)
irq:	
	movem.l	d0-d4/a0-a2,-(sp)
	move.w	$dff01c,d0
	and.w	$dff01e,d0
	btst	#4,d0
	beq	finirq
	cmp.w	#0,arretecom
	bne	suitecom
	bsr	compteur
	bsr	test
	bra	endend	
suitecom:
	bsr	mt_music
	bsr	scroll1
	bsr	anim
	bsr	ondul
endend:
	move.w	#$10,$dff09c
finirq:
	movem.l	(sp)+,d0-d4/a0-a2
	rte
	; --------------------------------------------------------------
	
	
compteur:
	add.w	#1,com1
	move.w	com1,d0
	cmp.w	#4,d0
	bne	endcompt
	add.w	#1,com
	move.w	#0,com1
endcompt:
	rts
	
ondul:
	lea	dada1+30,a0
	move.w	#$0022,d0
	move.w	#11,d3
	cmp.w	#0,ondu
	beq	kk2
kk1:
	move.w	d0,(a0)		
	add.l	#32,a0
	move.w	#0,(a0)
	add.l	#32,a0
	dbra	d3,kk1
	move.w	#0,ondu
	bra	kkkk
kk2:
	move.w	#0,(a0)		
	add.l	#32,a0
	move.w	#0,(a0)
	add.l	#32,a0
	dbra	d3,kk2
	move.w	#1,ondu
kkkk:               ;*********************************
    rts             ;
anim:               ; --  -- ------ --       -- --  --
    add.w   #1,con  ; --  -- ------ --       -- -- --
    cmp.w   #2,con  ; ------ --  --  --     --  ----
    bne	suitesec    ; ------ ------  -- - - --  -- --
    move.w  #0,con  ; --  -- --  --   -- - --   --  --
    cmp.w   #0,prior; --  -- --  --    -----    --  --
    bne polo        ;
    lea logo,a5     ;*********************************
    lea kons,a3
    bsr transman		
polo:
	bsr	scrolly			
	add.w	#6,log			
	add.w	#48,con1
	cmp.w	#288,con1
	bne	suitepre
	add.w	#1884,log
suitepre:
	cmp.w	#576,con1
	bne	suitesec
	move.w	#0,con1
	move.w	#0,log
suitesec:
	rts
transman:
	btst	#14,$dff002
	bne transman
	move.l	#$ffffffff,$dff044
	move.w	#34,$dff064
	move.w	#34,$dff066
	move.l	#$09f00000,$dff040
	lea	logo,a5
	move.w	log,d0
	add.w	d0,a5
	move.l	a5,$dff050
	move.l	#bt1+3,$dff054	
	move.w	#48*64+3,$dff058
transman1:
	btst	#14,$dff002
	bne transman1
	move.l	a5,a4
	add.w	#3840,a4
	move.l	#$ffffffff,$dff044
	move.w	#34,$dff064
	move.w	#34,$dff066
	move.l	#$09f00000,$dff040
	move.l	a4,$dff050
	move.l	#bt2+3,$dff054	
	move.w	#48*64+3,$dff058
transman2:
	btst	#14,$dff002
	bne transman2
	add.w	#3840,a4
	move.l	#$ffffffff,$dff044
	move.w	#34,$dff064
	move.w	#34,$dff066
	move.l	#$09f00000,$dff040
	move.l	a4,$dff050
	move.l	#bt3+3,$dff054	
	move.w	#48*64+3,$dff058
batman1:
	btst	#14,$dff002
	bne batman1
	move.l	#$ffffffff,$dff044
	move.w	#34,$dff064
	move.w	#34,$dff066
	move.l	#$09f00000,$dff040
	move.l	#bt1+3,$dff050
	move.l	#bt1+12,$dff054	
	move.w	#48*64+3,$dff058
batman2:
	btst	#14,$dff002
	bne batman2
	move.l	#$ffffffff,$dff044
	move.w	#34,$dff064
	move.w	#34,$dff066
	move.l	#$09f00000,$dff040
	move.l	#bt2+3,$dff050
	move.l	#bt2+12,$dff054	
	move.w	#48*64+3,$dff058
batman3:
	btst	#14,$dff002
	bne batman3
	move.l	#$ffffffff,$dff044
	move.w	#34,$dff064
	move.w	#34,$dff066
	move.l	#$09f00000,$dff040
	move.l	#bt3+3,$dff050
	move.l	#bt3+12,$dff054	
	move.w	#48*64+3,$dff058
superman1:
	btst	#14,$dff002
	bne superman1
	move.l	#$ffffffff,$dff044
	move.w	#20,$dff064
	move.w	#20,$dff066
	move.l	#$09f00000,$dff040
	move.l	#bt1,$dff050
	move.l	#bt1+20,$dff054	
	move.w	#48*64+10,$dff058
superman2:
	btst	#14,$dff002
	bne superman2
	move.l	#$ffffffff,$dff044
	move.w	#20,$dff064
	move.w	#20,$dff066
	move.l	#$09f00000,$dff040
	move.l	#bt2,$dff050
	move.l	#bt2+20,$dff054	
	move.w	#48*64+10,$dff058
superman3:
	btst	#14,$dff002
	bne superman3
	move.l	#$ffffffff,$dff044
	move.w	#20,$dff064
	move.w	#20,$dff066
	move.l	#$09f00000,$dff040
	move.l	#bt3,$dff050
	move.l	#bt3+20,$dff054	
	move.w	#48*64+10,$dff058
	rts
wait_blit_2:
	btst	#14,$dff002
	bne	wait_blit_2
	rts
resedit:
	move.w	#0,edit
	bra	constamp
constamp:
	lea	pettex,a0
	move.w	edit,d0
	move.w	(a0,d0.w),d1
	cmp.w	#77,d1
	beq	resedit
	move.w	#19,d4
	lea	bt4+5280,a1
cc:
	lea	pettex,a0
	lea	pol,a2
	move.w	edit,d0		
	move.w	(a0,d0.w),d2
	add.w	d2,a2
wonderwoman:
	btst	#14,$dff002
	bne wonderwoman
	move.l	#$ffffffff,$dff044
	move.w	#38,$dff064
	move.w	#38,$dff066
	move.l	#$09f00000,$dff040
	move.l	a2,$dff050
	move.l	a1,$dff054	
	move.w	#32*64+1,$dff058

	add.l	#2,a1
	add.w	#2,edit
	dbra	d4,cc
	rts
scrolly:
	lea	deb,a0
	lea	kons,a3
	move.w	kon,d0	
	move.w	(a3,d0.w),d0
	add.w	#2,kon
	cmp.w	#99,d0
	beq	effinit
	cmp.w	#88,d0
	beq	constamp
	cmp.w	#1,d0		
	beq	eff1
	cmp.w	#2,d0
	beq	eff2
	cmp.w	#3,d0		
	beq	eff3
	cmp.w	#4,d0
	beq	eff4
	cmp.w	#5,d0		
	beq	eff5
	cmp.w	#10,d0
	beq	eff10
	cmp.w	#11,d0
	beq	eff11
	cmp.w	#12,d0
	beq	eff12
	cmp.w	#13,d0
	beq	eff13
	cmp.w	#14,d0
	beq	eff14
;	cmp.w	#15,d0
;	beq	effinit
hihi:
	rts
effinit:
	lea	deb,a0
	move.l	#bt4,d0
	move.w	d0,6(a0)
	swap	d0
	move.w	d0,2(a0)
	move.w	#0,kon
	bra	hihi
eff1:
	move.w	6(a0),d0
	sub.w	#40,d0
	move.w	d0,6(a0)
	bra	hihi
eff2:
	move.w	6(a0),d0
	sub.w	#80,d0
	move.w	d0,6(a0)
	bra	hihi
eff3:
	move.w	6(a0),d0
	sub.w	#120,d0
	move.w	d0,6(a0)
	bra	hihi
eff4:
	move.w	6(a0),d0
	sub.w	#240,d0
	move.w	d0,6(a0)
	bra	hihi
eff5:
	move.w	6(a0),d0
	sub.w	#320,d0
	move.w	d0,6(a0)
	bra	hihi
eff10:
	move.w	6(a0),d0
	add.w	#40,d0
	move.w	d0,6(a0)
	bra	hihi
eff11:
	move.w	6(a0),d0
	add.w	#80,d0
	move.w	d0,6(a0)
	bra	hihi
eff12:
	move.w	6(a0),d0
	add.w	#120,d0
	move.w	d0,6(a0)
	bra	hihi
eff13:
	move.w	6(a0),d0
	add.w	#240,d0
	move.w	d0,6(a0)
	bra	hihi
eff14:
	move.w	6(a0),d0
	add.w	#160,d0
	move.w	d0,6(a0)
	move.w	#640,d0
	lea	bt4+5280,a0
effg:
	move.b	#0,(a0)+
	dbra	d0,effg
	bra	hihi

save_all:
	move.b #%10000111,$bfd100
	move.l 4,a6
	jsr -132(a6)
	move.l $6c,save_vecteur_irq
	move.w $dff01c,save_intena
	or.w #$c000,save_intena
	move.w $dff002,save_dmacon
	or.w #$8100,save_dmacon
	rts
restore_all:
	move.l save_vecteur_irq,$6c
	move.w #$7fff,$dff09a
	move.w save_intena,$dff09a
	move.w #$7fff,$dff096
	move.w save_dmacon,$dff096
	move.l 4,a6
	lea name_glib,a1
	moveq #0,d0
	jsr -552(a6)
	move.l d0,a0
	move.l 38(a0),$dff080
	clr.w $dff088
	move.l d0,a1
	jsr -414(a6)
	jsr -138(a6)
	rts

save_intena:dc.w 0
save_dmacon:dc.w 0
save_vecteur_irq:dc.l 0
name_glib:dc.b "graphics.library",0
	even
	
copper_list:
	dc.l	$009c8010
	dc.l	$000ffffe
	dc.l	$00e00000,$00e20000,$00e40000,$00e60000,$00e80000,$00ea0000
deb:
	dc.l	$00ec0000,$00ee0000
pointst:dc.l  $00f00000,$00f20000
	dc.l	$01005200
coul:
	dc.l	$01800000,$01820fff,$018400df,$018600af
	dc.l	$0188004f,$018a000c,$018c0080,$018e0000
	dc.l	$01020000,$01800000,$018c0000
	dc.l	$300ffffe,$01800000,$018c0000,$310ffffe,$01800001,$018c0001
	dc.l	$320ffffe,$01800001,$018c0001,$330ffffe,$01800001,$018c0001
	dc.l	$340ffffe,$01800002,$018c0002,$350ffffe,$01800002,$018c0002
	dc.l	$360ffffe,$01800002,$018c0002,$370ffffe,$01800003,$018c0003
	dc.l	$380ffffe,$01800003,$018c0003,$390ffffe,$01800003,$018c0003
	dc.l	$3a0ffffe,$01800003,$018c0003,$3b0ffffe,$01800004,$018c0004
	dc.l	$3c0ffffe,$01800004,$018c0004,$3d0ffffe,$01800005,$018c0005
	dc.l	$3e0ffffe,$01800005,$018c0005,$3f0ffffe,$01800005,$018c0005
	dc.l	$400ffffe,$01800006,$018c0006,$410ffffe,$01800006,$018c0006
	dc.l	$420ffffe,$01800007,$018c0007,$430ffffe,$01800007,$018c0007
	dc.l	$440ffffe,$01800008,$018c0008,$450ffffe,$01800008,$018c0008
	dc.l	$460ffffe,$01800009,$018c0009,$470ffffe,$01800009,$018c0009
	dc.l	$480ffffe,$01800009,$018c0009,$490ffffe,$0180000a,$018c000a
	dc.l	$4a0ffffe,$0180000a,$018c000a,$4b0ffffe,$0180000a,$018c000a
	dc.l	$4c0ffffe,$0180000b,$018c000b,$4d0ffffe,$0180000b,$018c000b
	dc.l	$4e0ffffe,$0180000c,$018c000c,$4f0ffffe,$0180000c,$018c000c
	dc.l	$510ffffe,$0180000d,$018c000d,$520ffffe,$0180000d,$018c000d
	dc.l	$530ffffe,$0180000e,$018c000e,$540ffffe,$0180000e,$018c000e
	dc.l	$550ffffe,$0180000f,$018c000f,$560ffffe,$0180000f,$018c000f
	dc.l	$570ffffe,$0180000f,$018c000f,$580ffffe,$0180000e,$018c000e
	dc.l	$590ffffe,$0180000d,$018c000d,$5a0ffffe,$0180000c,$018c000c
	dc.l	$5b0ffffe,$0180000b,$018c000b,$5c0ffffe,$0180000a,$018c000a
fond1:
	dc.l	$0180000b,$01820ccc,$018400bd,$0186009d
	dc.l	$0188002d,$018a000a,$018c000b,$018e0000
	dc.l	$0180000b,$018c000b
dada1:
	dc.l	$5d0ffffe,$00e00000,$00e20000,$00e40000,$00e60000,$00e80000
	dc.l    $00ea0000,$01020000
	dc.l	$5e0ffffe,$00e00000,$00e20000,$00e40000,$00e60000,$00e80000
	dc.l	$00ea0000,$01020000
	dc.l	$5f0ffffe,$00e00000,$00e20000,$00e40000,$00e60000,$00e80000
	dc.l	$00ea0000,$01020000
	dc.l	$600ffffe,$00e00000,$00e20000,$00e40000,$00e60000,$00e80000
	dc.l	$00ea0000,$01020000
	dc.l	$610ffffe,$00e00000,$00e20000,$00e40000,$00e60000,$00e80000
	dc.l	$00ea0000,$01020000
	dc.l	$620ffffe,$00e00000,$00e20000,$00e40000,$00e60000,$00e80000
	dc.l	$00ea0000,$01020000
	dc.l	$630ffffe,$00e00000,$00e20000,$00e40000,$00e60000,$00e80000
	dc.l	$00ea0000,$01020000
	dc.l	$640ffffe,$00e00000,$00e20000,$00e40000,$00e60000,$00e80000
	dc.l	$00ea0000,$01020000
	dc.l	$650ffffe,$00e00000,$00e20000,$00e40000,$00e60000,$00e80000
	dc.l	$00ea0000,$01020000
	dc.l	$660ffffe,$00e00000,$00e20000,$00e40000,$00e60000,$00e80000
	dc.l	$00ea0000,$01020000
	dc.l	$670ffffe,$00e00000,$00e20000,$00e40000,$00e60000,$00e80000
	dc.l	$00ea0000,$01020000
	dc.l	$680ffffe,$00e00000,$00e20000,$00e40000,$00e60000,$00e80000
	dc.l	$00ea0000,$01020000
	dc.l	$690ffffe,$00e00000,$00e20000,$00e40000,$00e60000,$00e80000
	dc.l	$00ea0000,$01020000
	dc.l	$6a0ffffe,$00e00000,$00e20000,$00e40000,$00e60000,$00e80000
	dc.l	$00ea0000,$01020000
	dc.l	$6b0ffffe,$00e00000,$00e20000,$00e40000,$00e60000,$00e80000
	dc.l	$00ea0000,$01020000
	dc.l	$6c0ffffe,$00e00000,$00e20000,$00e40000,$00e60000,$00e80000
	dc.l	$00ea0000,$01020000
	dc.l	$6d0ffffe,$00e00000,$00e20000,$00e40000,$00e60000,$00e80000
	dc.l	$00ea0000,$01020000
	dc.l	$6e0ffffe,$00e00000,$00e20000,$00e40000,$00e60000,$00e80000
	dc.l	$00ea0000,$01020000
	dc.l	$6f0ffffe,$00e00000,$00e20000,$00e40000,$00e60000,$00e80000
	dc.l	$00ea0000,$01020000
	dc.l	$700ffffe,$00e00000,$00e20000,$00e40000,$00e60000,$00e80000
	dc.l	$00ea0000,$01020000
	dc.l	$710ffffe,$00e00000,$00e20000,$00e40000,$00e60000,$00e80000
	dc.l	$00ea0000,$01020000
	dc.l	$720ffffe,$00e00000,$00e20000,$00e40000,$00e60000,$00e80000
	dc.l	$00ea0000,$01020000
	dc.l	$730ffffe,$00e00000,$00e20000,$00e40000,$00e60000,$00e80000
	dc.l	$00ea0000,$01020000
	dc.l	$740ffffe,$00e00000,$00e20000,$00e40000,$00e60000,$00e80000
	dc.l	$00ea0000,$01020000
	dc.l	$750ffffe,$00e00000,$00e20000,$00e40000,$00e60000,$00e80000
	dc.l	$00ea0000,$01020000
	dc.l	$760ffffe
decc2:
	dc.l	$00e00000,$00e20000,$00e40000,$00e60000,$00e80000
	dc.l	$00ea0000,$01020000
;----------;
	dc.l	$770ffffe,$01800008,$01900008,$780ffffe,$01800006,$01900006
	dc.l	$790ffffe,$01800004,$01900004,$7a0ffffe,$01800000,$01900000

	dc.l	$7f0ffffe,$01900200,$800ffffe,$01900300
	dc.l	$810ffffe,$01900400,$820ffffe,$01900500
	dc.l	$830ffffe,$01900600,$840ffffe,$01900700
	dc.l	$850ffffe,$01900800,$860ffffe,$01900900
	dc.l	$870ffffe,$01900a00,$880ffffe,$01900b00
	dc.l	$890ffffe,$01900c00,$8a0ffffe,$01900d00
	dc.l	$8b0ffffe,$01900e00,$8c0ffffe,$01900f00
	dc.l	$8d0ffffe,$01900f22,$8e0ffffe,$01900f44
	dc.l	$8f0ffffe,$01900f66,$900ffffe,$01900f88
	dc.l	$910ffffe,$01900faa,$920ffffe,$01900fbb
	dc.l	$930ffffe,$01900fdd,$940ffffe,$01900fff
	dc.l	$950ffffe,$01900ddf,$960ffffe,$01900bbf
	dc.l	$970ffffe,$0190099f,$980ffffe,$0190077f
	dc.l	$990ffffe,$0190055f,$9a0ffffe,$0190033f
	dc.l	$9b0ffffe,$0190011f,$9c0ffffe,$0190000f
	dc.l	$9d0ffffe,$0190000e,$9e0ffffe,$0190000d
	dc.l	$9f0ffffe,$0190000c,$a00ffffe,$0190000b
	dc.l	$a10ffffe,$0190000a,$a20ffffe,$01900009
	dc.l	$a30ffffe,$01900008,$a40ffffe,$01900007
	dc.l	$a50ffffe,$01900006,$a60ffffe,$01900005
	dc.l	$a70ffffe,$01900004,$a80ffffe,$01900003
	dc.l	$a90ffffe,$01900002,$aa0ffffe,$01900000
	dc.l	$01900000
	dc.l	$c00ffffe,$01820005,$01920005,$c10ffffe,$01820007,$01920007
	dc.l	$c20ffffe,$01820009,$01920009,$c30ffffe,$0182000b,$0192000b
	dc.l	$c40ffffe,$0182000f,$0192000f,$c50ffffe,$0182021f,$0192021f
	dc.l	$c60ffffe,$0182041f,$0192041f,$c70ffffe,$0182062f,$0192062f
	dc.l	$c80ffffe,$0182072f,$0192072f,$c90ffffe,$0182093f,$0192093f
	dc.l	$ca0ffffe,$01820a4f,$01920a4f,$cb0ffffe,$01820d5e,$01920d5e
	dc.l	$cc0ffffe,$01820e5e,$01920e5e,$cd0ffffe,$01820e6e,$01920e6e
	dc.l	$ce0ffffe,$01820e7d,$01920e7d,$cf0ffffe,$01820e7c,$01920e7c
	dc.l	$d00ffffe,$01820e8c,$01920e8c,$d10ffffe,$01820e8b,$01920e8b
	dc.l	$d20ffffe,$01820e9b,$01920e9b,$d30ffffe,$01820e9b,$01920e9b
	dc.l	$d40ffffe,$01820eab,$01920eab,$d50ffffe,$01820ebb,$01920ebb
	dc.l	$d60ffffe,$01820ebb,$01920ebb,$d70ffffe,$01820daa,$01920daa
	dc.l	$d80ffffe,$01820c9a,$01920c9a,$d90ffffe,$01820b89,$01920b89
	dc.l	$da0ffffe,$01820b89,$01920b89,$db0ffffe,$01820a68,$01920a68
	dc.l	$dc0ffffe,$01820846,$01920846,$de0ffffe,$01820624,$01920624
	dc.l	$df0ffffe,$01820402,$01920402
	dc.l	$e00ffffe
	dc.l	$01800000,$01820000,$01840000
	dc.l	$01860000,$01880000,$018a0000,$018c0000,$018e0000
	dc.l    $01900000,$01920000,$01940000,$01960000,$01980000
	dc.l    $019a0000,$019c0000,$019e0000
	dc.l    $01a00000,$01a20000,$01a40000,$01a60000,$01a80000
	dc.l    $01aa0000,$01ac0000,$01ae0000
	dc.l    $01b00000,$01b20000,$01b40000,$01b60000,$01b80000
	dc.l    $01ba0000,$01bc0000,$01be0000

	dc.l	$e20ffffe
coul1:
	dc.l	$01800000,$01820000,$01840000
	dc.l	$01860000,$01880000,$018a0000,$018c0000,$018e0000
	dc.l    $01900000,$01920000,$01940000,$01960000,$01980000
	dc.l    $019a0000,$019c0000,$019e0000
	dc.l    $01a00000,$01a20000,$01a40000,$01a60000,$01a80000
	dc.l    $01aa0000,$01ac0000,$01ae0000
	dc.l    $01b00000,$01b20000,$01b40000,$01b60000,$01b80000
	dc.l    $01ba0000,$01bc0000,$01be0000
point0:dc.l    $00e00000,$00e20000
point1:dc.l    $00e40000,$00e60000
point2:dc.l    $00e80000,$00ea0000
point3:dc.l    $00ec0000,$00ee0000
point4:dc.l    $00f00000,$00f20000
	dc.l	$fffffffe
	; End of copper list
	
	even
kons:	
	dc.w	88,13,13,13,13,13,13,13,13,11,10,10
	dc.w	01,01,02,02,03,03,03,03,03,02,02,01,01
	dc.w	10,10,11,11,12,12,12,12,12,11,11,10,10
	dc.w	01,01,02,02,03,03,03,03,03,02,02,01,01
	dc.w	10,10,11,11,12,12,12,12,12,11,11,10,10
	dc.w	01,01,02,02,03,03,03,03,03,02,02,01,01
	dc.w	10,10,12,12,13,13,13,14,13,13,13
	dc.w	99

scroll1:
	sub.w	#1,arret
	cmp.w	#0,arret
	bmi	ghgh
	bra	fini
ghgh:
	move.w	#0,arret
	movem.l d0-d4/a0-a4,-(sp)
	move.l	#bt1+5842,$dff050
	move.l	#bt1+5840,$dff054
	clr.l	$dff064
	move.w	#$c9f0,$dff040
	clr.w	$dff042
	move.w	#$7fffffff,$dff044
	move.w	#$ffffffff,$dff046
	move.w	#32*64+20,$dff058
wait_blit:
	btst #14,$dff002
	bne wait_blit
lettre:
	add.w	#1,spectreman
	cmp.w	#8,spectreman
	bne	suite_affiche_lettre	
	move.w	#0,spectreman
	
	lea	grantex,a0
	lea	table,a1
	lea	lt,a2
	move.w	edit1,d0
	move.w	(a0,d0.w),d1
	cmp.w	#9999,d1
	beq fin_texte
	cmp.w	#64,d1
	beq vit1
	cmp.w	#65,d1
	beq vit2
	cmp.w	#61,d1
	beq couleurs
	cmp.w	#62,d1
	beq eteint
	cmp.w	#63,d1
	beq arrete
	cmp.w	#67,d1
	beq remet
	cmp.w	#68,d1
	beq remcoul
	cmp.w	#70,d1
	beq remcoul1
	cmp.w	#66,d1
	beq remcoul2
	cmp.w	#69,d1
	beq remcoul3
	bra pasfin
fin_texte:
	move.w	#0,edit1
	bra	lettre
eteint:
	add.w	#2,edit1
	move.w	#1,prior
	lea	bt1,a0
	move.w	#1920,d0
hkhk:
	move.b	#0,(a0)+
	dbra	d0,hkhk
	lea	bt2,a0
	move.w	#1920,d0
hkhk1:
	move.b	#0,(a0)+
	dbra	d0,hkhk1
	lea	bt3,a0
	move.w	#1920,d0
hkhk3:
	move.b	#0,(a0)+
	dbra	d0,hkhk3
	bra	lettre

table:
	dc.w	2584,2588,2592,2596,3840,3844,3848,3852,3856,3860,0,0,4,8,12
	dc.w	16,20,24,28,32,36,1280,1284,1288,1292,1296,1300,1304,1308,1312
	dc.w	1316,2560,2564,2568,2572,2576,2580
	dc.w	3864,3868,3872,5120,5124,5128,5132,5136,5140,5144
	dc.w	5148,5152,5156,0,6400,6404,6408,6412,6416,6420,6424,6428,6432
	dc.w	6436

remet:
	add.w	#2,edit1
	move.w	#0,prior
	bra	lettre
arrete:
	add.w	#2,edit1
	move.w	#1,prior
	bra	lettre
vit1:
	move.w	#60,arret
	add.w	#2,edit1
	bra	lettre
vit2:
	move.w	#120,arret
	add.w	#2,edit1
	bra	lettre
couleurs:
	add.w	#2,edit1
	lea	coul,a0
	move.w	#0,2(a0)
	move.w	#0,6(a0)
	move.w	#0,10(a0)
	move.w	#0,14(a0)
	move.w	#0,18(a0)
	move.w	#0,22(a0)
	move.w	#0,26(a0)
	lea	fond1,a0
	move.w	#0,6(a0)
	move.w	#0,10(a0)
	move.w	#0,14(a0)
	move.w	#0,18(a0)
	move.w	#0,22(a0)
	move.w	#0,26(a0)
	bra	lettre
remcoul:
	add.w	#2,edit1
	lea	coul,a0
	move.w	#$0fff,6(a0)
	move.w	#$00df,10(a0)
	move.w	#$00af,14(a0)
	move.w	#$004f,18(a0)
	move.w	#$000c,22(a0)
	move.w	#$0000,26(a0)
	move.w	#$0000,30(a0)
	lea	fond1,a0
	move.w	#$0ddd,6(a0)
	move.w	#$00bd,10(a0)
	move.w	#$008d,14(a0)
	move.w	#$002d,18(a0)
	move.w	#$000a,22(a0)
	move.w	#$000d,26(a0)
	move.w	#$0000,30(a0)
	bra	lettre
remcoul1:
	add.w	#2,edit1
	lea	coul,a0
	move.w	#$0f00,6(a0)
	move.w	#$0fd0,10(a0)
	move.w	#$0fa0,14(a0)
	move.w	#$0f40,18(a0)
	move.w	#$0c00,22(a0)
	move.w	#$0000,26(a0)
	move.w	#$0000,30(a0)
	lea	fond1,a0
	move.w	#$0d00,6(a0)
	move.w	#$0db0,10(a0)
	move.w	#$0d80,14(a0)
	move.w	#$0d20,18(a0)
	move.w	#$0a00,22(a0)
	move.w	#$000d,26(a0)
	move.w	#$0000,30(a0)
	bra	lettre
remcoul2:
	add.w	#2,edit1
	lea	coul1,a0
	move.w	#0,2(a0)
	move.w	#0,6(a0)
	move.w	#0,10(a0)
	move.w	#0,14(a0)
	move.w	#0,18(a0)
	move.w	#0,22(a0)
	move.w	#0,26(a0)
	move.w	#0,30(a0)
	move.w	#0,34(a0)
	move.w	#0,38(a0)
	move.w	#0,42(a0)
	move.w	#0,46(a0)
	move.w	#0,50(a0)
	move.w	#0,54(a0)
	move.w	#0,58(a0)
	move.w	#0,62(a0)
	move.w	#0,66(a0)
	move.w	#0,70(a0)
	move.w	#0,74(a0)
	move.w	#0,78(a0)
	move.w	#0,82(a0)
	move.w	#0,86(a0)
	move.w	#0,90(a0)
	move.w	#0,94(a0)
	move.w	#0,98(a0)
	move.w	#0,102(a0)
	move.w	#0,106(a0)
	move.w	#0,110(a0)
	move.w	#0,114(a0)
	move.w	#0,118(a0)
	move.w	#0,122(a0)
	move.w	#0,126(a0)
	bra	lettre
remcoul3:
	add.w	#2,edit1
	lea	coul1,a0
	move.w	#$0000,2(a0)
	move.w	#$0fff,6(a0)
	move.w	#$0256,10(a0)
	move.w	#$0fe6,14(a0)
	move.w	#$0289,18(a0)
	move.w	#$0c88,22(a0)
	move.w	#$0478,26(a0)
	move.w	#$049a,30(a0)
	move.w	#$0955,34(a0)
	move.w	#$0a66,38(a0)
	move.w	#$0b77,42(a0)
	move.w	#$0d88,46(a0)
	move.w	#$0eaa,50(a0)
	move.w	#$0ebb,54(a0)
	move.w	#$0fdd,58(a0)
	move.w	#$0fff,62(a0)
	move.w	#$0256,66(a0)
	move.w	#$0367,70(a0)
	move.w	#$0489,74(a0)
	move.w	#$069a,78(a0)
	move.w	#$08ab,82(a0)
	move.w	#$0acc,86(a0)
	move.w	#$0cde,90(a0)
	move.w	#$0fff,94(a0)
	move.w	#$0fd0,98(a0)
	move.w	#$0888,102(a0)
	move.w	#$0999,106(a0)
	move.w	#$0aaa,110(a0)
	move.w	#$0ccc,114(a0)
	move.w	#$0ddd,118(a0)
	move.w	#$0eee,122(a0)
	move.w	#$0fff,126(a0)
	bra	lettre
pasfin:
	lea	grantex,a0
	lea	table,a1
	lea	lt,a2
	move.w	edit1,d0
	move.w	(a0,d0.w),d1
	cmp.w	#71,d1
	bne	suitesuite
	move.w	#3876,d2
	bra	suitelogi
suitesuite:
	mulu	#2,d1
	move.w	(a1,d1.w),d2
suitelogi:
	add.w  	d2,a2
	move.l 	a2,$dff050
	move.l 	#tampon_lettre+2,$dff054
	move.w 	#36,$dff064
	move.w 	#4,$dff066
	move.l 	#$09f00000,$dff040
	move.l 	#$ffffffff,$dff044
	move.w 	#32*64+2,$dff058
	bsr wait_blit_2
	add.w  #2,edit1
suite_affiche_lettre:
	move.l #bt1+5878,$dff050
	move.l #bt1+5878,$dff054
	move.l #$09f00000,$dff040
	move.l #$fff0ffff,$dff044
	move.w #38,$dff064
	move.w #38,$dff066
	move.w #32*64+1,$dff058
bsr wait_blit_2
	move.l 	#scc,$dff048
	move.l 	#bt1+5878,d0
	move.l 	d0,$dff04c
	move.l	#tampon_lettre+2,$dff050
	move.l 	d0,$dff054
	clr.w 	$dff060
	move.w 	#38,$dff062
	move.w 	#6,$dff064
	move.w	#38,$dff066
	move.l #$cfd80000,$dff040
	move.l #$ffffffff,$dff044
	move.w #32*64+1,$dff058
bsr wait_blit_2
	move.l #tampon_lettre+2,$dff050
	move.l #tampon_lettre,$dff054
	move.w #2,$dff064
	move.w #2,$dff066
	move.l #$c9f00000,$dff040
	move.l #$ffffffff,$dff044
	move.w #32*64+3,$dff058
	bsr wait_blit_2
fin_scroll:
	movem.l (sp)+,d0-d4/a0-a4
	fini:
	rts
	
	; This is the texte of the big scrolling
	; The texte have been type in ascii into a basic program
	; and then convert to code binary.
	
grantex:	; '69' a enlever
	dc.w 66,71,71,71,71,71,71,71,11,24,25,30,18,15,28,71,33,25,28,22,14
	dc.w 51,71,11,24,25,30,18,15,28,71,30,19,23,15,51,71,19,24,71,11
	dc.w 71,24,15,33,71,14,19,23,15,24,29,19,25,24,71,37,37,37,71,71
	dc.w 71,71,71,71,33,15,22,13,25,23,15,71,38,65,71,19,24,71,30
	dc.w 18,19,29,71,16,28,15,24,13,18,71,33,25,28,22,14,37,71,18,15
	dc.w 28,15,71,33,15,71,11,28,15,71,33,19,30,18,71,25,31,28,71,24
	dc.w 15,33,71,14,15,23,25,37,71,71,71,71,71,12,31,30,71,24,15,32
	dc.w 15,28,71,16,25,28,17,15,30,71,30,18,19,29,71,24,11,23,15,71
	dc.w 38,71,71,71,71,18,11,33,21,71,71,69,65,71,71,71,71,71,71,71,71
	dc.w 71,71,71,71,23,25,31,11,19,29,51,71,12,25,16,51,71,26,11,29
	dc.w 71,23,11,22,51,71,23,11,19,29,71,30,28,25,26,71,13,22,11,29
	dc.w 29,19,27,31,15,71,37,37,37,71,71,71,71,71,71,29,31,19,32,11
	dc.w 24,30,71,38,65,71,71,71,71,71,71,71,71,71,71,71,71,71,71,12
	dc.w 25,24,71,51,71,32,25,31,29,71,11,22,22,15,36,71,15,30,28,15
	dc.w 71,22,15,29,71,30,15,23,25,19,24,29,71,14,52,31,24,71,13,25
	dc.w 24,16,22,19,30,71,15,24,30,28,15,71,22,52,18,25,23,23,15,71
	dc.w 15,30,71,22,11,71,23,11,13,18,19,24,15,37,71,30,25,31,30,15
	dc.w 29,71,28,15,29,29,15,23,12,22,11,24,13,15,29,71,11,32,15,13,71
	dc.w 14,15,29,71,26,15,28,29,25,24,24,11,17,15,29,71,25,31,71,16
	dc.w 11,19,30,29,71,15,34,19,29,30,11,24,30,29,71,24,52,15,29,30
	dc.w 71,27,31,15,71,26,31,28,15,71,13,25,19,24,13,19,14,11,24,13
	dc.w 15,71,37,37,37,71,71,71,71,71,71,71,71,71,13,11,29,30,19,24
	dc.w 17,53,71,65,71,71,11,29,71,23,11,29,30,15,28,71,13,25,14,15
	dc.w 31,28,71,53,71,71,54,55,56,71,25,28,19,15,24,29,65,71,71,71
	dc.w 71,71,71,11,29,71,11,28,30,19,29,30,71,11,24,14,71,23,31,29
	dc.w 19,13,19,11,24,71,53,71,71,71,43,71,71,44,45,46,71,71,20,25
	dc.w 18,24,24,35,71,12,71,65,71,71,71,71,71,71,11,29,71,30,18,15
	dc.w 71,23,11,13,18,19,24,15,71,53,71,30,18,15,71,23,11,13,18,19
	dc.w 24,15,71,71,71,47,48,49,71,11,5,0,0,71,65,71,71,71,71,71
	dc.w 71,11,29,71,30,18,15,71,28,15,16,15,28,15,15,71,53,71,71,58
	dc.w 13,25,23,23,25,14,25,28,15,65,71,71,71,71,71,71,71,71,71,28
	dc.w 15,17,11,28,14,15,36,71,12,19,15,24,71,32,25,31,29,51,71,18
	dc.w 25,23,23,15,29,71,37,71,32,25,31,29,71,11,32,15,36,71,14,15
	;
	dc.w 32,11,24,30,71,32,25,31,29,71,1,0,7,8,0,9,71,29,15,13
	dc.w 25,24,14,15,29,71,25,31,71,1,7,9,7,71,23,19,24,31,30,15
	dc.w 29,71,25,31,71,3,0,71,18,15,31,28,15,29,71,25,31,71,15,24
	dc.w 13,25,28,15,71,1,71,20,25,31,28,71,1,71,27,31,11,28,30,71
	dc.w 14,15,71,30,28,11,32,11,19,22,71,71,41,71,32,25,31,29,71,11
	dc.w 32,15,36,71,11,17,28,15,11,12,22,15,23,15,24,30,71,26,31,71
	dc.w 28,15,23,11,28,27,31,15,28,71,27,31,15,71,22,52,25,24,71,11
	dc.w 71,11,31,29,29,19,71,16,11,19,30,71,14,15,29,71,13,18,19,16
	dc.w 16,28,15,29,71,71,71,71,24,14,22,28,71,42,37,71,71,71,71,57
	dc.w 57,57,57,71,71,71,71,13,52,15,29,30,71,26,11,29,71,16,19,24
	dc.w 19,71,13,15,71,71,12,25,28,14,15,22,71,71,39,39,64,71,71,41
	dc.w 71,11,23,19,17,11,71,42,71,71,71,71,41,71,20,25,18,24,24,35
	dc.w 71,12,71,53,42,71,30,52,11,29,71,26,11,29,71,15,24,30,15,24
	dc.w 14,31,71,27,31,15,22,27,31,15,71,13,18,25,29,15,71,25,28,19
	dc.w 15,24,29,71,39,39,39,71,71,71,71
	dc.w 71,71,71,41,71,25,28,19,15,24,29,71,53,42,71
	dc.w 23,11,19,29,71,24,25,24,71,20,25,18,24,24,35,71,12,71,38,38
	dc.w 38,71,71,71,71,71,27,31,15,71,26,15,24,29,15,36,71,32,25,31
	dc.w 29,71,14,15,71,13,15,30,30,15,71,28,15,26,28,15,29,15,24,30
	dc.w 11,30,19,25,24,71,14,15,71,22,11,71,22,19,12,15,28,30,15,71
	dc.w 71,41,71,16,28,15,15,14,25,23,71,42,71,71,22,52,18,25,23,23
	dc.w 15,71,27,31,19,71,13,25,31,28,30,71,32,15,28,29,71,29,11,71
	dc.w 14,15,29,30,19,24,15,15,71,71,71,71,71,71,57,57,57,57,71,71
	dc.w 71,71,19,22,71,11,71,26,11,29,71,16,19,24,19,71,14,15,71,24
	dc.w 25,31,29,71,22,15,29,71,12,28,25,31,30,30,15,28,71,11,32,15
	dc.w 13,71,29,15,29,71,13,25,24,24,15,28,19,15,29,38,64,71,71,71
	dc.w 71,15,24,71,26,22,31,29,51,71,19,22,71,13,25,31,28,30,71,14
	dc.w 11,24,29,71,22,15,71,23,11,31,32,11,19,29,71,29,15,24,29,37
	;
	dc.w 37,37,71,71,15,18,71,23,15,13,51,71,22,11,71,14,15,29,30,19
	dc.w 24,15,15,71,13,52,15,29,30,71,14,15,71,22,52,11,31,30,28,15
	dc.w 71,13,25,30,15,71,38,38,38,71,41,71,11,23,19,17,11,71,17,25
	dc.w 24,16,22,15,71,42,37,71,29,19,71,32,25,31,29,71,13,25,24,30
	dc.w 19,24,31,15,36,71,51,71,23,25,19,71,20,15,71,28,15,29,15,30
	dc.w 71,71,71,41,71,11,23,19,17,11,71,16,11,13,18,15,71,42,37,71
	dc.w 71,71,71,57,57,57,57,71,71,71,71,71,12,25,24,51,71,20,15,71
	dc.w 13,25,24,30,19,24,31,15,71,37,71,13,15,71,29,31,28,32,19,32
	dc.w 11,24,30,71,14,15,71,22,11,71,28,11,13,15,71,71,71,71,29,30
	dc.w 71,71,71,71,65,71,29,15,23,12,22,15,71,13,25,31,28,28,19,28
	dc.w 71,32,15,28,29,71,29,25,24,71,19,14,15,11,22,37,37,37,71,71
	dc.w 71,71,57,57,57,57,71,71,71,71,71,20,15,71,32,25,31,29,71,11
	dc.w 32,11,19,29,71,26,28,15,32,15,24,31,51,71,12,11,24,14,15,71
	dc.w 14,52,15,24,37,37,37,71,14,52,19,24,16,15,28,19,15,31,28,29
	dc.w 71,59,60,59,60,71,71,20,15,71,12,25,19,24,17,71,71,41,71,71
	dc.w 11,23,19,17,11,71,42,37,71,71,71,71,71,71,71,71,71,41,71,25
	dc.w 28,19,15,24,29,71,54,55,56,71,53,42,71,25,18,71,22,52,11,31
	dc.w 30,28,15,51,71,30,52,11,29,71,26,11,29,71,22,15,71,14,28,25
	dc.w 19,30,51,71,13,52,15,29,30,71,23,25,24,71,26,28,25,17,28,11
	dc.w 23,23,15,71,38,38,71,71,71,71,71,71,71,41,71,20,25,18,24,24
	dc.w 35,71,12,71,43,71,44,45,46,71,53,42,71,15,30,71,13,52,15,29
	dc.w 30,71,22,15,71,23,19,15,24,71,11,31,29,29,19,71,38,38,71,71
	dc.w 71,71,71,71,71,41,71,11,23,19,17,11,71,47,48,49,71,53,42,71
	dc.w 71,12,25,24,71,20,15,71,14,15,12,25,19,24,17,71,51,71,20,15
	dc.w 71,29,31,19,29,71,30,28,25,26,71,17,15,24,15,28,15,31,34,37
	dc.w 37,37,71,71,71,71,14,52,11,19,22,22,15,31,28,29,71,29,11,24
	dc.w 29,71,23,25,19,51,71,32,25,31,29,71,24,52,15,30,15,29,71,71
	dc.w 71,71,71,71,71,28,28,28,28,28,28,28,19,15,24,65,71,71,71,71
	dc.w 71,71,15,24,71,16,11,19,30,51,71,20,15,71,29,31,19,29,71,22
	dc.w 52,15,17,11,22,71,14,52,31,24,71,71,71,14,19,15,31,71,71,71
	dc.w 64,41,71,11,23,19,17,11,71,32,11,24,19,30,15,31,34,71,42,37
	dc.w 71,29,25,35,25,24,29,71,20,31,29,30,15,53,71,20,15,71,13,25
	dc.w 24,30,28,25,22,15,71,71,71,30,25,31,30,38,71,71,65,71,71,41
	dc.w 71,11,23,19,17,11,71,32,11,24,30,11,28,14,71,42,37,71,71,71
	dc.w 71,71,71,71,41,71,54,55,56,71,53,42,71,11,28,28,15,30,15,71
	dc.w 30,25,24,71,14,15,22,19,28,15,71,26,11,11,11,26,35,37,71,71
	dc.w 22,15,71,14,19,15,31,71,13,52,15,29,30,71,71,71,23,25,19,38
	dc.w 71,71,71,65,71,71,71,71,20,52,29,31,19,29,71,22,15,71,23,11
	dc.w 29,30,15,28,71,13,25,14,15,31,28,71,11,26,28,15,29,71,30,25
	dc.w 31,30,71,38,38,38,71,13,52,15,29,30,71,23,25,19,71,27,31,19
	dc.w 71,30,52,11,19,29,71,26,28,25,17,28,11,23,23,15,37,71,71,13
	dc.w 52,15,29,30,71,14,25,24,13,71,23,25,19,71,27,31,19,71,14,19
	dc.w 28,19,17,15,71,38,71,41,71,13,52,15,29,30,71,22,25,17,19,27
	dc.w 31,15,71,13,11,26,19,30,11,19,24,15,71,71,71,71,71,71,57,57
	dc.w 57,57,71,71,71,71,22,25,17,19,27,31,15,51,71,23,11,19,29,71
	dc.w 16,11,31,34,71,71,71,41,71,11,23,19,17,11,71,13,25,24,30,15
	dc.w 24,30,71,42,37,71,71,71,71,57,57,57,57,71,71,71,71,59,60,59
	dc.w 60,59,60,59,60,59,60,71,71,71,71,41,71,43,71,44,45,46,71,53
	dc.w 42,71,15,30,71,23,25,19,71,22,11,71,14,15,14,11,24,29,71,39
	dc.w 39,39,38,71,71,57,57,57,57,57,71,71,32,11,71,20,25,31,15,28
	dc.w 71,11,31,34,71,12,19,22,22,15,29,38,71,71,41,71,11,23,19,17
	dc.w 11,71,23,15,13,18,11,24,30,71,42,37,71,71,71,71,71,41,71,54
	dc.w 55,56,71,53,42,71,13,52,15,29,30,71,26,11,29,71,30,25,19,71
	dc.w 27,31,52,11,71,16,11,19,30,71,13,25,31,28,28,19,28,71,22,15
	dc.w 71,23,15,13,71,38,71,71,57,57,57,57,71,71,11,71,12,25,24,51
	dc.w 71,19,22,71,13,25,31,28,30,71,71,63,39,39,39,39,39,39,71,41
	dc.w 71,54,55,56,71,53,42,71,28,28,25,17,24,24,30,31,14,20,31,31
	dc.w 31,31,71,38,71,71,41,71,43,71,44,45,46,71,53,42,71,20,52,29
	dc.w 31,19,29,71,13,25,24,30,15,24,30,51,71,19,22,71,11,71,26,11
	dc.w 29,71,15,24,22,15,32,15,71,23,15,29,71,14,15,29,29,19,24,29
	dc.w 37,71,71,57,57,57,57,71,71,25,18,51,71,20,52,11,19,71,25,31
	dc.w 12,22,19,15,71,38,71,32,25,19,22,11,51,71,13,11,71,32,19,15
	dc.w 24,30,71,61,38,38,38,71,71,41,71,43,71,44,45,46,71,53,42,71
	dc.w 19,22,71,26,15,31,30,71,26,11,29,71,22,52,15,16,16,11,13,15
	dc.w 28,71,18,15,31,37,37,37,71,22,11,22,11,22,11,22,11,22,15,28
	dc.w 15,71,71,71,57,57,57,57,71,71,71,15,30,71,30,11,71,29,25,15
	dc.w 31,28,71,39,39,39,39,71,71,15,15,15,15,15,30,30,30,30,71,71
	dc.w 71,71,18,25,26,38,62,71,71,64,71,71,71,71,41,71,43,71,44,45
	dc.w 46,71,53,42,71,12,12,25,25,25,25,25,31,31,31,31,31,31,18,18
	dc.w 18,71,71,71,71,71,25,28,19,15,24,29,71,19,22,71,11,71,15,24
	dc.w 22,15,32,15,71,23,25,24,71,28,31,24,24,19,24,17,71,23,11,24
	dc.w 71,27,31,19,71,13,25,31,28,30,71,71,41,71,29,24,19,16,71,42
	dc.w 37,71,71,71,71,41,71,54,55,56,71,42,71,71,30,52,19,24,27,31
	dc.w 19,15,30,15,71,26,11,29,51,71,13,52,15,29,30,71,14,31,71,26
	dc.w 19,26,25,71,30,25,31,30,71,13,11,51,71,19,22,71,30,25,31,13
	dc.w 18,15,28,11,71,26,11,29,71,11,31,71,22,25,17,25,71,71,71
	dc.w 57,57,57,57,71,71,71,71,27,31,15,22,71,22,25,17,25,71,71,71
	dc.w 66,39,39,39
	dc.w 71,71,71,71,69,66,69,66,69,66,71,69,71,66,71,69,71,66
	dc.w 71,69,71,66,71,69,71,66
	dc.w 71,71,69,20,52,22,52,11,32,11,19,29,66,71,23,15,23,15,69
	dc.w 71,26,11,29
	dc.w 71,32,31,66,71,13,31,19,71,22,11,37,69,71,71,11,31,29,29,19,30,25
	dc.w 30,71,14,19,30,51,71,66,11,31,29,29,19,30,25,30,69,71,16,11,19,30
	dc.w 71,38,38,38,38,38,71,66,30,11,24,30,71,71,71,26,19,29,65,69,71,71
	dc.w 71,71,71,71,71,71,71,71,57,57,57,57,57,57,57,57,57,71,71,71
	dc.w 58,71,71,58,71,71,71,65,71,41,71,26,11,26,11,71,13,25,23,23
	dc.w 25,14,25,28,15,71,58,71,53,42,71,71,27,31,52,25,31,19,29,71
	dc.w 20,15,71,39,71,71,15,24,13,25,28,15,71,15,24,71,30,28,11,19
	dc.w 24,71,14,15,71,32,25,31,29,71,13,18,11,23,11,19,22,22,15,28
	dc.w 71,32,25,31,29,71,30,28,25,19,29,71,39,71,71,41,71,43,71,44,45
	dc.w 46,71,53,42,71,71,15,31,18,71,20,52,35,71,29,31,19,29,71,26
	dc.w 25,31,28,71,28,19,15,24,71,23,25,19,51,71,23,25,24,29,19,15
	dc.w 31,28,71,13,52,15,29,30,71,25,28,19,15,24,29,71,71,71,71,41
	dc.w 71,54,55,56,71,53,42,71,71,30,11,19,29,71,30,25,19,71,16,11
	dc.w 19,22,22,25,30,71,71,71,71,57,57,57,57,71,71,71,71,12,25,24
	dc.w 20,25,31,28,71,23,25,24,71,26,15,30,19,30,71,26,11,26,11,71
	dc.w 11,14,25,28,15,71,41,71,11,23,19,17,11,71,16,11,31,34,71,13
	dc.w 31,22,71,41,71,33,28,25,24,17,71,16,11,29,13,15,42,71,42,37
	dc.w 71,71,71,13,52,15,29,30,71,15,31,34,71,71,71,57,57,57,57,57
	dc.w 57,57,71,41,71,58,71,53,42,71,20,15,71,32,15,31,34,71,26,11
	dc.w 29,71,22,15,71,29,11,32,25,19,28,51,71,28,11,16,16,19,13,18
	dc.w 15,71,30,25,31,30,71,38,38,38,71,71,71,71,57,57,57,57,71,71
	dc.w 71,71,24,25,24,71,20,52,32,15,31,34,71,26,11,29,71,41,71,11
	dc.w 23,19,17,11,71,30,15,30,31,71,42,71,71,71,71,57,57,57,57,71
	dc.w 71,71,41,71,54,55,56,71,42,71,71,20,15,71,22,15,71,16,11,19
	;
	dc.w 29,71,23,25,19,71,71,69,67,68,71,71,71,71,32,15,24,14,31,71
	dc.w 71,41,71,11,23,19,17,11,71,30,25,31,30,71,12,11,29,71,42,71
	; c'est pas beau
	dc.w 71,13,52,15,29,30,71,26,11,29,71,12,15,11,31,71,71,61,66,71
	dc.w 71,71,41,71,43,71,44,45,46,71,53,42,71,20,15,71,32,15,31,34
	dc.w 71,23,15,29,71,13,25,31,22,15,31,28,29,71,38,38,71,71,71,57
	dc.w 57,57,57,57,71,71,71,14,15,29,25,22,15,51,71,22,15,29,71,32
	dc.w 25,19,22,11,71,71,41,11,18,11,18,11,18,11,18,71,70,71,42,71
	dc.w 71,26,28,15,24,14,71,13,11,66,71,41,71,58,71,42,71,71,71,71
	dc.w 41,71,47,48,49,71,53,42,71,20,15,71,32,15,31,34,71,26,11,29
	dc.w 71,63,71,41,71,18,15,18,15,18,15,71,42,71,71,71,71,25,24,71
	dc.w 71,11,28,28,19,32,15,71,71,59,60,59,60,59,60,59,60,59,60,59
	dc.w 60,71,71,68,67,69,71,41,71,43,71,47,48,49,71,44,45,46,71,18,11
	dc.w 33,21,71,15,29,30,71,11,28,28,19,32,15,71,42,59,60,59,60,59
	dc.w 60,59,60,59,60,59,60,59,60,71,57,57,57,57,71,71,71,71,28,19
	dc.w 17,25,22,25,29,71,62,63,69,47,48,49,71,24,25,24,71,66,67,71
	dc.w 41,18,11,33,21,42,29,19,71,71,40,66,40,69,40,40,40,40,57,40
	dc.w 40,66,40,63,40,68,40,40,70,38,69,66,69,70,40,61,63,40,71,57
	dc.w 57,14,59,60,40,68,59,62,60,40,58,40,58,40,58,67,66,69,71,71,71
	dc.w 37,37,37,37,71,71,71,71,71,71,71,71,71,71,71,71,71,22,15,71
	dc.w 32,11,19,24,27,31,15,31,28,71,14,15,71,13,15,30,30,15,71,12
	dc.w 11,30,11,19,22,22,15,71,24,52,15,29,30,71,30,25,31,20,25,31
	dc.w 28,29,71,26,11,29,71,13,25,24,24,31,71,11,71,13,15,71,20,25
	dc.w 31,28,71,71,71,71,71,71,71,71,71,71,71,71,15,30,71,14,31,71,16,25
	dc.w 24,14,71,14,31,71,24,15,11,24,30,71,29,52,15,22,15,32,15,71
	dc.w 71,31,24,15,71,32,25,19,34,71,16,11,19,12,22,15,71,15,30,71
	dc.w 30,28,15,23,12,22,11,24,30,15,71,53,71,71
	dc.w 71,71,71,71,71,71,71,71,71,71,71,12,25,24
	dc.w 51,71,28,11,36,71,22,15,71,12,25,22,51,71,26,22,31,29,71,14
	dc.w 52,19,23,11,17,19,24,11,30,19,25,24,71,15,30,71,15,24,71,26
	dc.w 22,31,29,51,71,25,24,71,11,71,16,11,19,23,71,71,71,71,30,19,15,24
	dc.w 30,71,26,15,24,14,11,24,30,71,27,52,25,24,71,25,24,71,26,11
	dc.w 28,22,15,51,71,20,31,29,30,15,23,15,24,30,71,13,52,15,29,30
	dc.w 71,22,11,71,16,19,24,71,71,71,71,71,71,71
	dc.w 71,71,71,71,71,71,11,71,29,31,19,32,28,15,71,71,71
	dc.w 11,71,29,31,19,32,28,15,71,71,71,30,25,71,12,15,71,13,25,24
	dc.w 30,19,24,31,15,14,71,71,71,71,71,71,71,71,71,71,71,71,71,71
	dc.w 71,71,71,71,71,71,71,71,71,71,71,71,71,13,52,15,29,30,71,13
	dc.w 25,24,51,71,13,11,71,16,19,24,19,71,13,25,23,23,15,71,14,11
	dc.w 22,22,11,29,71,38,71,71,71,71,71,71,71,71,71,71,71,71,71,71
	dc.w 71,71,71,71,71,71
	dc.w 9999

	; Text of small scrolling
pettex:
	 dc.w  1292,1292,1292,1292,1292,1292,1292,1292,1292,1292
	 dc.w  1292,1292,1292,1292,1292,1292,1292,1292,1292,1292
	 dc.w  1292,1292,1292,1292,1292,1292,1292,1292,0014,0000;hawk
	 dc.w  1284,0020,1292,1292,1292,1292,1292,1292,1292,1292
	 dc.w  1292,1292,1292,1292,1292,1292,0030,0034,0008,0036;presente
	 dc.w  0008,0026,0038,0008,1292,1292,1292,1292,1292,1292
	 dc.w  1292,0022,0008,1280,0034,1292,0026,0028,1280,1282;leur new
	 dc.w  0008,0022,0022,0008,1292,0006,0008,0024,0028,1292
	 dc.w  1292,1292,1292,1292,1292,1292,1292,1292,1292,1292
	 dc.w  1292,1292,1292,1292,1292,1292,1292,1292,1292,1292
	 dc.w  1292,1292,1292,1292,1292,1292,0004,0034,0008,0006;credits
	 dc.w  0016,0038,0036,1314,1292,1292,1292,1292,1292,1292
	 dc.w  1292,1292,1292,1292,0004,0028,0006,0008,1280,0034
	 dc.w  1292,1292,2582,2584,2586,2588,2590,1292,1292,1292
	 dc.w  1292,1292,1292,1292,1292,1292,1292,0028,0034,0016
	 dc.w  0008,0026,0036,1292,1292,1292,1292,1292,1292,1292
	 
	 dc.w  1292,1292,1292,2578,2580,1292,1292,1292,1292,0008
	 dc.w  0038,1292,1292,1292,2568,2570,2572,2574,2576,1292
	 dc.w  1292,1292,1292,1292,1292,1292,0018,0028,0014,0026
	 dc.w  0026,1288,2596,0002,1292,1292,1292,1292,1292,1292
	 dc.w  1292,1292,1292,1292,1292,1292,1292,1292,1292,1292
	 dc.w  1292,1292,1292,1292,1292,1292,1292,1292,1292,1292
	 dc.w  1292,1292,0012,0034,0008,0008,0038,0016,0026,0012
	 dc.w  0036,1292,1292,0038,0028,1292,1292,1314,1292,1292
	 dc.w  1292,1292,1292,1292,1292,1292,0038,0034,0016,0000
	 dc.w  0026,0012,0022,0008,1292,1292,1292,1292,1292,1292
	 dc.w  1292,1292,1292,1292,1292,1292,0014,1280,0034,0034
	 dc.w  0016,0004,0000,0026,0008,1292,1292,1292,1292,1292
	 dc.w  1292,1292,1292,1292,1292,1292,0024,0000,0006,1292
	 dc.w  0024,0028,0026,0020,0036,1292,1292,1292,1292,1292
	 dc.w  1292,1292,1292,1292,1292,1292,0020,0008,0010,0010
	 dc.w  0034,0008,0026,1292,1292,1292,1292,1292,1292,1292
	 dc.w  1292,1292,1292,1292,1292,1292,0000,0022,0004,0000
	 dc.w  0038,0034,0000,1290,1292,1292,1292,1292,1292,1292
	 dc.w  1292,1292,1292,1292,0002,0008,0000,0036,0038,1288
	 dc.w  1292,1292,0002,0028,1288,0036,1292,1292,1292,1292
	 dc.w  1292,1292,1292,0010,0034,0008,0008,0006,0028,0024
	 dc.w  1292,1292,0010,0028,0034,0004,0008,1292,1292,1292
	 dc.w  1292,1292,1292,1292,1292,1292,1292,0006,1292,0028
	 dc.w  1292,0004,1292,1292,1292,1292,1292,1292,1292,1292
	 dc.w  1292,1292,1292,0018,1280,0026,0012,0022,0008,1292
	 dc.w  0004,0028,0024,0024,0000,0026,0006,1292,1292,1292
	 dc.w  1292,1292,1292,1292,1292,1292,0024,0008,0012,0000
	 dc.w  0010,0028,0034,0004,0008,1292,1292,1292,1292,1292
	 dc.w  1292,1292,1292,0006,0016,0012,0016,0038,0000,0022
	 dc.w  1292,1292,0010,0028,0034,0004,0008,1292,1292,1292
	 dc.w  1292,1292,1292,1292,1292,1292,1292,1292,0014,0000
	 dc.w  1284,0020,1292,1292,1292,1292,1292,1292,1292,1292
	 dc.w  1292,1292,1292,1292,1292,0004,2598,0008,0036,0038
	 dc.w  1292,0026,0028,1280,0036,1292,1292,1292,1292,1292
	 dc.w  1292,1292,1292,1292,1284,0016,0022,0006,1292,1292
	 dc.w  0004,0028,0030,0030,0008,0034,1292,1292,1292,1292
	 dc.w  1292,1292,1292,1292,0038,0014,0008,1292,0008,0026 
	 dc.w  0026,0008,0024,0016,0008,0036,1292,1292,1292,1292
	 dc.w  1292,1292,1292,1292,1292,1292,1292,1292,1292,1292
	 dc.w  1292,1292,1292,1292,1292,1292,1292,1292,1292,1292
	 dc.w  1292,1292,0036,0028,0024,0008,1292,1292,0030,0008
	 dc.w  0034,0036,0028,0026,0026,0000,0022,0036,1292,1292
	 dc.w  1292,1292,0034,0008,0012,0000,0034,0006,0036,1292
	 dc.w  1292,0012,0028,1292,0038,0028,1292,1314,1292,1292
	 dc.w  1292,1292,1292,1292,1292,1292,1292,1298,1292,0006;2dd
	 dc.w  1292,0006,1292,1292,1292,1292,1292,1292,1292,1292
	 dc.w  1292,1292,1292,1292,1292,1292,1292,0012,1292,0022;glg
	 dc.w  1292,0012,1292,1292,1292,1292,1292,1292,1292,1292
	 dc.w  1292,1292,1292,1292,1292,1292,0036,0030,0016,0034;spirits
	 dc.w  0016,0038,0036,1292,1292,1292,1292,1292,1292,1292
	 dc.w  1292,1292,1292,0002,0008,0022,0016,0000,0022,1292;belial 
	 dc.w  0000,0026,0006,1292,0020,0006,0022,1292,1292,1292;and kdl
	 dc.w  1292,1292,1292,1292,1292,1292,1292,1292,0026,0028;nous
	 dc.w  1280,0036,1292,1292,1292,1292,1292,1292,1292,1292
	 dc.w  0032,1280,0028,0016,1316,1292,0028,0026,1292,0000;ben
	 dc.w  1292,0022,0008,1292,0006,0034,0028,0016,0038,1292
	 dc.w  0038,0028,0030,0000,1290,1292,0000,0026,0006,1292;topaz
	 dc.w  1292,0038,0014,0008,1292,0012,0026,0028,0024,0008;the gnome
	 dc.w  1292,1292,1292,0012,1280,0034,0012,0016,0008,1292;gurgie
	 dc.w  0000,0026,0006,1292,0006,1292,0006,1292,1292,1292;dd
	 dc.w  1292,1292,1292,1292,1292,1292,1292,0036,1292,0038;stf
	 dc.w  1292,0010,1292,1292,1292,1292,1292,1292,1292,1292
	 dc.w  1292,1292,0034,0008,0022,0008,0000,0036,0008
	 dc.w  0006,1292,1292,0028,0026,1292,0038,0014,0008,1292,1292          
	 
	 dc.w  1292,1292,1292,1292,1292,1298,1294,1292,1292,1294,1294,1292
	 dc.w  1292,1312,1294,1292,1292,1292,1292,1292
	 
	 dc.w  1292,1292,1292,1292,1292,1292,1292,1292,1292,1292
	 dc.w  1292,1292,1292,1292,1292,1292,1292,1292,1292,1292
	 
	 dc.w  0006,0008,0036,0008,0034,1282,0008,0006,1292,0010;fuckings
	 dc.w  1280,0004,0020,0016,0026,0012,0036,1292,0038,0028;	
	 dc.w  0004,0030,0038,1292,0030,0016,0034,0000,0038,1292;cpt pirat
	 dc.w  0004,0036,1292,0030,1292,0000,0026,0006,1292,0010;cs p and f
	 dc.w  1292,1292,1292,1292,1292,1292,1292,1292,1292,1292;
	 dc.w  1292,1292,1292,1292,1292,1292,1292,1292,1292,1292
	 dc.w  1292,1292,1292,0016,0022,1292,1288,1292,0000,1292
	 dc.w  1280,0026,1292,0002,0008,0000,1280,1292,1292,1292
	 dc.w  1292,1292,1292,0006,0008,0022,0016,0034,0008,1292
	 dc.w  0006,0008,0036,0036,0028,1280,0036,1292,1292,1292
	 dc.w  1292,1292,1292,1292,1292,1292,1292,1292,1292,1292
	 dc.w  1292,1292,1292,1292,1292,1292,1292,1292,1292,1292
	 dc.w  1292,1292,1292,1292,1292,1292,1292,1292,1292,1292
	 dc.w  1292,1292,1292,1292,1292,1292,1292,1292,1292,1292
	dc.w	77

	; Replay routine for the music
mt_init:lea	mt_data(pc),a0
	add.l	#$01d8,a0
	move.l	#$0080,d0
	moveq	#$00,d1
mt_init1:
	move.l	d1,d2
	subq.w	#1,d0
mt_init2:
	move.b	(a0)+,d1
	cmp.b	d2,d1
	bgt.s	mt_init1
	dbf	d0,mt_init2
	addq.b	#1,d2

mt_init3:
	lea	mt_data,a0
	lea	mt_sample1,a1
	asl.l	#$08,d2
	asl.l	#$02,d2
	add.l	#$0258,d2
	add.l	a0,d2
	moveq	#$0e,d0
mt_init4:
	move.l	d2,(a1)+
	moveq	#$00,d1
	move.w	42(a0),d1
	asl.l	#1,d1
	add.l	d1,d2
	add.l	#$1e,a0
	dbf	d0,mt_init4

	lea	mt_sample1,a0
	moveq	#$00,d0
mt_clear:
	move.l	(a0,d0),a1
	clr.l	(a1)
	addq.l	#4,d0
	cmp.l	#$3c,d0
	bne.s	mt_clear

	clr.w	$dff0a8
	clr.w	$dff0b8
	clr.w	$dff0c8
	clr.w	$dff0d8
	clr.l	mt_partnrplay
	clr.l	mt_partnote
	clr.l	mt_partpoint

	move.b	mt_data+$1d6,mt_maxpart+1
	rts

mt_end:	clr.w	$dff0a8
	clr.w	$dff0b8
	clr.w	$dff0c8
	clr.w	$dff0d8
	move.w	#$000f,$dff096
	rts

mt_music:
	addq.l	#1,mt_counter
mt_cool:cmp.l	#6,mt_counter
	bne.s	mt_notsix
	clr.l	mt_counter
	bra	mt_rout2

mt_notsix:
	lea	mt_aud1temp(pc),a6
	tst.b	3(a6)
	beq.s	mt_arp1
	lea	$dff0a0,a5		
	bsr.s	mt_arprout
mt_arp1:lea	mt_aud2temp(pc),a6
	tst.b	3(a6)
	beq.s	mt_arp2
	lea	$dff0b0,a5
	bsr.s	mt_arprout
mt_arp2:lea	mt_aud3temp(pc),a6
	tst.b	3(a6)
	beq.s	mt_arp3
	lea	$dff0c0,a5
	bsr.s	mt_arprout
mt_arp3:lea	mt_aud4temp(pc),a6
	tst.b	3(a6)
	beq.s	mt_arp4
	lea	$dff0d0,a5
	bra.s	mt_arprout
mt_arp4:rts

mt_arprout:
	move.b	2(a6),d0
	and.b	#$0f,d0
	tst.b	d0
	beq.s	mt_arpegrt
	cmp.b	#1,d0
	beq.s	mt_portup
	cmp.b	#2,d0
	beq.s	mt_portdwn
	rts

mt_portup:
	moveq	#$00,d0
	move.b	3(a6),d0
	sub.w	d0,22(a6)
	cmp.w	#$71,22(a6)
	bpl.s	mt_ok1
	move.w	#$71,22(a6)
mt_ok1:	move.w	22(a6),6(a5)
	rts

mt_portdwn:
	moveq	#$00,d0
	move.b	3(a6),d0
	add.w	d0,22(a6)
	cmp.w	#$358,22(a6)
	bmi.s	mt_ok2
	move.w	#$358,22(a6)
mt_ok2:	move.w	22(a6),6(a5)
	rts

mt_arpegrt:
	cmp.l	#1,mt_counter
	beq.s	mt_loop2
	cmp.l	#2,mt_counter
	beq.s	mt_loop3
	cmp.l	#3,mt_counter
	beq.s	mt_loop4
	cmp.l	#4,mt_counter
	beq.s	mt_loop2
	cmp.l	#5,mt_counter
	beq.s	mt_loop3
	rts

mt_loop2:
	moveq	#$00,d0
	move.b	3(a6),d0
	lsr.b	#4,d0
	bra.s	mt_cont
mt_loop3:
	moveq	#$00,d0
	move.b	3(a6),d0
	and.b	#$0f,d0
	bra.s	mt_cont
mt_loop4:
	move.w	16(a6),d2
	bra.s	mt_endpart
mt_cont:
	asl.w	#1,d0
	moveq	#$00,d1
	move.w	16(a6),d1
	lea	mt_arpeggio(pc),a0
mt_loop5:
	move.w	(a0,d0),d2
	cmp.w	(a0),d1
	beq.s	mt_endpart
	addq.l	#2,a0
	bra.s	mt_loop5
mt_endpart:
	move.w	d2,6(a5)
	rts

mt_rout2:
	lea	mt_data(pc),a0
	move.l	a0,a3
	add.l	#$0c,a3
	move.l	a0,a2
	add.l	#$1d8,a2
	add.l	#$258,a0
	move.l	mt_partnrplay,d0
	moveq	#$00,d1
	move.b	(a2,d0),d1
	asl.l	#$08,d1
	asl.l	#$02,d1
	add.l	mt_partnote,d1
	move.l	d1,mt_partpoint
	clr.w	mt_dmacon

	lea	$dff0a0,a5
	lea	mt_aud1temp(pc),a6
	bsr	mt_playit
	lea	$dff0b0,a5
	lea	mt_aud2temp(pc),a6
	bsr	mt_playit
	lea	$dff0c0,a5
	lea	mt_aud3temp(pc),a6
	bsr	mt_playit
	lea	$dff0d0,a5
	lea	mt_aud4temp(pc),a6
	bsr	mt_playit
	move.w	#$01f4,d0
mt_rls:	dbf	d0,mt_rls

	move.w	#$8000,d0
	or.w	mt_dmacon,d0
	move.w	d0,$dff096

	lea	mt_aud4temp(pc),a6
	cmp.w	#1,14(a6)
	bne.s	mt_voice3
	move.l	10(a6),$dff0d0
	move.w	#1,$dff0d4
mt_voice3:
	lea	mt_aud3temp(pc),a6
	cmp.w	#1,14(a6)
	bne.s	mt_voice2
	move.l	10(a6),$dff0c0
	move.w	#1,$dff0c4
mt_voice2:
	lea	mt_aud2temp(pc),a6
	cmp.w	#1,14(a6)
	bne.s	mt_voice1
	move.l	10(a6),$dff0b0
	move.w	#1,$dff0b4
mt_voice1:
	lea	mt_aud1temp(pc),a6
	cmp.w	#1,14(a6)
	bne.s	mt_voice0
	move.l	10(a6),$dff0a0
	move.w	#1,$dff0a4
mt_voice0:
	move.l	mt_partnote,d0
	add.l	#$10,d0
	move.l	d0,mt_partnote
	cmp.l	#$400,d0
	bne.s	mt_stop
mt_higher:
	clr.l	mt_partnote
	addq.l	#1,mt_partnrplay
	moveq	#$00,d0
	move.w	mt_maxpart,d0
	move.l	mt_partnrplay,d1
	cmp.l	d0,d1
	bne.s	mt_stop
	clr.l	mt_partnrplay

mt_stop:tst.w	mt_status
	beq.s	mt_stop2
	clr.w	mt_status
	bra.s	mt_higher
mt_stop2:
	rts
edit11:
	move.w	#$ffff,bt1+4000
	rts

mt_playit:
	move.l	(a0,d1),(a6)
	addq.l	#4,d1
	moveq	#$00,d2
	move.b	2(a6),d2
	and.b	#$f0,d2
	lsr.b	#4,d2
	tst.b	d2
	beq.s	mt_nosamplechange

	moveq	#$00,d3
	lea	mt_samples(pc),a1
	move.l	d2,d4
	asl.l	#2,d2
	mulu	#$1e,d4
	move.l	(a1,d2),4(a6)
	move.w	(a3,d4),8(a6)
	move.w	2(a3,d4),18(a6)
	move.w	4(a3,d4),d3
	tst.w	d3
	beq.s	mt_displace
	move.l	4(a6),d2
	add.l	d3,d2
	move.l	d2,4(a6)
	move.l	d2,10(a6)
	move.w	6(a3,d4),8(a6)
	move.w	6(a3,d4),14(a6)
	move.w	18(a6),8(a5)
	bra.s	mt_nosamplechange

mt_displace:
	move.l	4(a6),d2
	add.l	d3,d2
	move.l	d2,10(a6)
	move.w	6(a3,d4),14(a6)
	move.w	18(a6),8(a5)
mt_nosamplechange:
	tst.w	(a6)
	beq.s	mt_retrout
	move.w	(a6),16(a6)
	move.w	20(a6),$dff096
	move.l	4(a6),(a5)
	move.w	8(a6),4(a5)
	move.w	(a6),6(a5)
	move.w	20(a6),d0
	or.w	d0,mt_dmacon

mt_retrout:
	tst.w	(a6)
	beq.s	mt_nonewper
	move.w	(a6),22(a6)

mt_nonewper:
	move.b	2(a6),d0
	and.b	#$0f,d0
	cmp.b	#11,d0
	beq.s	mt_posjmp
	cmp.b	#12,d0
	beq.s	mt_setvol
	cmp.b	#13,d0
	beq.s	mt_break
	cmp.b	#14,d0
	beq.s	mt_setfil
	cmp.b	#15,d0
	beq.s	mt_setspeed
	rts

mt_posjmp:
	not.w	mt_status
	moveq	#$00,d0
	move.b	3(a6),d0
	subq.b	#$01,d0
	move.l	d0,mt_partnrplay
	rts

mt_setvol:
	move.b	3(a6),8(a5)
	rts

mt_break:
	not.w	mt_status
	rts

mt_setfil:
	moveq	#$00,d0
	move.b	3(a6),d0
	and.b	#$01,d0
	rol.b	#$01,d0
	and.b	#$fd,$bfe001
	or.b	d0,$bfe001
	rts

mt_setspeed:
	move.b	3(a6),d0
	and.b	#$0f,d0
	beq.s	mt_back
	clr.l	mt_counter
	move.b	d0,mt_cool+5
mt_back:rts

mt_aud1temp:
	blk.w	10,0
	dc.w	$0001
	blk.w	2,0
mt_aud2temp:
	blk.w	10,0
	dc.w	$0002
	blk.w	2,0
mt_aud3temp:
	blk.w	10,0
	dc.w	$0004
	blk.w	2,0
mt_aud4temp:
	blk.w	10,0
	dc.w	$0008
	blk.w	2,0
mt_partnote:	dc.l	0
mt_partnrplay:	dc.l	0
mt_counter:	dc.l	0
mt_partpoint:	dc.l	0
mt_samples:dc.l	0
mt_sample1:blk.l 15,0
mt_maxpart:dc.w	$0000
mt_dmacon:dc.w	$0000
mt_status:dc.w	$0000

mt_arpeggio:
dc.w $0358,$0328,$02fa,$02d0,$02a6,$0280,$025c
dc.w $023a,$021a,$01fc,$01e0,$01c5,$01ac,$0194,$017d
dc.w $0168,$0153,$0140,$012e,$011d,$010d,$00fe,$00f0
dc.w $00e2,$00d6,$00ca,$00be,$00b4,$00aa,$00a0,$0097
dc.w $008f,$0087,$007f,$0078,$0071,$0000,$0000,$0000
	; end of music replay routine

; Some data

arret:dc.w	0,0
spectreman:dc.w 0,0
con:dc.w	0,0
con1:dc.w	0,0
dec1:dc.w	0,0
ondu:dc.w	0,0
conond:dc.w	0,0
edit:dc.w	0,0
edit1:dc.w	0,0
prior:dc.w	0,0
log:dc.w	0,0
kon:dc.w	0,0
testcoul:dc.w	0,0
startanim:dc.w	0,0
arretecom:dc.w	0,0
com:dc.w	0
com1:dc.w	0
tampon_lettre:blk.l 2560,0
scc:blk.w	40,$FFF0
mt_data:blk.b	152000,0
pol:blk.b	3840,0
pl:blk.w	8,0         ; -----------------------------------
logo:blk.b	11536,0     ; demo HAWK.  (ORIENS and JOHNNY B)
lt:blk.b	7680,0      ; total version modified on the 20/09/89
bthi:blk.b	5600,0      ; 
bt1:blk.b	9000,0      ; -- reserve de la --
bt2:blk.b	9000,0      ; -- memoire pour  --
bt3:blk.b	9000,0      ; -- les 6 bitplans--
bt4:blk.b	9000,0      ;-------------------

space:	blk.b	18640,0
popo:blk.w	32,0
elog:blk.b	14664,0
place:blk.b	8000,0