; Future Composer 1.3 ReplayRoutine

org$35000
load$35000

>extern	"MRipper:Songs/Music.FC13",module

r:	movem.l	d0-d7/a0-a6,-(sp)
	bsr	init_music13
s:	cmp.b	#-1,$dff006
	blo.s	s
	move.w	#$f00,$dff180
	bsr	play13
	move.w	#$000,$dff180
	btst	#6,$bfe001
	bne.s	s
	bsr	end_music13
	movem.l	(sp)+,d0-d7/a0-a6
rts

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

INIT_MUSIC13:
move.w #1,onoff13
bset #1,$bfe001
lea MODULE,a0
lea 100(a0),a1
move.l a1,SEQpoint13
move.l a0,a1
add.l 8(a0),a1
move.l a1,PATpoint13
move.l a0,a1
add.l 16(a0),a1
move.l a1,FRQpoint13
move.l a0,a1
add.l 24(a0),a1
move.l a1,VOLpoint13
move.l 4(a0),d0
divu #13,d0

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

move.l SEQpoint13(pc),a0
moveq #0,d2
move.b 12(a0),d2		;Get replay speed
bne.s speedok13
move.b #3,d2			;Set default speed
speedok13:
move.w d2,respcnt13		;Init repspeed counter
move.w d2,repspd13
INIT213:
clr.w audtemp13
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 V1data13(pc),a0		;Point to 1st voice data area
lea silent13(pc),a1
lea Chandata13(pc),a2
initloop213:
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
moveq #0,d4
bset d3,d4
move.w d4,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 SEQpoint13(pc),(a0)
move.l SEQpoint13(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 PATpoint13(pc),a4
adda.w d1,a4
move.l a4,34(a0)
clr.l 38(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)
lea $4a(a0),a0		;Point to next voice's data area
dbf d6,initloop213
rts


PLAY13:
lea audtemp13(pc),a5
tst.w 8(a5)
bne.s music_on13
rts
music_on13:
subq.w #1,4(a5)			;Decrease replayspeed counter
bne.s nonewnote13
move.w 6(a5),4(a5)		;Restore replayspeed counter
moveq #0,d5
moveq #6,d6
lea V1data13(pc),a0		;Point to voice1 data area
bsr.L new_note13
lea V2data13(pc),a0		;Point to voice2 data area
bsr.L new_note13
lea V3data13(pc),a0		;Point to voice3 data area
bsr.L new_note13
lea V4data13(pc),a0		;Point to voice4 data area
bsr.L new_note13
nonewnote13:
clr.w (a5)
lea $dff000,a6
lea V1data13(pc),a0
bsr.L effects13
move.l d0,$a6(a6)
lea V2data13(pc),a0
bsr.L effects13
move.l d0,$b6(a6)
lea V3data13(pc),a0
bsr.L effects13
move.l d0,$c6(a6)
lea V4data13(pc),a0
bsr.L effects13
move.l d0,$d6(a6)
lea V1data13(pc),a0
move.l 68+[0*74](a0),a1		;Get samplepointer
adda.w 64+[0*74](a0),a1		;add repeat_start
move.l 68+[1*74](a0),a2
adda.w 64+[1*74](a0),a2
move.l 68+[2*74](a0),a3
adda.w 64+[2*74](a0),a3
move.l 68+[3*74](a0),a4
adda.w 64+[3*74](a0),a4
move.w 66+[0*74](a0),d1		;Get sound lengths
move.w 66+[1*74](a0),d2
move.w 66+[2*74](a0),d3
move.w 66+[3*74](a0),d4
moveq #2,d0
moveq #0,d5
move.w (a5),d7
ori.w #$8000,d7			;Set/clr bit = 1
move.w d7,$dff096		;Enable audio DMA
chan113:
lea V1data13+72(pc),a0
move.w (a0),d7
beq.s chan213
subq.w #1,(a0)
cmp.w d0,d7
bne.s chan213
move.w d5,(a0)
move.l a1,$a0(a6)		;Set soundstart
move.w d1,$a4(a6)		;Set soundlength
chan213:
lea V2data13+72(pc),a0
move.w (a0),d7
beq.s chan313
subq.w #1,(a0)
cmp.w d0,d7
bne.s chan313
move.w d5,(a0)
move.l a2,$b0(a6)
move.w d2,$b4(a6)
chan313:
lea V3data13+72(pc),a0
move.w (a0),d7
beq.s chan413
subq.w #1,(a0)
cmp.w d0,d7
bne.s chan413
move.w d5,(a0)
move.l a3,$c0(a6)
move.w d3,$c4(a6)
chan413:
lea V4data13+72(pc),a0
move.w (a0),d7
beq.s endplay13
subq.w #1,(a0)
cmp.w d0,d7
bne.s endplay13
move.w d5,(a0)
move.l a4,$d0(a6)
move.w d4,$d4(a6)
endplay13:
rts

NEW_NOTE13:
move.l 34(a0),a1
adda.w 40(a0),a1
cmp.w #64,40(a0)
bne.L samepat13
move.w d5,40(a0)
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 notend13
move.w d5,6(a0)		;yes!
move.l (a0),a2		;Point to first sequence
notend13:
lea spdtemp13(pc),a3
moveq #1,d1
addq.b #1,(a3)
cmpi.b #5,(a3)
bne.s nonewspd13
move.b d1,(a3)
move.b 12(a2),d1	;Get new replay speed
beq.s nonewspd13
move.w d1,2(a3)		;store in counter
move.w d1,4(a3)
nonewspd13:
move.b (a2)+,d1		;Pattern to play
move.b (a2)+,44(a0)	;Transpose value
move.b (a2)+,22(a0)	;Soundtranspose value
lsl.w d6,d1
move.l PATpoint13(pc),a1	;Get pattern pointer
add.w d1,a1
move.l a1,34(a0)
addi.w #$000d,6(a0)
samepat13:
move.b 1(a1),d1		;Get info byte
move.b (a1)+,d0		;Get note
bne.s ww113
andi.w #%11000000,d1
beq.s noport13
bra.s ww1113
ww113:
move.w d5,56(a0)
ww1113:
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_porton13:
btst #7,d1
beq.s noport13
move.b 2(a1),47(a0)	
noport13:
andi.w #$007f,d0
beq.L nextnote13
move.b d0,8(a0)
move.b (a1),d1
move.b d1,9(a0)
move.w 32(a0),d3
or.w d3,(a5)
move.w d3,$dff096
andi.w #$003f,d1	;Max 64 instruments
add.b 22(a0),d1		;add Soundtranspose
move.l VOLpoint13(pc),a2
lsl.w d6,d1
adda.w d1,a2
move.w d5,16(a0)
move.b (a2),23(a0)
move.b (a2)+,24(a0)
moveq #0,d1
move.b (a2)+,d1
move.b (a2)+,27(a0)
move.b #$40,46(a0)
move.b (a2),28(a0)
move.b (a2)+,29(a0)
move.b (a2)+,30(a0)
move.l a2,10(a0)
move.l FRQpoint13(pc),a2
lsl.w d6,d1
adda.w d1,a2
move.l a2,18(a0)
move.w d5,50(a0)
move.b d5,25(a0)
move.b d5,26(a0)
nextnote13:
addq.w #2,40(a0)
rts

EFFECTS13:
moveq #0,d7
testsustain13:
tst.b 26(a0)		;Is sustain counter = 0
beq.s sustzero13
subq.b #1,26(a0)	;if no, decrease counter
bra.L VOLUfx13
sustzero13:		;Next part of effect sequence
move.l 18(a0),a1	;can be executed now.
adda.w 50(a0),a1
testeffects13:
cmpi.b #$e1,(a1)	;E1 = end of FREQseq sequence
beq.L VOLUfx13
move.b (a1),d0
cmpi.b #$e0,d0		;E0 = loop to other part of sequence
bne.s testnewsound13
move.b 1(a1),d1		;loop to start of sequence + 1(a1)
andi.w #$003f,d1
move.w d1,50(a0)
move.l 18(a0),a1
adda.w d1,a1
move.b (a1),d0
testnewsound13:
cmpi.b #$e2,d0		;E2 = set waveform
bne.s testE413
move.w 32(a0),d1
or.w d1,(a5)
move.w d1,$dff096
moveq #0,d0
move.b 1(a1),d0
lea SOUNDINFO13(pc),a4
add.w d0,d0
move.w d0,d1
lsl.w #2,d1
add.w d1,d0
adda.w d0,a4
move.l 60(a0),a3
move.l (a4),d1
add.l #WAVEFORMS13,d1
move.l d1,(a3)
move.l d1,68(a0)
move.w 4(a4),4(a3)
move.l 6(a4),64(a0)
move.w #$0003,72(a0)
clr.w 16(a0)
move.b #$01,23(a0)
addq.w #2,50(a0)
bra.L transpose13
testE413:
cmpi.b #$e4,d0
bne.s testpatjmp13
moveq #0,d0
move.b 1(a1),d0
lea SOUNDINFO13(pc),a4
add.w d0,d0
move.w d0,d1
lsl.w #2,d1
add.w d1,d0
adda.w d0,a4
move.l 60(a0),a3
move.l (a4),d1
add.l #WAVEFORMS13,d1
move.l d1,(a3)
move.l d1,68(a0)
move.w 4(a4),4(a3)
move.l 6(a4),64(a0)
move.w #$0003,72(a0)
addq.w #2,50(a0)
bra.s transpose13
testpatjmp13:
cmpi.b #$e7,d0
bne.s testnewsustain13
moveq #0,d0
move.b 1(a1),d0
lsl.w d6,d0
move.l FRQpoint13(pc),a1
adda.w d0,a1
move.l a1,18(a0)
move.w d7,50(a0)
bra.L testeffects13
testnewsustain13:
cmpi.b #$e8,d0		;E8 = set sustain time
bne.s testnewvib13
move.b 1(a1),26(a0)
addq.w #2,50(a0)
bra.L testsustain13
testnewvib13:
cmpi.b #$e3,(a1)+
bne.s transpose13
addq.w #3,50(a0)
move.b (a1)+,27(a0)
move.b (a1),28(a0)
transpose13:
move.l 18(a0),a1
adda.w 50(a0),a1
move.b (a1),43(a0)
addq.w #1,50(a0)

VOLUfx13:
tst.b 25(a0)
beq.s volsustzero13
subq.b #1,25(a0)
bra.s calcperiod13
volsustzero13:
subq.b #1,23(a0)
bne.s calcperiod13
move.b 24(a0),23(a0)
volu_cmd13:
move.l 10(a0),a1
adda.w 16(a0),a1
move.b (a1),d0
cmpi.b #$e8,d0
bne.s testvoluend13
addq.w #2,16(a0)
move.b 1(a1),25(a0)
bra.s calcperiod13
testvoluend13:
cmpi.b #$e1,d0
beq.s calcperiod13
cmpi.b #$e0,d0
bne.s setvolume13
move.b 1(a1),d0
andi.w #$003f,d0
subq.b #5,d0
move.w d0,16(a0)
bra.s volu_cmd13
setvolume13:
move.b (a1),45(a0)
addq.w #1,16(a0)

calcperiod13:
move.b 43(a0),d0
bmi.s lockednote13
add.b 8(a0),d0
add.b 44(a0),d0
lockednote13:
moveq #$7f,d1
and.l d1,d0
lea PERIODS13(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)		;Vibrato_delay = zero ?
beq.s vibrator13
subq.b #1,30(a0)
bra.s novibrato13
vibrator13:
moveq #5,d2
move.b d1,d5
move.b 28(a0),d4
add.b d4,d4
move.b 29(a0),d1
tst.b d7
bpl.s vib113
btst #0,d7
bne.s vib413
vib113:
btst d2,d7
bne.s vib213
sub.b 27(a0),d1
bcc.s vib313
bset d2,d7
moveq #0,d1
bra.s vib313
vib213:
add.b 27(a0),d1
cmp.b d4,d1
bcs.s vib313
bclr d2,d7
move.b d4,d1
vib313:
move.b d1,29(a0)
vib413:
lsr.b #1,d4
sub.b d4,d1
bcc.s vib513
subi.w #$0100,d1
vib513:
addi.b #$a0,d5
bcs.s vib713
vib613:
add.w d1,d1
addi.b #$18,d5
bcc.s vib613
vib713:
add.w d1,d0
novibrato13:
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 addporta13	;0=no portamento
cmpi.b #$1f,d1
bls.s portaup13
portadown13: 
andi.w #$1f,d1
neg.w d1
portaup13:
sub.w d1,56(a0)
addporta13:
add.w 56(a0),d0
cmpi.w #$0070,d0
bhi.s nn113
move.w #$0071,d0
nn113:
cmpi.w #$1ac0,d0
bls.s nn213
move.w #$1ac0,d0
nn213:
swap d0
move.b 45(a0),d0
rts



V1data13:  blk.b 64,0	;Voice 1 data area
offset113: blk.b 02,0	;Is added to start of sound
ssize113:  blk.b 02,0	;Length of sound
start113:  blk.b 06,0	;Start of sound

V2data13:  blk.b 64,0	;Voice 2 data area
offset213: blk.b 02,0
ssize213:  blk.b 02,0
start213:  blk.b 06,0

V3data13:  blk.b 64,0	;Voice 3 data area
offset313: blk.b 02,0
ssize313:  blk.b 02,0
start313:  blk.b 06,0

V4data13:  blk.b 64,0	;Voice 4 data area
offset413: blk.b 02,0
ssize413:  blk.b 02,0
start413:  blk.b 06,0

audtemp13: dc.w 0		;DMACON
spdtemp13: dc.w 0
respcnt13: dc.w 0		;Replay speed counter 
repspd13:  dc.w 0		;Replay speed counter temp
onoff13:   dc.w 0		;Music on/off flag.

Chandata13: dc.l $00000000,$00100003,$00200006,$00300009
SEQpoint13: dc.l 0
PATpoint13: dc.l 0
FRQpoint13: dc.l 0
VOLpoint13: dc.l 0
even
SILENT13: dc.w $0100,$0000,$0000,$00e1

PERIODS13: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

SOUNDINFO13:
;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
 

WAVEFORMS13:
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
module:	blk.b	25336