.TITLE	.ARG
/
/  8 MAR 72 - PAUL HENDERSON
/
/  MACRO DEFINITION TO FETCH ARGUMENTS, ONE AT A TIME IN THE
/  HYBRID WATRAN ROUTINES.
/
EEM=707702
/
	.DEFIN	.ARG,?FETCH
	.IFDEF	FETCH
POINT.=14		/AT ENTRY TO SUBROUTINE OR FUNCTION,
			/POINTER TO OTABLE IS IN HARDWARE AC
	DAC*	(POINT.	/LOAD "POINT." WITH POINTER TO 'OTABLE'.
	.ENDC
/
	LAC*	POINT.
	DAC	CTABL.#	/FETCH TRUE ARGUMENT ADDRESS
	LAC*	CTABL.
	TAD	(1
	.ENDM
/
/  THE MODE OF A FUNCTION RESULT MUST BE INDICATED IN "MODEA"
/
/MODEA:	000000	I*4
/	200000	R*4
/	300000	R*8
/	400000	C*8
/	500000	C*16
/	600000	L
/	700000	CHARACTER - SIGNA CONTAINS CHARACTER COUNT
/			  - AUTO? POINTS TO CHARACTER STRING
/
/
/  DEFINE SOFTWARE INTEGER ACCUMULATOR BY MACRO, SINCE THE NAME WILL
/  BE CHANGING IN THE FUTURE, AND THIS MAKES IT LESS PAINFUL TO MAKE
/  A CHANGE THEN.
/
	.DEFIN	INTACC
	.GLOBL	INT1,INT2,MODEA	/INTEGER SOFTWARE ACCUMULATORS
MOSTI=INT1
LEASTI=INT2
.MODEA=MODEA
	.ENDM
/
/  DEFINE SOFTWARE LOGICAL ACCUMULATOR BY A MACRO, SINCE ACTUAL NAME
/  MAY CHANGE AT SOME TIME IN THE FUTURE.
/
	.DEFIN	LOGAC
	.GLOBL	LOGACC,MODEA
LOGICA=LOGACC
.MODEA=MODEA
	.ENDM
	.EOT