*20
/
/PARAMS
/D.J.NICHOLS
/UNIV OF WISCONSIN COMPUTOR CENTER
/
/PARAMETER PICKUP ROUTINE
/CALLING SEQUENCE
/   LDA
/   0
/   JMP 8P
/     NT+1,NP
/   ADDRESS FOR RETURN JUMP
/   ADDRESS FOR PARAMETER 1
/   ADDRESS FOR PARAMETER 2
/     .
/     .
/   ADDRESS FOR PARAMETER NT
/   RETURNS HERE
/
	P8=.
	SET  3  /SAVE RETURN TO SUBROUTINE
	0
	ADA I  /FORM PARAMETER ADDRESS IN MAIN PRGM
	4\-JMP -1
	STC  1
	ADD  3 /FORM PARAMETER ADDRESS IN SUBROUTINE
	ADD  .-3
	STC  2
	LDH I 2 /LOAD NT+1, Z PARAMS TO TRANSFER
	XSK I 3
	ADD  3 /FORM RETURN TO SUBROUTINE
	STC  .+22
	LDH  2 /SETUP TRANSFER COUNTER
	COM 
	STC  3
	LDH I 2 /LOAD NP, TOTAL Z PARAMS
	ADD  1 /FORM RETURN JUMP TO MAIN PROGRAM
	ADA I 
	2001
	STC  .+4
	LDA I 2 /LOAD ADDRESS
	STC  .+4
	LDA I  /LOAD PARAMETER
	0
	STA  /STORE IN SPECIFIED ADDRESS
	0
	LDA I 1 /LOAD NEXT PARAMETER
	XSK I 3 /ENOUGH PARAMS TRANSFERRED?
	JMP  .-11 /NO:  STORE
	JMP 0	/YES: BACK TO THE SUBROUTINE
/END PARAMS
$ IN SUBROUTINE
	ADD  .-3
	STC  2
	LDH I 2 /LOAD NT+1, Z PARAMS TO TRANSFER
	X