!-- File:	ZSIBITS     { SI Names and Bit Masks }
!-- Date:	07/16/91

!--
!-- this file contains the SI names and associated bit masks that are required
!-- thruout spss. 
!--

	integer*2       num_of_sis
	parameter	(num_of_sis=10)

	integer*2	si_masks(num_of_sis)
	data		si_masks / '8000'X, '4000'X, '2000'X, '1000'X, '0800'X,
	1			   '0400'X, '0200'X, '0100'X, '0080'X, '0040'X /

	character*4	si_names(num_of_sis)
	data		si_names / 'HRS'  , 'HSP'  , 'FOC'  , 'FOS'  , 'WFPC' ,
	1			   'FGS'  , 'WFII' , 'CSTR' , 'NIC'  , 'STIS'  /

!--     SI ID numbers are corresponding to SI_NAMES

        integer*2	HRS_ID, HSP_ID, FOC_ID, FOS_ID, WFPC_ID, FGS_ID,
	1		WFII_ID, CSTR_ID, NIC_ID, STIS_ID
	parameter      (HRS_ID  = 1, HSP_ID  = 2, FOC_ID  = 3, FOS_ID  = 4,
	1	        WFPC_ID = 5, FGS_ID  = 6, WFII_ID = 7, CSTR_ID = 8,
	1               NIC_ID  = 9, STIS_ID = 10)