.TITLE	.DA
/
/  16 JUL 73 - PAUL HENDERSON
/
/  MACRO DEFINITION TO FETCH ARGUMENTS, ONE AT A TIME, IN THE
/  HYBRID ROUTINES FOR DEC FORTRAN
/
F4=1
EEM=707702
/
	.DEFIN	.ARG,?FETCH
	.IFDEF	FETCH
ENTRY=FETCH
	ISZ	ENTRY		/INDEX PAST 'JMP .+N+1'
	.ENDC
	LAC*	ENTRY
	ISZ	ENTRY
	DAC	ERROR		/ERROR IS ALWAYS LAST ARGUMENT
	SPA			/AND IS ASSUMED TO BE ALWAYS PRESENT
	LAC*	ERROR
	.ENDM
	.DEFIN	INTACC
	.ENDM
	.DEFIN	LOGAC
	.ENDM
	.EOT