;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;
;*NAME:		pmas_status
;
;*CATEGORY:	PMAS instrument control
;
;*PURPOSE:	determine current instrument control status
;
;*CALLING SEQUENCE:
;
;*PARAMETERS:
;	INPUT:	none
;
;	OUTPUT:	f_error		1 if formatting error, else 0
;		fits_dir	FITS data directory (string)
;               fits_fname      actual FITS file name (string)
;		fits_prefix	FITS prefix (string)
;		db_init		1 if ACE intialized, else 0
;		ace_up		ACE uptime in sec since init (integer)
;		ace_busy	1 if ACE busy, 0 if idle
;		ccd_read	1 if CCD readout underway, else 0
;		shutter		1 if Shutter open, 0 if closed
;		wait_data	1 if writing to FITS finished, 0 if pending
;		wipe		1 if wipe active, 0 if wipe off
;		pause		1 if readout has paused, 0 if readout unpaused
;		resumed		1 if paused readout has resumed, else 0
;		tel_move	- currently not used -
;               line_move       - currently not used - 
;	KEYWORDS:
;		/SILENT		if set, no printing on screen 
;		/DEBUG		if set, interpretation of strings printed
;
;
;*EXAMPLES:
;
;*SYSTEM VARIABLES USED:	- none -
;
;*COMMON BLOCKS:		- none -
;
;*INTERACTIVE INPUT:		- none -
;
;*SUBROUTINES CALLED:		- none -
;
;*FILES USED:			- none -
;
;*SIDE EFFECTS:		*** needs to be updated when ACE software is changed ! 
;
;*RESTRICTIONS:
;
;*NOTES:
;
;*PROCEDURE:
;
;*MODIFICATION HISTORY:
;
;	04/10/01	mmr	update conforming to ace S/W change
;	24/05/01	MMR	initial programming
;          
;*AUTHORS:
;
;	MMR		Martin M. Roth	Astrophysikalisches Institut Potsdam
;					An der Sternwarte 16
;					D-14547 Potsdam  
;					Tel. +49 - 331 - 7499 313
;                                       email: mmroth@aip.de
;-