.TITLE	TESTAM
/
/  18 FEB 72
/
/  MACRO ROUTINE TO SWAP I AND J
/
	.GLOBL	TESTAM
/
TESTAM	XX
	.ARG	TESTAM
	DAC	I3
/
/  GET 2ND ARGUMENT
/
	.ARG
	DAC	J3
/
/  NOW SWAP DATA
/
	LAC*	I3
	DAC	TEMP3
	LAC*	J3
	DAC*	I3
	LAC	TEMP3
	DAC*	J3
	JMP*	TESTAM
/
I3;J3;TEMP3
	.END