
C	PROGRAM CAMERA.FT
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	MARCH 10, 1977
C	FEB 11, 1977
C
C	INTRODUCTION
C	------------
C	CAMERA.FT IS A CHAINED PROGRAM USED WITH BMON2
C	IT RECEIVES ITS ARGUMENTS FROM THE CD AREA AND THE IBM1,IHGH1
C	IBM2,IHGH2, JBM, JHGH  VARIABLES IN COMMON. COMMON IS RESTORED
C	FIRST BEFORE THE FUNCTION (TO BE INSERTED INTO THE BODY) IS
C	EVALUATED. AFTER THE FUNCTION IS PERFORMED, COMMON
C	IS SAVED AND BMON2 IS CHAINED BACK TO.
C	ANY COMPUTATIONS ARE DONE, THE ARGUMENTS ARE THEN CHECKED
C
C	 CAMERA  (Opt. /A to take picture automatically) - print
C	 a message on the teletype and  ring  the  teletype bell
C	 bell  until  a  carrage  return  is  typed.  If  /A  is
C	 specified, then print the message but do not pause  for
C	 user  response. Instead take a picture by signaling the
C	 automatic 35MM  camera  (or  16  MM  movie  camera)  by
C	 closing the camera relay (EXOUT channel 0 bit 11) for 1
C	 msec.
C	OPDEFS
C	------
S	OPDEF	TADI	1400
S	OPDEF	DCAI	3400
C
S	OPDEF	MQA	7501
S	OPDEF	MQL	7421
S	OPDEF   KRS	6034
S	OPDEF	BSW	7002
C
C
S	OPDEF	HPL	6360
S	OPDEF	HSR	6321
S	OPDEF	VPL	6362
S	OPDEF	VSR	6323
C
S	OPDEF	EXADR	6450
S	OPDEF	EXOUT	6451
C
C
C
C	[1] INITIALIZATION
	DO 99 IDEV=1,3,2
99	WRITE(IDEV,995)
995	FORMAT(' CAMERA 3/10/77 - 9:45PM')
C
C
C	[1.1] GET THE NUMBER OF SECONDS IN THE EXPOSURE
S	TAD \ICNUM
S	SNA
S	CLA IAC
S	DCA \ITIME
C	[1.2] TEST IF ON AUTO CAMERA
	IF(ISW)300,250,300
C
C
C	[2] MANUAL CAMERA
250	DO 251 IDEV=1,3,2
251	WRITE(IDEV,252)
252	FORMAT(' PRESS RETURN AFTER TAKING PICTURE')
C
S \200,	TAD (207
S	TLS
S DING,	TSF
S	JMP DING
S	CLA
C
C	WAIT 1 SEC
	DO 201 I=1,50
	CALL CLOCK
201	CONTINUE
C	TEST IF CONTINUE
S	KSF
S	JMP \200 /NOT YET
C
C	YES, TEST IT FOR RETURN
S	KRB
S	AND (177
S	TAD (200
S	TAD (-215 /CR
S	SZA CLA
S	JMP \200
C
C	[3] RUN AUTO CAMERA
S \300,	TAD (0 /CHANNEL 0
S	EXADR
S	TAD (0001 /TURN ON CHANNEL 0[11]
S	EXOUT
C
C
C	WAIT ITIME SEC
	DO 301 J=1,ITIME
	DO 301 I=1,200
	CALL CLOCK
301	CONTINUE
C
C	CLEAR CHANNEL 0 BIT 11.
S	CLA
S	EXOUT
C
C	[4] RETURN TO BMON2
	CALL CHAIN('BMON2')
	END
  