INIMAG.MAC;2/-AU/-BF=INIMAG.MAC;1
-113
	CALL	CHKMT		;CHECK FOR A LABEL ALREADY	[RJDK006]
-300
MTRD:	MOV	#IO.RLB,Q.IOFN+MTDPB	;SET FOR READ
	MOV	#HDR,Q.IOPL+MTDPB	;SET BUFFER ADDR
	MOV	#80.,Q.IOPL+2+MTDPB	;AND LENGTH
	BR	MTCOMN		;COMMON CODE EXIT
-384
MTRR1:	JMP	MTERR1
HDR:	.BLKB	80.		;BUFFER FOR HEADER RECORD
CHKMT:	MOV	#MTDPB,R4	;SET FN ADDR
	CALL	MTRWD		;REWIND
	BCS	MTRR1
	MOV	#4004,Q.IOPL+MTDPB
	CALL	MTSTC		;SET 1600
	BIT	#10000,$INSTA+2	;7TRACK
	BNE	4$		;NO POINT IN TRYING 1600!
	CALL	MTRD
	BCC	1$		;GOOD AT 1600
	CALL	MTRWD		;REWIND
4$:	MOV	#4,Q.IOPL+MTDPB
	CALL	MTSTC
	CALL	MTRD
	BCC	1$
	RTS	PC		;OK!
1$:	MOV	#HDR,R0
	CMP	(R0)+,#"VO
	BNE	3$
	CMP	(R0)+,#"L1
	BNE	3$
	MOV	#6,R2
	MOV	#$IVNAM,R1
2$:	CMPB	(R0)+,(R1)+
	BNE	3$
	SOB	R2,2$
	RTS	PC
3$:	MOV	#LBLERR,R0
	JMP	$INIERR
LBLERR:	.ASCIZ	/INI -- TAPE LABEL MISMATCH/
	.EVEN
/