1/* generated by gendata.sno */ 2 3 D_A(res.an_rd) = (int_t) (3*DESCR); 4 D_V(res.an_rd) = (int_t) (A); 5 D_A(res.an_ed) = (int_t) (RELS1_); 6 D_V(res.an_ed) = (int_t) (EDGDT); 7 D_A(res.an_1) = (int_t) (1); 8 D_V(res.an_1) = (int_t) (I); 9 D_A(res.am_de) = (int_t) (NEXT_); 10 D_V(res.am_de) = (int_t) (AEDGDT); 11 D_V(res.af_z) = (int_t) (I); 12 D_A(res.af_size) = (int_t) (3*DESCR); 13 D_V(res.af_size) = (int_t) (A); 14 D_A(res.bp_ary) = (int_t) (DESCR); 15 D_V(res.bp_ary) = (int_t) (A); 16 D_A(res.bp_two) = (int_t) (2); 17 D_V(res.bp_two) = (int_t) (I); 18 D_V(res.bp_0) = (int_t) (I); 19 D_A(res.bp_1) = (int_t) (1); 20 D_V(res.bp_1) = (int_t) (I); 21 D_V(res.bm_0) = (int_t) (I); 22 D_A(res.bk_ptr) = (int_t) (BK_SPEC); 23 S_A(res.bk_spec) = (int_t) " "; 24 S_L(res.bk_spec) = STRLEN(" "); 25 D_V(res.bx_zero) = (int_t) (I); 26 D_A(res.ch_dope) = (int_t) (CH_DOPE); 27 D_A(res.ch_pr+1) = (int_t) (2); 28 D_A(res.ch_h1) = (int_t) (1); 29 D_V(res.ch_h1) = (int_t) (S-S); 30 D_A(res.ch_d1) = (int_t) (1); 31 D_V(res.ch_d1) = (int_t) (S-S); 32 D_A(res.ch_dl) = (int_t) (4*DESCR); 33 S_A(res.ch_spec) = (int_t) (CH_BUF); 34 S_L(res.ch_spec) = 16; 35 D_A(res.co_de) = (int_t) (2*DESCR); 36 D_V(res.co_de) = (int_t) (AEDGDT); 37 D_A(res.cf_unit) = (int_t) (DIAGUN); 38 D_A(res.di_dsc) = (int_t) (DESCR); 39 D_A(res.dp_8) = (int_t) (8); 40 D_A(res.dp_unit) = (int_t) (PRUNO); 41 D_A(res.ea_de) = (int_t) (NEXT_); 42 D_V(res.ea_de) = (int_t) (AEDGDT); 43 D_A(res.em_diag) = (int_t) (DIAGUN); 44 D_A(res.fx_a1) = (int_t) (FX_N1); 45 D_V(res.fx_a1) = (int_t) (4); 46 D_A(res.fx_n1) = (int_t) (1); 47 D_V(res.fx_n1) = (int_t) (6); 48 D_A(res.fx_nn) = (int_t) (FX_NA); 49 D_V(res.fx_nn) = (int_t) (A); 50 D_A(res.fx_na) = (int_t) (FX_NA); 51 D_V(res.fx_na) = (int_t) (2*DESCR); 52 D_A(res.fx_na+1) = (int_t) (2*DESCR); 53 D_V(res.fo_zero) = (int_t) (I); 54 D_A(res.gr_reg) = (int_t) (3*DESCR); 55 D_V(res.gr_reg) = (int_t) (A); 56 D_A(res.id_d) = (int_t) (DTH_); 57 D_V(res.id_d) = (int_t) (SBDT); 58 D_A(res.is_sbd) = (int_t) (3*DESCR); 59 D_V(res.is_sbd) = (int_t) (SBDT); 60 D_A(res.in_unit) = (int_t) (DIAGUN); 61 D_A(res.jel_size) = (int_t) (RELS1_); 62 D_V(res.jel_size) = (int_t) (EDGDT); 63 D_A(res.jn_size) = (int_t) (3*DESCR+FIRST_); 64 D_V(res.jn_size) = (int_t) (BL); 65 D_A(res.lo_a1) = (int_t) (LO_N1); 66 D_V(res.lo_a1) = (int_t) (4); 67 D_A(res.lo_n1) = (int_t) (1); 68 D_V(res.lo_n1) = (int_t) (6); 69 D_A(res.lr_1) = (int_t) (LR_2); 70 D_V(res.lr_1) = (int_t) (B); 71 D_A(res.lr_2) = (int_t) (LR_2); 72 D_V(res.lr_2) = (int_t) (2*DESCR); 73 D_A(res.mi_ed) = (int_t) (RELS1_); 74 D_V(res.mi_ed) = (int_t) (EDGDT); 75 D_A(res.nr_vf) = (int_t) (NR_VFS); 76 D_A(res.nr_va) = (int_t) (NR_VAS); 77 D_A(res.nr_hf) = (int_t) (NR_HFS); 78 D_A(res.nr_ha) = (int_t) (NR_HAS); 79 D_A(res.nr_nf) = (int_t) (NR_NFS); 80 D_A(res.nr_na) = (int_t) (NR_NAS); 81 S_A(res.nr_vfs) = (int_t) "T"; 82 S_L(res.nr_vfs) = STRLEN("T"); 83 S_A(res.nr_vas) = (int_t) "B"; 84 S_L(res.nr_vas) = STRLEN("B"); 85 S_A(res.nr_hfs) = (int_t) "L"; 86 S_L(res.nr_hfs) = STRLEN("L"); 87 S_A(res.nr_has) = (int_t) "R"; 88 S_L(res.nr_has) = STRLEN("R"); 89 S_A(res.nr_nfs) = (int_t) "F"; 90 S_L(res.nr_nfs) = STRLEN("F"); 91 S_A(res.nr_nas) = (int_t) "R"; 92 S_L(res.nr_nas) = STRLEN("R"); 93 D_V(res.nr_sc) = (int_t) (I); 94 D_A(res.nr_sf) = (int_t) (1); 95 D_V(res.nr_sf) = (int_t) (I); 96 D_A(res.nr_sa) = (int_t) (2); 97 D_V(res.nr_sa) = (int_t) (I); 98 D_A(res.nr_unit) = (int_t) (PRUNO); 99 D_A(res.nr_des) = (int_t) (DESCR); 100 D_V(res.pc_mg) = (int_t) (MERGE_); 101 D_A(res.ps_two) = (int_t) (2); 102 D_V(res.ps_two) = (int_t) (I); 103 D_V(res.ps_zr) = (int_t) (I); 104 D_A(res.pr_pun) = (int_t) (PRUNO); 105 S_A(res.pr_plus) = (int_t) "+"; 106 S_L(res.pr_plus) = STRLEN("+"); 107 S_A(res.pr_1) = (int_t) "1"; 108 S_L(res.pr_1) = STRLEN("1"); 109 S_A(res.pr_null) = (int_t) ""; 110 S_L(res.pr_null) = STRLEN(""); 111 D_A(res.pb_fs) = (int_t) (DTH_); 112 D_A(res.pb_fr) = (int_t) (PB_FR); 113 D_A(res.np_de) = (int_t) (ARRAY_); 114 D_V(res.np_de) = (int_t) (BL); 115 D_A(res.np_bk) = (int_t) (NP_BK); 116 D_V(res.np_org) = (int_t) (PHY_); 117 D_V(res.re_0) = (int_t) (I); 118 D_A(res.sb_dsb) = (int_t) (FRSIZE_); 119 D_V(res.sb_dsb) = (int_t) (SBDT); 120 D_A(res.ctr_reg) = (int_t) (TL_STR); 121 D_V(res.ctr_reg) = (int_t) (A); 122 D_A(res.tl_str) = (int_t) (TL_STR); 123 D_V(res.tl_str) = (int_t) (3*DESCR); 124 D_A(res.tl_size) = (int_t) (TNREG_); 125 D_V(res.tl_size) = (int_t) (TNDT); 126 D_V(res.ud_dft) = (int_t) (DEF_); 127 D_V(res.ud_id) = (int_t) (NODE_); 128 D_A(res.ud_size) = (int_t) (ELEMENT_); 129 D_V(res.ud_size) = (int_t) (BL); 130 D_V(res.ud_it) = (int_t) (IT_); 131 D_V(res.ud_rep) = (int_t) (REP_); 132 D_A(res.un_std) = (int_t) (PRUNO); 133 D_V(res.un_std) = (int_t) (I); 134 D_A(res.un_dfp) = (int_t) (UN_DFT); 135 D_A(res.un_dft) = (int_t) (UN_DFT); 136 D_V(res.un_dft) = (int_t) (2*DESCR); 137 D_A(res.un_dft+1) = (int_t) (PRUNO); 138 D_V(res.un_dft+1) = (int_t) (I); 139 D_A(res.un_dft+2) = (int_t) (1); 140 D_V(res.un_0) = (int_t) (I); 141 D_A(res.un_un4) = (int_t) (3*DESCR); 142 D_A(res.un_un3) = (int_t) (UN_UN2+DESCR); 143 D_A(res.un_un1) = (int_t) (UN_UN2); 144 D_A(res.un_un2) = (int_t) (UN_UN2); 145 D_V(res.un_un2) = (int_t) (4*DESCR); 146 D_A(res.wa_diag) = (int_t) (DIAGUN); 147 D_A(res.dtlist) = (int_t) (DTLIST); 148 D_F(res.dtlist) = TTL+MARK; 149 D_V(res.dtlist) = (int_t) (DTLEND-DTLIST-DESCR); 150 D_V(res.dtlist+1) = (int_t) (S); 151 D_A(res.dtlist+2) = (int_t) (VARSP); 152 D_V(res.dtlist+3) = (int_t) (I); 153 D_A(res.dtlist+4) = (int_t) (INTGSP); 154 D_V(res.dtlist+5) = (int_t) (P); 155 D_A(res.dtlist+6) = (int_t) (PATSP); 156 D_V(res.dtlist+7) = (int_t) (A); 157 D_A(res.dtlist+8) = (int_t) (ARRSP); 158 D_V(res.dtlist+9) = (int_t) (R); 159 D_A(res.dtlist+10) = (int_t) (RLSP); 160 D_V(res.dtlist+11) = (int_t) (C); 161 D_A(res.dtlist+12) = (int_t) (CODESP); 162 D_V(res.dtlist+13) = (int_t) (N); 163 D_A(res.dtlist+14) = (int_t) (NAMESP); 164 D_V(res.dtlist+15) = (int_t) (K); 165 D_A(res.dtlist+16) = (int_t) (NAMESP); 166 D_V(res.dtlist+17) = (int_t) (E); 167 D_A(res.dtlist+18) = (int_t) (EXPSP); 168 D_V(res.dtlist+19) = (int_t) (T); 169 D_A(res.dtlist+20) = (int_t) (ASSCSP); 170 D_V(res.dtlist+21) = (int_t) (BL); 171 D_A(res.dtlist+22) = (int_t) (BLOKSP); 172 D_A(res.knlist) = (int_t) (KNLIST); 173 D_F(res.knlist) = TTL+MARK; 174 D_V(res.knlist) = (int_t) (KNEND-KNLIST-DESCR); 175 D_V(res.trimcl) = (int_t) (I); 176 D_A(res.trimcl+1) = (int_t) (TRMSP); 177 D_V(res.trapcl) = (int_t) (I); 178 D_A(res.trapcl+1) = (int_t) (TRCESP); 179 D_A(res.exlmcl) = (int_t) (-1); 180 D_V(res.exlmcl) = (int_t) (I); 181 D_A(res.exlmcl+1) = (int_t) (STLMSP); 182 D_A(res.outsw) = (int_t) (1); 183 D_V(res.outsw) = (int_t) (I); 184 D_A(res.outsw+1) = (int_t) (OUTSP); 185 D_A(res.mlencl) = (int_t) (SIZLIM); 186 D_V(res.mlencl) = (int_t) (I); 187 D_A(res.mlencl+1) = (int_t) (MAXLSP); 188 D_A(res.insw) = (int_t) (1); 189 D_V(res.insw) = (int_t) (I); 190 D_A(res.insw+1) = (int_t) (INSP); 191 D_V(res.gctrcl) = (int_t) (I); 192 D_A(res.gctrcl+1) = (int_t) (GTRCSP); 193 D_V(res.fullcl) = (int_t) (I); 194 D_A(res.fullcl+1) = (int_t) (FULLSP); 195 D_V(res.tracl) = (int_t) (I); 196 D_A(res.tracl+1) = (int_t) (FTRCSP); 197 D_A(res.bkgncl+1) = (int_t) (BKGNSP); 198 D_V(res.ftllcl) = (int_t) (I); 199 D_A(res.ftllcl+1) = (int_t) (FTLLSP); 200 D_V(res.errlcl) = (int_t) (I); 201 D_A(res.errlcl+1) = (int_t) (ERRLSP); 202 D_V(res.dmpcl) = (int_t) (I); 203 D_A(res.dmpcl+1) = (int_t) (DUMPSP); 204 D_V(res.retcod) = (int_t) (I); 205 D_A(res.retcod+1) = (int_t) (CODESP); 206 D_A(res.casecl) = (int_t) (1); 207 D_V(res.casecl) = (int_t) (I); 208 D_A(res.casecl+1) = (int_t) (CASESP); 209 D_V(res.anccl) = (int_t) (I); 210 D_A(res.anccl+1) = (int_t) (ANCHSP); 211 D_V(res.abndcl) = (int_t) (I); 212 D_A(res.abndcl+1) = (int_t) (ABNDSP); 213 D_A(res.kvlist) = (int_t) (KVLIST); 214 D_F(res.kvlist) = TTL+MARK; 215 D_V(res.kvlist) = (int_t) (KVEND-KVLIST-DESCR); 216 D_V(res.errtyp) = (int_t) (I); 217 D_A(res.errtky) = (int_t) (ERRTSP); 218 D_V(res.errtxt) = (int_t) (S); 219 D_A(res.etxtky) = (int_t) (ERTXSP); 220 D_A(res.arbpat) = (int_t) (ARBPT); 221 D_V(res.arbpat) = (int_t) (P); 222 D_A(res.arbky) = (int_t) (ARBSP); 223 D_A(res.balpat) = (int_t) (BALPT); 224 D_V(res.balpat) = (int_t) (P); 225 D_A(res.balky) = (int_t) (BALSP); 226 D_A(res.fncpat) = (int_t) (FNCEPT); 227 D_V(res.fncpat) = (int_t) (P); 228 D_A(res.fnceky) = (int_t) (FNCESP); 229 D_A(res.abopat) = (int_t) (ABORPT); 230 D_V(res.abopat) = (int_t) (P); 231 D_A(res.abrtky) = (int_t) (ABORSP); 232 D_A(res.falpat) = (int_t) (FAILPT); 233 D_V(res.falpat) = (int_t) (P); 234 D_A(res.failky) = (int_t) (FAILSP); 235 D_V(res.filenm) = (int_t) (S); 236 D_A(res.filenm+1) = (int_t) (FILESP); 237 D_V(res.lnnocl) = (int_t) (I); 238 D_A(res.lnnocl+1) = (int_t) (LINESP); 239 D_V(res.lsflnm) = (int_t) (S); 240 D_A(res.lsflnm+1) = (int_t) (LSFNSP); 241 D_V(res.lslncl) = (int_t) (I); 242 D_A(res.lslncl+1) = (int_t) (LSLNSP); 243 D_A(res.rempat) = (int_t) (REMPT); 244 D_V(res.rempat) = (int_t) (P); 245 D_A(res.remky) = (int_t) (REMSP); 246 D_A(res.sucpat) = (int_t) (SUCCPT); 247 D_V(res.sucpat) = (int_t) (P); 248 D_A(res.succky) = (int_t) (SUCCSP); 249 D_V(res.falcl) = (int_t) (I); 250 D_A(res.falky) = (int_t) (STFCSP); 251 D_V(res.lstncl) = (int_t) (I); 252 D_A(res.lstncl+1) = (int_t) (LSTNSP); 253 D_V(res.retpcl) = (int_t) (S); 254 D_A(res.retpcl+1) = (int_t) (RTYPSP); 255 D_V(res.stnocl) = (int_t) (I); 256 D_A(res.stnoky) = (int_t) (STNOSP); 257 D_A(res.alphvl+1) = (int_t) (ALNMSP); 258 D_V(res.exnocl) = (int_t) (I); 259 D_A(res.stctky) = (int_t) (STCTSP); 260 D_V(res.lvlcl) = (int_t) (I); 261 D_A(res.fnclky) = (int_t) (FNCLSP); 262 D_A(res.lcasvl+1) = (int_t) (LCNMSP); 263 D_A(res.ucasvl+1) = (int_t) (UCNMSP); 264 D_V(res.parmvl) = (int_t) (S); 265 D_A(res.parmvl+1) = (int_t) (PARMSP); 266 D_A(res.digsvl+1) = (int_t) (DGNMSP); 267 D_RV(res.digsvl+2) = 3.1415926535897932384626433; 268 D_V(res.digsvl+2) = R; 269 D_A(res.digsvl+3) = (int_t) (PISP); 270 D_V(res.exn2cl) = (int_t) (I); 271 D_A(res.exn2cl+1) = (int_t) (STXTSP); 272 D_RV(res.gctttl) = 0.0; 273 D_V(res.gctttl) = R; 274 D_A(res.gctttl+1) = (int_t) (GCTMSP); 275 D_A(res.gctttl+2) = (int_t) (SMAXINT); 276 D_V(res.gctttl+2) = (int_t) (I); 277 D_A(res.gctttl+3) = (int_t) (MAXISP); 278 D_V(res.cstncl) = (int_t) (I); 279 D_A(res.cstncl+1) = (int_t) (CNOSP); 280 D_V(res.fatlcl) = (int_t) (I); 281 D_A(res.fatlcl+1) = (int_t) (FATLSP); 282 D_A(res.inlist) = (int_t) (INLIST); 283 D_F(res.inlist) = TTL+MARK; 284 D_V(res.inlist) = (int_t) (4*DESCR); 285 D_A(res.inlist+1) = (int_t) (INPUT-DESCR); 286 D_A(res.inlist+2) = (int_t) (INSP); 287 D_A(res.inlist+3) = (int_t) (TERMIN-DESCR); 288 D_A(res.inlist+4) = (int_t) (TERMSP); 289 D_A(res.otlist) = (int_t) (OTLIST); 290 D_F(res.otlist) = TTL+MARK; 291 D_V(res.otlist) = (int_t) (4*DESCR); 292 D_A(res.otlist+1) = (int_t) (OUTPUT-DESCR); 293 D_A(res.otlist+2) = (int_t) (OUTSP); 294 D_A(res.otlist+3) = (int_t) (PUNCH-DESCR); 295 D_A(res.otlist+4) = (int_t) (TERMSP); 296 D_A(res.otsatl) = (int_t) (OTSATL); 297 D_F(res.otsatl) = TTL+MARK; 298 D_V(res.otsatl) = (int_t) (4*DESCR); 299 D_A(res.output) = (int_t) (UNITO); 300 D_V(res.output) = (int_t) (I); 301 D_A(res.output+1) = (int_t) (OUTPSP); 302 D_A(res.punch) = (int_t) (UNITP); 303 D_V(res.punch) = (int_t) (I); 304 D_A(res.pchfst) = (int_t) (CRDFSP); 305 D_A(res.insatl) = (int_t) (INSATL); 306 D_F(res.insatl) = TTL+MARK; 307 D_V(res.insatl) = (int_t) (2*DESCR); 308 D_A(res.input) = (int_t) (UNITI); 309 D_V(res.input) = (int_t) (I); 310 D_A(res.dflsiz) = (int_t) (VLRECL); 311 D_V(res.dflsiz) = (int_t) (I); 312 D_A(res.termin) = (int_t) (UNITT); 313 D_V(res.termin) = (int_t) (I); 314 D_A(res.termin+1) = (int_t) (VLRECL); 315 D_V(res.termin+1) = (int_t) (I); 316 D_A(res.trlist) = (int_t) (TRLIST); 317 D_F(res.trlist) = TTL+MARK; 318 D_V(res.trlist) = (int_t) (20*DESCR); 319 D_A(res.trlist+1) = (int_t) (TVALL); 320 D_A(res.valtrs) = (int_t) (VALSP); 321 D_A(res.valtrs+1) = (int_t) (TLABL); 322 D_A(res.valtrs+2) = (int_t) (TRLASP); 323 D_A(res.tfnclp) = (int_t) (TFENTL); 324 D_A(res.tfnclp+1) = (int_t) (TRFRSP); 325 D_A(res.tfnrlp) = (int_t) (TFEXTL); 326 D_A(res.tfnrlp+1) = (int_t) (RETSP); 327 D_A(res.tfnrlp+2) = (int_t) (TKEYL); 328 D_A(res.tfnrlp+3) = (int_t) (TRKYSP); 329 D_A(res.tfnrlp+4) = (int_t) (TVALL); 330 D_A(res.tfnrlp+5) = (int_t) (VEESP); 331 D_A(res.tfnrlp+6) = (int_t) (TLABL); 332 D_A(res.tfnrlp+7) = (int_t) (LSP); 333 D_A(res.tfnrlp+8) = (int_t) (TFENTL); 334 D_A(res.tfnrlp+9) = (int_t) (CSP); 335 D_A(res.tfnrlp+10) = (int_t) (TFEXTL); 336 D_A(res.tfnrlp+11) = (int_t) (RSP); 337 D_A(res.tfnrlp+12) = (int_t) (TKEYL); 338 D_A(res.tfnrlp+13) = (int_t) (KSP); 339 D_A(res.trcblk) = (int_t) (TRCBLK); 340 D_F(res.trcblk) = TTL+MARK; 341 D_V(res.trcblk) = (int_t) (5*DESCR); 342 D_F(res.trcblk+1) = FNC; 343 D_V(res.trcblk+1) = (int_t) (2); 344 D_A(res.lit1cl) = (int_t) (LITFN); 345 D_F(res.lit1cl) = FNC; 346 D_V(res.lit1cl) = (int_t) (1); 347 D_A(res.lit1cl+2) = (int_t) (LITFN); 348 D_F(res.lit1cl+2) = FNC; 349 D_V(res.lit1cl+2) = (int_t) (1); 350 D_A(res.atrhd) = (int_t) (ATPRCL-DESCR); 351 D_A(res.atprcl+1) = (int_t) (2); 352 D_A(res.atprcl+2) = (int_t) (1); 353 D_V(res.atprcl+2) = (int_t) (2); 354 D_A(res.atexcl) = (int_t) (1); 355 D_A(res.atdtp) = (int_t) (A); 356 D_V(res.atdtp) = (int_t) (T); 357 D_A(res.iidtp) = (int_t) (I); 358 D_V(res.iidtp) = (int_t) (I); 359 D_A(res.ipdtp) = (int_t) (I); 360 D_V(res.ipdtp) = (int_t) (P); 361 D_A(res.irdtp) = (int_t) (I); 362 D_V(res.irdtp) = (int_t) (R); 363 D_A(res.ivdtp) = (int_t) (I); 364 D_V(res.ivdtp) = (int_t) (S); 365 D_A(res.pidtp) = (int_t) (P); 366 D_V(res.pidtp) = (int_t) (I); 367 D_A(res.ppdtp) = (int_t) (P); 368 D_V(res.ppdtp) = (int_t) (P); 369 D_A(res.pvdtp) = (int_t) (P); 370 D_V(res.pvdtp) = (int_t) (S); 371 D_A(res.ridtp) = (int_t) (R); 372 D_V(res.ridtp) = (int_t) (I); 373 D_A(res.rpdtp) = (int_t) (R); 374 D_V(res.rpdtp) = (int_t) (P); 375 D_A(res.rrdtp) = (int_t) (R); 376 D_V(res.rrdtp) = (int_t) (R); 377 D_A(res.rvdtp) = (int_t) (R); 378 D_V(res.rvdtp) = (int_t) (S); 379 D_A(res.tadtp) = (int_t) (T); 380 D_V(res.tadtp) = (int_t) (A); 381 D_A(res.vcdtp) = (int_t) (S); 382 D_V(res.vcdtp) = (int_t) (C); 383 D_A(res.vedtp) = (int_t) (S); 384 D_V(res.vedtp) = (int_t) (E); 385 D_A(res.vidtp) = (int_t) (S); 386 D_V(res.vidtp) = (int_t) (I); 387 D_A(res.vpdtp) = (int_t) (S); 388 D_V(res.vpdtp) = (int_t) (P); 389 D_A(res.vrdtp) = (int_t) (S); 390 D_V(res.vrdtp) = (int_t) (R); 391 D_A(res.vvdtp) = (int_t) (S); 392 D_V(res.vvdtp) = (int_t) (S); 393 D_A(res.banrcl) = (int_t) (1); 394 D_A(res.compcl) = (int_t) (1); 395 D_A(res.execcl) = (int_t) (1); 396 D_A(res.llist) = (int_t) (1); 397 D_A(res.nerrcl) = (int_t) (1); 398 D_A(res.spitcl) = (int_t) (1); 399 D_V(res.spitcl) = (int_t) (I); 400 D_V(res.blokcl) = (int_t) (I); 401 D_A(res.arbsiz) = (int_t) (8*NODESZ); 402 D_A(res.charcl) = (int_t) (1); 403 D_A(res.cndsiz) = (int_t) (CNODSZ); 404 D_V(res.cndsiz) = (int_t) (B); 405 D_A(res.codelt) = (int_t) (200*DESCR); 406 D_V(res.codelt) = (int_t) (C); 407 D_A(res.dscrtw) = (int_t) (2*DESCR); 408 D_A(res.eoscl) = (int_t) (EOSTYP); 409 D_A(res.esalim) = (int_t) (ESASIZ*DESCR); 410 D_A(res.extval) = (int_t) (EXTSIZ*2*DESCR); 411 D_A(res.fblkrq) = (int_t) (FBLKSZ); 412 D_V(res.fblkrq) = (int_t) (B); 413 D_A(res.gtocl) = (int_t) (FGOTYP); 414 D_A(res.inclsz) = (int_t) (4*DESCR); 415 D_V(res.inclsz) = (int_t) (B); 416 D_A(res.ioblsz) = (int_t) (2*DESCR); 417 D_V(res.ioblsz) = (int_t) (B); 418 D_A(res.lnodsz) = (int_t) (NODESZ+DESCR); 419 D_V(res.lnodsz) = (int_t) (P); 420 D_A(res.nodsiz) = (int_t) (NODESZ); 421 D_V(res.nodsiz) = (int_t) (P); 422 D_A(res.obend) = (int_t) (OBLIST+DESCR*OBOFF); 423 D_A(res.ocalim) = (int_t) (OCASIZ*DESCR); 424 D_V(res.ocalim) = (int_t) (C); 425 D_A(res.onecl) = (int_t) (1); 426 D_A(res.outblk) = (int_t) (OUTPUT-DESCR); 427 D_A(res.errblk) = (int_t) (PUNCH-DESCR); 428 D_A(res.sizlmt) = (int_t) (SIZLIM); 429 D_A(res.snodsz) = (int_t) (NODESZ); 430 D_V(res.snodsz) = (int_t) (P); 431 D_A(res.starsz) = (int_t) (11*DESCR); 432 D_V(res.starsz) = (int_t) (P); 433 D_A(res.trskel) = (int_t) (TRCBLK); 434 D_A(res.comdct) = (int_t) (15*DESCR); 435 D_A(res.comreg) = (int_t) (ELEMND); 436 D_A(res.arback) = (int_t) (ARBAK); 437 D_V(res.arback) = (int_t) (P); 438 D_A(res.arhead) = (int_t) (ARHED); 439 D_V(res.arhead) = (int_t) (P); 440 D_A(res.artail) = (int_t) (ARTAL); 441 D_V(res.artail) = (int_t) (P); 442 D_A(res.strpat) = (int_t) (STARPT); 443 D_V(res.strpat) = (int_t) (P); 444 D_A(res.anyccl) = (int_t) (ANYCFN); 445 D_F(res.anyccl) = FNC; 446 D_V(res.anyccl) = (int_t) (3); 447 D_A(res.asgncl) = (int_t) (ASGNFN); 448 D_F(res.asgncl) = FNC; 449 D_V(res.asgncl) = (int_t) (2); 450 D_A(res.atopcl) = (int_t) (ATOPFN); 451 D_F(res.atopcl) = FNC; 452 D_V(res.atopcl) = (int_t) (3); 453 D_A(res.basecl) = (int_t) (BASEFN); 454 D_F(res.basecl) = FNC; 455 D_A(res.brkccl) = (int_t) (BRKCFN); 456 D_F(res.brkccl) = FNC; 457 D_V(res.brkccl) = (int_t) (3); 458 D_A(res.brxccl) = (int_t) (BRXCFN); 459 D_F(res.brxccl) = FNC; 460 D_V(res.brxccl) = (int_t) (3); 461 D_A(res.brxfcl) = (int_t) (BRFCFN); 462 D_F(res.brxfcl) = FNC; 463 D_V(res.brxfcl) = (int_t) (2); 464 D_A(res.chrcl) = (int_t) (CHRFN); 465 D_F(res.chrcl) = FNC; 466 D_V(res.chrcl) = (int_t) (3); 467 D_A(res.cmacl) = (int_t) (CMAFN); 468 D_F(res.cmacl) = FNC; 469 D_A(res.concl) = (int_t) (CONFN); 470 D_F(res.concl) = FNC; 471 D_A(res.dnmecl) = (int_t) (DNMEFN); 472 D_F(res.dnmecl) = FNC; 473 D_V(res.dnmecl) = (int_t) (2); 474 D_A(res.dnmicl) = (int_t) (DNMIFN); 475 D_F(res.dnmicl) = FNC; 476 D_V(res.dnmicl) = (int_t) (2); 477 D_A(res.endcl) = (int_t) (ENDFN); 478 D_F(res.endcl) = FNC; 479 D_A(res.enmecl) = (int_t) (ENMEFN); 480 D_F(res.enmecl) = FNC; 481 D_V(res.enmecl) = (int_t) (3); 482 D_A(res.enmicl) = (int_t) (ENMIFN); 483 D_F(res.enmicl) = FNC; 484 D_V(res.enmicl) = (int_t) (3); 485 D_A(res.erorcl) = (int_t) (ERORFN); 486 D_F(res.erorcl) = FNC; 487 D_V(res.erorcl) = (int_t) (1); 488 D_A(res.fncfcl) = (int_t) (FNCFFN); 489 D_F(res.fncfcl) = FNC; 490 D_V(res.fncfcl) = (int_t) (2); 491 D_A(res.fnmecl) = (int_t) (FNMEFN); 492 D_F(res.fnmecl) = FNC; 493 D_V(res.fnmecl) = (int_t) (2); 494 D_A(res.gotgcl) = (int_t) (GOTGFN); 495 D_F(res.gotgcl) = FNC; 496 D_V(res.gotgcl) = (int_t) (1); 497 D_A(res.gotlcl) = (int_t) (GOTLFN); 498 D_F(res.gotlcl) = FNC; 499 D_V(res.gotlcl) = (int_t) (1); 500 D_A(res.gotocl) = (int_t) (GOTOFN); 501 D_F(res.gotocl) = FNC; 502 D_V(res.gotocl) = (int_t) (1); 503 D_A(res.initcl) = (int_t) (INITFN); 504 D_F(res.initcl) = FNC; 505 D_V(res.initcl) = (int_t) (1); 506 D_A(res.itemcl) = (int_t) (AREFN); 507 D_F(res.itemcl) = FNC; 508 D_A(res.litcl) = (int_t) (LITFN); 509 D_F(res.litcl) = FNC; 510 D_A(res.lnthcl) = (int_t) (LNTHFN); 511 D_F(res.lnthcl) = FNC; 512 D_V(res.lnthcl) = (int_t) (3); 513 D_A(res.nmecl) = (int_t) (NMEFN); 514 D_F(res.nmecl) = FNC; 515 D_V(res.nmecl) = (int_t) (2); 516 D_A(res.nnyccl) = (int_t) (NNYCFN); 517 D_F(res.nnyccl) = FNC; 518 D_V(res.nnyccl) = (int_t) (3); 519 D_A(res.posicl) = (int_t) (POSIFN); 520 D_F(res.posicl) = FNC; 521 D_V(res.posicl) = (int_t) (3); 522 D_A(res.rpsicl) = (int_t) (RPSIFN); 523 D_F(res.rpsicl) = FNC; 524 D_V(res.rpsicl) = (int_t) (3); 525 D_A(res.rtbcl) = (int_t) (RTBFN); 526 D_F(res.rtbcl) = FNC; 527 D_V(res.rtbcl) = (int_t) (3); 528 D_A(res.scancl) = (int_t) (SCANFN); 529 D_F(res.scancl) = FNC; 530 D_V(res.scancl) = (int_t) (2); 531 D_A(res.scflcl) = (int_t) (SCFLFN); 532 D_F(res.scflcl) = FNC; 533 D_V(res.scflcl) = (int_t) (2); 534 D_A(res.scokcl) = (int_t) (SCOKFN); 535 D_F(res.scokcl) = FNC; 536 D_V(res.scokcl) = (int_t) (2); 537 D_A(res.sconcl) = (int_t) (SCONFN); 538 D_F(res.sconcl) = FNC; 539 D_V(res.sconcl) = (int_t) (2); 540 D_A(res.sjsrcl) = (int_t) (SJSRFN); 541 D_F(res.sjsrcl) = FNC; 542 D_V(res.sjsrcl) = (int_t) (3); 543 D_A(res.spnccl) = (int_t) (SPNCFN); 544 D_F(res.spnccl) = FNC; 545 D_V(res.spnccl) = (int_t) (3); 546 D_A(res.sucfcl) = (int_t) (SUCFFN); 547 D_F(res.sucfcl) = FNC; 548 D_V(res.sucfcl) = (int_t) (2); 549 D_A(res.tbcl) = (int_t) (TBFN); 550 D_F(res.tbcl) = FNC; 551 D_V(res.tbcl) = (int_t) (3); 552 D_A(res.initb) = (int_t) (ABNDB); 553 D_A(res.inite) = (int_t) (DTEND+DESCR); 554 D_V(res.datseg) = (int_t) (DATSTA); 555 D_A(res.errbas) = (int_t) (CARDSZ+STNOSZ); 556 D_A(res.nexfcl) = (int_t) (FBLKSZ); 557 D_A(res.msgno) = (int_t) (MSGLST); 558 D_A(res.nmover) = (int_t) (NAMLSZ*SPDR); 559 D_V(res.nmover) = (int_t) (B); 560 D_V(res.nulvcl) = (int_t) (S); 561 D_F(res.stype) = FNC; 562 D_A(res.datcl) = (int_t) (DEFDAT); 563 D_F(res.datcl) = FNC; 564 D_A(res.defcl) = (int_t) (DEFFNC); 565 D_F(res.defcl) = FNC; 566 D_A(res.fldcl) = (int_t) (FIELD); 567 D_V(res.fldcl) = (int_t) (1); 568 D_A(res.lodcl) = (int_t) (LNKFNC); 569 D_F(res.lodcl) = FNC; 570 D_A(res.undfcl) = (int_t) (UNDF); 571 D_F(res.undfcl) = FNC; 572 D_A(res.dpsptr) = (int_t) (DPSP); 573 D_A(res.xspptr) = (int_t) (XSP); 574 D_A(res.yspptr) = (int_t) (YSP); 575 D_A(res.zspptr) = (int_t) (ZSP); 576 D_A(res.tspptr) = (int_t) (TSP); 577 D_A(res.ispptr) = (int_t) (IOSP); 578 D_A(res.knatl) = (int_t) (KNLIST); 579 D_A(res.kvatl) = (int_t) (KVLIST); 580 D_A(res.tratl) = (int_t) (TRLIST); 581 S_A(res.blnsp) = (int_t) (BLNBUF); 582 S_L(res.blnsp) = STNOSZ; 583 S_A(res.errsp) = (int_t) (ERRBUF); 584 S_L(res.errsp) = CARDSZ+STNOSZ+1; 585 S_A(res.lnbfsp) = (int_t) (INBUF); 586 S_L(res.lnbfsp) = CARDSZ+DSTSZ+1; 587 S_A(res.nextsp) = (int_t) (INBUF); 588 S_O(res.nextsp) = STNOSZ; 589 S_L(res.nextsp) = CARDSZ; 590 S_A(res.lnosp) = (int_t) (INBUF); 591 S_L(res.lnosp) = STNOSZ; 592 S_A(res.rnosp) = (int_t) (INBUF); 593 S_O(res.rnosp) = CARDSZ+STNOSZ+1; 594 S_L(res.rnosp) = STNOSZ; 595 S_A(res.alphsp) = (int_t) (ALPHA); 596 S_L(res.alphsp) = ALPHSZ; 597 S_A(res.ampsp) = (int_t) (AMPST); 598 S_L(res.ampsp) = 1; 599 S_A(res.cerrsp) = (int_t) (ANYSP); 600 S_A(res.colsp) = (int_t) (COLSTR); 601 S_L(res.colsp) = 1; 602 S_A(res.digssp) = (int_t) (DIGITS); 603 S_L(res.digssp) = DIGSSZ; 604 S_A(res.dmpsp) = (int_t) (ANYSP); 605 S_A(res.dtarsp) = (int_t) (DTARBF); 606 S_L(res.dtarsp) = ARRLEN+9; 607 S_A(res.lcassp) = (int_t) (LCASE); 608 S_L(res.lcassp) = LCASSZ; 609 S_A(res.protsp) = (int_t) (ANYSP); 610 S_A(res.qtsp) = (int_t) (QTSTR); 611 S_L(res.qtsp) = 1; 612 S_A(res.realsp) = (int_t) (REALBF); 613 S_L(res.realsp) = 10; 614 S_A(res.spcsp) = (int_t) (SPCSTR); 615 S_L(res.spcsp) = 1; 616 S_A(res.tracsp) = (int_t) (ANYSP); 617 S_A(res.ucassp) = (int_t) (UCASE); 618 S_L(res.ucassp) = UCASSZ; 619 S_A(res.arrsp) = (int_t) "ARRAY"; 620 S_L(res.arrsp) = STRLEN("ARRAY"); 621 S_A(res.asscsp) = (int_t) "TABLE"; 622 S_L(res.asscsp) = STRLEN("TABLE"); 623 S_A(res.blsp) = (int_t) " "; 624 S_L(res.blsp) = STRLEN(" "); 625 S_A(res.bleqsp) = (int_t) " = "; 626 S_L(res.bleqsp) = STRLEN(" = "); 627 S_A(res.cmasp) = (int_t) ","; 628 S_L(res.cmasp) = STRLEN(","); 629 S_A(res.col1sp) = (int_t) ":"; 630 S_L(res.col1sp) = STRLEN(":"); 631 S_A(res.ejctsp) = (int_t) "EJECT"; 632 S_L(res.ejctsp) = STRLEN("EJECT"); 633 S_A(res.eqlsp) = (int_t) "= "; 634 S_L(res.eqlsp) = STRLEN("= "); 635 S_A(res.erorsp) = (int_t) "ERRORS"; 636 S_L(res.erorsp) = STRLEN("ERRORS"); 637 S_A(res.etimsp) = (int_t) ", time = "; 638 S_L(res.etimsp) = STRLEN(", time = "); 639 S_A(res.execsp) = (int_t) "EXECUTE"; 640 S_L(res.execsp) = STRLEN("EXECUTE"); 641 S_A(res.exdtsp) = (int_t) "EXTERNAL"; 642 S_L(res.exdtsp) = STRLEN("EXTERNAL"); 643 S_A(res.filesp) = (int_t) "FILE"; 644 S_L(res.filesp) = STRLEN("FILE"); 645 S_A(res.frznsp) = (int_t) " - FROZEN"; 646 S_L(res.frznsp) = STRLEN(" - FROZEN"); 647 S_A(res.hidesp) = (int_t) "HIDE"; 648 S_L(res.hidesp) = STRLEN("HIDE"); 649 S_A(res.inclsp) = (int_t) "INCLUDE"; 650 S_L(res.inclsp) = STRLEN("INCLUDE"); 651 S_A(res.leftsp) = (int_t) "LEFT"; 652 S_L(res.leftsp) = STRLEN("LEFT"); 653 S_A(res.linesp) = (int_t) "LINE"; 654 S_L(res.linesp) = STRLEN("LINE"); 655 S_A(res.listsp) = (int_t) "LIST"; 656 S_L(res.listsp) = STRLEN("LIST"); 657 S_A(res.lprnsp) = (int_t) "("; 658 S_L(res.lprnsp) = STRLEN("("); 659 S_A(res.lsfnsp) = (int_t) "LASTFILE"; 660 S_L(res.lsfnsp) = STRLEN("LASTFILE"); 661 S_A(res.lslnsp) = (int_t) "LASTLINE"; 662 S_L(res.lslnsp) = STRLEN("LASTLINE"); 663 S_A(res.nerrsp) = (int_t) "NOERRORS"; 664 S_L(res.nerrsp) = STRLEN("NOERRORS"); 665 S_A(res.nexesp) = (int_t) "NOEXECUTE"; 666 S_L(res.nexesp) = STRLEN("NOEXECUTE"); 667 S_A(res.ofsp) = (int_t) " of "; 668 S_L(res.ofsp) = STRLEN(" of "); 669 S_A(res.rprnsp) = (int_t) ")"; 670 S_L(res.rprnsp) = STRLEN(")"); 671 S_A(res.starsp) = (int_t) "*** "; 672 S_L(res.starsp) = STRLEN("*** "); 673 S_A(res.trclsp) = (int_t) " call of "; 674 S_L(res.trclsp) = STRLEN(" call of "); 675 S_A(res.trlvsp) = (int_t) "level "; 676 S_L(res.trlvsp) = STRLEN("level "); 677 S_A(res.trstsp) = (int_t) " stmt "; 678 S_L(res.trstsp) = STRLEN(" stmt "); 679 S_A(res.spitsp) = (int_t) "PLUSOPS"; 680 S_L(res.spitsp) = STRLEN("PLUSOPS"); 681 S_A(res.unlsp) = (int_t) "UNLIST"; 682 S_L(res.unlsp) = STRLEN("UNLIST"); 683 S_A(res.xfersp) = (int_t) "transfer to"; 684 S_L(res.xfersp) = STRLEN("transfer to"); 685 D_A(res.iclblk) = (int_t) (ICLBLK); 686 D_F(res.iclblk) = TTL+MARK; 687 D_V(res.iclblk) = (int_t) (ICLEND-ICLBLK-DESCR); 688 D_A(res.dtatl) = (int_t) (DTLIST); 689 D_A(res.fncpl) = (int_t) (FNLIST); 690 D_A(res.inatl) = (int_t) (INLIST); 691 D_A(res.outatl) = (int_t) (OTLIST); 692 D_A(res.tvall) = (int_t) (TVALPL); 693 D_A(res.tvall+1) = (int_t) (VLTRFN); 694 D_F(res.tvall+1) = FNC; 695 D_V(res.tvall+1) = (int_t) (2); 696 D_A(res.tlabl) = (int_t) (TLABPL); 697 D_A(res.tlabl+1) = (int_t) (LABTFN); 698 D_F(res.tlabl+1) = FNC; 699 D_V(res.tlabl+1) = (int_t) (1); 700 D_A(res.tfentl) = (int_t) (TFENPL); 701 D_A(res.tfentl+1) = (int_t) (FNTRFN); 702 D_F(res.tfentl+1) = FNC; 703 D_V(res.tfentl+1) = (int_t) (2); 704 D_A(res.tfextl) = (int_t) (TFEXPL); 705 D_A(res.tfextl+1) = (int_t) (FXTRFN); 706 D_F(res.tfextl+1) = FNC; 707 D_V(res.tfextl+1) = (int_t) (2); 708 D_A(res.tkeyl) = (int_t) (TKEYPL); 709 D_A(res.tkeyl+1) = (int_t) (KEYTFN); 710 D_F(res.tkeyl+1) = FNC; 711 D_V(res.tkeyl+1) = (int_t) (1); 712 D_V(res.xitptr) = (int_t) (S); 713 D_F(res.bukptr) = PTR; 714 D_V(res.bukptr) = (int_t) (S); 715 D_F(res.lstptr) = PTR; 716 D_V(res.lstptr) = (int_t) (S); 717 D_F(res.bkptr) = PTR; 718 D_V(res.bkptr) = (int_t) (S); 719 D_A(res.frdscl) = (int_t) (4*DESCR); 720 D_A(res.gcblk) = (int_t) (GCXTTL); 721 D_V(res.gcgot) = (int_t) (I); 722 D_A(res.obptr) = (int_t) (OBLIST); 723 D_F(res.obptr) = PTR; 724 D_V(res.obptr) = (int_t) (S); 725 D_A(res.prmdx) = (int_t) (PRMSIZ); 726 D_A(res.prmptr) = (int_t) (PRMTBL); 727 D_F(res.st1ptr) = PTR; 728 D_V(res.st1ptr) = (int_t) (S); 729 D_F(res.st2ptr) = PTR; 730 D_V(res.st2ptr) = (int_t) (S); 731 D_F(res.tempcl) = PTR; 732 D_A(res.twocl) = (int_t) (2*DESCR); 733 D_V(res.twocl) = (int_t) (B); 734 D_F(res.frsgpt) = PTR; 735 D_F(res.hdsgpt) = PTR; 736 D_F(res.tlsgp1) = PTR; 737 D_A(res.gcxttl) = (int_t) (GCXTTL); 738 D_F(res.gcxttl) = TTL+MARK; 739 D_V(res.gcxttl) = (int_t) (DESCR); 740 D_A(res.ftable) = (int_t) (FTABLE); 741 D_F(res.ftable) = TTL+MARK; 742 D_V(res.ftable) = (int_t) (FTBLND-FTABLE-DESCR); 743 D_A(res.anyfn) = (int_t) (ANY); 744 D_V(res.anyfn) = (int_t) (1); 745 D_A(res.aplyfn) = (int_t) (APPLY); 746 D_F(res.aplyfn) = FNC; 747 D_V(res.aplyfn) = (int_t) (1); 748 D_A(res.arbofn) = (int_t) (ARBNO); 749 D_V(res.arbofn) = (int_t) (1); 750 D_A(res.argfn) = (int_t) (ARG); 751 D_V(res.argfn) = (int_t) (2); 752 D_A(res.arrafn) = (int_t) (ARRAY); 753 D_V(res.arrafn) = (int_t) (2); 754 D_A(res.asscfn) = (int_t) (ASSOC); 755 D_V(res.asscfn) = (int_t) (2); 756 D_A(res.backfn) = (int_t) (BKSPCE); 757 D_V(res.backfn) = (int_t) (1); 758 D_A(res.breafn) = (int_t) (BREAK); 759 D_V(res.breafn) = (int_t) (1); 760 D_A(res.brexfn) = (int_t) (BREAKX); 761 D_V(res.brexfn) = (int_t) (1); 762 D_A(res.charfn) = (int_t) (CHAR); 763 D_V(res.charfn) = (int_t) (1); 764 D_A(res.cleafn) = (int_t) (CLEAR); 765 D_V(res.cleafn) = (int_t) (1); 766 D_A(res.codefn) = (int_t) (CODER); 767 D_V(res.codefn) = (int_t) (1); 768 D_A(res.colefn) = (int_t) (COLECT); 769 D_V(res.colefn) = (int_t) (1); 770 D_A(res.cnvrfn) = (int_t) (CNVRT); 771 D_V(res.cnvrfn) = (int_t) (2); 772 D_A(res.copyfn) = (int_t) (COPY); 773 D_V(res.copyfn) = (int_t) (1); 774 D_A(res.datfn) = (int_t) (DATE); 775 D_V(res.datfn) = (int_t) (1); 776 D_A(res.datdfn) = (int_t) (DATDEF); 777 D_V(res.datdfn) = (int_t) (1); 778 D_A(res.defifn) = (int_t) (DEFINE); 779 D_V(res.defifn) = (int_t) (2); 780 D_A(res.difffn) = (int_t) (DIFFER); 781 D_V(res.difffn) = (int_t) (2); 782 D_A(res.dtchfn) = (int_t) (DETACH); 783 D_V(res.dtchfn) = (int_t) (1); 784 D_A(res.dtfn) = (int_t) (DT); 785 D_V(res.dtfn) = (int_t) (1); 786 D_A(res.dumpfn) = (int_t) (DMP); 787 D_V(res.dumpfn) = (int_t) (1); 788 D_A(res.duplfn) = (int_t) (DUPL); 789 D_V(res.duplfn) = (int_t) (2); 790 D_A(res.endffn) = (int_t) (ENDFIL); 791 D_V(res.endffn) = (int_t) (1); 792 D_A(res.eqfn) = (int_t) (EQ); 793 D_V(res.eqfn) = (int_t) (2); 794 D_A(res.evalfn) = (int_t) (EVAL); 795 D_V(res.evalfn) = (int_t) (1); 796 D_A(res.fldsfn) = (int_t) (FIELDS); 797 D_V(res.fldsfn) = (int_t) (2); 798 D_A(res.frezfn) = (int_t) (FREEZE); 799 D_V(res.frezfn) = (int_t) (1); 800 D_A(res.funtfn) = (int_t) (FUNCTN); 801 D_V(res.funtfn) = (int_t) (1); 802 D_A(res.gefn) = (int_t) (GE); 803 D_V(res.gefn) = (int_t) (2); 804 D_A(res.gtfn) = (int_t) (GT); 805 D_V(res.gtfn) = (int_t) (2); 806 D_A(res.idenfn) = (int_t) (IDENT); 807 D_V(res.idenfn) = (int_t) (2); 808 D_A(res.intgfn) = (int_t) (INTGER); 809 D_V(res.intgfn) = (int_t) (1); 810 D_A(res.itemfn) = (int_t) (ITEM); 811 D_F(res.itemfn) = FNC; 812 D_V(res.itemfn) = (int_t) (1); 813 D_A(res.lablfn) = (int_t) (LABEL); 814 D_V(res.lablfn) = (int_t) (1); 815 D_A(res.labcfn) = (int_t) (LABELC); 816 D_V(res.labcfn) = (int_t) (1); 817 D_A(res.lefn) = (int_t) (LE); 818 D_V(res.lefn) = (int_t) (2); 819 D_A(res.lenfn) = (int_t) (LEN); 820 D_V(res.lenfn) = (int_t) (1); 821 D_A(res.leqfn) = (int_t) (LEQ); 822 D_V(res.leqfn) = (int_t) (2); 823 D_A(res.lgefn) = (int_t) (LGE); 824 D_V(res.lgefn) = (int_t) (2); 825 D_A(res.lgtfn) = (int_t) (LGT); 826 D_V(res.lgtfn) = (int_t) (2); 827 D_A(res.llefn) = (int_t) (LLE); 828 D_V(res.llefn) = (int_t) (2); 829 D_A(res.lltfn) = (int_t) (LLT); 830 D_V(res.lltfn) = (int_t) (2); 831 D_A(res.lnefn) = (int_t) (LNE); 832 D_V(res.lnefn) = (int_t) (2); 833 D_A(res.loadfn) = (int_t) (LOAD); 834 D_V(res.loadfn) = (int_t) (2); 835 D_A(res.locfn) = (int_t) (LOCAL); 836 D_V(res.locfn) = (int_t) (2); 837 D_A(res.lpadfn) = (int_t) (LPAD); 838 D_V(res.lpadfn) = (int_t) (3); 839 D_A(res.ltfn) = (int_t) (LT); 840 D_V(res.ltfn) = (int_t) (2); 841 D_A(res.nefn) = (int_t) (NE); 842 D_V(res.nefn) = (int_t) (2); 843 D_A(res.notafn) = (int_t) (NOTANY); 844 D_V(res.notafn) = (int_t) (1); 845 D_A(res.opsyfn) = (int_t) (OPSYN); 846 D_V(res.opsyfn) = (int_t) (3); 847 D_A(res.posfn) = (int_t) (POS); 848 D_V(res.posfn) = (int_t) (1); 849 D_A(res.prinfn) = (int_t) (PRINT); 850 D_V(res.prinfn) = (int_t) (4); 851 D_A(res.protfn) = (int_t) (PROTO); 852 D_V(res.protfn) = (int_t) (1); 853 D_A(res.remdfn) = (int_t) (REMDR); 854 D_V(res.remdfn) = (int_t) (2); 855 D_A(res.rplafn) = (int_t) (RPLACE); 856 D_V(res.rplafn) = (int_t) (3); 857 D_A(res.readfn) = (int_t) (READ); 858 D_V(res.readfn) = (int_t) (4); 859 D_A(res.revrfn) = (int_t) (REVERS); 860 D_V(res.revrfn) = (int_t) (1); 861 D_A(res.rewnfn) = (int_t) (REWIND); 862 D_V(res.rewnfn) = (int_t) (1); 863 D_A(res.rposfn) = (int_t) (RPOS); 864 D_V(res.rposfn) = (int_t) (1); 865 D_A(res.rpadfn) = (int_t) (RPAD); 866 D_V(res.rpadfn) = (int_t) (3); 867 D_A(res.rsrtfn) = (int_t) (RSORT); 868 D_F(res.rsrtfn) = FNC; 869 D_V(res.rsrtfn) = (int_t) (1); 870 D_A(res.rtabfn) = (int_t) (RTAB); 871 D_V(res.rtabfn) = (int_t) (1); 872 D_A(res.setfn) = (int_t) (SET); 873 D_V(res.setfn) = (int_t) (3); 874 D_A(res.setxfn) = (int_t) (SETXIT); 875 D_V(res.setxfn) = (int_t) (1); 876 D_A(res.sizefn) = (int_t) (SIZE); 877 D_V(res.sizefn) = (int_t) (1); 878 D_A(res.sortfn) = (int_t) (SORT); 879 D_F(res.sortfn) = FNC; 880 D_V(res.sortfn) = (int_t) (1); 881 D_A(res.sstrfn) = (int_t) (SUBSTR); 882 D_V(res.sstrfn) = (int_t) (3); 883 D_A(res.spanfn) = (int_t) (SPAN); 884 D_V(res.spanfn) = (int_t) (1); 885 D_A(res.stptfn) = (int_t) (STOPTR); 886 D_V(res.stptfn) = (int_t) (2); 887 D_A(res.tabfn) = (int_t) (TAB); 888 D_V(res.tabfn) = (int_t) (1); 889 D_A(res.thawfn) = (int_t) (THAW); 890 D_V(res.thawfn) = (int_t) (1); 891 D_A(res.timfn) = (int_t) (TIME); 892 D_V(res.timfn) = (int_t) (1); 893 D_A(res.trcefn) = (int_t) (TRACE); 894 D_V(res.trcefn) = (int_t) (4); 895 D_A(res.trimfn) = (int_t) (TRIM); 896 D_V(res.trimfn) = (int_t) (1); 897 D_A(res.unldfn) = (int_t) (UNLOAD); 898 D_V(res.unldfn) = (int_t) (1); 899 D_A(res.valfn) = (int_t) (FIELD); 900 D_V(res.valfn) = (int_t) (1); 901 D_A(res.valfn+1) = (int_t) (VALBLK); 902 D_A(res.vdiffn) = (int_t) (VDIFFR); 903 D_V(res.vdiffn) = (int_t) (2); 904 D_A(res.f1fn) = (int_t) (PRINTB); 905 D_F(res.f1fn) = FNC; 906 D_A(res.f2fn) = (int_t) (HOR); 907 D_F(res.f2fn) = FNC; 908 D_A(res.f3fn) = (int_t) (VER); 909 D_F(res.f3fn) = FNC; 910 D_A(res.f4fn) = (int_t) (FRONT); 911 D_F(res.f4fn) = FNC; 912 D_A(res.f5fn) = (int_t) (BOX); 913 D_F(res.f5fn) = FNC; 914 D_A(res.f6fn) = (int_t) (PAR); 915 D_F(res.f6fn) = FNC; 916 D_A(res.f7fn) = (int_t) (SER); 917 D_F(res.f7fn) = FNC; 918 D_A(res.f8fn) = (int_t) (OVY); 919 D_F(res.f8fn) = FNC; 920 D_A(res.f9fn) = (int_t) (HOR_REG); 921 D_F(res.f9fn) = FNC; 922 D_A(res.f10fn) = (int_t) (VER_REG); 923 D_F(res.f10fn) = FNC; 924 D_A(res.f11fn) = (int_t) (NORM_REG); 925 D_F(res.f11fn) = FNC; 926 D_A(res.f12fn) = (int_t) (IT); 927 D_F(res.f12fn) = FNC; 928 D_A(res.f13fn) = (int_t) (REP); 929 D_F(res.f13fn) = FNC; 930 D_A(res.f14fn) = (int_t) (DEF); 931 D_F(res.f14fn) = FNC; 932 D_A(res.f15fn) = (int_t) (NODE); 933 D_F(res.f15fn) = FNC; 934 D_A(res.f16fn) = (int_t) (MERGE); 935 D_F(res.f16fn) = FNC; 936 D_A(res.f17fn) = (int_t) (HEIGHT); 937 D_F(res.f17fn) = FNC; 938 D_A(res.f18fn) = (int_t) (WIDTH); 939 D_F(res.f18fn) = FNC; 940 D_A(res.f19fn) = (int_t) (DEPTH); 941 D_F(res.f19fn) = FNC; 942 D_A(res.f20fn) = (int_t) (BLOCKSIZ); 943 D_F(res.f20fn) = FNC; 944 D_A(res.f21fn) = (int_t) (SLAB); 945 D_F(res.f21fn) = FNC; 946 D_A(res.f22fn) = (int_t) (FIX); 947 D_F(res.f22fn) = FNC; 948 D_A(res.f23fn) = (int_t) (BCHAR); 949 D_F(res.f23fn) = FNC; 950 D_A(res.f24fn) = (int_t) (DUP); 951 D_F(res.f24fn) = FNC; 952 D_A(res.f25fn) = (int_t) (CC); 953 D_F(res.f25fn) = FNC; 954 D_A(res.f26fn) = (int_t) (NEW_PAGE); 955 D_F(res.f26fn) = FNC; 956 D_A(res.f27fn) = (int_t) (LRECL); 957 D_F(res.f27fn) = FNC; 958 D_A(res.f28fn) = (int_t) (LOC); 959 D_F(res.f28fn) = FNC; 960 D_A(res.initls) = (int_t) (INITLS); 961 D_F(res.initls) = TTL+MARK; 962 D_V(res.initls) = (int_t) (8*DESCR); 963 D_A(res.initls+1) = (int_t) (DTLIST); 964 D_A(res.initls+2) = (int_t) (FNLIST); 965 D_A(res.initls+3) = (int_t) (INLIST); 966 D_A(res.initls+4) = (int_t) (KNLIST); 967 D_A(res.initls+5) = (int_t) (KVLIST); 968 D_A(res.initls+6) = (int_t) (OTLIST); 969 D_A(res.initls+7) = (int_t) (OTSATL); 970 D_A(res.initls+8) = (int_t) (TRLIST); 971 D_A(res.fnlist) = (int_t) (FNLIST); 972 D_F(res.fnlist) = TTL+MARK; 973 D_V(res.fnlist) = (int_t) (FNCPLE-FNLIST-DESCR); 974 D_A(res.fnlist+1) = (int_t) (ANYFN); 975 D_F(res.fnlist+1) = FNC; 976 D_A(res.fnlist+2) = (int_t) (ANYSP); 977 D_A(res.fnlist+3) = (int_t) (APLYFN); 978 D_F(res.fnlist+3) = FNC; 979 D_A(res.fnlist+4) = (int_t) (APLYSP); 980 D_A(res.fnlist+5) = (int_t) (ARBOFN); 981 D_F(res.fnlist+5) = FNC; 982 D_A(res.fnlist+6) = (int_t) (ARBNSP); 983 D_A(res.fnlist+7) = (int_t) (ARGFN); 984 D_F(res.fnlist+7) = FNC; 985 D_A(res.fnlist+8) = (int_t) (ARGSP); 986 D_A(res.fnlist+9) = (int_t) (ARRAFN); 987 D_F(res.fnlist+9) = FNC; 988 D_A(res.fnlist+10) = (int_t) (ARRSP); 989 D_A(res.fnlist+11) = (int_t) (BACKFN); 990 D_F(res.fnlist+11) = FNC; 991 D_A(res.fnlist+12) = (int_t) (BACKSP); 992 D_A(res.fnlist+13) = (int_t) (BREAFN); 993 D_F(res.fnlist+13) = FNC; 994 D_A(res.fnlist+14) = (int_t) (BRKSP); 995 D_A(res.fnlist+15) = (int_t) (BREXFN); 996 D_F(res.fnlist+15) = FNC; 997 D_A(res.fnlist+16) = (int_t) (BRKXSP); 998 D_A(res.fnlist+17) = (int_t) (CHARFN); 999 D_F(res.fnlist+17) = FNC; 1000 D_A(res.fnlist+18) = (int_t) (CHARSP); 1001 D_A(res.fnlist+19) = (int_t) (CLEAFN); 1002 D_F(res.fnlist+19) = FNC; 1003 D_A(res.fnlist+20) = (int_t) (CLERSP); 1004 D_A(res.fnlist+21) = (int_t) (CODEFN); 1005 D_F(res.fnlist+21) = FNC; 1006 D_A(res.fnlist+22) = (int_t) (CODESP); 1007 D_A(res.fnlist+23) = (int_t) (COLEFN); 1008 D_F(res.fnlist+23) = FNC; 1009 D_A(res.fnlist+24) = (int_t) (CLSP); 1010 D_A(res.fnlist+25) = (int_t) (CNVRFN); 1011 D_F(res.fnlist+25) = FNC; 1012 D_A(res.fnlist+26) = (int_t) (CNVTSP); 1013 D_A(res.fnlist+27) = (int_t) (COPYFN); 1014 D_F(res.fnlist+27) = FNC; 1015 D_A(res.fnlist+28) = (int_t) (COPYSP); 1016 D_A(res.fnlist+29) = (int_t) (DATDFN); 1017 D_F(res.fnlist+29) = FNC; 1018 D_A(res.fnlist+30) = (int_t) (DATASP); 1019 D_A(res.fnlist+31) = (int_t) (DATFN); 1020 D_F(res.fnlist+31) = FNC; 1021 D_A(res.fnlist+32) = (int_t) (DATSP); 1022 D_A(res.fnlist+33) = (int_t) (DEFIFN); 1023 D_F(res.fnlist+33) = FNC; 1024 D_A(res.fnlist+34) = (int_t) (DEFISP); 1025 D_A(res.fnlist+35) = (int_t) (DIFFFN); 1026 D_F(res.fnlist+35) = FNC; 1027 D_A(res.fnlist+36) = (int_t) (DIFFSP); 1028 D_A(res.fnlist+37) = (int_t) (DTCHFN); 1029 D_F(res.fnlist+37) = FNC; 1030 D_A(res.fnlist+38) = (int_t) (DTCHSP); 1031 D_A(res.fnlist+39) = (int_t) (DTFN); 1032 D_F(res.fnlist+39) = FNC; 1033 D_A(res.fnlist+40) = (int_t) (DTSP); 1034 D_A(res.fnlist+41) = (int_t) (DUMPFN); 1035 D_F(res.fnlist+41) = FNC; 1036 D_A(res.fnlist+42) = (int_t) (DUMPSP); 1037 D_A(res.fnlist+43) = (int_t) (DUPLFN); 1038 D_F(res.fnlist+43) = FNC; 1039 D_A(res.fnlist+44) = (int_t) (DUPLSP); 1040 D_A(res.fnlist+45) = (int_t) (ENDFFN); 1041 D_F(res.fnlist+45) = FNC; 1042 D_A(res.fnlist+46) = (int_t) (ENDFSP); 1043 D_A(res.fnlist+47) = (int_t) (EQFN); 1044 D_F(res.fnlist+47) = FNC; 1045 D_A(res.fnlist+48) = (int_t) (EQSP); 1046 D_A(res.fnlist+49) = (int_t) (EVALFN); 1047 D_F(res.fnlist+49) = FNC; 1048 D_A(res.fnlist+50) = (int_t) (EVALSP); 1049 D_A(res.fnlist+51) = (int_t) (FLDSFN); 1050 D_F(res.fnlist+51) = FNC; 1051 D_A(res.fnlist+52) = (int_t) (FLDSSP); 1052 D_A(res.fnlist+53) = (int_t) (FREZFN); 1053 D_F(res.fnlist+53) = FNC; 1054 D_A(res.fnlist+54) = (int_t) (FREZSP); 1055 D_A(res.fnlist+55) = (int_t) (FUNTFN); 1056 D_F(res.fnlist+55) = FNC; 1057 D_A(res.fnlist+56) = (int_t) (FUNTSP); 1058 D_A(res.fnlist+57) = (int_t) (GEFN); 1059 D_F(res.fnlist+57) = FNC; 1060 D_A(res.fnlist+58) = (int_t) (GESP); 1061 D_A(res.fnlist+59) = (int_t) (GTFN); 1062 D_F(res.fnlist+59) = FNC; 1063 D_A(res.fnlist+60) = (int_t) (GTSP); 1064 D_A(res.fnlist+61) = (int_t) (IDENFN); 1065 D_F(res.fnlist+61) = FNC; 1066 D_A(res.fnlist+62) = (int_t) (IDENSP); 1067 D_A(res.fnlist+63) = (int_t) (READFN); 1068 D_F(res.fnlist+63) = FNC; 1069 D_A(res.fnlist+64) = (int_t) (INSP); 1070 D_A(res.fnlist+65) = (int_t) (INTGFN); 1071 D_F(res.fnlist+65) = FNC; 1072 D_A(res.fnlist+66) = (int_t) (INTGSP); 1073 D_A(res.fnlist+67) = (int_t) (ITEMFN); 1074 D_F(res.fnlist+67) = FNC; 1075 D_A(res.fnlist+68) = (int_t) (ITEMSP); 1076 D_A(res.fnlist+69) = (int_t) (LABLFN); 1077 D_F(res.fnlist+69) = FNC; 1078 D_A(res.fnlist+70) = (int_t) (TRLASP); 1079 D_A(res.fnlist+71) = (int_t) (LABCFN); 1080 D_F(res.fnlist+71) = FNC; 1081 D_A(res.fnlist+72) = (int_t) (LABCSP); 1082 D_A(res.fnlist+73) = (int_t) (LENFN); 1083 D_F(res.fnlist+73) = FNC; 1084 D_A(res.fnlist+74) = (int_t) (LENSP); 1085 D_A(res.fnlist+75) = (int_t) (LEFN); 1086 D_F(res.fnlist+75) = FNC; 1087 D_A(res.fnlist+76) = (int_t) (LESP); 1088 D_A(res.fnlist+77) = (int_t) (LEQFN); 1089 D_F(res.fnlist+77) = FNC; 1090 D_A(res.fnlist+78) = (int_t) (LEQSP); 1091 D_A(res.fnlist+79) = (int_t) (LGEFN); 1092 D_F(res.fnlist+79) = FNC; 1093 D_A(res.fnlist+80) = (int_t) (LGESP); 1094 D_A(res.fnlist+81) = (int_t) (LGTFN); 1095 D_F(res.fnlist+81) = FNC; 1096 D_A(res.fnlist+82) = (int_t) (LGTSP); 1097 D_A(res.fnlist+83) = (int_t) (LLEFN); 1098 D_F(res.fnlist+83) = FNC; 1099 D_A(res.fnlist+84) = (int_t) (LLESP); 1100 D_A(res.fnlist+85) = (int_t) (LLTFN); 1101 D_F(res.fnlist+85) = FNC; 1102 D_A(res.fnlist+86) = (int_t) (LLTSP); 1103 D_A(res.fnlist+87) = (int_t) (LNEFN); 1104 D_F(res.fnlist+87) = FNC; 1105 D_A(res.fnlist+88) = (int_t) (LNESP); 1106 D_A(res.fnlist+89) = (int_t) (LOADFN); 1107 D_F(res.fnlist+89) = FNC; 1108 D_A(res.fnlist+90) = (int_t) (LOADSP); 1109 D_A(res.fnlist+91) = (int_t) (LOCFN); 1110 D_F(res.fnlist+91) = FNC; 1111 D_A(res.fnlist+92) = (int_t) (LOCSP); 1112 D_A(res.fnlist+93) = (int_t) (LPADFN); 1113 D_F(res.fnlist+93) = FNC; 1114 D_A(res.fnlist+94) = (int_t) (LPADSP); 1115 D_A(res.fnlist+95) = (int_t) (LTFN); 1116 D_F(res.fnlist+95) = FNC; 1117 D_A(res.fnlist+96) = (int_t) (LTSP); 1118 D_A(res.fnlist+97) = (int_t) (NEFN); 1119 D_F(res.fnlist+97) = FNC; 1120 D_A(res.fnlist+98) = (int_t) (NESP); 1121 D_A(res.fnlist+99) = (int_t) (NOTAFN); 1122 D_F(res.fnlist+99) = FNC; 1123 D_A(res.fnlist+100) = (int_t) (NNYSP); 1124 D_A(res.fnlist+101) = (int_t) (OPSYFN); 1125 D_F(res.fnlist+101) = FNC; 1126 D_A(res.fnlist+102) = (int_t) (OPSNSP); 1127 D_A(res.fnlist+103) = (int_t) (PRINFN); 1128 D_F(res.fnlist+103) = FNC; 1129 D_A(res.fnlist+104) = (int_t) (OUTSP); 1130 D_A(res.fnlist+105) = (int_t) (POSFN); 1131 D_F(res.fnlist+105) = FNC; 1132 D_A(res.fnlist+106) = (int_t) (POSSP); 1133 D_A(res.fnlist+107) = (int_t) (PROTFN); 1134 D_F(res.fnlist+107) = FNC; 1135 D_A(res.fnlist+108) = (int_t) (PRTSP); 1136 D_A(res.fnlist+109) = (int_t) (REMDFN); 1137 D_F(res.fnlist+109) = FNC; 1138 D_A(res.fnlist+110) = (int_t) (REMDSP); 1139 D_A(res.fnlist+111) = (int_t) (REVRFN); 1140 D_F(res.fnlist+111) = FNC; 1141 D_A(res.fnlist+112) = (int_t) (REVRSP); 1142 D_A(res.fnlist+113) = (int_t) (REWNFN); 1143 D_F(res.fnlist+113) = FNC; 1144 D_A(res.fnlist+114) = (int_t) (REWNSP); 1145 D_A(res.fnlist+115) = (int_t) (RPLAFN); 1146 D_F(res.fnlist+115) = FNC; 1147 D_A(res.fnlist+116) = (int_t) (RPLCSP); 1148 D_A(res.fnlist+117) = (int_t) (RPOSFN); 1149 D_F(res.fnlist+117) = FNC; 1150 D_A(res.fnlist+118) = (int_t) (RPOSSP); 1151 D_A(res.fnlist+119) = (int_t) (RPADFN); 1152 D_F(res.fnlist+119) = FNC; 1153 D_A(res.fnlist+120) = (int_t) (RPADSP); 1154 D_A(res.fnlist+121) = (int_t) (RSRTFN); 1155 D_F(res.fnlist+121) = FNC; 1156 D_A(res.fnlist+122) = (int_t) (RSRTSP); 1157 D_A(res.fnlist+123) = (int_t) (RTABFN); 1158 D_F(res.fnlist+123) = FNC; 1159 D_A(res.fnlist+124) = (int_t) (RTABSP); 1160 D_A(res.fnlist+125) = (int_t) (SETFN); 1161 D_F(res.fnlist+125) = FNC; 1162 D_A(res.fnlist+126) = (int_t) (SETSP); 1163 D_A(res.fnlist+127) = (int_t) (SETXFN); 1164 D_F(res.fnlist+127) = FNC; 1165 D_A(res.fnlist+128) = (int_t) (SETXSP); 1166 D_A(res.fnlist+129) = (int_t) (SIZEFN); 1167 D_F(res.fnlist+129) = FNC; 1168 D_A(res.fnlist+130) = (int_t) (SIZESP); 1169 D_A(res.fnlist+131) = (int_t) (SORTFN); 1170 D_F(res.fnlist+131) = FNC; 1171 D_A(res.fnlist+132) = (int_t) (SORTSP); 1172 D_A(res.fnlist+133) = (int_t) (SPANFN); 1173 D_F(res.fnlist+133) = FNC; 1174 D_A(res.fnlist+134) = (int_t) (SPANSP); 1175 D_A(res.fnlist+135) = (int_t) (STPTFN); 1176 D_F(res.fnlist+135) = FNC; 1177 D_A(res.fnlist+136) = (int_t) (STPTSP); 1178 D_A(res.fnlist+137) = (int_t) (SSTRFN); 1179 D_F(res.fnlist+137) = FNC; 1180 D_A(res.fnlist+138) = (int_t) (SSTRSP); 1181 D_A(res.fnlist+139) = (int_t) (TABFN); 1182 D_F(res.fnlist+139) = FNC; 1183 D_A(res.fnlist+140) = (int_t) (TABSP); 1184 D_A(res.fnlist+141) = (int_t) (ASSCFN); 1185 D_F(res.fnlist+141) = FNC; 1186 D_A(res.fnlist+142) = (int_t) (ASSCSP); 1187 D_A(res.fnlist+143) = (int_t) (THAWFN); 1188 D_F(res.fnlist+143) = FNC; 1189 D_A(res.fnlist+144) = (int_t) (THAWSP); 1190 D_A(res.fnlist+145) = (int_t) (TIMFN); 1191 D_F(res.fnlist+145) = FNC; 1192 D_A(res.fnlist+146) = (int_t) (TIMSP); 1193 D_A(res.fnlist+147) = (int_t) (TRCEFN); 1194 D_F(res.fnlist+147) = FNC; 1195 D_A(res.fnlist+148) = (int_t) (TRCESP); 1196 D_A(res.fnlist+149) = (int_t) (TRIMFN); 1197 D_F(res.fnlist+149) = FNC; 1198 D_A(res.fnlist+150) = (int_t) (TRMSP); 1199 D_A(res.fnlist+151) = (int_t) (UNLDFN); 1200 D_F(res.fnlist+151) = FNC; 1201 D_A(res.fnlist+152) = (int_t) (UNLDSP); 1202 D_A(res.fnlist+153) = (int_t) (VALFN); 1203 D_F(res.fnlist+153) = FNC; 1204 D_A(res.fnlist+154) = (int_t) (VALSP); 1205 D_A(res.fnlist+155) = (int_t) (VDIFFN); 1206 D_F(res.fnlist+155) = FNC; 1207 D_A(res.fnlist+156) = (int_t) (VDIFSP); 1208 D_A(res.fnlist+157) = (int_t) (F1FN); 1209 D_F(res.fnlist+157) = FNC; 1210 D_A(res.fnlist+158) = (int_t) (F1SP); 1211 D_A(res.fnlist+159) = (int_t) (F2FN); 1212 D_F(res.fnlist+159) = FNC; 1213 D_A(res.fnlist+160) = (int_t) (F2SP); 1214 D_A(res.fnlist+161) = (int_t) (F3FN); 1215 D_F(res.fnlist+161) = FNC; 1216 D_A(res.fnlist+162) = (int_t) (F3SP); 1217 D_A(res.fnlist+163) = (int_t) (F4FN); 1218 D_F(res.fnlist+163) = FNC; 1219 D_A(res.fnlist+164) = (int_t) (F4SP); 1220 D_A(res.fnlist+165) = (int_t) (F5FN); 1221 D_A(res.fnlist+166) = (int_t) (F5SP); 1222 D_A(res.fnlist+167) = (int_t) (F6FN); 1223 D_F(res.fnlist+167) = FNC; 1224 D_A(res.fnlist+168) = (int_t) (F6SP); 1225 D_A(res.fnlist+169) = (int_t) (F7FN); 1226 D_F(res.fnlist+169) = FNC; 1227 D_A(res.fnlist+170) = (int_t) (F7SP); 1228 D_A(res.fnlist+171) = (int_t) (F8FN); 1229 D_F(res.fnlist+171) = FNC; 1230 D_A(res.fnlist+172) = (int_t) (F8SP); 1231 D_A(res.fnlist+173) = (int_t) (F9FN); 1232 D_F(res.fnlist+173) = FNC; 1233 D_A(res.fnlist+174) = (int_t) (F9SP); 1234 D_A(res.fnlist+175) = (int_t) (F10FN); 1235 D_F(res.fnlist+175) = FNC; 1236 D_A(res.fnlist+176) = (int_t) (F10SP); 1237 D_A(res.fnlist+177) = (int_t) (F11FN); 1238 D_F(res.fnlist+177) = FNC; 1239 D_A(res.fnlist+178) = (int_t) (F11SP); 1240 D_A(res.fnlist+179) = (int_t) (F12FN); 1241 D_F(res.fnlist+179) = FNC; 1242 D_A(res.fnlist+180) = (int_t) (F12SP); 1243 D_A(res.fnlist+181) = (int_t) (F13FN); 1244 D_F(res.fnlist+181) = FNC; 1245 D_A(res.fnlist+182) = (int_t) (F13SP); 1246 D_A(res.fnlist+183) = (int_t) (F14FN); 1247 D_F(res.fnlist+183) = FNC; 1248 D_A(res.fnlist+184) = (int_t) (F14SP); 1249 D_A(res.fnlist+185) = (int_t) (F15FN); 1250 D_F(res.fnlist+185) = FNC; 1251 D_A(res.fnlist+186) = (int_t) (F15SP); 1252 D_A(res.fnlist+187) = (int_t) (F16FN); 1253 D_F(res.fnlist+187) = FNC; 1254 D_A(res.fnlist+188) = (int_t) (F16SP); 1255 D_A(res.fnlist+189) = (int_t) (F17FN); 1256 D_F(res.fnlist+189) = FNC; 1257 D_A(res.fnlist+190) = (int_t) (F17SP); 1258 D_A(res.fnlist+191) = (int_t) (F18FN); 1259 D_F(res.fnlist+191) = FNC; 1260 D_A(res.fnlist+192) = (int_t) (F18SP); 1261 D_A(res.fnlist+193) = (int_t) (F19FN); 1262 D_F(res.fnlist+193) = FNC; 1263 D_A(res.fnlist+194) = (int_t) (F19SP); 1264 D_A(res.fnlist+195) = (int_t) (F20FN); 1265 D_F(res.fnlist+195) = FNC; 1266 D_A(res.fnlist+196) = (int_t) (F20SP); 1267 D_A(res.fnlist+197) = (int_t) (F21FN); 1268 D_F(res.fnlist+197) = FNC; 1269 D_A(res.fnlist+198) = (int_t) (F21SP); 1270 D_A(res.fnlist+199) = (int_t) (F22FN); 1271 D_F(res.fnlist+199) = FNC; 1272 D_A(res.fnlist+200) = (int_t) (F22SP); 1273 D_A(res.fnlist+201) = (int_t) (F23FN); 1274 D_F(res.fnlist+201) = FNC; 1275 D_A(res.fnlist+202) = (int_t) (F23SP); 1276 D_A(res.fnlist+203) = (int_t) (F24FN); 1277 D_F(res.fnlist+203) = FNC; 1278 D_A(res.fnlist+204) = (int_t) (F24SP); 1279 D_A(res.fnlist+205) = (int_t) (F25FN); 1280 D_F(res.fnlist+205) = FNC; 1281 D_A(res.fnlist+206) = (int_t) (F25SP); 1282 D_A(res.fnlist+207) = (int_t) (F26FN); 1283 D_F(res.fnlist+207) = FNC; 1284 D_A(res.fnlist+208) = (int_t) (F26SP); 1285 D_A(res.fnlist+209) = (int_t) (F27FN); 1286 D_F(res.fnlist+209) = FNC; 1287 D_A(res.fnlist+210) = (int_t) (F27SP); 1288 D_A(res.fnlist+211) = (int_t) (F28FN); 1289 D_F(res.fnlist+211) = FNC; 1290 D_A(res.fnlist+212) = (int_t) (F28SP); 1291 D_A(res.optbl) = (int_t) (OPTBL); 1292 D_F(res.optbl) = TTL+MARK; 1293 D_V(res.optbl) = (int_t) (OPTBND-OPTBL-DESCR); 1294 D_A(res.addfn) = (int_t) (ADD); 1295 D_V(res.addfn) = (int_t) (2); 1296 D_A(res.addfn+2) = (int_t) (30); 1297 D_V(res.addfn+2) = (int_t) (29); 1298 D_A(res.biamfn) = (int_t) (UNDF); 1299 D_F(res.biamfn) = FNC; 1300 D_A(res.biamfn+2) = (int_t) (5); 1301 D_V(res.biamfn+2) = (int_t) (4); 1302 D_A(res.biatfn) = (int_t) (UNDF); 1303 D_F(res.biatfn) = FNC; 1304 D_A(res.biatfn+2) = (int_t) (25); 1305 D_V(res.biatfn+2) = (int_t) (24); 1306 D_A(res.bingfn) = (int_t) (UNDF); 1307 D_F(res.bingfn) = FNC; 1308 D_A(res.bingfn+2) = (int_t) (70); 1309 D_V(res.bingfn+2) = (int_t) (70); 1310 D_A(res.bipdfn) = (int_t) (UNDF); 1311 D_F(res.bipdfn) = FNC; 1312 D_A(res.bipdfn+2) = (int_t) (35); 1313 D_V(res.bipdfn+2) = (int_t) (34); 1314 D_A(res.biprfn) = (int_t) (UNDF); 1315 D_F(res.biprfn) = FNC; 1316 D_A(res.biprfn+2) = (int_t) (45); 1317 D_V(res.biprfn+2) = (int_t) (44); 1318 D_A(res.bibdfn) = (int_t) (OVY); 1319 D_F(res.bibdfn) = FNC; 1320 D_A(res.bibdfn+2) = (int_t) (16); 1321 D_V(res.bibdfn+2) = (int_t) (15); 1322 D_A(res.bibrfn) = (int_t) (SER); 1323 D_F(res.bibrfn) = FNC; 1324 D_A(res.bibrfn+2) = (int_t) (18); 1325 D_V(res.bibrfn+2) = (int_t) (17); 1326 D_A(res.scanfn) = (int_t) (SCAN); 1327 D_V(res.scanfn) = (int_t) (2); 1328 D_A(res.scanfn+2) = (int_t) (3); 1329 D_V(res.scanfn+2) = (int_t) (2); 1330 D_A(res.biqsfn) = (int_t) (UNDF); 1331 D_F(res.biqsfn) = FNC; 1332 D_A(res.biqsfn+2) = (int_t) (70); 1333 D_V(res.biqsfn+2) = (int_t) (69); 1334 D_A(res.sjsrfn) = (int_t) (SJSR); 1335 D_V(res.sjsrfn) = (int_t) (3); 1336 D_A(res.sjsrfn+2) = (int_t) (3); 1337 D_V(res.sjsrfn+2) = (int_t) (2); 1338 D_A(res.asgnfn) = (int_t) (ASGN); 1339 D_V(res.asgnfn) = (int_t) (2); 1340 D_A(res.asgnfn+2) = (int_t) (1); 1341 D_V(res.asgnfn+2) = (int_t) (1); 1342 D_A(res.confn) = (int_t) (CONCAT); 1343 D_V(res.confn) = (int_t) (2); 1344 D_A(res.confn+2) = (int_t) (20); 1345 D_V(res.confn+2) = (int_t) (19); 1346 D_A(res.divfn) = (int_t) (DIV); 1347 D_V(res.divfn) = (int_t) (2); 1348 D_A(res.divfn+2) = (int_t) (40); 1349 D_V(res.divfn+2) = (int_t) (39); 1350 D_A(res.dolfn) = (int_t) (DOL); 1351 D_V(res.dolfn) = (int_t) (2); 1352 D_A(res.dolfn+2) = (int_t) (60); 1353 D_V(res.dolfn+2) = (int_t) (59); 1354 D_A(res.expfn) = (int_t) (EXPOP); 1355 D_V(res.expfn) = (int_t) (2); 1356 D_A(res.expfn+2) = (int_t) (50); 1357 D_V(res.expfn+2) = (int_t) (50); 1358 D_A(res.mpyfn) = (int_t) (MPY); 1359 D_V(res.mpyfn) = (int_t) (2); 1360 D_A(res.mpyfn+2) = (int_t) (42); 1361 D_V(res.mpyfn+2) = (int_t) (41); 1362 D_A(res.namfn) = (int_t) (NAM); 1363 D_V(res.namfn) = (int_t) (2); 1364 D_A(res.namfn+2) = (int_t) (60); 1365 D_V(res.namfn+2) = (int_t) (59); 1366 D_A(res.orfn) = (int_t) (OR); 1367 D_V(res.orfn) = (int_t) (2); 1368 D_A(res.orfn+2) = (int_t) (10); 1369 D_V(res.orfn+2) = (int_t) (9); 1370 D_A(res.subfn) = (int_t) (SUB); 1371 D_V(res.subfn) = (int_t) (2); 1372 D_A(res.subfn+2) = (int_t) (30); 1373 D_V(res.subfn+2) = (int_t) (29); 1374 D_A(res.arowfn) = (int_t) (UNDF); 1375 D_F(res.arowfn) = FNC; 1376 D_A(res.atfn) = (int_t) (ATOP); 1377 D_V(res.atfn) = (int_t) (1); 1378 D_A(res.barfn) = (int_t) (UNDF); 1379 D_F(res.barfn) = FNC; 1380 D_A(res.dotfn) = (int_t) (NAME); 1381 D_V(res.dotfn) = (int_t) (1); 1382 D_A(res.indfn) = (int_t) (IND); 1383 D_V(res.indfn) = (int_t) (1); 1384 D_A(res.keyfn) = (int_t) (KEYWRD); 1385 D_V(res.keyfn) = (int_t) (1); 1386 D_A(res.mnsfn) = (int_t) (MNS); 1387 D_V(res.mnsfn) = (int_t) (1); 1388 D_A(res.negfn) = (int_t) (NEG); 1389 D_V(res.negfn) = (int_t) (1); 1390 D_A(res.pdfn) = (int_t) (UNDF); 1391 D_F(res.pdfn) = FNC; 1392 D_A(res.plsfn) = (int_t) (PLS); 1393 D_V(res.plsfn) = (int_t) (1); 1394 D_A(res.prfn) = (int_t) (UNDF); 1395 D_F(res.prfn) = FNC; 1396 D_A(res.quesfn) = (int_t) (QUES); 1397 D_V(res.quesfn) = (int_t) (1); 1398 D_A(res.slhfn) = (int_t) (UNDF); 1399 D_F(res.slhfn) = FNC; 1400 D_A(res.strfn) = (int_t) (STR); 1401 D_V(res.strfn) = (int_t) (1); 1402 D_A(res.arefn) = (int_t) (ITEM); 1403 D_F(res.arefn) = FNC; 1404 D_V(res.arefn) = (int_t) (1); 1405 D_A(res.basefn) = (int_t) (BASE); 1406 D_A(res.cmafn) = (int_t) (CMA); 1407 D_F(res.cmafn) = FNC; 1408 D_V(res.cmafn) = (int_t) (1); 1409 D_A(res.endafn) = (int_t) (ARGNER); 1410 D_A(res.endfn) = (int_t) (END); 1411 D_A(res.erorfn) = (int_t) (EROR); 1412 D_V(res.erorfn) = (int_t) (1); 1413 D_A(res.fntrfn) = (int_t) (FENTR); 1414 D_V(res.fntrfn) = (int_t) (2); 1415 D_A(res.fxtrfn) = (int_t) (FNEXTR); 1416 D_V(res.fxtrfn) = (int_t) (2); 1417 D_A(res.gotgfn) = (int_t) (GOTG); 1418 D_V(res.gotgfn) = (int_t) (1); 1419 D_A(res.gotlfn) = (int_t) (GOTL); 1420 D_V(res.gotlfn) = (int_t) (1); 1421 D_A(res.gotofn) = (int_t) (GOTO); 1422 D_V(res.gotofn) = (int_t) (1); 1423 D_A(res.initfn) = (int_t) (INIT); 1424 D_V(res.initfn) = (int_t) (1); 1425 D_A(res.keytfn) = (int_t) (KEYTR); 1426 D_V(res.keytfn) = (int_t) (2); 1427 D_A(res.labtfn) = (int_t) (LABTR); 1428 D_V(res.labtfn) = (int_t) (2); 1429 D_A(res.litfn) = (int_t) (LIT); 1430 D_V(res.litfn) = (int_t) (1); 1431 D_A(res.vltrfn) = (int_t) (VALTR); 1432 D_V(res.vltrfn) = (int_t) (2); 1433 D_A(res.anycfn) = (int_t) (XANYC); 1434 D_V(res.anycfn) = (int_t) (3); 1435 D_A(res.arbffn) = (int_t) (XARBF); 1436 D_V(res.arbffn) = (int_t) (2); 1437 D_A(res.arbnfn) = (int_t) (XARBN); 1438 D_V(res.arbnfn) = (int_t) (2); 1439 D_A(res.atopfn) = (int_t) (XATP); 1440 D_V(res.atopfn) = (int_t) (3); 1441 D_A(res.chrfn) = (int_t) (XCHR); 1442 D_V(res.chrfn) = (int_t) (3); 1443 D_A(res.balfn) = (int_t) (XBAL); 1444 D_V(res.balfn) = (int_t) (2); 1445 D_A(res.balffn) = (int_t) (XBALF); 1446 D_V(res.balffn) = (int_t) (2); 1447 D_A(res.brkcfn) = (int_t) (XBRKC); 1448 D_V(res.brkcfn) = (int_t) (3); 1449 D_A(res.brxcfn) = (int_t) (XBRKX); 1450 D_V(res.brxcfn) = (int_t) (3); 1451 D_A(res.brfcfn) = (int_t) (XBRKXF); 1452 D_V(res.brfcfn) = (int_t) (2); 1453 D_A(res.dnmefn) = (int_t) (XDNME); 1454 D_V(res.dnmefn) = (int_t) (2); 1455 D_A(res.dnmifn) = (int_t) (XDNME1); 1456 D_V(res.dnmifn) = (int_t) (2); 1457 D_A(res.earbfn) = (int_t) (XEARB); 1458 D_V(res.earbfn) = (int_t) (2); 1459 D_A(res.dsarfn) = (int_t) (XDSAR); 1460 D_V(res.dsarfn) = (int_t) (3); 1461 D_A(res.enmefn) = (int_t) (XENME); 1462 D_V(res.enmefn) = (int_t) (3); 1463 D_A(res.enmifn) = (int_t) (XENMI); 1464 D_V(res.enmifn) = (int_t) (3); 1465 D_A(res.farbfn) = (int_t) (XFARB); 1466 D_V(res.farbfn) = (int_t) (2); 1467 D_A(res.fnmefn) = (int_t) (XFNME); 1468 D_V(res.fnmefn) = (int_t) (2); 1469 D_A(res.lnthfn) = (int_t) (XLNTH); 1470 D_V(res.lnthfn) = (int_t) (3); 1471 D_A(res.nmefn) = (int_t) (XNME); 1472 D_V(res.nmefn) = (int_t) (2); 1473 D_A(res.nnycfn) = (int_t) (XNNYC); 1474 D_V(res.nnycfn) = (int_t) (3); 1475 D_A(res.onarfn) = (int_t) (XONAR); 1476 D_V(res.onarfn) = (int_t) (2); 1477 D_A(res.onrffn) = (int_t) (XONRF); 1478 D_V(res.onrffn) = (int_t) (2); 1479 D_A(res.posifn) = (int_t) (XPOSI); 1480 D_V(res.posifn) = (int_t) (3); 1481 D_A(res.rpsifn) = (int_t) (XRPSI); 1482 D_V(res.rpsifn) = (int_t) (3); 1483 D_A(res.rtbfn) = (int_t) (XRTB); 1484 D_V(res.rtbfn) = (int_t) (3); 1485 D_A(res.salffn) = (int_t) (XSALF); 1486 D_V(res.salffn) = (int_t) (2); 1487 D_A(res.scflfn) = (int_t) (XFAIL); 1488 D_V(res.scflfn) = (int_t) (2); 1489 D_A(res.scokfn) = (int_t) (XSCOK); 1490 D_V(res.scokfn) = (int_t) (2); 1491 D_A(res.sconfn) = (int_t) (XSCON); 1492 D_V(res.sconfn) = (int_t) (2); 1493 D_A(res.spncfn) = (int_t) (XSPNC); 1494 D_V(res.spncfn) = (int_t) (3); 1495 D_A(res.starfn) = (int_t) (XSTAR); 1496 D_V(res.starfn) = (int_t) (3); 1497 D_A(res.tbfn) = (int_t) (XTB); 1498 D_V(res.tbfn) = (int_t) (3); 1499 D_A(res.aborfn) = (int_t) (XRTNL3); 1500 D_V(res.aborfn) = (int_t) (3); 1501 D_A(res.fncefn) = (int_t) (XFNCE); 1502 D_V(res.fncefn) = (int_t) (2); 1503 D_A(res.fncffn) = (int_t) (XRTNL3); 1504 D_V(res.fncffn) = (int_t) (2); 1505 D_A(res.sucffn) = (int_t) (XSUCF); 1506 D_V(res.sucffn) = (int_t) (2); 1507 S_A(res.abndsp) = (int_t) "ABEND"; 1508 S_L(res.abndsp) = STRLEN("ABEND"); 1509 S_A(res.aborsp) = (int_t) "ABORT"; 1510 S_L(res.aborsp) = STRLEN("ABORT"); 1511 S_A(res.alnmsp) = (int_t) "ALPHABET"; 1512 S_L(res.alnmsp) = STRLEN("ALPHABET"); 1513 S_A(res.anchsp) = (int_t) "ANCHOR"; 1514 S_L(res.anchsp) = STRLEN("ANCHOR"); 1515 S_A(res.anysp) = (int_t) "ANY"; 1516 S_L(res.anysp) = STRLEN("ANY"); 1517 S_A(res.aplysp) = (int_t) "APPLY"; 1518 S_L(res.aplysp) = STRLEN("APPLY"); 1519 S_A(res.arbsp) = (int_t) "ARB"; 1520 S_L(res.arbsp) = STRLEN("ARB"); 1521 S_A(res.arbnsp) = (int_t) "ARBNO"; 1522 S_L(res.arbnsp) = STRLEN("ARBNO"); 1523 S_A(res.argsp) = (int_t) "ARG"; 1524 S_L(res.argsp) = STRLEN("ARG"); 1525 S_A(res.backsp) = (int_t) "BACKSPACE"; 1526 S_L(res.backsp) = STRLEN("BACKSPACE"); 1527 S_A(res.balsp) = (int_t) "BAL"; 1528 S_L(res.balsp) = STRLEN("BAL"); 1529 S_A(res.brksp) = (int_t) "BREAK"; 1530 S_L(res.brksp) = STRLEN("BREAK"); 1531 S_A(res.brkxsp) = (int_t) "BREAKX"; 1532 S_L(res.brkxsp) = STRLEN("BREAKX"); 1533 S_A(res.trfrsp) = (int_t) "CALL"; 1534 S_L(res.trfrsp) = STRLEN("CALL"); 1535 S_A(res.csp) = (int_t) "C"; 1536 S_L(res.csp) = STRLEN("C"); 1537 S_A(res.casesp) = (int_t) "CASE"; 1538 S_L(res.casesp) = STRLEN("CASE"); 1539 S_A(res.charsp) = (int_t) "CHAR"; 1540 S_L(res.charsp) = STRLEN("CHAR"); 1541 S_A(res.clersp) = (int_t) "CLEAR"; 1542 S_L(res.clersp) = STRLEN("CLEAR"); 1543 S_A(res.codesp) = (int_t) "CODE"; 1544 S_L(res.codesp) = STRLEN("CODE"); 1545 S_A(res.clsp) = (int_t) "COLLECT"; 1546 S_L(res.clsp) = STRLEN("COLLECT"); 1547 S_A(res.cnosp) = (int_t) "COMPNO"; 1548 S_L(res.cnosp) = STRLEN("COMPNO"); 1549 S_A(res.cnvtsp) = (int_t) "CONVERT"; 1550 S_L(res.cnvtsp) = STRLEN("CONVERT"); 1551 S_A(res.contsp) = (int_t) "CONTINUE"; 1552 S_L(res.contsp) = STRLEN("CONTINUE"); 1553 S_A(res.copysp) = (int_t) "COPY"; 1554 S_L(res.copysp) = STRLEN("COPY"); 1555 S_A(res.datsp) = (int_t) "DATE"; 1556 S_L(res.datsp) = STRLEN("DATE"); 1557 S_A(res.datasp) = (int_t) "DATA"; 1558 S_L(res.datasp) = STRLEN("DATA"); 1559 S_A(res.defisp) = (int_t) "DEFINE"; 1560 S_L(res.defisp) = STRLEN("DEFINE"); 1561 S_A(res.diffsp) = (int_t) "DIFFER"; 1562 S_L(res.diffsp) = STRLEN("DIFFER"); 1563 S_A(res.dgnmsp) = (int_t) "DIGITS"; 1564 S_L(res.dgnmsp) = STRLEN("DIGITS"); 1565 S_A(res.dtchsp) = (int_t) "DETACH"; 1566 S_L(res.dtchsp) = STRLEN("DETACH"); 1567 S_A(res.dtsp) = (int_t) "DATATYPE"; 1568 S_L(res.dtsp) = STRLEN("DATATYPE"); 1569 S_A(res.dumpsp) = (int_t) "DUMP"; 1570 S_L(res.dumpsp) = STRLEN("DUMP"); 1571 S_A(res.duplsp) = (int_t) "DUPL"; 1572 S_L(res.duplsp) = STRLEN("DUPL"); 1573 S_A(res.endsp) = (int_t) "END"; 1574 S_L(res.endsp) = STRLEN("END"); 1575 S_A(res.endfsp) = (int_t) "ENDFILE"; 1576 S_L(res.endfsp) = STRLEN("ENDFILE"); 1577 S_A(res.eqsp) = (int_t) "EQ"; 1578 S_L(res.eqsp) = STRLEN("EQ"); 1579 S_A(res.errlsp) = (int_t) "ERRLIMIT"; 1580 S_L(res.errlsp) = STRLEN("ERRLIMIT"); 1581 S_A(res.errtsp) = (int_t) "ERRTYPE"; 1582 S_L(res.errtsp) = STRLEN("ERRTYPE"); 1583 S_A(res.ertxsp) = (int_t) "ERRTEXT"; 1584 S_L(res.ertxsp) = STRLEN("ERRTEXT"); 1585 S_A(res.evalsp) = (int_t) "EVAL"; 1586 S_L(res.evalsp) = STRLEN("EVAL"); 1587 S_A(res.expsp) = (int_t) "EXPRESSION"; 1588 S_L(res.expsp) = STRLEN("EXPRESSION"); 1589 S_A(res.fsp) = (int_t) "F"; 1590 S_L(res.fsp) = STRLEN("F"); 1591 S_A(res.failsp) = (int_t) "FAIL"; 1592 S_L(res.failsp) = STRLEN("FAIL"); 1593 S_A(res.fatlsp) = (int_t) "FATAL"; 1594 S_L(res.fatlsp) = STRLEN("FATAL"); 1595 S_A(res.ftllsp) = (int_t) "FATALLIMIT"; 1596 S_L(res.ftllsp) = STRLEN("FATALLIMIT"); 1597 S_A(res.fncesp) = (int_t) "FENCE"; 1598 S_L(res.fncesp) = STRLEN("FENCE"); 1599 S_A(res.fldssp) = (int_t) "FIELD"; 1600 S_L(res.fldssp) = STRLEN("FIELD"); 1601 S_A(res.fnclsp) = (int_t) "FNCLEVEL"; 1602 S_L(res.fnclsp) = STRLEN("FNCLEVEL"); 1603 S_A(res.frezsp) = (int_t) "FREEZE"; 1604 S_L(res.frezsp) = STRLEN("FREEZE"); 1605 S_A(res.fretsp) = (int_t) "FRETURN"; 1606 S_L(res.fretsp) = STRLEN("FRETURN"); 1607 S_A(res.ftrcsp) = (int_t) "FTRACE"; 1608 S_L(res.ftrcsp) = STRLEN("FTRACE"); 1609 S_A(res.fullsp) = (int_t) "FULLSCAN"; 1610 S_L(res.fullsp) = STRLEN("FULLSCAN"); 1611 S_A(res.funtsp) = (int_t) "FUNCTION"; 1612 S_L(res.funtsp) = STRLEN("FUNCTION"); 1613 S_A(res.gctmsp) = (int_t) "GCTIME"; 1614 S_L(res.gctmsp) = STRLEN("GCTIME"); 1615 S_A(res.gesp) = (int_t) "GE"; 1616 S_L(res.gesp) = STRLEN("GE"); 1617 S_A(res.gtsp) = (int_t) "GT"; 1618 S_L(res.gtsp) = STRLEN("GT"); 1619 S_A(res.gtrcsp) = (int_t) "GTRACE"; 1620 S_L(res.gtrcsp) = STRLEN("GTRACE"); 1621 S_A(res.idensp) = (int_t) "IDENT"; 1622 S_L(res.idensp) = STRLEN("IDENT"); 1623 S_A(res.insp) = (int_t) "INPUT"; 1624 S_L(res.insp) = STRLEN("INPUT"); 1625 S_A(res.intgsp) = (int_t) "INTEGER"; 1626 S_L(res.intgsp) = STRLEN("INTEGER"); 1627 S_A(res.itemsp) = (int_t) "ITEM"; 1628 S_L(res.itemsp) = STRLEN("ITEM"); 1629 S_A(res.ksp) = (int_t) "K"; 1630 S_L(res.ksp) = STRLEN("K"); 1631 S_A(res.trkysp) = (int_t) "KEYWORD"; 1632 S_L(res.trkysp) = STRLEN("KEYWORD"); 1633 S_A(res.lsp) = (int_t) "L"; 1634 S_L(res.lsp) = STRLEN("L"); 1635 S_A(res.trlasp) = (int_t) "LABEL"; 1636 S_L(res.trlasp) = STRLEN("LABEL"); 1637 S_A(res.labcsp) = (int_t) "LABELCODE"; 1638 S_L(res.labcsp) = STRLEN("LABELCODE"); 1639 S_A(res.lstnsp) = (int_t) "LASTNO"; 1640 S_L(res.lstnsp) = STRLEN("LASTNO"); 1641 S_A(res.lcnmsp) = (int_t) "LCASE"; 1642 S_L(res.lcnmsp) = STRLEN("LCASE"); 1643 S_A(res.lensp) = (int_t) "LEN"; 1644 S_L(res.lensp) = STRLEN("LEN"); 1645 S_A(res.lesp) = (int_t) "LE"; 1646 S_L(res.lesp) = STRLEN("LE"); 1647 S_A(res.leqsp) = (int_t) "LEQ"; 1648 S_L(res.leqsp) = STRLEN("LEQ"); 1649 S_A(res.lgesp) = (int_t) "LGE"; 1650 S_L(res.lgesp) = STRLEN("LGE"); 1651 S_A(res.lgtsp) = (int_t) "LGT"; 1652 S_L(res.lgtsp) = STRLEN("LGT"); 1653 S_A(res.llesp) = (int_t) "LLE"; 1654 S_L(res.llesp) = STRLEN("LLE"); 1655 S_A(res.lltsp) = (int_t) "LLT"; 1656 S_L(res.lltsp) = STRLEN("LLT"); 1657 S_A(res.lnesp) = (int_t) "LNE"; 1658 S_L(res.lnesp) = STRLEN("LNE"); 1659 S_A(res.loadsp) = (int_t) "LOAD"; 1660 S_L(res.loadsp) = STRLEN("LOAD"); 1661 S_A(res.locsp) = (int_t) "LOCAL"; 1662 S_L(res.locsp) = STRLEN("LOCAL"); 1663 S_A(res.lpadsp) = (int_t) "LPAD"; 1664 S_L(res.lpadsp) = STRLEN("LPAD"); 1665 S_A(res.ltsp) = (int_t) "LT"; 1666 S_L(res.ltsp) = STRLEN("LT"); 1667 S_A(res.maxlsp) = (int_t) "MAXLNGTH"; 1668 S_L(res.maxlsp) = STRLEN("MAXLNGTH"); 1669 S_A(res.maxisp) = (int_t) "MAXINT"; 1670 S_L(res.maxisp) = STRLEN("MAXINT"); 1671 S_A(res.namesp) = (int_t) "NAME"; 1672 S_L(res.namesp) = STRLEN("NAME"); 1673 S_A(res.nesp) = (int_t) "NE"; 1674 S_L(res.nesp) = STRLEN("NE"); 1675 S_A(res.nnysp) = (int_t) "NOTANY"; 1676 S_L(res.nnysp) = STRLEN("NOTANY"); 1677 S_A(res.nretsp) = (int_t) "NRETURN"; 1678 S_L(res.nretsp) = STRLEN("NRETURN"); 1679 S_A(res.numsp) = (int_t) "NUMERIC"; 1680 S_L(res.numsp) = STRLEN("NUMERIC"); 1681 S_A(res.opsnsp) = (int_t) "OPSYN"; 1682 S_L(res.opsnsp) = STRLEN("OPSYN"); 1683 S_A(res.outsp) = (int_t) "OUTPUT"; 1684 S_L(res.outsp) = STRLEN("OUTPUT"); 1685 S_A(res.parmsp) = (int_t) "PARM"; 1686 S_L(res.parmsp) = STRLEN("PARM"); 1687 S_A(res.patsp) = (int_t) "PATTERN"; 1688 S_L(res.patsp) = STRLEN("PATTERN"); 1689 S_A(res.pisp) = (int_t) "PI"; 1690 S_L(res.pisp) = STRLEN("PI"); 1691 S_A(res.possp) = (int_t) "POS"; 1692 S_L(res.possp) = STRLEN("POS"); 1693 S_A(res.prtsp) = (int_t) "PROTOTYPE"; 1694 S_L(res.prtsp) = STRLEN("PROTOTYPE"); 1695 S_A(res.rsp) = (int_t) "R"; 1696 S_L(res.rsp) = STRLEN("R"); 1697 S_A(res.rlsp) = (int_t) "REAL"; 1698 S_L(res.rlsp) = STRLEN("REAL"); 1699 S_A(res.remsp) = (int_t) "REM"; 1700 S_L(res.remsp) = STRLEN("REM"); 1701 S_A(res.remdsp) = (int_t) "REMDR"; 1702 S_L(res.remdsp) = STRLEN("REMDR"); 1703 S_A(res.retsp) = (int_t) "RETURN"; 1704 S_L(res.retsp) = STRLEN("RETURN"); 1705 S_A(res.revrsp) = (int_t) "REVERSE"; 1706 S_L(res.revrsp) = STRLEN("REVERSE"); 1707 S_A(res.rewnsp) = (int_t) "REWIND"; 1708 S_L(res.rewnsp) = STRLEN("REWIND"); 1709 S_A(res.rplcsp) = (int_t) "REPLACE"; 1710 S_L(res.rplcsp) = STRLEN("REPLACE"); 1711 S_A(res.rpossp) = (int_t) "RPOS"; 1712 S_L(res.rpossp) = STRLEN("RPOS"); 1713 S_A(res.rpadsp) = (int_t) "RPAD"; 1714 S_L(res.rpadsp) = STRLEN("RPAD"); 1715 S_A(res.rsrtsp) = (int_t) "RSORT"; 1716 S_L(res.rsrtsp) = STRLEN("RSORT"); 1717 S_A(res.rtabsp) = (int_t) "RTAB"; 1718 S_L(res.rtabsp) = STRLEN("RTAB"); 1719 S_A(res.rtypsp) = (int_t) "RTNTYPE"; 1720 S_L(res.rtypsp) = STRLEN("RTNTYPE"); 1721 S_A(res.setsp) = (int_t) "SET"; 1722 S_L(res.setsp) = STRLEN("SET"); 1723 S_A(res.setxsp) = (int_t) "SETEXIT"; 1724 S_L(res.setxsp) = STRLEN("SETEXIT"); 1725 S_A(res.scntsp) = (int_t) "SCONTINUE"; 1726 S_L(res.scntsp) = STRLEN("SCONTINUE"); 1727 S_A(res.sizesp) = (int_t) "SIZE"; 1728 S_L(res.sizesp) = STRLEN("SIZE"); 1729 S_A(res.sstrsp) = (int_t) "SUBSTR"; 1730 S_L(res.sstrsp) = STRLEN("SUBSTR"); 1731 S_A(res.sortsp) = (int_t) "SORT"; 1732 S_L(res.sortsp) = STRLEN("SORT"); 1733 S_A(res.spansp) = (int_t) "SPAN"; 1734 S_L(res.spansp) = STRLEN("SPAN"); 1735 S_A(res.stctsp) = (int_t) "STCOUNT"; 1736 S_L(res.stctsp) = STRLEN("STCOUNT"); 1737 S_A(res.stfcsp) = (int_t) "STFCOUNT"; 1738 S_L(res.stfcsp) = STRLEN("STFCOUNT"); 1739 S_A(res.stlmsp) = (int_t) "STLIMIT"; 1740 S_L(res.stlmsp) = STRLEN("STLIMIT"); 1741 S_A(res.stptsp) = (int_t) "STOPTR"; 1742 S_L(res.stptsp) = STRLEN("STOPTR"); 1743 S_A(res.stxtsp) = (int_t) "STEXEC"; 1744 S_L(res.stxtsp) = STRLEN("STEXEC"); 1745 S_A(res.stnosp) = (int_t) "STNO"; 1746 S_L(res.stnosp) = STRLEN("STNO"); 1747 S_A(res.varsp) = (int_t) "STRING"; 1748 S_L(res.varsp) = STRLEN("STRING"); 1749 S_A(res.succsp) = (int_t) "SUCCEED"; 1750 S_L(res.succsp) = STRLEN("SUCCEED"); 1751 S_A(res.tabsp) = (int_t) "TAB"; 1752 S_L(res.tabsp) = STRLEN("TAB"); 1753 S_A(res.termsp) = (int_t) "TERMINAL"; 1754 S_L(res.termsp) = STRLEN("TERMINAL"); 1755 S_A(res.thawsp) = (int_t) "THAW"; 1756 S_L(res.thawsp) = STRLEN("THAW"); 1757 S_A(res.timsp) = (int_t) "TIME"; 1758 S_L(res.timsp) = STRLEN("TIME"); 1759 S_A(res.trcesp) = (int_t) "TRACE"; 1760 S_L(res.trcesp) = STRLEN("TRACE"); 1761 S_A(res.trmsp) = (int_t) "TRIM"; 1762 S_L(res.trmsp) = STRLEN("TRIM"); 1763 S_A(res.ucnmsp) = (int_t) "UCASE"; 1764 S_L(res.ucnmsp) = STRLEN("UCASE"); 1765 S_A(res.unldsp) = (int_t) "UNLOAD"; 1766 S_L(res.unldsp) = STRLEN("UNLOAD"); 1767 S_A(res.veesp) = (int_t) "V"; 1768 S_L(res.veesp) = STRLEN("V"); 1769 S_A(res.valsp) = (int_t) "VALUE"; 1770 S_L(res.valsp) = STRLEN("VALUE"); 1771 S_A(res.vdifsp) = (int_t) "VDIFFER"; 1772 S_L(res.vdifsp) = STRLEN("VDIFFER"); 1773 S_A(res.bloksp) = (int_t) "BLOCK"; 1774 S_L(res.bloksp) = STRLEN("BLOCK"); 1775 S_A(res.blkssp) = (int_t) "BLOCKS"; 1776 S_L(res.blkssp) = STRLEN("BLOCKS"); 1777 S_A(res.bkgnsp) = (int_t) "FILL"; 1778 S_L(res.bkgnsp) = STRLEN("FILL"); 1779 S_A(res.noblsp) = (int_t) "NOBLOCKS"; 1780 S_L(res.noblsp) = STRLEN("NOBLOCKS"); 1781 S_A(res.f1sp) = (int_t) "PRINT"; 1782 S_L(res.f1sp) = STRLEN("PRINT"); 1783 S_A(res.f2sp) = (int_t) "HOR"; 1784 S_L(res.f2sp) = STRLEN("HOR"); 1785 S_A(res.f3sp) = (int_t) "VER"; 1786 S_L(res.f3sp) = STRLEN("VER"); 1787 S_A(res.f4sp) = (int_t) "FRONT"; 1788 S_L(res.f4sp) = STRLEN("FRONT"); 1789 S_A(res.f5sp) = (int_t) "BOX"; 1790 S_L(res.f5sp) = STRLEN("BOX"); 1791 S_A(res.f6sp) = (int_t) "PAR"; 1792 S_L(res.f6sp) = STRLEN("PAR"); 1793 S_A(res.f7sp) = (int_t) "SER"; 1794 S_L(res.f7sp) = STRLEN("SER"); 1795 S_A(res.f8sp) = (int_t) "OVY"; 1796 S_L(res.f8sp) = STRLEN("OVY"); 1797 S_A(res.f9sp) = (int_t) "HOR_REG"; 1798 S_L(res.f9sp) = STRLEN("HOR_REG"); 1799 S_A(res.f10sp) = (int_t) "VER_REG"; 1800 S_L(res.f10sp) = STRLEN("VER_REG"); 1801 S_A(res.f11sp) = (int_t) "NORM_REG"; 1802 S_L(res.f11sp) = STRLEN("NORM_REG"); 1803 S_A(res.f12sp) = (int_t) "IT"; 1804 S_L(res.f12sp) = STRLEN("IT"); 1805 S_A(res.f13sp) = (int_t) "REP"; 1806 S_L(res.f13sp) = STRLEN("REP"); 1807 S_A(res.f14sp) = (int_t) "DEF"; 1808 S_L(res.f14sp) = STRLEN("DEF"); 1809 S_A(res.f15sp) = (int_t) "NODE"; 1810 S_L(res.f15sp) = STRLEN("NODE"); 1811 S_A(res.f16sp) = (int_t) "MERGE"; 1812 S_L(res.f16sp) = STRLEN("MERGE"); 1813 S_A(res.f17sp) = (int_t) "HEIGHT"; 1814 S_L(res.f17sp) = STRLEN("HEIGHT"); 1815 S_A(res.f18sp) = (int_t) "WIDTH"; 1816 S_L(res.f18sp) = STRLEN("WIDTH"); 1817 S_A(res.f19sp) = (int_t) "DEPTH"; 1818 S_L(res.f19sp) = STRLEN("DEPTH"); 1819 S_A(res.f20sp) = (int_t) "BSIZE"; 1820 S_L(res.f20sp) = STRLEN("BSIZE"); 1821 S_A(res.f21sp) = (int_t) "SLAB"; 1822 S_L(res.f21sp) = STRLEN("SLAB"); 1823 S_A(res.f22sp) = (int_t) "FIX"; 1824 S_L(res.f22sp) = STRLEN("FIX"); 1825 S_A(res.f23sp) = (int_t) "BCHAR"; 1826 S_L(res.f23sp) = STRLEN("BCHAR"); 1827 S_A(res.f24sp) = (int_t) "DUP"; 1828 S_L(res.f24sp) = STRLEN("DUP"); 1829 S_A(res.f25sp) = (int_t) "CC"; 1830 S_L(res.f25sp) = STRLEN("CC"); 1831 S_A(res.f26sp) = (int_t) "EJECT"; 1832 S_L(res.f26sp) = STRLEN("EJECT"); 1833 S_A(res.f27sp) = (int_t) "LRECL"; 1834 S_L(res.f27sp) = STRLEN("LRECL"); 1835 S_A(res.f28sp) = (int_t) "LOC"; 1836 S_L(res.f28sp) = STRLEN("LOC"); 1837 S_A(res.crdfsp) = (int_t) "(80A1)"; 1838 S_L(res.crdfsp) = STRLEN("(80A1)"); 1839 S_A(res.outpsp) = (int_t) "(1X,132A1)"; 1840 S_L(res.outpsp) = STRLEN("(1X,132A1)"); 1841 D_A(res.abndb) = (int_t) (ALPHSP); 1842 D_A(res.abndb+1) = (int_t) (ALPHVL); 1843 D_A(res.abndb+2) = (int_t) (CRDFSP); 1844 D_A(res.abndb+3) = (int_t) (DFLFST); 1845 D_A(res.abndb+4) = (int_t) (EXDTSP); 1846 D_A(res.abndb+5) = (int_t) (EXTPTR); 1847 D_A(res.abndb+6) = (int_t) (ENDSP); 1848 D_A(res.abndb+7) = (int_t) (ENDPTR); 1849 D_A(res.abndb+8) = (int_t) (FRETSP); 1850 D_A(res.abndb+9) = (int_t) (FRETCL); 1851 D_A(res.abndb+10) = (int_t) (FUNTSP); 1852 D_A(res.abndb+11) = (int_t) (FUNTCL); 1853 D_A(res.abndb+12) = (int_t) (LCASSP); 1854 D_A(res.abndb+13) = (int_t) (LCASVL); 1855 D_A(res.abndb+14) = (int_t) (NRETSP); 1856 D_A(res.abndb+15) = (int_t) (NRETCL); 1857 D_A(res.abndb+16) = (int_t) (RETSP); 1858 D_A(res.abndb+17) = (int_t) (RETCL); 1859 D_A(res.abndb+18) = (int_t) (UCASSP); 1860 D_A(res.abndb+19) = (int_t) (UCASVL); 1861 D_A(res.abndb+20) = (int_t) (DIGSSP); 1862 D_A(res.abndb+21) = (int_t) (DIGSVL); 1863 D_A(res.abndb+22) = (int_t) (ABORSP); 1864 D_A(res.abndb+23) = (int_t) (ABORCL); 1865 D_A(res.abndb+24) = (int_t) (CONTSP); 1866 D_A(res.abndb+25) = (int_t) (CONTCL); 1867 D_A(res.abndb+26) = (int_t) (SCNTSP); 1868 D_A(res.abndb+27) = (int_t) (SCNTCL); 1869 D_A(res.abndb+28) = (int_t) (BLSP); 1870 D_A(res.abndb+29) = (int_t) (BKGNCL); 1871 D_A(res.abndb+30) = (int_t) (FSP); 1872 D_A(res.dtend) = (int_t) (EFFCL); 1873 D_A(res.prmtbl) = (int_t) (PRMTBL); 1874 D_F(res.prmtbl) = TTL+MARK; 1875 D_V(res.prmtbl) = (int_t) (PRMSIZ); 1876 D_A(res.prmtbl+1) = (int_t) (DTLIST); 1877 D_A(res.prmtbl+2) = (int_t) (FNLIST); 1878 D_A(res.prmtbl+3) = (int_t) (FTABLE); 1879 D_A(res.prmtbl+4) = (int_t) (ICLBLK); 1880 D_A(res.prmtbl+5) = (int_t) (KNLIST); 1881 D_A(res.prmtbl+6) = (int_t) (KVLIST); 1882 D_A(res.prmtbl+7) = (int_t) (OPTBL); 1883 D_A(res.stkhed+1) = (int_t) (INLIST); 1884 D_A(res.stkhed+2) = (int_t) (OTLIST); 1885 D_A(res.stkhed+3) = (int_t) (INSATL); 1886 D_A(res.stkhed+4) = (int_t) (OTSATL); 1887 D_A(res.stkhed+5) = (int_t) (TFENPL); 1888 D_A(res.stkhed+6) = (int_t) (TFEXPL); 1889 D_A(res.stkhed+7) = (int_t) (TKEYPL); 1890 D_A(res.stkhed+8) = (int_t) (TLABPL); 1891 D_A(res.stkhed+9) = (int_t) (TRLIST); 1892 D_A(res.stkhed+10) = (int_t) (TVALPL); 1893 D_A(res.oblock) = (int_t) (OBLOCK); 1894 D_F(res.oblock) = TTL+MARK; 1895 D_V(res.oblock) = (int_t) (OBARY*DESCR); 1896 D_A(res.aborpt) = (int_t) (ABORPT); 1897 D_F(res.aborpt) = TTL+MARK; 1898 D_V(res.aborpt) = (int_t) (3*DESCR); 1899 D_A(res.aborpt+1) = (int_t) (ABORFN); 1900 D_F(res.aborpt+1) = FNC; 1901 D_V(res.aborpt+1) = (int_t) (2); 1902 D_A(res.arbak) = (int_t) (ARBAK); 1903 D_F(res.arbak) = TTL+MARK; 1904 D_V(res.arbak) = (int_t) (6*DESCR); 1905 D_A(res.arbak+1) = (int_t) (ONARFN); 1906 D_F(res.arbak+1) = FNC; 1907 D_V(res.arbak+1) = (int_t) (2); 1908 D_A(res.arbak+2) = (int_t) (3*DESCR); 1909 D_A(res.arbak+4) = (int_t) (ONRFFN); 1910 D_F(res.arbak+4) = FNC; 1911 D_V(res.arbak+4) = (int_t) (2); 1912 D_A(res.arbpt) = (int_t) (ARBPT); 1913 D_F(res.arbpt) = TTL+MARK; 1914 D_V(res.arbpt) = (int_t) (9*DESCR); 1915 D_A(res.arbpt+1) = (int_t) (SCOKFN); 1916 D_F(res.arbpt+1) = FNC; 1917 D_V(res.arbpt+1) = (int_t) (2); 1918 D_V(res.arbpt+2) = (int_t) (3*DESCR); 1919 D_A(res.arbpt+4) = (int_t) (SCOKFN); 1920 D_F(res.arbpt+4) = FNC; 1921 D_V(res.arbpt+4) = (int_t) (2); 1922 D_A(res.arbpt+5) = (int_t) (6*DESCR); 1923 D_A(res.arbpt+7) = (int_t) (FARBFN); 1924 D_F(res.arbpt+7) = FNC; 1925 D_V(res.arbpt+7) = (int_t) (2); 1926 D_A(res.arbpt+8) = (int_t) (6*DESCR); 1927 D_A(res.arhed) = (int_t) (ARHED); 1928 D_F(res.arhed) = TTL+MARK; 1929 D_V(res.arhed) = (int_t) (12*DESCR); 1930 D_A(res.arhed+1) = (int_t) (SCOKFN); 1931 D_F(res.arhed+1) = FNC; 1932 D_V(res.arhed+1) = (int_t) (2); 1933 D_V(res.arhed+2) = (int_t) (3*DESCR); 1934 D_A(res.arhed+4) = (int_t) (SCOKFN); 1935 D_F(res.arhed+4) = FNC; 1936 D_V(res.arhed+4) = (int_t) (2); 1937 D_A(res.arhed+5) = (int_t) (6*DESCR); 1938 D_A(res.arhed+7) = (int_t) (ARBNFN); 1939 D_F(res.arhed+7) = FNC; 1940 D_V(res.arhed+7) = (int_t) (2); 1941 D_A(res.arhed+8) = (int_t) (9*DESCR); 1942 D_V(res.arhed+8) = (int_t) (12*DESCR); 1943 D_A(res.arhed+10) = (int_t) (ARBFFN); 1944 D_F(res.arhed+10) = FNC; 1945 D_V(res.arhed+10) = (int_t) (2); 1946 D_A(res.artal) = (int_t) (ARTAL); 1947 D_F(res.artal) = TTL+MARK; 1948 D_V(res.artal) = (int_t) (6*DESCR); 1949 D_A(res.artal+1) = (int_t) (EARBFN); 1950 D_F(res.artal+1) = FNC; 1951 D_V(res.artal+1) = (int_t) (2); 1952 D_V(res.artal+2) = (int_t) (3*DESCR); 1953 D_A(res.artal+4) = (int_t) (SCOKFN); 1954 D_F(res.artal+4) = FNC; 1955 D_V(res.artal+4) = (int_t) (2); 1956 D_A(res.artal+5) = (int_t) (6*DESCR); 1957 D_A(res.balpt) = (int_t) (BALPT); 1958 D_F(res.balpt) = TTL+MARK; 1959 D_V(res.balpt) = (int_t) (9*DESCR); 1960 D_A(res.balpt+1) = (int_t) (SCOKFN); 1961 D_F(res.balpt+1) = FNC; 1962 D_V(res.balpt+1) = (int_t) (2); 1963 D_V(res.balpt+2) = (int_t) (3*DESCR); 1964 D_A(res.balpt+4) = (int_t) (BALFN); 1965 D_F(res.balpt+4) = FNC; 1966 D_V(res.balpt+4) = (int_t) (2); 1967 D_A(res.balpt+5) = (int_t) (6*DESCR); 1968 D_A(res.balpt+7) = (int_t) (BALFFN); 1969 D_F(res.balpt+7) = FNC; 1970 D_V(res.balpt+7) = (int_t) (2); 1971 D_A(res.balpt+8) = (int_t) (6*DESCR); 1972 D_A(res.failpt) = (int_t) (FAILPT); 1973 D_F(res.failpt) = TTL+MARK; 1974 D_V(res.failpt) = (int_t) (3*DESCR); 1975 D_A(res.failpt+1) = (int_t) (SALFFN); 1976 D_F(res.failpt+1) = FNC; 1977 D_V(res.failpt+1) = (int_t) (2); 1978 D_A(res.fncept) = (int_t) (FNCEPT); 1979 D_F(res.fncept) = TTL+MARK; 1980 D_V(res.fncept) = (int_t) (3*DESCR); 1981 D_A(res.fncept+1) = (int_t) (FNCEFN); 1982 D_F(res.fncept+1) = FNC; 1983 D_V(res.fncept+1) = (int_t) (2); 1984 D_A(res.rempt) = (int_t) (REMPT); 1985 D_F(res.rempt) = TTL+MARK; 1986 D_V(res.rempt) = (int_t) (4*DESCR); 1987 D_A(res.rempt+1) = (int_t) (RTBFN); 1988 D_F(res.rempt+1) = FNC; 1989 D_V(res.rempt+1) = (int_t) (3); 1990 D_V(res.rempt+4) = (int_t) (I); 1991 D_A(res.starpt) = (int_t) (STARPT); 1992 D_F(res.starpt) = TTL+MARK; 1993 D_V(res.starpt) = (int_t) (11*DESCR); 1994 D_A(res.starpt+1) = (int_t) (STARFN); 1995 D_F(res.starpt+1) = FNC; 1996 D_V(res.starpt+1) = (int_t) (3); 1997 D_V(res.starpt+2) = (int_t) (4*DESCR); 1998 D_A(res.starpt+3) = (int_t) (1); 1999 D_A(res.starpt+5) = (int_t) (SCOKFN); 2000 D_F(res.starpt+5) = FNC; 2001 D_V(res.starpt+5) = (int_t) (2); 2002 D_A(res.starpt+6) = (int_t) (7*DESCR); 2003 D_A(res.starpt+8) = (int_t) (DSARFN); 2004 D_F(res.starpt+8) = FNC; 2005 D_V(res.starpt+8) = (int_t) (3); 2006 D_V(res.starpt+9) = (int_t) (4*DESCR); 2007 D_A(res.succpt) = (int_t) (SUCCPT); 2008 D_F(res.succpt) = TTL+MARK; 2009 D_V(res.succpt) = (int_t) (3*DESCR); 2010 D_A(res.succpt+1) = (int_t) (SUCFFN); 2011 D_F(res.succpt+1) = FNC; 2012 D_V(res.succpt+1) = (int_t) (2); 2013 D_A(res.tvalpl) = (int_t) (TVALPL); 2014 D_F(res.tvalpl) = TTL+MARK; 2015 D_V(res.tvalpl) = (int_t) (2*DESCR); 2016 D_A(res.tlabpl) = (int_t) (TLABPL); 2017 D_F(res.tlabpl) = TTL+MARK; 2018 D_V(res.tlabpl) = (int_t) (2*DESCR); 2019 D_A(res.tfenpl) = (int_t) (TFENPL); 2020 D_F(res.tfenpl) = TTL+MARK; 2021 D_V(res.tfenpl) = (int_t) (2*DESCR); 2022 D_A(res.tfexpl) = (int_t) (TFEXPL); 2023 D_F(res.tfexpl) = TTL+MARK; 2024 D_V(res.tfexpl) = (int_t) (2*DESCR); 2025 D_A(res.tkeypl) = (int_t) (TKEYPL); 2026 D_F(res.tkeypl) = TTL+MARK; 2027 D_V(res.tkeypl) = (int_t) (2*DESCR); 2028 D_A(res.valblk) = (int_t) (VALBLK); 2029 D_F(res.valblk) = TTL+MARK; 2030 D_V(res.valblk) = (int_t) (6*DESCR); 2031 D_V(res.valblk+1) = (int_t) (S); 2032 D_V(res.valblk+3) = (int_t) (N); 2033 D_V(res.valblk+5) = (int_t) (K); 2034 D_A(res.msglst+1) = (int_t) (MSG1); 2035 D_A(res.msglst+2) = (int_t) (MSG2); 2036 D_A(res.msglst+3) = (int_t) (MSG3); 2037 D_A(res.msglst+4) = (int_t) (MSG4); 2038 D_A(res.msglst+5) = (int_t) (MSG5); 2039 D_A(res.msglst+6) = (int_t) (MSG6); 2040 D_A(res.msglst+7) = (int_t) (MSG7); 2041 D_A(res.msglst+8) = (int_t) (MSG8); 2042 D_A(res.msglst+9) = (int_t) (MSG9); 2043 D_A(res.msglst+10) = (int_t) (MSG10); 2044 D_A(res.msglst+11) = (int_t) (MSG11); 2045 D_A(res.msglst+12) = (int_t) (MSG12); 2046 D_A(res.msglst+13) = (int_t) (MSG13); 2047 D_A(res.msglst+14) = (int_t) (MSG14); 2048 D_A(res.msglst+15) = (int_t) (MSG15); 2049 D_A(res.msglst+16) = (int_t) (MSG16); 2050 D_A(res.msglst+17) = (int_t) (MSG17); 2051 D_A(res.msglst+18) = (int_t) (MSG18); 2052 D_A(res.msglst+19) = (int_t) (MSG19); 2053 D_A(res.msglst+20) = (int_t) (MSG20); 2054 D_A(res.msglst+21) = (int_t) (MSG21); 2055 D_A(res.msglst+22) = (int_t) (MSG22); 2056 D_A(res.msglst+23) = (int_t) (MSG23); 2057 D_A(res.msglst+24) = (int_t) (MSG24); 2058 D_A(res.msglst+25) = (int_t) (MSG25); 2059 D_A(res.msglst+26) = (int_t) (MSG26); 2060 D_A(res.msglst+27) = (int_t) (MSG27); 2061 D_A(res.msglst+28) = (int_t) (MSG28); 2062 D_A(res.msglst+29) = (int_t) (MSG29); 2063 D_A(res.msglst+30) = (int_t) (MSG30); 2064 D_A(res.msglst+31) = (int_t) (MSG31); 2065 D_A(res.msglst+32) = (int_t) (MSG32); 2066 D_A(res.msglst+33) = (int_t) (MSG33); 2067 D_A(res.msglst+34) = (int_t) (MSG34); 2068 D_A(res.msglst+35) = (int_t) (MSG35); 2069 D_A(res.msglst+36) = (int_t) (MSG36); 2070 D_A(res.msglst+37) = (int_t) (MSG37); 2071 D_A(res.msglst+38) = (int_t) (MSG38); 2072 D_A(res.msglst+39) = (int_t) (MSG39); 2073 S_A(res.msg1) = (int_t) "Illegal data type"; 2074 S_L(res.msg1) = STRLEN("Illegal data type"); 2075 S_A(res.msg2) = (int_t) "Error in arithmetic operation"; 2076 S_L(res.msg2) = STRLEN("Error in arithmetic operation"); 2077 S_A(res.msg3) = (int_t) "Erroneous array or table reference"; 2078 S_L(res.msg3) = STRLEN("Erroneous array or table reference"); 2079 S_A(res.msg4) = (int_t) "Null string in illegal context"; 2080 S_L(res.msg4) = STRLEN("Null string in illegal context"); 2081 S_A(res.msg5) = (int_t) "Undefined function or operation"; 2082 S_L(res.msg5) = STRLEN("Undefined function or operation"); 2083 S_A(res.msg6) = (int_t) "Erroneous prototype"; 2084 S_L(res.msg6) = STRLEN("Erroneous prototype"); 2085 S_A(res.msg7) = (int_t) "Unknown keyword"; 2086 S_L(res.msg7) = STRLEN("Unknown keyword"); 2087 S_A(res.msg8) = (int_t) "Variable not present where required"; 2088 S_L(res.msg8) = STRLEN("Variable not present where required"); 2089 S_A(res.msg9) = (int_t) "Entry point of function not label"; 2090 S_L(res.msg9) = STRLEN("Entry point of function not label"); 2091 S_A(res.msg10) = (int_t) "Illegal argument to primitive function"; 2092 S_L(res.msg10) = STRLEN("Illegal argument to primitive function"); 2093 S_A(res.msg11) = (int_t) "Reading error"; 2094 S_L(res.msg11) = STRLEN("Reading error"); 2095 S_A(res.msg12) = (int_t) "Illegal i/o unit"; 2096 S_L(res.msg12) = STRLEN("Illegal i/o unit"); 2097 S_A(res.msg13) = (int_t) "Limit on defined data types exceeded"; 2098 S_L(res.msg13) = STRLEN("Limit on defined data types exceeded"); 2099 S_A(res.msg14) = (int_t) "Negative number in illegal context"; 2100 S_L(res.msg14) = STRLEN("Negative number in illegal context"); 2101 S_A(res.msg15) = (int_t) "String overflow"; 2102 S_L(res.msg15) = STRLEN("String overflow"); 2103 S_A(res.msg16) = (int_t) "Overflow during pattern matching"; 2104 S_L(res.msg16) = STRLEN("Overflow during pattern matching"); 2105 S_A(res.msg17) = (int_t) "Error in SNOBOL4 system"; 2106 S_L(res.msg17) = STRLEN("Error in SNOBOL4 system"); 2107 S_A(res.msg18) = (int_t) "Return from level zero"; 2108 S_L(res.msg18) = STRLEN("Return from level zero"); 2109 S_A(res.msg19) = (int_t) "Failure during goto evaluation"; 2110 S_L(res.msg19) = STRLEN("Failure during goto evaluation"); 2111 S_A(res.msg20) = (int_t) "Insufficient storage to continue"; 2112 S_L(res.msg20) = STRLEN("Insufficient storage to continue"); 2113 S_A(res.msg21) = (int_t) "Stack overflow"; 2114 S_L(res.msg21) = STRLEN("Stack overflow"); 2115 S_A(res.msg22) = (int_t) "Limit on statement execution exceeded"; 2116 S_L(res.msg22) = STRLEN("Limit on statement execution exceeded"); 2117 S_A(res.msg23) = (int_t) "Object exceeds size limit"; 2118 S_L(res.msg23) = STRLEN("Object exceeds size limit"); 2119 S_A(res.msg24) = (int_t) "Undefined or erroneous goto"; 2120 S_L(res.msg24) = STRLEN("Undefined or erroneous goto"); 2121 S_A(res.msg25) = (int_t) "Incorrect number of arguments"; 2122 S_L(res.msg25) = STRLEN("Incorrect number of arguments"); 2123 S_A(res.msg26) = (int_t) "Limit on compilation errors exceeded"; 2124 S_L(res.msg26) = STRLEN("Limit on compilation errors exceeded"); 2125 S_A(res.msg27) = (int_t) "Erroneous END statement"; 2126 S_L(res.msg27) = STRLEN("Erroneous END statement"); 2127 S_A(res.msg28) = (int_t) "Execution of statement with compilation error"; 2128 S_L(res.msg28) = STRLEN("Execution of statement with compilation error"); 2129 S_A(res.msg29) = (int_t) "Erroneous INCLUDE statement"; 2130 S_L(res.msg29) = STRLEN("Erroneous INCLUDE statement"); 2131 S_A(res.msg30) = (int_t) "Cannot open INCLUDE file"; 2132 S_L(res.msg30) = STRLEN("Cannot open INCLUDE file"); 2133 S_A(res.msg31) = (int_t) "Erroneous LINE statement"; 2134 S_L(res.msg31) = STRLEN("Erroneous LINE statement"); 2135 S_A(res.msg32) = (int_t) "Missing END statement"; 2136 S_L(res.msg32) = STRLEN("Missing END statement"); 2137 S_A(res.msg33) = (int_t) "Output error"; 2138 S_L(res.msg33) = STRLEN("Output error"); 2139 S_A(res.msg34) = (int_t) "User interrupt"; 2140 S_L(res.msg34) = STRLEN("User interrupt"); 2141 S_A(res.msg35) = (int_t) "Not in a SETEXIT handler"; 2142 S_L(res.msg35) = STRLEN("Not in a SETEXIT handler"); 2143 S_A(res.msg36) = (int_t) "Error in BLOCKS"; 2144 S_L(res.msg36) = STRLEN("Error in BLOCKS"); 2145 S_A(res.msg37) = (int_t) "Too many warnings in BLOCKS"; 2146 S_L(res.msg37) = STRLEN("Too many warnings in BLOCKS"); 2147 S_A(res.msg38) = (int_t) "Mystery error in BLOCKS"; 2148 S_L(res.msg38) = STRLEN("Mystery error in BLOCKS"); 2149 S_A(res.msg39) = (int_t) "Cannot CONTINUE from FATAL error"; 2150 S_L(res.msg39) = STRLEN("Cannot CONTINUE from FATAL error"); 2151 S_A(res.emsg1) = (int_t) "Erroneous label"; 2152 S_L(res.emsg1) = STRLEN("Erroneous label"); 2153 S_A(res.emsg2) = (int_t) "Previously defined label"; 2154 S_L(res.emsg2) = STRLEN("Previously defined label"); 2155 S_A(res.emsg3) = (int_t) "Erroneous subject"; 2156 S_L(res.emsg3) = STRLEN("Erroneous subject"); 2157 S_A(res.emsg14) = (int_t) "Error in goto"; 2158 S_L(res.emsg14) = STRLEN("Error in goto"); 2159 S_A(res.ilchar) = (int_t) "Illegal character in element"; 2160 S_L(res.ilchar) = STRLEN("Illegal character in element"); 2161 S_A(res.illbin) = (int_t) "Binary operator missing or in error"; 2162 S_L(res.illbin) = STRLEN("Binary operator missing or in error"); 2163 S_A(res.illbrk) = (int_t) "Erroneous or missing break character"; 2164 S_L(res.illbrk) = STRLEN("Erroneous or missing break character"); 2165 S_A(res.illdec) = (int_t) "Erroneous real number"; 2166 S_L(res.illdec) = STRLEN("Erroneous real number"); 2167 S_A(res.illeos) = (int_t) "Improperly terminated statement"; 2168 S_L(res.illeos) = STRLEN("Improperly terminated statement"); 2169 S_A(res.illint) = (int_t) "Erroneous integer"; 2170 S_L(res.illint) = STRLEN("Erroneous integer"); 2171 S_A(res.opnlit) = (int_t) "Unclosed literal"; 2172 S_L(res.opnlit) = STRLEN("Unclosed literal"); 2173 D_RV(res.rzercl) = 0.0; 2174 D_V(res.rzercl) = R; 2175 D_RV(res.r1mcl) = 1.0e6; 2176 D_V(res.r1mcl) = R; 2177