//_Header
//*******************************************************************
//    NOVA Laser Diagnostics ---  Lawrence Livermore Laboratory
//*******************************************************************
//
//_Module_Name:  LDVAXTYPE		_File:  [LDDEV.VAX]LDVAXTYPE.PRX
//
//_Description:
//	This defines laser diagnostics types used only 
//	in the VAX.
//_Call:
//	
//*******************************************************************
//_Author:  J. L. WILKERSON		_Creation_Date:  29-NOV-1982
//_Revisions:
//  1.000  29-NOV-1982  JLW	Initial Key-in.
//  1.001  7-jun-1984   JLW	nova_chain_strings for freqcntl.
//*******************************************************************
%ident "1.001"
//_End
   module ldvaxtype

    	export located_by 
	export ld_main_menu_select 
        export laser_shot_commands
        export laser_shot_enumeration 
        export Nova_chain_strings 
    	export ld_fep_array_type 
        export answering_sensor 
        //export region_array_type 
    	export mor_calibration_channel_names 
    	export mor_calibration_names 
    	export remote_calorimeter_csr_type 
    	export remote_calorimeter_drout_type 
    	export remote_calorimeter_drin_type 

    use ldtypes

    declare
	ld_main_menu_select is [ display_menu, 
    				location_menu, 
    				sensor_control, 
    				streak_camera , 
    				transient_digitizer,
    				DEP_CONTROL,
				RATIO_FUNCTIONS,
    				kdp_menu ]

	located_by_string is packed array[1..8] of char
	located_by_type is array [ ld_main_menu_select ] of located_by_string
    	located_by : located_by_type initially table located_by_type 
    		( "DISPLAY ", "LOC MENU", " SENSORS", 
		  " STREAK ",  " TK7912 ", "  DEPS  ",
		  " RATIO  ","KDP MENU" )



      laser_shot_commands is [
    		prepare_for_shot,
    		process_post_shot
    				]

      laser_shot_enumeration is [ 
    		dry_run ,
    		rod_shot,
    		target_shot
    		]
    
    ld_fep_array_type is array[ nova_siad_range ] of LD_FEP_DESCRIPTOR_TYPE 
    	answering_sensor is packed array [ld_channel_range] of 8 bit integer
        //region_array_type is array[ 1..5 ] of REAL_ARRAY_TYPE

    		one_bit is 1 bit logical
    	remote_calorimeter_csr_type is packed structure 
    		csr_0	: one_bit
    		csr_1	: one_bit
    			fill  ( 5 bit )
    		int_enable_b : one_bit
    		int_enable_a : one_bit
    		req_a	: one_bit
    			fill  ( 5 bit )
    		req_b   : one_bit
    	endstructure

    	remote_calorimeter_drout_type is packed structure 
    		bcd_out : 4 bit cardinal
    		fill  (12 bit)
    	endstructure

    	remote_calorimeter_drin_type is packed structure 
    		bcd_in : 4 bit cardinal
    		fill  ( 1 bit )
    		link_fail : one_bit
    		power_ok : packed array [1..10] of one_bit
    	endstructure

    	mor_calibration_channel_names is [
    		sp_osc_train_channel,
    		sp_osc_pulse_channel,
    		lp_osc_train_channel,
    		lp_osc_pulse_channel,
    		mor_output_channel,
    		regen_osc_pulse_channel,
    		regen_osc_train_channel,
    		regen_osc_output_channel,
    		probe_beam_output_channel,
    		spare_calibration_channel ]

    	mor_calibration_names_table_t is packed array [1..15] of char
    	mor_calibration_names_table is array [mor_calibration_channel_names ] 
    		of mor_calibration_names_table_t
    	mor_calibration_names = table mor_calibration_names_table (
    		"  SP OSC TRAIN ",
    		"  SP OSC PULSE ",
    		"  LP OSC TRAIN ",
    		"  LP OSC PULSE ",
    		"   MOR OUTPUT  ",
    		"  REGEN PULSE  ",
    		"  REGEN TRAIN  ",
    		"  REGEN OUTPUT ",
    		"  PROBE OUTPUT ",
    		"  SPARE CHANNEL" )

    	xx_kers is packed array [1..2] of char
    	Nova_chain_strings_array is array [0..high(nova_ld_arms_range)] of xx_kers
    	Nova_chain_strings = table Nova_chain_strings_array (
    		 "  ", "01", "02", "03", "04", "05", "06", "07", "08", "09", "10" )
    enddeclare
    endmodule