.MACRO	$CALLG SUBROUTINE,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10
	.NARG	ARGCOUNT
	MOV	R5,-(SP)
	.IRP	ARG,<A10,A9,A8,A7,A6,A5,A4,A3,A2,A1>
	.IF	NB ARG
	MOV	ARG,-(SP)
	.ENDC
	.ENDR
	MOV	#ARGCOUNT-1,-(SP)
	MOV	SP,R5
	CALL	SUBROUTINE
	ADD	#ARGCOUNT*2,SP
	MOV	(SP)+,R5
	.ENDM	$CALLG