	.TITLE ADJ1
/COPYRIGHT 1970, DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
/
/SUBROUTINE TO PERFORM DIMENSION ADJUSTMENT
/	ON A ONE DIMENSIONAL ARRAY
/
/CALLING SEQUENCE:
/	.GOBL	ADJ1
/JMS*	ADJ1			/SIZE 15 (DECIMAL)
/	JMP	.+3
/	.DSA	A		/ADDRESS OF ARRAY DESCRIPTOR BLOCK
/	.DSA	B		/ADDRESS OF 1ST ELEMENT IN NEW ARRAY
/
	.GLOBL	ADJ1,.DA
ADJ1	0
	JMS*	.DA		/GET ARGUMENT
	JMP	.+3
ARYDIS	0			/ARRAY DESCRIPTOR
ARYSTR	0			/ARRAY START
	LAC	ARYSTR
	DAC*	ARYDIS		/SET NEW STARTING ADDRESS
	LAW	-2
	TAD	ARYDIS
	DAC	ARYDIS		/1ST OF TWO DIMENSION WORDS
	DZM*	ARYDIS		/SET TO ZERO
	ISZ	ARYDIS
	DZM*	ARYDIS		/SET TO ZERO
	JMP*	ADJ1		/RETURN
	.END
