;
L06AD:
	MOVE.W	#$3E8,D7
.L06AE:
	CMP.L	(A0),D0
	BEQ.S	.L06AF
	ADDQ.W	#2,A0
	dbra	d7,.L06AE
	MOVEQ	#0,D7
	RTS
;
.L06AF:
	MOVEQ	#-1,D7
	RTS
;
;
L06B0:
	DC.B	$00,$0A
L06B1:
	DC.B	$00,$0A
L06B2:
	DC.B	$00,$0A
;
;
	MOVEM.L	A2-A6/D2-D7,-(sp)
	MOVEA.L	4(sp),A0
	MOVEA.L	8(sp),A1
	LEA	8(A1),A1
	CMPI.L	#'FORM',(A0)
	BNE	.L06BE
	MOVE.B	28(A0),D0
	EXT.W	D0
	SUBQ.W	#1,D0
	MOVE.W	D0,L06B2
	MOVE.W	20(A0),D0
	ADDI.W	#$F,D0
	ANDI.W	#-$10,D0
	LSR.W	#3,D0
	SUBQ.W	#1,D0
	MOVE.W	D0,L06B0
	MOVE.W	22(A0),D0
	SUBQ.W	#1,D0
	MOVE.W	D0,L06B1
	TST.B	30(A0)
	BEQ.S	.L06B9
	MOVEA.L	A0,A4
	MOVE.L	#'BODY',D0
	JSR	L06AD
	BEQ	.L06BE
	LEA	8(A0),A0
	MOVEQ	#0,D2
	MOVE.W	L06B1,D5
.L06B3:
	MOVEA.L	A1,A2
	MOVE.W	L06B2,D6
.L06B4:
	MOVEA.L	(A2)+,A3
	ADDA.W	D2,A3
	MOVE.W	L06B0,D7
.L06B5:
	MOVEQ	#0,D0
	MOVE.B	(A0)+,D0
	BPL.S	.L06B7
	MOVE.B	(A0)+,D1
	NEG.B	D0
	BMI.S	.L06B5
	SUB.W	D0,D7
.L06B6:
	MOVE.B	D1,(A3)+
	dbra	d0,.L06B6
	dbra	d7,.L06B5
	dbra	d6,.L06B4
	ADDI.W	#$28,D2
	dbra	d5,.L06B3
	BRA.S	.L06BD
;
.L06B7:
	SUB.W	D0,D7
.L06B8:
	MOVE.B	(A0)+,(A3)+
	dbra	d0,.L06B8
	dbra	d7,.L06B5
	dbra	d6,.L06B4
	ADDI.W	#$28,D2
	dbra	d5,.L06B3
	BRA.S	.L06BD
;
.L06B9:
	MOVEA.L	A0,A4
	MOVE.L	#'BODY',D0
	JSR	L06AD
	BEQ	.L06BE
	LEA	8(A0),A0
	MOVEQ	#0,D2
	MOVE.W	L06B1,D5
.L06BA:
	MOVEA.L	A1,A2
	MOVE.W	L06B2,D6
.L06BB:
	MOVEA.L	(A2)+,A3
	ADDA.W	D2,A3
	MOVE.W	L06B0,D7
.L06BC:
	MOVE.B	(A0)+,(A3)+
	dbra	d7,.L06BC
	dbra	d6,.L06BB
	ADDI.W	#$28,D2
	dbra	d5,.L06BA
.L06BD:
	MOVEQ	#-1,D0
	MOVEM.L	(sp)+,A2-A6/D2-D7
	RTS
;
.L06BE:
	MOVEQ	#0,D0
	MOVEM.L	(sp)+,A2-A6/D2-D7
	RTS
	MOVEA.L	A4,A0
	MOVE.L	#'CMAP',D0
	JSR	L06AD
	BEQ.S	.L06C0
	ADDQ.L	#8,A0
	MOVEQ	#$1F,D7
.L06BF:
	MOVE.B	(A0)+,D0
	LSL.W	#4,D0
	MOVE.B	(A0)+,D0
	LSL.W	#4,D0
	MOVE.B	(A0)+,D0
	LSR.W	#4,D0
	MOVE.W	D0,(A1)+
	dbra	d7,.L06BF
	MOVEQ	#-1,D0
	MOVEM.L	(sp)+,A2-A6/D2-D7
	RTS
;
.L06C0:
	MOVEQ	#0,D0
	MOVEM.L	(sp)+,A2-A6/D2-D7
	RTS
;
