C	PROGRAM STAGE.FT
C	------------------
C
C	*** SUBROUTINE STAGE(MTRNAME,STEPS,IABSRELSW,IERR)
C
C
C
C	PETER LEMKIN
C	IMAGE PROCESSING UNIT, DCBD
C	NATIONAL CANCER INSTITUTE
C	NATIONAL INSTITUTES OF HEALTH
C	9000 ROCKVILLE PIKE
C	BETHESDA, MD. 20014
C
C
C
C	NOV 16, 1976
C	NOV 12, 1976
C
C	PURPOSE
C	-------
C	MOVE THE STAGE THE SPECIFIED  NUMBER OF STEPS
C	ABSOLUTE OR RELATIVE. IF AN ERROR OCCURS
C	IT WILL BE REPORTED IN IERR.
C
C
C	ARGUMENTS
C	---------
C	MTRNAME - NAME OF THE MOTOR TO BE MOVED (SEE TABLE BELOW)
C	STEPS	- FLOATING POINT NUMBER OF STEPS TO MOVE
C	IABSRELSW - SWITCH WHICH DETERMINES WHETHER MOVE
C			ABSOLUTE (1) OR RELATIVE (0)
C	IERR	- POSSIBLE ERRORS WHICH OCCURED (LOOK AT ON THE RETURN)
C		(SEE TABLE).

C
C
C	IERR	ERROR TYPE
C	----	----------
C	921	ILL MTRNAME
C	922	ILL OPERATOR
C	923	+ STEPS > UPPER LIMIT
C	924	- STEPS < LOWER LIMIT
C
C	THE MOTORS ARE AS FOLLOWS:
C	MTRNAME	MOTOR
C	------	-----
C	   1	WAVELENGTH (ALIAS FREQUENCY)
C	   2	DENSITY (ALIAS INTENSITY)
C	   3	ZOOM
C	   4	 Z (FOCUS)
C	   5	 Y (STAGE)
C	   6	 X (STAGE)
C	   7	THRESHOLD #1
C	   8	THRESHOLD #2
C	   9	SPARE 1
C	  10	SPARE 2
C	  11	NOT USED
C	  12	NOT USED
C
C	[0] GET THE ARGS
S	DUMMY CC
S	CPAGE 2
S CC,	BLOCK 2 /ARG FETCHER
C
S	ENTRY STAGE
S	CPAGE 2
S STAGE,	BLOCK 2
C
C	GET MTRNAME
S	TAD I STAGE
S	DCA CC
S	INC STAGE#
S	TAD I STAGE
S	DCA CC#
S	INC STAGE#
S	TAD I CC
S	DCA \MTRNUM
C
C	GET STEPS
S	TAD I STAGE
S	DCA CC
S	INC STAGE#
S	TAD I STAGE
S	DCA CC#
S	INC STAGE#
S	CALL 1,IFAD
S	ARG CC
S	CALL 1,STO
S	ARG \STEPS
C
C	GET IABSRELSW
S	TAD I STAGE
S	DCA CC
S	INC STAGE#
S	TAD I STAGE
S	DCA CC#
S	INC STAGE#
S	TAD I CC
S	DCA \MTROP
C
C	GET IERR
S	TAD I STAGE
S	DCA CC
S	INC STAGE#
S	TAD I STAGE
S	DCA CC#
S	INC STAGE#
C
C
C
C
C	[1] CVT ARGS TO COMMON VARIABLES
	CALL DPCVRT(MLOVAL,STEPS,1)
S	TAD \MTROP
S	SZA CLA
S	IAC /ABSOLUTE
S	TAD (3 /RELATIVE
S	DCA \MTROP
C
C
C	[2] CHANGE DESIRE BY "STEPS"
	CALL MOTORS
	IF(IERRNUM)999,100,999
C
C
C	[3] MOVE THE STAGE UNTIL DONE
100	CALL MVMTR
	CALL CLOCK
	IF(IERRNUM)999,102,999
102	IF(MTRWRD)100,999,100
C
C
C	[4] DONE
999	CONTINUE
S	TAD \IERRNUM
S	DCA I CC /IERR
S	RETRN STAGE
C
	END
   