C INTEGER*4 LIN_TBL_SIZE PARAMETER(LIN_TBL_SIZE=16384) BYTE LIN_STMT(LIN_TBL_SIZE) INTEGER*2 LIN_NUM(LIN_TBL_SIZE) INTEGER*4 LIN_ADR(LIN_TBL_SIZE), LIN_TBL_PTR, OLD_LINTB_PTR C COMMON/LIN_TBL/ + LIN_TBL_PTR, + OLD_LINTB_PTR, + LIN_ADR, + LIN_NUM, + LIN_STMT C