module HRIVMEH
title 'To make the 2 fifos, the AM map and the SS map readable from VME'

"INPUTS
        CLK, INIT                               pin ;
        HRFQ7,  HRFQ8,  HRFQ9,  HRFQ10, HRFQ11  pin ;
        HRFQ12, HRFQ13, HRFQ14, HRFQ15, HRFQ16  pin ;
        HRFQ17, HRFQ18, HRFQ19, HRFQ20          pin ;
        HRSPY7,  HRSPY8 , HRSPY9 , HRSPY10      pin ;
        HRSPY11, HRSPY12, HRSPY13, HRSPY14      pin ;
        HRSPY15, HRSPY16, HRSPY17, HRSPY18      pin ;
        HRSPY19, HRSPY20                        pin ;
        IVADD17, IVADD18                        pin ; 
"Outputs
        IVDATA7,  IVDATA8, IVDATA9, IVDATA10,IVDATA11    pin ;
        IVDATA12, IVDATA13,IVDATA14,IVDATA15,IVDATA16    pin ;
        IVDATA17, IVDATA18,IVDATA19,IVDATA20             pin ;


"Assignments
 
        IHRBUS   = [HRFQ20..HRFQ7];
        IVDATABUS= [IVDATA20..IVDATA7];
        HRSPYBUS = [HRSPY20..HRSPY7] ;

Equations
        IVDATABUS =   IHRBUS & !IVADD18 & !IVADD17 
                  # HRSPYBUS & (IVADD18 #  IVADD17) ;
        HRSPYBUS :=   IHRBUS ;
        HRSPYBUS.CLK = CLK   ;
        HRSPYBUS.ar  = INIT  ;
End