typedef struct dinamika {char IMJ[10]; /*   имя параметра     */
                word  FOR_DIN :4;
                word  FOR_RAS :4;
                word  PR_AVAR :1;
                word  PR_SIFR :1;
                word  PR_ZN   :1;
                word  PR_OK   :1;
                word  PR_UP   :1;
                word  T_S_P   :2;
                word_s Y_MIN;
                word_s Y_MAX;
                word_s X_MIN;
                word_s X_MAX;
                word_s X_PRED;
                word  C_ZAP   :5;
                word  C_BOR   :5;
                word  O_ZAP   :5;
                word  P_P_Z   :1;
                word  N_KO    :5;   //Номер контроллера
                word  P_E     :1;   //Тип параметра
                word  NOM_PAR :10;  //Номер записи в паспорте контроллера
                word_s X_SIFR;word_s Y_SIFR;
                word_s X_ZN  ;word_s Y_ZN  ;
                word_s X_KUR ;word_s Y_KUR ;} dinami;

typedef struct domine {char IMJ[8]; /*   имя мнемосхемы                      */
                  word_s N_S;       /*   Нач N  записи статики  тек МС       */
                  word_s K_S;       /*   Кон N  записи статики  тек МС       */
                  word_s N_D;       /*   Нач N  записи динамики тек МС       */
                  word_s K_D;       /*   Kон N  записи динамики тек МС       */
                  word_s N_O;       /*   Нач N  записи коррект  тек МС       */
                  word_s K_O;       /*   Кон N  записи коррект  тек МС       */
                  char IMJ_OS [8];  /* имя основной МС для ссылающейся   */
         word      ZN_MS  : 2;      /* признак значимости мнемосхемы
                                 0-обычная мнемосхема;
                                 1-МС,ссылающаяся на основную МС;2-главная МС;       */
         word      Z2  : 4; /* запас                                 */
                                         } domim;


typedef struct objekte   { word_s N_O; /*   Нач N  записи статики тек обьекта тек МС */
                   word_s K_O; /*   Кон N  записи статики тек обьекта тек МС */
                                 } obje;
typedef struct statika   { word TIP  :5;
                           word STIL :3;
                           word COL  :4;
                           word OBRA :4;
                           word_s      s2,s3,s4,s5,s6,s7,s8,s9,s10;} statim;

//typedef struct statiks   { word_s s1,s2,s3,s4,s5,s6,s7,s8,s9,s10;} statis;

typedef struct mnemos { char SIFR_BL[10];
                        word SIG_N_K :4 ;
                        word SIG_N_P :8;
                        word kol_im  :4;
                        char IMJ[5][8]; /*   имя мнемосхемы 1 */} blokmn;
#define DI   (DINA +N_D[nscr])->
char * infil(char *fl,word_s *pnum,word_s lrec)   /* пп ввода файла         */;
extern statim *STATI;
extern word_s KOLST;
extern dinami *DINA;
extern word_s KOLDI;
extern domim *DOMI;
extern word_s KOLDO;
extern word_s N_D[];