MPARMT.MAC;7/AU/-BF=MPARMT.MAC;6
-2,2,/;HJL064/
	.IDENT	/01.1/
-21,21,/;HJL064/
; VERSION:	01.1
-24,,/;HJL064/
; MODIFIED:
;
;	HJL064	SET UP VOLUME ID POINTER FOR ALL UNITS
;		WHETHER OR NOT A LABEL IS SPECIFIED
;
-379,,/;HJL064/
	ADD	#L.VID1,R1	; GET ADDRESS OF VOLUME NAME
-381,,/;HJL064/
	ADD	#L.VID2,R1	; GET ADDRESS OF VOLUME NAME
-382,,/;HJL064/
	MOV	R1,M.VIDP(R0)	; STORE ADDRESS OF VOLUME NAME
-418,426,/;HJL064/
	MOV	M.VIDP(R0),R1	; GET ADDRESS OF VOLUME NAME
	BR	125$		;
-432,432,/;HJL064/
	BR	125$
-435,438,/;HJL064/
/