Edinburgh IMP77 Compiler - Version 8.4
    1 %EXTERNALROUTINE CHECKINNER(%INTEGER FSTART,FSIZE, %INTEGERNAME PARM)
		.Ltext0:
		_imp_SELECTOUTPUT:
		.LFB94:
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%ebx
				subl	$4, %esp
				call	__x86.get_pc_thunk.ax
				addl	$_GLOBAL_OFFSET_TABLE_, %eax
				cmpl	$0, 8(%ebp)
				js	.L4
				movl	_imp_OutStream@GOT(%eax), %edx
				movl	8(%ebp), %ecx
				movl	%ecx, (%edx)
				movl	_imp_outfile@GOT(%eax), %ecx
				movl	8(%ebp), %edx
				imull	$276, %edx, %edx
				addl	%ecx, %edx
				addl	$4, %edx
				movl	(%edx), %ecx
				movl	_imp_OutFile@GOT(%eax), %edx
				movl	%ecx, (%edx)
				subl	$12, %esp
				leal	__PRETTY_FUNCTION__.5625@GOTOFF(%eax), %edx
				pushl	%edx
				movl	%eax, %ebx
				call	check_outstream@PLT
				addl	$16, %esp
				jmp	.L1
		.L4:
				nop
		.L1:
				movl	-4(%ebp), %ebx
				leave
				ret
		.LFE94:
		FAULT.6122:
		.LFB190:
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%edi
				pushl	%esi
				pushl	%ebx
				subl	$23452, %esp
				call	__x86.get_pc_thunk.bx
				addl	$_GLOBAL_OFFSET_TABLE_, %ebx
				movl	16(%ebp), %eax
				movl	%eax, -23452(%ebp)
				movl	%gs:20, %eax
				movl	%eax, -28(%ebp)
				xorl	%eax, %eax
				leal	8(%ebp), %eax
				movl	%eax, -16288(%ebp)
				movl	-23452(%ebp), %eax
				movl	%eax, -17556(%ebp)
    2 !%EXTERNALLONGREALFNSPEC CPUTIME
    3 %LONGREAL TIME1,TIME2
    4 !
    5 !DECLARATION CODES
    6 %CONSTINTEGER STRINGBIT=X'80', REALBITS=X'30', INTBIT=X'40'
    7 %CONSTINTEGER NUMBITS=X'70'
    8 %CONSTINTEGER APPMASK=X'FF00'
    9 %CONSTINTEGER EXP=1, FN=2
   10 %CONSTINTEGER RECFORMAT=4, ROUTINE=6
   11 %CONSTINTEGER REF=8, VAR=9, MAP=10
   12 %CONSTINTEGER LAB=12, JUMPLAB=13
   13 %CONSTINTEGER SWITCH=X'10C'
   14 %CONSTINTEGER IMP1MODES=B'01000011111111000000000000000000'
   15 %CONSTINTEGER IMPMODES =B'01000011111100000000000000000000'
   16 %CONSTINTEGER DESTMODES=B'00000000111100000000000000000000'
   17 %CONSTINTEGER ADRMODES =B'01000000111100000000000000000000'
   18 %CONSTINTEGER EXPMODES =B'11110000111100000000000000000000'
   19 %CONSTINTEGER FMATMODES=B'00001000000000000000000000000000'
   20 !SYMBOL INIT CODES
   21 ! USED EXPLICITLY
   22 ! SPACE=0, DIGIT:ISO, LETTER:ISO, QUOTE=127
   23 ! PC=128, PCLET OR PUNCT: 128 + KEYDICT INDEX
   24 ! KEYDICT INDEX >= PUNCTMIN FOR PUNCT
   25 ! KEYDICT INDEX >= SKIP1MIN FOR  !  *  SEMICOLON  NL
   26 %CONSTINTEGER NLCODE=127;  !MASKED FROM 255 ACTUAL
   27 !ATOM CODES
   28 %CONSTINTEGER IDENT=1, CONST=2, LB=11, COMMA=10, RB=12
   29 %CONSTINTEGER TERMINATOR=13, JUMP=15
   30 %CONSTINTEGER OP3=6, START=53, CYCLE=54
   31 ! VERTICAL BAR
   32 %CONSTINTEGER MARKER=124
   33
   34 %OWNINTEGER STATS=0, ATOMS=-54, IDENTIFIERS=-54, NUMBERS=0, LOOPS=0
   35 %OWNINTEGER LOOKS=1, TIMES=1
   36 %INTEGER I,J
   37 %INTEGER LINEBASE;     !BASE FOR SOURCE LINE (POINTER)
   38 %INTEGER FPOS;         !CURRENT POSITION IN SOURCE (POINTER)
   39 %INTEGER FPOS1;        !START OF CURRENT ATOM (POINTER)
   40 %INTEGER PRINTPOS;     !'LINE-ALREADY-PRINTED' INDIC
   41 %INTEGER LINE;         !CURRENT LINE NUMBER
   42 %INTEGER NEXTLINE
   43 %INTEGER FMAX;  !LAST BYTE IN SOURCE (POINTER)
   44 %INTEGER FAULTNUM;     !FAULTY NUMBER
   45 %INTEGER FAULTPOS;     !FAULTY ATOM POSITION (POINTER)
   46 %INTEGER SYMCODE;  !SYMBOL CODE FOR CURRENT SYMBOL
   47 %INTEGER SKIPMIN;  !=SKIP1MIN OR NLCODE
   48 !%INTEGER GG;           !=GRAM(G)
   49 %INTEGER CLASS;        !GRAMMAR CLASS
   50 %INTEGER G;            !INDEX TO GRAM
   51 %INTEGER ATOM;         !ATOM CODE FOR CURRENT ATOM
   52 %INTEGER ATOMTYPE;     !TYPE FOR CURREMT ATOM
   53 %INTEGER ATOMVAL;      !'VALUE' FOR CURRENT ATOM
   54 %INTEGER DECLTYPE;     !DECLARATION TYPE
   55 %INTEGER MODES;  !BIT VECTOR FOR PERMISSIBLE IDENT MODES
   56 %INTEGER DIMCOUNT;     !DIMENSION COUNT
   57 %INTEGER CONSTCOUNT;   !CONSTANT COUNT (DOWN)
   58 %INTEGER STRINGSIZE
   59 %INTEGER PRECISION
   60 %INTEGER LASTTYPE,LASTVAL
   61 %INTEGER TYPE,VAL
   62 %INTEGER NP;           !NEST POINTER (INDEX TO NTYPE,NVAL)
   63 %INTEGERARRAY NTYPE,NVAL(1:50);  !NEST
				leal	-22904(%ebp), %edx
				movl	$0, %eax
				movl	$17, %ecx
				movl	%edx, %edi
				rep stosl
				leal	-22008(%ebp), %eax
				movl	%eax, -22904(%ebp)
				movl	$4, -22900(%ebp)
				leal	-22836(%ebp), %edx
				movl	$0, %eax
				movl	$17, %ecx
				movl	%edx, %edi
				rep stosl
				leal	-21808(%ebp), %eax
				movl	%eax, -22836(%ebp)
				movl	$4, -22832(%ebp)
   64 %INTEGER LINKMAX;      !GRAMMAR STACK MAX (INDEX TO LINK)
   65 %INTEGERARRAY LINK(1:20);  !GRAMMAR CONTROL STACK
				leal	-22768(%ebp), %edx
				movl	$0, %eax
				movl	$17, %ecx
				movl	%edx, %edi
				rep stosl
				leal	-22088(%ebp), %eax
				movl	%eax, -22768(%ebp)
				movl	$4, -22764(%ebp)
   66 %RECORDFORMAT BLOCKINF(%INTEGER STACK,LOCAL,BTYPE)
   67 %INTEGER LEVEL;        !CURRENT BLOCK LEVEL (MAIN=1)
   68 %RECORD(BLOCKINF) C;   !INFO FOR CURRENT BLOCK
   69 %RECORD(BLOCKINF)%ARRAY HOLD(1:12);  !INFO FOR GLOBAL BLOCKS
				leal	-22700(%ebp), %edx
				movl	$0, %eax
				movl	$17, %ecx
				movl	%edx, %edi
				rep stosl
				leal	-18792(%ebp), %eax
				addl	$4, %eax
				movl	%eax, -22700(%ebp)
				movl	$12, -22696(%ebp)
   70 %INTEGERARRAY INDEX(0:255);  !HASH INDEX TO IDENT DICT
				leal	-22632(%ebp), %edx
				movl	$0, %eax
				movl	$17, %ecx
				movl	%edx, %edi
				rep stosl
				leal	-18792(%ebp), %eax
				addl	$172, %eax
				movl	%eax, -22632(%ebp)
				movl	$4, -22628(%ebp)
   71 %INTEGERNAME HEAD;     !HEAD OF IDENT SEARCH LIST
   72 %INTEGER DPOS;         !DICT SEARCH POSITION (POINTER)
   73 %INTEGER DLIM;         !DICT LIMIT (POINTER)
   74 %INTEGER NEWDLIM
   75 %INTEGER DBOUND;       !DICT UPPER LIMIT (POINTER);
   76 %INTEGER IDENTS;       !POS OF FIRST IDENT IN DECL LIST (POINTER)
   77 %INTEGER RECIDENTS;    !POS OF FIRST IDENT IN RECORD LIST (POINTER)
   78 %INTEGER PIDENTPOS;    !POS OF PROCEDURE IDENT (POINTER)
   79 %INTEGER FIDENTPOS;    !POS OF FORMAT IDENT (POINTER)
   80 %INTEGER EXTIND;  !SET BY %EXTERNAL
   81 %INTEGER CONDIND;  !SET FOR START,CYCLE
   82 %INTEGER PARMAX;  !CURRENT MAX IN PARTYPE
   83 %INTEGER ADGRAM0, LINK1;  !PRE-COMPUTED GRAMMAR VALUES
   84 %INTEGER APPCONT
   85
   86 %OWNINTEGERARRAY PARTYPE(0:255) =  0,
				leal	-22564(%ebp), %edx
				movl	$0, %eax
				movl	$17, %ecx
				movl	%edx, %edi
				rep stosl
				leal	PARTYPE.6096@GOTOFF(%ebx), %eax
				movl	%eax, -22564(%ebp)
				movl	$4, -22560(%ebp)
   87     X'00000069', X'01000069', X'02000069', X'03000069',
   88     X'04000069', X'05000069', X'00000029', X'01000029',
   89     X'00000089', X'00000088', X'000000F8', X'02000029',
   90     X'07000029', X'01000088', X'02000088', 0(236),
   91     X'FD000069', X'FE0001F8', X'00000000', X'FF000069'
   92
   93 %INTEGERARRAY DICT(1:4000)
				leal	-22496(%ebp), %edx
				movl	$0, %eax
				movl	$17, %ecx
				movl	%edx, %edi
				rep stosl
				leal	-16284(%ebp), %eax
				movl	%eax, -22496(%ebp)
				movl	$4, -22492(%ebp)
   94
   95 !* GRAMMAR AND KEYWORD DICTIONARY GENERATED BY TAKEON PROGRAM
   96
   97 %CONSTINTEGER PUNCTMIN = 43, SKIP1MIN = 86
   98
   99 %CONSTBYTEINTEGERARRAY SYMINIT( 0: 255) =  %C
				leal	-16544(%ebp), %eax
				leal	.LC0@GOTOFF(%ebx), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-22428(%ebp), %edx
				movl	$0, %eax
				movl	$17, %ecx
				movl	%edx, %edi
				rep stosl
				leal	-18792(%ebp), %eax
				addl	$2248, %eax
				movl	%eax, -22428(%ebp)
				movl	$1, -22424(%ebp)
  100  129, 129, 129, 129, 129, 129, 129, 129,
  101  129, 129, 255, 129, 129, 129, 129, 129,
  102  129, 129, 129, 129, 129, 129, 129, 129,
  103  129, 129, 129, 129, 129, 129, 129, 129,
  104    0, 217, 127, 171, 129, 128, 173, 127,
  105  175, 178, 214, 180, 182, 184, 187, 189,
  106   48,  49,  50,  51,  52,  53,  54,  55,
  107   56,  57, 192, 221, 194, 200, 203, 129,
  108  129,  65,  66,  67,  68,  69,  70,  71,
  109   72,  73,  74,  75,  76,  77,  78,  79,
  110   80,  81,  82,  83,  84,  85,  86,  87,
  111   88,  89,  90, 129, 207, 129, 210, 212,
  112  129,  65,  66,  67,  68,  69,  70,  71,
  113   72,  73,  74,  75,  76,  77,  78,  79,
  114   80,  81,  82,  83,  84,  85,  86,  87,
  115   88,  89,  90, 129, 207, 129, 210, 212,
  116  129, 129, 129, 129, 129, 129, 129, 129,
  117  129, 129, 255, 129, 129, 129, 129, 129,
  118  129, 129, 129, 129, 129, 129, 129, 129,
  119  129, 129, 129, 129, 129, 129, 129, 129,
  120    0, 217, 127, 171, 129, 128, 173, 127,
  121  175, 178, 214, 180, 182, 184, 187, 189,
  122   48,  49,  50,  51,  52,  53,  54,  55,
  123   56,  57, 192, 221, 194, 200, 203, 129,
  124  129, 130, 132, 134, 138, 139, 142, 129,
  125  129, 146, 129, 129, 148, 150, 152, 154,
  126  157, 158, 159, 161, 167, 169, 129, 170,
  127  129, 129, 129, 129, 207, 129, 210, 212,
  128  129, 130, 132, 134, 138, 139, 142, 129,
  129  129, 146, 129, 129, 148, 150, 152, 154,
  130  157, 158, 159, 161, 167, 169, 129, 170,
  131  129, 129, 129, 129, 207, 129, 210, 212
  132
  133 %CONSTSHORTINTEGERARRAY KEYDICT( 0: 487) =  %C
				leal	-17520(%ebp), %eax
				leal	.LC1@GOTOFF(%ebx), %edx
				movl	$244, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-22360(%ebp), %edx
				movl	$0, %eax
				movl	$17, %ecx
				movl	%edx, %edi
				rep stosl
				leal	-18792(%ebp), %eax
				addl	$1272, %eax
				movl	%eax, -22360(%ebp)
				movl	$2, -22356(%ebp)
  134      0,     5,-26642,  6194,-26523,  6329,-26385,-26247,     0,     0,
  135   6585,-26132,-26066,  6776,-25887,-25815,-25746,  7151,-25562,  7342,
  136 -25367,  7471,-25247,  7599,-25119,  7727,-24978,-24782,  8119,  8178,
  137   8245,-24475,  8687,-24024,-23959,-23888,-23820,-23625,  9209,-23512,
  138   9330,  9390,  9512,   512,   240,   320,    64,-23231,   704,     0,
  139    786,     0,   384,   113,   640,     0,-23074,   384,   114,   384,
  140    128,-22961,   320,    48,  1600,     1,-22835,-22692,-22563,-22434,
  141    512,   240,-22307,   576,   240,-22179,-22050,   512,   240,-21923,
  142    448,    68,   448,    68,   192,     0,-21814,   320,   112,-21695,
  143 -21559,   384,    67,   832,     1, 11364, 11506, 11559, 11636,-21075,
  144  11758, 11875, 11950, 12019, 12068,-20503, 12340, 12469, 12526,  2496,
  145     11, 12594,  1664,     3, 12788, 12851, 12910, 12976, 13102, 13165,
  146  13236,-19419,  3264,     1,  2816,     0, 13422, 13545, 13601,-19103,
  147 -19037,-18969,-18896,-18829, 14004, 14069, 14127, 14183, 14245,-18463,
  148 -18385, 14450, 14505, 14579, 14629, 14709,-18004, 14836, 14889,  3008,
  149      0,   960,     0,   320,    64,   576,     0,   256,    64,   512,
  150    240,   256,    64,   896,     0,   512,   240,   256,    64,   512,
  151    240,   256,   112,   384,    68,  3072,     0,  2752,     0, 14945,
  152  15017, 15077, 15149,-17549, 15284, 15340, 15393, 15461,-17169,  3712,
  153      0, 15668,-16987, 15858, 15916, 15977,-16723,  3136,     0, 16101,
  154  16180, 16295,  2496,     3, 16425, 16485,  2880,     0, 16630,  2048,
  155      0, 16686, 16740, 16812, 17007, 17065, 17125, 17205, 17269, 17332,
  156  17394, 17454, 17507, 17650, 17712, 17833, 17908, 17972, 18030, 18163,
  157  18213, 18281, 18348, 18425, 18606, 18729, 18789, 18868, 18994, 19045,
  158  19181,  3328,     1, 19238,  1024,     2, 19442, 19497, 19572, 19699,
  159  19745, 19815,  1280,     0,-12887, 19954, 20020,  2240,     1, 20069,
  160  20148, 20210,-12493,  1984,    25, 20402, 20467, 20513, 20588, 20658,
  161  20713, 20788, 20897,  2624,     1, 20980,  1024,     0, 21102, 21155,
  162  21221,  3200,     0, 21300, 21363, 21420, 21541,-11090,  2112,   256,
  163   3648,     0, 21742, 21806,  2048,     8, 21871,  3456,     2, 21929,
  164 -10778,-10708, 22128, 22190, 22254,  1472,     0, 22312, 22452, 22565,
  165  22638, 22693, 22767, 22830, 22900, 22949, -9748, 23086, 23140, 23284,
  166  23348, 23476, 23598, 23726, -8983, 23858, 23916,  3392,     1, 24039,
  167  24168, 24301, 24421, 24499,  1728,     0,  1728,     0, 24609, 24692,
  168  24756, 24876, 24995, 25129, 25193, 25266, 25313, 25395,  3520,     1,
  169   2368,     0, 25458, 25588, 25633, 25714, 25908, 26021, 26081, 26159,
  170  26223,  2304,     9, 26277,  3584,     0,  1088,     0,  1024,     1,
  171  26341, 26478, 26543,  1152,     0,  2176,   137,  1920,   268,  2688,
  172      0, 26596,  1664,     3, 26669, 26725,     0,     2,  1344,     0,
  173   2688,     0, 26796, 26867, 26927, 26988, 27113,  1984,   105, 27173,
  174  27244, -5389,  1152,     0,  3264,     1, 27448, 27500, 27630, 27698,
  175  27762,  2560,     6, 27892, 27957, 28016, 28069, 28199, 28261, 28404,
  176  28519,  2432,     0, 28579, 28711,  1984,    41, 28788, 28852,  1984,
  177     57, 28967, 29101,  1856,   121, 29157, 29236, 29298,  2240,  -255,
  178  29349,  3776,     0,  1280,     0, 29426,  2048,     0, 29477, 29551,
  179   1216,     0,  1408,    32, 29601, 29671, 29737, 29807, 29874, 29985,
  180  30066, 30192, 30316, 30437, 30510, 30567,  1984,    73, 30637,  1984,
  181    121,  1024,     0,  1408,     0, 30770, 30885, 31026,  3776,     1,
  182   1984,    89,  1280,     0, 31073, 31149,  1280,     0
  183
  184 %CONSTSHORTINTEGERARRAY PHRASE( 109: 126) =  %C
				movw	$257, -22940(%ebp)
				movw	$249, -22938(%ebp)
				movw	$368, -22936(%ebp)
				movw	$430, -22934(%ebp)
				movw	$264, -22932(%ebp)
				movw	$269, -22930(%ebp)
				movw	$286, -22928(%ebp)
				movw	$298, -22926(%ebp)
				movw	$335, -22924(%ebp)
				movw	$345, -22922(%ebp)
				movw	$0, -22920(%ebp)
				movw	$452, -22918(%ebp)
				movw	$237, -22916(%ebp)
				movw	$374, -22914(%ebp)
				movw	$381, -22912(%ebp)
				movw	$0, -22910(%ebp)
				movw	$420, -22908(%ebp)
				movw	$437, -22906(%ebp)
				leal	-22292(%ebp), %edx
				movl	$0, %eax
				movl	$17, %ecx
				movl	%edx, %edi
				rep stosl
				leal	-22940(%ebp), %eax
				movl	%eax, -22292(%ebp)
				movl	$2, -22288(%ebp)
  185   257,  249,  368,  430,  264,  269,  286,  298,  335,  345,
  186     0,  452,  237,  374,  381,    0,  420,  437
  187
  188 %CONSTINTEGER INITBASE = 472
  189
  190 {%CONST}%OWNSHORTINTEGERARRAY GRAM( 0: 531) =  %C
				leal	-22224(%ebp), %edx
				movl	$0, %eax
				movl	$17, %ecx
				movl	%edx, %edi
				rep stosl
				leal	GRAM.6106@GOTOFF(%ebx), %eax
				movl	%eax, -22224(%ebp)
				movl	$2, -22220(%ebp)
  191     66,  4084,  4511,  4898,  5028,  6440,    64,  7071,  7330,  5028,
  192     64, 11553,  1955, 11685, 11945, 12273, 12321,  2467,  6439,  5617,
  193  12429,  2996,    64,  5786,  5557,  5620,  2157, 12575, 12834,  6440,
  194     64, 12954, 12955,  6961,    64, 13089,  6439,  5489,  4589, 13345,
  195   1955, 12273,  7433, 12429,    64,  6005,  7602,  5557,    64,  7925,
  196  13569, 13737,    64, 12429,  5630, 13089,  5489,  7149,  8257,  5557,
  197  14068,  3250,  5558,    64,  8442,  8538,  4746, 12429,    64,  9042,
  198   9200,  8963, 14217, 14350, 14479, 14617,  9927, 12429, 14763,    66,
  199  14970, 15098, 15489,    64, 15729, 16129,    64,  8062, 16378,  5576,
  200  12274, 16769,    64, 16897,    64,  5614,  5618,    69,  6439,    64,
  201  12653,  5621, 17281,    64, 17409,    64, 17612, 13569,    64,  3124,
  202     64, 18154, 18287,  9976,  9956,   116,  5599, 15199, 10378, 18319,
  203     64, 18636, 15859, 10762, 12429,    64, 18897, 16479, 11274,  5557,
  204     64, 19021, 17105, 17155, 12239, 19276, 19788, 17736, 19851, 19981,
  205     64, 20218,  9964, 20225,    64, 20363,    64, 17616, 20619,    64,
  206  19443, 22409, 12429,    64, 12275, 22905,    89,  9963, 23126, 23554,
  207     64, 20806, 21279, 22306, 21796,    64, 23809, 24609, 24867,    64,
  208  25089, 25889, 24867,    64, 21357, 22593, 26125, 26362, 26881,    64,
  209  23242, 10378, 12429,    64,  5516,    64, 24014, 24330,  5516,    64,
  210  23809, 20806, 27649,    64, 23809,    64, 25294, 28682, 25582, 20618,
  211   5516,    64, 28929,    64, 22724, 26458, 22538, 29067, 29197,    64,
  212  27084, 27402, 17804, 22905, 26881, 22905, 27854, 24586, 28147, 28426,
  213   5516,    64, 27649, 20806, 25089,    64, 29390, 29562,    91, 25459,
  214  29663, 29836,    64, 30046, 22538, 29197,    64, 30534, 31135, 31522,
  215  31652,    40, 31691,    35,    39,    66, 31213,    35,    64, 32139,
  216     64, 32385,    64, 32597, 32780,    64,    88, 33163,    66, 33402,
  217  33503, 33676,    64,    98, 34049,    64, 34252, 33802,    66, 34597,
  218  34801, 34955,    64, 35194, 35296, 35481,    64, 35677, 35834, 35936,
  219  34954, 36236,    64, 36444, 34570,    66, 36875,    64, 37114, 37215,
  220  37401,    64, 37608, 37754, 37855, 38028,    64,    99, 39937, 40847,
  221  41104, 39569, 39058, 41363,    64, 41602, 12429, 14763,    66, 41737,
  222  41870,    64, 40147, 40304, 40067, 14217, 14350, 14479,  9927, 41985,
  223     64, 12429,    66, 42114,    64, 41184, 42346, 42479, 42582,  9953,
  224  42746, 41196, 42864, 41195, 41162, 43126, 43520, 43691, 43820,    66,
  225     67, 44022, 43382, 43691,    66, 44939, 44538, 45448, 45577, 45711,
  226     67, 45173, 45824,    12,    64, 46202, 45544,   120, 46604,    64,
  227  46313, 46728, 46857,    66, 44539, 47098, 46824,   105, 47361,    64,
  228  47569, 47728, 47491,    66, 49281, 48770, 50182, 50311, 50443, 50607,
  229     64, 50308, 50693, 51078,    66, 49492, 49648, 49411, 50308, 50693,
  230  51078,    66, 51302, 51453, 51578, 51834, 50941, 51972, 49001, 52200,
  231  52733, 48873, 48780,    64, 48816,    64, 52861, 52349, 52868, 52997,
  232  49129, 52327, 50921, 53501, 53245, 53508, 52457, 52329, 53757, 53225,
  233  54401,     2, 54539, 54703,    64, 47572, 45306, 54906,    48,    64,
  234  55307,    66, 55546, 55615, 55306,    12,    64, 56175, 56288, 56457,
  235     64, 56641, 56826, 56928, 57098,    64, 57338, 57440, 57610,    64,
  236  57850,    96, 58057, 58251, 58479, 58618, 58721, 58977, 59142,    64,
  237  59276,    64, 59621, 59782,    64, 58251,    64, 60005, 60143, 60257,
  238  59142,    66,     0,  8833,     0,     0,     0,     0,     0,     0,
  239      0,     0,     0,     0,     0,     0,     0, 40847, 41104, 39569,
  240  39058, 41363,  5524, 10261,  5526, 10391,     0,     0,  5786,  6299,
  241      0, 10525, 10782,  2079,   928,     0,  3362,     0,  1444,     0,
  242    294,     0,  6440, 10921,  3498,     0,     0,     0,     0,     0,
  243      0, 11185,     0, 11315,     0,     0,  6838,  2615,  5560, 11449,
  244   5562,    59
  245
  246 !!END OF GENERATED SECTION
  247
  248 {%CONST}%OWNBYTEINTEGERARRAY PERM(1:518) =  %C
				leal	-22156(%ebp), %edx
				movl	$0, %eax
				movl	$17, %ecx
				movl	%edx, %edi
				rep stosl
				leal	PERM.6108@GOTOFF(%ebx), %eax
				movl	%eax, -22156(%ebp)
				movl	$1, -22152(%ebp)
		.LBB329:
		.LBB330:
				call	_imp_cputime@PLT
				movl	%eax, -23456(%ebp)
		.LBE330:
		.LBE329:
  249 'A','D','D','R',':',X'0B',X'62',
  250 'A','R','C','C','O','S',':',X'07',X'22',
  251 'A','R','C','S','I','N',':',X'07',X'22',
  252 'A','R','R','A','Y',':',X'FC',X'F8',
  253 'A','R','C','T','A','N',':',X'0D',X'22',
  254 'B','Y','T','E','I','N','T','E','G','E','R',':',X'01',X'4A',
  255 'C','H','A','R','N','O',':',X'0E',X'4A',
  256 'C','L','O','S','E','S','T','R','E','A','M',':',X'01',X'06',
  257 'C','O','S',':',X'07',X'22',
  258 'E','X','P',':',X'07',X'22',
  259 'F','R','A','C','P','T',':',X'07',X'22',
  260 'F','R','O','M','S','T','R','I','N','G',':',X'0F',X'82',
  261 'I','M','O','D',':',X'01',X'62',
  262 'I','N','T',':',X'07',X'62',
  263 'I','N','T','P','T',':',X'07',X'62',
  264 'I','N','T','E','G','E','R',':',X'01',X'6A',
  265 'L','E','N','G','T','H',':',X'0A',X'4A',
  266 'L','O','G',':',X'07',X'22',
  267 'L','O','N','G','R','E','A','L',':',X'01',X'1A',
  268 'M','O','D',':',X'07',X'22',
  269 'N','E','W','L','I','N','E',':',X'00',X'06',
  270 'N','E','W','L','I','N','E','S',':',X'01',X'06',
  271 'N','E','W','P','A','G','E',':',X'00',X'06',
  272 'N','E','X','T','I','T','E','M',':',X'00',X'82',
  273 'N','E','X','T','C','H',':',X'00',X'62',
  274 'N','E','X','T','S','Y','M','B','O','L',':',X'00',X'62',
  275 'N','L',':',X'00',X'62',
  276 'P','I',':',X'00',X'22',
  277 'P','R','I','N','T',':',X'0C',X'06',
  278 'P','R','I','N','T','C','H',':',X'01',X'06',
  279 'P','R','I','N','T','F','L',':',X'08',X'06',
  280 'P','R','I','N','T','S','T','R','I','N','G',':',X'09',X'06',
  281 'P','R','I','N','T','S','Y','M','B','O','L',':',X'01',X'06',
  282 'R','A','D','I','U','S',':',X'0D',X'22',
  283 'R','E','A','D',':',X'0B',X'06',
  284 'R','E','A','D','C','H',':',X'0B',X'06',
  285 'R','E','A','D','I','T','E','M',':',X'0A',X'06',
  286 'R','E','A','D','S','T','R','I','N','G',':',X'0A',X'06',
  287 'R','E','A','D','S','Y','M','B','O','L',':',X'0B',X'06',
  288 'R','E','A','L',':',X'01',X'1A',
  289 'R','E','C','O','R','D',':',X'01',X'0A',
  290 'S','E','L','E','C','T','I','N','P','U','T',':',X'01',X'06',
  291 'S','E','L','E','C','T','O','U','T','P','U','T',':',X'01',X'06',
  292 'S','E','T','M','A','R','G','I','N','S',':',X'03',X'06',
  293 'S','H','O','R','T','I','N','T','E','G','E','R',':',X'01',X'5A',
  294 'S','I','N',':',X'07',X'22',
  295 'S','K','I','P','S','Y','M','B','O','L',':',X'00',X'06',
  296 'S','P','A','C','E',':',X'00',X'06',
  297 'S','P','A','C','E','S',':',X'01',X'06',
  298 'S','Q','R','T',':',X'07',X'22',
  299 'S','T','R','I','N','G',':',X'01',X'8A',
  300 'T','A','N',':',X'07',X'22',
  301 'T','O','S','T','R','I','N','G',':',X'01',X'82',
  302 'W','R','I','T','E',':',X'02',X'06'
  303
  304
  305 %ROUTINESPEC PRINT SS
  306 %ROUTINESPEC REPORT(%INTEGER N)
  307 %ROUTINESPEC CODE ATOM
  308 %ROUTINESPEC POP CONTEXT
  309 %ROUTINESPEC DEFINE(%INTEGER DISP, VAL)
  310
  311 %ROUTINE FAULT(%INTEGER N)
				pushl	%ebp
				movl	%esp, %ebp
				subl	$4, %esp
				call	__x86.get_pc_thunk.ax
				addl	$_GLOBAL_OFFSET_TABLE_, %eax
				movl	%ecx, %eax
				movl	%ecx, -4(%ebp)
  312     FAULTNUM = N %AND FAULTPOS = FPOS1 %IF FAULTNUM < 0
				movl	1268(%eax), %edx
				testl	%edx, %edx
				jns	.L9
				movl	8(%ebp), %edx
				movl	%edx, 1268(%eax)
				movl	1264(%eax), %edx
				movl	%edx, 1260(%eax)
				nop
		.L7:
				nop
				leave
				ret
		.LFE190:
				.section	.rodata
		.LC32:
				.string	"test-in/check.imp"
				.align 4
		.LC34:
				.string	"->A(%d) out of bounds at %s line %d"
				.align 4
		.LC35:
				.string	"switch jump to undefined label A(%d): at %s line %d"
				.align 4
		.LC36:
				.string	"->X(%d) out of bounds at %s line %d"
				.align 32
		.LC0:
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-1
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	0
				.byte	-39
				.byte	127
				.byte	-85
				.byte	-127
				.byte	-128
				.byte	-83
				.byte	127
				.byte	-81
				.byte	-78
				.byte	-42
				.byte	-76
				.byte	-74
				.byte	-72
				.byte	-69
				.byte	-67
				.byte	48
				.byte	49
				.byte	50
				.byte	51
				.byte	52
				.byte	53
				.byte	54
				.byte	55
				.byte	56
				.byte	57
				.byte	-64
				.byte	-35
				.byte	-62
				.byte	-56
				.byte	-53
				.byte	-127
				.byte	-127
				.byte	65
				.byte	66
				.byte	67
				.byte	68
				.byte	69
				.byte	70
				.byte	71
				.byte	72
				.byte	73
				.byte	74
				.byte	75
				.byte	76
				.byte	77
				.byte	78
				.byte	79
				.byte	80
				.byte	81
				.byte	82
				.byte	83
				.byte	84
				.byte	85
				.byte	86
				.byte	87
				.byte	88
				.byte	89
				.byte	90
				.byte	-127
				.byte	-49
				.byte	-127
				.byte	-46
				.byte	-44
				.byte	-127
				.byte	65
				.byte	66
				.byte	67
				.byte	68
				.byte	69
				.byte	70
				.byte	71
				.byte	72
				.byte	73
				.byte	74
				.byte	75
				.byte	76
				.byte	77
				.byte	78
				.byte	79
				.byte	80
				.byte	81
				.byte	82
				.byte	83
				.byte	84
				.byte	85
				.byte	86
				.byte	87
				.byte	88
				.byte	89
				.byte	90
				.byte	-127
				.byte	-49
				.byte	-127
				.byte	-46
				.byte	-44
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-1
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	0
				.byte	-39
				.byte	127
				.byte	-85
				.byte	-127
				.byte	-128
				.byte	-83
				.byte	127
				.byte	-81
				.byte	-78
				.byte	-42
				.byte	-76
				.byte	-74
				.byte	-72
				.byte	-69
				.byte	-67
				.byte	48
				.byte	49
				.byte	50
				.byte	51
				.byte	52
				.byte	53
				.byte	54
				.byte	55
				.byte	56
				.byte	57
				.byte	-64
				.byte	-35
				.byte	-62
				.byte	-56
				.byte	-53
				.byte	-127
				.byte	-127
				.byte	-126
				.byte	-124
				.byte	-122
				.byte	-118
				.byte	-117
				.byte	-114
				.byte	-127
				.byte	-127
				.byte	-110
				.byte	-127
				.byte	-127
				.byte	-108
				.byte	-106
				.byte	-104
				.byte	-102
				.byte	-99
				.byte	-98
				.byte	-97
				.byte	-95
				.byte	-89
				.byte	-87
				.byte	-127
				.byte	-86
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-49
				.byte	-127
				.byte	-46
				.byte	-44
				.byte	-127
				.byte	-126
				.byte	-124
				.byte	-122
				.byte	-118
				.byte	-117
				.byte	-114
				.byte	-127
				.byte	-127
				.byte	-110
				.byte	-127
				.byte	-127
				.byte	-108
				.byte	-106
				.byte	-104
				.byte	-102
				.byte	-99
				.byte	-98
				.byte	-97
				.byte	-95
				.byte	-89
				.byte	-87
				.byte	-127
				.byte	-86
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-127
				.byte	-49
				.byte	-127
				.byte	-46
				.byte	-44
				.align 32
		.LC1:
				.align 32
		.LC2:
				.byte	26
				.string	"** SPACE EXHAUSTED AT LINE"
				.zero	228
				.align 32
		.LC3:
				.byte	22
				.string	"** END OF FILE AT LINE"
				.zero	232
				.align 32
		.LC4:
				.byte	17
				.string	"test-in/check.imp"
				.zero	237
				.globl	CHECKINNER
		CHECKINNER:
		.LFB189:
  313 %END
				jmp	.L7
		.L9:
  314
  315 ! GRAM LAYOUT: LINK<9> CLASS<7>
  316 %SWITCH A(0:127)
  317 %SWITCH X(0:4)
  318     TIME1 = CPUTIME
				fildl	-23456(%ebp)
				fstpl	-23008(%ebp)
  319     %CYCLE I = 0,1,255
				movl	$-1, -23412(%ebp)
		.L12:
				cmpl	$255, -23412(%ebp)
				je	.L538
				addl	$1, -23412(%ebp)
				nop
		.L14:
  320        INDEX(I) = 0
				movl	-23412(%ebp), %eax
				addl	$40, %eax
				movl	$0, -18780(%ebp,%eax,4)
  321     %REPEAT
				jmp	.L12
		.L538:
  322     C = 0
				movl	$0, -18640(%ebp)
				movl	$0, -18636(%ebp)
				movl	$0, -18632(%ebp)
  323     IDENTS = 0
				movl	$0, %eax
				movl	%eax, -18792(%ebp)
  324     PRINTPOS = 0;  PRECISION = 0;  LEVEL = 0
				movl	$0, %eax
				movl	%eax, -17544(%ebp)
				movl	$0, -23408(%ebp)
				movl	$0, %eax
				movl	%eax, -18644(%ebp)
  325     NEXTLINE = 1;  FAULTNUM = -1;  PARMAX = 15
				movl	$1, %eax
				movl	%eax, -17580(%ebp)
				movl	$-1, %eax
				movl	%eax, -17524(%ebp)
				movl	$15, -23372(%ebp)
				leal	GRAM.6106@GOTOFF(%ebx), %eax
				movl	%eax, -23292(%ebp)
		.LBB331:
		.LBB332:
				movl	-23292(%ebp), %eax
		.LBE332:
		.LBE331:
  326     ADGRAM0 = ADDR(GRAM(0));  LINK1 = GRAM(1)>>6&1022+ADGRAM0
				movl	%eax, -23356(%ebp)
				movzwl	2+GRAM.6106@GOTOFF(%ebx), %eax
				cwtl
				shrl	$6, %eax
				andl	$1022, %eax
				movl	%eax, %edx
				movl	-23356(%ebp), %eax
				addl	%edx, %eax
				movl	%eax, -23352(%ebp)
  327     APPCONT = GRAM(GRAM(PHRASE(112))>>7&511)>>6&1022+ADGRAM0
				movzwl	-22934(%ebp), %eax
				cwtl
				movzwl	GRAM.6106@GOTOFF(%ebx,%eax,2), %eax
				cwtl
				shrl	$7, %eax
				andl	$511, %eax
				movzwl	GRAM.6106@GOTOFF(%ebx,%eax,2), %eax
				cwtl
				shrl	$6, %eax
				andl	$1022, %eax
				movl	%eax, %edx
				movl	-23356(%ebp), %eax
				addl	%edx, %eax
				movl	%eax, -23348(%ebp)
				leal	-16284(%ebp), %eax
				movl	%eax, -23296(%ebp)
		.LBB333:
		.LBB334:
				movl	-23296(%ebp), %eax
		.LBE334:
		.LBE333:
  328     DLIM = ADDR(DICT(1));  DBOUND = ADDR(DICT(4000))
				movl	%eax, -17588(%ebp)
				leal	-16284(%ebp), %eax
				addl	$15996, %eax
				movl	%eax, -23300(%ebp)
		.LBB335:
		.LBB336:
				movl	-23300(%ebp), %eax
		.LBE336:
		.LBE335:
				movl	%eax, -17592(%ebp)
				leal	PERM.6108@GOTOFF(%ebx), %eax
				movl	%eax, -23304(%ebp)
		.LBB337:
		.LBB338:
				movl	-23304(%ebp), %eax
		.LBE338:
		.LBE337:
  329     FPOS = ADDR(PERM(1))-1;  FMAX = ADDR(PERM(518))
				subl	$1, %eax
				movl	%eax, -17560(%ebp)
				leal	517+PERM.6108@GOTOFF(%ebx), %eax
				movl	%eax, -23308(%ebp)
		.LBB339:
		.LBB340:
				movl	-23308(%ebp), %eax
		.LBE340:
		.LBE339:
				movl	%eax, -17584(%ebp)
  330     %CYCLE I = 1,1,54
				movl	$0, -23412(%ebp)
		.L20:
				cmpl	$54, -23412(%ebp)
				je	.L539
				addl	$1, -23412(%ebp)
				nop
		.L22:
  331        SYMCODE = 0
				movl	$0, %eax
				movl	%eax, -17564(%ebp)
  332        CODE ATOM;  %MONITOR %AND %STOP %IF ATOM # IDENT
				leal	-18792(%ebp), %eax
				movl	%eax, %ecx
				call	CODEATOM.6115
				movl	-17576(%ebp), %eax
				cmpl	$1, %eax
				je	.L540
				movl	$0, -23288(%ebp)
		.LBB341:
		.LBB342:
				subl	$12, %esp
				pushl	-23288(%ebp)
				call	exit@PLT
		.L540:
		.LBE342:
		.LBE341:
				nop
		.L24:
  333        INTEGER(DLIM) = BYTEINTEGER(FPOS+1)<<8+BYTEINTEGER(FPOS+2)
				movl	-17560(%ebp), %eax
				addl	$1, %eax
				movl	%eax, -23268(%ebp)
		.LBB343:
		.LBB344:
				movl	-23268(%ebp), %eax
		.LBE344:
		.LBE343:
				movzbl	(%eax), %eax
				movzbl	%al, %eax
				sall	$8, %eax
				movl	%eax, %ecx
				movl	-17560(%ebp), %eax
				addl	$2, %eax
				movl	%eax, -23272(%ebp)
		.LBB345:
		.LBB346:
				movl	-23272(%ebp), %eax
		.LBE346:
		.LBE345:
				movzbl	(%eax), %eax
				movzbl	%al, %edx
				movl	-17588(%ebp), %eax
				movl	%eax, -23276(%ebp)
		.LBB347:
		.LBB348:
				movl	-23276(%ebp), %eax
		.LBE348:
		.LBE347:
				addl	%ecx, %edx
				movl	%edx, (%eax)
  334        FPOS = FPOS+2
				movl	-17560(%ebp), %eax
				addl	$2, %eax
				movl	%eax, -17560(%ebp)
  335        INTEGER(DLIM+4) = 0
				movl	-17588(%ebp), %eax
				addl	$4, %eax
				movl	%eax, -23280(%ebp)
		.LBB349:
		.LBB350:
				movl	-23280(%ebp), %eax
		.LBE350:
		.LBE349:
				movl	$0, (%eax)
  336        INTEGER(DLIM+8) = HEAD;  HEAD = DLIM
				movl	-17588(%ebp), %eax
				addl	$8, %eax
				movl	%eax, -23284(%ebp)
		.LBB351:
		.LBB352:
				movl	-23284(%ebp), %eax
		.LBE352:
		.LBE351:
				movl	-18624(%ebp), %edx
				movl	(%edx), %edx
				movl	%edx, (%eax)
				movl	-17588(%ebp), %edx
				movl	-18624(%ebp), %eax
				movl	%edx, (%eax)
  337        DLIM = NEWDLIM
				movl	-17596(%ebp), %eax
				movl	%eax, -17588(%ebp)
  338     %REPEAT
				jmp	.L20
		.L539:
  339     C_LOCAL = DLIM
				movl	-17588(%ebp), %eax
				movl	%eax, -18636(%ebp)
  340     FPOS = FSTART-1;  FMAX = FPOS+FSIZE
				movl	8(%ebp), %eax
				subl	$1, %eax
				movl	%eax, -17560(%ebp)
				movl	-17560(%ebp), %edx
				movl	12(%ebp), %eax
				addl	%edx, %eax
				movl	%eax, -17584(%ebp)
  341     SYMCODE = 0
				movl	$0, %eax
				movl	%eax, -17564(%ebp)
		.L30:
  342 L1: ->ENDED %IF FPOS >= FMAX
				movl	-17560(%ebp), %edx
				movl	-17584(%ebp), %eax
				cmpl	%eax, %edx
				jge	.L541
				nop
		.L32:
				nop
		.L33:
		.LBB461:
		.LBB462:
				call	_imp_cputime@PLT
				movl	%eax, -23456(%ebp)
		.LBE462:
		.LBE461:
  343     LINEBASE = FPOS;  LINE = NEXTLINE
				movl	-17560(%ebp), %eax
				movl	%eax, -17540(%ebp)
				movl	-17580(%ebp), %eax
				movl	%eax, -17536(%ebp)
		.L34:
  344 L3: ATOM = JUMP;  !FOR NUMERIC LABEL DETECTION
				movl	$15, %eax
				movl	%eax, -17576(%ebp)
  345     SKIPMIN = SKIP1MIN;  !TO IGNORE NULL STATEMENTS AND COMMENTS
				movl	$86, %eax
				movl	%eax, -17568(%ebp)
  346     CODE ATOM
				leal	-18792(%ebp), %eax
				movl	%eax, %ecx
				call	CODEATOM.6115
  347     SKIPMIN = NLCODE
				movl	$127, %eax
				movl	%eax, -17568(%ebp)
  348     STATS = STATS+1
				movl	STATS.6024@GOTOFF(%ebx), %eax
				addl	$1, %eax
				movl	%eax, STATS.6024@GOTOFF(%ebx)
  349     EXTIND = 0;  DECLTYPE = 0
				movl	$0, -23380(%ebp)
				movl	$0, -23420(%ebp)
  350     CONSTCOUNT = 0;  DIMCOUNT = 0
				movl	$0, %eax
				movl	%eax, -17552(%ebp)
				movl	$0, -23436(%ebp)
  351     NP = 51
				movl	$51, -23400(%ebp)
  352     LINKMAX = 1;  LINK(1) = LINK1;    !FOR GRATUITOUS PHRASE EXIT
				movl	$1, -23396(%ebp)
				movl	-23352(%ebp), %eax
				movl	%eax, -22088(%ebp)
  353     I = GRAM(INITBASE+ATOM)
				movl	-17576(%ebp), %eax
				addl	$472, %eax
				movzwl	GRAM.6106@GOTOFF(%ebx,%eax,2), %eax
				cwtl
				movl	%eax, -23412(%ebp)
  354     ->ERR %IF I = 0
				cmpl	$0, -23412(%ebp)
				je	.L542
				nop
		.L36:
				nop
				jmp	.L127
		.L545:
  355     G = I>>6&1022+ADGRAM0
				movl	-23412(%ebp), %eax
				shrl	$6, %eax
				andl	$1022, %eax
				movl	%eax, %edx
				movl	-23356(%ebp), %eax
				addl	%edx, %eax
				movl	%eax, -23424(%ebp)
  356     ->A(ATOM)
				movl	$356, -23364(%ebp)
				leal	.LC32@GOTOFF(%ebx), %eax
				movl	%eax, -23360(%ebp)
				movl	-17576(%ebp), %eax
				movl	%eax, -23368(%ebp)
				jmp	.L38
		.L39:
				jmp	.L43
		.L491:
				jmp	*%eax
		.L40:
				jmp	.L43
		.L41:
				jmp	.L43
		.L42:
		.L43:
  357 A(1): !IDENT
  358 A(6): !OP3
  359 A(9): !EQ
  360 A(13): !NL
  361 A(25): !COLON
  362     I = SHORTINTEGER(G); G = I>>6&1022+ADGRAM0
				movl	-23424(%ebp), %eax
				movl	%eax, -23264(%ebp)
		.LBB353:
		.LBB354:
				movl	-23264(%ebp), %eax
		.LBE354:
		.LBE353:
				movzwl	(%eax), %eax
				cwtl
				movl	%eax, -23412(%ebp)
				movl	-23412(%ebp), %eax
				shrl	$6, %eax
				andl	$1022, %eax
				movl	%eax, %edx
				movl	-23356(%ebp), %eax
				addl	%edx, %eax
				movl	%eax, -23424(%ebp)
  363     ->A(I&127)
				movl	$363, -23364(%ebp)
				leal	.LC32@GOTOFF(%ebx), %eax
				movl	%eax, -23360(%ebp)
				movl	-23412(%ebp), %eax
				andl	$127, %eax
				movl	%eax, -23368(%ebp)
				jmp	.L38
		.L45:
				jmp	.L63
		.L46:
				jmp	.L63
		.L47:
				jmp	.L63
		.L48:
				jmp	.L63
		.L49:
				jmp	.L63
		.L50:
				jmp	.L63
		.L51:
				jmp	.L63
		.L52:
				jmp	.L63
		.L53:
				jmp	.L63
		.L54:
				jmp	.L63
		.L55:
				jmp	.L63
		.L56:
				jmp	.L63
		.L57:
				jmp	.L63
		.L58:
				jmp	.L63
		.L59:
				jmp	.L63
		.L60:
				jmp	.L63
		.L61:
				jmp	.L63
		.L62:
				jmp	.L63
		.L575:
  364 A(10): A(11): A(12): A(15): A(18): A(19): A(20):
  365 A(21): A(23): A(27): A(37):
  366 A(43): A(44): A(45):
  367 A(47): A(48): A(50): A(57): A(65):
  368 CODE:
  369     CODE ATOM
				leal	-18792(%ebp), %eax
				movl	%eax, %ecx
				call	CODEATOM.6115
				jmp	.L73
		.L563:
  370 ON:
  371 REP:%CYCLE
  372 !     LOOPS = LOOPS+1
  373        CLASS = SHORTINTEGER(G)&127
				movl	-23424(%ebp), %eax
				movl	%eax, -23260(%ebp)
		.LBB355:
		.LBB356:
				movl	-23260(%ebp), %eax
		.LBE356:
		.LBE355:
				movzwl	(%eax), %eax
				cwtl
				andl	$127, %eax
				movl	%eax, -23428(%ebp)
  374        %EXIT %IF CLASS >= 60 %OR CLASS = ATOM
				cmpl	$59, -23428(%ebp)
				jg	.L543
				movl	-17576(%ebp), %eax
				cmpl	%eax, -23428(%ebp)
				jne	.L544
				jmp	.L70
		.L543:
				nop
		.L70:
				nop
		.L72:
				nop
		.L71:
  375        G = G+2
				addl	$2, -23424(%ebp)
  376     %REPEAT
				jmp	.L73
		.L75:
				jmp	.L91
		.L76:
				jmp	.L91
		.L77:
				jmp	.L91
		.L78:
				jmp	.L91
		.L79:
				jmp	.L91
		.L80:
				jmp	.L91
		.L81:
				jmp	.L91
		.L82:
				jmp	.L91
		.L83:
				jmp	.L91
		.L84:
				jmp	.L91
		.L85:
				jmp	.L91
		.L86:
				jmp	.L91
		.L87:
				jmp	.L91
		.L88:
				jmp	.L91
		.L89:
				jmp	.L91
		.L90:
				jmp	.L91
		.L634:
  377     G = SHORTINTEGER(G)>>6&1022+ADGRAM0
				movl	-23424(%ebp), %eax
				movl	%eax, -23256(%ebp)
		.LBB357:
		.LBB358:
				movl	-23256(%ebp), %eax
		.LBE358:
		.LBE357:
				movzwl	(%eax), %eax
				cwtl
				shrl	$6, %eax
				andl	$1022, %eax
				movl	%eax, %edx
				movl	-23356(%ebp), %eax
				addl	%edx, %eax
				movl	%eax, -23424(%ebp)
  378     ->A(CLASS)
				movl	$378, -23364(%ebp)
				leal	.LC32@GOTOFF(%ebx), %eax
				movl	%eax, -23360(%ebp)
				movl	-23428(%ebp), %eax
				movl	%eax, -23368(%ebp)
				jmp	.L38
		.L544:
  379 A(109): A(110): A(111): A(113): A(114):
  380 A(115): A(116): A(117): A(118): A(119):
  381 A(120): A(121): A(122): A(123): A(124):
  382 A(125): A(126):
  383 ENTER:
  384     LINKMAX = LINKMAX+1;  ->ERR %IF LINKMAX > 20
				addl	$1, -23396(%ebp)
				cmpl	$20, -23396(%ebp)
				jg	.L545
				nop
		.L94:
				nop
				jmp	.L127
		.L570:
  385     LINK(LINKMAX) = G
				movl	-23396(%ebp), %eax
				leal	-1(%eax), %edx
				movl	-23424(%ebp), %eax
				movl	%eax, -22088(%ebp,%edx,4)
  386     G = PHRASE(CLASS)<<1+ADGRAM0
				movl	-23428(%ebp), %eax
				subl	$109, %eax
				movzwl	-22940(%ebp,%eax,2), %eax
				cwtl
				leal	(%eax,%eax), %edx
				movl	-23356(%ebp), %eax
				addl	%edx, %eax
				movl	%eax, -23424(%ebp)
  387     ->REP
				jmp	.L73
		.L95:
		.L96:
  388 A(66):
  389 EXIT:
  390     G = LINK(LINKMAX);  LINKMAX = LINKMAX-1
				movl	-23396(%ebp), %eax
				subl	$1, %eax
				movl	-22088(%ebp,%eax,4), %eax
				movl	%eax, -23424(%ebp)
				subl	$1, -23396(%ebp)
  391     ->REP
				jmp	.L73
		.L97:
  392
  393 A(67): !ALT (ALTERNATIVE PHRASE RECOGNISED)
  394     I = SHORTINTEGER(LINK(LINKMAX));  LINKMAX = LINKMAX-1
				movl	-23396(%ebp), %eax
				subl	$1, %eax
				movl	-22088(%ebp,%eax,4), %eax
				movl	%eax, -23252(%ebp)
		.LBB359:
		.LBB360:
				movl	-23252(%ebp), %eax
		.LBE360:
		.LBE359:
				movzwl	(%eax), %eax
				cwtl
				movl	%eax, -23412(%ebp)
				subl	$1, -23396(%ebp)
  395     ->ERR %IF I&127 # 0;  !NO ALTERNATIVE
				jmp	.L127
		.L99:
  396     G = I>>6&1022+ADGRAM0
  397     ->ON
  398 A(68): !BREAK (TERMINATOR WITHIN CONST LIST)
  399     REPORT(FAULTNUM) %IF FAULTNUM >= 0
				movl	-17524(%ebp), %eax
				testl	%eax, %eax
				js	.L546
				movl	-17524(%ebp), %edx
				subl	$12, %esp
				leal	-18792(%ebp), %eax
				pushl	%edx
				movl	%eax, %ecx
				call	REPORT.6113
				addl	$16, %esp
				jmp	.L101
		.L546:
				nop
		.L101:
  400     %IF ATOMTYPE = 0 %START;  !NL
				movl	-17572(%ebp), %eax
				testl	%eax, %eax
				jne	.L547
				nop
		.L103:
  401        LINEBASE = FPOS;  LINE = NEXTLINE
				movl	-17560(%ebp), %eax
				movl	%eax, -17540(%ebp)
				movl	-17580(%ebp), %eax
				movl	%eax, -17536(%ebp)
  402     %FINISH
  403     ->CODE
				jmp	.L63
		.L547:
				jmp	.L63
		.L104:
		.L105:
  404
  405 UNKNOWN:
  406     %WHILE DPOS < 0 %CYCLE
				movl	-17548(%ebp), %eax
				testl	%eax, %eax
				jns	.L548
				nop
		.L107:
  407        ->IGNORE %IF STRING(-DPOS+4) = STRING(DLIM+12)
				movl	-17588(%ebp), %eax
				addl	$12, %eax
				movl	%eax, -23244(%ebp)
		.LBB361:
		.LBB362:
				movl	-23244(%ebp), %edx
		.LBE362:
		.LBE361:
				movl	-17548(%ebp), %eax
				movl	$4, %ecx
				subl	%eax, %ecx
				movl	%ecx, %eax
				movl	%eax, -23248(%ebp)
		.LBB363:
		.LBB364:
				movl	-23248(%ebp), %eax
		.LBE364:
		.LBE363:
				subl	$8, %esp
				pushl	%edx
				pushl	%eax
				call	_imp_strcmp@PLT
				addl	$16, %esp
				testl	%eax, %eax
				je	.L549
				nop
		.L111:
				nop
				jmp	.L136
		.L572:
  408        DPOS = INTEGER(-DPOS)
				movl	-17548(%ebp), %eax
				negl	%eax
				movl	%eax, -23240(%ebp)
		.LBB365:
		.LBB366:
				movl	-23240(%ebp), %eax
		.LBE366:
		.LBE365:
				movl	(%eax), %eax
				movl	%eax, -17548(%ebp)
  409     %REPEAT
				jmp	.L104
		.L548:
  410     FAULT(2)
				subl	$12, %esp
				leal	-18792(%ebp), %eax
				pushl	$2
				movl	%eax, %ecx
				call	FAULT.6122
				addl	$16, %esp
		.L114:
  411     %CYCLE
  412        DBOUND = DBOUND-4;  NEWDLIM = NEWDLIM-4
				movl	-17592(%ebp), %eax
				subl	$4, %eax
				movl	%eax, -17592(%ebp)
				movl	-17596(%ebp), %eax
				subl	$4, %eax
				movl	%eax, -17596(%ebp)
  413        %EXIT %IF NEWDLIM = DLIM+8
				movl	-17588(%ebp), %eax
				leal	8(%eax), %edx
				movl	-17596(%ebp), %eax
				cmpl	%edx, %eax
				jne	.L550
				jmp	.L117
		.L550:
				nop
		.L116:
  414        INTEGER(DBOUND) = INTEGER(NEWDLIM)
				movl	-17596(%ebp), %eax
				movl	%eax, -23232(%ebp)
		.LBB367:
		.LBB368:
				movl	-23232(%ebp), %edx
		.LBE368:
		.LBE367:
				movl	-17592(%ebp), %eax
				movl	%eax, -23236(%ebp)
		.LBB369:
		.LBB370:
				movl	-23236(%ebp), %eax
		.LBE370:
		.LBE369:
				movl	(%edx), %edx
				movl	%edx, (%eax)
  415     %REPEAT
				jmp	.L114
		.L117:
		.L120:
  416     HEAD == INTEGER(HEAD+8) %WHILE HEAD > 0
				movl	-18624(%ebp), %eax
				movl	(%eax), %eax
				testl	%eax, %eax
				jle	.L551
				movl	-18624(%ebp), %eax
				movl	(%eax), %eax
				addl	$8, %eax
				movl	%eax, -23228(%ebp)
		.LBB371:
		.LBB372:
				movl	-23228(%ebp), %eax
		.LBE372:
		.LBE371:
				movl	%eax, -18624(%ebp)
				jmp	.L117
		.L551:
				nop
		.L122:
  417     INTEGER(DBOUND) = HEAD;  HEAD = -DBOUND
				movl	-17592(%ebp), %eax
				movl	%eax, -23224(%ebp)
		.LBB373:
		.LBB374:
				movl	-23224(%ebp), %eax
		.LBE374:
		.LBE373:
				movl	-18624(%ebp), %edx
				movl	(%edx), %edx
				movl	%edx, (%eax)
				movl	-17592(%ebp), %eax
				negl	%eax
				movl	%eax, %edx
				movl	-18624(%ebp), %eax
				movl	%edx, (%eax)
  418     ->IGNORE
				jmp	.L136
		.L125:
  419 MODERR:
  420     FAULT(3)
				subl	$12, %esp
				leal	-18792(%ebp), %eax
				pushl	$3
				movl	%eax, %ecx
				call	FAULT.6122
				addl	$16, %esp
  421     ->IGNORE
				jmp	.L136
		.L126:
				jmp	.L127
		.L37:
				jmp	.L127
		.L542:
  422 A(0): A(64):
  423 ERR:FAULTNUM = 0;  FAULTNUM = ATOMTYPE %IF ATOM = 0
				movl	$0, %eax
				movl	%eax, -17524(%ebp)
				movl	-17576(%ebp), %eax
				testl	%eax, %eax
				jne	.L552
				movl	-17572(%ebp), %eax
				movl	%eax, -17524(%ebp)
				jmp	.L129
		.L552:
				nop
		.L129:
  424     ->DISASTER %IF FAULTNUM = 99
				movl	-17524(%ebp), %eax
				cmpl	$99, %eax
				je	.L553
				nop
		.L131:
				nop
				jmp	.L132
		.L586:
  425     FAULTPOS = FPOS1
				movl	-17528(%ebp), %eax
				movl	%eax, -17532(%ebp)
				jmp	.L136
		.L112:
		.L549:
  426 IGNORE:
  427     I=ATOM %AND CODE ATOM %WHILE ATOM # TERMINATOR
				movl	-17576(%ebp), %eax
				cmpl	$13, %eax
				je	.L554
				movl	-17576(%ebp), %eax
				movl	%eax, -23412(%ebp)
				leal	-18792(%ebp), %eax
				movl	%eax, %ecx
				call	CODEATOM.6115
				jmp	.L136
		.L554:
				nop
		.L135:
  428     C_STACK = C_STACK<<2+3 %IF I = START
				cmpl	$53, -23412(%ebp)
				jne	.L555
				movl	-18640(%ebp), %eax
				sall	$2, %eax
				addl	$3, %eax
				movl	%eax, -18640(%ebp)
				jmp	.L138
		.L555:
				nop
		.L138:
  429     C_STACK = C_STACK<<2+2 %IF I = CYCLE
				cmpl	$54, -23412(%ebp)
				jne	.L556
				movl	-18640(%ebp), %eax
				sall	$2, %eax
				addl	$2, %eax
				movl	%eax, -18640(%ebp)
				jmp	.L140
		.L556:
				nop
		.L140:
  430     REPORT(FAULTNUM) %IF FAULTNUM >= 0
				movl	-17524(%ebp), %eax
				testl	%eax, %eax
				js	.L557
				movl	-17524(%ebp), %edx
				subl	$12, %esp
				leal	-18792(%ebp), %eax
				pushl	%edx
				movl	%eax, %ecx
				call	REPORT.6113
				addl	$16, %esp
				jmp	.L149
		.L142:
		.L557:
				nop
		.L143:
		.L149:
  431     %WHILE I = COMMA %AND ATOMTYPE = 0 %CYCLE
				cmpl	$10, -23412(%ebp)
				jne	.L558
				movl	-17572(%ebp), %eax
				testl	%eax, %eax
				jne	.L559
				nop
				jmp	.L151
		.L559:
				nop
				jmp	.L151
		.L610:
  432        I=ATOM %AND CODE ATOM %UNTIL ATOM = TERMINATOR
				nop
		.L146:
				movl	-17576(%ebp), %eax
				movl	%eax, -23412(%ebp)
				leal	-18792(%ebp), %eax
				movl	%eax, %ecx
				call	CODEATOM.6115
				movl	-17576(%ebp), %eax
				cmpl	$13, %eax
				je	.L560
				jmp	.L146
		.L560:
				nop
		.L148:
  433     %REPEAT
				jmp	.L149
		.L145:
		.L150:
				jmp	.L151
		.L558:
  434 A(69): !FIN
  435 FIN:REPORT(FAULTNUM) %IF FAULTNUM >= 0
				movl	-17524(%ebp), %eax
				testl	%eax, %eax
				js	.L561
				movl	-17524(%ebp), %edx
				subl	$12, %esp
				leal	-18792(%ebp), %eax
				pushl	%edx
				movl	%eax, %ecx
				call	REPORT.6113
				addl	$16, %esp
				jmp	.L506
		.L153:
		.L561:
				nop
		.L506:
  436     %IF C_BTYPE&1 # 0 %START;  !PSEUDO BLOCK ENTRY FOR SPEC
  437        DLIM = C_LOCAL
				movl	-18636(%ebp), %eax
				movl	%eax, -17588(%ebp)
  438        C = HOLD(LEVEL);  LEVEL = LEVEL-1
				movl	-18644(%ebp), %eax
				leal	-1(%eax), %edx
				movl	%edx, %eax
				addl	%eax, %eax
				addl	%edx, %eax
				sall	$2, %eax
				leal	-24(%ebp), %esi
				addl	%esi, %eax
				subl	$18768, %eax
				movl	4(%eax), %edx
				movl	%edx, -18640(%ebp)
				movl	8(%eax), %edx
				movl	%edx, -18636(%ebp)
				movl	12(%eax), %eax
				movl	%eax, -18632(%ebp)
				movl	-18644(%ebp), %eax
				subl	$1, %eax
				movl	%eax, -18644(%ebp)
		.L154:
  439     %FINISH
  440     ->L3 %IF ATOMTYPE # 0;  !COLON OR SEMI-COLON
				movl	-17572(%ebp), %eax
				testl	%eax, %eax
				je	.L562
				jmp	.L34
		.L562:
				nop
		.L156:
  441     ->L1;  !NEWLINE
				jmp	.L30
		.L553:
  442 DISASTER:
  443     PRINT STRING("** SPACE EXHAUSTED AT LINE");  WRITE(NEXTLINE,1)
				leal	-19048(%ebp), %eax
				leal	.LC2@GOTOFF(%ebx), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-21608(%ebp), %eax
				leal	-19048(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-19560(%ebp), %eax
				leal	-21608(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.LBE375:
		.LBB376:
		.LBB377:
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-19560(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				call	_imp_printstring@PLT
				addl	$256, %esp
		.LBE377:
		.LBE376:
				movl	-17580(%ebp), %eax
				subl	$8, %esp
				pushl	$1
				pushl	%eax
				call	_imp_writeint@PLT
				addl	$16, %esp
		.LBB378:
		.LBB379:
				call	_imp_newline@PLT
		.LBE379:
		.LBE378:
  444     NEWLINE
  445     %RETURN
				jmp	.L10
		.L627:
  446
  447 A(74):
  448 NAPP:
  449     -> ON %IF TYPE&APPMASK = 0
				nop
				jmp	.L73
		.L601:
				movl	-23404(%ebp), %eax
				andl	$1, %eax
				testl	%eax, %eax
				je	.L563
				nop
		.L161:
  450     ->ERR
				jmp	.L127
		.L162:
  451 ER20:
  452     FAULT(20)
				subl	$12, %esp
				leal	-18792(%ebp), %eax
				pushl	$20
				movl	%eax, %ecx
				call	FAULT.6122
				addl	$16, %esp
  453     ->NAPP
				jmp	.L158
		.L598:
  454 ER22:
  455     FAULT(22)
				subl	$12, %esp
				leal	-18792(%ebp), %eax
				pushl	$22
				movl	%eax, %ecx
				call	FAULT.6122
				addl	$16, %esp
  456     ->NAPP
				jmp	.L158
		.L164:
  457
  458 A(22): !PREC
  459     PRECISION = ATOMTYPE
				movl	-17572(%ebp), %eax
				movl	%eax, -23408(%ebp)
  460     ->CODE
				jmp	.L63
		.L165:
		.L166:
  461 A(38): !EXTERNAL
  462 A(42): !SYSTEM,DYNAMIC
  463     EXTIND = 1
				movl	$1, -23380(%ebp)
  464     ->CODE
				jmp	.L63
		.L167:
  465 A(70): !RESET
  466     DECLTYPE = 0
				movl	$0, -23420(%ebp)
  467     ->ON
				jmp	.L73
		.L168:
  468 A(36): !RECORD
  469     RECIDENTS = DLIM
				movl	-17588(%ebp), %eax
				movl	%eax, -23392(%ebp)
				jmp	.L178
		.L169:
				jmp	.L178
		.L170:
				jmp	.L178
		.L171:
				jmp	.L178
		.L172:
				jmp	.L178
		.L173:
				jmp	.L178
		.L174:
				jmp	.L178
		.L175:
				jmp	.L178
		.L176:
				jmp	.L178
		.L177:
		.L178:
  470 A(29): !REG
  471 A(30): !SWITCH
  472 A(31): !NTYPE
  473 A(32): !OWN
  474 A(33): !ARRAY
  475 A(34): !STRING
  476 A(35): !NAME
  477 A(39): !FM
  478 A(40): !ROUTINE
  479 A(41): !SPEC
  480     DECLTYPE = DECLTYPE!!ATOMTYPE
				movl	-17572(%ebp), %eax
				xorl	%eax, -23420(%ebp)
  481     DECLTYPE = DECLTYPE!PRECISION %IF DECLTYPE&X'F0' = X'10'
				movl	-23420(%ebp), %eax
				andl	$1, %eax
				testl	%eax, %eax
				jne	.L564
				movl	-23408(%ebp), %eax
				orl	%eax, -23420(%ebp)
				jmp	.L180
		.L564:
				nop
		.L180:
  482     IDENTS = DLIM
				movl	-17588(%ebp), %eax
				movl	%eax, -18792(%ebp)
  483     MODES = \0;      !FOR SPEC LOOKS
				movl	$-1, -23416(%ebp)
  484     ->CODE
				jmp	.L63
		.L181:
  485 A(75): !NOTYPE
  486     DECLTYPE = X'F9';         ! '?' VAR
				movl	$249, -23420(%ebp)
  487     ->ON
				jmp	.L73
		.L182:
  488 A(78): !IDENT: DC (DECLARE RECORD COMPONENT)
  489     HEAD == INTEGER(FIDENTPOS+4);  DPOS = HEAD;  !ALTER SEARCH LIST
				movl	-23384(%ebp), %eax
				addl	$4, %eax
				movl	%eax, -23220(%ebp)
		.LBB380:
		.LBB381:
				movl	-23220(%ebp), %eax
		.LBE381:
		.LBE380:
				movl	%eax, -18624(%ebp)
				movl	-18624(%ebp), %eax
				movl	(%eax), %eax
				movl	%eax, -17548(%ebp)
  490 A(76): !IDENT: D (DECLARE)
  491 D1: ->ADD %IF C_BTYPE&1 # 0;  !WITHIN SPEC PARAMS
				jmp	.L186
		.L184:
		.L185:
				jmp	.L186
		.L187:
		.L188:
		.L189:
  492 D2: %CYCLE
  493        ->NEW %IF DPOS < C_LOCAL
				movl	-18636(%ebp), %eax
				movl	-17548(%ebp), %edx
				cmpl	%eax, %edx
				jl	.L565
				nop
		.L191:
				nop
		.L192:
  494        %EXIT %IF STRING(DPOS+12) = STRING(DLIM+12)
				movl	-17588(%ebp), %eax
				addl	$12, %eax
				movl	%eax, -23212(%ebp)
		.LBB382:
		.LBB383:
				movl	-23212(%ebp), %edx
		.LBE383:
		.LBE382:
				movl	-17548(%ebp), %eax
				addl	$12, %eax
				movl	%eax, -23216(%ebp)
		.LBB384:
		.LBB385:
				movl	-23216(%ebp), %eax
		.LBE385:
		.LBE384:
				subl	$8, %esp
				pushl	%edx
				pushl	%eax
				call	_imp_strcmp@PLT
				addl	$16, %esp
				testl	%eax, %eax
				je	.L566
				nop
		.L196:
				nop
		.L197:
  495        DPOS = INTEGER(DPOS+8)
				movl	-17548(%ebp), %eax
				addl	$8, %eax
				movl	%eax, -23208(%ebp)
		.LBB386:
		.LBB387:
				movl	-23208(%ebp), %eax
		.LBE387:
		.LBE386:
				movl	(%eax), %eax
				movl	%eax, -17548(%ebp)
  496     %REPEAT
				jmp	.L187
		.L566:
  497     ->D5 %IF INTEGER(DPOS)&X'FF'-1 = DECLTYPE %C
				movl	-17548(%ebp), %eax
				movl	%eax, -23204(%ebp)
		.LBB388:
		.LBB389:
				movl	-23204(%ebp), %eax
		.LBE389:
		.LBE388:
				movl	(%eax), %eax
				movzbl	%al, %eax
				subl	$1, %eax
				cmpl	%eax, -23420(%ebp)
				jne	.L567
				movl	-23420(%ebp), %eax
				andl	$1, %eax
				testl	%eax, %eax
				je	.L568
				jmp	.L201
		.L567:
				nop
		.L201:
				nop
		.L203:
  498       %AND DECLTYPE&6 # 0 %AND DECLTYPE&1 = 0
  499     FAULT(5);  !DUPLICATE
				subl	$12, %esp
				leal	-18792(%ebp), %eax
				pushl	$5
				movl	%eax, %ecx
				call	FAULT.6122
				addl	$16, %esp
				jmp	.L192
		.L565:
  500 NEW:INTEGER(DLIM+8) = HEAD;  HEAD = DLIM
				movl	-17588(%ebp), %eax
				addl	$8, %eax
				movl	%eax, -23200(%ebp)
		.LBB390:
		.LBB391:
				movl	-23200(%ebp), %eax
		.LBE391:
		.LBE390:
				movl	-18624(%ebp), %edx
				movl	(%edx), %edx
				movl	%edx, (%eax)
				movl	-17588(%ebp), %edx
				movl	-18624(%ebp), %eax
				movl	%edx, (%eax)
		.L186:
  501 ADD:INTEGER(DLIM) = DECLTYPE;  INTEGER(DLIM+4) = 0
				movl	-17588(%ebp), %eax
				movl	%eax, -23192(%ebp)
		.LBB392:
		.LBB393:
				movl	-23192(%ebp), %eax
		.LBE393:
		.LBE392:
				movl	-23420(%ebp), %edx
				movl	%edx, (%eax)
				movl	-17588(%ebp), %eax
				addl	$4, %eax
				movl	%eax, -23196(%ebp)
		.LBB394:
		.LBB395:
				movl	-23196(%ebp), %eax
		.LBE395:
		.LBE394:
				movl	$0, (%eax)
  502     DLIM = NEWDLIM
				movl	-17596(%ebp), %eax
				movl	%eax, -17588(%ebp)
  503     ->CODE
				jmp	.L63
		.L568:
  504    !PROCEDURE BODY AFTER SPEC, LABEL AFTER JUMP
  505 D5: INTEGER(DPOS) = DECLTYPE %IF DECLTYPE = LAB
				cmpl	$12, -23420(%ebp)
				jne	.L569
				movl	-17548(%ebp), %eax
				movl	%eax, -23188(%ebp)
		.LBB396:
		.LBB397:
				movl	-23188(%ebp), %eax
		.LBE397:
		.LBE396:
				movl	-23420(%ebp), %edx
				movl	%edx, (%eax)
				jmp	.L208
		.L569:
				nop
		.L208:
  506     IDENTS = DPOS
				movl	-17548(%ebp), %eax
				movl	%eax, -18792(%ebp)
  507     ->CODE
				jmp	.L63
		.L210:
  508 A(77): !IDENT: DF (DECLARE RECORD FORMAT)
  509     DECLTYPE = RECFORMAT;  FIDENTPOS = DLIM
				movl	$4, -23420(%ebp)
				movl	-17588(%ebp), %eax
				movl	%eax, -23384(%ebp)
  510     ->D1
				jmp	.L184
		.L211:
  511 A(2): !CONST
  512     TYPE = ATOMTYPE;  VAL = ATOMVAL
				movl	-17572(%ebp), %eax
				movl	%eax, -23404(%ebp)
				movl	-18628(%ebp), %eax
				movl	%eax, -22952(%ebp)
  513     ->CODE
				jmp	.L63
		.L212:
  514 A(3): !SUB (ABSORBS FOLLOWING IDENT)
  515     -> ERR %IF TYPE&X'FFF4' # 0 %AND TYPE # RECFORMAT;  !NOT RECORD
				nop
				jmp	.L127
		.L571:
				cmpl	$4, -23404(%ebp)
				jne	.L570
				nop
		.L214:
  516     CODE ATOM;  ->ERR %IF ATOM # IDENT
				nop
				jmp	.L127
		.L611:
				leal	-18792(%ebp), %eax
				movl	%eax, %ecx
				call	CODEATOM.6115
				movl	-17576(%ebp), %eax
				cmpl	$1, %eax
				jne	.L571
				nop
		.L216:
  517     ->IGNORE %IF VAL = 0
				nop
		.L133:
		.L136:
				movl	-22952(%ebp), %eax
				testl	%eax, %eax
				je	.L572
				nop
		.L218:
  518     DPOS = VAL;  HEAD == VAL
				movl	-22952(%ebp), %eax
				movl	%eax, -17548(%ebp)
				leal	-22952(%ebp), %eax
				movl	%eax, -18624(%ebp)
				jmp	.L219
		.L576:
  519 A(81): !IDENT: LOOK
  520 LOOK:
  521     LOOKS = LOOKS+1
				movl	LOOKS.6029@GOTOFF(%ebx), %eax
				addl	$1, %eax
				movl	%eax, LOOKS.6029@GOTOFF(%ebx)
		.L221:
  522     %CYCLE
  523        TIMES = TIMES+1
				movl	TIMES.6030@GOTOFF(%ebx), %eax
				addl	$1, %eax
				movl	%eax, TIMES.6030@GOTOFF(%ebx)
  524        ->UNKNOWN %IF DPOS <= 0
				movl	-17548(%ebp), %eax
				testl	%eax, %eax
				jg	.L573
				jmp	.L104
		.L573:
				nop
		.L223:
  525        %EXIT %IF STRING(DPOS+12) = STRING(DLIM+12)
				movl	-17588(%ebp), %eax
				addl	$12, %eax
				movl	%eax, -23180(%ebp)
		.LBB398:
		.LBB399:
				movl	-23180(%ebp), %edx
		.LBE399:
		.LBE398:
				movl	-17548(%ebp), %eax
				addl	$12, %eax
				movl	%eax, -23184(%ebp)
		.LBB400:
		.LBB401:
				movl	-23184(%ebp), %eax
		.LBE401:
		.LBE400:
				subl	$8, %esp
				pushl	%edx
				pushl	%eax
				call	_imp_strcmp@PLT
				addl	$16, %esp
				testl	%eax, %eax
				je	.L574
				nop
		.L227:
				nop
		.L228:
  526        DPOS = INTEGER(DPOS+8)
				movl	-17548(%ebp), %eax
				addl	$8, %eax
				movl	%eax, -23176(%ebp)
		.LBB402:
		.LBB403:
				movl	-23176(%ebp), %eax
		.LBE403:
		.LBE402:
				movl	(%eax), %eax
				movl	%eax, -17548(%ebp)
  527     %REPEAT
				jmp	.L221
		.L574:
  528     TYPE = INTEGER(DPOS);  VAL = INTEGER(DPOS+4)
				movl	-17548(%ebp), %eax
				movl	%eax, -23168(%ebp)
		.LBB404:
		.LBB405:
				movl	-23168(%ebp), %eax
		.LBE405:
		.LBE404:
				movl	(%eax), %eax
				movl	%eax, -23404(%ebp)
				movl	-17548(%ebp), %eax
				addl	$4, %eax
				movl	%eax, -23172(%ebp)
		.LBB406:
		.LBB407:
				movl	-23172(%ebp), %eax
		.LBE407:
		.LBE406:
				movl	(%eax), %eax
				movl	%eax, -22952(%ebp)
  529     ->CODE %IF MODES<<(TYPE&15) < 0
				nop
				jmp	.L63
		.L579:
				movl	-23404(%ebp), %eax
				andl	$15, %eax
				movl	-23416(%ebp), %edx
				movl	%eax, %ecx
				sall	%cl, %edx
				movl	%edx, %eax
				testl	%eax, %eax
				js	.L575
				nop
		.L233:
  530     ->MODERR
				jmp	.L125
		.L234:
  531 A(82): !IDENT: IMP1LOOK
  532     MODES = IMP1MODES
				movl	$1140588544, -23416(%ebp)
  533     ->LOOK %IF BYTEINTEGER(FPOS) # ':'
				nop
		.L219:
		.L220:
				movl	-17560(%ebp), %eax
				movl	%eax, -23164(%ebp)
		.LBB408:
		.LBB409:
				movl	-23164(%ebp), %eax
		.LBE409:
		.LBE408:
				movzbl	(%eax), %eax
				cmpb	$58, %al
				jne	.L576
				nop
		.L237:
  534     DECLTYPE = LAB
				movl	$12, -23420(%ebp)
  535     ->D2
				jmp	.L187
		.L238:
  536 A(83): !IDENT: IMPLOOK
  537     MODES = IMPMODES
				movl	$1139802112, -23416(%ebp)
  538     ->LOOK
				jmp	.L219
		.L239:
  539 A(84): !IDENT: EXPLOOK
  540     MODES = EXPMODES
				movl	$-252706816, -23416(%ebp)
  541     ->LOOK
				jmp	.L219
		.L240:
  542 A(85): !IDENT: FLOOK
  543     MODES = FMATMODES
				movl	$134217728, -23416(%ebp)
  544     ->LOOK
				jmp	.L219
		.L241:
		.L242:
  545 A(86): !IDENT: JLOOK
  546     %WHILE DPOS >= C_LOCAL %CYCLE
				movl	-18636(%ebp), %eax
				movl	-17548(%ebp), %edx
				cmpl	%eax, %edx
				jl	.L577
				nop
		.L244:
  547        ->JL1 %IF STRING(DPOS+12) = STRING(DLIM+12)
				movl	-17588(%ebp), %eax
				addl	$12, %eax
				movl	%eax, -23156(%ebp)
		.LBB410:
		.LBB411:
				movl	-23156(%ebp), %edx
		.LBE411:
		.LBE410:
				movl	-17548(%ebp), %eax
				addl	$12, %eax
				movl	%eax, -23160(%ebp)
		.LBB412:
		.LBB413:
				movl	-23160(%ebp), %eax
		.LBE413:
		.LBE412:
				subl	$8, %esp
				pushl	%edx
				pushl	%eax
				call	_imp_strcmp@PLT
				addl	$16, %esp
				testl	%eax, %eax
				je	.L578
				nop
		.L248:
				nop
		.L249:
  548        DPOS = INTEGER(DPOS+8)
				movl	-17548(%ebp), %eax
				addl	$8, %eax
				movl	%eax, -23152(%ebp)
		.LBB414:
		.LBB415:
				movl	-23152(%ebp), %eax
		.LBE415:
		.LBE414:
				movl	(%eax), %eax
				movl	%eax, -17548(%ebp)
  549     %REPEAT
				jmp	.L241
		.L577:
  550     INTEGER(DLIM+8) = HEAD;  HEAD = DLIM
				movl	-17588(%ebp), %eax
				addl	$8, %eax
				movl	%eax, -23140(%ebp)
		.LBB416:
		.LBB417:
				movl	-23140(%ebp), %eax
		.LBE417:
		.LBE416:
				movl	-18624(%ebp), %edx
				movl	(%edx), %edx
				movl	%edx, (%eax)
				movl	-17588(%ebp), %edx
				movl	-18624(%ebp), %eax
				movl	%edx, (%eax)
  551     INTEGER(DLIM) = JUMPLAB;  INTEGER(DLIM+4) = 0
				movl	-17588(%ebp), %eax
				movl	%eax, -23144(%ebp)
		.LBB418:
		.LBB419:
				movl	-23144(%ebp), %eax
		.LBE419:
		.LBE418:
				movl	$13, (%eax)
				movl	-17588(%ebp), %eax
				addl	$4, %eax
				movl	%eax, -23148(%ebp)
		.LBB420:
		.LBB421:
				movl	-23148(%ebp), %eax
		.LBE421:
		.LBE420:
				movl	$0, (%eax)
  552     DPOS = DLIM;  DLIM = NEWDLIM
				movl	-17588(%ebp), %eax
				movl	%eax, -17548(%ebp)
				movl	-17596(%ebp), %eax
				movl	%eax, -17588(%ebp)
				jmp	.L249
		.L578:
  553 JL1:TYPE = INTEGER(DPOS)
				movl	-17548(%ebp), %eax
				movl	%eax, -23136(%ebp)
		.LBB422:
		.LBB423:
				movl	-23136(%ebp), %eax
		.LBE423:
		.LBE422:
				movl	(%eax), %eax
				movl	%eax, -23404(%ebp)
  554     ->CODE %IF TYPE&14 = LAB
				nop
		.L63:
		.L64:
				movl	-23404(%ebp), %eax
				andl	$1, %eax
				testl	%eax, %eax
				je	.L579
				nop
		.L256:
  555     ->MODERR
				jmp	.L125
		.L257:
  556 A(79): !RECSPEC
  557     ->MODERR %IF TYPE&X'F4' # 0 %OR VAL # 0 %OR DPOS < C_LOCAL
				movl	-23404(%ebp), %eax
				andl	$1, %eax
				testl	%eax, %eax
				jne	.L580
				movl	-22952(%ebp), %eax
				testl	%eax, %eax
				jne	.L581
				movl	-18636(%ebp), %eax
				movl	-17548(%ebp), %edx
				cmpl	%eax, %edx
				jge	.L582
				jmp	.L259
		.L580:
				nop
				jmp	.L125
		.L581:
				nop
		.L259:
				jmp	.L125
		.L582:
				nop
		.L261:
  558     RECIDENTS = -DPOS
				movl	-17548(%ebp), %eax
				negl	%eax
				movl	%eax, -23392(%ebp)
  559     ->ON
				jmp	.L73
		.L262:
  560 A(88): !FSET
  561     IDENTS = RECIDENTS
				movl	-23392(%ebp), %eax
				movl	%eax, -18792(%ebp)
  562     %IF IDENTS >= 0 %THEN DEFINE(4,INTEGER(DPOS+4)) %C
				movl	-18792(%ebp), %eax
				testl	%eax, %eax
				js	.L583
				movl	-17548(%ebp), %eax
				addl	$4, %eax
				movl	%eax, -23132(%ebp)
		.LBB424:
		.LBB425:
				movl	-23132(%ebp), %eax
		.LBE425:
		.LBE424:
				movl	(%eax), %edx
				subl	$8, %esp
				leal	-18792(%ebp), %eax
				pushl	%edx
				pushl	$4
				movl	%eax, %ecx
				call	DEFINE.6120
				addl	$16, %esp
				nop
		.L266:
				nop
		.L264:
				movl	-17548(%ebp), %eax
				addl	$4, %eax
				movl	%eax, -23124(%ebp)
		.LBB426:
		.LBB427:
				movl	-23124(%ebp), %edx
		.LBE427:
		.LBE426:
				movl	-18792(%ebp), %eax
				movl	$4, %ecx
				subl	%eax, %ecx
				movl	%ecx, %eax
				movl	%eax, -23128(%ebp)
		.LBB428:
		.LBB429:
				movl	-23128(%ebp), %eax
		.LBE429:
		.LBE428:
				movl	(%edx), %edx
				movl	%edx, (%eax)
  563     %ELSE INTEGER(-IDENTS+4) = INTEGER(DPOS+4)
  564     ->ON
				jmp	.L73
		.L583:
				jmp	.L73
		.L269:
  565 A(80):  !PROCSPEC
  566     ->MODERR %IF TYPE&X'FF03' # FN %OR DPOS < C_LOCAL
				movl	-23404(%ebp), %eax
				andl	$1, %eax
				testl	%eax, %eax
				jne	.L584
				movl	-18636(%ebp), %eax
				movl	-17548(%ebp), %edx
				cmpl	%eax, %edx
				jge	.L585
				jmp	.L271
		.L584:
				nop
		.L271:
				jmp	.L125
		.L585:
				nop
		.L272:
  567     IDENTS = DPOS
				movl	-17548(%ebp), %eax
				movl	%eax, -18792(%ebp)
  568     ->ON
				jmp	.L73
		.L273:
  569 A(72): !BEG
  570     PIDENTPOS = IDENTS
				movl	-18792(%ebp), %eax
				movl	%eax, -23388(%ebp)
  571     LEVEL = LEVEL+1;  ->DISASTER %IF LEVEL > 12
				nop
				jmp	.L132
		.L592:
				movl	-18644(%ebp), %eax
				addl	$1, %eax
				movl	%eax, -18644(%ebp)
				movl	-18644(%ebp), %eax
				cmpl	$12, %eax
				jg	.L586
				nop
		.L275:
  572     HOLD(LEVEL) = C
				movl	-18644(%ebp), %eax
				leal	-1(%eax), %edx
				movl	%edx, %eax
				addl	%eax, %eax
				addl	%edx, %eax
				sall	$2, %eax
				leal	-24(%ebp), %esi
				addl	%esi, %eax
				subl	$18768, %eax
				movl	-18640(%ebp), %edx
				movl	%edx, 4(%eax)
				movl	-18636(%ebp), %edx
				movl	%edx, 8(%eax)
				movl	-18632(%ebp), %edx
				movl	%edx, 12(%eax)
  573     C_BTYPE = DECLTYPE
				movl	-23420(%ebp), %eax
				movl	%eax, -18632(%ebp)
  574     C_STACK = 0
				movl	$0, -18640(%ebp)
  575     C_LOCAL = DLIM
				movl	-17588(%ebp), %eax
				movl	%eax, -18636(%ebp)
  576     ->ON
				jmp	.L73
		.L276:
  577 A(89): !NL: PARSET
  578     IDENTS = C_LOCAL;  NP = 51
				movl	-18636(%ebp), %eax
				movl	%eax, -18792(%ebp)
				movl	$51, -23400(%ebp)
		.L277:
  579     %WHILE IDENTS # DLIM %CYCLE
				movl	-18792(%ebp), %edx
				movl	-17588(%ebp), %eax
				cmpl	%eax, %edx
				je	.L587
				nop
		.L279:
  580        NP = NP-1;  NTYPE(NP) = INTEGER(IDENTS)
				subl	$1, -23400(%ebp)
				movl	-18792(%ebp), %eax
				movl	%eax, -23116(%ebp)
		.LBB430:
		.LBB431:
				movl	-23116(%ebp), %eax
		.LBE431:
		.LBE430:
				movl	-23400(%ebp), %edx
				subl	$1, %edx
				movl	(%eax), %eax
				movl	%eax, -22008(%ebp,%edx,4)
  581        IDENTS = BYTEINTEGER(IDENTS+12)&(\3)+IDENTS+16
				movl	-18792(%ebp), %eax
				addl	$12, %eax
				movl	%eax, -23120(%ebp)
		.LBB432:
		.LBB433:
				movl	-23120(%ebp), %eax
		.LBE433:
		.LBE432:
				movzbl	(%eax), %eax
				movzbl	%al, %eax
				andl	$-4, %eax
				movl	%eax, %edx
				movl	-18792(%ebp), %eax
				addl	%edx, %eax
				addl	$16, %eax
				movl	%eax, -18792(%ebp)
  582     %REPEAT
				jmp	.L277
		.L587:
  583     I = 0
				movl	$0, -23412(%ebp)
		.L282:
  584     %WHILE NP # 51 %CYCLE
				cmpl	$51, -23400(%ebp)
				je	.L588
				nop
		.L284:
  585        J = I<<24+NTYPE(NP);  NP = NP+1
				movl	-23412(%ebp), %eax
				sall	$24, %eax
				movl	%eax, %edx
				movl	-23400(%ebp), %eax
				subl	$1, %eax
				movl	-22008(%ebp,%eax,4), %eax
				addl	%edx, %eax
				movl	%eax, -23432(%ebp)
				addl	$1, -23400(%ebp)
		.L285:
  586        I = I+1 %UNTIL I > PARMAX %OR PARTYPE(I) = J
				addl	$1, -23412(%ebp)
				movl	-23412(%ebp), %eax
				cmpl	-23372(%ebp), %eax
				jg	.L589
				movl	-23412(%ebp), %eax
				movl	PARTYPE.6096@GOTOFF(%ebx,%eax,4), %eax
				cmpl	%eax, -23432(%ebp)
				je	.L590
				jmp	.L285
		.L589:
				nop
				jmp	.L287
		.L590:
				nop
		.L287:
  587        %IF I > PARMAX %START
				movl	-23412(%ebp), %eax
				cmpl	-23372(%ebp), %eax
				jle	.L591
				nop
		.L290:
  588           ->DISASTER %IF I = 252
				nop
				jmp	.L132
		.L607:
				cmpl	$252, -23412(%ebp)
				je	.L592
				nop
		.L292:
  589           PARMAX = I
				movl	-23412(%ebp), %eax
				movl	%eax, -23372(%ebp)
  590           PARTYPE(I) = J
				movl	-23412(%ebp), %eax
				movl	-23432(%ebp), %edx
				movl	%edx, PARTYPE.6096@GOTOFF(%ebx,%eax,4)
				jmp	.L282
		.L591:
  591        %FINISH
  592     %REPEAT
				jmp	.L282
		.L588:
  593     %IF C_BTYPE&1 = 0 %AND INTEGER(PIDENTPOS)&1 # 0 %START
				movl	-18632(%ebp), %eax
				andl	$1, %eax
				testl	%eax, %eax
				jne	.L593
				movl	-23388(%ebp), %eax
				movl	%eax, -23112(%ebp)
				nop
		.L294:
  594        FAULT(18) %IF BYTEINTEGER(PIDENTPOS+2) # I
				movl	-23388(%ebp), %eax
				addl	$2, %eax
				movl	%eax, -23108(%ebp)
		.LBB434:
		.LBB435:
				movl	-23108(%ebp), %eax
		.LBE435:
		.LBE434:
				movzbl	(%eax), %eax
				movzbl	%al, %eax
				cmpl	%eax, -23412(%ebp)
				je	.L594
				subl	$12, %esp
				leal	-18792(%ebp), %eax
				pushl	$18
				movl	%eax, %ecx
				call	FAULT.6122
				addl	$16, %esp
				jmp	.L298
		.L594:
				nop
		.L298:
  595        INTEGER(PIDENTPOS) = C_BTYPE
				movl	-23388(%ebp), %eax
				movl	%eax, -23104(%ebp)
		.LBB436:
		.LBB437:
				movl	-23104(%ebp), %eax
		.LBE437:
		.LBE436:
				movl	-18632(%ebp), %edx
				movl	%edx, (%eax)
				jmp	.L294
		.L593:
  596     %FINISH
  597     BYTEINTEGER(PIDENTPOS+2) = I
				movl	-23388(%ebp), %eax
				addl	$2, %eax
				movl	%eax, -23092(%ebp)
		.LBB438:
		.LBB439:
				movl	-23092(%ebp), %eax
		.LBE439:
		.LBE438:
				movl	-23412(%ebp), %edx
				movb	%dl, (%eax)
  598     INTEGER(PIDENTPOS) = INTEGER(PIDENTPOS)&(\EXTIND)
				movl	-23388(%ebp), %eax
				movl	%eax, -23096(%ebp)
		.LBB440:
		.LBB441:
				movl	-23096(%ebp), %eax
		.LBE441:
		.LBE440:
				movl	(%eax), %edx
				movl	-23380(%ebp), %eax
				notl	%eax
				movl	%eax, %ecx
				movl	-23388(%ebp), %eax
				movl	%eax, -23100(%ebp)
		.LBB442:
		.LBB443:
				movl	-23100(%ebp), %eax
		.LBE443:
		.LBE442:
				andl	%ecx, %edx
				movl	%edx, (%eax)
  599     ->FIN
				jmp	.L151
		.L303:
  600 A(90): !INIT
  601     CONSTCOUNT = CONSTCOUNT-1
				movl	-17552(%ebp), %eax
				subl	$1, %eax
				movl	%eax, -17552(%ebp)
  602     ->ER20 %IF TYPE&15 # 0
				jmp	.L162
		.L304:
  603     ->ER22 %IF TYPE&DECLTYPE = 0
  604     !RANGE CHECK
  605     DEFINE(4,VAL) %IF DECLTYPE&15 = 0
  606     ->ON
  607 A(91): !NL: INITFIN
  608     FAULT(21) %IF CONSTCOUNT # 0 %AND CONSTCOUNT < 1000000
				movl	-17552(%ebp), %eax
				testl	%eax, %eax
				je	.L595
				movl	-17552(%ebp), %eax
				cmpl	$999999, %eax
				jg	.L596
				subl	$12, %esp
				leal	-18792(%ebp), %eax
				pushl	$21
				movl	%eax, %ecx
				call	FAULT.6122
				addl	$16, %esp
				nop
				jmp	.L151
		.L596:
				nop
		.L306:
  609     ->FIN
				jmp	.L151
		.L595:
				jmp	.L151
		.L308:
  610 A(92): !DIMSET
  611     DEFINE(0,DIMCOUNT)
				subl	$8, %esp
				leal	-18792(%ebp), %eax
				pushl	-23436(%ebp)
				pushl	$0
				movl	%eax, %ecx
				call	DEFINE.6120
				addl	$16, %esp
  612     DIMCOUNT = 0
				movl	$0, -23436(%ebp)
  613     ->ON
				jmp	.L73
		.L309:
  614 A(93): !COLON: COUNT
  615     %IF DIMCOUNT = 6 %THEN FAULT(23) %ELSE DIMCOUNT = DIMCOUNT+1
				cmpl	$6, -23436(%ebp)
				jne	.L597
				subl	$12, %esp
				leal	-18792(%ebp), %eax
				pushl	$23
				movl	%eax, %ecx
				call	FAULT.6122
				addl	$16, %esp
				nop
		.L312:
				nop
		.L311:
				addl	$1, -23436(%ebp)
  616     ->CODE
				jmp	.L63
		.L597:
				jmp	.L63
		.L313:
  617 A(94): !REP
  618     CONSTCOUNT = CONSTCOUNT-VAL+1
				movl	-22952(%ebp), %eax
				movl	-17552(%ebp), %edx
				subl	%eax, %edx
				movl	%edx, %eax
				addl	$1, %eax
				movl	%eax, -17552(%ebp)
  619     ->ON
				jmp	.L73
		.L314:
  620 A(95): !LITINT
  621     ->ER20 %IF TYPE&15 # 0
				jmp	.L162
		.L315:
  622 A(96): !INT
  623     ->ER22 %IF TYPE&INTBIT = 0
				nop
				jmp	.L163
		.L599:
				movl	-23404(%ebp), %eax
				andl	$1, %eax
				testl	%eax, %eax
				je	.L598
				nop
		.L317:
  624     ->NAPP
				jmp	.L158
		.L318:
  625 A(97): !STR
  626     ->ER22 %IF TYPE&STRINGBIT = 0
				nop
				jmp	.L163
		.L613:
				movl	-23404(%ebp), %eax
				andl	$1, %eax
				testl	%eax, %eax
				je	.L599
				nop
		.L320:
  627     ->NAPP
				jmp	.L158
		.L321:
  628 A(98): !SIZESET
  629     STRINGSIZE = VAL
				movl	-22952(%ebp), %eax
				movl	%eax, -23316(%ebp)
		.LBB444:
  630     ->ON %IF 0 < VAL <= 255
				nop
				jmp	.L73
		.L615:
				movl	-22952(%ebp), %eax
				movl	%eax, -23312(%ebp)
				cmpl	$0, -23312(%ebp)
				jle	.L600
				cmpl	$255, -23312(%ebp)
				jle	.L601
				jmp	.L323
		.L600:
				nop
		.L323:
		.LBE444:
  631     FAULT(19);  STRINGSIZE = 255
				subl	$12, %esp
				leal	-18792(%ebp), %eax
				pushl	$19
				movl	%eax, %ecx
				call	FAULT.6122
				addl	$16, %esp
				movl	$255, -23316(%ebp)
  632     ->ON
				jmp	.L73
		.L325:
  633 A(99): !CBSET
  634     LASTVAL = NVAL(NP);  NP = NP+1
				movl	-23400(%ebp), %eax
				subl	$1, %eax
				movl	-21808(%ebp,%eax,4), %eax
				movl	%eax, -23328(%ebp)
				addl	$1, -23400(%ebp)
		.LBB445:
  635     ->CBERR %UNLESS -32768 <= LASTVAL <= 32767
				movl	-23328(%ebp), %eax
				movl	%eax, -23324(%ebp)
				cmpl	$-32768, -23324(%ebp)
				jl	.L602
				cmpl	$32767, -23324(%ebp)
				jle	.L603
		.LBE445:
				jmp	.L327
		.L602:
		.LBB446:
				nop
		.L327:
		.LBE446:
				jmp	.L329
		.L603:
		.LBB447:
				nop
		.L328:
		.LBE447:
  636     CONSTCOUNT = VAL-LASTVAL+1
				movl	-22952(%ebp), %eax
				subl	-23328(%ebp), %eax
				addl	$1, %eax
				movl	%eax, -17552(%ebp)
		.LBB448:
  637     ->CBERR %UNLESS 0 < CONSTCOUNT <= 32767
				movl	-17552(%ebp), %eax
				movl	%eax, -23320(%ebp)
				cmpl	$0, -23320(%ebp)
				jle	.L604
				cmpl	$32767, -23320(%ebp)
				jle	.L605
		.LBE448:
				jmp	.L331
		.L604:
		.LBB449:
				nop
		.L331:
		.LBE449:
				jmp	.L329
		.L605:
		.LBB450:
				nop
		.L332:
		.LBE450:
  638     %IF DECLTYPE = SWITCH %START
				cmpl	$268, -23420(%ebp)
				jne	.L606
				nop
				jmp	.L347
		.L609:
  639        {%UNTIL IDENTS = DLIM} %CYCLE
				nop
		.L333:
  640           J = DBOUND
				movl	-17592(%ebp), %eax
				movl	%eax, -23432(%ebp)
  641           DBOUND = J-(CONSTCOUNT+63)>>5<<2
				movl	-23432(%ebp), %eax
				movl	-17552(%ebp), %edx
				addl	$63, %edx
				shrl	$5, %edx
				sall	$2, %edx
				subl	%edx, %eax
				movl	%eax, -17592(%ebp)
  642           ->DISASTER %IF DBOUND <= DLIM
				nop
		.L132:
		.LBB375:
				movl	-17592(%ebp), %edx
				movl	-17588(%ebp), %eax
				cmpl	%eax, %edx
				jle	.L607
				nop
		.L336:
  643           INTEGER(IDENTS+4) = DBOUND
				movl	-18792(%ebp), %eax
				addl	$4, %eax
				movl	%eax, -23084(%ebp)
		.LBB451:
		.LBB452:
				movl	-23084(%ebp), %eax
		.LBE452:
		.LBE451:
				movl	-17592(%ebp), %edx
				movl	%edx, (%eax)
  644           INTEGER(DBOUND) = LASTVAL<<16+CONSTCOUNT
				movl	-23328(%ebp), %eax
				sall	$16, %eax
				movl	%eax, %ecx
				movl	-17592(%ebp), %eax
				movl	%eax, -23088(%ebp)
		.LBB453:
		.LBB454:
				movl	-23088(%ebp), %eax
		.LBE454:
		.LBE453:
				movl	-17552(%ebp), %edx
				addl	%ecx, %edx
				movl	%edx, (%eax)
		.L339:
  645           %CYCLE
  646              J = J-4
				subl	$4, -23432(%ebp)
  647              %EXIT %IF J = DBOUND
				movl	-17592(%ebp), %eax
				cmpl	%eax, -23432(%ebp)
				je	.L608
				nop
		.L341:
				nop
		.L342:
  648              INTEGER(J) = 0
				movl	-23432(%ebp), %eax
				movl	%eax, -23080(%ebp)
		.LBB455:
		.LBB456:
				movl	-23080(%ebp), %eax
		.LBE456:
		.LBE455:
				movl	$0, (%eax)
  649           %REPEAT
				jmp	.L339
		.L608:
  650           IDENTS = BYTEINTEGER(IDENTS+12)&(\3)+IDENTS+16
				movl	-18792(%ebp), %eax
				addl	$12, %eax
				movl	%eax, -23076(%ebp)
		.LBB457:
		.LBB458:
				movl	-23076(%ebp), %eax
		.LBE458:
		.LBE457:
				movzbl	(%eax), %eax
				movzbl	%al, %eax
				andl	$-4, %eax
				movl	%eax, %edx
				movl	-18792(%ebp), %eax
				addl	%edx, %eax
				addl	$16, %eax
				movl	%eax, -18792(%ebp)
  651        %REPEAT %UNTIL IDENTS = DLIM
				movl	-18792(%ebp), %edx
				movl	-17588(%ebp), %eax
				cmpl	%eax, %edx
				je	.L609
				jmp	.L333
		.L334:
		.L346:
		.L606:
				nop
		.L347:
  652     %FINISH
  653 CB1:IDENTS = DLIM
				movl	-17588(%ebp), %eax
				movl	%eax, -18792(%ebp)
  654     ->ON
				jmp	.L73
		.L329:
  655 CBERR:
  656     FAULT(23);  CONSTCOUNT = 2000000
				subl	$12, %esp
				leal	-18792(%ebp), %eax
				pushl	$23
				movl	%eax, %ecx
				call	FAULT.6122
				addl	$16, %esp
				movl	$2000000, %eax
				movl	%eax, -17552(%ebp)
  657     ->CB1
				jmp	.L347
		.L348:
  658 A(100): !COLON: LAB
  659     ->FIN %IF DECLTYPE # 0;  !SIMPLE LABEL
				nop
		.L151:
				cmpl	$0, -23420(%ebp)
				jne	.L610
				nop
		.L350:
  660     ->ERR %IF TYPE # JUMPLAB;  !IE SWITCH + APP
				nop
				jmp	.L127
		.L612:
				cmpl	$13, -23404(%ebp)
				jne	.L611
				nop
		.L352:
  661     FAULT(20) %AND ->FIN %IF LASTTYPE&15 # 0
				subl	$12, %esp
				leal	-18792(%ebp), %eax
				pushl	$20
				movl	%eax, %ecx
				call	FAULT.6122
				addl	$16, %esp
				jmp	.L151
		.L353:
  662     ->FIN %IF VAL = 0
  663     J = LASTVAL-SHORTINTEGER(VAL)
  664     FAULT(19) %AND ->FIN %UNLESS 0 <= J < SHORTINTEGER(VAL+2)
  665     I = VAL+J>>5<<2;  J = X'80000000'>>(J&31)
  666     FAULT(16) %IF INTEGER(I+4)&J # 0
  667     INTEGER(I+4) = INTEGER(I+4)!J
  668     ->FIN
  669 A(101): !OP3: DOT
  670     ->ERR %IF ATOMTYPE # STRINGBIT;  !IE OP3 # '.'
				nop
				jmp	.L127
		.L614:
				movl	-17572(%ebp), %eax
				cmpl	$128, %eax
				jne	.L612
		.L355:
				nop
		.L356:
  671 A(60): !FOR
  672     MODES = DESTMODES
				movl	$15728640, -23416(%ebp)
  673     ->CODE
				jmp	.L63
		.L357:
  674 A(73): !RESOL
  675     ->ER22 %IF TYPE&STRINGBIT = 0
				nop
		.L163:
				movl	-23404(%ebp), %eax
				andl	$1, %eax
				testl	%eax, %eax
				je	.L613
				nop
		.L359:
  676     MODES = DESTMODES
				movl	$15728640, -23416(%ebp)
  677     ->ON
				jmp	.L73
		.L360:
  678 A(102): !OP3: SIGN
  679     ->ERR %IF ATOMTYPE&3 = 0;  !IE OP3 # '+', '-', '!'
				nop
				jmp	.L127
		.L632:
				movl	-17572(%ebp), %eax
				andl	$1, %eax
				testl	%eax, %eax
				je	.L614
				nop
		.L362:
  680     TYPE = ATOMTYPE;  VAL = 0
				movl	-17572(%ebp), %eax
				movl	%eax, -23404(%ebp)
				movl	$0, -22952(%ebp)
  681     ->OP1
				jmp	.L369
		.L364:
  682 A(7):  !UOP
  683     TYPE = ATOMTYPE;  VAL = -1
				movl	-17572(%ebp), %eax
				movl	%eax, -23404(%ebp)
				movl	$-1, -22952(%ebp)
  684     ->OP1
				jmp	.L369
		.L365:
  685 A(8):  !COP
  686 A(4): !OP1
  687 A(5): !OP2
  688 A(104):!OP3 OR EQ: OP
  689     ->ERR %IF TYPE&APPMASK # 0
				jmp	.L127
		.L366:
				jmp	.L127
		.L367:
				jmp	.L127
		.L368:
				jmp	.L127
		.L363:
		.L369:
  690     %IF TYPE&X'FF4F' = INTBIT %THEN TYPE=TYPE!15 %ELSE TYPE=TYPE&(\15)
  691     TYPE = TYPE!REALBITS %IF TYPE&NUMBITS # 0
  692 OP1:NP = NP-1;  NTYPE(NP) = TYPE&ATOMTYPE;  NVAL(NP) = VAL
				subl	$1, -23400(%ebp)
				movl	-23400(%ebp), %eax
				leal	-1(%eax), %edx
				movl	-17572(%ebp), %eax
				andl	-23404(%ebp), %eax
				movl	%eax, -22008(%ebp,%edx,4)
				movl	-23400(%ebp), %eax
				leal	-1(%eax), %edx
				movl	-22952(%ebp), %eax
				movl	%eax, -21808(%ebp,%edx,4)
  693     ->CODE
				jmp	.L63
		.L370:
  694 A(105): !EVAL
  695     ->ERR %IF TYPE&APPMASK # 0
				jmp	.L127
		.L371:
  696     TYPE = TYPE!REALBITS %IF TYPE&NUMBITS # 0
  697     I = NTYPE(NP);  NP = NP+1
  698     J = I&TYPE&X'F0'
  699     ->ER22 %IF J = 0
  700     ->X(I&15) %IF TYPE&X'FF4F' = INTBIT
  701 X(0):
  702     TYPE = J+EXP
				movl	-23432(%ebp), %eax
				addl	$1, %eax
				movl	%eax, -23404(%ebp)
  703     ->ON
				jmp	.L73
		.L372:
  704 X(1): VAL = NVAL(NP-1)+VAL
				movl	-23400(%ebp), %eax
				subl	$2, %eax
				movl	-21808(%ebp,%eax,4), %edx
				movl	-22952(%ebp), %eax
				addl	%edx, %eax
				movl	%eax, -22952(%ebp)
		.L373:
  705 X1: TYPE = NUMBITS
				movl	$112, -23404(%ebp)
  706     ->ON
				jmp	.L73
		.L374:
  707 X(2): VAL = NVAL(NP-1)-VAL
				movl	-23400(%ebp), %eax
				subl	$2, %eax
				movl	-21808(%ebp,%eax,4), %edx
				movl	-22952(%ebp), %eax
				subl	%eax, %edx
				movl	%edx, %eax
				movl	%eax, -22952(%ebp)
  708     ->X1
				jmp	.L373
		.L375:
  709 X(3): VAL = NVAL(NP-1)!VAL
				movl	-23400(%ebp), %eax
				subl	$2, %eax
				movl	-21808(%ebp,%eax,4), %edx
				movl	-22952(%ebp), %eax
				orl	%edx, %eax
				movl	%eax, -22952(%ebp)
  710     ->X1
				jmp	.L373
		.L376:
  711 X(4): VAL = NVAL(NP-1)!!VAL
				movl	-23400(%ebp), %eax
				subl	$2, %eax
				movl	-21808(%ebp,%eax,4), %edx
				movl	-22952(%ebp), %eax
				xorl	%edx, %eax
				movl	%eax, -22952(%ebp)
  712     ->X1
				jmp	.L373
		.L377:
  713 A(103): !BAR (FIDDLE FOR MOD-SIGN)
  714     ->ON %UNLESS NTYPE(NP) = X'43'
				nop
				jmp	.L73
		.L630:
				movl	-23400(%ebp), %eax
				subl	$1, %eax
				movl	-22008(%ebp,%eax,4), %eax
				cmpl	$67, %eax
				jne	.L615
				nop
		.L379:
  715     ->ERR %UNLESS ATOM = OP3 %AND ATOMTYPE = X'43'
				movl	-17576(%ebp), %eax
				cmpl	$6, %eax
				jne	.L616
				movl	-17572(%ebp), %eax
				cmpl	$67, %eax
				je	.L617
				jmp	.L381
		.L616:
				nop
		.L381:
				jmp	.L127
		.L617:
				nop
		.L382:
  716     NP = NP+1;  CODE ATOM
				addl	$1, -23400(%ebp)
				leal	-18792(%ebp), %eax
				movl	%eax, %ecx
				call	CODEATOM.6115
  717     ->EXIT
				jmp	.L95
		.L383:
  718 A(106): !EQ: ASSOP
  719     ->ERR %IF TYPE&X'FF0C' # 8
				jmp	.L127
		.L618:
  720 SAVE:
  721     NP = NP-1;  NTYPE(NP) = TYPE;  NVAL(NP) = VAL
				subl	$1, -23400(%ebp)
				movl	-23400(%ebp), %eax
				leal	-1(%eax), %edx
				movl	-23404(%ebp), %eax
				movl	%eax, -22008(%ebp,%edx,4)
				movl	-23400(%ebp), %eax
				leal	-1(%eax), %edx
				movl	-22952(%ebp), %eax
				movl	%eax, -21808(%ebp,%edx,4)
  722     ->CODE
				jmp	.L63
		.L386:
  723 A(14): !EQEQ
  724     MODES = ADRMODES
				movl	$1089470464, -23416(%ebp)
  725     ->SAVE %IF TYPE&15 = REF
				nop
		.L384:
		.L385:
				movl	-23404(%ebp), %eax
				andl	$1, %eax
				testl	%eax, %eax
				je	.L618
				nop
		.L388:
  726     ->ERR
				jmp	.L127
		.L389:
  727 A(107): !ASS
  728     I = NTYPE(NP);  NP = NP+1
				movl	-23400(%ebp), %eax
				subl	$1, %eax
				movl	-22008(%ebp,%eax,4), %eax
				movl	%eax, -23412(%ebp)
				addl	$1, -23400(%ebp)
		.L390:
  729 AS1:%IF I&TYPE&X'C0' = 0 %START
				movl	-23412(%ebp), %eax
				andl	-23404(%ebp), %eax
				andl	$1, %eax
				testl	%eax, %eax
				jne	.L619
				nop
				jmp	.L158
		.L624:
  730        I = I&X'F0'
				andl	$240, -23412(%ebp)
  731        %IF I = 0 %START;  !RECORD
				cmpl	$0, -23412(%ebp)
				jne	.L620
				nop
		.L394:
  732           ->ER22 %UNLESS TYPE&X'F0' = 0 %OR %C
				movl	-23404(%ebp), %eax
				andl	$1, %eax
				testl	%eax, %eax
				jne	.L621
				movl	-22952(%ebp), %eax
				testl	%eax, %eax
				je	.L622
				jmp	.L396
		.L621:
				nop
		.L396:
				jmp	.L163
		.L622:
				nop
		.L397:
  733             (TYPE&X'FF4F'=INTBIT %AND VAL=0)
  734        %FINISH %ELSE %START
				jmp	.L401
		.L620:
  735           ->ER22 %UNLESS I <= X'30' %AND TYPE&NUMBITS # 0
				cmpl	$48, -23412(%ebp)
				jg	.L623
				movl	-23404(%ebp), %eax
				andl	$1, %eax
				testl	%eax, %eax
				jne	.L624
				jmp	.L399
		.L623:
				nop
		.L399:
				jmp	.L163
		.L392:
		.L400:
		.L619:
				nop
		.L401:
  736        %FINISH
  737     %FINISH
  738     ->NAPP
				jmp	.L158
		.L402:
  739 A(108): !REFASS
  740     I = NTYPE(NP);  NP = NP+1
				movl	-23400(%ebp), %eax
				subl	$1, %eax
				movl	-22008(%ebp,%eax,4), %eax
				movl	%eax, -23412(%ebp)
				addl	$1, -23400(%ebp)
		.L403:
  741 RA1:FAULT(22) %IF (I!!TYPE)&X'F0' # 0 %C
				movl	-23412(%ebp), %eax
				andl	$1, %eax
				testl	%eax, %eax
				jne	.L625
				movl	-23404(%ebp), %eax
				andl	$1, %eax
				testl	%eax, %eax
				jne	.L626
				subl	$12, %esp
				leal	-18792(%ebp), %eax
				pushl	$22
				movl	%eax, %ecx
				call	FAULT.6122
				addl	$16, %esp
				jmp	.L405
		.L625:
				nop
				jmp	.L405
		.L626:
				nop
		.L405:
  742       %AND I&X'F0' # X'F0' %AND TYPE&X'F0' # X'F0'
  743     ->NAPP %IF I&APPMASK = 0;  !SCALAR
				nop
		.L158:
		.L159:
				movl	-23412(%ebp), %eax
				andl	$1, %eax
				testl	%eax, %eax
				je	.L627
				nop
		.L408:
  744     FAULT(22) %IF TYPE&APPMASK = 0 %OR TYPE&14 = MAP
				movl	-23404(%ebp), %eax
				andl	$1, %eax
				testl	%eax, %eax
				jne	.L628
				nop
		.L409:
				subl	$12, %esp
				leal	-18792(%ebp), %eax
				pushl	$22
				movl	%eax, %ecx
				call	FAULT.6122
				addl	$16, %esp
				nop
		.L410:
  745     ->ON
				jmp	.L73
		.L628:
				jmp	.L73
		.L411:
  746 A(17): !RESULT
  747     FAULT(25) %IF C_BTYPE&7 # FN
				subl	$12, %esp
				leal	-18792(%ebp), %eax
				pushl	$25
				movl	%eax, %ecx
				call	FAULT.6122
				addl	$16, %esp
		.L412:
  748     TYPE = C_BTYPE&X'F8';  TYPE = TYPE+VAR %IF TYPE&8 = 0
				movl	-18632(%ebp), %eax
				andl	$248, %eax
				movl	%eax, -23404(%ebp)
				movl	-23404(%ebp), %eax
				andl	$1, %eax
				testl	%eax, %eax
				jne	.L629
				addl	$9, -23404(%ebp)
				jmp	.L414
		.L629:
				nop
		.L414:
  749     VAL = 0
				movl	$0, -22952(%ebp)
  750     ->CODE
				jmp	.L63
		.L415:
  751 A(71): !RCALL
  752     ->ON %IF TYPE&X'FFFC' = 4
				nop
				jmp	.L73
		.L631:
				movl	-23404(%ebp), %eax
				andl	$1, %eax
				testl	%eax, %eax
				je	.L630
				nop
		.L417:
  753     ->ERR
				jmp	.L127
		.L418:
  754 A(112): !APP
  755     ->ON %IF ATOM # LB
				nop
		.L65:
		.L66:
		.L67:
		.L73:
				movl	-17576(%ebp), %eax
				cmpl	$11, %eax
				jne	.L631
				nop
		.L420:
  756     LINKMAX = LINKMAX+1;  ->ERR %IF LINKMAX > 20
				nop
				jmp	.L127
		.L633:
				addl	$1, -23396(%ebp)
				cmpl	$20, -23396(%ebp)
				jg	.L632
				nop
		.L422:
  757     LINK(LINKMAX) = G
				movl	-23396(%ebp), %eax
				leal	-1(%eax), %edx
				movl	-23424(%ebp), %eax
				movl	%eax, -22088(%ebp,%edx,4)
  758     NP = NP-1;  NVAL(NP) = VAL
				subl	$1, -23400(%ebp)
				movl	-23400(%ebp), %eax
				leal	-1(%eax), %edx
				movl	-22952(%ebp), %eax
				movl	%eax, -21808(%ebp,%edx,4)
				jmp	.L423
		.L636:
  759 AP: ->ERR %IF TYPE&APPMASK = 0
				nop
				jmp	.L127
		.L637:
				movl	-23404(%ebp), %eax
				andl	$1, %eax
				testl	%eax, %eax
				je	.L633
				nop
		.L425:
  760     NTYPE(NP) = TYPE
				movl	-23400(%ebp), %eax
				leal	-1(%eax), %edx
				movl	-23404(%ebp), %eax
				movl	%eax, -22008(%ebp,%edx,4)
  761     G = APPCONT
				movl	-23348(%ebp), %eax
				movl	%eax, -23424(%ebp)
  762     CODE ATOM
				leal	-18792(%ebp), %eax
				movl	%eax, %ecx
				call	CODEATOM.6115
  763     J = PARTYPE(TYPE>>8)&15
				movl	-23404(%ebp), %eax
				shrl	$8, %eax
				movl	PARTYPE.6096@GOTOFF(%ebx,%eax,4), %eax
				andl	$15, %eax
				movl	%eax, -23432(%ebp)
  764     CLASS = 122;  !EXP
				movl	$122, -23428(%ebp)
  765     ->ENTER %IF J = VAR
				nop
				jmp	.L91
		.L635:
				cmpl	$9, -23432(%ebp)
				je	.L634
				nop
		.L427:
  766     CLASS = 111;  MODES = ADRMODES
				movl	$111, -23428(%ebp)
				movl	$1089470464, -23416(%ebp)
  767     ->ENTER %IF J = REF
				nop
		.L91:
		.L92:
				cmpl	$8, -23432(%ebp)
				je	.L635
				nop
		.L429:
  768     MODES = X'C0000000'>>J
				movl	-23432(%ebp), %eax
				movl	$-1073741824, %edx
				movl	%eax, %ecx
				shrl	%cl, %edx
				movl	%edx, %eax
				movl	%eax, -23416(%ebp)
  769     ->ENTER
				jmp	.L91
		.L430:
  770 A(63): !AP
  771     J = NTYPE(NP);  I = PARTYPE(J>>8)
				movl	-23400(%ebp), %eax
				subl	$1, %eax
				movl	-22008(%ebp,%eax,4), %eax
				movl	%eax, -23432(%ebp)
				movl	-23432(%ebp), %eax
				shrl	$8, %eax
				movl	PARTYPE.6096@GOTOFF(%ebx,%eax,4), %eax
				movl	%eax, -23412(%ebp)
  772     LASTTYPE = TYPE;  LASTVAL = VAL
				movl	-23404(%ebp), %eax
				movl	%eax, -23332(%ebp)
				movl	-22952(%ebp), %eax
				movl	%eax, -23328(%ebp)
  773     TYPE = I>>16+J&X'FF'
				movl	-23412(%ebp), %eax
				shrl	$16, %eax
				movl	%eax, %edx
				movl	-23432(%ebp), %eax
				movzbl	%al, %eax
				addl	%edx, %eax
				movl	%eax, -23404(%ebp)
  774     ->AP %IF ATOM = COMMA
				nop
		.L423:
				movl	-17576(%ebp), %eax
				cmpl	$10, %eax
				je	.L636
				nop
		.L432:
				movl	-17576(%ebp), %eax
				cmpl	$12, %eax
				jne	.L637
				nop
		.L434:
  775     ->ERR %IF ATOM # RB
				nop
		.L127:
  776     VAL = NVAL(NP);  NP = NP+1
				movl	-23400(%ebp), %eax
				subl	$1, %eax
				movl	-21808(%ebp,%eax,4), %eax
				movl	%eax, -22952(%ebp)
				addl	$1, -23400(%ebp)
  777     %IF TYPE&APPMASK # 0 %START
  778        TYPE = TYPE!!APPMASK
				xorl	$65280, -23404(%ebp)
  779        ->ERR %IF TYPE&X'FE00' # 0
				jmp	.L127
		.L435:
  780     %FINISH
  781     TYPE = TYPE&X'FFFC'!1
  782     CODE ATOM
  783     ->EXIT
  784 A(16): !SIMP: STOP(0), RETURN(1), EXIT(2)
  785     FAULT(25) %IF (ATOMTYPE = 1 %AND C_BTYPE&15 # ROUTINE) %C
				movl	-17572(%ebp), %eax
				cmpl	$1, %eax
				jne	.L638
				movl	-18632(%ebp), %eax
				andl	$1, %eax
				testl	%eax, %eax
				jne	.L639
				jmp	.L437
		.L638:
				nop
		.L437:
				movl	-17572(%ebp), %eax
				cmpl	$2, %eax
				jne	.L640
				movl	-18640(%ebp), %eax
				addl	%eax, %eax
				xorl	$-1431655766, %eax
				movl	%eax, %edx
				movl	-18640(%ebp), %eax
				testl	%eax, %eax
				setne	%al
				movzbl	%al, %eax
				andl	%edx, %eax
				testl	%eax, %eax
				jne	.L641
				jmp	.L438
		.L639:
				nop
		.L438:
				subl	$12, %esp
				leal	-18792(%ebp), %eax
				pushl	$25
				movl	%eax, %ecx
				call	FAULT.6122
				addl	$16, %esp
				nop
				jmp	.L63
		.L641:
				nop
		.L440:
				jmp	.L63
		.L441:
  786           %OR (ATOMTYPE = 2 %AND (C_STACK!!X'55555555')<<1&C_STACK = 0)
  787     ->CODE
				jmp	.L63
		.L640:
  788 A(54): !CYCLE
  789     CONDIND = 2
				movl	$2, -23376(%ebp)
		.L442:
  790 A(53): !START
  791     C_STACK = C_STACK<<2+CONDIND
				movl	-18640(%ebp), %eax
				leal	0(,%eax,4), %edx
				movl	-23376(%ebp), %eax
				addl	%edx, %eax
				movl	%eax, -18640(%ebp)
  792     ->CODE
				jmp	.L63
		.L443:
		.L444:
  793 A(55): !FINISH(1)
  794 A(56): !REPEAT(0)
  795     CONDIND = C_STACK&3
				movl	-18640(%ebp), %eax
				andl	$3, %eax
				movl	%eax, -23376(%ebp)
  796     %IF CONDIND = 0 %OR (CONDIND!!ATOMTYPE)&1 # 0 %C
				cmpl	$0, -23376(%ebp)
				nop
		.L446:
				movl	-17572(%ebp), %eax
				leal	12(%eax), %edx
				subl	$12, %esp
				leal	-18792(%ebp), %eax
				pushl	%edx
				movl	%eax, %ecx
				call	FAULT.6122
				addl	$16, %esp
				nop
		.L447:
  797      %THEN FAULT(12+ATOMTYPE) %C
  798     %ELSE C_STACK = C_STACK>>2
  799     ->CODE
				jmp	.L63
		.L448:
  800 A(52): !ELSE(1)
  801     FAULT(25) %IF CONDIND = 1
				cmpl	$1, -23376(%ebp)
				jne	.L642
				subl	$12, %esp
				leal	-18792(%ebp), %eax
				pushl	$25
				movl	%eax, %ecx
				call	FAULT.6122
				addl	$16, %esp
				jmp	.L452
		.L450:
		.L451:
				jmp	.L452
		.L642:
				nop
		.L452:
  802 A(26): !CWORD(3)
  803 A(51): !ON(1)
  804     CONDIND = ATOMTYPE
				movl	-17572(%ebp), %eax
				movl	%eax, -23376(%ebp)
  805     ->CODE
				jmp	.L63
		.L453:
  806 A(58): !END
  807     %IF LEVEL = 0 %OR (LEVEL=1 %AND C_BTYPE=0) %THEN FAULT(11) %C
				movl	-18644(%ebp), %eax
				testl	%eax, %eax
				je	.L643
				movl	-18644(%ebp), %eax
				cmpl	$1, %eax
				jne	.L644
				movl	-18632(%ebp), %eax
				testl	%eax, %eax
				jne	.L645
				jmp	.L455
		.L643:
				nop
		.L455:
				subl	$12, %esp
				leal	-18792(%ebp), %eax
				pushl	$11
				movl	%eax, %ecx
				call	FAULT.6122
				addl	$16, %esp
				nop
		.L458:
				nop
				jmp	.L457
		.L645:
				nop
		.L457:
				leal	-18792(%ebp), %eax
				movl	%eax, %ecx
				call	POPCONTEXT.6117
				jmp	.L63
		.L459:
  808     %ELSE POP CONTEXT
  809     ->CODE
				jmp	.L63
		.L644:
  810 A(59): !ENDPROG
  811     FPOS1 = FPOS
				movl	-17560(%ebp), %eax
				movl	%eax, -17528(%ebp)
  812     REPORT(8) %IF LEVEL > ATOMTYPE
				movl	-18644(%ebp), %edx
				movl	-17572(%ebp), %eax
				cmpl	%eax, %edx
				jle	.L646
				subl	$12, %esp
				leal	-18792(%ebp), %eax
				pushl	$8
				movl	%eax, %ecx
				call	REPORT.6113
				addl	$16, %esp
				jmp	.L461
		.L646:
				nop
		.L461:
  813     REPORT(11) %IF LEVEL < ATOMTYPE
				movl	-18644(%ebp), %edx
				movl	-17572(%ebp), %eax
				cmpl	%eax, %edx
				jge	.L647
				subl	$12, %esp
				leal	-18792(%ebp), %eax
				pushl	$11
				movl	%eax, %ecx
				call	REPORT.6113
				addl	$16, %esp
				jmp	.L467
		.L463:
		.L647:
				nop
		.L464:
		.L467:
  814     POP CONTEXT %WHILE LEVEL > 0
				movl	-18644(%ebp), %eax
				testl	%eax, %eax
				jle	.L648
				leal	-18792(%ebp), %eax
				movl	%eax, %ecx
				call	POPCONTEXT.6117
				jmp	.L467
		.L648:
				nop
		.L466:
		.LBB459:
		.LBB460:
				call	_imp_cputime@PLT
				movl	%eax, -23456(%ebp)
		.LBE460:
		.LBE459:
  815     TIME2 = CPUTIME
				fildl	-23456(%ebp)
				fstpl	-23016(%ebp)
  816     ->ENDOK
				jmp	.L509
		.L541:
  817 ENDED:
  818     TIME2 = CPUTIME
				fildl	-23456(%ebp)
				fstpl	-23016(%ebp)
		.LBB463:
  819     PRINT STRING("** END OF FILE AT LINE");  WRITE(NEXTLINE,1)
				leal	-19048(%ebp), %eax
				leal	.LC3@GOTOFF(%ebx), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-21352(%ebp), %eax
				leal	-19048(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-19304(%ebp), %eax
				leal	-21352(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.LBE463:
		.LBB464:
		.LBB465:
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-19304(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				call	_imp_printstring@PLT
				addl	$256, %esp
		.LBE465:
		.LBE464:
				movl	-17580(%ebp), %eax
				subl	$8, %esp
				pushl	$1
				pushl	%eax
				call	_imp_writeint@PLT
				addl	$16, %esp
		.LBB466:
		.LBB467:
				call	_imp_newline@PLT
		.L469:
		.L509:
		.LBE467:
		.LBE466:
  820     NEWLINE
  821 ENDOK:
  822     %IF PARM&4 # 0 %START
  823        WRITE(LINE,4);  PRINTSYMBOL('L')
				movl	-17536(%ebp), %eax
				subl	$8, %esp
				pushl	$4
				pushl	%eax
				call	_imp_writeint@PLT
				addl	$16, %esp
				movb	$76, -23445(%ebp)
		.LBB468:
		.LBB469:
				movsbl	-23445(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
		.LBE469:
		.LBE468:
  824        WRITE(STATS,4);  PRINT SYMBOL('S')
				movl	STATS.6024@GOTOFF(%ebx), %eax
				subl	$8, %esp
				pushl	$4
				pushl	%eax
				call	_imp_writeint@PLT
				addl	$16, %esp
				movb	$83, -23444(%ebp)
		.LBB470:
		.LBB471:
				movsbl	-23444(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
		.LBE471:
		.LBE470:
  825        STATS = 1 %IF STATS = 0
				movl	STATS.6024@GOTOFF(%ebx), %eax
				testl	%eax, %eax
				jne	.L649
				movl	$1, STATS.6024@GOTOFF(%ebx)
				jmp	.L472
		.L649:
				nop
		.L472:
  826        PRINT(ATOMS/STATS,2,1);  PRINT SYMBOL('A')
				movl	ATOMS.6025@GOTOFF(%ebx), %eax
				movl	STATS.6024@GOTOFF(%ebx), %esi
				cltd
				idivl	%esi
				movl	%eax, -23456(%ebp)
				fildl	-23456(%ebp)
				fstpl	-22960(%ebp)
				movl	$2, -23032(%ebp)
				movl	$1, -23028(%ebp)
		.LBB472:
		.LBB473:
				pushl	-23028(%ebp)
				pushl	-23032(%ebp)
				pushl	-22956(%ebp)
				pushl	-22960(%ebp)
				call	_imp_print@PLT
				addl	$16, %esp
				movb	$65, -23438(%ebp)
		.LBE473:
		.LBE472:
		.LBB474:
		.LBB475:
				movsbl	-23438(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
		.LBE475:
		.LBE474:
  827        PRINT(NUMBERS/STATS,2,1);  PRINT SYMBOL('N')
				movl	NUMBERS.6027@GOTOFF(%ebx), %eax
				movl	STATS.6024@GOTOFF(%ebx), %esi
				cltd
				idivl	%esi
				movl	%eax, -23456(%ebp)
				fildl	-23456(%ebp)
				fstpl	-22968(%ebp)
				movl	$2, -23040(%ebp)
				movl	$1, -23036(%ebp)
		.LBB476:
		.LBB477:
				pushl	-23036(%ebp)
				pushl	-23040(%ebp)
				pushl	-22964(%ebp)
				pushl	-22968(%ebp)
				call	_imp_print@PLT
				addl	$16, %esp
				movb	$78, -23439(%ebp)
		.LBE477:
		.LBE476:
		.LBB478:
		.LBB479:
				movsbl	-23439(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
		.LBE479:
		.LBE478:
  828        PRINT(IDENTIFIERS/STATS,2,1);  PRINT SYMBOL('I')
				movl	IDENTIFIERS.6026@GOTOFF(%ebx), %eax
				movl	STATS.6024@GOTOFF(%ebx), %esi
				cltd
				idivl	%esi
				movl	%eax, -23456(%ebp)
				fildl	-23456(%ebp)
				fstpl	-22976(%ebp)
				movl	$2, -23048(%ebp)
				movl	$1, -23044(%ebp)
		.LBB480:
		.LBB481:
				pushl	-23044(%ebp)
				pushl	-23048(%ebp)
				pushl	-22972(%ebp)
				pushl	-22976(%ebp)
				call	_imp_print@PLT
				addl	$16, %esp
				movb	$73, -23440(%ebp)
		.LBE481:
		.LBE480:
		.LBB482:
		.LBB483:
				movsbl	-23440(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
		.LBE483:
		.LBE482:
  829        PRINT(LOOPS/STATS,2,1);  PRINT SYMBOL('C')
				movl	LOOPS.6028@GOTOFF(%ebx), %eax
				movl	STATS.6024@GOTOFF(%ebx), %esi
				cltd
				idivl	%esi
				movl	%eax, -23456(%ebp)
				fildl	-23456(%ebp)
				fstpl	-22984(%ebp)
				movl	$2, -23056(%ebp)
				movl	$1, -23052(%ebp)
		.LBB484:
		.LBB485:
				pushl	-23052(%ebp)
				pushl	-23056(%ebp)
				pushl	-22980(%ebp)
				pushl	-22984(%ebp)
				call	_imp_print@PLT
				addl	$16, %esp
				movb	$67, -23441(%ebp)
		.LBE485:
		.LBE484:
		.LBB486:
		.LBB487:
				movsbl	-23441(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
		.LBE487:
		.LBE486:
  830        PRINT(TIMES/LOOKS,2,1);  PRINT SYMBOL('H')
				movl	TIMES.6030@GOTOFF(%ebx), %eax
				movl	LOOKS.6029@GOTOFF(%ebx), %esi
				cltd
				idivl	%esi
				movl	%eax, -23456(%ebp)
				fildl	-23456(%ebp)
				fstpl	-22992(%ebp)
				movl	$2, -23064(%ebp)
				movl	$1, -23060(%ebp)
		.LBB488:
		.LBB489:
				pushl	-23060(%ebp)
				pushl	-23064(%ebp)
				pushl	-22988(%ebp)
				pushl	-22992(%ebp)
				call	_imp_print@PLT
				addl	$16, %esp
				movb	$72, -23442(%ebp)
		.LBE489:
		.LBE488:
		.LBB490:
		.LBB491:
				movsbl	-23442(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
		.LBE491:
		.LBE490:
  831        PRINT((TIME2-TIME1)*1000/STATS,3,3);  PRINT SYMBOL('M')
				fldl	-23016(%ebp)
				fsubl	-23008(%ebp)
				fldl	.LC33@GOTOFF(%ebx)
				fmulp	%st, %st(1)
				movl	STATS.6024@GOTOFF(%ebx), %eax
				movl	%eax, -23456(%ebp)
				fildl	-23456(%ebp)
				fdivrp	%st, %st(1)
				fstpl	-23000(%ebp)
				movl	$3, -23072(%ebp)
				movl	$3, -23068(%ebp)
		.LBB492:
		.LBB493:
				pushl	-23068(%ebp)
				pushl	-23072(%ebp)
				pushl	-22996(%ebp)
				pushl	-23000(%ebp)
				call	_imp_print@PLT
				addl	$16, %esp
				movb	$77, -23443(%ebp)
		.LBE493:
		.LBE492:
		.LBB494:
		.LBB495:
				movsbl	-23443(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
		.LBE495:
		.LBE494:
		.LBB496:
		.LBB497:
				call	_imp_newline@PLT
		.L473:
		.LBE497:
		.LBE496:
  832        NEWLINE
  833     %FINISH
  834     %IF PARM&8 # 0 %START
  835        %CYCLE I = 0,1,255
				movl	$-1, -23412(%ebp)
		.L474:
				cmpl	$255, -23412(%ebp)
				je	.L650
				addl	$1, -23412(%ebp)
				nop
		.L484:
  836           J = INDEX(I)
				movl	-23412(%ebp), %eax
				addl	$40, %eax
				movl	-18780(%ebp,%eax,4), %eax
				movl	%eax, -23432(%ebp)
  837           %IF J > 0 %START
				cmpl	$0, -23432(%ebp)
				jle	.L651
				nop
		.L478:
  838              WRITE(I,3);  PRINT SYMBOL(':')
				subl	$8, %esp
				pushl	$3
				pushl	-23412(%ebp)
				call	_imp_writeint@PLT
				addl	$16, %esp
				movb	$58, -23437(%ebp)
		.LBB498:
		.LBB499:
				movsbl	-23437(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
		.L479:
		.LBE499:
		.LBE498:
  839              %WHILE J > 0 %CYCLE
				cmpl	$0, -23432(%ebp)
				jle	.L652
		.LBB500:
		.LBB501:
				call	_imp_space@PLT
		.LBE501:
		.LBE500:
		.LBB502:
				nop
		.L481:
		.LBB509:
		.LBB510:
				call	_imp_newline@PLT
				jmp	.L474
		.L651:
		.LBE510:
		.LBE509:
  840                 SPACE;  PRINT STRING(STRING(J+12))
				movl	-23432(%ebp), %eax
				addl	$12, %eax
				movl	%eax, -23020(%ebp)
		.LBB503:
		.LBB504:
				movl	-23020(%ebp), %edx
		.LBE504:
		.LBE503:
				leal	-19560(%ebp), %eax
				movl	%edx, %esi
				movl	$64, %edx
				movl	%eax, %edi
				movl	%edx, %ecx
				rep movsl
				leal	-19560(%ebp), %edx
				leal	-19048(%ebp), %eax
				movl	%edx, %esi
				movl	$64, %edx
				movl	%eax, %edi
				movl	%edx, %ecx
				rep movsl
		.LBE502:
		.LBB505:
		.LBB506:
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-19048(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				call	_imp_printstring@PLT
				addl	$256, %esp
		.LBE506:
		.LBE505:
  841                 J = INTEGER(J+8)
				movl	-23432(%ebp), %eax
				addl	$8, %eax
				movl	%eax, -23024(%ebp)
		.LBB507:
		.LBB508:
				movl	-23024(%ebp), %eax
		.LBE508:
		.LBE507:
				movl	(%eax), %eax
				movl	%eax, -23432(%ebp)
  842              %REPEAT
				jmp	.L479
		.L652:
  843              NEWLINE
  844           %FINISH
  845        %REPEAT
				jmp	.L474
		.L476:
		.L650:
  846     %FINISH
  847     %RETURN
				jmp	.L10
		.L38:
  848
  849 !
  850
  851 %ROUTINE PRINT SS
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%esi
				pushl	%ebx
				subl	$48, %esp
				call	__x86.get_pc_thunk.bx
				addl	$_GLOBAL_OFFSET_TABLE_, %ebx
				movl	%ecx, %esi
				movl	%ecx, -44(%ebp)
				movl	%gs:20, %eax
				movl	%eax, -12(%ebp)
				xorl	%eax, %eax
				leal	8(%ebp), %eax
				movl	%eax, -28(%ebp)
  852 {%SHORTROUTINE}
  853 %INTEGER K
  854 %ROUTINE WRITE(%INTEGER V,P)
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%edi
				pushl	%esi
				pushl	%ebx
				subl	$44, %esp
				call	__x86.get_pc_thunk.bx
				addl	$_GLOBAL_OFFSET_TABLE_, %ebx
				movl	%ecx, %edi
				movl	%ecx, -44(%ebp)
  855     %IF V >= 10 %START
				cmpl	$9, 8(%ebp)
				jle	.L659
				nop
		.L655:
  856        WRITE(V//10,P-1);  V = V-10*(V//10)
				movl	12(%ebp), %eax
				leal	-1(%eax), %esi
				movl	8(%ebp), %ecx
				movl	$1717986919, %edx
				movl	%ecx, %eax
				imull	%edx
				sarl	$2, %edx
				movl	%ecx, %eax
				sarl	$31, %eax
				subl	%eax, %edx
				movl	%edx, %eax
				subl	$8, %esp
				pushl	%esi
				pushl	%eax
				movl	%edi, %ecx
				call	WRITE.6476
				addl	$16, %esp
				movl	8(%ebp), %ecx
				movl	$1717986919, %edx
				movl	%ecx, %eax
				imull	%edx
				sarl	$2, %edx
				movl	%ecx, %eax
				sarl	$31, %eax
				subl	%eax, %edx
				movl	%edx, %eax
				sall	$2, %eax
				addl	%edx, %eax
				addl	%eax, %eax
				subl	%eax, %ecx
				movl	%ecx, %eax
				movl	%eax, 8(%ebp)
  857     %FINISH %ELSE SPACES(P-1)
				jmp	.L656
		.L659:
				movl	12(%ebp), %eax
				subl	$1, %eax
				movl	%eax, -28(%ebp)
		.LBB514:
		.LBB515:
				subl	$12, %esp
				pushl	-28(%ebp)
				call	_imp_spaces@PLT
				addl	$16, %esp
		.L656:
		.LBE515:
		.LBE514:
  858     PRINT SYMBOL(V+'0')
				movl	8(%ebp), %eax
				addl	$48, %eax
				movsbl	%al, %eax
				movb	%al, -29(%ebp)
		.LBB516:
		.LBB517:
				movsbl	-29(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
		.LBE517:
		.LBE516:
  859 %END
				nop
				leal	-12(%ebp), %esp
				popl	%ebx
				popl	%esi
				popl	%edi
				popl	%ebp
				ret
		.LFE192:
		PRINTSS.6111:
		.LFB191:
  860     WRITE(LINE,4);  SPACE
				movl	1256(%esi), %edx
				subl	$8, %esp
				leal	-28(%ebp), %eax
				pushl	$4
				pushl	%edx
				movl	%eax, %ecx
				call	WRITE.6476
				addl	$16, %esp
		.LBB518:
		.LBB519:
				call	_imp_space@PLT
		.LBE519:
		.LBE518:
  861     PRINTPOS = LINEBASE
				movl	1252(%esi), %eax
				movl	%eax, 1248(%esi)
		.L661:
  862     {%UNTIL PRINTPOS = FPOS1} %CYCLE
  863        PRINTPOS = PRINTPOS+1
				movl	1248(%esi), %eax
				addl	$1, %eax
				movl	%eax, 1248(%esi)
  864        PRINT SYMBOL(MARKER) %IF PRINTPOS = FAULTPOS
				movl	1248(%esi), %edx
				movl	1260(%esi), %eax
				cmpl	%eax, %edx
				jne	.L677
				movb	$124, -32(%ebp)
		.LBB520:
		.LBB521:
				movsbl	-32(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
				jmp	.L663
		.L677:
		.LBE521:
		.LBE520:
				nop
		.L663:
  865        K = BYTEINTEGER(PRINTPOS)
				movl	1248(%esi), %eax
				movl	%eax, -16(%ebp)
		.LBB522:
		.LBB523:
				movl	-16(%ebp), %eax
		.LBE523:
		.LBE522:
				movzbl	(%eax), %eax
				movzbl	%al, %eax
				movl	%eax, -24(%ebp)
  866        %IF K = NL %OR 32 <= K <= 126 %THEN PRINT SYMBOL(K) %C
				cmpl	$10, -24(%ebp)
				je	.L678
		.LBB524:
				movl	-24(%ebp), %eax
				movl	%eax, -20(%ebp)
				cmpl	$31, -20(%ebp)
				jle	.L679
				cmpl	$126, -20(%ebp)
				jg	.L680
		.LBE524:
				jmp	.L666
		.L678:
				nop
		.L666:
				movl	-24(%ebp), %eax
				movsbl	%al, %eax
				movb	%al, -31(%ebp)
		.LBB525:
		.LBB526:
				movsbl	-31(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
		.LBE526:
		.LBE525:
				jmp	.L669
		.L679:
		.LBB527:
				nop
				jmp	.L668
		.L680:
				nop
		.L668:
				movb	$91, -29(%ebp)
		.LBE527:
		.LBB528:
		.LBB529:
				movsbl	-29(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
		.LBE529:
		.LBE528:
				subl	$8, %esp
				leal	-28(%ebp), %eax
				pushl	$0
				pushl	-24(%ebp)
				movl	%eax, %ecx
				call	WRITE.6476
				addl	$16, %esp
				movb	$93, -30(%ebp)
		.LBB530:
		.LBB531:
				movsbl	-30(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
		.L669:
		.LBE531:
		.LBE530:
  867        %ELSE PRINT SYMBOL('[') %AND WRITE(K,0) %AND PRINT SYMBOL(']')
  868     %REPEAT %UNTIL PRINTPOS = FPOS1
				movl	1248(%esi), %edx
				movl	1264(%esi), %eax
				cmpl	%eax, %edx
				je	.L681
				jmp	.L661
		.L681:
				nop
		.L671:
  869     NEWLINE %IF K # NL
				cmpl	$10, -24(%ebp)
				je	.L682
		.LBB532:
		.LBB533:
				call	_imp_newline@PLT
		.LBE533:
		.LBE532:
				nop
		.L673:
  870 %END
				jmp	.L673
		.L682:
				nop
				movl	-12(%ebp), %eax
				xorl	%gs:20, %eax
				je	.L675
				call	__stack_chk_fail_local
		.L675:
				leal	-8(%ebp), %esp
				popl	%ebx
				popl	%esi
				popl	%ebp
				ret
		.LFE191:
				.section	.rodata
				.align 4
		.LC37:
				.string	"->S(%d) out of bounds at %s line %d"
				.align 4
		.LC38:
				.string	"switch jump to undefined label S(%d): at %s line %d"
		REPORT.6113:
		.LFB193:
  871
  872 %ROUTINE REPORT(%INTEGER N)
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%edi
				pushl	%esi
				pushl	%ebx
				subl	$1084, %esp
				call	__x86.get_pc_thunk.bx
				addl	$_GLOBAL_OFFSET_TABLE_, %ebx
				movl	%ecx, %eax
				movl	%ecx, -1084(%ebp)
				movl	%gs:20, %esi
				movl	%esi, -28(%ebp)
				xorl	%esi, %esi
  873 {%SHORTROUTINE}
  874 %SWITCH S(0:25)
  875        FAULTPOS = 0 %IF N > 7
				cmpl	$7, 8(%ebp)
				jle	.L705
				movl	$0, %edx
				movl	%edx, 1260(%eax)
				jmp	.L685
		.L705:
				nop
		.L685:
  876        PRINT SS %IF PRINTPOS # FPOS1
				movl	1248(%eax), %ecx
				movl	1264(%eax), %edx
				cmpl	%edx, %ecx
				je	.L706
				movl	%eax, %ecx
				call	PRINTSS.6111
				jmp	.L687
		.L706:
				nop
		.L687:
				movb	$42, -1065(%ebp)
		.LBB534:
		.LBB535:
				movsbl	-1065(%ebp), %eax
				subl	$12, %esp
				pushl	%eax
				call	_imp_printsymbol@PLT
				addl	$16, %esp
		.LBE535:
		.LBE534:
  877        PRINT SYMBOL('*')
  878        ->S(N)
				movl	$878, -1064(%ebp)
				leal	.LC32@GOTOFF(%ebx), %eax
				movl	%eax, -1060(%ebp)
				movl	8(%ebp), %eax
				movl	%eax, -1056(%ebp)
				nop
		.L688:
  879 S(0): PRINT STRING("FORM?");  ->F
  880 S(1): PRINT STRING("ATOM?");  ->F
  881 S(2): PRINT STRING("NAME?");  ->F
  882 S(3): PRINT STRING("MODE?");  ->F
  883 S(4): PRINT STRING("SIZE?");  ->F
  884 S(11):PRINT STRING("%BEGIN");  ->M
  885 S(12):PRINT STRING("%CYCLE");  ->M
  886 S(13):PRINT STRING("%START");  ->M
  887 S(8): PRINT STRING("%END");  ->M
  888 S(9): PRINT STRING("%REPEAT");  ->M
  889 S(10):PRINT STRING("%FINISH");  ->M
  890 S(15): PRINT SYMBOL('''')
  891        PRINT STRING(STRING(DPOS+12))
  892        PRINT SYMBOL('''')
  893 M:    PRINT STRING(" MISSING");  ->F
  894 S(23):PRINT STRING("BOUNDS?");  ->F
  895 S(25):PRINT STRING("CONTEXT?");  ->F
  896 S(5):
  897 S(16):PRINT STRING("DUPLICATE");  ->F
  898 S(17):PRINT STRING("ORDER?");  ->F
  899 S(18):PRINT STRING("MATCH?");  ->F
  900 S(19):PRINT STRING("RANGE?");  ->F
  901 S(20):PRINT STRING("LITERAL?");  ->F
  902 S(21): %IF CONSTCOUNT < 0 %START
  903           WRITE(-CONSTCOUNT,1); PRINT STRING(" EXTRA")
  904        %FINISH %ELSE %START
  905           WRITE(CONSTCOUNT,1); PRINT STRING(" MISSING")
  906          %FINISH
  907       PRINT STRING(" VALUE(S)");  ->F
  908 S(22):PRINT STRING("TYPE?");  ->F
  909 F:     NEWLINE
  910     FAULTNUM = -1;  PARM = PARM!X'80000000'
  911 %END
				cmpl	$0, -1056(%ebp)
				js	.L689
				cmpl	$25, -1056(%ebp)
				jle	.L690
		.L689:
				movl	_imp_current_line@GOT(%ebx), %eax
				movl	(%eax), %eax
				testl	%eax, %eax
				je	.L691
				movl	_imp_current_line@GOT(%ebx), %eax
				movl	(%eax), %eax
				movl	%eax, -1088(%ebp)
				jmp	.L692
		.L691:
				movl	$911, -1088(%ebp)
		.L692:
				movl	_imp_current_file@GOT(%ebx), %eax
				movl	(%eax), %eax
				testl	%eax, %eax
				je	.L693
				movl	_imp_current_file@GOT(%ebx), %eax
				movl	(%eax), %edx
				leal	-540(%ebp), %eax
				subl	$8, %esp
				pushl	%edx
				pushl	%eax
				call	_imp_c2istr@PLT
				addl	$12, %esp
				jmp	.L694
		.L693:
		.LBB536:
				leal	-284(%ebp), %eax
				leal	.LC4@GOTOFF(%ebx), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-1052(%ebp), %eax
				leal	-284(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.LBE536:
				leal	-540(%ebp), %eax
				leal	-1052(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.L694:
				pushl	-1064(%ebp)
				pushl	-1060(%ebp)
				pushl	-1056(%ebp)
				leal	.LC37@GOTOFF(%ebx), %eax
				pushl	%eax
				pushl	-1056(%ebp)
				pushl	$3
				pushl	$6
				pushl	-1088(%ebp)
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-540(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				call	_signal_eventf@PLT
				addl	$288, %esp
		.L690:
				nop
		.L696:
				movl	_imp_current_line@GOT(%ebx), %eax
				movl	(%eax), %eax
				testl	%eax, %eax
				je	.L704
				movl	_imp_current_line@GOT(%ebx), %eax
				movl	(%eax), %eax
				movl	%eax, -1088(%ebp)
				jmp	.L699
		.L704:
				movl	$911, -1088(%ebp)
		.L699:
				movl	_imp_current_file@GOT(%ebx), %eax
				movl	(%eax), %eax
				testl	%eax, %eax
				je	.L700
				movl	_imp_current_file@GOT(%ebx), %eax
				movl	(%eax), %edx
				leal	-284(%ebp), %eax
				subl	$8, %esp
				pushl	%edx
				pushl	%eax
				call	_imp_c2istr@PLT
				addl	$12, %esp
				jmp	.L701
		.L700:
		.LBB537:
				leal	-284(%ebp), %eax
				leal	.LC4@GOTOFF(%ebx), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-796(%ebp), %eax
				leal	-284(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.LBE537:
				leal	-284(%ebp), %eax
				leal	-796(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.L701:
				pushl	-1064(%ebp)
				pushl	-1060(%ebp)
				pushl	-1056(%ebp)
				leal	.LC38@GOTOFF(%ebx), %eax
				pushl	%eax
				pushl	-1056(%ebp)
				pushl	$2
				pushl	$8
				pushl	-1088(%ebp)
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-284(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				call	_signal_eventf@PLT
				addl	$288, %esp
				movl	-28(%ebp), %eax
				xorl	%gs:20, %eax
				je	.L703
				call	__stack_chk_fail_local
		.L703:
				leal	-12(%ebp), %esp
				popl	%ebx
				popl	%esi
				popl	%edi
				popl	%ebp
				ret
		.LFE193:
		CODEATOM.6115:
		.LFB194:
  912
  913 %ROUTINE CODE ATOM
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%esi
				pushl	%ebx
				addl	$-128, %esp
				call	__x86.get_pc_thunk.dx
				addl	$_GLOBAL_OFFSET_TABLE_, %edx
				movl	%ecx, %eax
				movl	%ecx, -124(%ebp)
				movl	%gs:20, %ebx
				movl	%ebx, -12(%ebp)
				xorl	%ebx, %ebx
  914 {%SHORTROUTINE}
  915 {%REGISTER} %INTEGER FP{(5)};  !FILE POS
  916 {%REGISTER} %INTEGER SC{(6)};  !SYMCODE OR SYM
  917 %INTEGER I,J,K,L
  918 %INTEGER HASH
  919
  920     ATOMS = ATOMS+1
				movl	ATOMS.6025@GOTOFF(%edx), %ecx
				addl	$1, %ecx
				movl	%ecx, ATOMS.6025@GOTOFF(%edx)
  921     FP = FPOS;  SC = SYMCODE
				movl	1232(%eax), %ecx
				movl	%ecx, -116(%ebp)
				movl	1228(%eax), %ecx
				movl	%ecx, -112(%ebp)
  922     ->C2 %IF SC # 0
				cmpl	$0, -112(%ebp)
				jne	.L876
		.L709:
		.L711:
				nop
		.L712:
		.L716:
				nop
		.L710:
		.L729:
  923 C1: {%UNTIL SC # ' '} %CYCLE
  924        FP = FP+1;  SC = BYTEINTEGER(FP)
				addl	$1, -116(%ebp)
				movl	-116(%ebp), %ecx
				movl	%ecx, -88(%ebp)
		.LBB538:
		.LBB539:
				movl	-88(%ebp), %ecx
		.LBE539:
		.LBE538:
				movzbl	(%ecx), %ecx
				movzbl	%cl, %ecx
				movl	%ecx, -112(%ebp)
  925     %REPEAT %UNTIL SC # ' '
				cmpl	$32, -112(%ebp)
				jne	.L877
				jmp	.L716
		.L877:
				nop
		.L715:
  926     SC = SYMINIT(SC)
				movl	-112(%ebp), %ecx
				addl	%eax, %ecx
				addl	$2248, %ecx
				movzbl	(%ecx), %ecx
				movzbl	%cl, %ecx
				movl	%ecx, -112(%ebp)
				jmp	.L729
		.L876:
  927 C2: FPOS1 = FP
				movl	-116(%ebp), %ecx
				movl	%ecx, 1264(%eax)
  928     ->NAMENUM %IF SC < 127
				cmpl	$126, -112(%ebp)
				jle	.L878
				nop
		.L718:
				nop
		.L719:
  929     SC = SC-128
				addl	$-128, -112(%ebp)
  930     ->KEYWORD %IF SC > 0
				cmpl	$0, -112(%ebp)
				jg	.L879
				nop
		.L721:
				nop
		.L722:
  931     ->QUOTEMARK %IF SC # 0
				cmpl	$0, -112(%ebp)
				jne	.L880
				nop
		.L724:
				nop
		.L725:
  932    !PERCENT
  933     FP = FP+1;  SC = SYMINIT(BYTEINTEGER(FP)!128)
				addl	$1, -116(%ebp)
				movl	-116(%ebp), %ecx
				movl	%ecx, -84(%ebp)
		.LBB540:
		.LBB541:
				movl	-84(%ebp), %ecx
		.LBE541:
		.LBE540:
				movzbl	(%ecx), %ecx
				orl	$-128, %ecx
				movzbl	%cl, %ecx
				movzbl	2248(%eax,%ecx), %ecx
				movzbl	%cl, %ecx
				movl	%ecx, -112(%ebp)
  934     ->C2 %IF SC # 0
				cmpl	$0, -112(%ebp)
				je	.L881
				jmp	.L729
		.L881:
				nop
		.L728:
  935     ->C1
				jmp	.L716
		.L879:
  936
  937 !LOCATE ATOM IN FIXED DICT
  938 !KEYDICT := MORE<5> : LINK<9> : SYM-32<6>
  939 !           OR CLASS<7> : 0<6>
  940 !           THEN  SUBCLASS<16>
  941 KEYWORD:
  942     ->NLQ %IF SC >= SKIPMIN;  !NL OR EQUIVALENT
				movl	1224(%eax), %ecx
				cmpl	%ecx, -112(%ebp)
				jge	.L882
				nop
		.L731:
				nop
		.L732:
  943     I = SC;  L = 0;  L = 128 %IF SC < PUNCTMIN
				movl	-112(%ebp), %edx
				movl	%edx, -108(%ebp)
				movl	$0, -96(%ebp)
				cmpl	$42, -112(%ebp)
				jg	.L883
				movl	$128, -96(%ebp)
				jmp	.L748
		.L734:
		.L735:
		.L883:
				nop
		.L736:
		.L748:
  944     %CYCLE
  945        %CYCLE
  946           FP = FP+1;  K = BYTEINTEGER(FP)
				addl	$1, -116(%ebp)
				movl	-116(%ebp), %edx
				movl	%edx, -80(%ebp)
		.LBB542:
		.LBB543:
				movl	-80(%ebp), %edx
		.LBE543:
		.LBE542:
				movzbl	(%edx), %edx
				movzbl	%dl, %edx
				movl	%edx, -100(%ebp)
  947           SC = SYMINIT(K!L)
				movl	-100(%ebp), %edx
				orl	-96(%ebp), %edx
				movzbl	2248(%eax,%edx), %edx
				movzbl	%dl, %edx
				movl	%edx, -112(%ebp)
  948           %EXIT %IF SC&127 # 0
				nop
		.L738:
  949           L = SC
  950        %REPEAT
  951        K = K-32 %IF SC&128 # 0
				subl	$32, -100(%ebp)
		.L739:
		.L740:
  952        %CYCLE
  953           J = KEYDICT(I)
				movl	-108(%ebp), %edx
				addl	$632, %edx
				movzwl	8(%eax,%edx,2), %edx
				movswl	%dx, %edx
				movl	%edx, -104(%ebp)
  954           %EXIT %IF J >= 0 %OR J&63 = K
				cmpl	$0, -104(%ebp)
				jns	.L884
				cmpl	$63, -100(%ebp)
				setne	%dl
				movzbl	%dl, %edx
				andl	-104(%ebp), %edx
				testl	%edx, %edx
				jne	.L885
				jmp	.L742
		.L884:
				nop
		.L742:
				nop
		.L744:
				nop
		.L743:
  955           I = I+1
				addl	$1, -108(%ebp)
  956        %REPEAT
				jmp	.L739
		.L868:
		.L746:
  957        %EXIT %IF J&63 # K
				cmpl	$63, -100(%ebp)
				sete	%dl
				movzbl	%dl, %edx
				andl	-104(%ebp), %edx
				testl	%edx, %edx
				je	.L886
				jmp	.L868
		.L885:
				nop
  958        I = J>>6&511
				movl	-104(%ebp), %edx
				shrl	$6, %edx
				andl	$511, %edx
				movl	%edx, -108(%ebp)
  959     %REPEAT
				jmp	.L748
		.L747:
		.L886:
  960     ->ERR %IF J&63 # 0
				jmp	.L749
		.L750:
		.L751:
  961     ATOMTYPE = KEYDICT(I+1)&X'FFFF'
  962     ATOM = J>>6
  963     ->KEY5 %IF ATOM = 0
  964 FIN:FPOS = FP;  SYMCODE = SC
				movl	-116(%ebp), %edx
				movl	%edx, 1232(%eax)
				movl	-112(%ebp), %edx
				movl	%edx, 1228(%eax)
  965     %RETURN
				nop
  966 KEY5:
  967     %IF ATOMTYPE # 0 %START;  !%COMMENT
  968        ->FIN %IF SKIPMIN # SKIP1MIN
  969        ->SKP
  970     %FINISH
  971     ->ERR %UNLESS BYTEINTEGER(FP) = NL
  972     NEXTLINE = NEXTLINE+1
  973     ->TERM %IF FP >= FMAX
  974     ->C1
  975
  976 NLQ:
  977     ->TERM %IF SKIPMIN # SKIP1MIN;  !NOT LEADING ATOM
				movl	1224(%eax), %ecx
				cmpl	$86, %ecx
				jne	.L887
				nop
		.L754:
		.L756:
				nop
				jmp	.L755
		.L891:
  978 SKP:
  979     FP = FP-1
				subl	$1, -116(%ebp)
		.L757:
  980     {%UNTIL SC = NL %OR SC = ';'} %CYCLE
  981        FP = FP+1;  SC = BYTEINTEGER(FP)
				addl	$1, -116(%ebp)
				movl	-116(%ebp), %ecx
				movl	%ecx, -76(%ebp)
		.LBB544:
		.LBB545:
				movl	-76(%ebp), %ecx
		.LBE545:
		.LBE544:
				movzbl	(%ecx), %ecx
				movzbl	%cl, %ecx
				movl	%ecx, -112(%ebp)
  982     %REPEAT %UNTIL SC = NL %OR SC = ';'
				cmpl	$10, -112(%ebp)
				je	.L888
				cmpl	$59, -112(%ebp)
				je	.L889
				jmp	.L757
		.L888:
				nop
				jmp	.L760
		.L889:
				nop
		.L760:
  983     %IF SC = NL %START
				cmpl	$10, -112(%ebp)
				jne	.L890
				nop
		.L763:
  984        ->TERM %IF FP >= FMAX
				movl	1208(%eax), %ecx
				cmpl	%ecx, -116(%ebp)
				jge	.L891
				nop
		.L765:
				nop
				jmp	.L755
		.L915:
  985        LINEBASE = FP;  NEXTLINE = NEXTLINE+1;  LINE = NEXTLINE
				movl	-116(%ebp), %ecx
				movl	%ecx, 1252(%eax)
				movl	1212(%eax), %ecx
				addl	$1, %ecx
				movl	%ecx, 1212(%eax)
				movl	1212(%eax), %ecx
				movl	%ecx, 1256(%eax)
  986     %FINISH
  987     ->C1
				jmp	.L716
		.L890:
				jmp	.L716
		.L887:
  988
  989 TERM:
  990     ATOM = TERMINATOR;  ATOMTYPE = 0
				movl	$13, %edx
				movl	%edx, 1216(%eax)
				movl	$0, %edx
				movl	%edx, 1220(%eax)
  991     NEXTLINE = NEXTLINE+1;  SC = 0
				movl	1212(%eax), %edx
				addl	$1, %edx
				movl	%edx, 1212(%eax)
				movl	$0, -112(%ebp)
  992     SC = 255 %IF FP >= FMAX
				movl	1208(%eax), %edx
				cmpl	%edx, -116(%ebp)
				jl	.L892
				movl	$255, -112(%ebp)
				nop
		.L767:
  993     ->FIN
				jmp	.L750
		.L892:
				jmp	.L750
		.L900:
  994
  995 DISASTER:
  996     ATOMTYPE = 99
				movl	$99, %edx
				movl	%edx, 1220(%eax)
  997     ->ER1
				jmp	.L769
		.L918:
  998 STRINGERR:
  999     ATOMTYPE = 4;  NEXTLINE = L
				movl	$4, %edx
				movl	%edx, 1220(%eax)
				movl	-96(%ebp), %edx
				movl	%edx, 1212(%eax)
		.L769:
 1000 ER1:FP = FPOS1;  SC = 0
				movl	1264(%eax), %edx
				movl	%edx, -116(%ebp)
				movl	$0, -112(%ebp)
 1001     ->ER2
				jmp	.L771
		.L912:
 1002 ERR:ATOMTYPE = 1
				movl	$1, %edx
				movl	%edx, 1220(%eax)
		.L771:
 1003 ER2:ATOM = 0
				movl	$0, %edx
				movl	%edx, 1216(%eax)
 1004     ->FIN
				jmp	.L750
		.L878:
 1005
 1006 NAMENUM:
 1007     ->NUMBER %IF SC <= '9' %AND ATOM # JUMP
				cmpl	$57, -112(%ebp)
				jg	.L893
				movl	1216(%eax), %ecx
				cmpl	$15, %ecx
				jne	.L894
				jmp	.L773
		.L893:
				nop
		.L773:
				nop
		.L775:
 1008     %IF BYTEINTEGER(FP+1) = '''' %START
				movl	-116(%ebp), %ecx
				addl	$1, %ecx
				movl	%ecx, -72(%ebp)
		.LBB546:
		.LBB547:
				movl	-72(%ebp), %ecx
		.LBE547:
		.LBE546:
				movzbl	(%ecx), %ecx
				cmpb	$39, %cl
				jne	.L895
				nop
		.L790:
 1009        ->HEX %IF SC = 'X'
				cmpl	$88, -112(%ebp)
				je	.L896
				nop
		.L780:
				nop
		.L781:
 1010        ->OCT %IF SC = 'K'
				cmpl	$75, -112(%ebp)
				je	.L897
				nop
		.L783:
				nop
		.L784:
 1011        ->BIN %IF SC = 'B'
				cmpl	$66, -112(%ebp)
				je	.L898
				nop
		.L786:
				nop
		.L787:
 1012        ->MULTI %IF SC = 'M'
				cmpl	$77, -112(%ebp)
				je	.L899
				jmp	.L790
		.L778:
		.L895:
				nop
		.L789:
 1013     %FINISH
 1014     J = DLIM;  ->DISASTER %IF J+84 >= DBOUND
				nop
		.L768:
				movl	1204(%eax), %ecx
				movl	%ecx, -104(%ebp)
				movl	-104(%ebp), %ecx
				leal	84(%ecx), %ebx
				movl	1200(%eax), %ecx
				cmpl	%ebx, %ecx
				jle	.L900
				nop
		.L792:
 1015     HASH = 0
				movl	$0, -92(%ebp)
		.L793:
 1016     {%UNTIL SC > 'Z'} %CYCLE
 1017        %IF SC # 0 %START
				cmpl	$0, -112(%ebp)
				je	.L901
				nop
		.L795:
 1018           J = J+1;  BYTEINTEGER(J+12) = SC
				addl	$1, -104(%ebp)
				movl	-104(%ebp), %ecx
				addl	$12, %ecx
				movl	%ecx, -68(%ebp)
		.LBB548:
		.LBB549:
				movl	-68(%ebp), %ecx
		.LBE549:
		.LBE548:
				movl	-112(%ebp), %ebx
				movb	%bl, (%ecx)
 1019           HASH = HASH<<1!!SC
				movl	-92(%ebp), %ecx
				addl	%ecx, %ecx
				xorl	-112(%ebp), %ecx
				movl	%ecx, -92(%ebp)
				jmp	.L795
		.L901:
 1020        %FINISH
 1021        FP = FP+1;  SC = SYMINIT(BYTEINTEGER(FP))
				addl	$1, -116(%ebp)
				movl	-116(%ebp), %ecx
				movl	%ecx, -64(%ebp)
		.LBB550:
		.LBB551:
				movl	-64(%ebp), %ecx
		.LBE551:
		.LBE550:
				movzbl	(%ecx), %ecx
				movzbl	%cl, %ecx
				movzbl	2248(%eax,%ecx), %ecx
				movzbl	%cl, %ecx
				movl	%ecx, -112(%ebp)
 1022     %REPEAT %UNTIL SC > 'Z'
				cmpl	$90, -112(%ebp)
				jg	.L902
				jmp	.L793
		.L902:
				nop
		.L799:
 1023     BYTEINTEGER(DLIM+12) = J-DLIM
				movl	-104(%ebp), %ecx
				movb	%cl, -125(%ebp)
				movl	1204(%eax), %ecx
				movl	%ecx, %ebx
				movl	1204(%eax), %ecx
				addl	$12, %ecx
				movl	%ecx, -60(%ebp)
		.LBB552:
		.LBB553:
				movl	-60(%ebp), %esi
		.LBE553:
		.LBE552:
				movzbl	-125(%ebp), %ecx
				subl	%ebx, %ecx
				movl	%ecx, %ebx
				movb	%bl, (%esi)
 1024     NEWDLIM = J&(\3)+16
				movl	-104(%ebp), %ecx
				andl	$-4, %ecx
				addl	$16, %ecx
				movl	%ecx, 1196(%eax)
 1025     HEAD == INDEX(HASH&255);  DPOS = HEAD;
				movl	-92(%ebp), %ecx
				movzbl	%cl, %ecx
				addl	$40, %ecx
				sall	$2, %ecx
				addl	%eax, %ecx
				addl	$12, %ecx
				movl	%ecx, 168(%eax)
				movl	168(%eax), %ecx
				movl	(%ecx), %ecx
				movl	%ecx, 1244(%eax)
 1026     ATOM = IDENT;
				movl	$1, %ecx
				movl	%ecx, 1216(%eax)
 1027     IDENTIFIERS = IDENTIFIERS+1
				movl	IDENTIFIERS.6026@GOTOFF(%edx), %ecx
				addl	$1, %ecx
				movl	%ecx, IDENTIFIERS.6026@GOTOFF(%edx)
 1028     ->FIN
				jmp	.L750
		.L894:
 1029
 1030 NUMBER:
 1031     ATOMTYPE = NUMBITS
				movl	$112, %ecx
				movl	%ecx, 1220(%eax)
 1032     ATOMVAL = SC-'0'
				movl	-112(%ebp), %ecx
				subl	$48, %ecx
				movl	%ecx, 164(%eax)
		.L801:
 1033     %CYCLE
 1034        FP = FP+1;  SC = SYMINIT(BYTEINTEGER(FP))
				addl	$1, -116(%ebp)
				movl	-116(%ebp), %ecx
				movl	%ecx, -56(%ebp)
		.LBB554:
		.LBB555:
				movl	-56(%ebp), %ecx
		.LBE555:
		.LBE554:
				movzbl	(%ecx), %ecx
				movzbl	%cl, %ecx
				movzbl	2248(%eax,%ecx), %ecx
				movzbl	%cl, %ecx
				movl	%ecx, -112(%ebp)
 1035        %EXIT %IF SC > '9'
				cmpl	$57, -112(%ebp)
				jg	.L903
				nop
		.L804:
				nop
		.L805:
 1036        ATOMVAL = (ATOMVAL<<2+ATOMVAL)<<1+SC-'0' %C
				cmpl	$0, -112(%ebp)
				je	.L904
				movl	164(%eax), %ecx
				cmpl	$999999, %ecx
				jg	.L905
				movl	164(%eax), %ecx
				leal	0(,%ecx,4), %ebx
				movl	164(%eax), %ecx
				addl	%ebx, %ecx
				leal	(%ecx,%ecx), %ebx
				movl	-112(%ebp), %ecx
				addl	%ebx, %ecx
				subl	$48, %ecx
				movl	%ecx, 164(%eax)
				jmp	.L801
		.L904:
				nop
				jmp	.L801
		.L905:
				nop
		.L807:
 1037          %IF SC # 0 %AND ATOMVAL < 1000000
 1038     %REPEAT
				jmp	.L801
		.L903:
 1039     %IF BYTEINTEGER(FP) = '.' %START
				movl	-116(%ebp), %ecx
				movl	%ecx, -52(%ebp)
		.LBB556:
		.LBB557:
				movl	-52(%ebp), %ecx
		.LBE557:
		.LBE556:
				movzbl	(%ecx), %ecx
				cmpb	$46, %cl
				jne	.L906
				nop
		.L811:
 1040        {%UNTIL SC > '9'} %CYCLE
				nop
		.L810:
 1041           FP = FP+1;  SC = SYMINIT(BYTEINTEGER(FP))
				addl	$1, -116(%ebp)
				movl	-116(%ebp), %ecx
				movl	%ecx, -48(%ebp)
		.LBB558:
		.LBB559:
				movl	-48(%ebp), %ecx
		.LBE559:
		.LBE558:
				movzbl	(%ecx), %ecx
				movzbl	%cl, %ecx
				movzbl	2248(%eax,%ecx), %ecx
				movzbl	%cl, %ecx
				movl	%ecx, -112(%ebp)
 1042        %REPEAT %UNTIL SC > '9'
				cmpl	$57, -112(%ebp)
				jg	.L907
				jmp	.L810
		.L907:
				nop
		.L814:
 1043        ATOMTYPE = REALBITS
				movl	$48, %ecx
				movl	%ecx, 1220(%eax)
				jmp	.L811
		.L906:
 1044     %FINISH
 1045     %IF BYTEINTEGER(FP) = '@' %START
				movl	-116(%ebp), %ecx
				movl	%ecx, -44(%ebp)
		.LBB560:
		.LBB561:
				movl	-44(%ebp), %ecx
		.LBE561:
		.LBE560:
				movzbl	(%ecx), %ecx
				cmpb	$64, %cl
				jne	.L908
				nop
		.L832:
 1046        {%UNTIL SC # ' '} %CYCLE
				nop
		.L816:
 1047           FP = FP+1;  SC = BYTEINTEGER(FP)
				addl	$1, -116(%ebp)
				movl	-116(%ebp), %ecx
				movl	%ecx, -40(%ebp)
		.LBB562:
		.LBB563:
				movl	-40(%ebp), %ecx
		.LBE563:
		.LBE562:
				movzbl	(%ecx), %ecx
				movzbl	%cl, %ecx
				movl	%ecx, -112(%ebp)
 1048        %REPEAT %UNTIL SC # ' '
				cmpl	$32, -112(%ebp)
				jne	.L909
				jmp	.L816
		.L909:
				nop
		.L820:
 1049        %IF SC = '-' %START
				cmpl	$45, -112(%ebp)
				jne	.L910
				nop
				jmp	.L825
		.L911:
 1050           {%UNTIL SC # ' '} %CYCLE
				nop
		.L821:
 1051              FP = FP+1;  SC = BYTEINTEGER(FP)
				addl	$1, -116(%ebp)
				movl	-116(%ebp), %ecx
				movl	%ecx, -36(%ebp)
		.LBB564:
		.LBB565:
				movl	-36(%ebp), %ecx
		.LBE565:
		.LBE564:
				movzbl	(%ecx), %ecx
				movzbl	%cl, %ecx
				movl	%ecx, -112(%ebp)
 1052           %REPEAT %UNTIL SC # ' '
				cmpl	$32, -112(%ebp)
				jne	.L911
				jmp	.L821
		.L822:
		.L910:
				nop
		.L825:
 1053        %FINISH
 1054        SC = SYMINIT(SC)
				movl	-112(%ebp), %ecx
				addl	%eax, %ecx
				addl	$2248, %ecx
				movzbl	(%ecx), %ecx
				movzbl	%cl, %ecx
				movl	%ecx, -112(%ebp)
 1055        ->ERR %UNLESS SC <= '9'
				nop
				jmp	.L749
		.L923:
				cmpl	$57, -112(%ebp)
				jg	.L912
				nop
		.L827:
		.L828:
 1056        {%UNTIL SC > '9'} %CYCLE
 1057           FP = FP+1;  SC = SYMINIT(BYTEINTEGER(FP))
				addl	$1, -116(%ebp)
				movl	-116(%ebp), %ecx
				movl	%ecx, -32(%ebp)
		.LBB566:
		.LBB567:
				movl	-32(%ebp), %ecx
		.LBE567:
		.LBE566:
				movzbl	(%ecx), %ecx
				movzbl	%cl, %ecx
				movzbl	2248(%eax,%ecx), %ecx
				movzbl	%cl, %ecx
				movl	%ecx, -112(%ebp)
 1058        %REPEAT %UNTIL SC > '9'
				cmpl	$57, -112(%ebp)
				jg	.L913
				jmp	.L827
		.L913:
				nop
		.L831:
 1059        ATOMTYPE = REALBITS
				movl	$48, %ecx
				movl	%ecx, 1220(%eax)
				jmp	.L832
		.L817:
		.L908:
 1060     %FINISH
 1061 NN: ATOM = CONST
				movl	$2, %ecx
				movl	%ecx, 1216(%eax)
 1062     NUMBERS = NUMBERS+1
				movl	NUMBERS.6027@GOTOFF(%edx), %ecx
				addl	$1, %ecx
				movl	%ecx, NUMBERS.6027@GOTOFF(%edx)
 1063     ->FIN
				jmp	.L750
		.L899:
 1064
 1065 MULTI:
 1066     FP = FP+1
				addl	$1, -116(%ebp)
 1067     ATOMTYPE = NUMBITS
				movl	$112, %ecx
				movl	%ecx, 1220(%eax)
 1068     ->Q1
				jmp	.L833
		.L880:
 1069 QUOTEMARK:
 1070     ATOMTYPE = STRINGBIT
				movl	$128, %ecx
				movl	%ecx, 1220(%eax)
		.L833:
 1071 Q1: K = BYTEINTEGER(FP);  J = -1;  L = NEXTLINE
				movl	-116(%ebp), %ecx
				movl	%ecx, -28(%ebp)
		.LBB568:
		.LBB569:
				movl	-28(%ebp), %ecx
		.LBE569:
		.LBE568:
				movzbl	(%ecx), %ecx
				movzbl	%cl, %ecx
				movl	%ecx, -100(%ebp)
				movl	$-1, -104(%ebp)
				movl	1212(%eax), %ecx
				movl	%ecx, -96(%ebp)
 1072     ATOMVAL = 0
				movl	$0, %ecx
				movl	%ecx, 164(%eax)
		.L835:
 1073     %CYCLE
 1074        FP = FP+1;  SC = BYTEINTEGER(FP)
				addl	$1, -116(%ebp)
				movl	-116(%ebp), %ecx
				movl	%ecx, -24(%ebp)
		.LBB570:
		.LBB571:
				movl	-24(%ebp), %ecx
		.LBE571:
		.LBE570:
				movzbl	(%ecx), %ecx
				movzbl	%cl, %ecx
				movl	%ecx, -112(%ebp)
 1075        %IF SC = NL %START
				cmpl	$10, -112(%ebp)
				jne	.L914
				nop
		.L840:
 1076           NEXTLINE = NEXTLINE+1
				movl	1212(%eax), %ecx
				addl	$1, %ecx
				movl	%ecx, 1212(%eax)
 1077           ->TERM %IF FP >= FMAX
				nop
		.L755:
				movl	1208(%eax), %ecx
				cmpl	%ecx, -116(%ebp)
				jge	.L915
				jmp	.L840
		.L838:
		.L914:
 1078        %FINISH
 1079        %IF SC = K %START
				movl	-112(%ebp), %ecx
				cmpl	-100(%ebp), %ecx
				jne	.L916
				nop
		.L842:
 1080           %EXIT %IF SC # BYTEINTEGER(FP+1)
				movl	-116(%ebp), %ecx
				addl	$1, %ecx
				movl	%ecx, -20(%ebp)
		.LBB572:
		.LBB573:
				movl	-20(%ebp), %ecx
		.LBE573:
		.LBE572:
				movzbl	(%ecx), %ecx
				movzbl	%cl, %ecx
				cmpl	%ecx, -112(%ebp)
				jne	.L917
				nop
		.L845:
				nop
		.L846:
 1081           FP = FP+1
				addl	$1, -116(%ebp)
				jmp	.L842
		.L916:
 1082        %FINISH
 1083        ATOMVAL = ATOMVAL<<8+SC
				movl	164(%eax), %ecx
				movl	%ecx, %ebx
				sall	$8, %ebx
				movl	-112(%ebp), %ecx
				addl	%ebx, %ecx
				movl	%ecx, 164(%eax)
 1084        J = J+1;  ->STRINGERR %IF J = 255
				nop
		.L770:
				addl	$1, -104(%ebp)
				cmpl	$255, -104(%ebp)
				je	.L918
				nop
		.L848:
 1085     %REPEAT
				jmp	.L835
		.L917:
 1086     %IF ATOMTYPE = STRINGBIT %START;  !IE NOT MULTI
				movl	1220(%eax), %ecx
				cmpl	$128, %ecx
				jne	.L919
				nop
				jmp	.L852
		.L920:
 1087        ATOMVAL = J<<8+ATOMVAL&255
				movl	-104(%ebp), %ecx
				movl	%ecx, %ebx
				sall	$8, %ebx
				movl	164(%eax), %ecx
				movzbl	%cl, %ecx
				addl	%ebx, %ecx
				movl	%ecx, 164(%eax)
 1088        ATOMTYPE = STRINGBIT+NUMBITS %IF J = 0
				cmpl	$0, -104(%ebp)
				jne	.L920
				movl	$240, %ecx
				movl	%ecx, 1220(%eax)
				jmp	.L852
		.L850:
		.L919:
				nop
		.L852:
 1089     %FINISH
 1090     SC = 0
				movl	$0, -112(%ebp)
 1091     ->NN
				jmp	.L832
		.L896:
 1092
 1093 HEX:J = 4;  ->RAD
				movl	$4, -104(%ebp)
				jmp	.L853
		.L897:
 1094 OCT:J = 3;  ->RAD
				movl	$3, -104(%ebp)
				jmp	.L853
		.L898:
 1095 BIN:J = 1
				movl	$1, -104(%ebp)
		.L853:
 1096 RAD:FP = FP+1
				addl	$1, -116(%ebp)
 1097     ATOMTYPE = NUMBITS;  ATOMVAL = 0
				movl	$112, %ecx
				movl	%ecx, 1220(%eax)
				movl	$0, %ecx
				movl	%ecx, 164(%eax)
		.L854:
 1098     %CYCLE
 1099        FP = FP+1;  SC = BYTEINTEGER(FP)
				addl	$1, -116(%ebp)
				movl	-116(%ebp), %ecx
				movl	%ecx, -16(%ebp)
		.LBB574:
		.LBB575:
				movl	-16(%ebp), %ecx
		.LBE575:
		.LBE574:
				movzbl	(%ecx), %ecx
				movzbl	%cl, %ecx
				movl	%ecx, -112(%ebp)
 1100        %EXIT %IF SC = ''''
				cmpl	$39, -112(%ebp)
				je	.L921
				nop
		.L857:
				nop
		.L858:
 1101        K = SC-'0'
				movl	-112(%ebp), %ecx
				subl	$48, %ecx
				movl	%ecx, -100(%ebp)
 1102        K = K+('0'-'A'+10) %IF K >= 'A'-'0'
				cmpl	$16, -100(%ebp)
				jle	.L922
				subl	$7, -100(%ebp)
				jmp	.L860
		.L922:
				nop
		.L860:
 1103        ->ERR %IF K>>J # 0
				nop
		.L749:
				movl	-100(%ebp), %ebx
				movl	-104(%ebp), %ecx
				shrl	%cl, %ebx
				movl	%ebx, %ecx
				testl	%ecx, %ecx
				jne	.L923
				nop
		.L862:
 1104        ATOMVAL = ATOMVAL<<J+K
				movl	164(%eax), %ebx
				movl	-104(%ebp), %ecx
				sall	%cl, %ebx
				movl	-100(%ebp), %ecx
				addl	%ebx, %ecx
				movl	%ecx, 164(%eax)
 1105     %REPEAT
				jmp	.L854
		.L921:
 1106     SC = 0
				movl	$0, -112(%ebp)
 1107     ->NN
				jmp	.L832
		.L869:
 1108
 1109 %END; !CODE ATOM
				movl	-12(%ebp), %eax
				xorl	%gs:20, %eax
				je	.L863
				jmp	.L869
		.L882:
				call	__stack_chk_fail_local
		.L863:
				subl	$-128, %esp
				popl	%ebx
				popl	%esi
				popl	%ebp
				ret
		.LFE194:
				.section	.rodata
				.align 4
		.LC39:
				.string	"Illegal cycle I = _imp_ADDR(/*?*/&INDEX[0]), 4, _imp_ADDR(/*?*/&INDEX[255])"
		POPCONTEXT.6117:
		.LFB195:
 1110
 1111 %ROUTINE POP CONTEXT
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%edi
				pushl	%esi
				pushl	%ebx
				subl	$860, %esp
				call	__x86.get_pc_thunk.bx
				addl	$_GLOBAL_OFFSET_TABLE_, %ebx
				movl	%ecx, %eax
				movl	%eax, -864(%ebp)
				movl	%ecx, -860(%ebp)
				movl	%gs:20, %edi
				movl	%edi, -28(%ebp)
				xorl	%edi, %edi
 1112 {%SHORTROUTINE}
 1113 %INTEGER I
 1114     DPOS = C_LOCAL;  FPOS1 = FPOS
				movl	%eax, %ecx
				movl	156(%ecx), %eax
				movl	%eax, 1244(%ecx)
				movl	1232(%ecx), %eax
				movl	%eax, 1264(%ecx)
		.L925:
 1115     %WHILE DPOS # DLIM %CYCLE
				movl	-864(%ebp), %eax
				movl	1244(%eax), %edx
				movl	1204(%eax), %eax
				cmpl	%eax, %edx
				jne	.L926
				jmp	.L927
		.L926:
 1116        I = INTEGER(DPOS)
				movl	-864(%ebp), %eax
				movl	1244(%eax), %eax
				movl	%eax, -836(%ebp)
		.LBB576:
		.LBB577:
				movl	-836(%ebp), %eax
		.LBE577:
		.LBE576:
				movl	(%eax), %eax
				movl	%eax, -852(%ebp)
 1117        %IF I # RECFORMAT %START
				cmpl	$4, -852(%ebp)
				je	.L967
				nop
		.L930:
 1118           REPORT(15) %IF I&1 # 0 %AND I&6 # 0
				subl	$12, %esp
				pushl	$15
				movl	-864(%ebp), %ecx
				call	REPORT.6113
				addl	$16, %esp
		.L931:
 1119        %FINISH %ELSE %START
				jmp	.L936
		.L967:
 1120           DPOS = INTEGER(DPOS+4) %IF INTEGER(DPOS+4) # 0
				movl	-864(%ebp), %eax
				movl	1244(%eax), %eax
				addl	$4, %eax
				movl	%eax, -832(%ebp)
		.LBB578:
		.LBB579:
				movl	-832(%ebp), %eax
		.LBE579:
		.LBE578:
				movl	(%eax), %eax
				testl	%eax, %eax
				je	.L968
				movl	-864(%ebp), %edx
				movl	1244(%edx), %eax
				addl	$4, %eax
				movl	%eax, -828(%ebp)
		.LBB580:
		.LBB581:
				movl	-828(%ebp), %eax
		.LBE581:
		.LBE580:
				movl	(%eax), %eax
				movl	%eax, 1244(%edx)
				jmp	.L936
		.L932:
		.L968:
				nop
		.L936:
 1121        %FINISH
 1122        DPOS = BYTEINTEGER(DPOS+12)&(\3)+DPOS+16
				movl	-864(%ebp), %eax
				movl	1244(%eax), %eax
				addl	$12, %eax
				movl	%eax, -824(%ebp)
		.LBB582:
		.LBB583:
				movl	-824(%ebp), %eax
		.LBE583:
		.LBE582:
				movzbl	(%eax), %eax
				movzbl	%al, %eax
				andl	$-4, %eax
				movl	%eax, %edx
				movl	-864(%ebp), %ecx
				movl	1244(%ecx), %eax
				addl	%edx, %eax
				addl	$16, %eax
				movl	%eax, 1244(%ecx)
 1123     %REPEAT
				jmp	.L925
		.L927:
		.L938:
 1124     REPORT(C_STACK&1+9) %AND C_STACK=C_STACK>>2 %WHILE C_STACK # 0
				movl	-864(%ebp), %eax
				movl	152(%eax), %eax
				testl	%eax, %eax
				je	.L969
				movl	-864(%ebp), %edi
				movl	152(%edi), %eax
				andl	$1, %eax
				addl	$9, %eax
				subl	$12, %esp
				pushl	%eax
				movl	%edi, %ecx
				call	REPORT.6113
				addl	$16, %esp
				movl	152(%edi), %eax
				shrl	$2, %eax
				movl	%eax, 152(%edi)
				jmp	.L927
		.L969:
				nop
		.L940:
 1125     DLIM = C_LOCAL
				movl	-864(%ebp), %edi
				movl	%edi, %esi
				movl	156(%esi), %eax
				movl	%edi, %esi
				movl	%eax, 1204(%esi)
 1126     C = HOLD(LEVEL);  LEVEL = LEVEL-1
				movl	%edi, %esi
				movl	148(%esi), %eax
				leal	-1(%eax), %edx
				movl	%edx, %eax
				addl	%eax, %eax
				addl	%edx, %eax
				sall	$2, %eax
				movl	%edi, %esi
				addl	%esi, %eax
				movl	4(%eax), %edx
				movl	%edi, %esi
				movl	%edx, 152(%esi)
				movl	8(%eax), %edx
				movl	%edi, %esi
				movl	%edx, 156(%esi)
				movl	12(%eax), %eax
				movl	%edi, %esi
				movl	%eax, 160(%esi)
				movl	%edi, %esi
				movl	148(%esi), %eax
				subl	$1, %eax
				movl	%eax, 148(%edi)
		.LBB584:
 1127     %CYCLE I = ADDR(INDEX(0)),4,ADDR(INDEX(255))
				leal	172(%edi), %eax
				movl	%eax, -816(%ebp)
		.LBB585:
		.LBB586:
				movl	-816(%ebp), %eax
		.LBE586:
		.LBE585:
				movl	%eax, -848(%ebp)
				leal	1192(%edi), %eax
				movl	%eax, -820(%ebp)
		.LBB587:
		.LBB588:
				movl	-820(%ebp), %eax
		.LBE588:
		.LBE587:
				movl	%eax, -844(%ebp)
		.LBB589:
				movl	-844(%ebp), %eax
				subl	-848(%ebp), %eax
				movl	%eax, -840(%ebp)
				movl	-840(%ebp), %eax
				xorl	$4, %eax
				testl	%eax, %eax
				js	.L943
				movl	-840(%ebp), %eax
				andl	$3, %eax
				testl	%eax, %eax
				je	.L944
		.L943:
				movl	$1, %eax
				jmp	.L945
		.L944:
				movl	$0, %eax
		.L945:
		.LBE589:
				testl	%eax, %eax
				je	.L946
				leal	-540(%ebp), %eax
				subl	$8, %esp
				leal	.LC39@GOTOFF(%ebx), %edx
				pushl	%edx
				pushl	%eax
				call	_imp_c2istr@PLT
				addl	$12, %esp
				movl	_imp_current_line@GOT(%ebx), %eax
				movl	(%eax), %eax
				testl	%eax, %eax
				je	.L947
				movl	_imp_current_line@GOT(%ebx), %eax
				movl	(%eax), %eax
				movl	%eax, -868(%ebp)
				jmp	.L948
		.L947:
				movl	$1127, -868(%ebp)
		.L948:
				movl	_imp_current_file@GOT(%ebx), %eax
				movl	(%eax), %eax
				testl	%eax, %eax
				je	.L949
				movl	_imp_current_file@GOT(%ebx), %eax
				movl	(%eax), %edx
				leal	-284(%ebp), %eax
				subl	$8, %esp
				pushl	%edx
				pushl	%eax
				call	_imp_c2istr@PLT
				addl	$12, %esp
				jmp	.L950
		.L949:
		.LBB590:
				leal	-284(%ebp), %eax
				leal	.LC4@GOTOFF(%ebx), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-796(%ebp), %eax
				leal	-284(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.LBE590:
				leal	-284(%ebp), %eax
				leal	-796(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.L950:
				pushl	$0
				pushl	$1
				pushl	$5
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-540(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				pushl	-868(%ebp)
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-284(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				call	_signal_event@PLT
				addl	$528, %esp
		.L946:
				movl	-848(%ebp), %eax
				subl	$4, %eax
				movl	%eax, -852(%ebp)
		.L951:
				movl	-852(%ebp), %eax
				cmpl	-844(%ebp), %eax
				je	.L970
				addl	$4, -852(%ebp)
		.L954:
				nop
		.L953:
		.LBE584:
 1128        INTEGER(I) = INTEGER(INTEGER(I)+8) %WHILE INTEGER(I) >= DLIM
				movl	-852(%ebp), %eax
				movl	%eax, -812(%ebp)
		.LBB591:
		.LBB592:
				movl	-812(%ebp), %eax
		.LBE592:
		.LBE591:
				movl	(%eax), %eax
				movl	-864(%ebp), %ebx
				movl	1204(%ebx), %edx
				cmpl	%eax, %edx
				jg	.L971
				movl	-852(%ebp), %eax
				movl	%eax, -800(%ebp)
		.LBB593:
		.LBB594:
				movl	-800(%ebp), %eax
		.LBE594:
		.LBE593:
				movl	(%eax), %eax
				addl	$8, %eax
				movl	%eax, -804(%ebp)
		.LBB595:
		.LBB596:
				movl	-804(%ebp), %edx
		.LBE596:
		.LBE595:
				movl	-852(%ebp), %eax
				movl	%eax, -808(%ebp)
		.LBB597:
		.LBB598:
				movl	-808(%ebp), %eax
		.LBE598:
		.LBE597:
				movl	(%edx), %edx
				movl	%edx, (%eax)
				jmp	.L954
		.L971:
				nop
		.L957:
 1129     %REPEAT
				jmp	.L951
		.L970:
 1130 %END
				nop
				movl	-28(%ebp), %eax
				xorl	%gs:20, %eax
				je	.L962
				call	__stack_chk_fail_local
		.L962:
				leal	-12(%ebp), %esp
				popl	%ebx
				popl	%esi
				popl	%edi
				popl	%ebp
				ret
		.LFE195:
		DEFINE.6120:
		.LFB196:
 1131
 1132 %ROUTINE DEFINE(%INTEGER DISP,VAL)
				pushl	%ebp
				movl	%esp, %ebp
				subl	$20, %esp
				call	__x86.get_pc_thunk.ax
				addl	$_GLOBAL_OFFSET_TABLE_, %eax
				movl	%ecx, %eax
				movl	%ecx, -20(%ebp)
		.L973:
 1133 {%SHORTROUTINE}
 1134     %WHILE IDENTS # DLIM %CYCLE
				movl	(%eax), %ecx
				movl	1204(%eax), %edx
				cmpl	%edx, %ecx
				je	.L985
				nop
		.L975:
 1135        %IF DISP # 0 %THEN INTEGER(IDENTS+4) = VAL %C
				cmpl	$0, 8(%ebp)
				je	.L986
				movl	(%eax), %edx
				addl	$4, %edx
				movl	%edx, -12(%ebp)
		.LBB599:
		.LBB600:
				movl	-12(%ebp), %edx
		.LBE600:
		.LBE599:
				movl	12(%ebp), %ecx
				movl	%ecx, (%edx)
				jmp	.L979
		.L986:
				nop
		.L977:
				movl	(%eax), %edx
				addl	$2, %edx
				movl	%edx, -8(%ebp)
		.LBB601:
		.LBB602:
				movl	-8(%ebp), %edx
		.LBE602:
		.LBE601:
				movl	12(%ebp), %ecx
				movb	%cl, (%edx)
		.L979:
 1136        %ELSE BYTEINTEGER(IDENTS+2) = VAL
 1137        IDENTS = BYTEINTEGER(IDENTS+12)&(\3)+IDENTS+16
				movl	(%eax), %edx
				addl	$12, %edx
				movl	%edx, -4(%ebp)
		.LBB603:
		.LBB604:
				movl	-4(%ebp), %edx
		.LBE604:
		.LBE603:
				movzbl	(%edx), %edx
				movzbl	%dl, %edx
				movl	%edx, %ecx
				andl	$-4, %ecx
				movl	(%eax), %edx
				addl	%ecx, %edx
				addl	$16, %edx
				movl	%edx, (%eax)
 1138     %REPEAT
				jmp	.L973
		.L985:
 1139 %END
				nop
				leave
				ret
		.LFE196:
		DEFINE.6740:
		.LFB198:
 1140
 1141
 1142 %END;
				cmpl	$0, -23368(%ebp)
				js	.L485
				cmpl	$127, -23368(%ebp)
				jle	.L486
		.L485:
				movl	_imp_current_line@GOT(%ebx), %eax
				movl	(%eax), %eax
				testl	%eax, %eax
				je	.L487
				movl	_imp_current_line@GOT(%ebx), %eax
				movl	(%eax), %eax
				movl	%eax, -23456(%ebp)
				jmp	.L488
		.L487:
				movl	$1142, -23456(%ebp)
		.L488:
				movl	_imp_current_file@GOT(%ebx), %eax
				movl	(%eax), %eax
				testl	%eax, %eax
				je	.L489
				movl	_imp_current_file@GOT(%ebx), %eax
				movl	(%eax), %edx
				leal	-20328(%ebp), %eax
				subl	$8, %esp
				pushl	%edx
				pushl	%eax
				call	_imp_c2istr@PLT
				addl	$12, %esp
				jmp	.L490
		.L489:
		.LBB511:
				leal	-19048(%ebp), %eax
				leal	.LC4@GOTOFF(%ebx), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-21096(%ebp), %eax
				leal	-19048(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.LBE511:
				leal	-20328(%ebp), %eax
				leal	-21096(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.L490:
				pushl	-23364(%ebp)
				pushl	-23360(%ebp)
				pushl	-23368(%ebp)
				leal	.LC34@GOTOFF(%ebx), %eax
				pushl	%eax
				pushl	-23368(%ebp)
				pushl	$3
				pushl	$6
				pushl	-23456(%ebp)
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-20328(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				call	_signal_eventf@PLT
				addl	$288, %esp
		.L486:
				movl	-23368(%ebp), %eax
				movl	A.6128@GOTOFF(%ebx,%eax,4), %eax
				jmp	.L491
		.L492:
				movl	_imp_current_line@GOT(%ebx), %eax
				movl	(%eax), %eax
				testl	%eax, %eax
				je	.L493
				movl	_imp_current_line@GOT(%ebx), %eax
				movl	(%eax), %eax
				movl	%eax, -23456(%ebp)
				jmp	.L494
		.L493:
				movl	$1142, -23456(%ebp)
		.L494:
				movl	_imp_current_file@GOT(%ebx), %eax
				movl	(%eax), %eax
				testl	%eax, %eax
				je	.L495
				movl	_imp_current_file@GOT(%ebx), %eax
				movl	(%eax), %edx
				leal	-20072(%ebp), %eax
				subl	$8, %esp
				pushl	%edx
				pushl	%eax
				call	_imp_c2istr@PLT
				addl	$12, %esp
				jmp	.L496
		.L495:
		.LBB512:
				leal	-19048(%ebp), %eax
				leal	.LC4@GOTOFF(%ebx), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-20840(%ebp), %eax
				leal	-19048(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.LBE512:
				leal	-20072(%ebp), %eax
				leal	-20840(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.L496:
				pushl	-23364(%ebp)
				pushl	-23360(%ebp)
				pushl	-23368(%ebp)
				leal	.LC35@GOTOFF(%ebx), %eax
				pushl	%eax
				pushl	-23368(%ebp)
				pushl	$2
				pushl	$8
				pushl	-23456(%ebp)
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-20072(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				call	_signal_eventf@PLT
				addl	$288, %esp
		.L497:
				cmpl	$0, -23344(%ebp)
				js	.L498
				cmpl	$4, -23344(%ebp)
				jle	.L499
		.L498:
				movl	_imp_current_line@GOT(%ebx), %eax
				movl	(%eax), %eax
				testl	%eax, %eax
				je	.L500
				movl	_imp_current_line@GOT(%ebx), %eax
				movl	(%eax), %eax
				movl	%eax, -23456(%ebp)
				jmp	.L501
		.L500:
				movl	$1142, -23456(%ebp)
		.L501:
				movl	_imp_current_file@GOT(%ebx), %eax
				movl	(%eax), %eax
				testl	%eax, %eax
				je	.L502
				movl	_imp_current_file@GOT(%ebx), %eax
				movl	(%eax), %edx
				leal	-19816(%ebp), %eax
				subl	$8, %esp
				pushl	%edx
				pushl	%eax
				call	_imp_c2istr@PLT
				addl	$12, %esp
				jmp	.L503
		.L502:
		.LBB513:
				leal	-19048(%ebp), %eax
				leal	.LC4@GOTOFF(%ebx), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-20584(%ebp), %eax
				leal	-19048(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.LBE513:
				leal	-19816(%ebp), %eax
				leal	-20584(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.L503:
				pushl	-23336(%ebp)
				pushl	-23340(%ebp)
				pushl	-23344(%ebp)
				leal	.LC36@GOTOFF(%ebx), %eax
				pushl	%eax
				pushl	-23344(%ebp)
				pushl	$3
				pushl	$6
				pushl	-23456(%ebp)
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-19816(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				call	_signal_eventf@PLT
				addl	$288, %esp
		.L499:
				movl	-23344(%ebp), %eax
				movl	X.6253@GOTOFF(%ebx,%eax,4), %eax
				jmp	.L491
		.L10:
				movl	-28(%ebp), %eax
				xorl	%gs:20, %eax
				je	.L505
				call	__stack_chk_fail_local
		.L505:
				leal	-12(%ebp), %esp
				popl	%ebx
				popl	%esi
				popl	%edi
				popl	%ebp
				ret
		.LFE189:
		WRITE.6476:
		.LFB192:
?RA1 unused
?AS1 unused
 1143      ;  !CHECKINNER
 1143
 1144 %EXTERNALROUTINE CHECK(%STRING(63) PARAM)
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%edi
				pushl	%esi
				pushl	%ebx
				subl	$2652, %esp
				call	__x86.get_pc_thunk.bx
				addl	$_GLOBAL_OFFSET_TABLE_, %ebx
				movl	%gs:20, %eax
				movl	%eax, -28(%ebp)
				xorl	%eax, %eax
				leal	8(%ebp), %eax
				movl	%eax, -2644(%ebp)
		.LBB605:
		.LBB606:
 1145 %RECORDFORMAT FINF(%INTEGER CONAD,FILESIZE, %BYTEINTEGER RUP, %C
 1146               EEP,MODE,CONS,ARCH, %STRING(6) TRAN, %C
 1147               %SHORTINTEGER FILETYPE,NUMIPERMS, %C
 1148               %INTEGER DATASTART,DATAEND, PLISTPTR)
 1149 {%EXTERNAL}%ROUTINE{SPEC} DEFINE(%STRING(63) S)
				pushl	%ebp
				movl	%esp, %ebp
				subl	$4, %esp
				call	__x86.get_pc_thunk.ax
				addl	$_GLOBAL_OFFSET_TABLE_, %eax
				movl	%ecx, -4(%ebp)
 1150 %end
				nop
				leave
				ret
		.LFE198:
				.section	.rodata
				.align 32
		.LC27:
				.byte	1
				.string	"/"
				.zero	253
				.align 32
		.LC28:
				.byte	1
				.string	","
				.zero	253
				.align 32
		.LC29:
				.byte	5
				.string	"ST19,"
				.zero	249
				.align 32
		.LC30:
				.byte	3
				.string	" OK"
				.zero	251
				.globl	CHECK
		CHECK:
		.LFB197:
?S unused
 1151 {%SYSTEM}%ROUTINE{SPEC} CONNECT(%STRING(15) S, %INTEGER A,M,P, %C
				pushl	%ebp
				movl	%esp, %ebp
				subl	$4, %esp
				call	__x86.get_pc_thunk.ax
				addl	$_GLOBAL_OFFSET_TABLE_, %eax
				movl	%ecx, -4(%ebp)
 1152                            %RECORD(FINF)%NAME R, %INTEGERNAME F)
 1153 %end
				nop
				leave
				ret
		.LFE199:
				.section	.rodata
				.align 32
		.LC31:
				.byte	5
				.string	"error"
				.zero	249
		SSFMESSAGE.6751:
		.LFB200:
?F unused
?R unused
?P unused
?M unused
?A unused
?S unused
 1154 {%EXTERNAL}%STRING(255)%FN{SPEC} SSFMESSAGE
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%edi
				pushl	%esi
				pushl	%ebx
				subl	$300, %esp
				call	__x86.get_pc_thunk.dx
				addl	$_GLOBAL_OFFSET_TABLE_, %edx
				movl	8(%ebp), %eax
				movl	%eax, -300(%ebp)
				movl	%ecx, -304(%ebp)
				movl	%gs:20, %eax
				movl	%eax, -28(%ebp)
				xorl	%eax, %eax
		.LBB632:
 1155 %result="error"  ;! I thought I had added this one to the perms..?
				leal	-284(%ebp), %eax
				leal	.LC31@GOTOFF(%edx), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-284(%ebp), %edx
		.LBE632:
				movl	-300(%ebp), %eax
				movl	%edx, %ebx
				movl	$256, %edx
				movl	(%ebx), %ecx
				movl	%ecx, (%eax)
				movl	-4(%ebx,%edx), %ecx
				movl	%ecx, -4(%eax,%edx)
				leal	4(%eax), %edi
				andl	$-4, %edi
				subl	%edi, %eax
				subl	%eax, %ebx
				addl	%eax, %edx
				andl	$-4, %edx
				movl	%edx, %eax
				shrl	$2, %eax
				movl	%ebx, %esi
				movl	%eax, %ecx
				rep movsl
 1156 %end
				movl	-300(%ebp), %eax
				movl	-28(%ebp), %esi
				xorl	%gs:20, %esi
				je	.L1026
				call	__stack_chk_fail_local
		.L1026:
				addl	$300, %esp
				popl	%ebx
				popl	%esi
				popl	%edi
				popl	%ebp
				ret	$4
		.LFE200:
				.globl	main
		main:
		.LFB201:
 1157
 1158 %RECORD(FINF) R
 1159 %INTEGER I,J,FLAG
 1160 %STRING(63) OPTIONS,OUT
 1161     OUT = "" %UNLESS PARAM -> PARAM.("/").OUT
				leal	-316(%ebp), %eax
				leal	.LC27@GOTOFF(%ebx), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-2108(%ebp), %eax
				leal	-316(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.LBE606:
				leal	-316(%ebp), %eax
				leal	-2108(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-316(%ebp), %eax
				movl	%eax, -2652(%ebp)
		.LBE605:
		.LBB607:
				leal	-316(%ebp), %eax
				leal	8(%ebp), %esi
				movl	$64, %edx
				movl	%eax, %edi
				movl	%edx, %ecx
				rep movsl
				leal	-316(%ebp), %edi
				movl	%edi, -2656(%ebp)
		.LBE607:
				subl	$8, %esp
				leal	-2364(%ebp), %eax
				pushl	%eax
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edx
				movl	-2652(%ebp), %esi
				movl	$64, %eax
				movl	%edx, %edi
				movl	%eax, %ecx
				rep movsl
				leal	8(%ebp), %eax
				pushl	%eax
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edx
				movl	-2656(%ebp), %esi
				movl	$64, %eax
				movl	%edx, %edi
				movl	%eax, %ecx
				rep movsl
				call	_imp_resolve@PLT
				addl	$528, %esp
				testl	%eax, %eax
				jne	.L1014
		.LBB608:
		.LBB609:
				movb	$0, -316(%ebp)
				movl	$0, -315(%ebp)
				leal	-311(%ebp), %edx
				movl	$0, %eax
				movb	%al, (%edx)
				addl	$1, %edx
				movw	%ax, (%edx)
				addl	$2, %edx
				movl	$62, %ecx
				movl	%edx, %edi
				rep stosl
				leal	-1852(%ebp), %eax
				leal	-316(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.LBE609:
				leal	-316(%ebp), %eax
				leal	-1852(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-316(%ebp), %eax
		.LBE608:
				subl	$4, %esp
				pushl	$63
				pushl	%eax
				leal	-2364(%ebp), %eax
				pushl	%eax
				call	_imp_strncpy@PLT
				addl	$16, %esp
				jmp	.L991
		.L1014:
				nop
		.L991:
		.LBB610:
		.LBB611:
 1162     OPTIONS = "" %UNLESS PARAM -> PARAM.(",").OPTIONS
				leal	-316(%ebp), %eax
				leal	.LC28@GOTOFF(%ebx), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-1596(%ebp), %eax
				leal	-316(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.LBE611:
				leal	-316(%ebp), %eax
				leal	-1596(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-316(%ebp), %eax
				movl	%eax, -2652(%ebp)
		.LBE610:
		.LBB612:
				leal	-316(%ebp), %eax
				leal	8(%ebp), %esi
				movl	$64, %edx
				movl	%eax, %edi
				movl	%edx, %ecx
				rep movsl
				leal	-316(%ebp), %edi
				movl	%edi, -2656(%ebp)
		.LBE612:
				subl	$8, %esp
				leal	-2620(%ebp), %eax
				pushl	%eax
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edx
				movl	-2652(%ebp), %esi
				movl	$64, %eax
				movl	%edx, %edi
				movl	%eax, %ecx
				rep movsl
				leal	8(%ebp), %eax
				pushl	%eax
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edx
				movl	-2656(%ebp), %esi
				movl	$64, %eax
				movl	%edx, %edi
				movl	%eax, %ecx
				rep movsl
				call	_imp_resolve@PLT
				addl	$528, %esp
				testl	%eax, %eax
				jne	.L1015
		.LBB613:
		.LBB614:
				movb	$0, -316(%ebp)
				movl	$0, -315(%ebp)
				leal	-311(%ebp), %edx
				movl	$0, %eax
				movb	%al, (%edx)
				addl	$1, %edx
				movw	%ax, (%edx)
				addl	$2, %edx
				movl	$62, %ecx
				movl	%edx, %edi
				rep stosl
				leal	-1340(%ebp), %eax
				leal	-316(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.LBE614:
				leal	-316(%ebp), %eax
				leal	-1340(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-316(%ebp), %eax
		.LBE613:
				subl	$4, %esp
				pushl	$63
				pushl	%eax
				leal	-2620(%ebp), %eax
				pushl	%eax
				call	_imp_strncpy@PLT
				addl	$16, %esp
				jmp	.L993
		.L1015:
				nop
		.L993:
		.LBB615:
 1163     CONNECT(PARAM,0,0,0,R,FLAG)
				leal	-316(%ebp), %eax
				leal	8(%ebp), %esi
				movl	$64, %edx
				movl	%eax, %edi
				movl	%edx, %ecx
				rep movsl
				leal	-316(%ebp), %ecx
		.LBE615:
				subl	$12, %esp
				leal	-2644(%ebp), %eax
				movl	%eax, -2652(%ebp)
				leal	-2648(%ebp), %eax
				pushl	%eax
				leal	-316(%ebp), %eax
				pushl	%eax
				pushl	$0
				pushl	$0
				pushl	$0
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edx
				movl	%ecx, %esi
				movl	$64, %eax
				movl	%edx, %edi
				movl	%eax, %ecx
				rep movsl
				movl	-2652(%ebp), %ecx
				call	CONNECT.6748
				addl	$288, %esp
 1164     PRINTSTRING(SSFMESSAGE) %AND %RETURN %IF FLAG # 0
				movl	-2648(%ebp), %eax
				testl	%eax, %eax
				je	.L1016
		.LBB616:
				leal	-572(%ebp), %edx
				subl	$12, %esp
				leal	-2644(%ebp), %eax
				pushl	%edx
				movl	%eax, %ecx
				call	SSFMESSAGE.6751
				addl	$12, %esp
				leal	-572(%ebp), %edx
				leal	-828(%ebp), %eax
				movl	%edx, %esi
				movl	$64, %edx
				movl	%eax, %edi
				movl	%edx, %ecx
				rep movsl
		.LBE616:
		.LBB617:
		.LBB618:
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-828(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				call	_imp_printstring@PLT
				addl	$256, %esp
		.LBE618:
		.LBE617:
				jmp	.L989
		.L1016:
				nop
		.L995:
		.LBB619:
 1165     %IF OUT # "" %START
				movb	$0, -572(%ebp)
				movl	$0, -571(%ebp)
				leal	-567(%ebp), %edx
				movl	$0, %eax
				movb	%al, (%edx)
				addl	$1, %edx
				movw	%ax, (%edx)
				addl	$2, %edx
				movl	$62, %ecx
				movl	%edx, %edi
				rep stosl
				leal	-572(%ebp), %eax
		.LBE619:
				subl	$8, %esp
				pushl	%eax
				leal	-2364(%ebp), %eax
				pushl	%eax
				call	_imp_strcmp@PLT
				addl	$16, %esp
				testl	%eax, %eax
				je	.L1017
		.LBB620:
		.LBB621:
		.LBB622:
				nop
		.L998:
 1166        DEFINE("ST19,".OUT)
				leal	-572(%ebp), %eax
				leal	.LC29@GOTOFF(%ebx), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-572(%ebp), %edx
		.LBE622:
				leal	-572(%ebp), %eax
				subl	$4, %esp
				leal	-2364(%ebp), %ecx
				pushl	%ecx
				pushl	%edx
				pushl	%eax
				call	_imp_join@PLT
				addl	$12, %esp
				leal	-572(%ebp), %edx
		.LBE621:
				leal	-572(%ebp), %eax
				movl	%edx, %esi
				movl	$64, %edx
				movl	%eax, %edi
				movl	%edx, %ecx
				rep movsl
				leal	-572(%ebp), %eax
		.LBE620:
				leal	-2644(%ebp), %esi
				movl	%esi, -2652(%ebp)
				subl	$256, %esp
				movl	%esp, %edx
				movl	%eax, %esi
				movl	$64, %eax
				movl	%edx, %edi
				movl	%eax, %ecx
				rep movsl
				movl	-2652(%ebp), %ecx
				call	DEFINE.6740
				addl	$256, %esp
 1167        SELECT OUTPUT(19)
				subl	$12, %esp
				pushl	$19
				call	_imp_SELECTOUTPUT
				addl	$16, %esp
				jmp	.L998
		.L1017:
 1168     %FINISH
 1169     I = 0
				movl	$0, -2640(%ebp)
		.L999:
				leal	-2620(%ebp), %eax
				movl	%eax, -2632(%ebp)
		.LBB623:
		.LBB624:
				movl	-2632(%ebp), %eax
		.LBE624:
		.LBE623:
 1170     %WHILE I < LENGTH(OPTIONS) %CYCLE
				movzbl	(%eax), %eax
				movzbl	%al, %eax
				cmpl	%eax, -2640(%ebp)
				jge	.L1018
				nop
		.L1002:
 1171        I = I+1;  J = CHARNO(OPTIONS,I)
				addl	$1, -2640(%ebp)
				leal	-2620(%ebp), %eax
				movl	%eax, -2628(%ebp)
				movl	-2640(%ebp), %eax
				movl	%eax, -2624(%ebp)
		.LBB625:
		.LBB626:
				movl	-2628(%ebp), %edx
				movl	-2624(%ebp), %eax
				addl	%edx, %eax
		.LBE626:
		.LBE625:
				movzbl	(%eax), %eax
				movzbl	%al, %eax
				movl	%eax, -2636(%ebp)
 1172        FLAG = FLAG!8 %IF J = 'D'
				cmpl	$68, -2636(%ebp)
				jne	.L1019
				movl	-2648(%ebp), %eax
				orl	$8, %eax
				movl	%eax, -2648(%ebp)
				jmp	.L1005
		.L1019:
				nop
		.L1005:
 1173        FLAG = FLAG!4 %IF J = 'S'
				cmpl	$83, -2636(%ebp)
				jne	.L1020
				movl	-2648(%ebp), %eax
				orl	$4, %eax
				movl	%eax, -2648(%ebp)
				jmp	.L999
		.L1020:
				nop
		.L1007:
 1174     %REPEAT
				jmp	.L999
		.L1018:
 1175     CHECKINNER(R_CONAD+R_DATASTART,R_DATAEND-R_DATASTART,FLAG)
				movl	-36(%ebp), %edx
				movl	-40(%ebp), %eax
				movl	%edx, %ecx
				subl	%eax, %ecx
				movl	-316(%ebp), %edx
				movl	-40(%ebp), %eax
				addl	%eax, %edx
				subl	$4, %esp
				leal	-2648(%ebp), %eax
				pushl	%eax
				pushl	%ecx
				pushl	%edx
				call	CHECKINNER
				addl	$16, %esp
 1176    PRINT STRING(" OK") %AND NEWLINE %IF FLAG >= 0
				movl	-2648(%ebp), %eax
				testl	%eax, %eax
				js	.L1021
		.LBB627:
				leal	-572(%ebp), %eax
				leal	.LC30@GOTOFF(%ebx), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-1084(%ebp), %eax
				leal	-572(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
				leal	-572(%ebp), %eax
				leal	-1084(%ebp), %edx
				movl	$64, %ecx
				movl	%eax, %edi
				movl	%edx, %esi
				rep movsl
		.LBE627:
		.LBB628:
		.LBB629:
				subl	$256, %esp
				movl	%esp, %eax
				movl	%eax, %edi
				leal	-572(%ebp), %eax
				movl	$64, %edx
				movl	%eax, %esi
				movl	%edx, %ecx
				rep movsl
				call	_imp_printstring@PLT
				addl	$256, %esp
		.LBE629:
		.LBE628:
		.LBB630:
		.LBB631:
				call	_imp_newline@PLT
		.LBE631:
		.LBE630:
				nop
		.L1009:
				nop
		.L989:
				movl	-28(%ebp), %eax
				xorl	%gs:20, %eax
				je	.L1011
				call	__stack_chk_fail_local
		.L1011:
				leal	-12(%ebp), %esp
				popl	%ebx
				popl	%esi
				popl	%edi
				popl	%ebp
				ret
		.LFE197:
		CONNECT.6748:
		.LFB199:
 1177 %END;  !CHECK
				jmp	.L1009
		.L1021:
 1178
 1179 %begin
				leal	4(%esp), %ecx
				andl	$-16, %esp
				pushl	-4(%ecx)
				pushl	%ebp
				movl	%esp, %ebp
				pushl	%ebx
				pushl	%ecx
				subl	$16, %esp
				call	__x86.get_pc_thunk.bx
				addl	$_GLOBAL_OFFSET_TABLE_, %ebx
				movl	%ecx, %eax
				subl	$8, %esp
				pushl	4(%eax)
				pushl	(%eax)
				call	_imp_initialise@PLT
				addl	$16, %esp
				movl	$0, -12(%ebp)
		.LBB633:
		.LBB634:
				subl	$12, %esp
				pushl	-12(%ebp)
				call	exit@PLT
		.LBE634:
		.LBE633:
		.LFE201:
				.data
				.align 32
		PARTYPE.6096:
				.long	0
				.long	105
				.long	16777321
				.long	33554537
				.long	50331753
				.long	67108969
				.long	83886185
				.long	41
				.long	16777257
				.long	137
				.long	136
				.long	248
				.long	33554473
				.long	117440553
				.long	16777352
				.long	33554568
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	0
				.long	-50331543
				.long	-33553928
				.long	0
				.long	-16777111
				.align 32
		GRAM.6106:
				.align 32
		PERM.6108:
				.byte	65
				.byte	68
				.byte	68
				.byte	82
				.byte	58
				.byte	11
				.byte	98
				.byte	65
				.byte	82
				.byte	67
				.byte	67
				.byte	79
				.byte	83
				.byte	58
				.byte	7
				.byte	34
				.byte	65
				.byte	82
				.byte	67
				.byte	83
				.byte	73
				.byte	78
				.byte	58
				.byte	7
				.byte	34
				.byte	65
				.byte	82
				.byte	82
				.byte	65
				.byte	89
				.byte	58
				.byte	-4
				.byte	-8
				.byte	65
				.byte	82
				.byte	67
				.byte	84
				.byte	65
				.byte	78
				.byte	58
				.byte	13
				.byte	34
				.byte	66
				.byte	89
				.byte	84
				.byte	69
				.byte	73
				.byte	78
				.byte	84
				.byte	69
				.byte	71
				.byte	69
				.byte	82
				.byte	58
				.byte	1
				.byte	74
				.byte	67
				.byte	72
				.byte	65
				.byte	82
				.byte	78
				.byte	79
				.byte	58
				.byte	14
				.byte	74
				.byte	67
				.byte	76
				.byte	79
				.byte	83
				.byte	69
				.byte	83
				.byte	84
				.byte	82
				.byte	69
				.byte	65
				.byte	77
				.byte	58
				.byte	1
				.byte	6
				.byte	67
				.byte	79
				.byte	83
				.byte	58
				.byte	7
				.byte	34
				.byte	69
				.byte	88
				.byte	80
				.byte	58
				.byte	7
				.byte	34
				.byte	70
				.byte	82
				.byte	65
				.byte	67
				.byte	80
				.byte	84
				.byte	58
				.byte	7
				.byte	34
				.byte	70
				.byte	82
				.byte	79
				.byte	77
				.byte	83
				.byte	84
				.byte	82
				.byte	73
				.byte	78
				.byte	71
				.byte	58
				.byte	15
				.byte	-126
				.byte	73
				.byte	77
				.byte	79
				.byte	68
				.byte	58
				.byte	1
				.byte	98
				.byte	73
				.byte	78
				.byte	84
				.byte	58
				.byte	7
				.byte	98
				.byte	73
				.byte	78
				.byte	84
				.byte	80
				.byte	84
				.byte	58
				.byte	7
				.byte	98
				.byte	73
				.byte	78
				.byte	84
				.byte	69
				.byte	71
				.byte	69
				.byte	82
				.byte	58
				.byte	1
				.byte	106
				.byte	76
				.byte	69
				.byte	78
				.byte	71
				.byte	84
				.byte	72
				.byte	58
				.byte	10
				.byte	74
				.byte	76
				.byte	79
				.byte	71
				.byte	58
				.byte	7
				.byte	34
				.byte	76
				.byte	79
				.byte	78
				.byte	71
				.byte	82
				.byte	69
				.byte	65
				.byte	76
				.byte	58
				.byte	1
				.byte	26
				.byte	77
				.byte	79
				.byte	68
				.byte	58
				.byte	7
				.byte	34
				.byte	78
				.byte	69
				.byte	87
				.byte	76
				.byte	73
				.byte	78
				.byte	69
				.byte	58
				.byte	0
				.byte	6
				.byte	78
				.byte	69
				.byte	87
				.byte	76
				.byte	73
				.byte	78
				.byte	69
				.byte	83
				.byte	58
				.byte	1
				.byte	6
				.byte	78
				.byte	69
				.byte	87
				.byte	80
				.byte	65
				.byte	71
				.byte	69
				.byte	58
				.byte	0
				.byte	6
				.byte	78
				.byte	69
				.byte	88
				.byte	84
				.byte	73
				.byte	84
				.byte	69
				.byte	77
				.byte	58
				.byte	0
				.byte	-126
				.byte	78
				.byte	69
				.byte	88
				.byte	84
				.byte	67
				.byte	72
				.byte	58
				.byte	0
				.byte	98
				.byte	78
				.byte	69
				.byte	88
				.byte	84
				.byte	83
				.byte	89
				.byte	77
				.byte	66
				.byte	79
				.byte	76
				.byte	58
				.byte	0
				.byte	98
				.byte	78
				.byte	76
				.byte	58
				.byte	0
				.byte	98
				.byte	80
				.byte	73
				.byte	58
				.byte	0
				.byte	34
				.byte	80
				.byte	82
				.byte	73
				.byte	78
				.byte	84
				.byte	58
				.byte	12
				.byte	6
				.byte	80
				.byte	82
				.byte	73
				.byte	78
				.byte	84
				.byte	67
				.byte	72
				.byte	58
				.byte	1
				.byte	6
				.byte	80
				.byte	82
				.byte	73
				.byte	78
				.byte	84
				.byte	70
				.byte	76
				.byte	58
				.byte	8
				.byte	6
				.byte	80
				.byte	82
				.byte	73
				.byte	78
				.byte	84
				.byte	83
				.byte	84
				.byte	82
				.byte	73
				.byte	78
				.byte	71
				.byte	58
				.byte	9
				.byte	6
				.byte	80
				.byte	82
				.byte	73
				.byte	78
				.byte	84
				.byte	83
				.byte	89
				.byte	77
				.byte	66
				.byte	79
				.byte	76
				.byte	58
				.byte	1
				.byte	6
				.byte	82
				.byte	65
				.byte	68
				.byte	73
				.byte	85
				.byte	83
				.byte	58
				.byte	13
				.byte	34
				.byte	82
				.byte	69
				.byte	65
				.byte	68
				.byte	58
				.byte	11
				.byte	6
				.byte	82
				.byte	69
				.byte	65
				.byte	68
				.byte	67
				.byte	72
				.byte	58
				.byte	11
				.byte	6
				.byte	82
				.byte	69
				.byte	65
				.byte	68
				.byte	73
				.byte	84
				.byte	69
				.byte	77
				.byte	58
				.byte	10
				.byte	6
				.byte	82
				.byte	69
				.byte	65
				.byte	68
				.byte	83
				.byte	84
				.byte	82
				.byte	73
				.byte	78
				.byte	71
				.byte	58
				.byte	10
				.byte	6
				.byte	82
				.byte	69
				.byte	65
				.byte	68
				.byte	83
				.byte	89
				.byte	77
				.byte	66
				.byte	79
				.byte	76
				.byte	58
				.byte	11
				.byte	6
				.byte	82
				.byte	69
				.byte	65
				.byte	76
				.byte	58
				.byte	1
				.byte	26
				.byte	82
				.byte	69
				.byte	67
				.byte	79
				.byte	82
				.byte	68
				.byte	58
				.byte	1
				.byte	10
				.byte	83
				.byte	69
				.byte	76
				.byte	69
				.byte	67
				.byte	84
				.byte	73
				.byte	78
				.byte	80
				.byte	85
				.byte	84
				.byte	58
				.byte	1
				.byte	6
				.byte	83
				.byte	69
				.byte	76
				.byte	69
				.byte	67
				.byte	84
				.byte	79
				.byte	85
				.byte	84
				.byte	80
				.byte	85
				.byte	84
				.byte	58
				.byte	1
				.byte	6
				.byte	83
				.byte	69
				.byte	84
				.byte	77
				.byte	65
				.byte	82
				.byte	71
				.byte	73
				.byte	78
				.byte	83
				.byte	58
				.byte	3
				.byte	6
				.byte	83
				.byte	72
				.byte	79
				.byte	82
				.byte	84
				.byte	73
				.byte	78
				.byte	84
				.byte	69
				.byte	71
				.byte	69
				.byte	82
				.byte	58
				.byte	1
				.byte	90
				.byte	83
				.byte	73
				.byte	78
				.byte	58
				.byte	7
				.byte	34
				.byte	83
				.byte	75
				.byte	73
				.byte	80
				.byte	83
				.byte	89
				.byte	77
				.byte	66
				.byte	79
				.byte	76
				.byte	58
				.byte	0
				.byte	6
				.byte	83
				.byte	80
				.byte	65
				.byte	67
				.byte	69
				.byte	58
				.byte	0
				.byte	6
				.byte	83
				.byte	80
				.byte	65
				.byte	67
				.byte	69
				.byte	83
				.byte	58
				.byte	1
				.byte	6
				.byte	83
				.byte	81
				.byte	82
				.byte	84
				.byte	58
				.byte	7
				.byte	34
				.byte	83
				.byte	84
				.byte	82
				.byte	73
				.byte	78
				.byte	71
				.byte	58
				.byte	1
				.byte	-118
				.byte	84
				.byte	65
				.byte	78
				.byte	58
				.byte	7
				.byte	34
				.byte	84
				.byte	79
				.byte	83
				.byte	84
				.byte	82
				.byte	73
				.byte	78
				.byte	71
				.byte	58
				.byte	1
				.byte	-126
				.byte	87
				.byte	82
				.byte	73
				.byte	84
				.byte	69
				.byte	58
				.byte	2
				.byte	6
				.comm	STATS.6024,4,4
				.align 4
		LOOKS.6029:
				.long	1
				.align 4
		TIMES.6030:
				.long	1
				.align 4
		ATOMS.6025:
				.long	-54
				.comm	NUMBERS.6027,4,4
				.align 4
		IDENTIFIERS.6026:
				.long	-54
				.comm	LOOPS.6028,4,4
				.section	.data.rel.local,"aw",@progbits
				.align 32
		A.6128:
				.long	.L126
				.long	.L39
				.long	.L211
				.long	.L212
				.long	.L366
				.long	.L367
				.long	.L40
				.long	.L364
				.long	.L365
				.long	.L41
				.long	.L45
				.long	.L46
				.long	.L47
				.long	.L42
				.long	.L386
				.long	.L48
				.long	.L435
				.long	.L411
				.long	.L49
				.long	.L50
				.long	.L51
				.long	.L52
				.long	.L164
				.long	.L53
				.long	.L492
				.long	.L43
				.long	.L451
				.long	.L54
				.long	.L492
				.long	.L169
				.long	.L170
				.long	.L171
				.long	.L172
				.long	.L173
				.long	.L174
				.long	.L175
				.long	.L168
				.long	.L55
				.long	.L165
				.long	.L176
				.long	.L177
				.long	.L178
				.long	.L166
				.long	.L56
				.long	.L57
				.long	.L58
				.long	.L492
				.long	.L59
				.long	.L60
				.long	.L492
				.long	.L61
				.long	.L452
				.long	.L448
				.long	.L442
				.long	.L441
				.long	.L443
				.long	.L444
				.long	.L62
				.long	.L453
				.long	.L459
				.long	.L356
				.long	.L492
				.long	.L492
				.long	.L430
				.long	.L37
				.long	.L63
				.long	.L95
				.long	.L97
				.long	.L99
				.long	.L150
				.long	.L167
				.long	.L415
				.long	.L273
				.long	.L357
				.long	.L158
				.long	.L181
				.long	.L184
				.long	.L210
				.long	.L182
				.long	.L257
				.long	.L269
				.long	.L219
				.long	.L234
				.long	.L238
				.long	.L239
				.long	.L240
				.long	.L241
				.long	.L492
				.long	.L262
				.long	.L276
				.long	.L303
				.long	.L304
				.long	.L308
				.long	.L309
				.long	.L313
				.long	.L314
				.long	.L315
				.long	.L318
				.long	.L321
				.long	.L325
				.long	.L348
				.long	.L353
				.long	.L360
				.long	.L377
				.long	.L368
				.long	.L370
				.long	.L383
				.long	.L389
				.long	.L402
				.long	.L75
				.long	.L76
				.long	.L77
				.long	.L418
				.long	.L78
				.long	.L79
				.long	.L80
				.long	.L81
				.long	.L82
				.long	.L83
				.long	.L84
				.long	.L85
				.long	.L86
				.long	.L87
				.long	.L88
				.long	.L89
				.long	.L90
				.long	.L91
				.long	.L492
				.align 4
		X.6253:
				.long	.L371
				.long	.L372
				.long	.L374
				.long	.L375
				.long	.L376
				.align 32
		S.6494:
				.long	.L696
				.long	.L696
				.long	.L696
				.long	.L696
				.long	.L696
				.long	.L696
				.long	.L696
				.long	.L696
				.long	.L696
				.long	.L696
				.long	.L696
				.long	.L696
				.long	.L696
				.long	.L696
				.long	.L696
				.long	.L696
				.long	.L696
				.long	.L696
				.long	.L696
				.long	.L696
				.long	.L696
				.long	.L696
				.long	.L696
				.long	.L696
				.long	.L696
				.long	.L696
				.section	.rodata
				.align 4
		__PRETTY_FUNCTION__.5625:
				.string	"_imp_SELECTOUTPUT"
				.align 8
		.LC33:
				.long	0
				.long	1083129856
				.section	.text.__x86.get_pc_thunk.ax,"axG",@progbits,__x86.get_pc_thunk.ax,comdat
				.globl	__x86.get_pc_thunk.ax
				.hidden	__x86.get_pc_thunk.ax
		__x86.get_pc_thunk.ax:
		.LFB202:
				movl	(%esp), %eax
				ret
		.LFE202:
				.section	.text.__x86.get_pc_thunk.dx,"axG",@progbits,__x86.get_pc_thunk.dx,comdat
				.globl	__x86.get_pc_thunk.dx
				.hidden	__x86.get_pc_thunk.dx
		__x86.get_pc_thunk.dx:
		.LFB203:
				movl	(%esp), %edx
				ret
		.LFE203:
				.section	.text.__x86.get_pc_thunk.bx,"axG",@progbits,__x86.get_pc_thunk.bx,comdat
				.globl	__x86.get_pc_thunk.bx
				.hidden	__x86.get_pc_thunk.bx
		__x86.get_pc_thunk.bx:
		.LFB204:
				movl	(%esp), %ebx
				ret
		.LFE204:
		.Letext0:
 1180 %end
 1181
 1182 %ENDOFFILE
  911 Statements compiled