/ 
/ 
/                   FIRST PRINTING, FEBRUARY 1974
/ 
/ THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 
/ CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED
/ AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION.
/ DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPON-
/ SIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS
/ DOCUMENT.
/ 
/ THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FUR-
/ NISHED TO THE PURCHASER UNDER A LICENSE FOR USE ON
/ A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH
/ INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR 
/ USE IN SUCH SYSTEM, EXCEPT AS MAY OTHERWISE BE PRO-
/ VIDED IN WRITING BY DIGITAL.
/ 
/ DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
/ FOR THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIP-
/ MENT THAT IS NOT SUPPLIED BY DIGITAL.
/ 
/ COPYRIGHT (C) 1974, BY DIGITAL EQUIPMENT CORPORATION
/ 
/ 
        .EJECT
/COPYRIGHT 1970,1971, DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
/EDIT 4   7-1-71
/			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
	AND (477777)	/MASK OFF MODE BITS IN CASE FPP
	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
