C	PROGRAM BQDATA.FT
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	JAN 13, 1977
C	JAN 10, 1977
C	JAN 7, 1977
C	NOV 16, 1976
C	NOV 12, 1976
C
C	PURPOSE
C	-------
C	DO QMT DATA ACQUISITION USING BMAX9 (QDATA)
C	 AND DUMP DATA ON THE LPT:
C	SET DETB,C TO FULL, SET F&S TO <BMJ> AND THEN RESTORE IT LATER
C
C
S	OPDEF QPROG7 6433
C
	DIMENSION ISVFS(4),JFS(4),ISVSW(36)

C	[0] ENTRY PT
S	ENTRY BQDAT
S BQDAT,	BLOCK 2
C
C
C	[1] DEFINE BMOMNI CALLS AND SAVE SWITCHES
	MLDETBC=34
	MRDFS=20
	MLDFS=19
	KSUM=0
	DO 100 I=1,36
	K=ISW(I)
	KSUM=KSUM+K
	ISVSW(I)=K
100	ISW(I)=0
C
	IF(KSUM)101,102,101
C		THEN SET SWITCHES TO PERIMETER
101	ISVSW(30)=1
102	CONTINUE
C
C
C
C	[1.1] ENABLE STANDARD FRAME
C	TURN OFF MASK DISPLAY WITH QPROG7='1777 LAND IFILTOP
C	THIS IS NECESSARY IN ORDER TO PERFORM QMT DATA ACQUISITION
C	WITH FULL DETECTION IN THE BMJ FRAME.
S	TAD \IFILTOP
S	AND (1777
S	DCA \IFILTOP
S	TAD \IFILTOP
S	QPROG7
C
C
C	[2] SET THRESHOLDS
	ITHB=255
	ITHC=0
	CALL BMOMNI(0,0, ITHB,ITHC, 0,JUNK,MLDETBC)
C
C
C	[3] SAVE THE F&S
	CALL BMOMNI(0,0, 0,0,0, ISVFS,MRDFS)
C
C	SETUP F&S TO <BMJ>
	JFS(1)=LSAVE(13,JBM+1)
	JFS(2)=256
	JFS(3)=LSAVE(14,JBM+1)
	JFS(4)=256
	CALL BMOMNI(0,0, 0,0,0, JFS, MLDFS)
C
C
C	[4] GET DATA FOR FEATURE SWITCHES MENTIONED AT CD LEVEL
	IVAL=1
	DO 300 I=28,34
C	GET THE SWITCH
	ISW(I-1)=0
	ISW(I)=ISVSW(I)
	IF(ISW(I))310,300,310
C		THEN DO QDATA
310	CALL BMAX9
300	CONTINUE
C
C
C	[5] RESET THB,C AND F&S
	CALL BMOMNI(0,0, MDPDATA(5,7), MDPDATA(5,8),  0,JUNK,MLDETBC)
C
C	RESTORE THE F&S TO THAT OF <BMI>
	CALL BMOMNI(0,0, 0,0,0, ISVFS,MLDFS)
C
C	[6] RESTORE THE SWITCHES
	DO 500 I=1,36
500	ISW(I)=ISVSW(I)
C
C
C	[7] RESTORE THE F&S
C
C	RESTORE THE DISPLAY TO /B/M MODE 
S	TAD \IFILTOP
S	AND (1777
S	TAD (6000
S	DCA \IFILTOP
S	TAD \IFILTOP
S	QPROG7
C
C
C
S	RETRN BQDAT
C
	END
 