#include "chdecl.h"
void CH_pcom(current, sched, cop)
#define ARGUMENTS 12
#include "chhead.h"
select: switch (SELECTOR) {
    case 0: goto c0;
    case 1: goto cb1;
    case 2: goto c2;
    case 3: goto cb4;
    case 4: goto c5;
    case 5: goto cb8;
    case 6: goto c9;
    case 7: goto cb12;
    case 8: goto c13;
    case 9: goto cb17;
    case 10: goto c18;
    case 11: goto cb21;
    case 12: goto c22;
    case 13: goto cb25;
    case 14: goto c26;
    case 15: goto cb29;
    case 16: goto c30;
    case 17: goto cb33;
    case 18: goto c34;
    case 19: goto cb37;
    case 20: goto c38;
    case 21: goto cb41;
    case 22: goto c42;
    case 23: goto cb45;
    case 24: goto c46;
    case 25: goto cb49;
    case 26: goto c50;
    case 27: goto cb53;
    case 28: goto c54;
    case 29: goto cb71;
    case 30: goto c72;
    case 31: goto c92;
    case 32: goto c96;
    case 33: goto c105;
    case 34: goto c106;
    case 35: goto c114;
    case 36: goto c115;
    case 37: goto cb116;
    case 38: goto c117;
    case 39: goto cb120;
    case 40: goto c121;
    case 41: goto cb123;
    case 42: goto c124;
    case 43: goto cb127;
    case 44: goto c128;
    case 45: goto cb134;
    case 46: goto c135;
    case 47: goto cb137;
    case 48: goto c138;
    case 49: goto c172;
    case 50: goto c185;
    case 51: goto c208;
    case 52: goto c214;
    case 53: goto c220;
    case 54: goto c232;
    case 55: goto c246;
    case 56: goto c248;
    case 57: goto c250;
    case 58: goto c282;
    case 59: goto c298;
    case 60: goto c309;
    case 61: goto c310;
    case 62: goto c314;
    case 63: goto c316;
    case 64: goto c320;
    case 65: goto c334;
    case 66: goto c352;
    case 67: goto cb364;
    case 68: goto c365;
    case 69: goto c371;
    case 70: goto c386;
    case 71: goto c396;
    case 72: goto c401;
    case 73: goto c417;
    case 74: goto c419;
    case 75: goto c428;
    case 76: goto cb431;
    case 77: goto c432;
    case 78: goto cb446;
    case 79: goto c447;
    case 80: goto cb450;
    case 81: goto c451;
    case 82: goto c454;
    case 83: goto cb455;
    case 84: goto c456;
    case 85: goto c458;
    case 86: goto cb459;
    case 87: goto c460;
    case 88: goto cb467;
    case 89: goto c468;
    case 90: goto c470;
    case 91: goto cb471;
    case 92: goto c472;
    case 93: goto cb479;
    case 94: goto c480;
    case 95: goto c482;
    case 96: goto cb483;
    case 97: goto c484;
    case 98: goto cb491;
    case 99: goto c492;
    case 100: goto c494;
    case 101: goto cb495;
    case 102: goto c496;
    case 103: goto cb503;
    case 104: goto c504;
    case 105: goto c506;
    case 106: goto cb514;
    case 107: goto c515;
    case 108: goto cb518;
    case 109: goto c519;
    case 110: goto cb522;
    case 111: goto c523;
    case 112: goto c524;
    case 113: goto cb534;
    case 114: goto c535;
    case 115: goto c542;
    case 116: goto cb545;
    case 117: goto c546;
    case 118: goto cb550;
    case 119: goto c551;
    case 120: goto c558;
    case 121: goto cb559;
    case 122: goto c560;
    case 123: goto cb567;
    case 124: goto c568;
    case 125: goto c569;
    case 126: goto cb577;
    case 127: goto c578;
    case 128: goto c581;
    case 129: goto c585;
    case 130: goto c591;
    case 131: goto c593;
    case 132: goto c597;
    case 133: goto c603;
    case 134: goto cb607;
    case 135: goto c608;
    case 136: goto cb615;
    case 137: goto c616;
    case 138: goto c617;
    case 139: goto c619;
    case 140: goto cb621;
    case 141: goto c622;
    case 142: goto c625;
    case 143: goto c631;
    case 144: goto c639;
    case 145: goto c642;
    case 146: goto c645;
    case 147: goto cb655;
    case 148: goto c656;
    case 149: goto cb659;
    case 150: goto c660;
    case 151: goto c663;
    case 152: goto cb669;
    case 153: goto c670;
    case 154: goto c671;
    case 155: goto c674;
    case 156: goto cb682;
    case 157: goto c683;
    case 158: goto c686;
    case 159: goto c688;
    case 160: goto c696;
    case 161: goto c698;
    case 162: goto c705;
    case 163: goto cb714;
    case 164: goto c715;
    case 165: goto cb718;
    case 166: goto c719;
    case 167: goto c722;
    case 168: goto cb728;
    case 169: goto c729;
    case 170: goto c730;
    case 171: goto c734;
    case 172: goto cb742;
    case 173: goto c743;
    case 174: goto c746;
    case 175: goto c748;
    case 176: goto c757;
    case 177: goto c764;
    case 178: goto cb777;
    case 179: goto c778;
    case 180: goto cb781;
    case 181: goto c782;
    case 182: goto c785;
    case 183: goto cb822;
    case 184: goto c823;
    case 185: goto c826;
    case 186: goto cb833;
    case 187: goto c834;
    case 188: goto c840;
    case 189: goto c842;
    case 190: goto c850;
    case 191: goto c853;
    case 192: goto cb861;
    case 193: goto c862;
    case 194: goto cb875;
    case 195: goto c876;
    case 196: goto c902;
    case 197: goto c904;
    case 198: goto c926;
    case 199: goto cb927;
    case 200: goto c928;
    case 201: goto c930;
    case 202: goto cb941;
    case 203: goto c942;
    case 204: goto cb953;
    case 205: goto c954;
    case 206: goto c955;
    case 207: goto c957;
    case 208: goto cb968;
    case 209: goto c969;
    case 210: goto cb972;
    case 211: goto c973;
    case 212: goto c976;
    case 213: goto cb983;
    case 214: goto c984;
    case 215: goto c985;
    case 216: goto c988;
    case 217: goto cb991;
    case 218: goto c992;
    case 219: goto cb993;
    case 220: goto c994;
    case 221: goto c995;
    case 222: goto cb1002;
    case 223: goto c1003;
    case 224: goto cb1008;
    case 225: goto c1010;
    case 226: goto cb1010;
    case 227: goto c1011;
    case 228: goto c1012;
    case 229: goto c1014;
    case 230: goto cb1019;
    case 231: goto c1020;
    case 232: goto cb1021;
    case 233: goto c1022;
    case 234: goto c1023;
    case 235: goto cb1033;
    case 236: goto c1034;
    case 237: goto c1036;
    case 238: goto cb1083;
    case 240: goto c1085;
    case 241: goto cb1092;
    case 242: goto c1093;
    case 243: goto cb1096;
    case 244: goto c1097;
    case 245: goto cb1101;
    case 246: goto c1102;
    case 247: goto cb1106;
    case 248: goto c1107;
    case 249: goto c1110;
    case 250: goto cb1123;
    case 251: goto c1124;
    case 256: goto c1126;
    case 252: goto c1126;
    case 253: goto cb1128;
    case 254: goto c1129;
    case 255: goto cb1130;
    case 257: goto c1132;
    case 258: goto cb1141;
    case 260: goto c1143;
    case 261: goto cb1150;
    case 262: goto c1151;
    case 263: goto cb1154;
    case 264: goto c1155;
    case 265: goto cb1159;
    case 266: goto c1160;
    case 267: goto cb1164;
    case 268: goto c1165;
    case 269: goto c1168;
    case 270: goto cb1171;
    case 271: goto c1172;
    case 276: goto c1174;
    case 272: goto c1174;
    case 273: goto cb1182;
    case 274: goto c1183;
    case 275: goto cb1184;
    case 277: goto c1186;
    case 278: goto cb1195;
    case 259: goto c1196;
    case 239: goto c1196;
    case 279: goto c1196;
    case 280: goto c1215;
    case 281: goto c1220;  }
c0:
/* block , 0 */
  if((ch_returncode = che_block(QUAL(0),sched)) != Normal)
     goto ch_raise_exception;
  current->ip = 1;
cb1:
/* receive 3 0 */
  if ((ch_returncode = che_receive(DEF(3),DEF(0),sched)) != Normal)
     goto ch_raise_exception;
  return;
c2:
/* chs_lit 4 , "CLoader" */
  if( !chs_lit(DEF(4),"CLoader") ) goto ch_depletion;
/* chs_lit 5 , "" */
  if( !chs_lit(DEF(5),"") ) goto ch_depletion;
  current->ip = 3;
cb4:
/* call 3.2.2 4 5 6 , 1 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(3)DOT(2)DOT(2),
          arguments[1] = DEF(4),
          arguments[2] = DEF(5),
          arguments[3] = DEF(6),
          arguments[3+1] = nil,& arguments[0]),QUAL(1),sched)) != Normal)
     goto ch_raise_exception;
  return;
c5:
/* unwrap 7 6 , 2 */
  if ((ch_returncode = che_unwrap(DEF(7),DEF(6),QUAL(2),sched)) != Normal)
     goto ch_raise_exception;
/* chs_lit 8 , "environ" */
  if( !chs_lit(DEF(8),"environ") ) goto ch_depletion;
/* chs_lit 9 , "" */
  if( !chs_lit(DEF(9),"") ) goto ch_depletion;
  current->ip = 5;
cb8:
/* call 3.2.2 8 9 10 , 1 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(3)DOT(2)DOT(2),
          arguments[1] = DEF(8),
          arguments[2] = DEF(9),
          arguments[3] = DEF(10),
          arguments[3+1] = nil,& arguments[0]),QUAL(1),sched)) != Normal)
     goto ch_raise_exception;
  return;
c9:
/* unwrap 11 10 , 3 */
  if ((ch_returncode = che_unwrap(DEF(11),DEF(10),QUAL(3),sched)) != Normal)
     goto ch_raise_exception;
/* chs_lit 12 , "stdio" */
  if( !chs_lit(DEF(12),"stdio") ) goto ch_depletion;
/* chs_lit 13 , "" */
  if( !chs_lit(DEF(13),"") ) goto ch_depletion;
  current->ip = 7;
cb12:
/* call 3.2.2 12 13 14 , 1 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(3)DOT(2)DOT(2),
          arguments[1] = DEF(12),
          arguments[2] = DEF(13),
          arguments[3] = DEF(14),
          arguments[3+1] = nil,& arguments[0]),QUAL(1),sched)) != Normal)
     goto ch_raise_exception;
  return;
c13:
/* unwrap 15 14 , 4 */
  if ((ch_returncode = che_unwrap(DEF(15),DEF(14),QUAL(4),sched)) != Normal)
     goto ch_raise_exception;
/* new_record 16 , 11 */
  if ((ch_val.record = new_record(11)) == nil) goto ch_depletion;
  (*(REF(16).tsdr)->finalize)(REF(16).value,F_DISCARD,sched);
  REF(16).value = ch_val; REF(16).tsdr = & dr_record;
/* chs_lit 17 , "load" */
  if( !chs_lit(DEF(17),"load") ) goto ch_depletion;
/* chs_lit 18 , "" */
  if( !chs_lit(DEF(18),"") ) goto ch_depletion;
  current->ip = 9;
cb17:
/* call 3.2.2 17 18 19 , 1 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(3)DOT(2)DOT(2),
          arguments[1] = DEF(17),
          arguments[2] = DEF(18),
          arguments[3] = DEF(19),
          arguments[3+1] = nil,& arguments[0]),QUAL(1),sched)) != Normal)
     goto ch_raise_exception;
  return;
c18:
/* unwrap 16.0 19 , 5 */
  if ((ch_returncode = che_unwrap(DEF(16)DOT(0),DEF(19),QUAL(5)
    ,sched)) != Normal) goto ch_raise_exception;
/* chs_lit 20 , "pathLoad" */
  if( !chs_lit(DEF(20),"pathLoad") ) goto ch_depletion;
/* chs_lit 21 , "" */
  if( !chs_lit(DEF(21),"") ) goto ch_depletion;
  current->ip = 11;
cb21:
/* call 3.2.2 20 21 22 , 1 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(3)DOT(2)DOT(2),
          arguments[1] = DEF(20),
          arguments[2] = DEF(21),
          arguments[3] = DEF(22),
          arguments[3+1] = nil,& arguments[0]),QUAL(1),sched)) != Normal)
     goto ch_raise_exception;
  return;
c22:
/* unwrap 16.1 22 , 5 */
  if ((ch_returncode = che_unwrap(DEF(16)DOT(1),DEF(22),QUAL(5)
    ,sched)) != Normal) goto ch_raise_exception;
/* chs_lit 23 , "readObj" */
  if( !chs_lit(DEF(23),"readObj") ) goto ch_depletion;
/* chs_lit 24 , "" */
  if( !chs_lit(DEF(24),"") ) goto ch_depletion;
  current->ip = 13;
cb25:
/* call 3.2.2 23 24 25 , 1 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(3)DOT(2)DOT(2),
          arguments[1] = DEF(23),
          arguments[2] = DEF(24),
          arguments[3] = DEF(25),
          arguments[3+1] = nil,& arguments[0]),QUAL(1),sched)) != Normal)
     goto ch_raise_exception;
  return;
c26:
/* unwrap 16.2 25 , 6 */
  if ((ch_returncode = che_unwrap(DEF(16)DOT(2),DEF(25),QUAL(6)
    ,sched)) != Normal) goto ch_raise_exception;
/* chs_lit 26 , "pathReadObj" */
  if( !chs_lit(DEF(26),"pathReadObj") ) goto ch_depletion;
/* chs_lit 27 , "" */
  if( !chs_lit(DEF(27),"") ) goto ch_depletion;
  current->ip = 15;
cb29:
/* call 3.2.2 26 27 28 , 1 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(3)DOT(2)DOT(2),
          arguments[1] = DEF(26),
          arguments[2] = DEF(27),
          arguments[3] = DEF(28),
          arguments[3+1] = nil,& arguments[0]),QUAL(1),sched)) != Normal)
     goto ch_raise_exception;
  return;
c30:
/* unwrap 16.3 28 , 6 */
  if ((ch_returncode = che_unwrap(DEF(16)DOT(3),DEF(28),QUAL(6)
    ,sched)) != Normal) goto ch_raise_exception;
/* chs_lit 29 , "writeObj" */
  if( !chs_lit(DEF(29),"writeObj") ) goto ch_depletion;
/* chs_lit 30 , "" */
  if( !chs_lit(DEF(30),"") ) goto ch_depletion;
  current->ip = 17;
cb33:
/* call 3.2.2 29 30 31 , 1 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(3)DOT(2)DOT(2),
          arguments[1] = DEF(29),
          arguments[2] = DEF(30),
          arguments[3] = DEF(31),
          arguments[3+1] = nil,& arguments[0]),QUAL(1),sched)) != Normal)
     goto ch_raise_exception;
  return;
c34:
/* unwrap 16.4 31 , 7 */
  if ((ch_returncode = che_unwrap(DEF(16)DOT(4),DEF(31),QUAL(7)
    ,sched)) != Normal) goto ch_raise_exception;
/* chs_lit 32 , "store" */
  if( !chs_lit(DEF(32),"store") ) goto ch_depletion;
/* chs_lit 33 , "" */
  if( !chs_lit(DEF(33),"") ) goto ch_depletion;
  current->ip = 19;
cb37:
/* call 3.2.2 32 33 34 , 1 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(3)DOT(2)DOT(2),
          arguments[1] = DEF(32),
          arguments[2] = DEF(33),
          arguments[3] = DEF(34),
          arguments[3+1] = nil,& arguments[0]),QUAL(1),sched)) != Normal)
     goto ch_raise_exception;
  return;
c38:
/* unwrap 16.6 34 , 8 */
  if ((ch_returncode = che_unwrap(DEF(16)DOT(6),DEF(34),QUAL(8)
    ,sched)) != Normal) goto ch_raise_exception;
/* chs_lit 35 , "libWriteObj" */
  if( !chs_lit(DEF(35),"libWriteObj") ) goto ch_depletion;
/* chs_lit 36 , "" */
  if( !chs_lit(DEF(36),"") ) goto ch_depletion;
  current->ip = 21;
cb41:
/* call 3.2.2 35 36 37 , 1 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(3)DOT(2)DOT(2),
          arguments[1] = DEF(35),
          arguments[2] = DEF(36),
          arguments[3] = DEF(37),
          arguments[3+1] = nil,& arguments[0]),QUAL(1),sched)) != Normal)
     goto ch_raise_exception;
  return;
c42:
/* unwrap 16.5 37 , 7 */
  if ((ch_returncode = che_unwrap(DEF(16)DOT(5),DEF(37),QUAL(7)
    ,sched)) != Normal) goto ch_raise_exception;
/* chs_lit 38 , "libStore" */
  if( !chs_lit(DEF(38),"libStore") ) goto ch_depletion;
/* chs_lit 39 , "" */
  if( !chs_lit(DEF(39),"") ) goto ch_depletion;
  current->ip = 23;
cb45:
/* call 3.2.2 38 39 40 , 1 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(3)DOT(2)DOT(2),
          arguments[1] = DEF(38),
          arguments[2] = DEF(39),
          arguments[3] = DEF(40),
          arguments[3+1] = nil,& arguments[0]),QUAL(1),sched)) != Normal)
     goto ch_raise_exception;
  return;
c46:
/* unwrap 16.7 40 , 8 */
  if ((ch_returncode = che_unwrap(DEF(16)DOT(7),DEF(40),QUAL(8)
    ,sched)) != Normal) goto ch_raise_exception;
/* chs_lit 41 , "getCwd" */
  if( !chs_lit(DEF(41),"getCwd") ) goto ch_depletion;
/* chs_lit 42 , "" */
  if( !chs_lit(DEF(42),"") ) goto ch_depletion;
  current->ip = 25;
cb49:
/* call 3.2.2 41 42 43 , 1 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(3)DOT(2)DOT(2),
          arguments[1] = DEF(41),
          arguments[2] = DEF(42),
          arguments[3] = DEF(43),
          arguments[3+1] = nil,& arguments[0]),QUAL(1),sched)) != Normal)
     goto ch_raise_exception;
  return;
c50:
/* unwrap 16.8 43 , 9 */
  if ((ch_returncode = che_unwrap(DEF(16)DOT(8),DEF(43),QUAL(9)
    ,sched)) != Normal) goto ch_raise_exception;
/* chs_lit 44 , "setCwd" */
  if( !chs_lit(DEF(44),"setCwd") ) goto ch_depletion;
/* chs_lit 45 , "" */
  if( !chs_lit(DEF(45),"") ) goto ch_depletion;
  current->ip = 27;
cb53:
/* call 3.2.2 44 45 46 , 1 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(3)DOT(2)DOT(2),
          arguments[1] = DEF(44),
          arguments[2] = DEF(45),
          arguments[3] = DEF(46),
          arguments[3+1] = nil,& arguments[0]),QUAL(1),sched)) != Normal)
     goto ch_raise_exception;
  return;
c54:
/* unwrap 16.9 46 , 10 */
  if ((ch_returncode = che_unwrap(DEF(16)DOT(9),DEF(46),QUAL(10)
    ,sched)) != Normal) goto ch_raise_exception;
/* copy 16.10 3.1 */
  if((ch_returncode = (REF(3)DOT(1).tsdr->copy)(& ch_val, REF(3)DOT(1).value
    )) != Normal) goto ch_raise_exception;
  (*(REF(16)DOT(10).tsdr)->finalize)(REF(16)DOT(10).value,F_DISCARD,sched);
  REF(16)DOT(10).value = ch_val;
  REF(16)DOT(10).tsdr = datarepmap[REF(3)DOT(1).tsdr->number];
/* new_inport 47 */
  if ((ch_val.inport = make_inport()) == nil) goto ch_depletion;
  (*(REF(47).tsdr)->finalize)(REF(47).value,F_DISCARD,sched);
  REF(47).value = ch_val; REF(47).tsdr = & dr_inport;
/* connect 48 47 */
  if (REF(47).value.inport->refcount == MAXCOUNTER) goto ch_depletion;
  (*(REF(48).tsdr)->finalize)(REF(48).value,F_DISCARD,sched);
  REF(47).value.inport->refcount++;
  REF(48).value.outport = REF(47).value.inport;
  REF(48).tsdr = & dr_outport;
/* copy 49 48 */
  if((ch_returncode = cp_outport(& ch_val, REF(48).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(49).tsdr)->finalize)(REF(49).value,F_DISCARD,sched);
  REF(49).value = ch_val;
  REF(49).tsdr = & dr_outport;
/* new_inport 50 */
  if ((ch_val.inport = make_inport()) == nil) goto ch_depletion;
  (*(REF(50).tsdr)->finalize)(REF(50).value,F_DISCARD,sched);
  REF(50).value = ch_val; REF(50).tsdr = & dr_inport;
/* connect 51 50 */
  if (REF(50).value.inport->refcount == MAXCOUNTER) goto ch_depletion;
  (*(REF(51).tsdr)->finalize)(REF(51).value,F_DISCARD,sched);
  REF(50).value.inport->refcount++;
  REF(51).value.outport = REF(50).value.inport;
  REF(51).tsdr = & dr_outport;
/* copy 52 51 */
  if((ch_returncode = cp_outport(& ch_val, REF(51).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(52).tsdr)->finalize)(REF(52).value,F_DISCARD,sched);
  REF(52).value = ch_val;
  REF(52).tsdr = & dr_outport;
/* prog_lit 53 , 11 */
  if ((ch_returncode = che_prog_lit(DEF(53),QUAL(11),sched)) != Normal) 
     goto ch_raise_exception;
/* procedure 54 53 , 12 */
  if ((ch_returncode = che_procedure(DEF(54),DEF(53),QUAL(12)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 53 */
  (*(REF(53).tsdr)->finalize)(REF(53).value,F_DISCARD,sched);
  REF(53).tsdr = & dr_bottom;
/* move 55 54 */
  (*(REF(55).tsdr)->finalize)(REF(55).value,F_DISCARD,sched);
  REF(55) = REF(54);
  REF(54).tsdr = & dr_bottom;
/* prog_lit 56 , 13 */
  if ((ch_returncode = che_prog_lit(DEF(56),QUAL(13),sched)) != Normal) 
     goto ch_raise_exception;
/* procedure 57 56 , 14 */
  if ((ch_returncode = che_procedure(DEF(57),DEF(56),QUAL(14)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 56 */
  (*(REF(56).tsdr)->finalize)(REF(56).value,F_DISCARD,sched);
  REF(56).tsdr = & dr_bottom;
/* move 58 57 */
  (*(REF(58).tsdr)->finalize)(REF(58).value,F_DISCARD,sched);
  REF(58) = REF(57);
  REF(57).tsdr = & dr_bottom;
/* chs_lit 59 , "Parse Proc" */
  if( !chs_lit(DEF(59),"Parse Proc") ) goto ch_depletion;
  current->ip = 29;
cb71:
/* call 7 59 60 , 15 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(7),
          arguments[1] = DEF(59),
          arguments[2] = DEF(60),
          arguments[2+1] = nil,& arguments[0]),QUAL(15),sched)) != Normal)
     goto ch_raise_exception;
  return;
c72:
/* unwrap 61 60 , 16 */
  if ((ch_returncode = che_unwrap(DEF(61),DEF(60),QUAL(16),sched)) != Normal)
     goto ch_raise_exception;
/* new_record 62 , 5 */
  if ((ch_val.record = new_record(5)) == nil) goto ch_depletion;
  (*(REF(62).tsdr)->finalize)(REF(62).value,F_DISCARD,sched);
  REF(62).value = ch_val; REF(62).tsdr = & dr_record;
/* copy 63 11 */
  if((ch_returncode = cp_table(& ch_val, REF(11).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(63).tsdr)->finalize)(REF(63).value,F_DISCARD,sched);
  REF(63).value = ch_val;
  REF(63).tsdr = & dr_table;
/* chs_lit 64 , "HROOTDIR" */
  if( !chs_lit(DEF(64),"HROOTDIR") ) goto ch_depletion;
/* find 65 63 64 , 0 */
  if (findfunc(DEF(65),DEF(63),(
          arguments[0] = DEF(64),& arguments[0]),sched,0) == FAILURE)
             goto ch_notfound;
/* copy 66 65 */
  if((ch_returncode = (REF(65).tsdr->copy)(& ch_val, REF(65).value
    )) != Normal) goto ch_raise_exception;
  (*(REF(66).tsdr)->finalize)(REF(66).value,F_DISCARD,sched);
  REF(66).value = ch_val;
  REF(66).tsdr = datarepmap[REF(65).tsdr->number];
/* copy 67 66.1 */
  if((ch_returncode = cp_table(& ch_val, REF(66)DOT(1).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(67).tsdr)->finalize)(REF(67).value,F_DISCARD,sched);
  REF(67).value = ch_val;
  REF(67).tsdr = & dr_table;
/* chs_lit 68 , "/bin" */
  if( !chs_lit(DEF(68),"/bin") ) goto ch_depletion;
/* concat 69 67 68 */
  if ((ch_returncode = che_concat(DEF(69),DEF(67),DEF(68),sched)) != Normal)
     goto ch_raise_exception;
/* discard 68 */
  (*(REF(68).tsdr)->finalize)(REF(68).value,F_DISCARD,sched);
  REF(68).tsdr = & dr_bottom;
/* move 70 69 */
  (*(REF(70).tsdr)->finalize)(REF(70).value,F_DISCARD,sched);
  REF(70) = REF(69);
  REF(69).tsdr = & dr_bottom;
/* block , 17 */
  if((ch_returncode = che_block(QUAL(17),sched)) != Normal)
     goto ch_raise_exception;
/* chs_lit 71 , "HPATH" */
  if( !chs_lit(DEF(71),"HPATH") ) goto ch_depletion;
/* find 72 63 71 , 0 */
  if (findfunc(DEF(72),DEF(63),(
          arguments[0] = DEF(71),& arguments[0]),sched,0) == FAILURE)
             goto ch_notfound;
/* copy 66 72 */
  if((ch_returncode = (REF(72).tsdr->copy)(& ch_val, REF(72).value
    )) != Normal) goto ch_raise_exception;
  (*(REF(66).tsdr)->finalize)(REF(66).value,F_DISCARD,sched);
  REF(66).value = ch_val;
  REF(66).tsdr = datarepmap[REF(72).tsdr->number];
/* move 73 66.1 */
  (*(REF(73).tsdr)->finalize)(REF(73).value,F_DISCARD,sched);
  REF(73) = REF(66)DOT(1);
  REF(66)DOT(1).tsdr = & dr_bottom;
/* endblock */
  che_endblock(sched);
/* branch , 96 */
   goto c96;
c92:
/* chs_lit 74 , ".:" */
  if( !chs_lit(DEF(74),".:") ) goto ch_depletion;
/* concat 75 74 70 */
  if ((ch_returncode = che_concat(DEF(75),DEF(74),DEF(70),sched)) != Normal)
     goto ch_raise_exception;
/* discard 74 */
  (*(REF(74).tsdr)->finalize)(REF(74).value,F_DISCARD,sched);
  REF(74).tsdr = & dr_bottom;
/* move 73 75 */
  (*(REF(73).tsdr)->finalize)(REF(73).value,F_DISCARD,sched);
  REF(73) = REF(75);
  REF(75).tsdr = & dr_bottom;
c96:
/* discard 66.1 */
  (*(REF(66)DOT(1).tsdr)->finalize)(REF(66)DOT(1).value,F_DISCARD,sched);
  REF(66)DOT(1).tsdr = & dr_bottom;
/* block , 18 */
  if((ch_returncode = che_block(QUAL(18),sched)) != Normal)
     goto ch_raise_exception;
/* chs_lit 76 , "HLOADPATH" */
  if( !chs_lit(DEF(76),"HLOADPATH") ) goto ch_depletion;
/* find 77 63 76 , 0 */
  if (findfunc(DEF(77),DEF(63),(
          arguments[0] = DEF(76),& arguments[0]),sched,0) == FAILURE)
             goto ch_notfound;
/* copy 66 77 */
  if((ch_returncode = (REF(77).tsdr->copy)(& ch_val, REF(77).value
    )) != Normal) goto ch_raise_exception;
  (*(REF(66).tsdr)->finalize)(REF(66).value,F_DISCARD,sched);
  REF(66).value = ch_val;
  REF(66).tsdr = datarepmap[REF(77).tsdr->number];
/* move 78 66.1 */
  (*(REF(78).tsdr)->finalize)(REF(78).value,F_DISCARD,sched);
  REF(78) = REF(66)DOT(1);
  REF(66)DOT(1).tsdr = & dr_bottom;
/* endblock */
  che_endblock(sched);
/* branch , 106 */
   goto c106;
c105:
/* copy 78 73 */
  if((ch_returncode = cp_table(& ch_val, REF(73).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(78).tsdr)->finalize)(REF(78).value,F_DISCARD,sched);
  REF(78).value = ch_val;
  REF(78).tsdr = & dr_table;
c106:
/* block , 19 */
  if((ch_returncode = che_block(QUAL(19),sched)) != Normal)
     goto ch_raise_exception;
/* chs_lit 79 , "HLINKPATH" */
  if( !chs_lit(DEF(79),"HLINKPATH") ) goto ch_depletion;
/* find 80 63 79 , 0 */
  if (findfunc(DEF(80),DEF(63),(
          arguments[0] = DEF(79),& arguments[0]),sched,0) == FAILURE)
             goto ch_notfound;
/* copy 66 80 */
  if((ch_returncode = (REF(80).tsdr->copy)(& ch_val, REF(80).value
    )) != Normal) goto ch_raise_exception;
  (*(REF(66).tsdr)->finalize)(REF(66).value,F_DISCARD,sched);
  REF(66).value = ch_val;
  REF(66).tsdr = datarepmap[REF(80).tsdr->number];
/* move 81 66.1 */
  (*(REF(81).tsdr)->finalize)(REF(81).value,F_DISCARD,sched);
  REF(81) = REF(66)DOT(1);
  REF(66)DOT(1).tsdr = & dr_bottom;
/* endblock */
  che_endblock(sched);
/* branch , 115 */
   goto c115;
c114:
/* copy 81 78 */
  if((ch_returncode = cp_table(& ch_val, REF(78).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(81).tsdr)->finalize)(REF(81).value,F_DISCARD,sched);
  REF(81).value = ch_val;
  REF(81).tsdr = & dr_table;
c115:
/* chs_lit 82 , "findfile" */
  if( !chs_lit(DEF(82),"findfile") ) goto ch_depletion;
  current->ip = 37;
cb116:
/* call 16.1 82 83 , 20 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(16)DOT(1),
          arguments[1] = DEF(82),
          arguments[2] = DEF(83),
          arguments[2+1] = nil,& arguments[0]),QUAL(20),sched)) != Normal)
     goto ch_raise_exception;
  return;
c117:
/* procedure 84 83 , 21 */
  if ((ch_returncode = che_procedure(DEF(84),DEF(83),QUAL(21)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 83 */
  (*(REF(83).tsdr)->finalize)(REF(83).value,F_DISCARD,sched);
  REF(83).tsdr = & dr_bottom;
/* move 85 84 */
  (*(REF(85).tsdr)->finalize)(REF(85).value,F_DISCARD,sched);
  REF(85) = REF(84);
  REF(84).tsdr = & dr_bottom;
  current->ip = 39;
cb120:
/* call 85 15.11 16.8 81 86 , 22 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(85),
          arguments[1] = DEF(15)DOT(11),
          arguments[2] = DEF(16)DOT(8),
          arguments[3] = DEF(81),
          arguments[4] = DEF(86),
          arguments[4+1] = nil,& arguments[0]),QUAL(22),sched)) != Normal)
     goto ch_raise_exception;
  return;
c121:
/* move 87 86 */
  (*(REF(87).tsdr)->finalize)(REF(87).value,F_DISCARD,sched);
  REF(87) = REF(86);
  REF(86).tsdr = & dr_bottom;
/* chs_lit 88 , "pathload" */
  if( !chs_lit(DEF(88),"pathload") ) goto ch_depletion;
  current->ip = 41;
cb123:
/* call 16.1 88 89 , 20 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(16)DOT(1),
          arguments[1] = DEF(88),
          arguments[2] = DEF(89),
          arguments[2+1] = nil,& arguments[0]),QUAL(20),sched)) != Normal)
     goto ch_raise_exception;
  return;
c124:
/* create 90 89 , 23 */
  if ((ch_returncode = che_create(DEF(90),DEF(89),QUAL(23),sched)) != Normal)
     goto ch_raise_exception;
/* discard 89 */
  (*(REF(89).tsdr)->finalize)(REF(89).value,F_DISCARD,sched);
  REF(89).tsdr = & dr_bottom;
/* move 91 90 */
  (*(REF(91).tsdr)->finalize)(REF(91).value,F_DISCARD,sched);
  REF(91) = REF(90);
  REF(90).tsdr = & dr_bottom;
  current->ip = 43;
cb127:
/* call 91 16.0 87 92 , 24 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(91),
          arguments[1] = DEF(16)DOT(0),
          arguments[2] = DEF(87),
          arguments[3] = DEF(92),
          arguments[3+1] = nil,& arguments[0]),QUAL(24),sched)) != Normal)
     goto ch_raise_exception;
  return;
c128:
/* move 62.0 92 */
  (*(REF(62)DOT(0).tsdr)->finalize)(REF(62)DOT(0).value,F_DISCARD,sched);
  REF(62)DOT(0) = REF(92);
  REF(92).tsdr = & dr_bottom;
/* copy 62.1 16.7 */
  if((ch_returncode = cp_outport(& ch_val, REF(16)DOT(7).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(62)DOT(1).tsdr)->finalize)(REF(62)DOT(1).value,F_DISCARD,sched);
  REF(62)DOT(1).value = ch_val;
  REF(62)DOT(1).tsdr = & dr_outport;
/* copy 62.2 16.3 */
  if((ch_returncode = cp_outport(& ch_val, REF(16)DOT(3).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(62)DOT(2).tsdr)->finalize)(REF(62)DOT(2).value,F_DISCARD,sched);
  REF(62)DOT(2).value = ch_val;
  REF(62)DOT(2).tsdr = & dr_outport;
/* copy 62.3 16.5 */
  if((ch_returncode = (REF(16)DOT(5).tsdr->copy)(& ch_val, REF(16)DOT(5).value
    )) != Normal) goto ch_raise_exception;
  (*(REF(62)DOT(3).tsdr)->finalize)(REF(62)DOT(3).value,F_DISCARD,sched);
  REF(62)DOT(3).value = ch_val;
  REF(62)DOT(3).tsdr = datarepmap[REF(16)DOT(5).tsdr->number];
/* chs_lit 93 , "libWriteObj" */
  if( !chs_lit(DEF(93),"libWriteObj") ) goto ch_depletion;
/* chs_lit 94 , "" */
  if( !chs_lit(DEF(94),"") ) goto ch_depletion;
  current->ip = 45;
cb134:
/* call 3.2.2 93 94 95 , 1 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(3)DOT(2)DOT(2),
          arguments[1] = DEF(93),
          arguments[2] = DEF(94),
          arguments[3] = DEF(95),
          arguments[3+1] = nil,& arguments[0]),QUAL(1),sched)) != Normal)
     goto ch_raise_exception;
  return;
c135:
/* unwrap 62.3 95 , 7 */
  if ((ch_returncode = che_unwrap(DEF(62)DOT(3),DEF(95),QUAL(7)
    ,sched)) != Normal) goto ch_raise_exception;
/* copy 62.4 16.8 */
  if((ch_returncode = cp_outport(& ch_val, REF(16)DOT(8).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(62)DOT(4).tsdr)->finalize)(REF(62)DOT(4).value,F_DISCARD,sched);
  REF(62)DOT(4).value = ch_val;
  REF(62)DOT(4).tsdr = & dr_outport;
  current->ip = 47;
cb137:
/* call 61 62 96 , 25 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(61),
          arguments[1] = DEF(62),
          arguments[2] = DEF(96),
          arguments[2+1] = nil,& arguments[0]),QUAL(25),sched)) != Normal)
     goto ch_raise_exception;
  return;
c138:
/* noop */
  
/* new_inport 97 */
  if ((ch_val.inport = make_inport()) == nil) goto ch_depletion;
  (*(REF(97).tsdr)->finalize)(REF(97).value,F_DISCARD,sched);
  REF(97).value = ch_val; REF(97).tsdr = & dr_inport;
/* connect 98 97 */
  if (REF(97).value.inport->refcount == MAXCOUNTER) goto ch_depletion;
  (*(REF(98).tsdr)->finalize)(REF(98).value,F_DISCARD,sched);
  REF(97).value.inport->refcount++;
  REF(98).value.outport = REF(97).value.inport;
  REF(98).tsdr = & dr_outport;
/* copy 99 98 */
  if((ch_returncode = cp_outport(& ch_val, REF(98).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(99).tsdr)->finalize)(REF(99).value,F_DISCARD,sched);
  REF(99).value = ch_val;
  REF(99).tsdr = & dr_outport;
/* new_inport 100 */
  if ((ch_val.inport = make_inport()) == nil) goto ch_depletion;
  (*(REF(100).tsdr)->finalize)(REF(100).value,F_DISCARD,sched);
  REF(100).value = ch_val; REF(100).tsdr = & dr_inport;
/* connect 101 100 */
  if (REF(100).value.inport->refcount == MAXCOUNTER) goto ch_depletion;
  (*(REF(101).tsdr)->finalize)(REF(101).value,F_DISCARD,sched);
  REF(100).value.inport->refcount++;
  REF(101).value.outport = REF(100).value.inport;
  REF(101).tsdr = & dr_outport;
/* new_inport 102 */
  if ((ch_val.inport = make_inport()) == nil) goto ch_depletion;
  (*(REF(102).tsdr)->finalize)(REF(102).value,F_DISCARD,sched);
  REF(102).value = ch_val; REF(102).tsdr = & dr_inport;
/* connect 103 102 */
  if (REF(102).value.inport->refcount == MAXCOUNTER) goto ch_depletion;
  (*(REF(103).tsdr)->finalize)(REF(103).value,F_DISCARD,sched);
  REF(102).value.inport->refcount++;
  REF(103).value.outport = REF(102).value.inport;
  REF(103).tsdr = & dr_outport;
/* new_inport 104 */
  if ((ch_val.inport = make_inport()) == nil) goto ch_depletion;
  (*(REF(104).tsdr)->finalize)(REF(104).value,F_DISCARD,sched);
  REF(104).value = ch_val; REF(104).tsdr = & dr_inport;
/* connect 105 104 */
  if (REF(104).value.inport->refcount == MAXCOUNTER) goto ch_depletion;
  (*(REF(105).tsdr)->finalize)(REF(105).value,F_DISCARD,sched);
  REF(104).value.inport->refcount++;
  REF(105).value.outport = REF(104).value.inport;
  REF(105).tsdr = & dr_outport;
/* copy 106 105 */
  if((ch_returncode = cp_outport(& ch_val, REF(105).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(106).tsdr)->finalize)(REF(106).value,F_DISCARD,sched);
  REF(106).value = ch_val;
  REF(106).tsdr = & dr_outport;
/* new_table 107 , 26 */
  if ((ch_returncode = che_new_table(DEF(107),QUAL(26),sched)) != Normal) 
     goto ch_raise_exception;
/* new_inport 108 */
  if ((ch_val.inport = make_inport()) == nil) goto ch_depletion;
  (*(REF(108).tsdr)->finalize)(REF(108).value,F_DISCARD,sched);
  REF(108).value = ch_val; REF(108).tsdr = & dr_inport;
/* connect 109 108 */
  if (REF(108).value.inport->refcount == MAXCOUNTER) goto ch_depletion;
  (*(REF(109).tsdr)->finalize)(REF(109).value,F_DISCARD,sched);
  REF(108).value.inport->refcount++;
  REF(109).value.outport = REF(108).value.inport;
  REF(109).tsdr = & dr_outport;
/* copy 110 109 */
  if((ch_returncode = cp_outport(& ch_val, REF(109).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(110).tsdr)->finalize)(REF(110).value,F_DISCARD,sched);
  REF(110).value = ch_val;
  REF(110).tsdr = & dr_outport;
/* new_inport 111 */
  if ((ch_val.inport = make_inport()) == nil) goto ch_depletion;
  (*(REF(111).tsdr)->finalize)(REF(111).value,F_DISCARD,sched);
  REF(111).value = ch_val; REF(111).tsdr = & dr_inport;
/* connect 112 111 */
  if (REF(111).value.inport->refcount == MAXCOUNTER) goto ch_depletion;
  (*(REF(112).tsdr)->finalize)(REF(112).value,F_DISCARD,sched);
  REF(111).value.inport->refcount++;
  REF(112).value.outport = REF(111).value.inport;
  REF(112).tsdr = & dr_outport;
/* copy 113 112 */
  if((ch_returncode = cp_outport(& ch_val, REF(112).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(113).tsdr)->finalize)(REF(113).value,F_DISCARD,sched);
  REF(113).value = ch_val;
  REF(113).tsdr = & dr_outport;
/* new_inport 114 */
  if ((ch_val.inport = make_inport()) == nil) goto ch_depletion;
  (*(REF(114).tsdr)->finalize)(REF(114).value,F_DISCARD,sched);
  REF(114).value = ch_val; REF(114).tsdr = & dr_inport;
/* connect 115 114 */
  if (REF(114).value.inport->refcount == MAXCOUNTER) goto ch_depletion;
  (*(REF(115).tsdr)->finalize)(REF(115).value,F_DISCARD,sched);
  REF(114).value.inport->refcount++;
  REF(115).value.outport = REF(114).value.inport;
  REF(115).tsdr = & dr_outport;
/* copy 116 115 */
  if((ch_returncode = cp_outport(& ch_val, REF(115).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(116).tsdr)->finalize)(REF(116).value,F_DISCARD,sched);
  REF(116).value = ch_val;
  REF(116).tsdr = & dr_outport;
/* copy 117 3.1.1 */
  if((ch_returncode = cp_outport(& ch_val, REF(3)DOT(1)DOT(1).value
    )) != Normal) goto ch_raise_exception;
  (*(REF(117).tsdr)->finalize)(REF(117).value,F_DISCARD,sched);
  REF(117).value = ch_val;
  REF(117).tsdr = & dr_outport;
/* copy 118 3.1.0 */
  if((ch_returncode = cp_outport(& ch_val, REF(3)DOT(1)DOT(0).value
    )) != Normal) goto ch_raise_exception;
  (*(REF(118).tsdr)->finalize)(REF(118).value,F_DISCARD,sched);
  REF(118).value = ch_val;
  REF(118).tsdr = & dr_outport;
/* new_table 119 , 26 */
  if ((ch_returncode = che_new_table(DEF(119),QUAL(26),sched)) != Normal) 
     goto ch_raise_exception;
/* isubtract 120 =(97) =(65) */
  if (!chf_isubtract(DEF(120),97,65)) goto ch_depletion;
/* copy 121 3.0 */
  if((ch_returncode = cp_table(& ch_val, REF(3)DOT(0).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(121).tsdr)->finalize)(REF(121).value,F_DISCARD,sched);
  REF(121).value = ch_val;
  REF(121).tsdr = & dr_table;
/* new_table 122 , 27 */
  if ((ch_returncode = che_new_table(DEF(122),QUAL(27),sched)) != Normal) 
     goto ch_raise_exception;
/* privatize 121 */
  if (REF(121).value.table->refcount != 1)
    if ((ch_returncode = doCopyOnWrite(DEF(121))) != Normal)
       goto ch_raise_exception;
/* initget 123 121 , 0,0 */
  (*(REF(123).tsdr)->finalize)(REF(123).value,F_DISCARD,sched);
  if ((ch_returncode = init_selector(DEF(123),DEF(121),nil,sched,GET,0,0
    )) != Normal) goto ch_raise_exception;
c172:
/* get_or_goto 123 121 , 182 */
  if ((ch_returncode = get_selected_object(DEF(123),DEF(121)
    ,sched)) != Normal) goto c182;
/* lookup_at 124 123 =(0) */
  if ( !((ch_t = REF(123).value.table)->size) ) goto ch_notfound;
  (*(REF(124).tsdr)->finalize)(REF(124).value,F_DISCARD,sched);
  (*(ch_t->tbls[ORDER_TBL].des->lookup_at))
    (ch_t, ORDER_TBL, & REF(124).value,0);
  REF(124).tsdr = qdatarepmap[ch_t->tsdr->number];
/* copy 125 124 */
  REF(125) = REF(124);
/* notequal . 125 =(45) , 172 */
  if ( REF(125).value.ord_enum != 45 ) goto c172;
/* remove 126 123 121 */
  if ((ch_returncode = che_remove(DEF(126),DEF(123),DEF(121)
    ,sched)) != Normal) goto ch_raise_exception;
/* insert 122 126 */
  if ((ch_returncode = insertfunc(DEF(122),DEF(126),FALSE,0)) != Normal)
     goto ch_raise_exception;
/* branch , 172 */
   goto c172;
c182:
/* endget 123 121 */
  end_selector(DEF(123),DEF(121),sched,GET);
/* copy 127 11 */
  if((ch_returncode = cp_table(& ch_val, REF(11).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(127).tsdr)->finalize)(REF(127).value,F_DISCARD,sched);
  REF(127).value = ch_val;
  REF(127).tsdr = & dr_table;
/* initget 128 127 , 0,0 */
  (*(REF(128).tsdr)->finalize)(REF(128).value,F_DISCARD,sched);
  if ((ch_returncode = init_selector(DEF(128),DEF(127),nil,sched,GET,0,0
    )) != Normal) goto ch_raise_exception;
c185:
/* get_or_goto 128 127 , 204 */
  if ((ch_returncode = get_selected_object(DEF(128),DEF(127)
    ,sched)) != Normal) goto c204;
/* chs_lit 129 , "+" */
  if( !chs_lit(DEF(129),"+") ) goto ch_depletion;
/* concat 130 129 128.0 */
  if ((ch_returncode = che_concat(DEF(130),DEF(129),DEF(128)DOT(0)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 129 */
  (*(REF(129).tsdr)->finalize)(REF(129).value,F_DISCARD,sched);
  REF(129).tsdr = & dr_bottom;
/* move 131 130 */
  (*(REF(131).tsdr)->finalize)(REF(131).value,F_DISCARD,sched);
  REF(131) = REF(130);
  REF(130).tsdr = & dr_bottom;
/* chs_lit 132 , "" */
  if( !chs_lit(DEF(132),"") ) goto ch_depletion;
/* equal 133 128.1 132 */
  REF(133).value.boolean = (eq_table(REF(128)DOT(1).value,REF(132).value));
  REF(133).tsdr = & dr_boolean;
/* discard 132 */
  (*(REF(132).tsdr)->finalize)(REF(132).value,F_DISCARD,sched);
  REF(132).tsdr = & dr_bottom;
/* branch_false 133 , 196 */
  if ( !REF(133).value.boolean ) goto c196;
/* insert 122 131 */
  if ((ch_returncode = insertfunc(DEF(122),DEF(131),FALSE,0)) != Normal)
     goto ch_raise_exception;
/* branch , 202 */
   goto c202;
c196:
/* chs_lit 134 , "=" */
  if( !chs_lit(DEF(134),"=") ) goto ch_depletion;
/* concat 135 134 128.1 */
  if ((ch_returncode = che_concat(DEF(135),DEF(134),DEF(128)DOT(1)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 134 */
  (*(REF(134).tsdr)->finalize)(REF(134).value,F_DISCARD,sched);
  REF(134).tsdr = & dr_bottom;
/* concat 136 131 135 */
  if ((ch_returncode = che_concat(DEF(136),DEF(131),DEF(135)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 135 */
  (*(REF(135).tsdr)->finalize)(REF(135).value,F_DISCARD,sched);
  REF(135).tsdr = & dr_bottom;
/* insert 122 136 */
  if ((ch_returncode = insertfunc(DEF(122),DEF(136),FALSE,0)) != Normal)
     goto ch_raise_exception;
c202:
/* discard 131 */
  (*(REF(131).tsdr)->finalize)(REF(131).value,F_DISCARD,sched);
  REF(131).tsdr = & dr_bottom;
/* branch , 185 */
   goto c185;
c204:
/* endget 128 127 */
  end_selector(DEF(128),DEF(127),sched,GET);
/* discard 127 */
  (*(REF(127).tsdr)->finalize)(REF(127).value,F_DISCARD,sched);
  REF(127).tsdr = & dr_bottom;
/* copy 137 122 */
  if((ch_returncode = cp_table(& ch_val, REF(122).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(137).tsdr)->finalize)(REF(137).value,F_DISCARD,sched);
  REF(137).value = ch_val;
  REF(137).tsdr = & dr_table;
/* initget 138 137 , 0,0 */
  (*(REF(138).tsdr)->finalize)(REF(138).value,F_DISCARD,sched);
  if ((ch_returncode = init_selector(DEF(138),DEF(137),nil,sched,GET,0,0
    )) != Normal) goto ch_raise_exception;
c208:
/* get_or_goto 138 137 , 316 */
  if ((ch_returncode = get_selected_object(DEF(138),DEF(137)
    ,sched)) != Normal) goto c316;
/* discard 131 */
  (*(REF(131).tsdr)->finalize)(REF(131).value,F_DISCARD,sched);
  REF(131).tsdr = & dr_bottom;
/* new_record 139 , 2 */
  if ((ch_val.record = new_record(2)) == nil) goto ch_depletion;
  (*(REF(139).tsdr)->finalize)(REF(139).value,F_DISCARD,sched);
  REF(139).value = ch_val; REF(139).tsdr = & dr_record;
/* new_table 139.0 , 28 */
  if ((ch_returncode = che_new_table(DEF(139)DOT(0),QUAL(28)
    ,sched)) != Normal)  goto ch_raise_exception;
/* block , 29 */
  if((ch_returncode = che_block(QUAL(29),sched)) != Normal)
     goto ch_raise_exception;
/* initget 140 138 , 0,0 */
  (*(REF(140).tsdr)->finalize)(REF(140).value,F_DISCARD,sched);
  if ((ch_returncode = init_selector(DEF(140),DEF(138),nil,sched,GET,0,0
    )) != Normal) goto ch_raise_exception;
c214:
/* get_or_err 140 138 */
  if ((ch_returncode = get_selected_object(DEF(140),DEF(138)
    ,sched)) != Normal) goto ch_raise_exception;
/* notequal . 140 =(61) , 214 */
  if ( REF(140).value.ord_enum != 61 ) goto c214;
/* new_table 141 , 28 */
  if ((ch_returncode = che_new_table(DEF(141),QUAL(28),sched)) != Normal) 
     goto ch_raise_exception;
/* initget 142 138 , 0,0 */
  (*(REF(142).tsdr)->finalize)(REF(142).value,F_DISCARD,sched);
  if ((ch_returncode = init_selector(DEF(142),DEF(138),nil,sched,GET,0,0
    )) != Normal) goto ch_raise_exception;
c220:
/* get_or_goto 142 138 , 228 */
  if ((ch_returncode = get_selected_object(DEF(142),DEF(138)
    ,sched)) != Normal) goto c228;
/* position 143 142 */
  ch_frame = get_selector_frame(DEF(142),sched);
  ch_t = ch_frame->inspectee->value.table;
  REF(143).value.integer = ch_frame->rmvcount +
    (*(ch_t->tbls[ORDER_TBL].des->position_of))(ch_t,ORDER_TBL,ch_frame->pos);
  REF(143).tsdr = &dr_integer;
/* position 144 140 */
  ch_frame = get_selector_frame(DEF(140),sched);
  ch_t = ch_frame->inspectee->value.table;
  REF(144).value.integer = ch_frame->rmvcount +
    (*(ch_t->tbls[ORDER_TBL].des->position_of))(ch_t,ORDER_TBL,ch_frame->pos);
  REF(144).tsdr = &dr_integer;
/* ige . 143 144 , 220 */
  if ( REF(143).value.integer >= REF(144).value.integer ) goto c220;
/* copy 145 142 */
  if((ch_returncode = (REF(142).tsdr->copy)(& ch_val, REF(142).value
    )) != Normal) goto ch_raise_exception;
  (*(REF(145).tsdr)->finalize)(REF(145).value,F_DISCARD,sched);
  REF(145).value = ch_val;
  REF(145).tsdr = datarepmap[REF(142).tsdr->number];
/* insert 141 145 */
  if ((ch_returncode = insertfunc(DEF(141),DEF(145),FALSE,0)) != Normal)
     goto ch_raise_exception;
/* branch , 220 */
   goto c220;
c228:
/* endget 142 138 */
  end_selector(DEF(142),DEF(138),sched,GET);
/* move 131 141 */
  (*(REF(131).tsdr)->finalize)(REF(131).value,F_DISCARD,sched);
  REF(131) = REF(141);
  REF(141).tsdr = & dr_bottom;
/* new_table 146 , 28 */
  if ((ch_returncode = che_new_table(DEF(146),QUAL(28),sched)) != Normal) 
     goto ch_raise_exception;
/* initget 147 138 , 0,0 */
  (*(REF(147).tsdr)->finalize)(REF(147).value,F_DISCARD,sched);
  if ((ch_returncode = init_selector(DEF(147),DEF(138),nil,sched,GET,0,0
    )) != Normal) goto ch_raise_exception;
c232:
/* get_or_goto 147 138 , 240 */
  if ((ch_returncode = get_selected_object(DEF(147),DEF(138)
    ,sched)) != Normal) goto c240;
/* position 148 147 */
  ch_frame = get_selector_frame(DEF(147),sched);
  ch_t = ch_frame->inspectee->value.table;
  REF(148).value.integer = ch_frame->rmvcount +
    (*(ch_t->tbls[ORDER_TBL].des->position_of))(ch_t,ORDER_TBL,ch_frame->pos);
  REF(148).tsdr = &dr_integer;
/* position 149 140 */
  ch_frame = get_selector_frame(DEF(140),sched);
  ch_t = ch_frame->inspectee->value.table;
  REF(149).value.integer = ch_frame->rmvcount +
    (*(ch_t->tbls[ORDER_TBL].des->position_of))(ch_t,ORDER_TBL,ch_frame->pos);
  REF(149).tsdr = &dr_integer;
/* ile . 148 149 , 232 */
  if ( REF(148).value.integer <= REF(149).value.integer ) goto c232;
/* copy 150 147 */
  if((ch_returncode = (REF(147).tsdr->copy)(& ch_val, REF(147).value
    )) != Normal) goto ch_raise_exception;
  (*(REF(150).tsdr)->finalize)(REF(150).value,F_DISCARD,sched);
  REF(150).value = ch_val;
  REF(150).tsdr = datarepmap[REF(147).tsdr->number];
/* insert 146 150 */
  if ((ch_returncode = insertfunc(DEF(146),DEF(150),FALSE,0)) != Normal)
     goto ch_raise_exception;
/* branch , 232 */
   goto c232;
c240:
/* endget 147 138 */
  end_selector(DEF(147),DEF(138),sched,GET);
/* move 151 146 */
  (*(REF(151).tsdr)->finalize)(REF(151).value,F_DISCARD,sched);
  REF(151) = REF(146);
  REF(146).tsdr = & dr_bottom;
/* wrap 139.1 151 , 30 */
  if ((ch_returncode = che_wrap(DEF(139)DOT(1),DEF(151),QUAL(30)
    ,sched)) != Normal) goto ch_raise_exception;
/* endget 140 138 */
  end_selector(DEF(140),DEF(138),sched,GET);
/* endblock */
  che_endblock(sched);
/* branch , 248 */
   goto c248;
c246:
/* copy 131 138 */
  if((ch_returncode = cp_table(& ch_val, REF(138).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(131).tsdr)->finalize)(REF(131).value,F_DISCARD,sched);
  REF(131).value = ch_val;
  REF(131).tsdr = & dr_table;
/* wrap 139.1 152 , 31 */
  if ((ch_returncode = che_wrap(DEF(139)DOT(1),DEF(152),QUAL(31)
    ,sched)) != Normal) goto ch_raise_exception;
c248:
/* copy 153 131 */
  if((ch_returncode = cp_table(& ch_val, REF(131).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(153).tsdr)->finalize)(REF(153).value,F_DISCARD,sched);
  REF(153).value = ch_val;
  REF(153).tsdr = & dr_table;
/* initget 154 153 , 0,0 */
  (*(REF(154).tsdr)->finalize)(REF(154).value,F_DISCARD,sched);
  if ((ch_returncode = init_selector(DEF(154),DEF(153),nil,sched,GET,0,0
    )) != Normal) goto ch_raise_exception;
c250:
/* get_or_goto 154 153 , 269 */
  if ((ch_returncode = get_selected_object(DEF(154),DEF(153)
    ,sched)) != Normal) goto c269;
/* position 155 154 */
  ch_frame = get_selector_frame(DEF(154),sched);
  ch_t = ch_frame->inspectee->value.table;
  REF(155).value.integer = ch_frame->rmvcount +
    (*(ch_t->tbls[ORDER_TBL].des->position_of))(ch_t,ORDER_TBL,ch_frame->pos);
  REF(155).tsdr = &dr_integer;
/* ile . 155 =(0) , 250 */
  if ( REF(155).value.integer <= 0 ) goto c250;
/* oege 156 154 =(65) */
  REF(156).value.boolean = (REF(154).value.ord_enum >= 65);
/* oele 157 154 =(90) */
  REF(157).value.boolean = (REF(154).value.ord_enum <= 90);
/* and 158 156 157 */
  REF(158).value.boolean = REF(156).value.boolean&REF(157).value.boolean;
  REF(158).tsdr = & dr_boolean;
/* branch_false 158 , 266 */
  if ( !REF(158).value.boolean ) goto c266;
/* oecvt_int 159 154 */
  REF(159).value.integer = REF(154).value.ord_enum;
  REF(159).tsdr = & dr_integer;
/* iadd 160 159 120 */
  if (!chf_iadd(DEF(160),REF(159).value.integer,REF(120).value.integer))
     goto ch_depletion;
/* icvt_enum 161 160 , 128 */
  if (REF(160).value.integer < 0 || REF(160).value.integer >= 128)
     goto ch_range_error;
  REF(161).value.ord_enum = REF(160).value.integer;
  REF(161).tsdr = & dr_ord_enumeration;
/* insert 139.0 161 */
  if ((ch_returncode = insertfunc(DEF(139)DOT(0),DEF(161),FALSE,0)) != Normal)
     goto ch_raise_exception;
/* branch , 250 */
   goto c250;
c266:
/* copy 162 154 */
  REF(162) = REF(154);
/* insert 139.0 162 */
  if ((ch_returncode = insertfunc(DEF(139)DOT(0),DEF(162),FALSE,0)) != Normal)
     goto ch_raise_exception;
/* branch , 250 */
   goto c250;
c269:
/* endget 154 153 */
  end_selector(DEF(154),DEF(153),sched,GET);
/* discard 153 */
  (*(REF(153).tsdr)->finalize)(REF(153).value,F_DISCARD,sched);
  REF(153).tsdr = & dr_bottom;
/* block , 32 */
  if((ch_returncode = che_block(QUAL(32),sched)) != Normal)
     goto ch_raise_exception;
/* boolean 163 , FALSE */
  REF(163).value.boolean = FALSE;
  REF(163).tsdr = & dr_boolean;
/* lookup_at_or_goto 164 131 =(0) , 279 */
  if ( !((ch_t = REF(131).value.table)->size) ) goto c279;
  (*(REF(164).tsdr)->finalize)(REF(164).value,F_DISCARD,sched);
  (*(ch_t->tbls[ORDER_TBL].des->lookup_at))
    (ch_t, ORDER_TBL, & REF(164).value,0);
  REF(164).tsdr = qdatarepmap[ch_t->tsdr->number];
/* notequal . 164 =(43) , 279 */
  if ( REF(164).value.ord_enum != 43 ) goto c279;
/* boolean 163 , TRUE */
  REF(163).value.boolean = TRUE;
  REF(163).tsdr = & dr_boolean;
c279:
/* branch_false 163 , 310 */
  if ( !REF(163).value.boolean ) goto c310;
/* new_table 165 , 28 */
  if ((ch_returncode = che_new_table(DEF(165),QUAL(28),sched)) != Normal) 
     goto ch_raise_exception;
/* initget 166 139.0 , 0,0 */
  (*(REF(166).tsdr)->finalize)(REF(166).value,F_DISCARD,sched);
  if ((ch_returncode = init_selector(DEF(166),DEF(139)DOT(0),nil,sched,GET,0,0
    )) != Normal) goto ch_raise_exception;
c282:
/* get_or_goto 166 139.0 , 290 */
  if ((ch_returncode = get_selected_object(DEF(166),DEF(139)DOT(0)
    ,sched)) != Normal) goto c290;
/* position 167 166 */
  ch_frame = get_selector_frame(DEF(166),sched);
  ch_t = ch_frame->inspectee->value.table;
  REF(167).value.integer = ch_frame->rmvcount +
    (*(ch_t->tbls[ORDER_TBL].des->position_of))(ch_t,ORDER_TBL,ch_frame->pos);
  REF(167).tsdr = &dr_integer;
/* ige . 167 =(4) , 282 */
  if ( REF(167).value.integer >= 4 ) goto c282;
/* copy 168 166 */
  if((ch_returncode = (REF(166).tsdr->copy)(& ch_val, REF(166).value
    )) != Normal) goto ch_raise_exception;
  (*(REF(168).tsdr)->finalize)(REF(168).value,F_DISCARD,sched);
  REF(168).value = ch_val;
  REF(168).tsdr = datarepmap[REF(166).tsdr->number];
/* insert 165 168 */
  if ((ch_returncode = insertfunc(DEF(165),DEF(168),FALSE,0)) != Normal)
     goto ch_raise_exception;
/* branch , 282 */
   goto c282;
c290:
/* endget 166 139.0 */
  end_selector(DEF(166),DEF(139)DOT(0),sched,GET);
/* chs_lit 169 , "pcom" */
  if( !chs_lit(DEF(169),"pcom") ) goto ch_depletion;
/* equal 170 165 169 */
  REF(170).value.boolean = (eq_table(REF(165).value,REF(169).value));
  REF(170).tsdr = & dr_boolean;
/* discard 165 */
  (*(REF(165).tsdr)->finalize)(REF(165).value,F_DISCARD,sched);
  REF(165).tsdr = & dr_bottom;
/* discard 169 */
  (*(REF(169).tsdr)->finalize)(REF(169).value,F_DISCARD,sched);
  REF(169).tsdr = & dr_bottom;
/* branch_false 170 , 309 */
  if ( !REF(170).value.boolean ) goto c309;
/* new_table 171 , 28 */
  if ((ch_returncode = che_new_table(DEF(171),QUAL(28),sched)) != Normal) 
     goto ch_raise_exception;
/* initget 172 139.0 , 0,0 */
  (*(REF(172).tsdr)->finalize)(REF(172).value,F_DISCARD,sched);
  if ((ch_returncode = init_selector(DEF(172),DEF(139)DOT(0),nil,sched,GET,0,0
    )) != Normal) goto ch_raise_exception;
c298:
/* get_or_goto 172 139.0 , 306 */
  if ((ch_returncode = get_selected_object(DEF(172),DEF(139)DOT(0)
    ,sched)) != Normal) goto c306;
/* position 173 172 */
  ch_frame = get_selector_frame(DEF(172),sched);
  ch_t = ch_frame->inspectee->value.table;
  REF(173).value.integer = ch_frame->rmvcount +
    (*(ch_t->tbls[ORDER_TBL].des->position_of))(ch_t,ORDER_TBL,ch_frame->pos);
  REF(173).tsdr = &dr_integer;
/* ile . 173 =(3) , 298 */
  if ( REF(173).value.integer <= 3 ) goto c298;
/* copy 174 172 */
  if((ch_returncode = (REF(172).tsdr->copy)(& ch_val, REF(172).value
    )) != Normal) goto ch_raise_exception;
  (*(REF(174).tsdr)->finalize)(REF(174).value,F_DISCARD,sched);
  REF(174).value = ch_val;
  REF(174).tsdr = datarepmap[REF(172).tsdr->number];
/* insert 171 174 */
  if ((ch_returncode = insertfunc(DEF(171),DEF(174),FALSE,0)) != Normal)
     goto ch_raise_exception;
/* branch , 298 */
   goto c298;
c306:
/* endget 172 139.0 */
  end_selector(DEF(172),DEF(139)DOT(0),sched,GET);
/* move 139.0 171 */
  (*(REF(139)DOT(0).tsdr)->finalize)(REF(139)DOT(0).value,F_DISCARD,sched);
  REF(139)DOT(0) = REF(171);
  REF(171).tsdr = & dr_bottom;
/* branch , 310 */
   goto c310;
c309:
/* exit , 33 */
  ch_e = handler_type__exit; ch_val = QUAL(33); goto ch_exception;
c310:
/* insert 119 139 */
  if ((ch_returncode = insertfunc(DEF(119),DEF(139),FALSE,0)) != Normal)
     goto ch_raise_exception;
/* endblock */
  che_endblock(sched);
/* branch , 314 */
   goto c314;
c314:
/* discard 139 */
  (*(REF(139).tsdr)->finalize)(REF(139).value,F_DISCARD,sched);
  REF(139).tsdr = & dr_bottom;
/* branch , 208 */
   goto c208;
c316:
/* endget 138 137 */
  end_selector(DEF(138),DEF(137),sched,GET);
/* discard 137 */
  (*(REF(137).tsdr)->finalize)(REF(137).value,F_DISCARD,sched);
  REF(137).tsdr = & dr_bottom;
/* copy 175 121 */
  if((ch_returncode = cp_table(& ch_val, REF(121).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(175).tsdr)->finalize)(REF(175).value,F_DISCARD,sched);
  REF(175).value = ch_val;
  REF(175).tsdr = & dr_table;
/* initget 176 175 , 0,0 */
  (*(REF(176).tsdr)->finalize)(REF(176).value,F_DISCARD,sched);
  if ((ch_returncode = init_selector(DEF(176),DEF(175),nil,sched,GET,0,0
    )) != Normal) goto ch_raise_exception;
c320:
/* get_or_goto 176 175 , 1215 */
  if ((ch_returncode = get_selected_object(DEF(176),DEF(175)
    ,sched)) != Normal) goto c1215;
/* position 177 176 */
  ch_frame = get_selector_frame(DEF(176),sched);
  ch_t = ch_frame->inspectee->value.table;
  REF(177).value.integer = ch_frame->rmvcount +
    (*(ch_t->tbls[ORDER_TBL].des->position_of))(ch_t,ORDER_TBL,ch_frame->pos);
  REF(177).tsdr = &dr_integer;
/* ilt . 177 =(2) , 320 */
  if ( REF(177).value.integer < 2 ) goto c320;
/* discard 178 */
  (*(REF(178).tsdr)->finalize)(REF(178).value,F_DISCARD,sched);
  REF(178).tsdr = & dr_bottom;
/* discard 179 */
  (*(REF(179).tsdr)->finalize)(REF(179).value,F_DISCARD,sched);
  REF(179).tsdr = & dr_bottom;
/* discard 180 */
  (*(REF(180).tsdr)->finalize)(REF(180).value,F_DISCARD,sched);
  REF(180).tsdr = & dr_bottom;
/* discard 181 */
  (*(REF(181).tsdr)->finalize)(REF(181).value,F_DISCARD,sched);
  REF(181).tsdr = & dr_bottom;
/* discard 182 */
  (*(REF(182).tsdr)->finalize)(REF(182).value,F_DISCARD,sched);
  REF(182).tsdr = & dr_bottom;
/* block , 34 */
  if((ch_returncode = che_block(QUAL(34),sched)) != Normal)
     goto ch_raise_exception;
/* copy 178 176 */
  if((ch_returncode = cp_table(& ch_val, REF(176).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(178).tsdr)->finalize)(REF(178).value,F_DISCARD,sched);
  REF(178).value = ch_val;
  REF(178).tsdr = & dr_table;
/* new_table 183 , 28 */
  if ((ch_returncode = che_new_table(DEF(183),QUAL(28),sched)) != Normal) 
     goto ch_raise_exception;
/* initget 184 178 , 0,0 */
  (*(REF(184).tsdr)->finalize)(REF(184).value,F_DISCARD,sched);
  if ((ch_returncode = init_selector(DEF(184),DEF(178),nil,sched,GET,0,0
    )) != Normal) goto ch_raise_exception;
c334:
/* get_or_goto 184 178 , 344 */
  if ((ch_returncode = get_selected_object(DEF(184),DEF(178)
    ,sched)) != Normal) goto c344;
/* position 185 184 */
  ch_frame = get_selector_frame(DEF(184),sched);
  ch_t = ch_frame->inspectee->value.table;
  REF(185).value.integer = ch_frame->rmvcount +
    (*(ch_t->tbls[ORDER_TBL].des->position_of))(ch_t,ORDER_TBL,ch_frame->pos);
  REF(185).tsdr = &dr_integer;
/* size 186 178 */
  REF(186).value.integer = REF(178).value.table->size;
  REF(186).tsdr = & dr_integer;
/* isubtract 187 186 =(2) */
  if (!chf_isubtract(DEF(187),REF(186).value.integer,2)) goto ch_depletion;
/* ilt . 185 187 , 334 */
  if ( REF(185).value.integer < REF(187).value.integer ) goto c334;
/* copy 188 184 */
  if((ch_returncode = (REF(184).tsdr->copy)(& ch_val, REF(184).value
    )) != Normal) goto ch_raise_exception;
  (*(REF(188).tsdr)->finalize)(REF(188).value,F_DISCARD,sched);
  REF(188).value = ch_val;
  REF(188).tsdr = datarepmap[REF(184).tsdr->number];
/* insert 183 188 */
  if ((ch_returncode = insertfunc(DEF(183),DEF(188),FALSE,0)) != Normal)
     goto ch_raise_exception;
/* branch , 334 */
   goto c334;
c344:
/* endget 184 178 */
  end_selector(DEF(184),DEF(178),sched,GET);
/* chs_lit 189 , ".p" */
  if( !chs_lit(DEF(189),".p") ) goto ch_depletion;
/* equal 190 183 189 */
  REF(190).value.boolean = (eq_table(REF(183).value,REF(189).value));
  REF(190).tsdr = & dr_boolean;
/* discard 183 */
  (*(REF(183).tsdr)->finalize)(REF(183).value,F_DISCARD,sched);
  REF(183).tsdr = & dr_bottom;
/* discard 189 */
  (*(REF(189).tsdr)->finalize)(REF(189).value,F_DISCARD,sched);
  REF(189).tsdr = & dr_bottom;
/* branch_false 190 , 364 */
  if ( !REF(190).value.boolean ) goto c364;
/* new_table 191 , 28 */
  if ((ch_returncode = che_new_table(DEF(191),QUAL(28),sched)) != Normal) 
     goto ch_raise_exception;
/* initget 192 178 , 0,0 */
  (*(REF(192).tsdr)->finalize)(REF(192).value,F_DISCARD,sched);
  if ((ch_returncode = init_selector(DEF(192),DEF(178),nil,sched,GET,0,0
    )) != Normal) goto ch_raise_exception;
c352:
/* get_or_goto 192 178 , 362 */
  if ((ch_returncode = get_selected_object(DEF(192),DEF(178)
    ,sched)) != Normal) goto c362;
/* position 193 192 */
  ch_frame = get_selector_frame(DEF(192),sched);
  ch_t = ch_frame->inspectee->value.table;
  REF(193).value.integer = ch_frame->rmvcount +
    (*(ch_t->tbls[ORDER_TBL].des->position_of))(ch_t,ORDER_TBL,ch_frame->pos);
  REF(193).tsdr = &dr_integer;
/* size 194 178 */
  REF(194).value.integer = REF(178).value.table->size;
  REF(194).tsdr = & dr_integer;
/* isubtract 195 194 =(2) */
  if (!chf_isubtract(DEF(195),REF(194).value.integer,2)) goto ch_depletion;
/* ige . 193 195 , 352 */
  if ( REF(193).value.integer >= REF(195).value.integer ) goto c352;
/* copy 196 192 */
  if((ch_returncode = (REF(192).tsdr->copy)(& ch_val, REF(192).value
    )) != Normal) goto ch_raise_exception;
  (*(REF(196).tsdr)->finalize)(REF(196).value,F_DISCARD,sched);
  REF(196).value = ch_val;
  REF(196).tsdr = datarepmap[REF(192).tsdr->number];
/* insert 191 196 */
  if ((ch_returncode = insertfunc(DEF(191),DEF(196),FALSE,0)) != Normal)
     goto ch_raise_exception;
/* branch , 352 */
   goto c352;
c362:
/* endget 192 178 */
  end_selector(DEF(192),DEF(178),sched,GET);
/* move 178 191 */
  (*(REF(178).tsdr)->finalize)(REF(178).value,F_DISCARD,sched);
  REF(178) = REF(191);
  REF(191).tsdr = & dr_bottom;
c364:
  current->ip = 67;
cb364:
/* call 16.8 182 , 35 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(16)DOT(8),
          arguments[1] = DEF(182),
          arguments[1+1] = nil,& arguments[0]),QUAL(35),sched)) != Normal)
     goto ch_raise_exception;
  return;
c365:
/* noop */
  
/* chs_lit 197 , "/" */
  if( !chs_lit(DEF(197),"/") ) goto ch_depletion;
/* concat 198 182 197 */
  if ((ch_returncode = che_concat(DEF(198),DEF(182),DEF(197)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 197 */
  (*(REF(197).tsdr)->finalize)(REF(197).value,F_DISCARD,sched);
  REF(197).tsdr = & dr_bottom;
/* new_table 199 , 28 */
  if ((ch_returncode = che_new_table(DEF(199),QUAL(28),sched)) != Normal) 
     goto ch_raise_exception;
/* initget 200 178 , 0,0 */
  (*(REF(200).tsdr)->finalize)(REF(200).value,F_DISCARD,sched);
  if ((ch_returncode = init_selector(DEF(200),DEF(178),nil,sched,GET,0,0
    )) != Normal) goto ch_raise_exception;
c371:
/* get_or_goto 200 178 , 379 */
  if ((ch_returncode = get_selected_object(DEF(200),DEF(178)
    ,sched)) != Normal) goto c379;
/* position 201 200 */
  ch_frame = get_selector_frame(DEF(200),sched);
  ch_t = ch_frame->inspectee->value.table;
  REF(201).value.integer = ch_frame->rmvcount +
    (*(ch_t->tbls[ORDER_TBL].des->position_of))(ch_t,ORDER_TBL,ch_frame->pos);
  REF(201).tsdr = &dr_integer;
/* size 202 182 */
  REF(202).value.integer = REF(182).value.table->size;
  REF(202).tsdr = & dr_integer;
/* igt . 201 202 , 371 */
  if ( REF(201).value.integer > REF(202).value.integer ) goto c371;
/* copy 203 200 */
  if((ch_returncode = (REF(200).tsdr->copy)(& ch_val, REF(200).value
    )) != Normal) goto ch_raise_exception;
  (*(REF(203).tsdr)->finalize)(REF(203).value,F_DISCARD,sched);
  REF(203).value = ch_val;
  REF(203).tsdr = datarepmap[REF(200).tsdr->number];
/* insert 199 203 */
  if ((ch_returncode = insertfunc(DEF(199),DEF(203),FALSE,0)) != Normal)
     goto ch_raise_exception;
/* branch , 371 */
   goto c371;
c379:
/* endget 200 178 */
  end_selector(DEF(200),DEF(178),sched,GET);
/* equal 204 198 199 */
  REF(204).value.boolean = (eq_table(REF(198).value,REF(199).value));
  REF(204).tsdr = & dr_boolean;
/* discard 198 */
  (*(REF(198).tsdr)->finalize)(REF(198).value,F_DISCARD,sched);
  REF(198).tsdr = & dr_bottom;
/* discard 199 */
  (*(REF(199).tsdr)->finalize)(REF(199).value,F_DISCARD,sched);
  REF(199).tsdr = & dr_bottom;
/* branch_false 204 , 396 */
  if ( !REF(204).value.boolean ) goto c396;
/* new_table 205 , 28 */
  if ((ch_returncode = che_new_table(DEF(205),QUAL(28),sched)) != Normal) 
     goto ch_raise_exception;
/* initget 206 178 , 0,0 */
  (*(REF(206).tsdr)->finalize)(REF(206).value,F_DISCARD,sched);
  if ((ch_returncode = init_selector(DEF(206),DEF(178),nil,sched,GET,0,0
    )) != Normal) goto ch_raise_exception;
c386:
/* get_or_goto 206 178 , 394 */
  if ((ch_returncode = get_selected_object(DEF(206),DEF(178)
    ,sched)) != Normal) goto c394;
/* position 207 206 */
  ch_frame = get_selector_frame(DEF(206),sched);
  ch_t = ch_frame->inspectee->value.table;
  REF(207).value.integer = ch_frame->rmvcount +
    (*(ch_t->tbls[ORDER_TBL].des->position_of))(ch_t,ORDER_TBL,ch_frame->pos);
  REF(207).tsdr = &dr_integer;
/* size 208 182 */
  REF(208).value.integer = REF(182).value.table->size;
  REF(208).tsdr = & dr_integer;
/* ile . 207 208 , 386 */
  if ( REF(207).value.integer <= REF(208).value.integer ) goto c386;
/* copy 209 206 */
  if((ch_returncode = (REF(206).tsdr->copy)(& ch_val, REF(206).value
    )) != Normal) goto ch_raise_exception;
  (*(REF(209).tsdr)->finalize)(REF(209).value,F_DISCARD,sched);
  REF(209).value = ch_val;
  REF(209).tsdr = datarepmap[REF(206).tsdr->number];
/* insert 205 209 */
  if ((ch_returncode = insertfunc(DEF(205),DEF(209),FALSE,0)) != Normal)
     goto ch_raise_exception;
/* branch , 386 */
   goto c386;
c394:
/* endget 206 178 */
  end_selector(DEF(206),DEF(178),sched,GET);
/* move 178 205 */
  (*(REF(178).tsdr)->finalize)(REF(178).value,F_DISCARD,sched);
  REF(178) = REF(205);
  REF(205).tsdr = & dr_bottom;
c396:
/* block , 36 */
  if((ch_returncode = che_block(QUAL(36),sched)) != Normal)
     goto ch_raise_exception;
/* size 210 178 */
  REF(210).value.integer = REF(178).value.table->size;
  REF(210).tsdr = & dr_integer;
/* isubtract 211 210 =(1) */
  if (!chf_isubtract(DEF(211),REF(210).value.integer,1)) goto ch_depletion;
c401:
/* noop */
  
/* ilt . 211 =(0) , 414 */
  if ( REF(211).value.integer < 0 ) goto c414;
/* lookup_at 212 178 211 */
  if((ch_i = REF(211).value.integer) < 0 || ch_i >= (ch_t = REF(178).value
    .table)->size) goto ch_notfound;
  (*(REF(212).tsdr)->finalize)(REF(212).value,F_DISCARD,sched);
  (*(ch_t->tbls[ORDER_TBL].des->lookup_at))
    (ch_t, ORDER_TBL, & REF(212).value,ch_i);
  REF(212).tsdr = qdatarepmap[ch_t->tsdr->number];
/* copy 213 212 */
  REF(213) = REF(212);
/* notequal . 213 =(47) , 410 */
  if ( REF(213).value.ord_enum != 47 ) goto c410;
/* exit , 37 */
  ch_e = handler_type__exit; ch_val = QUAL(37); goto ch_exception;
c410:
/* noop */
  
/* isubtract 211 211 =(1) */
  if (!chf_isubtract(DEF(211),REF(211).value.integer,1)) goto ch_depletion;
/* branch , 401 */
   goto c401;
c414:
/* exit , 37 */
  ch_e = handler_type__exit; ch_val = QUAL(37); goto ch_exception;
/* endblock */
  che_endblock(sched);
/* branch , 428 */
   goto c428;
c417:
/* new_table 214 , 28 */
  if ((ch_returncode = che_new_table(DEF(214),QUAL(28),sched)) != Normal) 
     goto ch_raise_exception;
/* initget 215 178 , 0,0 */
  (*(REF(215).tsdr)->finalize)(REF(215).value,F_DISCARD,sched);
  if ((ch_returncode = init_selector(DEF(215),DEF(178),nil,sched,GET,0,0
    )) != Normal) goto ch_raise_exception;
c419:
/* get_or_goto 215 178 , 426 */
  if ((ch_returncode = get_selected_object(DEF(215),DEF(178)
    ,sched)) != Normal) goto c426;
/* position 216 215 */
  ch_frame = get_selector_frame(DEF(215),sched);
  ch_t = ch_frame->inspectee->value.table;
  REF(216).value.integer = ch_frame->rmvcount +
    (*(ch_t->tbls[ORDER_TBL].des->position_of))(ch_t,ORDER_TBL,ch_frame->pos);
  REF(216).tsdr = &dr_integer;
/* ile . 216 211 , 419 */
  if ( REF(216).value.integer <= REF(211).value.integer ) goto c419;
/* copy 217 215 */
  if((ch_returncode = (REF(215).tsdr->copy)(& ch_val, REF(215).value
    )) != Normal) goto ch_raise_exception;
  (*(REF(217).tsdr)->finalize)(REF(217).value,F_DISCARD,sched);
  REF(217).value = ch_val;
  REF(217).tsdr = datarepmap[REF(215).tsdr->number];
/* insert 214 217 */
  if ((ch_returncode = insertfunc(DEF(214),DEF(217),FALSE,0)) != Normal)
     goto ch_raise_exception;
/* branch , 419 */
   goto c419;
c426:
/* endget 215 178 */
  end_selector(DEF(215),DEF(178),sched,GET);
/* move 179 214 */
  (*(REF(179).tsdr)->finalize)(REF(179).value,F_DISCARD,sched);
  REF(179) = REF(214);
  REF(214).tsdr = & dr_bottom;
c428:
/* chs_lit 218 , ":" */
  if( !chs_lit(DEF(218),":") ) goto ch_depletion;
/* concat 181 179 218 */
  if ((ch_returncode = che_concat(DEF(181),DEF(179),DEF(218)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 218 */
  (*(REF(218).tsdr)->finalize)(REF(218).value,F_DISCARD,sched);
  REF(218).tsdr = & dr_bottom;
  current->ip = 76;
cb431:
/* call 118 181 , 38 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(118),
          arguments[1] = DEF(181),
          arguments[1+1] = nil,& arguments[0]),QUAL(38),sched)) != Normal)
     goto ch_raise_exception;
  return;
c432:
/* new_table 180 , 26 */
  if ((ch_returncode = che_new_table(DEF(180),QUAL(26),sched)) != Normal) 
     goto ch_raise_exception;
/* boolean 219 , FALSE */
  REF(219).value.boolean = FALSE;
  REF(219).tsdr = & dr_boolean;
/* chs_lit 220 , "noparse" */
  if( !chs_lit(DEF(220),"noparse") ) goto ch_depletion;
/* find_or_goto 221 119 220 , 0,437 */
  if (findfunc(DEF(221),DEF(119),(
          arguments[0] = DEF(220),& arguments[0]),sched,0) == FAILURE) goto c437;
/* boolean 219 , TRUE */
  REF(219).value.boolean = TRUE;
  REF(219).tsdr = & dr_boolean;
c437:
/* branch_false 219 , 506 */
  if ( !REF(219).value.boolean ) goto c506;
/* block , 39 */
  if((ch_returncode = che_block(QUAL(39),sched)) != Normal)
     goto ch_raise_exception;
/* chs_lit 222 , " load[" */
  if( !chs_lit(DEF(222)," load[") ) goto ch_depletion;
/* chs_lit 223 , ".ao]" */
  if( !chs_lit(DEF(223),".ao]") ) goto ch_depletion;
/* concat 224 178 223 */
  if ((ch_returncode = che_concat(DEF(224),DEF(178),DEF(223)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 223 */
  (*(REF(223).tsdr)->finalize)(REF(223).value,F_DISCARD,sched);
  REF(223).tsdr = & dr_bottom;
/* concat 225 222 224 */
  if ((ch_returncode = che_concat(DEF(225),DEF(222),DEF(224)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 222 */
  (*(REF(222).tsdr)->finalize)(REF(222).value,F_DISCARD,sched);
  REF(222).tsdr = & dr_bottom;
/* discard 224 */
  (*(REF(224).tsdr)->finalize)(REF(224).value,F_DISCARD,sched);
  REF(224).tsdr = & dr_bottom;
  current->ip = 78;
cb446:
/* call 118 225 , 38 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(118),
          arguments[1] = DEF(225),
          arguments[1+1] = nil,& arguments[0]),QUAL(38),sched)) != Normal)
     goto ch_raise_exception;
  return;
c447:
/* notequal . 49 48 , 454 */
  if ( !eq_outport(REF(49).value,REF(48).value) ) goto c454;
/* chs_lit 226 , "loadprog" */
  if( !chs_lit(DEF(226),"loadprog") ) goto ch_depletion;
  current->ip = 80;
cb450:
/* call 16.1 226 227 , 20 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(16)DOT(1),
          arguments[1] = DEF(226),
          arguments[2] = DEF(227),
          arguments[2+1] = nil,& arguments[0]),QUAL(20),sched)) != Normal)
     goto ch_raise_exception;
  return;
c451:
/* procedure 228 227 , 40 */
  if ((ch_returncode = che_procedure(DEF(228),DEF(227),QUAL(40)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 227 */
  (*(REF(227).tsdr)->finalize)(REF(227).value,F_DISCARD,sched);
  REF(227).tsdr = & dr_bottom;
/* move 49 228 */
  (*(REF(49).tsdr)->finalize)(REF(49).value,F_DISCARD,sched);
  REF(49) = REF(228);
  REF(228).tsdr = & dr_bottom;
c454:
/* discard 226 */
  (*(REF(226).tsdr)->finalize)(REF(226).value,F_DISCARD,sched);
  REF(226).tsdr = & dr_bottom;
  current->ip = 83;
cb455:
/* call 49 178 16.3 229 230 231 232 233 234 , 41 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(49),
          arguments[1] = DEF(178),
          arguments[2] = DEF(16)DOT(3),
          arguments[3] = DEF(229),
          arguments[4] = DEF(230),
          arguments[5] = DEF(231),
          arguments[6] = DEF(232),
          arguments[7] = DEF(233),
          arguments[8] = DEF(234),
          arguments[8+1] = nil,& arguments[0]),QUAL(41),sched)) != Normal)
     goto ch_raise_exception;
  return;
c456:
/* endblock */
  che_endblock(sched);
/* branch , 569 */
   goto c569;
c458:
/* chs_lit 235 , " ERRORS" */
  if( !chs_lit(DEF(235)," ERRORS") ) goto ch_depletion;
  current->ip = 86;
cb459:
/* call 117 235 , 38 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(117),
          arguments[1] = DEF(235),
          arguments[1+1] = nil,& arguments[0]),QUAL(38),sched)) != Normal)
     goto ch_raise_exception;
  return;
c460:
/* chs_lit 236 , "Program module '" */
  if( !chs_lit(DEF(236),"Program module '") ) goto ch_depletion;
/* concat 237 236 179 */
  if ((ch_returncode = che_concat(DEF(237),DEF(236),DEF(179)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 236 */
  (*(REF(236).tsdr)->finalize)(REF(236).value,F_DISCARD,sched);
  REF(236).tsdr = & dr_bottom;
/* chs_lit 238 , "' was not found." */
  if( !chs_lit(DEF(238),"' was not found.") ) goto ch_depletion;
/* concat 239 237 238 */
  if ((ch_returncode = che_concat(DEF(239),DEF(237),DEF(238)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 237 */
  (*(REF(237).tsdr)->finalize)(REF(237).value,F_DISCARD,sched);
  REF(237).tsdr = & dr_bottom;
/* discard 238 */
  (*(REF(238).tsdr)->finalize)(REF(238).value,F_DISCARD,sched);
  REF(238).tsdr = & dr_bottom;
  current->ip = 88;
cb467:
/* call 117 239 , 38 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(117),
          arguments[1] = DEF(239),
          arguments[1+1] = nil,& arguments[0]),QUAL(38),sched)) != Normal)
     goto ch_raise_exception;
  return;
c468:
/* exit , 42 */
  ch_e = handler_type__exit; ch_val = QUAL(42); goto ch_exception;
c470:
/* chs_lit 240 , " ERRORS" */
  if( !chs_lit(DEF(240)," ERRORS") ) goto ch_depletion;
  current->ip = 91;
cb471:
/* call 117 240 , 38 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(117),
          arguments[1] = DEF(240),
          arguments[1+1] = nil,& arguments[0]),QUAL(38),sched)) != Normal)
     goto ch_raise_exception;
  return;
c472:
/* chs_lit 241 , "Definitions module '" */
  if( !chs_lit(DEF(241),"Definitions module '") ) goto ch_depletion;
/* concat 242 241 234 */
  if ((ch_returncode = che_concat(DEF(242),DEF(241),DEF(234)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 241 */
  (*(REF(241).tsdr)->finalize)(REF(241).value,F_DISCARD,sched);
  REF(241).tsdr = & dr_bottom;
/* chs_lit 243 , "' is inconsistent." */
  if( !chs_lit(DEF(243),"' is inconsistent.") ) goto ch_depletion;
/* concat 244 242 243 */
  if ((ch_returncode = che_concat(DEF(244),DEF(242),DEF(243)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 242 */
  (*(REF(242).tsdr)->finalize)(REF(242).value,F_DISCARD,sched);
  REF(242).tsdr = & dr_bottom;
/* discard 243 */
  (*(REF(243).tsdr)->finalize)(REF(243).value,F_DISCARD,sched);
  REF(243).tsdr = & dr_bottom;
  current->ip = 93;
cb479:
/* call 117 244 , 38 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(117),
          arguments[1] = DEF(244),
          arguments[1+1] = nil,& arguments[0]),QUAL(38),sched)) != Normal)
     goto ch_raise_exception;
  return;
c480:
/* exit , 42 */
  ch_e = handler_type__exit; ch_val = QUAL(42); goto ch_exception;
c482:
/* chs_lit 245 , " ERRORS" */
  if( !chs_lit(DEF(245)," ERRORS") ) goto ch_depletion;
  current->ip = 96;
cb483:
/* call 117 245 , 38 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(117),
          arguments[1] = DEF(245),
          arguments[1+1] = nil,& arguments[0]),QUAL(38),sched)) != Normal)
     goto ch_raise_exception;
  return;
c484:
/* chs_lit 246 , "Definitions module '" */
  if( !chs_lit(DEF(246),"Definitions module '") ) goto ch_depletion;
/* concat 247 246 234 */
  if ((ch_returncode = che_concat(DEF(247),DEF(246),DEF(234)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 246 */
  (*(REF(246).tsdr)->finalize)(REF(246).value,F_DISCARD,sched);
  REF(246).tsdr = & dr_bottom;
/* chs_lit 248 , "' was not found." */
  if( !chs_lit(DEF(248),"' was not found.") ) goto ch_depletion;
/* concat 249 247 248 */
  if ((ch_returncode = che_concat(DEF(249),DEF(247),DEF(248)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 247 */
  (*(REF(247).tsdr)->finalize)(REF(247).value,F_DISCARD,sched);
  REF(247).tsdr = & dr_bottom;
/* discard 248 */
  (*(REF(248).tsdr)->finalize)(REF(248).value,F_DISCARD,sched);
  REF(248).tsdr = & dr_bottom;
  current->ip = 98;
cb491:
/* call 117 249 , 38 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(117),
          arguments[1] = DEF(249),
          arguments[1+1] = nil,& arguments[0]),QUAL(38),sched)) != Normal)
     goto ch_raise_exception;
  return;
c492:
/* exit , 42 */
  ch_e = handler_type__exit; ch_val = QUAL(42); goto ch_exception;
c494:
/* chs_lit 250 , "ERRORS" */
  if( !chs_lit(DEF(250),"ERRORS") ) goto ch_depletion;
  current->ip = 101;
cb495:
/* call 117 250 , 38 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(117),
          arguments[1] = DEF(250),
          arguments[1+1] = nil,& arguments[0]),QUAL(38),sched)) != Normal)
     goto ch_raise_exception;
  return;
c496:
/* chs_lit 251 , "Unable to load program module '" */
  if( !chs_lit(DEF(251),"Unable to load program module '") )
     goto ch_depletion;
/* concat 252 251 179 */
  if ((ch_returncode = che_concat(DEF(252),DEF(251),DEF(179)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 251 */
  (*(REF(251).tsdr)->finalize)(REF(251).value,F_DISCARD,sched);
  REF(251).tsdr = & dr_bottom;
/* chs_lit 253 , "'" */
  if( !chs_lit(DEF(253),"'") ) goto ch_depletion;
/* concat 254 252 253 */
  if ((ch_returncode = che_concat(DEF(254),DEF(252),DEF(253)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 252 */
  (*(REF(252).tsdr)->finalize)(REF(252).value,F_DISCARD,sched);
  REF(252).tsdr = & dr_bottom;
/* discard 253 */
  (*(REF(253).tsdr)->finalize)(REF(253).value,F_DISCARD,sched);
  REF(253).tsdr = & dr_bottom;
  current->ip = 103;
cb503:
/* call 117 254 , 38 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(117),
          arguments[1] = DEF(254),
          arguments[1+1] = nil,& arguments[0]),QUAL(38),sched)) != Normal)
     goto ch_raise_exception;
  return;
c504:
/* exit , 42 */
  ch_e = handler_type__exit; ch_val = QUAL(42); goto ch_exception;
c506:
/* block , 43 */
  if((ch_returncode = che_block(QUAL(43),sched)) != Normal)
     goto ch_raise_exception;
/* chs_lit 255 , " parse[" */
  if( !chs_lit(DEF(255)," parse[") ) goto ch_depletion;
/* chs_lit 256 , ".p]" */
  if( !chs_lit(DEF(256),".p]") ) goto ch_depletion;
/* concat 257 178 256 */
  if ((ch_returncode = che_concat(DEF(257),DEF(178),DEF(256)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 256 */
  (*(REF(256).tsdr)->finalize)(REF(256).value,F_DISCARD,sched);
  REF(256).tsdr = & dr_bottom;
/* concat 258 255 257 */
  if ((ch_returncode = che_concat(DEF(258),DEF(255),DEF(257)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 255 */
  (*(REF(255).tsdr)->finalize)(REF(255).value,F_DISCARD,sched);
  REF(255).tsdr = & dr_bottom;
/* discard 257 */
  (*(REF(257).tsdr)->finalize)(REF(257).value,F_DISCARD,sched);
  REF(257).tsdr = & dr_bottom;
  current->ip = 106;
cb514:
/* call 118 258 , 38 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(118),
          arguments[1] = DEF(258),
          arguments[1+1] = nil,& arguments[0]),QUAL(38),sched)) != Normal)
     goto ch_raise_exception;
  return;
c515:
/* notequal . 106 105 , 524 */
  if ( !eq_outport(REF(106).value,REF(105).value) ) goto c524;
/* chs_lit 259 , "getfile" */
  if( !chs_lit(DEF(259),"getfile") ) goto ch_depletion;
  current->ip = 108;
cb518:
/* call 16.1 259 260 , 20 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(16)DOT(1),
          arguments[1] = DEF(259),
          arguments[2] = DEF(260),
          arguments[2+1] = nil,& arguments[0]),QUAL(20),sched)) != Normal)
     goto ch_raise_exception;
  return;
c519:
/* create 261 260 , 44 */
  if ((ch_returncode = che_create(DEF(261),DEF(260),QUAL(44)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 260 */
  (*(REF(260).tsdr)->finalize)(REF(260).value,F_DISCARD,sched);
  REF(260).tsdr = & dr_bottom;
/* move 262 261 */
  (*(REF(262).tsdr)->finalize)(REF(262).value,F_DISCARD,sched);
  REF(262) = REF(261);
  REF(261).tsdr = & dr_bottom;
  current->ip = 110;
cb522:
/* call 262 15.3 263 , 45 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(262),
          arguments[1] = DEF(15)DOT(3),
          arguments[2] = DEF(263),
          arguments[2+1] = nil,& arguments[0]),QUAL(45),sched)) != Normal)
     goto ch_raise_exception;
  return;
c523:
/* move 106 263 */
  (*(REF(106).tsdr)->finalize)(REF(106).value,F_DISCARD,sched);
  REF(106) = REF(263);
  REF(263).tsdr = & dr_bottom;
c524:
/* discard 262 */
  (*(REF(262).tsdr)->finalize)(REF(262).value,F_DISCARD,sched);
  REF(262).tsdr = & dr_bottom;
/* discard 259 */
  (*(REF(259).tsdr)->finalize)(REF(259).value,F_DISCARD,sched);
  REF(259).tsdr = & dr_bottom;
/* lookup_at 264 178 =(0) */
  if ( !((ch_t = REF(178).value.table)->size) ) goto ch_notfound;
  (*(REF(264).tsdr)->finalize)(REF(264).value,F_DISCARD,sched);
  (*(ch_t->tbls[ORDER_TBL].des->lookup_at))
    (ch_t, ORDER_TBL, & REF(264).value,0);
  REF(264).tsdr = qdatarepmap[ch_t->tsdr->number];
/* copy 265 264 */
  REF(265) = REF(264);
/* notequal . 265 =(47) , 534 */
  if ( REF(265).value.ord_enum != 47 ) goto c534;
/* copy 266 178 */
  if((ch_returncode = cp_table(& ch_val, REF(178).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(266).tsdr)->finalize)(REF(266).value,F_DISCARD,sched);
  REF(266).value = ch_val;
  REF(266).tsdr = & dr_table;
/* branch , 542 */
   goto c542;
c534:
  current->ip = 113;
cb534:
/* call 16.8 267 , 35 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(16)DOT(8),
          arguments[1] = DEF(267),
          arguments[1+1] = nil,& arguments[0]),QUAL(35),sched)) != Normal)
     goto ch_raise_exception;
  return;
c535:
/* chs_lit 268 , "/" */
  if( !chs_lit(DEF(268),"/") ) goto ch_depletion;
/* concat 269 267 268 */
  if ((ch_returncode = che_concat(DEF(269),DEF(267),DEF(268)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 267 */
  (*(REF(267).tsdr)->finalize)(REF(267).value,F_DISCARD,sched);
  REF(267).tsdr = & dr_bottom;
/* discard 268 */
  (*(REF(268).tsdr)->finalize)(REF(268).value,F_DISCARD,sched);
  REF(268).tsdr = & dr_bottom;
/* concat 270 269 178 */
  if ((ch_returncode = che_concat(DEF(270),DEF(269),DEF(178)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 269 */
  (*(REF(269).tsdr)->finalize)(REF(269).value,F_DISCARD,sched);
  REF(269).tsdr = & dr_bottom;
/* move 266 270 */
  (*(REF(266).tsdr)->finalize)(REF(266).value,F_DISCARD,sched);
  REF(266) = REF(270);
  REF(270).tsdr = & dr_bottom;
c542:
/* chs_lit 271 , ".p" */
  if( !chs_lit(DEF(271),".p") ) goto ch_depletion;
/* concat 272 266 271 */
  if ((ch_returncode = che_concat(DEF(272),DEF(266),DEF(271)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 271 */
  (*(REF(271).tsdr)->finalize)(REF(271).value,F_DISCARD,sched);
  REF(271).tsdr = & dr_bottom;
  current->ip = 116;
cb545:
/* call 106 272 273 , 46 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(106),
          arguments[1] = DEF(272),
          arguments[2] = DEF(273),
          arguments[2+1] = nil,& arguments[0]),QUAL(46),sched)) != Normal)
     goto ch_raise_exception;
  return;
c546:
/* move 274 273 */
  (*(REF(274).tsdr)->finalize)(REF(274).value,F_DISCARD,sched);
  REF(274) = REF(273);
  REF(273).tsdr = & dr_bottom;
/* chs_lit 275 , ".p" */
  if( !chs_lit(DEF(275),".p") ) goto ch_depletion;
/* concat 276 178 275 */
  if ((ch_returncode = che_concat(DEF(276),DEF(178),DEF(275)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 275 */
  (*(REF(275).tsdr)->finalize)(REF(275).value,F_DISCARD,sched);
  REF(275).tsdr = & dr_bottom;
  current->ip = 118;
cb550:
/* call 96 274 276 229 231 232 233 277 230 278 , 47 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(96),
          arguments[1] = DEF(274),
          arguments[2] = DEF(276),
          arguments[3] = DEF(229),
          arguments[4] = DEF(231),
          arguments[5] = DEF(232),
          arguments[6] = DEF(233),
          arguments[7] = DEF(277),
          arguments[8] = DEF(230),
          arguments[9] = DEF(278),
          arguments[9+1] = nil,& arguments[0]),QUAL(47),sched)) != Normal)
     goto ch_raise_exception;
  return;
c551:
/* size 279 278 */
  REF(279).value.integer = REF(278).value.table->size;
  REF(279).tsdr = & dr_integer;
/* equal . 279 =(0) , 556 */
  if ( REF(279).value.integer == 0 ) goto c556;
/* exit , 48 */
  ch_e = handler_type__exit; ch_val = QUAL(48); goto ch_exception;
c556:
/* endblock */
  che_endblock(sched);
/* branch , 569 */
   goto c569;
c558:
/* chs_lit 280 , " ERRORS" */
  if( !chs_lit(DEF(280)," ERRORS") ) goto ch_depletion;
  current->ip = 121;
cb559:
/* call 117 280 , 38 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(117),
          arguments[1] = DEF(280),
          arguments[1+1] = nil,& arguments[0]),QUAL(38),sched)) != Normal)
     goto ch_raise_exception;
  return;
c560:
/* chs_lit 281 , "Unable to read source file '" */
  if( !chs_lit(DEF(281),"Unable to read source file '") ) goto ch_depletion;
/* concat 282 281 178 */
  if ((ch_returncode = che_concat(DEF(282),DEF(281),DEF(178)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 281 */
  (*(REF(281).tsdr)->finalize)(REF(281).value,F_DISCARD,sched);
  REF(281).tsdr = & dr_bottom;
/* chs_lit 283 , ".p'." */
  if( !chs_lit(DEF(283),".p'.") ) goto ch_depletion;
/* concat 284 282 283 */
  if ((ch_returncode = che_concat(DEF(284),DEF(282),DEF(283)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 282 */
  (*(REF(282).tsdr)->finalize)(REF(282).value,F_DISCARD,sched);
  REF(282).tsdr = & dr_bottom;
/* discard 283 */
  (*(REF(283).tsdr)->finalize)(REF(283).value,F_DISCARD,sched);
  REF(283).tsdr = & dr_bottom;
  current->ip = 123;
cb567:
/* call 117 284 , 38 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(117),
          arguments[1] = DEF(284),
          arguments[1+1] = nil,& arguments[0]),QUAL(38),sched)) != Normal)
     goto ch_raise_exception;
  return;
c568:
/* exit , 42 */
  ch_e = handler_type__exit; ch_val = QUAL(42); goto ch_exception;
c569:
/* discard 278 */
  (*(REF(278).tsdr)->finalize)(REF(278).value,F_DISCARD,sched);
  REF(278).tsdr = & dr_bottom;
/* discard 225 */
  (*(REF(225).tsdr)->finalize)(REF(225).value,F_DISCARD,sched);
  REF(225).tsdr = & dr_bottom;
/* discard 274 */
  (*(REF(274).tsdr)->finalize)(REF(274).value,F_DISCARD,sched);
  REF(274).tsdr = & dr_bottom;
/* discard 277 */
  (*(REF(277).tsdr)->finalize)(REF(277).value,F_DISCARD,sched);
  REF(277).tsdr = & dr_bottom;
/* discard 266 */
  (*(REF(266).tsdr)->finalize)(REF(266).value,F_DISCARD,sched);
  REF(266).tsdr = & dr_bottom;
/* discard 258 */
  (*(REF(258).tsdr)->finalize)(REF(258).value,F_DISCARD,sched);
  REF(258).tsdr = & dr_bottom;
/* discard 272 */
  (*(REF(272).tsdr)->finalize)(REF(272).value,F_DISCARD,sched);
  REF(272).tsdr = & dr_bottom;
/* discard 276 */
  (*(REF(276).tsdr)->finalize)(REF(276).value,F_DISCARD,sched);
  REF(276).tsdr = & dr_bottom;
  current->ip = 126;
cb577:
/* call 58 229 285 , 49 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(58),
          arguments[1] = DEF(229),
          arguments[2] = DEF(285),
          arguments[2+1] = nil,& arguments[0]),QUAL(49),sched)) != Normal)
     goto ch_raise_exception;
  return;
c578:
/* move 286 285 */
  (*(REF(286).tsdr)->finalize)(REF(286).value,F_DISCARD,sched);
  REF(286) = REF(285);
  REF(285).tsdr = & dr_bottom;
/* copy 287 230 */
  if((ch_returncode = cp_table(& ch_val, REF(230).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(287).tsdr)->finalize)(REF(287).value,F_DISCARD,sched);
  REF(287).value = ch_val;
  REF(287).tsdr = & dr_table;
/* initget 288 287 , 0,0 */
  (*(REF(288).tsdr)->finalize)(REF(288).value,F_DISCARD,sched);
  if ((ch_returncode = init_selector(DEF(288),DEF(287),nil,sched,GET,0,0
    )) != Normal) goto ch_raise_exception;
c581:
/* get_or_goto 288 287 , 645 */
  if ((ch_returncode = get_selected_object(DEF(288),DEF(287)
    ,sched)) != Normal) goto c645;
/* discard 289 */
  (*(REF(289).tsdr)->finalize)(REF(289).value,F_DISCARD,sched);
  REF(289).tsdr = & dr_bottom;
/* copy 290 288.2.0 */
  if((ch_returncode = cp_table(& ch_val, REF(288)DOT(2)DOT(0).value
    )) != Normal) goto ch_raise_exception;
  (*(REF(290).tsdr)->finalize)(REF(290).value,F_DISCARD,sched);
  REF(290).value = ch_val;
  REF(290).tsdr = & dr_table;
/* initget 291 290 , 0,0 */
  (*(REF(291).tsdr)->finalize)(REF(291).value,F_DISCARD,sched);
  if ((ch_returncode = init_selector(DEF(291),DEF(290),nil,sched,GET,0,0
    )) != Normal) goto ch_raise_exception;
c585:
/* get_or_goto 291 290 , 593 */
  if ((ch_returncode = get_selected_object(DEF(291),DEF(290)
    ,sched)) != Normal) goto c593;
/* block , 50 */
  if((ch_returncode = che_block(QUAL(50),sched)) != Normal)
     goto ch_raise_exception;
/* copy 292 291 */
  if((ch_returncode = (REF(291).tsdr->copy)(& ch_val, REF(291).value
    )) != Normal) goto ch_raise_exception;
  (*(REF(292).tsdr)->finalize)(REF(292).value,F_DISCARD,sched);
  REF(292).value = ch_val;
  REF(292).tsdr = datarepmap[REF(291).tsdr->number];
/* insert 229.0 292 */
  if ((ch_returncode = insertfunc(DEF(229)DOT(0),DEF(292),FALSE,0)) != Normal)
     goto ch_raise_exception;
/* endblock */
  che_endblock(sched);
c591:
/* discard 292 */
  (*(REF(292).tsdr)->finalize)(REF(292).value,F_DISCARD,sched);
  REF(292).tsdr = & dr_bottom;
/* branch , 585 */
   goto c585;
c593:
/* endget 291 290 */
  end_selector(DEF(291),DEF(290),sched,GET);
/* discard 290 */
  (*(REF(290).tsdr)->finalize)(REF(290).value,F_DISCARD,sched);
  REF(290).tsdr = & dr_bottom;
/* copy 293 288.2.2 */
  if((ch_returncode = cp_table(& ch_val, REF(288)DOT(2)DOT(2).value
    )) != Normal) goto ch_raise_exception;
  (*(REF(293).tsdr)->finalize)(REF(293).value,F_DISCARD,sched);
  REF(293).value = ch_val;
  REF(293).tsdr = & dr_table;
/* initget 294 293 , 0,0 */
  (*(REF(294).tsdr)->finalize)(REF(294).value,F_DISCARD,sched);
  if ((ch_returncode = init_selector(DEF(294),DEF(293),nil,sched,GET,0,0
    )) != Normal) goto ch_raise_exception;
c597:
/* get_or_goto 294 293 , 619 */
  if ((ch_returncode = get_selected_object(DEF(294),DEF(293)
    ,sched)) != Normal) goto c619;
/* block , 51 */
  if((ch_returncode = che_block(QUAL(51),sched)) != Normal)
     goto ch_raise_exception;
/* copy 295 294 */
  if((ch_returncode = (REF(294).tsdr->copy)(& ch_val, REF(294).value
    )) != Normal) goto ch_raise_exception;
  (*(REF(295).tsdr)->finalize)(REF(295).value,F_DISCARD,sched);
  REF(295).value = ch_val;
  REF(295).tsdr = datarepmap[REF(294).tsdr->number];
/* insert 229.2 295 */
  if ((ch_returncode = insertfunc(DEF(229)DOT(2),DEF(295),FALSE,0)) != Normal)
     goto ch_raise_exception;
/* endblock */
  che_endblock(sched);
/* branch , 617 */
   goto c617;
c603:
/* find 296 229.2 294.0 , 0 */
  if (findfunc(DEF(296),DEF(229)DOT(2),(
          arguments[0] = DEF(294)DOT(0),& arguments[0]),sched,0) == FAILURE)
             goto ch_notfound;
/* equal . 296 294 , 617 */
  if ( (REF(296).tsdr->equal)(REF(296).value,REF(294).value) ) goto c617;
/* chs_lit 297 , " ERRORS" */
  if( !chs_lit(DEF(297)," ERRORS") ) goto ch_depletion;
  current->ip = 134;
cb607:
/* call 117 297 , 38 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(117),
          arguments[1] = DEF(297),
          arguments[1+1] = nil,& arguments[0]),QUAL(38),sched)) != Normal)
     goto ch_raise_exception;
  return;
c608:
/* chs_lit 298 , "Linked process module " */
  if( !chs_lit(DEF(298),"Linked process module ") ) goto ch_depletion;
/* concat 299 298 288.1 */
  if ((ch_returncode = che_concat(DEF(299),DEF(298),DEF(288)DOT(1)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 298 */
  (*(REF(298).tsdr)->finalize)(REF(298).value,F_DISCARD,sched);
  REF(298).tsdr = & dr_bottom;
/* chs_lit 300 , " contains a process with same id as a different process also linked." */
  if( !chs_lit(DEF(300),
    " contains a process with same id as a different process also linked.") )
     goto ch_depletion;
/* concat 301 299 300 */
  if ((ch_returncode = che_concat(DEF(301),DEF(299),DEF(300)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 299 */
  (*(REF(299).tsdr)->finalize)(REF(299).value,F_DISCARD,sched);
  REF(299).tsdr = & dr_bottom;
/* discard 300 */
  (*(REF(300).tsdr)->finalize)(REF(300).value,F_DISCARD,sched);
  REF(300).tsdr = & dr_bottom;
  current->ip = 136;
cb615:
/* call 117 301 , 38 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(117),
          arguments[1] = DEF(301),
          arguments[1+1] = nil,& arguments[0]),QUAL(38),sched)) != Normal)
     goto ch_raise_exception;
  return;
c616:
/* exit , 42 */
  ch_e = handler_type__exit; ch_val = QUAL(42); goto ch_exception;
c617:
/* discard 295 */
  (*(REF(295).tsdr)->finalize)(REF(295).value,F_DISCARD,sched);
  REF(295).tsdr = & dr_bottom;
/* branch , 597 */
   goto c597;
c619:
/* endget 294 293 */
  end_selector(DEF(294),DEF(293),sched,GET);
/* discard 293 */
  (*(REF(293).tsdr)->finalize)(REF(293).value,F_DISCARD,sched);
  REF(293).tsdr = & dr_bottom;
  current->ip = 140;
cb621:
/* call 58 288.2 289 , 49 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(58),
          arguments[1] = DEF(288)DOT(2),
          arguments[2] = DEF(289),
          arguments[2+1] = nil,& arguments[0]),QUAL(49),sched)) != Normal)
     goto ch_raise_exception;
  return;
c622:
/* noop */
  
/* copy 302 289 */
  if((ch_returncode = cp_table(& ch_val, REF(289).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(302).tsdr)->finalize)(REF(302).value,F_DISCARD,sched);
  REF(302).value = ch_val;
  REF(302).tsdr = & dr_table;
/* initget 303 302 , 0,0 */
  (*(REF(303).tsdr)->finalize)(REF(303).value,F_DISCARD,sched);
  if ((ch_returncode = init_selector(DEF(303),DEF(302),nil,sched,GET,0,0
    )) != Normal) goto ch_raise_exception;
c625:
/* get_or_goto 303 302 , 642 */
  if ((ch_returncode = get_selected_object(DEF(303),DEF(302)
    ,sched)) != Normal) goto c642;
/* block , 52 */
  if((ch_returncode = che_block(QUAL(52),sched)) != Normal)
     goto ch_raise_exception;
/* copy 304 303 */
  if((ch_returncode = (REF(303).tsdr->copy)(& ch_val, REF(303).value
    )) != Normal) goto ch_raise_exception;
  (*(REF(304).tsdr)->finalize)(REF(304).value,F_DISCARD,sched);
  REF(304).value = ch_val;
  REF(304).tsdr = datarepmap[REF(303).tsdr->number];
/* insert 286 304 */
  if ((ch_returncode = insertfunc(DEF(286),DEF(304),FALSE,0)) != Normal)
     goto ch_raise_exception;
/* endblock */
  che_endblock(sched);
/* branch , 639 */
   goto c639;
c631:
/* find 305 286 303.0 , 0 */
  if (findfunc(DEF(305),DEF(286),(
          arguments[0] = DEF(303)DOT(0),& arguments[0]),sched,0) == FAILURE)
             goto ch_notfound;
/* copy 306 303 */
  if((ch_returncode = (REF(303).tsdr->copy)(& ch_val, REF(303).value
    )) != Normal) goto ch_raise_exception;
  (*(REF(306).tsdr)->finalize)(REF(306).value,F_DISCARD,sched);
  REF(306).value = ch_val;
  REF(306).tsdr = datarepmap[REF(303).tsdr->number];
/* copy 306.1.0 305.1.0 */
  if((ch_returncode = (REF(305)DOT(1)DOT(0).tsdr->copy)(& ch_val, 
    REF(305)DOT(1)DOT(0).value)) != Normal) goto ch_raise_exception;
  (*(REF(306)DOT(1)DOT(0).tsdr)->finalize)(REF(306)DOT(1)DOT(0).value
    ,F_DISCARD,sched);
  REF(306)DOT(1)DOT(0).value = ch_val;
  REF(306)DOT(1)DOT(0).tsdr = datarepmap[REF(305)DOT(1)DOT(0).tsdr->number];
/* equal . 305 306 , 639 */
  if ( (REF(305).tsdr->equal)(REF(305).value,REF(306).value) ) goto c639;
/* privatize 286 */
  if (REF(286).value.table->refcount != 1)
    if ((ch_returncode = doCopyOnWrite(DEF(286))) != Normal)
       goto ch_raise_exception;
/* find 307 286 303.0 , 0 */
  if (findfunc(DEF(307),DEF(286),(
          arguments[0] = DEF(303)DOT(0),& arguments[0]),sched,0) == FAILURE)
             goto ch_notfound;
/* fremove 306 307 286 , 0 */
  if ((ch_returncode = removefunc(DEF(306),DEF(307),DEF(286),sched,0
    ,NO_TBL,(position *) nil)) != Normal) goto ch_raise_exception;
c639:
/* discard 304 */
  (*(REF(304).tsdr)->finalize)(REF(304).value,F_DISCARD,sched);
  REF(304).tsdr = & dr_bottom;
/* discard 306 */
  (*(REF(306).tsdr)->finalize)(REF(306).value,F_DISCARD,sched);
  REF(306).tsdr = & dr_bottom;
/* branch , 625 */
   goto c625;
c642:
/* endget 303 302 */
  end_selector(DEF(303),DEF(302),sched,GET);
/* discard 302 */
  (*(REF(302).tsdr)->finalize)(REF(302).value,F_DISCARD,sched);
  REF(302).tsdr = & dr_bottom;
/* branch , 581 */
   goto c581;
c645:
/* endget 288 287 */
  end_selector(DEF(288),DEF(287),sched,GET);
/* discard 287 */
  (*(REF(287).tsdr)->finalize)(REF(287).value,F_DISCARD,sched);
  REF(287).tsdr = & dr_bottom;
/* new_table 308 , 27 */
  if ((ch_returncode = che_new_table(DEF(308),QUAL(27),sched)) != Normal) 
     goto ch_raise_exception;
/* boolean 309 , FALSE */
  REF(309).value.boolean = FALSE;
  REF(309).tsdr = & dr_boolean;
/* chs_lit 310 , "notcheck" */
  if( !chs_lit(DEF(310),"notcheck") ) goto ch_depletion;
/* find_or_goto 311 119 310 , 0,652 */
  if (findfunc(DEF(311),DEF(119),(
          arguments[0] = DEF(310),& arguments[0]),sched,0) == FAILURE) goto c652;
/* boolean 309 , TRUE */
  REF(309).value.boolean = TRUE;
  REF(309).tsdr = & dr_boolean;
c652:
/* not 312 309 */
  REF(312).value.boolean = !REF(309).value.boolean;
  REF(312).tsdr = & dr_boolean;
/* branch_false 312 , 705 */
  if ( !REF(312).value.boolean ) goto c705;
/* chs_lit 313 , " typecheck" */
  if( !chs_lit(DEF(313)," typecheck") ) goto ch_depletion;
  current->ip = 147;
cb655:
/* call 118 313 , 38 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(118),
          arguments[1] = DEF(313),
          arguments[1+1] = nil,& arguments[0]),QUAL(38),sched)) != Normal)
     goto ch_raise_exception;
  return;
c656:
/* notequal . 110 109 , 663 */
  if ( !eq_outport(REF(110).value,REF(109).value) ) goto c663;
/* chs_lit 314 , "type" */
  if( !chs_lit(DEF(314),"type") ) goto ch_depletion;
  current->ip = 149;
cb659:
/* call 16.1 314 315 , 20 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(16)DOT(1),
          arguments[1] = DEF(314),
          arguments[2] = DEF(315),
          arguments[2+1] = nil,& arguments[0]),QUAL(20),sched)) != Normal)
     goto ch_raise_exception;
  return;
c660:
/* procedure 316 315 , 53 */
  if ((ch_returncode = che_procedure(DEF(316),DEF(315),QUAL(53)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 315 */
  (*(REF(315).tsdr)->finalize)(REF(315).value,F_DISCARD,sched);
  REF(315).tsdr = & dr_bottom;
/* move 110 316 */
  (*(REF(110).tsdr)->finalize)(REF(110).value,F_DISCARD,sched);
  REF(110) = REF(316);
  REF(316).tsdr = & dr_bottom;
c663:
/* discard 314 */
  (*(REF(314).tsdr)->finalize)(REF(314).value,F_DISCARD,sched);
  REF(314).tsdr = & dr_bottom;
/* size 317 107 */
  REF(317).value.integer = REF(107).value.table->size;
  REF(317).tsdr = & dr_integer;
/* notequal . 317 =(0) , 671 */
  if ( REF(317).value.integer != 0 ) goto c671;
/* chs_lit 318 , "checking_table.ho" */
  if( !chs_lit(DEF(318),"checking_table.ho") ) goto ch_depletion;
  current->ip = 152;
cb669:
/* call 16.3 318 319 , 54 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(16)DOT(3),
          arguments[1] = DEF(318),
          arguments[2] = DEF(319),
          arguments[2+1] = nil,& arguments[0]),QUAL(54),sched)) != Normal)
     goto ch_raise_exception;
  return;
c670:
/* unwrap 107 319 , 55 */
  if ((ch_returncode = che_unwrap(DEF(107),DEF(319),QUAL(55)
    ,sched)) != Normal) goto ch_raise_exception;
c671:
/* discard 318 */
  (*(REF(318).tsdr)->finalize)(REF(318).value,F_DISCARD,sched);
  REF(318).tsdr = & dr_bottom;
/* copy 320 229.2 */
  if((ch_returncode = cp_table(& ch_val, REF(229)DOT(2).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(320).tsdr)->finalize)(REF(320).value,F_DISCARD,sched);
  REF(320).value = ch_val;
  REF(320).tsdr = & dr_table;
/* initget 321 320 , 0,0 */
  (*(REF(321).tsdr)->finalize)(REF(321).value,F_DISCARD,sched);
  if ((ch_returncode = init_selector(DEF(321),DEF(320),nil,sched,GET,0,0
    )) != Normal) goto ch_raise_exception;
c674:
/* get_or_goto 321 320 , 698 */
  if ((ch_returncode = get_selected_object(DEF(321),DEF(320)
    ,sched)) != Normal) goto c698;
/* boolean 322 , FALSE */
  REF(322).value.boolean = FALSE;
  REF(322).tsdr = & dr_boolean;
/* find_or_goto 323 286 321.0 , 0,678 */
  if (findfunc(DEF(323),DEF(286),(
          arguments[0] = DEF(321)DOT(0),& arguments[0]),sched,0) == FAILURE)
             goto c678;
/* boolean 322 , TRUE */
  REF(322).value.boolean = TRUE;
  REF(322).tsdr = & dr_boolean;
c678:
/* not 324 322 */
  REF(324).value.boolean = !REF(322).value.boolean;
  REF(324).tsdr = & dr_boolean;
/* branch_false 324 , 674 */
  if ( !REF(324).value.boolean ) goto c674;
/* discard 278 */
  (*(REF(278).tsdr)->finalize)(REF(278).value,F_DISCARD,sched);
  REF(278).tsdr = & dr_bottom;
/* block , 56 */
  if((ch_returncode = che_block(QUAL(56),sched)) != Normal)
     goto ch_raise_exception;
  current->ip = 156;
cb682:
/* call 110 321 229.0 107 16 278 325 , 57 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(110),
          arguments[1] = DEF(321),
          arguments[2] = DEF(229)DOT(0),
          arguments[3] = DEF(107),
          arguments[4] = DEF(16),
          arguments[5] = DEF(278),
          arguments[6] = DEF(325),
          arguments[6+1] = nil,& arguments[0]),QUAL(57),sched)) != Normal)
     goto ch_raise_exception;
  return;
c683:
/* merge 180 325 */
  if ((ch_returncode = mergefunc(DEF(180),DEF(325),FALSE,0)) != Normal)
     goto ch_raise_exception;
/* endblock */
  che_endblock(sched);
/* branch , 696 */
   goto c696;
c686:
/* copy 326 278 */
  if((ch_returncode = cp_table(& ch_val, REF(278).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(326).tsdr)->finalize)(REF(326).value,F_DISCARD,sched);
  REF(326).value = ch_val;
  REF(326).tsdr = & dr_table;
/* initget 327 326 , 0,0 */
  (*(REF(327).tsdr)->finalize)(REF(327).value,F_DISCARD,sched);
  if ((ch_returncode = init_selector(DEF(327),DEF(326),nil,sched,GET,0,0
    )) != Normal) goto ch_raise_exception;
c688:
/* get_or_goto 327 326 , 694 */
  if ((ch_returncode = get_selected_object(DEF(327),DEF(326)
    ,sched)) != Normal) goto c694;
/* new_record 328 , 2 */
  if ((ch_val.record = new_record(2)) == nil) goto ch_depletion;
  (*(REF(328).tsdr)->finalize)(REF(328).value,F_DISCARD,sched);
  REF(328).value = ch_val; REF(328).tsdr = & dr_record;
/* copy 328.0 321.0 */
  if((ch_returncode = (REF(321)DOT(0).tsdr->copy)(& ch_val, 
    REF(321)DOT(0).value)) != Normal) goto ch_raise_exception;
  (*(REF(328)DOT(0).tsdr)->finalize)(REF(328)DOT(0).value,F_DISCARD,sched);
  REF(328)DOT(0).value = ch_val;
  REF(328)DOT(0).tsdr = datarepmap[REF(321)DOT(0).tsdr->number];
/* copy 328.1 327 */
  if((ch_returncode = (REF(327).tsdr->copy)(& ch_val, REF(327).value
    )) != Normal) goto ch_raise_exception;
  (*(REF(328)DOT(1).tsdr)->finalize)(REF(328)DOT(1).value,F_DISCARD,sched);
  REF(328)DOT(1).value = ch_val;
  REF(328)DOT(1).tsdr = datarepmap[REF(327).tsdr->number];
/* insert 308 328 */
  if ((ch_returncode = insertfunc(DEF(308),DEF(328),FALSE,0)) != Normal)
     goto ch_raise_exception;
/* branch , 688 */
   goto c688;
c694:
/* endget 327 326 */
  end_selector(DEF(327),DEF(326),sched,GET);
/* discard 326 */
  (*(REF(326).tsdr)->finalize)(REF(326).value,F_DISCARD,sched);
  REF(326).tsdr = & dr_bottom;
c696:
/* discard 325 */
  (*(REF(325).tsdr)->finalize)(REF(325).value,F_DISCARD,sched);
  REF(325).tsdr = & dr_bottom;
/* branch , 674 */
   goto c674;
c698:
/* endget 321 320 */
  end_selector(DEF(321),DEF(320),sched,GET);
/* discard 320 */
  (*(REF(320).tsdr)->finalize)(REF(320).value,F_DISCARD,sched);
  REF(320).tsdr = & dr_bottom;
/* size 329 308 */
  REF(329).value.integer = REF(308).value.table->size;
  REF(329).tsdr = & dr_integer;
/* equal . 329 =(0) , 705 */
  if ( REF(329).value.integer == 0 ) goto c705;
/* exit , 58 */
  ch_e = handler_type__exit; ch_val = QUAL(58); goto ch_exception;
c705:
/* discard 313 */
  (*(REF(313).tsdr)->finalize)(REF(313).value,F_DISCARD,sched);
  REF(313).tsdr = & dr_bottom;
/* boolean 330 , FALSE */
  REF(330).value.boolean = FALSE;
  REF(330).tsdr = & dr_boolean;
/* chs_lit 331 , "notscheck" */
  if( !chs_lit(DEF(331),"notscheck") ) goto ch_depletion;
/* find_or_goto 332 119 331 , 0,710 */
  if (findfunc(DEF(332),DEF(119),(
          arguments[0] = DEF(331),& arguments[0]),sched,0) == FAILURE) goto c710;
/* boolean 330 , TRUE */
  REF(330).value.boolean = TRUE;
  REF(330).tsdr = & dr_boolean;
c710:
/* branch_false 330 , 713 */
  if ( !REF(330).value.boolean ) goto c713;
/* new_table 333 , 26 */
  if ((ch_returncode = che_new_table(DEF(333),QUAL(26),sched)) != Normal) 
     goto ch_raise_exception;
/* branch , 764 */
   goto c764;
c713:
/* chs_lit 334 , " typestate" */
  if( !chs_lit(DEF(334)," typestate") ) goto ch_depletion;
  current->ip = 163;
cb714:
/* call 118 334 , 38 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(118),
          arguments[1] = DEF(334),
          arguments[1+1] = nil,& arguments[0]),QUAL(38),sched)) != Normal)
     goto ch_raise_exception;
  return;
c715:
/* notequal . 113 112 , 722 */
  if ( !eq_outport(REF(113).value,REF(112).value) ) goto c722;
/* chs_lit 335 , "typestate" */
  if( !chs_lit(DEF(335),"typestate") ) goto ch_depletion;
  current->ip = 165;
cb718:
/* call 16.1 335 336 , 20 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(16)DOT(1),
          arguments[1] = DEF(335),
          arguments[2] = DEF(336),
          arguments[2+1] = nil,& arguments[0]),QUAL(20),sched)) != Normal)
     goto ch_raise_exception;
  return;
c719:
/* procedure 337 336 , 59 */
  if ((ch_returncode = che_procedure(DEF(337),DEF(336),QUAL(59)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 336 */
  (*(REF(336).tsdr)->finalize)(REF(336).value,F_DISCARD,sched);
  REF(336).tsdr = & dr_bottom;
/* move 113 337 */
  (*(REF(113).tsdr)->finalize)(REF(113).value,F_DISCARD,sched);
  REF(113) = REF(337);
  REF(337).tsdr = & dr_bottom;
c722:
/* discard 335 */
  (*(REF(335).tsdr)->finalize)(REF(335).value,F_DISCARD,sched);
  REF(335).tsdr = & dr_bottom;
/* size 338 107 */
  REF(338).value.integer = REF(107).value.table->size;
  REF(338).tsdr = & dr_integer;
/* notequal . 338 =(0) , 730 */
  if ( REF(338).value.integer != 0 ) goto c730;
/* chs_lit 339 , "checking_table.ho" */
  if( !chs_lit(DEF(339),"checking_table.ho") ) goto ch_depletion;
  current->ip = 168;
cb728:
/* call 16.3 339 340 , 54 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(16)DOT(3),
          arguments[1] = DEF(339),
          arguments[2] = DEF(340),
          arguments[2+1] = nil,& arguments[0]),QUAL(54),sched)) != Normal)
     goto ch_raise_exception;
  return;
c729:
/* unwrap 107 340 , 55 */
  if ((ch_returncode = che_unwrap(DEF(107),DEF(340),QUAL(55)
    ,sched)) != Normal) goto ch_raise_exception;
c730:
/* discard 339 */
  (*(REF(339).tsdr)->finalize)(REF(339).value,F_DISCARD,sched);
  REF(339).tsdr = & dr_bottom;
/* new_table 333 , 26 */
  if ((ch_returncode = che_new_table(DEF(333),QUAL(26),sched)) != Normal) 
     goto ch_raise_exception;
/* copy 341 229.2 */
  if((ch_returncode = cp_table(& ch_val, REF(229)DOT(2).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(341).tsdr)->finalize)(REF(341).value,F_DISCARD,sched);
  REF(341).value = ch_val;
  REF(341).tsdr = & dr_table;
/* initget 342 341 , 0,0 */
  (*(REF(342).tsdr)->finalize)(REF(342).value,F_DISCARD,sched);
  if ((ch_returncode = init_selector(DEF(342),DEF(341),nil,sched,GET,0,0
    )) != Normal) goto ch_raise_exception;
c734:
/* get_or_goto 342 341 , 757 */
  if ((ch_returncode = get_selected_object(DEF(342),DEF(341)
    ,sched)) != Normal) goto c757;
/* boolean 343 , FALSE */
  REF(343).value.boolean = FALSE;
  REF(343).tsdr = & dr_boolean;
/* find_or_goto 344 286 342.0 , 0,738 */
  if (findfunc(DEF(344),DEF(286),(
          arguments[0] = DEF(342)DOT(0),& arguments[0]),sched,0) == FAILURE)
             goto c738;
/* boolean 343 , TRUE */
  REF(343).value.boolean = TRUE;
  REF(343).tsdr = & dr_boolean;
c738:
/* not 345 343 */
  REF(345).value.boolean = !REF(343).value.boolean;
  REF(345).tsdr = & dr_boolean;
/* branch_false 345 , 734 */
  if ( !REF(345).value.boolean ) goto c734;
/* discard 278 */
  (*(REF(278).tsdr)->finalize)(REF(278).value,F_DISCARD,sched);
  REF(278).tsdr = & dr_bottom;
/* block , 60 */
  if((ch_returncode = che_block(QUAL(60),sched)) != Normal)
     goto ch_raise_exception;
  current->ip = 172;
cb742:
/* call 113 16 229 342 107 231 232 180 346 278 , 61 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(113),
          arguments[1] = DEF(16),
          arguments[2] = DEF(229),
          arguments[3] = DEF(342),
          arguments[4] = DEF(107),
          arguments[5] = DEF(231),
          arguments[6] = DEF(232),
          arguments[7] = DEF(180),
          arguments[8] = DEF(346),
          arguments[9] = DEF(278),
          arguments[9+1] = nil,& arguments[0]),QUAL(61),sched)) != Normal)
     goto ch_raise_exception;
  return;
c743:
/* merge 333 346 */
  if ((ch_returncode = mergefunc(DEF(333),DEF(346),FALSE,0)) != Normal)
     goto ch_raise_exception;
/* endblock */
  che_endblock(sched);
/* branch , 734 */
   goto c734;
c746:
/* copy 347 278 */
  if((ch_returncode = cp_table(& ch_val, REF(278).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(347).tsdr)->finalize)(REF(347).value,F_DISCARD,sched);
  REF(347).value = ch_val;
  REF(347).tsdr = & dr_table;
/* initget 348 347 , 0,0 */
  (*(REF(348).tsdr)->finalize)(REF(348).value,F_DISCARD,sched);
  if ((ch_returncode = init_selector(DEF(348),DEF(347),nil,sched,GET,0,0
    )) != Normal) goto ch_raise_exception;
c748:
/* get_or_goto 348 347 , 754 */
  if ((ch_returncode = get_selected_object(DEF(348),DEF(347)
    ,sched)) != Normal) goto c754;
/* new_record 349 , 2 */
  if ((ch_val.record = new_record(2)) == nil) goto ch_depletion;
  (*(REF(349).tsdr)->finalize)(REF(349).value,F_DISCARD,sched);
  REF(349).value = ch_val; REF(349).tsdr = & dr_record;
/* copy 349.0 342.0 */
  if((ch_returncode = (REF(342)DOT(0).tsdr->copy)(& ch_val, 
    REF(342)DOT(0).value)) != Normal) goto ch_raise_exception;
  (*(REF(349)DOT(0).tsdr)->finalize)(REF(349)DOT(0).value,F_DISCARD,sched);
  REF(349)DOT(0).value = ch_val;
  REF(349)DOT(0).tsdr = datarepmap[REF(342)DOT(0).tsdr->number];
/* copy 349.1 348 */
  if((ch_returncode = (REF(348).tsdr->copy)(& ch_val, REF(348).value
    )) != Normal) goto ch_raise_exception;
  (*(REF(349)DOT(1).tsdr)->finalize)(REF(349)DOT(1).value,F_DISCARD,sched);
  REF(349)DOT(1).value = ch_val;
  REF(349)DOT(1).tsdr = datarepmap[REF(348).tsdr->number];
/* insert 308 349 */
  if ((ch_returncode = insertfunc(DEF(308),DEF(349),FALSE,0)) != Normal)
     goto ch_raise_exception;
/* branch , 748 */
   goto c748;
c754:
/* endget 348 347 */
  end_selector(DEF(348),DEF(347),sched,GET);
/* discard 347 */
  (*(REF(347).tsdr)->finalize)(REF(347).value,F_DISCARD,sched);
  REF(347).tsdr = & dr_bottom;
/* branch , 734 */
   goto c734;
c757:
/* endget 342 341 */
  end_selector(DEF(342),DEF(341),sched,GET);
/* discard 341 */
  (*(REF(341).tsdr)->finalize)(REF(341).value,F_DISCARD,sched);
  REF(341).tsdr = & dr_bottom;
/* size 350 308 */
  REF(350).value.integer = REF(308).value.table->size;
  REF(350).tsdr = & dr_integer;
/* equal . 350 =(0) , 764 */
  if ( REF(350).value.integer == 0 ) goto c764;
/* exit , 58 */
  ch_e = handler_type__exit; ch_val = QUAL(58); goto ch_exception;
c764:
/* discard 334 */
  (*(REF(334).tsdr)->finalize)(REF(334).value,F_DISCARD,sched);
  REF(334).tsdr = & dr_bottom;
/* boolean 351 , FALSE */
  REF(351).value.boolean = FALSE;
  REF(351).tsdr = & dr_boolean;
/* chs_lit 352 , "noobject" */
  if( !chs_lit(DEF(352),"noobject") ) goto ch_depletion;
/* find_or_goto 353 119 352 , 0,769 */
  if (findfunc(DEF(353),DEF(119),(
          arguments[0] = DEF(352),& arguments[0]),sched,0) == FAILURE) goto c769;
/* boolean 351 , TRUE */
  REF(351).value.boolean = TRUE;
  REF(351).tsdr = & dr_boolean;
c769:
/* not 354 351 */
  REF(354).value.boolean = !REF(351).value.boolean;
  REF(354).tsdr = & dr_boolean;
/* boolean 355 , FALSE */
  REF(355).value.boolean = FALSE;
  REF(355).tsdr = & dr_boolean;
/* chs_lit 356 , "ligen" */
  if( !chs_lit(DEF(356),"ligen") ) goto ch_depletion;
/* find_or_goto 357 119 356 , 0,774 */
  if (findfunc(DEF(357),DEF(119),(
          arguments[0] = DEF(356),& arguments[0]),sched,0) == FAILURE) goto c774;
/* boolean 355 , TRUE */
  REF(355).value.boolean = TRUE;
  REF(355).tsdr = & dr_boolean;
c774:
/* or 358 354 355 */
  REF(358).value.boolean = REF(354).value.boolean|REF(355).value.boolean;
  REF(358).tsdr = & dr_boolean;
/* branch_false 358 , 957 */
  if ( !REF(358).value.boolean ) goto c957;
/* chs_lit 359 , " codegen" */
  if( !chs_lit(DEF(359)," codegen") ) goto ch_depletion;
  current->ip = 178;
cb777:
/* call 118 359 , 38 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(118),
          arguments[1] = DEF(359),
          arguments[1+1] = nil,& arguments[0]),QUAL(38),sched)) != Normal)
     goto ch_raise_exception;
  return;
c778:
/* notequal . 52 51 , 785 */
  if ( !eq_outport(REF(52).value,REF(51).value) ) goto c785;
/* chs_lit 360 , "codegen" */
  if( !chs_lit(DEF(360),"codegen") ) goto ch_depletion;
  current->ip = 180;
cb781:
/* call 16.1 360 361 , 20 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(16)DOT(1),
          arguments[1] = DEF(360),
          arguments[2] = DEF(361),
          arguments[2+1] = nil,& arguments[0]),QUAL(20),sched)) != Normal)
     goto ch_raise_exception;
  return;
c782:
/* procedure 362 361 , 62 */
  if ((ch_returncode = che_procedure(DEF(362),DEF(361),QUAL(62)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 361 */
  (*(REF(361).tsdr)->finalize)(REF(361).value,F_DISCARD,sched);
  REF(361).tsdr = & dr_bottom;
/* move 52 362 */
  (*(REF(52).tsdr)->finalize)(REF(52).value,F_DISCARD,sched);
  REF(52) = REF(362);
  REF(362).tsdr = & dr_bottom;
c785:
/* discard 360 */
  (*(REF(360).tsdr)->finalize)(REF(360).value,F_DISCARD,sched);
  REF(360).tsdr = & dr_bottom;
/* new_table 363 , 26 */
  if ((ch_returncode = che_new_table(DEF(363),QUAL(26),sched)) != Normal) 
     goto ch_raise_exception;
/* new_record 364 , 2 */
  if ((ch_val.record = new_record(2)) == nil) goto ch_depletion;
  (*(REF(364).tsdr)->finalize)(REF(364).value,F_DISCARD,sched);
  REF(364).value = ch_val; REF(364).tsdr = & dr_record;
/* chs_lit 364.0 , "Module Name" */
  if( !chs_lit(DEF(364)DOT(0),"Module Name") ) goto ch_depletion;
/* copy 365 179 */
  if((ch_returncode = cp_table(& ch_val, REF(179).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(365).tsdr)->finalize)(REF(365).value,F_DISCARD,sched);
  REF(365).value = ch_val;
  REF(365).tsdr = & dr_table;
/* wrap 364.1 365 , 30 */
  if ((ch_returncode = che_wrap(DEF(364)DOT(1),DEF(365),QUAL(30)
    ,sched)) != Normal) goto ch_raise_exception;
/* insert 363 364 */
  if ((ch_returncode = insertfunc(DEF(363),DEF(364),FALSE,0)) != Normal)
     goto ch_raise_exception;
/* new_record 364 , 2 */
  if ((ch_val.record = new_record(2)) == nil) goto ch_depletion;
  (*(REF(364).tsdr)->finalize)(REF(364).value,F_DISCARD,sched);
  REF(364).value = ch_val; REF(364).tsdr = & dr_record;
/* chs_lit 364.0 , "Inferred Definitions" */
  if( !chs_lit(DEF(364)DOT(0),"Inferred Definitions") ) goto ch_depletion;
/* copy 366 180 */
  if((ch_returncode = cp_table(& ch_val, REF(180).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(366).tsdr)->finalize)(REF(366).value,F_DISCARD,sched);
  REF(366).value = ch_val;
  REF(366).tsdr = & dr_table;
/* wrap 364.1 366 , 63 */
  if ((ch_returncode = che_wrap(DEF(364)DOT(1),DEF(366),QUAL(63)
    ,sched)) != Normal) goto ch_raise_exception;
/* insert 363 364 */
  if ((ch_returncode = insertfunc(DEF(363),DEF(364),FALSE,0)) != Normal)
     goto ch_raise_exception;
/* new_record 364 , 2 */
  if ((ch_val.record = new_record(2)) == nil) goto ch_depletion;
  (*(REF(364).tsdr)->finalize)(REF(364).value,F_DISCARD,sched);
  REF(364).value = ch_val; REF(364).tsdr = & dr_record;
/* chs_lit 364.0 , "Coercions" */
  if( !chs_lit(DEF(364)DOT(0),"Coercions") ) goto ch_depletion;
/* wrap 364.1 333 , 64 */
  if ((ch_returncode = che_wrap(DEF(364)DOT(1),DEF(333),QUAL(64)
    ,sched)) != Normal) goto ch_raise_exception;
/* insert 363 364 */
  if ((ch_returncode = insertfunc(DEF(363),DEF(364),FALSE,0)) != Normal)
     goto ch_raise_exception;
/* new_record 364 , 2 */
  if ((ch_val.record = new_record(2)) == nil) goto ch_depletion;
  (*(REF(364).tsdr)->finalize)(REF(364).value,F_DISCARD,sched);
  REF(364).value = ch_val; REF(364).tsdr = & dr_record;
/* chs_lit 364.0 , "Process Print Map" */
  if( !chs_lit(DEF(364)DOT(0),"Process Print Map") ) goto ch_depletion;
/* copy 367 232 */
  if((ch_returncode = cp_table(& ch_val, REF(232).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(367).tsdr)->finalize)(REF(367).value,F_DISCARD,sched);
  REF(367).value = ch_val;
  REF(367).tsdr = & dr_table;
/* wrap 364.1 367 , 65 */
  if ((ch_returncode = che_wrap(DEF(364)DOT(1),DEF(367),QUAL(65)
    ,sched)) != Normal) goto ch_raise_exception;
/* insert 363 364 */
  if ((ch_returncode = insertfunc(DEF(363),DEF(364),FALSE,0)) != Normal)
     goto ch_raise_exception;
/* new_record 364 , 2 */
  if ((ch_val.record = new_record(2)) == nil) goto ch_depletion;
  (*(REF(364).tsdr)->finalize)(REF(364).value,F_DISCARD,sched);
  REF(364).value = ch_val; REF(364).tsdr = & dr_record;
/* chs_lit 364.0 , "Definitions Print Map" */
  if( !chs_lit(DEF(364)DOT(0),"Definitions Print Map") ) goto ch_depletion;
/* copy 368 231 */
  if((ch_returncode = cp_table(& ch_val, REF(231).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(368).tsdr)->finalize)(REF(368).value,F_DISCARD,sched);
  REF(368).value = ch_val;
  REF(368).tsdr = & dr_table;
/* wrap 364.1 368 , 66 */
  if ((ch_returncode = che_wrap(DEF(364)DOT(1),DEF(368),QUAL(66)
    ,sched)) != Normal) goto ch_raise_exception;
/* insert 363 364 */
  if ((ch_returncode = insertfunc(DEF(363),DEF(364),FALSE,0)) != Normal)
     goto ch_raise_exception;
/* new_record 364 , 2 */
  if ((ch_val.record = new_record(2)) == nil) goto ch_depletion;
  (*(REF(364).tsdr)->finalize)(REF(364).value,F_DISCARD,sched);
  REF(364).value = ch_val; REF(364).tsdr = & dr_record;
/* chs_lit 364.0 , "Position Map" */
  if( !chs_lit(DEF(364)DOT(0),"Position Map") ) goto ch_depletion;
/* copy 369 233 */
  if((ch_returncode = cp_table(& ch_val, REF(233).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(369).tsdr)->finalize)(REF(369).value,F_DISCARD,sched);
  REF(369).value = ch_val;
  REF(369).tsdr = & dr_table;
/* wrap 364.1 369 , 67 */
  if ((ch_returncode = che_wrap(DEF(364)DOT(1),DEF(369),QUAL(67)
    ,sched)) != Normal) goto ch_raise_exception;
/* insert 363 364 */
  if ((ch_returncode = insertfunc(DEF(363),DEF(364),FALSE,0)) != Normal)
     goto ch_raise_exception;
  current->ip = 183;
cb822:
/* call 52 229 363 119 16.1 16.3 370 , 68 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(52),
          arguments[1] = DEF(229),
          arguments[2] = DEF(363),
          arguments[3] = DEF(119),
          arguments[4] = DEF(16)DOT(1),
          arguments[5] = DEF(16)DOT(3),
          arguments[6] = DEF(370),
          arguments[6+1] = nil,& arguments[0]),QUAL(68),sched)) != Normal)
     goto ch_raise_exception;
  return;
c823:
/* noop */
  
/* copy 371 229.2 */
  if((ch_returncode = cp_table(& ch_val, REF(229)DOT(2).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(371).tsdr)->finalize)(REF(371).value,F_DISCARD,sched);
  REF(371).value = ch_val;
  REF(371).tsdr = & dr_table;
/* initget 372 371 , 0,0 */
  (*(REF(372).tsdr)->finalize)(REF(372).value,F_DISCARD,sched);
  if ((ch_returncode = init_selector(DEF(372),DEF(371),nil,sched,GET,0,0
    )) != Normal) goto ch_raise_exception;
c826:
/* get_or_goto 372 371 , 853 */
  if ((ch_returncode = get_selected_object(DEF(372),DEF(371)
    ,sched)) != Normal) goto c853;
/* boolean 373 , FALSE */
  REF(373).value.boolean = FALSE;
  REF(373).tsdr = & dr_boolean;
/* find_or_goto 374 286 372.0 , 0,830 */
  if (findfunc(DEF(374),DEF(286),(
          arguments[0] = DEF(372)DOT(0),& arguments[0]),sched,0) == FAILURE)
             goto c830;
/* boolean 373 , TRUE */
  REF(373).value.boolean = TRUE;
  REF(373).tsdr = & dr_boolean;
c830:
/* not 375 373 */
  REF(375).value.boolean = !REF(373).value.boolean;
  REF(375).tsdr = & dr_boolean;
/* branch_false 375 , 826 */
  if ( !REF(375).value.boolean ) goto c826;
/* block , 69 */
  if((ch_returncode = che_block(QUAL(69),sched)) != Normal)
     goto ch_raise_exception;
  current->ip = 186;
cb833:
/* call 370 372 376 278 , 70 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(370),
          arguments[1] = DEF(372),
          arguments[2] = DEF(376),
          arguments[3] = DEF(278),
          arguments[3+1] = nil,& arguments[0]),QUAL(70),sched)) != Normal)
     goto ch_raise_exception;
  return;
c834:
/* new_record 377 , 2 */
  if ((ch_val.record = new_record(2)) == nil) goto ch_depletion;
  (*(REF(377).tsdr)->finalize)(REF(377).value,F_DISCARD,sched);
  REF(377).value = ch_val; REF(377).tsdr = & dr_record;
/* copy 377.0 372.0 */
  if((ch_returncode = (REF(372)DOT(0).tsdr->copy)(& ch_val, 
    REF(372)DOT(0).value)) != Normal) goto ch_raise_exception;
  (*(REF(377)DOT(0).tsdr)->finalize)(REF(377)DOT(0).value,F_DISCARD,sched);
  REF(377)DOT(0).value = ch_val;
  REF(377)DOT(0).tsdr = datarepmap[REF(372)DOT(0).tsdr->number];
/* copy 377.1 376 */
  if((ch_returncode = (REF(376).tsdr->copy)(& ch_val, REF(376).value
    )) != Normal) goto ch_raise_exception;
  (*(REF(377)DOT(1).tsdr)->finalize)(REF(377)DOT(1).value,F_DISCARD,sched);
  REF(377)DOT(1).value = ch_val;
  REF(377)DOT(1).tsdr = datarepmap[REF(376).tsdr->number];
/* insert 286 377 */
  if ((ch_returncode = insertfunc(DEF(286),DEF(377),FALSE,0)) != Normal)
     goto ch_raise_exception;
/* endblock */
  che_endblock(sched);
/* branch , 850 */
   goto c850;
c840:
/* copy 378 278 */
  if((ch_returncode = cp_table(& ch_val, REF(278).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(378).tsdr)->finalize)(REF(378).value,F_DISCARD,sched);
  REF(378).value = ch_val;
  REF(378).tsdr = & dr_table;
/* initget 379 378 , 0,0 */
  (*(REF(379).tsdr)->finalize)(REF(379).value,F_DISCARD,sched);
  if ((ch_returncode = init_selector(DEF(379),DEF(378),nil,sched,GET,0,0
    )) != Normal) goto ch_raise_exception;
c842:
/* get_or_goto 379 378 , 848 */
  if ((ch_returncode = get_selected_object(DEF(379),DEF(378)
    ,sched)) != Normal) goto c848;
/* new_record 380 , 2 */
  if ((ch_val.record = new_record(2)) == nil) goto ch_depletion;
  (*(REF(380).tsdr)->finalize)(REF(380).value,F_DISCARD,sched);
  REF(380).value = ch_val; REF(380).tsdr = & dr_record;
/* copy 380.0 372.0 */
  if((ch_returncode = (REF(372)DOT(0).tsdr->copy)(& ch_val, 
    REF(372)DOT(0).value)) != Normal) goto ch_raise_exception;
  (*(REF(380)DOT(0).tsdr)->finalize)(REF(380)DOT(0).value,F_DISCARD,sched);
  REF(380)DOT(0).value = ch_val;
  REF(380)DOT(0).tsdr = datarepmap[REF(372)DOT(0).tsdr->number];
/* copy 380.1 379 */
  if((ch_returncode = (REF(379).tsdr->copy)(& ch_val, REF(379).value
    )) != Normal) goto ch_raise_exception;
  (*(REF(380)DOT(1).tsdr)->finalize)(REF(380)DOT(1).value,F_DISCARD,sched);
  REF(380)DOT(1).value = ch_val;
  REF(380)DOT(1).tsdr = datarepmap[REF(379).tsdr->number];
/* insert 308 380 */
  if ((ch_returncode = insertfunc(DEF(308),DEF(380),FALSE,0)) != Normal)
     goto ch_raise_exception;
/* branch , 842 */
   goto c842;
c848:
/* endget 379 378 */
  end_selector(DEF(379),DEF(378),sched,GET);
/* discard 378 */
  (*(REF(378).tsdr)->finalize)(REF(378).value,F_DISCARD,sched);
  REF(378).tsdr = & dr_bottom;
c850:
/* discard 278 */
  (*(REF(278).tsdr)->finalize)(REF(278).value,F_DISCARD,sched);
  REF(278).tsdr = & dr_bottom;
/* discard 376 */
  (*(REF(376).tsdr)->finalize)(REF(376).value,F_DISCARD,sched);
  REF(376).tsdr = & dr_bottom;
/* branch , 826 */
   goto c826;
c853:
/* endget 372 371 */
  end_selector(DEF(372),DEF(371),sched,GET);
/* discard 371 */
  (*(REF(371).tsdr)->finalize)(REF(371).value,F_DISCARD,sched);
  REF(371).tsdr = & dr_bottom;
/* size 381 308 */
  REF(381).value.integer = REF(308).value.table->size;
  REF(381).tsdr = & dr_integer;
/* equal . 381 =(0) , 861 */
  if ( REF(381).value.integer == 0 ) goto c861;
/* exit , 58 */
  ch_e = handler_type__exit; ch_val = QUAL(58); goto ch_exception;
c861:
  current->ip = 192;
cb861:
/* call 55 229 286 , 71 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(55),
          arguments[1] = DEF(229),
          arguments[2] = DEF(286),
          arguments[2+1] = nil,& arguments[0]),QUAL(71),sched)) != Normal)
     goto ch_raise_exception;
  return;
c862:
/* boolean 382 , FALSE */
  REF(382).value.boolean = FALSE;
  REF(382).tsdr = & dr_boolean;
/* chs_lit 383 , "noobject" */
  if( !chs_lit(DEF(383),"noobject") ) goto ch_depletion;
/* find_or_goto 384 119 383 , 0,866 */
  if (findfunc(DEF(384),DEF(119),(
          arguments[0] = DEF(383),& arguments[0]),sched,0) == FAILURE) goto c866;
/* boolean 382 , TRUE */
  REF(382).value.boolean = TRUE;
  REF(382).tsdr = & dr_boolean;
c866:
/* not 385 382 */
  REF(385).value.boolean = !REF(382).value.boolean;
  REF(385).tsdr = & dr_boolean;
/* branch_false 385 , 955 */
  if ( !REF(385).value.boolean ) goto c955;
/* chs_lit 386 , " store[" */
  if( !chs_lit(DEF(386)," store[") ) goto ch_depletion;
/* chs_lit 387 , ".po]" */
  if( !chs_lit(DEF(387),".po]") ) goto ch_depletion;
/* concat 388 179 387 */
  if ((ch_returncode = che_concat(DEF(388),DEF(179),DEF(387)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 387 */
  (*(REF(387).tsdr)->finalize)(REF(387).value,F_DISCARD,sched);
  REF(387).tsdr = & dr_bottom;
/* concat 389 386 388 */
  if ((ch_returncode = che_concat(DEF(389),DEF(386),DEF(388)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 386 */
  (*(REF(386).tsdr)->finalize)(REF(386).value,F_DISCARD,sched);
  REF(386).tsdr = & dr_bottom;
/* discard 388 */
  (*(REF(388).tsdr)->finalize)(REF(388).value,F_DISCARD,sched);
  REF(388).tsdr = & dr_bottom;
  current->ip = 194;
cb875:
/* call 118 389 , 38 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(118),
          arguments[1] = DEF(389),
          arguments[1+1] = nil,& arguments[0]),QUAL(38),sched)) != Normal)
     goto ch_raise_exception;
  return;
c876:
/* block , 72 */
  if((ch_returncode = che_block(QUAL(72),sched)) != Normal)
     goto ch_raise_exception;
/* copy 390 229 */
  if((ch_returncode = (REF(229).tsdr->copy)(& ch_val, REF(229).value
    )) != Normal) goto ch_raise_exception;
  (*(REF(390).tsdr)->finalize)(REF(390).value,F_DISCARD,sched);
  REF(390).value = ch_val;
  REF(390).tsdr = datarepmap[REF(229).tsdr->number];
/* boolean 391 , FALSE */
  REF(391).value.boolean = FALSE;
  REF(391).tsdr = & dr_boolean;
/* chs_lit 392 , "strip" */
  if( !chs_lit(DEF(392),"strip") ) goto ch_depletion;
/* find_or_goto 393 119 392 , 0,882 */
  if (findfunc(DEF(393),DEF(119),(
          arguments[0] = DEF(392),& arguments[0]),sched,0) == FAILURE) goto c882;
/* boolean 391 , TRUE */
  REF(391).value.boolean = TRUE;
  REF(391).tsdr = & dr_boolean;
c882:
/* branch_false 391 , 904 */
  if ( !REF(391).value.boolean ) goto c904;
/* new_table 390.2 , 26 */
  if ((ch_returncode = che_new_table(DEF(390)DOT(2),QUAL(26)
    ,sched)) != Normal)  goto ch_raise_exception;
/* boolean 394 , FALSE */
  REF(394).value.boolean = FALSE;
  REF(394).tsdr = & dr_boolean;
/* chs_lit 395 , "keeppredef" */
  if( !chs_lit(DEF(395),"keeppredef") ) goto ch_depletion;
/* find_or_goto 396 119 395 , 0,888 */
  if (findfunc(DEF(396),DEF(119),(
          arguments[0] = DEF(395),& arguments[0]),sched,0) == FAILURE) goto c888;
/* boolean 394 , TRUE */
  REF(394).value.boolean = TRUE;
  REF(394).tsdr = & dr_boolean;
c888:
/* not 397 394 */
  REF(397).value.boolean = !REF(394).value.boolean;
  REF(397).tsdr = & dr_boolean;
/* branch_false 397 , 892 */
  if ( !REF(397).value.boolean ) goto c892;
/* new_table 390.0 , 26 */
  if ((ch_returncode = che_new_table(DEF(390)DOT(0),QUAL(26)
    ,sched)) != Normal)  goto ch_raise_exception;
/* branch , 902 */
   goto c902;
c892:
/* block , 73 */
  if((ch_returncode = che_block(QUAL(73),sched)) != Normal)
     goto ch_raise_exception;
/* typename 398 , 74 */
  if ((ch_returncode = che_typename(DEF(398),QUAL(74),sched)) != Normal) 
     goto ch_raise_exception;
/* privatize 390.0 */
  if (REF(390)DOT(0).value.table->refcount != 1)
    if ((ch_returncode = doCopyOnWrite(DEF(390)DOT(0))) != Normal)
       goto ch_raise_exception;
/* find 399 390.0 398.0 , 0 */
  if (findfunc(DEF(399),DEF(390)DOT(0),(
          arguments[0] = DEF(398)DOT(0),& arguments[0]),sched,0) == FAILURE)
             goto ch_notfound;
/* fremove 400 399 390.0 , 0 */
  if ((ch_returncode = removefunc(DEF(400),DEF(399),DEF(390)DOT(0),sched,0
    ,NO_TBL,(position *) nil)) != Normal) goto ch_raise_exception;
/* new_table 390.0 , 26 */
  if ((ch_returncode = che_new_table(DEF(390)DOT(0),QUAL(26)
    ,sched)) != Normal)  goto ch_raise_exception;
/* insert 390.0 400 */
  if ((ch_returncode = insertfunc(DEF(390)DOT(0),DEF(400),FALSE,0)) != Normal)
     goto ch_raise_exception;
/* endblock */
  che_endblock(sched);
c902:
/* discard 398 */
  (*(REF(398).tsdr)->finalize)(REF(398).value,F_DISCARD,sched);
  REF(398).tsdr = & dr_bottom;
/* branch , 927 */
   goto c927;
c904:
/* boolean 401 , FALSE */
  REF(401).value.boolean = FALSE;
  REF(401).tsdr = & dr_boolean;
/* chs_lit 402 , "stripdefs" */
  if( !chs_lit(DEF(402),"stripdefs") ) goto ch_depletion;
/* find_or_goto 403 119 402 , 0,908 */
  if (findfunc(DEF(403),DEF(119),(
          arguments[0] = DEF(402),& arguments[0]),sched,0) == FAILURE) goto c908;
/* boolean 401 , TRUE */
  REF(401).value.boolean = TRUE;
  REF(401).tsdr = & dr_boolean;
c908:
/* branch_false 401 , 911 */
  if ( !REF(401).value.boolean ) goto c911;
/* new_table 390.0 , 26 */
  if ((ch_returncode = che_new_table(DEF(390)DOT(0),QUAL(26)
    ,sched)) != Normal)  goto ch_raise_exception;
/* branch , 927 */
   goto c927;
c911:
/* boolean 404 , FALSE */
  REF(404).value.boolean = FALSE;
  REF(404).tsdr = & dr_boolean;
/* chs_lit 405 , "keeppredef" */
  if( !chs_lit(DEF(405),"keeppredef") ) goto ch_depletion;
/* find_or_goto 406 119 405 , 0,915 */
  if (findfunc(DEF(406),DEF(119),(
          arguments[0] = DEF(405),& arguments[0]),sched,0) == FAILURE) goto c915;
/* boolean 404 , TRUE */
  REF(404).value.boolean = TRUE;
  REF(404).tsdr = & dr_boolean;
c915:
/* not 407 404 */
  REF(407).value.boolean = !REF(404).value.boolean;
  REF(407).tsdr = & dr_boolean;
/* branch_false 407 , 926 */
  if ( !REF(407).value.boolean ) goto c926;
/* block , 75 */
  if((ch_returncode = che_block(QUAL(75),sched)) != Normal)
     goto ch_raise_exception;
/* typename 408 , 74 */
  if ((ch_returncode = che_typename(DEF(408),QUAL(74),sched)) != Normal) 
     goto ch_raise_exception;
/* privatize 390.0 */
  if (REF(390)DOT(0).value.table->refcount != 1)
    if ((ch_returncode = doCopyOnWrite(DEF(390)DOT(0))) != Normal)
       goto ch_raise_exception;
/* find 409 390.0 408.0 , 0 */
  if (findfunc(DEF(409),DEF(390)DOT(0),(
          arguments[0] = DEF(408)DOT(0),& arguments[0]),sched,0) == FAILURE)
             goto ch_notfound;
/* fremove 410 409 390.0 , 0 */
  if ((ch_returncode = removefunc(DEF(410),DEF(409),DEF(390)DOT(0),sched,0
    ,NO_TBL,(position *) nil)) != Normal) goto ch_raise_exception;
/* discard 410 */
  (*(REF(410).tsdr)->finalize)(REF(410).value,F_DISCARD,sched);
  REF(410).tsdr = & dr_bottom;
/* endblock */
  che_endblock(sched);
c926:
/* discard 408 */
  (*(REF(408).tsdr)->finalize)(REF(408).value,F_DISCARD,sched);
  REF(408).tsdr = & dr_bottom;
c927:
  current->ip = 199;
cb927:
/* call 16.7 179 390 , 76 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(16)DOT(7),
          arguments[1] = DEF(179),
          arguments[2] = DEF(390),
          arguments[2+1] = nil,& arguments[0]),QUAL(76),sched)) != Normal)
     goto ch_raise_exception;
  return;
c928:
/* endblock */
  che_endblock(sched);
/* branch , 955 */
   goto c955;
c930:
/* discard 390 */
  (*(REF(390).tsdr)->finalize)(REF(390).value,F_DISCARD,sched);
  REF(390).tsdr = & dr_bottom;
/* discard 392 */
  (*(REF(392).tsdr)->finalize)(REF(392).value,F_DISCARD,sched);
  REF(392).tsdr = & dr_bottom;
/* discard 395 */
  (*(REF(395).tsdr)->finalize)(REF(395).value,F_DISCARD,sched);
  REF(395).tsdr = & dr_bottom;
/* discard 400 */
  (*(REF(400).tsdr)->finalize)(REF(400).value,F_DISCARD,sched);
  REF(400).tsdr = & dr_bottom;
/* discard 398 */
  (*(REF(398).tsdr)->finalize)(REF(398).value,F_DISCARD,sched);
  REF(398).tsdr = & dr_bottom;
/* discard 402 */
  (*(REF(402).tsdr)->finalize)(REF(402).value,F_DISCARD,sched);
  REF(402).tsdr = & dr_bottom;
/* discard 405 */
  (*(REF(405).tsdr)->finalize)(REF(405).value,F_DISCARD,sched);
  REF(405).tsdr = & dr_bottom;
/* discard 408 */
  (*(REF(408).tsdr)->finalize)(REF(408).value,F_DISCARD,sched);
  REF(408).tsdr = & dr_bottom;
/* chs_lit 411 , "ERRORS" */
  if( !chs_lit(DEF(411),"ERRORS") ) goto ch_depletion;
  current->ip = 202;
cb941:
/* call 117 411 , 38 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(117),
          arguments[1] = DEF(411),
          arguments[1+1] = nil,& arguments[0]),QUAL(38),sched)) != Normal)
     goto ch_raise_exception;
  return;
c942:
/* chs_lit 412 , "Problems writing program object file '" */
  if( !chs_lit(DEF(412),"Problems writing program object file '") )
     goto ch_depletion;
/* chs_lit 413 , ".po" */
  if( !chs_lit(DEF(413),".po") ) goto ch_depletion;
/* concat 414 179 413 */
  if ((ch_returncode = che_concat(DEF(414),DEF(179),DEF(413)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 413 */
  (*(REF(413).tsdr)->finalize)(REF(413).value,F_DISCARD,sched);
  REF(413).tsdr = & dr_bottom;
/* concat 415 412 414 */
  if ((ch_returncode = che_concat(DEF(415),DEF(412),DEF(414)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 412 */
  (*(REF(412).tsdr)->finalize)(REF(412).value,F_DISCARD,sched);
  REF(412).tsdr = & dr_bottom;
/* discard 414 */
  (*(REF(414).tsdr)->finalize)(REF(414).value,F_DISCARD,sched);
  REF(414).tsdr = & dr_bottom;
/* chs_lit 416 , "'" */
  if( !chs_lit(DEF(416),"'") ) goto ch_depletion;
/* concat 417 415 416 */
  if ((ch_returncode = che_concat(DEF(417),DEF(415),DEF(416)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 415 */
  (*(REF(415).tsdr)->finalize)(REF(415).value,F_DISCARD,sched);
  REF(415).tsdr = & dr_bottom;
/* discard 416 */
  (*(REF(416).tsdr)->finalize)(REF(416).value,F_DISCARD,sched);
  REF(416).tsdr = & dr_bottom;
  current->ip = 204;
cb953:
/* call 117 417 , 38 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(117),
          arguments[1] = DEF(417),
          arguments[1+1] = nil,& arguments[0]),QUAL(38),sched)) != Normal)
     goto ch_raise_exception;
  return;
c954:
/* exit , 42 */
  ch_e = handler_type__exit; ch_val = QUAL(42); goto ch_exception;
c955:
/* discard 389 */
  (*(REF(389).tsdr)->finalize)(REF(389).value,F_DISCARD,sched);
  REF(389).tsdr = & dr_bottom;
/* discard 390 */
  (*(REF(390).tsdr)->finalize)(REF(390).value,F_DISCARD,sched);
  REF(390).tsdr = & dr_bottom;
c957:
/* discard 370 */
  (*(REF(370).tsdr)->finalize)(REF(370).value,F_DISCARD,sched);
  REF(370).tsdr = & dr_bottom;
/* discard 286 */
  (*(REF(286).tsdr)->finalize)(REF(286).value,F_DISCARD,sched);
  REF(286).tsdr = & dr_bottom;
/* discard 333 */
  (*(REF(333).tsdr)->finalize)(REF(333).value,F_DISCARD,sched);
  REF(333).tsdr = & dr_bottom;
/* discard 359 */
  (*(REF(359).tsdr)->finalize)(REF(359).value,F_DISCARD,sched);
  REF(359).tsdr = & dr_bottom;
/* discard 363 */
  (*(REF(363).tsdr)->finalize)(REF(363).value,F_DISCARD,sched);
  REF(363).tsdr = & dr_bottom;
/* boolean 418 , FALSE */
  REF(418).value.boolean = FALSE;
  REF(418).tsdr = & dr_boolean;
/* chs_lit 419 , "ligen" */
  if( !chs_lit(DEF(419),"ligen") ) goto ch_depletion;
/* find_or_goto 420 119 419 , 0,966 */
  if (findfunc(DEF(420),DEF(119),(
          arguments[0] = DEF(419),& arguments[0]),sched,0) == FAILURE) goto c966;
/* boolean 418 , TRUE */
  REF(418).value.boolean = TRUE;
  REF(418).tsdr = & dr_boolean;
c966:
/* branch_false 418 , 1023 */
  if ( !REF(418).value.boolean ) goto c1023;
/* chs_lit 421 , " disassemble" */
  if( !chs_lit(DEF(421)," disassemble") ) goto ch_depletion;
  current->ip = 208;
cb968:
/* call 118 421 , 38 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(118),
          arguments[1] = DEF(421),
          arguments[1+1] = nil,& arguments[0]),QUAL(38),sched)) != Normal)
     goto ch_raise_exception;
  return;
c969:
/* notequal . 116 115 , 976 */
  if ( !eq_outport(REF(116).value,REF(115).value) ) goto c976;
/* chs_lit 422 , "disassembler" */
  if( !chs_lit(DEF(422),"disassembler") ) goto ch_depletion;
  current->ip = 210;
cb972:
/* call 16.1 422 423 , 20 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(16)DOT(1),
          arguments[1] = DEF(422),
          arguments[2] = DEF(423),
          arguments[2+1] = nil,& arguments[0]),QUAL(20),sched)) != Normal)
     goto ch_raise_exception;
  return;
c973:
/* procedure 424 423 , 77 */
  if ((ch_returncode = che_procedure(DEF(424),DEF(423),QUAL(77)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 423 */
  (*(REF(423).tsdr)->finalize)(REF(423).value,F_DISCARD,sched);
  REF(423).tsdr = & dr_bottom;
/* move 116 424 */
  (*(REF(116).tsdr)->finalize)(REF(116).value,F_DISCARD,sched);
  REF(116) = REF(424);
  REF(424).tsdr = & dr_bottom;
c976:
/* discard 422 */
  (*(REF(422).tsdr)->finalize)(REF(422).value,F_DISCARD,sched);
  REF(422).tsdr = & dr_bottom;
/* new_record 425 , 3 */
  if ((ch_val.record = new_record(3)) == nil) goto ch_depletion;
  (*(REF(425).tsdr)->finalize)(REF(425).value,F_DISCARD,sched);
  REF(425).value = ch_val; REF(425).tsdr = & dr_record;
/* move 425.0 232 */
  (*(REF(425)DOT(0).tsdr)->finalize)(REF(425)DOT(0).value,F_DISCARD,sched);
  REF(425)DOT(0) = REF(232);
  REF(232).tsdr = & dr_bottom;
/* move 425.1 231 */
  (*(REF(425)DOT(1).tsdr)->finalize)(REF(425)DOT(1).value,F_DISCARD,sched);
  REF(425)DOT(1) = REF(231);
  REF(231).tsdr = & dr_bottom;
/* copy 426 229.1 */
  if((ch_returncode = (REF(229)DOT(1).tsdr->copy)(& ch_val, 
    REF(229)DOT(1).value)) != Normal) goto ch_raise_exception;
  (*(REF(426).tsdr)->finalize)(REF(426).value,F_DISCARD,sched);
  REF(426).value = ch_val;
  REF(426).tsdr = datarepmap[REF(229)DOT(1).tsdr->number];
/* unite 425.2 426 , 0 */
  if ((ch_returncode = che_unite(DEF(425)DOT(2),DEF(426),sched,0)) != Normal)
     goto ch_raise_exception;
/* block , 78 */
  if((ch_returncode = che_block(QUAL(78),sched)) != Normal)
     goto ch_raise_exception;
  current->ip = 213;
cb983:
/* call 58 229 427 , 49 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(58),
          arguments[1] = DEF(229),
          arguments[2] = DEF(427),
          arguments[2+1] = nil,& arguments[0]),QUAL(49),sched)) != Normal)
     goto ch_raise_exception;
  return;
c984:
/* call 116 427 229.1 179 16 425 428 , 79 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(116),
          arguments[1] = DEF(427),
          arguments[2] = DEF(229)DOT(1),
          arguments[3] = DEF(179),
          arguments[4] = DEF(16),
          arguments[5] = DEF(425),
          arguments[6] = DEF(428),
          arguments[6+1] = nil,& arguments[0]),QUAL(79),sched)) != Normal)
     goto ch_raise_exception;
  return;
c985:
/* move 429 428 */
  (*(REF(429).tsdr)->finalize)(REF(429).value,F_DISCARD,sched);
  REF(429) = REF(428);
  REF(428).tsdr = & dr_bottom;
/* endblock */
  che_endblock(sched);
/* branch , 995 */
   goto c995;
c988:
/* discard 427 */
  (*(REF(427).tsdr)->finalize)(REF(427).value,F_DISCARD,sched);
  REF(427).tsdr = & dr_bottom;
/* discard 428 */
  (*(REF(428).tsdr)->finalize)(REF(428).value,F_DISCARD,sched);
  REF(428).tsdr = & dr_bottom;
/* chs_lit 430 , " ERRORS" */
  if( !chs_lit(DEF(430)," ERRORS") ) goto ch_depletion;
  current->ip = 217;
cb991:
/* call 117 430 , 38 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(117),
          arguments[1] = DEF(430),
          arguments[1+1] = nil,& arguments[0]),QUAL(38),sched)) != Normal)
     goto ch_raise_exception;
  return;
c992:
/* chs_lit 431 , "Disassembly failed" */
  if( !chs_lit(DEF(431),"Disassembly failed") ) goto ch_depletion;
  current->ip = 219;
cb993:
/* call 117 431 , 38 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(117),
          arguments[1] = DEF(431),
          arguments[1+1] = nil,& arguments[0]),QUAL(38),sched)) != Normal)
     goto ch_raise_exception;
  return;
c994:
/* exit , 42 */
  ch_e = handler_type__exit; ch_val = QUAL(42); goto ch_exception;
c995:
/* chs_lit 432 , " write[" */
  if( !chs_lit(DEF(432)," write[") ) goto ch_depletion;
/* chs_lit 433 , ".li]" */
  if( !chs_lit(DEF(433),".li]") ) goto ch_depletion;
/* concat 434 179 433 */
  if ((ch_returncode = che_concat(DEF(434),DEF(179),DEF(433)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 433 */
  (*(REF(433).tsdr)->finalize)(REF(433).value,F_DISCARD,sched);
  REF(433).tsdr = & dr_bottom;
/* concat 435 432 434 */
  if ((ch_returncode = che_concat(DEF(435),DEF(432),DEF(434)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 432 */
  (*(REF(432).tsdr)->finalize)(REF(432).value,F_DISCARD,sched);
  REF(432).tsdr = & dr_bottom;
/* discard 434 */
  (*(REF(434).tsdr)->finalize)(REF(434).value,F_DISCARD,sched);
  REF(434).tsdr = & dr_bottom;
  current->ip = 222;
cb1002:
/* call 118 435 , 38 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(118),
          arguments[1] = DEF(435),
          arguments[1+1] = nil,& arguments[0]),QUAL(38),sched)) != Normal)
     goto ch_raise_exception;
  return;
c1003:
/* block , 80 */
  if((ch_returncode = che_block(QUAL(80),sched)) != Normal)
     goto ch_raise_exception;
/* chs_lit 436 , ".li" */
  if( !chs_lit(DEF(436),".li") ) goto ch_depletion;
/* concat 437 179 436 */
  if ((ch_returncode = che_concat(DEF(437),DEF(179),DEF(436)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 436 */
  (*(REF(436).tsdr)->finalize)(REF(436).value,F_DISCARD,sched);
  REF(436).tsdr = & dr_bottom;
/* enum_lit 438 , 1 */
  REF(438).value.enumeration = 1;
  REF(438).tsdr = & dr_enumeration;
  current->ip = 224;
cb1008:
/* call 15.3 437 438 439 , 81 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(15)DOT(3),
          arguments[1] = DEF(437),
          arguments[2] = DEF(438),
          arguments[3] = DEF(439),
          arguments[3+1] = nil,& arguments[0]),QUAL(81),sched)) != Normal)
     goto ch_raise_exception;
  return;
c1009:
c1010:
  current->ip = 226;
cb1010:
/* call 439.7 429 , 38 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(439)DOT(7),
          arguments[1] = DEF(429),
          arguments[1+1] = nil,& arguments[0]),QUAL(38),sched)) != Normal)
     goto ch_raise_exception;
  return;
c1011:
/* call 439.10 , 82 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(439)DOT(10),
          arguments[0+1] = nil,& arguments[0]),QUAL(82),sched)) != Normal)
     goto ch_raise_exception;
  return;
c1012:
/* endblock */
  che_endblock(sched);
/* branch , 1023 */
   goto c1023;
c1014:
/* discard 439 */
  (*(REF(439).tsdr)->finalize)(REF(439).value,F_DISCARD,sched);
  REF(439).tsdr = & dr_bottom;
/* discard 436 */
  (*(REF(436).tsdr)->finalize)(REF(436).value,F_DISCARD,sched);
  REF(436).tsdr = & dr_bottom;
/* discard 437 */
  (*(REF(437).tsdr)->finalize)(REF(437).value,F_DISCARD,sched);
  REF(437).tsdr = & dr_bottom;
/* chs_lit 440 , " ERRORS" */
  if( !chs_lit(DEF(440)," ERRORS") ) goto ch_depletion;
  current->ip = 230;
cb1019:
/* call 117 440 , 38 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(117),
          arguments[1] = DEF(440),
          arguments[1+1] = nil,& arguments[0]),QUAL(38),sched)) != Normal)
     goto ch_raise_exception;
  return;
c1020:
/* chs_lit 441 , "Problems writing LI source file" */
  if( !chs_lit(DEF(441),"Problems writing LI source file") )
     goto ch_depletion;
  current->ip = 232;
cb1021:
/* call 117 441 , 38 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(117),
          arguments[1] = DEF(441),
          arguments[1+1] = nil,& arguments[0]),QUAL(38),sched)) != Normal)
     goto ch_raise_exception;
  return;
c1022:
/* exit , 42 */
  ch_e = handler_type__exit; ch_val = QUAL(42); goto ch_exception;
c1023:
/* discard 231 */
  (*(REF(231).tsdr)->finalize)(REF(231).value,F_DISCARD,sched);
  REF(231).tsdr = & dr_bottom;
/* discard 232 */
  (*(REF(232).tsdr)->finalize)(REF(232).value,F_DISCARD,sched);
  REF(232).tsdr = & dr_bottom;
/* discard 425 */
  (*(REF(425).tsdr)->finalize)(REF(425).value,F_DISCARD,sched);
  REF(425).tsdr = & dr_bottom;
/* discard 429 */
  (*(REF(429).tsdr)->finalize)(REF(429).value,F_DISCARD,sched);
  REF(429).tsdr = & dr_bottom;
/* discard 439 */
  (*(REF(439).tsdr)->finalize)(REF(439).value,F_DISCARD,sched);
  REF(439).tsdr = & dr_bottom;
/* discard 421 */
  (*(REF(421).tsdr)->finalize)(REF(421).value,F_DISCARD,sched);
  REF(421).tsdr = & dr_bottom;
/* discard 435 */
  (*(REF(435).tsdr)->finalize)(REF(435).value,F_DISCARD,sched);
  REF(435).tsdr = & dr_bottom;
/* discard 427 */
  (*(REF(427).tsdr)->finalize)(REF(427).value,F_DISCARD,sched);
  REF(427).tsdr = & dr_bottom;
/* discard 437 */
  (*(REF(437).tsdr)->finalize)(REF(437).value,F_DISCARD,sched);
  REF(437).tsdr = & dr_bottom;
/* chs_lit 442 , "" */
  if( !chs_lit(DEF(442),"") ) goto ch_depletion;
  current->ip = 235;
cb1033:
/* call 117 442 , 38 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(117),
          arguments[1] = DEF(442),
          arguments[1+1] = nil,& arguments[0]),QUAL(38),sched)) != Normal)
     goto ch_raise_exception;
  return;
c1034:
/* endblock */
  che_endblock(sched);
/* branch , 1196 */
   goto c1196;
c1036:
/* discard 308 */
  (*(REF(308).tsdr)->finalize)(REF(308).value,F_DISCARD,sched);
  REF(308).tsdr = & dr_bottom;
/* discard 370 */
  (*(REF(370).tsdr)->finalize)(REF(370).value,F_DISCARD,sched);
  REF(370).tsdr = & dr_bottom;
/* discard 286 */
  (*(REF(286).tsdr)->finalize)(REF(286).value,F_DISCARD,sched);
  REF(286).tsdr = & dr_bottom;
/* discard 229 */
  (*(REF(229).tsdr)->finalize)(REF(229).value,F_DISCARD,sched);
  REF(229).tsdr = & dr_bottom;
/* discard 230 */
  (*(REF(230).tsdr)->finalize)(REF(230).value,F_DISCARD,sched);
  REF(230).tsdr = & dr_bottom;
/* discard 231 */
  (*(REF(231).tsdr)->finalize)(REF(231).value,F_DISCARD,sched);
  REF(231).tsdr = & dr_bottom;
/* discard 232 */
  (*(REF(232).tsdr)->finalize)(REF(232).value,F_DISCARD,sched);
  REF(232).tsdr = & dr_bottom;
/* discard 233 */
  (*(REF(233).tsdr)->finalize)(REF(233).value,F_DISCARD,sched);
  REF(233).tsdr = & dr_bottom;
/* discard 359 */
  (*(REF(359).tsdr)->finalize)(REF(359).value,F_DISCARD,sched);
  REF(359).tsdr = & dr_bottom;
/* discard 234 */
  (*(REF(234).tsdr)->finalize)(REF(234).value,F_DISCARD,sched);
  REF(234).tsdr = & dr_bottom;
/* discard 225 */
  (*(REF(225).tsdr)->finalize)(REF(225).value,F_DISCARD,sched);
  REF(225).tsdr = & dr_bottom;
/* discard 235 */
  (*(REF(235).tsdr)->finalize)(REF(235).value,F_DISCARD,sched);
  REF(235).tsdr = & dr_bottom;
/* discard 239 */
  (*(REF(239).tsdr)->finalize)(REF(239).value,F_DISCARD,sched);
  REF(239).tsdr = & dr_bottom;
/* discard 245 */
  (*(REF(245).tsdr)->finalize)(REF(245).value,F_DISCARD,sched);
  REF(245).tsdr = & dr_bottom;
/* discard 249 */
  (*(REF(249).tsdr)->finalize)(REF(249).value,F_DISCARD,sched);
  REF(249).tsdr = & dr_bottom;
/* discard 240 */
  (*(REF(240).tsdr)->finalize)(REF(240).value,F_DISCARD,sched);
  REF(240).tsdr = & dr_bottom;
/* discard 244 */
  (*(REF(244).tsdr)->finalize)(REF(244).value,F_DISCARD,sched);
  REF(244).tsdr = & dr_bottom;
/* discard 250 */
  (*(REF(250).tsdr)->finalize)(REF(250).value,F_DISCARD,sched);
  REF(250).tsdr = & dr_bottom;
/* discard 254 */
  (*(REF(254).tsdr)->finalize)(REF(254).value,F_DISCARD,sched);
  REF(254).tsdr = & dr_bottom;
/* discard 266 */
  (*(REF(266).tsdr)->finalize)(REF(266).value,F_DISCARD,sched);
  REF(266).tsdr = & dr_bottom;
/* discard 258 */
  (*(REF(258).tsdr)->finalize)(REF(258).value,F_DISCARD,sched);
  REF(258).tsdr = & dr_bottom;
/* discard 272 */
  (*(REF(272).tsdr)->finalize)(REF(272).value,F_DISCARD,sched);
  REF(272).tsdr = & dr_bottom;
/* discard 280 */
  (*(REF(280).tsdr)->finalize)(REF(280).value,F_DISCARD,sched);
  REF(280).tsdr = & dr_bottom;
/* discard 284 */
  (*(REF(284).tsdr)->finalize)(REF(284).value,F_DISCARD,sched);
  REF(284).tsdr = & dr_bottom;
/* discard 295 */
  (*(REF(295).tsdr)->finalize)(REF(295).value,F_DISCARD,sched);
  REF(295).tsdr = & dr_bottom;
/* discard 297 */
  (*(REF(297).tsdr)->finalize)(REF(297).value,F_DISCARD,sched);
  REF(297).tsdr = & dr_bottom;
/* discard 301 */
  (*(REF(301).tsdr)->finalize)(REF(301).value,F_DISCARD,sched);
  REF(301).tsdr = & dr_bottom;
/* discard 363 */
  (*(REF(363).tsdr)->finalize)(REF(363).value,F_DISCARD,sched);
  REF(363).tsdr = & dr_bottom;
/* discard 389 */
  (*(REF(389).tsdr)->finalize)(REF(389).value,F_DISCARD,sched);
  REF(389).tsdr = & dr_bottom;
/* discard 411 */
  (*(REF(411).tsdr)->finalize)(REF(411).value,F_DISCARD,sched);
  REF(411).tsdr = & dr_bottom;
/* discard 417 */
  (*(REF(417).tsdr)->finalize)(REF(417).value,F_DISCARD,sched);
  REF(417).tsdr = & dr_bottom;
/* discard 425 */
  (*(REF(425).tsdr)->finalize)(REF(425).value,F_DISCARD,sched);
  REF(425).tsdr = & dr_bottom;
/* discard 429 */
  (*(REF(429).tsdr)->finalize)(REF(429).value,F_DISCARD,sched);
  REF(429).tsdr = & dr_bottom;
/* discard 421 */
  (*(REF(421).tsdr)->finalize)(REF(421).value,F_DISCARD,sched);
  REF(421).tsdr = & dr_bottom;
/* discard 435 */
  (*(REF(435).tsdr)->finalize)(REF(435).value,F_DISCARD,sched);
  REF(435).tsdr = & dr_bottom;
/* discard 427 */
  (*(REF(427).tsdr)->finalize)(REF(427).value,F_DISCARD,sched);
  REF(427).tsdr = & dr_bottom;
/* discard 430 */
  (*(REF(430).tsdr)->finalize)(REF(430).value,F_DISCARD,sched);
  REF(430).tsdr = & dr_bottom;
/* discard 431 */
  (*(REF(431).tsdr)->finalize)(REF(431).value,F_DISCARD,sched);
  REF(431).tsdr = & dr_bottom;
/* discard 440 */
  (*(REF(440).tsdr)->finalize)(REF(440).value,F_DISCARD,sched);
  REF(440).tsdr = & dr_bottom;
/* discard 441 */
  (*(REF(441).tsdr)->finalize)(REF(441).value,F_DISCARD,sched);
  REF(441).tsdr = & dr_bottom;
/* chs_lit 443 , "Suppressing further processing for module '" */
  if( !chs_lit(DEF(443),"Suppressing further processing for module '") )
     goto ch_depletion;
/* concat 444 443 179 */
  if ((ch_returncode = che_concat(DEF(444),DEF(443),DEF(179)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 443 */
  (*(REF(443).tsdr)->finalize)(REF(443).value,F_DISCARD,sched);
  REF(443).tsdr = & dr_bottom;
/* chs_lit 445 , "'." */
  if( !chs_lit(DEF(445),"'.") ) goto ch_depletion;
/* concat 446 444 445 */
  if ((ch_returncode = che_concat(DEF(446),DEF(444),DEF(445)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 444 */
  (*(REF(444).tsdr)->finalize)(REF(444).value,F_DISCARD,sched);
  REF(444).tsdr = & dr_bottom;
/* discard 445 */
  (*(REF(445).tsdr)->finalize)(REF(445).value,F_DISCARD,sched);
  REF(445).tsdr = & dr_bottom;
  current->ip = 238;
cb1083:
/* call 117 446 , 38 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(117),
          arguments[1] = DEF(446),
          arguments[1+1] = nil,& arguments[0]),QUAL(38),sched)) != Normal)
     goto ch_raise_exception;
  return;
c1085:
/* discard 274 */
  (*(REF(274).tsdr)->finalize)(REF(274).value,F_DISCARD,sched);
  REF(274).tsdr = & dr_bottom;
/* discard 277 */
  (*(REF(277).tsdr)->finalize)(REF(277).value,F_DISCARD,sched);
  REF(277).tsdr = & dr_bottom;
/* discard 266 */
  (*(REF(266).tsdr)->finalize)(REF(266).value,F_DISCARD,sched);
  REF(266).tsdr = & dr_bottom;
/* discard 258 */
  (*(REF(258).tsdr)->finalize)(REF(258).value,F_DISCARD,sched);
  REF(258).tsdr = & dr_bottom;
/* discard 272 */
  (*(REF(272).tsdr)->finalize)(REF(272).value,F_DISCARD,sched);
  REF(272).tsdr = & dr_bottom;
/* discard 276 */
  (*(REF(276).tsdr)->finalize)(REF(276).value,F_DISCARD,sched);
  REF(276).tsdr = & dr_bottom;
/* chs_lit 447 , " ERRORS" */
  if( !chs_lit(DEF(447)," ERRORS") ) goto ch_depletion;
  current->ip = 241;
cb1092:
/* call 117 447 , 38 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(117),
          arguments[1] = DEF(447),
          arguments[1+1] = nil,& arguments[0]),QUAL(38),sched)) != Normal)
     goto ch_raise_exception;
  return;
c1093:
/* notequal . 99 98 , 1110 */
  if ( !eq_outport(REF(99).value,REF(98).value) ) goto c1110;
/* chs_lit 448 , "formaterror" */
  if( !chs_lit(DEF(448),"formaterror") ) goto ch_depletion;
  current->ip = 243;
cb1096:
/* call 16.1 448 449 , 20 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(16)DOT(1),
          arguments[1] = DEF(448),
          arguments[2] = DEF(449),
          arguments[2+1] = nil,& arguments[0]),QUAL(20),sched)) != Normal)
     goto ch_raise_exception;
  return;
c1097:
/* procedure 450 449 , 83 */
  if ((ch_returncode = che_procedure(DEF(450),DEF(449),QUAL(83)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 449 */
  (*(REF(449).tsdr)->finalize)(REF(449).value,F_DISCARD,sched);
  REF(449).tsdr = & dr_bottom;
/* move 99 450 */
  (*(REF(99).tsdr)->finalize)(REF(99).value,F_DISCARD,sched);
  REF(99) = REF(450);
  REF(450).tsdr = & dr_bottom;
/* chs_lit 451 , "sorterrors" */
  if( !chs_lit(DEF(451),"sorterrors") ) goto ch_depletion;
  current->ip = 245;
cb1101:
/* call 16.1 451 452 , 20 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(16)DOT(1),
          arguments[1] = DEF(451),
          arguments[2] = DEF(452),
          arguments[2+1] = nil,& arguments[0]),QUAL(20),sched)) != Normal)
     goto ch_raise_exception;
  return;
c1102:
/* procedure 453 452 , 84 */
  if ((ch_returncode = che_procedure(DEF(453),DEF(452),QUAL(84)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 452 */
  (*(REF(452).tsdr)->finalize)(REF(452).value,F_DISCARD,sched);
  REF(452).tsdr = & dr_bottom;
/* move 101 453 */
  (*(REF(101).tsdr)->finalize)(REF(101).value,F_DISCARD,sched);
  REF(101) = REF(453);
  REF(453).tsdr = & dr_bottom;
/* chs_lit 454 , "sortprocerrors" */
  if( !chs_lit(DEF(454),"sortprocerrors") ) goto ch_depletion;
  current->ip = 247;
cb1106:
/* call 16.1 454 455 , 20 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(16)DOT(1),
          arguments[1] = DEF(454),
          arguments[2] = DEF(455),
          arguments[2+1] = nil,& arguments[0]),QUAL(20),sched)) != Normal)
     goto ch_raise_exception;
  return;
c1107:
/* procedure 456 455 , 85 */
  if ((ch_returncode = che_procedure(DEF(456),DEF(455),QUAL(85)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 455 */
  (*(REF(455).tsdr)->finalize)(REF(455).value,F_DISCARD,sched);
  REF(455).tsdr = & dr_bottom;
/* move 103 456 */
  (*(REF(103).tsdr)->finalize)(REF(103).value,F_DISCARD,sched);
  REF(103) = REF(456);
  REF(456).tsdr = & dr_bottom;
c1110:
/* discard 448 */
  (*(REF(448).tsdr)->finalize)(REF(448).value,F_DISCARD,sched);
  REF(448).tsdr = & dr_bottom;
/* discard 451 */
  (*(REF(451).tsdr)->finalize)(REF(451).value,F_DISCARD,sched);
  REF(451).tsdr = & dr_bottom;
/* discard 454 */
  (*(REF(454).tsdr)->finalize)(REF(454).value,F_DISCARD,sched);
  REF(454).tsdr = & dr_bottom;
/* new_table 457 , 26 */
  if ((ch_returncode = che_new_table(DEF(457),QUAL(26),sched)) != Normal) 
     goto ch_raise_exception;
/* new_table 458 , 26 */
  if ((ch_returncode = che_new_table(DEF(458),QUAL(26),sched)) != Normal) 
     goto ch_raise_exception;
/* new_table 231 , 26 */
  if ((ch_returncode = che_new_table(DEF(231),QUAL(26),sched)) != Normal) 
     goto ch_raise_exception;
/* new_record 459 , 4 */
  if ((ch_val.record = new_record(4)) == nil) goto ch_depletion;
  (*(REF(459).tsdr)->finalize)(REF(459).value,F_DISCARD,sched);
  REF(459).value = ch_val; REF(459).tsdr = & dr_record;
/* unique 460 */
  if ((ch_returncode = che_unique(DEF(460),sched)) != Normal)
     goto ch_raise_exception;
/* unite 459.0 460 , 0 */
  if ((ch_returncode = che_unite(DEF(459)DOT(0),DEF(460),sched,0)) != Normal)
     goto ch_raise_exception;
/* new_table 459.1 , 28 */
  if ((ch_returncode = che_new_table(DEF(459)DOT(1),QUAL(28)
    ,sched)) != Normal)  goto ch_raise_exception;
/* new_table 459.2 , 86 */
  if ((ch_returncode = che_new_table(DEF(459)DOT(2),QUAL(86)
    ,sched)) != Normal)  goto ch_raise_exception;
/* new_table 459.3 , 87 */
  if ((ch_returncode = che_new_table(DEF(459)DOT(3),QUAL(87)
    ,sched)) != Normal)  goto ch_raise_exception;
/* new_table 461 , 26 */
  if ((ch_returncode = che_new_table(DEF(461),QUAL(26),sched)) != Normal) 
     goto ch_raise_exception;
  current->ip = 250;
cb1123:
/* call 101 278 , 88 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(101),
          arguments[1] = DEF(278),
          arguments[1+1] = nil,& arguments[0]),QUAL(88),sched)) != Normal)
     goto ch_raise_exception;
  return;
c1124:
/* copy 462 278 */
  if((ch_returncode = cp_table(& ch_val, REF(278).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(462).tsdr)->finalize)(REF(462).value,F_DISCARD,sched);
  REF(462).value = ch_val;
  REF(462).tsdr = & dr_table;
/* initget 463 462 , 0,0 */
  (*(REF(463).tsdr)->finalize)(REF(463).value,F_DISCARD,sched);
  if ((ch_returncode = init_selector(DEF(463),DEF(462),nil,sched,GET,0,0
    )) != Normal) goto ch_raise_exception;
c1131:
c1126:
/* get_or_goto 463 462 , 1132 */
  if ((ch_returncode = get_selected_object(DEF(463),DEF(462)
    ,sched)) != Normal) goto c1132;
/* discard 464 */
  (*(REF(464).tsdr)->finalize)(REF(464).value,F_DISCARD,sched);
  REF(464).tsdr = & dr_bottom;
  current->ip = 253;
cb1128:
/* call 99 463 457 180 458 231 459 461 16.1 465 , 89 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(99),
          arguments[1] = DEF(463),
          arguments[2] = DEF(457),
          arguments[3] = DEF(180),
          arguments[4] = DEF(458),
          arguments[5] = DEF(231),
          arguments[6] = DEF(459),
          arguments[7] = DEF(461),
          arguments[8] = DEF(16)DOT(1),
          arguments[9] = DEF(465),
          arguments[9+1] = nil,& arguments[0]),QUAL(89),sched)) != Normal)
     goto ch_raise_exception;
  return;
c1129:
/* move 464 465 */
  (*(REF(464).tsdr)->finalize)(REF(464).value,F_DISCARD,sched);
  REF(464) = REF(465);
  REF(465).tsdr = & dr_bottom;
  current->ip = 255;
cb1130:
/* call 117 464 , 38 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(117),
          arguments[1] = DEF(464),
          arguments[1+1] = nil,& arguments[0]),QUAL(38),sched)) != Normal)
     goto ch_raise_exception;
  return;
c1132:
/* endget 463 462 */
  end_selector(DEF(463),DEF(462),sched,GET);
/* discard 462 */
  (*(REF(462).tsdr)->finalize)(REF(462).value,F_DISCARD,sched);
  REF(462).tsdr = & dr_bottom;
/* chs_lit 466 , "Suppressing further processing for module '" */
  if( !chs_lit(DEF(466),"Suppressing further processing for module '") )
     goto ch_depletion;
/* concat 467 466 179 */
  if ((ch_returncode = che_concat(DEF(467),DEF(466),DEF(179)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 466 */
  (*(REF(466).tsdr)->finalize)(REF(466).value,F_DISCARD,sched);
  REF(466).tsdr = & dr_bottom;
/* chs_lit 468 , "'." */
  if( !chs_lit(DEF(468),"'.") ) goto ch_depletion;
/* concat 469 467 468 */
  if ((ch_returncode = che_concat(DEF(469),DEF(467),DEF(468)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 467 */
  (*(REF(467).tsdr)->finalize)(REF(467).value,F_DISCARD,sched);
  REF(467).tsdr = & dr_bottom;
/* discard 468 */
  (*(REF(468).tsdr)->finalize)(REF(468).value,F_DISCARD,sched);
  REF(468).tsdr = & dr_bottom;
  current->ip = 258;
cb1141:
/* call 117 469 , 38 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(117),
          arguments[1] = DEF(469),
          arguments[1+1] = nil,& arguments[0]),QUAL(38),sched)) != Normal)
     goto ch_raise_exception;
  return;
c1143:
/* discard 370 */
  (*(REF(370).tsdr)->finalize)(REF(370).value,F_DISCARD,sched);
  REF(370).tsdr = & dr_bottom;
/* discard 333 */
  (*(REF(333).tsdr)->finalize)(REF(333).value,F_DISCARD,sched);
  REF(333).tsdr = & dr_bottom;
/* discard 313 */
  (*(REF(313).tsdr)->finalize)(REF(313).value,F_DISCARD,sched);
  REF(313).tsdr = & dr_bottom;
/* discard 334 */
  (*(REF(334).tsdr)->finalize)(REF(334).value,F_DISCARD,sched);
  REF(334).tsdr = & dr_bottom;
/* discard 359 */
  (*(REF(359).tsdr)->finalize)(REF(359).value,F_DISCARD,sched);
  REF(359).tsdr = & dr_bottom;
/* discard 363 */
  (*(REF(363).tsdr)->finalize)(REF(363).value,F_DISCARD,sched);
  REF(363).tsdr = & dr_bottom;
/* chs_lit 470 , " ERRORS" */
  if( !chs_lit(DEF(470)," ERRORS") ) goto ch_depletion;
  current->ip = 261;
cb1150:
/* call 117 470 , 38 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(117),
          arguments[1] = DEF(470),
          arguments[1+1] = nil,& arguments[0]),QUAL(38),sched)) != Normal)
     goto ch_raise_exception;
  return;
c1151:
/* notequal . 99 98 , 1168 */
  if ( !eq_outport(REF(99).value,REF(98).value) ) goto c1168;
/* chs_lit 471 , "formaterror" */
  if( !chs_lit(DEF(471),"formaterror") ) goto ch_depletion;
  current->ip = 263;
cb1154:
/* call 16.1 471 472 , 20 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(16)DOT(1),
          arguments[1] = DEF(471),
          arguments[2] = DEF(472),
          arguments[2+1] = nil,& arguments[0]),QUAL(20),sched)) != Normal)
     goto ch_raise_exception;
  return;
c1155:
/* procedure 473 472 , 83 */
  if ((ch_returncode = che_procedure(DEF(473),DEF(472),QUAL(83)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 472 */
  (*(REF(472).tsdr)->finalize)(REF(472).value,F_DISCARD,sched);
  REF(472).tsdr = & dr_bottom;
/* move 99 473 */
  (*(REF(99).tsdr)->finalize)(REF(99).value,F_DISCARD,sched);
  REF(99) = REF(473);
  REF(473).tsdr = & dr_bottom;
/* chs_lit 474 , "sorterrors" */
  if( !chs_lit(DEF(474),"sorterrors") ) goto ch_depletion;
  current->ip = 265;
cb1159:
/* call 16.1 474 475 , 20 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(16)DOT(1),
          arguments[1] = DEF(474),
          arguments[2] = DEF(475),
          arguments[2+1] = nil,& arguments[0]),QUAL(20),sched)) != Normal)
     goto ch_raise_exception;
  return;
c1160:
/* procedure 476 475 , 84 */
  if ((ch_returncode = che_procedure(DEF(476),DEF(475),QUAL(84)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 475 */
  (*(REF(475).tsdr)->finalize)(REF(475).value,F_DISCARD,sched);
  REF(475).tsdr = & dr_bottom;
/* move 101 476 */
  (*(REF(101).tsdr)->finalize)(REF(101).value,F_DISCARD,sched);
  REF(101) = REF(476);
  REF(476).tsdr = & dr_bottom;
/* chs_lit 477 , "sortprocerrors" */
  if( !chs_lit(DEF(477),"sortprocerrors") ) goto ch_depletion;
  current->ip = 267;
cb1164:
/* call 16.1 477 478 , 20 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(16)DOT(1),
          arguments[1] = DEF(477),
          arguments[2] = DEF(478),
          arguments[2+1] = nil,& arguments[0]),QUAL(20),sched)) != Normal)
     goto ch_raise_exception;
  return;
c1165:
/* procedure 479 478 , 85 */
  if ((ch_returncode = che_procedure(DEF(479),DEF(478),QUAL(85)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 478 */
  (*(REF(478).tsdr)->finalize)(REF(478).value,F_DISCARD,sched);
  REF(478).tsdr = & dr_bottom;
/* move 103 479 */
  (*(REF(103).tsdr)->finalize)(REF(103).value,F_DISCARD,sched);
  REF(103) = REF(479);
  REF(479).tsdr = & dr_bottom;
c1168:
/* discard 471 */
  (*(REF(471).tsdr)->finalize)(REF(471).value,F_DISCARD,sched);
  REF(471).tsdr = & dr_bottom;
/* discard 474 */
  (*(REF(474).tsdr)->finalize)(REF(474).value,F_DISCARD,sched);
  REF(474).tsdr = & dr_bottom;
/* discard 477 */
  (*(REF(477).tsdr)->finalize)(REF(477).value,F_DISCARD,sched);
  REF(477).tsdr = & dr_bottom;
  current->ip = 270;
cb1171:
/* call 103 308 233 , 90 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(103),
          arguments[1] = DEF(308),
          arguments[2] = DEF(233),
          arguments[2+1] = nil,& arguments[0]),QUAL(90),sched)) != Normal)
     goto ch_raise_exception;
  return;
c1172:
/* copy 480 308 */
  if((ch_returncode = cp_table(& ch_val, REF(308).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(480).tsdr)->finalize)(REF(480).value,F_DISCARD,sched);
  REF(480).value = ch_val;
  REF(480).tsdr = & dr_table;
/* initget 481 480 , 0,0 */
  (*(REF(481).tsdr)->finalize)(REF(481).value,F_DISCARD,sched);
  if ((ch_returncode = init_selector(DEF(481),DEF(480),nil,sched,GET,0,0
    )) != Normal) goto ch_raise_exception;
c1185:
c1174:
/* get_or_goto 481 480 , 1186 */
  if ((ch_returncode = get_selected_object(DEF(481),DEF(480)
    ,sched)) != Normal) goto c1186;
/* discard 482 */
  (*(REF(482).tsdr)->finalize)(REF(482).value,F_DISCARD,sched);
  REF(482).tsdr = & dr_bottom;
/* discard 483 */
  (*(REF(483).tsdr)->finalize)(REF(483).value,F_DISCARD,sched);
  REF(483).tsdr = & dr_bottom;
/* copy 484 481.0 */
  if((ch_returncode = (REF(481)DOT(0).tsdr->copy)(& ch_val, 
    REF(481)DOT(0).value)) != Normal) goto ch_raise_exception;
  (*(REF(484).tsdr)->finalize)(REF(484).value,F_DISCARD,sched);
  REF(484).value = ch_val;
  REF(484).tsdr = datarepmap[REF(481)DOT(0).tsdr->number];
/* unite 482 484 , 0 */
  if ((ch_returncode = che_unite(DEF(482),DEF(484),sched,0)) != Normal)
     goto ch_raise_exception;
/* find 485 229.2 481.0 , 0 */
  if (findfunc(DEF(485),DEF(229)DOT(2),(
          arguments[0] = DEF(481)DOT(0),& arguments[0]),sched,0) == FAILURE)
             goto ch_notfound;
/* find 486 232 482 , 0 */
  if (findfunc(DEF(486),DEF(232),(
          arguments[0] = DEF(482),& arguments[0]),sched,0) == FAILURE)
             goto ch_notfound;
/* find 487 233 482 , 0 */
  if (findfunc(DEF(487),DEF(233),(
          arguments[0] = DEF(482),& arguments[0]),sched,0) == FAILURE)
             goto ch_notfound;
  current->ip = 273;
cb1182:
/* call 99 481.1 485.1.0 180 229.0 231 486 487.1 16.1 488 , 89 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(99),
          arguments[1] = DEF(481)DOT(1),
          arguments[2] = DEF(485)DOT(1)DOT(0),
          arguments[3] = DEF(180),
          arguments[4] = DEF(229)DOT(0),
          arguments[5] = DEF(231),
          arguments[6] = DEF(486),
          arguments[7] = DEF(487)DOT(1),
          arguments[8] = DEF(16)DOT(1),
          arguments[9] = DEF(488),
          arguments[9+1] = nil,& arguments[0]),QUAL(89),sched)) != Normal)
     goto ch_raise_exception;
  return;
c1183:
/* move 483 488 */
  (*(REF(483).tsdr)->finalize)(REF(483).value,F_DISCARD,sched);
  REF(483) = REF(488);
  REF(488).tsdr = & dr_bottom;
  current->ip = 275;
cb1184:
/* call 117 483 , 38 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(117),
          arguments[1] = DEF(483),
          arguments[1+1] = nil,& arguments[0]),QUAL(38),sched)) != Normal)
     goto ch_raise_exception;
  return;
c1186:
/* endget 481 480 */
  end_selector(DEF(481),DEF(480),sched,GET);
/* discard 480 */
  (*(REF(480).tsdr)->finalize)(REF(480).value,F_DISCARD,sched);
  REF(480).tsdr = & dr_bottom;
/* chs_lit 489 , "Suppressing further processing for module '" */
  if( !chs_lit(DEF(489),"Suppressing further processing for module '") )
     goto ch_depletion;
/* concat 490 489 179 */
  if ((ch_returncode = che_concat(DEF(490),DEF(489),DEF(179)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 489 */
  (*(REF(489).tsdr)->finalize)(REF(489).value,F_DISCARD,sched);
  REF(489).tsdr = & dr_bottom;
/* chs_lit 491 , "'." */
  if( !chs_lit(DEF(491),"'.") ) goto ch_depletion;
/* concat 492 490 491 */
  if ((ch_returncode = che_concat(DEF(492),DEF(490),DEF(491)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 490 */
  (*(REF(490).tsdr)->finalize)(REF(490).value,F_DISCARD,sched);
  REF(490).tsdr = & dr_bottom;
/* discard 491 */
  (*(REF(491).tsdr)->finalize)(REF(491).value,F_DISCARD,sched);
  REF(491).tsdr = & dr_bottom;
  current->ip = 278;
cb1195:
/* call 117 492 , 38 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(117),
          arguments[1] = DEF(492),
          arguments[1+1] = nil,& arguments[0]),QUAL(38),sched)) != Normal)
     goto ch_raise_exception;
  return;
c1142:
c1084:
c1196:
/* discard 308 */
  (*(REF(308).tsdr)->finalize)(REF(308).value,F_DISCARD,sched);
  REF(308).tsdr = & dr_bottom;
/* discard 278 */
  (*(REF(278).tsdr)->finalize)(REF(278).value,F_DISCARD,sched);
  REF(278).tsdr = & dr_bottom;
/* discard 286 */
  (*(REF(286).tsdr)->finalize)(REF(286).value,F_DISCARD,sched);
  REF(286).tsdr = & dr_bottom;
/* discard 229 */
  (*(REF(229).tsdr)->finalize)(REF(229).value,F_DISCARD,sched);
  REF(229).tsdr = & dr_bottom;
/* discard 230 */
  (*(REF(230).tsdr)->finalize)(REF(230).value,F_DISCARD,sched);
  REF(230).tsdr = & dr_bottom;
/* discard 231 */
  (*(REF(231).tsdr)->finalize)(REF(231).value,F_DISCARD,sched);
  REF(231).tsdr = & dr_bottom;
/* discard 232 */
  (*(REF(232).tsdr)->finalize)(REF(232).value,F_DISCARD,sched);
  REF(232).tsdr = & dr_bottom;
/* discard 233 */
  (*(REF(233).tsdr)->finalize)(REF(233).value,F_DISCARD,sched);
  REF(233).tsdr = & dr_bottom;
/* discard 442 */
  (*(REF(442).tsdr)->finalize)(REF(442).value,F_DISCARD,sched);
  REF(442).tsdr = & dr_bottom;
/* discard 447 */
  (*(REF(447).tsdr)->finalize)(REF(447).value,F_DISCARD,sched);
  REF(447).tsdr = & dr_bottom;
/* discard 469 */
  (*(REF(469).tsdr)->finalize)(REF(469).value,F_DISCARD,sched);
  REF(469).tsdr = & dr_bottom;
/* discard 470 */
  (*(REF(470).tsdr)->finalize)(REF(470).value,F_DISCARD,sched);
  REF(470).tsdr = & dr_bottom;
/* discard 492 */
  (*(REF(492).tsdr)->finalize)(REF(492).value,F_DISCARD,sched);
  REF(492).tsdr = & dr_bottom;
/* discard 446 */
  (*(REF(446).tsdr)->finalize)(REF(446).value,F_DISCARD,sched);
  REF(446).tsdr = & dr_bottom;
/* discard 457 */
  (*(REF(457).tsdr)->finalize)(REF(457).value,F_DISCARD,sched);
  REF(457).tsdr = & dr_bottom;
/* discard 458 */
  (*(REF(458).tsdr)->finalize)(REF(458).value,F_DISCARD,sched);
  REF(458).tsdr = & dr_bottom;
/* discard 459 */
  (*(REF(459).tsdr)->finalize)(REF(459).value,F_DISCARD,sched);
  REF(459).tsdr = & dr_bottom;
/* discard 461 */
  (*(REF(461).tsdr)->finalize)(REF(461).value,F_DISCARD,sched);
  REF(461).tsdr = & dr_bottom;
/* branch , 320 */
   goto c320;
c1215:
/* endget 176 175 */
  end_selector(DEF(176),DEF(175),sched,GET);
/* discard 175 */
  (*(REF(175).tsdr)->finalize)(REF(175).value,F_DISCARD,sched);
  REF(175).tsdr = & dr_bottom;
/* return 3 */
  if (ch_caller = do_return(REF(3).value)) {
    if (ch_caller->type < CProcess) ch_caller->ip++;
      sched->wakeup_proc(sched, ch_caller);}
  else rem_return(REF(3).value);
  REF(3).tsdr = & dr_bottom;
/* endblock */
  che_endblock(sched);
c1220:
/* endprocess */
  che_endprocess(sched); return;
#include "chtail.h"
