/COPYRIGHT 1970, DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
/EDIT 3   9-25-70
/			SHORT GET ARGUMENT ROUTINE (.CB)
/		CALLING SEQUENCE
/.XX	CAL	0		ENTRY-EXIT FOR CALLING ROUTINE
/	JMS*	(.CB)		SUBR CALL
/	CAL	0		STORAGE FOR ADDR OF ARGUMENT
/	NEXT	INSTRUCTION	SUBR RETURN
/
	.GLOBL	.CB		/ *** DDS DEC68 ***
	.IFDEF TIME%
	.GLOBL TIMON,TIMOFF
	.ENDC
/CONDITIONAL CODE...WAD...JULY 69
.CB	CAL	0		/ENTRY-EXIT
	.IFDEF TIME%
	JMS* TIMON
	.DSA 123
	.ENDC
	LAW	-2		/GET CALLERS EXIT
	TAD	.CB
	DAC	CE14
	LAC*	CE14		/GET(ARG ADDR) ADDR
	ISZ*	CE14		/BUMP CALLERS EXIT
	DAC	CE14		/STORE ARG ADDR
	LAC*	CE14		/GET ARG ADDR
	DAC	CE14
	SPA			/IS INDIRECT
	LAC*	CE14		/ACCESS AGAIN
	DAC*	.CB		/STORE ARG ADDR IN CALLING ROUT
	ISZ	.CB		/BUMP EXIT
	.IFDEF TIME%
	JMS* TIMOFF
	.DSA 123
	.ENDC
	JMP*	.CB		/EXIT
CE14	000000			/ *** DDS DEC68 ***
CB01	077777			/ *** DDS DEC68 ***
	.END
