.TITLE	TESTP
/
/  18 FEB 72
/
/  MACRO ROUTINE TO SWAP I AND J
/
	.GLOBL	TESTP,.POINT
/
TESTP	XX
	LAC*	.POINT
	TAD	(1
	DAC	POINTR
/
	LAC*	POINTR
	DAC	CTABLE
	LAC*	CTABLE
	TAD	(1
	DAC	I1
/
/  GET 2ND ARGUMENT
/
	ISZ	POINTR
	LAC*	POINTR
	DAC	CTABLE
	LAC*	CTABLE
	TAD	(1
	DAC	J1
/
/  NOW SWAP DATA
/
	LAC*	I1
	DAC	TEMP1
	LAC*	J1
	DAC*	I1
	LAC	TEMP1
	DAC*	J1
	JMP*	TESTP
/
POINTR;CTABLE;I1;J1;TEMP1
	.END