home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 2 / RISC_DISC_2.iso / pd_share / program / language / oberon / potsrc / src / c / COCS < prev    next >
Encoding:
Text File  |  1995-05-07  |  70.0 KB  |  1,244 lines
  1. /* This code is generated by pOt. */
  2.  
  3. #include <pOtRTL.h>
  4. #include "Files.h"
  5. #include "Reals.h"
  6. #include "Texts.h"
  7. #include "Throwback.h"
  8.  
  9. #include "hi.COCS"
  10.  
  11. typedef struct pOt__tag_0_COCS pOt_errormsg_COCS;
  12.  
  13. struct pOt__tag_0_COCS {
  14.   pOt__ArrTypDsc *td;
  15.   pOt_CHAR arr[0x84L];
  16. } ;
  17. pOt__ArrTypDsc pOt__td_0_COCS= {
  18.   1,
  19.   0x84L, sizeof(pOt_CHAR)
  20. };
  21. struct pOt__tag_1_COCS {
  22.   pOt__ArrTypDsc *td;
  23.   pOt_CHAR arr[0x80L];
  24. } ;
  25. pOt__ArrTypDsc pOt__td_1_COCS= {
  26.   1,
  27.   0x80L, sizeof(pOt_CHAR)
  28. };
  29. struct pOt__tag_2_COCS {
  30.   pOt__ArrTypDsc *td;
  31.   pOt_CHAR arr[0x100L];
  32. } ;
  33. pOt__ArrTypDsc pOt__td_2_COCS= {
  34.   1,
  35.   0x100L, sizeof(pOt_CHAR)
  36. };
  37. struct pOt__tag_3_COCS {
  38.   pOt__RecTypDsc *td;
  39.   struct pOt__tag_2_COCS pOt_name;
  40.   pOt_LONGINT pOt_line;
  41.   pOt_INTEGER pOt_col;
  42. } ;
  43. struct {
  44.   pOt_INTEGER mode;
  45.   pOt_LONGINT size;
  46.   pOt_INTEGER extlev, nstr, nptr, npro;
  47.   pOt__RecTypDsc *base_td[pOt__MaxExts];
  48.   struct {pOt_LONGINT poffs; pOt__TypDsc *fld_td;} tab[0x1];
  49. } pOt__td_3_COCS= {
  50.   0,
  51.   sizeof(struct pOt__tag_3_COCS),
  52.   0x0, 0x1, 0x0, 0x0,
  53.   {pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL},
  54.   {
  55.     {(pOt_LONGINT)&((struct pOt__tag_3_COCS*)0)->pOt_name, (pOt__TypDsc*)&pOt__td_2_COCS}
  56.   }
  57. };
  58. struct pOt__tag_4_COCS {
  59.   pOt__ArrTypDsc *td;
  60.   pOt_CHAR arr[0xCL];
  61. } ;
  62. pOt__ArrTypDsc pOt__td_4_COCS= {
  63.   1,
  64.   0xCL, sizeof(pOt_CHAR)
  65. };
  66. struct pOt__tag_5_COCS {
  67.   pOt__RecTypDsc *td;
  68.   pOt_INTEGER pOt_symb, pOt_alt;
  69.   struct pOt__tag_4_COCS pOt_id;
  70. } ;
  71. struct {
  72.   pOt_INTEGER mode;
  73.   pOt_LONGINT size;
  74.   pOt_INTEGER extlev, nstr, nptr, npro;
  75.   pOt__RecTypDsc *base_td[pOt__MaxExts];
  76.   struct {pOt_LONGINT poffs; pOt__TypDsc *fld_td;} tab[0x1];
  77. } pOt__td_5_COCS= {
  78.   0,
  79.   sizeof(struct pOt__tag_5_COCS),
  80.   0x0, 0x1, 0x0, 0x0,
  81.   {pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL, pOt_NIL},
  82.   {
  83.     {(pOt_LONGINT)&((struct pOt__tag_5_COCS*)0)->pOt_id, (pOt__TypDsc*)&pOt__td_4_COCS}
  84.   }
  85. };
  86. struct pOt__tag_6_COCS {
  87.   pOt__StrArrTypDsc *td;
  88.   struct pOt__tag_5_COCS arr[0x2BL];
  89. } ;
  90. pOt__StrArrTypDsc pOt__td_6_COCS= {
  91.   4,
  92.   0x2BL, sizeof(struct pOt__tag_5_COCS),
  93.   (pOt__TypDsc*)&pOt__td_5_COCS
  94. };
  95. struct pOt__tag_7_COCS {
  96.   pOt__StrArrTypDsc *td;
  97.   struct pOt__tag_0_COCS arr[0xFAL];
  98. } ;
  99. pOt__StrArrTypDsc pOt__td_7_COCS= {
  100.   4,
  101.   0xFAL, sizeof(struct pOt__tag_0_COCS),
  102.   (pOt__TypDsc*)&pOt__td_0_COCS
  103. };
  104.  
  105. pOt_BOOLEAN pOt_linecol_COCS;
  106. pOt_INTEGER pOt_numtyp_COCS;
  107. pOt_LONGINT pOt_intval_COCS;
  108. pOt_REAL pOt_realval_COCS;
  109. pOt_LONGREAL pOt_lrlval_COCS;
  110. pOt_BOOLEAN pOt_scanerr_COCS;
  111. struct pOt__tag_1_COCS pOt_name_COCS;
  112. struct pOt__tag_3_COCS pOt_txtpos_COCS;
  113. static pOt_File_Files pOt_ifile_COCS;
  114. static struct pOt__tag_2_Files pOt_Input_COCS;
  115. static struct pOt__tag_5_Texts pOt_Diag_COCS;
  116. static pOt_CHAR pOt_ch_COCS;
  117. static pOt_LONGINT pOt_lastpos_COCS;
  118. static pOt_INTEGER pOt_i_COCS;
  119. static struct pOt__tag_6_COCS pOt_keyTab_COCS;
  120. static struct pOt__tag_7_COCS pOt_errormsgs_COCS;
  121.  
  122. static struct {void *next, *vars[0x2];} pOt__gc_ptrs = {pOt_NIL,{
  123.   &pOt_ifile_COCS,
  124.   pOt_NIL
  125. }};
  126. static struct {void *next, *vars[0x3];} pOt__gc_strs = {&pOt__gc_ptrs,{
  127.   &pOt_Input_COCS,
  128.   &pOt_Diag_COCS,
  129.   pOt_NIL
  130. }};
  131.  
  132.  
  133.  
  134.  
  135. extern void pOt_Mark_COCS
  136. #if pOt__ANSI_C
  137.   (pOt_INTEGER pOt_n)
  138. #else
  139.   (pOt_n)
  140.   pOt_INTEGER pOt_n;
  141.  
  142. #endif
  143. {
  144.   pOt_LONGINT pOt_pos;
  145.   struct {void*next;} pOt__gc_ptrs;
  146.   pOt__gc_ptrs.next = pOt__gc_root;
  147.  
  148.   pOt_pos=(pOt_LONGINT)(pOt_Pos_Files((struct pOt__tag_2_Files*)&pOt_Input_COCS));
  149.   if(( (pOt_LONGINT)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_lastpos_COCS),(pOt_LONGINT)(8),6)<pOt_pos)) {
  150.     pOt_WriteLn_Texts((struct pOt__tag_5_Texts*)&pOt_Diag_COCS);
  151.     if(pOt_linecol_COCS) {
  152.       pOt_WriteString_Texts((struct pOt__tag_5_Texts*)&pOt_Diag_COCS,pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&pOt_txtpos_COCS.pOt_name));
  153.       pOt_WriteString_Texts((struct pOt__tag_5_Texts*)&pOt_Diag_COCS,pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x0L],&pOt__str_td[0x1]))));
  154.       pOt_WriteInt_Texts((struct pOt__tag_5_Texts*)&pOt_Diag_COCS,(pOt_LONGINT)(pOt_txtpos_COCS.pOt_line),(pOt_LONGINT)(1));
  155.       pOt_WriteString_Texts((struct pOt__tag_5_Texts*)&pOt_Diag_COCS,pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x8L],&pOt__str_td[0x2]))));
  156.       pOt_WriteInt_Texts((struct pOt__tag_5_Texts*)&pOt_Diag_COCS,(pOt_LONGINT)(pOt_txtpos_COCS.pOt_col),(pOt_LONGINT)(1));
  157.       pOt_WriteString_Texts((struct pOt__tag_5_Texts*)&pOt_Diag_COCS,pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x10L],&pOt__str_td[0x3]))));
  158.     } else {
  159.       pOt_WriteString_Texts((struct pOt__tag_5_Texts*)&pOt_Diag_COCS,pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x18L],&pOt__str_td[0x5]))));
  160.       pOt_WriteInt_Texts((struct pOt__tag_5_Texts*)&pOt_Diag_COCS,(pOt_LONGINT)(pOt_pos),(pOt_LONGINT)(8));
  161.     }
  162.     if(( pOt_n<((pOt_INTEGER)(0)))) {
  163.       pOt_WriteString_Texts((struct pOt__tag_5_Texts*)&pOt_Diag_COCS,pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x24L],&pOt__str_td[0x9]))));
  164.       if(pOt_linecol_COCS) {
  165.         pOt_SendError_Throwback(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&pOt_txtpos_COCS.pOt_name),(pOt_LONGINT)(pOt_txtpos_COCS.pOt_line),(pOt_LONGINT)(0),pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, -pOt_n)]));
  166.       }
  167.     } else {
  168.       pOt_WriteString_Texts((struct pOt__tag_5_Texts*)&pOt_Diag_COCS,pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x34L],&pOt__str_td[0x5]))));
  169.       pOt_scanerr_COCS=(pOt_BOOLEAN)1;
  170.       if(pOt_linecol_COCS) {
  171.         pOt_SendError_Throwback(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&pOt_txtpos_COCS.pOt_name),(pOt_LONGINT)(pOt_txtpos_COCS.pOt_line),(pOt_LONGINT)(1),pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, pOt_n)]));
  172.       }
  173.     }
  174.     pOt_WriteInt_Texts((struct pOt__tag_5_Texts*)&pOt_Diag_COCS,(pOt_LONGINT)((pOt_INTEGER)pOt__abs(pOt_n)),(pOt_LONGINT)(4));
  175.     pOt_WriteString_Texts((struct pOt__tag_5_Texts*)&pOt_Diag_COCS,pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x40L],&pOt__str_td[0x1]))));
  176.     pOt_WriteString_Texts((struct pOt__tag_5_Texts*)&pOt_Diag_COCS,pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, (pOt_INTEGER)pOt__abs(pOt_n))]));
  177.     pOt_WriteString_Texts((struct pOt__tag_5_Texts*)&pOt_Diag_COCS,pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x40L],&pOt__str_td[0x1]))));
  178.     pOt_Append_Texts((struct pOt__tag_1_Files*)(pOt_StdErr_Files),&pOt_Diag_COCS.pOt_buf);
  179.     pOt_lastpos_COCS=(pOt_LONGINT)(pOt_pos);
  180.   }
  181.  
  182. pOt__Epilogue:;
  183.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  184. }
  185.  
  186.  
  187.  
  188.  
  189. static void pOt_Read_COCS
  190. #if pOt__ANSI_C
  191.   (pOt_CHAR *pOt_ch)
  192. #else
  193.   (pOt_ch)
  194.   pOt_CHAR *pOt_ch;
  195.  
  196. #endif
  197. {
  198.   struct {void*next;} pOt__gc_ptrs;
  199.   pOt__gc_ptrs.next = pOt__gc_root;
  200.  
  201.   pOt_Read_Files((struct pOt__tag_2_Files*)&pOt_Input_COCS,(pOt_BYTE_SYSTEM*)&(*pOt_ch));
  202.   if(((unsigned char) (*pOt_ch)==(unsigned char)'\12')) {
  203.     pOt_txtpos_COCS.pOt_line+=(1);
  204.     pOt_txtpos_COCS.pOt_col=(pOt_INTEGER)(0);
  205.   } else {
  206.     pOt_txtpos_COCS.pOt_col+=(1);
  207.   }
  208.  
  209. pOt__Epilogue:;
  210.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  211. }
  212.  
  213.  
  214.  
  215.  
  216. static void pOt_String_COCS
  217. #if pOt__ANSI_C
  218.   (pOt_INTEGER *pOt_sym)
  219. #else
  220.   (pOt_sym)
  221.   pOt_INTEGER *pOt_sym;
  222.  
  223. #endif
  224. {
  225.   pOt_INTEGER pOt_i;
  226.   struct {void*next;} pOt__gc_ptrs;
  227.   pOt__gc_ptrs.next = pOt__gc_root;
  228.  
  229.   pOt_i=(pOt_INTEGER)(0);
  230.   for(;;) {
  231.     pOt_Read_COCS(&pOt_ch_COCS);
  232.     if(((unsigned char) pOt_ch_COCS==(unsigned char)'\"')) {
  233.       goto pOt__LoopLabel_1;
  234.     }
  235.     if(((unsigned char) pOt_ch_COCS<(unsigned char)' ')) {
  236.       pOt_Mark_COCS((pOt_INTEGER)(3));
  237.       goto pOt__LoopLabel_1;
  238.     }
  239.     if(( pOt_i<((pOt_INTEGER)(127)))) {
  240.       pOt_name_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0x80, pOt_i)]=pOt_ch_COCS;
  241.       pOt_i+=(1);
  242.     } else {
  243.       pOt_Mark_COCS((pOt_INTEGER)(212));
  244.       pOt_i=(pOt_INTEGER)(0);
  245.     }
  246.   }
  247. pOt__LoopLabel_1:;
  248.   pOt_Read_COCS(&pOt_ch_COCS);
  249.   if(( pOt_i==((pOt_INTEGER)(1)))) {
  250.     (*pOt_sym)=(pOt_INTEGER)(34);
  251.     pOt_numtyp_COCS=(pOt_INTEGER)(1);
  252.     pOt_intval_COCS=(pOt_LONGINT)((pOt_INTEGER)((unsigned char)pOt_name_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0x80, 0)]));
  253.   } else {
  254.     (*pOt_sym)=(pOt_INTEGER)(36);
  255.     pOt_intval_COCS=(pOt_LONGINT)(pOt_i);
  256.     pOt_name_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0x80, pOt_i)]='\0';
  257.   }
  258.  
  259. pOt__Epilogue:;
  260.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  261. }
  262.  
  263.  
  264.  
  265.  
  266. static void pOt_Identifier_COCS
  267. #if pOt__ANSI_C
  268.   (pOt_INTEGER *pOt_sym)
  269. #else
  270.   (pOt_sym)
  271.   pOt_INTEGER *pOt_sym;
  272.  
  273. #endif
  274. {
  275.   pOt_INTEGER pOt_i, pOt_k;
  276.   struct {void*next;} pOt__gc_ptrs;
  277.   pOt__gc_ptrs.next = pOt__gc_root;
  278.  
  279.   pOt_i=(pOt_INTEGER)(0);
  280.   pOt_k=(pOt_INTEGER)(0);
  281.   for(;;) {
  282.     if(( pOt_i<((pOt_INTEGER)(31)))) {
  283.       pOt_name_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0x80, pOt_i)]=pOt_ch_COCS;
  284.       pOt_i+=(1);
  285.       pOt_k+=((pOt_INTEGER)((unsigned char)pOt_ch_COCS));
  286.     }
  287.     pOt_Read_COCS(&pOt_ch_COCS);
  288.     if((((((unsigned char)pOt_ch_COCS<(unsigned char)'0'))||((((unsigned char)'9'<(unsigned char)pOt_ch_COCS))&&(((unsigned char)pOt__cap((unsigned char)pOt_ch_COCS)<(unsigned char)'A'))))||(((unsigned char)'Z'<(unsigned char)pOt__cap((unsigned char)pOt_ch_COCS))))) break;
  289.   }
  290.   pOt_name_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0x80, pOt_i)]='\0';
  291.   pOt_k=(pOt_INTEGER)((pOt_INTEGER)pOt__modchk(__FILE__,__LINE__,(pOt_LONGINT)(((pOt_INTEGER)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_k),(pOt_LONGINT)(pOt_i),5))),(pOt_LONGINT)(43),5));
  292.   if((((pOt_keyTab_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0x2B, pOt_k)].pOt_symb!=((pOt_INTEGER)(0))))&&(pOt__cmpss((pOt_CHAR*)&pOt_keyTab_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0x2B, pOt_k)].pOt_id,(pOt_CHAR*)&pOt_name_COCS,0x9)))) {
  293.     (*pOt_sym)=(pOt_INTEGER)(pOt_keyTab_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0x2B, pOt_k)].pOt_symb);
  294.   } else {
  295.     pOt_k=(pOt_INTEGER)(pOt_keyTab_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0x2B, pOt_k)].pOt_alt);
  296.     if((((pOt_keyTab_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0x2B, pOt_k)].pOt_symb!=((pOt_INTEGER)(0))))&&(pOt__cmpss((pOt_CHAR*)&pOt_keyTab_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0x2B, pOt_k)].pOt_id,(pOt_CHAR*)&pOt_name_COCS,0x9)))) {
  297.       (*pOt_sym)=(pOt_INTEGER)(pOt_keyTab_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0x2B, pOt_k)].pOt_symb);
  298.     } else {
  299.       (*pOt_sym)=(pOt_INTEGER)(37);
  300.     }
  301.   }
  302.  
  303. pOt__Epilogue:;
  304.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  305. }
  306.  
  307.  
  308.  
  309.  
  310. static pOt_INTEGER pOt_Hval_COCS
  311. #if pOt__ANSI_C
  312.   (pOt_CHAR pOt_ch)
  313. #else
  314.   (pOt_ch)
  315.   pOt_CHAR pOt_ch;
  316.  
  317. #endif
  318. {
  319.   pOt_INTEGER pOt__retval;
  320.   pOt_INTEGER pOt_d;
  321.   int pOt__gc_enabled_prev;
  322.   pOt__gc_enabled_prev=pOt__gc_enabled;
  323.   pOt__gc_enabled=0;
  324.  
  325.   pOt_d=(pOt_INTEGER)((pOt_INTEGER)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_INTEGER)((unsigned char)pOt_ch)),(pOt_LONGINT)(48),5));
  326.   if(( pOt_d>=((pOt_INTEGER)(10)))) {
  327.     if((((pOt_d>=((pOt_INTEGER)(17))))&&((pOt_d<((pOt_INTEGER)(23)))))) {
  328.       pOt_d-=(7);
  329.     } else {
  330.       pOt_d=(pOt_INTEGER)(0);
  331.       pOt_Mark_COCS((pOt_INTEGER)(2));
  332.     }
  333.   }
  334.   pOt__retval =(pOt_INTEGER)(pOt_d);
  335.   goto pOt__Epilogue;
  336.  
  337.   pOt__halt(__FILE__,__LINE__,0x11);
  338. pOt__Epilogue:;
  339.   pOt__gc_enabled=pOt__gc_enabled_prev;
  340.   return pOt__retval;
  341. }
  342.  
  343.  
  344. struct pOt__tag_8_COCS {
  345.   pOt__ArrTypDsc *td;
  346.   pOt_CHAR arr[0x20L];
  347. } ;
  348. static pOt__ArrTypDsc pOt__td_8_COCS= {
  349.   1,
  350.   0x20L, sizeof(pOt_CHAR)
  351. };
  352.  
  353. static pOt_INTEGER (*pOt_i_Number_COCS), (*pOt_j_Number_COCS), (*pOt_h_Number_COCS), (*pOt_d_Number_COCS), (*pOt_e_Number_COCS), (*pOt_n_Number_COCS);
  354. static pOt_REAL (*pOt_x_Number_COCS), (*pOt_f_Number_COCS);
  355. static pOt_LONGREAL (*pOt_y_Number_COCS), (*pOt_g_Number_COCS);
  356. static pOt_CHAR (*pOt_lastCh_Number_COCS);
  357. static pOt_BOOLEAN (*pOt_neg_Number_COCS);
  358. static struct pOt__tag_8_COCS (*pOt_dig_Number_COCS);
  359.  
  360. static void pOt_Number_COCS pOt__ARGS((void));
  361.  
  362.  
  363.  
  364.  
  365. static void pOt_ReadScaleFactor_Number_COCS()
  366. {
  367.   struct {void*next;} pOt__gc_ptrs;
  368.   pOt__gc_ptrs.next = pOt__gc_root;
  369.  
  370.   pOt_Read_COCS(&pOt_ch_COCS);
  371.   if(((unsigned char) pOt_ch_COCS==(unsigned char)'-')) {
  372.     (*pOt_neg_Number_COCS)=(pOt_BOOLEAN)1;
  373.     pOt_Read_COCS(&pOt_ch_COCS);
  374.   } else {
  375.     (*pOt_neg_Number_COCS)=(pOt_BOOLEAN)0;
  376.     if(((unsigned char) pOt_ch_COCS==(unsigned char)'+')) {
  377.       pOt_Read_COCS(&pOt_ch_COCS);
  378.     }
  379.   }
  380.   if(((((unsigned char)'0'<=(unsigned char)pOt_ch_COCS))&&(((unsigned char)pOt_ch_COCS<=(unsigned char)'9')))) {
  381.     for(;;) {
  382.       (*pOt_e_Number_COCS)=(pOt_INTEGER)((pOt_INTEGER)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_INTEGER)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_INTEGER)pOt__mulchk(__FILE__,__LINE__,(pOt_LONGINT)((*pOt_e_Number_COCS)),(pOt_LONGINT)(10),5)),(pOt_LONGINT)((pOt_INTEGER)((unsigned char)pOt_ch_COCS)),5)),(pOt_LONGINT)(48),5));
  383.       pOt_Read_COCS(&pOt_ch_COCS);
  384.       if(((((unsigned char)pOt_ch_COCS<(unsigned char)'0'))||(((unsigned char)pOt_ch_COCS>(unsigned char)'9')))) break;
  385.     }
  386.   } else {
  387.     pOt_Mark_COCS((pOt_INTEGER)(2));
  388.   }
  389.  
  390. pOt__Epilogue:;
  391.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  392. }
  393.  
  394. static void pOt_Number_COCS()
  395. {
  396.   pOt_INTEGER pOt_i, (*pOt_i_), pOt_j, (*pOt_j_), pOt_h, (*pOt_h_), pOt_d, (*pOt_d_), pOt_e, (*pOt_e_), pOt_n, (*pOt_n_);
  397.   pOt_REAL pOt_x, (*pOt_x_), pOt_f, (*pOt_f_);
  398.   pOt_LONGREAL pOt_y, (*pOt_y_), pOt_g, (*pOt_g_);
  399.   pOt_CHAR pOt_lastCh, (*pOt_lastCh_);
  400.   pOt_BOOLEAN pOt_neg, (*pOt_neg_);
  401.   struct pOt__tag_8_COCS pOt_dig, (*pOt_dig_);
  402.   struct {void*next;} pOt__gc_ptrs;
  403.   pOt__gc_ptrs.next = pOt__gc_root;
  404.   pOt_i_=pOt_i_Number_COCS;
  405.   pOt_i_Number_COCS=&pOt_i;
  406.   pOt_j_=pOt_j_Number_COCS;
  407.   pOt_j_Number_COCS=&pOt_j;
  408.   pOt_h_=pOt_h_Number_COCS;
  409.   pOt_h_Number_COCS=&pOt_h;
  410.   pOt_d_=pOt_d_Number_COCS;
  411.   pOt_d_Number_COCS=&pOt_d;
  412.   pOt_e_=pOt_e_Number_COCS;
  413.   pOt_e_Number_COCS=&pOt_e;
  414.   pOt_n_=pOt_n_Number_COCS;
  415.   pOt_n_Number_COCS=&pOt_n;
  416.   pOt_x_=pOt_x_Number_COCS;
  417.   pOt_x_Number_COCS=&pOt_x;
  418.   pOt_f_=pOt_f_Number_COCS;
  419.   pOt_f_Number_COCS=&pOt_f;
  420.   pOt_y_=pOt_y_Number_COCS;
  421.   pOt_y_Number_COCS=&pOt_y;
  422.   pOt_g_=pOt_g_Number_COCS;
  423.   pOt_g_Number_COCS=&pOt_g;
  424.   pOt_lastCh_=pOt_lastCh_Number_COCS;
  425.   pOt_lastCh_Number_COCS=&pOt_lastCh;
  426.   pOt_neg_=pOt_neg_Number_COCS;
  427.   pOt_neg_Number_COCS=&pOt_neg;
  428.   pOt_dig_=pOt_dig_Number_COCS;
  429.   pOt_dig_Number_COCS=&pOt_dig;
  430.   pOt__init_var((pOt__TypDsc**)&pOt_dig,(pOt__TypDsc*)&pOt__td_8_COCS);
  431.  
  432.   pOt_i=(pOt_INTEGER)(0);
  433.   for(;;) {
  434.     pOt_dig.arr[pOt__inxchk(__FILE__,__LINE__,0x20, pOt_i)]=pOt_ch_COCS;
  435.     pOt_i+=(1);
  436.     pOt_Read_COCS(&pOt_ch_COCS);
  437.     if((((((unsigned char)pOt_ch_COCS<(unsigned char)'0'))||((((unsigned char)'9'<(unsigned char)pOt_ch_COCS))&&(((unsigned char)pOt__cap((unsigned char)pOt_ch_COCS)<(unsigned char)'A'))))||(((unsigned char)'Z'<(unsigned char)pOt__cap((unsigned char)pOt_ch_COCS))))) break;
  438.   }
  439.   pOt_lastCh=pOt_ch_COCS;
  440.   pOt_j=(pOt_INTEGER)(0);
  441.   for(;;) {
  442.     if((((pOt_j<(pOt_INTEGER)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_i),(pOt_LONGINT)(1),5)))&&(((unsigned char)pOt_dig.arr[pOt__inxchk(__FILE__,__LINE__,0x20, pOt_j)]==(unsigned char)'0')))); else break;
  443.     pOt_j+=(1);
  444.   }
  445.   if(((((unsigned char)pOt_dig.arr[pOt__inxchk(__FILE__,__LINE__,0x20, pOt_j)]==(unsigned char)'H'))||(((unsigned char)pOt_dig.arr[pOt__inxchk(__FILE__,__LINE__,0x20, pOt_j)]==(unsigned char)'X')))) {
  446.     pOt_j-=(1);
  447.   }
  448.   if(((unsigned char) pOt_ch_COCS==(unsigned char)'.')) {
  449.     pOt_Read_COCS(&pOt_ch_COCS);
  450.     if(((unsigned char) pOt_ch_COCS==(unsigned char)'.')) {
  451.       pOt_lastCh='\0';
  452.       pOt_ch_COCS='\177';
  453.     }
  454.   }
  455.   if(((unsigned char) pOt_lastCh==(unsigned char)'.')) {
  456.     pOt_h=(pOt_INTEGER)(pOt_i);
  457.     for(;;) {
  458.       if(((((unsigned char)'0'<=(unsigned char)pOt_ch_COCS))&&(((unsigned char)pOt_ch_COCS<=(unsigned char)'9')))); else break;
  459.       if(( pOt_i<((pOt_INTEGER)(32)))) {
  460.         pOt_dig.arr[pOt__inxchk(__FILE__,__LINE__,0x20, pOt_i)]=pOt_ch_COCS;
  461.         pOt_i+=(1);
  462.       }
  463.       pOt_Read_COCS(&pOt_ch_COCS);
  464.     }
  465.     if(((unsigned char) pOt_ch_COCS==(unsigned char)'D')) {
  466.       pOt_y=(pOt_LONGREAL)(0);
  467.       pOt_g=(pOt_LONGREAL)(1);
  468.       pOt_e=(pOt_INTEGER)(0);
  469.       for(;;) {
  470.         if(( pOt_j<pOt_h)); else break;
  471.         pOt_y=(pOt_LONGREAL)(pOt_y*((pOt_LONGREAL)(10))+((pOt_LONGREAL)(((pOt_INTEGER)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_INTEGER)((unsigned char)pOt_dig.arr[pOt__inxchk(__FILE__,__LINE__,0x20, pOt_j)])),(pOt_LONGINT)(48),5)))));
  472.         pOt_j+=(1);
  473.       }
  474.       for(;;) {
  475.         if(( pOt_j<pOt_i)); else break;
  476.         pOt_g=(pOt_LONGREAL)(pOt_g/((pOt_LONGREAL)(10)));
  477.         pOt_y=(pOt_LONGREAL)(((pOt_LONGREAL)(((pOt_INTEGER)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_INTEGER)((unsigned char)pOt_dig.arr[pOt__inxchk(__FILE__,__LINE__,0x20, pOt_j)])),(pOt_LONGINT)(48),5))))*pOt_g+pOt_y);
  478.         pOt_j+=(1);
  479.       }
  480.       pOt_ReadScaleFactor_Number_COCS();
  481.       if(pOt_neg) {
  482.         if(( pOt_e<=308)) {
  483.           pOt_y=(pOt_LONGREAL)(pOt_y/pOt_TenL_Reals((pOt_INTEGER)(pOt_e)));
  484.         } else {
  485.           pOt_y=(pOt_LONGREAL)(0);
  486.         }
  487.       } else if(( pOt_e>((pOt_INTEGER)(0)))) {
  488.         if(( pOt_e<=308)) {
  489.           pOt_y=(pOt_LONGREAL)(pOt_TenL_Reals((pOt_INTEGER)(pOt_e))*pOt_y);
  490.         } else {
  491.           pOt_y=(pOt_LONGREAL)(0);
  492.           pOt_Mark_COCS((pOt_INTEGER)(203));
  493.         }
  494.       }
  495.       pOt_numtyp_COCS=(pOt_INTEGER)(4);
  496.       pOt_lrlval_COCS=(pOt_LONGREAL)(pOt_y);
  497.     } else {
  498.       pOt_x=(pOt_REAL)(0);
  499.       pOt_f=(pOt_REAL)(1);
  500.       pOt_e=(pOt_INTEGER)(0);
  501.       for(;;) {
  502.         if(( pOt_j<pOt_h)); else break;
  503.         pOt_x=(pOt_REAL)(pOt_x*((pOt_REAL)(10))+((pOt_REAL)(((pOt_INTEGER)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_INTEGER)((unsigned char)pOt_dig.arr[pOt__inxchk(__FILE__,__LINE__,0x20, pOt_j)])),(pOt_LONGINT)(48),5)))));
  504.         pOt_j+=(1);
  505.       }
  506.       for(;;) {
  507.         if(( pOt_j<pOt_i)); else break;
  508.         pOt_f=(pOt_REAL)(pOt_f/((pOt_REAL)(10)));
  509.         pOt_x=(pOt_REAL)(((pOt_REAL)(((pOt_INTEGER)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_INTEGER)((unsigned char)pOt_dig.arr[pOt__inxchk(__FILE__,__LINE__,0x20, pOt_j)])),(pOt_LONGINT)(48),5))))*pOt_f+pOt_x);
  510.         pOt_j+=(1);
  511.       }
  512.       if(((unsigned char) pOt_ch_COCS==(unsigned char)'E')) {
  513.         pOt_ReadScaleFactor_Number_COCS();
  514.       }
  515.       if(pOt_neg) {
  516.         if(( pOt_e<=((pOt_INTEGER)(38)))) {
  517.           pOt_x=(pOt_REAL)(pOt_x/pOt_Ten_Reals((pOt_INTEGER)(pOt_e)));
  518.         } else {
  519.           pOt_x=(pOt_REAL)(0);
  520.         }
  521.       } else if(( pOt_e>((pOt_INTEGER)(0)))) {
  522.         if(( pOt_e<=((pOt_INTEGER)(38)))) {
  523.           pOt_x=(pOt_REAL)(pOt_Ten_Reals((pOt_INTEGER)(pOt_e))*pOt_x);
  524.         } else {
  525.           pOt_x=(pOt_REAL)(0);
  526.           pOt_Mark_COCS((pOt_INTEGER)(203));
  527.         }
  528.       }
  529.       pOt_numtyp_COCS=(pOt_INTEGER)(3);
  530.       pOt_realval_COCS=(pOt_REAL)(pOt_x);
  531.     }
  532.   } else {
  533.     pOt_lastCh=pOt_dig.arr[pOt__inxchk(__FILE__,__LINE__,0x20, (pOt_INTEGER)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_i),(pOt_LONGINT)(1),5))];
  534.     pOt_intval_COCS=(pOt_LONGINT)(0);
  535.     if(((unsigned char) pOt_lastCh==(unsigned char)'H')) {
  536.       if(( pOt_j<pOt_i)) {
  537.         pOt_i-=(1);
  538.         pOt_intval_COCS=(pOt_LONGINT)(pOt_Hval_COCS(pOt_dig.arr[pOt__inxchk(__FILE__,__LINE__,0x20, pOt_j)]));
  539.         pOt_j+=(1);
  540.         if(( (pOt_INTEGER)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_i),(pOt_LONGINT)(pOt_j),5)<=((pOt_INTEGER)(7)))) {
  541.           if(((((pOt_INTEGER)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_i),(pOt_LONGINT)(pOt_j),5)==((pOt_INTEGER)(7))))&&((pOt_intval_COCS>=((pOt_LONGINT)(8)))))) {
  542.             pOt_intval_COCS-=(16);
  543.           }
  544.           for(;;) {
  545.             if(( pOt_j<pOt_i)); else break;
  546.             pOt_intval_COCS=(pOt_LONGINT)((pOt_LONGINT)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_Hval_COCS(pOt_dig.arr[pOt__inxchk(__FILE__,__LINE__,0x20, pOt_j)])),(pOt_LONGINT)((pOt_LONGINT)pOt__mulchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_intval_COCS),(pOt_LONGINT)(16),6)),6));
  547.             pOt_j+=(1);
  548.           }
  549.         } else {
  550.           pOt_Mark_COCS((pOt_INTEGER)(203));
  551.         }
  552.       }
  553.     } else if(((unsigned char) pOt_lastCh==(unsigned char)'X')) {
  554.       pOt_i-=(1);
  555.       for(;;) {
  556.         if(( pOt_j<pOt_i)); else break;
  557.         pOt_intval_COCS=(pOt_LONGINT)((pOt_LONGINT)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_Hval_COCS(pOt_dig.arr[pOt__inxchk(__FILE__,__LINE__,0x20, pOt_j)])),(pOt_LONGINT)((pOt_LONGINT)pOt__mulchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_intval_COCS),(pOt_LONGINT)(16),6)),6));
  558.         pOt_j+=(1);
  559.         if(( pOt_intval_COCS>((pOt_LONGINT)(255)))) {
  560.           pOt_Mark_COCS((pOt_INTEGER)(203));
  561.           pOt_intval_COCS=(pOt_LONGINT)(0);
  562.         }
  563.       }
  564.     } else {
  565.       for(;;) {
  566.         if(( pOt_j<pOt_i)); else break;
  567.         pOt_d=(pOt_INTEGER)((pOt_INTEGER)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_INTEGER)((unsigned char)pOt_dig.arr[pOt__inxchk(__FILE__,__LINE__,0x20, pOt_j)])),(pOt_LONGINT)(48),5));
  568.         if(( pOt_d<((pOt_INTEGER)(10)))) {
  569.           if(( pOt_intval_COCS<=(pOt_LONGINT)pOt__divchk(__FILE__,__LINE__,(pOt_LONGINT)(((pOt_LONGINT)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)(2147483647L),(pOt_LONGINT)(pOt_d),6))),(pOt_LONGINT)(10),6))) {
  570.             pOt_intval_COCS=(pOt_LONGINT)((pOt_LONGINT)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_LONGINT)pOt__mulchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_intval_COCS),(pOt_LONGINT)(10),6)),(pOt_LONGINT)(pOt_d),6));
  571.           } else {
  572.             pOt_Mark_COCS((pOt_INTEGER)(203));
  573.             pOt_intval_COCS=(pOt_LONGINT)(0);
  574.           }
  575.         } else {
  576.           pOt_Mark_COCS((pOt_INTEGER)(2));
  577.           pOt_intval_COCS=(pOt_LONGINT)(0);
  578.         }
  579.         pOt_j+=(1);
  580.       }
  581.     }
  582.     if(((unsigned char) pOt_lastCh==(unsigned char)'X')) {
  583.       pOt_numtyp_COCS=(pOt_INTEGER)(1);
  584.     } else {
  585.       pOt_numtyp_COCS=(pOt_INTEGER)(2);
  586.     }
  587.   }
  588.  
  589. pOt__Epilogue:;
  590.   pOt_i_Number_COCS=pOt_i_;
  591.   pOt_j_Number_COCS=pOt_j_;
  592.   pOt_h_Number_COCS=pOt_h_;
  593.   pOt_d_Number_COCS=pOt_d_;
  594.   pOt_e_Number_COCS=pOt_e_;
  595.   pOt_n_Number_COCS=pOt_n_;
  596.   pOt_x_Number_COCS=pOt_x_;
  597.   pOt_f_Number_COCS=pOt_f_;
  598.   pOt_y_Number_COCS=pOt_y_;
  599.   pOt_g_Number_COCS=pOt_g_;
  600.   pOt_lastCh_Number_COCS=pOt_lastCh_;
  601.   pOt_neg_Number_COCS=pOt_neg_;
  602.   pOt_dig_Number_COCS=pOt_dig_;
  603.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  604. }
  605.  
  606.  
  607.  
  608. static pOt_INTEGER *pOt_sym_Get_COCS, (*pOt_s_Get_COCS);
  609. static pOt_CHAR (*pOt_xch_Get_COCS);
  610.  
  611. extern void pOt_Get_COCS pOt__ARGS((pOt_INTEGER *));
  612.  
  613.  
  614.  
  615.  
  616. static void pOt_Comment_Get_COCS()
  617. {
  618.   struct {void*next;} pOt__gc_ptrs;
  619.   pOt__gc_ptrs.next = pOt__gc_root;
  620.  
  621.   pOt_Read_COCS(&pOt_ch_COCS);
  622.   for(;;) {
  623.     for(;;) {
  624.       for(;;) {
  625.         if(((unsigned char) pOt_ch_COCS==(unsigned char)'(')); else break;
  626.         pOt_Read_COCS(&pOt_ch_COCS);
  627.         if(((unsigned char) pOt_ch_COCS==(unsigned char)'*')) {
  628.           pOt_Comment_Get_COCS();
  629.         }
  630.       }
  631.       if(((unsigned char) pOt_ch_COCS==(unsigned char)'*')) {
  632.         pOt_Read_COCS(&pOt_ch_COCS);
  633.         goto pOt__LoopLabel_2;
  634.       }
  635.       if(((unsigned char) pOt_ch_COCS==(unsigned char)'\0')) {
  636.         goto pOt__LoopLabel_2;
  637.       }
  638.       pOt_Read_COCS(&pOt_ch_COCS);
  639.     }
  640.   pOt__LoopLabel_2:;
  641.     if(((unsigned char) pOt_ch_COCS==(unsigned char)')')) {
  642.       pOt_Read_COCS(&pOt_ch_COCS);
  643.       goto pOt__LoopLabel_1;
  644.     }
  645.     if(((unsigned char) pOt_ch_COCS==(unsigned char)'\0')) {
  646.       pOt_Mark_COCS((pOt_INTEGER)(5));
  647.       goto pOt__LoopLabel_1;
  648.     }
  649.   }
  650. pOt__LoopLabel_1:;
  651.  
  652. pOt__Epilogue:;
  653.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  654. }
  655.  
  656. extern void pOt_Get_COCS
  657. #if pOt__ANSI_C
  658.   (pOt_INTEGER *pOt_sym)
  659. #else
  660.   (pOt_sym)
  661.   pOt_INTEGER *pOt_sym;
  662.  
  663. #endif
  664. {
  665.   pOt_INTEGER *pOt_sym_, pOt_s, (*pOt_s_);
  666.   pOt_CHAR pOt_xch, (*pOt_xch_);
  667.   struct {void*next;} pOt__gc_ptrs;
  668.   pOt__gc_ptrs.next = pOt__gc_root;
  669.   pOt_sym_=pOt_sym_Get_COCS;
  670.   pOt_sym_Get_COCS=pOt_sym;
  671.   pOt_s_=pOt_s_Get_COCS;
  672.   pOt_s_Get_COCS=&pOt_s;
  673.   pOt_xch_=pOt_xch_Get_COCS;
  674.   pOt_xch_Get_COCS=&pOt_xch;
  675.  
  676.   for(;;) {
  677.     if(((unsigned char) pOt_ch_COCS<=(unsigned char)' ')) {
  678.       if(((unsigned char) pOt_ch_COCS==(unsigned char)'\0')) {
  679.         pOt_ch_COCS=' ';
  680.         goto pOt__LoopLabel_1;
  681.       } else {
  682.         pOt_Read_COCS(&pOt_ch_COCS);
  683.       }
  684.     } else if(((unsigned char) pOt_ch_COCS>(unsigned char)'\177')) {
  685.       pOt_Read_COCS(&pOt_ch_COCS);
  686.     } else {
  687.       goto pOt__LoopLabel_1;
  688.     }
  689.   }
  690. pOt__LoopLabel_1:;
  691.   switch(pOt_ch_COCS) {
  692.   case ' ':
  693.     pOt_s=(pOt_INTEGER)(62);
  694.     pOt_ch_COCS='\0';
  695.   break;
  696.   case '!':
  697.   case '$':
  698.   case '%':
  699.   case '\'':
  700.   case '?':
  701.   case '@':
  702.   case '\\':
  703.   case '_':
  704.   case '`':
  705.     pOt_s=(pOt_INTEGER)(0);
  706.     pOt_Read_COCS(&pOt_ch_COCS);
  707.   break;
  708.   case '\"':
  709.     pOt_String_COCS(&pOt_s);
  710.   break;
  711.   case '#':
  712.     pOt_s=(pOt_INTEGER)(10);
  713.     pOt_Read_COCS(&pOt_ch_COCS);
  714.   break;
  715.   case '&':
  716.     pOt_s=(pOt_INTEGER)(5);
  717.     pOt_Read_COCS(&pOt_ch_COCS);
  718.   break;
  719.   case '(':
  720.     pOt_Read_COCS(&pOt_ch_COCS);
  721.     if(((unsigned char) pOt_ch_COCS==(unsigned char)'*')) {
  722.       pOt_Comment_Get_COCS();
  723.       pOt_Get_COCS(&pOt_s);
  724.     } else {
  725.       pOt_s=(pOt_INTEGER)(29);
  726.     }
  727.   break;
  728.   case ')':
  729.     pOt_s=(pOt_INTEGER)(22);
  730.     pOt_Read_COCS(&pOt_ch_COCS);
  731.   break;
  732.   case '*':
  733.     pOt_s=(pOt_INTEGER)(1);
  734.     pOt_Read_COCS(&pOt_ch_COCS);
  735.   break;
  736.   case '+':
  737.     pOt_s=(pOt_INTEGER)(6);
  738.     pOt_Read_COCS(&pOt_ch_COCS);
  739.   break;
  740.   case ',':
  741.     pOt_s=(pOt_INTEGER)(19);
  742.     pOt_Read_COCS(&pOt_ch_COCS);
  743.   break;
  744.   case '-':
  745.     pOt_s=(pOt_INTEGER)(7);
  746.     pOt_Read_COCS(&pOt_ch_COCS);
  747.   break;
  748.   case '.':
  749.     pOt_Read_COCS(&pOt_ch_COCS);
  750.     if(((unsigned char) pOt_ch_COCS==(unsigned char)'.')) {
  751.       pOt_Read_COCS(&pOt_ch_COCS);
  752.       pOt_s=(pOt_INTEGER)(21);
  753.     } else {
  754.       pOt_s=(pOt_INTEGER)(18);
  755.     }
  756.   break;
  757.   case '/':
  758.     pOt_s=(pOt_INTEGER)(2);
  759.     pOt_Read_COCS(&pOt_ch_COCS);
  760.   break;
  761.   case '0':
  762.   case '1':
  763.   case '2':
  764.   case '3':
  765.   case '4':
  766.   case '5':
  767.   case '6':
  768.   case '7':
  769.   case '8':
  770.   case '9':
  771.     pOt_Number_COCS();
  772.     pOt_s=(pOt_INTEGER)(34);
  773.   break;
  774.   case ':':
  775.     pOt_Read_COCS(&pOt_ch_COCS);
  776.     if(((unsigned char) pOt_ch_COCS==(unsigned char)'=')) {
  777.       pOt_Read_COCS(&pOt_ch_COCS);
  778.       pOt_s=(pOt_INTEGER)(33);
  779.     } else {
  780.       pOt_s=(pOt_INTEGER)(20);
  781.     }
  782.   break;
  783.   case ';':
  784.     pOt_s=(pOt_INTEGER)(38);
  785.     pOt_Read_COCS(&pOt_ch_COCS);
  786.   break;
  787.   case '<':
  788.     pOt_Read_COCS(&pOt_ch_COCS);
  789.     if(((unsigned char) pOt_ch_COCS==(unsigned char)'=')) {
  790.       pOt_Read_COCS(&pOt_ch_COCS);
  791.       pOt_s=(pOt_INTEGER)(12);
  792.     } else {
  793.       pOt_s=(pOt_INTEGER)(11);
  794.     }
  795.   break;
  796.   case '=':
  797.     pOt_s=(pOt_INTEGER)(9);
  798.     pOt_Read_COCS(&pOt_ch_COCS);
  799.   break;
  800.   case '>':
  801.     pOt_Read_COCS(&pOt_ch_COCS);
  802.     if(((unsigned char) pOt_ch_COCS==(unsigned char)'=')) {
  803.       pOt_Read_COCS(&pOt_ch_COCS);
  804.       pOt_s=(pOt_INTEGER)(14);
  805.     } else {
  806.       pOt_s=(pOt_INTEGER)(13);
  807.     }
  808.   break;
  809.   case 'A':
  810.   case 'B':
  811.   case 'C':
  812.   case 'D':
  813.   case 'E':
  814.   case 'F':
  815.   case 'G':
  816.   case 'H':
  817.   case 'I':
  818.   case 'J':
  819.   case 'K':
  820.   case 'L':
  821.   case 'M':
  822.   case 'N':
  823.   case 'O':
  824.   case 'P':
  825.   case 'Q':
  826.   case 'R':
  827.   case 'S':
  828.   case 'T':
  829.   case 'U':
  830.   case 'V':
  831.   case 'W':
  832.   case 'X':
  833.   case 'Y':
  834.   case 'Z':
  835.     pOt_Identifier_COCS(&pOt_s);
  836.   break;
  837.   case '[':
  838.     pOt_s=(pOt_INTEGER)(30);
  839.     pOt_Read_COCS(&pOt_ch_COCS);
  840.   break;
  841.   case ']':
  842.     pOt_s=(pOt_INTEGER)(23);
  843.     pOt_Read_COCS(&pOt_ch_COCS);
  844.   break;
  845.   case '^':
  846.     pOt_s=(pOt_INTEGER)(17);
  847.     pOt_Read_COCS(&pOt_ch_COCS);
  848.   break;
  849.   case 'a':
  850.   case 'b':
  851.   case 'c':
  852.   case 'd':
  853.   case 'e':
  854.   case 'f':
  855.   case 'g':
  856.   case 'h':
  857.   case 'i':
  858.   case 'j':
  859.   case 'k':
  860.   case 'l':
  861.   case 'm':
  862.   case 'n':
  863.   case 'o':
  864.   case 'p':
  865.   case 'q':
  866.   case 'r':
  867.   case 's':
  868.   case 't':
  869.   case 'u':
  870.   case 'v':
  871.   case 'w':
  872.   case 'x':
  873.   case 'y':
  874.   case 'z':
  875.     pOt_Identifier_COCS(&pOt_s);
  876.   break;
  877.   case '{':
  878.     pOt_s=(pOt_INTEGER)(31);
  879.     pOt_Read_COCS(&pOt_ch_COCS);
  880.   break;
  881.   case '|':
  882.     pOt_s=(pOt_INTEGER)(39);
  883.     pOt_Read_COCS(&pOt_ch_COCS);
  884.   break;
  885.   case '}':
  886.     pOt_s=(pOt_INTEGER)(24);
  887.     pOt_Read_COCS(&pOt_ch_COCS);
  888.   break;
  889.   case '~':
  890.     pOt_s=(pOt_INTEGER)(32);
  891.     pOt_Read_COCS(&pOt_ch_COCS);
  892.   break;
  893.   case '\177':
  894.     pOt_s=(pOt_INTEGER)(21);
  895.     pOt_Read_COCS(&pOt_ch_COCS);
  896.   break;
  897.   default:;
  898.     pOt__halt(__FILE__,__LINE__,0x10);
  899.   }
  900.   (*pOt_sym)=(pOt_INTEGER)(pOt_s);
  901.  
  902. pOt__Epilogue:;
  903.   pOt_sym_Get_COCS=pOt_sym_;
  904.   pOt_s_Get_COCS=pOt_s_;
  905.   pOt_xch_Get_COCS=pOt_xch_;
  906.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  907. }
  908.  
  909.  
  910.  
  911.  
  912. extern void pOt_Open_COCS
  913. #if pOt__ANSI_C
  914.   (pOt__DynArr *pOt_name)
  915. #else
  916.   (pOt_name)
  917.   pOt__DynArr *pOt_name;
  918.  
  919. #endif
  920. {
  921.   struct {void*next;} pOt__gc_ptrs;
  922.   pOt__gc_ptrs.next = pOt__gc_root;
  923.  
  924.   pOt__copychk(__FILE__,__LINE__,(pOt_CHAR*)&(*pOt_name),(pOt_CHAR*)&pOt_txtpos_COCS.pOt_name);
  925.   pOt_ch_COCS=' ';
  926.   pOt_scanerr_COCS=(pOt_BOOLEAN)0;
  927.   pOt_lastpos_COCS=(pOt_LONGINT)(-8);
  928.   pOt_txtpos_COCS.pOt_line=(pOt_LONGINT)(1);
  929.   pOt_txtpos_COCS.pOt_col=(pOt_INTEGER)(0);
  930.   pOt_ifile_COCS=(struct pOt__tag_1_Files*)(pOt_Old_Files(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt_name))));
  931.   pOt_Set_Files((struct pOt__tag_2_Files*)&pOt_Input_COCS,(struct pOt__tag_1_Files*)(pOt_ifile_COCS),(pOt_LONGINT)(0));
  932.  
  933. pOt__Epilogue:;
  934.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  935.   pOt__rm_par((pOt__TypDsc**)pOt_name);
  936. }
  937.  
  938.  
  939.  
  940.  
  941. extern void pOt_Close_COCS()
  942. {
  943.   struct {void*next;} pOt__gc_ptrs;
  944.   pOt__gc_ptrs.next = pOt__gc_root;
  945.  
  946.   pOt_Close_Files((struct pOt__tag_1_Files*)(pOt_ifile_COCS));
  947.   if(pOt_scanerr_COCS) {
  948.     pOt_WriteLn_Texts((struct pOt__tag_5_Texts*)&pOt_Diag_COCS);
  949.   }
  950.   pOt_Append_Texts((struct pOt__tag_1_Files*)(pOt_StdErr_Files),&pOt_Diag_COCS.pOt_buf);
  951.  
  952. pOt__Epilogue:;
  953.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  954. }
  955.  
  956.  
  957.  
  958.  
  959. static void pOt_EnterKW_COCS
  960. #if pOt__ANSI_C
  961.   (pOt_INTEGER pOt_sym, pOt__DynArr *pOt_name)
  962. #else
  963.   (pOt_sym, pOt_name)
  964.   pOt_INTEGER pOt_sym;
  965.   pOt__DynArr *pOt_name;
  966.  
  967. #endif
  968. {
  969.   pOt_INTEGER pOt_j, pOt_k;
  970.   struct {void*next;} pOt__gc_ptrs;
  971.   pOt__gc_ptrs.next = pOt__gc_root;
  972.  
  973.   pOt_j=(pOt_INTEGER)(0);
  974.   pOt_k=(pOt_INTEGER)(0);
  975.   for(;;) {
  976.     pOt_k+=((pOt_INTEGER)((unsigned char)(*((pOt_CHAR*)(((char *)pOt_name+sizeof(pOt__ArrTypDsc*)+sizeof(pOt_CHAR)*pOt__inxchk(__FILE__,__LINE__,(*(pOt_name))->nofel,pOt_j)))))));
  977.     pOt_j+=(1);
  978.     if(((unsigned char) (*((pOt_CHAR*)(((char *)pOt_name+sizeof(pOt__ArrTypDsc*)+sizeof(pOt_CHAR)*pOt__inxchk(__FILE__,__LINE__,(*(pOt_name))->nofel,pOt_j)))))==(unsigned char)'\0')) break;
  979.   }
  980.   pOt_k=(pOt_INTEGER)((pOt_INTEGER)pOt__modchk(__FILE__,__LINE__,(pOt_LONGINT)(((pOt_INTEGER)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_k),(pOt_LONGINT)(pOt_j),5))),(pOt_LONGINT)(43),5));
  981.   if(( pOt_keyTab_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0x2B, pOt_k)].pOt_symb!=((pOt_INTEGER)(0)))) {
  982.     pOt_j=(pOt_INTEGER)(pOt_k);
  983.     for(;;) {
  984.       pOt_k+=(1);
  985.       if(( pOt_keyTab_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0x2B, pOt_k)].pOt_symb==((pOt_INTEGER)(0)))) break;
  986.     }
  987.     pOt_keyTab_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0x2B, pOt_j)].pOt_alt=(pOt_INTEGER)(pOt_k);
  988.   }
  989.   pOt_keyTab_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0x2B, pOt_k)].pOt_symb=(pOt_INTEGER)(pOt_sym);
  990.   pOt__copychk(__FILE__,__LINE__,(pOt_CHAR*)&(*pOt_name),(pOt_CHAR*)&pOt_keyTab_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0x2B, pOt_k)].pOt_id);
  991.  
  992. pOt__Epilogue:;
  993.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  994.   pOt__rm_par((pOt__TypDsc**)pOt_name);
  995. }
  996.  
  997. void pOt_COCS__body()
  998. {
  999.   static int pOt_COCS__loaded=0;
  1000.   if(!pOt_COCS__loaded){
  1001.     pOt_COCS__loaded=1;
  1002.  
  1003.     pOt_Files__body();
  1004.     pOt_Reals__body();
  1005.     pOt_Texts__body();
  1006.     pOt_Throwback__body();
  1007.  
  1008.     pOt__gc_ptrs.next=pOt__gc_root;
  1009.     pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  1010.  
  1011.     pOt__init_var((pOt__TypDsc**)&pOt_name_COCS,(pOt__TypDsc*)&pOt__td_1_COCS);
  1012.     pOt__init_var((pOt__TypDsc**)&pOt_txtpos_COCS,(pOt__TypDsc*)&pOt__td_3_COCS);
  1013.     pOt_ifile_COCS=pOt_NIL;
  1014.     pOt__init_var((pOt__TypDsc**)&pOt_Input_COCS,(pOt__TypDsc*)&pOt__td_2_Files);
  1015.     pOt__init_var((pOt__TypDsc**)&pOt_Diag_COCS,(pOt__TypDsc*)&pOt__td_5_Texts);
  1016.     pOt__init_var((pOt__TypDsc**)&pOt_keyTab_COCS,(pOt__TypDsc*)&pOt__td_6_COCS);
  1017.     pOt__init_var((pOt__TypDsc**)&pOt_errormsgs_COCS,(pOt__TypDsc*)&pOt__td_7_COCS);
  1018.  
  1019.     pOt_linecol_COCS=(pOt_BOOLEAN)0;
  1020.     pOt_i_COCS=(pOt_INTEGER)(43);
  1021.     for(;;) {
  1022.       if(( pOt_i_COCS>((pOt_INTEGER)(0)))); else break;
  1023.       pOt_i_COCS-=(1);
  1024.       pOt_keyTab_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0x2B, pOt_i_COCS)].pOt_symb=(pOt_INTEGER)(0);
  1025.       pOt_keyTab_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0x2B, pOt_i_COCS)].pOt_alt=(pOt_INTEGER)(0);
  1026.     }
  1027.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_keyTab_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0x2B, 0)].pOt_id,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x48L],&pOt__td_4_COCS)));
  1028.     pOt_EnterKW_COCS((pOt_INTEGER)(27),pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x50L],&pOt__str_td[0x2]))));
  1029.     pOt_EnterKW_COCS((pOt_INTEGER)(44),pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x58L],&pOt__str_td[0x2]))));
  1030.     pOt_EnterKW_COCS((pOt_INTEGER)(15),pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x60L],&pOt__str_td[0x2]))));
  1031.     pOt_EnterKW_COCS((pOt_INTEGER)(16),pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x68L],&pOt__str_td[0x2]))));
  1032.     pOt_EnterKW_COCS((pOt_INTEGER)(25),pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x70L],&pOt__str_td[0x2]))));
  1033.     pOt_EnterKW_COCS((pOt_INTEGER)(8),pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x78L],&pOt__str_td[0x2]))));
  1034.     pOt_EnterKW_COCS((pOt_INTEGER)(40),pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x80L],&pOt__str_td[0x3]))));
  1035.     pOt_EnterKW_COCS((pOt_INTEGER)(4),pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x88L],&pOt__str_td[0x3]))));
  1036.     pOt_EnterKW_COCS((pOt_INTEGER)(35),pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x90L],&pOt__str_td[0x3]))));
  1037.     pOt_EnterKW_COCS((pOt_INTEGER)(58),pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x98L],&pOt__str_td[0x3]))));
  1038.     pOt_EnterKW_COCS((pOt_INTEGER)(45),pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xA0L],&pOt__str_td[0x4]))));
  1039.     pOt_EnterKW_COCS((pOt_INTEGER)(41),pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xACL],&pOt__str_td[0x4]))));
  1040.     pOt_EnterKW_COCS((pOt_INTEGER)(50),pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xB8L],&pOt__str_td[0x4]))));
  1041.     pOt_EnterKW_COCS((pOt_INTEGER)(26),pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xC4L],&pOt__str_td[0x4]))));
  1042.     pOt_EnterKW_COCS((pOt_INTEGER)(49),pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xD0L],&pOt__str_td[0x4]))));
  1043.     pOt_EnterKW_COCS((pOt_INTEGER)(52),pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xDCL],&pOt__str_td[0x5]))));
  1044.     pOt_EnterKW_COCS((pOt_INTEGER)(55),pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xE8L],&pOt__str_td[0x5]))));
  1045.     pOt_EnterKW_COCS((pOt_INTEGER)(56),pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xF4L],&pOt__str_td[0x5]))));
  1046.     pOt_EnterKW_COCS((pOt_INTEGER)(42),pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x100L],&pOt__str_td[0x5]))));
  1047.     pOt_EnterKW_COCS((pOt_INTEGER)(43),pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x10CL],&pOt__str_td[0x5]))));
  1048.     pOt_EnterKW_COCS((pOt_INTEGER)(46),pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x118L],&pOt__str_td[0x5]))));
  1049.     pOt_EnterKW_COCS((pOt_INTEGER)(53),pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x124L],&pOt__str_td[0x6]))));
  1050.     pOt_EnterKW_COCS((pOt_INTEGER)(47),pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x130L],&pOt__str_td[0x6]))));
  1051.     pOt_EnterKW_COCS((pOt_INTEGER)(51),pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x13CL],&pOt__str_td[0x6]))));
  1052.     pOt_EnterKW_COCS((pOt_INTEGER)(59),pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x148L],&pOt__str_td[0x9]))));
  1053.     pOt_EnterKW_COCS((pOt_INTEGER)(28),pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x158L],&pOt__str_td[0x2]))));
  1054.     pOt_EnterKW_COCS((pOt_INTEGER)(3),pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x160L],&pOt__str_td[0x3]))));
  1055.     pOt_EnterKW_COCS((pOt_INTEGER)(48),pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x168L],&pOt__str_td[0x4]))));
  1056.     pOt_EnterKW_COCS((pOt_INTEGER)(57),pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x174L],&pOt__str_td[0x4]))));
  1057.     pOt_EnterKW_COCS((pOt_INTEGER)(60),pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x180L],&pOt__str_td[0x6]))));
  1058.     pOt_EnterKW_COCS((pOt_INTEGER)(61),pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x18CL],&pOt__str_td[0x6]))));
  1059.     pOt_EnterKW_COCS((pOt_INTEGER)(54),pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x198L],&pOt__str_td[0x7]))));
  1060.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 0)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1A4L],&pOt__td_0_COCS)));
  1061.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 1)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1C0L],&pOt__td_0_COCS)));
  1062.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 2)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1E0L],&pOt__td_0_COCS)));
  1063.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 3)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x200L],&pOt__td_0_COCS)));
  1064.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 4)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x220L],&pOt__td_0_COCS)));
  1065.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 5)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x250L],&pOt__td_0_COCS)));
  1066.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 6)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x48L],&pOt__td_0_COCS)));
  1067.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 7)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x48L],&pOt__td_0_COCS)));
  1068.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 8)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x48L],&pOt__td_0_COCS)));
  1069.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 9)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x268L],&pOt__td_0_COCS)));
  1070.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 10)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x27CL],&pOt__td_0_COCS)));
  1071.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 11)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x48L],&pOt__td_0_COCS)));
  1072.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 12)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x294L],&pOt__td_0_COCS)));
  1073.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 13)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x2C8L],&pOt__td_0_COCS)));
  1074.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 14)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x2F0L],&pOt__td_0_COCS)));
  1075.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 15)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x31CL],&pOt__td_0_COCS)));
  1076.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 16)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x34CL],&pOt__td_0_COCS)));
  1077.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 17)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x360L],&pOt__td_0_COCS)));
  1078.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 18)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x374L],&pOt__td_0_COCS)));
  1079.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 19)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x384L],&pOt__td_0_COCS)));
  1080.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 20)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x394L],&pOt__td_0_COCS)));
  1081.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 21)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x48L],&pOt__td_0_COCS)));
  1082.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 22)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x3A4L],&pOt__td_0_COCS)));
  1083.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 23)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x3B4L],&pOt__td_0_COCS)));
  1084.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 24)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x3C4L],&pOt__td_0_COCS)));
  1085.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 25)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x3D4L],&pOt__td_0_COCS)));
  1086.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 26)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x3E4L],&pOt__td_0_COCS)));
  1087.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 27)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x3F8L],&pOt__td_0_COCS)));
  1088.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 28)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x408L],&pOt__td_0_COCS)));
  1089.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 29)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x418L],&pOt__td_0_COCS)));
  1090.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 30)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x48L],&pOt__td_0_COCS)));
  1091.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 31)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x48L],&pOt__td_0_COCS)));
  1092.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 32)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x48L],&pOt__td_0_COCS)));
  1093.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 33)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x428L],&pOt__td_0_COCS)));
  1094.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 34)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x43CL],&pOt__td_0_COCS)));
  1095.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 35)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x48L],&pOt__td_0_COCS)));
  1096.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 36)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x48L],&pOt__td_0_COCS)));
  1097.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 37)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x27CL],&pOt__td_0_COCS)));
  1098.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 38)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x454L],&pOt__td_0_COCS)));
  1099.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 39)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x48L],&pOt__td_0_COCS)));
  1100.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 40)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x464L],&pOt__td_0_COCS)));
  1101.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 41)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x48L],&pOt__td_0_COCS)));
  1102.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 42)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x48L],&pOt__td_0_COCS)));
  1103.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 43)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x474L],&pOt__td_0_COCS)));
  1104.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 44)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x48L],&pOt__td_0_COCS)));
  1105.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 45)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x488L],&pOt__td_0_COCS)));
  1106.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 46)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x48L],&pOt__td_0_COCS)));
  1107.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 47)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x4ACL],&pOt__td_0_COCS)));
  1108.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 48)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x4CCL],&pOt__td_0_COCS)));
  1109.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 49)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x4F0L],&pOt__td_0_COCS)));
  1110.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 50)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x514L],&pOt__td_0_COCS)));
  1111.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 51)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x538L],&pOt__td_0_COCS)));
  1112.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 52)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x554L],&pOt__td_0_COCS)));
  1113.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 53)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x57CL],&pOt__td_0_COCS)));
  1114.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 54)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x5ACL],&pOt__td_0_COCS)));
  1115.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 55)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x5E0L],&pOt__td_0_COCS)));
  1116.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 56)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x604L],&pOt__td_0_COCS)));
  1117.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 57)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x624L],&pOt__td_0_COCS)));
  1118.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 58)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x654L],&pOt__td_0_COCS)));
  1119.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 59)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x674L],&pOt__td_0_COCS)));
  1120.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 60)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x698L],&pOt__td_0_COCS)));
  1121.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 61)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x6B8L],&pOt__td_0_COCS)));
  1122.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 62)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x6DCL],&pOt__td_0_COCS)));
  1123.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 63)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x704L],&pOt__td_0_COCS)));
  1124.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 64)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x71CL],&pOt__td_0_COCS)));
  1125.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 65)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x744L],&pOt__td_0_COCS)));
  1126.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 66)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x76CL],&pOt__td_0_COCS)));
  1127.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 67)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x7ACL],&pOt__td_0_COCS)));
  1128.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 68)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x48L],&pOt__td_0_COCS)));
  1129.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 69)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x7F0L],&pOt__td_0_COCS)));
  1130.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 70)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x48L],&pOt__td_0_COCS)));
  1131.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 71)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x48L],&pOt__td_0_COCS)));
  1132.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 72)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x48L],&pOt__td_0_COCS)));
  1133.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 73)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x81CL],&pOt__td_0_COCS)));
  1134.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 74)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x48L],&pOt__td_0_COCS)));
  1135.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 75)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x48L],&pOt__td_0_COCS)));
  1136.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 76)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x48L],&pOt__td_0_COCS)));
  1137.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 77)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x83CL],&pOt__td_0_COCS)));
  1138.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 78)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x858L],&pOt__td_0_COCS)));
  1139.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 79)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x884L],&pOt__td_0_COCS)));
  1140.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 80)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x8ACL],&pOt__td_0_COCS)));
  1141.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 81)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x8D4L],&pOt__td_0_COCS)));
  1142.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 82)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x8F8L],&pOt__td_0_COCS)));
  1143.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 83)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x920L],&pOt__td_0_COCS)));
  1144.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 84)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x93CL],&pOt__td_0_COCS)));
  1145.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 85)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x968L],&pOt__td_0_COCS)));
  1146.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 86)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x9A4L],&pOt__td_0_COCS)));
  1147.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 87)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x9CCL],&pOt__td_0_COCS)));
  1148.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 88)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x48L],&pOt__td_0_COCS)));
  1149.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 89)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x48L],&pOt__td_0_COCS)));
  1150.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 90)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x48L],&pOt__td_0_COCS)));
  1151.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 91)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x48L],&pOt__td_0_COCS)));
  1152.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 92)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xA1CL],&pOt__td_0_COCS)));
  1153.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 93)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xA4CL],&pOt__td_0_COCS)));
  1154.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 94)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xA74L],&pOt__td_0_COCS)));
  1155.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 95)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xA9CL],&pOt__td_0_COCS)));
  1156.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 96)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xAC8L],&pOt__td_0_COCS)));
  1157.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 97)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xAF0L],&pOt__td_0_COCS)));
  1158.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 98)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xB18L],&pOt__td_0_COCS)));
  1159.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 99)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x48L],&pOt__td_0_COCS)));
  1160.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 100)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xB40L],&pOt__td_0_COCS)));
  1161.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 101)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xB70L],&pOt__td_0_COCS)));
  1162.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 102)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xB94L],&pOt__td_0_COCS)));
  1163.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 103)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xBB8L],&pOt__td_0_COCS)));
  1164.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 104)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xBE0L],&pOt__td_0_COCS)));
  1165.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 105)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xC08L],&pOt__td_0_COCS)));
  1166.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 106)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xC2CL],&pOt__td_0_COCS)));
  1167.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 107)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xC50L],&pOt__td_0_COCS)));
  1168.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 108)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xC78L],&pOt__td_0_COCS)));
  1169.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 109)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x48L],&pOt__td_0_COCS)));
  1170.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 110)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xCA4L],&pOt__td_0_COCS)));
  1171.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 111)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xCC0L],&pOt__td_0_COCS)));
  1172.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 112)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xCECL],&pOt__td_0_COCS)));
  1173.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 113)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xD0CL],&pOt__td_0_COCS)));
  1174.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 114)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xD28L],&pOt__td_0_COCS)));
  1175.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 115)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xD3CL],&pOt__td_0_COCS)));
  1176.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 116)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xDA4L],&pOt__td_0_COCS)));
  1177.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 117)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xDF8L],&pOt__td_0_COCS)));
  1178.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 118)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xE50L],&pOt__td_0_COCS)));
  1179.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 119)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xEC0L],&pOt__td_0_COCS)));
  1180.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 120)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xEE8L],&pOt__td_0_COCS)));
  1181.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 121)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xF2CL],&pOt__td_0_COCS)));
  1182.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 122)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xF70L],&pOt__td_0_COCS)));
  1183.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 123)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xF9CL],&pOt__td_0_COCS)));
  1184.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 124)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xFECL],&pOt__td_0_COCS)));
  1185.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 125)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x102CL],&pOt__td_0_COCS)));
  1186.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 126)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1064L],&pOt__td_0_COCS)));
  1187.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 127)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1098L],&pOt__td_0_COCS)));
  1188.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 128)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x48L],&pOt__td_0_COCS)));
  1189.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 129)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x10B4L],&pOt__td_0_COCS)));
  1190.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 130)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x10D8L],&pOt__td_0_COCS)));
  1191.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 131)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1104L],&pOt__td_0_COCS)));
  1192.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 132)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1124L],&pOt__td_0_COCS)));
  1193.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 133)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1150L],&pOt__td_0_COCS)));
  1194.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 150)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x118CL],&pOt__td_0_COCS)));
  1195.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 151)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x11B8L],&pOt__td_0_COCS)));
  1196.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 152)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x11D4L],&pOt__td_0_COCS)));
  1197.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 153)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1204L],&pOt__td_0_COCS)));
  1198.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 154)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x48L],&pOt__td_0_COCS)));
  1199.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 155)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1238L],&pOt__td_0_COCS)));
  1200.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 156)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1268L],&pOt__td_0_COCS)));
  1201.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 200)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1294L],&pOt__td_0_COCS)));
  1202.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 201)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x12ACL],&pOt__td_0_COCS)));
  1203.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 202)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x12E4L],&pOt__td_0_COCS)));
  1204.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 203)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x131CL],&pOt__td_0_COCS)));
  1205.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 204)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1334L],&pOt__td_0_COCS)));
  1206.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 205)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x134CL],&pOt__td_0_COCS)));
  1207.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 206)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1364L],&pOt__td_0_COCS)));
  1208.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 207)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1378L],&pOt__td_0_COCS)));
  1209.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 208)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1394L],&pOt__td_0_COCS)));
  1210.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 209)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x48L],&pOt__td_0_COCS)));
  1211.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 210)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x48L],&pOt__td_0_COCS)));
  1212.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 211)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x48L],&pOt__td_0_COCS)));
  1213.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 212)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x48L],&pOt__td_0_COCS)));
  1214.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 213)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x48L],&pOt__td_0_COCS)));
  1215.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 214)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x48L],&pOt__td_0_COCS)));
  1216.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 215)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x13B8L],&pOt__td_0_COCS)));
  1217.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 216)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x48L],&pOt__td_0_COCS)));
  1218.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 217)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x7F0L],&pOt__td_0_COCS)));
  1219.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 218)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x13E8L],&pOt__td_0_COCS)));
  1220.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 219)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1418L],&pOt__td_0_COCS)));
  1221.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 220)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1448L],&pOt__td_0_COCS)));
  1222.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 221)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1468L],&pOt__td_0_COCS)));
  1223.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 222)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x48L],&pOt__td_0_COCS)));
  1224.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 223)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1490L],&pOt__td_0_COCS)));
  1225.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 224)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x14ACL],&pOt__td_0_COCS)));
  1226.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 225)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x48L],&pOt__td_0_COCS)));
  1227.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 226)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x48L],&pOt__td_0_COCS)));
  1228.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 227)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x14C8L],&pOt__td_0_COCS)));
  1229.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 228)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x14E8L],&pOt__td_0_COCS)));
  1230.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 229)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x150CL],&pOt__td_0_COCS)));
  1231.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 230)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1534L],&pOt__td_0_COCS)));
  1232.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 231)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x48L],&pOt__td_0_COCS)));
  1233.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 232)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x48L],&pOt__td_0_COCS)));
  1234.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 233)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1560L],&pOt__td_0_COCS)));
  1235.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 234)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x48L],&pOt__td_0_COCS)));
  1236.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 240)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1588L],&pOt__td_0_COCS)));
  1237.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 241)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xD28L],&pOt__td_0_COCS)));
  1238.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_errormsgs_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0xFA, 244)],(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x15A0L],&pOt__td_0_COCS)));
  1239.     pOt_OpenWriter_Texts((struct pOt__tag_5_Texts*)&pOt_Diag_COCS);
  1240.  
  1241.   pOt__Epilogue:;
  1242.   }
  1243. }
  1244.