* ????? / Samples / rellocated!

data	= $60000

>extern"dh0:music/unkn.midne",data
mod	= $60dda
tab0	= $6de9a ; $7a  bei MR direkt nach Samples (Lucke=2)
tab1	= $6df14 ; $80  nach (oder gar in) tab0
tab2	= $6df94 ; $100 nach tab1
tab3	= $6e094 ;      nach tab2

*>extern"dh0:music/unkn.kiwimod",data
*mod	= data
*tab0	= data+$6392
*tab1	= tab0+$e
*tab2	= tab1+$2e
*tab3	= tab2+$60

S:	
*	move.w	#$4000,$dff09a
	jsr	init
	moveq	#$20,d0	; ssng/fx (1-$20) 0=init
	jsr	ssng

EVER:	MOVE.L	$DFF004,D0
	AND.L	#$1FF00,D0
	CMP.L	#$08000,D0
	BNE.S	EVER
	jsr	play
*	tst.w	aa
*	bne.s	bb
	BTST	#6,$BFE001
	BNE.S	EVER
*	move.w	#$ff,aa
*	moveq	#4,d0
*	jsr	sfx
*bb	btst	#6,$bfe001
*	beq.s	ever

	jSR	stop
	RTS
aa	dc.w	0

init		LEA	mod,A0		; in module
		LEA	smptab,A1
		BSR.W	FindSamples
stop:		MOVEM.L	D0/A0-A1,-(A7)
		MOVE.B	#0,L_22
		MOVE.B	#0,L_23
		LEA	voc1tmp(pc),A0
		LEA	$00DFF0A8.L,A1
		bsr.s	L_1CA
		bsr.s	L_1CA
		bsr.s	L_1CA
		bsr.s	L_1CA
		MOVE.W	#0,L_20
		MOVEM.L	(A7)+,D0/A0-A1
		RTS	
L_1CA		MOVE.W	#0,(A0)
		MOVE.W	#1,$4A(A0)
		MOVE.W	#0,$4C(A0)
		MOVE.W	#0,(A1)
		lea	$56(a0),A0
		lea	$10(a1),A1
		RTS
	
stopsfx		MOVEM.L	D0/D7/A0-A2,-(A7)	; Kanal anhalten
		SUBQ.W	#1,D0
		bmi.s	L_1F8
		CMP.W	#$0020,D0
		BCS.s	L_1FE
L_1F8		BSR.W	stop
		bra.s	L_22A
L_1FE		LEA	tab2,A2		; inmod   tab2
		ASL.W	#3,D0
		lea	(A2,d0.w),a2
		LEA	voc1tmp(pc),A0
		LEA	$00DFF0A8.L,A1
		MOVEQ	#3,D7
L_216		TST.W	(A2)+
		bne.s	L_224
		lea	$56(a0),A0
		lea	$10(a1),A1
		bra.s	L_226
L_224		bsr.s	L_1CA
L_226		DBRA	D7,L_216
L_22A		MOVEM.L	(A7)+,D0/D7/A0-A2
		RTS	

sfx		TST.W	voc4tmp		; track einspielen -> FX
		beq.s	L_240		;  (low pri)
		CMP.B	L_23(pc),D0
		BCS.s	L_250
L_240		MOVEM.L	D0/D7/A0-A2,-(A7)
		MOVE.W	#$4000,D1
		MOVE.B	D0,L_23
		bra.s	L_260
L_250		RTS	

ssng		MOVEM.L	D0/D7/A0-A2,-(A7)	; Songnr festlegen
		MOVE.W	#-$8000,D1
		MOVE.B	D0,L_22
L_260		CLR.W	L_17E
		SUBQ.W	#1,D0
		bmi.s	L_270
		CMP.W	#$0020,D0
		BCS.s	L_278
L_270		BSR.W	stop
		BRA.W	L_310
L_278		LEA	tab2,A0		; inmod   tab2
		ASL.W	#3,D0
		lea	(A0,d0.w),a0
		LEA	voc1tmp(pc),A1
		MOVEQ	#3,D7
L_28A		MOVE.W	(A0)+,D0
		beq.s	L_302
		LEA	-2(A0,D0.W),A2
		MOVEQ	#0,D0
		MOVE.W	D0,$004C(A1)
		MOVE.L	D0,2(A1)
		MOVE.L	D0,$000A(A1)
		MOVE.B	D0,$0013(A1)
		MOVE.B	#1,$0012(A1)
		MOVE.W	D1,0(A1)
L_2AE		MOVE.B	(A2)+,D0
		bpl.s	L_2E6
		SUBI.B	#-$0080,D0
		bne.s	L_2C8
		MOVEA.L	2(A1),A2
		CMPA.W	#0,A2
		bne.s	L_2AE
		CLR.W	0(A1)
		bra.s	L_302
L_2C8		SUBQ.B	#1,D0
		bne.s	L_2D2
		MOVE.L	A2,2(A1)
		bra.s	L_2AE
L_2D2		SUBQ.B	#1,D0
		bne.s	L_2DC
		MOVE.B	(A2)+,$0013(A1)
		bra.s	L_2AE
L_2DC		SUBQ.B	#1,D0
		bne.s	L_2AE
		MOVE.B	(A2)+,$0012(A1)
		bra.s	L_2AE
L_2E6		MOVE.L	A2,6(A1)
		LEA	tab3,A2		; inmod   tab3
		EXT.W	D0
		ADD.W	D0,D0
		lea	(A2,d0.w),a2
		move.w	(a2),d2
		lea	(A2,d2.w),A2
		MOVE.L	A2,$000E(A1)
		MOVE.W	#1,$0052(A1)
L_302		LEA	$0056(A1),A1
		DBRA	D7,L_28A
		OR.W	D1,L_20
L_310		MOVEM.L	(A7)+,D0/D7/a0-A2
		RTS


play		LEA	$00DFF000.L,A6
		LEA	L_B96(pc),A5	; mitten in Periodentabelle?!
		CLR.W	L_17C
		TST.W	L_20
		beq.s	L_39C
		ADDQ.W	#1,L_17E
		CLR.W	L_20
		LEA	voc1tmp(pc),A4
		MOVE.W	0(A4),D7
		beq.s	L_354
		bsr.s	L_3AA
		MOVE.W	D7,0(A4)
		OR.W	D7,L_20
L_354		LEA	voc2tmp(pc),A4
		MOVE.W	0(A4),D7
		beq.s	L_36C
		bsr.s	L_3AA
		MOVE.W	D7,0(A4)
		OR.W	D7,L_20
L_36C		LEA	voc3tmp(pc),A4
		MOVE.W	0(A4),D7
		beq.s	L_384
		bsr.s	L_3AA
		MOVE.W	D7,0(A4)
		OR.W	D7,L_20
L_384		LEA	voc4tmp(pc),A4
		MOVE.W	0(A4),D7
		beq.s	L_39C
		bsr.s	L_3AA
		MOVE.W	D7,0(A4)
		OR.W	D7,L_20
L_39C		ANDI.W	#-$4000,L_20
		BSR.W	L_7F6
		RTS	
L_3AA		TST.W	$52(A4)
		BEQ.W	L_69A
		SUBQ.W	#1,$52(A4)
		BNE.W	L_69A
		MOVEA.L	$000E(A4),A3
		BCLR	#7,D7
L_3C2		MOVE.B	(A3)+,D0
		BPL.W	L_5AC
		BCLR	#3,D7
		CMP.B	#-$0060,D0
		bcc.s	L_3C2
		LEA	L_3E8(PC),A0
		SUBI.B	#-$0080,D0
		EXT.W	D0
		ADD.W	D0,D0
		lea	(a0,D0.w),A0
		MOVE.W	(A0),D0
		beq.s	L_3C2
		JMP	(A0,D0.W)
L_3E8		DC.W	L_428-*
		DC.W	L_4a6-*
		DC.W	L_4ae-*
		DC.W	L_4b2-*
		DC.W	L_4b6-*
		DC.W	L_4c2-*
		DC.W	L_4ca-*
		DC.W	L_4d4-*
		DC.W	L_4e4-*
		DC.W	L_4f4-*
		DC.W	L_508-*
		DC.W	L_540-*
		DC.W	L_558-*
		DC.W	L_510-*
		DC.W	L_538-*
		DC.W	L_560-*
		DC.W	L_578-*
		DC.L	0
		DC.L	0
		DC.L	0
		DC.L	0
		DC.L	0
		DC.L	0
		DC.L	0
		DC.W	0
L_428		MOVEA.L	$A(A4),A3
		CMPA.W	#0,A3
		BNE.W	L_3C2
		MOVEA.L	6(A4),A3
		MOVE.B	-1(A3),D0
		SUBQ.B	#1,$0012(A4)
		bne.s	L_490
		MOVE.B	#1,$0012(A4)
		MOVE.B	#0,$0013(A4)
L_44E		MOVE.B	(A3)+,D0
		bpl.s	L_490
		SUBI.B	#-$0080,D0
		bne.s	L_472
		MOVEA.L	2(A4),A3
		CMPA.W	#0,A3
		bne.s	L_44E
		MOVE.W	#1,$004A(A4)
		MOVE.W	#0,$004C(A4)
		MOVEQ	#0,D7
		RTS	
L_472		SUBQ.B	#1,D0
		bne.s	L_47C
		MOVE.L	A3,2(A4)
		bra.s	L_44E
L_47C		SUBQ.B	#1,D0
		bne.s	L_486
		MOVE.B	(A3)+,$0013(A4)
		bra.s	L_44E
L_486		SUBQ.B	#1,D0
		bne.s	L_44E
		MOVE.B	(A3)+,$0012(A4)
		bra.s	L_44E
L_490		MOVE.L	A3,6(A4)
		LEA	tab3,A3		; inmod   tab3
		EXT.W	D0
		ADD.W	D0,D0
		lea	(A3,D0.w),A3
		move.w	(a3),d0
		lea	(A3,d0.w),A3
		BRA.W	L_3C2
L_4a6		MOVE.L	A3,$000A(A4)
		BRA.W	L_3C2
L_4ae		BRA.W	L_3C2
L_4b2		BRA.W	L_3C2
L_4b6		BSET	#5,D7
		MOVE.B	(A3)+,$0051(A4)
		BRA.W	L_3C2
L_4c2		BCLR	#5,D7
		BRA.W	L_3C2
L_4ca		ADDI.W	#$0100,$0052(A4)
		BRA.W	L_3C2
L_4d4		BCLR	#4,D7
		BSET	#7,D7
		CLR.W	$004C(A4)
		BRA.W	L_684
L_4e4		BSET	#3,D7
		MOVE.B	(A3)+,$0024(A4)
		MOVE.B	(A3)+,$0025(A4)
		BRA.W	L_3C2
L_4f4		ANDI.W	#-8,D7
		BSET	#0,D7
		MOVE.B	(A3)+,$0021(A4)
		MOVE.B	(A3)+,$0022(A4)
		BRA.W	L_3C2
L_508		BCLR	#0,D7
		BRA.W	L_3C2
L_510		ANDI.W	#-8,D7
		BSET	#1,D7
		LEA	tab0,A0		; inmod   tab0
		MOVEQ	#0,D0
		MOVE.B	(A3)+,D0
		ADD.W	D0,D0
		lea	(a0,D0.w),A0
		move.w	(a0),d0
		lea	(A0,d0.w),A0
		MOVE.B	(A0)+,$0032(A4)
		MOVE.B	(A0)+,$0030(A4)
		MOVE.L	A0,$0028(A4)
		BRA.W	L_3C2
L_538		BCLR	#1,D7
		BRA.W	L_3C2
L_540		ANDI.W	#-8,D7
		BSET	#2,D7
		MOVE.B	(A3)+,$0036(A4)
		MOVE.B	(A3)+,$0034(A4)
		MOVE.B	(A3)+,$0035(A4)
		BRA.W	L_3C2
L_558		BCLR	#2,D7
		BRA.W	L_3C2
L_560		LEA	tab1,A0		; inmod   tab1
		MOVEQ	#0,D0
		MOVE.B	(A3)+,D0
		ADD.W	D0,D0
		lea	(a0,D0.w),A0
		move.w	(a0),d0
		lea	(A0,d0.w),A0
		MOVE.L	A0,$0014(A4)
		BRA.W	L_3C2
L_578		LEA	L_BC6(pc),A0	; Ende von PerTab
		MOVEQ	#0,D0
		MOVE.B	(A3)+,D0
		ASL.W	#4,D0
		lea	(a0,D0.w),A0
		MOVE.W	(A0)+,$003C(A4)
		MOVE.L	(A0)+,$003E(A4)
		MOVE.W	(A0)+,$0042(A4)
		MOVE.L	(A0)+,$0044(A4)
		MOVE.W	(A0)+,$0048(A4)
		BCLR	#6,D7
 		TST.W	(A0)
		BEQ.W	L_3C2
		BSET	#6,D7
		BRA.W	L_3C2
L_5AC		BTST	#6,D7
		bne.s	L_5B6
		ADD.B	$0013(A4),D0
L_5B6		MOVE.B	D0,$004F(A4)
		BTST	#0,D7
		beq.s	L_5CA
		ADD.B	$0021(A4),D0
		MOVE.B	$0022(A4),$0023(A4)
L_5CA		MOVE.B	D0,$0050(A4)
		EXT.W	D0
		SUB.W	$003C(A4),D0
		ADD.W	D0,D0
		MOVE.W	(A5,D0.W),$004A(A4)
		BTST	#2,D7
		beq.s	L_61A
		MOVE.B	$0050(A4),D0
		ADD.B	$0034(A4),D0
		EXT.W	D0
		SUB.W	$003C(A4),D0
		ADD.W	D0,D0
		MOVE.W	(A5,D0.W),D0
		SUB.W	$004A(A4),D0
		ASR.W	#1,D0
		EXT.L	D0
		MOVE.B	$0035(A4),D1
		EXT.W	D1
		DIVS	D1,D0
		MOVE.W	D0,$003A(A4)
		MOVE.B	D1,$0039(A4)
		ADD.B	D1,D1
		MOVE.B	D1,$0038(A4)
		MOVE.B	$0036(A4),$0037(A4)
L_61A		BTST	#3,D7
		beq.s	L_64E
		MOVE.B	$0050(A4),D0
		ADD.B	$0024(A4),D0
		EXT.W	D0
		SUB.W	$003C(A4),D0
		ADD.W	D0,D0
		MOVE.W	(A5,D0.W),D0
		SUB.W	$004A(A4),D0
		EXT.L	D0
		MOVEQ	#0,D1
		MOVE.B	$0025(A4),D1
		DIVS	D1,D0
		MOVE.W	D0,$0026(A4)
		NEG.W	D0
		MULS	D1,D0
		SUB.W	D0,$004A(A4)
L_64E		BTST	#1,D7
		beq.s	L_666
		MOVE.B	#1,$0033(A4)
		MOVE.L	$0028(A4),$002C(A4)
		MOVE.B	$0030(A4),$0031(A4)
L_666		BSET	#4,D7
		MOVE.L	$0014(A4),$0018(A4)
		MOVE.W	#1,$001E(A4)
		CLR.W	$004C(A4)
		MOVE.W	$0054(A4),D0
		OR.W	D0,L_17C
L_684		MOVEQ	#0,D0
		MOVE.B	$0051(A4),D0
		BTST	#5,D7
		bne.s	L_692
		MOVE.B	(A3)+,D0
L_692		ADD.W	D0,$0052(A4)
		MOVE.L	A3,$000E(A4)
L_69A		BTST	#7,D7
		BNE.W	L_7F4
		MOVE.W	$004A(A4),D0
		BTST	#3,D7
		beq.s	L_6BE
		SUBQ.B	#1,$0025(A4)
		bne.s	L_6B6
		BCLR	#3,D7
L_6B6		SUB.W	$0026(A4),D0
		BRA.W	L_74C
L_6BE		BTST	#0,D7
		beq.s	L_6E8
		SUBQ.B	#1,$0023(A4)
		BCC.W	L_74C
		MOVE.B	$004F(A4),D0
		MOVE.B	$0050(A4),D1
		MOVE.B	D0,$0050(A4)
		EXT.W	D0
		SUB.W	$003C(A4),D0
		ADD.W	D0,D0
		MOVE.W	(A5,D0.W),D0
		BRA.W	L_74C
L_6E8		BTST	#1,D7
		beq.s	L_728
		SUBQ.B	#1,$0033(A4)
		bne.s	L_74C
		MOVEA.L	$002C(A4),A0
		MOVE.B	(A0)+,D0
		SUBQ.B	#1,$0031(A4)
		bne.s	L_70A
		MOVEA.L	$0028(A4),A0
		MOVE.B	$0030(A4),$0031(A4)
L_70A		MOVE.L	A0,$002C(A4)
		MOVE.B	$0032(A4),$0033(A4)
		ADD.B	$0050(A4),D0
		EXT.W	D0
		SUB.W	$003C(A4),D0
		ADD.W	D0,D0
		MOVE.W	(A5,D0.W),D0
		BRA.W	L_74C
L_728		BTST	#2,D7
		beq.s	L_74C
		SUBQ.B	#1,$0037(A4)
		bcc.s	L_74C
		ADDQ.B	#1,$0037(A4)
		SUBQ.B	#1,$0039(A4)
		bne.s	L_748
		NEG.W	$003A(A4)
		MOVE.B	$0038(A4),$0039(A4)
L_748		ADD.W	$003A(A4),D0
L_74C		MOVE.W	D0,$004A(A4)
		BTST	#4,D7
		BEQ.W	L_7F4
		SUBQ.W	#1,$001E(A4)
		BNE.W	L_7DE
		MOVEA.L	$0018(A4),A0
		MOVEQ	#0,D0
		MOVE.B	(A0)+,D0
		beq.s	L_7AC
		bmi.s	L_786
		MOVE.W	D0,$001E(A4)
		MOVE.B	#1,$001C(A4)
		MOVE.B	#1,$001D(A4)
		MOVE.B	(A0)+,$0020(A4)
		MOVE.L	A0,$0018(A4)
		bra.s	L_7DE
L_786		NEG.B	D0
		MOVE.W	D0,$001E(A4)
		MOVE.B	#1,$0020(A4)
		MOVE.B	(A0)+,D0
		bpl.s	L_79C
		NEG.B	D0
		NEG.B	$0020(A4)
L_79C		MOVE.B	D0,$001C(A4)
		MOVE.B	#1,$001D(A4)
		MOVE.L	A0,$0018(A4)
		bra.s	L_7DE
L_7AC		MOVE.B	(A0),D0
		beq.s	L_7BA
		bpl.s	L_7B4
		NEG.B	D0
L_7B4		SUB.W	$0052(A4),D0
		bmi.s	L_7C0
L_7BA		BCLR	#4,D7
		bra.s	L_7F4
L_7C0		NEG.W	D0
		MOVE.W	D0,$001E(A4)
		MOVE.B	#0,$001C(A4)
		MOVE.B	#0,$001D(A4)
		MOVE.B	#0,$0020(A4)
		MOVE.L	A0,$0018(A4)
		bra.s	L_7F4
L_7DE		SUBQ.B	#1,$001D(A4)
		bne.s	L_7F4
		MOVE.B	$001C(A4),$001D(A4)
		MOVE.B	$0020(A4),D0
		EXT.W	D0
		ADD.W	D0,$004C(A4)
L_7F4		RTS	
L_7F6		MOVE.W	L_17C(pc),D0
		beq.s	L_86C
		MOVE.W	D0,$0096(A6)
		MOVE.W	D0,D1
		LSL.W	#7,D1
		MOVE.W	D1,$009C(A6)
		MOVEQ	#0,D2
		MOVEQ	#1,D3
		BTST	#0,D0
		beq.s	L_81C
		MOVE.W	D3,$00A6(A6)
		MOVE.W	D2,$00AA(A6)
L_81C		BTST	#1,D0
		beq.s	L_82A
		MOVE.W	D3,$00B6(A6)
		MOVE.W	D2,$00BA(A6)
L_82A		BTST	#2,D0
		beq.s	L_838
		MOVE.W	D3,$00C6(A6)
		MOVE.W	D2,$00CA(A6)
L_838		BTST	#3,D0
		beq.s	L_846
		MOVE.W	D3,$00D6(A6)
		MOVE.W	D2,$00DA(A6)
L_846		MOVE.W	$001E(A6),D2
		AND.W	D1,D2
		CMP.W	D1,D2
		bne.s	L_846
		MOVEQ	#2,D2
		MOVE.W	6(A6),D3
		ANDI.W	#-$0100,D3
L_85A		MOVE.W	6(A6),D4
		ANDI.W	#-$0100,D4
		CMP.W	D4,D3
		beq.s	L_85A
		MOVE.W	D4,D3
		DBRA	D2,L_85A
L_86C		MOVE.W	L_1C(pc),D1
		MOVE.W	L_1E(pc),D2
		LEA	voc1tmp(pc),A0
		MOVE.W	D1,D3
		BTST	#6,0(A0)
		beq.s	L_88A
		MOVE.W	D2,D3
L_88A		AND.W	$004C(A0),D3
		MOVE.W	D3,$00A8(A6)
		MOVE.W	$004A(A0),$00A6(A6)
		BTST	#0,D0
		beq.s	L_8AC
		MOVE.W	$0042(A0),$00A4(A6)
		MOVE.L	$003E(A0),$00A0(A6)
		bra.s	L_8B8
L_8AC		MOVE.W	$0048(A0),$00A4(A6)
		MOVE.L	$0044(A0),$00A0(A6)
L_8B8		LEA	voc2tmp(pc),A0
		MOVE.W	D1,D3
		BTST	#6,0(A0)
		beq.s	L_8CA
		MOVE.W	D2,D3
L_8CA		AND.W	$004C(A0),D3
		MOVE.W	D3,$00B8(A6)
		MOVE.W	$004A(A0),$00B6(A6)
		BTST	#1,D0
		beq.s	L_8EC
		MOVE.W	$0042(A0),$00B4(A6)
		MOVE.L	$003E(A0),$00B0(A6)
		bra.s	L_8F8
L_8EC		MOVE.W	$0048(A0),$00B4(A6)
		MOVE.L	$0044(A0),$00B0(A6)
L_8F8		LEA	voc3tmp(pc),A0
		MOVE.W	D1,D3
		BTST	#6,0(A0)
		beq.s	L_90A
		MOVE.W	D2,D3
L_90A		AND.W	$004C(A0),D3
		MOVE.W	D3,$00C8(A6)
		MOVE.W	$004A(A0),$00C6(A6)
		BTST	#2,D0
		beq.s	L_92C
		MOVE.W	$0042(A0),$00C4(A6)
		MOVE.L	$003E(A0),$00C0(A6)
		bra.s	L_938
L_92C		MOVE.W	$0048(A0),$00C4(A6)
		MOVE.L	$0044(A0),$00C0(A6)
L_938		LEA	voc4tmp(pc),A0
		MOVE.W	D1,D3
		BTST	#6,0(A0)
		beq.s	L_94A
		MOVE.W	D2,D3
L_94A		AND.W	$004C(A0),D3
		MOVE.W	D3,$00D8(A6)
		MOVE.W	$004A(A0),$00D6(A6)
		BTST	#3,D0
		beq.s	L_96C
		MOVE.W	$0042(A0),$00D4(A6)
		MOVE.L	$003E(A0),$00D0(A6)
		bra.s	L_978
L_96C		MOVE.W	$0048(A0),$00D4(A6)
		MOVE.L	$0044(A0),$00D0(A6)
L_978		ORI.W	#-$8000,D0
		MOVE.W	D0,$0096(A6)
		CLR.W	L_17C
		RTS	

FindSamples:	
fsa_lp		MOVE.L	(A0)+,D0	; sampleaddressen finden
		beq.s	L_9A6
		MOVE.W	(A0)+,(A1)
		MOVE.W	(A0)+,$000E(A1)
		MOVE.L	A0,-(A7)
		LEA	-8(A0,D0.L),A0
		MOVE.L	4(A0),D0
		ADDQ.L	#8,D0
		BSR.W	L_9A8
		MOVEA.L	(A7)+,A0
		bra.s	fsa_lp
L_9A6		RTS	
L_9A8		MOVE.L	A1,-(A7)
		BSR.W	L_9EC
		MOVEA.L	(A7)+,A1
		ADDQ.L	#2,A1
		MOVEA.L	L_B12(pc),A0
		MOVE.L	(A0)+,D0
		BCLR	#0,D0
		MOVE.L	(A0)+,D1
		BCLR	#0,D1
		MOVEA.L	L_B3C(pc),A0
		MOVE.L	A0,(A1)+
		ADDA.L	D0,A0
		ADD.L	D1,D0
		LSR.L	#1,D0
		MOVE.W	D0,(A1)+
		TST.L	D1
		bne.s	L_9E0
		LEA	blank(pc),A0
		MOVEQ	#2,D1
L_9E0		MOVE.L	A0,(A1)+
		LSR.L	#1,D1
		MOVE.W	D1,(A1)+
		ADDQ.L	#2,A1
		RTS	
L_9ea		DC.W	0
L_9EC		CLR.W	L_9EA
		MOVEM.L	D0/A0,-(A7)
		BRA.W	L_9FA
L_9FA		TST.L	D0
		beq.s	L_A0A
		MOVE.L	(A0)+,D1
		SUBQ.L	#4,D0
		BSR.W	L_A10
		BRA.W	L_9FA
L_A0A		MOVEM.L	(A7)+,D0/A0
		RTS	
L_A10		CMP.L	#'FORM',D1 ; FORM
		BEQ.W	L_A74
		CMP.L	#'CAT ',D1 ; CAT
		BEQ.W	L_A30
		MOVE.W	#1,L_9EA
		CLR.L	D0
		RTS	
L_A30		MOVEM.L	D0/A0,-(A7)
		MOVE.L	(A0)+,D0
		MOVE.L	D0,D1
		BTST	#0,D1
		beq.s	L_A40
		ADDQ.L	#1,D1
L_A40		ADDQ.L	#4,D1
		ADD.L	D1,4(A7)
		SUB.L	D1,0(A7)
		ADDQ.L	#4,(A0)
		SUBQ.L	#4,D0
		BRA.W	L_9FA
L_A52		MOVEM.L	D0/A0,-(A7)
		MOVE.L	(A0)+,D0
		MOVE.L	D0,D1
		BTST	#0,D1
		beq.s	L_A62
		ADDQ.L	#1,D1
L_A62		ADDQ.L	#4,D1
		ADD.L	D1,4(A7)
		SUB.L	D1,0(A7)
		NOP	
		MOVEM.L	(A7)+,D0/A0
		RTS	
L_A74		MOVEM.L	D0/A0,-(A7)
		MOVE.L	(A0)+,D0
		MOVE.L	D0,D1
		BTST	#0,D1
		beq.s	L_A84
		ADDQ.L	#1,D1
L_A84		ADDQ.L	#4,D1
		ADD.L	D1,4(A7)
		SUB.L	D1,0(A7)
		MOVE.L	(A0)+,D1
		SUBQ.L	#4,D0
		CMP.L	#'8SVX',D1 ; 8SVX
		BEQ.W	L_AAA
		MOVE.W	#2,L_9EA
		MOVEM.L	(A7)+,D0/A0
		RTS	
L_AAA		TST.L	D0
		beq.s	L_ABA
		MOVE.L	(A0)+,D1
		SUBQ.L	#4,D0
		BSR.W	L_AC0
		BRA.W	L_AAA
L_ABA		MOVEM.L	(A7)+,D0/A0
		RTS	
L_AC0		CMP.L	#'FORM',D1 ; FORM
		BEQ.W	L_A74
		CMP.L	#'LIST',D1 ; LIST
		BEQ.W	L_A52
		CMP.L	#'CAT ',D1 ; CAT
		BEQ.W	L_A30
		CMP.L	#'VHDR',D1 ; VHDR
		BEQ.W	L_B16
		CMP.L	#'BODY',D1 ; BODY
		BEQ.W	L_B40
		MOVEM.L	D0/A0,-(A7)
		MOVE.L	(A0)+,D0
		MOVE.L	D0,D1
		BTST	#0,D1
		beq.s	L_B02
		ADDQ.L	#1,D1
L_B02		ADDQ.L	#4,D1
		ADD.L	D1,4(A7)
		SUB.L	D1,0(A7)
		MOVEM.L	(A7)+,D0/A0
		RTS	
L_b12		DC.L	0
L_B16		MOVEM.L	D0/A0,-(A7)
		MOVE.L	(A0)+,D0
		MOVE.L	D0,D1
		BTST	#0,D1
		beq.s	L_B26
		ADDQ.L	#1,D1
L_B26		ADDQ.L	#4,D1
		ADD.L	D1,4(A7)
		SUB.L	D1,0(A7)
		MOVE.L	A0,L_B12
		MOVEM.L	(A7)+,D0/A0
		RTS	
L_b3c		DC.L	0
L_B40		MOVEM.L	D0/A0,-(A7)
		MOVE.L	(A0)+,D0
		MOVE.L	D0,D1
		BTST	#0,D1
		beq.s	L_B50
		ADDQ.L	#1,D1
L_B50		ADDQ.L	#4,D1
		ADD.L	D1,4(A7)
		SUB.L	D1,0(A7)
		MOVE.L	A0,L_B3C
		MOVEM.L	(A7)+,D0/A0
		RTS	
L_b66		DC.L	$6FE0699
		DC.L	$63B05E1
		DC.L	$58D053D
		DC.L	$4F204AB
		DC.L	$4670428
		DC.L	$3EC03B4
		DC.L	$37F034D
		DC.L	$31D02F1
		DC.L	$2C6029E
		DC.L	$2790255
		DC.L	$2340214
		DC.L	$1F601DA
L_b96		DC.L	$1BF01A6
		DC.L	$18F0178
		DC.L	$163014F
		DC.L	$13C012B
		DC.L	$11A010A
		DC.L	$FB00ED
		DC.L	$E000D3
		DC.L	$C700BC
		DC.L	$B200A8
		DC.L	$9E0095
		DC.L	$8D0085
		DC.L	$7E0077

L_1c		DC.W	-1
L_1e		dc.w	-1
L_20		DC.W	0
L_22		DC.b	0
L_23		dc.b	0
L_17c		dc.w	0
L_17e		DC.W	0

voc1tmp		blk.b	$54,0
		dc.w	1
voc2tmp		blk.b	$54,0
		dc.w	2
voc3tmp		blk.b	$54,0
		dc.w	4
voc4tmp		blk.b	$54,0
		dc.w	8

L_bc6		blk.b	32,0

smptab		blk.b	16*31
blank		DC.W	0		; NoLoop-mem

*******************************************
*
*L_bc6		DC.W	$17
*		DC.L	$20DC4
*		DC.W	$B
*		DC.L	$20DC4
*		DC.W	$B
*		DC.W	0
*		DC.W	$18
*		DC.L	$21A1A
*		DC.W	$683
*		DC.W	0
*		DC.W	0
*		DC.W	0
*		DC.W	0


*L_dc4		DC.W	$74
*		DC.W	$60DC
*		DC.W	-$7D45
*		DC.W	$457E
*		DC.W	$24A0
*		DC.W	-$7400
*		DC.W	$7460
*		DC.W	-$237E
*		DC.W	-$44BB
*		DC.W	$7E24
*		DC.W	-$5F74

		END
.