*file member=anxx_data_com library=snoman language=inc date=08:Nov:2004
<<<* ANX: ANXX Banks Processor.
* Contact: M. Huang, Texas
* Program Notes:-
* =============
* Titles bank mnenmonics and common block for ANXX banks.
* Revision History:-
* ================
* 5.01 M. Huang First version.
* Address mnemonics for titles bank ANCT.
integer KANX_DATA_TYPE1, KANX_DATA_TYPE2, KANX_DATA_TYPE3,
+ KANX_TAC_LO, KANX_TAC_UP, KANX_QHS_LO, KANX_QHS_UP,
+ KANX_QHL_LO, KANX_QHL_UP, KANX_QLX_LO, KANX_QLX_UP,
+ KANX_TAC_CUT, KANX_QHS_CUT, KANX_QHL_CUT, KANX_QLX_CUT,
+ KANX_TAC_LO_CUT, KANX_TAC_HI_CUT,
+ KANX_QHS_LO_CUT, KANX_QHS_HI_CUT,
+ KANX_QHL_LO_CUT, KANX_QHL_HI_CUT,
+ KANX_QLX_LO_CUT, KANX_QLX_HI_CUT,
+ KANX_LOW_OCC_CUT, KANX_ORPHAN_CUT,
+ KANX_SYNC_FAIL_CUT, KANX_CELL_CUT, KANX_HIGH_OCC_CUT,
+ KANX_TIME_INTERVAL,KANX_FLAG_OLD, KANX_GR_CUT
parameter( KANX_DATA_TYPE1 = 1, KANX_DATA_TYPE2 = 2,
+ KANX_DATA_TYPE3 = 3,
+
+ KANX_TAC_LO = 4, KANX_TAC_UP = 5,
+ KANX_QHS_LO = 6, KANX_QHS_UP = 7,
+ KANX_QHL_LO = 8, KANX_QHL_UP = 9,
+ KANX_QLX_LO = 10, KANX_QLX_UP = 11,
+
+ KANX_TAC_CUT = 12, KANX_QHS_CUT = 13,
+ KANX_QHL_CUT = 14, KANX_QLX_CUT = 15,
+
+ KANX_TAC_LO_CUT = 16, KANX_TAC_HI_CUT = 17,
+ KANX_QHS_LO_CUT = 18, KANX_QHS_HI_CUT = 19,
+ KANX_QHL_LO_CUT = 20, KANX_QHL_HI_CUT = 21,
+ KANX_QLX_LO_CUT = 22, KANX_QLX_HI_CUT = 23,
+
+ KANX_LOW_OCC_CUT = 24, KANX_ORPHAN_CUT= 25,
+ KANX_SYNC_FAIL_CUT = 26, KANX_CELL_CUT = 27,
+ KANX_HIGH_OCC_CUT = 28, KANX_TIME_INTERVAL = 29,
+ KANX_FLAG_OLD = 30, KANX_GR_CUT = 31)
* ANxx tube failure bit mask Mnemonics
integer KANX_FLAG_ZERO_OCC, ! zero occupancy
+ KANX_FLAG_TAC_ORIG, ! fails original TAC cut
+ KANX_FLAG_TAC_LO, ! fails TAC low side cut
+ KANX_FLAG_TAC_HI, ! fails TAC low side cut
+ KANX_FLAG_QHS_ORIG, ! fails original QHS cut
+ KANX_FLAG_QHS_LO, ! fails QHS low side cut
+ KANX_FLAG_QHS_HI, ! fails QHS low side cut
+ KANX_FLAG_QHL_ORIG, ! fails original QHL cut
+ KANX_FLAG_QHL_LO, ! fails QHL low side cut
+ KANX_FLAG_QHL_HI, ! fails QHL low side cut
+ KANX_FLAG_QLX_ORIG, ! fails original QLX cut
+ KANX_FLAG_QLX_LO, ! fails QLX low side cut
+ KANX_FLAG_QLX_HI, ! fails QLX low side cut
+ KANX_FLAG_SYNC, ! fails sync clear test
+ KANX_FLAG_CELL_ID, ! fails cell ID# increment test
+ KANX_FLAG_ORPHAN, ! fails excessive orphan cut
+ KANX_FLAG_HIGH_OCC, ! fails high occupancy cut
+ KANX_FLAG_LOW_OCC, ! fails low occupancy cut
+ KANX_FLAG_GAIN_RATIO, ! fails EHS/ELX gain ratio cut
+ KANX_FLAG_FORMER_TAC, ! failed last PCA TAC test
+ KANX_FLAG_FORMER_QHS, ! failed last PCA QHS test
+ KANX_FLAG_FORMER_QHL, ! failed last PCA QHL test
+ KANX_FLAG_FORMER_QLX, ! failed last PCA QLX test
+ KANX_FLAG_FORMER_GR ! failed last PCA gain ratio test
parameter( KANX_FLAG_ZERO_OCC =0,
+ KANX_FLAG_TAC_ORIG =1,
+ KANX_FLAG_TAC_LO =2,
+ KANX_FLAG_TAC_HI =3,
+ KANX_FLAG_QHS_ORIG =4,
+ KANX_FLAG_QHS_LO =5,
+ KANX_FLAG_QHS_HI =6,
+ KANX_FLAG_QHL_ORIG =7,
+ KANX_FLAG_QHL_LO =8,
+ KANX_FLAG_QHL_HI =9,
+ KANX_FLAG_QLX_ORIG =10,
+ KANX_FLAG_QLX_LO =11,
+ KANX_FLAG_QLX_HI =12,
+ KANX_FLAG_SYNC =13,
+ KANX_FLAG_CELL_ID =14,
+ KANX_FLAG_ORPHAN =15,
+ KANX_FLAG_HIGH_OCC =16,
+ KANX_FLAG_LOW_OCC =17,
+ KANX_FLAG_GAIN_RATIO =18,
+ KANX_FLAG_FORMER_TAC =24,
+ KANX_FLAG_FORMER_QHS =25,
+ KANX_FLAG_FORMER_QHL =26,
+ KANX_FLAG_FORMER_QLX =27,
+ KANX_FLAG_FORMER_GR =28)
* Address mnemonics for titles bank ANXX. ! TEST - MH, don't need this
*
* integer KANX_MASK_BIT
* parameter( KANX_MASK_BIT = 1)
* Link Access Block for titles bank ANCT.
integer laanct(8), lanct, ldanct
equivalence (laanct(6), lanct), (laanct(7), ldanct)
* Link Access Block for titles bank ANSD ! TEST - MH, don't need this
integer laansd(8), lansd, ldansd
equivalence (laansd(6), lansd), (laansd(7), ldansd)
* ANXX banks title filename
character file_name*60
common /anxx_data_com/ laanct, laansd
common /anxx_title_filename/ file_name
*endfile member=anxx_data_com