C	PROGRAM TIMTST.FT
C	--------------
C	TIMES THE DO LOOP IN CURRENT FIELD, COMMON FIELD VARIABLES
C
	COMMON LK,LI,LJ
C
S	OPDEF	QSTAT	6374
S	OPDEF DISP1	6435
S	OPDEF	DISP2	6436
C
C	[0] INIT
	ITIMES=50
	F=ITIMES
C
C	[1] DO IT LOCALLY!
	FA=TIMER(0)
	DO 100 K=1,ITIMES
S	TAD \K
S	QSTAT
	  DO 100 I=1,256
S	  TAD \I
S	  DISP2
		DO 100 J=1,256
S		TAD \J
S		DISP1
100	CONTINUE
	FA=TIMER(1)
	WRITE(3,101)FA/F
101	FORMAT(' AVG TIME FOR DOUBLE 256X256 DO LOOP=',F9.3,'SEC.')
C
C
C	[2] DO IT COMMON!
	FA=TIMER(0)
	DO 200 LK=1,ITIMES
S	TAD \LK
S	QSTAT
	  DO 200 LI=1,256
S	  TAD \LI
S	  DISP2
		DO 200 LJ=1,256
S		TAD \LJ
S		DISP1
200	CONTINUE
	FA=TIMER(1)
	WRITE(3,201)FA/F
201	FORMAT(' AVG TIME FOR DBL CMN 256X256 DO LOOP=',F9.3,'SEC.')
C
C
C	[3] ISZ IT LOCALLY!
	FA=TIMER(0)
	DO 300 K=1,ITIMES
S	TAD \K
S	QSTAT
C
S	  TAD (-D256
S	  DCA \I
S \310,	  TAD \I
S	  DISP2
S		TAD (-D256
S		DCA \J
S \320,		TAD \J
S		DISP1
S		ISZ \J
S		JMP \320
S	  ISZ \I
S	  JMP \310
300	CONTINUE
	FA=TIMER(1)
	WRITE(3,301)FA/F
301	FORMAT(' AVG TIME FOR DOUBLE 256X256 ISZ LOOP=',F9.3,'SEC.')
C
C
C	[4] ISZ IT COMMON!
	FA=TIMER(0)
	DO 400 LK=1,ITIMES
S	TAD \LK
S	QSTAT
C
S	  TAD (-D256
S	  DCA \LI
S \410,	  TAD \LI
S	  DISP2
S		TAD (-D256
S		DCA \LJ
S \420,		TAD \LJ
S		DISP1
S		ISZ \LJ
S		JMP \420
S	  ISZ \LI
S	  JMP \410
400	CONTINUE
	FA=TIMER(1)
	WRITE(3,401)FA/F
401	FORMAT(' AVG TIME FOR DBL CMN 256X256 ISZ LOOP=',F9.3,'SEC.')
C
C
	END