.TITLE	.ARG
/
/  16 JUL 73 - DEFINE SYMBOL 'WATRAN'
/  30 OCT 72 - CHANGE NAME CONVENTION OF ACCUMULATORS
/  14 FEB 72 - ADD INTEGER & LOCICAL ACCUMULATORS
/  10 FEB 72 - PAUL HENDERSON
/
/  MACRO DEFINITION TO FETCH ARGUMENTS, ONE AT A TIME IN THE
/  HYBRID WATRAN ROUTINES.
/
WATRAN=1
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
	.ENDM
/
/  DEFINE SOFTWARE LOGICAL ACCUMULATOR BY A MACRO, SINCE ACTUAL NAME
/  MAY CHANGE AT SOME TIME IN THE FUTURE.
/
	.DEFIN	LOGAC
	.GLOBL	.LOGAC,.MODEA
LOGICA=.LOGAC
	.ENDM
	.EOT