Edinburgh IMP77 Compiler - Version 8.4
    1 ! IMP77 compiler  first pass
		.Ltext0:
		ADDCHAR.6526:
		.LFB187:
    2
    3 !###########################################################
    4 ! This program is a Copyright work.                        #
    5 !                                                          #
    6 ! Over the last 40+ years a long and distinguished list of #
    7 ! institutions, individuals and other entities have made   #
    8 ! contributions to portions of this program and may have a #
    9 ! reasonable claim over rights to certain parts of the     #
   10 ! program.                                                 #
   11 !                                                          #
   12 ! This version is therefore provided for education and     #
   13 ! demonstration purposes only                              #
   14 !###########################################################
   15
   16 %begin
		.LVL953:
				pushq	%r14
				pushq	%r13
				pushq	%rbx
				subq	$138656, %rsp
				movq	%fs:40, %rax
				movq	%rax, 138648(%rsp)
				xorl	%eax, %eax
				leaq	138688(%rsp), %rax
				movq	%rax, 138632(%rsp)
   17     %conststring(4) version = "8.4"
				call	_imp_initialise@PLT
		.LVL954:
   18
   19     !configuration parameters
   20     { minus one represents all bits set for an %integer     }
   21     { %integer could be 16,32,64 bits wide depending on the }
   22     { processor being targeted                              }
   23     { i.e 8086 (16 bits), 80386 (32 bits), i86_64 (64 bits) }
   24     %constinteger minus one    = -1;
   25 ! Wee change needed to cross-compile the compiler when going from 16 bit to 32 bit world
   26 !    %constinteger minus one    = 16_7fff;
   27
   28     { now to set up various constants }
   29     %constinteger max int      = ((minus one)>>1)//10
   30     %constinteger max dig      = (minus one)>>1-maxint*10
   31     %constinteger byte size    = 8;            !bits per byte
   32     %constinteger max tag      = 800;          !max no. of tags
   33     %constinteger max dict     = 6000;         !max extent of dictionary
   34     %constinteger name bits    = 11;           !size of name table as a power of two
   35     %constinteger max names    = 1<<namebits-1;!table limit (a mask, eg 255)
   36     %owninteger   spare names  = max names
   37     %constinteger lit max      = 50;           !max no. of constants/stat.
   38     %constinteger rec size     = 520;          !size of analysis record
   39     %constinteger dim limit    = 6;            !maximum array dimension
   40
   41     !symbols
   42     %constinteger ff     = 12;              !form feed
   43     %constinteger marker = '^';             !marker for faults
   44     %constinteger squote = '"';             !string quote
   45     %constinteger cquote = '''';            !character quote
   46
   47     !streams
   48     %constinteger report = 0,  source = 1
   49     %constinteger object = 1, listing = 2
   50
   51     !types
   52     %constinteger integer = 1
   53     %constinteger real    = 2
   54     %constinteger stringv = 3
   55     %constinteger record  = 4
   56
   57     !forms
   58     %constinteger iform = integer<<4+1
   59     %constinteger var = 91
   60     %constinteger const   = 93
   61     %constinteger swit    = 105
   62     %constinteger comment = 22
   63     %constinteger termin  = 20
   64     %constinteger lab     = 3
   65     %constinteger jump    = 54
   66     %constinteger recfm = 4
   67     %constinteger proc  = 7;                     !class for proc
   68
   69     !phrase entries
   70     %constinteger escdec   = 252
   71     %constinteger escproc  = 253
   72     %constinteger escarray = 254
   73     %constinteger escrec   = 255
   74
   75     !%recordformat arfm(%shortinteger class,sub,link,ptype,papp,pformat,x,pos);!imp77:
   76     %recordformat arfm(%integer class,sub,link,ptype,papp,pformat,x,pos)
   77
   78     %recordformat tagfm(%integer app, format, %integer flags, index, text, link)
   79
   80     !flags
   81     !      *===.===.===.===.===.====.====.====.===.======.======*
   82     !      ! u ! c ! c ! p ! s ! a  ! o  ! pr ! s ! type ! form !
   83     !      ! 1 ! 1 ! 1 ! 1 ! 1 ! 1  ! 1  ! 1  ! 1 !  3   !  4   !
   84     !      *===^===^===^===^===^====^====^====^===^======^======*
   85     !        u   c   c   p   s   a    o    p    s    t      f
   86     !        s   l   o   a   u   n    w    r    p    y      o
   87     !        e   o   n   r   b   a    n    o    e    p      r
   88     !        d   s   s   a   n   m         t    c    e      m
   89     !            e   t   m   a   e
   90     !            d       s   m
   91     !                        e
   92     !
   93     !
   94
   95     %constinteger used bit   = 2_1000000000000000
   96     %constinteger closed     = 2_0100000000000000
   97     %constinteger const bit  = 2_0010000000000000
   98     %constinteger parameters = 2_0001000000000000
   99     %constinteger subname    = 2_0000100000000000
  100     %constinteger aname      = 2_0000010000000000
  101     %constinteger own bit    = 2_0000001000000000
  102     %constinteger prot       = 2_0000000100000000
  103     %constinteger spec       = 2_0000000010000000
  104
  105     %constinteger trans bit  = 16_4000
  106     %constinteger error      = 16_8000
  107
  108     %record(arfm)%array ar(1:rec size)
  109
  110     %owninteger class        = 0;             !class of atom wanted
  111     %owninteger x            = 0;             !usually last tag
  112     %owninteger atom1        = 0;             !atom class (major)
  113     %owninteger atom2        = 0;             !atom class (minor)
  114     %owninteger subatom      = 0;             !extra info about atom
  115     %owninteger type         = 0
  116     %owninteger app          = 0
  117     %owninteger format       = 0;             !atom info
  118     %integer hash value
  119     %owninteger faulty       = 0;             !fault indicator
  120     %owninteger fault rate   = 0;             !fault rate count
  121     %owninteger lines        = 0;             !current line number
  122     %owninteger text line    = 0;             !starting line for string const
  123     %owninteger margin       = 0;             !statement start margin
  124     %owninteger error margin = 0
  125     %owninteger error sym    = 0
  126     %owninteger column       = 0
  127     %owninteger stats        = 0;             !statements compiled
  128     %owninteger mon pos      = 0;             !flag for diagnose
  129     %owninteger sym          = nl;            !current input symbol
  130     %owninteger symtype      = 0;             !type of current symbol
  131     %owninteger quote        = 0;             !>0 strings, <0 chars
  132     %owninteger end mark     = 0;             !%end flag
  133     %owninteger cont         = ' '
  134     %owninteger csym         = ' ';           !listing continuation marker
  135     %owninteger decl         = 0;             !current declarator flags
  136     %owninteger dim          = 0;             !arrayname dimension
  137     %owninteger spec given   = 0
  138
  139     %owninteger escape class = 0;             !when and where to escape
  140     %owninteger protection   = 0
  141     %owninteger atom flags   = 0
  142     %owninteger otype        = 0;             !current 'own' type
  143     %owninteger reals ln     = 1;             ! =4 for %REALSLONG
  144     %owninteger last1        = 0;             !previous atom class
  145     %owninteger gen type     = 0
  146     %owninteger ptype        = 0;             !current phrase type
  147     %owninteger papp         = 0;             !current phrase parameters
  148     %owninteger pformat      = 0;             !current phrase format
  149     %owninteger force        = 0;             !force next ptype
  150     %owninteger g            = 0
  151     %owninteger gg           = 0
  152     %owninteger map gg       = 0;             !grammar entries
  153     %owninteger fdef         = 0;             !current format definition
  154     %owninteger this         = -1;            !current recordformat tag
  155     %owninteger nmin         = 0;             !analysis record atom pointer
  156     %owninteger nmax         = 0;             !analysis record phrase pointer
  157     %owninteger rbase        = 0;             !record format definition base
  158     %owninteger dmax         = 1
  159     %owninteger tmin         = max tag;       !upper bound on tags
  160     %owninteger ss           = 0;             !source statement entry
  161     %string(63) include file
  162     %owninteger include list = 0
  163     %owninteger include level= 0
  164     %owninteger include      = 0;             !=0 unused, #0 being used
  165     %owninteger perm         = 1;             !1 = compiling perm, 0 = program
  166     %owninteger progmode     = 0;             !-1 = file, 1 = begin/eop
  167     %owninteger sstype       = 0;             !-1:exec stat
  168                                               ! 0: declaration
  169                                               ! 1: block in
  170                                               ! 2: block out
  171     %owninteger spec mode    = 0;             !>=0: definition
  172                                               ! -1: proc spec
  173                                               ! -2: recordformat
  174     %owninteger ocount       = -1;            !own constants wanted
  175     %owninteger limit        = 0;             !lookup limit
  176     %owninteger copy         = 0;             !duplicate name flag
  177     %owninteger order        = 0;             !out of sequence flag
  178     %owninteger for warn     = 0;             !non-local flag
  179     %owninteger dubious      = 0;             !flag for dubious statements
  180     %owninteger dp           = 1
  181     %owninteger pos1         = 0
  182     %owninteger pos2         = 0;             !error position
  183     %owninteger pos          = 0;             !input line index
  184     %owninteger dimension    = 0;             !current array dimension
  185     %owninteger local        = 0;             !search limit for locals
  186     %owninteger fm base      = 0;             !entry for format decls
  187     %owninteger search base  = 0;             !entry for record_names
  188     %owninteger format list  = 0;             !size of current format list
  189     %integer recid
  190     %ownbyteintegerarray char(0:133) = ;  !input line
  191     10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
  192     10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
  193     10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
  194     10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
  195     10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
  196     10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
  197     10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
  198     10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
  199     10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
  200     10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
  201     10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
  202     10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
  203     10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
  204     10, 10, 10, 10
  205     %integerarray lit pool(0:lit max)
  206     %owninteger lit          = 0;             !current literal (integer)
  207     %owninteger lp           = 0;             !literals pointer
  208     %owninteger block x      = 0;             !block tag
  209     %owninteger list         = 1;             !<= to enable
  210     %owninteger control      = 0
  211     %owninteger diag         = 0;             !diagnose flags
  212     %integerarray hash(0:max names)
  213     %record(tagfm)%array tag(0:max tag)
  214     %integerarray dict(1:max dict)
  215     %byteintegerarray buff(1:512)
  216     %owninteger bp           = 0
  217
  218     { grammar related constants }
  219     %constinteger max grammar  = 1720
  220     %owninteger gmin       = max grammar               ;! upper bound on grammar
  221     %constinteger manifest = 120, figurative = 130
  222     %constinteger actions  = 180, phrasal    = 200
  223
  224     %constbyteintegerarray amap(0:15) = %c
				movb	$89, 72308(%rsp)
				movb	$91, 72309(%rsp)
				movb	$92, 72310(%rsp)
				movb	$104, 72311(%rsp)
				movb	$94, 72312(%rsp)
				movb	$93, 72313(%rsp)
				movb	$105, 72314(%rsp)
				movb	$100, 72315(%rsp)
				movb	$101, 72316(%rsp)
				movb	$102, 72317(%rsp)
				movb	$103, 72318(%rsp)
				movb	$106, 72319(%rsp)
				movb	$107, 72320(%rsp)
				movb	$108, 72321(%rsp)
				movb	$109, 72322(%rsp)
				movb	$89, 72323(%rsp)
  225        89,   91,   92,  104,   94,   93,  105,  100,  101,  102,  103,  106,  107,  108,  109,   89
  226     !   ?     v     n     l    fm const  swit    rp    fp    mp    pp     a    an    na    nan    ?
  227
  228     %constbyteintegerarray atoms(0:15) = 89, 1, 1, 10,  9,  1, 10,  7,
				movb	$89, 72242(%rsp)
				movb	$1, 72243(%rsp)
				movb	$1, 72244(%rsp)
				movb	$10, 72245(%rsp)
				movb	$9, 72246(%rsp)
				movb	$1, 72247(%rsp)
				movb	$10, 72248(%rsp)
				movb	$7, 72249(%rsp)
				movb	$7, 72250(%rsp)
				movb	$7, 72251(%rsp)
				movb	$7, 72252(%rsp)
				movb	$4, 72253(%rsp)
				movb	$1, 72254(%rsp)
				movb	$4, 72255(%rsp)
				movb	$1, 72256(%rsp)
				movb	$89, 72257(%rsp)
  229                                           7, 7, 7,  4,  1,  4,  1, 89
  230
  231     !*** start of generated tables ***
  232 !    %include "i77.tables.imp"
  233    %endoflist
  572 !%endoffile
				leaq	72324(%rsp), %rdi
				movl	$65536, %edx
				movl	$0, %esi
				call	memset@PLT
		.LVL955:
				movb	$1, 72324(%rsp)
				movq	$90, 72325(%rsp)
				movb	$4, 72580(%rsp)
				movq	$1128612950, 72581(%rsp)
				movb	$7, 72836(%rsp)
				movabsq	$18934983247681359, %rax
				movq	%rax, 72837(%rsp)
				movb	$8, 73092(%rsp)
				movabsq	$4847368892795082821, %rax
				movq	%rax, 73093(%rsp)
				movb	$4, 73348(%rsp)
				movq	$1128612929, 73349(%rsp)
				movb	$7, 73604(%rsp)
				movabsq	$18934982895359823, %rax
				movq	%rax, 73605(%rsp)
				movb	$8, 73860(%rsp)
				movabsq	$4847368892442761285, %rax
				movq	%rax, 73861(%rsp)
				movb	$4, 74116(%rsp)
				movq	$1129271888, 74117(%rsp)
				movb	$8, 74372(%rsp)
				leaq	33225227(%rax), %rax
				movq	%rax, 74373(%rsp)
				movb	$7, 74628(%rsp)
				movabsq	$18934983096946502, %rax
				movq	%rax, 74629(%rsp)
				movb	$5, 74884(%rsp)
				movabsq	$288924915539, %rax
				movq	%rax, 74885(%rsp)
				movb	$4, 75140(%rsp)
				movq	$1128612940, 75141(%rsp)
				movb	$8, 75396(%rsp)
				movabsq	$4847368892643954502, %rax
				movq	%rax, 75397(%rsp)
				movb	$6, 76932(%rsp)
				movabsq	$86102439645263, %rax
				movq	%rax, 76933(%rsp)
				movb	$5, 77188(%rsp)
				movabsq	$280469786435, %rax
				movq	%rax, 77189(%rsp)
				movb	$1, 77444(%rsp)
				movq	$84, 77445(%rsp)
				movb	$5, 77700(%rsp)
				movabsq	$336337850179, %rax
				movq	%rax, 77701(%rsp)
				movb	$7, 77956(%rsp)
				movabsq	$23729957600317251, %rax
				movq	%rax, 77957(%rsp)
				movb	$2, 78212(%rsp)
				movq	$16972, 78213(%rsp)
				movb	$5, 78468(%rsp)
				movabsq	$357577608257, %rax
				movq	%rax, 78469(%rsp)
				movb	$2, 78724(%rsp)
				movq	$16978, 78725(%rsp)
				movb	$3, 78980(%rsp)
				movq	$4347219, 78981(%rsp)
				movb	$6, 79236(%rsp)
				movabsq	$75150138692161, %rax
				movq	%rax, 79237(%rsp)
				movb	$5, 79492(%rsp)
				movabsq	$297700774995, %rax
				movq	%rax, 79493(%rsp)
				movb	$5, 79748(%rsp)
				movabsq	$383348003393, %rax
				movq	%rax, 79749(%rsp)
				movb	$4, 80004(%rsp)
				movq	$1162690894, 80005(%rsp)
				movb	$5, 80260(%rsp)
				movabsq	$293187048016, %rax
				movq	%rax, 80261(%rsp)
				movb	$5, 80516(%rsp)
				movabsq	$344692969030, %rax
				movq	%rax, 80517(%rsp)
				movb	$6, 80772(%rsp)
				movabsq	$79454014101331, %rax
				movq	%rax, 80773(%rsp)
				movb	$3, 81028(%rsp)
				movq	$5134159, 81029(%rsp)
				movb	$8, 81284(%rsp)
				movabsq	$5494759135626156101, %rax
				movq	%rax, 81285(%rsp)
				movb	$6, 81540(%rsp)
				movabsq	$78401563153491, %rax
				movq	%rax, 81541(%rsp)
				movb	$6, 81796(%rsp)
				movabsq	$75120307815762, %rax
				movq	%rax, 81797(%rsp)
				movb	$6, 82052(%rsp)
				movabsq	$92639446847302, %rax
				movq	%rax, 82053(%rsp)
				movb	$4, 82308(%rsp)
				movq	$1128616019, 82309(%rsp)
				movb	$5, 82564(%rsp)
				movabsq	$297498788685, %rax
				movq	%rax, 82565(%rsp)
				movb	$5, 82820(%rsp)
				movabsq	$327579484492, %rax
				movq	%rax, 82821(%rsp)
				movb	$3, 83076(%rsp)
				movq	$3231823, 83077(%rsp)
				movb	$3, 83332(%rsp)
				movq	$3297359, 83333(%rsp)
				movb	$3, 83588(%rsp)
				movq	$3362895, 83589(%rsp)
				movb	$4, 83844(%rsp)
				movq	$1313294675, 83845(%rsp)
				movb	$3, 84100(%rsp)
				movq	$5263189, 84101(%rsp)
				movb	$3, 84356(%rsp)
				movq	$4476749, 84357(%rsp)
				movb	$3, 84612(%rsp)
				movq	$5525316, 84613(%rsp)
				movb	$4, 84868(%rsp)
				movq	$1347243843, 84869(%rsp)
				movb	$5, 85124(%rsp)
				movabsq	$344894423873, %rax
				movq	%rax, 85125(%rsp)
				movb	$2, 85380(%rsp)
				movq	$20805, 85381(%rsp)
				movb	$4, 85636(%rsp)
				movq	$1363497285, 85637(%rsp)
				movb	$3, 85892(%rsp)
				movq	$5062986, 85893(%rsp)
				movb	$4, 86148(%rsp)
				movq	$1347245386, 86149(%rsp)
				movb	$5, 86404(%rsp)
				leaq	33817105(%rax), %rax
				movq	%rax, 86405(%rsp)
				movb	$3, 86660(%rsp)
				movq	$4476481, 86661(%rsp)
				movb	$2, 86916(%rsp)
				movq	$21071, 86917(%rsp)
				movb	$3, 87172(%rsp)
				movq	$5525326, 87173(%rsp)
				movb	$5, 87428(%rsp)
				movabsq	$297632614487, %rax
				movq	%rax, 87429(%rsp)
				movb	$5, 87684(%rsp)
				movabsq	$327647776341, %rax
				movq	%rax, 87685(%rsp)
				movb	$3, 87940(%rsp)
				movq	$5394246, 87941(%rsp)
				movb	$5, 88196(%rsp)
				movabsq	$293438707523, %rax
				movq	%rax, 88197(%rsp)
				movb	$4, 88452(%rsp)
				movq	$1414092869, 88453(%rsp)
				movb	$2, 88708(%rsp)
				movq	$20047, 88709(%rsp)
				movb	$6, 88964(%rsp)
				movabsq	$83843369879891, %rax
				movq	%rax, 88965(%rsp)
				movb	$4, 89220(%rsp)
				movq	$1313163348, 89221(%rsp)
				movb	$5, 89476(%rsp)
				movabsq	$362157266003, %rax
				movq	%rax, 89477(%rsp)
				movb	$4, 89732(%rsp)
				movq	$1163086917, 89733(%rsp)
				movb	$6, 89988(%rsp)
				movabsq	$79522549352774, %rax
				movq	%rax, 89989(%rsp)
				movb	$5, 90244(%rsp)
				movabsq	$297750250822, %rax
				movq	%rax, 90245(%rsp)
				movb	$5, 90500(%rsp)
				leaq	-118025219(%rax), %rax
				movq	%rax, 90501(%rsp)
				movb	$6, 90756(%rsp)
				movabsq	$92639312495954, %rax
				movq	%rax, 90757(%rsp)
				movb	$7, 91012(%rsp)
				movabsq	$21745394846224976, %rax
				movq	%rax, 91013(%rsp)
				movb	$5, 91268(%rsp)
				movabsq	$336236856642, %rax
				movq	%rax, 91269(%rsp)
				movb	$3, 91524(%rsp)
				movq	$4476485, 91525(%rsp)
				movb	$7, 91780(%rsp)
				movabsq	$20071938299022917, %rax
				movq	%rax, 91781(%rsp)
				movb	$7, 92036(%rsp)
				movabsq	$21764030859595333, %rax
				movq	%rax, 92037(%rsp)
				movb	$7, 92292(%rsp)
				movabsq	$23727827396678214, %rax
				movq	%rax, 92293(%rsp)
				movb	$7, 92548(%rsp)
				leaq	7(%rax), %rax
				movq	%rax, 92549(%rsp)
				movb	$4, 92804(%rsp)
				movq	$1262698818, 92805(%rsp)
				movb	$7, 93060(%rsp)
				movabsq	$23168171515989837, %rax
				movq	%rax, 93061(%rsp)
				movb	$4, 93316(%rsp)
				movq	$1347376211, 93317(%rsp)
				movb	$4, 93572(%rsp)
				movq	$1414744396, 93573(%rsp)
				movb	$7, 93828(%rsp)
				movabsq	$22038968828773714, %rax
				movq	%rax, 93829(%rsp)
				movb	$7, 94084(%rsp)
				movabsq	$21479313250340675, %rax
				movq	%rax, 94085(%rsp)
				movb	$7, 94340(%rsp)
				movabsq	$19496906535423561, %rax
				movq	%rax, 94341(%rsp)
				movb	$4, 94596(%rsp)
				movq	$1397965133, 94597(%rsp)
				movb	$5, 94852(%rsp)
				movabsq	$297700774994, %rax
				movq	%rax, 94853(%rsp)
				movb	$5, 95108(%rsp)
				movabsq	$344927257665, %rax
				movq	%rax, 95109(%rsp)
				movb	$5, 95364(%rsp)
				movabsq	$362090415177, %rax
				movq	%rax, 95365(%rsp)
				movb	$1, 95620(%rsp)
				movq	$86, 95621(%rsp)
				movb	$1, 95876(%rsp)
				movq	$78, 95877(%rsp)
				movb	$5, 96132(%rsp)
				leaq	84478714(%rax), %rax
				movq	%rax, 96133(%rsp)
				movb	$2, 96388(%rsp)
				movq	$19782, 96389(%rsp)
				movb	$1, 96900(%rsp)
				movq	$82, 96901(%rsp)
				movb	$1, 97156(%rsp)
				movq	$70, 97157(%rsp)
				movb	$1, 97412(%rsp)
				movq	$77, 97413(%rsp)
				movb	$1, 97668(%rsp)
				movq	$80, 97669(%rsp)
				movb	$2, 97924(%rsp)
				movq	$20562, 97925(%rsp)
				movb	$2, 98180(%rsp)
				movq	$20550, 98181(%rsp)
				movb	$2, 98436(%rsp)
				movq	$20557, 98437(%rsp)
				movb	$2, 98692(%rsp)
				movq	$20560, 98693(%rsp)
				movb	$1, 98948(%rsp)
				movq	$76, 98949(%rsp)
				movb	$1, 99204(%rsp)
				movq	$83, 99205(%rsp)
				movb	$1, 99460(%rsp)
				movq	$65, 99461(%rsp)
				movb	$2, 99716(%rsp)
				movq	$20033, 99717(%rsp)
				movb	$2, 99972(%rsp)
				movq	$16718, 99973(%rsp)
				movb	$3, 100228(%rsp)
				movq	$5128526, 100229(%rsp)
				movb	$7, 103044(%rsp)
				movabsq	$23734338584792357, %rax
				movq	%rax, 103045(%rsp)
				movb	$6, 103300(%rsp)
				movabsq	$90440288977701, %rax
				movq	%rax, 103301(%rsp)
				movb	$5, 103556(%rsp)
				movabsq	$293220798501, %rax
				movq	%rax, 103557(%rsp)
				movb	$8, 104068(%rsp)
				movabsq	$6004792854232515621, %rax
				movq	%rax, 104069(%rsp)
				movb	$4, 104324(%rsp)
				movq	$1347765285, 104325(%rsp)
				movb	$4, 104580(%rsp)
				movq	$1313427493, 104581(%rsp)
				movb	$5, 104836(%rsp)
				movabsq	$362208514085, %rax
				movq	%rax, 104837(%rsp)
				movb	$5, 105092(%rsp)
				movabsq	$345027921189, %rax
				movq	%rax, 105093(%rsp)
				movb	$6, 105604(%rsp)
				movabsq	$92695146285392, %rax
				movq	%rax, 105605(%rsp)
				movb	$6, 105860(%rsp)
				leaq	-13(%rax), %rax
				movq	%rax, 105861(%rsp)
				movb	$6, 106116(%rsp)
				leaq	12(%rax), %rax
				movq	%rax, 106117(%rsp)
				movb	$5, 106372(%rsp)
				movabsq	$297648868934, %rax
				movq	%rax, 106373(%rsp)
				movb	$4, 106628(%rsp)
				movq	$1145657171, 106629(%rsp)
				movb	$4, 106884(%rsp)
				movq	$1280593732, 106885(%rsp)
				movb	$4, 107140(%rsp)
				movq	$1381257028, 107141(%rsp)
				movb	$4, 107396(%rsp)
				movq	$1346720577, 107397(%rsp)
				movb	$4, 107652(%rsp)
				movq	$1346720579, 107653(%rsp)
				movb	$4, 107908(%rsp)
				movq	$1346720591, 107909(%rsp)
				movb	$4, 108164(%rsp)
				movq	$1346720592, 108165(%rsp)
				movb	$3, 108420(%rsp)
				movq	$4346433, 108421(%rsp)
				movb	$5, 108676(%rsp)
				movabsq	$284848574530, %rax
				movq	%rax, 108677(%rsp)
				movb	$3, 108932(%rsp)
				movq	$4346447, 108933(%rsp)
				movb	$3, 109188(%rsp)
				movq	$4346448, 109189(%rsp)
				movb	$3, 109444(%rsp)
				movq	$4346435, 109445(%rsp)
				movb	$4, 109700(%rsp)
				movq	$1112687442, 109701(%rsp)
				movb	$5, 109956(%rsp)
				leaq	-592624(%rax), %rax
				movq	%rax, 109957(%rsp)
				movb	$5, 110212(%rsp)
				leaq	-100663296(%rax), %rax
				movq	%rax, 110213(%rsp)
				movb	$3, 110468(%rsp)
				movq	$4342092, 110469(%rsp)
				movb	$4, 110724(%rsp)
				movq	$1111575629, 110725(%rsp)
				movb	$4, 110980(%rsp)
				movq	$1111575635, 110981(%rsp)
				movb	$5, 111236(%rsp)
				movabsq	$297648868952, %rax
				movq	%rax, 111237(%rsp)
				movb	$4, 111492(%rsp)
				movq	$1414420303, 111493(%rsp)
				movb	$5, 111748(%rsp)
				movabsq	$344760468036, %rax
				movq	%rax, 111749(%rsp)
				movb	$6, 112004(%rsp)
				movabsq	$92716772836176, %rax
				movq	%rax, 112005(%rsp)
				movb	$4, 112260(%rsp)
				movq	$1146047811, 112261(%rsp)
				movb	$5, 112516(%rsp)
				movabsq	$336203436867, %rax
				movq	%rax, 112517(%rsp)
				movb	$4, 112772(%rsp)
				movq	$1347376451, 112773(%rsp)
				movb	$4, 113028(%rsp)
				movq	$827346755, 113029(%rsp)
				movb	$4, 113284(%rsp)
				movq	$844123971, 113285(%rsp)
				movb	$4, 113540(%rsp)
				movq	$860901187, 113541(%rsp)
				movb	$5, 113796(%rsp)
				movabsq	$301809815113, %rax
				movq	%rax, 113797(%rsp)
				movb	$5, 114052(%rsp)
				movabsq	$297750250840, %rax
				movq	%rax, 114053(%rsp)
				movb	$6, 114308(%rsp)
				movabsq	$88301629690435, %rax
				movq	%rax, 114309(%rsp)
				movb	$4, 114564(%rsp)
				movq	$1111575630, 114565(%rsp)
				movb	$6, 114820(%rsp)
				movabsq	$83877830743378, %rax
				movq	%rax, 114821(%rsp)
				movb	$6, 115076(%rsp)
				movabsq	$92716772836161, %rax
				movq	%rax, 115077(%rsp)
				movb	$4, 115332(%rsp)
				movq	$1112691279, 115333(%rsp)
				movb	$5, 115588(%rsp)
				movabsq	$383564991814, %rax
				movq	%rax, 115589(%rsp)
				movb	$7, 115844(%rsp)
				movabsq	$20070800167293775, %rax
				movq	%rax, 115845(%rsp)
				movb	$4, 116100(%rsp)
				movq	$1112296774, 116101(%rsp)
				movb	$4, 116356(%rsp)
				movq	$1112689990, 116357(%rsp)
				movb	$4, 116612(%rsp)
				movq	$1380928838, 116613(%rsp)
				movb	$7, 116868(%rsp)
				movabsq	$18667805965435218, %rax
				movq	%rax, 116869(%rsp)
				movb	$4, 117124(%rsp)
				movq	$1145656134, 117125(%rsp)
				movb	$6, 118660(%rsp)
				movabsq	$98188544787493, %rax
				movq	%rax, 118661(%rsp)
				movb	$5, 118916(%rsp)
				movabsq	$327546127397, %rax
				movq	%rax, 118917(%rsp)
				movb	$5, 119172(%rsp)
				movabsq	$297700774949, %rax
				movq	%rax, 119173(%rsp)
				movb	$5, 119428(%rsp)
				movabsq	$340682693157, %rax
				movq	%rax, 119429(%rsp)
				movb	$6, 119684(%rsp)
				movabsq	$98184299823397, %rax
				movq	%rax, 119685(%rsp)
				movb	$5, 119940(%rsp)
				movabsq	$362108047397, %rax
				movq	%rax, 119941(%rsp)
				movb	$8, 120196(%rsp)
				movabsq	$6075164927310779173, %rax
				movq	%rax, 120197(%rsp)
				movb	$6, 120452(%rsp)
				movabsq	$76211398397989, %rax
				movq	%rax, 120453(%rsp)
				movb	$5, 120708(%rsp)
				movabsq	$344943839013, %rax
				movq	%rax, 120709(%rsp)
				movb	$6, 120964(%rsp)
				movabsq	$83843185855525, %rax
				movq	%rax, 120965(%rsp)
				movb	$6, 121220(%rsp)
				movabsq	$75120074114853, %rax
				movq	%rax, 121221(%rsp)
				movb	$6, 121476(%rsp)
				movabsq	$76159689903397, %rax
				movq	%rax, 121477(%rsp)
				movb	$7, 121732(%rsp)
				movabsq	$25136267465605925, %rax
				movq	%rax, 121733(%rsp)
				movb	$8, 121988(%rsp)
				movabsq	$4994590205479834405, %rax
				movq	%rax, 121989(%rsp)
				movb	$5, 122244(%rsp)
				movabsq	$353350209317, %rax
				movq	%rax, 122245(%rsp)
				movb	$6, 122500(%rsp)
				movabsq	$84942948225061, %rax
				movq	%rax, 122501(%rsp)
				movb	$6, 122756(%rsp)
				movabsq	$82752465289765, %rax
				movq	%rax, 122757(%rsp)
				movb	$6, 123012(%rsp)
				movabsq	$90457519705893, %rax
				movq	%rax, 123013(%rsp)
				movb	$8, 123268(%rsp)
				movabsq	$4993446696090288933, %rax
				movq	%rax, 123269(%rsp)
				movb	$3, 123524(%rsp)
				movq	$5263425, 123525(%rsp)
				movb	$7, 123780(%rsp)
				movabsq	$22606239403032898, %rax
				movq	%rax, 123781(%rsp)
				movb	$4, 124036(%rsp)
				movq	$844124225, 124037(%rsp)
				movb	$4, 124292(%rsp)
				movq	$860901441, 124293(%rsp)
				movb	$4, 124548(%rsp)
				movq	$877678657, 124549(%rsp)
				movb	$4, 124804(%rsp)
				movq	$894455873, 124805(%rsp)
				movb	$4, 125060(%rsp)
				movq	$911233089, 125061(%rsp)
				movb	$5, 125316(%rsp)
				movabsq	$336186393665, %rax
				movq	%rax, 125317(%rsp)
				movb	$5, 125572(%rsp)
				movabsq	$332092493902, %rax
				movq	%rax, 125573(%rsp)
				movb	$5, 125828(%rsp)
				movabsq	$301809817427, %rax
				movq	%rax, 125829(%rsp)
				movb	$5, 126084(%rsp)
				movabsq	$357627942739, %rax
				movq	%rax, 126085(%rsp)
				movb	$5, 126340(%rsp)
				movabsq	$345078319427, %rax
				movq	%rax, 126341(%rsp)
				movb	$6, 126596(%rsp)
				movabsq	$92716772836178, %rax
				movq	%rax, 126597(%rsp)
				movb	$6, 126852(%rsp)
				leaq	1(%rax), %rax
				movq	%rax, 126853(%rsp)
				movb	$6, 127108(%rsp)
				movabsq	$88344278225473, %rax
				movq	%rax, 127109(%rsp)
				movb	$4, 127364(%rsp)
				movq	$1347242328, 127365(%rsp)
				movb	$3, 127620(%rsp)
				movq	$5262665, 127621(%rsp)
				movb	$4, 127876(%rsp)
				movq	$1145982787, 127877(%rsp)
				movb	$5, 128132(%rsp)
				movabsq	$293371593555, %rax
				movq	%rax, 128133(%rsp)
				movb	$4, 128388(%rsp)
				movq	$827349061, 128389(%rsp)
				movb	$4, 128644(%rsp)
				movq	$844126277, 128645(%rsp)
				movb	$4, 128900(%rsp)
				movq	$1347962195, 128901(%rsp)
				movb	$4, 129156(%rsp)
				movq	$1347962185, 129157(%rsp)
				movb	$5, 129412(%rsp)
				movabsq	$211801359689, %rax
				movq	%rax, 129413(%rsp)
				movb	$5, 129668(%rsp)
				movabsq	$216096326985, %rax
				movq	%rax, 129669(%rsp)
				movb	$5, 129924(%rsp)
				movabsq	$345078321993, %rax
				movq	%rax, 129925(%rsp)
				movb	$3, 130180(%rsp)
				movq	$5326163, 130181(%rsp)
				movb	$4, 130436(%rsp)
				movq	$1178944582, 130437(%rsp)
				movb	$3, 130692(%rsp)
				movq	$5265477, 130693(%rsp)
				movb	$7, 130948(%rsp)
				movabsq	$22616135225721166, %rax
				movq	%rax, 130949(%rsp)
				movb	$6, 131204(%rsp)
				movabsq	$92648171000915, %rax
				movq	%rax, 131205(%rsp)
				movb	$6, 131460(%rsp)
				movabsq	$88340050429266, %rax
				movq	%rax, 131461(%rsp)
				movb	$3, 131716(%rsp)
				movq	$5001282, 131717(%rsp)
				movb	$6, 131972(%rsp)
				movabsq	$72929942327107, %rax
				movq	%rax, 131973(%rsp)
				movb	$5, 132228(%rsp)
				movabsq	$331875633478, %rax
				movq	%rax, 132229(%rsp)
				movb	$5, 132484(%rsp)
				movabsq	$280335896397, %rax
				movq	%rax, 132485(%rsp)
				movb	$5, 132740(%rsp)
				movabsq	$362174565443, %rax
				movq	%rax, 132741(%rsp)
				movb	$3, 132996(%rsp)
				movq	$5263430, 132997(%rsp)
				movb	$4, 133252(%rsp)
				movq	$810569798, 133253(%rsp)
				movb	$4, 133508(%rsp)
				movq	$827347014, 133509(%rsp)
				movb	$4, 133764(%rsp)
				movq	$844124230, 133765(%rsp)
				movb	$7, 134020(%rsp)
				movabsq	$23152787127357001, %rax
				movq	%rax, 134021(%rsp)
				movb	$6, 134276(%rsp)
				movabsq	$88340049380690, %rax
				movq	%rax, 134277(%rsp)
				movb	$4, 134532(%rsp)
				movq	$1347242309, 134533(%rsp)
				movb	$6, 134788(%rsp)
				movabsq	$91621555520585, %rax
				movq	%rax, 134789(%rsp)
				movb	$5, 135044(%rsp)
				movabsq	$297549054290, %rax
				movq	%rax, 135045(%rsp)
				movb	$7, 135300(%rsp)
				movabsq	$18670065235739474, %rax
				movq	%rax, 135301(%rsp)
				movb	$4, 135556(%rsp)
				movq	$1347567958, 135557(%rsp)
				movb	$7, 135812(%rsp)
				movabsq	$18934983213796937, %rax
				movq	%rax, 135813(%rsp)
				movb	$6, 136836(%rsp)
				movabsq	$73964777067333, %rax
				movq	%rax, 136837(%rsp)
				movb	$7, 137092(%rsp)
				movabsq	$18946038392116037, %rax
				movq	%rax, 137093(%rsp)
				movb	$8, 137348(%rsp)
				movabsq	$6431512256097506117, %rax
				movq	%rax, 137349(%rsp)
				movb	$6, 137604(%rsp)
				movabsq	$73965011948357, %rax
				movq	%rax, 137605(%rsp)
				movw	$24, 70828(%rsp)
				movw	$0, 70830(%rsp)
				movw	$0, 70832(%rsp)
				movw	$0, 70834(%rsp)
				movw	$0, 70836(%rsp)
				movw	$0, 70838(%rsp)
				movw	$0, 70840(%rsp)
				movw	$0, 70842(%rsp)
				movw	$0, 70844(%rsp)
				movw	$0, 70846(%rsp)
				movw	$0, 70848(%rsp)
				movw	$0, 70850(%rsp)
				movw	$0, 70852(%rsp)
				movw	$0, 70854(%rsp)
				movw	$0, 70856(%rsp)
				movw	$0, 70858(%rsp)
				movw	$0, 70860(%rsp)
				movw	$0, 70862(%rsp)
				movw	$23, 70864(%rsp)
				movw	$0, 70866(%rsp)
				movw	$0, 70868(%rsp)
				movw	$0, 70870(%rsp)
				movw	$0, 70872(%rsp)
				movw	$0, 70874(%rsp)
				movw	$0, 70876(%rsp)
				movw	$0, 70878(%rsp)
				movw	$0, 70880(%rsp)
				movw	$0, 70882(%rsp)
				movw	$0, 70884(%rsp)
				movw	$0, 70886(%rsp)
				movw	$0, 70888(%rsp)
				movw	$0, 70890(%rsp)
				movw	$0, 70892(%rsp)
				movw	$0, 70894(%rsp)
				movw	$0, 70896(%rsp)
				movw	$0, 70898(%rsp)
				movw	$0, 70900(%rsp)
				movw	$0, 70902(%rsp)
				movw	$0, 70904(%rsp)
				movw	$0, 70906(%rsp)
				movw	$20, 70908(%rsp)
				movw	$0, 70910(%rsp)
				movw	$0, 70912(%rsp)
				movw	$0, 70914(%rsp)
				movw	$0, 70916(%rsp)
				movw	$0, 70918(%rsp)
				movw	$0, 70920(%rsp)
				movw	$0, 70922(%rsp)
				movw	$0, 70924(%rsp)
				movw	$0, 70926(%rsp)
				movw	$0, 70928(%rsp)
				movw	$0, 70930(%rsp)
				movw	$0, 70932(%rsp)
				movw	$0, 70934(%rsp)
				movw	$-32551, 70936(%rsp)
				movw	$0, 70938(%rsp)
				movw	$0, 70940(%rsp)
				movw	$0, 70942(%rsp)
				movw	$0, 70944(%rsp)
				movw	$13, 70946(%rsp)
				movw	$0, 70948(%rsp)
				movw	$14, 70950(%rsp)
				movw	$4, 70952(%rsp)
				movw	$-32557, 70954(%rsp)
				movw	$16, 70956(%rsp)
				movw	$-32550, 70958(%rsp)
				movw	$0, 70960(%rsp)
				movw	$0, 70962(%rsp)
				movw	$5, 70964(%rsp)
				movw	$6, 70966(%rsp)
				movw	$3, 70968(%rsp)
				movw	$12, 70970(%rsp)
				movw	$15, 70972(%rsp)
				movw	$8, 70974(%rsp)
				movw	$7, 70976(%rsp)
				movw	$9, 70978(%rsp)
				movw	$10, 70980(%rsp)
				movw	$11, 70982(%rsp)
				movw	$-32558, 70984(%rsp)
				movw	$-32554, 70986(%rsp)
				movw	$-32559, 70988(%rsp)
				movw	$-32552, 70990(%rsp)
				movw	$-32553, 70992(%rsp)
				movw	$18, 70994(%rsp)
				movw	$22, 70996(%rsp)
				movw	$17, 70998(%rsp)
				movw	$21, 71000(%rsp)
				movw	$19, 71002(%rsp)
				movw	$0, 71004(%rsp)
				movw	$0, 71006(%rsp)
				movw	$0, 71008(%rsp)
				movw	$-32562, 71010(%rsp)
				movw	$-32560, 71012(%rsp)
				movw	$0, 71014(%rsp)
				movw	$0, 71016(%rsp)
				movw	$0, 71018(%rsp)
				movw	$-32561, 71020(%rsp)
				movw	$0, 71022(%rsp)
				movw	$0, 71024(%rsp)
				movw	$0, 71026(%rsp)
				movw	$0, 71028(%rsp)
				movw	$0, 71030(%rsp)
				movw	$0, 71032(%rsp)
				movw	$0, 71034(%rsp)
				movw	$1, 71036(%rsp)
				movw	$2, 71038(%rsp)
				movw	$0, 71040(%rsp)
				movw	$-32556, 71042(%rsp)
				movw	$0, 71044(%rsp)
				movw	$-32555, 71046(%rsp)
				movw	$0, 71048(%rsp)
				movw	$0, 71050(%rsp)
				movw	$0, 71052(%rsp)
				movw	$0, 71054(%rsp)
				movw	$0, 71056(%rsp)
				movw	$0, 71058(%rsp)
				movw	$0, 71060(%rsp)
				movw	$0, 71062(%rsp)
				movw	$0, 71064(%rsp)
				movw	$0, 71066(%rsp)
				movb	$90, 72258(%rsp)
				movb	$90, 72259(%rsp)
				movb	$90, 72260(%rsp)
				movb	$90, 72261(%rsp)
				movb	$90, 72262(%rsp)
				movb	$48, 72263(%rsp)
				movb	$48, 72264(%rsp)
				movb	$19, 72265(%rsp)
				movb	$19, 72266(%rsp)
				movb	$19, 72267(%rsp)
				movb	$19, 72268(%rsp)
				movb	$25, 72269(%rsp)
				movb	$25, 72270(%rsp)
				movb	$25, 72271(%rsp)
				movb	$25, 72272(%rsp)
				movb	$25, 72273(%rsp)
				movb	$25, 72274(%rsp)
				movb	$25, 72275(%rsp)
				movb	$23, 72276(%rsp)
				movb	$104, 72277(%rsp)
				movb	$104, 72278(%rsp)
				movb	$105, 72279(%rsp)
				movb	$30, 72280(%rsp)
				movb	$20, 72281(%rsp)
				movb	$21, 72282(%rsp)
				movb	$93, 72283(%rsp)
				movb	$47, 72284(%rsp)
				movb	$45, 72285(%rsp)
				movb	$46, 72286(%rsp)
				movb	$42, 72287(%rsp)
				movb	$43, 72288(%rsp)
				movb	$44, 72289(%rsp)
				movb	$40, 72290(%rsp)
				movb	$68, 72291(%rsp)
				movb	$55, 72292(%rsp)
				movb	$104, 72293(%rsp)
				movb	$60, 72294(%rsp)
				movb	$93, 72295(%rsp)
				movb	$25, 72296(%rsp)
				movb	$40, 72297(%rsp)
				movb	$93, 72298(%rsp)
				movb	$23, 72299(%rsp)
				movb	$25, 72300(%rsp)
				movb	$57, 72301(%rsp)
				movb	$25, 72302(%rsp)
				movb	$90, 72303(%rsp)
				movb	$-80, 72304(%rsp)
				movb	$-79, 72305(%rsp)
				movb	$-78, 72306(%rsp)
				movb	$-77, 72307(%rsp)
				movl	.LC0(%rip), %eax
				movl	%eax, 71068(%rsp)
				leaq	71072(%rsp), %rdi
				leaq	4+.LC0(%rip), %rsi
				movl	$146, %ecx
				rep movsq
				movzwl	(%rsi), %eax
				movw	%ax, (%rdi)
  573     !***  end  of generated tables ***
  574
  575     %routine flush buffer( %integer limit )
		.LVL523:
				pushq	%r12
				pushq	%rbp
				pushq	%rbx
				subq	$784, %rsp
				movq	%fs:40, %rax
				movq	%rax, 776(%rsp)
				xorl	%eax, %eax
  576         %integer j
  577         %if bp >= limit %start
				cmpl	%edi, BP.6500(%rip)
				jl	.L522
				movq	%r10, %rbp
  578         %if faulty = 0 %start
				cmpl	$0, FAULTY.6423(%rip)
				je	.L535
		.LVL524:
		.L524:
  579             selectoutput(object)
  580             %for j = 1, 1, bp %cycle
  581                 printsymbol(buff(j))
				movl	BP.6500(%rip), %r12d
		.LVL528:
				movsbl	(%rbx), %edi
		.LBB549:
		.LBB550:
				call	_imp_printsymbol@PLT
		.LVL531:
				addq	$1, %rbx
		.LBE550:
		.LBE549:
  582             %repeat
				movl	%r12d, %eax
				subl	$1, %eax
				js	.L537
		.L525:
		.LVL529:
				leaq	256(%rsp), %rdi
				leaq	.LC9(%rip), %rsi
				call	_imp_c2istr@PLT
		.LVL535:
				movl	_imp_current_line(%rip), %ebx
				testl	%ebx, %ebx
				movl	$582, %eax
				cmove	%eax, %ebx
				movq	_imp_current_file(%rip), %rsi
				testq	%rsi, %rsi
				je	.L527
				leaq	512(%rsp), %rdi
				call	_imp_c2istr@PLT
		.LVL536:
		.L528:
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	1016(%rsp)
				pushq	1016(%rsp)
				pushq	1016(%rsp)
				pushq	1016(%rsp)
				pushq	1016(%rsp)
				pushq	1016(%rsp)
				pushq	1016(%rsp)
				pushq	1016(%rsp)
				pushq	1016(%rsp)
				pushq	1016(%rsp)
				pushq	1016(%rsp)
				pushq	1016(%rsp)
				pushq	1016(%rsp)
				pushq	1016(%rsp)
				pushq	1016(%rsp)
				pushq	1016(%rsp)
				pushq	1016(%rsp)
				pushq	1016(%rsp)
				pushq	1016(%rsp)
				pushq	1016(%rsp)
				pushq	1016(%rsp)
				pushq	1016(%rsp)
				pushq	1016(%rsp)
				pushq	1016(%rsp)
				pushq	1016(%rsp)
				pushq	1016(%rsp)
				pushq	1016(%rsp)
				pushq	1016(%rsp)
				pushq	1016(%rsp)
				pushq	1016(%rsp)
				pushq	1016(%rsp)
				pushq	1016(%rsp)
				movl	$0, %ecx
				movl	$1, %edx
				movl	$5, %esi
				movl	%ebx, %edi
				call	_signal_event@PLT
		.LVL537:
				addq	$512, %rsp
				jmp	.L525
		.L527:
		.LVL538:
		.LBB551:
				movabsq	$8603403804667503988, %rax
				movabsq	$7579049594837889071, %rdx
				movq	%rax, 513(%rsp)
				movq	%rdx, 521(%rsp)
				movq	$28781, 529(%rsp)
				movq	$0, 537(%rsp)
				movb	$0, 545(%rsp)
				movw	$0, 546(%rsp)
				movl	$0, 548(%rsp)
				leaq	552(%rsp), %rdi
				movl	$27, %ecx
				movl	$0, %eax
				rep stosq
				movb	$18, 512(%rsp)
				movq	512(%rsp), %rax
				movq	520(%rsp), %rdx
				movq	%rax, (%rsp)
				movq	%rdx, 8(%rsp)
				movq	528(%rsp), %rax
				movq	536(%rsp), %rdx
				movq	%rax, 16(%rsp)
				movq	%rdx, 24(%rsp)
				movq	544(%rsp), %rax
				movq	552(%rsp), %rdx
				movq	%rax, 32(%rsp)
				movq	%rdx, 40(%rsp)
				movq	560(%rsp), %rax
				movq	568(%rsp), %rdx
				movq	%rax, 48(%rsp)
				movq	%rdx, 56(%rsp)
				movq	576(%rsp), %rax
				movq	584(%rsp), %rdx
				movq	%rax, 64(%rsp)
				movq	%rdx, 72(%rsp)
				movq	592(%rsp), %rax
				movq	600(%rsp), %rdx
				movq	%rax, 80(%rsp)
				movq	%rdx, 88(%rsp)
				movq	608(%rsp), %rax
				movq	616(%rsp), %rdx
				movq	%rax, 96(%rsp)
				movq	%rdx, 104(%rsp)
				movq	624(%rsp), %rax
				movq	632(%rsp), %rdx
				movq	%rax, 112(%rsp)
				movq	%rdx, 120(%rsp)
				movq	640(%rsp), %rax
				movq	648(%rsp), %rdx
				movq	%rax, 128(%rsp)
				movq	%rdx, 136(%rsp)
				movq	656(%rsp), %rax
				movq	664(%rsp), %rdx
				movq	%rax, 144(%rsp)
				movq	%rdx, 152(%rsp)
				movq	672(%rsp), %rax
				movq	680(%rsp), %rdx
				movq	%rax, 160(%rsp)
				movq	%rdx, 168(%rsp)
				movq	688(%rsp), %rax
				movq	696(%rsp), %rdx
				movq	%rax, 176(%rsp)
				movq	%rdx, 184(%rsp)
				movq	704(%rsp), %rax
				movq	712(%rsp), %rdx
				movq	%rax, 192(%rsp)
				movq	%rdx, 200(%rsp)
				movq	720(%rsp), %rax
				movq	728(%rsp), %rdx
				movq	%rax, 208(%rsp)
				movq	%rdx, 216(%rsp)
				movq	736(%rsp), %rax
				movq	744(%rsp), %rdx
				movq	%rax, 224(%rsp)
				movq	%rdx, 232(%rsp)
				movq	752(%rsp), %rax
				movq	760(%rsp), %rdx
				movq	%rax, 240(%rsp)
				movq	%rdx, 248(%rsp)
		.LVL539:
		.LBE551:
				movb	$18, (%rsp)
				movq	(%rsp), %rax
				movq	8(%rsp), %rdx
				movq	%rax, 512(%rsp)
				movq	%rdx, 520(%rsp)
				jmp	.L528
		.LVL540:
		.L536:
		.LBE554:
  583             selectoutput(listing)
  584         %finish
  585         bp = 0
				movl	$0, BP.6500(%rip)
		.L523:
		.L522:
				testl	%r12d, %r12d
				je	.L529
				leaq	135556(%rbp), %rbx
				leal	-1(%r12), %eax
				leaq	135557(%rbp,%rax), %rbp
		.LVL530:
		.L530:
				cmpq	%rbp, %rbx
				jne	.L530
		.L529:
		.LVL532:
		.LBE548:
		.LBB552:
		.LBB553:
				movl	$2, _imp_OutStream(%rip)
				movq	584+_imp_outfile(%rip), %rax
				movq	%rax, _imp_OutFile(%rip)
				leaq	__PRETTY_FUNCTION__.5991(%rip), %rdi
				call	check_outstream@PLT
		.LVL533:
				jmp	.L524
		.LVL534:
		.L537:
		.LBE553:
		.LBE552:
		.LBB554:
  586         %finish
  587     %end
  588
				movq	776(%rsp), %rax
				xorq	%fs:40, %rax
				jne	.L536
				addq	$784, %rsp
				popq	%rbx
				popq	%rbp
				popq	%r12
				ret
		.LVL525:
		.L535:
		.LBB546:
		.LBB547:
				movl	$1, _imp_OutStream(%rip)
				movq	296+_imp_outfile(%rip), %rax
				movq	%rax, _imp_OutFile(%rip)
				leaq	__PRETTY_FUNCTION__.5991(%rip), %rdi
		.LVL526:
				call	check_outstream@PLT
		.LVL527:
		.LBE547:
		.LBE546:
		.LBB548:
				call	__stack_chk_fail@PLT
		.LVL541:
		.LFE186:
		DEF.7608:
		.LFB219:
  589     %routine add char( %byteinteger ch )
		.LVL0:
  590         bp = bp + 1
				movl	BP.6500(%rip), %eax
				leal	1(%rax), %edx
				movl	%edx, BP.6500(%rip)
  591         buff(bp) = ch
				cltq
				movb	%dil, 135556(%r10,%rax)
  592     %end
  593
				ret
		.LFE187:
		OP.6530:
		.LFB188:
  594     %routine op(%integer code, param)
		.LVL1:
  595         buff(bp+1) = code
				movl	BP.6500(%rip), %eax
				movslq	%eax, %rdx
				movb	%dil, 135556(%r10,%rdx)
  596         buff(bp+2) = param>>8
				leal	1(%rax), %edx
				movslq	%edx, %rdx
				movl	%esi, %ecx
				movzbl	%ch, %ecx
				movb	%cl, 135556(%r10,%rdx)
  597         buff(bp+3) = param
				leal	2(%rax), %edx
				movslq	%edx, %rdx
				movb	%sil, 135556(%r10,%rdx)
  598         bp = bp+3
				addl	$3, %eax
				movl	%eax, BP.6500(%rip)
  599     %end
  600
				ret
		.LFE188:
		SETCONST.6533:
		.LFB189:
  601     %routine set const(%integer m)
		.LVL2:
  602         buff(bp+1) = 'N'
				movl	BP.6500(%rip), %eax
				movslq	%eax, %rdx
				movb	$78, 135556(%r10,%rdx)
  603         buff(bp+5) = m;  m = m>>8
				leal	4(%rax), %edx
				movslq	%edx, %rdx
				movb	%dil, 135556(%r10,%rdx)
		.LVL3:
  604         buff(bp+4) = m;  m = m>>8
				leal	3(%rax), %edx
				movslq	%edx, %rdx
				movl	%edi, %ecx
				movzbl	%ch, %ecx
				movb	%cl, 135556(%r10,%rdx)
		.LVL4:
  605         buff(bp+3) = m;  m = m>>8
				leal	2(%rax), %edx
				movslq	%edx, %rdx
				movl	%edi, %ecx
				shrl	$16, %ecx
		.LVL5:
				movb	%cl, 135556(%r10,%rdx)
		.LVL6:
  606         buff(bp+2) = m
				leal	1(%rax), %edx
				movslq	%edx, %rdx
				shrl	$24, %edi
		.LVL7:
				movb	%dil, 135556(%r10,%rdx)
  607         bp = bp+5
				addl	$5, %eax
				movl	%eax, BP.6500(%rip)
  608     %end
  609
				ret
		.LFE189:
		SETCELL.6842:
		.LFB199:
  610     %routine octal(%integer n)
  611         %integer m
  612         m = n>>3
  613         octal(m) %if m # 0
  614         add char( n&7+'0' )
  615     %end
  616
  617     %routine hexadecimal(%integer n)
  618         %integer m
  619         m = n>>4
  620         hexadecimal(m) %if m # 0
  621         %if n&15 > 9 %then add char( n&15+'A' ) %else add char( n&15+'0' )
  622     %end
  623
  624     %routine print ident(%integer p, mode)
		.LVL32:
				pushq	%r15
				pushq	%r14
				pushq	%r13
				pushq	%r12
				pushq	%rbp
				pushq	%rbx
				subq	$56, %rsp
				movq	%fs:40, %rax
				movq	%rax, 40(%rsp)
				xorl	%eax, %eax
				leaq	112(%rsp), %rax
				movq	%rax, 32(%rsp)
				movl	%esi, 24(%rsp)
				movq	%r10, 16(%rsp)
  625
  626         %routine putit(%integer ch)
		.LVL26:
				subq	$8, %rsp
  627             %if mode = 0 %then %start
				cmpl	$0, 8(%r10)
				je	.L34
		.L31:
  628                 printsymbol(ch)
				movsbl	%dil, %edi
		.LVL30:
		.LBB276:
		.LBB277:
				call	_imp_printsymbol@PLT
		.LVL31:
				jmp	.L30
		.LBE277:
		.LBE276:
		.LFE193:
		PRINTIDENT.6549:
		.LFB192:
  629             %else
  630                 add char( ch )
				movzbl	%dil, %edi
		.LVL27:
				movq	(%r10), %r10
				call	ADDCHAR.6526
		.LVL28:
		.L32:
		.L30:
  631             %finish
  632         %end
  633
				addq	$8, %rsp
				ret
		.LVL29:
		.L34:
  634         %integer k, l
  635         p = tag(p)_text
				movslq	%edi, %rdi
				leaq	(%rdi,%rdi,2), %rax
				movl	49060(%r10,%rax,8), %eax
		.LVL33:
  636         %if p = 0 %start
				testl	%eax, %eax
				je	.L43
		.L36:
				movq	%r10, %r15
  637             putit('?')
				leaq	16(%rsp), %r10
				movl	$63, %edi
				call	PUTIT.6552
		.LVL45:
  638             %return
				jmp	.L35
		.L44:
  639         %finish
  640         p = p+1;       ! advance to name string
				leal	1(%rax), %ebp
		.LVL34:
  641         k = dict(p)
				cltq
				movl	25044(%r10,%rax,4), %ebx
		.LVL35:
  642         l = k & 255;   ! length
  643         %while l > 0 %cycle
  644             putit(k>>8)
				movl	%ebx, %r12d
				andl	$255, %r12d
				je	.L35
				leal	-2(%r12), %edx
				leal	-1(%r12), %eax
				andl	$-2, %eax
				subl	%eax, %edx
				movl	%edx, 12(%rsp)
				leaq	16(%rsp), %r13
		.LVL36:
		.L39:
				shrl	$8, %ebx
		.LVL37:
				movl	%ebx, %edi
				movq	%r13, %r10
				call	PUTIT.6552
		.LVL38:
				cmpl	12(%rsp), %r12d
				jne	.L39
		.L37:
		.LVL43:
		.L35:
  645             l = l-1
  646             p = p+1
				leal	1(%rbp), %r14d
		.LVL39:
				movl	%r14d, %ebp
  647             k = dict(p)
				movslq	%ebp, %rbp
				movl	25044(%r15,%rbp,4), %ebx
		.LVL40:
  648             %exit %if l = 0
				cmpl	$1, %r12d
				je	.L35
		.L38:
  649             putit(k&255)
				movzbl	%bl, %edi
				movq	%r13, %r10
				call	PUTIT.6552
		.LVL41:
  650             l = l-1
				subl	$2, %r12d
		.LVL42:
		.LDL3:
  651         %repeat
  652     %end
  653
				movq	40(%rsp), %rax
				xorq	%fs:40, %rax
				jne	.L44
				addq	$56, %rsp
				popq	%rbx
				popq	%rbp
				popq	%r12
				popq	%r13
				popq	%r14
				popq	%r15
				ret
		.LVL44:
		.L43:
				call	__stack_chk_fail@PLT
		.LVL46:
		.LFE192:
				.section	.rodata.str1.8,"aMS",@progbits,1
				.align 8
		.LC1:
				.string	"->REASON(%d) out of bounds at %s line %d"
				.section	.rodata.str1.1,"aMS",@progbits,1
		.LC2:
				.string	"test-new/pass1.imp"
				.section	.rodata.str1.8
				.align 8
		.LC3:
				.string	"switch jump to undefined label REASON(%d): at %s line %d"
		ABANDON.6563:
		.LFB194:
  654     %routine abandon(%integer n)
		.LVL47:
				pushq	%r14
				pushq	%r13
				pushq	%r12
				pushq	%rbp
				pushq	%rbx
				subq	$1040, %rsp
				movl	%edi, %ebx
				movq	%fs:40, %rax
				movq	%rax, 1032(%rsp)
				xorl	%eax, %eax
		.LVL48:
		.LDL4:
  655         %switch reason(0:9)
  656         %integer stream
  657         stream = listing
  658         %cycle
  659             newline %if sym # nl
				cmpl	$10, SYM.6433(%rip)
				jne	.L59
		.LVL49:
		.L46:
		.LBB278:
		.LBB279:
				movl	$42, %edi
				call	_imp_printsymbol@PLT
		.LVL50:
		.LBE279:
		.LBE278:
  660             printsymbol('*');  write(lines,4);  space
  661             ->reason(n)
				movl	$4, %esi
				movl	LINES.6425(%rip), %edi
				call	_imp_writeint@PLT
		.LVL51:
		.LBB280:
		.LBB281:
				call	_imp_space@PLT
		.LVL52:
		.LDL5:
		.LBE281:
		.LBE280:
  662 reason(0):  printstring("compiler error!");          ->more
  663 reason(1):  printstring("switch vector too large");  ->more
  664 reason(2):  printstring("too many names");           ->more
  665 reason(3):  printstring("program too complex");      ->more
  666 reason(4):  printstring("feature not implemented");  ->more
  667 reason(5):  printstring("input ended: ")
  668             %if quote # 0 %start
  669                 %if quote < 0 %then printsymbol(cquote) %else printsymbol(squote)
  670             %else
  671                 printstring("%endof")
  672                 %if progmode >= 0 %then printstring("program") %else printstring("file")
  673             %finish
  674             printstring(" missing?");                ->more
  675 reason(6):  printstring("too many faults!");         ->more
  676 reason(7):  printstring("string constant too long"); ->more
  677 reason(8):  printstring("dictionary full");          ->more
  678 reason(9):  printstring("Included file ".include file." does not exist")
  679
  680 more:       newline
  681             printstring("***  compilation abandoned ***");  newline
  682             %exit %if stream = report
  683             close output
  684             stream = report
  685             select output(report)
  686         %repeat
  687         !%signal 15,15 %if diag&4096 # 0
  688         %stop
  689     %end
  690
  691     %routine compile block(%integer level, block tag, dmin, tmax, id)
				cmpl	$9, %ebx
				jbe	.L47
				movl	_imp_current_line(%rip), %ebp
				testl	%ebp, %ebp
				movl	$691, %eax
				cmove	%eax, %ebp
				movq	_imp_current_file(%rip), %rsi
				testq	%rsi, %rsi
				je	.L49
				leaq	512(%rsp), %rdi
				call	_imp_c2istr@PLT
		.LVL53:
		.L50:
				pushq	$661
				leaq	.LC2(%rip), %rax
				pushq	%rax
				pushq	776(%rsp)
				pushq	776(%rsp)
				pushq	776(%rsp)
				pushq	776(%rsp)
				pushq	776(%rsp)
				pushq	776(%rsp)
				pushq	776(%rsp)
				pushq	776(%rsp)
				pushq	776(%rsp)
				pushq	776(%rsp)
				pushq	776(%rsp)
				pushq	776(%rsp)
				pushq	776(%rsp)
				pushq	776(%rsp)
				pushq	776(%rsp)
				pushq	776(%rsp)
				pushq	776(%rsp)
				pushq	776(%rsp)
				pushq	776(%rsp)
				pushq	776(%rsp)
				pushq	776(%rsp)
				pushq	776(%rsp)
				pushq	776(%rsp)
				pushq	776(%rsp)
				pushq	776(%rsp)
				pushq	776(%rsp)
				pushq	776(%rsp)
				pushq	776(%rsp)
				pushq	776(%rsp)
				pushq	776(%rsp)
				pushq	776(%rsp)
				pushq	776(%rsp)
				movl	%ebx, %r9d
				leaq	.LC1(%rip), %r8
				movl	%ebx, %ecx
				movl	$3, %edx
				movl	$6, %esi
				movl	%ebp, %edi
				movl	$0, %eax
				call	_signal_eventf@PLT
		.LVL54:
				addq	$272, %rsp
		.L47:
		.L51:
				movabsq	$8603403804667503988, %rax
				movabsq	$7579049594837889071, %rdx
				movq	%rax, 769(%rsp)
				movq	%rdx, 777(%rsp)
				movq	$28781, 785(%rsp)
				movq	$0, 793(%rsp)
				movb	$0, 801(%rsp)
				movw	$0, 802(%rsp)
				movl	$0, 804(%rsp)
				leaq	808(%rsp), %rdi
				movl	$27, %ecx
				movl	$0, %eax
				rep stosq
				movb	$18, 768(%rsp)
				movq	768(%rsp), %rax
				movq	776(%rsp), %rdx
				movq	%rax, (%rsp)
				movq	%rdx, 8(%rsp)
				movdqa	784(%rsp), %xmm11
				movaps	%xmm11, 16(%rsp)
				movdqa	800(%rsp), %xmm9
				movaps	%xmm9, 32(%rsp)
				movdqa	816(%rsp), %xmm7
				movaps	%xmm7, 48(%rsp)
				movdqa	832(%rsp), %xmm13
				movaps	%xmm13, 64(%rsp)
				movdqa	848(%rsp), %xmm15
				movaps	%xmm15, 80(%rsp)
				movq	864(%rsp), %r13
				movq	872(%rsp), %r14
				movq	%r13, 96(%rsp)
				movq	%r14, 104(%rsp)
				movdqa	880(%rsp), %xmm0
				movaps	%xmm0, 112(%rsp)
				movdqa	896(%rsp), %xmm2
				movaps	%xmm2, 128(%rsp)
				movq	912(%rsp), %r11
				movq	920(%rsp), %r12
				movq	%r11, 144(%rsp)
				movq	%r12, 152(%rsp)
				movdqa	928(%rsp), %xmm5
				movaps	%xmm5, 160(%rsp)
				movdqa	944(%rsp), %xmm3
				movaps	%xmm3, 176(%rsp)
				movdqa	960(%rsp), %xmm1
				movaps	%xmm1, 192(%rsp)
				movq	976(%rsp), %r9
				movq	984(%rsp), %r10
				movq	%r9, 208(%rsp)
				movq	%r10, 216(%rsp)
				movq	992(%rsp), %rsi
				movq	1000(%rsp), %rdi
				movq	%rsi, 224(%rsp)
				movq	%rdi, 232(%rsp)
				movq	1008(%rsp), %rax
				movq	1016(%rsp), %rdx
				movq	%rax, 240(%rsp)
				movq	%rdx, 248(%rsp)
		.LVL62:
		.LBE285:
				movb	$18, (%rsp)
				movdqa	(%rsp), %xmm4
				movaps	%xmm4, 512(%rsp)
				movaps	%xmm11, 528(%rsp)
				movaps	%xmm9, 544(%rsp)
				movaps	%xmm7, 560(%rsp)
				movaps	%xmm13, 576(%rsp)
				movaps	%xmm15, 592(%rsp)
				movq	%r13, 608(%rsp)
				movq	%r14, 616(%rsp)
				movaps	%xmm0, 624(%rsp)
				movaps	%xmm2, 640(%rsp)
				movq	%r11, 656(%rsp)
				movq	%r12, 664(%rsp)
				movaps	%xmm5, 672(%rsp)
				movaps	%xmm3, 688(%rsp)
				movaps	%xmm1, 704(%rsp)
				movq	%r9, 720(%rsp)
				movq	%r10, 728(%rsp)
				movq	%rsi, 736(%rsp)
				movq	%rdi, 744(%rsp)
				movq	%rax, 752(%rsp)
				movq	%rdx, 760(%rsp)
				jmp	.L50
		.L60:
				pushq	%r15
				pushq	%r14
				pushq	%r13
				pushq	%r12
				pushq	%rbp
				pushq	%rbx
				subq	$1704, %rsp
				movl	%esi, %r15d
				movq	%r10, %rbp
				movq	%fs:40, %rax
				movq	%rax, 1688(%rsp)
				xorl	%eax, %eax
				leaq	1760(%rsp), %rax
				movq	%rax, 128(%rsp)
				movl	%edi, 108(%rsp)
				movl	%esi, 76(%rsp)
				movl	%ecx, 112(%rsp)
				movl	%r8d, 104(%rsp)
				movq	%r10, 56(%rsp)
  692
  693         %integerfnspec gapp
  694         %routinespec delete names(%integer quiet)
				movl	_imp_current_line(%rip), %ebp
				testl	%ebp, %ebp
				movl	$694, %eax
				cmove	%eax, %ebp
				movq	_imp_current_file(%rip), %rsi
				testq	%rsi, %rsi
				jne	.L60
		.LVL55:
		.LBB282:
				movabsq	$8603403804667503988, %rax
				movabsq	$7579049594837889071, %rdx
				movq	%rax, 769(%rsp)
				movq	%rdx, 777(%rsp)
				movq	$28781, 785(%rsp)
				movq	$0, 793(%rsp)
				movb	$0, 801(%rsp)
				movw	$0, 802(%rsp)
				movl	$0, 804(%rsp)
				leaq	808(%rsp), %rdi
				movl	$27, %ecx
				movl	$0, %eax
				rep stosq
				movb	$18, 768(%rsp)
				movq	768(%rsp), %rax
				movq	776(%rsp), %rdx
				movq	%rax, 256(%rsp)
				movq	%rdx, 264(%rsp)
				movq	784(%rsp), %rax
				movq	792(%rsp), %rdx
				movq	%rax, 272(%rsp)
				movq	%rdx, 280(%rsp)
				movq	800(%rsp), %rax
				movq	808(%rsp), %rdx
				movq	%rax, 288(%rsp)
				movq	%rdx, 296(%rsp)
				movq	816(%rsp), %rax
				movq	824(%rsp), %rdx
				movq	%rax, 304(%rsp)
				movq	%rdx, 312(%rsp)
				movq	832(%rsp), %rax
				movq	840(%rsp), %rdx
				movq	%rax, 320(%rsp)
				movq	%rdx, 328(%rsp)
				movq	848(%rsp), %rax
				movq	856(%rsp), %rdx
				movq	%rax, 336(%rsp)
				movq	%rdx, 344(%rsp)
				movq	864(%rsp), %rax
				movq	872(%rsp), %rdx
				movq	%rax, 352(%rsp)
				movq	%rdx, 360(%rsp)
				movq	880(%rsp), %rax
				movq	888(%rsp), %rdx
				movq	%rax, 368(%rsp)
				movq	%rdx, 376(%rsp)
				movq	896(%rsp), %rax
				movq	904(%rsp), %rdx
				movq	%rax, 384(%rsp)
				movq	%rdx, 392(%rsp)
				movq	912(%rsp), %rax
				movq	920(%rsp), %rdx
				movq	%rax, 400(%rsp)
				movq	%rdx, 408(%rsp)
				movq	928(%rsp), %rax
				movq	936(%rsp), %rdx
				movq	%rax, 416(%rsp)
				movq	%rdx, 424(%rsp)
				movq	944(%rsp), %rax
				movq	952(%rsp), %rdx
				movq	%rax, 432(%rsp)
				movq	%rdx, 440(%rsp)
				movq	960(%rsp), %rax
				movq	968(%rsp), %rdx
				movq	%rax, 448(%rsp)
				movq	%rdx, 456(%rsp)
				movq	976(%rsp), %rax
				movq	984(%rsp), %rdx
				movq	%rax, 464(%rsp)
				movq	%rdx, 472(%rsp)
				movq	992(%rsp), %rax
				movq	1000(%rsp), %rdx
				movq	%rax, 480(%rsp)
				movq	%rdx, 488(%rsp)
				movq	1008(%rsp), %rax
				movq	1016(%rsp), %rdx
				movq	%rax, 496(%rsp)
				movq	%rdx, 504(%rsp)
		.LVL56:
		.LBE282:
				movb	$18, 256(%rsp)
				movq	256(%rsp), %rax
				movq	264(%rsp), %rdx
				movq	%rax, 768(%rsp)
				movq	%rdx, 776(%rsp)
		.L54:
				pushq	$661
				leaq	.LC2(%rip), %rax
				pushq	%rax
				pushq	1032(%rsp)
				pushq	1032(%rsp)
				pushq	1032(%rsp)
				pushq	1032(%rsp)
				pushq	1032(%rsp)
				pushq	1032(%rsp)
				pushq	1032(%rsp)
				pushq	1032(%rsp)
				pushq	1032(%rsp)
				pushq	1032(%rsp)
				pushq	1032(%rsp)
				pushq	1032(%rsp)
				pushq	1032(%rsp)
				pushq	1032(%rsp)
				pushq	1032(%rsp)
				pushq	1032(%rsp)
				pushq	1032(%rsp)
				pushq	1032(%rsp)
				pushq	1032(%rsp)
				pushq	1032(%rsp)
				pushq	1032(%rsp)
				pushq	1032(%rsp)
				pushq	1032(%rsp)
				pushq	1032(%rsp)
				pushq	1032(%rsp)
				pushq	1032(%rsp)
				pushq	1032(%rsp)
				pushq	1032(%rsp)
				pushq	1032(%rsp)
				pushq	1032(%rsp)
				pushq	1032(%rsp)
				pushq	1032(%rsp)
				movl	%ebx, %r9d
				leaq	.LC3(%rip), %r8
				movl	%ebx, %ecx
				movl	$2, %edx
				movl	$8, %esi
				movl	%ebp, %edi
				movl	$0, %eax
				call	_signal_eventf@PLT
		.LVL57:
				leaq	768(%rsp), %rdi
				call	_imp_c2istr@PLT
		.LVL63:
				jmp	.L54
		.L61:
  695         %routinespec analyse
				addq	$272, %rsp
				movq	1032(%rsp), %rax
				xorq	%fs:40, %rax
				jne	.L61
				addq	$1040, %rsp
				popq	%rbx
		.LVL58:
				popq	%rbp
				popq	%r12
				popq	%r13
				popq	%r14
				ret
		.LVL59:
		.L59:
		.LBB283:
		.LBB284:
				call	_imp_newline@PLT
		.LVL60:
				jmp	.L46
		.LVL61:
		.L49:
		.LBE284:
		.LBE283:
		.LBB285:
				call	__stack_chk_fail@PLT
		.LVL64:
		.LFE194:
		GETSYM.6938:
		.LFB205:
  696         %routinespec compile
  697
  698         %integer open;    open       = closed;      !zero if can return from proc
  699         %integer dbase;   dbase      = dmax;        !dictionary base
				movl	$16384, 80(%rsp)
		.LVL895:
  700         %integer tbase;   tbase      = tmax;        !tag base
  701         %integer tstart;  tstart     = tmax
				movl	%ecx, 116(%rsp)
  702         %integer label;   label      = 4;           !first internal label
				movl	%ecx, 120(%rsp)
  703         %integer access;  access     = 1;           !non-zero if accessible
				movl	$4, 72(%rsp)
  704         %integer inhibit; inhibit    = 0;           !non-zero inhibits declaratons
				movl	$1, 84(%rsp)
  705
				movl	$0, 68(%rsp)
  706         %integername bflags;      bflags      == tag(block tag)_flags
  707         %integer block type;      block type   = bflags>>4&7
				movslq	%esi, %rcx
				leaq	(%rcx,%rcx), %rax
				leaq	(%rax,%rcx), %rsi
				leaq	49052(%r10,%rsi,8), %rsi
				movq	%rsi, 48(%rsp)
  708         %integer block form;      block form   = bflags&15
				leaq	(%rax,%rcx), %rsi
				movl	49052(%r10,%rsi,8), %esi
				movl	%esi, %edi
				shrl	$4, %edi
				andl	$7, %edi
				movl	%edi, 92(%rsp)
  709         %integer block fm;        block fm     = tag(block tag)_format
				andl	$15, %esi
				movl	%esi, 96(%rsp)
  710         %integer block otype;     block otype  = otype
				addq	%rcx, %rax
				movl	49048(%r10,%rax,8), %eax
				movl	%eax, 88(%rsp)
  711         %integername block app;   block app   == tag(block tag)_app
				movl	OTYPE.6445(%rip), %eax
				movl	%eax, 12(%rsp)
		.LVL896:
  712
  713         %integer l, new app
  714
  715         %routine fault(%integer n)
		.LVL289:
				pushq	%r15
				pushq	%r14
				pushq	%r13
				pushq	%r12
				pushq	%rbp
				pushq	%rbx
				subq	$2088, %rsp
				movl	%edi, %r15d
				movq	%r10, 8(%rsp)
				movq	%fs:40, %rax
				movq	%rax, 2072(%rsp)
				xorl	%eax, %eax
  716             ! -5 : -1  - warnings
  717             !  1 : 22  - errors
  718
  719             %switch fm(-5:22)
  720             %integer st
  721
  722             %routine print ss
  723                 %integer s, p
  724                 %return %if pos = 0
				cmpl	$0, POS.6481(%rip)
				jne	.L382
		.L349:
		.LDL18:
		.LBE396:
		.LBE395:
		.LBB404:
		.LBB405:
				call	_imp_newline@PLT
		.LVL302:
		.LBE405:
		.LBE404:
  725                 space
  726                 p = 1
				movl	$1, %ebx
				jmp	.L351
		.LVL321:
		.L387:
		.LBB399:
		.LBB400:
				movl	$94, %edi
				call	_imp_printsymbol@PLT
		.LVL322:
				jmp	.L352
		.L357:
		.L358:
		.LVL323:
		.L359:
		.LBE400:
		.LBE399:
  727                 %cycle
  728                     printsymbol(marker) %if p = pos1
				cmpl	%ebx, POS1.6479(%rip)
				je	.L387
		.L352:
  729                     %exit %if p = pos
				movl	POS.6481(%rip), %eax
				cmpl	%eax, %ebx
				je	.L360
		.L354:
  730                     s = char(p);  p = p+1
				movzbl	(%r12), %edi
		.LVL327:
  731                     %exit %if s = nl %or (s='%' %and p = pos)
				addl	$1, %ebx
		.LVL328:
				cmpl	$10, %edi
				je	.L360
  732                     %if s < ' ' %start;         !beware of tabs
				cmpl	$31, %edi
				jg	.L359
  733                         %if s = ff %then s = nl %else s = ' '
				cmpl	%ebx, %eax
				jne	.L356
				cmpl	$37, %edi
				je	.L360
		.L356:
  734                     %finish
  735                     printsymbol(s)
				movsbl	%dil, %edi
		.LVL324:
		.LBB401:
		.LBB402:
				call	_imp_printsymbol@PLT
		.LVL325:
				addq	$1, %r12
		.LVL326:
		.L351:
		.LBE402:
		.LBE401:
  736                 %repeat
  737                 pos = 0 %if list <= 0
				cmpl	$12, %edi
				movl	$32, %edi
		.LVL329:
				movl	$10, %eax
				cmove	%eax, %edi
				jmp	.L359
		.L353:
		.LVL330:
		.L360:
				cmpl	$0, LIST.6493(%rip)
				jg	.L349
  738             %end
				movl	$0, POS.6481(%rip)
				jmp	.L349
		.LVL331:
		.L383:
		.L362:
		.LBE403:
		.LBE417:
  739
  740             pos1 = pos2 %if pos2 > pos1
				movl	POS2.6480(%rip), %eax
				cmpl	POS1.6479(%rip), %eax
				jle	.L339
  741             newline %if sym # nl
				movl	%eax, POS1.6479(%rip)
		.L339:
				cmpl	$10, SYM.6433(%rip)
				jne	.L379
		.LVL290:
		.L340:
  742             st = report
  743             st = listing %if n = -3;              !don't report unused on the console
  744             %cycle
				cmpl	$-3, %r15d
				sete	%bpl
				movzbl	%bpl, %ebp
				addl	%ebp, %ebp
				jmp	.L361
		.LVL291:
		.L379:
		.LBB384:
		.LBB385:
				call	_imp_newline@PLT
		.LVL292:
				jmp	.L340
		.LVL293:
		.L384:
		.LBE385:
		.LBE384:
		.LBB386:
		.LBB387:
				movl	$63, %edi
				call	_imp_printsymbol@PLT
		.LVL294:
		.LBE387:
		.LBE386:
  745                 select output(st)
  746                 %if n < 0 %then printsymbol('?') %and pos1 = 0 %else printsymbol('*')
				testl	%r15d, %r15d
				js	.L384
		.L342:
		.LVL305:
		.LBB408:
		.LBB409:
				movl	$42, %edi
				call	_imp_printsymbol@PLT
		.LVL306:
		.L343:
		.LBE409:
		.LBE408:
  747                 %if st # report %start
				testl	%ebp, %ebp
				je	.L344
  748                     %if list <= 0 %and pos1 # 0 %start
				movl	$0, POS1.6479(%rip)
				cmpl	$0, LIST.6493(%rip)
				jg	.L347
  749                         spaces(pos1+margin);  printstring("      ! ")
				jmp	.L343
		.L344:
				movl	POS1.6479(%rip), %edi
				testl	%edi, %edi
				je	.L347
		.LVL307:
				addl	MARGIN.6427(%rip), %edi
		.LVL308:
		.LBB410:
		.LBB411:
				call	_imp_spaces@PLT
		.LVL309:
		.LBE411:
		.LBE410:
		.LBB412:
  750                     %finish
				movabsq	$2315167005795164192, %rax
				movl	$0, %edx
				movq	%rax, 1041(%rsp)
				movq	%rdx, 1049(%rsp)
				movb	$0, 1057(%rsp)
				movw	$0, 1058(%rsp)
				movl	$0, 1060(%rsp)
				leaq	1064(%rsp), %rdi
				movl	$29, %ecx
				movl	$0, %eax
				rep stosq
				movb	$8, 1040(%rsp)
				movq	1040(%rsp), %rax
				movq	1048(%rsp), %rdx
				movq	%rax, 16(%rsp)
				movq	%rdx, 24(%rsp)
				movdqa	1056(%rsp), %xmm3
				movaps	%xmm3, 32(%rsp)
				movdqa	1072(%rsp), %xmm4
				movaps	%xmm4, 48(%rsp)
				movdqa	1088(%rsp), %xmm5
				movaps	%xmm5, 64(%rsp)
				movdqa	1104(%rsp), %xmm6
				movaps	%xmm6, 80(%rsp)
				movdqa	1120(%rsp), %xmm7
				movaps	%xmm7, 96(%rsp)
				movdqa	1136(%rsp), %xmm3
				movaps	%xmm3, 112(%rsp)
				movdqa	1152(%rsp), %xmm4
				movaps	%xmm4, 128(%rsp)
				movdqa	1168(%rsp), %xmm5
				movaps	%xmm5, 144(%rsp)
				movdqa	1184(%rsp), %xmm6
				movaps	%xmm6, 160(%rsp)
				movq	1200(%rsp), %r13
				movq	1208(%rsp), %r14
				movq	%r13, 176(%rsp)
				movq	%r14, 184(%rsp)
				movq	1216(%rsp), %rax
				movq	1224(%rsp), %rdx
				movq	%rax, 192(%rsp)
				movq	%rdx, 200(%rsp)
				movq	1232(%rsp), %rcx
				movq	1240(%rsp), %rbx
				movq	%rcx, 208(%rsp)
				movq	%rbx, 216(%rsp)
				movq	1248(%rsp), %rsi
				movq	1256(%rsp), %rdi
				movq	%rsi, 224(%rsp)
				movq	%rdi, 232(%rsp)
				movq	1264(%rsp), %r9
				movq	1272(%rsp), %r10
				movq	%r9, 240(%rsp)
				movq	%r10, 248(%rsp)
				movq	1280(%rsp), %r11
				movq	1288(%rsp), %r12
				movq	%r11, 256(%rsp)
				movq	%r12, 264(%rsp)
		.LVL310:
				movb	$8, 16(%rsp)
				movdqa	16(%rsp), %xmm7
				movaps	%xmm7, 1296(%rsp)
				movdqa	1056(%rsp), %xmm3
				movaps	%xmm3, 1312(%rsp)
				movdqa	1072(%rsp), %xmm4
				movaps	%xmm4, 1328(%rsp)
				movdqa	1088(%rsp), %xmm5
				movaps	%xmm5, 1344(%rsp)
				movdqa	1104(%rsp), %xmm6
				movaps	%xmm6, 1360(%rsp)
				movdqa	1120(%rsp), %xmm7
				movaps	%xmm7, 1376(%rsp)
				movdqa	1136(%rsp), %xmm3
				movaps	%xmm3, 1392(%rsp)
				movdqa	1152(%rsp), %xmm4
				movaps	%xmm4, 1408(%rsp)
				movdqa	1168(%rsp), %xmm5
				movaps	%xmm5, 1424(%rsp)
				movdqa	1184(%rsp), %xmm6
				movaps	%xmm6, 1440(%rsp)
				movq	%r13, 1456(%rsp)
				movq	%r14, 1464(%rsp)
				movq	%rax, 1472(%rsp)
				movq	%rdx, 1480(%rsp)
				movq	%rcx, 1488(%rsp)
				movq	%rbx, 1496(%rsp)
				movq	%rsi, 1504(%rsp)
				movq	%rdi, 1512(%rsp)
				movq	%r9, 1520(%rsp)
				movq	%r10, 1528(%rsp)
				movq	%r11, 1536(%rsp)
				movq	%r12, 1544(%rsp)
		.LBE412:
		.LBB413:
		.LBB414:
				pushq	%r12
				pushq	%r11
				pushq	%r10
				pushq	%r9
				pushq	%rdi
				pushq	%rsi
				pushq	%rbx
				pushq	%rcx
				pushq	%rdx
				pushq	%rax
				pushq	%r14
				pushq	%r13
				pushq	1288(%rsp)
				pushq	1288(%rsp)
				pushq	1288(%rsp)
				pushq	1288(%rsp)
				pushq	1288(%rsp)
				pushq	1288(%rsp)
				pushq	1288(%rsp)
				pushq	1288(%rsp)
				pushq	1288(%rsp)
				pushq	1288(%rsp)
				pushq	1288(%rsp)
				pushq	1288(%rsp)
				pushq	1288(%rsp)
				pushq	1288(%rsp)
				pushq	1288(%rsp)
				pushq	1288(%rsp)
				pushq	1288(%rsp)
				pushq	1288(%rsp)
				pushq	264(%rsp)
				pushq	264(%rsp)
				call	_imp_printstring@PLT
		.LVL311:
				addq	$256, %rsp
				jmp	.L347
		.L380:
				movdqa	272(%rsp), %xmm3
				movaps	%xmm3, 1552(%rsp)
				movdqa	288(%rsp), %xmm4
				movaps	%xmm4, 1568(%rsp)
				movdqa	304(%rsp), %xmm5
				movaps	%xmm5, 1584(%rsp)
				movdqa	320(%rsp), %xmm6
				movaps	%xmm6, 1600(%rsp)
				movdqa	336(%rsp), %xmm7
				movaps	%xmm7, 1616(%rsp)
				movdqa	352(%rsp), %xmm3
				movaps	%xmm3, 1632(%rsp)
				movdqa	368(%rsp), %xmm4
				movaps	%xmm4, 1648(%rsp)
				movdqa	384(%rsp), %xmm5
				movaps	%xmm5, 1664(%rsp)
				movdqa	400(%rsp), %xmm6
				movaps	%xmm6, 1680(%rsp)
				movdqa	416(%rsp), %xmm7
				movaps	%xmm7, 1696(%rsp)
				movq	432(%rsp), %r13
				movq	440(%rsp), %r14
				movq	%r13, 1712(%rsp)
				movq	%r14, 1720(%rsp)
				movq	448(%rsp), %rax
				movq	456(%rsp), %rdx
				movq	%rax, 1728(%rsp)
				movq	%rdx, 1736(%rsp)
				movq	464(%rsp), %rcx
				movq	472(%rsp), %rbx
				movq	%rcx, 1744(%rsp)
				movq	%rbx, 1752(%rsp)
				movq	480(%rsp), %rsi
				movq	488(%rsp), %rdi
				movq	%rsi, 1760(%rsp)
				movq	%rdi, 1768(%rsp)
				movq	496(%rsp), %r9
				movq	504(%rsp), %r10
				movq	%r9, 1776(%rsp)
				movq	%r10, 1784(%rsp)
				movq	512(%rsp), %r11
				movq	520(%rsp), %r12
				movq	%r11, 1792(%rsp)
				movq	%r12, 1800(%rsp)
		.LBE414:
		.LBE413:
		.LBB415:
		.LBB416:
				pushq	%r12
				pushq	%r11
				pushq	%r10
				pushq	%r9
				pushq	%rdi
				pushq	%rsi
				pushq	%rbx
				pushq	%rcx
				pushq	%rdx
				pushq	%rax
				pushq	%r14
				pushq	%r13
				pushq	520(%rsp)
				pushq	520(%rsp)
				pushq	520(%rsp)
				pushq	520(%rsp)
				pushq	520(%rsp)
				pushq	520(%rsp)
				pushq	520(%rsp)
				pushq	520(%rsp)
				pushq	520(%rsp)
				pushq	520(%rsp)
				pushq	520(%rsp)
				pushq	520(%rsp)
				pushq	520(%rsp)
				pushq	520(%rsp)
				pushq	520(%rsp)
				pushq	520(%rsp)
				pushq	520(%rsp)
				pushq	520(%rsp)
				pushq	520(%rsp)
				pushq	520(%rsp)
				call	_imp_printstring@PLT
		.LVL312:
				addq	$256, %rsp
				jmp	.L346
		.L381:
		.LVL313:
		.LDL19:
		.L368:
		.LBE416:
		.LBE415:
  751                 %finish %else %start
  752                     printstring(include file) %if include # 0
				cmpl	$0, INCLUDE.6467(%rip)
				jne	.L380
		.L346:
  753                     write(lines, 4);  printsymbol(csym);  space
				movl	$4, %esi
				movl	LINES.6425(%rip), %edi
				call	_imp_writeint@PLT
		.LVL295:
  754                 %finish
				movsbl	CSYM.6438(%rip), %edi
		.LBB388:
		.LBB389:
				call	_imp_printsymbol@PLT
		.LVL296:
		.LBE389:
		.LBE388:
		.LBB390:
		.LBB391:
				call	_imp_space@PLT
		.LVL297:
		.L345:
		.L347:
		.LBE391:
		.LBE390:
  755                 ->fm(n) %if -5 <= n %and n <= 22
  756                 printstring("fault");  write(n, 2);              ->ps
				leal	5(%r15), %eax
				cmpl	$27, %eax
				jbe	.L381
		.L348:
		.LVL298:
		.LBB392:
				movabsq	$500035838310, %rax
				movl	$0, %edx
				movq	%rax, 1041(%rsp)
				movq	%rdx, 1049(%rsp)
				movb	$0, 1057(%rsp)
				movw	$0, 1058(%rsp)
				movl	$0, 1060(%rsp)
				leaq	1064(%rsp), %rdi
				movl	$29, %ecx
				movl	$0, %eax
				rep stosq
				movb	$5, 1040(%rsp)
				movq	1040(%rsp), %rax
				movq	1048(%rsp), %rdx
				movq	%rax, 528(%rsp)
				movq	%rdx, 536(%rsp)
				movdqa	1056(%rsp), %xmm0
				movaps	%xmm0, 544(%rsp)
				movdqa	1072(%rsp), %xmm1
				movaps	%xmm1, 560(%rsp)
				movdqa	1088(%rsp), %xmm2
				movaps	%xmm2, 576(%rsp)
				movdqa	1104(%rsp), %xmm3
				movaps	%xmm3, 592(%rsp)
				movdqa	1120(%rsp), %xmm4
				movaps	%xmm4, 608(%rsp)
				movdqa	1136(%rsp), %xmm5
				movaps	%xmm5, 624(%rsp)
				movdqa	1152(%rsp), %xmm6
				movaps	%xmm6, 640(%rsp)
				movdqa	1168(%rsp), %xmm7
				movaps	%xmm7, 656(%rsp)
				movdqa	1184(%rsp), %xmm0
				movaps	%xmm0, 672(%rsp)
				movq	1200(%rsp), %r13
				movq	1208(%rsp), %r14
				movq	%r13, 688(%rsp)
				movq	%r14, 696(%rsp)
				movq	1216(%rsp), %rax
				movq	1224(%rsp), %rdx
				movq	%rax, 704(%rsp)
				movq	%rdx, 712(%rsp)
				movq	1232(%rsp), %rcx
				movq	1240(%rsp), %rbx
				movq	%rcx, 720(%rsp)
				movq	%rbx, 728(%rsp)
				movq	1248(%rsp), %rsi
				movq	1256(%rsp), %rdi
				movq	%rsi, 736(%rsp)
				movq	%rdi, 744(%rsp)
				movq	1264(%rsp), %r9
				movq	1272(%rsp), %r10
				movq	%r9, 752(%rsp)
				movq	%r10, 760(%rsp)
				movq	1280(%rsp), %r11
				movq	1288(%rsp), %r12
				movq	%r11, 768(%rsp)
				movq	%r12, 776(%rsp)
		.LVL299:
				movb	$5, 528(%rsp)
				movdqa	528(%rsp), %xmm1
				movaps	%xmm1, 1808(%rsp)
				movdqa	1056(%rsp), %xmm2
				movaps	%xmm2, 1824(%rsp)
				movdqa	1072(%rsp), %xmm3
				movaps	%xmm3, 1840(%rsp)
				movdqa	1088(%rsp), %xmm4
				movaps	%xmm4, 1856(%rsp)
				movdqa	1104(%rsp), %xmm5
				movaps	%xmm5, 1872(%rsp)
				movdqa	1120(%rsp), %xmm6
				movaps	%xmm6, 1888(%rsp)
				movdqa	1136(%rsp), %xmm7
				movaps	%xmm7, 1904(%rsp)
				movdqa	1152(%rsp), %xmm0
				movaps	%xmm0, 1920(%rsp)
				movdqa	1168(%rsp), %xmm1
				movaps	%xmm1, 1936(%rsp)
				movdqa	1184(%rsp), %xmm2
				movaps	%xmm2, 1952(%rsp)
				movq	%r13, 1968(%rsp)
				movq	%r14, 1976(%rsp)
				movq	%rax, 1984(%rsp)
				movq	%rdx, 1992(%rsp)
				movq	%rcx, 2000(%rsp)
				movq	%rbx, 2008(%rsp)
				movq	%rsi, 2016(%rsp)
				movq	%rdi, 2024(%rsp)
				movq	%r9, 2032(%rsp)
				movq	%r10, 2040(%rsp)
				movq	%r11, 2048(%rsp)
				movq	%r12, 2056(%rsp)
		.LBE392:
		.LBB393:
		.LBB394:
				pushq	%r12
				pushq	%r11
				pushq	%r10
				pushq	%r9
				pushq	%rdi
				pushq	%rsi
				pushq	%rbx
				pushq	%rcx
				pushq	%rdx
				pushq	%rax
				pushq	%r14
				pushq	%r13
				pushq	1288(%rsp)
				pushq	1288(%rsp)
				pushq	1288(%rsp)
				pushq	1288(%rsp)
				pushq	1288(%rsp)
				pushq	1288(%rsp)
				pushq	1288(%rsp)
				pushq	1288(%rsp)
				pushq	1288(%rsp)
				pushq	1288(%rsp)
				pushq	1288(%rsp)
				pushq	1288(%rsp)
				pushq	1288(%rsp)
				pushq	1288(%rsp)
				pushq	1288(%rsp)
				pushq	1288(%rsp)
				pushq	1288(%rsp)
				pushq	1288(%rsp)
				pushq	776(%rsp)
				pushq	776(%rsp)
				call	_imp_printstring@PLT
		.LVL300:
		.LBE394:
		.LBE393:
  757
				addq	$256, %rsp
				movl	$2, %esi
				movl	%r15d, %edi
				call	_imp_writeint@PLT
		.LVL301:
		.LDL17:
		.LBB395:
		.LBB396:
  758 fm(-5):         printstring("Dubious statement");  dubious = 0;        ->psd
  759 fm(-4):         printstring("Non-local")
  760                 pos1 = for warn;  for warn = 0;                        ->ps
  761 fm(-3):         print ident(x, 0);  printstring(" unused");            ->nps
  762 fm(-2):         printstring("""}""");                                  ->miss
  763 fm(-1):         printstring("access");                                 ->psd
  764 fm(0):          printstring("form");                                   ->ps
  765 fm(1):          printstring("atom");                                   ->ps
  766 fm(2):          printstring("not declared");                           ->ps
  767 fm(3):          printstring("too complex");                            ->ps
  768 fm(4):          printstring("duplicate ");  Print Ident(x, 0);         ->ps
  769 fm(5):          printstring("type");                                   ->ps
  770 fm(6):          printstring("match");                                  ->psd
  771 fm(7):          printstring("context");                                ->psd
  772 fm(8):          printstring("%cycle");                                 ->miss
  773 fm(9):          printstring("%start");                                 ->miss
  774 fm(10):         printstring("size");  write(lit, 1) %if pos1 = 0;      ->ps
  775 fm(11):         printstring("bounds")
  776                 write(ocount, 1) %unless ocount < 0;                   ->ps
  777 fm(12):         printstring("index");                                  ->ps
  778 fm(13):         printstring("order");                                  ->psd
  779 fm(14):         printstring("not a location");                         ->ps
  780 fm(15):         printstring("%begin");                                 ->miss
  781 fm(16):         printstring("%end");                                   ->miss
  782 fm(17):         printstring("%repeat");                                ->miss
  783 fm(18):         printstring("%finish");                                ->miss
  784 fm(19):         printstring("result");                                 ->miss
  785 fm(20):         printsymbol('"'); print ident(x, 0); printsymbol('"'); ->miss
  786 fm(21):         printstring("context ");  print ident(this, 0);        ->ps
  787 fm(22):         printstring("format");                                 ->ps
  788
  789 miss:           printstring(" missing");                               ->nps
  790 psd:            pos1 = 0
  791 ps:             print ss
  792 nps:            newline
  793                 %exit %if st = listing
				cmpl	$2, %ebp
				je	.L383
  794                 st = listing
				movl	$2, %ebp
		.LVL303:
		.L361:
		.LBB406:
		.LBB407:
				movl	%ebp, _imp_OutStream(%rip)
				movslq	%ebp, %rax
				leaq	(%rax,%rax,8), %rax
				salq	$5, %rax
				leaq	_imp_outfile(%rip), %rdx
				movq	8(%rdx,%rax), %rax
				movq	%rax, _imp_OutFile(%rip)
				leaq	__PRETTY_FUNCTION__.5991(%rip), %rdi
				call	check_outstream@PLT
		.LVL304:
		.LBE407:
		.LBE406:
  795             %repeat
  796             %if n >= 0 %start
				testl	%r15d, %r15d
				js	.L366
  797                 !%signal 15,15 %if diag&4096 # 0
  798                 %if n # 13 %start;           !order is fairly safe
				cmpl	$13, %r15d
				je	.L364
  799                     ocount = -1
				movl	$-1, OCOUNT.6472(%rip)
  800                     gg = 0
				movl	$0, GG.6454(%rip)
  801                     copy = 0;  quote = 0
				movl	$0, COPY.6474(%rip)
  802                     search base = 0;  escape class = 0
				movl	$0, QUOTE.6435(%rip)
				movl	$0, SEARCHBASE.6485(%rip)
  803                     gg = 0
				movl	$0, ESCAPECLASS.6442(%rip)
		.L364:
  804                 %finish
  805                 faulty = faulty+1
				addl	$1, FAULTY.6423(%rip)
  806
  807                 !check that there haven't been too many faults
  808
  809                 fault rate = fault rate+3;  abandon(6) %if fault rate > 30
				movl	FAULTRATE.6424(%rip), %eax
				addl	$3, %eax
				movl	%eax, FAULTRATE.6424(%rip)
  810                 fault rate = 3 %if fault rate <= 0
				cmpl	$30, %eax
				jg	.L388
		.L365:
				cmpl	$0, FAULTRATE.6424(%rip)
				jle	.L389
		.L363:
		.L366:
  811             %finish
				movq	8(%rsp), %rax
				movq	8(%rax), %r10
				movl	$6, %edi
				call	ABANDON.6563
		.LVL332:
				jmp	.L365
		.L389:
				movl	$3, FAULTRATE.6424(%rip)
				jmp	.L366
		.LVL333:
		.L385:
		.LBB418:
  812             tbase = tstart
				movq	8(%rsp), %rdx
				movl	72(%rdx), %eax
				movl	%eax, 68(%rdx)
  813             %if list <= 0 %and sym # nl %start
				cmpl	$0, LIST.6493(%rip)
				jg	.L338
  814                 error margin = column
				movl	SYM.6433(%rip), %eax
				cmpl	$10, %eax
				je	.L338
				movl	COLUMN.6430(%rip), %edx
				movl	%edx, ERRORMARGIN.6428(%rip)
  815                 error sym = sym;  sym = nl
				movl	%eax, ERRORSYM.6429(%rip)
  816             %finish
				movl	$10, SYM.6433(%rip)
				jmp	.L338
		.L388:
  817         %end
  818
  819         dmin = dmin-1;  dict(dmin) = -1;            !end marker for starts & cycles
				leal	-1(%rdx), %ecx
				movl	%ecx, 100(%rsp)
  820         abandon(2) %if dmax = dmin
				leal	-2(%rdx), %eax
		.LVL897:
				cltq
				movl	$-1, 25044(%r10,%rax,4)
				cmpl	%ecx, DMAX.6461(%rip)
				je	.L962
		.LVL898:
		.L924:
  821
				movl	$2, %edi
				call	ABANDON.6563
		.LVL901:
				jmp	.L924
		.L963:
  822         %if list > 0 %and level > 0 %start
				cmpl	$0, LIST.6493(%rip)
				jle	.L925
  823             write(lines, 5);  spaces(level*3-1)
				movl	_imp_current_line(%rip), %ebx
				testl	%ebx, %ebx
				movl	$823, %eax
				cmove	%eax, %ebx
				movq	_imp_current_file(%rip), %rsi
				testq	%rsi, %rsi
				je	.L385
				leaq	1040(%rsp), %rdi
				call	_imp_c2istr@PLT
		.LVL314:
		.L371:
				pushq	$757
				leaq	.LC2(%rip), %rax
				pushq	%rax
				pushq	1304(%rsp)
				pushq	1304(%rsp)
				pushq	1304(%rsp)
				pushq	1304(%rsp)
				pushq	1304(%rsp)
				pushq	1304(%rsp)
				pushq	1304(%rsp)
				pushq	1304(%rsp)
				pushq	1304(%rsp)
				pushq	1304(%rsp)
				pushq	1304(%rsp)
				pushq	1304(%rsp)
				pushq	1304(%rsp)
				pushq	1304(%rsp)
				pushq	1304(%rsp)
				pushq	1304(%rsp)
				pushq	1304(%rsp)
				pushq	1304(%rsp)
				pushq	1304(%rsp)
				pushq	1304(%rsp)
				pushq	1304(%rsp)
				pushq	1304(%rsp)
				pushq	1304(%rsp)
				pushq	1304(%rsp)
				pushq	1304(%rsp)
				pushq	1304(%rsp)
				pushq	1304(%rsp)
				pushq	1304(%rsp)
				pushq	1304(%rsp)
				pushq	1304(%rsp)
				pushq	1304(%rsp)
				pushq	1304(%rsp)
				movl	%r15d, %r9d
				leaq	.LC4(%rip), %r8
				movl	%r15d, %ecx
				movl	$2, %edx
				movl	$8, %esi
				movl	%ebx, %edi
				movl	$0, %eax
				call	_signal_eventf@PLT
		.LVL315:
				addq	$272, %rsp
		.L367:
		.LVL316:
		.L338:
				movabsq	$8603403804667503988, %rax
				movabsq	$7579049594837889071, %rdx
				movq	%rax, 1041(%rsp)
				movq	%rdx, 1049(%rsp)
				movq	$28781, 1057(%rsp)
				movq	$0, 1065(%rsp)
				movb	$0, 1073(%rsp)
				movw	$0, 1074(%rsp)
				movl	$0, 1076(%rsp)
				leaq	1080(%rsp), %rdi
				movl	$27, %ecx
				movl	$0, %eax
				rep stosq
				movb	$18, 1040(%rsp)
				movq	1040(%rsp), %rax
				movq	1048(%rsp), %rdx
				movq	%rax, 784(%rsp)
				movq	%rdx, 792(%rsp)
				movq	1056(%rsp), %rax
				movq	1064(%rsp), %rdx
				movq	%rax, 800(%rsp)
				movq	%rdx, 808(%rsp)
				movq	1072(%rsp), %rax
				movq	1080(%rsp), %rdx
				movq	%rax, 816(%rsp)
				movq	%rdx, 824(%rsp)
				movq	1088(%rsp), %rax
				movq	1096(%rsp), %rdx
				movq	%rax, 832(%rsp)
				movq	%rdx, 840(%rsp)
				movq	1104(%rsp), %rax
				movq	1112(%rsp), %rdx
				movq	%rax, 848(%rsp)
				movq	%rdx, 856(%rsp)
				movq	1120(%rsp), %rax
				movq	1128(%rsp), %rdx
				movq	%rax, 864(%rsp)
				movq	%rdx, 872(%rsp)
				movq	1136(%rsp), %rax
				movq	1144(%rsp), %rdx
				movq	%rax, 880(%rsp)
				movq	%rdx, 888(%rsp)
				movq	1152(%rsp), %rax
				movq	1160(%rsp), %rdx
				movq	%rax, 896(%rsp)
				movq	%rdx, 904(%rsp)
				movq	1168(%rsp), %rax
				movq	1176(%rsp), %rdx
				movq	%rax, 912(%rsp)
				movq	%rdx, 920(%rsp)
				movq	1184(%rsp), %rax
				movq	1192(%rsp), %rdx
				movq	%rax, 928(%rsp)
				movq	%rdx, 936(%rsp)
				movq	1200(%rsp), %rax
				movq	1208(%rsp), %rdx
				movq	%rax, 944(%rsp)
				movq	%rdx, 952(%rsp)
				movq	1216(%rsp), %rax
				movq	1224(%rsp), %rdx
				movq	%rax, 960(%rsp)
				movq	%rdx, 968(%rsp)
				movq	1232(%rsp), %rax
				movq	1240(%rsp), %rdx
				movq	%rax, 976(%rsp)
				movq	%rdx, 984(%rsp)
				movq	1248(%rsp), %rax
				movq	1256(%rsp), %rdx
				movq	%rax, 992(%rsp)
				movq	%rdx, 1000(%rsp)
				movq	1264(%rsp), %rax
				movq	1272(%rsp), %rdx
				movq	%rax, 1008(%rsp)
				movq	%rdx, 1016(%rsp)
				movq	1280(%rsp), %rax
				movq	1288(%rsp), %rdx
				movq	%rax, 1024(%rsp)
				movq	%rdx, 1032(%rsp)
		.LVL334:
		.LBE418:
				movb	$18, 784(%rsp)
				movq	784(%rsp), %rax
				movq	792(%rsp), %rdx
				movq	%rax, 1040(%rsp)
				movq	%rdx, 1048(%rsp)
				jmp	.L371
		.LVL335:
		.L386:
				cmpl	$0, 108(%rsp)
				jg	.L963
		.L925:
				movl	$5, %esi
				movl	LINES.6425(%rip), %edi
				call	_imp_writeint@PLT
		.LVL902:
  824             %if block tag = 0 %start
				movq	2072(%rsp), %rax
				xorq	%fs:40, %rax
				jne	.L386
				addq	$2088, %rsp
				popq	%rbx
				popq	%rbp
		.LVL317:
				popq	%r12
				popq	%r13
				popq	%r14
				popq	%r15
		.LVL318:
				ret
		.LVL319:
		.L382:
		.L350:
		.LBB417:
		.LBB403:
		.LBB397:
		.LBB398:
				call	_imp_space@PLT
		.LVL320:
				leaq	1+CHAR.6488(%rip), %r12
		.LBE398:
		.LBE397:
				call	__stack_chk_fail@PLT
		.LVL336:
		.LFE196:
				.section	.rodata.str1.8
				.align 8
		.LC5:
				.string	"->ACT(%d) out of bounds at %s line %d"
				.align 8
		.LC6:
				.string	"switch jump to undefined label ACT(%d): at %s line %d"
				.align 8
		.LC7:
				.string	"->PACTION(%d) out of bounds at %s line %d"
				.align 8
		.LC8:
				.string	"switch jump to undefined label PACTION(%d): at %s line %d"
		ANALYSE.6647:
		.LFB202:
				movl	108(%rsp), %eax
				leal	-1(%rax,%rax,2), %edi
		.LBB668:
		.LBB669:
				call	_imp_spaces@PLT
		.LVL903:
		.LBE669:
		.LBE668:
				cmpl	$0, 76(%rsp)
				jne	.L926
		.LVL904:
		.LBB670:
  825                 printstring("Begin")
				movabsq	$474214786370, %rax
				movl	$0, %edx
				movq	%rax, 1425(%rsp)
				movq	%rdx, 1433(%rsp)
				movb	$0, 1441(%rsp)
				movw	$0, 1442(%rsp)
				movl	$0, 1444(%rsp)
				leaq	1448(%rsp), %rdi
				movl	$29, %ecx
				movl	$0, %eax
				rep stosq
				movb	$5, 1424(%rsp)
				movq	1424(%rsp), %rax
				movq	1432(%rsp), %rdx
				movq	%rax, 144(%rsp)
				movq	%rdx, 152(%rsp)
				movdqa	1440(%rsp), %xmm0
				movaps	%xmm0, 160(%rsp)
				movdqa	1456(%rsp), %xmm1
				movaps	%xmm1, 176(%rsp)
				movdqa	1472(%rsp), %xmm2
				movaps	%xmm2, 192(%rsp)
				movdqa	1488(%rsp), %xmm3
				movaps	%xmm3, 208(%rsp)
				movdqa	1504(%rsp), %xmm4
				movaps	%xmm4, 224(%rsp)
				movdqa	1520(%rsp), %xmm5
				movaps	%xmm5, 240(%rsp)
				movdqa	1536(%rsp), %xmm6
				movaps	%xmm6, 256(%rsp)
				movdqa	1552(%rsp), %xmm7
				movaps	%xmm7, 272(%rsp)
				movdqa	1568(%rsp), %xmm0
				movaps	%xmm0, 288(%rsp)
				movq	1584(%rsp), %r13
				movq	1592(%rsp), %r14
				movq	%r13, 304(%rsp)
				movq	%r14, 312(%rsp)
				movq	1600(%rsp), %rax
				movq	1608(%rsp), %rdx
				movq	%rax, 320(%rsp)
				movq	%rdx, 328(%rsp)
				movq	1616(%rsp), %rsi
				movq	1624(%rsp), %rdi
				movq	%rsi, 336(%rsp)
				movq	%rdi, 344(%rsp)
				movq	1632(%rsp), %r9
				movq	1640(%rsp), %r10
				movq	%r9, 352(%rsp)
				movq	%r10, 360(%rsp)
				movq	1648(%rsp), %rcx
				movq	1656(%rsp), %rbx
				movq	%rcx, 368(%rsp)
				movq	%rbx, 376(%rsp)
				movq	1664(%rsp), %r11
				movq	1672(%rsp), %r12
				movq	%r11, 384(%rsp)
				movq	%r12, 392(%rsp)
		.LVL905:
				movb	$5, 144(%rsp)
				movdqa	144(%rsp), %xmm1
				movaps	%xmm1, 912(%rsp)
				movdqa	1440(%rsp), %xmm2
				movaps	%xmm2, 928(%rsp)
				movdqa	1456(%rsp), %xmm3
				movaps	%xmm3, 944(%rsp)
				movdqa	1472(%rsp), %xmm4
				movaps	%xmm4, 960(%rsp)
				movdqa	1488(%rsp), %xmm5
				movaps	%xmm5, 976(%rsp)
				movdqa	1504(%rsp), %xmm6
				movaps	%xmm6, 992(%rsp)
				movdqa	1520(%rsp), %xmm7
				movaps	%xmm7, 1008(%rsp)
				movdqa	1536(%rsp), %xmm0
				movaps	%xmm0, 1024(%rsp)
				movdqa	1552(%rsp), %xmm1
				movaps	%xmm1, 1040(%rsp)
				movdqa	1568(%rsp), %xmm2
				movaps	%xmm2, 1056(%rsp)
				movq	%r13, 1072(%rsp)
				movq	%r14, 1080(%rsp)
				movq	%rax, 1088(%rsp)
				movq	%rdx, 1096(%rsp)
				movq	%rsi, 1104(%rsp)
				movq	%rdi, 1112(%rsp)
				movq	%r9, 1120(%rsp)
				movq	%r10, 1128(%rsp)
				movq	%rcx, 1136(%rsp)
				movq	%rbx, 1144(%rsp)
				movq	%r11, 1152(%rsp)
				movq	%r12, 1160(%rsp)
		.LBE670:
		.LBB671:
		.LBB672:
				pushq	%r12
				pushq	%r11
				pushq	%rbx
				pushq	%rcx
				pushq	%r10
				pushq	%r9
				pushq	%rdi
				pushq	%rsi
				pushq	%rdx
				pushq	%rax
				pushq	%r14
				pushq	%r13
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	392(%rsp)
				pushq	392(%rsp)
				call	_imp_printstring@PLT
		.LVL906:
				addq	$256, %rsp
		.L927:
		.LBE672:
		.LBE671:
		.LBB673:
		.LBB674:
				call	_imp_newline@PLT
		.LVL907:
				jmp	.L925
		.L926:
		.LVL908:
		.LBE674:
		.LBE673:
		.LBB675:
  826             %finish %else %start
  827                 printstring("Procedure ");  print ident(block tag, 0)
				movabsq	$8247608679221654096, %rax
				movl	$8293, %edx
				movq	%rax, 1425(%rsp)
				movq	%rdx, 1433(%rsp)
				movb	$0, 1441(%rsp)
				movw	$0, 1442(%rsp)
				movl	$0, 1444(%rsp)
				leaq	1448(%rsp), %rdi
				movl	$29, %ecx
				movl	$0, %eax
				rep stosq
				movb	$10, 1424(%rsp)
				movq	1424(%rsp), %rax
				movq	1432(%rsp), %rdx
				movq	%rax, 400(%rsp)
				movq	%rdx, 408(%rsp)
				movdqa	1440(%rsp), %xmm3
				movaps	%xmm3, 416(%rsp)
				movdqa	1456(%rsp), %xmm4
				movaps	%xmm4, 432(%rsp)
				movdqa	1472(%rsp), %xmm5
				movaps	%xmm5, 448(%rsp)
				movdqa	1488(%rsp), %xmm6
				movaps	%xmm6, 464(%rsp)
				movdqa	1504(%rsp), %xmm7
				movaps	%xmm7, 480(%rsp)
				movdqa	1520(%rsp), %xmm0
				movaps	%xmm0, 496(%rsp)
				movdqa	1536(%rsp), %xmm1
				movaps	%xmm1, 512(%rsp)
				movdqa	1552(%rsp), %xmm2
				movaps	%xmm2, 528(%rsp)
				movdqa	1568(%rsp), %xmm3
				movaps	%xmm3, 544(%rsp)
				movq	1584(%rsp), %r13
				movq	1592(%rsp), %r14
				movq	%r13, 560(%rsp)
				movq	%r14, 568(%rsp)
				movq	1600(%rsp), %rax
				movq	1608(%rsp), %rdx
				movq	%rax, 576(%rsp)
				movq	%rdx, 584(%rsp)
				movq	1616(%rsp), %rcx
				movq	1624(%rsp), %rbx
				movq	%rcx, 592(%rsp)
				movq	%rbx, 600(%rsp)
				movq	1632(%rsp), %rsi
				movq	1640(%rsp), %rdi
				movq	%rsi, 608(%rsp)
				movq	%rdi, 616(%rsp)
				movq	1648(%rsp), %r9
				movq	1656(%rsp), %r10
				movq	%r9, 624(%rsp)
				movq	%r10, 632(%rsp)
				movq	1664(%rsp), %r11
				movq	1672(%rsp), %r12
				movq	%r11, 640(%rsp)
				movq	%r12, 648(%rsp)
		.LVL909:
				movb	$10, 400(%rsp)
				movdqa	400(%rsp), %xmm4
				movaps	%xmm4, 1168(%rsp)
				movdqa	1440(%rsp), %xmm5
				movaps	%xmm5, 1184(%rsp)
				movdqa	1456(%rsp), %xmm6
				movaps	%xmm6, 1200(%rsp)
				movdqa	1472(%rsp), %xmm7
				movaps	%xmm7, 1216(%rsp)
				movdqa	1488(%rsp), %xmm0
				movaps	%xmm0, 1232(%rsp)
				movdqa	1504(%rsp), %xmm1
				movaps	%xmm1, 1248(%rsp)
				movdqa	1520(%rsp), %xmm2
				movaps	%xmm2, 1264(%rsp)
				movdqa	1536(%rsp), %xmm3
				movaps	%xmm3, 1280(%rsp)
				movdqa	1552(%rsp), %xmm4
				movaps	%xmm4, 1296(%rsp)
				movdqa	1568(%rsp), %xmm5
				movaps	%xmm5, 1312(%rsp)
				movq	%r13, 1328(%rsp)
				movq	%r14, 1336(%rsp)
				movq	%rax, 1344(%rsp)
				movq	%rdx, 1352(%rsp)
				movq	%rcx, 1360(%rsp)
				movq	%rbx, 1368(%rsp)
				movq	%rsi, 1376(%rsp)
				movq	%rdi, 1384(%rsp)
				movq	%r9, 1392(%rsp)
				movq	%r10, 1400(%rsp)
				movq	%r11, 1408(%rsp)
				movq	%r12, 1416(%rsp)
		.LBE675:
		.LBB676:
		.LBB677:
				pushq	%r12
				pushq	%r11
				pushq	%r10
				pushq	%r9
				pushq	%rdi
				pushq	%rsi
				pushq	%rbx
				pushq	%rcx
				pushq	%rdx
				pushq	%rax
				pushq	%r14
				pushq	%r13
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	648(%rsp)
				pushq	648(%rsp)
				call	_imp_printstring@PLT
		.LVL910:
		.LBE677:
		.LBE676:
  828             %finish
				addq	$256, %rsp
				movq	%rbp, %r10
				movl	$0, %esi
				movl	76(%rsp), %edi
				call	PRINTIDENT.6549
		.LVL911:
				jmp	.L927
		.L964:
  829             newline
  830         %finish
  831
  832         !deal with procedure definition (parameters)
  833         %if block tag # 0 %start;                   !proc
				cmpl	$0, 76(%rsp)
				jne	.L964
		.L928:
  834             analyse;  compile %if ss # 0
				leaq	48(%rsp), %r10
				call	ANALYSE.6647
		.LVL912:
  835
				cmpl	$0, SS.6463(%rip)
				jne	.L965
		.L929:
  836             %if block otype # 0 %start;              !external-ish
				cmpl	$0, 12(%rsp)
				je	.L933
				leaq	48(%rsp), %r10
				call	COMPILE.6649
		.LVL917:
				jmp	.L929
		.L966:
  837                 %if bflags&spec = 0 %start;           !definition
				movq	48(%rsp), %rax
				testb	$1, (%rax)
				jne	.L933
  838                     %if progmode <= 0 %and level = 1 %then progmode = -1 %else fault(7)
				cmpl	$0, PROGMODE.6469(%rip)
				jg	.L931
  839                 %finish
				cmpl	$1, 108(%rsp)
				je	.L966
		.L931:
  840             %finish
				movl	$-1, PROGMODE.6469(%rip)
  841
				jmp	.L933
		.LVL918:
		.L957:
		.LBB686:
		.LBB684:
		.LBB680:
		.LBB681:
  842             new app = gapp;                          !generate app grammar
  843             %if spec given # 0 %start;               !definition after spec
				leaq	48(%rsp), %r10
				movl	$7, %edi
				call	FAULT.6666
		.LVL913:
		.L930:
		.L932:
		.L933:
		.LBB678:
		.LBB679:
				cmpl	$0, SPECGIVEN.6441(%rip)
				je	.L945
  844                 fault(6) %if new app # block app;     !different from spec
				movslq	%r15d, %rax
				leaq	(%rax,%rax,2), %rax
				cmpl	%ebx, 49044(%rbp,%rax,8)
				je	.L945
  845             %finish
				leaq	48(%rsp), %r10
				movl	$6, %edi
				call	FAULT.6666
		.LVL936:
		.L944:
		.L945:
  846             block app = new app;                     !use the latest
				movslq	%r15d, %r15
				leaq	(%r15,%r15,2), %rax
				movl	%ebx, 49044(%rbp,%rax,8)
  847
  848             %if level < 0 %start;                    !not procedure definition
				cmpl	$0, 108(%rsp)
				jns	.L946
  849                 delete names(0)
				leaq	48(%rsp), %r10
				movl	$0, %edi
				call	DELETENAMES.6645
		.LVL937:
  850                 %return
				jmp	.L923
		.LVL938:
		.L968:
		.LBB687:
		.LBB685:
  851             %finish
  852         %finish %else %start
  853             open = 0;                                !can return from a block?
				movl	$0, 80(%rsp)
		.LVL899:
		.L946:
  854         %finish
  855
  856         %cycle
  857             analyse
				leaq	48(%rsp), %rbx
				jmp	.L948
		.LVL900:
		.L962:
				movq	%rbx, %r10
				call	ANALYSE.6647
		.LVL942:
  858             %if ss # 0 %start
				cmpl	$0, SS.6463(%rip)
				je	.L948
  859                 compile
				movq	%rbx, %r10
				call	COMPILE.6649
		.LVL943:
  860                 fault(-5) %if dubious # 0
				cmpl	$0, DUBIOUS.6477(%rip)
				je	.L949
  861                 flush buffer( 128 )                    ;! flush if bp >= 128
				movq	%rbp, %r10
				movl	$128, %edi
				call	FLUSHBUFFER.6513
		.LVL941:
				movq	%rbx, %r10
				movl	$-5, %edi
				call	FAULT.6666
		.LVL944:
				jmp	.L949
		.L969:
  862                 %if sstype > 0 %start;                 !block in or out
				movl	SSTYPE.6470(%rip), %eax
				testl	%eax, %eax
				jg	.L969
		.L948:
  863                     %exit %if sstype = 2;               !out
				cmpl	$2, %eax
				je	.L951
		.L952:
  864                     compile block(spec mode, block x, dmin, tmax, id)
				movq	%rbp, %r10
				movl	104(%rsp), %r8d
				movl	112(%rsp), %ecx
				movl	100(%rsp), %edx
				movl	BLOCKX.6492(%rip), %esi
				movl	SPECMODE.6471(%rip), %edi
				call	COMPILEBLOCK.6640
		.LVL945:
  865                     %exit %if ss < 0;                   !endofprogram
				cmpl	$0, SS.6463(%rip)
				jns	.L948
		.L951:
  866                 %finish
  867             %finish
  868         %repeat
  869         %if list > 0 %and level > 0 %start
				cmpl	$0, LIST.6493(%rip)
				jle	.L954
  870             write(lines, 5);  spaces(level*3-1)
				cmpl	$0, 108(%rsp)
				jg	.L970
		.L954:
				movl	$5, %esi
				movl	LINES.6425(%rip), %edi
				call	_imp_writeint@PLT
		.LVL947:
  871             printstring("End")
				movl	108(%rsp), %eax
				leal	-1(%rax,%rax,2), %edi
		.LBB688:
		.LBB689:
				call	_imp_spaces@PLT
		.LVL948:
		.LBE689:
		.LBE688:
		.LBB690:
				movq	$6581829, 1425(%rsp)
				movq	$0, 1433(%rsp)
				movb	$0, 1441(%rsp)
				movw	$0, 1442(%rsp)
				movl	$0, 1444(%rsp)
				leaq	1448(%rsp), %rdi
				movl	$29, %ecx
				movl	$0, %eax
				rep stosq
				movb	$3, 1424(%rsp)
				movq	1424(%rsp), %rax
				movq	1432(%rsp), %rdx
				movq	%rax, 656(%rsp)
				movq	%rdx, 664(%rsp)
				movdqa	1440(%rsp), %xmm6
				movaps	%xmm6, 672(%rsp)
				movdqa	1456(%rsp), %xmm7
				movaps	%xmm7, 688(%rsp)
				movdqa	1472(%rsp), %xmm0
				movaps	%xmm0, 704(%rsp)
				movdqa	1488(%rsp), %xmm1
				movaps	%xmm1, 720(%rsp)
				movdqa	1504(%rsp), %xmm2
				movaps	%xmm2, 736(%rsp)
				movdqa	1520(%rsp), %xmm3
				movaps	%xmm3, 752(%rsp)
				movdqa	1536(%rsp), %xmm4
				movaps	%xmm4, 768(%rsp)
				movdqa	1552(%rsp), %xmm5
				movaps	%xmm5, 784(%rsp)
				movdqa	1568(%rsp), %xmm6
				movaps	%xmm6, 800(%rsp)
				movq	1584(%rsp), %r13
				movq	1592(%rsp), %r14
				movq	%r13, 816(%rsp)
				movq	%r14, 824(%rsp)
				movq	1600(%rsp), %rax
				movq	1608(%rsp), %rdx
				movq	%rax, 832(%rsp)
				movq	%rdx, 840(%rsp)
				movq	1616(%rsp), %rcx
				movq	1624(%rsp), %rbx
				movq	%rcx, 848(%rsp)
				movq	%rbx, 856(%rsp)
				movq	1632(%rsp), %rsi
				movq	1640(%rsp), %rdi
				movq	%rsi, 864(%rsp)
				movq	%rdi, 872(%rsp)
				movq	1648(%rsp), %r9
				movq	1656(%rsp), %r10
				movq	%r9, 880(%rsp)
				movq	%r10, 888(%rsp)
				movq	1664(%rsp), %r11
				movq	1672(%rsp), %r12
				movq	%r11, 896(%rsp)
				movq	%r12, 904(%rsp)
		.LVL949:
				movb	$3, 656(%rsp)
				movdqa	656(%rsp), %xmm7
				movaps	%xmm7, 1424(%rsp)
		.LBE690:
		.LBB691:
		.LBB692:
				pushq	%r12
				pushq	%r11
				pushq	%r10
				pushq	%r9
				pushq	%rdi
				pushq	%rsi
				pushq	%rbx
				pushq	%rcx
				pushq	%rdx
				pushq	%rax
				pushq	%r14
				pushq	%r13
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	1672(%rsp)
				pushq	904(%rsp)
				pushq	904(%rsp)
				call	_imp_printstring@PLT
		.LVL950:
		.LBE692:
		.LBE691:
		.LBB693:
		.LBB694:
				addq	$256, %rsp
				call	_imp_newline@PLT
		.LVL951:
				jmp	.L954
		.L971:
		.LBE694:
		.LBE693:
  872             newline
  873         %finish
  874         delete names(0)
				leaq	48(%rsp), %r10
				movl	$0, %edi
				call	DELETENAMES.6645
		.LVL946:
		.L923:
  875         %return
  876
  877         ! generate app grammar (backwards)
  878         %integerfn gapp
				leaq	1760(%rsp), %rax
		.LVL914:
				movq	%rax, 40(%rsp)
  879             %constinteger comma = 140;               !psep
  880             %routinespec set cell(%integer g, tt)
  881             %routinespec class(%record(tagfm)%name v)
  882             %record(tagfm)%name v
  883             %integer p, link, tp, c, ap, t
  884
  885             %result = 0 %if tmax = local;            !no app needed
				movl	LOCAL.6483(%rip), %r13d
				movl	112(%rsp), %ecx
				cmpl	%ecx, %r13d
				je	.L934
		.L935:
  886
				movl	$0, %ebx
  887             p = gmax1;  link = 0;  t = tmax
				movl	$719, 32(%rsp)
  888
				movl	$0, 28(%rsp)
		.LVL915:
  889             %cycle
  890                 v == tag(t);  t = t-1
				movq	56(%rsp), %rdi
		.LVL925:
  891                 class(v);                             ! deduce class from tag
				movl	%ebx, %ecx
		.LVL924:
		.L936:
				leal	-1(%rcx), %ebx
		.LVL926:
		.LBB683:
		.LBB682:
  892                 %if c < 0 %start;                     ! insert %PARAM
				movl	16(%rsp), %eax
				testl	%eax, %eax
				js	.L967
		.LVL921:
		.L940:
  893                     c = -c
				negl	%eax
				movl	%eax, 16(%rsp)
  894                     set cell(196, tp)
				leaq	16(%rsp), %r12
				jmp	.L936
		.LVL916:
		.L965:
		.LBE679:
		.LBE678:
				movq	%r12, %r10
				movl	20(%rsp), %esi
				movl	$196, %edi
		.LVL933:
				call	SETCELL.6842
		.LVL934:
  895                     tp = -1
				movl	$-1, 20(%rsp)
				jmp	.L940
		.L941:
  896                 %finish
  897                 set cell(c, tp)
				movq	%r12, %r10
				movl	20(%rsp), %esi
				movl	16(%rsp), %edi
				call	SETCELL.6842
		.LVL922:
  898                 %exit %if t = local;                  ! end of parameters
				cmpl	%ebx, %r13d
				je	.L941
		.L942:
  899                 set cell(comma, -1);                  ! add the separating comma
				movq	%r12, %r10
				movl	$-1, %esi
				movl	$140, %edi
				call	SETCELL.6842
		.LVL923:
  900             %repeat
  901             abandon(3) %if gmax > gmin
				movl	GMIN.6501(%rip), %eax
				cmpl	%eax, GMAX.6505(%rip)
				jg	.L968
		.L943:
  902
				movq	56(%rsp), %r10
				movl	$3, %edi
				call	ABANDON.6563
		.LVL939:
				jmp	.L943
		.LVL940:
		.L949:
		.LBE685:
		.LBE687:
  903             %result = link
				movl	28(%rsp), %ebx
		.LVL935:
		.L934:
		.LBE684:
		.LBE686:
  904
  905             %routine set cell(%integer g, tt)
		.LVL8:
  906                 ! add the cell to the grammar, combining common tails
  907                 %while p # gmax %cycle
  908                     p = p+1
				movl	GMAX.6505(%rip), %r8d
				movl	16(%r10), %eax
				cmpl	%eax, %r8d
				je	.L5
				leal	1(%rax), %edx
				movl	%edx, 16(%r10)
  909                     %if glink(p) = link %and gram(p) = g %start
				leaq	GLINK.6510(%rip), %r9
				movslq	%edx, %rcx
				movswl	(%r9,%rcx,2), %ecx
				cmpl	12(%r10), %ecx
				jne	.L10
				movslq	%edx, %rcx
				movswl	(%r11,%rcx,2), %ecx
				cmpl	%edi, %ecx
				jne	.L10
				testl	%esi, %esi
				js	.L7
  910                         %if tt < 0 %or (gram(p+1) = tt %and glink(p+1)=ap) %start
				leaq	GRAM.6509(%rip), %r11
		.L10:
  911                             link = p;                    ! already there
				addl	$2, %eax
				movslq	%eax, %rcx
				movswl	(%r11,%rcx,2), %ecx
				cmpl	%esi, %ecx
				jne	.L10
				movl	%edx, 12(%r10)
				ret
		.L5:
  912                             %return
				cltq
				movswl	(%r9,%rax,2), %eax
				cmpl	8(%r10), %eax
				jne	.L10
		.L7:
  913                         %finish
  914                     %finish
  915                 %repeat
  916
  917                 !add a new cell
  918                 gmax = gmax+1
				leal	1(%r8), %eax
				movl	%eax, GMAX.6505(%rip)
  919                 gram(gmax) = g
				movslq	%eax, %rdx
				leaq	GRAM.6509(%rip), %rcx
				movw	%di, (%rcx,%rdx,2)
  920                 glink(gmax) = link
				movl	12(%r10), %edi
		.LVL9:
				leaq	GLINK.6510(%rip), %rcx
				movw	%di, (%rcx,%rdx,2)
  921                 link = gmax
				movl	%eax, 12(%r10)
  922
  923                 %if tt >= 0 %start;             ! set type cell
				testl	%esi, %esi
				js	.L9
  924                     gmax = gmax+1
				addl	$2, %r8d
				movl	%r8d, GMAX.6505(%rip)
  925                     gram(gmax) = tt
				movslq	%r8d, %r8
				leaq	GRAM.6509(%rip), %rax
				movw	%si, (%rax,%r8,2)
  926                     glink(gmax) = ap
				movl	8(%r10), %edx
				movw	%dx, (%rcx,%r8,2)
		.L9:
  927                 %finish
  928                 p = gmax
				movl	GMAX.6505(%rip), %eax
				movl	%eax, 16(%r10)
  929
  930             %end
  931
				ret
		.LFE199:
		DEFLAB.7558:
		.LFB214:
  932             %routine class(%record(tagfm)%name v)
  933                 %constinteger err    = 89
  934                 %constinteger rtp    = 100
  935                 %constinteger fnp    = 101
  936                 %constinteger mapp   = 102
  937                 %constinteger predp  = 103
  938                 %constintegerarray class map(0:15) = %c
				movl	$89, 1424(%rsp)
				movl	$1764, 1428(%rsp)
				movl	$247, 1432(%rsp)
				movl	$89, 1436(%rsp)
				movl	$89, 1440(%rsp)
				movl	$89, 1444(%rsp)
				movl	$89, 1448(%rsp)
				movl	$-100, 1452(%rsp)
				movl	$-101, 1456(%rsp)
				movl	$-102, 1460(%rsp)
				movl	$-103, 1464(%rsp)
				movl	$89, 1468(%rsp)
				movl	$214, 1472(%rsp)
				movl	$89, 1476(%rsp)
				movl	$229, 1480(%rsp)
				movl	$89, 1484(%rsp)
  939                           err,1764, 247, err(4), -rtp, -fnp, -mapp, -predp, err, 214,
  940                 !         err,1764, 247, err(4), -rtp, -fnp, -mapp, -predp, err, 214,
  941                           err, 229, err
  942                 !         err, 229, err
  943                 %integer tags, type, form
  944
  945                 ap = 0
				movl	$0, 24(%rsp)
  946                 tags = v_flags
				movslq	%ecx, %r8
				leaq	(%r8,%r8), %rdx
				leaq	(%rdx,%r8), %rax
				movl	49052(%rdi,%rax,8), %eax
		.LVL927:
  947                 type = tags>>4&7;  form = tags&15
				movl	%eax, %esi
				shrl	$4, %esi
				andl	$7, %esi
		.LVL928:
  948                 tp = v_format<<3!type
				andl	$15, %eax
		.LVL929:
				addq	%r8, %rdx
		.LVL930:
				movl	49048(%rdi,%rdx,8), %edx
		.LVL931:
				sall	$3, %edx
				orl	%esi, %edx
				movl	%edx, 20(%rsp)
  949                 c = class map(form)
				cltq
				movl	1424(%rsp,%rax,4), %eax
		.LVL919:
				movl	%eax, 16(%rsp)
		.L939:
  950                 c = 208 %and tp = 0 %if type = 0 %and form = 2;  !%name
  951                 ap = v_app %if tags&parameters # 0
				testl	%esi, %esi
				jne	.L957
				cmpl	$2, %eax
				jne	.L957
  952             %end
				movslq	%ecx, %rcx
				leaq	(%rcx,%rcx,2), %rax
				movl	49044(%rdi,%rax,8), %eax
				movl	%eax, 24(%rsp)
		.LDL51:
		.LVL920:
		.LBE681:
		.LBE680:
				movl	$208, 16(%rsp)
  953         %end
				movl	$0, 20(%rsp)
				jmp	.L939
		.LVL932:
		.L967:
		.LBE682:
		.LBE683:
  954
  955         %routine delete names(%integer quiet)
		.LVL514:
				pushq	%r14
				pushq	%r13
				pushq	%r12
				pushq	%rbp
				pushq	%rbx
  956             %integer flags
  957             %record(tagfm)%name tx
  958
  959             %while tmax > tbase %cycle
  960                 x = tmax;  tmax = tmax-1
				movl	64(%r10), %ebx
				cmpl	68(%r10), %ebx
				jle	.L515
				movq	%r10, %rbp
				movl	%edi, %r12d
				movl	64(%rbp), %ebx
		.LVL516:
				cmpl	68(%rbp), %ebx
				jle	.L515
		.L519:
				movl	%ebx, X.6415(%rip)
  961                 tx == tag(x)
				leal	-1(%rbx), %eax
				movl	%eax, 64(%rbp)
				movq	8(%rbp), %r14
		.LVL517:
  962                 flags = tx_flags
				movslq	%ebx, %rax
		.LVL518:
				leaq	(%rax,%rax,2), %rax
		.LVL519:
  963                 fault(20) %if flags&spec # 0 %and flags&own bit = 0
  964                 !{spec with no definition & not external}
				testb	$1, 49052(%r14,%rax,8)
				jne	.L518
  965                 %if flags&used bit = 0 %and level >= 0 %and list <= 0 %start
				movq	%rbp, %r10
				movl	$20, %edi
				call	FAULT.6666
		.LVL520:
  966                     fault(-3) %if quiet = 0;          !unused
				cmpl	$0, 60(%rbp)
				js	.L518
				cmpl	$0, LIST.6493(%rip)
				jg	.L518
				testl	%r12d, %r12d
				jne	.L518
  967                 %finish
				movl	$-3, %r13d
				jmp	.L519
		.L517:
		.LVL515:
		.L518:
				movq	%rbp, %r10
				movl	%r13d, %edi
				call	FAULT.6666
		.LVL521:
				jmp	.L518
		.L516:
		.LVL522:
		.L515:
  968                 dict(tx_text) = tx_link
				movslq	%ebx, %rbx
				leaq	(%rbx,%rbx), %rax
				leaq	(%rax,%rbx), %rdx
				movl	49064(%r14,%rdx,8), %ecx
				movq	8(%rbp), %rdx
				addq	%rbx, %rax
				movl	49060(%r14,%rax,8), %eax
				subl	$1, %eax
				cltq
				movl	%ecx, 25044(%rdx,%rax,4)
		.LDL36:
  969             %repeat
  970         %end
  971
				popq	%rbx
				popq	%rbp
				popq	%r12
				popq	%r13
				popq	%r14
				ret
		.LFE201:
				.section	.rodata.str1.1
		.LC9:
				.string	"Illegal cycle J = 1, 1, BP"
		FLUSHBUFFER.6513:
		.LFB186:
  972         %routine analyse
				pushq	%r15
				pushq	%r14
				pushq	%r13
				pushq	%r12
				pushq	%rbp
				pushq	%rbx
				subq	$7800, %rsp
				movq	%r10, %r15
				movq	%fs:40, %rax
				movq	%rax, 7784(%rsp)
				xorl	%eax, %eax
				leaq	7856(%rsp), %rax
				movq	%rax, 80(%rsp)
				movq	%r10, 64(%rsp)
  973             %constinteger order bits = 16_3000, order bit = 16_1000
  974             %constinteger escape     = 16_1000
  975             %integer strp, mark, flags, prot err, k, s, c
  976             %owninteger key = 0
  977             %integer node
  978             %integername z
  979             %record(arfm)%name arp
  980             %switch act(actions:phrasal), paction(0:15)
  981
  982             %routine trace analysis
				leaq	64(%rsp), %rax
				movq	%rax, 8(%rsp)
				jmp	.L415
		.LVL350:
		.L403:
		.LBE501:
		.LBE504:
				leaq	7856(%rsp), %rax
		.LVL414:
				movq	%rax, 56(%rsp)
				movq	8(%rsp), %rax
		.LVL415:
				movq	%rax, 48(%rsp)
  983                 !diagnostic trace routine (diagnose&1 # 0)
  984                 %integer a
  985
  986                 %routine show(%integer a)
		.LVL20:
				pushq	%r14
				pushq	%r13
				pushq	%r12
				pushq	%rbx
				subq	$536, %rsp
				movq	%fs:40, %rax
				movq	%rax, 520(%rsp)
				xorl	%eax, %eax
  987                     %if 0 < a %and a < 130 %start
  988                         space
				leal	-1(%rdi), %eax
				cmpl	$128, %eax
				jbe	.L28
		.L24:
  989                         printstring(text(a))
  990                     %finish %else write(a, 3)
  991                 %end
  992
				movl	$3, %esi
				call	_imp_writeint@PLT
		.LVL21:
		.L25:
		.L23:
				movq	520(%rsp), %rax
				xorq	%fs:40, %rax
				jne	.L29
				addq	$536, %rsp
				popq	%rbx
				popq	%r12
				popq	%r13
				popq	%r14
				ret
		.LVL22:
		.L28:
		.LBB272:
		.LBB273:
				call	_imp_space@PLT
		.LVL23:
				movdqa	(%rsp), %xmm0
				movaps	%xmm0, 256(%rsp)
				movdqa	16(%rsp), %xmm1
				movaps	%xmm1, 272(%rsp)
				movdqa	32(%rsp), %xmm2
				movaps	%xmm2, 288(%rsp)
				movdqa	48(%rsp), %xmm3
				movaps	%xmm3, 304(%rsp)
				movdqa	64(%rsp), %xmm4
				movaps	%xmm4, 320(%rsp)
				movdqa	80(%rsp), %xmm5
				movaps	%xmm5, 336(%rsp)
				movdqa	96(%rsp), %xmm6
				movaps	%xmm6, 352(%rsp)
				movdqa	112(%rsp), %xmm7
				movaps	%xmm7, 368(%rsp)
				movdqa	128(%rsp), %xmm0
				movaps	%xmm0, 384(%rsp)
				movdqa	144(%rsp), %xmm1
				movaps	%xmm1, 400(%rsp)
				movq	160(%rsp), %r13
				movq	168(%rsp), %r14
				movq	%r13, 416(%rsp)
				movq	%r14, 424(%rsp)
				movq	176(%rsp), %rax
				movq	184(%rsp), %rdx
				movq	%rax, 432(%rsp)
				movq	%rdx, 440(%rsp)
				movq	192(%rsp), %rsi
				movq	200(%rsp), %rdi
				movq	%rsi, 448(%rsp)
				movq	%rdi, 456(%rsp)
				movq	208(%rsp), %r9
				movq	216(%rsp), %r10
				movq	%r9, 464(%rsp)
				movq	%r10, 472(%rsp)
				movq	224(%rsp), %rcx
				movq	232(%rsp), %rbx
				movq	%rcx, 480(%rsp)
				movq	%rbx, 488(%rsp)
				movq	240(%rsp), %r11
				movq	248(%rsp), %r12
				movq	%r11, 496(%rsp)
				movq	%r12, 504(%rsp)
		.LBE273:
		.LBE272:
		.LBB274:
		.LBB275:
				pushq	%r12
				pushq	%r11
				pushq	%rbx
				pushq	%rcx
				pushq	%r10
				pushq	%r9
				pushq	%rdi
				pushq	%rsi
				pushq	%rdx
				pushq	%rax
				pushq	%r14
				pushq	%r13
				pushq	248(%rsp)
				pushq	248(%rsp)
				pushq	248(%rsp)
				pushq	248(%rsp)
				pushq	248(%rsp)
				pushq	248(%rsp)
				pushq	248(%rsp)
				pushq	248(%rsp)
				pushq	248(%rsp)
				pushq	248(%rsp)
				pushq	248(%rsp)
				pushq	248(%rsp)
				pushq	248(%rsp)
				pushq	248(%rsp)
				pushq	248(%rsp)
				pushq	248(%rsp)
				pushq	248(%rsp)
				pushq	248(%rsp)
				pushq	248(%rsp)
				pushq	248(%rsp)
				call	_imp_printstring@PLT
		.LVL24:
				addq	$256, %rsp
				jmp	.L23
		.L29:
		.LBE275:
		.LBE274:
				call	__stack_chk_fail@PLT
		.LVL25:
		.LFE204:
		PUTIT.6552:
		.LFB193:
  993                 %owninteger la1=0, la2=0, lsa=0, lt=0
  994                 newline %if mon pos # pos %and sym # nl
				movl	POS.6481(%rip), %eax
				cmpl	%eax, MONPOS.6432(%rip)
				je	.L416
  995                 mon pos = pos
				cmpl	$10, SYM.6433(%rip)
				jne	.L490
		.L416:
				movl	POS.6481(%rip), %eax
				movl	%eax, MONPOS.6432(%rip)
  996                 write(g, 3)
				movl	$3, %esi
				movl	G.6453(%rip), %edi
				call	_imp_writeint@PLT
		.LVL416:
		.LBB488:
		.LBB489:
				call	_imp_space@PLT
		.LVL417:
				movdqa	7008(%rsp), %xmm4
				movaps	%xmm4, 6752(%rsp)
				movdqa	7024(%rsp), %xmm6
				movaps	%xmm6, 6768(%rsp)
				movdqa	7040(%rsp), %xmm0
				movaps	%xmm0, 6784(%rsp)
				movdqa	7056(%rsp), %xmm1
				movaps	%xmm1, 6800(%rsp)
				movdqa	7072(%rsp), %xmm2
				movaps	%xmm2, 6816(%rsp)
				movdqa	7088(%rsp), %xmm3
				movaps	%xmm3, 6832(%rsp)
				movdqa	7104(%rsp), %xmm5
				movaps	%xmm5, 6848(%rsp)
				movdqa	7120(%rsp), %xmm7
				movaps	%xmm7, 6864(%rsp)
				movdqa	7136(%rsp), %xmm4
				movaps	%xmm4, 6880(%rsp)
				movdqa	7152(%rsp), %xmm6
				movaps	%xmm6, 6896(%rsp)
				movq	7168(%rsp), %r13
				movq	7176(%rsp), %r14
				movq	%r13, 6912(%rsp)
				movq	%r14, 6920(%rsp)
				movq	7184(%rsp), %rax
				movq	7192(%rsp), %rdx
				movq	%rax, 6928(%rsp)
				movq	%rdx, 6936(%rsp)
				movq	7200(%rsp), %rcx
				movq	7208(%rsp), %rbx
				movq	%rcx, 6944(%rsp)
				movq	%rbx, 6952(%rsp)
				movq	7216(%rsp), %rsi
				movq	7224(%rsp), %rdi
				movq	%rsi, 6960(%rsp)
				movq	%rdi, 6968(%rsp)
				movq	7232(%rsp), %r9
				movq	7240(%rsp), %r10
				movq	%r9, 6976(%rsp)
				movq	%r10, 6984(%rsp)
				movq	7248(%rsp), %r11
				movq	7256(%rsp), %r12
				movq	%r11, 6992(%rsp)
				movq	%r12, 7000(%rsp)
		.LBE489:
		.LBE488:
		.LBB490:
		.LBB491:
				pushq	%r12
				pushq	%r11
				pushq	%r10
				pushq	%r9
				pushq	%rdi
				pushq	%rsi
				pushq	%rbx
				pushq	%rcx
				pushq	%rdx
				pushq	%rax
				pushq	%r14
				pushq	%r13
				pushq	7256(%rsp)
				pushq	7256(%rsp)
				pushq	7256(%rsp)
				pushq	7256(%rsp)
				pushq	7256(%rsp)
				pushq	7256(%rsp)
				pushq	7256(%rsp)
				pushq	7256(%rsp)
				pushq	7256(%rsp)
				pushq	7256(%rsp)
				pushq	7256(%rsp)
				pushq	7256(%rsp)
				pushq	7256(%rsp)
				pushq	7256(%rsp)
				pushq	7256(%rsp)
				pushq	7256(%rsp)
				pushq	7256(%rsp)
				pushq	7256(%rsp)
				pushq	7256(%rsp)
				pushq	7256(%rsp)
				call	_imp_printstring@PLT
		.LVL418:
		.LBE491:
		.LBE490:
		.LBB492:
		.LBB493:
				addq	$256, %rsp
				movl	$34, %edi
				call	_imp_printsymbol@PLT
		.LVL419:
		.LDL28:
		.LBE493:
		.LBE492:
  997                 space
  998                 printstring(text(class))
  999                 printsymbol('"') %if gg&trans bit # 0
 1000                 a = gg>>8&15
				movl	GG.6454(%rip), %edi
				shrl	$8, %edi
		.LVL420:
 1001                 %if a # 0 %start
				movl	%edi, %ebx
				andl	$15, %ebx
		.LVL421:
				jne	.L491
		.L417:
 1002                     printsymbol('{')
 1003                     write(a, 0)
				movl	$0, %esi
				movl	%ebx, %edi
				call	_imp_writeint@PLT
		.LVL409:
		.LBB486:
		.LBB487:
				movl	$125, %edi
				call	_imp_printsymbol@PLT
		.LVL410:
				jmp	.L417
		.LVL411:
		.L492:
		.LBE487:
		.LBE486:
 1004                     printsymbol('}')
 1005                 %finish
 1006                 %if atom1 # la1 %or atom2 # la2 %or lsa # subatom %or lt # type %start
				movl	LA1.6924(%rip), %eax
				cmpl	%eax, ATOM1.6416(%rip)
				jne	.L418
 1007                     printstring(" [")
				movl	LA2.6925(%rip), %eax
				cmpl	%eax, ATOM2.6417(%rip)
				je	.L492
		.L418:
		.LVL422:
		.LBB494:
				movq	$23328, 7265(%rsp)
				movq	$0, 7273(%rsp)
				movb	$0, 7281(%rsp)
				movw	$0, 7282(%rsp)
				movl	$0, 7284(%rsp)
				leaq	7288(%rsp), %rdi
				movl	$29, %ecx
				movl	$0, %eax
				rep stosq
		.LVL423:
				movb	$2, 7264(%rsp)
				movq	7264(%rsp), %rax
				movq	7272(%rsp), %rdx
				movq	%rax, 7520(%rsp)
				movq	%rdx, 7528(%rsp)
				movdqa	7280(%rsp), %xmm0
				movaps	%xmm0, 7536(%rsp)
				movdqa	7296(%rsp), %xmm1
				movaps	%xmm1, 7552(%rsp)
				movdqa	7312(%rsp), %xmm2
				movaps	%xmm2, 7568(%rsp)
				movdqa	7328(%rsp), %xmm3
				movaps	%xmm3, 7584(%rsp)
				movdqa	7344(%rsp), %xmm5
				movaps	%xmm5, 7600(%rsp)
				movdqa	7360(%rsp), %xmm7
				movaps	%xmm7, 7616(%rsp)
				movdqa	7376(%rsp), %xmm4
				movaps	%xmm4, 7632(%rsp)
				movdqa	7392(%rsp), %xmm6
				movaps	%xmm6, 7648(%rsp)
				movdqa	7408(%rsp), %xmm0
				movaps	%xmm0, 7664(%rsp)
				movq	7424(%rsp), %r13
				movq	7432(%rsp), %r14
				movq	%r13, 7680(%rsp)
				movq	%r14, 7688(%rsp)
				movq	7440(%rsp), %rax
				movq	7448(%rsp), %rdx
				movq	%rax, 7696(%rsp)
				movq	%rdx, 7704(%rsp)
				movq	7456(%rsp), %rcx
				movq	7464(%rsp), %rbx
		.LVL424:
				movq	%rcx, 7712(%rsp)
				movq	%rbx, 7720(%rsp)
				movq	7472(%rsp), %rsi
				movq	7480(%rsp), %rdi
				movq	%rsi, 7728(%rsp)
				movq	%rdi, 7736(%rsp)
				movq	7488(%rsp), %r9
				movq	7496(%rsp), %r10
				movq	%r9, 7744(%rsp)
				movq	%r10, 7752(%rsp)
				movq	7504(%rsp), %r11
				movq	7512(%rsp), %r12
				movq	%r11, 7760(%rsp)
				movq	%r12, 7768(%rsp)
		.LVL425:
				movb	$2, 7520(%rsp)
				movdqa	7520(%rsp), %xmm1
				movaps	%xmm1, 6496(%rsp)
				movdqa	7280(%rsp), %xmm2
				movaps	%xmm2, 6512(%rsp)
				movdqa	7296(%rsp), %xmm3
				movaps	%xmm3, 6528(%rsp)
				movdqa	7312(%rsp), %xmm5
				movaps	%xmm5, 6544(%rsp)
				movdqa	7328(%rsp), %xmm7
				movaps	%xmm7, 6560(%rsp)
				movdqa	7344(%rsp), %xmm4
				movaps	%xmm4, 6576(%rsp)
				movdqa	7360(%rsp), %xmm6
				movaps	%xmm6, 6592(%rsp)
				movdqa	7376(%rsp), %xmm0
				movaps	%xmm0, 6608(%rsp)
				movdqa	7392(%rsp), %xmm1
				movaps	%xmm1, 6624(%rsp)
				movdqa	7408(%rsp), %xmm2
				movaps	%xmm2, 6640(%rsp)
				movq	%r13, 6656(%rsp)
				movq	%r14, 6664(%rsp)
				movq	%rax, 6672(%rsp)
				movq	%rdx, 6680(%rsp)
				movq	%rcx, 6688(%rsp)
				movq	%rbx, 6696(%rsp)
				movq	%rsi, 6704(%rsp)
				movq	%rdi, 6712(%rsp)
				movq	%r9, 6720(%rsp)
				movq	%r10, 6728(%rsp)
				movq	%r11, 6736(%rsp)
				movq	%r12, 6744(%rsp)
		.LBE494:
		.LBB495:
		.LBB496:
				pushq	%r12
				pushq	%r11
				pushq	%r10
				pushq	%r9
				pushq	%rdi
				pushq	%rsi
				pushq	%rbx
				pushq	%rcx
				pushq	%rdx
				pushq	%rax
				pushq	%r14
				pushq	%r13
				pushq	7512(%rsp)
				pushq	7512(%rsp)
				pushq	7512(%rsp)
				pushq	7512(%rsp)
				pushq	7512(%rsp)
				pushq	7512(%rsp)
				pushq	7512(%rsp)
				pushq	7512(%rsp)
				pushq	7512(%rsp)
				pushq	7512(%rsp)
				pushq	7512(%rsp)
				pushq	7512(%rsp)
				pushq	7512(%rsp)
				pushq	7512(%rsp)
				pushq	7512(%rsp)
				pushq	7512(%rsp)
				pushq	7512(%rsp)
				pushq	7512(%rsp)
				pushq	7768(%rsp)
				pushq	7768(%rsp)
				call	_imp_printstring@PLT
		.LVL426:
		.LBE496:
		.LBE495:
 1008                     la1 = atom1
				movl	SUBATOM.6418(%rip), %eax
				cmpl	%eax, LSA.6926(%rip)
				jne	.L418
				movl	ATOM1.6416(%rip), %edi
				movl	%edi, LA1.6924(%rip)
 1009                     show(la1)
				leaq	48(%rsp), %rax
				movq	%rax, 16(%rsp)
		.LVL349:
		.L404:
		.LBE481:
		.LBE480:
				movl	TYPE.6419(%rip), %eax
				cmpl	%eax, LT.6927(%rip)
				jne	.L418
				jmp	.L419
		.LVL412:
		.L423:
		.LBE502:
		.LBE540:
				addq	$256, %rsp
				movq	16(%rsp), %rbx
				movq	%rbx, %r10
				call	SHOW.6918
		.LVL427:
 1010                     la2 = atom2
				movl	ATOM2.6417(%rip), %edi
				movl	%edi, LA2.6925(%rip)
 1011                     show(la2)
				movq	%rbx, %r10
				call	SHOW.6918
		.LVL428:
 1012                     lsa = subatom
				movl	SUBATOM.6418(%rip), %edi
				movl	%edi, LSA.6926(%rip)
 1013                     write(lsa, 3)
				movl	$3, %esi
				call	_imp_writeint@PLT
		.LVL429:
 1014                     lt = type
				movl	TYPE.6419(%rip), %edi
				movl	%edi, LT.6927(%rip)
 1015                     write(lt, 5)
				movl	$5, %esi
				call	_imp_writeint@PLT
		.LVL430:
		.LBB497:
		.LBB498:
				movl	$93, %edi
				call	_imp_printsymbol@PLT
		.LVL431:
		.L419:
		.LBE498:
		.LBE497:
		.LBB499:
		.LBB500:
				call	_imp_newline@PLT
		.LVL432:
		.LDL29:
		.LBE500:
		.LBE499:
		.LBE503:
		.LBE541:
 1016                     printsymbol(']')
 1017                 %finish
 1018                 newline
 1019             %end
 1020
 1021             %routine get sym
				pushq	%rbx
				movq	%r10, %rbx
		.LVL65:
		.LBB286:
		.LBB287:
				leaq	SYM.6433(%rip), %rdi
				call	_imp_readsymbol@PLT
		.LVL66:
		.LBE287:
		.LBE286:
 1022                 readsymbol(sym)
 1023                 abandon(5) %if sym < 0
				cmpl	$0, SYM.6433(%rip)
				js	.L67
		.L63:
 1024                 pos = pos+1 %if pos # 133
				movl	POS.6481(%rip), %eax
				cmpl	$133, %eax
				je	.L64
				movq	(%rbx), %rax
				movq	8(%rax), %r10
				movl	$5, %edi
				call	ABANDON.6563
		.LVL67:
				jmp	.L63
		.L68:
		.LVL68:
 1025                 char(pos) = sym
				addl	$1, %eax
				movl	%eax, POS.6481(%rip)
		.L64:
				movl	SYM.6433(%rip), %edi
				movslq	POS.6481(%rip), %rax
				leaq	CHAR.6488(%rip), %rdx
				movb	%dil, (%rdx,%rax)
 1026                 printsymbol(sym) %if list <= 0
				cmpl	$0, LIST.6493(%rip)
				jle	.L68
		.L65:
 1027                 column = column+1
				addl	$1, COLUMN.6430(%rip)
				movsbl	%dil, %edi
		.LVL69:
		.LBB288:
		.LBB289:
				call	_imp_printsymbol@PLT
		.LVL70:
				jmp	.L65
		.LBE289:
		.LBE288:
		.LFE205:
		READSYM.6944:
		.LFB206:
 1028             %end
 1029
				popq	%rbx
				ret
		.L67:
 1030             %routine read sym
				pushq	%r14
				pushq	%r13
				pushq	%r12
				pushq	%rbp
				pushq	%rbx
				subq	$912, %rsp
				movq	%r10, %rbp
				movq	%fs:40, %rax
				movq	%rax, 904(%rsp)
				xorl	%eax, %eax
 1031                 %owninteger Last = 0
 1032                 %constbyteintegerarray mapped(0:127) = %c
				movb	$0, 768(%rsp)
				movb	$0, 769(%rsp)
				movb	$0, 770(%rsp)
				movb	$0, 771(%rsp)
				movb	$0, 772(%rsp)
				movb	$0, 773(%rsp)
				movb	$0, 774(%rsp)
				movb	$0, 775(%rsp)
				movb	$0, 776(%rsp)
				movb	$0, 777(%rsp)
				movb	$10, 778(%rsp)
				movb	$0, 779(%rsp)
				movb	$3, 780(%rsp)
				movb	$0, 781(%rsp)
				movb	$0, 782(%rsp)
				movb	$0, 783(%rsp)
				movb	$0, 784(%rsp)
				movb	$0, 785(%rsp)
				movb	$0, 786(%rsp)
				movb	$0, 787(%rsp)
				movb	$0, 788(%rsp)
				movb	$0, 789(%rsp)
				movb	$0, 790(%rsp)
				movb	$0, 791(%rsp)
				movb	$0, 792(%rsp)
				movb	$0, 793(%rsp)
				movb	$0, 794(%rsp)
				movb	$0, 795(%rsp)
				movb	$0, 796(%rsp)
				movb	$0, 797(%rsp)
				movb	$0, 798(%rsp)
				movb	$0, 799(%rsp)
				movb	$0, 800(%rsp)
				movb	$33, 801(%rsp)
				movb	$34, 802(%rsp)
				movb	$35, 803(%rsp)
				movb	$36, 804(%rsp)
				movb	$1, 805(%rsp)
				movb	$38, 806(%rsp)
				movb	$39, 807(%rsp)
				movb	$40, 808(%rsp)
				movb	$41, 809(%rsp)
				movb	$42, 810(%rsp)
				movb	$43, 811(%rsp)
				movb	$44, 812(%rsp)
				movb	$45, 813(%rsp)
				movb	$46, 814(%rsp)
				movb	$47, 815(%rsp)
				movb	$48, 816(%rsp)
				movb	$49, 817(%rsp)
				movb	$50, 818(%rsp)
				movb	$51, 819(%rsp)
				movb	$52, 820(%rsp)
				movb	$53, 821(%rsp)
				movb	$54, 822(%rsp)
				movb	$55, 823(%rsp)
				movb	$56, 824(%rsp)
				movb	$57, 825(%rsp)
				movb	$58, 826(%rsp)
				movb	$59, 827(%rsp)
				movb	$60, 828(%rsp)
				movb	$61, 829(%rsp)
				movb	$62, 830(%rsp)
				movb	$63, 831(%rsp)
				movb	$64, 832(%rsp)
				movb	$65, 833(%rsp)
				movb	$66, 834(%rsp)
				movb	$67, 835(%rsp)
				movb	$68, 836(%rsp)
				movb	$69, 837(%rsp)
				movb	$70, 838(%rsp)
				movb	$71, 839(%rsp)
				movb	$72, 840(%rsp)
				movb	$73, 841(%rsp)
				movb	$74, 842(%rsp)
				movb	$75, 843(%rsp)
				movb	$76, 844(%rsp)
				movb	$77, 845(%rsp)
				movb	$78, 846(%rsp)
				movb	$79, 847(%rsp)
				movb	$80, 848(%rsp)
				movb	$81, 849(%rsp)
				movb	$82, 850(%rsp)
				movb	$83, 851(%rsp)
				movb	$84, 852(%rsp)
				movb	$85, 853(%rsp)
				movb	$86, 854(%rsp)
				movb	$87, 855(%rsp)
				movb	$88, 856(%rsp)
				movb	$89, 857(%rsp)
				movb	$90, 858(%rsp)
				movb	$91, 859(%rsp)
				movb	$92, 860(%rsp)
				movb	$93, 861(%rsp)
				movb	$94, 862(%rsp)
				movb	$95, 863(%rsp)
				movb	$96, 864(%rsp)
				movb	$65, 865(%rsp)
				movb	$66, 866(%rsp)
				movb	$67, 867(%rsp)
				movb	$68, 868(%rsp)
				movb	$69, 869(%rsp)
				movb	$70, 870(%rsp)
				movb	$71, 871(%rsp)
				movb	$72, 872(%rsp)
				movb	$73, 873(%rsp)
				movb	$74, 874(%rsp)
				movb	$75, 875(%rsp)
				movb	$76, 876(%rsp)
				movb	$77, 877(%rsp)
				movb	$78, 878(%rsp)
				movb	$79, 879(%rsp)
				movb	$80, 880(%rsp)
				movb	$81, 881(%rsp)
				movb	$82, 882(%rsp)
				movb	$83, 883(%rsp)
				movb	$84, 884(%rsp)
				movb	$85, 885(%rsp)
				movb	$86, 886(%rsp)
				movb	$87, 887(%rsp)
				movb	$88, 888(%rsp)
				movb	$89, 889(%rsp)
				movb	$90, 890(%rsp)
				movb	$2, 891(%rsp)
				movb	$124, 892(%rsp)
				movb	$125, 893(%rsp)
				movb	$126, 894(%rsp)
				movb	$0, 895(%rsp)
 1033                   0,  0,  0,  0,   0,  0,  0,  0,    0,  0, 10,  0,   3,  0,  0,  0,
 1034                   0,  0,  0,  0,   0,  0,  0,  0,    0,  0,  0,  0,   0,  0,  0,  0,
 1035                   0,'!','"','#', '$',  1,'&', 39,  '(',')','*','+', ',','-','.','/',
 1036                 '0','1','2','3', '4','5','6','7',  '8','9',':',';', '<','=','>','?',
 1037                 '@','A','B','C', 'D','E','F','G',  'H','I','J','K', 'L','M','N','O',
 1038                 'P','Q','R','S', 'T','U','V','W',  'X','Y','Z','[', '\',']','^','_',
 1039                 '`','A','B','C', 'D','E','F','G',  'H','I','J','K', 'L','M','N','O',
 1040                 'P','Q','R','S', 'T','U','V','W',  'X','Y','Z', 2 , '|','}','~',  0
 1041
 1042                 !!   0 = space
 1043                 !!   1 = %
 1044                 !!   2 = {
 1045                 !!   3 = ff
 1046                 !!   other values represent themselves
 1047
 1048                 %if sym = nl %start
				cmpl	$10, SYM.6433(%rip)
				jne	.L81
		.L71:
 1049 s1:                 lines = lines+1
 1050                     printsymbol(end mark) %if end mark # 0
				addl	$1, LINES.6425(%rip)
				movl	ENDMARK.6436(%rip), %edi
				testl	%edi, %edi
				jne	.L105
		.L72:
		.L73:
 1051 s11:                pos = 0;  pos1 = 0;  pos2 = 0;  margin = 0;  column = 0
				movsbl	%dil, %edi
		.LBB292:
		.LBB293:
				call	_imp_printsymbol@PLT
		.LVL75:
				jmp	.L73
		.L106:
		.LBE293:
		.LBE292:
 1052                     Last = 0
				movl	$0, POS.6481(%rip)
				movl	$0, LAST.6946(%rip)
 1053                     end mark = 0
				movl	$0, POS1.6479(%rip)
				movl	$0, ENDMARK.6436(%rip)
 1054                     %if list <= 0 %start
				movl	$0, POS2.6480(%rip)
				cmpl	$0, LIST.6493(%rip)
				jle	.L106
		.L74:
		.L78:
		.L79:
		.L80:
 1055                         %if include # 0 %start
				movl	$0, MARGIN.6427(%rip)
				cmpl	$0, INCLUDE.6467(%rip)
				je	.L75
		.LVL76:
		.LBB294:
 1056                             printstring(" &");  write(lines, -4)
				movl	$0, COLUMN.6430(%rip)
				movq	$9760, 1(%rsp)
				movq	$0, 9(%rsp)
				movb	$0, 17(%rsp)
				movw	$0, 18(%rsp)
				movl	$0, 20(%rsp)
				leaq	24(%rsp), %rdi
				movl	$29, %ecx
				movl	$0, %eax
				rep stosq
				movb	$2, (%rsp)
				movq	(%rsp), %rax
				movq	8(%rsp), %rdx
				movq	%rax, 256(%rsp)
				movq	%rdx, 264(%rsp)
				movdqa	16(%rsp), %xmm0
				movaps	%xmm0, 272(%rsp)
				movdqa	32(%rsp), %xmm1
				movaps	%xmm1, 288(%rsp)
				movdqa	48(%rsp), %xmm2
				movaps	%xmm2, 304(%rsp)
				movdqa	64(%rsp), %xmm3
				movaps	%xmm3, 320(%rsp)
				movdqa	80(%rsp), %xmm4
				movaps	%xmm4, 336(%rsp)
				movdqa	96(%rsp), %xmm5
				movaps	%xmm5, 352(%rsp)
				movdqa	112(%rsp), %xmm6
				movaps	%xmm6, 368(%rsp)
				movdqa	128(%rsp), %xmm7
				movaps	%xmm7, 384(%rsp)
				movdqa	144(%rsp), %xmm0
				movaps	%xmm0, 400(%rsp)
				movq	160(%rsp), %r13
				movq	168(%rsp), %r14
				movq	%r13, 416(%rsp)
				movq	%r14, 424(%rsp)
				movq	176(%rsp), %rax
				movq	184(%rsp), %rdx
				movq	%rax, 432(%rsp)
				movq	%rdx, 440(%rsp)
				movq	192(%rsp), %rsi
				movq	200(%rsp), %rdi
				movq	%rsi, 448(%rsp)
				movq	%rdi, 456(%rsp)
				movq	208(%rsp), %r9
				movq	216(%rsp), %r10
				movq	%r9, 464(%rsp)
				movq	%r10, 472(%rsp)
				movq	224(%rsp), %rcx
				movq	232(%rsp), %rbx
				movq	%rcx, 480(%rsp)
				movq	%rbx, 488(%rsp)
				movq	240(%rsp), %r11
				movq	248(%rsp), %r12
				movq	%r11, 496(%rsp)
				movq	%r12, 504(%rsp)
		.LVL77:
				movb	$2, 256(%rsp)
				movdqa	256(%rsp), %xmm1
				movaps	%xmm1, 512(%rsp)
				movdqa	16(%rsp), %xmm2
				movaps	%xmm2, 528(%rsp)
				movdqa	32(%rsp), %xmm3
				movaps	%xmm3, 544(%rsp)
				movdqa	48(%rsp), %xmm4
				movaps	%xmm4, 560(%rsp)
				movdqa	64(%rsp), %xmm5
				movaps	%xmm5, 576(%rsp)
				movdqa	80(%rsp), %xmm6
				movaps	%xmm6, 592(%rsp)
				movdqa	96(%rsp), %xmm7
				movaps	%xmm7, 608(%rsp)
				movdqa	112(%rsp), %xmm0
				movaps	%xmm0, 624(%rsp)
				movdqa	128(%rsp), %xmm1
				movaps	%xmm1, 640(%rsp)
				movdqa	144(%rsp), %xmm2
				movaps	%xmm2, 656(%rsp)
				movq	%r13, 672(%rsp)
				movq	%r14, 680(%rsp)
				movq	%rax, 688(%rsp)
				movq	%rdx, 696(%rsp)
				movq	%rsi, 704(%rsp)
				movq	%rdi, 712(%rsp)
				movq	%r9, 720(%rsp)
				movq	%r10, 728(%rsp)
				movq	%rcx, 736(%rsp)
				movq	%rbx, 744(%rsp)
				movq	%r11, 752(%rsp)
				movq	%r12, 760(%rsp)
		.LBE294:
		.LBB295:
		.LBB296:
				pushq	%r12
				pushq	%r11
				pushq	%rbx
				pushq	%rcx
				pushq	%r10
				pushq	%r9
				pushq	%rdi
				pushq	%rsi
				pushq	%rdx
				pushq	%rax
				pushq	%r14
				pushq	%r13
				pushq	248(%rsp)
				pushq	248(%rsp)
				pushq	248(%rsp)
				pushq	248(%rsp)
				pushq	248(%rsp)
				pushq	248(%rsp)
				pushq	248(%rsp)
				pushq	248(%rsp)
				pushq	248(%rsp)
				pushq	248(%rsp)
				pushq	248(%rsp)
				pushq	248(%rsp)
				pushq	248(%rsp)
				pushq	248(%rsp)
				pushq	248(%rsp)
				pushq	248(%rsp)
				pushq	248(%rsp)
				pushq	248(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				call	_imp_printstring@PLT
		.LVL78:
		.LBE296:
		.LBE295:
 1057                         %finish %else  write(lines, 5)
				addq	$256, %rsp
				movl	$-4, %esi
				movl	LINES.6425(%rip), %edi
				call	_imp_writeint@PLT
		.LVL79:
		.L76:
 1058                         csym = cont;  printsymbol(csym)
				movl	CONT.6437(%rip), %edi
				movl	%edi, CSYM.6438(%rip)
		.LVL80:
 1059                         space
				movsbl	%dil, %edi
		.LBB297:
		.LBB298:
				call	_imp_printsymbol@PLT
		.LVL81:
		.LBE298:
		.LBE297:
		.LBB299:
		.LBB300:
				call	_imp_space@PLT
		.LVL82:
		.LBE300:
		.LBE299:
				movl	$5, %esi
				movl	LINES.6425(%rip), %edi
				call	_imp_writeint@PLT
		.LVL87:
				jmp	.L76
		.L107:
 1060                         %if error margin # 0 %start
				movl	ERRORMARGIN.6428(%rip), %edi
				testl	%edi, %edi
				je	.L80
 1061                             lines = lines-1
				subl	$1, LINES.6425(%rip)
		.LVL83:
		.LBB301:
		.LBB302:
				call	_imp_spaces@PLT
		.LVL84:
		.LBE302:
		.LBE301:
 1062                             spaces(error margin)
 1063                             error margin = 0
				movl	$0, ERRORMARGIN.6428(%rip)
 1064                             %if error sym # 0 %start
				movl	ERRORSYM.6429(%rip), %edi
				testl	%edi, %edi
				je	.L80
		.LVL85:
 1065                                 printsymbol(error sym)
				movsbl	%dil, %edi
		.LBB303:
		.LBB304:
				call	_imp_printsymbol@PLT
		.LVL86:
		.LBE304:
		.LBE303:
 1066                                 pos = 1;  char(1) = error sym
				movl	$1, POS.6481(%rip)
 1067                                 sym = error sym;  error sym = 0
				movl	ERRORSYM.6429(%rip), %eax
				movb	%al, 1+CHAR.6488(%rip)
				movl	%eax, SYM.6433(%rip)
 1068                                 ->s5
				movl	$0, ERRORSYM.6429(%rip)
				jmp	.L77
		.L75:
 1069                             %finish
 1070                         %finish
 1071                     %finish
 1072 s2:                 symtype = 1
 1073                 %finish
				movl	$1, SYMTYPE.6434(%rip)
		.L70:
		.L81:
		.LVL71:
		.LBB290:
		.LBB291:
				leaq	SYM.6433(%rip), %rdi
				call	_imp_readsymbol@PLT
		.LVL72:
		.LBE291:
		.LBE290:
 1074 s3:             readsymbol(sym)
 1075                 abandon(5) %if sym < 0
				cmpl	$0, SYM.6433(%rip)
				js	.L107
		.L82:
 1076                 pos = pos+1 %if pos # 133
				movl	POS.6481(%rip), %eax
				cmpl	$133, %eax
				je	.L83
				movq	0(%rbp), %rax
				movq	8(%rax), %r10
				movl	$5, %edi
				call	ABANDON.6563
		.LVL88:
				jmp	.L82
		.L108:
		.LVL89:
 1077                 char(pos) = sym
				addl	$1, %eax
				movl	%eax, POS.6481(%rip)
		.L83:
				movl	SYM.6433(%rip), %edi
				movslq	POS.6481(%rip), %rax
				leaq	CHAR.6488(%rip), %rdx
				movb	%dil, (%rdx,%rax)
 1078                 printsymbol(sym) %if list <= 0
				cmpl	$0, LIST.6493(%rip)
				jle	.L108
		.L84:
 1079                 column = column+1
				addl	$1, COLUMN.6430(%rip)
		.L77:
				movsbl	%dil, %edi
		.LVL90:
		.LBB305:
		.LBB306:
				call	_imp_printsymbol@PLT
		.LVL91:
				jmp	.L84
		.L109:
		.LBE306:
		.LBE305:
 1080 s5:             %if sym # nl %start
 1081                     Last = Sym
				movl	SYM.6433(%rip), %eax
				cmpl	$10, %eax
				je	.L96
				movl	%eax, LAST.6946(%rip)
 1082                     %return %if quote # 0;                     !dont alter strings
				cmpl	$0, QUOTE.6435(%rip)
				jne	.L69
		.L87:
 1083                     sym = mapped(sym&127)
				andl	$127, %eax
				movzbl	768(%rsp,%rax), %eax
				movl	%eax, SYM.6433(%rip)
 1084                     %if sym <= 3 %start;                       !special symbol
				cmpl	$3, %eax
				jg	.L88
 1085                         ->s2 %if sym = 0;                       !space (or dubious control)
				testl	%eax, %eax
				je	.L80
		.L89:
 1086                         symtype = 2 %and ->s3 %if sym = 1;      !%
				cmpl	$1, %eax
				je	.L109
		.L90:
 1087                         cont = '+' %and ->s11 %if sym = 3;      !ff
				cmpl	$3, %eax
				je	.L110
		.L91:
		.L92:
		.L93:
				movl	$2, SYMTYPE.6434(%rip)
 1088                         !must be {
				jmp	.L81
		.L110:
				movl	$43, CONT.6437(%rip)
 1089                         %cycle
				jmp	.L73
		.L88:
 1090                             get sym
				movq	%rbp, %r10
				call	GETSYM.6938
		.LVL73:
 1091                             ->s3 %if sym = '}'
				movl	SYM.6433(%rip), %eax
				cmpl	$125, %eax
				je	.L81
		.L94:
 1092                             ->s4 %if sym = nl
				cmpl	$10, %eax
				jne	.L91
		.L85:
		.L96:
 1093                         %repeat
 1094                     %finish
 1095                     key = kdict(sym)
				movq	0(%rbp), %rdx
				movq	8(%rdx), %rcx
				leal	-32(%rax), %edx
				movslq	%edx, %rdx
				movzwl	68508(%rcx,%rdx,2), %edx
				movswl	%dx, %ecx
				movl	%ecx, KEY.6899(%rip)
 1096                     %if key&3 = 0 %and symtype = 2 %start;            !keyword
				testb	$1, %dl
				jne	.L95
 1097                         %if sym = 'C' %and nextsymbol = nl %start;     !%c...
				cmpl	$2, SYMTYPE.6434(%rip)
				je	.L112
		.L95:
				cmpl	$67, %eax
				jne	.L69
		.LBB307:
		.LBB308:
				call	_imp_nextsymbol@PLT
		.LVL92:
		.LBE308:
		.LBE307:
 1098                             getsym;  cont = '+';  ->s1
				cmpl	$10, %eax
				jne	.L69
				movq	%rbp, %r10
				call	GETSYM.6938
		.LVL93:
 1099                         %finish
				movl	$43, CONT.6437(%rip)
 1100                     %else
				jmp	.L71
		.L111:
 1101                         symtype = key&3-2
				andl	$3, %edx
				subl	$2, %edx
				movl	%edx, SYMTYPE.6434(%rip)
				jmp	.L69
		.L112:
 1102                     %finish
 1103                     %return
 1104                 %finish
 1105 s4:             symtype = quote
 1106                 ->S1 %if last = 0 %and Quote = 0
				movl	QUOTE.6435(%rip), %eax
				movl	%eax, SYMTYPE.6434(%rip)
 1107                 Cont = '+'
				orl	LAST.6946(%rip), %eax
				je	.L71
		.L97:
				movl	$43, CONT.6437(%rip)
		.L86:
		.L98:
		.L69:
 1108             %end
 1109
				movq	904(%rsp), %rax
				xorq	%fs:40, %rax
				jne	.L111
				addq	$912, %rsp
				popq	%rbx
				popq	%rbp
				popq	%r12
				popq	%r13
				popq	%r14
				ret
		.L105:
		.LVL74:
				call	__stack_chk_fail@PLT
		.LVL94:
		.LFE206:
		GET.7122:
		.LFB211:
 1110             %integerfn format selected
 1111                 format list = tag(format)_app;      !number of names
				movq	(%r14), %rdx
				movq	(%rdx), %rdx
				movq	8(%rdx), %rcx
				movslq	%eax, %rdx
				leaq	(%rdx,%rdx,2), %rdx
				movl	49044(%rcx,%rdx,8), %edx
				movl	%edx, FORMATLIST.6486(%rip)
 1112                 %if format list < 0 %start;         !forward ref
				testl	%edx, %edx
				js	.L209
		.L160:
 1113                     atom1 = error+22
				movl	$32790, ATOM1.6416(%rip)
				jmp	.L138
		.L208:
		.LBE330:
		.LBE329:
 1114                     %result = 0
 1115                 %finish
 1116                 %if sym = '_' %start
				cmpl	$95, SYM.6433(%rip)
				jne	.L163
 1117                     escape class = esc rec
				movl	$255, ESCAPECLASS.6442(%rip)
 1118                     search base = tag(format)_format
				cltq
				leaq	(%rax,%rax,2), %rax
				movl	49048(%rcx,%rax,8), %eax
				movl	%eax, SEARCHBASE.6485(%rip)
				jmp	.L163
		.L209:
 1119                 %finish
 1120                 %result = 1
 1121             %end
 1122
 1123             %routine code atom(%integer target)
		.LVL186:
				pushq	%r15
				pushq	%r14
				pushq	%r13
				pushq	%r12
				pushq	%rbp
				pushq	%rbx
				subq	$72, %rsp
				movl	%edi, 12(%rsp)
				movq	%r10, %rbx
				movq	%fs:40, %rax
				movq	%rax, 56(%rsp)
				xorl	%eax, %eax
				leaq	128(%rsp), %rax
				movq	%rax, 40(%rsp)
				movq	%r10, 16(%rsp)
 1124                 %integer dbase, da
 1125                 %integer base, n, mul, pend quote
 1126                 %integer j,k,l, pt
 1127
 1128                 %routine lookup(%integer d)
		.LVL106:
				pushq	%r15
				pushq	%r14
				pushq	%r13
				pushq	%r12
				pushq	%rbp
				pushq	%rbx
				subq	$552, %rsp
				movl	%edi, 8(%rsp)
				movq	%r10, %r14
				movq	%fs:40, %rax
				movq	%rax, 536(%rsp)
				xorl	%eax, %eax
 1129                     %integer new name, vid, k1, k2, form
 1130                     %record(tagfm)%name t
 1131                     %integer new
 1132
 1133                     ! twee little function because SKIMP86 can't do string compare properly
 1134                     ! returns 1 if the two names are the same, else zero
 1135                     %integerfn dict match(%integer ptr1, ptr2)
 1136                         %integer len;
 1137                         ! start with a cheap check of the length and first character
 1138                         %if dict(ptr1) # dict(ptr2) %then %result = 0
				movl	25044(%r13), %r11d
				movl	25044(%rdi), %edx
				cmpl	%r11d, %edx
				jne	.L141
		.L142:
 1139                         len = dict(ptr1) & 255
				movzbl	%dl, %edx
		.LVL123:
 1140                         ptr1 = ptr1 + 1
				movl	%ecx, %edi
				leal	2(%r15), %ecx
		.LVL124:
 1141                         ptr2 = ptr2 + 1
				addl	$2, %r12d
		.LVL110:
				movl	%r12d, 12(%rsp)
				jmp	.L140
		.LVL111:
		.L194:
				movl	12(%rsp), %r8d
				movl	%r12d, %esi
		.LVL125:
 1142                         len = len - 1
				movl	%eax, %edx
		.LVL112:
		.L143:
				leal	-1(%rdx), %eax
		.LVL126:
 1143                         %while len >= 2 %cycle
 1144                             %if dict(ptr1) # dict(ptr2) %then %result = 0
				cmpl	$1, %eax
				jle	.L194
				movl	25048(%r13), %r10d
				cmpl	%r10d, 25048(%rdi)
				jne	.L141
				subl	$3, %edx
				andl	$1, %edx
		.L144:
				cmpl	%eax, %edx
				je	.L143
				movslq	%ecx, %r10
				movslq	%esi, %r9
				movl	25044(%rbp,%r9,4), %edi
		.LVL130:
				cmpl	%edi, 25044(%rbp,%r10,4)
				je	.L144
				jmp	.L141
		.LVL131:
		.L139:
		.LBE321:
		.LBE323:
 1145                             ptr1 = ptr1 + 1
				leal	1(%rcx), %edi
		.LVL127:
				movl	%edi, %ecx
 1146                             ptr2 = ptr2 + 1
				leal	1(%rsi), %r8d
		.LVL128:
				movl	%r8d, %esi
 1147                             len = len - 2
				subl	$2, %eax
		.LVL129:
		.LDL10:
 1148                         %repeat
 1149                         ! if the string was odd length, we might need one last byte checked
 1150                         %if len = 1 %start
				cmpl	$1, %edx
				je	.L202
		.L146:
		.LVL113:
		.L191:
		.LDL6:
		.LBE319:
		.LBE318:
 1151                             %if dict(ptr1)&255 # dict(ptr2)&255 %then %result = 0
				subl	$1, %r8d
				movslq	%r8d, %r8
				cmpl	$255, 25044(%rbp,%r8,4)
				sete	%al
		.LVL116:
				movzbl	%al, %eax
				subl	$1, %edi
		.LVL117:
				movslq	%edi, %rdi
				testl	%eax, 25044(%rbp,%rdi,4)
				jne	.L191
		.LVL118:
		.L141:
		.LDL8:
		.LBE320:
		.LBE322:
 1152                         %finish
 1153                         %result = 1
 1154                     %end
 1155
 1156                     !first locate the text of the name
 1157                     new = dmax+1;     ! points to text of string in dictionary
				movl	DMAX.6461(%rip), %r12d
		.LVL107:
 1158                     k1 = hash value & max names;        ! rather crude hash!
				movq	(%r10), %rax
				movq	(%rax), %rax
				movq	8(%rax), %rbp
				movl	25040(%rbp), %ebx
				andl	$2047, %ebx
		.LVL108:
 1159
 1160                     %cycle
 1161                         newname = hash(k1)
				movslq	%ebx, %rax
				movl	16848(%rbp,%rax,4), %r15d
		.LVL109:
				movslq	%ebx, %rax
				movl	16848(%rbp,%rax,4), %r15d
		.LVL121:
 1162                         %exit %if newname = 0;                !not in
				testl	%r15d, %r15d
				je	.L139
				movslq	%r12d, %rax
				leaq	0(%rbp,%rax,4), %r13
		.LBB318:
		.LBB319:
				testl	%r15d, %r15d
				je	.L139
		.L140:
		.LVL122:
				movslq	%r15d, %rax
				leaq	0(%rbp,%rax,4), %rdi
		.LBB323:
		.LBB321:
 1163                         ->in %if dict match(newname+1, new) = 1
 1164                         k1 = (k1+1)&max names
				addl	$1, %ebx
		.LVL119:
				andl	$2047, %ebx
		.LVL120:
		.LDL9:
 1165                     %repeat
 1166
 1167                     ! not found
 1168                     spare names = spare names-1
				movl	SPARENAMES.6388(%rip), %eax
				subl	$1, %eax
				movl	%eax, SPARENAMES.6388(%rip)
 1169                     abandon(2) %if spare names <= 0
				testl	%eax, %eax
				jle	.L205
		.LVL132:
		.L147:
 1170                     hash(k1) = dmax;                               !put it in
				movl	DMAX.6461(%rip), %r15d
		.LVL133:
				movq	(%r14), %rax
				movq	(%rax), %rax
				movq	8(%rax), %rax
				movslq	%ebx, %rbx
				movl	%r15d, 16848(%rax,%rbx,4)
				movq	%rbp, %r10
				movl	$2, %edi
				call	ABANDON.6563
		.LVL140:
				jmp	.L147
		.LVL141:
		.L203:
 1171                     dict(dmax) = -1
				movq	(%r14), %rax
				movq	(%rax), %rax
				movq	8(%rax), %rdx
				leal	-1(%r15), %eax
				cltq
				movl	$-1, 25044(%rdx,%rax,4)
		.LVL134:
 1172                     newname = dmax;  dmax = dp;  ->not in
 1173
				movl	DP.6478(%rip), %eax
				movl	%eax, DMAX.6461(%rip)
		.L148:
		.LVL135:
		.L180:
 1174 in:                 search base = rbase %if this >= 0 %and d # 0;  !record elem defn
 1175                     %if search base # 0 %start;                    !record subname
				movl	SEARCHBASE.6485(%rip), %eax
				testl	%eax, %eax
				je	.L150
		.LVL114:
 1176                         new = -1
				cmpl	$0, THIS.6457(%rip)
				js	.L149
				cmpl	$0, 8(%rsp)
				jne	.L203
		.L149:
 1177                         x = search base
				movl	%eax, X.6415(%rip)
				movl	RBASE.6460(%rip), %eax
				movl	%eax, SEARCHBASE.6485(%rip)
				jmp	.L149
		.L150:
 1178                         %cycle
 1179                             ->not in %if x < format list
				movl	FORMATLIST.6486(%rip), %esi
				cmpl	%esi, %eax
				jl	.L180
				cmpl	%esi, %eax
				jl	.L204
		.L153:
				subl	$1, %eax
 1180                             %exit %if tag(x)_text = new name
				movslq	%eax, %rdx
				leaq	(%rdx,%rdx,2), %rdx
				subl	$1, %eax
				cmpl	%r15d, 49060(%rbp,%rdx,8)
				je	.L157
		.L154:
				movslq	%ecx, %rdx
				leaq	(%rdx,%rdx,2), %rdx
				cmpl	%r15d, 49060(%rbp,%rdx,8)
				jne	.L154
				movl	%ecx, X.6415(%rip)
				jmp	.L157
		.LVL115:
		.L202:
		.LBB322:
		.LBB320:
 1181                             x = x-1
				movl	%eax, %ecx
		.LDL7:
 1182                         %repeat
 1183                     %finish %else %start;                   !hash in for normal names
 1184                         x = dict(newname)
				leal	-1(%r15), %eax
				cltq
				movl	25044(%rbp,%rax,4), %eax
				movl	%eax, X.6415(%rip)
 1185                         ->not in %if x <= limit;             !wrong level
				cmpl	LIMIT.6473(%rip), %eax
				jle	.L180
		.L152:
		.L156:
		.LVL142:
		.L157:
 1186                     %finish
 1187
 1188                     subatom = x;                            !name found, extract info
				movl	X.6415(%rip), %r13d
				movl	%r13d, SUBATOM.6418(%rip)
		.LVL143:
 1189                     t == tag(x)
 1190                     atom flags = t_flags
				movslq	%r13d, %rcx
				leaq	(%rcx,%rcx), %rdx
				leaq	(%rdx,%rcx), %rax
				movl	49052(%rbp,%rax,8), %eax
				movl	%eax, ATOMFLAGS.6444(%rip)
 1191                     format = t_format;  app = t_app
				leaq	(%rdx,%rcx), %rsi
				movl	49048(%rbp,%rsi,8), %esi
				movl	%esi, FORMAT.6421(%rip)
 1192                     protection = atom flags&prot
				addq	%rcx, %rdx
				movl	49044(%rbp,%rdx,8), %edx
				movl	%edx, APP.6420(%rip)
 1193                     type = atom flags>>4&7;  atom1 = amap(atom flags&15)
				movl	%eax, %edx
				shrl	$4, %edx
				andl	$7, %edx
				movl	%edx, TYPE.6419(%rip)
 1194
				andl	$15, %eax
				movzbl	69748(%rbp,%rax), %eax
				movl	%eax, ATOM1.6416(%rip)
		.LVL144:
		.LBB324:
 1195                     %if diag&8 # 0 %start
 1196                         printstring("lookup:")
				movabsq	$16449198265167724, %rax
				movl	$0, %edx
				movq	%rax, 273(%rsp)
				movq	%rdx, 281(%rsp)
				movb	$0, 289(%rsp)
				movw	$0, 290(%rsp)
				movl	$0, 292(%rsp)
				leaq	296(%rsp), %rdi
				movl	$29, %ecx
				movl	$0, %eax
				rep stosq
				movb	$7, 272(%rsp)
				movq	272(%rsp), %rax
				movq	280(%rsp), %rdx
				movq	%rax, 16(%rsp)
				movq	%rdx, 24(%rsp)
				movdqa	288(%rsp), %xmm0
				movaps	%xmm0, 32(%rsp)
				movdqa	304(%rsp), %xmm1
				movaps	%xmm1, 48(%rsp)
				movdqa	320(%rsp), %xmm2
				movaps	%xmm2, 64(%rsp)
				movdqa	336(%rsp), %xmm3
				movaps	%xmm3, 80(%rsp)
				movdqa	352(%rsp), %xmm4
				movaps	%xmm4, 96(%rsp)
				movdqa	368(%rsp), %xmm5
				movaps	%xmm5, 112(%rsp)
				movdqa	384(%rsp), %xmm6
				movaps	%xmm6, 128(%rsp)
				movdqa	400(%rsp), %xmm7
				movaps	%xmm7, 144(%rsp)
				movdqa	416(%rsp), %xmm0
				movaps	%xmm0, 160(%rsp)
				movdqa	432(%rsp), %xmm1
				movaps	%xmm1, 176(%rsp)
				movdqa	448(%rsp), %xmm2
				movaps	%xmm2, 192(%rsp)
				movq	464(%rsp), %rsi
				movq	472(%rsp), %rdi
				movq	%rsi, 208(%rsp)
				movq	%rdi, 216(%rsp)
				movq	480(%rsp), %r9
				movq	488(%rsp), %r10
				movq	%r9, 224(%rsp)
				movq	%r10, 232(%rsp)
				movq	496(%rsp), %rcx
				movq	504(%rsp), %rbx
		.LVL145:
				movq	%rcx, 240(%rsp)
				movq	%rbx, 248(%rsp)
				movq	512(%rsp), %r11
				movq	520(%rsp), %r12
				movq	%r11, 256(%rsp)
				movq	%r12, 264(%rsp)
		.LVL146:
				movb	$7, 16(%rsp)
				movq	16(%rsp), %rax
				movq	24(%rsp), %rdx
				movq	%rax, 272(%rsp)
				movq	%rdx, 280(%rsp)
		.LBE324:
		.LBB325:
		.LBB326:
				pushq	%r12
				pushq	%r11
				pushq	%rbx
				pushq	%rcx
				pushq	%r10
				pushq	%r9
				pushq	%rdi
				pushq	%rsi
				pushq	520(%rsp)
				pushq	520(%rsp)
				pushq	520(%rsp)
				pushq	520(%rsp)
				pushq	520(%rsp)
				pushq	520(%rsp)
				pushq	520(%rsp)
				pushq	520(%rsp)
				pushq	520(%rsp)
				pushq	520(%rsp)
				pushq	520(%rsp)
				pushq	520(%rsp)
				pushq	520(%rsp)
				pushq	520(%rsp)
				pushq	520(%rsp)
				pushq	520(%rsp)
				pushq	520(%rsp)
				pushq	520(%rsp)
				pushq	520(%rsp)
				pushq	520(%rsp)
				pushq	520(%rsp)
				pushq	520(%rsp)
				pushq	%rdx
				pushq	%rax
				call	_imp_printstring@PLT
		.LVL147:
		.LBE326:
		.LBE325:
 1197                         write(atom1, 3)
				addq	$256, %rsp
				movl	$3, %esi
				movl	ATOM1.6416(%rip), %edi
				call	_imp_writeint@PLT
		.LVL148:
 1198                         write(type, 1)
				movl	$1, %esi
				movl	TYPE.6419(%rip), %edi
				call	_imp_writeint@PLT
		.LVL149:
 1199                         write(app, 3)
				movl	$3, %esi
				movl	APP.6420(%rip), %edi
				call	_imp_writeint@PLT
		.LVL150:
 1200                         write(format, 5)
				movl	$5, %esi
				movl	FORMAT.6421(%rip), %edi
				call	_imp_writeint@PLT
		.LVL151:
 1201                         write(atom flags, 3)
				movl	$3, %esi
				movl	ATOMFLAGS.6444(%rip), %edi
				call	_imp_writeint@PLT
		.LVL152:
		.LBB327:
		.LBB328:
				call	_imp_newline@PLT
		.LVL153:
		.LDL11:
		.LBE328:
		.LBE327:
 1202                         newline
 1203                     %finish
 1204
 1205                     %if d = 0 %start;                             !old name wanted
				cmpl	$0, 8(%rsp)
				jne	.L158
 1206                         t_flags = t_flags!used bit
				movslq	%r13d, %rdx
				leaq	(%rdx,%rdx), %rax
				leaq	(%rax,%rdx), %rcx
				movl	49052(%rbp,%rcx,8), %eax
				orb	$-128, %ah
				movl	%eax, 49052(%rbp,%rcx,8)
 1207                         search base = 0
				movl	$0, SEARCHBASE.6485(%rip)
 1208
 1209                         %if atom flags&subname # 0 %and format # 0 %start; !a record
 1210                             %return %if format selected = 0
				movl	FORMAT.6421(%rip), %eax
				testl	%eax, %eax
				jne	.L207
		.L159:
		.L163:
 1211                         %finish
 1212
 1213                         %if atom flags&parameters # 0 %start;      !proc or array
 1214                             %if app = 0 %start;                     !no parameters needed
				movl	APP.6420(%rip), %eax
				testl	%eax, %eax
				jne	.L164
 1215                                 atom2 = atom1
				movl	ATOM1.6416(%rip), %eax
				movl	%eax, ATOM2.6417(%rip)
 1216                                 atom1 = atom1-4
				leal	-4(%rax), %edx
				movl	%edx, ATOM1.6416(%rip)
 1217                                 %if 97 <= atom1 %and atom1 <= 98 %start
 1218                                     map gg = atom1;  atom1 = var
				subl	$101, %eax
				cmpl	$1, %eax
				jbe	.L208
		.L165:
		.L168:
		.L169:
				movl	%edx, MAPGG.6455(%rip)
 1219                                 %finish
				movl	$91, ATOM1.6416(%rip)
				jmp	.L169
		.L164:
 1220                             %finish %else %start
 1221                                 %if sym = '(' %start
				cmpl	$40, SYM.6433(%rip)
				jne	.L169
 1222                                     search base = 0;                  !ignore format for now
				movl	$0, SEARCHBASE.6485(%rip)
 1223                                     %if atom1 >= 106 %start;          !arrays
				movl	ATOM1.6416(%rip), %edx
				cmpl	$105, %edx
				jle	.L166
 1224                                         app = phrase(app+200)
				cltq
				leaq	PHRASE.6508(%rip), %rcx
				movswl	(%rcx,%rax,2), %eax
				movl	%eax, APP.6420(%rip)
 1225                                         escape class = esc array
				movl	$254, ESCAPECLASS.6442(%rip)
 1226                                         atom1 = (atom1-106)>>1+91;     !a,an->v  na,nan->n
				leal	-106(%rdx), %eax
				shrl	%eax
				addl	$91, %eax
				movl	%eax, ATOM1.6416(%rip)
		.L167:
 1227                                     %finish %else %start;             !procedures
 1228                                         escape class = esc proc
				movl	$253, ESCAPECLASS.6442(%rip)
 1229                                         atom1 = atom1-4
				subl	$4, %edx
				movl	%edx, ATOM1.6416(%rip)
				jmp	.L167
		.L158:
 1230                                     %finish
 1231                                     phrase(200) = app
				movl	APP.6420(%rip), %eax
				movw	%ax, PHRASE.6508(%rip)
				jmp	.L169
		.L166:
 1232                                 %finish
 1233                             %finish
 1234                             pos2 = pos;  %return
				movl	POS.6481(%rip), %eax
				movl	%eax, POS2.6480(%rip)
 1235                         %finish
				jmp	.L138
		.L207:
		.LBB329:
		.LBB330:
 1236
 1237                         !deal with constintegers etc
 1238                         %if atom flags&const bit # 0 %and atom1 = var %start
 1239                             map gg = const;  atom2 = const
 1240                             subatom = -subatom %if type = integer
 1241                         %finish
 1242                         %return
 1243                     %finish
 1244                                                                 !new name wanted
 1245                     ->not in %if tbase # tstart;                !don't fault proc parm-parm
				movq	(%r14), %rax
				movq	(%rax), %rax
				movl	72(%rax), %ebx
				cmpl	%ebx, 68(%rax)
				je	.L210
		.L170:
 1246                     %if d = lab+spec+used bit %start
				cmpl	$32899, 8(%rsp)
				je	.L215
		.L172:
 1247                         t_flags = t_flags!used bit
				movslq	%r13d, %rdx
				leaq	(%rdx,%rdx), %rax
				leaq	(%rax,%rdx), %rcx
				movl	49052(%rbp,%rcx,8), %eax
				orb	$-128, %ah
				movl	%eax, 49052(%rbp,%rcx,8)
 1248                         %return
				jmp	.L138
		.L216:
 1249                     %finish
 1250                     %if atom flags&spec # 0 %start;            !a spec has been given
 1251                         %if d = lab %start;                     !define label
				cmpl	$3, 8(%rsp)
				je	.L216
		.L173:
 1252                             t_flags = t_Flags-Spec
				movslq	%r13d, %rdx
				leaq	(%rdx,%rdx), %rax
				leaq	(%rax,%rdx), %rcx
				movl	49052(%rbp,%rcx,8), %eax
				addl	$-128, %eax
				movl	%eax, 49052(%rbp,%rcx,8)
 1253                             %return
				jmp	.L138
		.L174:
		.L177:
 1254                         %finish
 1255                         %if 7 <= decl&15 %and decl&15 <= 10 %and decl&spec = 0 %start
				movl	DECL.6439(%rip), %eax
				cmpl	$6, %eax
				jle	.L177
 1256                             !procedure definition after spec
				testb	$1, %al
				jne	.L178
 1257                             %if (decl!!atom flags)&2_1111111 = 0 %start;  !correct type?
				xorl	ATOMFLAGS.6444(%rip), %eax
				testb	$1, %al
				jne	.L176
 1258                                 t_flags = t_flags-spec
				movslq	%r13d, %rdx
				leaq	(%rdx,%rdx), %rax
				leaq	(%rax,%rdx), %rcx
				movl	49052(%rbp,%rcx,8), %eax
				addl	$-128, %eax
				movl	%eax, 49052(%rbp,%rcx,8)
 1259                                 spec given = 1
				movl	$1, SPECGIVEN.6441(%rip)
 1260                                 %return
				jmp	.L138
		.L215:
 1261                             %finish
 1262                             !note that an external procedure must be speced as a
 1263                             !non-external procedure.
 1264                         %finish
 1265                         %if decl&15 = recfm %start;              !recordformat
				testb	$1, %al
				jne	.L178
		.L176:
 1266                             t_flags = record<<4+recfm
				movslq	%r13d, %rax
				leaq	(%rax,%rax), %rdx
				leaq	(%rdx,%rax), %rcx
				movl	$68, 49052(%rbp,%rcx,8)
 1267                             t_format = fdef
				movl	FDEF.6456(%rip), %edx
				movl	%edx, 49048(%rbp,%rcx,8)
 1268                             %return
				jmp	.L138
		.L175:
		.L178:
 1269                         %finish
 1270                     %finish
 1271                     %return %if last1 = jump %and atom1 = swit
				cmpl	$54, LAST1.6447(%rip)
				je	.L217
		.L179:
 1272                     copy = x %if copy = 0
				cmpl	$0, COPY.6474(%rip)
				jne	.L170
				cmpl	$105, ATOM1.6416(%rip)
				jne	.L179
				jmp	.L138
		.LVL175:
		.L204:
				movl	%eax, X.6415(%rip)
				jmp	.L180
		.LVL176:
		.L211:
 1273 notin:              app = 0;  vid = 0
				movl	X.6415(%rip), %eax
				movl	%eax, COPY.6474(%rip)
				jmp	.L170
		.L217:
 1274                     atom1 = error+2
				movl	$0, APP.6420(%rip)
		.LVL136:
				movl	$32770, ATOM1.6416(%rip)
				movl	$0, APP.6420(%rip)
		.LVL154:
		.L181:
 1275
				movl	$0, %r8d
 1276                     %return %if d = 0;                         !old name wanted
				cmpl	$0, 8(%rsp)
				jne	.L181
		.LVL137:
		.L138:
 1277                     type = d>>4&7;  form = d&15;  atom1 = amap(form)
				movl	8(%rsp), %ebx
				movl	%ebx, %eax
				shrl	$4, %eax
				andl	$7, %eax
				movl	%eax, TYPE.6419(%rip)
 1278
				movl	%ebx, %eax
				andl	$15, %eax
		.LVL155:
 1279                     %if this < 0 %start;                       !normal scope
				movq	(%r14), %rdx
				movq	(%rdx), %rcx
				movq	8(%rcx), %rdx
				movslq	%eax, %rsi
				movzbl	69748(%rdx,%rsi), %esi
				movl	%esi, ATOM1.6416(%rip)
				cmpl	$0, THIS.6457(%rip)
				js	.L211
		.L182:
		.LVL156:
 1280                         new = newname
 1281                         tmax = tmax+1;  x = tmax
				addl	$1, 64(%rcx)
 1282                     %finish %else %start;                      !recordformat scope
				movq	(%r14), %rdx
				movq	(%rdx), %rdx
				movl	64(%rdx), %edx
				movl	%edx, X.6415(%rip)
				movl	%r15d, %edx
				jmp	.L183
		.LVL177:
		.L212:
 1283                         new = -1
				movl	$-1, %edx
		.LVL158:
		.L183:
 1284                         recid = recid-1;  vid = recid
				subl	$1, 16844(%rdx)
 1285                         tmin = tmin-1;  x = tmin
				movq	(%r14), %rdx
				movq	(%rdx), %rdx
				movq	8(%rdx), %rdx
				movl	16844(%rdx), %r8d
		.LVL157:
				movl	TMIN.6462(%rip), %ebx
				leal	-1(%rbx), %edx
				movl	%edx, TMIN.6462(%rip)
 1286                         format list = tmin
				movl	%edx, X.6415(%rip)
				movl	%edx, FORMATLIST.6486(%rip)
 1287                     %finish
 1288
 1289                     %if 11 <= form %and form <= 14 %start;               !arrays
 1290                         dim = 1 %if dim = 0;                    !set dim for owns
				leal	-11(%rax), %ecx
				cmpl	$3, %ecx
				jbe	.L212
		.L184:
		.LDL12:
				cmpl	$0, DIM.6440(%rip)
				jne	.L185
 1291                         app = dim
				movl	$1, DIM.6440(%rip)
		.L185:
				movl	DIM.6440(%rip), %ecx
				movl	%ecx, APP.6420(%rip)
				jmp	.L184
		.LVL178:
		.L213:
 1292                     %finish
 1293
 1294                     d = d!used bit %if (otype > 2 %and d&spec = 0) %or perm # 0 %or Level = Include Level
 1295
 1296                     !external definitions need not be used in the file in which
 1297                     !they are defined, so inhibit a useless unused warning.
				cmpl	$0, PERM.6468(%rip)
				jne	.L186
 1298
				movq	(%r14), %rcx
				movq	(%rcx), %rcx
				movl	60(%rcx), %ebx
				cmpl	%ebx, INCLUDELEVEL.6466(%rip)
				jne	.L187
		.L186:
 1299                     t == tag(x)
				movl	X.6415(%rip), %edi
				movq	(%r14), %rcx
				movq	(%rcx), %rcx
				movq	8(%rcx), %rsi
		.LVL160:
 1300                     %if form = lab %start
				orl	$32768, 8(%rsp)
		.LVL159:
		.L187:
				cmpl	$3, %eax
				je	.L213
		.LVL161:
		.L188:
 1301                         id = id+1;  vid = id
				addl	$1, 56(%rcx)
 1302                     %finish
				movq	(%r14), %rax
		.LVL179:
				movq	(%rax), %rax
				movl	56(%rax), %r8d
		.LVL180:
				jmp	.L188
		.LVL181:
		.L214:
 1303                     t_index = vid
				movslq	%edi, %rcx
				leaq	(%rcx,%rcx), %rax
				leaq	(%rax,%rcx), %r9
				movl	%r8d, 49056(%rsi,%r9,8)
 1304                     t_text   = new name
				movq	%r9, %r8
		.LVL162:
				movl	%r15d, 49060(%rsi,%r9,8)
 1305                     t_flags = d
				movl	8(%rsp), %ebx
				movl	%ebx, 49052(%rsi,%r9,8)
 1306                     t_app    = app
				movl	APP.6420(%rip), %r9d
				movl	%r9d, 49044(%rsi,%r8,8)
 1307                     t_format = fdef;  format = fdef
				movl	FDEF.6456(%rip), %r8d
		.LVL163:
				addq	%rcx, %rax
		.LVL164:
				movl	%r8d, 49048(%rsi,%rax,8)
 1308                     subatom = x
				movl	%r8d, FORMAT.6421(%rip)
				movl	%edi, SUBATOM.6418(%rip)
 1309
 1310                     %if new >= 0 %start;                             !insert into hash table
				testl	%edx, %edx
				js	.L190
 1311                         t_link = dict(new);  dict(new) = x
				leal	-1(%rdx), %eax
		.LVL165:
				movq	(%r14), %rdx
		.LVL166:
				movq	(%rdx), %rdx
				movq	8(%rdx), %rdx
				cltq
				addq	$6260, %rax
		.LVL167:
				movl	4(%rdx,%rax,4), %ecx
		.LVL168:
				movslq	%edi, %rdx
		.LVL169:
				leaq	(%rdx,%rdx,2), %rdx
		.LVL170:
				movl	%ecx, 49064(%rsi,%rdx,8)
		.LVL171:
 1312                         %if gmin = max grammar %start;                !proc param params
				movq	(%r14), %rdx
				movq	(%rdx), %rdx
				movq	8(%rdx), %rdx
				movl	%edi, 4(%rdx,%rax,4)
				cmpl	$1720, GMIN.6501(%rip)
				je	.L214
		.L189:
		.LVL172:
		.L190:
 1313                             tmin = tmin-1;  subatom = tmin
				movl	TMIN.6462(%rip), %eax
		.LVL182:
				subl	$1, %eax
				movl	%eax, TMIN.6462(%rip)
 1314                             tag(tmin) = t
				movl	%eax, SUBATOM.6418(%rip)
				movq	(%r14), %rdx
				movq	(%rdx), %rdx
				cltq
				leaq	(%rax,%rax,2), %rax
				salq	$3, %rax
				addq	8(%rdx), %rax
				movslq	%edi, %rdi
		.LVL183:
				leaq	(%rdi,%rdi,2), %rdx
				leaq	49040(%rsi,%rdx,8), %rdx
				movq	4(%rdx), %rcx
				movq	12(%rdx), %rbx
				movq	%rcx, 49044(%rax)
				movq	%rbx, 49052(%rax)
				movq	20(%rdx), %rdx
				movq	%rdx, 49060(%rax)
				jmp	.L190
		.LVL184:
		.L206:
 1315                         %finish
 1316                     %finish
 1317                     abandon(3) %if tmax >= tmin
				movq	(%r14), %rax
				movq	(%rax), %rax
				movl	64(%rax), %ebx
				cmpl	%ebx, TMIN.6462(%rip)
				jg	.L138
 1318                 %end
				movq	8(%rax), %r10
				movl	$3, %edi
				call	ABANDON.6563
		.LVL173:
		.L161:
				jmp	.L138
		.LVL174:
		.L210:
		.L171:
?K2 unused
 1319
				movq	536(%rsp), %rax
				xorq	%fs:40, %rax
				jne	.L206
				addq	$552, %rsp
				popq	%rbx
				popq	%rbp
				popq	%r12
				popq	%r13
				popq	%r14
				popq	%r15
		.LVL138:
				ret
		.LVL139:
		.L205:
				call	__stack_chk_fail@PLT
		.LVL185:
		.LFE209:
		CODEATOM.6985:
		.LFB208:
 1320 top:            pos1 = pos
 1321                 subatom = 0;  pend quote = 0;  atom flags = 0
				movl	POS.6481(%rip), %eax
				movl	%eax, POS1.6479(%rip)
				movl	$0, SUBATOM.6418(%rip)
		.LVL187:
				movl	POS.6481(%rip), %eax
				movl	%eax, POS1.6479(%rip)
				movl	$0, SUBATOM.6418(%rip)
 1322
				movl	$0, %ebp
		.LVL197:
		.L255:
				movl	$0, %ebp
		.LVL204:
		.L233:
 1323                 !app and format must be left for assigning to papp & pformat
				movl	$0, ATOMFLAGS.6444(%rip)
				movl	$0, ATOMFLAGS.6444(%rip)
 1324                 ->name %if symtype = -2;               ! letter
				movl	SYMTYPE.6434(%rip), %eax
				cmpl	$-2, %eax
				je	.L219
				movl	SYMTYPE.6434(%rip), %eax
				cmpl	$-2, %eax
				je	.L219
		.L226:
 1325                 ->number %if symtype < 0;              ! digit
				testl	%eax, %eax
				js	.L220
				testl	%eax, %eax
				js	.L220
		.L227:
 1326                 %if symtype = 0 %start
				testl	%eax, %eax
				je	.L221
				testl	%eax, %eax
				je	.L221
		.L228:
 1327                     atom1 = termin;  atom2 = 0
				movl	$20, ATOM1.6416(%rip)
 1328                     %return
				movl	$0, ATOM2.6417(%rip)
				jmp	.L218
		.L223:
 1329                 %finish
 1330                 %if symtype # 2 %start;                ! catch keywords here
				cmpl	$2, %eax
				je	.L235
				cmpl	$2, %eax
				je	.L235
 1331                     ->text %if quote # 0;              ! completion of text
				movl	QUOTE.6435(%rip), %eax
				testl	%eax, %eax
				je	.L223
				movl	QUOTE.6435(%rip), %eax
				testl	%eax, %eax
				je	.L223
		.L230:
 1332                     ->strings %if sym = squote;        ! start of string
				movl	SYM.6433(%rip), %eax
				cmpl	$34, %eax
				je	.L231
		.L232:
 1333                     ->symbols %if sym = cquote;        ! start of symbol
				cmpl	$39, %eax
				je	.L291
		.L234:
 1334                     ->number %if sym = '.' %and '0' <= nextsymbol %and nextsymbol <= '9'
				cmpl	$46, %eax
				je	.L297
		.L222:
		.L235:
 1335                 %finish
				cmpl	$47, %eax
				jle	.L235
		.LBB333:
		.LBB334:
				call	_imp_nextsymbol@PLT
		.LVL196:
		.LBE334:
		.LBE333:
 1336
				cmpl	$57, %eax
				jg	.L235
		.L220:
 1337                 ! locate atom in fixed dict
 1338                 k = key>>2;  read sym
				movl	KEY.6899(%rip), %ebp
				shrl	$2, %ebp
		.LVL190:
 1339                 %cycle
				movq	%rbx, %r10
				call	READSYM.6944
		.LVL191:
		.LDL13:
 1340                     j = kdict(k)
				movq	(%rbx), %rax
				movslq	%ebp, %rbp
				movq	8(%rax), %rax
				leaq	(%rax,%rbp,2), %rcx
				movzwl	68444(%rcx), %eax
		.LVL192:
		.LDL14:
 1341                     %exit %if j&16_4000 # 0
 1342                     %if j&127 # sym %or symtype < 0 %start
 1343                         ->err %unless j < 0
 1344                         k = k+1
 1345                     %finish %else %start
 1346                         l = j>>7&127;  read sym
 1347                         %if j > 0 %start
 1348                             %if l # 0 %start
 1349                                 ->err %if l # sym %or symtype < 0
 1350                                 read sym
 1351                             %finish
 1352                             l = 1
 1353                         %finish
 1354                         k = k+l
 1355                     %finish
 1356                 %repeat
 1357                 atom1 = j&127
				movl	%eax, %edx
				andl	$127, %edx
				movl	%edx, ATOM1.6416(%rip)
 1358                 %if atom1 = 0 %start;                  ! comma
				testl	%edx, %edx
				jne	.L236
 1359                     atom1 = 19;  subatom = 19;  atom2 = 0
				movl	$19, ATOM1.6416(%rip)
 1360                     %if sym = nl %start
				movl	$19, SUBATOM.6418(%rip)
				cmpl	$10, SYM.6433(%rip)
				jne	.L218
 1361                         %return %if ocount >= 0
				movl	$0, ATOM2.6417(%rip)
				cmpl	$0, OCOUNT.6472(%rip)
				jns	.L218
		.L237:
 1362
 1363                         ! special action needs to be taken with <comma nl> as
 1364                         ! const array lists can be enormous
 1365                         read sym
				movq	%rbx, %r10
				call	READSYM.6944
		.LVL193:
				jmp	.L218
		.LVL194:
		.L297:
		.LBB331:
		.LBB332:
				call	_imp_nextsymbol@PLT
		.LVL195:
		.LBE332:
		.LBE331:
 1366                     %finish
 1367                     %return
 1368                 %finish
 1369                 atom2 = j>>7&127
				shrl	$7, %eax
		.LVL202:
				andl	$127, %eax
				movl	%eax, ATOM2.6417(%rip)
 1370                 subatom = kdict(k+1)&16_3fff
				movzwl	68446(%rcx), %eax
				andl	$16383, %eax
				movl	%eax, SUBATOM.6418(%rip)
 1371                 !!!!!cont = ' '
 1372                 %return
				jmp	.L218
		.LVL203:
		.L291:
 1373
 1374                 ! report an error. adjust the error marker (pos1) to point
 1375                 ! to the faulty character in an atom, but care needs to be taken
 1376                 ! to prevent misleading reports in cases like ...?????
 1377
 1378 err:            atom1 = error+1;  atom2 = 0
 1379                 pos1 = pos %if pos-pos1 > 2
				movl	$32769, ATOM1.6416(%rip)
				movl	POS.6481(%rip), %eax
				movl	%eax, %edx
				subl	POS1.6479(%rip), %edx
				cmpl	$2, %edx
				jle	.L218
 1380                 %return
				movl	$0, ATOM2.6417(%rip)
				movl	%eax, POS1.6479(%rip)
				jmp	.L218
		.L300:
 1381
 1382                 ! take care with strings and symbol constants.
 1383                 ! make sure the constant is valid here before sucking it in
 1384                 ! (and potentially loosing many lines)
 1385
 1386 symbols:        atom1 = var;  atom2 = const;  type = integer
 1387                 map gg = const;  protection = prot
				movl	$91, ATOM1.6416(%rip)
				movl	$93, MAPGG.6455(%rip)
 1388                 subatom = lp;  abandon(3) %if lp >= lit max
				movl	$93, ATOM2.6417(%rip)
				movl	LP.6491(%rip), %eax
				movl	%eax, SUBATOM.6418(%rip)
 1389                 quote = \pend quote
				movl	$1, TYPE.6419(%rip)
				cmpl	$49, %eax
				jg	.L299
		.L240:
				notl	%ebp
		.LVL205:
				movl	%ebp, QUOTE.6435(%rip)
 1390                 %return
				jmp	.L218
		.LVL206:
		.L299:
				movq	(%rbx), %rax
				movq	8(%rax), %r10
				movl	$3, %edi
				call	ABANDON.6563
		.LVL207:
				jmp	.L240
		.LVL208:
		.L301:
		.L243:
 1391
 1392                 ! an integer constant is acceptable so get it in and
 1393                 ! get the next atom
 1394 chars:          n = 0;  cont = cquote
 1395                 %cycle
				movl	$0, 28(%rsp)
 1396                     read sym
				movl	$39, CONT.6437(%rip)
		.LDL16:
				movq	%rbx, %r10
				call	READSYM.6944
		.LVL212:
 1397                     %if sym = cquote %start
				cmpl	$39, SYM.6433(%rip)
				jne	.L241
		.LBB335:
		.LBB336:
				call	_imp_nextsymbol@PLT
		.LVL213:
		.LBE336:
		.LBE335:
 1398                         %exit %if nextsymbol # cquote
				cmpl	$39, %eax
				je	.L301
		.L242:
 1399                         read sym
				movq	%rbx, %r10
				call	READSYM.6944
		.LVL209:
		.L241:
 1400                     %finish
 1401                     %if n&(\((-1)>>byte size)) # 0 %start; ! overflow
 1402                         pos1 = pos;  atom1 = error+10;  %return
				movl	POS.6481(%rip), %eax
				movl	%eax, POS1.6479(%rip)
 1403                     %finish
				movl	$32778, ATOM1.6416(%rip)
		.LVL210:
		.L218:
 1404                     ->err %if quote = 0
 1405                     n = n<<byte size+sym
 1406                     quote = quote+1
 1407                 %repeat
 1408                 quote = 0;  cont = ' '
				movl	$0, QUOTE.6435(%rip)
 1409                 readsym %if sym # nl
				movl	$32, CONT.6437(%rip)
				cmpl	$10, SYM.6433(%rip)
				je	.L244
 1410                 lit pool(lp) = n;  lp = lp+1
				movl	LP.6491(%rip), %eax
				movq	(%rbx), %rdx
				movq	8(%rdx), %rdx
				movslq	%eax, %rcx
				movl	28(%rsp), %esi
				movl	%esi, 16640(%rdx,%rcx,4)
				movq	%rbx, %r10
				call	READSYM.6944
		.LVL214:
				jmp	.L244
		.L231:
 1411                 ->top
				addl	$1, %eax
				movl	%eax, LP.6491(%rip)
		.LDL15:
 1412
 1413                 !sniff the grammar before getting the string
 1414 strings:        atom1 = var;  atom2 = const;  type = stringv
 1415                 subatom = strp!16_4000
				movl	$91, ATOM1.6416(%rip)
				movl	8(%rbx), %eax
				orb	$64, %ah
				movl	%eax, SUBATOM.6418(%rip)
 1416                 map gg = const;  protection = prot
				movl	$93, ATOM2.6417(%rip)
				movl	$93, MAPGG.6455(%rip)
 1417                 quote = subatom
				movl	$3, TYPE.6419(%rip)
				movl	%eax, QUOTE.6435(%rip)
 1418                 text line = lines;                     ! in case of errors
				movl	LINES.6425(%rip), %eax
				movl	%eax, TEXTLINE.6426(%rip)
 1419                 %return
				jmp	.L218
		.LVL215:
		.L303:
		.LBB337:
		.LBB338:
				call	_imp_nextsymbol@PLT
		.LVL216:
		.LBE338:
		.LBE337:
 1420
 1421                 ! a string constant is ok here, so pull it in and get
 1422                 ! the next atom
 1423                 ! ABD - temp variable to help pack bytes into words
 1424                 %integer flipflop
 1425
 1426 text:           ->chars %if quote < 0;                 ! character consts
 1427                 l = strp;                              ! point to beginning
				testl	%eax, %eax
				js	.L225
		.LVL188:
		.L224:
				testl	%eax, %eax
				jns	.L224
		.L225:
 1428                 k = 0;                                 ! length so far
				movl	$0, %ebp
 1429                 flipflop = 0;                          ! space for the length is up the spout
				movl	$0, %r12d
 1430
 1431                 %cycle
 1432                     cont = squote;  quote = 1
				movl	$34, CONT.6437(%rip)
 1433                     %cycle
				movl	$1, QUOTE.6435(%rip)
				jmp	.L247
		.LVL228:
		.L298:
 1434                         read sym
				movq	%rbx, %r10
				call	READSYM.6944
		.LVL220:
 1435                         %if sym = squote %start;       ! terminator?
				cmpl	$34, SYM.6433(%rip)
				je	.L303
		.L248:
 1436                             %exit %if nextsymbol # squote; ! yes ->
				cmpl	$34, %eax
				jne	.L249
		.L250:
 1437                             read sym;                  ! skip quote
				movq	%rbx, %r10
				call	READSYM.6944
		.LVL217:
				jmp	.L248
		.L251:
 1438                         %finish
 1439                         %if flipflop >= 0 %start
				testl	%r12d, %r12d
				js	.L251
 1440                             glink(strp) = sym<<8 + flipflop
				leaq	GLINK.6510(%rip), %r13
				movl	8(%rbx), %edx
				movslq	%edx, %rcx
				movzwl	SYM.6433(%rip), %eax
				sall	$8, %eax
				addl	%eax, %r12d
		.LVL221:
				movw	%r12w, 0(%r13,%rcx,2)
 1441                             strp = strp+1
				addl	$1, %edx
				movl	%edx, 8(%rbx)
		.LVL222:
 1442                             flipflop = -1
				movl	$-1, %r14d
				movl	%r14d, %r12d
 1443                         %else
				jmp	.L252
		.LVL223:
		.L302:
 1444                             flipflop = sym
				movl	SYM.6433(%rip), %r12d
		.LVL218:
		.L252:
 1445                         %finish
 1446                         k = k+1
				addl	$1, %ebp
		.LVL219:
 1447                         lines = text line %and abandon(7) %if k > 255; ! too many chars
				cmpl	$255, %ebp
				jg	.L302
		.L247:
 1448                     %repeat
				movl	TEXTLINE.6426(%rip), %eax
				movl	%eax, LINES.6425(%rip)
 1449                     %if flipflop >=0 %start;           ! tail-end charlie
				movq	(%rbx), %rax
				movq	8(%rax), %r10
				movl	$7, %edi
				call	ABANDON.6563
		.LVL224:
				jmp	.L247
		.L249:
				testl	%r12d, %r12d
				js	.L254
 1450                         glink(strp) = flipflop
				movl	8(%rbx), %eax
				movslq	%eax, %rdx
				movw	%r12w, 0(%r13,%rdx,2)
 1451                         strp = strp+1
				addl	$1, %eax
				movl	%eax, 8(%rbx)
		.L254:
 1452                     %finish
 1453                     glink(l) = glink(l)!k;             ! plug in length
				movslq	8(%rbx), %r15
				jmp	.L245
		.LVL189:
		.L221:
				orw	%bp, 0(%r13,%r15,2)
 1454
 1455                     quote = 0;  cont = ' ';  read sym
				movl	$0, QUOTE.6435(%rip)
 1456                     code atom(target)
				movl	$32, CONT.6437(%rip)
				movq	%rbx, %r10
				movl	12(%rsp), %edi
				call	CODEATOM.6985
		.LVL226:
 1457                     %return %unless atom1 = 48 %and sym = squote; ! fold "???"."+++"
				movq	%rbx, %r10
				call	READSYM.6944
		.LVL225:
				cmpl	$48, ATOM1.6416(%rip)
				jne	.L218
 1458                 %repeat
				cmpl	$34, SYM.6433(%rip)
				jne	.L218
		.LVL227:
		.L245:
		.L246:
 1459
 1460                 %routine get(%integer limit)
		.LVL95:
				pushq	%r13
				pushq	%r12
				pushq	%rbp
				pushq	%rbx
				subq	$8, %rsp
				movl	%edi, %r12d
				movq	%r10, %rbx
		.LVL96:
 1461                     %integer s, shift
 1462                     shift = 0
				movl	$0, %ebp
 1463                     %if base # 10 %start
				movl	16(%r10), %eax
				cmpl	$10, %eax
				je	.L119
 1464                         %if base = 16 %start
				cmpl	$16, %eax
				je	.L119
		.L115:
 1465                             shift = 4
				movl	$4, %ebp
 1466                         %finish %else %start
 1467                             %if base = 8 %start
				cmpl	$8, %eax
				je	.L119
		.L116:
 1468                                 shift = 3
				movl	$3, %ebp
 1469                             %finish %else %start
 1470                                 %if base = 2 %start
				cmpl	$2, %eax
				sete	%bpl
				movzbl	%bpl, %ebp
		.L114:
		.L117:
		.L118:
		.L119:
		.LVL97:
 1471                                     shift = 1
 1472                                 %finish
 1473                             %finish
 1474                         %finish
 1475                     %finish
 1476                     n = 0
				movl	$0, 12(%rbx)
 1477                     %cycle
 1478                         %if symtype = -1 %start;       ! digit
				movl	SYMTYPE.6434(%rip), %eax
				cmpl	$-1, %eax
				je	.L136
		.L121:
 1479                             s = sym-'0'
				movl	SYM.6433(%rip), %eax
				leal	-48(%rax), %edx
		.LVL99:
 1480                         %finish %else %start
				jmp	.L124
		.L137:
 1481                             %if symtype < 0 %start;    ! letter
				testl	%eax, %eax
				jns	.L113
 1482                                 s = sym-'A'+10
				movl	SYM.6433(%rip), %eax
				leal	-55(%rax), %edx
		.LVL102:
		.L122:
		.L124:
 1483                             %finish %else %start
 1484                                 %return
 1485                             %finish
 1486                         %finish
 1487                         %return %if s >= limit
				cmpl	%r12d, %edx
				jge	.L113
		.L125:
 1488                         pt = pt+1;  glink(pt) = sym
				movl	8(%rbx), %eax
				addl	$1, %eax
				movl	%eax, 8(%rbx)
 1489                         %if base = 10 %start;          ! check overflow
				leaq	GLINK.6510(%rip), %r13
				jmp	.L120
		.LVL98:
		.L136:
				cltq
				movl	SYM.6433(%rip), %ecx
				movw	%cx, 0(%r13,%rax,2)
				cmpl	$10, 16(%rbx)
				je	.L137
		.L126:
		.L129:
 1490                             %if n >= max int %and (s > max dig %or n > max int) %start
				movl	12(%rbx), %eax
				cmpl	$214748363, %eax
				jle	.L129
 1491                                 !too big for an integer,
 1492                                 !so call it a real
				cmpl	$214748364, %eax
				jg	.L128
				cmpl	$7, %edx
				jle	.L129
		.L128:
 1493                                 base = 0;  type = real;  n = 0
				movl	$0, 16(%rbx)
 1494                             %finish
				movl	$2, TYPE.6419(%rip)
 1495                         %finish
				movl	$0, 12(%rbx)
				jmp	.L129
		.L130:
 1496                         %if shift = 0 %start
				testl	%ebp, %ebp
				jne	.L130
 1497                             n = n*base+s
				movl	12(%rbx), %eax
				imull	16(%rbx), %eax
				addl	%eax, %edx
		.LVL103:
				movl	%edx, 12(%rbx)
 1498                         %finish %else %start
				jmp	.L131
		.L123:
		.L113:
 1499                             n = n<<shift+s
				movl	12(%rbx), %eax
				movl	%ebp, %ecx
				sall	%cl, %eax
				addl	%eax, %edx
		.LVL100:
				movl	%edx, 12(%rbx)
		.L131:
 1500                         %finish
 1501                         read sym
				movq	(%rbx), %r10
				call	READSYM.6944
		.LVL101:
		.L120:
 1502                     %repeat
 1503                 %end
				addq	$8, %rsp
				popq	%rbx
				popq	%rbp
		.LVL104:
				popq	%r12
		.LVL105:
				popq	%r13
				ret
		.LFE211:
		LOOKUP.6998:
		.LFB209:
 1504
 1505 number:         base = 10
 1506 bxk:            atom1 = var;  atom2 = const;  type = integer;  subatom = lp
				movl	$10, 32(%rsp)
 1507                 map gg = const;  protection = prot
				movl	$91, ATOM1.6416(%rip)
				movl	$93, MAPGG.6455(%rip)
 1508                 abandon(3) %if lp >= lit max
				movl	$93, ATOM2.6417(%rip)
				cmpl	$49, %eax
				jg	.L298
		.L256:
 1509                 pt = strp;  mul = 0
				movl	$1, TYPE.6419(%rip)
				movl	8(%rbx), %eax
				movl	%eax, 24(%rsp)
		.LVL198:
				movq	(%rbx), %rax
				movq	8(%rax), %r10
				movl	$3, %edi
				call	ABANDON.6563
		.LVL229:
				jmp	.L256
		.L258:
		.LVL230:
		.L261:
 1510                 %cycle
				movl	LP.6491(%rip), %eax
				movl	%eax, SUBATOM.6418(%rip)
 1511                     get(base)
				leaq	16(%rsp), %r12
				movq	%r12, %r10
				movl	32(%rsp), %edi
				call	GET.7122
		.LVL199:
 1512                     %exit %unless sym = '_' %and base # 0 %and pend quote = 0; ! change of base
				movl	SYM.6433(%rip), %eax
				cmpl	$95, %eax
				jne	.L261
 1513                     pt = pt+1;  glink(pt) = '_'
				movl	24(%rsp), %eax
				addl	$1, %eax
				movl	%eax, 24(%rsp)
 1514                     read sym
				leaq	GLINK.6510(%rip), %r13
		.L257:
				cmpl	$0, 32(%rsp)
				je	.L259
				testl	%ebp, %ebp
				jne	.L259
		.L260:
				cltq
				movw	$95, 0(%r13,%rax,2)
				movq	%rbx, %r10
				call	READSYM.6944
		.LVL200:
 1515                     base = n
				movl	28(%rsp), %eax
				movl	%eax, 32(%rsp)
 1516                 %repeat
				jmp	.L257
		.LVL201:
		.L236:
 1517
 1518                 %if pend quote # 0 %start
				testl	%ebp, %ebp
				je	.L262
				testl	%ebp, %ebp
				je	.L265
		.LVL261:
		.L238:
		.L239:
 1519                     ->err %if sym # cquote
				cmpl	$39, %eax
				jne	.L238
		.L263:
 1520                     readsym
				movq	%rbx, %r10
				call	READSYM.6944
		.LVL231:
		.L262:
 1521                 %finish
 1522                 %if sym = '.' %start;                  ! a real constant
				cmpl	$46, SYM.6433(%rip)
				je	.L304
		.L264:
 1523                     pt = pt+1;  glink(pt) = '.'
				movl	24(%rsp), %eax
				addl	$1, %eax
				movl	%eax, 24(%rsp)
 1524                     read sym
				cltq
				leaq	GLINK.6510(%rip), %rdx
				movw	$46, (%rdx,%rax,2)
				movq	%rbx, %r10
				call	READSYM.6944
		.LVL232:
 1525                     type = real;  n = base;  base = 0;  get(n)
				movl	$2, TYPE.6419(%rip)
 1526                 %finish
				movl	32(%rsp), %edi
				movl	%edi, 28(%rsp)
 1527
				movl	$0, 32(%rsp)
 1528                 %if sym = '@' %start;                  ! an exponent
				cmpl	$64, SYM.6433(%rip)
				je	.L305
		.L265:
				leaq	16(%rsp), %r10
				call	GET.7122
		.LVL233:
				jmp	.L264
		.L305:
 1529                     pt = pt+1;  glink(pt) = '@';  k = pt
				movl	24(%rsp), %ebp
		.LVL234:
				leal	1(%rbp), %eax
				movl	%eax, 24(%rsp)
 1530                     readsym
				cltq
				leaq	GLINK.6510(%rip), %rdx
				movw	$64, (%rdx,%rax,2)
		.LVL235:
				movq	%rbx, %r10
				call	READSYM.6944
		.LVL236:
 1531                     type = integer;  base = 10
				movl	$1, TYPE.6419(%rip)
 1532                     %if sym = '-' %start
				movl	$10, 32(%rsp)
				cmpl	$45, SYM.6433(%rip)
				je	.L306
		.L266:
 1533                         read sym;  get(10);  n = -n
				movq	%rbx, %r10
				call	READSYM.6944
		.LVL242:
 1534                     %finish %else %start
				leaq	16(%rsp), %r10
				movl	$10, %edi
				call	GET.7122
		.LVL243:
				jmp	.L267
		.LVL244:
		.L219:
 1535                         get(10)
				leaq	16(%rsp), %r10
				movl	$10, %edi
				call	GET.7122
		.LVL237:
		.L267:
				negl	28(%rsp)
 1536                     %finish
 1537                     pt = k+1;  glink(pt) = lp;  litpool(lp) = n;  lp = lp+1
				addl	$2, %ebp
		.LVL238:
				movl	%ebp, 24(%rsp)
 1538                     atom1 = error+10 %if base = 0
				movl	LP.6491(%rip), %eax
				movslq	%ebp, %rbp
		.LVL239:
				leaq	GLINK.6510(%rip), %rdx
				movw	%ax, (%rdx,%rbp,2)
				cmpl	$0, 32(%rsp)
				jne	.L268
 1539                     type = real;                       ! exponents force the type
				movq	(%rbx), %rdx
				movq	8(%rdx), %rdx
				movslq	%eax, %rcx
				movl	28(%rsp), %esi
				movl	%esi, 16640(%rdx,%rcx,4)
				movl	$32778, ATOM1.6416(%rip)
		.L268:
				movl	$2, TYPE.6419(%rip)
		.LVL240:
		.L269:
 1540                 %finish
				addl	$1, %eax
				movl	%eax, LP.6491(%rip)
 1541
 1542                 %if type = real %start
				cmpl	$2, TYPE.6419(%rip)
				je	.L269
		.L270:
 1543                     glink(strp) = pt-strp;             ! store the length (difference)
				movl	24(%rsp), %edx
				movl	8(%rbx), %eax
				movslq	%eax, %rsi
				movl	%edx, %edi
				subl	%eax, %edi
				leaq	GLINK.6510(%rip), %rcx
				movw	%di, (%rcx,%rsi,2)
 1544                     subatom = (strp)!16_2000;  strp = pt+1
				orb	$32, %ah
				movl	%eax, SUBATOM.6418(%rip)
 1545                 %finish %else %start
				addl	$1, %edx
				movl	%edx, 8(%rbx)
				jmp	.L218
		.LVL241:
		.L306:
 1546                     litpool(lp) = n
				movl	LP.6491(%rip), %eax
				movq	(%rbx), %rdx
				movq	8(%rdx), %rdx
				movslq	%eax, %rcx
				movl	28(%rsp), %esi
				movl	%esi, 16640(%rdx,%rcx,4)
 1547                     lp = lp+1
				addl	$1, %eax
				movl	%eax, LP.6491(%rip)
				jmp	.L218
		.L304:
 1548                 %finish
 1549                 %return
 1550
 1551 name:           atom1 = 0 %and %return %if 27 <= target %and target <= 41
 1552                 hash value = 0
				movq	(%rbx), %rax
				movq	8(%rax), %rax
				movl	$0, 25040(%rax)
 1553
				movl	12(%rsp), %eax
				subl	$27, %eax
				cmpl	$14, %eax
				jbe	.L307
		.L271:
 1554                 ! ABD changed to remove dependency on direct addressing
				movl	$0, ATOM1.6416(%rip)
 1555                 dp = dmax+1
				movl	DMAX.6461(%rip), %ebp
				leal	1(%rbp), %eax
				movl	%eax, DP.6478(%rip)
		.LVL245:
				jmp	.L218
		.LVL252:
		.L308:
 1556                 dbase = dp
 1557                 n = 0
				movl	$0, 28(%rsp)
 1558                 dict(dp) = 0
				movq	(%rbx), %rax
		.LVL246:
				movq	8(%rax), %rax
				movslq	%ebp, %rdx
				movl	$0, 25044(%rax,%rdx,4)
		.LVL247:
		.L272:
		.L273:
 1559                 %cycle
 1560                     hash value = hash value+(hash value+sym); ! is this good enough?
				movl	SYM.6433(%rip), %edx
				movq	(%rbx), %rax
				movq	8(%rax), %rax
				movl	25040(%rax), %ecx
				leal	(%rdx,%rcx,2), %ecx
				movl	%ecx, 25040(%rax)
 1561                     dict(dp) = dict(dp) ! (sym << 8);
				movl	DP.6478(%rip), %eax
				movq	(%rbx), %rcx
				movslq	%eax, %rsi
				movq	8(%rcx), %rcx
				sall	$8, %edx
				orl	%edx, 25040(%rcx,%rsi,4)
 1562                     n = n+1
				addl	$1, 28(%rsp)
 1563                     dp = dp+1
				addl	$1, %eax
				movl	%eax, DP.6478(%rip)
 1564                     read sym
				movq	%rbx, %r10
				call	READSYM.6944
		.LVL248:
 1565                     %exit %if symtype >= 0
				cmpl	$0, SYMTYPE.6434(%rip)
				jns	.L274
		.L275:
 1566                     dict(dp) = sym;
				movq	(%rbx), %rax
				movq	8(%rax), %rdx
				movl	DP.6478(%rip), %eax
				subl	$1, %eax
				cltq
				movl	SYM.6433(%rip), %ecx
				movl	%ecx, 25044(%rdx,%rax,4)
 1567                     n = n+1
				addl	$1, 28(%rsp)
 1568                     read sym
				movq	%rbx, %r10
				call	READSYM.6944
		.LVL249:
 1569                     %exit %if symtype >= 0
				cmpl	$0, SYMTYPE.6434(%rip)
				js	.L272
		.L274:
 1570                 %repeat
 1571                 %if sym = cquote %start
				cmpl	$39, SYM.6433(%rip)
				je	.L308
		.L276:
 1572                     pend quote = 100
				movl	$100, %ebp
		.LVL253:
				movl	$100, %ebp
				movl	$100, %ebp
 1573                     ->symbols %if hash value = 'M'
				movq	(%rbx), %rax
				movq	8(%rax), %rax
				cmpl	$77, 25040(%rax)
				je	.L233
		.L277:
 1574                     read sym
				movq	%rbx, %r10
				call	READSYM.6944
		.LVL254:
 1575                     %if hash value = 'X' %then base = 16 %and ->bxk
				movq	(%rbx), %rax
				movq	8(%rax), %rax
				movl	25040(%rax), %eax
				cmpl	$88, %eax
				je	.L312
		.L278:
 1576                     %if hash value = 'K' %or hash value = 'O' %then base = 8 %and ->bxk
				movl	%eax, %edx
				andl	$-5, %edx
				movl	$16, 32(%rsp)
 1577                     %if hash value = 'B' %then base = 2 %and ->bxk
				cmpl	$75, %edx
				jne	.L279
		.L280:
				jmp	.L255
		.L279:
				cmpl	$66, %eax
				jne	.L238
 1578                     ->err
				movl	$2, 32(%rsp)
 1579                 %finish
				movl	$8, 32(%rsp)
				jmp	.L255
		.LVL255:
		.L309:
 1580                 dict(dbase) = dict(dbase)!n
				movq	(%rbx), %rax
				movslq	%ebp, %rbp
				movq	8(%rax), %rdx
				movl	28(%rsp), %eax
				orl	%eax, 25044(%rdx,%rbp,4)
				jmp	.L255
		.L312:
 1581                 %if n&1 = 0 %then dp = dp+1
				testb	$1, %al
				jne	.L281
 1582                 abandon(8) %if dp >= dmin
				addl	$1, DP.6478(%rip)
		.L281:
				movq	(%rbx), %rax
				movl	52(%rax), %edi
				cmpl	%edi, DP.6478(%rip)
				jge	.L309
		.L282:
 1583
				movq	8(%rax), %r10
				movl	$8, %edi
				call	ABANDON.6563
		.LVL256:
				jmp	.L282
		.L310:
 1584                 atom2 = 90;                            ! ident
				movl	$90, ATOM2.6417(%rip)
 1585                 %if last1 = 0 %and sym = ':' %start;   ! label
				movl	LAST1.6447(%rip), %eax
				testl	%eax, %eax
				jne	.L283
 1586                     limit = local;  lookup(lab);  %return
				cmpl	$58, SYM.6433(%rip)
				je	.L310
		.L284:
				movl	LOCAL.6483(%rip), %eax
				movl	%eax, LIMIT.6473(%rip)
 1587                 %finish
				leaq	16(%rsp), %r10
				movl	$3, %edi
				call	LOOKUP.6998
		.LVL257:
 1588                 %if last1 = jump %start;               ! ->label
				jmp	.L218
		.L283:
				cmpl	$54, %eax
				jne	.L284
 1589                     limit = local;  lookup(lab+spec+used bit);  %return
				movl	LOCAL.6483(%rip), %eax
				movl	%eax, LIMIT.6473(%rip)
 1590                 %finish
				leaq	16(%rsp), %r10
				movl	$32899, %edi
				call	LOOKUP.6998
		.LVL258:
 1591                 %if decl # 0 %and target = 90 %start;  ! identifier
				movl	DECL.6439(%rip), %edi
				jmp	.L218
		.L311:
 1592                     search base = fm base
				cmpl	$90, 12(%rsp)
				jne	.L285
				testl	%edi, %edi
				jne	.L311
		.L285:
				movl	FMBASE.6484(%rip), %eax
				movl	%eax, SEARCHBASE.6485(%rip)
 1593                     limit = local;  lookup(decl)
				movl	LOCAL.6483(%rip), %eax
				movl	%eax, LIMIT.6473(%rip)
 1594                     search base = 0
				leaq	16(%rsp), %r10
				call	LOOKUP.6998
		.LVL259:
				movl	$0, SEARCHBASE.6485(%rip)
 1595                 %finish %else %start
				jmp	.L218
		.LVL260:
		.L259:
 1596                     limit = 0;  lookup(0)
				movl	$0, LIMIT.6473(%rip)
 1597                 %finish
				leaq	16(%rsp), %r10
				movl	$0, %edi
				call	LOOKUP.6998
		.LVL250:
		.L229:
		.L286:
		.L287:
		.L288:
		.L289:
				jmp	.L218
		.LVL251:
		.L307:
 1598             %end
?DA unused
 1599
				movq	56(%rsp), %rax
				xorq	%fs:40, %rax
				jne	.L300
				addq	$72, %rsp
				popq	%rbx
				popq	%rbp
				popq	%r12
				popq	%r13
				popq	%r14
				popq	%r15
				ret
		.LVL211:
		.L244:
				call	__stack_chk_fail@PLT
		.LVL262:
		.LFE208:
		GETNEXT.7561:
		.LFB215:
 1600             %integerfn parsed machine code
 1601                 !   *opcode_??????????
 1602                 atom1 = error %and %result=0 %unless symtype = -2; ! starts with letter
 1603                 flush buffer( 128 );                   ! flush if bp >= 128
 1604                 add char( 'w' )
 1605                 %cycle
 1606                     add char( sym ); read sym
 1607                 %repeat %until Sym = '_' %or Symtype = 0; ! pull in letters and digits
 1608                 add char( '_' )
 1609                 %if symtype # 0 %start;                ! not terminator
 1610                     read sym
 1611                     %while symtype # 0 %cycle
 1612                         %if symtype < 0 %start;        ! complex
 1613                             code atom(0);  %result=0 %if atom1&error # 0
 1614                             %if atom2 = const %and type = integer %start
 1615                                 %if subatom < 0 %then set const(tag(-subatom)_format) %else set const(litpool(subatom))
 1616                             %finish %else %if 91 <= atom1 %and atom1 <= 109 %start
 1617                                 %if atom1 = 104 %and Tag(Subatom)_Flags&Closed = 0 %start
 1618                                     This = Subatom;  Atom1 = Error+21
 1619                                     %result = 0
 1620                                 %finish
 1621                                 op(' ', tag(subatom)_index)
 1622                             %finish %else %start
 1623                                 atom1 = error;  %result=0
 1624                             %finish
 1625                         %finish %else %start
 1626                             sym = sym!128 %if symtype = 2      {underline with %}
 1627                             add char( sym ); read sym
 1628                         %finish
 1629                     %repeat
 1630                 %finish
 1631                 add char( ';' )
 1632                 %result=1
 1633             %end
 1634
 1635             cont = ' ' %if gg = 0
				movl	GG.6454(%rip), %edx
				testl	%edx, %edx
				jne	.L391
 1636             last1 = 0;  mapgg = 0
				movl	$32, CONT.6437(%rip)
		.L391:
				movl	$0, LAST1.6447(%rip)
 1637             s = 0;  ss = 0;  sstype = -1; fdef = 0
				movl	$0, MAPGG.6455(%rip)
		.LVL337:
				movl	$0, %ebp
		.LBB480:
		.LBB481:
 1638             fm base = 0
				movl	$0, SS.6463(%rip)
				movl	$0, FMBASE.6484(%rip)
 1639             app = 0
				movl	$-1, SSTYPE.6470(%rip)
				movl	$0, APP.6420(%rip)
 1640
				movl	$0, FDEF.6456(%rip)
 1641             ! deal with alignment following an error in one statement
 1642             ! of several on a line
 1643             margin = column;                           ! start of statement
				movl	COLUMN.6430(%rip), %eax
				movl	%eax, MARGIN.6427(%rip)
 1644             pos = 0
				movl	$0, POS.6481(%rip)
 1645             strp = gmax+1;  lp = 0
				movl	GMAX.6505(%rip), %eax
				addl	$1, %eax
				movl	%eax, 72(%rsp)
 1646             tbase = tstart;                            ! ??????????????
				movl	$0, LP.6491(%rip)
				movl	72(%r15), %eax
				movl	%eax, 68(%r15)
 1647             local = tbase
				movl	%eax, LOCAL.6483(%rip)
 1648
 1649             %if gg = 0 %or ocount >= 0 %start;         ! data or not continuation(z)
				testl	%edx, %edx
				je	.L392
 1650 again:          %while sym type = 0 %cycle;            ! skip redundant terminators
				cmpl	$0, OCOUNT.6472(%rip)
				js	.L402
		.L392:
 1651                     c = cont
				movl	CONT.6437(%rip), %ebp
		.LVL341:
 1652                     cont = ' ';  cont = '+' %if ocount >= 0
				cmpl	$0, SYMTYPE.6434(%rip)
				jne	.L395
				movl	$32, CONT.6437(%rip)
 1653                     read sym
				movq	%rbx, %r10
				call	READSYM.6944
		.LVL339:
				cmpl	$0, OCOUNT.6472(%rip)
				js	.L396
 1654                     cont = c
				movl	%ebp, CONT.6437(%rip)
		.LVL340:
		.L394:
				movl	$43, CONT.6437(%rip)
				jmp	.L396
		.LVL342:
		.L395:
 1655                 %repeat
 1656                 ->skip %if sym = '!';                  ! comment
				cmpl	$33, SYM.6433(%rip)
				je	.L398
		.L399:
 1657                 this = -1
				movl	$-1, THIS.6457(%rip)
 1658                 code atom(0)
				movq	%rbx, %r10
				movl	$0, %edi
				call	CODEATOM.6985
		.LVL343:
 1659                 %if atom1 = comment %start
				cmpl	$22, ATOM1.6416(%rip)
				jne	.L402
		.L398:
 1660 skip:               quote = 1
 1661                     c = cont
				movl	$1, QUOTE.6435(%rip)
				movl	CONT.6437(%rip), %ebp
		.LVL344:
 1662                     read sym %and cont = c %while sym # nl; ! skip to end of line
 1663                     quote = 0;  symtype = 0
				cmpl	$10, SYM.6433(%rip)
				je	.L400
		.L401:
				cmpl	$10, SYM.6433(%rip)
				jne	.L401
		.L400:
				movl	$0, QUOTE.6435(%rip)
 1664                     ->again
				leaq	64(%rsp), %rbx
				jmp	.L394
		.LVL338:
		.L396:
				movq	%rbx, %r10
				call	READSYM.6944
		.LVL345:
				movl	$0, SYMTYPE.6434(%rip)
				jmp	.L394
		.L393:
		.LVL346:
		.L402:
 1665                 %finish
				movl	%ebp, CONT.6437(%rip)
		.LDL20:
 1666             %finish
 1667             decl = 0;  mark = 0
				movl	$0, DECL.6439(%rip)
		.LVL347:
 1668             gentype = 0;  force = 0
				movl	$0, GENTYPE.6448(%rip)
 1669             dim = 0;  prot err = 0
				movl	$0, FORCE.6452(%rip)
				movl	$0, DIM.6440(%rip)
		.LVL348:
 1670             node = 0;  nmax = 0;  nmin = rec size+1
				movl	$0, 44(%rsp)
 1671             order = 1;  gmin = max grammar+1
				movl	$0, NMAX.6459(%rip)
				movl	$1, ORDER.6475(%rip)
 1672             sstype = 0 %and ->more %if gg # 0;         ! continuation
				movl	$521, NMIN.6458(%rip)
				movl	$1721, GMIN.6501(%rip)
				cmpl	$0, GG.6454(%rip)
				je	.L403
 1673             ptype = 0;  spec given = 0
				movl	$0, SSTYPE.6470(%rip)
				movl	$0, PTYPE.6449(%rip)
 1674
				movl	$0, SPECGIVEN.6441(%rip)
 1675             stats = stats+1;  op('O', lines) %if perm = 0
				addl	$1, STATS.6431(%rip)
 1676
				cmpl	$0, PERM.6468(%rip)
				je	.L485
		.L405:
		.LVL351:
		.L444:
 1677             ->fail1 %if atom1&error # 0;               ! first atom faulty
				movq	8(%r15), %r10
				movl	LINES.6425(%rip), %esi
				movl	$79, %edi
				call	OP.6530
		.LVL389:
				jmp	.L444
		.LVL390:
		.L406:
		.L407:
 1678
 1679             %if escape class # 0 %start;               ! enter the hard way after
 1680                 g = imp phrase;  sstype = -1;  ->a3
 1681             %finish
 1682
 1683             g = initial(atom1);                        ! pick up entry point
 1684             %if g = 0 %start;                          ! invalid first atom
 1685                 g = initial(0);  sstype = 0;  ->a3;    ! declarator?
 1686             %finish
 1687             %if g < 0 %start;                          ! phrase imp
 1688                 g = g&255
 1689                 nmax = 1
 1690                 ar(1)_class = 0;  ar(1)_link = 0;  ar(1)_sub = imp phrase
 1691             %finish
 1692
 1693             gg = gram(g);  class = gg&255;  sstype = gg>>12&3-1
 1694             ->a1
 1695
 1696 act(194):   ptype = type;  papp = app;  pformat = format;  ->more
 1697 act(196):   k =g+1;  ->a610
 1698 act(188):   k = ar(nmax)_sub+1
 1699 a610:       papp = glink(k)
 1700             k = gram(k)
 1701             ->more %if k = 0;                          ! %name
 1702             ptype = k&7;  pformat = k>>3
 1703 act(183):   k = type;  gentype = k %if gentype = 0 %or k = real
 1704             %if pformat < 0 %start;                    ! general type
 1705                 app = papp;  format = pformat
 1706                 k = real %if ptype = real %and type = integer
 1707                 k = force %and force = 0 %if force # 0
 1708             %finish
 1709             ->fail2 %unless papp = app %and (ptype = k %or ptype = 0)
 1710             ->more %if pformat=format %or pformat = 0 %or format = 0
 1711             ->fail2
 1712 act(197):   arp == ar(nmin)
 1713             k = arp_sub
 1714             ->fail3 %unless block form = k&15
 1715             arp_sub = k>>4
 1716
 1717             type = block type
 1718             ptype = block type;  pformat = block fm;  papp = app
 1719             pformat = -1 %if ptype # record
 1720             ->more
 1721 act(195):   ->Fail2 %if Type # 0 %and Type # Integer %and Type # Real
 1722             arp == ar(nmin)
 1723             k = arp_sub
 1724             arp_sub = k>>2
 1725             k = k&3
 1726                                                        ! 1 = check integer
 1727                                                        ! 2 = check real
 1728                                                        ! 3 = check real + int
 1729             ->more %if k = 0;                          ! 0 = no action
 1730             %if k = 1 %start
 1731                 force = integer
 1732                 ->more %if type = integer %or type = 0
 1733                 ->fail2
 1734             %finish
 1735             ->fail2 %unless ptype = real %or ptype = 0; ! {or added?}
 1736             force = integer %if k = 3
 1737             ->more
 1738 act(198):   ! %OTHER
 1739             k = gg>>8&15
 1740             %if k = 0 %start;                          ! restore atom
 1741                 atom1 = last1
 1742                 ->more
 1743             %finish
 1744             %if k = 1 %start;                          ! test string
 1745                 ->fail2 %unless type = stringv
 1746                 ->more
 1747             %finish
 1748             %if k = 2 %start;                          ! {fault record comparisons}
 1749                 ->fail2 %if type = record
 1750                 ->more
 1751             %finish
 1752             %if k = 3 %start;                          ! check OWN variable coming
 1753                 code atom(0)
 1754                 ->A7 %if atom flags&own bit = 0
 1755                 ->more
 1756             %finish
 1757             for warn = pos1 %if x <= local;            ! %for TEST
 1758             ->more
 1759 paction(1): %if type = record %then g = phrase(242) %else pformat = -1; ->a3
 1760 paction(2): ptype = real;     pformat = -1;                             ->a3
 1761 paction(3): ptype = stringv;  pformat = -1;                             ->a3
 1762 paction(4): ptype = integer;  pformat = -1;                             ->a3
 1763 paction(5): ->a3 %if ptype = integer
 1764             g = phrase(212) %and pformat=-1 %if ptype = real
 1765             g = phrase(213) %if ptype = stringv
 1766                                                                         ->a3
 1767 paction(6): ptype = gram(ar(nmax)_sub+1)&7;  pformat = -1;              ->a3
 1768 paction(7): ptype=real %if ptype = integer;  pformat = -1;              ->a3
 1769
 1770 a1:         last1 = class;  atom1 = 0;  s = subatom
 1771 a2:         %if gg&trans bit = 0 %start;               ! insert into analysis record
				movl	%eax, LAST1.6447(%rip)
 1772                 z == node
				movl	$0, ATOM1.6416(%rip)
				movl	GG.6454(%rip), %eax
				testb	$1, %al
				je	.L487
		.L409:
		.LVL392:
				leaq	44(%rsp), %rcx
		.LVL484:
 1773                 %cycle;                                ! insert cell in order
				movl	SUBATOM.6418(%rip), %ebp
		.LVL391:
		.L408:
 1774                     k = z
				movl	44(%rsp), %edx
		.LVL394:
				movslq	%ecx, %rdx
		.LVL397:
				salq	$5, %rdx
		.LVL398:
				movl	8(%rsi,%rdx), %edx
		.LVL399:
				subl	$4096, %eax
 1775                     %exit %if gg&order bits = 0 %or k = 0
 1776                     gg = gg-order bit;  z == ar(k)_link
				testl	%edx, %edx
				je	.L410
				movl	%eax, %edi
				testl	%edx, %edx
				jne	.L411
 1777                 %repeat
				movq	8(%r15), %rsi
				subl	$4096, %eax
		.LVL395:
		.L411:
				leal	-1(%rdx), %ecx
		.LDL25:
		.LVL396:
				movslq	%ecx, %rcx
		.LVL400:
				salq	$5, %rcx
		.LVL401:
				leaq	8(%rsi,%rcx), %rcx
		.LDL26:
		.LDL27:
				movl	%edi, GG.6454(%rip)
 1778                 gg = map gg %if map gg # 0 %and gg&255 = var
				movl	MAPGG.6455(%rip), %eax
				testl	%eax, %eax
				je	.L412
				movl	MAPGG.6455(%rip), %eax
				testl	%eax, %eax
				je	.L412
				jmp	.L466
		.LVL485:
		.L486:
 1779                 nmin = nmin-1;  ->fail0 %if nmin = nmax
				testb	$1, %dil
				jne	.L412
		.L466:
				movl	NMIN.6458(%rip), %eax
				leal	-1(%rax), %edx
		.LVL402:
				movl	%edx, NMIN.6458(%rip)
 1780                 z = nmin
				movl	%eax, GG.6454(%rip)
		.L412:
				cmpl	NMAX.6459(%rip), %edx
				je	.L468
		.L414:
				movl	%edx, (%rcx)
		.LVL403:
				cltq
				salq	$5, %rax
		.LVL404:
				addq	8(%r15), %rax
 1781                 arp == ar(nmin)
 1782                 arp_sub = s;  arp_class = (gg&255)!mark
				movl	%ebp, -60(%rax)
		.LVL405:
 1783                 arp_link = k
				movzbl	GG.6454(%rip), %edx
				orl	24(%rsp), %edx
				movl	%edx, -64(%rax)
				movl	$0, -56(%rax)
				jmp	.L409
		.L490:
		.LBB540:
		.LBB502:
		.LBB482:
		.LBB483:
				call	_imp_newline@PLT
		.LVL406:
				jmp	.L416
		.LVL407:
		.L491:
		.LBE483:
		.LBE482:
		.LBB484:
		.LBB485:
				movl	$123, %edi
				call	_imp_printsymbol@PLT
		.LVL408:
		.LBE485:
		.LBE484:
 1784             %finish
 1785             mark = 0;  map gg = 0
 1786 more:       g = glink(g);                              ! chain down the grammar
				movl	$0, MAPGG.6455(%rip)
				jmp	.L404
		.LVL393:
		.L487:
 1787 paction(0):
				movslq	G.6453(%rip), %rax
				leaq	GLINK.6510(%rip), %rsi
				movswl	(%rsi,%rax,2), %eax
				movl	%eax, G.6453(%rip)
				movl	$0, 24(%rsp)
		.LBB504:
		.LBB501:
 1788 a3:         gg = gram(g);  class = gg&255
 1789             trace analysis %if diag&1 # 0
				movslq	G.6453(%rip), %rax
				leaq	GRAM.6509(%rip), %rcx
				movzwl	(%rcx,%rax,2), %eax
				movswl	%ax, %edx
				movl	%edx, GG.6454(%rip)
 1790             ->a5 %if class = 0;                        ! end of phrase
				movzbl	%al, %eax
				movl	%eax, CLASS.6414(%rip)
		.LBB541:
		.LBB503:
				movl	CLASS.6414(%rip), %ebx
				testl	%ebx, %ebx
				je	.L420
		.L421:
 1791
 1792             %if class < actions %start;                ! not a phrase or an action
				cmpl	$179, %ebx
				jg	.L422
 1793                 class = atomic(class) %if class >= figurative
				cmpl	$129, %ebx
				jle	.L423
 1794                 ->a2 %if class >= manifest
				movl	CLASS.6414(%rip), %edi
				cmpl	$119, %edi
				jg	.L408
		.L424:
				movq	8(%r15), %rdx
				leal	-130(%rbx), %eax
				cltq
				movzbl	69698(%rdx,%rax), %eax
				movl	%eax, CLASS.6414(%rip)
				jmp	.L423
		.L488:
 1795                 code atom(class) %if atom1 = 0
				cmpl	$0, ATOM1.6416(%rip)
				je	.L488
		.L425:
 1796                 %if escape class # 0 %start;           ! escape to new grammar
				movl	ESCAPECLASS.6442(%rip), %eax
				testl	%eax, %eax
				jne	.L489
		.L426:
				movq	8(%rsp), %r10
				call	CODEATOM.6985
		.LVL433:
				jmp	.L425
		.L489:
 1797                     class = escape class;  escape class = 0
				movl	%eax, CLASS.6414(%rip)
 1798                     g = g+escape
				movl	$0, ESCAPECLASS.6442(%rip)
				addl	$4096, G.6453(%rip)
		.LDL30:
 1799
 1800                     ! note that following an escape the next item is
 1801                     ! forced to be transparent!
 1802
 1803 esc:                gg = 0
 1804                     arp == ar(nmax+1)
				movl	$0, GG.6454(%rip)
		.LVL434:
 1805                     arp_papp = papp;  arp_x = x;  ->a4
				movslq	NMAX.6459(%rip), %rax
				salq	$5, %rax
				addq	8(%r15), %rax
		.LVL435:
				movl	PAPP.6450(%rip), %edx
				movl	%edx, 16(%rax)
 1806                 %finish
				movl	X.6415(%rip), %edx
				movl	%edx, 24(%rax)
		.LVL436:
		.L427:
 1807
 1808                 ->a1 %if class = atom1 %or class = atom2
				movl	CLASS.6414(%rip), %edx
				movl	ATOM1.6416(%rip), %eax
				cmpl	%eax, %edx
				je	.L406
 1809
				movl	ATOM2.6417(%rip), %eax
				cmpl	%eax, %edx
				je	.L406
		.L428:
		.L429:
 1810 a7:             ->fail1 %if gg >= 0;                   ! no alternative
 1811                 g = g+1
				cmpl	$0, GG.6454(%rip)
				jns	.L444
		.L430:
				addl	$1, G.6453(%rip)
		.LVL413:
		.L415:
 1812                 ->a3
 1813             %finish
 1814
 1815             %if class >= phrasal %start;               ! a phrase
				cmpl	$199, %ebx
				jg	.L427
		.L432:
		.LVL447:
		.LDL31:
 1816 a4:             nmax = nmax+1;  ->fail0 %if nmax = nmin
 1817                 arp == ar(nmax)
				movl	NMAX.6459(%rip), %eax
				leal	1(%rax), %edx
				movl	%edx, NMAX.6459(%rip)
 1818                 arp_ptype = ptype
				cmpl	NMIN.6458(%rip), %edx
				je	.L469
		.L433:
		.LVL437:
				cltq
				salq	$5, %rax
		.LVL438:
				addq	8(%r15), %rax
		.LVL439:
				movl	PTYPE.6449(%rip), %edx
				movl	%edx, 12(%rax)
 1819                 arp_pos = pos1
				movl	POS1.6479(%rip), %edx
				movl	%edx, 28(%rax)
 1820                 arp_pformat = pformat
				movl	PFORMAT.6451(%rip), %edx
				movl	%edx, 20(%rax)
 1821                 arp_link = gentype
				movl	GENTYPE.6448(%rip), %edx
				movl	%edx, 8(%rax)
 1822                 arp_class = node
				movl	44(%rsp), %edx
				movl	%edx, (%rax)
 1823                 arp_sub = g
				movl	G.6453(%rip), %edx
				movl	%edx, 4(%rax)
 1824                 node = 0
				movl	$0, 44(%rsp)
 1825                 g = phrase(class)
				movl	CLASS.6414(%rip), %eax
		.LVL440:
				subl	$200, %eax
				cltq
				leaq	PHRASE.6508(%rip), %rdx
				movswl	(%rdx,%rax,2), %eax
				movl	%eax, G.6453(%rip)
 1826                 ptype = force %and force = 0 %if force # 0
				movl	FORCE.6452(%rip), %eax
				testl	%eax, %eax
				je	.L434
 1827                 gentype = 0
				movl	%eax, PTYPE.6449(%rip)
				movl	$0, GENTYPE.6448(%rip)
		.LVL441:
 1828                 ->paction(gg>>8&15)
				movl	$0, FORCE.6452(%rip)
		.L434:
				movl	GG.6454(%rip), %eax
				shrl	$8, %eax
				andl	$15, %eax
				movl	%eax, 28(%rsp)
		.LVL442:
		.L435:
 1829             %finish
 1830             ->act(class);                              ! only actions left
 1831
 1832 a5:         ;! reverse links
 1833             s = 0
 1834             %while node # 0 %cycle
 1835                 z == ar(node)_link
				movl	44(%rsp), %ebp
				testl	%ebp, %ebp
				jne	.L439
				jmp	.L438
		.LVL450:
		.L470:
				testl	%edx, %edx
				jne	.L470
				movl	$0, 44(%rsp)
		.LVL454:
		.L438:
 1836                 k = z;  z = s;  s = node;  node = k
				movl	%edx, %ebp
		.LVL451:
		.L439:
				movslq	%ebp, %rax
				salq	$5, %rax
				addq	8(%r15), %rax
				movl	-24(%rax), %edx
		.LVL452:
 1837             %repeat
				movl	%ebx, -24(%rax)
		.LVL453:
		.LDL32:
		.LDL33:
				movl	%ebp, %ebx
 1838             ss = s
				movl	%ebp, SS.6463(%rip)
		.LDL34:
 1839 a6:         %if nmax # 0 %start
 1840                 k = gentype;                           ! type of phrase
				movl	NMAX.6459(%rip), %eax
				testl	%eax, %eax
				je	.L440
		.LVL455:
 1841                 arp == ar(nmax);  nmax = nmax-1
				leal	-1(%rax), %edx
				movq	8(%r15), %rcx
		.LVL456:
 1842                 node = arp_class
				movl	%edx, NMAX.6459(%rip)
				cltq
				salq	$5, %rax
				addq	%rcx, %rax
				movl	-32(%rax), %esi
				movl	%esi, 44(%rsp)
 1843                 gentype = arp_link
				movl	-24(%rax), %esi
				movl	%esi, GENTYPE.6448(%rip)
		.LVL457:
 1844                 ptype = arp_ptype
				movl	-20(%rax), %esi
				movl	%esi, PTYPE.6449(%rip)
 1845                 pformat = arp_pformat
				movslq	%edx, %rdx
		.LVL458:
				salq	$5, %rdx
				addq	%rcx, %rdx
		.LVL459:
				movl	20(%rdx), %ecx
				movl	%ecx, PFORMAT.6451(%rip)
 1846                 g = arp_sub
 1847                 %if g&escape # 0 %start
 1848                     g = g-escape
				movl	-28(%rax), %eax
				subl	$4096, %eax
				movl	%eax, G.6453(%rip)
 1849                     papp = arp_papp
				movl	16(%rdx), %eax
				movl	%eax, PAPP.6450(%rip)
		.LVL460:
 1850                     mark = 255
				movl	$255, 24(%rsp)
 1851                     subatom = s
				movl	%ebp, SUBATOM.6418(%rip)
 1852                     ->a3
				jmp	.L415
		.LVL461:
		.L440:
 1853                 %finish
 1854                 gentype = k %if gentype = 0 %or k = real
 1855                 type = gen type
 1856
 1857                 k = gg;                                ! exit-point code
 1858                 %cycle
 1859                     gg = gram(g)
 1860                     ->a2 %if k = 0
 1861                     ->fail1 %if gg >= 0;               ! no alternative phrase
 1862                     k = k-order bit
 1863                     g = g+1;                           ! sideways step
 1864                 %repeat
 1865             %finish
 1866
 1867             Fault(4)  %if copy # 0
				cmpl	$0, COPY.6474(%rip)
				jne	.L493
		.L441:
 1868             fault(13) %if order = 0
				cmpl	$0, ORDER.6475(%rip)
				je	.L494
		.L442:
		.LDL35:
				movq	%r15, %r10
				movl	$4, %edi
				call	FAULT.6666
		.LVL462:
				jmp	.L441
		.L494:
 1869             fault(-4) %if for warn # 0
				movq	%r15, %r10
				movl	$13, %edi
				call	FAULT.6666
		.LVL463:
				jmp	.L442
		.LVL464:
		.L468:
 1870             pos1 = 0
				movl	$0, POS1.6479(%rip)
 1871             fault rate = fault rate-1
				subl	$1, FAULTRATE.6424(%rip)
 1872             %return
				jmp	.L390
		.L493:
 1873
 1874 act(193):   gg = 0 %and ->a5 %unless sym = '=' %or sym = '<'; ! cdummy
 1875 act(181):   atom1 = amap(decl&15);                     ! dummy
 1876             ->more
 1877
 1878 act(182):   class = escdec;  g = glink(g)!escape;      ! an example of ! as an operator
 1879             decl = 0;  otype = 0;  ->esc;              ! decl
 1880
 1881 act(199):   ;                                          ! compile
 1882             s = 0
 1883             %while node # 0 %cycle
 1884                 z == ar(node)_link
 1885                 k = z;  z = s;  s = node;  node = k
 1886             %repeat
 1887             ss = s
 1888
 1889             code atom(28) %if quote # 0;               ! expend
 1890             compile;  ->more %if atom1&error = 0
 1891             ->fail1
 1892
 1893 act(184):   ->fail4 %unless type = integer
 1894             %if subatom < 0 %then lit = tag(-subatom)_format %else lit = lit pool(subatom)
 1895             ->fail4 %if lit # 0
 1896             ->more
 1897 act(185):   ;                                          ! apply parameters
 1898             s = 0
 1899             %while node # 0 %cycle
 1900                 z == ar(node)_link
 1901                 k = z;  z = s;  s = node;  node = k
 1902             %repeat
 1903             ss = s
 1904
 1905             atom1 = ar(s)_class;  atom2 = 0
 1906             atom1 = var %if atom1 = 97 %or atom1 = 98
 1907             arp == ar(nmax)
 1908             x = arp_x
 1909             pos1 = arp_pos
 1910             pos2 = 0
 1911             app = 0
 1912             format = tag(x)_format
 1913             flags = tag(x)_flags
 1914             type = flags>>4&7
 1915             protection = flags&prot
 1916             protection = 0 %if flags&aname # 0
 1917
 1918             %if flags&subname # 0 %and format # 0 %start
 1919                 ->fail1 %if format selected = 0
 1920             %finish
 1921
 1922             ->a6
 1923
 1924 act(187):   protection = prot;  ->more;                ! %SETPROT
 1925 act(186):   ->More %if protection&prot = 0
 1926             prot err = nmin
 1927             ->A7
 1928 act(191):   k = protection;                            ! %GUARD
 1929             code atom(0)
 1930             protection = k %if atom flags&aname = 0
 1931             ->more
 1932
 1933 act(192):   ->fail1 %if parsed machine code=0
 1934             ->more
 1935
 1936 act(189):   k = gapp;                                  ! %GAPP
 1937             delete names(1)
 1938             tmax = tbase;  tbase = gram (gmin);        ! restore tmax
 1939             local= tbase
 1940             gmin = gmin+1
 1941
 1942             x = ar(ar(nmax)_class)_sub
 1943             tag(x)_app = k;                            ! update app
 1944             ->more
 1945
 1946 act(190):   gmin = gmin-1;                             ! %LOCAL
 1947             abandon(2) %if gmin <= gmax
 1948             gram (gmin) = tbase;  tbase = tmax
 1949             local = tbase
 1950             ->more
 1951
 1952             ! errors
 1953
 1954 fail4:      k = error+10;            ->failed;         ! *size
 1955 fail3:      k = error+7;             ->failed;         ! *context
 1956 fail2:      k = error+5;  pos2 = 0;  ->failed;         ! *type
 1957 fail0:      k = error+3;             ->failed;         ! *too complex
 1958 fail1:      k = atom1;    pos2 = 0
				movl	$32771, 8(%rsp)
				jmp	.L413
		.L469:
				movl	$32771, 8(%rsp)
				jmp	.L413
		.LVL465:
		.L436:
 1959 failed:     %if diag&32 # 0 %start
				movl	ATOM1.6416(%rip), %eax
				movl	%eax, 8(%rsp)
		.LVL352:
 1960                 printstring("Atom1 =");      write(atom1, 3)
				movl	$0, POS2.6480(%rip)
		.LVL353:
		.L413:
		.LBB505:
				movabsq	$17205370240857153, %rax
				movl	$0, %edx
				movq	%rax, 7265(%rsp)
				movq	%rdx, 7273(%rsp)
				movl	$0, %ebp
				movb	$0, 7281(%rsp)
				movw	$0, 7282(%rsp)
				movl	$0, 7284(%rsp)
				leaq	7288(%rsp), %rdi
				movl	$29, %ecx
				movq	%rbp, %rax
				rep stosq
				movb	$7, 7264(%rsp)
				movq	7264(%rsp), %rax
				movq	7272(%rsp), %rdx
				movq	%rax, 96(%rsp)
				movq	%rdx, 104(%rsp)
				movdqa	7280(%rsp), %xmm3
				movaps	%xmm3, 112(%rsp)
				movdqa	7296(%rsp), %xmm5
				movaps	%xmm5, 128(%rsp)
				movdqa	7312(%rsp), %xmm7
				movaps	%xmm7, 144(%rsp)
				movdqa	7328(%rsp), %xmm3
				movaps	%xmm3, 160(%rsp)
				movdqa	7344(%rsp), %xmm5
				movaps	%xmm5, 176(%rsp)
				movdqa	7360(%rsp), %xmm7
				movaps	%xmm7, 192(%rsp)
				movdqa	7376(%rsp), %xmm3
				movaps	%xmm3, 208(%rsp)
				movdqa	7392(%rsp), %xmm5
				movaps	%xmm5, 224(%rsp)
				movdqa	7408(%rsp), %xmm7
				movaps	%xmm7, 240(%rsp)
				movdqa	7424(%rsp), %xmm3
				movaps	%xmm3, 256(%rsp)
				movq	7440(%rsp), %r13
				movq	7448(%rsp), %r14
				movq	%r13, 272(%rsp)
				movq	%r14, 280(%rsp)
				movq	7456(%rsp), %rcx
				movq	7464(%rsp), %rbx
				movq	%rcx, 288(%rsp)
				movq	%rbx, 296(%rsp)
				movq	7472(%rsp), %rsi
				movq	7480(%rsp), %rdi
				movq	%rsi, 304(%rsp)
				movq	%rdi, 312(%rsp)
				movq	7488(%rsp), %r9
				movq	7496(%rsp), %r10
				movq	%r9, 320(%rsp)
				movq	%r10, 328(%rsp)
				movq	7504(%rsp), %r11
				movq	7512(%rsp), %r12
				movq	%r11, 336(%rsp)
				movq	%r12, 344(%rsp)
		.LVL354:
				movb	$7, 96(%rsp)
				movq	96(%rsp), %rax
				movq	104(%rsp), %rdx
				movq	%rax, 7264(%rsp)
				movq	%rdx, 7272(%rsp)
		.LBE505:
		.LBB506:
		.LBB507:
				pushq	%r12
				pushq	%r11
				pushq	%r10
				pushq	%r9
				pushq	%rdi
				pushq	%rsi
				pushq	%rbx
				pushq	%rcx
				pushq	%r14
				pushq	%r13
				pushq	7512(%rsp)
				pushq	7512(%rsp)
				pushq	7512(%rsp)
				pushq	7512(%rsp)
				pushq	7512(%rsp)
				pushq	7512(%rsp)
				pushq	7512(%rsp)
				pushq	7512(%rsp)
				pushq	7512(%rsp)
				pushq	7512(%rsp)
				pushq	7512(%rsp)
				pushq	7512(%rsp)
				pushq	7512(%rsp)
				pushq	7512(%rsp)
				pushq	7512(%rsp)
				pushq	7512(%rsp)
				pushq	7512(%rsp)
				pushq	7512(%rsp)
				pushq	7512(%rsp)
				pushq	7512(%rsp)
				pushq	%rdx
				pushq	%rax
				call	_imp_printstring@PLT
		.LVL355:
		.LBE507:
		.LBE506:
 1961                 printstring("  Atom2 =");    write(atom2, 3)
				addq	$256, %rsp
				movl	$3, %esi
				movl	ATOM1.6416(%rip), %edi
				call	_imp_writeint@PLT
		.LVL356:
		.LBB508:
				movabsq	$2320037083508449312, %rax
				movl	$61, %edx
				movq	%rax, 6241(%rsp)
				movq	%rdx, 6249(%rsp)
				movb	$0, 6257(%rsp)
				movw	$0, 6258(%rsp)
				movl	$0, 6260(%rsp)
				leaq	6264(%rsp), %rdi
				movl	$29, %ecx
				movq	%rbp, %rax
				rep stosq
				movb	$9, 6240(%rsp)
				movq	6240(%rsp), %rax
				movq	6248(%rsp), %rdx
				movq	%rax, 352(%rsp)
				movq	%rdx, 360(%rsp)
				movdqa	6256(%rsp), %xmm5
				movaps	%xmm5, 368(%rsp)
				movdqa	6272(%rsp), %xmm7
				movaps	%xmm7, 384(%rsp)
				movdqa	6288(%rsp), %xmm3
				movaps	%xmm3, 400(%rsp)
				movdqa	6304(%rsp), %xmm5
				movaps	%xmm5, 416(%rsp)
				movdqa	6320(%rsp), %xmm7
				movaps	%xmm7, 432(%rsp)
				movdqa	6336(%rsp), %xmm3
				movaps	%xmm3, 448(%rsp)
				movdqa	6352(%rsp), %xmm5
				movaps	%xmm5, 464(%rsp)
				movdqa	6368(%rsp), %xmm7
				movaps	%xmm7, 480(%rsp)
				movdqa	6384(%rsp), %xmm3
				movaps	%xmm3, 496(%rsp)
				movdqa	6400(%rsp), %xmm5
				movaps	%xmm5, 512(%rsp)
				movq	6416(%rsp), %r13
				movq	6424(%rsp), %r14
				movq	%r13, 528(%rsp)
				movq	%r14, 536(%rsp)
				movq	6432(%rsp), %rcx
				movq	6440(%rsp), %rbx
				movq	%rcx, 544(%rsp)
				movq	%rbx, 552(%rsp)
				movq	6448(%rsp), %rsi
				movq	6456(%rsp), %rdi
				movq	%rsi, 560(%rsp)
				movq	%rdi, 568(%rsp)
				movq	6464(%rsp), %r9
				movq	6472(%rsp), %r10
				movq	%r9, 576(%rsp)
				movq	%r10, 584(%rsp)
				movq	6480(%rsp), %r11
				movq	6488(%rsp), %r12
				movq	%r11, 592(%rsp)
				movq	%r12, 600(%rsp)
		.LVL357:
				movb	$9, 352(%rsp)
				movq	352(%rsp), %rax
				movq	360(%rsp), %rdx
				movq	%rax, 6240(%rsp)
				movq	%rdx, 6248(%rsp)
		.LBE508:
		.LBB509:
		.LBB510:
				pushq	%r12
				pushq	%r11
				pushq	%r10
				pushq	%r9
				pushq	%rdi
				pushq	%rsi
				pushq	%rbx
				pushq	%rcx
				pushq	%r14
				pushq	%r13
				pushq	6488(%rsp)
				pushq	6488(%rsp)
				pushq	6488(%rsp)
				pushq	6488(%rsp)
				pushq	6488(%rsp)
				pushq	6488(%rsp)
				pushq	6488(%rsp)
				pushq	6488(%rsp)
				pushq	6488(%rsp)
				pushq	6488(%rsp)
				pushq	6488(%rsp)
				pushq	6488(%rsp)
				pushq	6488(%rsp)
				pushq	6488(%rsp)
				pushq	6488(%rsp)
				pushq	6488(%rsp)
				pushq	6488(%rsp)
				pushq	6488(%rsp)
				pushq	6488(%rsp)
				pushq	6488(%rsp)
				pushq	%rdx
				pushq	%rax
				call	_imp_printstring@PLT
		.LVL358:
		.LBE510:
		.LBE509:
 1962                 printstring("  subatom =");  write(subatom, 3); newline
				addq	$256, %rsp
				movl	$3, %esi
				movl	ATOM2.6417(%rip), %edi
				call	_imp_writeint@PLT
		.LVL359:
		.LBB511:
				movabsq	$8031151111013605408, %rax
				movl	$4005997, %edx
				movq	%rax, 5985(%rsp)
				movq	%rdx, 5993(%rsp)
				movb	$0, 6001(%rsp)
				movw	$0, 6002(%rsp)
				movl	$0, 6004(%rsp)
				leaq	6008(%rsp), %rdi
				movl	$29, %ecx
				movq	%rbp, %rax
				rep stosq
				movb	$11, 5984(%rsp)
				movq	5984(%rsp), %rax
				movq	5992(%rsp), %rdx
				movq	%rax, 608(%rsp)
				movq	%rdx, 616(%rsp)
				movdqa	6000(%rsp), %xmm7
				movaps	%xmm7, 624(%rsp)
				movdqa	6016(%rsp), %xmm3
				movaps	%xmm3, 640(%rsp)
				movdqa	6032(%rsp), %xmm5
				movaps	%xmm5, 656(%rsp)
				movdqa	6048(%rsp), %xmm7
				movaps	%xmm7, 672(%rsp)
				movdqa	6064(%rsp), %xmm3
				movaps	%xmm3, 688(%rsp)
				movdqa	6080(%rsp), %xmm5
				movaps	%xmm5, 704(%rsp)
				movdqa	6096(%rsp), %xmm7
				movaps	%xmm7, 720(%rsp)
				movdqa	6112(%rsp), %xmm3
				movaps	%xmm3, 736(%rsp)
				movdqa	6128(%rsp), %xmm5
				movaps	%xmm5, 752(%rsp)
				movdqa	6144(%rsp), %xmm7
				movaps	%xmm7, 768(%rsp)
				movq	6160(%rsp), %r13
				movq	6168(%rsp), %r14
				movq	%r13, 784(%rsp)
				movq	%r14, 792(%rsp)
				movq	6176(%rsp), %rcx
				movq	6184(%rsp), %rbx
				movq	%rcx, 800(%rsp)
				movq	%rbx, 808(%rsp)
				movq	6192(%rsp), %rsi
				movq	6200(%rsp), %rdi
				movq	%rsi, 816(%rsp)
				movq	%rdi, 824(%rsp)
				movq	6208(%rsp), %r9
				movq	6216(%rsp), %r10
				movq	%r9, 832(%rsp)
				movq	%r10, 840(%rsp)
				movq	6224(%rsp), %r11
				movq	6232(%rsp), %r12
				movq	%r11, 848(%rsp)
				movq	%r12, 856(%rsp)
		.LVL360:
				movb	$11, 608(%rsp)
				movq	608(%rsp), %rax
				movq	616(%rsp), %rdx
				movq	%rax, 5984(%rsp)
				movq	%rdx, 5992(%rsp)
		.LBE511:
		.LBB512:
		.LBB513:
				pushq	%r12
				pushq	%r11
				pushq	%r10
				pushq	%r9
				pushq	%rdi
				pushq	%rsi
				pushq	%rbx
				pushq	%rcx
				pushq	%r14
				pushq	%r13
				pushq	6232(%rsp)
				pushq	6232(%rsp)
				pushq	6232(%rsp)
				pushq	6232(%rsp)
				pushq	6232(%rsp)
				pushq	6232(%rsp)
				pushq	6232(%rsp)
				pushq	6232(%rsp)
				pushq	6232(%rsp)
				pushq	6232(%rsp)
				pushq	6232(%rsp)
				pushq	6232(%rsp)
				pushq	6232(%rsp)
				pushq	6232(%rsp)
				pushq	6232(%rsp)
				pushq	6232(%rsp)
				pushq	6232(%rsp)
				pushq	6232(%rsp)
				pushq	6232(%rsp)
				pushq	6232(%rsp)
				pushq	%rdx
				pushq	%rax
				call	_imp_printstring@PLT
		.LVL361:
		.LBE513:
		.LBE512:
 1963                 printstring("Type =");       write(type, 1)
				addq	$256, %rsp
				movl	$3, %esi
				movl	SUBATOM.6418(%rip), %edi
				call	_imp_writeint@PLT
		.LVL362:
		.LBB514:
		.LBB515:
				call	_imp_newline@PLT
		.LVL363:
		.LBE515:
		.LBE514:
		.LBB516:
				movabsq	$67209350117716, %rax
				movl	$0, %edx
				movq	%rax, 5729(%rsp)
				movq	%rdx, 5737(%rsp)
				movb	$0, 5745(%rsp)
				movw	$0, 5746(%rsp)
				movl	$0, 5748(%rsp)
				leaq	5752(%rsp), %rdi
				movl	$29, %ecx
				movq	%rbp, %rax
				rep stosq
				movb	$6, 5728(%rsp)
				movq	5728(%rsp), %rax
				movq	5736(%rsp), %rdx
				movq	%rax, 864(%rsp)
				movq	%rdx, 872(%rsp)
				movdqa	5744(%rsp), %xmm3
				movaps	%xmm3, 880(%rsp)
				movdqa	5760(%rsp), %xmm5
				movaps	%xmm5, 896(%rsp)
				movdqa	5776(%rsp), %xmm7
				movaps	%xmm7, 912(%rsp)
				movdqa	5792(%rsp), %xmm3
				movaps	%xmm3, 928(%rsp)
				movdqa	5808(%rsp), %xmm5
				movaps	%xmm5, 944(%rsp)
				movdqa	5824(%rsp), %xmm7
				movaps	%xmm7, 960(%rsp)
				movdqa	5840(%rsp), %xmm3
				movaps	%xmm3, 976(%rsp)
				movdqa	5856(%rsp), %xmm5
				movaps	%xmm5, 992(%rsp)
				movdqa	5872(%rsp), %xmm7
				movaps	%xmm7, 1008(%rsp)
				movdqa	5888(%rsp), %xmm3
				movaps	%xmm3, 1024(%rsp)
				movq	5904(%rsp), %r13
				movq	5912(%rsp), %r14
				movq	%r13, 1040(%rsp)
				movq	%r14, 1048(%rsp)
				movq	5920(%rsp), %rcx
				movq	5928(%rsp), %rbx
				movq	%rcx, 1056(%rsp)
				movq	%rbx, 1064(%rsp)
				movq	5936(%rsp), %rsi
				movq	5944(%rsp), %rdi
				movq	%rsi, 1072(%rsp)
				movq	%rdi, 1080(%rsp)
				movq	5952(%rsp), %r9
				movq	5960(%rsp), %r10
				movq	%r9, 1088(%rsp)
				movq	%r10, 1096(%rsp)
				movq	5968(%rsp), %r11
				movq	5976(%rsp), %r12
				movq	%r11, 1104(%rsp)
				movq	%r12, 1112(%rsp)
		.LVL364:
				movb	$6, 864(%rsp)
				movq	864(%rsp), %rax
				movq	872(%rsp), %rdx
				movq	%rax, 5728(%rsp)
				movq	%rdx, 5736(%rsp)
		.LBE516:
		.LBB517:
		.LBB518:
				pushq	%r12
				pushq	%r11
				pushq	%r10
				pushq	%r9
				pushq	%rdi
				pushq	%rsi
				pushq	%rbx
				pushq	%rcx
				pushq	%r14
				pushq	%r13
				pushq	5976(%rsp)
				pushq	5976(%rsp)
				pushq	5976(%rsp)
				pushq	5976(%rsp)
				pushq	5976(%rsp)
				pushq	5976(%rsp)
				pushq	5976(%rsp)
				pushq	5976(%rsp)
				pushq	5976(%rsp)
				pushq	5976(%rsp)
				pushq	5976(%rsp)
				pushq	5976(%rsp)
				pushq	5976(%rsp)
				pushq	5976(%rsp)
				pushq	5976(%rsp)
				pushq	5976(%rsp)
				pushq	5976(%rsp)
				pushq	5976(%rsp)
				pushq	5976(%rsp)
				pushq	5976(%rsp)
				pushq	%rdx
				pushq	%rax
				call	_imp_printstring@PLT
		.LVL365:
		.LBE518:
		.LBE517:
 1964                 printstring("   Ptype =");   write(ptype, 1);   newline
				addq	$256, %rsp
				movl	$1, %esi
				movl	TYPE.6419(%rip), %edi
				call	_imp_writeint@PLT
		.LVL366:
		.LBB519:
				movabsq	$7309475735689764896, %rax
				movl	$15648, %edx
				movq	%rax, 5473(%rsp)
				movq	%rdx, 5481(%rsp)
				movb	$0, 5489(%rsp)
				movw	$0, 5490(%rsp)
				movl	$0, 5492(%rsp)
				leaq	5496(%rsp), %rdi
				movl	$29, %ecx
				movq	%rbp, %rax
				rep stosq
				movb	$10, 5472(%rsp)
				movq	5472(%rsp), %rax
				movq	5480(%rsp), %rdx
				movq	%rax, 1120(%rsp)
				movq	%rdx, 1128(%rsp)
				movdqa	5488(%rsp), %xmm5
				movaps	%xmm5, 1136(%rsp)
				movdqa	5504(%rsp), %xmm7
				movaps	%xmm7, 1152(%rsp)
				movdqa	5520(%rsp), %xmm3
				movaps	%xmm3, 1168(%rsp)
				movdqa	5536(%rsp), %xmm5
				movaps	%xmm5, 1184(%rsp)
				movdqa	5552(%rsp), %xmm7
				movaps	%xmm7, 1200(%rsp)
				movdqa	5568(%rsp), %xmm4
				movaps	%xmm4, 1216(%rsp)
				movdqa	5584(%rsp), %xmm6
				movaps	%xmm6, 1232(%rsp)
				movdqa	5600(%rsp), %xmm0
				movaps	%xmm0, 1248(%rsp)
				movdqa	5616(%rsp), %xmm1
				movaps	%xmm1, 1264(%rsp)
				movdqa	5632(%rsp), %xmm2
				movaps	%xmm2, 1280(%rsp)
				movq	5648(%rsp), %r13
				movq	5656(%rsp), %r14
				movq	%r13, 1296(%rsp)
				movq	%r14, 1304(%rsp)
				movq	5664(%rsp), %rcx
				movq	5672(%rsp), %rbx
				movq	%rcx, 1312(%rsp)
				movq	%rbx, 1320(%rsp)
				movq	5680(%rsp), %rsi
				movq	5688(%rsp), %rdi
				movq	%rsi, 1328(%rsp)
				movq	%rdi, 1336(%rsp)
				movq	5696(%rsp), %r9
				movq	5704(%rsp), %r10
				movq	%r9, 1344(%rsp)
				movq	%r10, 1352(%rsp)
				movq	5712(%rsp), %r11
				movq	5720(%rsp), %r12
				movq	%r11, 1360(%rsp)
				movq	%r12, 1368(%rsp)
		.LVL367:
				movb	$10, 1120(%rsp)
				movq	1120(%rsp), %rax
				movq	1128(%rsp), %rdx
				movq	%rax, 5472(%rsp)
				movq	%rdx, 5480(%rsp)
		.LBE519:
		.LBB520:
		.LBB521:
				pushq	%r12
				pushq	%r11
				pushq	%r10
				pushq	%r9
				pushq	%rdi
				pushq	%rsi
				pushq	%rbx
				pushq	%rcx
				pushq	%r14
				pushq	%r13
				pushq	5720(%rsp)
				pushq	5720(%rsp)
				pushq	5720(%rsp)
				pushq	5720(%rsp)
				pushq	5720(%rsp)
				pushq	5720(%rsp)
				pushq	5720(%rsp)
				pushq	5720(%rsp)
				pushq	5720(%rsp)
				pushq	5720(%rsp)
				pushq	5720(%rsp)
				pushq	5720(%rsp)
				pushq	5720(%rsp)
				pushq	5720(%rsp)
				pushq	5720(%rsp)
				pushq	5720(%rsp)
				pushq	5720(%rsp)
				pushq	5720(%rsp)
				pushq	5720(%rsp)
				pushq	5720(%rsp)
				pushq	%rdx
				pushq	%rax
				call	_imp_printstring@PLT
		.LVL368:
		.LBE521:
		.LBE520:
 1965                 printstring("App =");        write(app, 1)
				addq	$256, %rsp
				movl	$1, %esi
				movl	PTYPE.6449(%rip), %edi
				call	_imp_writeint@PLT
		.LVL369:
		.LBB522:
		.LBB523:
				call	_imp_newline@PLT
		.LVL370:
		.LBE523:
		.LBE522:
		.LBB524:
				movabsq	$262537244737, %rax
				movl	$0, %edx
				movq	%rax, 5217(%rsp)
				movq	%rdx, 5225(%rsp)
				movb	$0, 5233(%rsp)
				movw	$0, 5234(%rsp)
				movl	$0, 5236(%rsp)
				leaq	5240(%rsp), %rdi
				movl	$29, %ecx
				movq	%rbp, %rax
				rep stosq
				movb	$5, 5216(%rsp)
				movq	5216(%rsp), %rax
				movq	5224(%rsp), %rdx
				movq	%rax, 1376(%rsp)
				movq	%rdx, 1384(%rsp)
				movdqa	5232(%rsp), %xmm3
				movaps	%xmm3, 1392(%rsp)
				movdqa	5248(%rsp), %xmm5
				movaps	%xmm5, 1408(%rsp)
				movdqa	5264(%rsp), %xmm7
				movaps	%xmm7, 1424(%rsp)
				movdqa	5280(%rsp), %xmm4
				movaps	%xmm4, 1440(%rsp)
				movdqa	5296(%rsp), %xmm6
				movaps	%xmm6, 1456(%rsp)
				movdqa	5312(%rsp), %xmm0
				movaps	%xmm0, 1472(%rsp)
				movdqa	5328(%rsp), %xmm1
				movaps	%xmm1, 1488(%rsp)
				movdqa	5344(%rsp), %xmm2
				movaps	%xmm2, 1504(%rsp)
				movdqa	5360(%rsp), %xmm3
				movaps	%xmm3, 1520(%rsp)
				movdqa	5376(%rsp), %xmm5
				movaps	%xmm5, 1536(%rsp)
				movq	5392(%rsp), %r13
				movq	5400(%rsp), %r14
				movq	%r13, 1552(%rsp)
				movq	%r14, 1560(%rsp)
				movq	5408(%rsp), %rcx
				movq	5416(%rsp), %rbx
				movq	%rcx, 1568(%rsp)
				movq	%rbx, 1576(%rsp)
				movq	5424(%rsp), %rsi
				movq	5432(%rsp), %rdi
				movq	%rsi, 1584(%rsp)
				movq	%rdi, 1592(%rsp)
				movq	5440(%rsp), %r9
				movq	5448(%rsp), %r10
				movq	%r9, 1600(%rsp)
				movq	%r10, 1608(%rsp)
				movq	5456(%rsp), %r11
				movq	5464(%rsp), %r12
				movq	%r11, 1616(%rsp)
				movq	%r12, 1624(%rsp)
		.LVL371:
				movb	$5, 1376(%rsp)
				movq	1376(%rsp), %rax
				movq	1384(%rsp), %rdx
				movq	%rax, 5216(%rsp)
				movq	%rdx, 5224(%rsp)
		.LBE524:
		.LBB525:
		.LBB526:
				pushq	%r12
				pushq	%r11
				pushq	%r10
				pushq	%r9
				pushq	%rdi
				pushq	%rsi
				pushq	%rbx
				pushq	%rcx
				pushq	%r14
				pushq	%r13
				pushq	5464(%rsp)
				pushq	5464(%rsp)
				pushq	5464(%rsp)
				pushq	5464(%rsp)
				pushq	5464(%rsp)
				pushq	5464(%rsp)
				pushq	5464(%rsp)
				pushq	5464(%rsp)
				pushq	5464(%rsp)
				pushq	5464(%rsp)
				pushq	5464(%rsp)
				pushq	5464(%rsp)
				pushq	5464(%rsp)
				pushq	5464(%rsp)
				pushq	5464(%rsp)
				pushq	5464(%rsp)
				pushq	5464(%rsp)
				pushq	5464(%rsp)
				pushq	5464(%rsp)
				pushq	5464(%rsp)
				pushq	%rdx
				pushq	%rax
				call	_imp_printstring@PLT
		.LVL372:
		.LBE526:
		.LBE525:
 1966                 printstring("   Papp =");    write(papp, 1);    newline
				addq	$256, %rsp
				movl	$1, %esi
				movl	APP.6420(%rip), %edi
				call	_imp_writeint@PLT
		.LVL373:
		.LBB527:
				movabsq	$2337491769863708704, %rax
				movl	$61, %edx
				movq	%rax, 4961(%rsp)
				movq	%rdx, 4969(%rsp)
				movb	$0, 4977(%rsp)
				movw	$0, 4978(%rsp)
				movl	$0, 4980(%rsp)
				leaq	4984(%rsp), %rdi
				movl	$29, %ecx
				movq	%rbp, %rax
				rep stosq
				movb	$9, 4960(%rsp)
				movq	4960(%rsp), %rax
				movq	4968(%rsp), %rdx
				movq	%rax, 1632(%rsp)
				movq	%rdx, 1640(%rsp)
				movdqa	4976(%rsp), %xmm7
				movaps	%xmm7, 1648(%rsp)
				movdqa	4992(%rsp), %xmm4
				movaps	%xmm4, 1664(%rsp)
				movdqa	5008(%rsp), %xmm6
				movaps	%xmm6, 1680(%rsp)
				movdqa	5024(%rsp), %xmm0
				movaps	%xmm0, 1696(%rsp)
				movdqa	5040(%rsp), %xmm1
				movaps	%xmm1, 1712(%rsp)
				movdqa	5056(%rsp), %xmm2
				movaps	%xmm2, 1728(%rsp)
				movdqa	5072(%rsp), %xmm3
				movaps	%xmm3, 1744(%rsp)
				movdqa	5088(%rsp), %xmm5
				movaps	%xmm5, 1760(%rsp)
				movdqa	5104(%rsp), %xmm7
				movaps	%xmm7, 1776(%rsp)
				movdqa	5120(%rsp), %xmm4
				movaps	%xmm4, 1792(%rsp)
				movq	5136(%rsp), %r13
				movq	5144(%rsp), %r14
				movq	%r13, 1808(%rsp)
				movq	%r14, 1816(%rsp)
				movq	5152(%rsp), %rcx
				movq	5160(%rsp), %rbx
				movq	%rcx, 1824(%rsp)
				movq	%rbx, 1832(%rsp)
				movq	5168(%rsp), %rsi
				movq	5176(%rsp), %rdi
				movq	%rsi, 1840(%rsp)
				movq	%rdi, 1848(%rsp)
				movq	5184(%rsp), %r9
				movq	5192(%rsp), %r10
				movq	%r9, 1856(%rsp)
				movq	%r10, 1864(%rsp)
				movq	5200(%rsp), %r11
				movq	5208(%rsp), %r12
				movq	%r11, 1872(%rsp)
				movq	%r12, 1880(%rsp)
		.LVL374:
				movb	$9, 1632(%rsp)
				movq	1632(%rsp), %rax
				movq	1640(%rsp), %rdx
				movq	%rax, 4960(%rsp)
				movq	%rdx, 4968(%rsp)
		.LBE527:
		.LBB528:
		.LBB529:
				pushq	%r12
				pushq	%r11
				pushq	%r10
				pushq	%r9
				pushq	%rdi
				pushq	%rsi
				pushq	%rbx
				pushq	%rcx
				pushq	%r14
				pushq	%r13
				pushq	5208(%rsp)
				pushq	5208(%rsp)
				pushq	5208(%rsp)
				pushq	5208(%rsp)
				pushq	5208(%rsp)
				pushq	5208(%rsp)
				pushq	5208(%rsp)
				pushq	5208(%rsp)
				pushq	5208(%rsp)
				pushq	5208(%rsp)
				pushq	5208(%rsp)
				pushq	5208(%rsp)
				pushq	5208(%rsp)
				pushq	5208(%rsp)
				pushq	5208(%rsp)
				pushq	5208(%rsp)
				pushq	5208(%rsp)
				pushq	5208(%rsp)
				pushq	5208(%rsp)
				pushq	5208(%rsp)
				pushq	%rdx
				pushq	%rax
				call	_imp_printstring@PLT
		.LVL375:
		.LBE529:
		.LBE528:
 1967                 printstring("Format =");     write(format, 1)
				addq	$256, %rsp
				movl	$1, %esi
				movl	PAPP.6450(%rip), %edi
				call	_imp_writeint@PLT
		.LVL376:
		.LBB530:
		.LBB531:
				call	_imp_newline@PLT
		.LVL377:
		.LBE531:
		.LBE530:
		.LBB532:
				movabsq	$4404648397365210950, %rax
				movl	$0, %edx
				movq	%rax, 4705(%rsp)
				movq	%rdx, 4713(%rsp)
				movb	$0, 4721(%rsp)
				movw	$0, 4722(%rsp)
				movl	$0, 4724(%rsp)
				leaq	4728(%rsp), %rdi
				movl	$29, %ecx
				movq	%rbp, %rax
				rep stosq
				movb	$8, 4704(%rsp)
				movq	4704(%rsp), %rax
				movq	4712(%rsp), %rdx
				movq	%rax, 1888(%rsp)
				movq	%rdx, 1896(%rsp)
				movdqa	4720(%rsp), %xmm6
				movaps	%xmm6, 1904(%rsp)
				movdqa	4736(%rsp), %xmm0
				movaps	%xmm0, 1920(%rsp)
				movdqa	4752(%rsp), %xmm1
				movaps	%xmm1, 1936(%rsp)
				movdqa	4768(%rsp), %xmm2
				movaps	%xmm2, 1952(%rsp)
				movdqa	4784(%rsp), %xmm3
				movaps	%xmm3, 1968(%rsp)
				movdqa	4800(%rsp), %xmm5
				movaps	%xmm5, 1984(%rsp)
				movdqa	4816(%rsp), %xmm7
				movaps	%xmm7, 2000(%rsp)
				movdqa	4832(%rsp), %xmm4
				movaps	%xmm4, 2016(%rsp)
				movdqa	4848(%rsp), %xmm6
				movaps	%xmm6, 2032(%rsp)
				movdqa	4864(%rsp), %xmm0
				movaps	%xmm0, 2048(%rsp)
				movq	4880(%rsp), %r13
				movq	4888(%rsp), %r14
				movq	%r13, 2064(%rsp)
				movq	%r14, 2072(%rsp)
				movq	4896(%rsp), %rcx
				movq	4904(%rsp), %rbx
				movq	%rcx, 2080(%rsp)
				movq	%rbx, 2088(%rsp)
				movq	4912(%rsp), %rsi
				movq	4920(%rsp), %rdi
				movq	%rsi, 2096(%rsp)
				movq	%rdi, 2104(%rsp)
				movq	4928(%rsp), %r9
				movq	4936(%rsp), %r10
				movq	%r9, 2112(%rsp)
				movq	%r10, 2120(%rsp)
				movq	4944(%rsp), %r11
				movq	4952(%rsp), %r12
				movq	%r11, 2128(%rsp)
				movq	%r12, 2136(%rsp)
		.LVL378:
				movb	$8, 1888(%rsp)
				movq	1888(%rsp), %rax
				movq	1896(%rsp), %rdx
				movq	%rax, 4704(%rsp)
				movq	%rdx, 4712(%rsp)
		.LBE532:
		.LBB533:
		.LBB534:
				pushq	%r12
				pushq	%r11
				pushq	%r10
				pushq	%r9
				pushq	%rdi
				pushq	%rsi
				pushq	%rbx
				pushq	%rcx
				pushq	%r14
				pushq	%r13
				pushq	4952(%rsp)
				pushq	4952(%rsp)
				pushq	4952(%rsp)
				pushq	4952(%rsp)
				pushq	4952(%rsp)
				pushq	4952(%rsp)
				pushq	4952(%rsp)
				pushq	4952(%rsp)
				pushq	4952(%rsp)
				pushq	4952(%rsp)
				pushq	4952(%rsp)
				pushq	4952(%rsp)
				pushq	4952(%rsp)
				pushq	4952(%rsp)
				pushq	4952(%rsp)
				pushq	4952(%rsp)
				pushq	4952(%rsp)
				pushq	4952(%rsp)
				pushq	4952(%rsp)
				pushq	4952(%rsp)
				pushq	%rdx
				pushq	%rax
				call	_imp_printstring@PLT
		.LVL379:
		.LBE534:
		.LBE533:
 1968                 printstring("   Pformat ="); write(pformat, 1); newline
				addq	$256, %rsp
				movl	$1, %esi
				movl	FORMAT.6421(%rip), %edi
				call	_imp_writeint@PLT
		.LVL380:
		.LBB535:
				movabsq	$7886488382700789792, %rax
				movl	$1025537121, %edx
				movq	%rax, 4449(%rsp)
				movq	%rdx, 4457(%rsp)
				movb	$0, 4465(%rsp)
				movw	$0, 4466(%rsp)
				movl	$0, 4468(%rsp)
				leaq	4472(%rsp), %rdi
				movl	$29, %ecx
				movq	%rbp, %rax
				rep stosq
				movb	$12, 4448(%rsp)
				movq	4448(%rsp), %rax
				movq	4456(%rsp), %rdx
				movq	%rax, 2144(%rsp)
				movq	%rdx, 2152(%rsp)
				movdqa	4464(%rsp), %xmm1
				movaps	%xmm1, 2160(%rsp)
				movdqa	4480(%rsp), %xmm2
				movaps	%xmm2, 2176(%rsp)
				movdqa	4496(%rsp), %xmm3
				movaps	%xmm3, 2192(%rsp)
				movdqa	4512(%rsp), %xmm5
				movaps	%xmm5, 2208(%rsp)
				movdqa	4528(%rsp), %xmm7
				movaps	%xmm7, 2224(%rsp)
				movdqa	4544(%rsp), %xmm4
				movaps	%xmm4, 2240(%rsp)
				movdqa	4560(%rsp), %xmm6
				movaps	%xmm6, 2256(%rsp)
				movdqa	4576(%rsp), %xmm0
				movaps	%xmm0, 2272(%rsp)
				movdqa	4592(%rsp), %xmm1
				movaps	%xmm1, 2288(%rsp)
				movdqa	4608(%rsp), %xmm2
				movaps	%xmm2, 2304(%rsp)
				movq	4624(%rsp), %r13
				movq	4632(%rsp), %r14
				movq	%r13, 2320(%rsp)
				movq	%r14, 2328(%rsp)
				movq	4640(%rsp), %rcx
				movq	4648(%rsp), %rbx
				movq	%rcx, 2336(%rsp)
				movq	%rbx, 2344(%rsp)
				movq	4656(%rsp), %rsi
				movq	4664(%rsp), %rdi
				movq	%rsi, 2352(%rsp)
				movq	%rdi, 2360(%rsp)
				movq	4672(%rsp), %r9
				movq	4680(%rsp), %r10
				movq	%r9, 2368(%rsp)
				movq	%r10, 2376(%rsp)
				movq	4688(%rsp), %r11
				movq	4696(%rsp), %r12
				movq	%r11, 2384(%rsp)
				movq	%r12, 2392(%rsp)
		.LVL381:
				movb	$12, 2144(%rsp)
				movq	2144(%rsp), %rax
				movq	2152(%rsp), %rdx
				movq	%rax, 4448(%rsp)
				movq	%rdx, 4456(%rsp)
		.LBE535:
		.LBB536:
		.LBB537:
				pushq	%r12
				pushq	%r11
				pushq	%r10
				pushq	%r9
				pushq	%rdi
				pushq	%rsi
				pushq	%rbx
				pushq	%rcx
				pushq	%r14
				pushq	%r13
				pushq	4696(%rsp)
				pushq	4696(%rsp)
				pushq	4696(%rsp)
				pushq	4696(%rsp)
				pushq	4696(%rsp)
				pushq	4696(%rsp)
				pushq	4696(%rsp)
				pushq	4696(%rsp)
				pushq	4696(%rsp)
				pushq	4696(%rsp)
				pushq	4696(%rsp)
				pushq	4696(%rsp)
				pushq	4696(%rsp)
				pushq	4696(%rsp)
				pushq	4696(%rsp)
				pushq	4696(%rsp)
				pushq	4696(%rsp)
				pushq	4696(%rsp)
				pushq	4696(%rsp)
				pushq	4696(%rsp)
				pushq	%rdx
				pushq	%rax
				call	_imp_printstring@PLT
		.LVL382:
		.LBE537:
		.LBE536:
 1969                 !%signal 13,15
				addq	$256, %rsp
				movl	$1, %esi
				movl	PFORMAT.6451(%rip), %edi
				call	_imp_writeint@PLT
		.LVL383:
		.LBB538:
		.LBB539:
				call	_imp_newline@PLT
		.LVL384:
		.LBE539:
		.LBE538:
 1970             %finish
 1971
 1972             quote = 0 %and readsym %while sym # nl %and sym # ';'
 1973             %if k&error # 0 %start
				movl	SYM.6433(%rip), %eax
				movl	SYM.6433(%rip), %eax
 1974                 fault(k&255)
				cmpl	$59, %eax
				je	.L445
				cmpl	$10, %eax
				je	.L445
				cmpl	$10, %eax
				je	.L445
				cmpl	$59, %eax
				jne	.L446
		.L445:
				movzbl	8(%rsp), %edi
				movq	%r15, %r10
				call	FAULT.6666
		.LVL386:
		.LDL23:
		.LDL24:
 1975             %finish %else %start
				movl	$0, QUOTE.6435(%rip)
 1976                 %if prot err = nmin %then fault(14) %else fault(0)
				leaq	64(%rsp), %rbx
		.L446:
				movq	%rbx, %r10
				call	READSYM.6944
		.LVL385:
		.LDL21:
		.LDL22:
 1977             %finish
 1978             gg = 0;  ss = 0;  symtype = 0
				movl	$0, GG.6454(%rip)
 1979         %end;                                          ! of analyse
				movl	$0, SS.6463(%rip)
 1980
				movl	$0, SYMTYPE.6434(%rip)
		.LVL387:
		.L390:
 1981         %routine compile
				pushq	%r15
				pushq	%r14
				pushq	%r13
				pushq	%r12
				pushq	%rbp
				pushq	%rbx
				subq	$5928, %rsp
				movq	%r10, (%rsp)
				movq	%fs:40, %rax
				movq	%rax, 5912(%rsp)
				xorl	%eax, %eax
				leaq	5984(%rsp), %rax
				movq	%rax, 152(%rsp)
				movq	%r10, 112(%rsp)
 1982             %constinteger then = 4, else = 8, loop = 16
				leal	-180(%rbx), %eax
				cmpl	$20, %eax
				ja	.L436
		.LVL448:
		.L437:
				movl	_imp_current_line(%rip), %ebp
		.LVL466:
				testl	%ebp, %ebp
				movl	$1982, %eax
				cmove	%eax, %ebp
				movq	_imp_current_file(%rip), %rsi
				testq	%rsi, %rsi
				je	.L449
				leaq	3424(%rsp), %rdi
				call	_imp_c2istr@PLT
		.LVL467:
		.L450:
				pushq	$1830
				leaq	.LC2(%rip), %rax
				pushq	%rax
				pushq	3688(%rsp)
				pushq	3688(%rsp)
				pushq	3688(%rsp)
				pushq	3688(%rsp)
				pushq	3688(%rsp)
				pushq	3688(%rsp)
				pushq	3688(%rsp)
				pushq	3688(%rsp)
				pushq	3688(%rsp)
				pushq	3688(%rsp)
				pushq	3688(%rsp)
				pushq	3688(%rsp)
				pushq	3688(%rsp)
				pushq	3688(%rsp)
				pushq	3688(%rsp)
				pushq	3688(%rsp)
				pushq	3688(%rsp)
				pushq	3688(%rsp)
				pushq	3688(%rsp)
				pushq	3688(%rsp)
				pushq	3688(%rsp)
				pushq	3688(%rsp)
				pushq	3688(%rsp)
				pushq	3688(%rsp)
				pushq	3688(%rsp)
				pushq	3688(%rsp)
				pushq	3688(%rsp)
				pushq	3688(%rsp)
				pushq	3688(%rsp)
				pushq	3688(%rsp)
				pushq	3688(%rsp)
				pushq	3688(%rsp)
				movl	%ebx, %r9d
				leaq	.LC5(%rip), %r8
				movl	%ebx, %ecx
				movl	$3, %edx
				movl	$6, %esi
				movl	%ebp, %edi
				movl	$0, %eax
				call	_signal_eventf@PLT
		.LVL468:
				addq	$272, %rsp
				jmp	.L437
		.L449:
		.LVL469:
		.LBB542:
				movabsq	$8603403804667503988, %rax
				movabsq	$7579049594837889071, %rdx
				movq	%rax, 7265(%rsp)
				movq	%rdx, 7273(%rsp)
				movq	$28781, 7281(%rsp)
				movq	$0, 7289(%rsp)
				movb	$0, 7297(%rsp)
				movw	$0, 7298(%rsp)
				movl	$0, 7300(%rsp)
				leaq	7304(%rsp), %rdi
				movl	$27, %ecx
				movl	$0, %eax
				rep stosq
				movb	$18, 7264(%rsp)
				movq	7264(%rsp), %rax
				movq	7272(%rsp), %rdx
				movq	%rax, 2400(%rsp)
				movq	%rdx, 2408(%rsp)
				movdqa	7280(%rsp), %xmm5
				movaps	%xmm5, 2416(%rsp)
				movdqa	7296(%rsp), %xmm3
				movaps	%xmm3, 2432(%rsp)
				movdqa	7312(%rsp), %xmm1
				movaps	%xmm1, 2448(%rsp)
				movq	7328(%rsp), %r13
				movq	7336(%rsp), %r14
				movq	%r13, 2464(%rsp)
				movq	%r14, 2472(%rsp)
				movq	7344(%rsp), %r11
				movq	7352(%rsp), %r12
				movq	%r11, 2480(%rsp)
				movq	%r12, 2488(%rsp)
				movq	7360(%rsp), %r9
				movq	7368(%rsp), %r10
				movq	%r9, 2496(%rsp)
				movq	%r10, 2504(%rsp)
				movq	7376(%rsp), %rsi
				movq	7384(%rsp), %rdi
				movq	%rsi, 2512(%rsp)
				movq	%rdi, 2520(%rsp)
				movq	7392(%rsp), %rax
				movq	7400(%rsp), %rdx
				movq	%rax, 2528(%rsp)
				movq	%rdx, 2536(%rsp)
				movdqa	7408(%rsp), %xmm7
				movaps	%xmm7, 2544(%rsp)
				movdqa	7424(%rsp), %xmm9
				movaps	%xmm9, 2560(%rsp)
				movdqa	7440(%rsp), %xmm11
				movaps	%xmm11, 2576(%rsp)
				movdqa	7456(%rsp), %xmm13
				movaps	%xmm13, 2592(%rsp)
				movdqa	7472(%rsp), %xmm15
				movaps	%xmm15, 2608(%rsp)
				movdqa	7488(%rsp), %xmm0
				movaps	%xmm0, 2624(%rsp)
				movdqa	7504(%rsp), %xmm2
				movaps	%xmm2, 2640(%rsp)
		.LVL470:
		.LBE542:
				movb	$18, 2400(%rsp)
				movdqa	2400(%rsp), %xmm4
				movaps	%xmm4, 3424(%rsp)
				movaps	%xmm5, 3440(%rsp)
				movaps	%xmm3, 3456(%rsp)
				movaps	%xmm1, 3472(%rsp)
				movq	%r13, 3488(%rsp)
				movq	%r14, 3496(%rsp)
				movq	%r11, 3504(%rsp)
				movq	%r12, 3512(%rsp)
				movq	%r9, 3520(%rsp)
				movq	%r10, 3528(%rsp)
				movq	%rsi, 3536(%rsp)
				movq	%rdi, 3544(%rsp)
				movq	%rax, 3552(%rsp)
				movq	%rdx, 3560(%rsp)
				movaps	%xmm7, 3568(%rsp)
				movaps	%xmm9, 3584(%rsp)
				movaps	%xmm11, 3600(%rsp)
				movaps	%xmm13, 3616(%rsp)
				movaps	%xmm15, 3632(%rsp)
				movaps	%xmm0, 3648(%rsp)
				movaps	%xmm2, 3664(%rsp)
				jmp	.L450
		.LVL471:
		.L452:
 1983
				leal	-180(%rbx), %eax
				cltq
				leaq	ACT.6906(%rip), %rdx
				movq	(%rdx,%rax,8), %rax
				jmp	.L451
		.LVL449:
		.L420:
 1984             %switch c(0:actions), litop(1:12)
 1985
				movl	_imp_current_line(%rip), %ebp
				testl	%ebp, %ebp
				movl	$1985, %eax
				cmove	%eax, %ebp
				movq	_imp_current_file(%rip), %rsi
				testq	%rsi, %rsi
				je	.L495
				leaq	3680(%rsp), %rdi
				call	_imp_c2istr@PLT
		.LVL472:
		.L456:
				pushq	$1830
				leaq	.LC2(%rip), %rax
				pushq	%rax
				pushq	3944(%rsp)
				pushq	3944(%rsp)
				pushq	3944(%rsp)
				pushq	3944(%rsp)
				pushq	3944(%rsp)
				pushq	3944(%rsp)
				pushq	3944(%rsp)
				pushq	3944(%rsp)
				pushq	3944(%rsp)
				pushq	3944(%rsp)
				pushq	3944(%rsp)
				pushq	3944(%rsp)
				pushq	3944(%rsp)
				pushq	3944(%rsp)
				pushq	3944(%rsp)
				pushq	3944(%rsp)
				pushq	3944(%rsp)
				pushq	3944(%rsp)
				pushq	3944(%rsp)
				pushq	3944(%rsp)
				pushq	3944(%rsp)
				pushq	3944(%rsp)
				pushq	3944(%rsp)
				pushq	3944(%rsp)
				pushq	3944(%rsp)
				pushq	3944(%rsp)
				pushq	3944(%rsp)
				pushq	3944(%rsp)
				pushq	3944(%rsp)
				pushq	3944(%rsp)
				pushq	3944(%rsp)
				pushq	3944(%rsp)
				movl	%ebx, %r9d
				leaq	.LC6(%rip), %r8
				movl	%ebx, %ecx
				movl	$2, %edx
				movl	$8, %esi
				movl	%ebp, %edi
				movl	$0, %eax
				call	_signal_eventf@PLT
		.LVL473:
				addq	$272, %rsp
				jmp	.L435
		.L495:
		.LVL474:
		.LBB543:
				movabsq	$8603403804667503988, %rax
				movabsq	$7579049594837889071, %rdx
				movq	%rax, 7265(%rsp)
				movq	%rdx, 7273(%rsp)
				movq	$28781, 7281(%rsp)
				movq	$0, 7289(%rsp)
				movb	$0, 7297(%rsp)
				movw	$0, 7298(%rsp)
				movl	$0, 7300(%rsp)
				leaq	7304(%rsp), %rdi
				movl	$27, %ecx
				movl	$0, %eax
				rep stosq
				movb	$18, 7264(%rsp)
				movq	7264(%rsp), %rax
				movq	7272(%rsp), %rdx
				movq	%rax, 2656(%rsp)
				movq	%rdx, 2664(%rsp)
				movdqa	7280(%rsp), %xmm5
				movaps	%xmm5, 2672(%rsp)
				movdqa	7296(%rsp), %xmm3
				movaps	%xmm3, 2688(%rsp)
				movdqa	7312(%rsp), %xmm1
				movaps	%xmm1, 2704(%rsp)
				movq	7328(%rsp), %r13
				movq	7336(%rsp), %r14
				movq	%r13, 2720(%rsp)
				movq	%r14, 2728(%rsp)
				movq	7344(%rsp), %r11
				movq	7352(%rsp), %r12
				movq	%r11, 2736(%rsp)
				movq	%r12, 2744(%rsp)
				movq	7360(%rsp), %r9
				movq	7368(%rsp), %r10
				movq	%r9, 2752(%rsp)
				movq	%r10, 2760(%rsp)
				movq	7376(%rsp), %rsi
				movq	7384(%rsp), %rdi
				movq	%rsi, 2768(%rsp)
				movq	%rdi, 2776(%rsp)
				movq	7392(%rsp), %rax
				movq	7400(%rsp), %rdx
				movq	%rax, 2784(%rsp)
				movq	%rdx, 2792(%rsp)
				movdqa	7408(%rsp), %xmm7
				movaps	%xmm7, 2800(%rsp)
				movdqa	7424(%rsp), %xmm9
				movaps	%xmm9, 2816(%rsp)
				movdqa	7440(%rsp), %xmm11
				movaps	%xmm11, 2832(%rsp)
				movdqa	7456(%rsp), %xmm13
				movaps	%xmm13, 2848(%rsp)
				movdqa	7472(%rsp), %xmm15
				movaps	%xmm15, 2864(%rsp)
				movdqa	7488(%rsp), %xmm0
				movaps	%xmm0, 2880(%rsp)
				movdqa	7504(%rsp), %xmm2
				movaps	%xmm2, 2896(%rsp)
		.LVL475:
		.LBE543:
				movb	$18, 2656(%rsp)
				movdqa	2656(%rsp), %xmm6
				movaps	%xmm6, 3680(%rsp)
				movaps	%xmm5, 3696(%rsp)
				movaps	%xmm3, 3712(%rsp)
				movaps	%xmm1, 3728(%rsp)
				movq	%r13, 3744(%rsp)
				movq	%r14, 3752(%rsp)
				movq	%r11, 3760(%rsp)
				movq	%r12, 3768(%rsp)
				movq	%r9, 3776(%rsp)
				movq	%r10, 3784(%rsp)
				movq	%rsi, 3792(%rsp)
				movq	%rdi, 3800(%rsp)
				movq	%rax, 3808(%rsp)
				movq	%rdx, 3816(%rsp)
				movaps	%xmm7, 3824(%rsp)
				movaps	%xmm9, 3840(%rsp)
				movaps	%xmm11, 3856(%rsp)
				movaps	%xmm13, 3872(%rsp)
				movaps	%xmm15, 3888(%rsp)
				movaps	%xmm0, 3904(%rsp)
				movaps	%xmm2, 3920(%rsp)
				jmp	.L456
		.L459:
		.LVL476:
		.LBB544:
 1986             %constbyteintegerarray operator(1:14) = '[', ']', 'X', '/', '&', '!', '%', '+', '-', '*', 'Q', 'x', '.', 'v'
				movb	$91, 5874(%rsp)
				movb	$93, 5875(%rsp)
				movb	$88, 5876(%rsp)
				movb	$47, 5877(%rsp)
				movb	$38, 5878(%rsp)
				movb	$33, 5879(%rsp)
				movb	$37, 5880(%rsp)
				movb	$43, 5881(%rsp)
				movb	$45, 5882(%rsp)
				movb	$42, 5883(%rsp)
				movb	$81, 5884(%rsp)
				movb	$120, 5885(%rsp)
				movb	$46, 5886(%rsp)
				movb	$118, 5887(%rsp)
 1987             %constbyteintegerarray cc(0 : 7) = '#','=',')','<','(','>', 'k','t'
				movb	$35, 5866(%rsp)
				movb	$61, 5867(%rsp)
				movb	$41, 5868(%rsp)
				movb	$60, 5869(%rsp)
				movb	$40, 5870(%rsp)
				movb	$62, 5871(%rsp)
				movb	$107, 5872(%rsp)
				movb	$116, 5873(%rsp)
 1988             %constbyteintegerarray anyform(0:15) = 1,0,1,1,1,1,1,1,0,1,1,0,1,1,1,1
				cmpl	$15, 28(%rsp)
				jbe	.L457
				movl	_imp_current_line(%rip), %ebp
				testl	%ebp, %ebp
				movl	$1988, %eax
				cmove	%eax, %ebp
				movq	_imp_current_file(%rip), %rsi
				testq	%rsi, %rsi
				je	.L459
				leaq	3936(%rsp), %rdi
				call	_imp_c2istr@PLT
		.LVL443:
		.L460:
				pushq	$1828
				leaq	.LC2(%rip), %rax
				pushq	%rax
				pushq	4200(%rsp)
				pushq	4200(%rsp)
				pushq	4200(%rsp)
				pushq	4200(%rsp)
				pushq	4200(%rsp)
				pushq	4200(%rsp)
				pushq	4200(%rsp)
				pushq	4200(%rsp)
				pushq	4200(%rsp)
				pushq	4200(%rsp)
				pushq	4200(%rsp)
				pushq	4200(%rsp)
				pushq	4200(%rsp)
				pushq	4200(%rsp)
				pushq	4200(%rsp)
				pushq	4200(%rsp)
				pushq	4200(%rsp)
				pushq	4200(%rsp)
				pushq	4200(%rsp)
				pushq	4200(%rsp)
				pushq	4200(%rsp)
				pushq	4200(%rsp)
				pushq	4200(%rsp)
				pushq	4200(%rsp)
				pushq	4200(%rsp)
				pushq	4200(%rsp)
				pushq	4200(%rsp)
				pushq	4200(%rsp)
				pushq	4200(%rsp)
				pushq	4200(%rsp)
				pushq	4200(%rsp)
				pushq	4200(%rsp)
				movl	300(%rsp), %ecx
				movl	%ecx, %r9d
				leaq	.LC7(%rip), %r8
				movl	$3, %edx
				movl	$6, %esi
				movl	%ebp, %edi
				movl	$0, %eax
				call	_signal_eventf@PLT
		.LVL444:
				addq	$272, %rsp
		.L457:
				movabsq	$8603403804667503988, %rax
				movabsq	$7579049594837889071, %rdx
				movq	%rax, 7265(%rsp)
				movq	%rdx, 7273(%rsp)
				movq	$28781, 7281(%rsp)
				movq	$0, 7289(%rsp)
				movb	$0, 7297(%rsp)
				movw	$0, 7298(%rsp)
				movl	$0, 7300(%rsp)
				leaq	7304(%rsp), %rdi
				movl	$27, %ecx
				movl	$0, %eax
				rep stosq
				movb	$18, 7264(%rsp)
				movq	7264(%rsp), %rax
				movq	7272(%rsp), %rdx
				movq	%rax, 2912(%rsp)
				movq	%rdx, 2920(%rsp)
				movdqa	7280(%rsp), %xmm5
				movaps	%xmm5, 2928(%rsp)
				movdqa	7296(%rsp), %xmm3
				movaps	%xmm3, 2944(%rsp)
				movdqa	7312(%rsp), %xmm1
				movaps	%xmm1, 2960(%rsp)
				movq	7328(%rsp), %r13
				movq	7336(%rsp), %r14
				movq	%r13, 2976(%rsp)
				movq	%r14, 2984(%rsp)
				movq	7344(%rsp), %r11
				movq	7352(%rsp), %r12
				movq	%r11, 2992(%rsp)
				movq	%r12, 3000(%rsp)
				movq	7360(%rsp), %r9
				movq	7368(%rsp), %r10
				movq	%r9, 3008(%rsp)
				movq	%r10, 3016(%rsp)
				movq	7376(%rsp), %rsi
				movq	7384(%rsp), %rdi
				movq	%rsi, 3024(%rsp)
				movq	%rdi, 3032(%rsp)
				movq	7392(%rsp), %rax
				movq	7400(%rsp), %rdx
				movq	%rax, 3040(%rsp)
				movq	%rdx, 3048(%rsp)
				movdqa	7408(%rsp), %xmm7
				movaps	%xmm7, 3056(%rsp)
				movdqa	7424(%rsp), %xmm9
				movaps	%xmm9, 3072(%rsp)
				movdqa	7440(%rsp), %xmm11
				movaps	%xmm11, 3088(%rsp)
				movdqa	7456(%rsp), %xmm13
				movaps	%xmm13, 3104(%rsp)
				movdqa	7472(%rsp), %xmm15
				movaps	%xmm15, 3120(%rsp)
				movdqa	7488(%rsp), %xmm0
				movaps	%xmm0, 3136(%rsp)
				movdqa	7504(%rsp), %xmm2
				movaps	%xmm2, 3152(%rsp)
		.LVL477:
		.LBE544:
				movb	$18, 2912(%rsp)
				movdqa	2912(%rsp), %xmm4
				movaps	%xmm4, 3936(%rsp)
				movaps	%xmm5, 3952(%rsp)
				movaps	%xmm3, 3968(%rsp)
				movaps	%xmm1, 3984(%rsp)
				movq	%r13, 4000(%rsp)
				movq	%r14, 4008(%rsp)
				movq	%r11, 4016(%rsp)
				movq	%r12, 4024(%rsp)
				movq	%r9, 4032(%rsp)
				movq	%r10, 4040(%rsp)
				movq	%rsi, 4048(%rsp)
				movq	%rdi, 4056(%rsp)
				movq	%rax, 4064(%rsp)
				movq	%rdx, 4072(%rsp)
				movaps	%xmm7, 4080(%rsp)
				movaps	%xmm9, 4096(%rsp)
				movaps	%xmm11, 4112(%rsp)
				movaps	%xmm13, 4128(%rsp)
				movaps	%xmm15, 4144(%rsp)
				movaps	%xmm0, 4160(%rsp)
				movaps	%xmm2, 4176(%rsp)
				jmp	.L460
		.L461:
				movb	$1, 5888(%rsp)
				movb	$0, 5889(%rsp)
				movb	$1, 5890(%rsp)
				movb	$1, 5891(%rsp)
				movb	$1, 5892(%rsp)
				movb	$1, 5893(%rsp)
				movb	$1, 5894(%rsp)
				movb	$1, 5895(%rsp)
				movb	$0, 5896(%rsp)
				movb	$1, 5897(%rsp)
				movb	$1, 5898(%rsp)
				movb	$0, 5899(%rsp)
				movb	$1, 5900(%rsp)
				movb	$1, 5901(%rsp)
				movb	$1, 5902(%rsp)
				movb	$1, 5903(%rsp)
 1989
				movslq	28(%rsp), %rax
				leaq	PACTION.6911(%rip), %rdx
				movq	(%rdx,%rax,8), %rax
		.LVL445:
		.L451:
				jmp	*%rax
		.LVL446:
		.L422:
 1990             %constintegerarray decmap(0:15) = %c
				movl	$1, 160(%rsp)
				movl	$2, 164(%rsp)
				movl	$4107, 168(%rsp)
				movl	$4109, 172(%rsp)
				movl	$5132, 176(%rsp)
				movl	$5134, 180(%rsp)
				movl	$3, 184(%rsp)
				movl	$4, 188(%rsp)
				movl	$4103, 192(%rsp)
				movl	$4104, 196(%rsp)
				movl	$4105, 200(%rsp)
				movl	$4106, 204(%rsp)
				movl	$6, 208(%rsp)
				movl	$0, 212(%rsp)
				movl	$0, 216(%rsp)
				movl	$0, 220(%rsp)
 1991             1,             2,
				movl	_imp_current_line(%rip), %ebx
		.LVL478:
				testl	%ebx, %ebx
				movl	$1991, %eax
				cmove	%eax, %ebx
				movq	_imp_current_file(%rip), %rsi
				testq	%rsi, %rsi
				je	.L463
				leaq	4192(%rsp), %rdi
				call	_imp_c2istr@PLT
		.LVL479:
		.L464:
				pushq	$1828
				leaq	.LC2(%rip), %rax
				pushq	%rax
				pushq	4456(%rsp)
				pushq	4456(%rsp)
				pushq	4456(%rsp)
				pushq	4456(%rsp)
				pushq	4456(%rsp)
				pushq	4456(%rsp)
				pushq	4456(%rsp)
				pushq	4456(%rsp)
				pushq	4456(%rsp)
				pushq	4456(%rsp)
				pushq	4456(%rsp)
				pushq	4456(%rsp)
				pushq	4456(%rsp)
				pushq	4456(%rsp)
				pushq	4456(%rsp)
				pushq	4456(%rsp)
				pushq	4456(%rsp)
				pushq	4456(%rsp)
				pushq	4456(%rsp)
				pushq	4456(%rsp)
				pushq	4456(%rsp)
				pushq	4456(%rsp)
				pushq	4456(%rsp)
				pushq	4456(%rsp)
				pushq	4456(%rsp)
				pushq	4456(%rsp)
				pushq	4456(%rsp)
				pushq	4456(%rsp)
				pushq	4456(%rsp)
				pushq	4456(%rsp)
				pushq	4456(%rsp)
				pushq	4456(%rsp)
				movl	300(%rsp), %ecx
				movl	%ecx, %r9d
				leaq	.LC8(%rip), %r8
				movl	$2, %edx
				movl	$8, %esi
				movl	%ebx, %edi
				movl	$0, %eax
				call	_signal_eventf@PLT
		.LVL480:
				addq	$272, %rsp
				jmp	.L390
		.L463:
		.LVL481:
		.LBB545:
				movabsq	$8603403804667503988, %rax
				movabsq	$7579049594837889071, %rdx
				movq	%rax, 7265(%rsp)
				movq	%rdx, 7273(%rsp)
				movq	$28781, 7281(%rsp)
				movq	$0, 7289(%rsp)
				movb	$0, 7297(%rsp)
				movw	$0, 7298(%rsp)
				movl	$0, 7300(%rsp)
				leaq	7304(%rsp), %rdi
				movl	$27, %ecx
				movl	$0, %eax
				rep stosq
				movb	$18, 7264(%rsp)
				movq	7264(%rsp), %rax
				movq	7272(%rsp), %rdx
				movq	%rax, 3168(%rsp)
				movq	%rdx, 3176(%rsp)
				movdqa	7280(%rsp), %xmm7
				movaps	%xmm7, 3184(%rsp)
				movdqa	7296(%rsp), %xmm5
				movaps	%xmm5, 3200(%rsp)
				movdqa	7312(%rsp), %xmm3
				movaps	%xmm3, 3216(%rsp)
				movdqa	7328(%rsp), %xmm1
				movaps	%xmm1, 3232(%rsp)
				movq	7344(%rsp), %r13
				movq	7352(%rsp), %r14
				movq	%r13, 3248(%rsp)
				movq	%r14, 3256(%rsp)
				movq	7360(%rsp), %r11
				movq	7368(%rsp), %r12
				movq	%r11, 3264(%rsp)
				movq	%r12, 3272(%rsp)
				movq	7376(%rsp), %r9
				movq	7384(%rsp), %r10
				movq	%r9, 3280(%rsp)
				movq	%r10, 3288(%rsp)
				movq	7392(%rsp), %rsi
				movq	7400(%rsp), %rdi
				movq	%rsi, 3296(%rsp)
				movq	%rdi, 3304(%rsp)
				movq	7408(%rsp), %rax
				movq	7416(%rsp), %rdx
				movq	%rax, 3312(%rsp)
				movq	%rdx, 3320(%rsp)
				movdqa	7424(%rsp), %xmm9
				movaps	%xmm9, 3328(%rsp)
				movdqa	7440(%rsp), %xmm11
				movaps	%xmm11, 3344(%rsp)
				movdqa	7456(%rsp), %xmm13
				movaps	%xmm13, 3360(%rsp)
				movdqa	7472(%rsp), %xmm15
				movaps	%xmm15, 3376(%rsp)
				movdqa	7488(%rsp), %xmm0
				movaps	%xmm0, 3392(%rsp)
				movdqa	7504(%rsp), %xmm2
				movaps	%xmm2, 3408(%rsp)
		.LVL482:
		.LBE545:
				movb	$18, 3168(%rsp)
				movdqa	3168(%rsp), %xmm6
				movaps	%xmm6, 4192(%rsp)
				movaps	%xmm7, 4208(%rsp)
				movaps	%xmm5, 4224(%rsp)
				movaps	%xmm3, 4240(%rsp)
				movaps	%xmm1, 4256(%rsp)
				movq	%r13, 4272(%rsp)
				movq	%r14, 4280(%rsp)
				movq	%r11, 4288(%rsp)
				movq	%r12, 4296(%rsp)
				movq	%r9, 4304(%rsp)
				movq	%r10, 4312(%rsp)
				movq	%rsi, 4320(%rsp)
				movq	%rdi, 4328(%rsp)
				movq	%rax, 4336(%rsp)
				movq	%rdx, 4344(%rsp)
				movaps	%xmm9, 4352(%rsp)
				movaps	%xmm11, 4368(%rsp)
				movaps	%xmm13, 4384(%rsp)
				movaps	%xmm15, 4400(%rsp)
				movaps	%xmm0, 4416(%rsp)
				movaps	%xmm2, 4432(%rsp)
				jmp	.L464
		.LVL483:
		.L410:
 1992             16_100B,       16_100D,       16_140C,      16_140E,
				movq	7784(%rsp), %rax
				xorq	%fs:40, %rax
				jne	.L486
				addq	$7800, %rsp
				popq	%rbx
				popq	%rbp
				popq	%r12
				popq	%r13
				popq	%r14
				popq	%r15
				ret
		.LVL388:
		.L485:
				call	__stack_chk_fail@PLT
		.LVL486:
		.LFE202:
		POPLABEL.7661:
		.LFB225:
 1993             3,             4,
 1994             16_1007,       16_1008,       16_1009,      16_100A,
 1995             6,             0,             0,            0
 1996             %ownbyteintegerarray cnest(0:15)
 1997             %integer lmode, clab, dupid
 1998             %integer resln
 1999             %owninteger last def = 0
 2000             %owninteger lb, ub
 2001             %integer cp, ord
 2002             %integer next, link, j, k, n, done
 2003             %integer class
 2004             %integer lit2, defs, decs, cident
 2005             %integer pending;  %ownintegerarray pstack(1:40)
 2006             %ownstring(8) name = ""
 2007             %owninteger count = 0
 2008
 2009             %routine def lab(%integer l)
		.LVL10:
				pushq	%rbx
				movl	%edi, %esi
				movq	%r10, %rbx
 2010                 op(':', l)
				movq	(%r10), %rax
				movq	8(%rax), %r10
				movl	$58, %edi
		.LVL11:
				call	OP.6530
		.LVL12:
 2011                 access = 1
				movq	(%rbx), %rax
				movl	$1, 36(%rax)
 2012             %end
 2013
				popq	%rbx
				ret
		.LFE214:
		SETSUBS.7584:
		.LFB216:
 2014             %routine get next
				pushq	%r14
				pushq	%r13
				pushq	%r12
				pushq	%rbx
				subq	$1048, %rsp
				movq	%fs:40, %rax
				movq	%rax, 1032(%rsp)
				xorl	%eax, %eax
				movl	X.6415(%rip), %ecx
				movl	$0, %edx
				movl	$0, %r9d
				movl	$1, %r8d
		.L314:
 2015                 %record(arfm)%name p
 2016 gn:             %if next = 0 %start;                   ! end of phrase
 2017                     class = 0 %and %return %if link = 0; ! end of statement
				cmpl	$0, 36(%r10)
				jne	.L315
				movl	32(%r10), %eax
				testl	%eax, %eax
				je	.L332
		.L316:
		.LVL263:
 2018                     p == ar(link)
				movq	(%r10), %rdx
				cltq
		.LVL264:
				salq	$5, %rax
				addq	8(%rdx), %rax
				movl	$0, 28(%r10)
 2019                     next = p_link
				movl	-24(%rax), %edx
				movl	%edx, 36(%r10)
		.LVL265:
				jmp	.L313
		.L334:
				movl	%ecx, X.6415(%rip)
				jmp	.L317
		.LVL268:
		.L333:
				movl	%eax, X.6415(%rip)
				jmp	.L320
		.LVL269:
		.L324:
 2020                     link = p_sub
				movl	-28(%rax), %eax
				movl	%eax, 32(%r10)
		.L315:
 2021                 %finish
 2022                 %cycle
 2023                     p == ar(next)
				movl	36(%r10), %edx
				leal	-1(%rdx), %ecx
				movq	(%r10), %rax
				movq	8(%rax), %rdi
		.LVL266:
				movslq	%edx, %rdx
				salq	$5, %rdx
				addq	%rdi, %rdx
				leal	-1(%rax), %ecx
				movq	(%r10), %rdx
				movq	8(%rdx), %rdi
		.LVL270:
				movslq	%eax, %rdx
				salq	$5, %rdx
				addq	%rdi, %rdx
 2024                     x = p_sub
				movl	-28(%rdx), %eax
				movl	-28(%rdx), %eax
 2025                     class = p_class
				movl	-32(%rdx), %edx
				movl	%edx, 28(%r10)
				movl	-32(%rdx), %edx
				movl	%edx, 28(%r10)
 2026                     %exit %if class < actions;         ! an atom
				cmpl	$179, %edx
				jle	.L333
				cmpl	$179, %edx
				jle	.L335
		.L323:
 2027                     %if x = 0 %start;                  ! null phrase
				testl	%eax, %eax
				jne	.L321
		.LVL267:
		.L322:
				testl	%eax, %eax
				je	.L322
		.LVL271:
		.L321:
				movslq	%ecx, %rcx
				salq	$5, %rcx
		.LVL272:
				addq	%rcx, %rdi
		.LVL273:
 2028                         next = p_link;  ->gn
				movslq	%ecx, %rcx
				salq	$5, %rcx
				movl	8(%rdi,%rcx), %eax
				movl	%eax, 36(%r10)
				movl	%r9d, %ecx
				movl	%r8d, %edx
 2029                     %finish
				jmp	.L314
		.L332:
				testb	%dl, %dl
				jne	.L334
		.L317:
 2030                     %if p_link # 0 %start;             ! follow a phrase
				cmpl	$0, 8(%rdi)
				je	.L324
 2031                         p_sub = link;  link = next
				movl	32(%r10), %edx
				movl	%edx, 4(%rdi)
 2032                     %finish
				movl	36(%r10), %edx
				movl	%edx, 32(%r10)
				jmp	.L324
		.LVL274:
		.L335:
				movl	%eax, X.6415(%rip)
		.LVL275:
		.L320:
 2033                     next = x
				movl	%eax, 36(%r10)
 2034                 %repeat
 2035                 next = p_link
				movslq	%ecx, %rcx
				salq	$5, %rcx
				movl	8(%rdi,%rcx), %eax
				movl	%eax, 36(%r10)
 2036                 %if diag&2 # 0 %start
 2037                     spaces(8-length(name)) %unless length(name) = 0
				movzbl	NAME.7555(%rip), %eax
				testb	%al, %al
				jne	.L336
		.L325:
 2038                     name = text(class)
				movzbl	%al, %eax
		.LVL282:
				movl	$8, %edi
				subl	%eax, %edi
		.LVL283:
		.LBB345:
		.LBB346:
				call	_imp_spaces@PLT
		.LVL284:
				jmp	.L325
		.L326:
		.LBE346:
		.LBE345:
 2039                     write(x, 2)
				movl	$2, %esi
				movl	X.6415(%rip), %edi
				call	_imp_writeint@PLT
		.LVL277:
		.LBB339:
		.LBB340:
				call	_imp_space@PLT
		.LVL278:
				movdqa	256(%rsp), %xmm0
				movaps	%xmm0, 768(%rsp)
				movdqa	272(%rsp), %xmm1
				movaps	%xmm1, 784(%rsp)
				movdqa	288(%rsp), %xmm2
				movaps	%xmm2, 800(%rsp)
				movdqa	304(%rsp), %xmm3
				movaps	%xmm3, 816(%rsp)
				movdqa	320(%rsp), %xmm4
				movaps	%xmm4, 832(%rsp)
				movdqa	336(%rsp), %xmm5
				movaps	%xmm5, 848(%rsp)
				movdqa	352(%rsp), %xmm6
				movaps	%xmm6, 864(%rsp)
				movdqa	368(%rsp), %xmm7
				movaps	%xmm7, 880(%rsp)
				movdqa	384(%rsp), %xmm0
				movaps	%xmm0, 896(%rsp)
				movdqa	400(%rsp), %xmm1
				movaps	%xmm1, 912(%rsp)
				movq	416(%rsp), %r13
				movq	424(%rsp), %r14
				movq	%r13, 928(%rsp)
				movq	%r14, 936(%rsp)
				movq	432(%rsp), %rax
				movq	440(%rsp), %rdx
				movq	%rax, 944(%rsp)
				movq	%rdx, 952(%rsp)
				movq	448(%rsp), %rsi
				movq	456(%rsp), %rdi
				movq	%rsi, 960(%rsp)
				movq	%rdi, 968(%rsp)
				movq	464(%rsp), %r9
				movq	472(%rsp), %r10
				movq	%r9, 976(%rsp)
				movq	%r10, 984(%rsp)
				movq	480(%rsp), %rcx
				movq	488(%rsp), %rbx
				movq	%rcx, 992(%rsp)
				movq	%rbx, 1000(%rsp)
				movq	496(%rsp), %r11
				movq	504(%rsp), %r12
				movq	%r11, 1008(%rsp)
				movq	%r12, 1016(%rsp)
		.LBE340:
		.LBE339:
		.LBB341:
		.LBB342:
				pushq	%r12
				pushq	%r11
				pushq	%rbx
				pushq	%rcx
				pushq	%r10
				pushq	%r9
				pushq	%rdi
				pushq	%rsi
				pushq	%rdx
				pushq	%rax
				pushq	%r14
				pushq	%r13
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				pushq	504(%rsp)
				call	_imp_printstring@PLT
		.LVL279:
		.LBE342:
		.LBE341:
		.LBB343:
		.LBB344:
				addq	$256, %rsp
				call	_imp_space@PLT
		.LVL280:
		.LBE344:
		.LBE343:
 2040                     space
				movq	%rsp, %rsi
				movl	$8, %edx
				leaq	NAME.7555(%rip), %rdi
				call	_imp_strncpy@PLT
		.LVL276:
 2041                     printstring(name)
 2042                     space
 2043                     count = count-1
				movl	COUNT.7556(%rip), %eax
				subl	$1, %eax
				movl	%eax, COUNT.7556(%rip)
		.L318:
		.L327:
		.L313:
 2044                     %if count <= 0 %start
				testl	%eax, %eax
				jle	.L326
 2045                         count = 5
				movl	$5, COUNT.7556(%rip)
		.LVL285:
 2046                         name = ""
 2047                         newline
 2048                     %finish
				leaq	512(%rsp), %rsi
				movl	$8, %edx
				leaq	NAME.7555(%rip), %rdi
				call	_imp_strncpy@PLT
		.LVL286:
		.LBB347:
		.LBB348:
				call	_imp_newline@PLT
		.LVL287:
				jmp	.L313
		.L337:
		.LBE348:
		.LBE347:
 2049                 %finish
 2050             %end
 2051
				movq	1032(%rsp), %rax
				xorq	%fs:40, %rax
				jne	.L337
				addq	$1048, %rsp
				popq	%rbx
				popq	%r12
				popq	%r13
				popq	%r14
				ret
		.L336:
		.LVL281:
				call	__stack_chk_fail@PLT
		.LVL288:
		.LFE215:
				.section	.rodata.str1.8
				.align 8
		.LC4:
				.string	"switch jump to undefined label FM(%d): at %s line %d"
		FAULT.6666:
		.LFB196:
 2052             %routine set subs(%integer n)
		.LVL13:
 2053                 !update the app field in n array descriptors
 2054                 %integer p
 2055                 p = tmax
				movq	(%r10), %rax
				movl	64(%rax), %edx
		.LVL14:
 2056                 %while n > 0 %cycle
 2057                     !%signal 15,15 %if p < tbase
				testl	%edi, %edi
				jle	.L13
				cmpl	%esi, %edx
				jne	.L15
		.L14:
		.LVL17:
		.L13:
 2058                     tag(p)_app = dimension
				movl	DIMENSION.6482(%rip), %r8d
				movl	%edx, %esi
				subl	%edi, %esi
		.LVL15:
		.L15:
				movq	(%r10), %rcx
				movslq	%edx, %rax
				leaq	(%rax,%rax,2), %rax
				salq	$3, %rax
				addq	8(%rcx), %rax
				movl	%r8d, 49044(%rax)
 2059                     p = p-1;  n = n-1
				subl	$1, %edx
		.LVL16:
		.LDL1:
 2060                 %repeat
 2061             %end
 2062
				rep ret
		.LFE216:
		POPLIT.7651:
		.LFB223:
 2063             %routine set bp
				pushq	%rbx
				movq	%r10, %rbx
 2064                 !define a constant bound pair from the last stacked constants
 2065                 pending = pending-2
				movl	24(%r10), %eax
				leal	-2(%rax), %edx
				movl	%edx, 24(%r10)
 2066                 lb = pstack(pending+1);  ub = pstack(pending+2)
				leaq	PSTACK.7554(%rip), %rcx
				movslq	%edx, %rdx
				movl	(%rcx,%rdx,4), %edx
				movl	%edx, LB.7538(%rip)
 2067                 %if ub-lb+1 < 0 %start
				subl	$1, %eax
				cltq
				movl	(%rcx,%rax,4), %eax
				movl	%eax, UB.7539(%rip)
				subl	%edx, %eax
				addl	$1, %eax
				js	.L507
		.L504:
 2068                     pos1 = 0;  next = link;  fault(11)
				movl	$0, POS1.6479(%rip)
 2069                     ub = lb
				movl	32(%r10), %eax
				movl	%eax, 36(%r10)
				movl	LB.7538(%rip), %eax
				movl	%eax, UB.7539(%rip)
				jmp	.L504
		.LFE217:
		DEFSLAB.7629:
		.LFB220:
 2070                 %finish
				movq	(%r10), %r10
				movl	$11, %edi
				call	FAULT.6666
		.LVL493:
 2071                 set const(lb);  set const(ub)
				movq	(%rbx), %rax
				movq	8(%rax), %r10
				movl	LB.7538(%rip), %edi
				call	SETCONST.6533
		.LVL490:
 2072                 add char( 'b' ) %unless class = 146
				movq	(%rbx), %rax
				movq	8(%rax), %r10
				movl	UB.7539(%rip), %edi
				call	SETCONST.6533
		.LVL491:
				cmpl	$146, 28(%rbx)
				je	.L503
 2073             %end
				movq	(%rbx), %rax
				movq	8(%rax), %r10
				movl	$98, %edi
				call	ADDCHAR.6526
		.LVL492:
		.L505:
		.L503:
 2074
				popq	%rbx
				ret
		.L507:
 2075             %routine compile end(%integer type)
 2076                 ! type = 0:eof, 1:eop, 2:end
 2077                 %if access # 0 %start
				movq	112(%rsp), %r10
				cmpl	$0, 36(%r10)
				jne	.L705
		.L708:
 2078                     open = 0
				movl	$0, 32(%r10)
 2079                     fault(19) %if block form > proc;   ! can reach end
				cmpl	$7, 48(%r10)
				jle	.L708
 2080                 %finish
				movl	$19, %edi
				call	FAULT.6666
		.LVL699:
				jmp	.L708
		.L905:
 2081
 2082                 %while dict(dmin) >= 0 %cycle;         ! finishes & repeats
 2083                     fault(17+dict(dmin)&1)
				movq	112(%rsp), %r10
				movq	8(%r10), %rdx
				movl	52(%r10), %eax
				subl	$1, %eax
				cltq
				movl	25044(%rdx,%rax,4), %eax
				testl	%eax, %eax
				js	.L706
		.L707:
				andl	$1, %eax
				leal	17(%rax), %edi
				call	FAULT.6666
		.LVL691:
				movq	8(%r10), %rdx
				cltq
				movl	25044(%rdx,%rax,4), %eax
				testl	%eax, %eax
				jns	.L707
		.L706:
 2084                     dmin = dmin+1
				movq	112(%rsp), %r10
				movl	52(%r10), %eax
				leal	1(%rax), %edx
				movl	%edx, 52(%r10)
 2085                 %repeat
 2086                 !{delete names(0)}
 2087                 add char( ';' )
				movq	%rdx, %r10
				movl	$59, %edi
				call	ADDCHAR.6526
		.LVL692:
 2088                 add char( ';' ) %if type = 1;          ! endofprogram
				cmpl	$1, %ebx
				je	.L905
		.L709:
 2089
				movq	112(%rsp), %rax
				movq	8(%rax), %r10
				movl	$59, %edi
				call	ADDCHAR.6526
		.LVL700:
				jmp	.L709
		.L906:
 2090                 bflags = bflags!open;                  ! show if it returns
				movq	112(%rsp), %rdx
				movq	(%rdx), %rax
				movl	32(%rdx), %edx
				orl	%edx, (%rax)
 2091
 2092                 def lab(0) %if block tag # 0 %and level # 1; ! for jump around
				movq	112(%rsp), %rax
				cmpl	$0, 28(%rax)
				je	.L710
 2093                 %if type # 2 %start;                   ! eop, eof
				cmpl	$1, 60(%rax)
				je	.L711
				cmpl	$2, %ebx
				je	.L712
		.L859:
				cmpl	$2, %ebx
				jne	.L859
				jmp	.L715
		.LVL893:
		.L894:
		.LBE618:
		.LBE646:
				call	__stack_chk_fail@PLT
		.LVL894:
		.LFE213:
		COMPILEBLOCK.6640:
		.LFB195:
 2094                     fault(16) %if level # type;        ! end missing
				leaq	112(%rsp), %r10
				movl	$0, %edi
				call	DEFLAB.7558
		.LVL693:
		.L710:
				movq	112(%rsp), %r10
				cmpl	60(%r10), %ebx
				jne	.L906
		.L713:
		.L714:
		.L715:
 2095                 %finish %else %start
				movl	$16, %edi
				call	FAULT.6666
		.LVL701:
				jmp	.L715
		.L712:
 2096                     %if level = 0 %start
				movq	112(%rsp), %r10
				cmpl	$0, 60(%r10)
				jne	.L715
 2097                         fault(15);                     ! spurious end
				movl	$15, %edi
				call	FAULT.6666
		.LVL702:
				jmp	.L715
		.LVL703:
		.L716:
		.LDL43:
		.LDL44:
		.LDL45:
		.LBE617:
		.LBE623:
 2098                     %finish
 2099                 %finish
 2100
 2101                 end mark = 11;               !******Mouses specific******
				movl	$11, ENDMARK.6436(%rip)
				jmp	.L557
		.LVL694:
		.L904:
		.LBE616:
		.LBE615:
 2102             %end
 2103
 2104             %routine def(%integer p)
		.LVL542:
				pushq	%r15
				pushq	%r14
				pushq	%r13
				pushq	%r12
				pushq	%rbp
				pushq	%rbx
				subq	$24, %rsp
				movl	%edi, %r12d
				movq	%r10, %rbx
 2105                 !dump a descriptor
 2106                 %integer t, f, type
 2107                 %record(tagfm)%name v
 2108                 flush buffer( 1 );                     ! flush if bp > 0
				movq	(%r10), %rax
				movq	8(%rax), %r10
				movl	$1, %edi
		.LVL543:
				call	FLUSHBUFFER.6513
		.LVL544:
 2109                 defs = defs+1
				addl	$1, 20(%rbx)
 2110                 v == tag(p)
				movq	(%rbx), %rdx
				movq	8(%rdx), %r13
		.LVL545:
 2111                 t = 0
				movl	$0, %esi
 2112                 %unless v_index < 0 %start;            ! no index for subnames
				movslq	%r12d, %rax
				leaq	(%rax,%rax,2), %rax
				movl	49056(%r13,%rax,8), %eax
				testl	%eax, %eax
				js	.L539
 2113                     id = id+1 %and v_index = id %if v_index = 0
				testl	%eax, %eax
				jne	.L540
 2114                     last def = v_index
				addl	$1, 56(%rdx)
				movslq	%r12d, %rax
				leaq	(%rax,%rax,2), %rax
				movl	49056(%r13,%rax,8), %esi
		.LVL546:
		.L539:
 2115                     t = last def
				movq	(%rbx), %rax
				movl	56(%rax), %edx
				movslq	%r12d, %rax
				leaq	(%rax,%rax,2), %rax
				movl	%edx, 49056(%r13,%rax,8)
		.L540:
 2116                 %finish
 2117                 op('$', t)
				movq	(%rbx), %rax
				movq	8(%rax), %r10
				movl	$36, %edi
				call	OP.6530
		.LVL547:
 2118                 print ident(p, 1);                     ! output the name
				movq	(%rbx), %rax
				movq	8(%rax), %r10
				movl	$1, %esi
				movl	%r12d, %edi
				call	PRINTIDENT.6549
		.LVL548:
 2119                 t = v_flags
				movslq	%r12d, %r14
				leaq	(%r14,%r14), %rax
				movq	%rax, 8(%rsp)
				addq	%r14, %rax
				movl	49052(%r13,%rax,8), %ebp
		.LVL549:
		.LDL37:
 2120                 type = t
 2121                 type = type&(\(7<<4)) %if type&(7<<4) >= 6<<4;!routine & pred
 2122                 op(',', type&2_1111111);               ! type & form
				movl	%ebp, %r15d
				andl	$15, %r15d
				movq	(%rbx), %rax
				movq	8(%rax), %r10
				movl	%r15d, %esi
				movl	$44, %edi
				call	OP.6530
		.LVL550:
 2123                 f = v_format
				addq	8(%rsp), %r14
				movl	49048(%r13,%r14,8), %esi
		.LVL551:
 2124                 f = tag(f)_index %if t&16_70 = record<<4
				movl	%ebp, %eax
				andl	$1, %eax
				movl	%eax, 8(%rsp)
				jne	.L541
 2125                 f = v_index %if f < 0
				movq	(%rbx), %rdx
				movslq	%esi, %rsi
		.LVL552:
				leaq	(%rsi,%rsi,2), %rax
				salq	$3, %rax
				addq	8(%rdx), %rax
				movl	49056(%rax), %esi
		.LVL553:
		.L541:
				testl	%esi, %esi
				js	.L554
		.L542:
 2126                 op(',', f);                            ! format
				movq	(%rbx), %rax
				movq	8(%rax), %r10
				movl	$44, %edi
				call	OP.6530
		.LVL554:
				movslq	%r12d, %rax
				leaq	(%rax,%rax,2), %rax
				movl	49056(%r13,%rax,8), %esi
		.LVL563:
				jmp	.L542
		.LVL564:
		.L555:
 2127                 f = otype+t>>4&2_1111000
				movl	OTYPE.6445(%rip), %r14d
				shrl	$4, %ebp
		.LVL555:
				andl	$120, %ebp
				addl	%r14d, %ebp
		.LVL556:
 2128                 f = f!8 %if class = 125;               ! add spec from %DUP
				cmpl	$125, 28(%rbx)
				je	.L555
		.L543:
 2129                 dim = v_app;                           ! dimension
				movslq	%r12d, %rax
				leaq	(%rax,%rax,2), %rax
				movl	49044(%r13,%rax,8), %esi
				cmpl	$5, %eax
				movl	$0, %eax
				cmova	%eax, %esi
				movl	%esi, DIM.6440(%rip)
		.L545:
				orl	$8, %ebp
		.LVL565:
				jmp	.L543
		.LVL566:
		.L556:
 2130                 dim = 0 %unless 0 < dim %and dim <= dim limit
 2131                 op(',', f+dim<<8);                     ! otype & spec & prot
				leal	-1(%rsi), %eax
				sall	$8, %esi
				addl	%ebp, %esi
				movq	(%rbx), %rax
				movq	8(%rax), %r10
				movl	$44, %edi
				call	OP.6530
		.LVL557:
 2132                 defs = 0 %if t&parameters = 0
				cmpl	$0, 8(%rsp)
				jne	.L546
		.L544:
 2133                 f = t&15
				movl	$0, 20(%rbx)
		.L546:
		.LVL558:
 2134                 %if v_flags&spec # 0 %start
 2135                     v_flags = v_flags&(\spec) %unless 3 <= f %and f <= 10
 2136                     ocount = -1;                       ! external specs have no constants
				leal	-3(%r15), %eax
				cmpl	$7, %eax
				jbe	.L547
		.L548:
				movl	$-1, OCOUNT.6472(%rip)
		.LDL38:
 2137                 %finish
 2138                 dimension = 0
				movslq	%r12d, %rdx
				leaq	(%rdx,%rdx), %rax
				leaq	(%rax,%rdx), %rcx
				movl	49052(%r13,%rcx,8), %eax
				andb	$127, %al
				movl	%eax, 49052(%r13,%rcx,8)
		.L547:
				movl	$0, DIMENSION.6482(%rip)
 2139                 %if otype = 2 %and (f=2 %or f=12 %or f=14) %start
				cmpl	$2, %r14d
				je	.L556
		.L549:
		.LVL559:
		.L538:
 2140                     v_flags = v_flags-1;               ! convert to simple
				cmpl	$2, %r15d
				sete	%al
				movslq	%r12d, %r12
				leaq	(%r12,%r12), %rax
				leaq	(%rax,%r12), %rdx
				movl	49052(%r13,%rdx,8), %eax
				subl	$1, %eax
				movl	%eax, 49052(%r13,%rdx,8)
 2141                 %finish
				cmpl	$12, %r15d
				sete	%dl
 2142             %end
				orb	%al, %dl
				jne	.L551
				cmpl	$14, %r15d
				jne	.L538
		.L551:
				jmp	.L538
		.LFE219:
				.section	.rodata.str1.8
				.align 8
		.LC10:
				.string	"Illegal cycle J = DICT[N - 1], 1, DICT[N + 1 - 1]"
				.align 8
		.LC11:
				.string	"->C(%d) out of bounds at %s line %d"
				.align 8
		.LC12:
				.string	"switch jump to undefined label C(%d): at %s line %d"
				.align 8
		.LC13:
				.string	"->LITOP(%d) out of bounds at %s line %d"
		COMPILE.6649:
		.LFB213:
 2143
				addq	$24, %rsp
				popq	%rbx
				popq	%rbp
				popq	%r12
				popq	%r13
		.LVL560:
				popq	%r14
				popq	%r15
		.LVL561:
				ret
		.LVL562:
		.L554:
 2144             %routine def s lab(%integer n)
		.LVL494:
				pushq	%rbp
				pushq	%rbx
				subq	$8, %rsp
				movq	%r10, %rbx
 2145                 ! define a switch label, x defines the switch tag
 2146                 %integer p, l, b, w, bit
 2147                 p = tag(x)_format;                     ! pointer to table
				movl	X.6415(%rip), %ebp
				movq	(%r10), %r10
				movq	8(%r10), %rax
				movslq	%ebp, %rdx
				leaq	(%rdx,%rdx,2), %rdx
				movl	49048(%rax,%rdx,8), %esi
		.LVL495:
				movslq	%esi, %rdx
				leaq	(%rax,%rdx,4), %rcx
 2148                 l = dict(p);                           ! lower bound
				movl	25040(%rcx), %edx
		.LVL496:
 2149                 %if l <= n %and n <= dict(p+1) %start
				cmpl	%edi, %edx
				jg	.L509
 2150                     b = n-l
				cmpl	%edi, 25044(%rcx)
				jl	.L509
				movl	%edi, %ecx
				subl	%edx, %ecx
				movl	%ecx, %edx
		.LVL497:
 2151                     w = b>>4+p
				shrl	$4, %edx
		.LVL499:
				addl	%esi, %edx
		.LVL500:
				movslq	%edx, %rdx
				leaq	(%rax,%rdx,4), %rdx
		.LVL501:
 2152                     bit = 1<<(b&15)
				andl	$15, %ecx
				movl	$1, %r8d
				sall	%cl, %r8d
				movl	%r8d, %ecx
		.LVL498:
 2153                     %if dict(w+2)&bit # 0 %start;      ! already set
				movl	25048(%rdx), %eax
		.LVL502:
				testl	%r8d, %r8d
				sete	%sil
		.LVL503:
				movzbl	%sil, %esi
				testl	%eax, %esi
				jne	.L510
 2154                         fault(4) %if pending # 0
				cmpl	$0, 24(%rbx)
				je	.L508
 2155                         %return
				movl	$4, %edi
		.LVL504:
				call	FAULT.6666
		.LVL505:
				jmp	.L508
		.LVL506:
		.L510:
 2156                     %finish
 2157                     dict(w+2) = dict(w+2)!bit %if pending # 0
				cmpl	$0, 24(%rbx)
				je	.L512
 2158                     set const(n)
				orl	%eax, %ecx
		.LVL507:
				movl	%ecx, 25048(%rdx)
		.LVL508:
		.L512:
				movq	(%rbx), %rax
				movq	8(%rax), %r10
				call	SETCONST.6533
		.LVL509:
 2159                     op('_', tag(x)_index)
				movq	(%rbx), %rax
				movq	8(%rax), %rax
				movslq	%ebp, %rbp
				leaq	0(%rbp,%rbp,2), %rdx
				movq	%rax, %r10
				movl	49056(%rax,%rdx,8), %esi
				movl	$95, %edi
				call	OP.6530
		.LVL510:
 2160                 %finish %else %start
				jmp	.L513
		.LVL511:
		.L509:
 2161                     fault(12)
				movl	$12, %edi
		.LVL512:
				call	FAULT.6666
		.LVL513:
		.L513:
 2162                 %finish
 2163                 access = 1
				movq	(%rbx), %rax
				movl	$1, 36(%rax)
		.L511:
		.L508:
 2164             %end
 2165
				addq	$8, %rsp
				popq	%rbx
				popq	%rbp
				ret
		.LFE220:
		DELETENAMES.6645:
		.LFB201:
 2166             %routine call
 2167                 %record(tagfm)%name T
 2168                 t == tag(x)
				movq	112(%rsp), %rax
				movq	8(%rax), %rbp
		.LVL755:
 2169                 op('@', t_index)
				movslq	X.6415(%rip), %r12
				leaq	(%r12,%r12), %rbx
		.LVL756:
				leaq	(%rbx,%r12), %rax
				movq	%rbp, %r10
				movl	49056(%rbp,%rax,8), %esi
				movl	$64, %edi
				call	OP.6530
		.LVL757:
 2170                 access = 0 %if t_flags&closed # 0;     ! never comes back
 2171                 add char( 'E' ) %if t_app = 0;         ! no parameters
				movq	112(%rsp), %rax
				movl	$0, 36(%rax)
		.LDL47:
				addq	%r12, %rbx
				cmpl	$0, 49044(%rbp,%rbx,8)
				jne	.L879
 2172             %end
				movq	8(%rax), %r10
				movl	$69, %edi
				call	ADDCHAR.6526
		.LVL758:
				jmp	.L879
		.LVL759:
		.L750:
				jmp	.L752
		.L751:
				jmp	.L752
		.L753:
				jmp	.L763
		.L754:
				jmp	.L763
		.L755:
				jmp	.L763
		.L756:
				jmp	.L763
		.L757:
				jmp	.L763
		.L758:
		.L763:
		.LBE637:
		.LBE636:
 2173
 2174             %routine pop def
 2175                 set const(pstack(pending));  pending = pending-1
				subl	$1, %eax
				cltq
				leaq	PSTACK.7554(%rip), %rdx
				movl	(%rdx,%rax,4), %edi
				movq	112(%rsp), %rax
				movq	8(%rax), %r10
				call	SETCONST.6533
		.LVL789:
 2176             %end
				subl	$1, 136(%rsp)
		.L785:
		.LBE639:
		.LBE638:
 2177
 2178             %routine pop lit
 2179                 %if pending = 0 %then lit = 0 %else %start
				movl	24(%r10), %eax
				testl	%eax, %eax
				je	.L20
		.L18:
 2180                     lit = pstack(pending);  pending = pending-1
				subl	$1, %eax
				movslq	%eax, %rcx
				leaq	PSTACK.7554(%rip), %rdx
				movl	(%rdx,%rcx,4), %edx
				movl	%edx, LIT.6490(%rip)
				movl	$0, LIT.6490(%rip)
 2181                 %finish
				movl	%eax, 24(%r10)
		.L19:
				ret
		.LFE223:
		PUSH.7656:
		.LFB224:
 2182             %end
 2183
				ret
		.L20:
 2184             !conditions & jumps
 2185             %routine push(%integer x)
		.LVL18:
 2186                 %if cnest(cp)&2 # x %start
				movl	16(%r10), %eax
				movslq	%eax, %rdx
				leaq	CNEST.7532(%rip), %rcx
				movzbl	(%rcx,%rdx), %edx
				cmpl	$2, %edi
				sete	%cl
				movzbl	%cl, %ecx
				testl	%edx, %ecx
				jne	.L22
 2187                     cnest(cp) = cnest(cp)!1;  x = x+4
				movslq	%eax, %rcx
				orl	$1, %edx
				leaq	CNEST.7532(%rip), %rsi
				movb	%dl, (%rsi,%rcx)
 2188                 %finish
				addl	$4, %edi
		.LVL19:
		.L22:
 2189                 clab = clab+1 %if cnest(cp)&1 # 0
 2190                 cnest(cp+1) = x;  cp = cp+1
				addl	$1, 12(%r10)
		.LDL2:
				addl	$1, %eax
				movslq	%eax, %rdx
				leaq	CNEST.7532(%rip), %rcx
				movb	%dil, (%rcx,%rdx)
 2191             %end
				movl	%eax, 16(%r10)
 2192
				ret
		.LFE224:
		SHOW.6918:
		.LFB204:
 2193             %routine pop label(%integer mode)
		.LVL487:
				subq	$8, %rsp
 2194                 lmode = dict(dmin)
				movq	(%r10), %rdx
				movq	8(%rdx), %rcx
				movl	52(%rdx), %eax
				subl	$1, %eax
				cltq
				movl	25044(%rcx,%rax,4), %eax
				movl	%eax, 8(%r10)
 2195                 %if lmode < 0 %or lmode&1 # mode %start
				testl	%eax, %eax
				js	.L497
 2196                     fault(mode+8)
				cmpl	$1, %edi
				sete	%cl
				movzbl	%cl, %ecx
				testl	%eax, %ecx
				je	.L497
		.L498:
				addl	$8, %edi
		.LVL488:
				movq	%rdx, %r10
				call	FAULT.6666
		.LVL489:
 2197                 %finish %else %start
 2198                     dmin = dmin+1;  label = label-3
				addl	$1, 52(%rdx)
 2199                 %finish
				movq	(%r10), %rax
				subl	$3, 24(%rax)
				ret
		.L497:
 2200             %end
 2201
				addq	$8, %rsp
				ret
		.L499:
		.LFE225:
		SETBP.7590:
		.LFB217:
 2202             %if sstype < 0 %start;                     ! executable statement
				cmpl	$0, SSTYPE.6470(%rip)
				js	.L886
		.L558:
		.L560:
		.L561:
 2203                 %if level = 0 %start;                  ! outermost level
				cmpl	$0, 60(%r10)
				je	.L893
		.L559:
 2204                     fault(13);                         ! *order
				movl	$13, %edi
				call	FAULT.6666
		.LVL583:
				jmp	.L561
		.LVL584:
		.L887:
 2205                 %finish %else %start
 2206                     %if access = 0 %start
				movq	(%rsp), %rax
				cmpl	$0, 36(%rax)
				jne	.L561
 2207                         access = 1;  fault(-1);        ! only a warning
				movl	$1, 36(%rax)
 2208                     %finish
				movq	%rax, %r10
				movl	$-1, %edi
				call	FAULT.6666
		.LVL582:
				jmp	.L561
		.L893:
 2209                 %finish
 2210             %finish
 2211
 2212             %if diag&2 # 0 %start
 2213                 newline %if sym # nl
				cmpl	$10, SYM.6433(%rip)
				je	.L562
		.LBB601:
		.LBB602:
				call	_imp_newline@PLT
		.LVL567:
		.L562:
		.LBE602:
		.LBE601:
		.LBB603:
 2214                 printstring("ss =")
				movq	$1025536883, 5601(%rsp)
				movq	$0, 5609(%rsp)
				movb	$0, 5617(%rsp)
				movw	$0, 5618(%rsp)
				movl	$0, 5620(%rsp)
				leaq	5624(%rsp), %rdi
				movl	$29, %ecx
				movl	$0, %eax
				rep stosq
				movb	$4, 5600(%rsp)
				movq	5600(%rsp), %rax
				movq	5608(%rsp), %rdx
				movq	%rax, 224(%rsp)
				movq	%rdx, 232(%rsp)
				movdqa	5616(%rsp), %xmm6
				movaps	%xmm6, 240(%rsp)
				movdqa	5632(%rsp), %xmm0
				movaps	%xmm0, 256(%rsp)
				movdqa	5648(%rsp), %xmm1
				movaps	%xmm1, 272(%rsp)
				movdqa	5664(%rsp), %xmm2
				movaps	%xmm2, 288(%rsp)
				movdqa	5680(%rsp), %xmm3
				movaps	%xmm3, 304(%rsp)
				movdqa	5696(%rsp), %xmm4
				movaps	%xmm4, 320(%rsp)
				movdqa	5712(%rsp), %xmm5
				movaps	%xmm5, 336(%rsp)
				movdqa	5728(%rsp), %xmm7
				movaps	%xmm7, 352(%rsp)
				movdqa	5744(%rsp), %xmm6
				movaps	%xmm6, 368(%rsp)
				movq	5760(%rsp), %r13
				movq	5768(%rsp), %r14
				movq	%r13, 384(%rsp)
				movq	%r14, 392(%rsp)
				movq	5776(%rsp), %rax
				movq	5784(%rsp), %rdx
				movq	%rax, 400(%rsp)
				movq	%rdx, 408(%rsp)
				movq	5792(%rsp), %rsi
				movq	5800(%rsp), %rdi
				movq	%rsi, 416(%rsp)
				movq	%rdi, 424(%rsp)
				movq	5808(%rsp), %r9
				movq	5816(%rsp), %r10
				movq	%r9, 432(%rsp)
				movq	%r10, 440(%rsp)
				movq	5824(%rsp), %rcx
				movq	5832(%rsp), %rbx
				movq	%rcx, 448(%rsp)
				movq	%rbx, 456(%rsp)
				movq	5840(%rsp), %r11
				movq	5848(%rsp), %r12
				movq	%r11, 464(%rsp)
				movq	%r12, 472(%rsp)
		.LVL568:
				movb	$4, 224(%rsp)
				movdqa	224(%rsp), %xmm0
				movaps	%xmm0, 5344(%rsp)
				movdqa	5616(%rsp), %xmm1
				movaps	%xmm1, 5360(%rsp)
				movdqa	5632(%rsp), %xmm2
				movaps	%xmm2, 5376(%rsp)
				movdqa	5648(%rsp), %xmm3
				movaps	%xmm3, 5392(%rsp)
				movdqa	5664(%rsp), %xmm4
				movaps	%xmm4, 5408(%rsp)
				movdqa	5680(%rsp), %xmm5
				movaps	%xmm5, 5424(%rsp)
				movdqa	5696(%rsp), %xmm7
				movaps	%xmm7, 5440(%rsp)
				movdqa	5712(%rsp), %xmm6
				movaps	%xmm6, 5456(%rsp)
				movdqa	5728(%rsp), %xmm0
				movaps	%xmm0, 5472(%rsp)
				movdqa	5744(%rsp), %xmm1
				movaps	%xmm1, 5488(%rsp)
				movq	%r13, 5504(%rsp)
				movq	%r14, 5512(%rsp)
				movq	%rax, 5520(%rsp)
				movq	%rdx, 5528(%rsp)
				movq	%rsi, 5536(%rsp)
				movq	%rdi, 5544(%rsp)
				movq	%r9, 5552(%rsp)
				movq	%r10, 5560(%rsp)
				movq	%rcx, 5568(%rsp)
				movq	%rbx, 5576(%rsp)
				movq	%r11, 5584(%rsp)
				movq	%r12, 5592(%rsp)
		.LBE603:
		.LBB604:
		.LBB605:
				pushq	%r12
				pushq	%r11
				pushq	%rbx
				pushq	%rcx
				pushq	%r10
				pushq	%r9
				pushq	%rdi
				pushq	%rsi
				pushq	%rdx
				pushq	%rax
				pushq	%r14
				pushq	%r13
				pushq	5848(%rsp)
				pushq	5848(%rsp)
				pushq	5848(%rsp)
				pushq	5848(%rsp)
				pushq	5848(%rsp)
				pushq	5848(%rsp)
				pushq	5848(%rsp)
				pushq	5848(%rsp)
				pushq	5848(%rsp)
				pushq	5848(%rsp)
				pushq	5848(%rsp)
				pushq	5848(%rsp)
				pushq	5848(%rsp)
				pushq	5848(%rsp)
				pushq	5848(%rsp)
				pushq	5848(%rsp)
				pushq	5848(%rsp)
				pushq	5848(%rsp)
				pushq	472(%rsp)
				pushq	472(%rsp)
				call	_imp_printstring@PLT
		.LVL569:
				addq	$256, %rsp
		.LBE605:
		.LBE604:
 2215                 write(ss, 1)
				movl	$1, %esi
				movl	SS.6463(%rip), %edi
				call	_imp_writeint@PLT
		.LVL570:
		.LBB606:
		.LBB607:
				call	_imp_newline@PLT
		.LVL571:
		.LBE607:
		.LBE606:
 2216                 newline
 2217                 count = 5
				movl	$5, COUNT.7556(%rip)
		.LVL572:
 2218                 name = ""
 2219             %finish
 2220
				leaq	480(%rsp), %rsi
				movl	$8, %edx
				leaq	NAME.7555(%rip), %rdi
				call	_imp_strncpy@PLT
		.LVL573:
		.L563:
 2221             next = ss
				movl	SS.6463(%rip), %eax
				movl	%eax, 148(%rsp)
 2222             pending = 0;  lmode = 0
				movl	$0, 136(%rsp)
 2223             link = 0;  decs = 0
				movl	$0, 120(%rsp)
				movl	$0, 144(%rsp)
		.LVL574:
 2224             defs = 0;  resln = 0;  done = 0
				movl	$0, 132(%rsp)
		.LVL575:
				movl	$0, 8(%rsp)
				movl	$0, 8(%rsp)
 2225             ord = level
				movl	$0, 24(%rsp)
		.LVL576:
		.L879:
				movq	(%rsp), %rax
				movl	60(%rax), %eax
				movl	%eax, 12(%rsp)
				movl	$0, 24(%rsp)
				jmp	.L879
		.L564:
		.L565:
		.L566:
		.L567:
		.L568:
		.L569:
		.LVL585:
		.L570:
				jmp	.L879
		.LVL586:
		.L888:
 2226             ord = 1 %if this >= 0;                     ! recordformat declarations
				cmpl	$0, THIS.6457(%rip)
				js	.L887
 2227 c(0):
				movl	$1, 12(%rsp)
 2228 top:        %if next # link %start
 2229                 get next;  ->c(class)
				movl	144(%rsp), %eax
				cmpl	%eax, 148(%rsp)
				jne	.L888
		.L572:
				leaq	112(%rsp), %r10
				call	GETNEXT.7561
		.LVL587:
 2230             %finish
				movl	140(%rsp), %ebx
		.LVL588:
		.LDL41:
 2231
 2232             !all done, tidy up declarations and jumps
 2233             newline %if diag&2 # 0 %and count # 5
 2234
				cmpl	$5, COUNT.7556(%rip)
				je	.L576
		.LBB608:
		.LBB609:
				call	_imp_newline@PLT
		.LVL577:
		.L576:
		.LBE609:
		.LBE608:
 2235             %if lmode&(loop!then!else) # 0 %start;     ! pending labels and jumps
 2236                 op('B', label-1) %if lmode&loop # 0;   ! repeat
 2237                 def lab(label)   %if lmode&then # 0;   ! entry from then
				movq	(%rsp), %r15
				movl	24(%r15), %edx
				movl	%edx, 16(%rsp)
				leal	-1(%rdx), %esi
				movq	8(%r15), %r10
				movl	$66, %edi
				call	OP.6530
		.LVL578:
		.L577:
 2238                 def lab(label-1) %if lmode&else # 0;   ! entry from else
				movl	24(%r15), %edi
				leaq	112(%rsp), %rbx
				movq	%rbx, %r10
				call	DEFLAB.7558
		.LVL579:
		.L578:
 2239             %finish
				movl	24(%r15), %eax
				movl	%eax, 20(%rsp)
				leal	-1(%rax), %edi
				movq	%rbx, %r10
				call	DEFLAB.7558
		.LVL580:
		.L579:
		.L580:
 2240
 2241             %return %if decs = 0
				cmpl	$0, 8(%rsp)
				je	.L557
		.L582:
 2242             atom1 = error %and %return %if atom1 # 0;  ! %integerroutine
				cmpl	$0, ATOM1.6416(%rip)
				jne	.L889
		.L583:
 2243             order = ord
				movl	12(%rsp), %eax
				movl	%eax, ORDER.6475(%rip)
				movl	$32768, ATOM1.6416(%rip)
		.L557:
 2244             decl = decl&(\15)+decmap(decl&15);         ! construct declarator flags
				movl	DECL.6439(%rip), %eax
				movl	%eax, %edx
				andl	$15, %edx
				andl	$-16, %eax
				addl	160(%rsp,%rdx,4), %eax
				movl	%eax, DECL.6439(%rip)
 2245             atom1 = atoms(decl&15);                    ! generate class
				movq	(%rsp), %rbx
				movq	8(%rbx), %rcx
				movl	%eax, %edx
				andl	$15, %edx
				movzbl	69682(%rcx,%rdx), %edx
				movl	%edx, ATOM1.6416(%rip)
 2246             %if otype # 0 %start;                      ! own, const etc.
				movl	OTYPE.6445(%rip), %ecx
				testl	%ecx, %ecx
				je	.L590
 2247                 atom1 = atom1+1 %if atom1 # proc
				cmpl	$7, %edx
				je	.L585
 2248                 %if otype = 2 %start;                  ! const
				addl	$1, %edx
				movl	%edx, ATOM1.6416(%rip)
		.L585:
				cmpl	$2, %ecx
				je	.L890
		.L586:
 2249                     n = decl&15
 2250                     %if n&1 # 0 %start
 2251                         decl = decl!prot
				movl	%eax, %ecx
				orb	$33, %ch
				movl	%eax, %edx
				orb	$1, %dh
				testb	$1, %al
				movl	%ecx, %eax
		.LVL591:
				cmovne	%edx, %eax
				movl	%eax, DECL.6439(%rip)
		.LVL592:
 2252                         decl = decl!const bit %if decl&2_1111111 = iform
 2253                     %finish
 2254                 %else
				jmp	.L590
		.L891:
 2255                     decl = decl!own bit
				orb	$2, %ah
				movl	%eax, DECL.6439(%rip)
		.L584:
		.L588:
		.L589:
		.L590:
 2256                 %finish
 2257             %finish
 2258             sstype = 1 %if sstype = 0 %and atom1 = proc
				cmpl	$0, SSTYPE.6470(%rip)
				jne	.L591
 2259             atom1 = atom1+1 %if decl&spec # 0;         ! onto spec variant
				cmpl	$7, ATOM1.6416(%rip)
				je	.L891
		.L591:
 2260             ocount = 0 %and cont = '+' %if atom1 = 5;  ! own array
				movl	ATOM1.6416(%rip), %eax
				addl	$1, %eax
				movl	%eax, ATOM1.6416(%rip)
		.LDL39:
				cmpl	$5, %eax
				je	.L892
		.L592:
				movl	$1, SSTYPE.6470(%rip)
				movl	$8, ATOM1.6416(%rip)
				jmp	.L592
		.L892:
 2261             %if anyform(decl&15) = 0 %start;           ! check meaningful
				movl	DECL.6439(%rip), %eax
				movl	%eax, %edx
				andl	$15, %edx
				cmpb	$0, 5888(%rsp,%rdx)
				jne	.L557
				movl	$0, OCOUNT.6472(%rip)
 2262                 %if decl>>4&7 = record %start
				testb	$16, %al
				jne	.L594
				movl	$43, CONT.6437(%rip)
				jmp	.L592
		.LVL593:
		.L597:
		.L598:
 2263                     this = fdef %if tag(fdef)_flags&spec # 0
 2264                     atom1 = error+21 %if fdef = this;  ! *context for format
				movl	FDEF.6456(%rip), %eax
				movl	%eax, THIS.6457(%rip)
		.LDL40:
 2265                 %finish
				movl	$32789, ATOM1.6416(%rip)
		.L593:
		.L594:
 2266                 atom1 = error+10 %if fdef = 0;         ! *size
				cmpl	$0, FDEF.6456(%rip)
				jne	.L557
 2267             %finish
				movl	$32778, ATOM1.6416(%rip)
				jmp	.L557
		.LVL581:
		.L886:
 2268             %return
 2269
 2270 atop:       access = 0;  ->top
 2271             ! declarators
				movq	(%rsp), %rax
				movl	$0, 36(%rax)
 2272 c(88):      ;                                          ! rtype
				jmp	.L879
		.LVL634:
		.L651:
 2273 c(28):      decl = x&(\7);                             ! stype
 2274             fdef = x&7;                                ! precision
				movl	X.6415(%rip), %eax
				movl	%eax, %edx
				andl	$-8, %edx
				movl	%edx, DECL.6439(%rip)
				movl	%eax, %edx
				andl	$7, %edx
				movl	%edx, FDEF.6456(%rip)
 2275             fdef = reals ln %if x&2_1110001 = real<<4+1; ! convert to long
				andl	$1, %eax
				movl	%eax, 8(%rsp)
		.LVL594:
				jne	.L879
 2276             decs = 1;  ->top
				movl	REALSLN.6446(%rip), %eax
				movl	%eax, FDEF.6456(%rip)
				movl	$1, 8(%rsp)
				jmp	.L879
		.LVL595:
		.L599:
		.L600:
 2277 c(34):      ;                                          ! own
 2278 c(35):      otype = x;  ord = 1;  ->top;               ! external
 2279 c(152):     decl = decl+x<<1;  ->top;                  ! xname
				movl	X.6415(%rip), %eax
				movl	%eax, OTYPE.6445(%rip)
		.LVL596:
 2280 c(31):      ;                                          ! proc
				movl	$1, 12(%rsp)
				movl	X.6415(%rip), %eax
				addl	%eax, %eax
				addl	%eax, DECL.6439(%rip)
 2281 c(32):      spec mode = level+1;                       ! fn/map
				jmp	.L879
		.LVL597:
		.L601:
				jmp	.L879
		.L602:
		.L603:
 2282             decl = decl!prot %if x = 9;                ! function
				movq	(%rsp), %rax
				movl	60(%rax), %eax
				movl	%eax, 56(%rsp)
				addl	$1, %eax
				movl	%eax, SPECMODE.6471(%rip)
				cmpl	$9, X.6415(%rip)
				je	.L895
		.L604:
		.L605:
		.LVL598:
 2283 c(29):      ord = 1;                                   ! array
				orl	$256, DECL.6439(%rip)
				jmp	.L605
		.L607:
 2284             dim = 0
				movl	$0, DIM.6440(%rip)
				movl	$1, 12(%rsp)
		.LVL599:
		.L606:
 2285 c(30):      decl = decl+x;                             ! name
 2286             decs = 1
				movl	X.6415(%rip), %eax
				addl	%eax, DECL.6439(%rip)
		.LVL600:
				movl	$1, 8(%rsp)
 2287             ->top
				jmp	.L879
		.LVL601:
		.L895:
 2288 c(27):      lit = 0;                                   ! arrayd
 2289             %if pending # 0 %start
				movl	$0, LIT.6490(%rip)
				cmpl	$0, 136(%rsp)
				jne	.L896
		.L608:
		.L610:
 2290                 pop lit
				leaq	112(%rsp), %r10
				call	POPLIT.7651
		.LVL604:
 2291                 %unless 0<lit %and lit<=dim limit %start
 2292                     atom1 = error + 11;  %return
				movl	LIT.6490(%rip), %eax
				subl	$1, %eax
				cmpl	$5, %eax
				jbe	.L610
		.L609:
				movl	$32779, ATOM1.6416(%rip)
 2293                 %finish
				jmp	.L557
		.L611:
 2294             %finish
 2295             dim = lit
				movl	LIT.6490(%rip), %eax
				movl	%eax, DIM.6440(%rip)
 2296             decl = decl + x;  decs = 1
				movl	X.6415(%rip), %eax
				addl	%eax, DECL.6439(%rip)
		.LVL602:
 2297             -> top
				movl	$1, 8(%rsp)
				jmp	.L879
		.LVL603:
		.L896:
 2298 c(37):      x = x!subname;                             ! record
 2299 c(36):      lit = 0;                                   ! string
				orl	$2048, X.6415(%rip)
		.L612:
 2300             %if pending # 0 %start
				movl	$0, LIT.6490(%rip)
				cmpl	$0, 136(%rsp)
				jne	.L897
		.L613:
		.L615:
 2301                 pop lit
				leaq	112(%rsp), %r10
				call	POPLIT.7651
		.LVL607:
 2302                 %unless 0 < lit %and lit <= 255 %start; ! max length wrong
 2303                     atom1 = error+10;  %return
				movl	LIT.6490(%rip), %eax
				subl	$1, %eax
				cmpl	$254, %eax
				jbe	.L615
		.L614:
				movl	$32778, ATOM1.6416(%rip)
 2304                 %finish
				jmp	.L557
		.L617:
 2305             %finish
 2306             fdef = lit;                                ! format or length
				movl	LIT.6490(%rip), %eax
				movl	%eax, FDEF.6456(%rip)
		.L616:
 2307 c(33):      decl = x;                                  ! switch
 2308             decs = 1
				movl	X.6415(%rip), %eax
				movl	%eax, DECL.6439(%rip)
		.LVL605:
				movl	$1, 8(%rsp)
 2309             ->top
				jmp	.L879
		.LVL606:
		.L897:
 2310 c(39):      decl = decl!spec;                          ! spec
 2311             ocount = -1;                               ! no initialisation
				orl	$128, DECL.6439(%rip)
				movl	$-1, OCOUNT.6472(%rip)
 2312             spec mode = -1
				movl	$-1, SPECMODE.6471(%rip)
 2313             ->top
				jmp	.L879
		.L618:
 2314 c(38):      decl = 64+4;                               ! recordformat (spec)
 2315             order = 1
				movl	$68, DECL.6439(%rip)
				movl	$1, ORDER.6475(%rip)
 2316             atom1 = x
				movl	X.6415(%rip), %eax
				movl	%eax, ATOM1.6416(%rip)
 2317             decl = decl!spec %if atom1 = 12;           ! formatspec
				cmpl	$12, %eax
				je	.L898
		.L619:
 2318             fdef = tmax+1;                             ! format tag
				movq	(%rsp), %rax
				movl	64(%rax), %eax
				addl	$1, %eax
				movl	%eax, FDEF.6456(%rip)
				movl	$196, DECL.6439(%rip)
				jmp	.L619
		.L620:
 2319             %return
				jmp	.L557
		.L898:
 2320 c(175):     id = id+1;  tag(x)_index = id;  %return;   ! FSID
 2321 c(41):      decs = 1;  decl = x!spec!closed;  ->top;   ! label
				movq	(%rsp), %rax
				movl	56(%rax), %ebx
		.LVL608:
				movl	%ebx, 76(%rsp)
				leal	1(%rbx), %edx
				movq	%rax, %rbx
				movl	%edx, 56(%rax)
 2322 c(133):     recid = 0;  rbase = tmin-1;                ! fname
				movslq	X.6415(%rip), %rax
				leaq	(%rax,%rax,2), %rax
				salq	$3, %rax
				addq	8(%rbx), %rax
				movl	%edx, 49056(%rax)
				movl	$1, 8(%rsp)
 2323             this = x
				jmp	.L557
		.LVL609:
		.L621:
				movl	X.6415(%rip), %eax
				orl	$16512, %eax
				movl	%eax, DECL.6439(%rip)
				movq	(%rsp), %rax
				movq	8(%rax), %rax
				movl	$0, 16844(%rax)
				movl	X.6415(%rip), %edi
				movl	%edi, THIS.6457(%rip)
 2324             fm base = fdef;  format list = tmin
				jmp	.L879
		.LVL610:
		.L622:
				movl	TMIN.6462(%rip), %eax
				leal	-1(%rax), %edx
				movl	%edx, RBASE.6460(%rip)
				movl	FDEF.6456(%rip), %edx
				movl	%edx, FMBASE.6484(%rip)
 2325             def(this);                      ->top
				movl	%eax, FORMATLIST.6486(%rip)
				leaq	112(%rsp), %r10
				call	DEF.7608
		.LVL611:
				jmp	.L879
		.L623:
 2326 c(148):     fdef = 0 %and ->top %if next = 0;          ! reclb
 2327             get next;                                  ! skip name
				cmpl	$0, 148(%rsp)
				jne	.L624
				leaq	112(%rsp), %r10
				call	GETNEXT.7561
		.LVL612:
 2328             fdef = x
				movl	$0, FDEF.6456(%rip)
				movl	X.6415(%rip), %eax
				movl	%eax, FDEF.6456(%rip)
 2329             ->top
				jmp	.L879
		.L624:
				jmp	.L879
		.L625:
 2330
 2331 c(127):     add char( '}' );             ->top;        ! %POUT
 2332 c(126):     add char( '{' );             ->top;        ! %PIN
				movq	(%rsp), %rax
				movq	8(%rax), %r10
				movl	$125, %edi
				call	ADDCHAR.6526
		.LVL613:
				jmp	.L879
		.L626:
 2333 c(174):     set bp;                                    ! rangerb
				movq	(%rsp), %rax
				movq	8(%rax), %r10
				movl	$123, %edi
				call	ADDCHAR.6526
		.LVL614:
				jmp	.L879
		.L627:
 2334 c(171):     ;                                          ! fmlb
				leaq	112(%rsp), %r10
				call	SETBP.7590
		.LVL615:
		.L630:
 2335 c(172):     ;                                          ! fmrb
 2336 c(173):     add char( '~' )
 2337             add char( class-171+'A' );   ->top;        ! fmor
				movq	(%rsp), %rbx
		.LVL616:
				movq	8(%rbx), %r10
				movl	$126, %edi
				call	ADDCHAR.6526
		.LVL617:
				movzbl	140(%rsp), %eax
				leal	-106(%rax), %edi
				movzbl	%dil, %edi
				movq	8(%rbx), %r10
				call	ADDCHAR.6526
		.LVL618:
				jmp	.L879
		.LVL619:
		.L628:
				jmp	.L630
		.L629:
				jmp	.L630
		.L631:
 2338 c(168):     rbase = -rbase;                            ! orrb
 2339             sstype = 0;  spec mode = 0
				negl	RBASE.6460(%rip)
				movl	$0, SSTYPE.6470(%rip)
 2340
				movl	$0, SPECMODE.6471(%rip)
		.L632:
 2341 c(147):     search base = 0;                           ! recrb
 2342             tag(this)_app = tmin
				movl	$0, SEARCHBASE.6485(%rip)
				movslq	THIS.6457(%rip), %rcx
				leaq	(%rcx,%rcx), %rax
				leaq	(%rax,%rcx), %rdx
				salq	$3, %rdx
				movq	(%rsp), %rbx
		.LVL620:
				addq	8(%rbx), %rdx
				movl	TMIN.6462(%rip), %esi
				movl	%esi, 49044(%rdx)
 2343             tag(this)_format = rbase
				addq	%rcx, %rax
				salq	$3, %rax
				addq	8(%rbx), %rax
				movl	RBASE.6460(%rip), %edx
				movl	%edx, 49048(%rax)
 2344             ->top
				jmp	.L879
		.LVL621:
		.L633:
 2345
 2346 c(45):      add char( 'U' ) %if x = 36;  ->top;        ! sign
 2347 c(46):      add char( '\' );             ->top;        ! uop
				cmpl	$36, X.6415(%rip)
				jne	.L879
 2348 c(47):;                                                ! mod
				movq	(%rsp), %rax
				movq	8(%rax), %r10
				movl	$85, %edi
				call	ADDCHAR.6526
		.LVL622:
				jmp	.L879
		.L634:
				movq	(%rsp), %rax
				movq	8(%rax), %r10
				movl	$92, %edi
				call	ADDCHAR.6526
		.LVL623:
				jmp	.L879
		.L635:
		.L639:
 2349 c(48):;                                                ! dot
 2350 c(42):;                                                ! op1
 2351 c(43):;                                                ! op2
 2352 c(44):      add char( operator(x) );     ->top;        ! op3
 2353 c(56):      ;                                          ! and
				movl	X.6415(%rip), %eax
				subl	$1, %eax
				cltq
				movzbl	5874(%rsp,%rax), %edi
				movq	(%rsp), %rax
				movq	8(%rax), %r10
				call	ADDCHAR.6526
		.LVL624:
				jmp	.L879
		.L636:
				jmp	.L639
		.L637:
				jmp	.L639
		.L638:
				jmp	.L639
		.L640:
		.L641:
 2354 c(57):      push(x);  ->top;                           ! or
 2355 c(58):      cnest(cp) = cnest(cp)!!2;  ->top;          ! not
				leaq	112(%rsp), %r10
				movl	X.6415(%rip), %edi
				call	PUSH.7656
		.LVL625:
				jmp	.L879
		.L642:
 2356 c(138):     x = 128+32+16+4;                           ! csep: treat like %while
				leaq	CNEST.7532(%rip), %rdx
				movslq	128(%rsp), %rax
				xorb	$2, (%rdx,%rax)
 2357 c(59):      ;                                          ! while
				jmp	.L879
		.L643:
				movl	$180, X.6415(%rip)
		.L645:
 2358 c(60):      %if class = 138 %then op('f', label-1) %else def lab(label-1); ! until
 2359 c(166):     ;                                          ! runtil
				cmpl	$138, 140(%rsp)
				je	.L899
		.L646:
 2360 c(62):      lmode = (lmode&(else!loop)) !(x>>3);       ! cword
				movq	(%rsp), %rax
				movl	24(%rax), %ebx
		.LVL627:
				movl	%ebx, 80(%rsp)
				leal	-1(%rbx), %esi
				movq	8(%rax), %r10
				movl	$102, %edi
				call	OP.6530
		.LVL628:
				jmp	.L649
		.L647:
		.LVL629:
		.L648:
		.L649:
 2361             clab = label;  cp = 1;  cnest(1) = x&7
				movl	X.6415(%rip), %edx
				movl	120(%rsp), %eax
				andl	$24, %eax
				movl	%edx, %ecx
				shrl	$3, %ecx
				orl	%ecx, %eax
				movl	%eax, 120(%rsp)
				movq	(%rsp), %rax
				movl	24(%rax), %eax
				movl	%eax, 124(%rsp)
 2362             ->top
				movl	$1, 128(%rsp)
				jmp	.L879
		.LVL630:
		.L650:
 2363 c(72):      pop label(0);                              ! repeat
				movq	(%rsp), %rax
				movl	24(%rax), %eax
				movl	%eax, 64(%rsp)
				leal	-1(%rax), %edi
				leaq	112(%rsp), %r10
				call	DEFLAB.7558
		.LVL626:
				jmp	.L649
		.L644:
				jmp	.L645
		.L899:
				andl	$7, %edx
				movb	%dl, 1+CNEST.7532(%rip)
 2364             def lab(label+1) %if lmode&32 # 0;  ->atop
				leaq	112(%rsp), %rbx
		.LVL631:
				movq	%rbx, %r10
				movl	$0, %edi
				call	POPLABEL.7661
		.LVL632:
 2365 c(69):      pop label(1);               ->top;         ! finish
				movq	(%rsp), %rax
				movl	24(%rax), %eax
				movl	%eax, 84(%rsp)
				leal	1(%rax), %edi
				movq	%rbx, %r10
				call	DEFLAB.7558
		.LVL633:
		.L595:
		.L596:
 2366 c(163):     ;                                          ! xelse
				leaq	112(%rsp), %r10
				movl	$1, %edi
				call	POPLABEL.7661
		.LVL635:
				jmp	.L879
		.L652:
		.L653:
 2367 c(70):      pop label(1);                              ! finish else ...
 2368             fault(7) %if lmode&3 = 3;                  ! dangling else
				leaq	112(%rsp), %r10
				movl	$1, %edi
				call	POPLABEL.7661
		.LVL636:
 2369 c(68):      lmode = (lmode&else)!3;                    ! ...else...
				movq	(%rsp), %r10
				movl	$7, %edi
				call	FAULT.6666
		.LVL637:
		.L654:
		.L655:
 2370             %if access # 0 %start
				movl	120(%rsp), %eax
				andl	$8, %eax
				orl	$3, %eax
				movl	%eax, 120(%rsp)
				movq	(%rsp), %rax
				cmpl	$0, 36(%rax)
				je	.L656
 2371                 op('F', label-1);  lmode = else!3
				movl	24(%rax), %ebx
		.LVL638:
				movl	%ebx, 72(%rsp)
				leal	-1(%rbx), %esi
				movq	8(%rax), %r10
				movl	$70, %edi
				call	OP.6530
		.LVL639:
 2372             %finish
				movl	$11, 120(%rsp)
		.L656:
 2373             def lab(label)
				movq	(%rsp), %rax
				movl	24(%rax), %edi
				leaq	112(%rsp), %r10
				call	DEFLAB.7558
		.LVL640:
 2374             ->top %if next # 0
				cmpl	$0, 148(%rsp)
				jne	.L879
				jmp	.L660
		.L657:
		.LVL641:
		.L658:
		.L660:
		.L661:
 2375 c(120):     ;                                          ! %MSTART
 2376 c(67):      ;                                          ! start
 2377 c(71):      ;                                          ! cycle
 2378 stcy:       def lab(label-1) %and lmode = loop %if lmode = 0; ! cycle
 2379             dmin = dmin-1;  abandon(3) %if dmin <= dmax
				cmpl	$0, 120(%rsp)
				je	.L900
		.L662:
				movq	(%rsp), %rbx
				movl	52(%rbx), %eax
				movl	%eax, 36(%rsp)
				subl	$1, %eax
				movl	%eax, 52(%rbx)
 2380             dict(dmin) = lmode
				cmpl	%eax, DMAX.6461(%rip)
				jge	.L901
		.L663:
				movq	(%rsp), %rbx
				movq	8(%rbx), %rdx
				movl	52(%rbx), %eax
				movl	%eax, 40(%rsp)
				subl	$1, %eax
				cltq
				movl	120(%rsp), %ecx
				movl	%ecx, 25044(%rdx,%rax,4)
				movq	(%rsp), %rax
				movl	24(%rax), %eax
				movl	%eax, 68(%rsp)
				leal	-1(%rax), %edi
				leaq	112(%rsp), %r10
				call	DEFLAB.7558
		.LVL644:
 2381             label = label+3
				addl	$3, 24(%rbx)
				movl	$16, 120(%rsp)
				jmp	.L662
		.L901:
				movq	8(%rbx), %r10
				movl	$3, %edi
				call	ABANDON.6563
		.LVL645:
				jmp	.L663
		.LVL646:
		.L664:
 2382             %return
				jmp	.L557
		.LVL642:
		.L659:
				jmp	.L660
		.LVL643:
		.L900:
 2383
 2384 c(64):      fault(13) %if dict(dmin) >= 0 %or inhibit # 0; ! on event
 2385             inhibit = 1
				movq	(%rsp), %rbx
		.LVL647:
				movq	8(%rbx), %rdx
				movl	52(%rbx), %eax
				movl	%eax, 88(%rsp)
				subl	$1, %eax
				cltq
				cmpl	$0, 25044(%rdx,%rax,4)
				jns	.L665
				movq	(%rsp), %r12
				movl	$1, 20(%r12)
		.LVL649:
 2386             n = 0
				cmpl	$0, 20(%rbx)
				je	.L666
		.L665:
				movl	$0, %ebx
				movl	$0, %ebx
		.LVL657:
		.L667:
 2387             n = 16_FFFF %if pending = 0;               ! * = all events
				movl	136(%rsp), %eax
				testl	%eax, %eax
				je	.L667
 2388             %while pending > 0 %cycle
				movq	(%rsp), %r10
				movl	$13, %edi
				call	FAULT.6666
		.LVL648:
		.L666:
				movl	$65535, %ebx
 2389                 pop lit;  fault(10) %if lit&(\15) # 0; ! too big
				testl	%eax, %eax
				jle	.L864
				leaq	112(%rsp), %rbp
				jmp	.L670
		.LVL650:
		.L669:
				cmpl	$0, 136(%rsp)
				jle	.L667
		.LVL652:
		.L670:
				movq	%rbp, %r10
				call	POPLIT.7651
		.LVL653:
 2390                 j = 1<<lit
				movl	LIT.6490(%rip), %ecx
				movl	$1, %eax
				sall	%cl, %eax
		.LVL655:
 2391                 dubious = 1 %if n&j # 0
				movq	%r12, %r10
				movl	$10, %edi
				call	FAULT.6666
		.LVL654:
		.L668:
				testl	%eax, %eax
				sete	%dl
				movzbl	%dl, %edx
				testl	%ebx, %edx
				jne	.L669
 2392                 n = n!j;                               ! construct bit mask
				orl	%eax, %ebx
		.LVL651:
				movl	$1, DUBIOUS.6477(%rip)
				jmp	.L669
		.LVL656:
		.L864:
 2393             %repeat
 2394             op('o', n);  op(',', label)
				movq	(%rsp), %r14
				movq	8(%r14), %r10
				movl	%ebx, %esi
				movl	$111, %edi
				call	OP.6530
		.LVL658:
 2395             lmode = then!1;  ->stcy
				movl	24(%r14), %esi
				movq	8(%r14), %r10
				movl	$44, %edi
				call	OP.6530
		.LVL659:
				movl	$5, 120(%rsp)
				jmp	.L662
		.LVL660:
		.L671:
 2396
 2397 c(104):     op('J', tag(x)_index);                     ! l
 2398             inhibit = 1;            ->atop
				movq	(%rsp), %rbx
		.LVL661:
				movq	8(%rbx), %rax
				movslq	X.6415(%rip), %rdx
				leaq	(%rdx,%rdx,2), %rdx
				movq	%rax, %r10
				movl	49056(%rax,%rdx,8), %esi
				movl	$74, %edi
				call	OP.6530
		.LVL662:
				movl	$1, 20(%rbx)
 2399 c(149):     stats = stats-1;                           ! lab
				jmp	.L595
		.LVL663:
		.L672:
 2400             access = 1;  inhibit = 1
				subl	$1, STATS.6431(%rip)
				movq	(%rsp), %rax
				movl	$1, 36(%rax)
 2401             op('L', tag(x)_index);  ->top
				movl	$1, 20(%rax)
				movq	8(%rax), %rax
				movslq	X.6415(%rip), %rdx
				leaq	(%rdx,%rdx,2), %rdx
				movq	%rax, %r10
				movl	49056(%rax,%rdx,8), %esi
				movl	$76, %edi
				call	OP.6530
		.LVL664:
				jmp	.L879
		.L673:
 2402
 2403 c(63):      j = dmin;  l = label-3;                    ! exit, continue
 2404             %cycle
				movq	(%rsp), %rcx
				movl	52(%rcx), %ebx
		.LVL665:
 2405                 fault(7) %and ->top %if dict(j) < 0
				movl	24(%rcx), %eax
				movl	%eax, 92(%rsp)
				subl	$3, %eax
				movl	%eax, 16(%rcx)
				leal	-1(%rbx), %edx
				movq	8(%rcx), %r10
				movslq	%edx, %rax
				movl	25044(%r10,%rax,4), %eax
				testl	%eax, %eax
				js	.L674
				movslq	%ebx, %rax
				movl	25044(%r10,%rax,4), %eax
				testl	%eax, %eax
				js	.L674
		.L677:
				movl	%edx, %ebx
		.LVL668:
		.L676:
 2406                 %exit %if dict(j)&1 = 0
				testb	$1, %al
				je	.L902
				movq	(%rsp), %rdx
		.L675:
				testb	$1, %al
				je	.L676
				movq	(%rsp), %r10
				movl	$7, %edi
				call	FAULT.6666
		.LVL670:
				jmp	.L879
		.L903:
 2407                 j = j+1;  l = l-3
				leal	1(%rbx), %ecx
		.LVL666:
				movl	%ecx, %ebx
				jmp	.L675
		.LVL667:
		.L902:
 2408             %repeat
				subl	$3, 16(%rdx)
		.LDL42:
 2409             l = l+1 %if x = 32;                        ! continue
				movl	X.6415(%rip), %ebp
				cmpl	$32, %ebp
				je	.L903
		.L678:
 2410             op('F', l)
				movq	(%rsp), %r14
				movl	16(%r14), %esi
				movl	$70, %edi
				call	OP.6530
		.LVL669:
				movslq	%ebx, %rbx
				movq	8(%r14), %rax
				movq	(%rsp), %rax
				addl	$1, 16(%rax)
				jmp	.L678
		.LVL671:
		.L679:
 2411             dict(j) = dict(j)!x;                       ! show given
				orl	%ebp, 25044(%rax,%rbx,4)
 2412             ->atop
				jmp	.L595
		.L674:
 2413
 2414 c(50):      add char( 'C' );          ->cop;           ! acomp
 2415 c(49):
				movq	(%rsp), %rax
				movq	8(%rax), %r10
				movl	$67, %edi
				call	ADDCHAR.6526
		.LVL672:
				jmp	.L683
		.L681:
 2416             %if next # 0 %start;                       ! comparator
				cmpl	$0, 148(%rsp)
				je	.L682
 2417                 add char( '"' )
				movq	(%rsp), %rax
				movq	8(%rax), %r10
				movl	$34, %edi
				call	ADDCHAR.6526
		.LVL673:
 2418                 push(0);                               ! double sided
				leaq	112(%rsp), %r10
				movl	$0, %edi
				call	PUSH.7656
		.LVL674:
				jmp	.L683
		.L682:
 2419             %finish %else %start
 2420                 add char( '?' )
				movq	(%rsp), %rax
				movq	8(%rax), %r10
				movl	$63, %edi
				call	ADDCHAR.6526
		.LVL675:
				jmp	.L683
		.L687:
		.L689:
 2421             %finish
 2422
 2423 cop:        x = x!!1 %if cnest(cp)&2 # 0;              ! invert the condition
 2424             j = cp;  l = clab
				movl	128(%rsp), %edx
		.LVL875:
 2425             %while cnest(j)&4 = 0 %cycle
				movl	X.6415(%rip), %edi
				xorl	$1, %edi
				movl	%edi, X.6415(%rip)
		.LDL49:
				movl	124(%rsp), %ecx
				movq	(%rsp), %rax
				movl	%ecx, 16(%rax)
 2426                 j = j-1;  l = l-cnest(j)&1
				movslq	%edx, %rax
				leaq	CNEST.7532(%rip), %rsi
				testb	$1, (%rsi,%rax)
				jne	.L684
				subl	$1, %edx
		.LVL876:
				testb	%al, %al
				je	.L685
				movq	(%rsp), %rax
				movl	%ecx, 16(%rax)
		.L684:
 2427             %repeat
				movq	%rsi, %r8
		.L685:
				movslq	%edx, %rax
				movzbl	(%r8,%rax), %eax
				andl	$1, %eax
				movzbl	%al, %esi
				subl	%esi, %ecx
		.LDL50:
 2428             op(cc(x), l)
				movq	(%rsp), %rax
				movl	16(%rax), %esi
				movslq	%edi, %rdi
				movzbl	5866(%rsp,%rdi), %edi
				movq	8(%rax), %r10
				call	OP.6530
		.LVL877:
 2429             def lab(clab+1) %if cnest(cp)&1 # 0
 2430             cp = cp-1
				movl	124(%rsp), %eax
				leal	1(%rax), %edi
				leaq	112(%rsp), %r10
				call	DEFLAB.7558
		.LVL878:
		.L686:
				movl	128(%rsp), %eax
				subl	$1, %eax
				movl	%eax, 128(%rsp)
 2431             clab = clab-cnest(cp)&1
				cltq
				leaq	CNEST.7532(%rip), %rdx
				movzbl	(%rdx,%rax), %eax
				andl	$1, %eax
				subl	%eax, 124(%rsp)
 2432             ->top
				jmp	.L879
		.L845:
 2433
 2434 c(78):      ;                                          ! fresult
 2435 c(79):      ;                                          ! mresult
 2436 c(80):      open = 0;                                  ! return, true, false
 2437 c(82):      access = 0;                                ! stop
				movq	(%rsp), %rax
				movl	$0, 32(%rax)
		.L690:
 2438 c(89):      ;                                          ! addop
				movq	(%rsp), %rax
				movl	$0, 36(%rax)
		.L692:
 2439 c(81):      add char( x );              ->top;         ! monitor
 2440 c(65):      pop lit;  op('e', lit);     ->atop;        ! signal
				movzbl	X.6415(%rip), %edi
				movq	(%rsp), %rax
				movq	8(%rax), %r10
				call	ADDCHAR.6526
		.LVL676:
				jmp	.L879
		.L688:
				jmp	.L689
		.L691:
				jmp	.L692
		.L693:
 2441 c(51):      add char( 'S' );            ->top;         ! eq
				leaq	112(%rsp), %r10
				call	POPLIT.7651
		.LVL677:
 2442 c(53):      add char( 'j' );            ->top;         ! jam transfer
				movq	(%rsp), %rax
				movq	8(%rax), %r10
				movl	LIT.6490(%rip), %esi
				movl	$101, %edi
				call	OP.6530
		.LVL678:
				jmp	.L595
		.L694:
				movq	(%rsp), %rax
				movq	8(%rax), %r10
				movl	$83, %edi
				call	ADDCHAR.6526
		.LVL679:
				jmp	.L879
		.L695:
 2443 c(52):      add char( 'Z' );            ->top;         ! eqeq
				movq	(%rsp), %rax
				movq	8(%rax), %r10
				movl	$106, %edi
				call	ADDCHAR.6526
		.LVL680:
				jmp	.L879
		.L696:
 2444 c(74):      %if level = 0 %start;                      ! begin
				movq	(%rsp), %rax
				movq	8(%rax), %r10
				movl	$90, %edi
				call	ADDCHAR.6526
		.LVL681:
				jmp	.L879
		.L697:
 2445                 %if progmode <= 0 %then progmode = 1 %else fault(7)
				movq	(%rsp), %rax
				cmpl	$0, 60(%rax)
				jne	.L700
				cmpl	$0, PROGMODE.6469(%rip)
				jg	.L699
 2446                 !{Permit BEGIN after external defs}
				movl	$1, PROGMODE.6469(%rip)
		.L698:
		.L700:
 2447             %finish
 2448             spec mode = level+1
				movq	(%rsp), %rbx
		.LVL682:
				movl	60(%rbx), %eax
				movl	%eax, 96(%rsp)
				addl	$1, %eax
				movl	%eax, SPECMODE.6471(%rip)
 2449             block x = 0
				movl	$0, BLOCKX.6492(%rip)
				movq	(%rsp), %r10
				movl	$7, %edi
				call	FAULT.6666
		.LVL685:
				jmp	.L700
		.L701:
 2450             add char( 'H' )
				movq	8(%rbx), %r10
				movl	$72, %edi
				call	ADDCHAR.6526
		.LVL683:
				jmp	.L557
		.LVL684:
		.L699:
 2451             %return
 2452 c(77):      perm = 0;  lines = 0;  stats = 0;          ! endofperm
 2453             close input
				movl	$0, PERM.6468(%rip)
 2454             select input(source)
				movl	$0, LINES.6425(%rip)
 2455             list = list-1
				movl	$0, STATS.6431(%rip)
		.LBB611:
		.LBB612:
				call	_imp_closeinput@PLT
		.LVL686:
		.LBE612:
		.LBE611:
		.LBB613:
		.LBB614:
				movl	$1, _imp_InStream(%rip)
				movq	296+_imp_infile(%rip), %rax
				movq	%rax, _imp_InFile(%rip)
				leaq	__PRETTY_FUNCTION__.5987(%rip), %rdi
				call	check_instream@PLT
		.LVL687:
		.LBE614:
		.LBE613:
				subl	$1, LIST.6493(%rip)
 2456             tbase = tmax;  tstart = tmax
				movq	(%rsp), %rbx
		.LVL688:
				movl	64(%rbx), %eax
				movl	%eax, 68(%rbx)
 2457             %return
				movl	%eax, 72(%rbx)
				jmp	.L557
		.LVL689:
		.L702:
 2458 c(76):      %if include # 0 %and x = 0 %start;         ! end of ...
 2459                 lines = include;  sstype =  0;         ! include
				movl	INCLUDE.6467(%rip), %eax
				testl	%eax, %eax
				je	.L703
				movl	%eax, LINES.6425(%rip)
 2460                 close input
				cmpl	$0, X.6415(%rip)
				je	.L904
		.L703:
				movl	$0, SSTYPE.6470(%rip)
		.LBB619:
		.LBB620:
				call	_imp_closeinput@PLT
		.LVL695:
		.LBE620:
		.LBE619:
 2461                 list = include list
				movl	INCLUDELIST.6465(%rip), %eax
				movl	%eax, LIST.6493(%rip)
 2462                 include level = 0
				movl	$0, INCLUDELEVEL.6466(%rip)
 2463                 include = 0;  select input(source);  %return
				movl	$0, INCLUDE.6467(%rip)
		.LVL696:
		.LBB621:
		.LBB622:
				movl	$1, _imp_InStream(%rip)
				movq	296+_imp_infile(%rip), %rax
				movq	%rax, _imp_InFile(%rip)
				leaq	__PRETTY_FUNCTION__.5987(%rip), %rdi
				call	check_instream@PLT
		.LVL697:
				jmp	.L557
		.LVL698:
		.L705:
		.LBE622:
		.LBE621:
		.LBB623:
		.LBB617:
 2464             %finish
 2465             ss = -1;                                   ! prog/file
				movl	$-1, SS.6463(%rip)
		.L704:
 2466 c(75):      compile end(x);  %return;                  ! %end
 2467
				movl	X.6415(%rip), %ebx
		.LVL690:
		.LBB615:
		.LBB616:
 2468 c(85):      %if x=0 %then control=lit %else %start;    ! control
 2469                 diag = lit&16_3FFF %if lit>>14&3 = 1
 2470             %finish
 2471             op('z'-x, lit)
				movl	$122, %edi
				subl	X.6415(%rip), %edi
				movq	(%rsp), %rax
				movq	8(%rax), %r10
				movl	LIT.6490(%rip), %esi
				call	OP.6530
		.LVL704:
				jmp	.L879
		.L717:
 2472             ->top
 2473 c(83):      list = list+x-2;   ->top;                  ! %LIST/%endoflist
 2474 c(84):      reals ln = x;      ->top;                  ! %REALS long/normal
				movl	X.6415(%rip), %eax
				addl	LIST.6493(%rip), %eax
				subl	$2, %eax
				movl	%eax, LIST.6493(%rip)
 2475 c(86):      %if include # 0 %start;                    ! include "file"
				jmp	.L879
		.L718:
				movl	X.6415(%rip), %eax
				movl	%eax, REALSLN.6446(%rip)
 2476                 fault(7);  %return
				jmp	.L879
		.L719:
				cmpl	$0, INCLUDE.6467(%rip)
				je	.L720
				movq	(%rsp), %r10
				movl	$7, %edi
				call	FAULT.6666
		.LVL705:
				jmp	.L557
		.L720:
 2477             %finish
 2478             get next;                                  ! sconst
				leaq	112(%rsp), %r10
				call	GETNEXT.7561
		.LVL706:
 2479             x = x-16_4000
				movl	X.6415(%rip), %eax
				subl	$16384, %eax
				movl	%eax, X.6415(%rip)
		.LVL707:
 2480             j = glink(x)
				cltq
		.LVL708:
 2481             k = j&255
				leaq	GLINK.6510(%rip), %rdx
				movzbl	(%rdx,%rax,2), %ebx
		.LVL709:
 2482             !ABD - another little copy loop because SKIMP can't do the string map
 2483             include file = ""
 2484             %cycle
 2485                 k = k-1; %exit %if k < 0
				leaq	736(%rsp), %rsi
				movq	(%rsp), %rax
		.LVL710:
				movq	8(%rax), %rcx
				movq	%rcx, 104(%rsp)
				leaq	135300(%rcx), %rdi
				movl	$63, %edx
				call	_imp_strncpy@PLT
		.LVL711:
		.LBB624:
		.LBB625:
 2486                 include file = include file.tostring(j>>8)
				movl	%ebx, %eax
				subl	$1, %eax
				js	.L722
		.L723:
		.LVL713:
		.LBB630:
		.LBB626:
 2487                 x = x+1
				addl	$1, X.6415(%rip)
		.LVL716:
 2488                 j = glink(x)
				leaq	1248(%rsp), %r13
				leaq	1504(%rsp), %r12
		.LBE625:
		.LBE624:
				leaq	992(%rsp), %rbp
		.LBB627:
		.LBB628:
				movq	8(%rbp), %rax
				leaq	135300(%rax), %rsi
				movq	%r12, %rdx
				movq	%r13, %rdi
				call	_imp_join@PLT
		.LVL714:
		.LBE626:
		.LBE630:
				movq	8(%rbp), %rax
				leaq	135300(%rax), %rdi
				movl	$63, %edx
				movq	%r14, %rsi
				call	_imp_strncpy@PLT
		.LVL715:
 2489                 k = k-1; %exit %if k < 0
 2490                 include file = include file.tostring(j&255)
				subl	$2, %ebx
		.LVL717:
				js	.L722
		.L724:
		.LBB631:
		.LBB629:
 2491             %repeat
 2492             ! include file = string(x-16_4000+stbase)
				leaq	2016(%rsp), %r14
				movq	%r14, %r15
				movq	%rbp, %r14
				movq	(%rsp), %rbp
		.L721:
		.LVL712:
		.LBE628:
		.LBE627:
				leaq	2272(%rsp), %rdx
				movq	8(%rbp), %rax
				leaq	135300(%rax), %rsi
				movq	%r15, %rdi
				call	_imp_join@PLT
		.LVL718:
		.LBE629:
		.LBE631:
				leaq	1760(%rsp), %rsi
				movq	8(%rbp), %rax
				leaq	135300(%rax), %rdi
				movl	$63, %edx
				call	_imp_strncpy@PLT
		.LVL719:
				jmp	.L721
		.LVL720:
		.L722:
 2493             ! remove this event block for SKIMP or pre-event IMP versions
 2494             %begin
 2495                 %on 9 %start;  Abandon(9);  %finish
				movl	$1, %esi
				leaq	536+_imp_event(%rip), %rdi
				call	__sigsetjmp@PLT
		.LVL721:
				testl	%eax, %eax
				jne	.L727
		.LVL722:
				movl	$512, %esi
				leaq	_imp_event(%rip), %rdi
				call	_imp_on_event_enter@PLT
		.LVL723:
				testq	%rax, %rax
				jne	.L728
		.LVL724:
		.L727:
 2496                 open input(3, include file)
				movq	(%rsp), %rax
				movq	8(%rax), %r10
				movl	$9, %edi
				call	ABANDON.6563
		.LVL725:
		.L728:
				movdqa	2528(%rsp), %xmm2
				movaps	%xmm2, 5600(%rsp)
				movdqa	2544(%rsp), %xmm3
				movaps	%xmm3, 5616(%rsp)
				movdqa	2560(%rsp), %xmm4
				movaps	%xmm4, 5632(%rsp)
				movdqa	2576(%rsp), %xmm5
				movaps	%xmm5, 5648(%rsp)
				movdqa	2592(%rsp), %xmm7
				movaps	%xmm7, 5664(%rsp)
				movdqa	2608(%rsp), %xmm2
				movaps	%xmm2, 5680(%rsp)
				movdqa	2624(%rsp), %xmm3
				movaps	%xmm3, 5696(%rsp)
				movdqa	2640(%rsp), %xmm4
				movaps	%xmm4, 5712(%rsp)
				movdqa	2656(%rsp), %xmm5
				movaps	%xmm5, 5728(%rsp)
				movdqa	2672(%rsp), %xmm7
				movaps	%xmm7, 5744(%rsp)
				movq	2688(%rsp), %r13
				movq	2696(%rsp), %r14
				movq	%r13, 5760(%rsp)
				movq	%r14, 5768(%rsp)
				movq	2704(%rsp), %rax
				movq	2712(%rsp), %rdx
				movq	%rax, 5776(%rsp)
				movq	%rdx, 5784(%rsp)
				movq	2720(%rsp), %rcx
				movq	2728(%rsp), %rbx
				movq	%rcx, 5792(%rsp)
				movq	%rbx, 5800(%rsp)
				movq	2736(%rsp), %rsi
				movq	2744(%rsp), %rdi
				movq	%rsi, 5808(%rsp)
				movq	%rdi, 5816(%rsp)
				movq	2752(%rsp), %r9
				movq	2760(%rsp), %r10
				movq	%r9, 5824(%rsp)
				movq	%r10, 5832(%rsp)
				movq	2768(%rsp), %r11
				movq	2776(%rsp), %r12
				movq	%r11, 5840(%rsp)
				movq	%r12, 5848(%rsp)
		.LBB632:
		.LBB633:
				pushq	%r12
				pushq	%r11
				pushq	%r10
				pushq	%r9
				pushq	%rdi
				pushq	%rsi
				pushq	%rbx
				pushq	%rcx
				pushq	%rdx
				pushq	%rax
				pushq	%r14
				pushq	%r13
				pushq	2776(%rsp)
				pushq	2776(%rsp)
				pushq	2776(%rsp)
				pushq	2776(%rsp)
				pushq	2776(%rsp)
				pushq	2776(%rsp)
				pushq	2776(%rsp)
				pushq	2776(%rsp)
				pushq	2776(%rsp)
				pushq	2776(%rsp)
				pushq	2776(%rsp)
				pushq	2776(%rsp)
				pushq	2776(%rsp)
				pushq	2776(%rsp)
				pushq	2776(%rsp)
				pushq	2776(%rsp)
				pushq	2776(%rsp)
				pushq	2776(%rsp)
				pushq	2776(%rsp)
				pushq	2776(%rsp)
				movl	$3, %edi
				call	_imp_openinput@PLT
		.LVL726:
				addq	$256, %rsp
		.L729:
		.LVL727:
		.LBE633:
		.LBE632:
 2497             %end
 2498             include = lines;  lines = 0
				movl	LINES.6425(%rip), %eax
				movl	%eax, INCLUDE.6467(%rip)
 2499             include list = list;  include level = level
				movl	$0, LINES.6425(%rip)
				movl	LIST.6493(%rip), %eax
				movl	%eax, INCLUDELIST.6465(%rip)
 2500             select input(3)
				movq	(%rsp), %rax
				movl	60(%rax), %eax
				movl	%eax, INCLUDELEVEL.6466(%rip)
		.LVL728:
		.LBB634:
		.LBB635:
				movl	$3, _imp_InStream(%rip)
				movq	872+_imp_infile(%rip), %rax
				movq	%rax, _imp_InFile(%rip)
				leaq	__PRETTY_FUNCTION__.5987(%rip), %rdi
				call	check_instream@PLT
		.LVL729:
				jmp	.L879
		.LVL730:
		.L730:
		.LBE635:
		.LBE634:
 2501             ->top
 2502
 2503 c(154):     dimension = dimension+1;                   ! dbsep
 2504             fault(11) %if dimension = dim limit+1
				movl	DIMENSION.6482(%rip), %eax
				addl	$1, %eax
				movl	%eax, DIMENSION.6482(%rip)
				cmpl	$7, %eax
				jne	.L879
 2505             ->top
				movq	(%rsp), %r10
				movl	$11, %edi
				call	FAULT.6666
		.LVL731:
				jmp	.L879
		.L731:
 2506 c(145):     set bp;                       ->top;       ! crb
 2507 c(146):     set bp;                                    ! rcrb
				leaq	112(%rsp), %r10
				call	SETBP.7590
		.LVL732:
				jmp	.L879
		.L732:
 2508 c(142):     ;                                          ! bplrb
				leaq	112(%rsp), %r10
				call	SETBP.7590
		.LVL733:
		.L733:
 2509             dimension = 1 %if dimension = 0
				cmpl	$0, DIMENSION.6482(%rip)
				jne	.L734
 2510             op('d', dimension);  op(',', defs)
				movl	$1, DIMENSION.6482(%rip)
		.L734:
				movq	(%rsp), %rbx
		.LVL734:
				movq	8(%rbx), %r10
				movl	DIMENSION.6482(%rip), %esi
				movl	$100, %edi
				call	OP.6530
		.LVL735:
 2511             %if class # 146 %start
				movq	8(%rbx), %r10
				movl	132(%rsp), %esi
				movl	$44, %edi
				call	OP.6530
		.LVL736:
				cmpl	$146, 140(%rsp)
				jne	.L907
		.L735:
		.L737:
 2512                 set subs(defs)
				leaq	112(%rsp), %r10
				movl	132(%rsp), %edi
				call	SETSUBS.7584
		.LVL737:
 2513                 fault(13) %if dict(dmin) >= 0 %or inhibit # 0 %or level=0
				movq	8(%rbx), %rdx
				movl	52(%rbx), %eax
				movl	%eax, 100(%rsp)
				subl	$1, %eax
				cltq
				cmpl	$0, 25044(%rdx,%rax,4)
				jns	.L736
 2514             %finish
				cmpl	$0, 20(%rbx)
				jne	.L736
 2515             dimension = 0;  defs = 0
				movl	$0, DIMENSION.6482(%rip)
				cmpl	$0, 60(%rbx)
				jne	.L737
		.L736:
 2516             ->top
				movl	$0, 132(%rsp)
				jmp	.L879
		.L907:
 2517 c(128):     id = dupid;  ->top;                        ! EDUP
				movq	(%rsp), %r10
				movl	$13, %edi
				call	FAULT.6666
		.LVL738:
				jmp	.L737
		.LVL739:
		.L738:
 2518 c(130):     block x = x
				movq	(%rsp), %rax
				movl	60(%rsp), %ebx
		.LVL740:
				movl	%ebx, 56(%rax)
 2519             op('F', 0) %if decl&spec = 0 %and level # 0; ! jump round proc
				jmp	.L879
		.LVL741:
		.L739:
				movl	X.6415(%rip), %eax
				movl	%eax, BLOCKX.6492(%rip)
				testb	$1, DECL.6439(%rip)
				jne	.L742
 2520 c(125):     dupid = id;                                ! %DUP
				movq	(%rsp), %rax
				cmpl	$0, 60(%rax)
				jne	.L908
 2521             %return %if Level < 0;                     ! {spec about}
				movq	(%rsp), %rax
				movl	56(%rax), %eax
				movl	%eax, 60(%rsp)
		.LVL742:
				jmp	.L744
		.LVL743:
		.L908:
				movq	8(%rax), %r10
				movl	$0, %esi
				movl	$70, %edi
				call	OP.6530
		.LVL744:
		.L740:
		.L742:
				movq	(%rsp), %rax
				movl	56(%rax), %ebx
		.LVL745:
				movl	%ebx, 60(%rsp)
		.LVL746:
				cmpl	$0, 60(%rax)
				js	.L557
		.L743:
		.LVL747:
		.L744:
 2522 c(90):      def(x);  ->top;                            ! ident
 2523 c(131):     ;                                          ! cident
				leaq	112(%rsp), %r10
				movl	X.6415(%rip), %edi
				call	DEF.7608
		.LVL748:
				jmp	.L879
		.LVL749:
		.L745:
 2524             %if tag(x)_flags&(2_1111111+const bit) = iform+const bit %start
				movl	X.6415(%rip), %ebx
		.LVL750:
				movq	(%rsp), %rax
				movq	8(%rax), %r10
				movslq	%ebx, %rax
				leaq	(%rax,%rax,2), %rax
				testb	$1, 49052(%r10,%rax,8)
				jne	.L746
 2525                 tag(x)_format = lit
				movl	LIT.6490(%rip), %edx
				movl	%edx, 49048(%r10,%rax,8)
 2526             %finish %else %start
				jmp	.L879
		.L746:
 2527                 set const(lit) %if pending # 0
				cmpl	$0, 136(%rsp)
				je	.L747
 2528                 def(x)
				movl	LIT.6490(%rip), %edi
				call	SETCONST.6533
		.LVL751:
		.L747:
				leaq	112(%rsp), %r10
				movl	%ebx, %edi
				call	DEF.7608
		.LVL752:
 2529                 op('A', 1)
				movq	(%rsp), %rax
				movq	8(%rax), %r10
				movl	$1, %esi
				movl	$65, %edi
				call	OP.6530
		.LVL753:
				jmp	.L879
		.LVL754:
		.L748:
 2530             %finish
 2531             cident = x
 2532             ->top
 2533 c(124):     dubious = 1 %if tag(cident)_flags&prot # 0; ! %DUBIOUS
 2534             ->top
				jmp	.L879
		.L749:
		.L752:
		.LBB636:
		.LBB637:
 2535 c(97):      ;                                          ! f
				movl	$1, DUBIOUS.6477(%rip)
		.LDL46:
 2536 c(98):      ;                                          ! m
 2537 c(99):      ;                                          ! p
 2538 c(96):      call;  ->top;                              ! r
 2539 c(165):     ;                                          ! nlab
 2540 c(100):     ;                                          ! rp
 2541 c(101):     ;                                          ! fp
 2542 c(102):     ;                                          ! mp
 2543 c(103):     ;                                          ! pp
 2544 c(91):      ;                                          ! v
 2545 c(92):      ;                                          ! n
 2546 c(106):     ;                                          ! a
 2547 c(107):     ;                                          ! an
 2548 c(108):     ;                                          ! na
 2549 c(109):     ;                                          ! nan
 2550             k = tag(x)_index
				movq	(%rsp), %rax
				movq	8(%rax), %r10
				movslq	X.6415(%rip), %rax
				leaq	(%rax,%rax,2), %rax
				movl	49056(%r10,%rax,8), %esi
		.LVL760:
 2551             %if k < 0 %then op('n', -k) %else op('@', k)
				testl	%esi, %esi
				js	.L909
		.L764:
 2552             ->top
				negl	%esi
		.LVL763:
				movl	$110, %edi
				call	OP.6530
		.LVL764:
				jmp	.L879
		.L765:
 2553 c(121):     set const(0);                   ->top;     ! special for zero
 2554 c(167):     add char( 'G' );                ->pstr;    ! aconst (alias)
				movq	(%rsp), %rax
				movq	8(%rax), %r10
				movl	$0, %edi
				call	SETCONST.6533
		.LVL765:
				jmp	.L879
		.L766:
 2555 c(const):   ;                                          ! const
				movl	$64, %edi
				call	OP.6530
		.LVL761:
				jmp	.L879
		.L759:
				jmp	.L763
		.L760:
				jmp	.L763
		.L761:
				jmp	.L763
		.L762:
				jmp	.L763
		.LVL762:
		.L909:
				movq	(%rsp), %rax
				movq	8(%rax), %r10
				movl	$71, %edi
				call	ADDCHAR.6526
		.LVL766:
		.L767:
 2556             %if x < 0 %start;                          ! constinteger
				movl	X.6415(%rip), %eax
				testl	%eax, %eax
				js	.L910
		.L769:
 2557                 set const(tag(-x)_format);  ->top
				movq	(%rsp), %rbx
		.LVL777:
				movq	8(%rbx), %rdx
				negl	%eax
				cltq
				leaq	(%rax,%rax,2), %rax
				movq	%rdx, %r10
				movl	49048(%rdx,%rax,8), %edi
				call	SETCONST.6533
		.LVL778:
				jmp	.L879
		.LVL779:
		.L773:
 2558             %finish
 2559             %if x&16_4000 # 0 %start;                  ! strings
 2560                 add char( '''' )
				movq	(%rsp), %rax
				movq	8(%rax), %r10
				movl	$39, %edi
				call	ADDCHAR.6526
		.LVL776:
				jmp	.L767
		.L910:
 2561 pstr:           x = x-16_4000
 2562                 j = glink(x)
				movl	X.6415(%rip), %eax
				subl	$16384, %eax
				movl	%eax, X.6415(%rip)
				cltq
				leaq	GLINK.6510(%rip), %rdx
				movzwl	(%rdx,%rax,2), %eax
				movswl	%ax, %r12d
		.LVL767:
 2563                 k = j&255
				movzbl	%al, %ebx
		.LVL768:
 2564                 add char( k )
				movl	%ebx, %edi
				movq	(%rsp), %r13
				movq	8(%r13), %r10
				call	ADDCHAR.6526
		.LVL769:
 2565                 %cycle
 2566                     k = k-1; ->top %if k < 0
 2567                     add char( j>>8 );
				movl	%ebx, %eax
				subl	$1, %eax
				js	.L879
		.L771:
				movl	%r12d, %eax
				movzbl	%ah, %edi
				movq	8(%r13), %r10
				call	ADDCHAR.6526
		.LVL771:
 2568                     x = x+1
				movl	X.6415(%rip), %eax
				addl	$1, %eax
				movl	%eax, X.6415(%rip)
 2569                     j = glink(x)
				leaq	GLINK.6510(%rip), %rbp
		.L770:
		.LVL770:
				cltq
				movzwl	0(%rbp,%rax,2), %edi
				movswl	%di, %r12d
		.LVL772:
 2570                     k = k-1; ->top %if k < 0
 2571                     add char( j&255 )
				subl	$2, %ebx
		.LVL773:
				js	.L879
		.L772:
				movzbl	%dil, %edi
				movq	8(%r13), %r10
				call	ADDCHAR.6526
		.LVL774:
				jmp	.L770
		.LVL775:
		.L768:
 2572                 %repeat
 2573             %finish
 2574             %if x&16_2000 # 0 %start;                  ! real - ABD also string-like, but NOT packed
 2575                 x = x-16_2000
 2576                 k = glink(x)
 2577                 op('D', k);  add char( ',' )
 2578                 %cycle
 2579                     ->top %if k = 0
 2580                     k = k-1
 2581                     x = x+1;  j = glink(x)
 2582                     %if j = '@' %start
 2583                         op('@', litpool(glink(x+1)));  ->top
 2584                     %finish
 2585                     add char( j )
 2586                 %repeat
 2587             %finish
 2588             set const(lit pool(x))
 2589             ->top
 2590
 2591 c(137):     add char( 'i' );                ->top;     ! asep
 2592 c(141):     add char( 'a' );                ->top;     ! arb
				movq	(%rsp), %rax
				movq	8(%rax), %r10
				movl	$105, %edi
				call	ADDCHAR.6526
		.LVL780:
				jmp	.L879
		.L774:
 2593
				movq	(%rsp), %rax
				movq	8(%rax), %r10
				movl	$97, %edi
				call	ADDCHAR.6526
		.LVL781:
				jmp	.L879
		.L775:
 2594             !own arrays
 2595 c(132):     ocount = ub-lb+1
 2596             def(x);                                    ! oident
				movl	UB.7539(%rip), %eax
				subl	LB.7538(%rip), %eax
				addl	$1, %eax
				movl	%eax, OCOUNT.6472(%rip)
				leaq	112(%rsp), %rbx
		.LVL782:
				movq	%rbx, %r10
				movl	X.6415(%rip), %edi
				call	DEF.7608
		.LVL783:
 2597             dimension = 1;  set subs(1)
				movl	$1, DIMENSION.6482(%rip)
 2598             %if next = 0 %start;                       ! no initialisation
				movq	%rbx, %r10
				movl	$1, %edi
				call	SETSUBS.7584
		.LVL784:
				cmpl	$0, 148(%rsp)
				jne	.L776
 2599                 op('A', ocount) %if ocount > 0
				movl	OCOUNT.6472(%rip), %esi
				testl	%esi, %esi
				jg	.L911
		.L777:
 2600                 ocount = -1
				movl	$-1, OCOUNT.6472(%rip)
				movq	(%rsp), %rax
				movq	8(%rax), %r10
				movl	$65, %edi
				call	OP.6530
		.LVL785:
				jmp	.L777
		.L776:
 2601             %finish %else %start;                      ! initialisation given
				jmp	.L879
		.L911:
 2602                 get next
				leaq	112(%rsp), %r10
				call	GETNEXT.7561
		.LVL786:
				jmp	.L879
		.LVL787:
		.L778:
 2603             %finish
 2604             ->top
 2605 c(162):     lit = ocount;  ->ins;                      ! indef
 2606 c(143):     pop lit;                                   ! orb
				movl	OCOUNT.6472(%rip), %eax
				movl	%eax, LIT.6490(%rip)
		.L779:
 2607 ins:        fault(10) %and lit = 0 %if lit < 0
				leaq	112(%rsp), %r10
				call	POPLIT.7651
		.LVL794:
				jmp	.L779
		.L912:
 2608             get next
				cmpl	$0, LIT.6490(%rip)
				js	.L912
		.L781:
				leaq	112(%rsp), %r10
				call	GETNEXT.7561
		.LVL788:
		.L782:
 2609             ->inst
				movq	(%rsp), %r10
				movl	$10, %edi
				call	FAULT.6666
		.LVL795:
 2610 c(139):     ;                                          ! osep (x=19)
				movl	$0, LIT.6490(%rip)
				jmp	.L781
		.L783:
		.L784:
 2611 c(153):     lit = 1
 2612 inst:       pop def %if pending # 0;                   ! ownt (x=0)
				movl	$1, LIT.6490(%rip)
				jmp	.L782
		.LVL796:
		.L913:
 2613             op('A', lit)
				movl	136(%rsp), %eax
				testl	%eax, %eax
				je	.L785
		.LBB638:
		.LBB639:
				movl	LIT.6490(%rip), %ebx
		.LVL790:
				movq	(%rsp), %rax
				movq	8(%rax), %r10
				movl	%ebx, %esi
				movl	$65, %edi
				call	OP.6530
		.LVL791:
 2614             ocount = ocount-lit
				movl	OCOUNT.6472(%rip), %eax
				subl	%ebx, %eax
				movl	%eax, OCOUNT.6472(%rip)
 2615             %if ocount >= 0 %start
				testl	%eax, %eax
				js	.L788
 2616                 ->top %if x # 0;                       ! more coming
				cmpl	$0, X.6415(%rip)
				jne	.L879
		.L787:
 2617                 ocount = -1 %and %return %if ocount = 0; ! all done
				testl	%eax, %eax
				je	.L913
		.L786:
		.L788:
 2618             %finish
				movl	$-1, OCOUNT.6472(%rip)
 2619             fault(11);  %return
				movq	(%rsp), %r10
				movl	$11, %edi
				call	FAULT.6666
		.LVL792:
				jmp	.L557
		.LVL793:
		.L780:
				jmp	.L557
		.LVL797:
		.L789:
 2620
 2621 c(swit):    op('W', tag(x)_index);  inhibit = 1;  ->atop
 2622 c(134):     def(x);                                    ! swid
				movq	(%rsp), %rbx
		.LVL798:
				movq	8(%rbx), %rax
				movslq	X.6415(%rip), %rdx
				leaq	(%rdx,%rdx,2), %rdx
				movq	%rax, %r10
				movl	49056(%rax,%rdx,8), %esi
				movl	$87, %edi
				call	OP.6530
		.LVL799:
 2623             n = ub-lb+1
				movl	$1, 20(%rbx)
				leaq	112(%rsp), %r10
				movl	X.6415(%rip), %edi
				call	DEF.7608
		.LVL801:
				movl	UB.7539(%rip), %ecx
				subl	LB.7538(%rip), %ecx
 2624             n = (n+15)>>4;                             ! slots needed (includes zero)
				jmp	.L595
		.LVL800:
		.L790:
				addl	$16, %ecx
				shrl	$4, %ecx
				movl	%ecx, %ebp
		.LVL802:
 2625             j = dmax;  dmax = dmax+n+2
				movl	DMAX.6461(%rip), %ebx
		.LVL803:
 2626             abandon(1) %if dmax >= dmin
				leal	2(%rcx,%rbx), %eax
				movl	%eax, DMAX.6461(%rip)
				movq	(%rsp), %rcx
		.LVL804:
				cmpl	52(%rcx), %eax
				jge	.L914
		.L791:
 2627             tag(x)_format = j
				movslq	X.6415(%rip), %rax
				leaq	(%rax,%rax,2), %rax
				salq	$3, %rax
				movq	(%rsp), %rsi
				addq	8(%rsi), %rax
				movl	%ebx, 49048(%rax)
				movq	8(%rcx), %r10
				movl	$1, %edi
				call	ABANDON.6563
		.LVL809:
				jmp	.L791
		.LVL810:
		.L793:
 2628             dict(j) = lb;  dict(j+1) = ub
				movq	8(%rsi), %rdx
				leal	-1(%rbx), %eax
				cltq
				movl	LB.7538(%rip), %ecx
				movl	%ecx, 25044(%rdx,%rax,4)
 2629             %cycle
				movq	8(%rsi), %rdx
				movslq	%ebx, %rax
				movl	UB.7539(%rip), %ecx
				movl	%ecx, 25044(%rdx,%rax,4)
		.LVL805:
 2630                 n = n-1
 2631                 ->top %if n < 0
				movl	%ebp, %eax
				subl	$1, %eax
				js	.L879
				leal	(%rbx,%rbp), %ecx
		.LVL806:
		.L792:
				cmpl	%ecx, %ebx
				jne	.L792
				jmp	.L879
		.LVL808:
		.L914:
 2632                 j = j+1;  dict(j+1) = 0
				addl	$1, %ebx
		.LVL807:
 2633             %repeat
				movq	8(%rsi), %rax
				movslq	%ebx, %rdx
				movl	$0, 25044(%rax,%rdx,4)
		.LDL48:
 2634 c(151):     stats = stats-1;                           ! slab
 2635             fault(7) %and %return %if x < tbase
				subl	$1, STATS.6431(%rip)
				movl	X.6415(%rip), %eax
				movq	(%rsp), %rbx
		.LVL811:
				cmpl	68(%rbx), %eax
				jl	.L915
		.L794:
 2636             %if pending # 0 %start;                    ! explicit label
				cmpl	$0, 136(%rsp)
				jne	.L916
		.L795:
				movq	%rbx, %r10
				movl	$7, %edi
				call	FAULT.6666
		.LVL822:
				jmp	.L557
		.L916:
 2637                 def s lab(pstack(1))
				leaq	112(%rsp), %r10
				movl	PSTACK.7554(%rip), %edi
				call	DEFSLAB.7629
		.LVL823:
				jmp	.L804
		.L917:
 2638             %finish %else %start
 2639                 fault(4) %and %return %if tag(x)_app # 0
				movq	(%rsp), %rbx
				movq	8(%rbx), %rcx
				movslq	%eax, %rdx
				leaq	(%rdx,%rdx,2), %rdx
				cmpl	$0, 49044(%rcx,%rdx,8)
				jne	.L917
		.L797:
 2640                 tag(x)_app = 1
				cltq
				leaq	(%rax,%rax), %rdx
				leaq	(%rdx,%rax), %rsi
				movl	$1, 49044(%rcx,%rsi,8)
				movq	%rbx, %r10
				movl	$4, %edi
				call	FAULT.6666
		.LVL824:
				jmp	.L557
		.LVL825:
		.L918:
		.LBB642:
 2641                 n = tag(x)_format
				movq	(%rsp), %rbx
				movq	8(%rbx), %rcx
		.LVL812:
				movslq	49048(%rcx,%rsi,8), %rax
				leaq	(%rcx,%rax,4), %rax
		.LBB640:
 2642                 %for j = dict(n), 1, dict(n+1) %cycle
 2643                     def s lab(j)
				movl	25040(%rax), %ebx
		.LVL813:
				movl	25044(%rax), %ebp
		.LVL814:
				leaq	112(%rsp), %r12
				movq	(%rsp), %r13
		.LVL817:
		.L802:
				movq	%r12, %r10
				movl	%ebx, %edi
				call	DEFSLAB.7629
		.LVL819:
 2644                     flush buffer( 128 );               ! flush if bp >= 128
				cmpl	%ebx, %ebp
				js	.L918
		.LVL815:
		.L798:
				movq	8(%r13), %r10
				movl	$128, %edi
				call	FLUSHBUFFER.6513
		.LVL820:
		.L803:
				leaq	4064(%rsp), %rdi
				leaq	.LC10(%rip), %rsi
				call	_imp_c2istr@PLT
		.LVL826:
				movl	_imp_current_line(%rip), %r12d
				testl	%r12d, %r12d
				jne	.L799
				movl	$2644, %r12d
		.L799:
				movq	_imp_current_file(%rip), %rsi
				testq	%rsi, %rsi
				je	.L800
				leaq	4320(%rsp), %rdi
				call	_imp_c2istr@PLT
		.LVL827:
		.L801:
				subq	$256, %rsp
				leaq	4320(%rsp), %rsi
				movl	$32, %ecx
				movq	%rsp, %rdi
				rep movsq
				subq	$256, %rsp
				leaq	4832(%rsp), %rsi
				movl	$32, %ecx
				movq	%rsp, %rdi
				rep movsq
				movl	$1, %edx
				movl	$5, %esi
				movl	%r12d, %edi
				call	_signal_event@PLT
		.LVL828:
				addq	$512, %rsp
				jmp	.L798
		.L800:
		.LVL829:
		.LBB641:
				movabsq	$8603403804667503988, %rax
				movabsq	$7579049594837889071, %rdx
				movq	%rax, 3553(%rsp)
				movq	%rdx, 3561(%rsp)
				movq	$28781, 3569(%rsp)
				movq	$0, 3577(%rsp)
				leaq	3585(%rsp), %rdi
				movl	$223, %ecx
				movl	$0, %eax
				rep stosb
				movb	$18, 3552(%rsp)
				leaq	2784(%rsp), %rdi
				leaq	3552(%rsp), %rsi
				movl	$32, %ecx
				rep movsq
		.LVL830:
		.LBE641:
				movb	$18, 2784(%rsp)
				leaq	4320(%rsp), %rdi
				leaq	2784(%rsp), %rsi
				movl	$32, %ecx
				rep movsq
				jmp	.L801
		.LVL831:
		.L805:
		.LBE642:
 2645                 %repeat
				subl	$1, %ebx
		.LVL816:
 2646             %finish
 2647             inhibit = 1
				cmpl	%ebx, %ebp
				je	.L804
				cmpl	%ebx, %ebp
				jne	.L802
		.L796:
		.LVL821:
		.L804:
		.LBE640:
				movq	(%rsp), %rax
				movl	$1, 20(%rax)
 2648             %return
				addl	$1, %ebx
		.LVL818:
				jmp	.L557
		.L915:
 2649
 2650 c(140):     add char( 'p' );         ->top;            ! psep
 2651 c(144):     ;                                          ! prb
				movq	(%rsp), %rax
				movq	8(%rax), %r10
				movl	$112, %edi
				call	ADDCHAR.6526
		.LVL832:
				jmp	.L879
		.L806:
 2652             add char( 'p' );
				movq	(%rsp), %rbx
		.LVL833:
				movq	8(%rbx), %r10
				movl	$112, %edi
				call	ADDCHAR.6526
		.LVL834:
 2653             add char( 'E' );         ->top
				movq	8(%rbx), %r10
				movl	$69, %edi
				call	ADDCHAR.6526
		.LVL835:
				jmp	.L879
		.LVL836:
		.L807:
 2654
 2655             !constant expressions
 2656 c(155):     ;                                          ! pconst
 2657             %if x < 0 %then lit = tag(-x)_format %else lit = lit pool(x)
				movl	X.6415(%rip), %eax
				testl	%eax, %eax
				js	.L919
		.L808:
 2658             pending = pending+1;     pstack(pending) = lit;  ->top
				movl	136(%rsp), %eax
				leal	1(%rax), %edx
				movl	%edx, 136(%rsp)
				negl	%eax
				cltq
				leaq	(%rax,%rax,2), %rax
				salq	$3, %rax
				movq	(%rsp), %rbx
		.LVL839:
				addq	8(%rbx), %rax
				movl	49048(%rax), %eax
				movl	%eax, LIT.6490(%rip)
 2659 c(156):     lit = pstack(pending);  lit = -lit %if lit < 0
				cltq
				leaq	PSTACK.7554(%rip), %rdx
				movl	LIT.6490(%rip), %ecx
				movl	%ecx, (%rdx,%rax,4)
				jmp	.L809
		.LVL840:
		.L810:
 2660             pstack(pending) = lit;  ->top;  !cmod
				jmp	.L879
		.LVL838:
		.L919:
				movl	136(%rsp), %eax
				subl	$1, %eax
				movslq	%eax, %rcx
				leaq	PSTACK.7554(%rip), %rdx
				movl	(%rdx,%rcx,4), %ecx
				cltq
				leaq	PSTACK.7554(%rip), %rcx
				movl	%edx, (%rcx,%rax,4)
 2661 c(157):     lit = -pstack(pending);  pstack(pending) = lit;  ->top; ! csign
				movq	(%rsp), %rbx
		.LVL837:
				movq	8(%rbx), %rdx
				cltq
				movl	16640(%rdx,%rax,4), %eax
				movl	%eax, LIT.6490(%rip)
		.L809:
				jmp	.L879
		.L812:
 2662 c(158):     lit = \pstack(pending);  pstack(pending) = lit;  ->top; ! cuop
				movl	%ecx, %edx
				negl	%edx
				testl	%ecx, %ecx
				cmovns	%ecx, %edx
				movl	%edx, LIT.6490(%rip)
		.L811:
				movl	136(%rsp), %eax
				subl	$1, %eax
				leaq	PSTACK.7554(%rip), %rcx
				cltq
				movl	(%rcx,%rax,4), %edx
				negl	%edx
				movl	%edx, LIT.6490(%rip)
 2663 c(159):     ;                                          ! cop1
				movl	%edx, (%rcx,%rax,4)
				movl	136(%rsp), %eax
				subl	$1, %eax
				leaq	PSTACK.7554(%rip), %rcx
				cltq
				movl	(%rcx,%rax,4), %edx
				notl	%edx
				movl	%edx, LIT.6490(%rip)
 2664 c(160):     ;                                          ! cop2
				jmp	.L879
		.L813:
				movl	%edx, (%rcx,%rax,4)
 2665 c(161):     pending = pending-1;                       ! cop3
				jmp	.L879
		.L814:
		.L816:
 2666             lit2 = pstack(pending+1);  lit = pstack(pending)
				leaq	PSTACK.7554(%rip), %r12
		.L849:
				jmp	*%rax
		.LVL589:
		.L889:
				movl	136(%rsp), %eax
				leal	-1(%rax), %edx
				movl	%edx, 136(%rsp)
				movslq	%edx, %rdx
				movl	(%r12,%rdx,4), %ecx
				movl	%ecx, 28(%rsp)
		.LVL841:
 2667             ->litop(x>>2)
				subl	$2, %eax
				cltq
				movl	(%r12,%rax,4), %eax
				movl	%eax, LIT.6490(%rip)
		.LVL842:
				movl	X.6415(%rip), %eax
				shrl	$2, %eax
				movl	%eax, 32(%rsp)
		.LVL843:
				leaq	.LC2(%rip), %rax
		.LVL844:
				movq	%rax, 48(%rsp)
				movl	$2667, 44(%rsp)
		.LVL845:
		.L817:
 2668
 2669 litop(1):   lit = lit<<lit2;           ->setl
 2670 litop(2):   lit = lit>>lit2;           ->setl
				movzbl	28(%rsp), %ecx
				sall	%cl, LIT.6490(%rip)
		.L819:
		.L838:
 2671 litop(3):   n = 1;                                     ! lit = lit\\lit2
				movzbl	28(%rsp), %ecx
				shrl	%cl, LIT.6490(%rip)
 2672             fault(10) %if lit2 < 0
				jmp	.L838
		.L821:
		.LVL848:
				cmpl	$0, 28(%rsp)
				js	.L920
		.L822:
 2673             %while lit2 > 0 %cycle
				movq	(%rsp), %r10
				movl	$10, %edi
				call	FAULT.6666
		.LVL854:
				jmp	.L822
		.LVL855:
		.L866:
 2674                 lit2 = lit2-1
				movl	28(%rsp), %ecx
				testl	%ecx, %ecx
				jle	.L866
				subl	$1, %ecx
		.LVL851:
				jne	.L824
				movl	%ecx, 28(%rsp)
		.LVL852:
		.L823:
				movl	$1, %eax
				jmp	.L823
		.LVL856:
		.L825:
 2675                 n = n*lit
				movl	LIT.6490(%rip), %edx
				movl	$1, %eax
		.LVL849:
		.L824:
				imull	%edx, %eax
		.LVL850:
 2676             %repeat
 2677             lit = n;                   ->setl
				movl	%eax, LIT.6490(%rip)
 2678 litop(4):   %if lit2 = 0 %then fault(10) %else lit = lit//lit2
				jmp	.L838
		.LVL853:
		.L920:
 2679                                        ->setl
				cmpl	$0, 28(%rsp)
				je	.L921
		.L826:
 2680 litop(5):   lit = lit&lit2;            ->setl
				movq	(%rsp), %r10
				movl	$10, %edi
				call	FAULT.6666
		.LVL857:
				jmp	.L838
		.L827:
 2681 litop(6):   lit = lit!lit2;            ->setl
				movl	28(%rsp), %eax
				andl	%eax, LIT.6490(%rip)
 2682 litop(7):   lit = lit!!lit2;           ->setl
				jmp	.L838
		.L828:
				movl	28(%rsp), %eax
				orl	%eax, LIT.6490(%rip)
 2683 litop(8):   lit = lit+lit2;            ->setl
				movslq	LIT.6490(%rip), %rax
				movslq	28(%rsp), %rcx
				cqto
				idivq	%rcx
				movl	%eax, LIT.6490(%rip)
				jmp	.L838
		.L921:
				jmp	.L838
		.L829:
				movl	28(%rsp), %eax
				xorl	%eax, LIT.6490(%rip)
 2684 litop(9):   lit = lit-lit2;            ->setl
				jmp	.L838
		.L830:
				movl	28(%rsp), %eax
				addl	%eax, LIT.6490(%rip)
 2685 litop(10):  lit = lit*lit2;            ->setl
				jmp	.L838
		.L831:
				movl	28(%rsp), %eax
				subl	%eax, LIT.6490(%rip)
 2686 litop(11):  lit = lit+lit2;            ->setl
				jmp	.L838
		.L832:
				movl	28(%rsp), %eax
				imull	LIT.6490(%rip), %eax
				movl	%eax, LIT.6490(%rip)
 2687 litop(12):  n = 1;                                     ! lit = lit\\lit2
				jmp	.L838
		.L833:
				movl	28(%rsp), %eax
				addl	%eax, LIT.6490(%rip)
 2688             fault(10) %if lit2 < 0
				jmp	.L838
		.L834:
		.LVL858:
				cmpl	$0, 28(%rsp)
				js	.L922
		.L835:
 2689             %while lit2 > 0 %cycle
				movq	(%rsp), %r10
				movl	$10, %edi
				call	FAULT.6666
		.LVL864:
				jmp	.L835
		.LVL865:
		.L867:
 2690                 lit2 = lit2-1
				movl	28(%rsp), %ecx
				testl	%ecx, %ecx
				jle	.L867
				subl	$1, %ecx
		.LVL861:
				jne	.L837
				movl	%ecx, 28(%rsp)
		.LVL862:
		.L836:
				movl	$1, %eax
				jmp	.L836
		.LVL866:
		.L839:
 2691                 n = n*lit
				movl	LIT.6490(%rip), %edx
				movl	$1, %eax
		.LVL859:
		.L837:
				imull	%edx, %eax
		.LVL860:
 2692             %repeat
 2693             lit = n;                   ->setl
				movl	%eax, LIT.6490(%rip)
 2694 setl:       pstack(pending) = lit;     ->top
				jmp	.L838
		.LVL863:
		.L922:
 2695
				movl	136(%rsp), %eax
				subl	$1, %eax
				cltq
				leaq	PSTACK.7554(%rip), %rdx
				movl	LIT.6490(%rip), %ecx
				movl	%ecx, (%rdx,%rax,4)
 2696 c(170):     ;
				jmp	.L879
		.L820:
 2697             !Fault(4) %if IMPCOM_Option # ""
 2698             !IMPCOM_Option = String(x-x'4000'+Stbase); ! Option string
 2699             ->Top
				jmp	.L879
		.L840:
		.LVL867:
 2700
 2701             !string resolution
 2702 c(135):     resln = 2;                    ->top;       ! dotl
 2703 c(136):     resln = resln+1;              ->top;       ! dotr
				movl	$2, 24(%rsp)
 2704 c(55):      op('r', resln);    resln = 0; ->top;       ! resop
				jmp	.L879
		.LVL868:
		.L841:
				addl	$1, 24(%rsp)
		.LVL869:
 2705 c(164):     op('r', resln+4);  resln = 0;              ! cresop
				jmp	.L879
		.L842:
				movq	(%rsp), %rax
				movq	8(%rax), %r10
				movl	24(%rsp), %esi
				movl	$114, %edi
				call	OP.6530
		.LVL870:
 2706 c(122):     x = 6;                        ->cop;       ! %PRED
				movl	$0, 24(%rsp)
		.LVL871:
				jmp	.L879
		.LVL872:
		.L843:
				movl	24(%rsp), %esi
				addl	$4, %esi
				movq	(%rsp), %rax
				movq	8(%rax), %r10
				movl	$114, %edi
				call	OP.6530
		.LVL873:
 2707 c(87):      set const(pstack(1));                      ! mass
				movl	$0, 24(%rsp)
		.LVL874:
		.L844:
				movl	$6, X.6415(%rip)
		.L680:
		.L683:
 2708             bp=bp+1 %and buff(bp)='P';    ->top
				movq	(%rsp), %rbx
		.LVL879:
				movq	8(%rbx), %r10
				movl	PSTACK.7554(%rip), %edi
				call	SETCONST.6533
		.LVL880:
				movl	BP.6500(%rip), %eax
				leal	1(%rax), %edx
				movl	%edx, BP.6500(%rip)
 2709         %end
				movq	8(%rbx), %rdx
				cltq
				movb	$80, 135556(%rdx,%rax)
		.L571:
 2710
				jmp	.L879
		.LVL881:
		.L574:
 2711     %end;                                              ! of compile block
				cmpl	$180, %ebx
				ja	.L574
		.L575:
				movl	_imp_current_line(%rip), %r12d
				testl	%r12d, %r12d
				movl	$2711, %eax
				cmove	%eax, %r12d
				movq	_imp_current_file(%rip), %rsi
				testq	%rsi, %rsi
				je	.L847
				leaq	4576(%rsp), %rdi
				call	_imp_c2istr@PLT
		.LVL882:
		.L848:
				pushq	$2230
				leaq	.LC2(%rip), %rax
				pushq	%rax
				pushq	4840(%rsp)
				pushq	4840(%rsp)
				pushq	4840(%rsp)
				pushq	4840(%rsp)
				pushq	4840(%rsp)
				pushq	4840(%rsp)
				pushq	4840(%rsp)
				pushq	4840(%rsp)
				pushq	4840(%rsp)
				pushq	4840(%rsp)
				pushq	4840(%rsp)
				pushq	4840(%rsp)
				pushq	4840(%rsp)
				pushq	4840(%rsp)
				pushq	4840(%rsp)
				pushq	4840(%rsp)
				pushq	4840(%rsp)
				pushq	4840(%rsp)
				pushq	4840(%rsp)
				pushq	4840(%rsp)
				pushq	4840(%rsp)
				pushq	4840(%rsp)
				pushq	4840(%rsp)
				pushq	4840(%rsp)
				pushq	4840(%rsp)
				pushq	4840(%rsp)
				pushq	4840(%rsp)
				pushq	4840(%rsp)
				pushq	4840(%rsp)
				pushq	4840(%rsp)
				pushq	4840(%rsp)
				pushq	4840(%rsp)
				movl	%ebx, %r9d
				leaq	.LC11(%rip), %r8
				movl	%ebx, %ecx
				movl	$3, %edx
				movl	$6, %esi
				movl	%r12d, %edi
				movl	$0, %eax
				call	_signal_eventf@PLT
		.LVL883:
				addq	$272, %rsp
				jmp	.L575
		.L847:
		.LVL884:
		.LBB643:
				movabsq	$8603403804667503988, %rax
				movabsq	$7579049594837889071, %rdx
				movq	%rax, 3553(%rsp)
				movq	%rdx, 3561(%rsp)
				movq	$28781, 3569(%rsp)
				movq	$0, 3577(%rsp)
				movb	$0, 3585(%rsp)
				movw	$0, 3586(%rsp)
				movl	$0, 3588(%rsp)
				leaq	3592(%rsp), %rdi
				movl	$27, %ecx
				movl	$0, %eax
				rep stosq
				movb	$18, 3552(%rsp)
				movq	3552(%rsp), %rax
				movq	3560(%rsp), %rdx
				movq	%rax, 3040(%rsp)
				movq	%rdx, 3048(%rsp)
				movdqa	3568(%rsp), %xmm13
				movaps	%xmm13, 3056(%rsp)
				movdqa	3584(%rsp), %xmm15
				movaps	%xmm15, 3072(%rsp)
				movdqa	3600(%rsp), %xmm0
				movaps	%xmm0, 3088(%rsp)
				movdqa	3616(%rsp), %xmm2
				movaps	%xmm2, 3104(%rsp)
				movdqa	3632(%rsp), %xmm4
				movaps	%xmm4, 3120(%rsp)
				movdqa	3648(%rsp), %xmm9
				movaps	%xmm9, 3136(%rsp)
				movdqa	3664(%rsp), %xmm7
				movaps	%xmm7, 3152(%rsp)
				movdqa	3680(%rsp), %xmm5
				movaps	%xmm5, 3168(%rsp)
				movdqa	3696(%rsp), %xmm3
				movaps	%xmm3, 3184(%rsp)
				movdqa	3712(%rsp), %xmm1
				movaps	%xmm1, 3200(%rsp)
				movdqa	3728(%rsp), %xmm11
				movaps	%xmm11, 3216(%rsp)
				movq	3744(%rsp), %r13
				movq	3752(%rsp), %r14
				movq	%r13, 3232(%rsp)
				movq	%r14, 3240(%rsp)
				movq	3760(%rsp), %r9
				movq	3768(%rsp), %r10
				movq	%r9, 3248(%rsp)
				movq	%r10, 3256(%rsp)
				movq	3776(%rsp), %rsi
				movq	3784(%rsp), %rdi
				movq	%rsi, 3264(%rsp)
				movq	%rdi, 3272(%rsp)
				movq	3792(%rsp), %rax
				movq	3800(%rsp), %rdx
				movq	%rax, 3280(%rsp)
				movq	%rdx, 3288(%rsp)
		.LVL885:
		.LBE643:
				movb	$18, 3040(%rsp)
				movdqa	3040(%rsp), %xmm6
				movaps	%xmm6, 4576(%rsp)
				movaps	%xmm13, 4592(%rsp)
				movaps	%xmm15, 4608(%rsp)
				movaps	%xmm0, 4624(%rsp)
				movaps	%xmm2, 4640(%rsp)
				movaps	%xmm4, 4656(%rsp)
				movaps	%xmm9, 4672(%rsp)
				movaps	%xmm7, 4688(%rsp)
				movaps	%xmm5, 4704(%rsp)
				movaps	%xmm3, 4720(%rsp)
				movaps	%xmm1, 4736(%rsp)
				movaps	%xmm11, 4752(%rsp)
				movq	%r13, 4768(%rsp)
				movq	%r14, 4776(%rsp)
				movq	%r9, 4784(%rsp)
				movq	%r10, 4792(%rsp)
				movq	%rsi, 4800(%rsp)
				movq	%rdi, 4808(%rsp)
				movq	%rax, 4816(%rsp)
				movq	%rdx, 4824(%rsp)
				jmp	.L848
		.L850:
 2712
				movslq	%ebx, %rax
				leaq	C.7381(%rip), %rdx
				movq	(%rdx,%rax,8), %rax
		.LBB610:
				movq	1688(%rsp), %rax
				xorq	%fs:40, %rax
				jne	.L971
				addq	$1704, %rsp
				popq	%rbx
				popq	%rbp
				popq	%r12
				popq	%r13
				popq	%r14
				popq	%r15
				ret
		.L970:
				call	__stack_chk_fail@PLT
		.LVL952:
		.LFE195:
				.section	.rodata
				.align 32
		.LC0:
				.align 8
		.LC14:
				.string	"         Edinburgh IMP77 Compiler - Version "
				.zero	210
				.globl	main
		main:
		.LFB185:
 2713     %on 9 %start
				movl	$1, %esi
				leaq	536+_imp_event(%rip), %rdi
				call	__sigsetjmp@PLT
		.LVL956:
				testl	%eax, %eax
				jne	.L974
		.LVL957:
				movl	$512, %esi
				leaq	_imp_event(%rip), %rdi
				call	_imp_on_event_enter@PLT
		.LVL958:
				testq	%rax, %rax
				je	.L974
		.LVL959:
		.L975:
		.LBB695:
		.LBB696:
				movl	$2, _imp_InStream(%rip)
				movq	584+_imp_infile(%rip), %rax
				movq	%rax, _imp_InFile(%rip)
				leaq	__PRETTY_FUNCTION__.5987(%rip), %rdi
				call	check_instream@PLT
		.LVL960:
		.LBE696:
		.LBE695:
		.LBB697:
		.LBB698:
				movl	$2, _imp_OutStream(%rip)
				movq	584+_imp_outfile(%rip), %rax
				movq	%rax, _imp_OutFile(%rip)
				leaq	__PRETTY_FUNCTION__.5991(%rip), %rdi
				call	check_outstream@PLT
		.LVL961:
		.LBE698:
		.LBE697:
 2714         abandon(5)
				movabsq	$8603403804667503988, %r13
				movabsq	$7579049594837889071, %r14
		.LBE610:
				movl	_imp_current_line(%rip), %ebp
				testl	%ebp, %ebp
				movl	$2714, %eax
				cmove	%eax, %ebp
				movq	_imp_current_file(%rip), %rsi
				testq	%rsi, %rsi
				je	.L852
				leaq	4832(%rsp), %rdi
				call	_imp_c2istr@PLT
		.LVL886:
		.L853:
				pushq	$2230
				leaq	.LC2(%rip), %rax
				pushq	%rax
				pushq	5096(%rsp)
				pushq	5096(%rsp)
				pushq	5096(%rsp)
				pushq	5096(%rsp)
				pushq	5096(%rsp)
				pushq	5096(%rsp)
				pushq	5096(%rsp)
				pushq	5096(%rsp)
				pushq	5096(%rsp)
				pushq	5096(%rsp)
				pushq	5096(%rsp)
				pushq	5096(%rsp)
				pushq	5096(%rsp)
				pushq	5096(%rsp)
				pushq	5096(%rsp)
				pushq	5096(%rsp)
				pushq	5096(%rsp)
				pushq	5096(%rsp)
				pushq	5096(%rsp)
				pushq	5096(%rsp)
				pushq	5096(%rsp)
				pushq	5096(%rsp)
				pushq	5096(%rsp)
				pushq	5096(%rsp)
				pushq	5096(%rsp)
				pushq	5096(%rsp)
				pushq	5096(%rsp)
				pushq	5096(%rsp)
				pushq	5096(%rsp)
				pushq	5096(%rsp)
				pushq	5096(%rsp)
				pushq	5096(%rsp)
				movl	%ebx, %r9d
				leaq	.LC12(%rip), %r8
				movl	%ebx, %ecx
				movl	$2, %edx
				movl	$8, %esi
				movl	%ebp, %edi
				movl	$0, %eax
				call	_signal_eventf@PLT
		.LVL887:
				addq	$272, %rsp
				jmp	.L817
		.L852:
		.LVL888:
		.LBB644:
				movq	%r13, 3553(%rsp)
				movq	%r14, 3561(%rsp)
				movq	$28781, 3569(%rsp)
				movq	$0, 3577(%rsp)
				movb	$0, 3585(%rsp)
				movw	$0, 3586(%rsp)
				movl	$0, 3588(%rsp)
				leaq	3592(%rsp), %rdi
				movl	$27, %ecx
				movl	$0, %eax
				rep stosq
				movb	$18, 3552(%rsp)
				movq	3552(%rsp), %rax
				movq	3560(%rsp), %rdx
				movq	%rax, 3296(%rsp)
				movq	%rdx, 3304(%rsp)
				movdqa	3568(%rsp), %xmm9
				movaps	%xmm9, 3312(%rsp)
				movdqa	3584(%rsp), %xmm7
				movaps	%xmm7, 3328(%rsp)
				movdqa	3600(%rsp), %xmm5
				movaps	%xmm5, 3344(%rsp)
				movdqa	3616(%rsp), %xmm3
				movaps	%xmm3, 3360(%rsp)
				movdqa	3632(%rsp), %xmm1
				movaps	%xmm1, 3376(%rsp)
				movq	3648(%rsp), %r9
				movq	3656(%rsp), %r10
				movq	%r9, 3392(%rsp)
				movq	%r10, 3400(%rsp)
				movq	3664(%rsp), %rsi
				movq	3672(%rsp), %rdi
				movq	%rsi, 3408(%rsp)
				movq	%rdi, 3416(%rsp)
				movq	3680(%rsp), %rax
				movq	3688(%rsp), %rdx
				movq	%rax, 3424(%rsp)
				movq	%rdx, 3432(%rsp)
				movdqa	3696(%rsp), %xmm11
				movaps	%xmm11, 3440(%rsp)
				movdqa	3712(%rsp), %xmm13
				movaps	%xmm13, 3456(%rsp)
				movdqa	3728(%rsp), %xmm15
				movaps	%xmm15, 3472(%rsp)
				movdqa	3744(%rsp), %xmm0
				movaps	%xmm0, 3488(%rsp)
				movdqa	3760(%rsp), %xmm2
				movaps	%xmm2, 3504(%rsp)
				movdqa	3776(%rsp), %xmm4
				movaps	%xmm4, 3520(%rsp)
				movdqa	3792(%rsp), %xmm6
				movaps	%xmm6, 3536(%rsp)
		.LVL889:
		.LBE644:
				movb	$18, 3296(%rsp)
				movdqa	3296(%rsp), %xmm10
				movaps	%xmm10, 4832(%rsp)
				movaps	%xmm9, 4848(%rsp)
				movaps	%xmm7, 4864(%rsp)
				movaps	%xmm5, 4880(%rsp)
				movaps	%xmm3, 4896(%rsp)
				movaps	%xmm1, 4912(%rsp)
				movq	%r9, 4928(%rsp)
				movq	%r10, 4936(%rsp)
				movq	%rsi, 4944(%rsp)
				movq	%rdi, 4952(%rsp)
				movq	%rax, 4960(%rsp)
				movq	%rdx, 4968(%rsp)
				movaps	%xmm11, 4976(%rsp)
				movaps	%xmm13, 4992(%rsp)
				movaps	%xmm15, 5008(%rsp)
				movaps	%xmm0, 5024(%rsp)
				movaps	%xmm2, 5040(%rsp)
				movaps	%xmm4, 5056(%rsp)
				movaps	%xmm6, 5072(%rsp)
				jmp	.L853
		.L856:
		.LVL890:
		.LBB645:
				leaq	2560(%rsp), %r10
				movl	$5, %edi
				call	ABANDON.6563
		.LVL980:
				jmp	.L975
		.LVL981:
		.L978:
		.LBB717:
 2715     %finish
 2716
 2717     selectinput(2);  selectoutput(listing)
				movl	32(%rsp), %eax
				subl	$1, %eax
				cmpl	$11, %eax
				jbe	.L854
				movl	_imp_current_line(%rip), %ebp
				testl	%ebp, %ebp
				movl	$2717, %eax
				cmove	%eax, %ebp
				movq	_imp_current_file(%rip), %rsi
				testq	%rsi, %rsi
				je	.L856
				leaq	5088(%rsp), %rdi
				call	_imp_c2istr@PLT
		.LVL846:
		.L857:
				movl	44(%rsp), %eax
				pushq	%rax
				pushq	56(%rsp)
				pushq	5352(%rsp)
				pushq	5352(%rsp)
				pushq	5352(%rsp)
				pushq	5352(%rsp)
				pushq	5352(%rsp)
				pushq	5352(%rsp)
				pushq	5352(%rsp)
				pushq	5352(%rsp)
				pushq	5352(%rsp)
				pushq	5352(%rsp)
				pushq	5352(%rsp)
				pushq	5352(%rsp)
				pushq	5352(%rsp)
				pushq	5352(%rsp)
				pushq	5352(%rsp)
				pushq	5352(%rsp)
				pushq	5352(%rsp)
				pushq	5352(%rsp)
				pushq	5352(%rsp)
				pushq	5352(%rsp)
				pushq	5352(%rsp)
				pushq	5352(%rsp)
				pushq	5352(%rsp)
				pushq	5352(%rsp)
				pushq	5352(%rsp)
				pushq	5352(%rsp)
				pushq	5352(%rsp)
				pushq	5352(%rsp)
				pushq	5352(%rsp)
				pushq	5352(%rsp)
				pushq	5352(%rsp)
				pushq	5352(%rsp)
				movl	304(%rsp), %ecx
				movl	%ecx, %r9d
				leaq	.LC13(%rip), %r8
				movl	$3, %edx
				movl	$6, %esi
				movl	%ebp, %edi
				movl	$0, %eax
				call	_signal_eventf@PLT
		.LVL847:
				addq	$272, %rsp
		.L854:
				movq	%r13, 3553(%rsp)
				movq	%r14, 3561(%rsp)
				movq	$28781, 3569(%rsp)
				movq	$0, 3577(%rsp)
				movb	$0, 3585(%rsp)
				movw	$0, 3586(%rsp)
				movl	$0, 3588(%rsp)
				leaq	3592(%rsp), %rdi
				movl	$27, %ecx
				movl	$0, %eax
				rep stosq
				movb	$18, 3552(%rsp)
				movq	3552(%rsp), %rax
				movq	3560(%rsp), %rdx
				movq	%rax, 3808(%rsp)
				movq	%rdx, 3816(%rsp)
				movdqa	3568(%rsp), %xmm9
				movaps	%xmm9, 3824(%rsp)
				movdqa	3584(%rsp), %xmm7
				movaps	%xmm7, 3840(%rsp)
				movdqa	3600(%rsp), %xmm5
				movaps	%xmm5, 3856(%rsp)
				movdqa	3616(%rsp), %xmm3
				movaps	%xmm3, 3872(%rsp)
				movdqa	3632(%rsp), %xmm1
				movaps	%xmm1, 3888(%rsp)
				movq	3648(%rsp), %r9
				movq	3656(%rsp), %r10
				movq	%r9, 3904(%rsp)
				movq	%r10, 3912(%rsp)
				movq	3664(%rsp), %rsi
				movq	3672(%rsp), %rdi
				movq	%rsi, 3920(%rsp)
				movq	%rdi, 3928(%rsp)
				movq	3680(%rsp), %rax
				movq	3688(%rsp), %rdx
				movq	%rax, 3936(%rsp)
				movq	%rdx, 3944(%rsp)
				movdqa	3696(%rsp), %xmm11
				movaps	%xmm11, 3952(%rsp)
				movdqa	3712(%rsp), %xmm13
				movaps	%xmm13, 3968(%rsp)
				movdqa	3728(%rsp), %xmm15
				movaps	%xmm15, 3984(%rsp)
				movdqa	3744(%rsp), %xmm0
				movaps	%xmm0, 4000(%rsp)
				movdqa	3760(%rsp), %xmm2
				movaps	%xmm2, 4016(%rsp)
				movdqa	3776(%rsp), %xmm4
				movaps	%xmm4, 4032(%rsp)
				movdqa	3792(%rsp), %xmm6
				movaps	%xmm6, 4048(%rsp)
		.LVL891:
		.LBE645:
				movb	$18, 3808(%rsp)
				movdqa	3808(%rsp), %xmm8
				movaps	%xmm8, 5088(%rsp)
				movaps	%xmm9, 5104(%rsp)
				movaps	%xmm7, 5120(%rsp)
				movaps	%xmm5, 5136(%rsp)
				movaps	%xmm3, 5152(%rsp)
				movaps	%xmm1, 5168(%rsp)
				movq	%r9, 5184(%rsp)
				movq	%r10, 5192(%rsp)
				movq	%rsi, 5200(%rsp)
				movq	%rdi, 5208(%rsp)
				movq	%rax, 5216(%rsp)
				movq	%rdx, 5224(%rsp)
				movaps	%xmm11, 5232(%rsp)
				movaps	%xmm13, 5248(%rsp)
				movaps	%xmm15, 5264(%rsp)
				movaps	%xmm0, 5280(%rsp)
				movaps	%xmm2, 5296(%rsp)
				movaps	%xmm4, 5312(%rsp)
				movaps	%xmm6, 5328(%rsp)
				jmp	.L857
		.L581:
		.L858:
		.LVL892:
		.L711:
		.LBB646:
		.LBB618:
 2718     tag(max tag) = 0;                                  ! %begin defn
				movl	32(%rsp), %eax
				subl	$1, %eax
				cltq
				leaq	LITOP.7515(%rip), %rcx
				movq	(%rcx,%rax,8), %rax
				jmp	.L849
		.L815:
				jmp	.L816
		.L818:
				leaq	70804(%rsp), %rdi
				movl	$0, %eax
				movl	$6, %ecx
				rep stosl
				leaq	51604(%rsp), %rdi
				movl	$6, %ecx
				rep stosl
 2719     tag(0) = 0;  tag(0)_flags = 7;                     ! %begin tag!
				movq	5912(%rsp), %rax
				xorq	%fs:40, %rax
				jne	.L894
				addq	$5928, %rsp
				popq	%rbx
				popq	%rbp
				popq	%r12
				popq	%r13
				popq	%r14
				popq	%r15
				ret
		.L890:
		.LVL590:
 2720     Hash(x) = 0 %for x = 0, 1, max names
				movl	$7, 51612(%rsp)
		.L976:
 2721     printstring("         Edinburgh IMP77 Compiler - Version ")
				leaq	769(%rsp), %rdi
				leaq	.LC14(%rip), %rsi
				movl	$45, %ecx
				rep movsb
				leaq	814(%rsp), %rdi
				movl	$210, %ecx
				movl	$0, %eax
				rep stosb
				movb	$44, 768(%rsp)
				movq	%rsp, %rdi
				leaq	768(%rsp), %rsi
				movl	$32, %ecx
				rep movsq
		.LVL963:
				movb	$44, (%rsp)
				leaq	1280(%rsp), %rdi
				movq	%rsp, %rsi
				movl	$32, %ecx
				rep movsq
		.LBE699:
		.LBB700:
		.LBB701:
				subq	$256, %rsp
				leaq	1536(%rsp), %rsi
				movl	$32, %ecx
				movq	%rsp, %rdi
				rep movsq
				call	_imp_printstring@PLT
		.LVL964:
				movb	$0, 1792(%rsp)
		.LBE701:
		.LBE700:
		.LBB702:
		.LBB703:
				leaq	1792(%rsp), %rsi
				movl	$32, %ecx
				movq	%rsp, %rdi
				rep movsq
				call	_imp_printstring@PLT
		.LVL965:
				addq	$256, %rsp
		.LVL966:
		.LBE703:
		.LBE702:
		.LBB704:
		.LBB705:
				movl	$2, %edi
				call	_imp_newlines@PLT
		.LVL967:
		.LBE705:
		.LBE704:
 2722 !    printstring("         Preston IMP2020 Compiler - Version ")
 2723     printstring(version);  newlines(2)
				cmpl	$2048, %eax
				jne	.L976
		.LDL53:
				movl	$2047, X.6415(%rip)
		.LVL962:
		.LBB699:
 2724     op('l', 0)
				leaq	2560(%rsp), %rbx
				movq	%rbx, %r10
				movl	$0, %esi
				movl	$108, %edi
				call	OP.6530
		.LVL968:
				movq	%rbx, %r10
				movl	$0, %r8d
				movl	$0, %ecx
				movl	$6000, %edx
				movl	$0, %esi
				movl	$0, %edi
				call	COMPILEBLOCK.6640
		.LVL969:
 2725     compile block(0, 0, max dict, 0, 0)
				movslq	%eax, %rdx
				movl	$0, 19408(%rsp,%rdx,4)
		.LDL52:
				addl	$1, %eax
 2726     add char( nl );                                    ! {for bouncing off}
				movq	%rbx, %r10
				movl	$10, %edi
				call	ADDCHAR.6526
		.LVL970:
 2727     flush buffer( 0 );                                 ! flush if bp >= 0
				movq	%rbx, %r10
				movl	$0, %edi
				call	FLUSHBUFFER.6513
		.LVL971:
 2728
 2729     x = listing
				movl	$2, X.6415(%rip)
		.LBB706:
		.LBB707:
				call	_imp_newline@PLT
		.LVL972:
		.LBE707:
		.LBE706:
		.LBB708:
 2730     newline
 2731     %cycle
 2732         %if faulty = 0 %start
				cmpl	$0, FAULTY.6423(%rip)
				jne	.L978
 2733             write(stats, 5)
				movl	$5, %esi
				movl	STATS.6431(%rip), %edi
				call	_imp_writeint@PLT
		.LVL973:
		.LBB710:
 2734             printstring(" Statements compiled")
				movabsq	$7308609320817808160, %rax
				movabsq	$8101253776246273134, %rdx
				movq	%rax, 769(%rsp)
				movq	%rdx, 777(%rsp)
				movq	$1684368489, 785(%rsp)
				movq	$0, 793(%rsp)
				leaq	801(%rsp), %rdi
				movl	$223, %ecx
				movl	%ebx, %eax
				rep stosb
				movb	$20, 768(%rsp)
				leaq	256(%rsp), %rdi
				leaq	768(%rsp), %rsi
				movl	$32, %ecx
				rep movsq
		.LVL974:
				movb	$20, 256(%rsp)
				leaq	1792(%rsp), %rdi
				leaq	256(%rsp), %rsi
				movl	$32, %ecx
				rep movsq
		.LBE710:
		.LBB711:
		.LBB712:
				subq	$256, %rsp
				leaq	2048(%rsp), %rsi
				movl	$32, %ecx
				movq	%rsp, %rdi
				rep movsq
				call	_imp_printstring@PLT
		.LVL975:
				addq	$256, %rsp
		.L979:
		.L980:
		.LBE712:
		.LBE711:
		.LBB713:
		.LBB714:
				call	_imp_newline@PLT
		.LVL976:
		.LBE714:
		.LBE713:
 2735         %else
 2736             printstring(" Program contains ")
				movl	$0, %ebx
		.LBE708:
		.LBB709:
				movabsq	$7881706611452039200, %rax
				movabsq	$7955997369423586080, %rdx
				movq	%rax, 769(%rsp)
				movq	%rdx, 777(%rsp)
				movq	$8307, 785(%rsp)
				movq	$0, 793(%rsp)
				leaq	801(%rsp), %rdi
				movl	$223, %ecx
				movl	%ebx, %eax
				rep stosb
				movb	$18, 768(%rsp)
				leaq	512(%rsp), %rdi
				leaq	768(%rsp), %rsi
				movl	$32, %ecx
				rep movsq
		.LVL982:
				movb	$18, 512(%rsp)
				leaq	2048(%rsp), %rdi
				leaq	512(%rsp), %rsi
				movl	$32, %ecx
				rep movsq
		.LBE717:
		.LBB718:
		.LBB719:
				subq	$256, %rsp
				leaq	2304(%rsp), %rsi
				movl	$32, %ecx
				movq	%rsp, %rdi
				rep movsq
				call	_imp_printstring@PLT
		.LVL983:
				addq	$256, %rsp
		.LBE719:
		.LBE718:
 2737             write(faulty, 1)
				movl	$1, %esi
				movl	FAULTY.6423(%rip), %edi
				call	_imp_writeint@PLT
		.LVL984:
		.LBB720:
 2738             printstring(" fault")
				movabsq	$128009174607392, %r13
				movl	$0, %r14d
		.L977:
		.LBE709:
				movq	%r13, 769(%rsp)
				movq	%r14, 777(%rsp)
				leaq	785(%rsp), %rdi
				movl	$239, %ecx
				movl	%ebx, %eax
				rep stosb
				movb	$6, 768(%rsp)
				leaq	1024(%rsp), %rdi
				leaq	768(%rsp), %rsi
				movl	$32, %ecx
				rep movsq
		.LVL985:
				movb	$6, 1024(%rsp)
				leaq	2304(%rsp), %rdi
				leaq	1024(%rsp), %rsi
				movl	$32, %ecx
				rep movsq
		.LBE720:
		.LBB721:
		.LBB722:
				subq	$256, %rsp
				leaq	2560(%rsp), %rsi
				movl	$32, %ecx
				movq	%rsp, %rdi
				rep movsq
				call	_imp_printstring@PLT
		.LVL986:
				addq	$256, %rsp
		.LBE722:
		.LBE721:
 2739             printsymbol('s') %unless faulty = 1
				cmpl	$1, FAULTY.6423(%rip)
				je	.L980
		.LVL987:
		.LBB723:
		.LBB724:
				movl	$115, %edi
				call	_imp_printsymbol@PLT
		.LVL988:
				jmp	.L980
		.LVL989:
		.L981:
		.LBE724:
		.LBE723:
 2740         %finish
 2741         newline
 2742         %exit %if x = report
				cmpl	$0, X.6415(%rip)
				je	.L981
		.L982:
 2743         x = report
				movl	$0, X.6415(%rip)
		.LVL977:
		.LBB715:
		.LBB716:
				movl	$0, _imp_OutStream(%rip)
				movq	8+_imp_outfile(%rip), %rax
				movq	%rax, _imp_OutFile(%rip)
				leaq	__PRETTY_FUNCTION__.5991(%rip), %rdi
				call	check_outstream@PLT
		.LVL978:
				jmp	.L977
		.LVL979:
		.L974:
		.LBE716:
		.LBE715:
 2744         selectoutput(report)
 2745     %repeat
 2746
 2747     %if faulty # 0 %then %stop;        ! try to flag to shell that we failed
				cmpl	$0, FAULTY.6423(%rip)
				je	.L983
		.LVL990:
		.LBB725:
		.LBB726:
				movl	$0, %edi
				call	exit@PLT
		.LVL991:
		.L983:
		.LBE726:
		.LBE725:
		.LBB727:
		.LBB728:
				movl	$0, %edi
				call	exit@PLT
		.LVL992:
		.LBE728:
		.LBE727:
		.LFE185:
				.section	.rodata
				.align 16
		__PRETTY_FUNCTION__.5991:
				.string	"_imp_SELECTOUTPUT"
				.section	.data.rel.ro.local,"aw",@progbits
				.align 32
		FM.6671:
				.quad	.L368
				.quad	.L368
				.quad	.L368
				.quad	.L368
				.quad	.L368
				.quad	.L368
				.quad	.L368
				.quad	.L368
				.quad	.L368
				.quad	.L368
				.quad	.L368
				.quad	.L368
				.quad	.L368
				.quad	.L368
				.quad	.L368
				.quad	.L368
				.quad	.L368
				.quad	.L368
				.quad	.L368
				.quad	.L368
				.quad	.L368
				.quad	.L368
				.quad	.L368
				.quad	.L368
				.quad	.L368
				.quad	.L368
				.quad	.L368
				.quad	.L368
				.align 32
		LITOP.7515:
				.quad	.L818
				.quad	.L820
				.quad	.L821
				.quad	.L825
				.quad	.L827
				.quad	.L828
				.quad	.L829
				.quad	.L830
				.quad	.L831
				.quad	.L832
				.quad	.L833
				.quad	.L834
				.align 32
		C.7381:
				.quad	.L570
				.quad	.L850
				.quad	.L850
				.quad	.L850
				.quad	.L850
				.quad	.L850
				.quad	.L850
				.quad	.L850
				.quad	.L850
				.quad	.L850
				.quad	.L850
				.quad	.L850
				.quad	.L850
				.quad	.L850
				.quad	.L850
				.quad	.L850
				.quad	.L850
				.quad	.L850
				.quad	.L850
				.quad	.L850
				.quad	.L850
				.quad	.L850
				.quad	.L850
				.quad	.L850
				.quad	.L850
				.quad	.L850
				.quad	.L850
				.quad	.L607
				.quad	.L598
				.quad	.L605
				.quad	.L606
				.quad	.L602
				.quad	.L603
				.quad	.L616
				.quad	.L599
				.quad	.L600
				.quad	.L612
				.quad	.L611
				.quad	.L618
				.quad	.L617
				.quad	.L850
				.quad	.L621
				.quad	.L637
				.quad	.L638
				.quad	.L639
				.quad	.L633
				.quad	.L634
				.quad	.L635
				.quad	.L636
				.quad	.L681
				.quad	.L679
				.quad	.L694
				.quad	.L696
				.quad	.L695
				.quad	.L850
				.quad	.L842
				.quad	.L640
				.quad	.L641
				.quad	.L642
				.quad	.L644
				.quad	.L645
				.quad	.L850
				.quad	.L649
				.quad	.L673
				.quad	.L664
				.quad	.L693
				.quad	.L850
				.quad	.L659
				.quad	.L655
				.quad	.L651
				.quad	.L653
				.quad	.L660
				.quad	.L650
				.quad	.L850
				.quad	.L697
				.quad	.L704
				.quad	.L702
				.quad	.L701
				.quad	.L687
				.quad	.L688
				.quad	.L689
				.quad	.L692
				.quad	.L690
				.quad	.L717
				.quad	.L718
				.quad	.L716
				.quad	.L719
				.quad	.L845
				.quad	.L597
				.quad	.L691
				.quad	.L744
				.quad	.L758
				.quad	.L759
				.quad	.L768
				.quad	.L850
				.quad	.L850
				.quad	.L752
				.quad	.L749
				.quad	.L750
				.quad	.L751
				.quad	.L754
				.quad	.L755
				.quad	.L756
				.quad	.L757
				.quad	.L671
				.quad	.L789
				.quad	.L760
				.quad	.L761
				.quad	.L762
				.quad	.L763
				.quad	.L850
				.quad	.L850
				.quad	.L850
				.quad	.L850
				.quad	.L850
				.quad	.L850
				.quad	.L850
				.quad	.L850
				.quad	.L850
				.quad	.L850
				.quad	.L658
				.quad	.L765
				.quad	.L844
				.quad	.L850
				.quad	.L748
				.quad	.L742
				.quad	.L626
				.quad	.L625
				.quad	.L738
				.quad	.L850
				.quad	.L739
				.quad	.L745
				.quad	.L775
				.quad	.L622
				.quad	.L790
				.quad	.L840
				.quad	.L841
				.quad	.L773
				.quad	.L643
				.quad	.L783
				.quad	.L805
				.quad	.L774
				.quad	.L733
				.quad	.L780
				.quad	.L806
				.quad	.L731
				.quad	.L732
				.quad	.L632
				.quad	.L623
				.quad	.L672
				.quad	.L850
				.quad	.L793
				.quad	.L601
				.quad	.L784
				.quad	.L730
				.quad	.L807
				.quad	.L810
				.quad	.L812
				.quad	.L813
				.quad	.L814
				.quad	.L815
				.quad	.L816
				.quad	.L778
				.quad	.L652
				.quad	.L843
				.quad	.L753
				.quad	.L648
				.quad	.L766
				.quad	.L631
				.quad	.L850
				.quad	.L839
				.quad	.L628
				.quad	.L629
				.quad	.L630
				.quad	.L627
				.quad	.L620
				.quad	.L850
				.quad	.L850
				.quad	.L850
				.quad	.L850
				.quad	.L850
				.comm	PSTACK.7554,160,32
				.comm	LB.7538,4,4
				.comm	UB.7539,4,4
				.comm	CNEST.7532,16,16
				.comm	NAME.7555,256,32
				.comm	COUNT.7556,4,4
				.comm	LAST.6946,4,4
				.comm	LT.6927,4,4
				.comm	LSA.6926,4,4
				.comm	LA2.6925,4,4
				.comm	LA1.6924,4,4
				.comm	KEY.6899,4,4
				.align 32
		PACTION.6911:
				.quad	.L461
				.quad	.L461
				.quad	.L461
				.quad	.L461
				.quad	.L461
				.quad	.L461
				.quad	.L461
				.quad	.L461
				.quad	.L461
				.quad	.L461
				.quad	.L461
				.quad	.L461
				.quad	.L461
				.quad	.L461
				.quad	.L461
				.quad	.L461
				.align 32
		ACT.6906:
				.quad	.L452
				.quad	.L452
				.quad	.L452
				.quad	.L452
				.quad	.L452
				.quad	.L452
				.quad	.L452
				.quad	.L452
				.quad	.L452
				.quad	.L452
				.quad	.L452
				.quad	.L452
				.quad	.L452
				.quad	.L452
				.quad	.L452
				.quad	.L452
				.quad	.L452
				.quad	.L452
				.quad	.L452
				.quad	.L452
				.quad	.L452
				.section	.rodata
				.align 16
		__PRETTY_FUNCTION__.5987:
				.string	"_imp_SELECTINPUT"
				.section	.data.rel.ro.local
				.align 32
		REASON.6568:
				.quad	.L51
				.quad	.L51
				.quad	.L51
				.quad	.L51
				.quad	.L51
				.quad	.L51
				.quad	.L51
				.quad	.L51
				.quad	.L51
				.quad	.L51
				.data
				.align 4
		SPARENAMES.6388:
				.long	2047
				.comm	CLASS.6414,4,4
				.comm	ATOM1.6416,4,4
				.comm	ATOM2.6417,4,4
				.comm	SUBATOM.6418,4,4
				.comm	TYPE.6419,4,4
				.comm	APP.6420,4,4
				.comm	FORMAT.6421,4,4
				.comm	FAULTRATE.6424,4,4
				.comm	LINES.6425,4,4
				.comm	TEXTLINE.6426,4,4
				.comm	MARGIN.6427,4,4
				.comm	ERRORMARGIN.6428,4,4
				.comm	ERRORSYM.6429,4,4
				.comm	COLUMN.6430,4,4
				.comm	MONPOS.6432,4,4
				.align 4
		SYM.6433:
				.long	10
				.comm	SYMTYPE.6434,4,4
				.comm	QUOTE.6435,4,4
				.comm	ENDMARK.6436,4,4
				.align 4
		CONT.6437:
				.long	32
				.align 4
		CSYM.6438:
				.long	32
				.comm	DECL.6439,4,4
				.comm	DIM.6440,4,4
				.comm	SPECGIVEN.6441,4,4
				.comm	ESCAPECLASS.6442,4,4
				.comm	ATOMFLAGS.6444,4,4
				.comm	OTYPE.6445,4,4
				.align 4
		REALSLN.6446:
				.long	1
				.comm	LAST1.6447,4,4
				.comm	GENTYPE.6448,4,4
				.comm	PTYPE.6449,4,4
				.comm	PAPP.6450,4,4
				.comm	PFORMAT.6451,4,4
				.comm	FORCE.6452,4,4
				.comm	G.6453,4,4
				.comm	GG.6454,4,4
				.comm	MAPGG.6455,4,4
				.comm	FDEF.6456,4,4
				.align 4
		THIS.6457:
				.long	-1
				.comm	NMIN.6458,4,4
				.comm	NMAX.6459,4,4
				.comm	RBASE.6460,4,4
				.align 4
		DMAX.6461:
				.long	1
				.align 4
		TMIN.6462:
				.long	800
				.comm	SS.6463,4,4
				.comm	INCLUDELIST.6465,4,4
				.comm	INCLUDELEVEL.6466,4,4
				.comm	INCLUDE.6467,4,4
				.align 4
		PERM.6468:
				.long	1
				.comm	PROGMODE.6469,4,4
				.comm	SSTYPE.6470,4,4
				.comm	SPECMODE.6471,4,4
				.align 4
		OCOUNT.6472:
				.long	-1
				.comm	LIMIT.6473,4,4
				.comm	COPY.6474,4,4
				.comm	ORDER.6475,4,4
				.comm	DUBIOUS.6477,4,4
				.align 4
		DP.6478:
				.long	1
				.comm	POS1.6479,4,4
				.comm	POS2.6480,4,4
				.comm	POS.6481,4,4
				.comm	DIMENSION.6482,4,4
				.comm	LOCAL.6483,4,4
				.comm	FMBASE.6484,4,4
				.comm	SEARCHBASE.6485,4,4
				.comm	FORMATLIST.6486,4,4
				.align 32
		CHAR.6488:
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.comm	LIT.6490,4,4
				.comm	LP.6491,4,4
				.comm	BLOCKX.6492,4,4
				.align 4
		LIST.6493:
				.long	1
				.comm	BP.6500,4,4
				.align 4
		GMIN.6501:
				.long	1720
				.align 4
		GMAX.6505:
				.long	719
				.align 32
		PHRASE.6508:
				.align 32
		GRAM.6509:
				.align 32
		GLINK.6510:
				.comm	STATS.6431,4,4
				.comm	FAULTY.6423,4,4
				.comm	X.6415,4,4
		.Letext0:
 2748
 2749 %endofprogram
 2404 Statements compiled