.TITLE	TESTAS
/
/  18 FEB 72
/
/  MACRO ROUTINE TO SWAP I AND J
/
	.GLOBL	TESTAS,.ARG
/
TESTAS	XX
	JMS*	.ARG
	JMP	.+3
I2
J2
/
/  NOW SWAP DATA
/
	LAC*	I2
	DAC	TEMP2
	LAC*	J2
	DAC*	I2
	LAC	TEMP2
	DAC*	J2
	JMP*	TESTAS
/
TEMP2
	.END