.TITLE	ARITHMETIC STATEMENT FUNCTION CALL
/
/   5 FEB 74 (PDH) TYPE IT UP
/     APR 73 - J.A. FIELD
/
/  TRANSFER ARGUMENTS OF ARITHMETIC STATEMENT FUNCTION.  ALL ARGUMENTS
/  MUST BE CONSTANTS OR SIMPLE VARIABLES.
/
	.GLOBL	.ASFCL,.INTRP,.NERR
/
.ASFCL	XX
	DAC*	(AUTO3		/SAVE POINTER TO ARGUMENT LIST
	LAC*	.ASFCL
	DAC	COUNT		/ARGUMENT COUNT
	ISZ	.ASFCL
	LAC*	.ASFCL
	DAC	ENTRY		/STARTING ADDRESS
	ISZ	.ASFCL
	LAC	.ASFCL
	.IFDEF	PDP15		/DEFINITION WILL OCCUR ON
	AND	(077777		/PARAMETER TAPE, IF NECESSARY
	.ENDC
	DAC	TABLE		/OTABLE ADDRESS
	TAD	(5
	DAC*	(AUTO4		/FORMAL PARAMETER LOCATIONS
LOOP	LAC*	AUTO3
	DAC	.ASFCL		/MOVE ARGUMENT ADDRESS TO
	SPA			/STATEMENT FUNCTION OTABLE
	JMP	ERR105
	LAC*	.ASFCL
	DAC*	AUTO4
	ISZ	COUNT
	JMP	LOOP
	JMS*	.INTRP		/CALL INTERPRETER
TABLE
ENTRY
/
ERR105	LAW	105		/INSUFFICIENT OR INVALID ARGUMENTS
	JMP*	.NERR
COUNT
	.END