.MACRO	PARMSA A1,A2,A3,A4,A5,A6,A7,A8,A9,A10
;
; THIS MACRO CREATES A FORTRAN-STYLE PARAMETER LIST ON THE STACK,
; LEAVING R5 POINTING TO THE START OF THE LIST.
; THE MACRO PARAMETERS ARE TAKEN TO BE ADDRESSES OF THE ACTUAL PARAMS
; TO CLEAR THE STACK,
; SP SHOULD BE INCREMENTED BY PARMSP.
;
	.NARG	PARMSN	;NUMBER OF ARGUMENTS
;
PARMSP=0
	.IRP	ARG,<A10,A9,A8,A7,A6,A5,A4,A3,A2,A1>
	.IF	NB,ARG
PARMSP=PARMSP+2
	MOV	ARG,-(SP)	;STORE ADDRESS
	.IFF
	.IF	NE,PARMSP
PARMSP=PARMSP+2
	MOV	#-1,-(SP)
	.ENDC
	.ENDC
	.ENDR
	MOV	#PARMSN,-(SP)
	MOV	SP,R5		;SET UP PARAM LIST POINTER
PARMSP=PARMSP+2
	.ENDM