Edinburgh IMP77 Compiler - Version 8.4
    1 %external %routine %spec close output
				.section	".text"
		.Ltext0:
				.align 4
				.proc	020
		OP.6313:
		.LFB189:
    2 %external %routine %spec close input
    3 %external %routine %spec open output(%integer i, %string(255) s)
    4 %external %routine %spec open input(%integer i, %string(255) s)
    5 %recordformat impcomfm(%integer statements, flags, code, gla, diags, perm,
    6                         %string(31) file,
    7                         %string(63) Option)
    8 %externalrecord(impcomfm) IMPCOM
    9
   10 !
   11 !            On EMAS all shorts should be changed to integers.
   12 !            Also, the INCLUDE facility will need to be modified.
   13 !
   14 !
   15          !###################################################
   16          !            Copyright: 1 January 1980             #
   17          !     Interactive Datasystems (Edinburgh) Ltd.     #
   18          !              32 Upper Gilmore Place              #
   19          !                Edinburgh EH3 9NJ                 #
   20          !               All Rights Reserved                #
   21          !###################################################
   22
   23 %BEGIN
		.LVL994:
				sethi	%hi(106496), %g1
				xor	%g1, -976, %g1
				save	%sp, %g1, %sp
		.LVL995:
				ldx	[%g7+40], %g1
				stx	%g1, [%fp+2039]
				mov	0, %g1
				sethi	%hi(104448), %i5
				xor	%i5, -792, %i5
				add	%fp, 2047, %g1
				add	%g1, %i5, %i5
				sethi	%hi(13468672), %g1
				srlx	%g1, 7, %g1
				add	%fp, 2047, %g2
				stx	%g2, [%i5+%g1]
   24    %CONSTSTRING(4) version = "8.4"
				mov	%i1, %o1
				call	_imp_initialise, 0
				 mov	%i0, %o0
		.LVL996:
   25
   26    !configuration parameters
   27
   28    %CONSTINTEGER max int      = ((-1)>>1)//10
   29    %CONSTINTEGER max dig      = (-1)>>1-maxint*10
   30    %CONSTINTEGER byte size    = 8;            !bits per byte
   31    %CONSTINTEGER max tag      = 800;          !max no. of tags
   32    %CONSTINTEGER max dict     = 6000;         !max extent of dictionary
   33    %CONSTINTEGER name bits    = 11
   34    %CONSTINTEGER max names    = 1<<namebits-1
   35    %OWNINTEGER   spare names  = max names
   36    %CONSTINTEGER max grammar  = 1720
   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
   43    %CONSTINTEGER ff     = 12;              !form feed
   44    %CONSTINTEGER marker = '^';             !marker for faults
   45    %CONSTINTEGER squote = '"';             !string quote
   46    %CONSTINTEGER cquote = '''';            !character quote
   47
   48    !streams
   49
   50    %CONSTINTEGER source = 1; ! input streams
   51    ! 2 is for prims
   52    ! 3 is for include files
   53    %CONSTINTEGER report = 0, object = 1, listing = 2;! output streams
   54
   55
   56    !types
   57
   58    %CONSTINTEGER integer = 1
   59    %CONSTINTEGER real    = 2
   60    %CONSTINTEGER stringv = 3
   61    %CONSTINTEGER record  = 4
   62
   63    !forms
   64
   65    %CONSTINTEGER iform = integer<<4+1
   66
   67    %CONSTINTEGER var = 91
   68    %CONSTINTEGER const   = 93
   69    %CONSTINTEGER swit    = 105
   70    %CONSTINTEGER comment = 22
   71    %CONSTINTEGER termin  = 20
   72    %CONSTINTEGER lab     = 3
   73    %CONSTINTEGER jump    = 54
   74
   75    %CONSTINTEGER recfm = 4
   76    %CONSTINTEGER proc  = 7;                     !class for proc
   77
   78    !phrase entries
   79
   80    %CONSTINTEGER escdec   = 252
   81    %CONSTINTEGER escproc  = 253
   82    %CONSTINTEGER escarray = 254
   83    %CONSTINTEGER escrec   = 255
   84
   85    %RECORDFORMAT arfm(%SHORTINTEGER class,sub,link,ptype,papp,pformat,x,pos);!imp77:
   86 !emas:%RECORDFORMAT arfm(%INTEGER class,sub,link,ptype,papp,pformat,x,pos)
   87
   88    %RECORDFORMAT tagfm(%INTEGER app, format, %C
   89                        %SHORTINTEGER flags, index, text, link)
   90
   91    !flags
   92
   93 !      *===.===.===.===.===.====.====.====.===.======.======*
   94 !      ! u ! c ! c ! p ! s ! a  ! o  ! pr ! s ! type ! form !
   95 !      ! 1 ! 1 ! 1 ! 1 ! 1 ! 1  ! 1  ! 1  ! 1 !  3   !  4   !
   96 !      *===^===^===^===^===^====^====^====^===^======^======*
   97 !        u   c   c   p   s   a    o    p    s    t      f
   98 !        s   l   o   a   u   n    w    r    p    y      o
   99 !        e   o   n   r   b   a    n    o    e    p      r
  100 !        d   s   s   a   n   m         t    c    e      m
  101 !            e   t   m   a   e
  102 !            d       s   m
  103 !                        e
  104 !
  105 !
  106
  107    %CONSTINTEGER used bit   = b'1000000000000000',
  108                  closed     = b'0100000000000000',
  109                  const bit  = b'0010000000000000',
  110                  parameters = b'0001000000000000',
  111                  subname    = b'0000100000000000',
  112                  aname      = b'0000010000000000',
  113                  own bit    = b'0000001000000000',
  114                  prot       = b'0000000100000000',
  115                  spec       = b'0000000010000000'
  116
  117    %CONSTINTEGER trans bit  = x'4000'
  118    %CONSTINTEGER error      = x'8000'
  119
  120    %CONSTINTEGER manifest = 120, figurative = 130
  121    %CONSTINTEGER actions  = 180, phrasal    = 200
  122
  123    %CONSTBYTEINTEGERARRAY amap(0:15) = %C
				mov	89, %g1
				sethi	%hi(19917824), %g2
				srlx	%g2, 9, %g2
				stb	%g1, [%i5+%g2]
				sethi	%hi(39836672), %g2
				srlx	%g2, 10, %g2
				mov	91, %g3
				stb	%g3, [%i5+%g2]
				sethi	%hi(4979712), %g2
				srlx	%g2, 7, %g2
				mov	92, %g3
				stb	%g3, [%i5+%g2]
				sethi	%hi(39838720), %g2
				srlx	%g2, 10, %g2
				mov	104, %g3
				stb	%g3, [%i5+%g2]
				sethi	%hi(19919872), %g2
				srlx	%g2, 9, %g2
				mov	94, %g3
				stb	%g3, [%i5+%g2]
				sethi	%hi(39840768), %g2
				srlx	%g2, 10, %g2
				mov	93, %g3
				stb	%g3, [%i5+%g2]
				sethi	%hi(9960448), %g2
				srlx	%g2, 8, %g2
				mov	105, %g3
				stb	%g3, [%i5+%g2]
				sethi	%hi(39842816), %g2
				srlx	%g2, 10, %g2
				mov	100, %g3
				stb	%g3, [%i5+%g2]
				sethi	%hi(19921920), %g2
				srlx	%g2, 9, %g2
				mov	101, %g3
				stb	%g3, [%i5+%g2]
				sethi	%hi(39844864), %g2
				srlx	%g2, 10, %g2
				mov	102, %g3
				stb	%g3, [%i5+%g2]
				sethi	%hi(38912), %g2
				mov	103, %g3
				stb	%g3, [%i5+%g2]
				sethi	%hi(39846912), %g2
				srlx	%g2, 10, %g2
				mov	106, %g3
				stb	%g3, [%i5+%g2]
				sethi	%hi(19923968), %g2
				srlx	%g2, 9, %g2
				mov	107, %g3
				stb	%g3, [%i5+%g2]
				sethi	%hi(39848960), %g2
				srlx	%g2, 10, %g2
				mov	108, %g3
				stb	%g3, [%i5+%g2]
				sethi	%hi(9962496), %g2
				srlx	%g2, 8, %g2
				mov	109, %g3
				stb	%g3, [%i5+%g2]
				sethi	%hi(39851008), %g2
				srlx	%g2, 10, %g2
				stb	%g1, [%i5+%g2]
  124  89, 91, 92, 104, 94, const, swit, 100, 101, 102, 103, 106, 107, 108, 109, 89
  125 !?   v   n   l    fm  const  swit  rp   fp   mp   pp   a    an   na   nan  ?
  126
  127    %CONSTBYTEINTEGERARRAY atoms(0:15) = 89, 1, 1, 10,  9,  1, 10,  7,
				sethi	%hi(9942016), %g2
				srlx	%g2, 8, %g2
				stb	%g1, [%i5+%g2]
				mov	1, %i3
				sethi	%hi(39769088), %g2
				srlx	%g2, 10, %g2
				stb	%i3, [%i5+%g2]
				sethi	%hi(19885056), %g2
				srlx	%g2, 9, %g2
				stb	%i3, [%i5+%g2]
				mov	10, %g3
				sethi	%hi(39771136), %g2
				srlx	%g2, 10, %g2
				stb	%g3, [%i5+%g2]
				sethi	%hi(4971520), %g2
				srlx	%g2, 7, %g2
				mov	9, %g4
				stb	%g4, [%i5+%g2]
				sethi	%hi(39773184), %g2
				srlx	%g2, 10, %g2
				stb	%i3, [%i5+%g2]
				sethi	%hi(19887104), %g2
				srlx	%g2, 9, %g2
				stb	%g3, [%i5+%g2]
				mov	7, %l0
				sethi	%hi(39775232), %g2
				srlx	%g2, 10, %g2
				stb	%l0, [%i5+%g2]
				sethi	%hi(9944064), %g2
				srlx	%g2, 8, %g2
				stb	%l0, [%i5+%g2]
				sethi	%hi(39777280), %g2
				srlx	%g2, 10, %g2
				stb	%l0, [%i5+%g2]
				sethi	%hi(19889152), %g2
				srlx	%g2, 9, %g2
				stb	%l0, [%i5+%g2]
				mov	4, %l1
				sethi	%hi(39779328), %g2
				srlx	%g2, 10, %g2
				stb	%l1, [%i5+%g2]
				mov	607, %g2
				sllx	%g2, 6, %g2
				stb	%i3, [%i5+%g2]
				sethi	%hi(39781376), %g2
				srlx	%g2, 10, %g2
				stb	%l1, [%i5+%g2]
				sethi	%hi(19891200), %g2
				srlx	%g2, 9, %g2
				stb	%i3, [%i5+%g2]
				sethi	%hi(39783424), %g2
				srlx	%g2, 10, %g2
				stb	%g1, [%i5+%g2]
  128                                          7, 7, 7,  4,  1,  4,  1, 89
  129
  130    %RECORD(arfm)%ARRAY ar(1:rec size)
  131
  132    %OWNINTEGER class        = 0;             !class of atom wanted
  133    %OWNINTEGER x            = 0;             !usually last tag
  134    %OWNINTEGER atom1        = 0;             !atom class (major)
  135    %OWNINTEGER atom2        = 0;             !atom class (minor)
  136    %OWNINTEGER subatom      = 0;             !extra info about atom
  137    %OWNINTEGER type         = 0,
  138                app          = 0,
  139                format       = 0;             !atom info
  140    %INTEGER hash value
  141    %OWNINTEGER faulty       = 0;             !fault indicator
  142    %OWNINTEGER fault rate   = 0;             !fault rate count
  143    %OWNINTEGER lines        = 0;             !current line number
  144    %OWNINTEGER text line    = 0;             !starting line for string const
  145    %OWNINTEGER margin       = 0;             !statement start margin
  146    %OWNINTEGER error margin = 0,
  147                error sym    = 0,
  148                column       = 0
  149    %OWNINTEGER stats        = 0;             !statements compiled
  150    %OWNINTEGER mon pos      = 0;             !flag for diagnose
  151    %OWNINTEGER sym          = nl;            !current input symbol
  152    %OWNINTEGER symtype      = 0;             !type of current symbol
  153    %OWNINTEGER quote        = 0;             !>0 strings, <0 chars
  154    %owninteger end mark     = 0;             !%end flag
  155    %OWNINTEGER cont         = ' ',
  156                csym         = ' ';           !listing continuation marker
  157    %OWNINTEGER decl         = 0;             !current declarator flags
  158    %OWNINTEGER dim          = 0;             !arrayname dimension
  159    %OWNINTEGER spec given   = 0
  160
  161    %OWNINTEGER escape class = 0;             !when and where to escape
  162    %OWNINTEGER protection   = 0,
  163                atom flags   = 0
  164    %OWNINTEGER otype        = 0;             !current 'own' type
  165    %OWNINTEGER reals ln     = 1;             ! =4 for %REALSLONG
  166    %OWNINTEGER last1        = 0;             !previous atom class
  167    %OWNINTEGER gen type     = 0
  168    %OWNINTEGER ptype        = 0;             !current phrase type
  169    %OWNINTEGER papp         = 0;             !current phrase parameters
  170    %OWNINTEGER pformat      = 0;             !current phrase format
  171    %OWNINTEGER force        = 0;             !force next ptype
  172    %OWNINTEGER g            = 0,
  173                gg           = 0,
  174                map gg       = 0;             !grammar entries
  175    %OWNINTEGER fdef         = 0;             !current format definition
  176    %OWNINTEGER this         = -1;            !current recordformat tag
  177    %OWNINTEGER nmin         = 0;             !analysis record atom pointer
  178    %OWNINTEGER nmax         = 0;             !analysis record phrase pointer
  179    %OWNINTEGER rbase        = 0;             !record format definition base
  180    %OWNINTEGER stbase       = 0;             !constant work area base
  181    %OWNINTEGER gmin         = max grammar;   !upper bound on grammar
  182    %OWNINTEGER dmax         = 1
  183    %OWNINTEGER tmin         = max tag;       !upper bound on tags
  184    %OWNINTEGER ss           = 0;             !source statement entry
  185    %STRING(63) include file
  186    %OWNINTEGER include list = 0,
  187                include level= 0
  188    %OWNINTEGER include      = 0;                 !=0 unused, #0 being used
  189    %OWNINTEGER perm         = 1;             !1 = compiling perm, 0 = program
  190    %OWNINTEGER progmode     = 0;             !-1 = file, 1 = begin/eop
  191    %OWNINTEGER sstype       = 0;             !-1:exec stat
  192                                              ! 0: declaration
  193                                              ! 1: block in
  194                                              ! 2: block out
  195    %OWNINTEGER spec mode    = 0;             !>=0: definition
  196                                              ! -1: proc spec
  197                                              ! -2: recordformat
  198    %OWNINTEGER ocount       = -1;            !own constants wanted
  199    %OWNINTEGER limit        = 0;             !lookup limit
  200    %OWNINTEGER copy         = 0;             !duplicate name flag
  201    %OWNINTEGER order        = 0;             !out of sequence flag
  202    %OWNINTEGER for warn     = 0;             !non-local flag
  203    %OWNINTEGER dubious      = 0;             !flag for dubious statements
  204    %OWNINTEGER dp           = 1
  205    %OWNINTEGER pos1         = 0,
  206                pos2         = 0;             !error position
  207    %OWNINTEGER pos          = 0;             !input line index
  208    %OWNINTEGER dimension    = 0;             !current array dimension
  209    %OWNINTEGER local        = 0;             !search limit for locals
  210    %OWNINTEGER fm base      = 0;             !entry for format decls
  211    %OWNINTEGER search base  = 0;             !entry for record_names
  212    %OWNINTEGER format list  = 0;             !size of current format list
  213    %INTEGER recid
  214    %OWNBYTEINTEGERARRAY char(0:133) = nl(134);  !input line
  215    %INTEGERARRAY lit pool(0:lit max)
  216    %OWNINTEGER lit          = 0;             !current literal (integer)
  217    %OWNINTEGER lp           = 0;             !literals pointer
  218    %OWNINTEGER block x      = 0;             !block tag
  219    %OWNINTEGER list         = 1;             !<= to enable
  220    %OWNINTEGER control      = 0
  221    %OWNINTEGER diag         = 0;             !diagnose flags
  222    %SHORTINTEGERARRAY hash(0:max names)
  223    %RECORD(tagfm)%ARRAY tag(0:max tag)
  224    %SHORTINTEGERARRAY dict(1:max dict)
  225    %BYTEINTEGERARRAY buff(1:512)
  226    %OWNINTEGER bp           = 0
  227
  228 !*** start of generated tables ***
  229    %endoflist
  575 !***  end  of generated tables ***
				sethi	%hi(19926016), %i4
				srlx	%i4, 9, %i4
				sethi	%hi(65536), %o2
				mov	0, %o1
				call	memset, 0
				 add	%i5, %i4, %o0
		.LVL997:
				stb	%i3, [%i5+%i4]
				sethi	%hi(39853056), %o0
				srlx	%o0, 10, %o0
				sethi	%hi(.LC91), %g1
				ldub	[%g1+%lo(.LC91)], %g2
				stb	%g2, [%i5+%o0]
				add	%i5, %o0, %o0
				ldub	[%g1+%lo(.LC91)+1], %g1
				stb	%g1, [%o0+1]
				mov	6, %i1
		.LVL998:
				mov	6, %o2
				mov	0, %o1
				call	memset, 0
				 add	%o0, 2, %o0
		.LVL999:
				sethi	%hi(20057088), %g1
				srlx	%g1, 9, %g1
				stb	%l1, [%i5+%g1]
				sethi	%hi(40115200), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	5, %i4
				mov	5, %o2
				sethi	%hi(.LC92), %o1
				or	%o1, %lo(.LC92), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1000:
				mov	3, %i0
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i2, 5, %o0
		.LVL1001:
				sethi	%hi(20188160), %g1
				srlx	%g1, 9, %g1
				stb	%l0, [%i5+%g1]
				mov	8, %i2
				mov	8, %o2
				sethi	%hi(.LC93), %o1
				or	%o1, %lo(.LC93), %o1
				sethi	%hi(40377344), %o0
				srlx	%o0, 10, %o0
				call	memcpy, 0
				 add	%i5, %o0, %o0
		.LVL1002:
				sethi	%hi(20319232), %g1
				srlx	%g1, 9, %g1
				stb	%i2, [%i5+%g1]
				mov	8, %o2
				sethi	%hi(.LC94), %o1
				or	%o1, %lo(.LC94), %o1
				sethi	%hi(40639488), %o0
				srlx	%o0, 10, %o0
				call	memcpy, 0
				 add	%i5, %o0, %o0
		.LVL1003:
				sethi	%hi(20450304), %g1
				srlx	%g1, 9, %g1
				stb	%l1, [%i5+%g1]
				sethi	%hi(40901632), %l2
				srlx	%l2, 10, %l2
				add	%i5, %l2, %l2
				mov	5, %o2
				sethi	%hi(.LC95), %o1
				or	%o1, %lo(.LC95), %o1
				call	memcpy, 0
				 mov	%l2, %o0
		.LVL1004:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%l2, 5, %o0
		.LVL1005:
				sethi	%hi(20581376), %g1
				srlx	%g1, 9, %g1
				stb	%l0, [%i5+%g1]
				mov	8, %o2
				sethi	%hi(.LC96), %o1
				or	%o1, %lo(.LC96), %o1
				sethi	%hi(41163776), %o0
				srlx	%o0, 10, %o0
				call	memcpy, 0
				 add	%i5, %o0, %o0
		.LVL1006:
				sethi	%hi(20712448), %g1
				srlx	%g1, 9, %g1
				stb	%i2, [%i5+%g1]
				mov	8, %o2
				sethi	%hi(.LC97), %o1
				or	%o1, %lo(.LC97), %o1
				sethi	%hi(41425920), %o0
				srlx	%o0, 10, %o0
				call	memcpy, 0
				 add	%i5, %o0, %o0
		.LVL1007:
				sethi	%hi(20843520), %g1
				srlx	%g1, 9, %g1
				stb	%l1, [%i5+%g1]
				sethi	%hi(41688064), %l2
				srlx	%l2, 10, %l2
				add	%i5, %l2, %l2
				mov	5, %o2
				sethi	%hi(.LC98), %o1
				or	%o1, %lo(.LC98), %o1
				call	memcpy, 0
				 mov	%l2, %o0
		.LVL1008:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%l2, 5, %o0
		.LVL1009:
				sethi	%hi(20974592), %g1
				srlx	%g1, 9, %g1
				stb	%i2, [%i5+%g1]
				mov	8, %o2
				sethi	%hi(.LC99), %o1
				or	%o1, %lo(.LC99), %o1
				sethi	%hi(41950208), %o0
				srlx	%o0, 10, %o0
				call	memcpy, 0
				 add	%i5, %o0, %o0
		.LVL1010:
				sethi	%hi(21105664), %g1
				srlx	%g1, 9, %g1
				stb	%l0, [%i5+%g1]
				mov	8, %o2
				sethi	%hi(.LC100), %o1
				or	%o1, %lo(.LC100), %o1
				sethi	%hi(42212352), %o0
				srlx	%o0, 10, %o0
				call	memcpy, 0
				 add	%i5, %o0, %o0
		.LVL1011:
				sethi	%hi(21236736), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(42474496), %l0
				srlx	%l0, 10, %l0
				add	%i5, %l0, %l0
				mov	6, %o2
				sethi	%hi(.LC101), %o1
				or	%o1, %lo(.LC101), %o1
				call	memcpy, 0
				 mov	%l0, %o0
		.LVL1012:
				stb	%g0, [%l0+6]
				stb	%g0, [%l0+7]
				sethi	%hi(21367808), %g1
				srlx	%g1, 9, %g1
				stb	%l1, [%i5+%g1]
				sethi	%hi(42736640), %l0
				srlx	%l0, 10, %l0
				add	%i5, %l0, %l0
				mov	5, %o2
				sethi	%hi(.LC102), %o1
				or	%o1, %lo(.LC102), %o1
				call	memcpy, 0
				 mov	%l0, %o0
		.LVL1013:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%l0, 5, %o0
		.LVL1014:
				sethi	%hi(21498880), %g1
				srlx	%g1, 9, %g1
				stb	%i2, [%i5+%g1]
				mov	8, %o2
				sethi	%hi(.LC103), %o1
				or	%o1, %lo(.LC103), %o1
				sethi	%hi(42998784), %o0
				srlx	%o0, 10, %o0
				call	memcpy, 0
				 add	%i5, %o0, %o0
		.LVL1015:
				sethi	%hi(22285312), %g1
				srlx	%g1, 9, %g1
				stb	%i1, [%i5+%g1]
				sethi	%hi(44571648), %l0
				srlx	%l0, 10, %l0
				add	%i5, %l0, %l0
				mov	7, %o2
				sethi	%hi(.LC104), %o1
				or	%o1, %lo(.LC104), %o1
				call	memcpy, 0
				 mov	%l0, %o0
		.LVL1016:
				stb	%g0, [%l0+7]
				sethi	%hi(22416384), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(44833792), %l0
				srlx	%l0, 10, %l0
				add	%i5, %l0, %l0
				mov	6, %o2
				sethi	%hi(.LC105), %o1
				or	%o1, %lo(.LC105), %o1
				call	memcpy, 0
				 mov	%l0, %o0
		.LVL1017:
				stb	%g0, [%l0+6]
				stb	%g0, [%l0+7]
				sethi	%hi(22547456), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(45095936), %o0
				srlx	%o0, 10, %o0
				sethi	%hi(.LC106), %g1
				ldub	[%g1+%lo(.LC106)], %g2
				stb	%g2, [%i5+%o0]
				add	%i5, %o0, %o0
				ldub	[%g1+%lo(.LC106)+1], %g1
				stb	%g1, [%o0+1]
				mov	6, %o2
				mov	0, %o1
				call	memset, 0
				 add	%o0, 2, %o0
		.LVL1018:
				sethi	%hi(22678528), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(45358080), %i3
				srlx	%i3, 10, %i3
				add	%i5, %i3, %i3
				mov	6, %o2
				sethi	%hi(.LC107), %o1
				or	%o1, %lo(.LC107), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1019:
				stb	%g0, [%i3+6]
				stb	%g0, [%i3+7]
				mov	7, %g2
				sethi	%hi(22809600), %g1
				srlx	%g1, 9, %g1
				stb	%g2, [%i5+%g1]
				mov	8, %o2
				sethi	%hi(.LC108), %o1
				or	%o1, %lo(.LC108), %o1
				sethi	%hi(45620224), %o0
				srlx	%o0, 10, %o0
				call	memcpy, 0
				 add	%i5, %o0, %o0
		.LVL1020:
				mov	2, %l0
				sethi	%hi(22940672), %g1
				srlx	%g1, 9, %g1
				stb	%l0, [%i5+%g1]
				sethi	%hi(45882368), %i3
				srlx	%i3, 10, %i3
				add	%i5, %i3, %i3
				mov	3, %o2
				sethi	%hi(.LC109), %o1
				or	%o1, %lo(.LC109), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1021:
				mov	5, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i3, 3, %o0
		.LVL1022:
				sethi	%hi(23071744), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(46144512), %i3
				srlx	%i3, 10, %i3
				add	%i5, %i3, %i3
				mov	6, %o2
				sethi	%hi(.LC110), %o1
				or	%o1, %lo(.LC110), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1023:
				stb	%g0, [%i3+6]
				stb	%g0, [%i3+7]
				sethi	%hi(23202816), %g1
				srlx	%g1, 9, %g1
				stb	%l0, [%i5+%g1]
				sethi	%hi(46406656), %i3
				srlx	%i3, 10, %i3
				add	%i5, %i3, %i3
				mov	3, %o2
				sethi	%hi(.LC111), %o1
				or	%o1, %lo(.LC111), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1024:
				mov	5, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i3, 3, %o0
		.LVL1025:
				sethi	%hi(23333888), %g1
				srlx	%g1, 9, %g1
				stb	%i0, [%i5+%g1]
				sethi	%hi(46668800), %i3
				srlx	%i3, 10, %i3
				add	%i5, %i3, %i3
				mov	4, %o2
				sethi	%hi(.LC112), %o1
				or	%o1, %lo(.LC112), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1026:
				mov	4, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i3, 4, %o0
		.LVL1027:
				sethi	%hi(23464960), %g1
				srlx	%g1, 9, %g1
				stb	%i1, [%i5+%g1]
				sethi	%hi(46930944), %i3
				srlx	%i3, 10, %i3
				add	%i5, %i3, %i3
				mov	7, %o2
				sethi	%hi(.LC113), %o1
				or	%o1, %lo(.LC113), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1028:
				stb	%g0, [%i3+7]
				sethi	%hi(23596032), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(47193088), %i3
				srlx	%i3, 10, %i3
				add	%i5, %i3, %i3
				mov	6, %o2
				sethi	%hi(.LC114), %o1
				or	%o1, %lo(.LC114), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1029:
				stb	%g0, [%i3+6]
				stb	%g0, [%i3+7]
				sethi	%hi(23727104), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(47455232), %i3
				srlx	%i3, 10, %i3
				add	%i5, %i3, %i3
				mov	6, %o2
				sethi	%hi(.LC115), %o1
				or	%o1, %lo(.LC115), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1030:
				stb	%g0, [%i3+6]
				stb	%g0, [%i3+7]
				mov	4, %g2
				sethi	%hi(23858176), %g1
				srlx	%g1, 9, %g1
				stb	%g2, [%i5+%g1]
				sethi	%hi(47717376), %i3
				srlx	%i3, 10, %i3
				add	%i5, %i3, %i3
				mov	5, %o2
				sethi	%hi(.LC116), %o1
				or	%o1, %lo(.LC116), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1031:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i3, 5, %o0
		.LVL1032:
				sethi	%hi(23989248), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(47979520), %i3
				srlx	%i3, 10, %i3
				add	%i5, %i3, %i3
				mov	6, %o2
				sethi	%hi(.LC117), %o1
				or	%o1, %lo(.LC117), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1033:
				stb	%g0, [%i3+6]
				stb	%g0, [%i3+7]
				sethi	%hi(24120320), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(48241664), %i4
				srlx	%i4, 10, %i4
				add	%i5, %i4, %i4
				mov	6, %o2
				sethi	%hi(.LC118), %o1
				or	%o1, %lo(.LC118), %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL1034:
				stb	%g0, [%i4+6]
				stb	%g0, [%i4+7]
				sethi	%hi(24251392), %g1
				srlx	%g1, 9, %g1
				stb	%i1, [%i5+%g1]
				sethi	%hi(48503808), %i4
				srlx	%i4, 10, %i4
				add	%i5, %i4, %i4
				mov	7, %o2
				sethi	%hi(.LC119), %o1
				or	%o1, %lo(.LC119), %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL1035:
				stb	%g0, [%i4+7]
				sethi	%hi(24382464), %g1
				srlx	%g1, 9, %g1
				stb	%i0, [%i5+%g1]
				sethi	%hi(48765952), %i4
				srlx	%i4, 10, %i4
				add	%i5, %i4, %i4
				mov	4, %o2
				sethi	%hi(.LC120), %o1
				or	%o1, %lo(.LC120), %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL1036:
				mov	4, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i4, 4, %o0
		.LVL1037:
				sethi	%hi(24513536), %g1
				srlx	%g1, 9, %g1
				stb	%i2, [%i5+%g1]
				mov	8, %o2
				sethi	%hi(.LC121), %o1
				or	%o1, %lo(.LC121), %o1
				sethi	%hi(49028096), %o0
				srlx	%o0, 10, %o0
				call	memcpy, 0
				 add	%i5, %o0, %o0
		.LVL1038:
				sethi	%hi(104448), %i5
				xor	%i5, -792, %i5
				add	%fp, 2047, %g1
				add	%g1, %i5, %i5
				mov	6, %i3
				sethi	%hi(24644608), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(49290240), %i4
				srlx	%i4, 10, %i4
				add	%i5, %i4, %i4
				mov	7, %o2
				sethi	%hi(.LC122), %o1
				or	%o1, %lo(.LC122), %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL1039:
				stb	%g0, [%i4+7]
				sethi	%hi(24775680), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(49552384), %i4
				srlx	%i4, 10, %i4
				add	%i5, %i4, %i4
				mov	7, %o2
				sethi	%hi(.LC123), %o1
				or	%o1, %lo(.LC123), %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL1040:
				stb	%g0, [%i4+7]
				sethi	%hi(24906752), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(49814528), %i4
				srlx	%i4, 10, %i4
				add	%i5, %i4, %i4
				mov	7, %o2
				sethi	%hi(.LC124), %o1
				or	%o1, %lo(.LC124), %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL1041:
				stb	%g0, [%i4+7]
				sethi	%hi(25037824), %g1
				srlx	%g1, 9, %g1
				mov	4, %g2
				stb	%g2, [%i5+%g1]
				sethi	%hi(50076672), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	5, %i4
				mov	5, %o2
				sethi	%hi(.LC125), %o1
				or	%o1, %lo(.LC125), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1042:
				mov	3, %i3
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i2, 5, %o0
		.LVL1043:
				sethi	%hi(25168896), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(50338816), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	6, %o2
				sethi	%hi(.LC126), %o1
				or	%o1, %lo(.LC126), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1044:
				stb	%g0, [%i2+6]
				stb	%g0, [%i2+7]
				mov	5, %g2
				sethi	%hi(25299968), %g1
				srlx	%g1, 9, %g1
				stb	%g2, [%i5+%g1]
				sethi	%hi(50600960), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	6, %o2
				sethi	%hi(.LC127), %o1
				or	%o1, %lo(.LC127), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1045:
				stb	%g0, [%i2+6]
				stb	%g0, [%i2+7]
				mov	3, %l0
				sethi	%hi(25431040), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(50863104), %i0
				srlx	%i0, 10, %i0
				add	%i5, %i0, %i0
				mov	4, %i2
				mov	4, %o2
				sethi	%hi(.LC128), %o1
				or	%o1, %lo(.LC128), %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL1046:
				mov	4, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i0, 4, %o0
		.LVL1047:
				sethi	%hi(25562112), %g1
				srlx	%g1, 9, %g1
				stb	%l0, [%i5+%g1]
				sethi	%hi(51125248), %i0
				srlx	%i0, 10, %i0
				add	%i5, %i0, %i0
				mov	4, %o2
				sethi	%hi(.LC129), %o1
				or	%o1, %lo(.LC129), %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL1048:
				mov	4, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i0, 4, %o0
		.LVL1049:
				sethi	%hi(25693184), %g1
				srlx	%g1, 9, %g1
				stb	%l0, [%i5+%g1]
				sethi	%hi(51387392), %i0
				srlx	%i0, 10, %i0
				add	%i5, %i0, %i0
				mov	4, %o2
				sethi	%hi(.LC130), %o1
				or	%o1, %lo(.LC130), %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL1050:
				mov	4, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i0, 4, %o0
		.LVL1051:
				sethi	%hi(25824256), %g1
				srlx	%g1, 9, %g1
				stb	%i2, [%i5+%g1]
				sethi	%hi(51649536), %i0
				srlx	%i0, 10, %i0
				add	%i5, %i0, %i0
				mov	5, %o2
				sethi	%hi(.LC131), %o1
				or	%o1, %lo(.LC131), %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL1052:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i0, 5, %o0
		.LVL1053:
				sethi	%hi(25955328), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(51911680), %i0
				srlx	%i0, 10, %i0
				add	%i5, %i0, %i0
				mov	4, %o2
				sethi	%hi(.LC132), %o1
				or	%o1, %lo(.LC132), %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL1054:
				mov	4, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i0, 4, %o0
		.LVL1055:
				sethi	%hi(26086400), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(52173824), %i0
				srlx	%i0, 10, %i0
				add	%i5, %i0, %i0
				mov	4, %o2
				sethi	%hi(.LC133), %o1
				or	%o1, %lo(.LC133), %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL1056:
				mov	4, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i0, 4, %o0
		.LVL1057:
				sethi	%hi(26217472), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(52435968), %i0
				srlx	%i0, 10, %i0
				add	%i5, %i0, %i0
				mov	4, %o2
				sethi	%hi(.LC134), %o1
				or	%o1, %lo(.LC134), %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL1058:
				mov	4, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i0, 4, %o0
		.LVL1059:
				sethi	%hi(26348544), %g1
				srlx	%g1, 9, %g1
				stb	%i2, [%i5+%g1]
				sethi	%hi(52698112), %i0
				srlx	%i0, 10, %i0
				add	%i5, %i0, %i0
				mov	5, %o2
				sethi	%hi(.LC135), %o1
				or	%o1, %lo(.LC135), %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL1060:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i0, 5, %o0
		.LVL1061:
				sethi	%hi(26479616), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(52960256), %i0
				srlx	%i0, 10, %i0
				add	%i5, %i0, %i0
				mov	6, %o2
				sethi	%hi(.LC136), %o1
				or	%o1, %lo(.LC136), %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL1062:
				stb	%g0, [%i0+6]
				stb	%g0, [%i0+7]
				mov	2, %l0
				sethi	%hi(26610688), %g1
				srlx	%g1, 9, %g1
				stb	%l0, [%i5+%g1]
				sethi	%hi(53222400), %i0
				srlx	%i0, 10, %i0
				add	%i5, %i0, %i0
				mov	3, %o2
				sethi	%hi(.LC137), %o1
				or	%o1, %lo(.LC137), %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL1063:
				mov	5, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i0, 3, %o0
		.LVL1064:
				sethi	%hi(26741760), %g1
				srlx	%g1, 9, %g1
				stb	%i2, [%i5+%g1]
				sethi	%hi(53484544), %i0
				srlx	%i0, 10, %i0
				add	%i5, %i0, %i0
				mov	5, %o2
				sethi	%hi(.LC138), %o1
				or	%o1, %lo(.LC138), %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL1065:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i0, 5, %o0
		.LVL1066:
				sethi	%hi(26872832), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(53746688), %i0
				srlx	%i0, 10, %i0
				add	%i5, %i0, %i0
				mov	4, %o2
				sethi	%hi(.LC139), %o1
				or	%o1, %lo(.LC139), %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL1067:
				mov	4, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i0, 4, %o0
		.LVL1068:
				sethi	%hi(27003904), %g1
				srlx	%g1, 9, %g1
				stb	%i2, [%i5+%g1]
				sethi	%hi(54008832), %i0
				srlx	%i0, 10, %i0
				add	%i5, %i0, %i0
				mov	5, %o2
				sethi	%hi(.LC140), %o1
				or	%o1, %lo(.LC140), %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL1069:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i0, 5, %o0
		.LVL1070:
				sethi	%hi(27134976), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(54270976), %i0
				srlx	%i0, 10, %i0
				add	%i5, %i0, %i0
				mov	6, %o2
				sethi	%hi(.LC141), %o1
				or	%o1, %lo(.LC141), %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL1071:
				stb	%g0, [%i0+6]
				stb	%g0, [%i0+7]
				sethi	%hi(27266048), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(54533120), %i0
				srlx	%i0, 10, %i0
				add	%i5, %i0, %i0
				mov	4, %o2
				sethi	%hi(.LC142), %o1
				or	%o1, %lo(.LC142), %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL1072:
				mov	4, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i0, 4, %o0
		.LVL1073:
				sethi	%hi(27397120), %g1
				srlx	%g1, 9, %g1
				stb	%l0, [%i5+%g1]
				sethi	%hi(54795264), %i0
				srlx	%i0, 10, %i0
				add	%i5, %i0, %i0
				mov	3, %o2
				sethi	%hi(.LC143), %o1
				or	%o1, %lo(.LC143), %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL1074:
				mov	5, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i0, 3, %o0
		.LVL1075:
				sethi	%hi(27528192), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(55057408), %i0
				srlx	%i0, 10, %i0
				add	%i5, %i0, %i0
				mov	4, %o2
				sethi	%hi(.LC144), %o1
				or	%o1, %lo(.LC144), %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL1076:
				mov	4, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i0, 4, %o0
		.LVL1077:
				sethi	%hi(27659264), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(55319552), %i0
				srlx	%i0, 10, %i0
				add	%i5, %i0, %i0
				mov	6, %o2
				sethi	%hi(.LC145), %o1
				or	%o1, %lo(.LC145), %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL1078:
				stb	%g0, [%i0+6]
				stb	%g0, [%i0+7]
				sethi	%hi(27790336), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(55581696), %i0
				srlx	%i0, 10, %i0
				add	%i5, %i0, %i0
				mov	6, %o2
				sethi	%hi(.LC146), %o1
				or	%o1, %lo(.LC146), %o1
				call	memcpy, 0
				 mov	%i0, %o0
		.LVL1079:
				stb	%g0, [%i0+6]
				stb	%g0, [%i0+7]
				sethi	%hi(27921408), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(55843840), %i3
				srlx	%i3, 10, %i3
				add	%i5, %i3, %i3
				mov	4, %o2
				sethi	%hi(.LC147), %o1
				or	%o1, %lo(.LC147), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1080:
				mov	4, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i3, 4, %o0
		.LVL1081:
				sethi	%hi(28052480), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(56105984), %i3
				srlx	%i3, 10, %i3
				add	%i5, %i3, %i3
				mov	6, %o2
				sethi	%hi(.LC148), %o1
				or	%o1, %lo(.LC148), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1082:
				stb	%g0, [%i3+6]
				stb	%g0, [%i3+7]
				sethi	%hi(28183552), %g1
				srlx	%g1, 9, %g1
				stb	%i2, [%i5+%g1]
				sethi	%hi(56368128), %i3
				srlx	%i3, 10, %i3
				add	%i5, %i3, %i3
				mov	5, %o2
				sethi	%hi(.LC149), %o1
				or	%o1, %lo(.LC149), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1083:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i3, 5, %o0
		.LVL1084:
				sethi	%hi(28314624), %g1
				srlx	%g1, 9, %g1
				stb	%l0, [%i5+%g1]
				sethi	%hi(56630272), %i3
				srlx	%i3, 10, %i3
				add	%i5, %i3, %i3
				mov	3, %o2
				sethi	%hi(.LC150), %o1
				or	%o1, %lo(.LC150), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1085:
				mov	5, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i3, 3, %o0
		.LVL1086:
				sethi	%hi(28445696), %g1
				srlx	%g1, 9, %g1
				stb	%i1, [%i5+%g1]
				sethi	%hi(56892416), %i3
				srlx	%i3, 10, %i3
				add	%i5, %i3, %i3
				mov	7, %o2
				sethi	%hi(.LC151), %o1
				or	%o1, %lo(.LC151), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1087:
				stb	%g0, [%i3+7]
				sethi	%hi(28576768), %g1
				srlx	%g1, 9, %g1
				stb	%i2, [%i5+%g1]
				sethi	%hi(57154560), %i3
				srlx	%i3, 10, %i3
				add	%i5, %i3, %i3
				mov	5, %o2
				sethi	%hi(.LC152), %o1
				or	%o1, %lo(.LC152), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1088:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i3, 5, %o0
		.LVL1089:
				sethi	%hi(28707840), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(57416704), %i3
				srlx	%i3, 10, %i3
				add	%i5, %i3, %i3
				mov	6, %o2
				sethi	%hi(.LC153), %o1
				or	%o1, %lo(.LC153), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1090:
				stb	%g0, [%i3+6]
				stb	%g0, [%i3+7]
				sethi	%hi(28838912), %g1
				srlx	%g1, 9, %g1
				stb	%i2, [%i5+%g1]
				sethi	%hi(57678848), %i3
				srlx	%i3, 10, %i3
				add	%i5, %i3, %i3
				mov	5, %o2
				sethi	%hi(.LC154), %o1
				or	%o1, %lo(.LC154), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1091:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i3, 5, %o0
		.LVL1092:
				sethi	%hi(28969984), %g1
				srlx	%g1, 9, %g1
				stb	%i1, [%i5+%g1]
				sethi	%hi(57940992), %i3
				srlx	%i3, 10, %i3
				add	%i5, %i3, %i3
				mov	7, %o2
				sethi	%hi(.LC155), %o1
				or	%o1, %lo(.LC155), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1093:
				stb	%g0, [%i3+7]
				sethi	%hi(29101056), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(58203136), %i3
				srlx	%i3, 10, %i3
				add	%i5, %i3, %i3
				mov	6, %o2
				sethi	%hi(.LC156), %o1
				or	%o1, %lo(.LC156), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1094:
				stb	%g0, [%i3+6]
				stb	%g0, [%i3+7]
				sethi	%hi(29232128), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(58465280), %i3
				srlx	%i3, 10, %i3
				add	%i5, %i3, %i3
				mov	6, %o2
				sethi	%hi(.LC157), %o1
				or	%o1, %lo(.LC157), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1095:
				stb	%g0, [%i3+6]
				stb	%g0, [%i3+7]
				sethi	%hi(29363200), %g1
				srlx	%g1, 9, %g1
				stb	%i1, [%i5+%g1]
				sethi	%hi(58727424), %i3
				srlx	%i3, 10, %i3
				add	%i5, %i3, %i3
				mov	7, %o2
				sethi	%hi(.LC158), %o1
				or	%o1, %lo(.LC158), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1096:
				stb	%g0, [%i3+7]
				mov	7, %g2
				sethi	%hi(29494272), %g1
				srlx	%g1, 9, %g1
				stb	%g2, [%i5+%g1]
				mov	8, %o2
				sethi	%hi(.LC159), %o1
				or	%o1, %lo(.LC159), %o1
				sethi	%hi(58989568), %o0
				srlx	%o0, 10, %o0
				call	memcpy, 0
				 add	%i5, %o0, %o0
		.LVL1097:
				sethi	%hi(29625344), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(59251712), %i4
				srlx	%i4, 10, %i4
				mov	6, %o2
				sethi	%hi(.LC160), %o1
				or	%o1, %lo(.LC160), %o1
				call	memcpy, 0
				 add	%i5, %i4, %o0
		.LVL1098:
				add	%i5, %i4, %i5
				stb	%g0, [%i5+6]
				stb	%g0, [%i5+7]
				sethi	%hi(104448), %i5
				xor	%i5, -792, %i5
				add	%fp, 2047, %g1
				add	%g1, %i5, %i5
				sethi	%hi(29756416), %g1
				srlx	%g1, 9, %g1
				mov	3, %g2
				stb	%g2, [%i5+%g1]
				sethi	%hi(59513856), %i4
				srlx	%i4, 10, %i4
				add	%i5, %i4, %i4
				mov	4, %i1
				mov	4, %o2
				sethi	%hi(.LC161), %o1
				or	%o1, %lo(.LC161), %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL1099:
				mov	4, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i4, 4, %o0
		.LVL1100:
				mov	7, %i4
				sethi	%hi(29887488), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				mov	8, %o2
				sethi	%hi(.LC162), %o1
				or	%o1, %lo(.LC162), %o1
				sethi	%hi(59776000), %o0
				srlx	%o0, 10, %o0
				call	memcpy, 0
				 add	%i5, %o0, %o0
		.LVL1101:
				sethi	%hi(30018560), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				mov	8, %o2
				sethi	%hi(.LC163), %o1
				or	%o1, %lo(.LC163), %o1
				sethi	%hi(60038144), %o0
				srlx	%o0, 10, %o0
				call	memcpy, 0
				 add	%i5, %o0, %o0
		.LVL1102:
				sethi	%hi(30149632), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				mov	8, %o2
				sethi	%hi(.LC164), %o1
				or	%o1, %lo(.LC164), %o1
				sethi	%hi(60300288), %o0
				srlx	%o0, 10, %o0
				call	memcpy, 0
				 add	%i5, %o0, %o0
		.LVL1103:
				sethi	%hi(30280704), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				mov	8, %o2
				sethi	%hi(.LC165), %o1
				or	%o1, %lo(.LC165), %o1
				sethi	%hi(60562432), %o0
				srlx	%o0, 10, %o0
				call	memcpy, 0
				 add	%i5, %o0, %o0
		.LVL1104:
				sethi	%hi(30411776), %g1
				srlx	%g1, 9, %g1
				stb	%i1, [%i5+%g1]
				sethi	%hi(60824576), %i3
				srlx	%i3, 10, %i3
				add	%i5, %i3, %i3
				mov	5, %i0
				mov	5, %o2
				sethi	%hi(.LC166), %o1
				or	%o1, %lo(.LC166), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1105:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i3, 5, %o0
		.LVL1106:
				sethi	%hi(30542848), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				mov	8, %o2
				sethi	%hi(.LC167), %o1
				or	%o1, %lo(.LC167), %o1
				sethi	%hi(61086720), %o0
				srlx	%o0, 10, %o0
				call	memcpy, 0
				 add	%i5, %o0, %o0
		.LVL1107:
				sethi	%hi(30673920), %g1
				srlx	%g1, 9, %g1
				stb	%i1, [%i5+%g1]
				sethi	%hi(61348864), %i3
				srlx	%i3, 10, %i3
				add	%i5, %i3, %i3
				mov	5, %o2
				sethi	%hi(.LC168), %o1
				or	%o1, %lo(.LC168), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1108:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i3, 5, %o0
		.LVL1109:
				sethi	%hi(30804992), %g1
				srlx	%g1, 9, %g1
				stb	%i1, [%i5+%g1]
				sethi	%hi(61611008), %i3
				srlx	%i3, 10, %i3
				add	%i5, %i3, %i3
				mov	5, %o2
				sethi	%hi(.LC169), %o1
				or	%o1, %lo(.LC169), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1110:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i3, 5, %o0
		.LVL1111:
				sethi	%hi(30936064), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				mov	8, %o2
				sethi	%hi(.LC170), %o1
				or	%o1, %lo(.LC170), %o1
				sethi	%hi(61873152), %o0
				srlx	%o0, 10, %o0
				call	memcpy, 0
				 add	%i5, %o0, %o0
		.LVL1112:
				sethi	%hi(31067136), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				mov	8, %o2
				sethi	%hi(.LC171), %o1
				or	%o1, %lo(.LC171), %o1
				sethi	%hi(62135296), %o0
				srlx	%o0, 10, %o0
				call	memcpy, 0
				 add	%i5, %o0, %o0
		.LVL1113:
				sethi	%hi(31198208), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				mov	8, %o2
				sethi	%hi(.LC172), %o1
				or	%o1, %lo(.LC172), %o1
				sethi	%hi(62397440), %o0
				srlx	%o0, 10, %o0
				call	memcpy, 0
				 add	%i5, %o0, %o0
		.LVL1114:
				sethi	%hi(31329280), %g1
				srlx	%g1, 9, %g1
				stb	%i1, [%i5+%g1]
				sethi	%hi(62659584), %i3
				srlx	%i3, 10, %i3
				add	%i5, %i3, %i3
				mov	5, %o2
				sethi	%hi(.LC173), %o1
				or	%o1, %lo(.LC173), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1115:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i3, 5, %o0
		.LVL1116:
				sethi	%hi(31460352), %g1
				srlx	%g1, 9, %g1
				stb	%i0, [%i5+%g1]
				sethi	%hi(62921728), %i3
				srlx	%i3, 10, %i3
				add	%i5, %i3, %i3
				mov	6, %o2
				sethi	%hi(.LC174), %o1
				or	%o1, %lo(.LC174), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1117:
				stb	%g0, [%i3+6]
				stb	%g0, [%i3+7]
				sethi	%hi(31591424), %g1
				srlx	%g1, 9, %g1
				stb	%i0, [%i5+%g1]
				sethi	%hi(63183872), %i3
				srlx	%i3, 10, %i3
				add	%i5, %i3, %i3
				mov	6, %o2
				sethi	%hi(.LC175), %o1
				or	%o1, %lo(.LC175), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1118:
				stb	%g0, [%i3+6]
				stb	%g0, [%i3+7]
				sethi	%hi(31722496), %g1
				srlx	%g1, 9, %g1
				stb	%i0, [%i5+%g1]
				sethi	%hi(63446016), %i3
				srlx	%i3, 10, %i3
				add	%i5, %i3, %i3
				mov	6, %o2
				sethi	%hi(.LC176), %o1
				or	%o1, %lo(.LC176), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1119:
				stb	%g0, [%i3+6]
				stb	%g0, [%i3+7]
				mov	1, %i3
				sethi	%hi(31853568), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(63708160), %o0
				srlx	%o0, 10, %o0
				sethi	%hi(.LC177), %g1
				ldub	[%g1+%lo(.LC177)], %g2
				stb	%g2, [%i5+%o0]
				add	%i5, %o0, %o0
				ldub	[%g1+%lo(.LC177)+1], %g1
				stb	%g1, [%o0+1]
				mov	6, %o2
				mov	0, %o1
				call	memset, 0
				 add	%o0, 2, %o0
		.LVL1120:
				sethi	%hi(31984640), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(63970304), %o0
				srlx	%o0, 10, %o0
				sethi	%hi(.LC178), %g1
				ldub	[%g1+%lo(.LC178)], %g2
				stb	%g2, [%i5+%o0]
				add	%i5, %o0, %o0
				ldub	[%g1+%lo(.LC178)+1], %g1
				stb	%g1, [%o0+1]
				mov	6, %o2
				mov	0, %o1
				call	memset, 0
				 add	%o0, 2, %o0
		.LVL1121:
				sethi	%hi(32115712), %g1
				srlx	%g1, 9, %g1
				stb	%i0, [%i5+%g1]
				sethi	%hi(64232448), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	6, %o2
				sethi	%hi(.LC179), %o1
				or	%o1, %lo(.LC179), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1122:
				stb	%g0, [%i2+6]
				stb	%g0, [%i2+7]
				mov	2, %i2
				sethi	%hi(32246784), %g1
				srlx	%g1, 9, %g1
				stb	%i2, [%i5+%g1]
				sethi	%hi(64494592), %l0
				srlx	%l0, 10, %l0
				add	%i5, %l0, %l0
				mov	3, %o2
				sethi	%hi(.LC180), %o1
				or	%o1, %lo(.LC180), %o1
				call	memcpy, 0
				 mov	%l0, %o0
		.LVL1123:
				mov	5, %o2
				mov	0, %o1
				call	memset, 0
				 add	%l0, 3, %o0
		.LVL1124:
				sethi	%hi(32508928), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(65018880), %o0
				srlx	%o0, 10, %o0
				sethi	%hi(.LC181), %g1
				ldub	[%g1+%lo(.LC181)], %g2
				stb	%g2, [%i5+%o0]
				add	%i5, %o0, %o0
				ldub	[%g1+%lo(.LC181)+1], %g1
				stb	%g1, [%o0+1]
				mov	6, %o2
				mov	0, %o1
				call	memset, 0
				 add	%o0, 2, %o0
		.LVL1125:
				sethi	%hi(32640000), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(65281024), %o0
				srlx	%o0, 10, %o0
				sethi	%hi(.LC182), %g1
				ldub	[%g1+%lo(.LC182)], %g2
				stb	%g2, [%i5+%o0]
				add	%i5, %o0, %o0
				ldub	[%g1+%lo(.LC182)+1], %g1
				stb	%g1, [%o0+1]
				mov	6, %o2
				mov	0, %o1
				call	memset, 0
				 add	%o0, 2, %o0
		.LVL1126:
				sethi	%hi(32771072), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(65543168), %o0
				srlx	%o0, 10, %o0
				sethi	%hi(.LC183), %g1
				ldub	[%g1+%lo(.LC183)], %g2
				stb	%g2, [%i5+%o0]
				add	%i5, %o0, %o0
				ldub	[%g1+%lo(.LC183)+1], %g1
				stb	%g1, [%o0+1]
				mov	6, %o2
				mov	0, %o1
				call	memset, 0
				 add	%o0, 2, %o0
		.LVL1127:
				sethi	%hi(32902144), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(65805312), %o0
				srlx	%o0, 10, %o0
				sethi	%hi(.LC184), %g1
				ldub	[%g1+%lo(.LC184)], %g2
				stb	%g2, [%i5+%o0]
				add	%i5, %o0, %o0
				ldub	[%g1+%lo(.LC184)+1], %g1
				stb	%g1, [%o0+1]
				mov	6, %o2
				mov	0, %o1
				call	memset, 0
				 add	%o0, 2, %o0
		.LVL1128:
				sethi	%hi(33033216), %g1
				srlx	%g1, 9, %g1
				stb	%i2, [%i5+%g1]
				sethi	%hi(66067456), %l0
				srlx	%l0, 10, %l0
				add	%i5, %l0, %l0
				mov	3, %o2
				sethi	%hi(.LC185), %o1
				or	%o1, %lo(.LC185), %o1
				call	memcpy, 0
				 mov	%l0, %o0
		.LVL1129:
				mov	5, %o2
				mov	0, %o1
				call	memset, 0
				 add	%l0, 3, %o0
		.LVL1130:
				sethi	%hi(33164288), %g1
				srlx	%g1, 9, %g1
				stb	%i2, [%i5+%g1]
				sethi	%hi(66329600), %l0
				srlx	%l0, 10, %l0
				add	%i5, %l0, %l0
				mov	3, %o2
				sethi	%hi(.LC186), %o1
				or	%o1, %lo(.LC186), %o1
				call	memcpy, 0
				 mov	%l0, %o0
		.LVL1131:
				mov	5, %o2
				mov	0, %o1
				call	memset, 0
				 add	%l0, 3, %o0
		.LVL1132:
				sethi	%hi(33295360), %g1
				srlx	%g1, 9, %g1
				stb	%i2, [%i5+%g1]
				sethi	%hi(66591744), %l0
				srlx	%l0, 10, %l0
				add	%i5, %l0, %l0
				mov	3, %o2
				sethi	%hi(.LC187), %o1
				or	%o1, %lo(.LC187), %o1
				call	memcpy, 0
				 mov	%l0, %o0
		.LVL1133:
				mov	5, %o2
				mov	0, %o1
				call	memset, 0
				 add	%l0, 3, %o0
		.LVL1134:
				sethi	%hi(33426432), %g1
				srlx	%g1, 9, %g1
				stb	%i2, [%i5+%g1]
				sethi	%hi(66853888), %l0
				srlx	%l0, 10, %l0
				add	%i5, %l0, %l0
				mov	3, %o2
				sethi	%hi(.LC188), %o1
				or	%o1, %lo(.LC188), %o1
				call	memcpy, 0
				 mov	%l0, %o0
		.LVL1135:
				mov	5, %o2
				mov	0, %o1
				call	memset, 0
				 add	%l0, 3, %o0
		.LVL1136:
				sethi	%hi(33557504), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(67116032), %o0
				srlx	%o0, 10, %o0
				sethi	%hi(.LC189), %g1
				ldub	[%g1+%lo(.LC189)], %g2
				stb	%g2, [%i5+%o0]
				add	%i5, %o0, %o0
				ldub	[%g1+%lo(.LC189)+1], %g1
				stb	%g1, [%o0+1]
				mov	6, %o2
				mov	0, %o1
				call	memset, 0
				 add	%o0, 2, %o0
		.LVL1137:
				sethi	%hi(33688576), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(67378176), %o0
				srlx	%o0, 10, %o0
				sethi	%hi(.LC190), %g1
				ldub	[%g1+%lo(.LC190)], %g2
				stb	%g2, [%i5+%o0]
				add	%i5, %o0, %o0
				ldub	[%g1+%lo(.LC190)+1], %g1
				stb	%g1, [%o0+1]
				mov	6, %o2
				mov	0, %o1
				call	memset, 0
				 add	%o0, 2, %o0
		.LVL1138:
				sethi	%hi(33819648), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(67640320), %o0
				srlx	%o0, 10, %o0
				sethi	%hi(.LC191), %g1
				ldub	[%g1+%lo(.LC191)], %g2
				stb	%g2, [%i5+%o0]
				add	%i5, %o0, %o0
				ldub	[%g1+%lo(.LC191)+1], %g1
				stb	%g1, [%o0+1]
				mov	6, %o2
				mov	0, %o1
				call	memset, 0
				 add	%o0, 2, %o0
		.LVL1139:
				sethi	%hi(33950720), %g1
				srlx	%g1, 9, %g1
				stb	%i2, [%i5+%g1]
				sethi	%hi(67902464), %i3
				srlx	%i3, 10, %i3
				add	%i5, %i3, %i3
				mov	3, %o2
				sethi	%hi(.LC192), %o1
				or	%o1, %lo(.LC192), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1140:
				mov	5, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i3, 3, %o0
		.LVL1141:
				sethi	%hi(34081792), %g1
				srlx	%g1, 9, %g1
				stb	%i2, [%i5+%g1]
				sethi	%hi(68164608), %i3
				srlx	%i3, 10, %i3
				add	%i5, %i3, %i3
				mov	3, %o2
				sethi	%hi(.LC193), %o1
				or	%o1, %lo(.LC193), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1142:
				mov	5, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i3, 3, %o0
		.LVL1143:
				mov	3, %g2
				sethi	%hi(34212864), %g1
				srlx	%g1, 9, %g1
				stb	%g2, [%i5+%g1]
				sethi	%hi(68426752), %i3
				srlx	%i3, 10, %i3
				add	%i5, %i3, %i3
				mov	4, %o2
				sethi	%hi(.LC194), %o1
				or	%o1, %lo(.LC194), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1144:
				mov	4, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i3, 4, %o0
		.LVL1145:
				sethi	%hi(35654656), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				mov	8, %o2
				sethi	%hi(.LC195), %o1
				or	%o1, %lo(.LC195), %o1
				sethi	%hi(71310336), %o0
				srlx	%o0, 10, %o0
				call	memcpy, 0
				 add	%i5, %o0, %o0
		.LVL1146:
				mov	6, %g2
				sethi	%hi(35785728), %g1
				srlx	%g1, 9, %g1
				stb	%g2, [%i5+%g1]
				sethi	%hi(71572480), %i4
				srlx	%i4, 10, %i4
				add	%i5, %i4, %i4
				mov	7, %o2
				sethi	%hi(.LC196), %o1
				or	%o1, %lo(.LC196), %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL1147:
				stb	%g0, [%i4+7]
				sethi	%hi(35916800), %g1
				srlx	%g1, 9, %g1
				stb	%i0, [%i5+%g1]
				sethi	%hi(71834624), %i4
				srlx	%i4, 10, %i4
				add	%i5, %i4, %i4
				mov	6, %o2
				sethi	%hi(.LC197), %o1
				or	%o1, %lo(.LC197), %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL1148:
				stb	%g0, [%i4+6]
				stb	%g0, [%i4+7]
				mov	8, %g2
				sethi	%hi(36178944), %g1
				srlx	%g1, 9, %g1
				stb	%g2, [%i5+%g1]
				mov	8, %o2
				sethi	%hi(.LC198), %o1
				or	%o1, %lo(.LC198), %o1
				sethi	%hi(72358912), %o0
				srlx	%o0, 10, %o0
				call	memcpy, 0
				 add	%i5, %o0, %o0
		.LVL1149:
				sethi	%hi(36310016), %g1
				srlx	%g1, 9, %g1
				stb	%i1, [%i5+%g1]
				sethi	%hi(72621056), %i4
				srlx	%i4, 10, %i4
				add	%i5, %i4, %i4
				mov	5, %o2
				sethi	%hi(.LC199), %o1
				or	%o1, %lo(.LC199), %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL1150:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i4, 5, %o0
		.LVL1151:
				sethi	%hi(36441088), %g1
				srlx	%g1, 9, %g1
				stb	%i1, [%i5+%g1]
				sethi	%hi(72883200), %g1
				srlx	%g1, 10, %g1
				add	%i5, %g1, %i5
				mov	5, %i3
				mov	5, %o2
				sethi	%hi(.LC200), %o1
				or	%o1, %lo(.LC200), %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL1152:
				mov	3, %i0
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i5, 5, %o0
		.LVL1153:
				sethi	%hi(104448), %i5
				xor	%i5, -792, %i5
				add	%fp, 2047, %g1
				add	%g1, %i5, %i5
				mov	5, %i2
				sethi	%hi(36572160), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(73145344), %i4
				srlx	%i4, 10, %i4
				add	%i5, %i4, %i4
				mov	6, %i1
				mov	6, %o2
				sethi	%hi(.LC201), %o1
				or	%o1, %lo(.LC201), %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL1154:
				stb	%g0, [%i4+6]
				stb	%g0, [%i4+7]
				sethi	%hi(36703232), %g1
				srlx	%g1, 9, %g1
				stb	%i2, [%i5+%g1]
				sethi	%hi(73407488), %i4
				srlx	%i4, 10, %i4
				add	%i5, %i4, %i4
				mov	6, %o2
				sethi	%hi(.LC202), %o1
				or	%o1, %lo(.LC202), %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL1155:
				stb	%g0, [%i4+6]
				stb	%g0, [%i4+7]
				sethi	%hi(36965376), %g1
				srlx	%g1, 9, %g1
				stb	%i1, [%i5+%g1]
				sethi	%hi(73931776), %i4
				srlx	%i4, 10, %i4
				add	%i5, %i4, %i4
				mov	7, %o2
				sethi	%hi(.LC203), %o1
				or	%o1, %lo(.LC203), %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL1156:
				stb	%g0, [%i4+7]
				sethi	%hi(37096448), %g1
				srlx	%g1, 9, %g1
				stb	%i1, [%i5+%g1]
				sethi	%hi(74193920), %i4
				srlx	%i4, 10, %i4
				add	%i5, %i4, %i4
				mov	7, %o2
				sethi	%hi(.LC204), %o1
				or	%o1, %lo(.LC204), %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL1157:
				stb	%g0, [%i4+7]
				sethi	%hi(37227520), %g1
				srlx	%g1, 9, %g1
				stb	%i1, [%i5+%g1]
				sethi	%hi(74456064), %i4
				srlx	%i4, 10, %i4
				add	%i5, %i4, %i4
				mov	7, %o2
				sethi	%hi(.LC205), %o1
				or	%o1, %lo(.LC205), %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL1158:
				stb	%g0, [%i4+7]
				sethi	%hi(37358592), %g1
				srlx	%g1, 9, %g1
				stb	%i2, [%i5+%g1]
				sethi	%hi(74718208), %i4
				srlx	%i4, 10, %i4
				add	%i5, %i4, %i4
				mov	6, %o2
				sethi	%hi(.LC206), %o1
				or	%o1, %lo(.LC206), %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL1159:
				stb	%g0, [%i4+6]
				stb	%g0, [%i4+7]
				mov	4, %i4
				sethi	%hi(37489664), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(74980352), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	5, %o2
				sethi	%hi(.LC207), %o1
				or	%o1, %lo(.LC207), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1160:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i2, 5, %o0
		.LVL1161:
				sethi	%hi(37620736), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(75242496), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	5, %o2
				sethi	%hi(.LC208), %o1
				or	%o1, %lo(.LC208), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1162:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i2, 5, %o0
		.LVL1163:
				sethi	%hi(37751808), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(75504640), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	5, %o2
				sethi	%hi(.LC209), %o1
				or	%o1, %lo(.LC209), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1164:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i2, 5, %o0
		.LVL1165:
				sethi	%hi(37882880), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(75766784), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	5, %o2
				sethi	%hi(.LC210), %o1
				or	%o1, %lo(.LC210), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1166:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i2, 5, %o0
		.LVL1167:
				sethi	%hi(38013952), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(76028928), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	5, %o2
				sethi	%hi(.LC211), %o1
				or	%o1, %lo(.LC211), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1168:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i2, 5, %o0
		.LVL1169:
				sethi	%hi(38145024), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(76291072), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	5, %o2
				sethi	%hi(.LC212), %o1
				or	%o1, %lo(.LC212), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1170:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i2, 5, %o0
		.LVL1171:
				sethi	%hi(38276096), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(76553216), %i4
				srlx	%i4, 10, %i4
				add	%i5, %i4, %i4
				mov	5, %o2
				sethi	%hi(.LC213), %o1
				or	%o1, %lo(.LC213), %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL1172:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i4, 5, %o0
		.LVL1173:
				sethi	%hi(38407168), %g1
				srlx	%g1, 9, %g1
				stb	%i0, [%i5+%g1]
				sethi	%hi(76815360), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	4, %i4
				mov	4, %o2
				sethi	%hi(.LC214), %o1
				or	%o1, %lo(.LC214), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1174:
				mov	4, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i2, 4, %o0
		.LVL1175:
				sethi	%hi(38538240), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(77077504), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	6, %o2
				sethi	%hi(.LC215), %o1
				or	%o1, %lo(.LC215), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1176:
				stb	%g0, [%i2+6]
				stb	%g0, [%i2+7]
				sethi	%hi(38669312), %g1
				srlx	%g1, 9, %g1
				stb	%i0, [%i5+%g1]
				sethi	%hi(77339648), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	4, %o2
				sethi	%hi(.LC216), %o1
				or	%o1, %lo(.LC216), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1177:
				mov	4, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i2, 4, %o0
		.LVL1178:
				sethi	%hi(38800384), %g1
				srlx	%g1, 9, %g1
				stb	%i0, [%i5+%g1]
				sethi	%hi(77601792), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	4, %o2
				sethi	%hi(.LC217), %o1
				or	%o1, %lo(.LC217), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1179:
				mov	4, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i2, 4, %o0
		.LVL1180:
				sethi	%hi(38931456), %g1
				srlx	%g1, 9, %g1
				stb	%i0, [%i5+%g1]
				sethi	%hi(77863936), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	4, %o2
				sethi	%hi(.LC218), %o1
				or	%o1, %lo(.LC218), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1181:
				mov	4, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i2, 4, %o0
		.LVL1182:
				sethi	%hi(39062528), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(78126080), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	5, %o2
				sethi	%hi(.LC219), %o1
				or	%o1, %lo(.LC219), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1183:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i2, 5, %o0
		.LVL1184:
				sethi	%hi(39193600), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(78388224), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	6, %o2
				sethi	%hi(.LC220), %o1
				or	%o1, %lo(.LC220), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1185:
				stb	%g0, [%i2+6]
				stb	%g0, [%i2+7]
				sethi	%hi(39324672), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(78650368), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	6, %o2
				sethi	%hi(.LC221), %o1
				or	%o1, %lo(.LC221), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1186:
				stb	%g0, [%i2+6]
				stb	%g0, [%i2+7]
				sethi	%hi(39455744), %g1
				srlx	%g1, 9, %g1
				stb	%i0, [%i5+%g1]
				sethi	%hi(78912512), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	4, %o2
				sethi	%hi(.LC222), %o1
				or	%o1, %lo(.LC222), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1187:
				mov	4, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i2, 4, %o0
		.LVL1188:
				sethi	%hi(39586816), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(79174656), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	5, %o2
				sethi	%hi(.LC223), %o1
				or	%o1, %lo(.LC223), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1189:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i2, 5, %o0
		.LVL1190:
				sethi	%hi(39717888), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(79436800), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	5, %o2
				sethi	%hi(.LC224), %o1
				or	%o1, %lo(.LC224), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1191:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i2, 5, %o0
		.LVL1192:
				sethi	%hi(39848960), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(79698944), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	6, %o2
				sethi	%hi(.LC225), %o1
				or	%o1, %lo(.LC225), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1193:
				stb	%g0, [%i2+6]
				stb	%g0, [%i2+7]
				sethi	%hi(39980032), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(79961088), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	5, %o2
				sethi	%hi(.LC226), %o1
				or	%o1, %lo(.LC226), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1194:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i2, 5, %o0
		.LVL1195:
				sethi	%hi(40111104), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(80223232), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	6, %o2
				sethi	%hi(.LC227), %o1
				or	%o1, %lo(.LC227), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1196:
				stb	%g0, [%i2+6]
				stb	%g0, [%i2+7]
				sethi	%hi(40242176), %g1
				srlx	%g1, 9, %g1
				stb	%i1, [%i5+%g1]
				sethi	%hi(80485376), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	7, %o2
				sethi	%hi(.LC228), %o1
				or	%o1, %lo(.LC228), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1197:
				stb	%g0, [%i2+7]
				sethi	%hi(40373248), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(80747520), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	5, %o2
				sethi	%hi(.LC229), %o1
				or	%o1, %lo(.LC229), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1198:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i2, 5, %o0
		.LVL1199:
				sethi	%hi(40504320), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(81009664), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	6, %o2
				sethi	%hi(.LC230), %o1
				or	%o1, %lo(.LC230), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1200:
				stb	%g0, [%i2+6]
				stb	%g0, [%i2+7]
				sethi	%hi(40635392), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(81271808), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	5, %o2
				sethi	%hi(.LC231), %o1
				or	%o1, %lo(.LC231), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1201:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i2, 5, %o0
		.LVL1202:
				sethi	%hi(40766464), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(81533952), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	5, %o2
				sethi	%hi(.LC232), %o1
				or	%o1, %lo(.LC232), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1203:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i2, 5, %o0
		.LVL1204:
				sethi	%hi(40897536), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(81796096), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	5, %o2
				sethi	%hi(.LC233), %o1
				or	%o1, %lo(.LC233), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1205:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i2, 5, %o0
		.LVL1206:
				sethi	%hi(41028608), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(82058240), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	5, %o2
				sethi	%hi(.LC234), %o1
				or	%o1, %lo(.LC234), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1207:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i2, 5, %o0
		.LVL1208:
				sethi	%hi(41159680), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(82320384), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	6, %o2
				sethi	%hi(.LC235), %o1
				or	%o1, %lo(.LC235), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1209:
				stb	%g0, [%i2+6]
				stb	%g0, [%i2+7]
				sethi	%hi(41290752), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(82582528), %i3
				srlx	%i3, 10, %i3
				add	%i5, %i3, %i3
				mov	6, %o2
				sethi	%hi(.LC236), %o1
				or	%o1, %lo(.LC236), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1210:
				stb	%g0, [%i3+6]
				stb	%g0, [%i3+7]
				sethi	%hi(41421824), %g1
				srlx	%g1, 9, %g1
				stb	%i1, [%i5+%g1]
				sethi	%hi(82844672), %i3
				srlx	%i3, 10, %i3
				add	%i5, %i3, %i3
				mov	7, %o2
				sethi	%hi(.LC237), %o1
				or	%o1, %lo(.LC237), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1211:
				stb	%g0, [%i3+7]
				sethi	%hi(41552896), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(83106816), %o0
				srlx	%o0, 10, %i4
				mov	5, %o2
				sethi	%hi(.LC238), %o1
				or	%o1, %lo(.LC238), %o1
				call	memcpy, 0
				 add	%i5, %i4, %o0
		.LVL1212:
				add	%i5, %i4, %o0
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%o0, 5, %o0
		.LVL1213:
				sethi	%hi(104448), %i5
				xor	%i5, -792, %i5
				add	%fp, 2047, %g1
				add	%g1, %i5, %i5
				mov	6, %i3
				sethi	%hi(41683968), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(83368960), %i4
				srlx	%i4, 10, %i4
				add	%i5, %i4, %i4
				mov	7, %i1
				mov	7, %o2
				sethi	%hi(.LC239), %o1
				or	%o1, %lo(.LC239), %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL1214:
				stb	%g0, [%i4+7]
				sethi	%hi(41815040), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(83631104), %i4
				srlx	%i4, 10, %i4
				add	%i5, %i4, %i4
				mov	7, %o2
				sethi	%hi(.LC240), %o1
				or	%o1, %lo(.LC240), %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL1215:
				stb	%g0, [%i4+7]
				mov	4, %l0
				sethi	%hi(41946112), %g1
				srlx	%g1, 9, %g1
				stb	%l0, [%i5+%g1]
				sethi	%hi(83893248), %i3
				srlx	%i3, 10, %i3
				add	%i5, %i3, %i3
				mov	5, %i4
				mov	5, %o2
				sethi	%hi(.LC241), %o1
				or	%o1, %lo(.LC241), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1216:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i3, 5, %o0
		.LVL1217:
				sethi	%hi(42077184), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(84155392), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	6, %i3
				mov	6, %o2
				sethi	%hi(.LC242), %o1
				or	%o1, %lo(.LC242), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1218:
				stb	%g0, [%i2+6]
				stb	%g0, [%i2+7]
				sethi	%hi(42208256), %g1
				srlx	%g1, 9, %g1
				stb	%i1, [%i5+%g1]
				mov	8, %i0
				mov	8, %o2
				sethi	%hi(.LC243), %o1
				or	%o1, %lo(.LC243), %o1
				sethi	%hi(84417536), %o0
				srlx	%o0, 10, %o0
				call	memcpy, 0
				 add	%i5, %o0, %o0
		.LVL1219:
				sethi	%hi(42339328), %g1
				srlx	%g1, 9, %g1
				stb	%l0, [%i5+%g1]
				sethi	%hi(84679680), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	5, %o2
				sethi	%hi(.LC244), %o1
				or	%o1, %lo(.LC244), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1220:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i2, 5, %o0
		.LVL1221:
				sethi	%hi(42470400), %g1
				srlx	%g1, 9, %g1
				stb	%l0, [%i5+%g1]
				sethi	%hi(84941824), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	5, %o2
				sethi	%hi(.LC245), %o1
				or	%o1, %lo(.LC245), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1222:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i2, 5, %o0
		.LVL1223:
				sethi	%hi(42601472), %g1
				srlx	%g1, 9, %g1
				stb	%l0, [%i5+%g1]
				sethi	%hi(85203968), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	5, %o2
				sethi	%hi(.LC246), %o1
				or	%o1, %lo(.LC246), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1224:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i2, 5, %o0
		.LVL1225:
				sethi	%hi(42732544), %g1
				srlx	%g1, 9, %g1
				stb	%i1, [%i5+%g1]
				mov	8, %o2
				sethi	%hi(.LC247), %o1
				or	%o1, %lo(.LC247), %o1
				sethi	%hi(85466112), %o0
				srlx	%o0, 10, %o0
				call	memcpy, 0
				 add	%i5, %o0, %o0
		.LVL1226:
				sethi	%hi(42863616), %g1
				srlx	%g1, 9, %g1
				stb	%l0, [%i5+%g1]
				sethi	%hi(85728256), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	5, %o2
				sethi	%hi(.LC248), %o1
				or	%o1, %lo(.LC248), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1227:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i2, 5, %o0
		.LVL1228:
				sethi	%hi(43650048), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(87301120), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	7, %o2
				sethi	%hi(.LC249), %o1
				or	%o1, %lo(.LC249), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1229:
				stb	%g0, [%i2+7]
				sethi	%hi(43781120), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(87563264), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	6, %o2
				sethi	%hi(.LC250), %o1
				or	%o1, %lo(.LC250), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1230:
				stb	%g0, [%i2+6]
				stb	%g0, [%i2+7]
				sethi	%hi(43912192), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(87825408), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	6, %o2
				sethi	%hi(.LC251), %o1
				or	%o1, %lo(.LC251), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1231:
				stb	%g0, [%i2+6]
				stb	%g0, [%i2+7]
				sethi	%hi(44043264), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(88087552), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	6, %o2
				sethi	%hi(.LC252), %o1
				or	%o1, %lo(.LC252), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1232:
				stb	%g0, [%i2+6]
				stb	%g0, [%i2+7]
				sethi	%hi(44174336), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(88349696), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	7, %o2
				sethi	%hi(.LC253), %o1
				or	%o1, %lo(.LC253), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1233:
				stb	%g0, [%i2+7]
				sethi	%hi(44305408), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(88611840), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	6, %o2
				sethi	%hi(.LC254), %o1
				or	%o1, %lo(.LC254), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1234:
				stb	%g0, [%i2+6]
				stb	%g0, [%i2+7]
				sethi	%hi(44436480), %g1
				srlx	%g1, 9, %g1
				stb	%i0, [%i5+%g1]
				mov	8, %o2
				sethi	%hi(.LC255), %o1
				or	%o1, %lo(.LC255), %o1
				sethi	%hi(88873984), %o0
				srlx	%o0, 10, %o0
				call	memcpy, 0
				 add	%i5, %o0, %o0
		.LVL1235:
				sethi	%hi(44567552), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(89136128), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	7, %o2
				sethi	%hi(.LC256), %o1
				or	%o1, %lo(.LC256), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1236:
				stb	%g0, [%i2+7]
				sethi	%hi(44698624), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(89398272), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	6, %o2
				sethi	%hi(.LC257), %o1
				or	%o1, %lo(.LC257), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1237:
				stb	%g0, [%i2+6]
				stb	%g0, [%i2+7]
				sethi	%hi(44829696), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(89660416), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	7, %o2
				sethi	%hi(.LC258), %o1
				or	%o1, %lo(.LC258), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1238:
				stb	%g0, [%i2+7]
				sethi	%hi(44960768), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(89922560), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	7, %o2
				sethi	%hi(.LC259), %o1
				or	%o1, %lo(.LC259), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1239:
				stb	%g0, [%i2+7]
				sethi	%hi(45091840), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(90184704), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	7, %o2
				sethi	%hi(.LC260), %o1
				or	%o1, %lo(.LC260), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1240:
				stb	%g0, [%i2+7]
				sethi	%hi(45222912), %g1
				srlx	%g1, 9, %g1
				stb	%i1, [%i5+%g1]
				mov	8, %o2
				sethi	%hi(.LC261), %o1
				or	%o1, %lo(.LC261), %o1
				sethi	%hi(90446848), %o0
				srlx	%o0, 10, %o0
				call	memcpy, 0
				 add	%i5, %o0, %o0
		.LVL1241:
				sethi	%hi(45353984), %g1
				srlx	%g1, 9, %g1
				stb	%i0, [%i5+%g1]
				mov	8, %o2
				sethi	%hi(.LC262), %o1
				or	%o1, %lo(.LC262), %o1
				sethi	%hi(90708992), %o0
				srlx	%o0, 10, %o0
				call	memcpy, 0
				 add	%i5, %o0, %o0
		.LVL1242:
				sethi	%hi(45485056), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(90971136), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	6, %o2
				sethi	%hi(.LC263), %o1
				or	%o1, %lo(.LC263), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1243:
				stb	%g0, [%i2+6]
				stb	%g0, [%i2+7]
				sethi	%hi(45616128), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(91233280), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	7, %o2
				sethi	%hi(.LC264), %o1
				or	%o1, %lo(.LC264), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1244:
				stb	%g0, [%i2+7]
				sethi	%hi(45747200), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(91495424), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	7, %o2
				sethi	%hi(.LC265), %o1
				or	%o1, %lo(.LC265), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1245:
				stb	%g0, [%i2+7]
				sethi	%hi(45878272), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(91757568), %i3
				srlx	%i3, 10, %i3
				add	%i5, %i3, %i3
				mov	7, %o2
				sethi	%hi(.LC266), %o1
				or	%o1, %lo(.LC266), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1246:
				stb	%g0, [%i3+7]
				sethi	%hi(46009344), %g1
				srlx	%g1, 9, %g1
				stb	%i0, [%i5+%g1]
				mov	8, %o2
				sethi	%hi(.LC267), %o1
				or	%o1, %lo(.LC267), %o1
				sethi	%hi(92019712), %o0
				srlx	%o0, 10, %o0
				call	memcpy, 0
				 add	%i5, %o0, %o0
		.LVL1247:
				mov	3, %g2
				sethi	%hi(46140416), %g1
				srlx	%g1, 9, %g1
				stb	%g2, [%i5+%g1]
				sethi	%hi(92281856), %i3
				srlx	%i3, 10, %i3
				add	%i5, %i3, %i3
				mov	4, %i2
				mov	4, %o2
				sethi	%hi(.LC268), %o1
				or	%o1, %lo(.LC268), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1248:
				mov	4, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i3, 4, %o0
		.LVL1249:
				sethi	%hi(46271488), %g1
				srlx	%g1, 9, %g1
				stb	%i1, [%i5+%g1]
				mov	8, %o2
				sethi	%hi(.LC269), %o1
				or	%o1, %lo(.LC269), %o1
				sethi	%hi(92544000), %o0
				srlx	%o0, 10, %o0
				call	memcpy, 0
				 add	%i5, %o0, %o0
		.LVL1250:
				sethi	%hi(46402560), %g1
				srlx	%g1, 9, %g1
				stb	%i2, [%i5+%g1]
				sethi	%hi(92806144), %i3
				srlx	%i3, 10, %i3
				add	%i5, %i3, %i3
				mov	5, %o2
				sethi	%hi(.LC270), %o1
				or	%o1, %lo(.LC270), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1251:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i3, 5, %o0
		.LVL1252:
				sethi	%hi(46533632), %g1
				srlx	%g1, 9, %g1
				stb	%i2, [%i5+%g1]
				sethi	%hi(93068288), %i3
				srlx	%i3, 10, %i3
				add	%i5, %i3, %i3
				mov	5, %o2
				sethi	%hi(.LC271), %o1
				or	%o1, %lo(.LC271), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1253:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i3, 5, %o0
		.LVL1254:
				sethi	%hi(46664704), %g1
				srlx	%g1, 9, %g1
				stb	%i2, [%i5+%g1]
				sethi	%hi(93330432), %i3
				srlx	%i3, 10, %i3
				add	%i5, %i3, %i3
				mov	5, %o2
				sethi	%hi(.LC272), %o1
				or	%o1, %lo(.LC272), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1255:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i3, 5, %o0
		.LVL1256:
				sethi	%hi(46795776), %g1
				srlx	%g1, 9, %g1
				stb	%i2, [%i5+%g1]
				sethi	%hi(93592576), %i3
				srlx	%i3, 10, %i3
				add	%i5, %i3, %i3
				mov	5, %o2
				sethi	%hi(.LC273), %o1
				or	%o1, %lo(.LC273), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1257:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i3, 5, %o0
		.LVL1258:
				sethi	%hi(46926848), %g1
				srlx	%g1, 9, %g1
				stb	%i2, [%i5+%g1]
				sethi	%hi(93854720), %i3
				srlx	%i3, 10, %i3
				add	%i5, %i3, %i3
				mov	5, %o2
				sethi	%hi(.LC274), %o1
				or	%o1, %lo(.LC274), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1259:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i3, 5, %o0
		.LVL1260:
				sethi	%hi(47057920), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(94116864), %i3
				srlx	%i3, 10, %i3
				add	%i5, %i3, %i3
				mov	6, %o2
				sethi	%hi(.LC275), %o1
				or	%o1, %lo(.LC275), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1261:
				stb	%g0, [%i3+6]
				stb	%g0, [%i3+7]
				sethi	%hi(47188992), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(94379008), %i3
				srlx	%i3, 10, %i3
				add	%i5, %i3, %i3
				mov	6, %o2
				sethi	%hi(.LC276), %o1
				or	%o1, %lo(.LC276), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1262:
				stb	%g0, [%i3+6]
				stb	%g0, [%i3+7]
				sethi	%hi(47320064), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(94641152), %i3
				srlx	%i3, 10, %i3
				add	%i5, %i3, %i3
				mov	6, %o2
				sethi	%hi(.LC277), %o1
				or	%o1, %lo(.LC277), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1263:
				stb	%g0, [%i3+6]
				stb	%g0, [%i3+7]
				sethi	%hi(47451136), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(94903296), %i3
				srlx	%i3, 10, %i3
				add	%i5, %i3, %i3
				mov	6, %o2
				sethi	%hi(.LC278), %o1
				or	%o1, %lo(.LC278), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1264:
				stb	%g0, [%i3+6]
				stb	%g0, [%i3+7]
				sethi	%hi(47582208), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(95165440), %g1
				srlx	%g1, 10, %g1
				add	%i5, %g1, %i5
				mov	6, %o2
				sethi	%hi(.LC279), %o1
				or	%o1, %lo(.LC279), %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL1265:
				stb	%g0, [%i5+6]
				stb	%g0, [%i5+7]
				sethi	%hi(104448), %i5
				xor	%i5, -792, %i5
				add	%fp, 2047, %g1
				add	%g1, %i5, %i5
				mov	6, %i3
				sethi	%hi(47713280), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(95427584), %i4
				srlx	%i4, 10, %i4
				add	%i5, %i4, %i4
				mov	7, %i0
				mov	7, %o2
				sethi	%hi(.LC280), %o1
				or	%o1, %lo(.LC280), %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL1266:
				stb	%g0, [%i4+7]
				sethi	%hi(47844352), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(95689728), %i4
				srlx	%i4, 10, %i4
				add	%i5, %i4, %i4
				mov	7, %o2
				sethi	%hi(.LC281), %o1
				or	%o1, %lo(.LC281), %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL1267:
				stb	%g0, [%i4+7]
				sethi	%hi(47975424), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(95951872), %i4
				srlx	%i4, 10, %i4
				add	%i5, %i4, %i4
				mov	7, %o2
				sethi	%hi(.LC282), %o1
				or	%o1, %lo(.LC282), %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL1268:
				stb	%g0, [%i4+7]
				sethi	%hi(48106496), %g1
				srlx	%g1, 9, %g1
				mov	4, %g2
				stb	%g2, [%i5+%g1]
				sethi	%hi(96214016), %i4
				srlx	%i4, 10, %i4
				add	%i5, %i4, %i4
				mov	5, %i3
				mov	5, %o2
				sethi	%hi(.LC283), %o1
				or	%o1, %lo(.LC283), %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL1269:
				mov	3, %l0
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i4, 5, %o0
		.LVL1270:
				sethi	%hi(48237568), %g1
				srlx	%g1, 9, %g1
				stb	%l0, [%i5+%g1]
				sethi	%hi(96476160), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	4, %i4
				mov	4, %o2
				sethi	%hi(.LC284), %o1
				or	%o1, %lo(.LC284), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1271:
				mov	4, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i2, 4, %o0
		.LVL1272:
				sethi	%hi(48368640), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(96738304), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	5, %o2
				sethi	%hi(.LC285), %o1
				or	%o1, %lo(.LC285), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1273:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i2, 5, %o0
		.LVL1274:
				sethi	%hi(48499712), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(97000448), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	6, %i1
				mov	6, %o2
				sethi	%hi(.LC286), %o1
				or	%o1, %lo(.LC286), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1275:
				stb	%g0, [%i2+6]
				stb	%g0, [%i2+7]
				sethi	%hi(48630784), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(97262592), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	5, %o2
				sethi	%hi(.LC287), %o1
				or	%o1, %lo(.LC287), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1276:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i2, 5, %o0
		.LVL1277:
				sethi	%hi(48761856), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(97524736), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	5, %o2
				sethi	%hi(.LC288), %o1
				or	%o1, %lo(.LC288), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1278:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i2, 5, %o0
		.LVL1279:
				sethi	%hi(48892928), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(97786880), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	5, %o2
				sethi	%hi(.LC289), %o1
				or	%o1, %lo(.LC289), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1280:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i2, 5, %o0
		.LVL1281:
				sethi	%hi(49024000), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(98049024), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	5, %o2
				sethi	%hi(.LC290), %o1
				or	%o1, %lo(.LC290), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1282:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i2, 5, %o0
		.LVL1283:
				sethi	%hi(49155072), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(98311168), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	6, %o2
				sethi	%hi(.LC291), %o1
				or	%o1, %lo(.LC291), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1284:
				stb	%g0, [%i2+6]
				stb	%g0, [%i2+7]
				sethi	%hi(49286144), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(98573312), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	6, %o2
				sethi	%hi(.LC292), %o1
				or	%o1, %lo(.LC292), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1285:
				stb	%g0, [%i2+6]
				stb	%g0, [%i2+7]
				sethi	%hi(49417216), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(98835456), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	6, %o2
				sethi	%hi(.LC293), %o1
				or	%o1, %lo(.LC293), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1286:
				stb	%g0, [%i2+6]
				stb	%g0, [%i2+7]
				sethi	%hi(49548288), %g1
				srlx	%g1, 9, %g1
				stb	%l0, [%i5+%g1]
				sethi	%hi(99097600), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	4, %o2
				sethi	%hi(.LC294), %o1
				or	%o1, %lo(.LC294), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1287:
				mov	4, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i2, 4, %o0
		.LVL1288:
				sethi	%hi(49679360), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(99359744), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	5, %o2
				sethi	%hi(.LC295), %o1
				or	%o1, %lo(.LC295), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1289:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i2, 5, %o0
		.LVL1290:
				sethi	%hi(49810432), %g1
				srlx	%g1, 9, %g1
				stb	%l0, [%i5+%g1]
				sethi	%hi(99621888), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	4, %o2
				sethi	%hi(.LC296), %o1
				or	%o1, %lo(.LC296), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1291:
				mov	4, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i2, 4, %o0
		.LVL1292:
				sethi	%hi(49941504), %g1
				srlx	%g1, 9, %g1
				stb	%i0, [%i5+%g1]
				mov	8, %o2
				sethi	%hi(.LC297), %o1
				or	%o1, %lo(.LC297), %o1
				sethi	%hi(99884032), %o0
				srlx	%o0, 10, %o0
				call	memcpy, 0
				 add	%i5, %o0, %o0
		.LVL1293:
				sethi	%hi(50072576), %g1
				srlx	%g1, 9, %g1
				stb	%i1, [%i5+%g1]
				sethi	%hi(100146176), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	7, %o2
				sethi	%hi(.LC298), %o1
				or	%o1, %lo(.LC298), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1294:
				stb	%g0, [%i2+7]
				sethi	%hi(50203648), %g1
				srlx	%g1, 9, %g1
				stb	%i1, [%i5+%g1]
				sethi	%hi(100408320), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	7, %o2
				sethi	%hi(.LC299), %o1
				or	%o1, %lo(.LC299), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1295:
				stb	%g0, [%i2+7]
				sethi	%hi(50334720), %g1
				srlx	%g1, 9, %g1
				stb	%l0, [%i5+%g1]
				sethi	%hi(100670464), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	4, %o2
				sethi	%hi(.LC300), %o1
				or	%o1, %lo(.LC300), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1296:
				mov	4, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i2, 4, %o0
		.LVL1297:
				sethi	%hi(50465792), %g1
				srlx	%g1, 9, %g1
				stb	%i1, [%i5+%g1]
				sethi	%hi(100932608), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	7, %o2
				sethi	%hi(.LC301), %o1
				or	%o1, %lo(.LC301), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1298:
				stb	%g0, [%i2+7]
				sethi	%hi(50596864), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(101194752), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	6, %o2
				sethi	%hi(.LC302), %o1
				or	%o1, %lo(.LC302), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1299:
				stb	%g0, [%i2+6]
				stb	%g0, [%i2+7]
				sethi	%hi(50727936), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(101456896), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	6, %o2
				sethi	%hi(.LC303), %o1
				or	%o1, %lo(.LC303), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1300:
				stb	%g0, [%i2+6]
				stb	%g0, [%i2+7]
				sethi	%hi(50859008), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				sethi	%hi(101719040), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	6, %o2
				sethi	%hi(.LC304), %o1
				or	%o1, %lo(.LC304), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1301:
				stb	%g0, [%i2+6]
				stb	%g0, [%i2+7]
				sethi	%hi(50990080), %g1
				srlx	%g1, 9, %g1
				stb	%l0, [%i5+%g1]
				sethi	%hi(101981184), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	4, %o2
				sethi	%hi(.LC305), %o1
				or	%o1, %lo(.LC305), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1302:
				mov	4, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i2, 4, %o0
		.LVL1303:
				sethi	%hi(51121152), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(102243328), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	5, %o2
				sethi	%hi(.LC306), %o1
				or	%o1, %lo(.LC306), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1304:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i2, 5, %o0
		.LVL1305:
				sethi	%hi(51252224), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(102505472), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	5, %o2
				sethi	%hi(.LC307), %o1
				or	%o1, %lo(.LC307), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1306:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i2, 5, %o0
		.LVL1307:
				sethi	%hi(51383296), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(102767616), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	5, %o2
				sethi	%hi(.LC308), %o1
				or	%o1, %lo(.LC308), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1308:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i2, 5, %o0
		.LVL1309:
				sethi	%hi(51514368), %g1
				srlx	%g1, 9, %g1
				stb	%i0, [%i5+%g1]
				mov	8, %o2
				sethi	%hi(.LC309), %o1
				or	%o1, %lo(.LC309), %o1
				sethi	%hi(103029760), %o0
				srlx	%o0, 10, %o0
				call	memcpy, 0
				 add	%i5, %o0, %o0
		.LVL1310:
				sethi	%hi(51645440), %g1
				srlx	%g1, 9, %g1
				stb	%i1, [%i5+%g1]
				sethi	%hi(103291904), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	7, %o2
				sethi	%hi(.LC310), %o1
				or	%o1, %lo(.LC310), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1311:
				stb	%g0, [%i2+7]
				sethi	%hi(51776512), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				sethi	%hi(103554048), %i2
				srlx	%i2, 10, %i2
				add	%i5, %i2, %i2
				mov	5, %o2
				sethi	%hi(.LC311), %o1
				or	%o1, %lo(.LC311), %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1312:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i2, 5, %o0
		.LVL1313:
				sethi	%hi(51907584), %g1
				srlx	%g1, 9, %g1
				stb	%i1, [%i5+%g1]
				mov	7, %o2
				sethi	%hi(.LC312), %o1
				or	%o1, %lo(.LC312), %o1
				call	memcpy, 0
				 add	%fp, -1810, %o0
		.LVL1314:
				stb	%g0, [%fp-1803]
				sethi	%hi(52038656), %g1
				srlx	%g1, 9, %g1
				stb	%i3, [%i5+%g1]
				mov	6, %o2
				sethi	%hi(.LC313), %o1
				or	%o1, %lo(.LC313), %o1
				call	memcpy, 0
				 add	%fp, -1554, %o0
		.LVL1315:
				stb	%g0, [%fp-1548]
				stb	%g0, [%fp-1547]
				sethi	%hi(52169728), %g1
				srlx	%g1, 9, %g1
				stb	%i0, [%i5+%g1]
				mov	8, %o2
				sethi	%hi(.LC314), %o1
				or	%o1, %lo(.LC314), %o1
				call	memcpy, 0
				 add	%fp, -1298, %o0
		.LVL1316:
				sethi	%hi(52300800), %g1
				srlx	%g1, 9, %g1
				stb	%i4, [%i5+%g1]
				mov	5, %o2
				sethi	%hi(.LC315), %o1
				or	%o1, %lo(.LC315), %o1
				call	memcpy, 0
				 add	%fp, -1042, %o0
		.LVL1317:
				mov	3, %o2
				mov	0, %o1
				call	memset, 0
				 add	%fp, -1037, %o0
		.LVL1318:
				sethi	%hi(52431872), %g1
				srlx	%g1, 9, %g1
				stb	%i0, [%i5+%g1]
				mov	8, %o2
				sethi	%hi(.LC316), %o1
				or	%o1, %lo(.LC316), %o1
				call	memcpy, 0
				 add	%fp, -786, %o0
		.LVL1319:
				sethi	%hi(52956160), %g1
				srlx	%g1, 9, %g1
				stb	%i1, [%i5+%g1]
				mov	7, %o2
				sethi	%hi(.LC317), %o1
				or	%o1, %lo(.LC317), %o1
				call	memcpy, 0
				 add	%fp, 238, %o0
		.LVL1320:
				stb	%g0, [%fp+245]
				sethi	%hi(53087232), %g1
				srlx	%g1, 9, %g1
				stb	%i0, [%i5+%g1]
				mov	8, %o2
				sethi	%hi(.LC318), %o1
				or	%o1, %lo(.LC318), %o1
				call	memcpy, 0
				 add	%fp, 494, %o0
		.LVL1321:
				mov	8, %g2
				sethi	%hi(53218304), %g1
				srlx	%g1, 9, %g1
				stb	%g2, [%i5+%g1]
				mov	8, %o2
				sethi	%hi(.LC319), %o1
				or	%o1, %lo(.LC319), %o1
				call	memcpy, 0
				 add	%fp, 750, %o0
		.LVL1322:
				sethi	%hi(104448), %i5
				xor	%i5, -792, %i5
				add	%fp, 2047, %g1
				add	%g1, %i5, %i5
				sethi	%hi(53349376), %g1
				srlx	%g1, 9, %g1
				mov	6, %g2
				stb	%g2, [%i5+%g1]
				mov	7, %o2
				sethi	%hi(.LC320), %o1
				or	%o1, %lo(.LC320), %o1
				call	memcpy, 0
				 add	%fp, 1006, %o0
		.LVL1323:
				stb	%g0, [%fp+1013]
				mov	90, %g2
				sethi	%hi(9946112), %g1
				srlx	%g1, 8, %g1
				stb	%g2, [%i5+%g1]
				sethi	%hi(39785472), %g1
				srlx	%g1, 10, %g1
				stb	%g2, [%i5+%g1]
				sethi	%hi(19893248), %g1
				srlx	%g1, 9, %g1
				stb	%g2, [%i5+%g1]
				sethi	%hi(39787520), %g1
				srlx	%g1, 10, %g1
				stb	%g2, [%i5+%g1]
				sethi	%hi(4973568), %g1
				srlx	%g1, 7, %g1
				stb	%g2, [%i5+%g1]
				mov	48, %g3
				sethi	%hi(39789568), %g1
				srlx	%g1, 10, %g1
				stb	%g3, [%i5+%g1]
				sethi	%hi(19895296), %g1
				srlx	%g1, 9, %g1
				stb	%g3, [%i5+%g1]
				mov	19, %g1
				sethi	%hi(39791616), %g3
				srlx	%g3, 10, %g3
				stb	%g1, [%i5+%g3]
				sethi	%hi(9948160), %g3
				srlx	%g3, 8, %g3
				stb	%g1, [%i5+%g3]
				sethi	%hi(39793664), %g3
				srlx	%g3, 10, %g3
				stb	%g1, [%i5+%g3]
				sethi	%hi(19897344), %g3
				srlx	%g3, 9, %g3
				stb	%g1, [%i5+%g3]
				mov	25, %g1
				sethi	%hi(39795712), %g3
				srlx	%g3, 10, %g3
				stb	%g1, [%i5+%g3]
				mov	2429, %g3
				sllx	%g3, 4, %g3
				stb	%g1, [%i5+%g3]
				sethi	%hi(39797760), %g3
				srlx	%g3, 10, %g3
				stb	%g1, [%i5+%g3]
				sethi	%hi(19899392), %g3
				srlx	%g3, 9, %g3
				stb	%g1, [%i5+%g3]
				sethi	%hi(39799808), %g3
				srlx	%g3, 10, %g3
				stb	%g1, [%i5+%g3]
				sethi	%hi(9950208), %g3
				srlx	%g3, 8, %g3
				stb	%g1, [%i5+%g3]
				sethi	%hi(39801856), %g3
				srlx	%g3, 10, %g3
				stb	%g1, [%i5+%g3]
				mov	23, %i4
				sethi	%hi(19901440), %g3
				srlx	%g3, 9, %g3
				stb	%i4, [%i5+%g3]
				mov	104, %g5
				sethi	%hi(39803904), %g3
				srlx	%g3, 10, %g3
				stb	%g5, [%i5+%g3]
				sethi	%hi(4975616), %g3
				srlx	%g3, 7, %g3
				stb	%g5, [%i5+%g3]
				sethi	%hi(39805952), %g3
				srlx	%g3, 10, %g3
				mov	105, %g4
				stb	%g4, [%i5+%g3]
				sethi	%hi(19903488), %g3
				srlx	%g3, 9, %g3
				mov	30, %g4
				stb	%g4, [%i5+%g3]
				sethi	%hi(39808000), %g3
				srlx	%g3, 10, %g3
				mov	20, %g4
				stb	%g4, [%i5+%g3]
				sethi	%hi(9952256), %g3
				srlx	%g3, 8, %g3
				mov	21, %g4
				stb	%g4, [%i5+%g3]
				mov	93, %g4
				sethi	%hi(39810048), %g3
				srlx	%g3, 10, %g3
				stb	%g4, [%i5+%g3]
				sethi	%hi(19905536), %g3
				srlx	%g3, 9, %g3
				mov	47, %i3
				stb	%i3, [%i5+%g3]
				sethi	%hi(39812096), %g3
				srlx	%g3, 10, %g3
				mov	45, %i3
				stb	%i3, [%i5+%g3]
				mov	1215, %g3
				sllx	%g3, 5, %g3
				mov	46, %i3
				stb	%i3, [%i5+%g3]
				sethi	%hi(39814144), %g3
				srlx	%g3, 10, %g3
				mov	42, %i3
				stb	%i3, [%i5+%g3]
				sethi	%hi(19907584), %g3
				srlx	%g3, 9, %g3
				mov	43, %i3
				stb	%i3, [%i5+%g3]
				sethi	%hi(39816192), %g3
				srlx	%g3, 10, %g3
				mov	44, %i3
				stb	%i3, [%i5+%g3]
				mov	40, %i3
				sethi	%hi(9954304), %g3
				srlx	%g3, 8, %g3
				stb	%i3, [%i5+%g3]
				sethi	%hi(39818240), %g3
				srlx	%g3, 10, %g3
				mov	68, %i2
				stb	%i2, [%i5+%g3]
				sethi	%hi(19909632), %g3
				srlx	%g3, 9, %g3
				mov	55, %i2
				stb	%i2, [%i5+%g3]
				sethi	%hi(39820288), %g3
				srlx	%g3, 10, %g3
				stb	%g5, [%i5+%g3]
				sethi	%hi(4977664), %g3
				srlx	%g3, 7, %g3
				mov	60, %g5
				stb	%g5, [%i5+%g3]
				sethi	%hi(39822336), %g3
				srlx	%g3, 10, %g3
				stb	%g4, [%i5+%g3]
				sethi	%hi(19911680), %g3
				srlx	%g3, 9, %g3
				stb	%g1, [%i5+%g3]
				sethi	%hi(39824384), %g3
				srlx	%g3, 10, %g3
				stb	%i3, [%i5+%g3]
				sethi	%hi(9956352), %g3
				srlx	%g3, 8, %g3
				stb	%g4, [%i5+%g3]
				sethi	%hi(39826432), %g3
				srlx	%g3, 10, %g3
				stb	%i4, [%i5+%g3]
				sethi	%hi(19913728), %g3
				srlx	%g3, 9, %g3
				stb	%g1, [%i5+%g3]
				sethi	%hi(39828480), %g3
				srlx	%g3, 10, %g3
				mov	57, %g4
				stb	%g4, [%i5+%g3]
				mov	2431, %g3
				sllx	%g3, 4, %g3
				stb	%g1, [%i5+%g3]
				sethi	%hi(39830528), %g1
				srlx	%g1, 10, %g1
				stb	%g2, [%i5+%g1]
				sethi	%hi(19915776), %g1
				srlx	%g1, 9, %g1
				mov	-80, %g2
				stb	%g2, [%i5+%g1]
				sethi	%hi(39832576), %g1
				srlx	%g1, 10, %g1
				mov	-79, %g2
				stb	%g2, [%i5+%g1]
				sethi	%hi(9958400), %g1
				srlx	%g1, 8, %g1
				mov	-78, %g2
				stb	%g2, [%i5+%g1]
				sethi	%hi(39834624), %g1
				srlx	%g1, 10, %g1
				mov	-77, %g2
				stb	%g2, [%i5+%g1]
				mov	240, %o2
				sethi	%hi(.LC3), %o1
				or	%o1, %lo(.LC3), %o1
				sethi	%hi(5465088), %o0
				srlx	%o0, 8, %o0
				call	memcpy, 0
				 add	%i5, %o0, %o0
		.LVL1324:
				mov	1152, %o2
				sethi	%hi(.LC4), %o1
				or	%o1, %lo(.LC4), %o1
				sethi	%hi(6575104), %o0
				srlx	%o0, 8, %o0
				call	memcpy, 0
				 add	%i5, %o0, %o0
		.LVL1325:
  576
  577 %ROUTINE flush buffer
				save	%sp, -1472, %sp
				mov	%g5, %i4
				ldx	[%g7+40], %g1
				stx	%g1, [%fp+2039]
				mov	0, %g1
		.LVL81:
		.LBB327:
		.LBB328:
				sethi	%hi(_imp_OutStream), %g1
				mov	1, %g2
				st	%g2, [%g1+%lo(_imp_OutStream)]
				sethi	%hi(_imp_outfile), %g1
				ldx	[%g1+%lo(_imp_outfile)+296], %g2
				sethi	%hi(_imp_OutFile), %g1
				stx	%g2, [%g1+%lo(_imp_OutFile)]
				sethi	%hi(__PRETTY_FUNCTION__.5660), %o0
				call	check_outstream, 0
				 or	%o0, %lo(__PRETTY_FUNCTION__.5660), %o0
		.LVL82:
		.LBE328:
		.LBE327:
		.LBB329:
  578    %INTEGER j
  579    %IF faulty = 0 %START
  580       select output(object)
  581       %FOR j = 1, 1, bp %CYCLE
  582          printsymbol(buff(j))
				sethi	%hi(BP.6197), %g1
				lduw	[%g1+%lo(BP.6197)], %i3
		.LVL83:
  583       %REPEAT
				addcc	%i3, -1, %g0
				bneg,pn	%icc, .L71
				 cmp	%i3, 0
		.LVL84:
		.L73:
				sethi	%hi(_imp_current_file), %g1
				ldx	[%g1+%lo(_imp_current_file)], %o1
				brz,pn	%o1, .L63
				 mov	256, %o2
				call	_imp_c2istr, 0
				 add	%fp, 1527, %o0
		.LVL91:
				sethi	%hi(_imp_current_line), %g1
		.L74:
				lduw	[%g1+%lo(_imp_current_line)], %i5
				cmp	%i5, 0
				move	%icc, 583, %i5
				sethi	%hi(.LC81), %o1
				or	%o1, %lo(.LC81), %o1
				call	_imp_c2istr, 0
				 add	%fp, 1783, %o0
		.LVL92:
				mov	256, %o2
				add	%fp, 1527, %o1
				call	memcpy, 0
				 add	%fp, 1007, %o0
		.LVL93:
				mov	256, %o2
				add	%fp, 1783, %o1
				call	memcpy, 0
				 add	%fp, 751, %o0
		.LVL94:
				mov	0, %o5
				mov	1, %o4
				mov	5, %o3
				add	%fp, 751, %o2
				sra	%i5, 0, %o1
				call	_signal_event, 0
				 add	%fp, 1007, %o0
		.LVL95:
		.LBE335:
				sethi	%hi(.LC16), %o1
				or	%o1, %lo(.LC16), %o1
				call	memcpy, 0
				 add	%fp, 1783, %o0
		.LVL96:
				mov	256, %o2
				add	%fp, 1783, %o1
				call	memcpy, 0
				 add	%fp, 1271, %o0
		.LVL97:
		.LBE332:
				mov	256, %o2
				add	%fp, 1271, %o1
				call	memcpy, 0
				 add	%fp, 1527, %o0
		.LVL98:
		.LBE336:
				ba,pt	%xcc, .L74
				 sethi	%hi(_imp_current_line), %g1
		.LVL99:
		.L72:
  584       select output(listing)
  585    %FINISH
  586    bp = 0
				be,pn	%icc, .L66
				 add	%i3, -1, %i3
				sethi	%hi(53611520), %i5
				srlx	%i5, 9, %i5
				add	%i4, %i5, %i5
		.LVL85:
				srl	%i3, 0, %i3
				add	%i4, %i3, %i4
				sethi	%hi(107224064), %g1
				srlx	%g1, 10, %g1
				add	%i4, %g1, %i4
		.LVL86:
		.L67:
		.LBB330:
		.LBB331:
				call	_imp_printsymbol, 0
				 ldsb	[%i5], %o0
		.LVL87:
				add	%i5, 1, %i5
		.LBE331:
		.LBE330:
				cmp	%i5, %i4
				bne,pt	%xcc, .L67
				 nop
		.LVL88:
		.L66:
		.LBE329:
		.LBB333:
		.LBB334:
				sethi	%hi(_imp_OutStream), %g1
				mov	2, %g2
				st	%g2, [%g1+%lo(_imp_OutStream)]
				sethi	%hi(_imp_outfile), %g1
				ldx	[%g1+%lo(_imp_outfile)+584], %g2
				sethi	%hi(_imp_OutFile), %g1
				stx	%g2, [%g1+%lo(_imp_OutFile)]
				sethi	%hi(__PRETTY_FUNCTION__.5660), %o0
				call	check_outstream, 0
				 or	%o0, %lo(__PRETTY_FUNCTION__.5660), %o0
		.LVL89:
		.LDL4:
		.LBE334:
		.LBE333:
				sethi	%hi(BP.6197), %g1
				st	%g0, [%g1+%lo(BP.6197)]
				ba,pt	%xcc, .L73
				 cmp	%i3, 0
		.L63:
		.LBB336:
		.LBB332:
  587 %END
  588 %ROUTINE print ident(%INTEGER p, mode)
		.LVL47:
				save	%sp, -1984, %sp
		.LVL48:
				mov	%g5, %i3
				ldx	[%g7+40], %g1
				stx	%g1, [%fp+2039]
				mov	0, %g1
				ldx	[%fp+2039], %g1
				ldx	[%g7+40], %g2
				xor	%g1, %g2, %g1
				mov	0, %g2
				brnz,pn	%g1, .L72
				 nop
				return	%i7+8
				 nop
		.LVL90:
		.L71:
		.LBB335:
				call	__stack_chk_fail, 0
				 nop
		.LVL100:
				nop
		.LFE186:
				.align 4
				.proc	020
		DEF.7295:
		.LFB215:
  589    %INTEGER j, ad
  590    p = tag(p)_text
				add	%i0, 13, %i0
				sllx	%i0, 4, %i0
				add	%g5, %i0, %i0
		.LVL49:
				ldsh	[%i0+16], %g2
		.LVL50:
  591    %IF p = 0 %START
				cmp	%g2, 0
				bne,pt	%icc, .L43
				 lduh	[%i0+16], %g1
  592       bp = bp+1 %AND buff(bp) = '?' %if Mode # 0
				brz,pt	%i1, .L42
				 sethi	%hi(BP.6197), %g2
		.LVL51:
  593       %RETURN
				lduw	[%g2+%lo(BP.6197)], %g1
				add	%g1, 1, %g3
				st	%g3, [%g2+%lo(BP.6197)]
  594    %FINISH
				sra	%g1, 0, %g1
				add	%g5, %g1, %i3
				sethi	%hi(53611520), %g1
				srlx	%g1, 9, %g1
				mov	63, %g2
		.LVL52:
				ba,pt	%xcc, .L42
				 stb	%g2, [%i3+%g1]
		.LVL53:
		.L43:
  595    ad = addr(dict(p+1))
				srax	%i4, 48, %i4
				sethi	%hi(6870016), %g1
				srlx	%g1, 9, %g1
				add	%i4, %g1, %i4
				add	%i4, %i4, %i4
				add	%g5, %i4, %i4
		.LVL54:
		.LBB321:
  596    %IF mode = 0 %THEN printstring(string(ad)) %ELSE %START
				brz,pn	%i1, .L56
				 sllx	%g1, 48, %i4
		.L45:
  597       %FOR j = ad+1, 1, ad+byteinteger(ad) %CYCLE
  598          bp = bp+1
				sra	%i4, 0, %g1
				ldub	[%g1], %i2
				add	%i2, %i4, %i2
		.LVL55:
				add	%i4, 1, %g1
		.LVL56:
  599          buff(bp) = byteinteger(j)
				subcc	%i2, %g1, %g0
				bneg,pn	%icc, .L57
				 mov	%i4, %i5
		.LVL57:
				sethi	%hi(53611520), %g3
				srlx	%g3, 9, %g3
		.LVL59:
		.L50:
				add	%i5, %i4, %g1
		.LVL60:
				sra	%i5, 0, %g2
				ldub	[%g2], %g2
				sra	%g1, 0, %g1
				add	%i3, %g1, %g1
				sethi	%hi(_imp_current_file), %g1
		.LVL69:
				ldx	[%g1+%lo(_imp_current_file)], %o1
				brz,pn	%o1, .L47
				 mov	256, %o2
				call	_imp_c2istr, 0
				 add	%fp, 1271, %o0
		.LVL70:
				sethi	%hi(_imp_current_line), %g1
		.L60:
				lduw	[%g1+%lo(_imp_current_line)], %i1
				cmp	%i1, 0
				move	%icc, 599, %i1
				sethi	%hi(.LC80), %o1
				or	%o1, %lo(.LC80), %o1
				call	_imp_c2istr, 0
				 add	%fp, 1527, %o0
		.LVL71:
				mov	256, %o2
				add	%fp, 1271, %o1
				call	memcpy, 0
				 add	%fp, 495, %o0
		.LVL72:
				mov	256, %o2
				add	%fp, 1527, %o1
				call	memcpy, 0
				 add	%fp, 239, %o0
		.LVL73:
				mov	0, %o5
				mov	1, %o4
				mov	5, %o3
				add	%fp, 239, %o2
				sra	%i1, 0, %o1
				call	_signal_event, 0
				 add	%fp, 495, %o0
		.LVL74:
		.LBE325:
				sethi	%hi(.LC16), %o1
				or	%o1, %lo(.LC16), %o1
				call	memcpy, 0
				 add	%fp, 1783, %o0
		.LVL76:
				mov	256, %o2
				add	%fp, 1783, %o1
				call	memcpy, 0
				 add	%fp, 1015, %o0
		.LVL77:
		.LBE322:
				mov	256, %o2
				add	%fp, 1015, %o1
				call	memcpy, 0
				 add	%fp, 1271, %o0
		.LVL78:
		.LBE326:
				ba,pt	%xcc, .L60
				 sethi	%hi(_imp_current_line), %g1
		.LVL79:
		.L58:
  600       %REPEAT
  601    %FINISH
  602 %END
				cmp	%i4, %i2
		.L59:
				be,pn	%icc, .L42
				 sethi	%hi(BP.6197), %g1
				lduw	[%g1+%lo(BP.6197)], %g1
				sub	%g1, %i4, %i4
		.LVL58:
				cmp	%i2, %i5
				bne,pt	%icc, .L50
				 stb	%g2, [%g1+%g3]
				add	%i5, %i4, %i5
		.LVL62:
				sethi	%hi(BP.6197), %g1
				st	%i5, [%g1+%lo(BP.6197)]
		.L44:
		.L51:
		.L52:
		.LVL63:
		.L42:
		.LBE321:
				ba,pt	%xcc, .L59
				 cmp	%i4, %i2
		.LVL75:
		.L47:
		.LBB326:
		.LBB322:
  603 %ROUTINE abandon(%INTEGER n)
				.register	%g7, #ignore
		.LVL15:
				save	%sp, -1504, %sp
		.LVL16:
				ldx	[%g7+40], %g1
				stx	%g1, [%fp+2039]
				mov	0, %g1
		.LVL17:
		.LDL2:
				add	%i5, 1, %i5
		.LVL61:
				ldx	[%fp+2039], %g1
				ldx	[%g7+40], %g2
				xor	%g1, %g2, %g1
				mov	0, %g2
				brnz,pn	%g1, .L58
				 nop
				return	%i7+8
				 nop
		.LVL64:
		.L56:
				mov	256, %o2
				add	%fp, 759, %o1
				call	memcpy, 0
				 add	%fp, 1783, %o0
		.LVL65:
		.LBB323:
		.LBB324:
				mov	256, %o2
				add	%fp, 1783, %o1
				call	memcpy, 0
				 add	%fp, 495, %o0
		.LVL66:
				call	_imp_printstring, 0
				 add	%fp, 495, %o0
		.LVL67:
				ba,pt	%xcc, .L42
				 nop
		.LVL68:
		.L57:
		.LBE324:
		.LBE323:
		.LBB325:
				call	__stack_chk_fail, 0
				 nop
		.LVL80:
				nop
		.LFE187:
				.section	.rodata.str1.8
				.align 8
		.LC81:
				.asciz	"Illegal cycle J = 1, 1, BP"
				.section	".text"
				.align 4
				.proc	020
		FLUSHBUFFER.6207:
		.LFB186:
  604    %SWITCH reason(0:9)
  605    %INTEGER stream
  606    stream = listing
  607    %CYCLE
  608       newline %IF sym # nl
				sethi	%hi(SYM.6128), %g1
				lduw	[%g1+%lo(SYM.6128)], %g1
				cmp	%g1, 10
				bne,pn	%icc, .L31
				 nop
		.L19:
		.LVL18:
		.LBB308:
		.LBB309:
				call	_imp_printsymbol, 0
				 mov	42, %o0
		.LVL19:
		.LBE309:
		.LBE308:
  609       printsymbol('*');  write(lines,4);  space
  610       ->reason(n)
				mov	4, %o1
				sethi	%hi(LINES.6120), %g1
				call	_imp_writeint, 0
				 ldsw	[%g1+%lo(LINES.6120)], %o0
		.LVL20:
		.LBB310:
		.LBB311:
				call	_imp_space, 0
				 nop
		.LVL21:
		.LDL3:
		.LBE311:
		.LBE310:
  611 reason(0):printstring("compiler error!");          ->more
  612 reason(1):printstring("switch vector too large");  ->more
  613 reason(2):printstring("too many names");           ->more
  614 reason(3):printstring("program too complex");      ->more
  615 reason(4):printstring("feature not implemented");  ->more
  616 reason(5):printstring("input ended: ")
  617           %IF quote # 0 %START
  618             %IF quote < 0 %THEN printsymbol(cquote) %C
  619                           %ELSE printsymbol(squote)
  620           %ELSE
  621              printstring("%endof")
  622              %IF progmode >= 0 %THEN printstring("program") %C
  623                                %ELSE printstring("file")
  624           %FINISH
  625           printstring(" missing?");                ->more
  626 reason(6):printstring("too many faults!");         ->more
  627 reason(7):printstring("string constant too long"); ->more
  628 reason(8):printstring("dictionary full"); -> more
  629 reason(9):printstring("Included file ".include file." does not exist")
  630 more: newline
  631       printstring("***  compilation abandoned ***");  newline
  632       %EXIT %IF stream = report
  633       close output
  634       stream = report
  635       select output(report)
  636    %REPEAT
  637 !IMP80 BUG???     %SIGNAL 15,15 %IF diag&4096 # 0
  638    %STOP
  639 %END
  640 %ROUTINE op(%INTEGER code, param)
				.register	%g2, #scratch
				.register	%g3, #scratch
		.LVL0:
  641       buff(bp+1) <- code
				sethi	%hi(BP.6197), %g4
				lduw	[%g4+%lo(BP.6197)], %g1
				sra	%g1, 0, %g3
				add	%g5, %g3, %g3
				sethi	%hi(53611520), %g2
				srlx	%g2, 9, %g2
				stb	%o0, [%g3+%g2]
				cmp	%i0, 9
				bleu,pt	%icc, .L35
				 sethi	%hi(_imp_current_file), %g1
				ldx	[%g1+%lo(_imp_current_file)], %o1
				brz,pn	%o1, .L21
				 mov	256, %o2
				call	_imp_c2istr, 0
				 add	%fp, 1527, %o0
		.LVL22:
				sethi	%hi(_imp_current_line), %g1
		.L33:
				lduw	[%g1+%lo(_imp_current_line)], %i5
				cmp	%i5, 0
				move	%icc, 641, %i5
				mov	256, %o2
				add	%fp, 1527, %o1
				call	memcpy, 0
				 add	%fp, 751, %o0
		.LVL23:
				mov	610, %g1
				stx	%g1, [%sp+2239]
				sethi	%hi(.LC78), %g1
				or	%g1, %lo(.LC78), %g1
				stx	%g1, [%sp+2231]
				stx	%i0, [%sp+2223]
				sethi	%hi(.LC77), %o5
				or	%o5, %lo(.LC77), %o5
				mov	%i0, %o4
				mov	3, %o3
				mov	6, %o2
				sra	%i5, 0, %o1
				call	_signal_eventf, 0
				 add	%fp, 751, %o0
		.LVL24:
		.L24:
				sethi	%hi(.LC16), %o1
				or	%o1, %lo(.LC16), %o1
				call	memcpy, 0
				 add	%fp, 1783, %o0
		.LVL31:
				mov	256, %o2
				add	%fp, 1783, %o1
				call	memcpy, 0
				 add	%fp, 1015, %o0
		.LVL32:
		.LBE314:
				mov	256, %o2
				add	%fp, 1015, %o1
				call	memcpy, 0
				 add	%fp, 1527, %o0
		.LVL33:
				ba,pt	%xcc, .L33
				 sethi	%hi(_imp_current_line), %g1
		.L25:
		.LBB315:
  642       buff(bp+2) <- param>>8
				add	%g1, 1, %g3
				sra	%g3, 0, %g3
				add	%g5, %g3, %g3
				srl	%o1, 8, %o5
				stb	%o5, [%g3+%g2]
  643       buff(bp+3) <- param
				add	%g1, 2, %g3
				sra	%g3, 0, %g3
				add	%g5, %g3, %g5
				stb	%o1, [%g5+%g2]
  644       bp = bp+3
				add	%g1, 3, %g1
				sethi	%hi(_imp_current_file), %g1
		.L35:
				ldx	[%g1+%lo(_imp_current_file)], %o1
				brz,pn	%o1, .L25
				 mov	256, %o2
				call	_imp_c2istr, 0
				 add	%fp, 1783, %o0
		.LVL25:
				sethi	%hi(_imp_current_line), %g1
		.L34:
				lduw	[%g1+%lo(_imp_current_line)], %i5
				cmp	%i5, 0
				move	%icc, 644, %i5
				mov	256, %o2
				add	%fp, 1783, %o1
				call	memcpy, 0
				 add	%fp, 751, %o0
		.LVL26:
				mov	610, %g1
				stx	%g1, [%sp+2239]
				sethi	%hi(.LC78), %g1
				or	%g1, %lo(.LC78), %g1
				stx	%g1, [%sp+2231]
				stx	%i0, [%sp+2223]
				sethi	%hi(.LC79), %o5
				or	%o5, %lo(.LC79), %o5
				mov	%i0, %o4
				mov	2, %o3
				mov	8, %o2
				sra	%i5, 0, %o1
				call	_signal_eventf, 0
				 add	%fp, 751, %o0
		.LVL27:
				sethi	%hi(.LC16), %o1
				or	%o1, %lo(.LC16), %o1
				call	memcpy, 0
				 add	%fp, 1783, %o0
		.LVL34:
				mov	256, %o2
				add	%fp, 1783, %o1
				call	memcpy, 0
				 add	%fp, 1271, %o0
		.LVL35:
		.LBE315:
				mov	256, %o2
				add	%fp, 1271, %o1
				call	memcpy, 0
				 add	%fp, 1783, %o0
		.LVL36:
				ba,pt	%xcc, .L34
				 sethi	%hi(_imp_current_line), %g1
		.L32:
  645 %END
				ldx	[%fp+2039], %g1
				ldx	[%g7+40], %g2
				xor	%g1, %g2, %g1
				mov	0, %g2
				brnz,pn	%g1, .L32
				 nop
				return	%i7+8
				 nop
		.LVL28:
		.L31:
		.LBB312:
		.LBB313:
				call	_imp_newline, 0
				 nop
		.LVL29:
				ba,pt	%xcc, .L19
				 nop
		.LVL30:
		.L21:
		.LBE313:
		.LBE312:
		.LBB314:
				call	__stack_chk_fail, 0
				 nop
		.LVL37:
				nop
		.LFE188:
				.align 4
				.proc	020
		SHOW.6605:
		.LFB200:
  646 %ROUTINE set const(%INTEGER m)
				jmp	%o7+8
				 st	%g1, [%g4+%lo(BP.6197)]
		.LFE189:
				.align 4
				.proc	020
		SETCONST.6316:
		.LFB190:
		.LVL1:
  647       buff(bp+1) <- 'N'
				sethi	%hi(BP.6197), %g4
				lduw	[%g4+%lo(BP.6197)], %g1
				sra	%g1, 0, %g3
				add	%g5, %g3, %g3
				sethi	%hi(53611520), %g2
				srlx	%g2, 9, %g2
				mov	78, %o5
				stb	%o5, [%g3+%g2]
  648       buff(bp+5) <- m;  m = m>>8
				add	%g1, 4, %g3
				sra	%g3, 0, %g3
				add	%g5, %g3, %g3
				stb	%o0, [%g3+%g2]
		.LVL2:
  649       buff(bp+4) <- m;  m = m>>8
				add	%g1, 3, %g3
				sra	%g3, 0, %g3
				add	%g5, %g3, %g3
				srl	%o0, 8, %o5
		.LVL3:
				stb	%o5, [%g3+%g2]
		.LVL4:
  650       buff(bp+3) <- m;  m = m>>8
				add	%g1, 2, %g3
				sra	%g3, 0, %g3
				add	%g5, %g3, %g3
				srl	%o0, 16, %o5
		.LVL5:
				stb	%o5, [%g3+%g2]
		.LVL6:
  651       buff(bp+2) <- m
				add	%g1, 1, %g3
				sra	%g3, 0, %g3
				add	%g5, %g3, %g5
				srl	%o0, 24, %o0
		.LVL7:
				stb	%o0, [%g5+%g2]
  652       bp = bp+5
				add	%g1, 5, %g1
  653 %END
  654
				jmp	%o7+8
				 st	%g1, [%g4+%lo(BP.6197)]
		.LFE190:
				.align 4
				.proc	020
		SETCELL.6529:
		.LFB195:
  655
  656
  657 %ROUTINE compile block(%INTEGER level, block tag, dmin, tmax, id)
				save	%sp, -2096, %sp
				mov	%g5, %l0
				ldx	[%g7+40], %g1
				stx	%g1, [%fp+2039]
				mov	0, %g1
				add	%fp, 2047, %g1
				stx	%g1, [%fp+495]
				st	%i0, [%fp+475]
				st	%i1, [%fp+443]
				st	%i3, [%fp+479]
				st	%i4, [%fp+471]
				stx	%g5, [%fp+423]
  658
  659    %INTEGERFNSPEC gapp
  660    %ROUTINESPEC delete names(%INTEGER quiet)
  661    %ROUTINESPEC analyse
  662    %ROUTINESPEC compile
  663
  664    %INTEGER open;    open       = closed;      !zero if can return from proc
  665    %INTEGER dbase;   dbase      = dmax;        !dictionary base
				sethi	%hi(16384), %g1
				st	%g1, [%fp+447]
  666    %INTEGER tbase;   tbase      = tmax;        !tag base
				sethi	%hi(DMAX.6158), %g1
				lduw	[%g1+%lo(DMAX.6158)], %g4
		.LVL928:
  667    %INTEGER tstart;  tstart     = tmax
				st	%i3, [%fp+483]
  668    %INTEGER label;   label      = 4;           !first internal label
				st	%i3, [%fp+487]
  669    %INTEGER access;  access     = 1;           !non-zero if accessible
				mov	4, %g1
				st	%g1, [%fp+439]
  670    %INTEGER inhibit; inhibit    = 0;           !non-zero inhibits declaratons
				mov	1, %g1
				st	%g1, [%fp+451]
  671
				st	%g0, [%fp+435]
  672    %SHORTINTEGERNAME bflags; bflags      == tag(block tag)_flags
  673    %INTEGER block type;      block type   = bflags>>4&7
				sllx	%i1, 4, %g1
				add	%g1, 220, %g1
				add	%g5, %g1, %g1
				stx	%g1, [%fp+415]
				sllx	%i1, 4, %i4
				add	%g5, %i4, %i4
  674    %INTEGER block form;      block form   = bflags&15
				lduh	[%i4+220], %g2
				ldsh	[%i4+220], %g1
				srl	%g1, 4, %g1
				and	%g1, 7, %g1
				st	%g1, [%fp+459]
  675    %INTEGER block fm;        block fm     = tag(block tag)_format
				and	%g2, 15, %g1
				st	%g1, [%fp+463]
  676    %INTEGER block otype;     block otype  = otype
				lduw	[%i4+216], %g1
				st	%g1, [%fp+455]
  677    %INTEGERNAME block app;   block app   == tag(block tag)_app
				sethi	%hi(OTYPE.6140), %g1
				lduw	[%g1+%lo(OTYPE.6140)], %i5
		.LVL929:
  678
  679    %INTEGER l, new app
  680
  681 %ROUTINE fault(%INTEGER n)
		.LVL357:
				save	%sp, -2528, %sp
		.LVL358:
				mov	%g5, %l4
				ldx	[%g7+40], %g1
				stx	%g1, [%fp+2039]
				mov	0, %g1
  682
  683     ! -5 : -1  - warnings
  684     !  1 : 22  - errors
  685
  686     %SWITCH fm(-5:22)
  687     %INTEGER st
  688
  689     %ROUTINE print ss
  690        %INTEGER s, p
  691        %RETURN %IF pos = 0
				sethi	%hi(POS.6178), %g1
				lduw	[%g1+%lo(POS.6178)], %g1
				cmp	%g1, 0
				bne,pn	%icc, .L436
				 nop
		.L407:
		.LDL20:
		.LBE464:
		.LBE463:
		.LBB475:
		.LBB476:
				call	_imp_newline, 0
				 nop
		.LVL373:
		.LBE476:
		.LBE475:
  692        space
  693        p = 1
				mov	1, %i5
  694        %CYCLE
  695           printsymbol(marker) %IF p = pos1
				sethi	%hi(POS1.6176), %i1
		.LBE471:
		.LBE487:
				lduw	[%i1+%lo(POS1.6176)], %g1
				cmp	%g1, %i5
				be,pn	%icc, .L441
				 nop
		.L410:
  696           %EXIT %IF p = pos
				ba,pt	%xcc, .L409
				 sethi	%hi(POS.6178), %i2
		.LVL394:
		.L441:
		.LBB488:
		.LBB472:
		.LBB467:
		.LBB468:
				call	_imp_printsymbol, 0
				 mov	94, %o0
		.LVL395:
		.LBE468:
		.LBE467:
		.LBE472:
		.LBE488:
				ba,pt	%xcc, .L446
				 lduw	[%i2+%lo(POS.6178)], %g1
		.L414:
		.L415:
		.LVL396:
		.L416:
		.LBB489:
		.LBB473:
		.LBB469:
		.LBB470:
				sllx	%o0, 56, %o0
		.LVL397:
		.L450:
				call	_imp_printsymbol, 0
				 srax	%o0, 56, %o0
		.LVL398:
				add	%i4, 1, %i4
		.LVL399:
		.L409:
		.LBE470:
		.LBE469:
				lduw	[%i2+%lo(POS.6178)], %g1
		.L446:
				cmp	%i5, %g1
				be,a,pn	%icc, .L449
				 sethi	%hi(LIST.6190), %g1
		.L412:
  697           s = char(p);  p = p+1
				ldub	[%i4], %o0
		.LVL400:
  698           %EXIT %IF s = nl %OR (s='%' %AND p = pos)
				cmp	%o0, 10
				be,pn	%icc, .L417
				 add	%i5, 1, %i5
  699           %IF s < ' ' %START;         !beware of tabs
				xor	%o0, 37, %g1
				cmp	%g0, %g1
				addx	%g0, 0, %g1
				bg,a,pt	%icc, .L450
				 sllx	%o0, 56, %o0
  700              %IF s = ff %THEN s = nl %ELSE s = ' '
				xor	%g1, %i5, %g1
				cmp	%g0, %g1
				addx	%g0, 0, %g2
				orcc	%g2, %g1, %g0
				be,pn	%icc, .L417
				 cmp	%o0, 31
		.L413:
  701           %FINISH
  702           printsymbol(s)
  703        %REPEAT
  704        pos = 0 %IF list <= 0
				cmp	%o0, 12
				mov	32, %o0
		.LVL401:
		.LBE473:
		.LBE489:
				ba,pt	%xcc, .L416
				 move	%icc, 10, %o0
		.L411:
		.LVL402:
		.L417:
		.LBB490:
		.LBB474:
				sethi	%hi(LIST.6190), %g1
		.L449:
				lduw	[%g1+%lo(LIST.6190)], %g1
				cmp	%g1, 0
				bg,pt	%icc, .L407
				 sethi	%hi(POS.6178), %g1
		.LBE474:
		.LBE490:
  705     %END
				ba,pt	%xcc, .L407
				 st	%g0, [%g1+%lo(POS.6178)]
		.LVL403:
		.L437:
		.L419:
  706
  707     pos1 = pos2 %IF pos2 > pos1
				sethi	%hi(POS2.6177), %g1
				lduw	[%g1+%lo(POS2.6177)], %g1
				sethi	%hi(POS1.6176), %g2
				lduw	[%g2+%lo(POS1.6176)], %g2
				cmp	%g1, %g2
				ble,a,pt %icc, .L448
				 sethi	%hi(SYM.6128), %g1
  708     newline %IF sym # nl
				sethi	%hi(POS1.6176), %g2
				st	%g1, [%g2+%lo(POS1.6176)]
		.L397:
				sethi	%hi(SYM.6128), %g1
		.L448:
				lduw	[%g1+%lo(SYM.6128)], %g1
				cmp	%g1, 10
				bne,pn	%icc, .L433
				 nop
		.L398:
		.LVL359:
  709     st = report
  710     st = listing %IF n = -3;              !don't report unused on the console
  711     %cycle
				xor	%i0, -3, %g1
		.L443:
				cmp	%g0, %g1
				subx	%g0, -1, %i3
				sll	%i3, 1, %i3
		.LBB446:
		.LBB447:
				sethi	%hi(_imp_outfile), %l1
				or	%l1, %lo(_imp_outfile), %l1
				sethi	%hi(__PRETTY_FUNCTION__.5660), %l0
				or	%l0, %lo(__PRETTY_FUNCTION__.5660), %l0
		.LBE447:
		.LBE446:
		.LBB449:
				ba,pt	%xcc, .L443
				 xor	%i0, -3, %g1
		.LVL362:
		.L438:
		.LBB453:
		.LBB454:
				call	_imp_printsymbol, 0
				 mov	63, %o0
		.LVL363:
		.LBE454:
		.LBE453:
  712        SELECT OUTPUT(st)
  713        %if n < 0 %then printsymbol('?') %and pos1 = 0 %else printsymbol('*')
				cmp	%i0, 0
				bl,pn	%icc, .L438
				 nop
		.L400:
		.LVL376:
		.LBB478:
		.LBB479:
				call	_imp_printsymbol, 0
				 mov	42, %o0
		.LVL377:
		.L401:
		.LBE479:
		.LBE478:
  714        %if st # report %start
				cmp	%i3, 0
				be,pt	%icc, .L402
				 sethi	%hi(INCLUDE.6164), %g1
  715           %if list <= 0 %and pos1 # 0 %start
				sethi	%hi(POS1.6176), %g1
				sethi	%hi(LIST.6190), %g1
				lduw	[%g1+%lo(LIST.6190)], %g1
				cmp	%g1, 0
				bg,pt	%icc, .L444
				 add	%i0, 5, %g1
  716              spaces(pos1+margin);  PRINTSTRING("      ! ")
				ba,pt	%xcc, .L401
				 st	%g0, [%g1+%lo(POS1.6176)]
		.L402:
				sethi	%hi(POS1.6176), %g1
				lduw	[%g1+%lo(POS1.6176)], %o0
				cmp	%o0, 0
				be,a,pt	%icc, .L444
				 add	%i0, 5, %g1
		.LVL378:
				sethi	%hi(MARGIN.6122), %g1
				lduw	[%g1+%lo(MARGIN.6122)], %g1
				add	%o0, %g1, %o0
		.LVL379:
		.LBB480:
		.LBB481:
				call	_imp_spaces, 0
				 sra	%o0, 0, %o0
		.LVL380:
		.LBE481:
		.LBE480:
		.LBB482:
  717           %finish
				sethi	%hi(.LC31), %l3
				or	%l3, %lo(.LC31), %l3
		.LBE449:
		.LBB450:
				mov	256, %o2
				mov	%l3, %o1
				call	memcpy, 0
				 add	%fp, 1015, %o0
		.LVL381:
				mov	256, %o2
				add	%fp, 1015, %o1
				call	memcpy, 0
				 add	%fp, -9, %o0
		.LVL382:
				mov	256, %o2
				add	%fp, -9, %o1
				call	memcpy, 0
				 add	%fp, 1271, %o0
		.LVL383:
		.LBE482:
		.LBB483:
		.LBB484:
				mov	256, %o2
				add	%fp, 1271, %o1
				call	memcpy, 0
				 add	%fp, -273, %o0
		.LVL384:
				call	_imp_printstring, 0
				 add	%fp, -273, %o0
		.LVL385:
		.LBE484:
		.LBE483:
  718        %finish %else %start
  719           PRINTSTRING(include file) %if include # 0
				lduw	[%g1+%lo(INCLUDE.6164)], %g1
				cmp	%g1, 0
				bne,pn	%icc, .L434
				 mov	256, %o2
		.L404:
  720           write(lines, 4);  printsymbol(csym);  space
				mov	4, %o1
		.L445:
				sethi	%hi(LINES.6120), %g1
				call	_imp_writeint, 0
				 ldsw	[%g1+%lo(LINES.6120)], %o0
		.LVL364:
		.LBB455:
		.LBB456:
				sethi	%hi(CSYM.6133), %g1
				call	_imp_printsymbol, 0
				 ldsb	[%g1+%lo(CSYM.6133+3)], %o0
		.LVL365:
		.LBE456:
		.LBE455:
		.LBB457:
		.LBB458:
				call	_imp_space, 0
				 nop
		.LVL366:
		.L403:
		.L405:
		.LBE458:
		.LBE457:
		.LBB459:
				ba,pt	%xcc, .L445
				 mov	4, %o1
		.LVL389:
		.L435:
		.LDL21:
		.L423:
  721        %finish
  722        ->fm(n) %if -5 <= n <= 22
  723        PRINTSTRING("fault");  write(n, 2);              ->ps
				sethi	%hi(.LC32), %l2
		.LBE450:
				ba,pt	%xcc, .L418
				 or	%l2, %lo(.LC32), %l2
		.LVL360:
		.L433:
		.LBB451:
		.LBB452:
				call	_imp_newline, 0
				 nop
		.LVL361:
		.LBE452:
		.LBE451:
				mov	%l2, %o1
				call	memcpy, 0
				 add	%fp, 1015, %o0
		.LVL367:
				mov	256, %o2
				add	%fp, 1015, %o1
				call	memcpy, 0
				 add	%fp, 503, %o0
		.LVL368:
				mov	256, %o2
				add	%fp, 503, %o1
				call	memcpy, 0
				 add	%fp, 1783, %o0
		.LVL369:
		.LBE460:
		.LBB461:
		.LBB462:
				mov	256, %o2
				add	%fp, 1783, %o1
				call	memcpy, 0
				 add	%fp, -273, %o0
		.LVL370:
				call	_imp_printstring, 0
				 add	%fp, -273, %o0
		.LVL371:
		.LBE462:
		.LBE461:
  724
				mov	2, %o1
				call	_imp_writeint, 0
				 mov	%i0, %o0
		.LVL372:
		.LDL19:
		.LBB463:
		.LBB464:
  725 fm(-5):PRINTSTRING("Dubious statement");  dubious = 0;  ->psd
  726 fm(-4):PRINTSTRING("Non-local")
  727        pos1 = for warn;  for warn = 0;                  ->ps
				add	%i0, 5, %g1
		.L444:
				cmp	%g1, 27
				bleu,pn	%icc, .L435
				 mov	256, %o2
		.L406:
		.LBE459:
		.LBB460:
				ba,pt	%xcc, .L444
				 add	%i0, 5, %g1
		.L434:
				add	%fp, 247, %o1
				call	memcpy, 0
				 add	%fp, 1527, %o0
		.LVL386:
		.LBB485:
		.LBB486:
				mov	256, %o2
				add	%fp, 1527, %o1
				call	memcpy, 0
				 add	%fp, -273, %o0
		.LVL387:
				call	_imp_printstring, 0
				 add	%fp, -273, %o0
		.LVL388:
		.LBE486:
		.LBE485:
  728 fm(-3):print ident(x, 0);  PRINTSTRING(" unused");      ->nps
  729 fm(-2):PRINTSTRING("""}""");                            ->miss
  730 fm(-1):PRINTSTRING("access");                           ->psd
  731
  732 fm(0): PRINTSTRING("form");                             ->ps
  733 fm(1): PRINTSTRING("atom");                             ->ps
  734 fm(2): PRINTSTRING("not declared");                     ->ps
  735 fm(3): PRINTSTRING("too complex");                      ->ps
  736 fm(4): PRINTSTRING("duplicate ");  Print Ident(x, 0);   ->ps
  737 fm(5): PRINTSTRING("type");                             ->ps
  738 fm(6): PRINTSTRING("match");                            ->psd
  739 fm(7): PRINTSTRING("context");                          ->psd
  740 fm(21):PRINTSTRING("context ");  print ident(this, 0);  ->ps
  741 fm(8): PRINTSTRING("%cycle");                           ->miss
  742 fm(9): PRINTSTRING("%start");                           ->miss
  743 fm(10):PRINTSTRING("size");  WRITE(lit, 1) %if pos1 = 0;->ps
  744 fm(11):PRINTSTRING("bounds")
  745        WRITE(ocount, 1) %unless ocount < 0;             ->ps
  746 fm(12):PRINTSTRING("index");                            ->ps
  747 fm(13):PRINTSTRING("order");                            ->psd
  748 fm(14):PRINTSTRING("not a location");                   ->ps
  749 fm(15):PRINTSTRING("%begin");                           ->miss
  750 fm(16):PRINTSTRING("%end");                             ->miss
  751 fm(17):PRINTSTRING("%repeat");                          ->miss
  752 fm(18):PRINTSTRING("%finish");                          ->miss
  753 fm(19):PRINTSTRING("result");                           ->miss
  754 fm(22):PRINTSTRING("format");                           ->ps
  755 fm(20):printsymbol('"');  print ident(x, 0);  printsymbol('"')
  756 miss:  PRINTSTRING(" missing");                         ->nps
  757 psd:   pos1 = 0
  758 ps:    print ss
  759 nps:   NEWLINE
  760        %exit %if st = listing
				cmp	%i3, 2
				be,pn	%icc, .L437
				 mov	2, %i3
		.LVL374:
		.L418:
		.LBB477:
		.LBB448:
				sethi	%hi(_imp_OutStream), %g1
				st	%i3, [%g1+%lo(_imp_OutStream)]
				sra	%i3, 0, %g1
				mulx	%g1, 288, %g1
				add	%l1, %g1, %g1
				ldx	[%g1+8], %g2
				sethi	%hi(_imp_OutFile), %g1
				stx	%g2, [%g1+%lo(_imp_OutFile)]
				call	check_outstream, 0
				 mov	%l0, %o0
		.LVL375:
		.LBE448:
		.LBE477:
  761        st = listing
  762     %repeat
  763     %if n >= 0 %start
				cmp	%i0, 0
				bge,pn	%icc, .L442
				 nop
		.L420:
		.L421:
  764 !IMP80 BUG???         %signal 15,15 %if diag&4096 # 0
  765        %stop %if diag&4096 # 0
  766        %if n # 13 %start;           !order is fairly safe
  767           ocount = -1
  768           gg = 0
  769           copy = 0;  quote = 0
  770           search base = 0;  escape class = 0
  771           gg = 0
  772        %finish
  773        faulty = faulty+1
  774
  775        !check that there haven't been too many faults
  776
  777        fault rate = fault rate+3;  abandon(6) %IF fault rate > 30
  778        fault rate = 3 %IF fault rate <= 0
  779     %FINISH
  780     tbase = tstart
				lduw	[%l4+72], %g1
				st	%g1, [%l4+68]
  781     %IF list <= 0 %AND sym # nl %START
				sethi	%hi(LIST.6190), %g1
				lduw	[%g1+%lo(LIST.6190)], %g1
				cmp	%g1, 0
				bg,pt	%icc, .L396
				 sethi	%hi(SYM.6128), %g1
  782        error margin = column
				lduw	[%g1+%lo(SYM.6128)], %g1
				cmp	%g1, 10
				be,pn	%icc, .L396
				 sethi	%hi(COLUMN.6125), %g2
				lduw	[%g2+%lo(COLUMN.6125)], %g3
				sethi	%hi(ERRORMARGIN.6123), %g2
				st	%g3, [%g2+%lo(ERRORMARGIN.6123)]
  783        error sym = sym;  sym = nl
				sethi	%hi(ERRORSYM.6124), %g2
				st	%g1, [%g2+%lo(ERRORSYM.6124)]
  784     %FINISH
				sethi	%hi(SYM.6128), %g1
				mov	10, %g2
				ba,pt	%xcc, .L396
				 st	%g2, [%g1+%lo(SYM.6128)]
		.L442:
		.LVL404:
		.LBB491:
		.LBB492:
				call	exit, 0
				 mov	0, %o0
		.LVL405:
		.L439:
		.LBE492:
		.LBE491:
		.LBB493:
  785 %END
  786
  787    dmin = dmin-1;  dict(dmin) = -1;            !end marker for starts & cycles
				add	%i2, -1, %g3
				st	%g3, [%fp+467]
  788    abandon(2) %IF dmax = dmin
				add	%i2, -2, %g1
				sra	%g1, 0, %g1
				mov	1677, %g2
				sllx	%g2, 3, %g2
				add	%g1, %g2, %g1
				add	%g1, %g1, %g1
				add	%g5, %g1, %g1
				mov	-1, %g2
				cmp	%g4, %g3
				be,pn	%icc, .L1049
				 sth	%g2, [%g1+4]
		.LVL930:
		.L1012:
  789
				call	ABANDON.6239, 0
				 mov	2, %o0
		.LVL933:
  790    %IF list > 0 %AND level > 0 %START
				sethi	%hi(LIST.6190), %g1
		.L1059:
				lduw	[%g1+%lo(LIST.6190)], %g1
				cmp	%g1, 0
				ble,pn	%icc, .L1013
				 lduw	[%fp+475], %g1
				ba,pt	%xcc, .L1059
				 sethi	%hi(LIST.6190), %g1
		.L1050:
  791       write(lines, 5);  spaces(level*3-1)
				sethi	%hi(_imp_current_file), %g1
				ldx	[%g1+%lo(_imp_current_file)], %o1
				brz,a,pn %o1, .L439
				 sethi	%hi(.LC16), %o1
				call	_imp_c2istr, 0
				 add	%fp, 1015, %o0
		.LVL390:
				sethi	%hi(_imp_current_line), %g1
		.L447:
				lduw	[%g1+%lo(_imp_current_line)], %i5
				cmp	%i5, 0
				move	%icc, 791, %i5
				mov	256, %o2
				add	%fp, 1015, %o1
				call	memcpy, 0
				 add	%fp, -273, %o0
		.LVL391:
				mov	729, %g1
				stx	%g1, [%sp+2239]
				sethi	%hi(.LC78), %g1
				or	%g1, %lo(.LC78), %g1
				stx	%g1, [%sp+2231]
				stx	%i0, [%sp+2223]
				sethi	%hi(.LC82), %o5
				or	%o5, %lo(.LC82), %o5
				mov	%i0, %o4
				mov	2, %o3
				mov	8, %o2
				sra	%i5, 0, %o1
				call	_signal_eventf, 0
				 add	%fp, -273, %o0
		.LVL392:
		.L422:
		.L396:
				or	%o1, %lo(.LC16), %o1
				call	memcpy, 0
				 add	%fp, 1015, %o0
		.LVL406:
				mov	256, %o2
				add	%fp, 1015, %o1
				call	memcpy, 0
				 add	%fp, 759, %o0
		.LVL407:
		.LBE493:
				mov	256, %o2
				add	%fp, 759, %o1
				call	memcpy, 0
				 add	%fp, 1015, %o0
		.LVL408:
				ba,pt	%xcc, .L447
				 sethi	%hi(_imp_current_line), %g1
		.LVL409:
		.L440:
				cmp	%g1, 0
				bg,pn	%icc, .L1050
				 mov	5, %o1
		.L1013:
				sethi	%hi(LINES.6120), %g1
				call	_imp_writeint, 0
				 ldsw	[%g1+%lo(LINES.6120)], %o0
		.LVL934:
  792       %IF block tag = 0 %START
				ldx	[%fp+2039], %g1
				ldx	[%g7+40], %g2
				xor	%g1, %g2, %g1
				mov	0, %g2
				brnz,pn	%g1, .L440
				 nop
				return	%i7+8
				 nop
		.L436:
		.L408:
		.LBB487:
		.LBB471:
		.LBB465:
		.LBB466:
				call	_imp_space, 0
				 sethi	%hi(CHAR.6185+1), %i4
		.LVL393:
				or	%i4, %lo(CHAR.6185+1), %i4
		.LBE466:
		.LBE465:
				call	__stack_chk_fail, 0
				 nop
		.LVL410:
				nop
		.LFE192:
				.align 4
				.proc	020
		POPLABEL.7403:
		.LFB221:
				lduw	[%fp+475], %g1
				add	%g1, %g1, %o0
				add	%o0, %g1, %o0
				add	%o0, -1, %o0
		.LBB739:
		.LBB740:
				call	_imp_spaces, 0
				 sra	%o0, 0, %o0
		.LVL935:
		.LBE740:
		.LBE739:
				lduw	[%fp+443], %g1
				cmp	%g1, 0
				bne,pt	%icc, .L1014
				 mov	256, %o2
		.LBB741:
  793          printstring("Begin")
				sethi	%hi(.LC8), %o1
				or	%o1, %lo(.LC8), %o1
				call	memcpy, 0
				 add	%fp, 1783, %o0
		.LVL936:
				mov	256, %o2
				add	%fp, 1783, %o1
				call	memcpy, 0
				 add	%fp, 503, %o0
		.LVL937:
				mov	256, %o2
				add	%fp, 503, %o1
				call	memcpy, 0
				 add	%fp, 1271, %o0
		.LVL938:
		.LBE741:
		.LBB742:
		.LBB743:
				mov	256, %o2
				add	%fp, 1271, %o1
				call	memcpy, 0
				 add	%fp, 127, %o0
		.LVL939:
				call	_imp_printstring, 0
				 add	%fp, 127, %o0
		.LVL940:
		.L1015:
		.LBE743:
		.LBE742:
		.LBB744:
		.LBB745:
				call	_imp_newline, 0
				 nop
		.LVL941:
		.LBE745:
		.LBE744:
  794       %FINISH %ELSE %START
  795          printstring("Procedure ");  print ident(block tag, 0)
				sethi	%hi(.LC9), %o1
				or	%o1, %lo(.LC9), %o1
				call	memcpy, 0
				 add	%fp, 1783, %o0
		.LVL942:
				mov	256, %o2
				add	%fp, 1783, %o1
				call	memcpy, 0
				 add	%fp, 759, %o0
		.LVL943:
				mov	256, %o2
				add	%fp, 759, %o1
				call	memcpy, 0
				 add	%fp, 1527, %o0
		.LVL944:
		.LBE746:
		.LBB747:
		.LBB748:
				mov	256, %o2
				add	%fp, 1527, %o1
				call	memcpy, 0
				 add	%fp, 127, %o0
		.LVL945:
				call	_imp_printstring, 0
				 add	%fp, 127, %o0
		.LVL946:
		.LBE748:
		.LBE747:
  796       %FINISH
				mov	%l0, %g5
				mov	0, %o1
				call	PRINTIDENT.6220, 0
				 ldsw	[%fp+443], %o0
		.LVL947:
				ba,pt	%xcc, .L1015
				 nop
		.L1051:
  797       newline
  798    %FINISH
  799
  800    !deal with procedure definition (parameters)
  801
  802    %IF block tag # 0 %START;                   !proc
				lduw	[%fp+443], %g1
		.L1060:
				cmp	%g1, 0
				bne,pn	%icc, .L1051
				 nop
		.L1016:
				ba,pt	%xcc, .L1060
				 lduw	[%fp+443], %g1
		.L1014:
		.LBB746:
  803       analyse;  compile %IF ss # 0
				call	ANALYSE.6330, 0
				 add	%fp, 415, %g5
		.LVL948:
  804
				sethi	%hi(SS.6160), %g1
				lduw	[%g1+%lo(SS.6160)], %g1
				cmp	%g1, 0
				bne,pn	%icc, .L1052
				 nop
		.L1017:
  805       %IF block otype # 0 %START;              !external-ish
				cmp	%i5, 0
		.L1061:
				be,pt	%icc, .L1065
				 add	%fp, 2047, %g1
				call	COMPILE.6332, 0
				 add	%fp, 415, %g5
		.LVL954:
				ba,pt	%xcc, .L1061
				 cmp	%i5, 0
		.L1053:
  806          %IF bflags&spec = 0 %START;           !definition
				ldx	[%fp+415], %g1
				lduh	[%g1], %g1
				andcc	%g1, 1, %g0
				bne,pt	%xcc, .L1065
				 add	%fp, 2047, %g1
  807             %IF progmode <= 0 %AND level = 1 %THEN progmode = -1 %C
				sethi	%hi(PROGMODE.6166), %g1
				lduw	[%g1+%lo(PROGMODE.6166)], %g1
				cmp	%g1, 0
				bg,pn	%icc, .L1019
				 lduw	[%fp+475], %g1
  808                                              %ELSE fault(7)
				cmp	%g1, 1
				be,pn	%icc, .L1053
				 sethi	%hi(PROGMODE.6166), %g1
		.L1019:
  809          %FINISH
				mov	-1, %g2
  810       %FINISH
				ba,pt	%xcc, .L1021
				 st	%g2, [%g1+%lo(PROGMODE.6166)]
		.LVL955:
		.L1025:
		.LBB761:
		.LBB757:
		.LBB755:
		.LBB753:
  811
  812       new app = gapp;                          !generate app grammar
				add	%fp, 415, %g5
				call	FAULT.6349, 0
				 mov	7, %o0
		.LVL949:
		.L1018:
		.L1020:
		.L1021:
		.LBB749:
		.LBB750:
  813       %IF spec given # 0 %START;               !definition after spec
				sethi	%hi(SPECGIVEN.6136), %g1
				lduw	[%g1+%lo(SPECGIVEN.6136)], %g1
				cmp	%g1, 0
				be,a,pt	%icc, .L1067
				 st	%i5, [%i4+212]
  814          fault(6) %IF new app # block app;     !different from spec
				lduw	[%i4+212], %g1
				cmp	%g1, %i5
				be,a,pt	%icc, .L1067
				 st	%i5, [%i4+212]
  815       %FINISH
				add	%fp, 415, %g5
				call	FAULT.6349, 0
				 mov	6, %o0
		.LVL974:
		.L1031:
		.L1032:
  816       block app = new app;                     !use the latest
				st	%i5, [%i4+212]
		.L1067:
  817
  818       %IF level < 0 %START;                    !not procedure definition
				lduw	[%fp+475], %g1
				cmp	%g1, 0
				bge,a,pt %icc, .L1068
				 sethi	%hi(SS.6160), %i5
  819          delete names(0)
				add	%fp, 415, %g5
				call	DELETENAMES.6328, 0
				 mov	0, %o0
		.LVL975:
  820          %RETURN
				ba,pt	%xcc, .L1011
				 nop
		.LVL976:
		.L1054:
		.LBB764:
		.LBB760:
  821       %FINISH
  822    %FINISH %ELSE %START
  823       open = 0;                                !can return from a block?
				st	%g0, [%fp+447]
		.LVL931:
  824    %FINISH
  825
  826    %CYCLE
  827       analyse
				call	ANALYSE.6330, 0
				 add	%fp, 415, %g5
		.LVL980:
  828       %CONTINUE %IF ss = 0
				sethi	%hi(SS.6160), %i5
		.L1068:
				lduw	[%i5+%lo(SS.6160)], %g1
				cmp	%g1, 0
				be,pt	%icc, .L1035
				 nop
		.L1036:
  829       compile
				call	COMPILE.6332, 0
				 add	%fp, 415, %g5
		.LVL981:
  830       fault(-5) %IF dubious # 0
				sethi	%hi(DUBIOUS.6174), %i2
				lduw	[%i2+%lo(DUBIOUS.6174)], %g1
				cmp	%g1, 0
				bne,a,pn %icc, .L1056
				 add	%fp, 415, %g5
		.L1037:
  831       flush buffer %IF bp >= 128
				sethi	%hi(BP.6197), %i3
				call	FAULT.6349, 0
				 mov	-5, %o0
		.LVL979:
				ba,pt	%xcc, .L1062
				 lduw	[%i3+%lo(BP.6197)], %g1
		.L1038:
		.L1063:
				lduw	[%i3+%lo(BP.6197)], %g1
		.L1062:
				cmp	%g1, 127
				ble,a,pt %icc, .L1038
				 lduw	[%i4+%lo(SSTYPE.6167)], %g1
  832       %IF sstype > 0 %START;                 !block in or out
				sethi	%hi(SSTYPE.6167), %i4
				cmp	%g1, 0
				bg,pn	%icc, .L1055
				 cmp	%g1, 2
		.L1035:
				call	FLUSHBUFFER.6207, 0
				 mov	%l0, %g5
		.LVL982:
				ba,pt	%xcc, .L1063
				 lduw	[%i4+%lo(SSTYPE.6167)], %g1
		.L1055:
  833          %EXIT %IF sstype = 2;               !out
				be,pn	%icc, .L1040
				 mov	%l0, %g5
		.L1041:
  834          compile block(spec mode, block x, dmin, tmax, id)
				sethi	%hi(BLOCKX.6189), %i0
				ba,pt	%xcc, .L1035
				 sethi	%hi(SPECMODE.6168), %i1
		.LVL932:
		.L1049:
				ldsw	[%fp+471], %o4
				ldsw	[%fp+479], %o3
				ldsw	[%fp+467], %o2
				ldsw	[%i0+%lo(BLOCKX.6189)], %o1
				call	COMPILEBLOCK.6323, 0
				 ldsw	[%i1+%lo(SPECMODE.6168)], %o0
		.LVL983:
  835          %EXIT %IF ss < 0;                   !endofprogram
				lduw	[%i5+%lo(SS.6160)], %g1
				cmp	%g1, 0
				bge,pt	%icc, .L1035
				 nop
		.L1040:
  836       %FINISH
  837    %REPEAT
  838    %IF list > 0 %AND level > 0 %START
				sethi	%hi(LIST.6190), %g1
				lduw	[%g1+%lo(LIST.6190)], %g1
				cmp	%g1, 0
				ble,pn	%icc, .L1043
				 lduw	[%fp+475], %g1
  839       write(lines, 5);  spaces(level*3-1)
				cmp	%g1, 0
				bg,pn	%icc, .L1057
				 mov	5, %o1
		.L1043:
				sethi	%hi(LINES.6120), %g1
				call	_imp_writeint, 0
				 ldsw	[%g1+%lo(LINES.6120)], %o0
		.LVL985:
  840       printstring("End")
				lduw	[%fp+475], %g1
				add	%g1, %g1, %o0
				add	%o0, %g1, %o0
				add	%o0, -1, %o0
		.LBB765:
		.LBB766:
				call	_imp_spaces, 0
				 sra	%o0, 0, %o0
		.LVL986:
		.LBE766:
		.LBE765:
		.LBB767:
				mov	256, %o2
				sethi	%hi(.LC10), %o1
				or	%o1, %lo(.LC10), %o1
				call	memcpy, 0
				 add	%fp, 1783, %o0
		.LVL987:
				mov	256, %o2
				add	%fp, 1783, %o1
				call	memcpy, 0
				 add	%fp, 1015, %o0
		.LVL988:
				mov	256, %o2
				add	%fp, 1015, %o1
				call	memcpy, 0
				 add	%fp, 1783, %o0
		.LVL989:
		.LBE767:
		.LBB768:
		.LBB769:
				mov	256, %o2
				add	%fp, 1783, %o1
				call	memcpy, 0
				 add	%fp, 127, %o0
		.LVL990:
				call	_imp_printstring, 0
				 add	%fp, 127, %o0
		.LVL991:
		.LBE769:
		.LBE768:
		.LBB770:
		.LBB771:
				call	_imp_newline, 0
				 nop
		.LVL992:
		.LBE771:
		.LBE770:
  841       newline
  842    %FINISH
  843    delete names(0)
				add	%fp, 415, %g5
		.L1064:
				call	DELETENAMES.6328, 0
				 mov	0, %o0
		.LVL984:
		.L1011:
				ba,pt	%xcc, .L1064
				 add	%fp, 415, %g5
		.L1058:
  844    %RETURN
  845
  846    %INTEGERFN gapp;                            !generate app grammar (backwards)
				add	%fp, 2047, %g1
		.L1065:
				stx	%g1, [%fp+407]
  847       %CONSTINTEGER comma = 140;               !psep
  848       %ROUTINESPEC set cell(%INTEGER g, tt)
  849       %ROUTINESPEC class(%RECORD(tagfm)%NAME v)
  850       %RECORD(tagfm)%NAME v
  851       %INTEGER p, link, tp, c, ap, t
  852
  853       %RESULT = 0 %IF tmax = local;            !no app needed
				sethi	%hi(LOCAL.6180), %g1
				lduw	[%g1+%lo(LOCAL.6180)], %i2
				lduw	[%fp+479], %g1
		.LVL950:
				cmp	%i2, %g1
				be,pn	%icc, .L1022
				 mov	0, %i5
		.L1023:
  854
  855       p = gmax1;  link = 0;  t = tmax
				mov	719, %g2
				st	%g2, [%fp+399]
  856
				st	%g0, [%fp+395]
		.LVL951:
		.LBB751:
		.LBB752:
  857       %CYCLE
  858          v == tag(t);  t = t-1
  859          class(v);                             !deduce class from tag
				mov	%i3, %g1
		.LVL960:
		.L1024:
				add	%g1, -1, %i3
		.LVL961:
		.LBB756:
		.LBB754:
  860          %IF c < 0 %START;                     !insert %PARAM
				lduw	[%fp+383], %g1
				cmp	%g1, 0
				bge,pt	%icc, .L1066
				 add	%fp, 383, %g5
  861             c = -c
				sub	%g0, %g1, %g1
				st	%g1, [%fp+383]
  862             set cell(196, tp)
				ldsw	[%fp+387], %o1
				call	SETCELL.6529, 0
				 mov	196, %o0
		.LVL972:
  863             tp = -1
				mov	-1, %g1
		.LBE758:
		.LBE762:
				ba,pt	%xcc, .L1027
				 st	%g1, [%fp+387]
		.L1028:
		.LBB763:
		.LBB759:
  864          %FINISH
  865          set cell(c, tp)
				add	%fp, 383, %g5
		.L1066:
				ldsw	[%fp+387], %o1
				call	SETCELL.6529, 0
				 ldsw	[%fp+383], %o0
		.LVL958:
  866          %EXIT %IF t = local;                  !end of parameters
				cmp	%i2, %i3
				be,pn	%icc, .L1028
				 add	%fp, 383, %g5
		.L1029:
  867          set cell(comma, -1);                  !add the separating comma
				mov	-1, %o1
				call	SETCELL.6529, 0
				 mov	140, %o0
		.LVL959:
  868       %REPEAT
  869       abandon(3) %IF gmax > gmin
				sethi	%hi(GMAX.6199), %g1
				lduw	[%g1+%lo(GMAX.6199)], %g2
				sethi	%hi(GMIN.6157), %g1
				lduw	[%g1+%lo(GMIN.6157)], %g1
				cmp	%g2, %g1
				bg,pn	%icc, .L1054
				 ldx	[%fp+423], %g5
		.L1030:
  870
				call	ABANDON.6239, 0
				 mov	3, %o0
		.LVL977:
		.LBE760:
		.LBE764:
  871       %RESULT = link
				lduw	[%fp+395], %i5
		.LVL973:
		.L1022:
		.LBE759:
		.LBE763:
				ba,pt	%xcc, .L1022
				 lduw	[%fp+395], %i5
		.LVL978:
		.L1056:
  872
  873       %ROUTINE set cell(%INTEGER g, tt)
		.LVL8:
  874
  875          !add the cell to the grammar, combining common tails
  876
  877          %WHILE p # gmax %CYCLE
  878             p = p+1
				sethi	%hi(GMAX.6199), %g1
				lduw	[%g1+%lo(GMAX.6199)], %o5
				lduw	[%g5+16], %g2
		.L10:
				cmp	%o5, %g2
				be,pn	%icc, .L4
				 add	%g2, 1, %g3
				st	%g3, [%g5+16]
  879             %IF glink(p) = link %AND gram(p) = g %START
				sethi	%hi(GLINK.6204), %o4
				or	%o4, %lo(GLINK.6204), %o4
				sra	%g3, 0, %g1
				add	%g1, %g1, %g1
				ldsh	[%o4+%g1], %g4
				lduw	[%g5+12], %g1
				cmp	%g4, %g1
				bne,a,pt %icc, .L10
				 lduw	[%g5+16], %g2
				sra	%g3, 0, %g1
				add	%g1, %g1, %g1
				ldsh	[%o3+%g1], %g1
				cmp	%g1, %o0
				bne,a,pt %icc, .L10
				 lduw	[%g5+16], %g2
				cmp	%o1, 0
				bl,pn	%icc, .L6
				 add	%g2, 2, %g2
  880                %IF tt < 0 %OR (gram(p+1) = tt %AND glink(p+1)=ap) %START
				sethi	%hi(GRAM.6203), %o3
				or	%o3, %lo(GRAM.6203), %o3
  881                   link = p;                    !already there
				sra	%g2, 0, %g1
				add	%g1, %g1, %g1
				ldsh	[%o3+%g1], %g1
				cmp	%g1, %o1
				bne,a,pt %icc, .L10
				 lduw	[%g5+16], %g2
  882                   %RETURN
				sra	%g2, 0, %g2
				add	%g2, %g2, %g2
				ldsh	[%o4+%g2], %g2
				lduw	[%g5+8], %g1
				cmp	%g2, %g1
				bne,a,pt %icc, .L10
				 lduw	[%g5+16], %g2
		.L6:
				jmp	%o7+8
				 st	%g3, [%g5+12]
		.L4:
  883                %FINISH
  884             %FINISH
  885          %REPEAT
  886
  887          !add a new cell
  888
  889          gmax = gmax+1
				add	%o5, 1, %g1
				sethi	%hi(GMAX.6199), %g2
				st	%g1, [%g2+%lo(GMAX.6199)]
  890          gram(gmax) = g
				sra	%g1, 0, %g2
				add	%g2, %g2, %g2
				sethi	%hi(GRAM.6203), %g3
				or	%g3, %lo(GRAM.6203), %g3
				sth	%o0, [%g3+%g2]
  891          glink(gmax) = link
				lduw	[%g5+12], %g4
				sethi	%hi(GLINK.6204), %g3
				or	%g3, %lo(GLINK.6204), %g3
				sth	%g4, [%g3+%g2]
  892          link = gmax
  893
  894          %IF tt >= 0 %START;             ! set type cell
				cmp	%o1, 0
				bl,pn	%icc, .L8
				 st	%g1, [%g5+12]
  895             gmax = gmax+1
				add	%o5, 2, %o5
				sethi	%hi(GMAX.6199), %g1
				st	%o5, [%g1+%lo(GMAX.6199)]
  896             gram(gmax) = tt
				sra	%o5, 0, %o5
				add	%o5, %o5, %o5
				sethi	%hi(GRAM.6203), %g1
				or	%g1, %lo(GRAM.6203), %g1
				sth	%o1, [%g1+%o5]
  897             glink(gmax) = ap
				lduw	[%g5+8], %g2
				sth	%g2, [%g3+%o5]
		.L8:
  898          %FINISH
  899
  900          p = gmax
				sethi	%hi(GMAX.6199), %g1
				lduw	[%g1+%lo(GMAX.6199)], %g1
  901       %END
  902
				jmp	%o7+8
				 st	%g1, [%g5+16]
		.LFE195:
				.align 4
				.proc	020
		DEFLAB.7242:
		.LFB210:
  903       %ROUTINE class(%RECORD(tagfm)%NAME v)
  904          %CONSTINTEGER err    = 89
  905          %CONSTINTEGER rtp    = 100
  906          %CONSTINTEGER fnp    = 101
  907          %CONSTINTEGER mapp   = 102
  908          %CONSTINTEGER predp  = 103
  909          %CONSTINTEGERARRAY class map(0:15) = %C
				mov	89, %i5
				mov	1764, %l6
				mov	247, %l5
				mov	-100, %l4
				mov	-101, %l3
				mov	-102, %l2
				mov	-103, %l1
				mov	214, %i0
		.LVL952:
		.LBE752:
		.LBE751:
		.LBE750:
		.LBE749:
				ba,pt	%xcc, .L1024
				 mov	229, %i1
		.LVL953:
		.L1052:
				st	%i5, [%fp+1783]
				st	%l6, [%fp+1787]
				st	%l5, [%fp+1791]
				st	%i5, [%fp+1795]
				st	%i5, [%fp+1799]
				st	%i5, [%fp+1803]
				st	%i5, [%fp+1807]
				st	%l4, [%fp+1811]
				st	%l3, [%fp+1815]
				st	%l2, [%fp+1819]
				st	%l1, [%fp+1823]
				st	%i5, [%fp+1827]
				st	%i0, [%fp+1831]
				st	%i5, [%fp+1835]
				st	%i1, [%fp+1839]
				st	%i5, [%fp+1843]
  910          err,1764, 247, err(4), -rtp, -fnp, -mapp, -predp, err, 214,
  911          err, 229, err
  912          %INTEGER tags, type, form
  913          ap = 0
				st	%g0, [%fp+391]
				sra	%g1, 0, %g1
		.LVL962:
				sllx	%g1, 4, %g1
		.LVL963:
				ldx	[%fp+423], %g2
				add	%g2, %g1, %g2
		.LVL964:
  914          tags = v_flags
  915          type = tags>>4&7;  form = tags&15
				lduh	[%g2+220], %g1
				ldsh	[%g2+220], %g3
		.LVL965:
				srl	%g3, 4, %g3
		.LVL966:
				and	%g3, 7, %g3
		.LVL967:
  916          tp = v_format<<3!type
				and	%g1, 15, %g1
		.LVL968:
				lduw	[%g2+216], %g4
				sll	%g4, 3, %g4
				or	%g4, %g3, %g4
				st	%g4, [%fp+387]
  917          c = class map(form)
				sllx	%g1, 2, %g1
		.LVL970:
				add	%fp, 2047, %g3
				add	%g3, %g1, %g1
				lduw	[%g1-264], %g1
				st	%g1, [%fp+383]
		.L1026:
  918          c = 208 %AND tp = 0 %IF type = 0 %AND form = 2;  !%NAME
				cmp	%g0, %g3
				addx	%g0, 0, %g4
  919          ap = v_app %IF tags&parameters # 0
				xor	%g1, 2, %g3
		.LVL969:
				cmp	%g0, %g3
				addx	%g0, 0, %g3
				orcc	%g4, %g3, %g0
				be,pn	%icc, .L1025
				 sra	%g1, 0, %g1
  920       %END
				mov	208, %g1
		.LVL956:
				st	%g1, [%fp+383]
		.LBE753:
		.LBE755:
		.LBE757:
		.LBE761:
				lduw	[%g2+212], %g1
				st	%g1, [%fp+391]
		.LDL48:
		.LVL971:
		.LBE754:
		.LBE756:
  921    %END
				ba,pt	%xcc, .L1026
				 st	%g0, [%fp+387]
		.LVL957:
		.L1027:
		.LBB762:
		.LBB758:
  922
  923 %ROUTINE delete names(%INTEGER quiet)
		.LVL727:
				save	%sp, -176, %sp
		.LVL728:
  924    %INTEGER flags
  925    %RECORD(tagfm)%NAME tx
  926    %WHILE tmax > tbase %CYCLE
  927       x = tmax;  tmax = tmax-1
				lduw	[%g5+64], %g1
				lduw	[%g5+68], %g2
				cmp	%g1, %g2
				ble,pn	%icc, .L891
				 mov	%g5, %i5
				sethi	%hi(X.6110), %i2
				lduw	[%i5+64], %g1
				lduw	[%i5+68], %g2
				cmp	%g1, %g2
				ble,pn	%icc, .L891
				 nop
		.L888:
				st	%g1, [%i2+%lo(X.6110)]
  928       tx == tag(x)
				add	%g1, -1, %g2
				st	%g2, [%i5+64]
		.LVL730:
				sra	%g1, 0, %g1
		.LVL731:
				sllx	%g1, 4, %g1
		.LVL732:
				ldx	[%i5+8], %i4
				add	%i4, %g1, %i4
		.LVL733:
  929       flags = tx_flags
  930       fault(20) %IF flags&spec # 0 %and flags&own bit = 0
  931                {spec with no definition & not external}
				lduh	[%i4+220], %g1
				andcc	%g1, 1, %g0
				bne,a,pt %xcc, .L890
				 lduh	[%i4+226], %g3
  932       %IF flags&used bit = 0 %AND level >= 0 %AND list <= 0 %START
				mov	%i5, %g5
				call	FAULT.6349, 0
				 mov	20, %o0
		.LVL734:
  933          fault(-3) %IF quiet = 0;          !unused
				cmp	%g0, %i0
				addx	%g0, 0, %i1
				lduw	[%i5+60], %g1
				cmp	%g1, 0
				bl,pn	%icc, .L887
				 mov	0, %g1
				orcc	%g1, %i1, %g0
				bne,a,pt %icc, .L890
				 lduh	[%i4+226], %g3
  934       %FINISH
				sethi	%hi(LIST.6190), %l0
				ldsw	[%l0+%lo(LIST.6190)], %g2
				movrgz	%g2, 1, %g1
				mov	%i5, %g5
				call	FAULT.6349, 0
				 mov	-3, %o0
		.LVL735:
  935       dict(tx_text) = tx_link
				mov	1677, %i3
				ba,pt	%xcc, .L888
				 sllx	%i3, 3, %i3
		.L886:
		.LVL729:
		.L887:
				lduh	[%i4+226], %g3
		.L890:
				ldx	[%i5+8], %g2
				ldsh	[%i4+224], %g1
				add	%g1, -1, %g1
				sra	%g1, 0, %g1
				add	%g1, %i3, %g1
				add	%g1, %g1, %g1
				add	%g2, %g1, %g1
				sth	%g3, [%g1+4]
		.LDL35:
				ba,pt	%xcc, .L890
				 lduh	[%i4+226], %g3
		.L885:
		.L891:
  936    %REPEAT
  937 %END
  938
				return	%i7+8
				 nop
		.LFE197:
				.section	.rodata.str1.8
				.align 8
		.LC87:
				.asciz	"->ACT(%d) out of bounds at %s line %d"
				.align 8
		.LC88:
				.asciz	"switch jump to undefined label ACT(%d): at %s line %d"
				.align 8
		.LC89:
				.asciz	"->PACTION(%d) out of bounds at %s line %d"
				.align 8
		.LC90:
				.asciz	"switch jump to undefined label PACTION(%d): at %s line %d"
				.section	".rodata"
		.LC29:
				.byte	2
				.asciz	" ["
				.skip	252
		.LC17:
				.byte	7
				.asciz	"Atom1 ="
				.skip	247
		.LC18:
				.byte	9
				.asciz	"  Atom2 ="
				.skip	245
		.LC19:
				.byte	11
				.asciz	"  subatom ="
				.skip	243
		.LC20:
				.byte	6
				.asciz	"Type ="
				.skip	248
		.LC21:
				.byte	10
				.asciz	"   Ptype ="
				.skip	244
		.LC22:
				.byte	5
				.asciz	"App ="
				.skip	249
		.LC23:
				.byte	9
				.asciz	"   Papp ="
				.skip	245
		.LC24:
				.byte	8
				.asciz	"Format ="
				.skip	246
		.LC25:
				.byte	12
				.asciz	"   Pformat ="
				.skip	242
				.section	".text"
				.align 4
				.proc	020
		ANALYSE.6330:
		.LFB198:
  939 %ROUTINE analyse
				save	%sp, -4096, %sp
				add	%sp, -2064, %sp
				mov	%g5, %i0
				ldx	[%g7+40], %g1
				stx	%g1, [%fp+2039]
				mov	0, %g1
				sethi	%hi(5120), %g1
				xor	%g1, -544, %g1
				add	%fp, 2047, %g2
				add	%g2, %g1, %g2
				add	%fp, 2047, %g3
				stx	%g3, [%g2+16]
				mov	%g3, %g2
				stx	%g5, [%g2+%g1]
  940
  941    %CONSTINTEGER order bits = x'3000', order bit = x'1000'
  942    %CONSTINTEGER escape     = x'1000'
  943    %INTEGER strp, mark, flags, prot err, k, s, c
  944    %OWNINTEGER key = 0
  945    %SHORTINTEGER node
  946    %SHORTINTEGERNAME z
  947    %RECORD(arfm)%NAME arp
  948 !emas:   %INTEGER node
  949 !emas:   %INTEGERNAME z
  950    %SWITCH act(actions:phrasal), paction(0:15)
  951
  952    %ROUTINE trace analysis
				sethi	%hi(5120), %l2
				xor	%l2, -544, %l1
				add	%fp, 2047, %g1
				add	%g1, %l1, %l1
		.LBE642:
		.LBE641:
				xor	%l2, -560, %i1
		.LBB644:
		.LBB645:
				xor	%l2, -832, %i3
				add	%fp, 2047, %g1
		.LBE645:
		.LBE644:
		.LBE666:
		.LBE672:
				ba,pt	%xcc, .L917
				 add	%g1, %i3, %i3
		.LVL749:
		.L905:
				add	%fp, 2047, %g1
				add	%g1, %i1, %g1
				add	%fp, 2047, %g2
				stx	%g2, [%g1+8]
				stx	%l1, [%g2+%i1]
  953       !diagnostic trace routine (diagnose&1 # 0)
  954       %INTEGER a
  955       %ROUTINE show(%INTEGER a)
		.LVL38:
				save	%sp, -960, %sp
		.LVL39:
				ldx	[%g7+40], %g1
				stx	%g1, [%fp+2039]
				mov	0, %g1
		.LVL40:
		.LBB316:
  956          %IF 0 < a < 130 %START
  957             space
  958             printstring(text(a))
  959          %FINISH %ELSE write(a, 3)
  960       %END
  961       %OWNINTEGER la1=0, la2=0, lsa=0, lt=0
				add	%i0, -1, %g1
				cmp	%g1, 128
				bleu,pn	%icc, .L40
				 mov	3, %o1
		.L37:
		.LBE316:
				call	_imp_writeint, 0
				 mov	%i0, %o0
		.LVL41:
		.L38:
		.L36:
				ldx	[%fp+2039], %g1
				ldx	[%g7+40], %g2
				xor	%g1, %g2, %g1
				mov	0, %g2
				brnz,pn	%g1, .L41
				 nop
				return	%i7+8
				 nop
		.L40:
		.LBB317:
		.LBB318:
				call	_imp_space, 0
				 nop
		.LVL42:
				mov	256, %o2
				add	%fp, 1527, %o1
				call	memcpy, 0
				 add	%fp, 1783, %o0
		.LVL43:
		.LBE318:
		.LBE317:
		.LBB319:
		.LBB320:
				mov	256, %o2
				add	%fp, 1783, %o1
				call	memcpy, 0
				 add	%fp, 1263, %o0
		.LVL44:
				call	_imp_printstring, 0
				 add	%fp, 1263, %o0
		.LVL45:
				ba,pt	%xcc, .L36
				 nop
		.L41:
		.LBE320:
		.LBE319:
				call	__stack_chk_fail, 0
				 nop
		.LVL46:
				nop
		.LFE200:
				.section	.rodata.str1.8
				.align 8
		.LC80:
				.asciz	"Illegal cycle J = AD + 1, 1, AD + *_imp_BYTEINTEGER(AD)"
				.section	".text"
				.align 4
				.proc	020
		PRINTIDENT.6220:
		.LFB187:
  962       newline %IF mon pos # pos %AND sym # nl
				sethi	%hi(MONPOS.6127), %g1
				lduw	[%g1+%lo(MONPOS.6127)], %g2
				sethi	%hi(POS.6178), %g1
				lduw	[%g1+%lo(POS.6178)], %g1
				cmp	%g2, %g1
				be,pn	%icc, .L918
				 sethi	%hi(SYM.6128), %g1
  963       mon pos = pos
				ba,pt	%xcc, .L988
				 sethi	%hi(POS.6178), %g1
		.LVL834:
		.L981:
		.LBB711:
		.LBB668:
		.LBB649:
		.LBB650:
				call	_imp_printsymbol, 0
				 mov	123, %o0
		.LVL835:
		.LBE650:
		.LBE649:
				lduw	[%g1+%lo(SYM.6128)], %g1
				cmp	%g1, 10
				bne,pn	%icc, .L980
				 nop
		.L918:
				sethi	%hi(POS.6178), %g1
		.L988:
				lduw	[%g1+%lo(POS.6178)], %g2
				sethi	%hi(MONPOS.6127), %g1
				st	%g2, [%g1+%lo(MONPOS.6127)]
  964       write(g, 3)
				mov	3, %o1
				call	_imp_writeint, 0
				 ldsw	[%i2+%lo(G.6148)], %o0
		.LVL841:
		.LBB653:
		.LBB654:
				call	_imp_space, 0
				 nop
		.LVL842:
				mov	256, %o2
				add	%fp, 1271, %o1
				call	memcpy, 0
				 add	%fp, 1015, %o0
		.LVL843:
		.LBE654:
		.LBE653:
		.LBB655:
		.LBB646:
				mov	256, %o2
				add	%fp, 1015, %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL844:
				call	_imp_printstring, 0
				 mov	%i3, %o0
		.LVL845:
		.LBE646:
		.LBE655:
		.LBB656:
		.LBB657:
				call	_imp_printsymbol, 0
				 mov	34, %o0
		.LVL846:
		.LDL40:
		.LBE657:
		.LBE656:
  965       space
  966       printstring(text(class))
  967       printsymbol('"') %IF gg&trans bit # 0
  968       a = gg>>8&15
				sethi	%hi(GG.6149), %g1
				lduw	[%g1+%lo(GG.6149)], %g1
				srl	%g1, 8, %g1
		.LVL847:
  969       %IF a # 0 %START
				andcc	%g1, 15, %i4
		.LVL848:
				bne,pn	%icc, .L981
				 nop
		.L919:
  970          printsymbol('{')
  971          write(a, 0)
				mov	0, %o1
				call	_imp_writeint, 0
				 sra	%i4, 0, %o0
		.LVL836:
		.LBB651:
		.LBB652:
				call	_imp_printsymbol, 0
				 mov	125, %o0
		.LVL837:
		.LBE652:
		.LBE651:
		.LBE668:
		.LBE711:
  972          printsymbol('}')
  973       %FINISH
  974       %IF atom1 # la1 %OR atom2 # la2 %OR lsa # subatom %C
				ba,pt	%xcc, .L989
				 sethi	%hi(ATOM1.6111), %g1
		.LVL838:
		.L982:
		.LBB712:
		.LBB669:
				sethi	%hi(ATOM1.6111), %g1
		.L989:
				lduw	[%g1+%lo(ATOM1.6111)], %g2
				sethi	%hi(LA1.6612), %g1
				lduw	[%g1+%lo(LA1.6612)], %g1
				cmp	%g2, %g1
				bne,pn	%icc, .L920
				 sethi	%hi(ATOM2.6112), %g1
  975                       %OR lt # type %START
				lduw	[%g1+%lo(ATOM2.6112)], %g2
				sethi	%hi(LA2.6613), %g1
				lduw	[%g1+%lo(LA2.6613)], %g1
				cmp	%g2, %g1
				be,pn	%icc, .L982
				 sethi	%hi(LSA.6614), %g1
		.L920:
		.LBB658:
  976          printstring(" [")
				sethi	%hi(.LC29), %l3
				or	%l3, %lo(.LC29), %l3
		.LVL748:
		.L906:
		.LBE643:
		.LBE665:
		.LBE671:
				lduw	[%g1+%lo(LSA.6614)], %g2
				sethi	%hi(SUBATOM.6113), %g1
				lduw	[%g1+%lo(SUBATOM.6113)], %g1
				cmp	%g2, %g1
				bne,pt	%icc, .L1003
				 mov	256, %o2
				mov	256, %o2
		.L1003:
				mov	%l3, %o1
		.L1004:
				call	memcpy, 0
				 add	%fp, 1527, %o0
		.LVL849:
				mov	256, %o2
				add	%fp, 1527, %o1
				call	memcpy, 0
				 add	%fp, 1783, %o0
		.LVL850:
				mov	256, %o2
				add	%fp, 1783, %o1
				call	memcpy, 0
				 add	%fp, 759, %o0
		.LVL851:
		.LBE658:
		.LBB659:
		.LBB660:
				mov	256, %o2
				add	%fp, 759, %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL852:
				call	_imp_printstring, 0
				 mov	%i3, %o0
		.LVL853:
		.LBE660:
		.LBE659:
  977          la1 = atom1
				sethi	%hi(LT.6615), %g1
				lduw	[%g1+%lo(LT.6615)], %g2
				sethi	%hi(TYPE.6114), %g1
				lduw	[%g1+%lo(TYPE.6114)], %g1
				cmp	%g2, %g1
				bne,pt	%icc, .L1004
				 mov	%l3, %o1
				ba,pt	%xcc, .L921
				 nop
		.LVL839:
		.L925:
		.L1010:
		.LBE669:
		.LBE712:
				sethi	%hi(ATOM1.6111), %g1
				lduw	[%g1+%lo(ATOM1.6111)], %o0
				sethi	%hi(LA1.6612), %g1
				st	%o0, [%g1+%lo(LA1.6612)]
  978          show(la1)
				add	%fp, 2047, %g1
				add	%g1, %i1, %i4
		.LVL854:
				mov	%i4, %g5
				call	SHOW.6605, 0
				 sra	%o0, 0, %o0
		.LVL855:
  979          la2 = atom2
				sethi	%hi(ATOM2.6112), %g1
				lduw	[%g1+%lo(ATOM2.6112)], %o0
				sethi	%hi(LA2.6613), %g1
				st	%o0, [%g1+%lo(LA2.6613)]
  980          show(la2)
				mov	%i4, %g5
				call	SHOW.6605, 0
				 sra	%o0, 0, %o0
		.LVL856:
  981          lsa = subatom
				sethi	%hi(SUBATOM.6113), %g1
				lduw	[%g1+%lo(SUBATOM.6113)], %o0
				sethi	%hi(LSA.6614), %g1
				st	%o0, [%g1+%lo(LSA.6614)]
  982          write(lsa, 3)
				mov	3, %o1
				call	_imp_writeint, 0
				 sra	%o0, 0, %o0
		.LVL857:
  983          lt = type
				sethi	%hi(TYPE.6114), %g1
				lduw	[%g1+%lo(TYPE.6114)], %o0
				sethi	%hi(LT.6615), %g1
				st	%o0, [%g1+%lo(LT.6615)]
  984          write(lt, 5)
				mov	5, %o1
				call	_imp_writeint, 0
				 sra	%o0, 0, %o0
		.LVL858:
		.LBB661:
		.LBB662:
				call	_imp_printsymbol, 0
				 mov	93, %o0
		.LVL859:
		.L921:
		.LBE662:
		.LBE661:
		.LBB663:
		.LBB664:
				call	_imp_newline, 0
				 nop
		.LVL860:
		.LDL41:
		.LBE664:
		.LBE663:
		.LBE670:
		.LBE713:
  985          printsymbol(']')
  986       %FINISH
  987       newline
  988    %END
  989
  990 %ROUTINE get sym
				save	%sp, -176, %sp
		.LVL208:
		.LBB365:
		.LBB366:
				sethi	%hi(SYM.6128), %o0
				call	_imp_readsymbol, 0
				 or	%o0, %lo(SYM.6128), %o0
		.LVL209:
		.LBE366:
		.LBE365:
  991    readsymbol(sym)
  992    pos = pos+1 %IF pos # 133
				sethi	%hi(POS.6178), %g1
				lduw	[%g1+%lo(POS.6178)], %g1
				cmp	%g1, 133
				be,pn	%icc, .L181
				 add	%g1, 1, %g1
  993    char(pos) = sym
				sethi	%hi(POS.6178), %g2
				st	%g1, [%g2+%lo(POS.6178)]
		.L181:
				sethi	%hi(SYM.6128), %g1
				lduw	[%g1+%lo(SYM.6128)], %o0
				sethi	%hi(POS.6178), %g1
				ldsw	[%g1+%lo(POS.6178)], %g2
				sethi	%hi(CHAR.6185), %g1
				or	%g1, %lo(CHAR.6185), %g1
				stb	%o0, [%g1+%g2]
  994    printsymbol(sym) %IF list <= 0
				sethi	%hi(LIST.6190), %g1
				lduw	[%g1+%lo(LIST.6190)], %g1
				cmp	%g1, 0
				ble,a,pn %icc, .L183
				 sllx	%o0, 56, %o0
		.L182:
  995    column = column+1
				sethi	%hi(COLUMN.6125), %g2
		.L184:
				lduw	[%g2+%lo(COLUMN.6125)], %g1
				add	%g1, 1, %g1
				st	%g1, [%g2+%lo(COLUMN.6125)]
				ba,pt	%xcc, .L184
				 sethi	%hi(COLUMN.6125), %g2
		.LFE201:
				.section	".rodata"
				.align 8
		.LC27:
				.byte	0
				.byte	0
				.byte	0
				.byte	0
				.byte	0
				.byte	0
				.byte	0
				.byte	0
				.byte	0
				.byte	0
				.byte	10
				.byte	0
				.byte	3
				.byte	0
				.byte	0
				.byte	0
				.byte	0
				.byte	0
				.byte	0
				.byte	0
				.byte	0
				.byte	0
				.byte	0
				.byte	0
				.byte	0
				.byte	0
				.byte	0
				.byte	0
				.byte	0
				.byte	0
				.byte	0
				.byte	0
				.byte	0
				.byte	33
				.byte	34
				.byte	35
				.byte	36
				.byte	1
				.byte	38
				.byte	39
				.byte	40
				.byte	41
				.byte	42
				.byte	43
				.byte	44
				.byte	45
				.byte	46
				.byte	47
				.byte	48
				.byte	49
				.byte	50
				.byte	51
				.byte	52
				.byte	53
				.byte	54
				.byte	55
				.byte	56
				.byte	57
				.byte	58
				.byte	59
				.byte	60
				.byte	61
				.byte	62
				.byte	63
				.byte	64
				.byte	65
				.byte	66
				.byte	67
				.byte	68
				.byte	69
				.byte	70
				.byte	71
				.byte	72
				.byte	73
				.byte	74
				.byte	75
				.byte	76
				.byte	77
				.byte	78
				.byte	79
				.byte	80
				.byte	81
				.byte	82
				.byte	83
				.byte	84
				.byte	85
				.byte	86
				.byte	87
				.byte	88
				.byte	89
				.byte	90
				.byte	91
				.byte	92
				.byte	93
				.byte	94
				.byte	95
				.byte	96
				.byte	65
				.byte	66
				.byte	67
				.byte	68
				.byte	69
				.byte	70
				.byte	71
				.byte	72
				.byte	73
				.byte	74
				.byte	75
				.byte	76
				.byte	77
				.byte	78
				.byte	79
				.byte	80
				.byte	81
				.byte	82
				.byte	83
				.byte	84
				.byte	85
				.byte	86
				.byte	87
				.byte	88
				.byte	89
				.byte	90
				.byte	2
				.byte	124
				.byte	125
				.byte	126
				.byte	0
		.LC28:
				.byte	2
				.asciz	" &"
				.skip	252
				.section	".text"
				.align 4
				.proc	020
		READSYM.6631:
		.LFB202:
  996 %END
  997 %ROUTINE read sym
				return	%i7+8
				 nop
		.L183:
		.LVL210:
		.LBB367:
		.LBB368:
				call	_imp_printsymbol, 0
				 srax	%o0, 56, %o0
		.LVL211:
		.LBE368:
		.LBE367:
				save	%sp, -1344, %sp
				mov	%g5, %i5
				ldx	[%g7+40], %g1
				stx	%g1, [%fp+2039]
				mov	0, %g1
  998    %owninteger Last = 0
  999 %CONSTBYTEINTEGERARRAY mapped(0:127) = %C
				mov	128, %o2
				sethi	%hi(.LC27), %o1
				or	%o1, %lo(.LC27), %o1
				call	memcpy, 0
				 add	%fp, 1911, %o0
		.LVL212:
 1000    0,  0,  0,  0,   0,  0,  0,  0,    0,  0, nl,  0,  3 ,  0,  0,  0,
 1001    0,  0,  0,  0,   0,  0,  0,  0,    0,  0,  0,  0,   0,  0,  0,  0,
 1002   0 ,'!','"','#', '$', 1 ,'&', 39,  '(',')','*','+', ',','-','.','/',
 1003  '0','1','2','3', '4','5','6','7',  '8','9',':',';', '<','=','>','?',
 1004  '@','A','B','C', 'D','E','F','G',  'H','I','J','K', 'L','M','N','O',
 1005  'P','Q','R','S', 'T','U','V','W',  'X','Y','Z','[', '\',']','^','_',
 1006  '`','A','B','C', 'D','E','F','G',  'H','I','J','K', 'L','M','N','O',
 1007  'P','Q','R','S', 'T','U','V','W',  'X','Y','Z', 2 , '|','}','~',  0
 1008
 1009 !!   0 = space
 1010 !!   1 = %
 1011 !!   2 = {
 1012 !!   3 = ff
 1013 !!   other values represent themselves
 1014
 1015    %IF sym = nl %START
				sethi	%hi(SYM.6128), %g1
				lduw	[%g1+%lo(SYM.6128)], %g1
				cmp	%g1, 10
				bne,pn	%icc, .L227
				 sethi	%hi(SYM.6128), %o0
		.L187:
 1016 s1:   lines = lines+1
 1017       printsymbol(end mark) %if end mark # 0
				sethi	%hi(LINES.6120), %g2
				lduw	[%g2+%lo(LINES.6120)], %g1
				add	%g1, 1, %g1
				st	%g1, [%g2+%lo(LINES.6120)]
				sethi	%hi(ENDMARK.6131), %g1
				lduw	[%g1+%lo(ENDMARK.6131)], %o0
				cmp	%o0, 0
				bne,a,pn %icc, .L217
				 sllx	%o0, 56, %o0
		.L188:
		.L189:
 1018 s11:  pos = 0;  pos1 = 0;  pos2 = 0;  margin = 0;  column = 0
 1019       Last = 0
				sethi	%hi(POS.6178), %g1
		.L224:
				st	%g0, [%g1+%lo(POS.6178)]
				sethi	%hi(LAST.6633), %g1
				st	%g0, [%g1+%lo(LAST.6633)]
				ba,pt	%xcc, .L224
				 sethi	%hi(POS.6178), %g1
		.L218:
 1020       end mark = 0
				sethi	%hi(POS1.6176), %g1
				st	%g0, [%g1+%lo(POS1.6176)]
				sethi	%hi(ENDMARK.6131), %g1
				st	%g0, [%g1+%lo(ENDMARK.6131)]
 1021       %IF list <= 0 %START
				sethi	%hi(POS2.6177), %g1
				st	%g0, [%g1+%lo(POS2.6177)]
				sethi	%hi(LIST.6190), %g1
				lduw	[%g1+%lo(LIST.6190)], %g1
				cmp	%g1, 0
				ble,pn	%icc, .L218
				 sethi	%hi(INCLUDE.6164), %g1
		.L190:
		.L194:
		.L195:
		.L196:
 1022          %IF include # 0 %START
				sethi	%hi(MARGIN.6122), %g1
				st	%g0, [%g1+%lo(MARGIN.6122)]
				lduw	[%g1+%lo(INCLUDE.6164)], %g1
				cmp	%g1, 0
				be,pt	%icc, .L191
				 mov	5, %o1
		.LBB373:
 1023             printstring(" &");  write(lines, -4)
				sethi	%hi(COLUMN.6125), %g1
				st	%g0, [%g1+%lo(COLUMN.6125)]
				mov	256, %o2
				sethi	%hi(.LC28), %o1
				or	%o1, %lo(.LC28), %o1
				call	memcpy, 0
				 add	%fp, 1143, %o0
		.LVL218:
				mov	256, %o2
				add	%fp, 1143, %o1
				call	memcpy, 0
				 add	%fp, 1399, %o0
		.LVL219:
				mov	256, %o2
				add	%fp, 1399, %o1
				call	memcpy, 0
				 add	%fp, 1655, %o0
		.LVL220:
		.LBE373:
		.LBB374:
		.LBB375:
				mov	256, %o2
				add	%fp, 1655, %o1
				call	memcpy, 0
				 add	%fp, 879, %o0
		.LVL221:
				call	_imp_printstring, 0
				 add	%fp, 879, %o0
		.LVL222:
		.LBE375:
		.LBE374:
 1024          %FINISH %ELSE  write(lines, 5)
				mov	-4, %o1
				sethi	%hi(LINES.6120), %g1
				call	_imp_writeint, 0
				 ldsw	[%g1+%lo(LINES.6120)], %o0
		.LVL223:
		.L192:
 1025          csym = cont;  printsymbol(csym)
				sethi	%hi(CONT.6132), %g1
		.L225:
				lduw	[%g1+%lo(CONT.6132)], %o0
				sethi	%hi(CSYM.6133), %g1
				st	%o0, [%g1+%lo(CSYM.6133)]
		.LVL224:
		.LBB376:
		.LBB377:
				sllx	%o0, 56, %o0
		.LVL225:
				call	_imp_printsymbol, 0
				 srax	%o0, 56, %o0
		.LVL226:
		.LBE377:
		.LBE376:
		.LBB378:
		.LBB379:
				call	_imp_space, 0
				 nop
		.LVL227:
		.LBE379:
		.LBE378:
				ba,pt	%xcc, .L225
				 sethi	%hi(CONT.6132), %g1
		.L219:
		.LVL234:
		.LBB384:
		.LBB385:
				call	_imp_printsymbol, 0
				 srax	%o0, 56, %o0
		.LVL235:
		.LBE385:
		.LBE384:
 1026          space
				sethi	%hi(LINES.6120), %g1
				call	_imp_writeint, 0
				 ldsw	[%g1+%lo(LINES.6120)], %o0
		.LVL233:
 1027          %IF error margin # 0 %START
				sethi	%hi(ERRORMARGIN.6123), %g1
				lduw	[%g1+%lo(ERRORMARGIN.6123)], %o0
				cmp	%o0, 0
				be,pt	%icc, .L228
				 sethi	%hi(SYMTYPE.6129), %g1
 1028             lines = lines-1
				sethi	%hi(LINES.6120), %g2
				lduw	[%g2+%lo(LINES.6120)], %g1
				add	%g1, -1, %g1
				st	%g1, [%g2+%lo(LINES.6120)]
		.LVL228:
		.LBB380:
		.LBB381:
				call	_imp_spaces, 0
				 sra	%o0, 0, %o0
		.LVL229:
		.LBE381:
		.LBE380:
 1029             spaces(error margin)
 1030             error margin = 0
				sethi	%hi(ERRORMARGIN.6123), %g1
				st	%g0, [%g1+%lo(ERRORMARGIN.6123)]
 1031             %IF error sym # 0 %START
				sethi	%hi(ERRORSYM.6124), %g1
				lduw	[%g1+%lo(ERRORSYM.6124)], %o0
				cmp	%o0, 0
				be,pt	%icc, .L228
				 sethi	%hi(SYMTYPE.6129), %g1
		.LVL230:
		.LBB382:
		.LBB383:
				sllx	%o0, 56, %o0
		.LVL231:
				call	_imp_printsymbol, 0
				 srax	%o0, 56, %o0
		.LVL232:
		.LBE383:
		.LBE382:
 1032                printsymbol(error sym)
 1033                pos = 1
				sethi	%hi(POS.6178), %g1
				mov	1, %g2
				st	%g2, [%g1+%lo(POS.6178)]
 1034 !IMP80 BUG???
 1035 !!             char(1) = error sym
 1036                byteinteger(addr(char(0))+1) = error sym
				sethi	%hi(ERRORSYM.6124), %g1
				lduw	[%g1+%lo(ERRORSYM.6124)], %g2
				sethi	%hi(CHAR.6185+1), %g3
				stb	%g2, [%g3+%lo(CHAR.6185+1)]
 1037                sym = error sym;  error sym = 0
				sethi	%hi(SYM.6128), %g3
				st	%g2, [%g3+%lo(SYM.6128)]
 1038                ->s5
				ba,pt	%xcc, .L193
				 st	%g0, [%g1+%lo(ERRORSYM.6124)]
		.L191:
 1039             %FINISH
 1040          %FINISH
 1041       %FINISH
 1042 s2:   symtype = 1
 1043    %FINISH
				sethi	%hi(SYMTYPE.6129), %g1
		.L228:
				mov	1, %g2
				st	%g2, [%g1+%lo(SYMTYPE.6129)]
		.L186:
		.L197:
		.LVL213:
		.LBB369:
		.LBB370:
				sethi	%hi(SYM.6128), %o0
		.L227:
				call	_imp_readsymbol, 0
				 or	%o0, %lo(SYM.6128), %o0
		.LVL214:
		.LBE370:
		.LBE369:
 1044 s3:readsymbol(sym)
 1045    pos = pos+1 %IF pos # 133
				sethi	%hi(POS.6178), %g1
				lduw	[%g1+%lo(POS.6178)], %g1
				cmp	%g1, 133
				be,pn	%icc, .L198
				 add	%g1, 1, %g1
 1046    char(pos) = sym
				sethi	%hi(POS.6178), %g2
				st	%g1, [%g2+%lo(POS.6178)]
		.L198:
				sethi	%hi(SYM.6128), %g1
				lduw	[%g1+%lo(SYM.6128)], %o0
				sethi	%hi(POS.6178), %g1
				ldsw	[%g1+%lo(POS.6178)], %g2
				sethi	%hi(CHAR.6185), %g1
				or	%g1, %lo(CHAR.6185), %g1
				stb	%o0, [%g1+%g2]
 1047    printsymbol(sym) %IF list <= 0
				sethi	%hi(LIST.6190), %g1
				lduw	[%g1+%lo(LIST.6190)], %g1
				cmp	%g1, 0
				ble,a,pn %icc, .L219
				 sllx	%o0, 56, %o0
		.L199:
 1048    column = column+1
				sethi	%hi(COLUMN.6125), %g2
		.L226:
				lduw	[%g2+%lo(COLUMN.6125)], %g1
				add	%g1, 1, %g1
				st	%g1, [%g2+%lo(COLUMN.6125)]
		.L193:
				ba,pt	%xcc, .L226
				 sethi	%hi(COLUMN.6125), %g2
		.L220:
 1049 s5:%IF sym # nl %START
 1050       Last = Sym
				sethi	%hi(SYM.6128), %g1
				lduw	[%g1+%lo(SYM.6128)], %g1
				cmp	%g1, 10
				be,pn	%icc, .L211
				 sethi	%hi(LAST.6633), %g2
				st	%g1, [%g2+%lo(LAST.6633)]
 1051       %RETURN %IF quote # 0;                     !dont alter strings
				sethi	%hi(QUOTE.6130), %g2
				lduw	[%g2+%lo(QUOTE.6130)], %g2
				cmp	%g2, 0
				bne,pn	%icc, .L185
				 and	%g1, 127, %g1
		.L202:
 1052       sym = mapped(sym&127)
				add	%fp, 2047, %g2
				add	%g2, %g1, %g1
				ldub	[%g1-136], %g1
				sethi	%hi(SYM.6128), %g2
 1053       %IF sym <= 3 %START;                       !special symbol
				cmp	%g1, 3
				bg,pt	%icc, .L203
				 st	%g1, [%g2+%lo(SYM.6128)]
 1054          ->s2 %IF sym = 0;                       !space (or dubious control)
				cmp	%g1, 0
				be,a,pt	%icc, .L228
				 sethi	%hi(SYMTYPE.6129), %g1
		.L204:
 1055          symtype = 2 %AND ->s3 %IF sym = 1;      !%
				cmp	%g1, 1
				be,pn	%icc, .L220
				 cmp	%g1, 3
		.L205:
 1056          cont = '+' %AND ->s11 %IF sym = 3;      !ff
				be,pn	%icc, .L221
				 sethi	%hi(SYM.6128), %i4
		.L206:
		.L207:
		.L208:
				sethi	%hi(SYMTYPE.6129), %g1
				mov	2, %g2
 1057          !must be {
				ba,pt	%xcc, .L197
				 st	%g2, [%g1+%lo(SYMTYPE.6129)]
		.L221:
				sethi	%hi(CONT.6132), %g1
				mov	43, %g2
 1058          %CYCLE
				ba,pt	%xcc, .L189
				 st	%g2, [%g1+%lo(CONT.6132)]
		.L203:
 1059             get sym
				call	GETSYM.6626, 0
				 nop
		.LVL215:
 1060             ->s3 %IF sym = '}'
				lduw	[%i4+%lo(SYM.6128)], %g1
				cmp	%g1, 125
				be,pn	%icc, .L197
				 cmp	%g1, 10
		.L209:
 1061             ->s4 %IF sym = nl
				bne,pt	%icc, .L206
				 nop
		.L200:
		.L211:
 1062          %REPEAT
 1063       %FINISH
 1064       key = kdict(sym)
				ldx	[%i5], %g2
				ldx	[%g2+8], %g4
				add	%g1, -32, %g3
				sra	%g3, 0, %g3
				mov	1605, %g2
				sllx	%g2, 3, %g2
				add	%g3, %g2, %g2
				add	%g2, %g2, %g2
				add	%g4, %g2, %g2
				lduh	[%g2+4], %g3
				ldsh	[%g2+4], %g4
				sethi	%hi(KEY.6586), %g2
 1065       %IF key&3 = 0 %AND symtype = 2 %START;            !keyword
				andcc	%g3, 1, %g0
				bne,pn	%xcc, .L210
				 st	%g4, [%g2+%lo(KEY.6586)]
 1066          %IF sym = 'C' %AND nextsymbol = nl %START;     !%C...
				sethi	%hi(SYMTYPE.6129), %g2
				lduw	[%g2+%lo(SYMTYPE.6129)], %g2
				cmp	%g2, 2
				be,pn	%icc, .L223
				 cmp	%g1, 67
		.L210:
				bne,pt	%icc, .L185
				 nop
		.LBB386:
		.LBB387:
				call	_imp_nextsymbol, 0
				 nop
		.LVL236:
		.LBE387:
		.LBE386:
 1067             getsym;  cont = '+';  ->s1
				cmp	%o0, 10
				bne,pt	%icc, .L185
				 nop
				call	GETSYM.6626, 0
				 nop
		.LVL237:
 1068          %FINISH
				sethi	%hi(CONT.6132), %g1
				mov	43, %g2
 1069       %ELSE
				ba,pt	%xcc, .L187
				 st	%g2, [%g1+%lo(CONT.6132)]
		.L222:
 1070          symtype = key&3-2
				and	%g3, 3, %g3
				add	%g3, -2, %g3
				sethi	%hi(SYMTYPE.6129), %g1
				ba,pt	%xcc, .L185
				 st	%g3, [%g1+%lo(SYMTYPE.6129)]
		.L223:
 1071       %FINISH
 1072       %RETURN
 1073    %FINISH
 1074 s4:symtype = quote
 1075    ->S1 %if last = 0 %and Quote = 0
				sethi	%hi(QUOTE.6130), %g1
				lduw	[%g1+%lo(QUOTE.6130)], %g1
				sethi	%hi(SYMTYPE.6129), %g2
				st	%g1, [%g2+%lo(SYMTYPE.6129)]
				sethi	%hi(LAST.6633), %g2
 1076    Cont = '+'
				lduw	[%g2+%lo(LAST.6633)], %g2
				orcc	%g1, %g2, %g0
				be,pn	%icc, .L187
				 sethi	%hi(CONT.6132), %g1
		.L212:
				mov	43, %g2
				st	%g2, [%g1+%lo(CONT.6132)]
		.L201:
		.L213:
		.L185:
 1077 %END
 1078
				ldx	[%fp+2039], %g1
				ldx	[%g7+40], %g2
				xor	%g1, %g2, %g1
				mov	0, %g2
				brnz,pn	%g1, .L222
				 nop
				return	%i7+8
				 nop
		.L217:
		.LVL216:
		.LBB371:
		.LBB372:
				call	_imp_printsymbol, 0
				 srax	%o0, 56, %o0
		.LVL217:
		.LBE372:
		.LBE371:
				call	__stack_chk_fail, 0
				 nop
		.LVL238:
				nop
		.LFE202:
				.align 4
				.proc	020
		GET.6798:
		.LFB206:
 1079 %INTEGERFN format selected
 1080    format list = tag(format)_app;      !number of names
				ldx	[%g2], %g2
				sra	%g1, 0, %g1
				sllx	%g1, 4, %g1
				ldx	[%g2+8], %g2
				add	%g2, %g1, %g1
				lduw	[%g1+212], %g2
				sethi	%hi(FORMATLIST.6183), %g3
 1081    %IF format list < 0 %START;         !forward ref
				cmp	%g2, 0
				bl,pn	%icc, .L157
				 st	%g2, [%g3+%lo(FORMATLIST.6183)]
		.L115:
 1082       atom1 = error+22
				sethi	%hi(32768), %g1
				or	%g1, 22, %g1
		.LBE361:
		.LBE362:
				ba,pt	%xcc, .L97
				 st	%g1, [%l2+%lo(ATOM1.6111)]
		.LVL172:
		.L156:
 1083       %RESULT = 0
 1084    %FINISH
 1085    %IF sym = '_' %START
				sethi	%hi(SYM.6128), %g2
				lduw	[%g2+%lo(SYM.6128)], %g2
				cmp	%g2, 95
				bne,a,pt %icc, .L169
				 sethi	%hi(APP.6115), %g1
 1086       escape class = esc rec
				sethi	%hi(ESCAPECLASS.6137), %g2
				mov	255, %g3
				st	%g3, [%g2+%lo(ESCAPECLASS.6137)]
 1087       search base = tag(format)_format
				lduw	[%g1+216], %g2
				sethi	%hi(SEARCHBASE.6182), %g1
		.LBE360:
		.LBE359:
				ba,pt	%xcc, .L118
				 st	%g2, [%g1+%lo(SEARCHBASE.6182)]
		.L157:
		.LBB362:
		.LBB361:
 1088    %FINISH
 1089    %RESULT = 1
 1090 %END
 1091
 1092 %ROUTINE code atom(%INTEGER target)
		.LVL248:
				save	%sp, -224, %sp
		.LVL249:
				mov	%g5, %i5
				ldx	[%g7+40], %g1
				stx	%g1, [%fp+2039]
				mov	0, %g1
				add	%fp, 2047, %g1
				stx	%g1, [%fp+2031]
				stx	%g5, [%fp+2007]
 1093    %INTEGER dbase, da
 1094    %INTEGER base, n, mul, pend quote
 1095    %INTEGER j,k,l, pt
 1096
 1097    %ROUTINE lookup(%INTEGER d)
		.LVL129:
				save	%sp, -960, %sp
		.LVL130:
				mov	%g5, %i3
				ldx	[%g7+40], %g1
				stx	%g1, [%fp+2039]
				mov	0, %g1
 1098       %CONSTINTEGER magic = 6700421
 1099       %INTEGER new name, vid, k1, k2, form
 1100       %RECORD(tagfm)%NAME t
 1101 !emas:      %LONGINTEGER k0
 1102       %INTEGER new
 1103
 1104       !first locate the text of the name
 1105
 1106       new = addr(dict(dmax+1))
				ldx	[%g5], %g1
				ldx	[%g1], %g1
				ldx	[%g1+8], %o0
				sethi	%hi(DMAX.6158), %g1
				ldsw	[%g1+%lo(DMAX.6158)], %i4
				sethi	%hi(6870016), %g1
				srlx	%g1, 9, %g1
				add	%i4, %g1, %i4
				add	%i4, %i4, %i4
				add	%o0, %i4, %i4
		.LVL131:
 1107
 1108             !******** Machine code to inhibit overflow test ********
 1109
 1110 !            *LI_1,magic
 1111 !            * M_0,hash value
 1112 !            *ST_1,K2
 1113
 1114             {K2 = hash value*magic}
 1115 K2 = hash value*magic ;! requires NOCHECK option
				lduw	[%o0+208], %i2
				sethi	%hi(6700032), %g1
		.LVL132:
				or	%g1, 389, %g1
				mulx	%i2, %g1, %i2
 1116                        ! we could fix this properly by a shift+add loop
 1117             !*******************************************************
 1118
 1119       k2 = k2>>(32-2*name bits)!1
				srl	%i2, 10, %i2
				or	%i2, 1, %i2
		.LVL133:
 1120 !emas:      k0 = magic
 1121 !emas:      k1 = (k0*hash value)&X'7FFFFFFF'
 1122 !emas:      k2 = k1>>(32-2*name bits)!1
 1123       k1 = k2>>name bits;                      !giving name bits
				srl	%i2, 11, %i5
		.LVL134:
 1124       %CYCLE
 1125          newname = hash(k1)
				sra	%i5, 0, %g1
				mov	1349, %g2
				sllx	%g2, 3, %g2
				add	%g1, %g2, %g1
				add	%g1, %g1, %g1
				add	%o0, %g1, %g1
				ldsh	[%g1+4], %l1
		.LVL135:
				mov	%g2, %l0
		.LVL138:
		.L99:
				ldx	[%i3], %g1
				ldx	[%g1], %g1
				ldx	[%g1+8], %o0
				sra	%i5, 0, %g1
				add	%g1, %l0, %g1
				add	%g1, %g1, %g1
				add	%o0, %g1, %g1
				ldsh	[%g1+4], %l1
		.LVL142:
 1126          %EXIT %IF newname = 0;                !not in
				cmp	%l1, 0
				be,pn	%icc, .L98
				 lduh	[%g1+4], %l2
				cmp	%l1, 0
				bne,pt	%icc, .L99
				 lduh	[%g1+4], %l2
		.L98:
 1127          ->in %IF string(addr(dict(newname+1))) = string(new)
 1128          k1 = (k1+k2)&max names
				and	%i5, 2047, %i5
		.LDL7:
		.LVL141:
 1129       %REPEAT
				sra	%i4, 0, %i4
				sethi	%hi(6870016), %i1
		.LVL136:
				srlx	%i1, 9, %i1
		.LVL137:
				sra	%l1, 0, %g1
				add	%g1, %i1, %g1
				add	%g1, %g1, %g1
				mov	%i4, %o1
				call	_imp_strcmp, 0
				 add	%o0, %g1, %o0
		.LVL139:
				cmp	%o0, 0
				be,pn	%icc, .L100
				 add	%i2, %i5, %i5
		.L101:
		.LVL140:
 1130
 1131       ! not found
 1132
 1133       spare names = spare names-1
				sethi	%hi(SPARENAMES.6081), %g2
				lduw	[%g2+%lo(SPARENAMES.6081)], %g1
				add	%g1, -1, %g1
 1134       abandon(2) %IF spare names <= 0
				cmp	%g1, 0
				ble,pn	%icc, .L151
				 st	%g1, [%g2+%lo(SPARENAMES.6081)]
		.L102:
 1135       hash(k1) = dmax;                               !put it in
				sethi	%hi(DMAX.6158), %g4
		.L167:
				lduw	[%g4+%lo(DMAX.6158)], %l1
		.LVL143:
				ldx	[%i3], %g1
				ldx	[%g1], %g1
				ldx	[%g1+8], %g1
				sra	%i5, 0, %i5
				mov	1349, %g2
				sllx	%g2, 3, %g2
				add	%i5, %g2, %i5
		.LVL144:
				add	%i5, %i5, %i5
		.LVL145:
				add	%g1, %i5, %i5
				sth	%l1, [%i5+4]
				mov	%o0, %g5
				call	ABANDON.6239, 0
				 mov	2, %o0
		.LVL150:
				ba,pt	%xcc, .L167
				 sethi	%hi(DMAX.6158), %g4
		.L100:
 1136       dict(dmax) = -1
				ldx	[%i3], %g1
				ldx	[%g1], %g1
				ldx	[%g1+8], %g2
				add	%l1, -1, %g1
				sra	%g1, 0, %g1
				mov	1677, %g3
				sllx	%g3, 3, %g3
				add	%g1, %g3, %g1
				add	%g1, %g1, %g1
				add	%g2, %g1, %g1
				mov	-1, %g2
				sth	%g2, [%g1+4]
		.LVL146:
 1137       newname = dmax;  dmax = dp;  ->not in
 1138
				sethi	%hi(DP.6175), %g1
				lduw	[%g1+%lo(DP.6175)], %g1
				st	%g1, [%g4+%lo(DMAX.6158)]
		.L103:
		.L135:
 1139 in:   search base = rbase %IF this >= 0 %AND d # 0;  !record elem defn
 1140       %IF search base # 0 %START;                    !record subname
				sethi	%hi(THIS.6152), %g1
				lduw	[%g1+%lo(THIS.6152)], %g1
				srl	%g1, 31, %g1
				sethi	%hi(SEARCHBASE.6182), %g1
		.L179:
				lduw	[%g1+%lo(SEARCHBASE.6182)], %g2
				cmp	%g2, 0
				be,a,pt	%icc, .L105
				 ldx	[%i3], %g1
		.LVL151:
 1141          new = -1
				cmp	%g0, %i0
				subx	%g0, -1, %g2
				orcc	%g1, %g2, %g0
				be,pn	%icc, .L153
				 sethi	%hi(RBASE.6155), %g1
		.L104:
 1142          x = search base
				sethi	%hi(X.6110), %g1
				st	%g2, [%g1+%lo(X.6110)]
				lduw	[%g1+%lo(RBASE.6155)], %g2
				sethi	%hi(SEARCHBASE.6182), %g1
				ba,pt	%xcc, .L179
				 st	%g2, [%g1+%lo(SEARCHBASE.6182)]
		.L105:
 1143          %CYCLE
 1144             ->not in %IF x < format list
				sethi	%hi(FORMATLIST.6183), %g1
				lduw	[%g1+%lo(FORMATLIST.6183)], %g4
				cmp	%g2, %g4
				bl,pn	%icc, .L168
				 sethi	%hi(APP.6115), %g1
				cmp	%g2, %g4
				bl,pn	%icc, .L154
				 mov	%g2, %g3
		.L108:
 1145             %EXIT %IF tag(x)_text = new name
				ldx	[%i3], %g1
				ldx	[%g1], %g1
				ldx	[%g1+8], %g5
				sra	%g2, 0, %g1
				add	%g1, 13, %g1
				sllx	%g1, 4, %g1
				add	%g5, %g1, %g1
				ldsh	[%g1+16], %g3
				sll	%l2, 16, %g1
				sra	%g1, 16, %g1
				add	%g2, -1, %g2
				cmp	%g3, %g1
				be,pn	%icc, .L112
				 mov	%g1, %l2
		.L109:
		.LDL8:
				sra	%g3, 0, %g1
				add	%g1, 13, %g1
				sllx	%g1, 4, %g1
				add	%g5, %g1, %g1
				ldsh	[%g1+16], %g1
				cmp	%g1, %l2
				bne,pt	%icc, .L109
				 add	%g2, -1, %g2
				sethi	%hi(X.6110), %g1
				ba,pt	%xcc, .L178
				 st	%g3, [%g1+%lo(X.6110)]
		.LVL152:
		.L153:
 1146             x = x-1
 1147          %REPEAT
 1148       %FINISH %ELSE %START;                   !hash in for normal names
 1149          x = dict(newname)
				ldx	[%g1], %g1
				ldx	[%g1+8], %g2
				add	%l1, -1, %g1
				sra	%g1, 0, %g1
				mov	1677, %g3
				sllx	%g3, 3, %g3
				add	%g1, %g3, %g1
				add	%g1, %g1, %g1
				add	%g2, %g1, %g1
				ldsh	[%g1+4], %g1
				sethi	%hi(X.6110), %g2
				st	%g1, [%g2+%lo(X.6110)]
 1150          ->not in %IF x <= limit;             !wrong level
				sethi	%hi(LIMIT.6170), %g2
				lduw	[%g2+%lo(LIMIT.6170)], %g2
				cmp	%g1, %g2
				ble,pt	%icc, .L168
				 sethi	%hi(APP.6115), %g1
		.L107:
		.L111:
		.L112:
 1151       %FINISH
 1152
 1153       subatom = x;                            !name found, extract info
				sethi	%hi(X.6110), %g1
		.L178:
				lduw	[%g1+%lo(X.6110)], %g1
				sethi	%hi(SUBATOM.6113), %g2
				st	%g1, [%g2+%lo(SUBATOM.6113)]
 1154       t == tag(x)
				ldx	[%i3], %g2
				ldx	[%g2], %g2
				ldx	[%g2+8], %g2
		.LVL153:
				sra	%g1, 0, %i5
		.LVL154:
				sllx	%i5, 4, %i5
		.LVL155:
				add	%g2, %i5, %i5
 1155       atom flags = t_flags
				sethi	%hi(ATOMFLAGS.6139), %i4
				lduh	[%i5+220], %g3
				ldsh	[%i5+220], %g1
		.LVL156:
				st	%g1, [%i4+%lo(ATOMFLAGS.6139)]
 1156       format = t_format;  app = t_app
				sethi	%hi(FORMAT.6116), %i2
		.LVL157:
				lduw	[%i5+216], %g4
				st	%g4, [%i2+%lo(FORMAT.6116)]
 1157       protection = atom flags&prot
				sethi	%hi(APP.6115), %i1
				lduw	[%i5+212], %g4
				st	%g4, [%i1+%lo(APP.6115)]
 1158       type = atom flags>>4&7;  atom1 = amap(atom flags&15)
				sethi	%hi(TYPE.6114), %l0
				srl	%g1, 4, %g1
				and	%g1, 7, %g1
				st	%g1, [%l0+%lo(TYPE.6114)]
 1159
				sethi	%hi(ATOM1.6111), %l2
				and	%g3, 15, %g1
				add	%g2, %g1, %g2
		.LVL158:
				sethi	%hi(19917824), %g1
				srlx	%g1, 9, %g1
				ldub	[%g2+%g1], %g1
				st	%g1, [%l2+%lo(ATOM1.6111)]
		.LBB353:
 1160       %IF diag&8 # 0 %START
 1161          printstring("lookup:")
				mov	256, %o2
				sethi	%hi(.LC26), %o1
				or	%o1, %lo(.LC26), %o1
				call	memcpy, 0
				 add	%fp, 1783, %o0
		.LVL159:
				mov	256, %o2
				add	%fp, 1783, %o1
				call	memcpy, 0
				 add	%fp, 1527, %o0
		.LVL160:
				mov	256, %o2
				add	%fp, 1527, %o1
				call	memcpy, 0
				 add	%fp, 1783, %o0
		.LVL161:
		.LBE353:
		.LBB354:
		.LBB355:
				mov	256, %o2
				add	%fp, 1783, %o1
				call	memcpy, 0
				 add	%fp, 1263, %o0
		.LVL162:
				call	_imp_printstring, 0
				 add	%fp, 1263, %o0
		.LVL163:
		.LBE355:
		.LBE354:
 1162          write(atom1, 3)
				mov	3, %o1
				call	_imp_writeint, 0
				 ldsw	[%l2+%lo(ATOM1.6111)], %o0
		.LVL164:
 1163          write(type, 1)
				mov	1, %o1
				call	_imp_writeint, 0
				 ldsw	[%l0+%lo(TYPE.6114)], %o0
		.LVL165:
 1164          write(app, 3)
				mov	3, %o1
				call	_imp_writeint, 0
				 ldsw	[%i1+%lo(APP.6115)], %o0
		.LVL166:
 1165          write(format, 5)
				mov	5, %o1
				call	_imp_writeint, 0
				 ldsw	[%i2+%lo(FORMAT.6116)], %o0
		.LVL167:
 1166          write(atom flags, 3)
				mov	3, %o1
				call	_imp_writeint, 0
				 ldsw	[%i4+%lo(ATOMFLAGS.6139)], %o0
		.LVL168:
		.LBB356:
		.LBB357:
				call	_imp_newline, 0
				 nop
		.LVL169:
		.LDL9:
		.LBE357:
		.LBE356:
 1167          newline
 1168       %FINISH
 1169
 1170       %IF d = 0 %START;                             !old name wanted
				brnz,a,pt %i0, .L113
				 ldx	[%i3], %g1
 1171          t_flags <- t_flags!used bit
				lduh	[%i5+220], %g1
				sethi	%hi(-32768), %g2
				or	%g1, %g2, %g1
				sth	%g1, [%i5+220]
 1172          search base = 0
				sethi	%hi(SEARCHBASE.6182), %g1
				st	%g0, [%g1+%lo(SEARCHBASE.6182)]
 1173
 1174          %IF atom flags&subname # 0 %AND format # 0 %START; !a record
 1175             %RETURN %IF format selected = 0
				lduw	[%i2+%lo(FORMAT.6116)], %g1
				cmp	%g1, 0
				bne,a,pn %icc, .L155
				 ldx	[%i3], %g2
		.L114:
		.L118:
 1176          %FINISH
 1177
 1178          %IF atom flags&parameters # 0 %START;      !proc or array
 1179
 1180             %IF app = 0 %START;                     !no parameters needed
				sethi	%hi(APP.6115), %g1
		.L169:
				lduw	[%g1+%lo(APP.6115)], %g1
				cmp	%g1, 0
				bne,pt	%icc, .L119
				 sethi	%hi(SYM.6128), %g2
 1181                atom2 = atom1
				sethi	%hi(ATOM1.6111), %g2
				lduw	[%g2+%lo(ATOM1.6111)], %g1
				sethi	%hi(ATOM2.6112), %g3
				st	%g1, [%g3+%lo(ATOM2.6112)]
 1182                atom1 = atom1-4
				add	%g1, -4, %g3
		.LVL170:
		.LBB358:
 1183                %IF 97 <= atom1 <= 98 %START
 1184                   map gg = atom1;  atom1 = var
				sethi	%hi(MAPGG.6150), %g1
				st	%g3, [%g1+%lo(MAPGG.6150)]
 1185                %FINISH
				mov	%g2, %g1
				mov	91, %g2
				ba,pt	%xcc, .L124
				 st	%g2, [%g1+%lo(ATOM1.6111)]
		.LVL173:
		.L119:
 1186             %FINISH %ELSE %START
 1187                %IF sym = '(' %START
				lduw	[%g2+%lo(SYM.6128)], %g2
				cmp	%g2, 40
				bne,a,pt %icc, .L170
				 sethi	%hi(POS.6178), %g1
 1188                   search base = 0;                  !ignore format for now
				add	%g1, -101, %g1
				cmp	%g1, 1
				bleu,pn	%icc, .L156
				 st	%g3, [%g2+%lo(ATOM1.6111)]
		.L120:
		.L123:
		.LVL171:
		.L124:
		.LBE358:
				sethi	%hi(SEARCHBASE.6182), %g2
				st	%g0, [%g2+%lo(SEARCHBASE.6182)]
 1189                   %IF atom1 >= 106 %START;          !arrays
				sethi	%hi(ATOM1.6111), %g2
				lduw	[%g2+%lo(ATOM1.6111)], %g2
				cmp	%g2, 105
				ble,a,pt %icc, .L121
				 sethi	%hi(ESCAPECLASS.6137), %g1
 1190                      app = phrase(app+200)
				sra	%g1, 0, %g1
				add	%g1, %g1, %g1
				sethi	%hi(PHRASE.6200), %g3
				or	%g3, %lo(PHRASE.6200), %g3
				ldsh	[%g3+%g1], %g3
				sethi	%hi(APP.6115), %g1
				st	%g3, [%g1+%lo(APP.6115)]
 1191                      escape class = esc array
				sethi	%hi(ESCAPECLASS.6137), %g1
				mov	254, %g3
				st	%g3, [%g1+%lo(ESCAPECLASS.6137)]
 1192                      atom1 = (atom1-106)>>1+91;     !a,an->v  na,nan->n
				add	%g2, -106, %g1
				srl	%g1, 1, %g1
				add	%g1, 91, %g1
				sethi	%hi(ATOM1.6111), %g2
				st	%g1, [%g2+%lo(ATOM1.6111)]
		.L122:
 1193                   %FINISH %ELSE %START;             !procedures
 1194                      escape class = esc proc
				mov	253, %g3
				st	%g3, [%g1+%lo(ESCAPECLASS.6137)]
 1195                      atom1 = atom1-4
				add	%g2, -4, %g2
				sethi	%hi(ATOM1.6111), %g1
				ba,pt	%xcc, .L122
				 st	%g2, [%g1+%lo(ATOM1.6111)]
		.L113:
 1196                   %FINISH
 1197                   phrase(200) = app
				sethi	%hi(APP.6115), %g1
				lduw	[%g1+%lo(APP.6115)], %g2
				sethi	%hi(PHRASE.6200), %g1
				ba,pt	%xcc, .L124
				 sth	%g2, [%g1+%lo(PHRASE.6200)]
		.L121:
 1198                %FINISH
 1199             %FINISH
 1200             pos2 = pos;  %return
				sethi	%hi(POS.6178), %g1
		.L170:
				lduw	[%g1+%lo(POS.6178)], %g2
				sethi	%hi(POS2.6177), %g1
 1201          %FINISH
				ba,pt	%xcc, .L97
				 st	%g2, [%g1+%lo(POS2.6177)]
		.L155:
		.LBB359:
		.LBB360:
 1202
 1203          !deal with constintegers etc
 1204
 1205          %IF atom flags&const bit # 0 %AND atom1 = var %START
 1206                map gg = const;  atom2 = const
 1207                subatom = -subatom %IF type = integer
 1208          %FINISH
 1209          %RETURN
 1210
 1211       %FINISH
 1212                                                  !new name wanted
 1213       ->not in %IF tbase # tstart;               !don't fault proc parm-parm
				ldx	[%g1], %g1
				lduw	[%g1+68], %g2
				lduw	[%g1+72], %g1
				cmp	%g2, %g1
				be,pn	%icc, .L158
				 sethi	%hi(32768), %g1
		.L125:
 1214       %IF d = lab+spec+used bit %START
				or	%g1, 131, %g1
				cmp	%i0, %g1
				be,pn	%icc, .L163
				 cmp	%i0, 3
		.L127:
 1215          t_flags = t_flags!used bit
				lduh	[%i5+220], %g1
				sethi	%hi(-32768), %g2
				or	%g1, %g2, %g1
 1216          %RETURN
				ba,pt	%xcc, .L97
				 sth	%g1, [%i5+220]
		.L164:
 1217       %FINISH
 1218       %IF atom flags&spec # 0 %START;            !a spec has been given
 1219          %IF d = lab %START;                     !define label
				be,pn	%icc, .L164
				 sethi	%hi(DECL.6134), %g1
		.L128:
		.LBB364:
 1220             t_flags <- t_Flags-Spec
				lduh	[%i5+220], %g1
				add	%g1, -128, %g1
 1221             %RETURN
				ba,pt	%xcc, .L97
				 sth	%g1, [%i5+220]
		.LVL194:
		.L165:
 1222          %FINISH
 1223          %IF 7 <= decl&15 <= 10 %AND decl&spec = 0 %START
 1224
 1225             !procedure definition after spec
 1226
				lduw	[%g1+%lo(DECL.6134)], %g1
		.LVL189:
				and	%g1, 15, %g2
		.LVL190:
 1227             %IF (decl!!atom flags)&b'1111111' = 0 %START;  !correct type?
				sethi	%hi(ATOMFLAGS.6139), %g2
		.LVL195:
				lduw	[%g2+%lo(ATOMFLAGS.6139)], %g2
				xor	%g1, %g2, %g1
		.LVL196:
				andcc	%g1, 1, %g0
				bne,pt	%xcc, .L174
				 mov	68, %g1
 1228                t_flags = t_flags-spec
				add	%g2, -7, %g2
		.LVL191:
				cmp	%g2, 3
				bleu,pn	%icc, .L165
				 andcc	%g1, 1, %g0
		.L129:
		.L132:
		.LBE364:
				lduh	[%i5+220], %g1
				add	%g1, -128, %g1
				sth	%g1, [%i5+220]
 1229                spec given = 1
				sethi	%hi(SPECGIVEN.6136), %g1
				mov	1, %g2
 1230                %RETURN
				bne,a,pt %xcc, .L133
				 sethi	%hi(LAST1.6142), %g1
				ba,pt	%xcc, .L97
				 st	%g2, [%g1+%lo(SPECGIVEN.6136)]
		.L130:
		.LVL197:
		.L133:
		.L173:
 1231             %FINISH
 1232
 1233             !note that an external procedure must be speced as a
 1234             !non-external procedure.
 1235
 1236          %FINISH
 1237          %IF decl&15 = recfm %START;              !recordformat
				bne,pt	%xcc, .L173
				 sethi	%hi(LAST1.6142), %g1
		.LVL192:
 1238             t_flags = record<<4+recfm
				mov	68, %g1
		.L174:
				sth	%g1, [%i5+220]
 1239             t_format = fdef
				sethi	%hi(FDEF.6151), %g1
				lduw	[%g1+%lo(FDEF.6151)], %g1
 1240             %RETURN
				ba,pt	%xcc, .L97
				 st	%g1, [%i5+216]
		.LVL193:
		.L163:
 1241          %FINISH
 1242       %FINISH
 1243       %RETURN %IF last1 = jump %AND atom1 = swit
				lduw	[%g1+%lo(LAST1.6142)], %g1
				cmp	%g1, 54
				be,pn	%icc, .L166
				 sethi	%hi(ATOM1.6111), %g1
		.L134:
 1244       copy = x %IF copy = 0
				sethi	%hi(COPY.6171), %g1
		.L176:
				lduw	[%g1+%lo(COPY.6171)], %g1
				cmp	%g1, 0
				bne,pt	%icc, .L175
				 sethi	%hi(APP.6115), %g1
				lduw	[%g1+%lo(ATOM1.6111)], %g1
				cmp	%g1, 105
				bne,pt	%icc, .L176
				 sethi	%hi(COPY.6171), %g1
				ba,pt	%xcc, .L97
				 nop
		.LVL199:
		.L154:
				sethi	%hi(X.6110), %g1
				ba,pt	%xcc, .L135
				 st	%g2, [%g1+%lo(X.6110)]
		.LVL200:
		.L159:
 1245
				sethi	%hi(X.6110), %g1
				lduw	[%g1+%lo(X.6110)], %g2
		.LVL198:
				sethi	%hi(COPY.6171), %g1
				ba,pt	%xcc, .L125
				 st	%g2, [%g1+%lo(COPY.6171)]
		.L166:
 1246 notin:app = 0;  vid = 0
 1247       atom1 = error+2
				sethi	%hi(APP.6115), %g1
		.L168:
				st	%g0, [%g1+%lo(APP.6115)]
		.LVL147:
				sethi	%hi(ATOM1.6111), %g2
				sethi	%hi(32768), %g1
				or	%g1, 2, %g1
				sethi	%hi(APP.6115), %g1
		.L175:
				st	%g0, [%g1+%lo(APP.6115)]
		.LVL174:
		.L136:
 1248
 1249       %return %if d = 0;                         !old name wanted
				brnz,pn	%i0, .L136
				 st	%g1, [%g2+%lo(ATOM1.6111)]
		.LVL148:
		.L97:
 1250       type = d>>4&7;  form = d&15;  atom1 = amap(form)
				srl	%i0, 4, %g1
				and	%g1, 7, %g1
				sethi	%hi(TYPE.6114), %g2
				st	%g1, [%g2+%lo(TYPE.6114)]
 1251
				and	%i0, 15, %g3
		.LVL175:
 1252       %IF this < 0 %START;                       !normal scope
				ldx	[%i3], %g1
				ldx	[%g1], %g5
				ldx	[%g5+8], %g4
				sra	%g3, 0, %g2
				add	%g4, %g2, %g2
				sethi	%hi(19917824), %g1
				srlx	%g1, 9, %g1
				ldub	[%g2+%g1], %g2
				sethi	%hi(ATOM1.6111), %g1
				st	%g2, [%g1+%lo(ATOM1.6111)]
				sethi	%hi(THIS.6152), %g1
				lduw	[%g1+%lo(THIS.6152)], %g1
				cmp	%g1, 0
				bl,a,pn	%icc, .L159
				 lduw	[%g5+64], %g1
		.L137:
		.LVL176:
 1253          new = newname
 1254          tmax = tmax+1;  x = tmax
				add	%g1, 1, %g1
				st	%g1, [%g5+64]
 1255       %FINISH %ELSE %START;                      !recordformat scope
				ldx	[%i3], %g1
				ldx	[%g1], %g1
				lduw	[%g1+64], %g2
				sethi	%hi(X.6110), %g1
				st	%g2, [%g1+%lo(X.6110)]
				mov	%l1, %g2
				ba,pt	%xcc, .L138
				 mov	0, %i5
		.LVL201:
		.L160:
 1256          new = -1
				mov	-1, %g2
		.LVL178:
		.L138:
		.LBB363:
 1257          recid = recid-1;  vid = recid
				lduw	[%g4+204], %g1
				add	%g1, -1, %g1
				st	%g1, [%g4+204]
 1258          tmin = tmin-1;  x = tmin
				ldx	[%i3], %g1
				ldx	[%g1], %g1
				ldx	[%g1+8], %g1
				lduw	[%g1+204], %i5
		.LVL177:
				sethi	%hi(TMIN.6159), %g2
				lduw	[%g2+%lo(TMIN.6159)], %g1
				add	%g1, -1, %g1
				st	%g1, [%g2+%lo(TMIN.6159)]
 1259          format list = tmin
				sethi	%hi(X.6110), %g2
				st	%g1, [%g2+%lo(X.6110)]
				sethi	%hi(FORMATLIST.6183), %g2
				st	%g1, [%g2+%lo(FORMATLIST.6183)]
 1260       %FINISH
 1261
 1262       %IF 11 <= form <= 14 %START;               !arrays
 1263          dim = 1 %IF dim = 0;                    !set dim for owns
				lduw	[%g1+%lo(DIM.6135)], %g1
				cmp	%g1, 0
				bne,pt	%icc, .L177
				 sethi	%hi(DIM.6135), %g1
 1264          app = dim
				mov	1, %g4
				st	%g4, [%g1+%lo(DIM.6135)]
		.L140:
				sethi	%hi(DIM.6135), %g1
		.L177:
				lduw	[%g1+%lo(DIM.6135)], %g4
				sethi	%hi(APP.6115), %g1
				ba,pt	%xcc, .L139
				 st	%g4, [%g1+%lo(APP.6115)]
		.LVL202:
		.L161:
 1265       %FINISH
 1266
 1267       d = d!used bit %IF (otype > 2 %AND d&spec = 0) %OR perm # 0 %OR %C
				add	%g3, -11, %g1
				cmp	%g1, 3
				bleu,pn	%icc, .L160
				 sethi	%hi(DIM.6135), %g1
		.L139:
		.LDL10:
		.LBE363:
 1268                          Level = Include Level
 1269
 1270       !external definitions need not be used in the file in which
				sethi	%hi(PERM.6165), %g1
				lduw	[%g1+%lo(PERM.6165)], %g1
				cmp	%g1, 0
				bne,pt	%icc, .L171
				 sethi	%hi(32768), %g1
 1271       !they are defined, so inhibit a useless unused warning.
				ldx	[%i3], %g1
				ldx	[%g1], %g1
				sethi	%hi(INCLUDELEVEL.6163), %g4
				lduw	[%g4+%lo(INCLUDELEVEL.6163)], %g4
				lduw	[%g1+60], %g1
				cmp	%g4, %g1
				bne,pt	%icc, .L172
				 sethi	%hi(X.6110), %g1
		.L141:
 1272
 1273       t == tag(x)
				sethi	%hi(32768), %g1
		.L171:
				or	%i0, %g1, %i0
				sra	%i0, 0, %i0
		.LVL179:
		.L142:
				sethi	%hi(X.6110), %g1
		.L172:
				lduw	[%g1+%lo(X.6110)], %g4
				ldx	[%i3], %g1
				ldx	[%g1], %g1
		.LVL180:
 1274       %IF form = lab %START
				cmp	%g3, 3
				be,pn	%icc, .L161
				 ldx	[%g1+8], %g5
		.LVL181:
		.L143:
				sra	%g4, 0, %g1
				sllx	%g1, 4, %g1
				add	%g5, %g1, %g1
 1275          id = id+1;  vid = id
				lduw	[%g1+56], %g3
		.LVL203:
				add	%g3, 1, %g3
				st	%g3, [%g1+56]
 1276       %FINISH
				ldx	[%i3], %g1
				ldx	[%g1], %g1
		.LVL204:
				ba,pt	%xcc, .L143
				 lduw	[%g1+56], %i5
		.LVL205:
		.L162:
 1277       t_index = vid
				sth	%i5, [%g1+222]
 1278       t_text   = new name
				sth	%l1, [%g1+224]
 1279       t_flags <- d
				sth	%i0, [%g1+220]
 1280       t_app    = app
				sethi	%hi(APP.6115), %g3
				lduw	[%g3+%lo(APP.6115)], %g3
				st	%g3, [%g1+212]
 1281       t_format = fdef;  format = fdef
				sethi	%hi(FDEF.6151), %g3
				lduw	[%g3+%lo(FDEF.6151)], %g3
				st	%g3, [%g1+216]
 1282       subatom = x
				sethi	%hi(FORMAT.6116), %i5
		.LVL182:
				st	%g3, [%i5+%lo(FORMAT.6116)]
				sethi	%hi(SUBATOM.6113), %g3
 1283
 1284       %IF new >= 0 %START;                             !insert into hash table
				cmp	%g2, 0
				bl,pn	%icc, .L145
				 st	%g4, [%g3+%lo(SUBATOM.6113)]
 1285          t_link = dict(new);  dict(new) = x
				add	%g2, -1, %g2
		.LVL183:
				ldx	[%i3], %g3
				ldx	[%g3], %g3
				ldx	[%g3+8], %g3
				sra	%g2, 0, %g2
				mov	1677, %i5
				sllx	%i5, 3, %i5
				add	%g2, %i5, %g2
		.LVL184:
				add	%g2, %g2, %g2
		.LVL185:
				add	%g3, %g2, %g3
				lduh	[%g3+4], %g3
				sth	%g3, [%g1+226]
 1286          %IF gmin = max grammar %START;                !proc param params
				ldx	[%i3], %g1
				ldx	[%g1], %g1
				ldx	[%g1+8], %g1
				add	%g1, %g2, %g2
				sth	%g4, [%g2+4]
				sethi	%hi(GMIN.6157), %g1
				lduw	[%g1+%lo(GMIN.6157)], %g1
				cmp	%g1, 1720
				be,pn	%icc, .L162
				 sethi	%hi(TMIN.6159), %g2
		.L144:
		.L145:
 1287             tmin = tmin-1;  subatom = tmin
				lduw	[%g2+%lo(TMIN.6159)], %g1
				add	%g1, -1, %g1
				st	%g1, [%g2+%lo(TMIN.6159)]
 1288             tag(tmin) = t
				sethi	%hi(SUBATOM.6113), %g2
				st	%g1, [%g2+%lo(SUBATOM.6113)]
				ldx	[%i3], %g2
				ldx	[%g2], %g2
				ldx	[%g2+8], %g2
				sra	%g1, 0, %g1
				add	%g1, 13, %g1
				sllx	%g1, 4, %g1
				add	%g2, %g1, %g2
				sra	%g4, 0, %g1
				add	%g1, 13, %g1
				sllx	%g1, 4, %g1
				add	%g5, %g1, %g1
				lduw	[%g1+4], %g3
				st	%g3, [%g2+4]
				lduw	[%g1+8], %g3
				st	%g3, [%g2+8]
				lduw	[%g1+12], %g3
				st	%g3, [%g2+12]
				lduw	[%g1+16], %g1
				ba,pt	%xcc, .L145
				 st	%g1, [%g2+16]
		.LVL206:
		.L152:
 1289          %FINISH
 1290       %FINISH
 1291       abandon(3) %IF tmax >= tmin
				ldx	[%i3], %g1
				ldx	[%g1], %g1
				sethi	%hi(TMIN.6159), %g2
				lduw	[%g2+%lo(TMIN.6159)], %g3
				lduw	[%g1+64], %g2
				cmp	%g3, %g2
				bg,pt	%icc, .L97
				 nop
 1292    %END
				ldx	[%g1+8], %g5
		.LVL186:
				call	ABANDON.6239, 0
				 mov	3, %o0
		.LVL187:
		.L116:
				ba,pt	%xcc, .L97
				 nop
		.LVL188:
		.L158:
		.L126:
 1293
				ldx	[%fp+2039], %g1
				ldx	[%g7+40], %g2
				xor	%g1, %g2, %g1
				mov	0, %g2
				brnz,pn	%g1, .L152
				 nop
				return	%i7+8
				 nop
		.LVL149:
		.L151:
				call	__stack_chk_fail, 0
				 nop
		.LVL207:
				nop
		.LFE205:
				.align 4
				.proc	020
		GETSYM.6626:
		.LFB201:
 1294
 1295
 1296 top:  pos1 = pos
 1297       subatom = 0;  pend quote = 0;  atom flags = 0
				sethi	%hi(POS.6178), %g1
				lduw	[%g1+%lo(POS.6178)], %g2
				sethi	%hi(POS1.6176), %g1
				st	%g2, [%g1+%lo(POS1.6176)]
				sethi	%hi(SUBATOM.6113), %g1
				st	%g0, [%g1+%lo(SUBATOM.6113)]
		.LVL250:
				sethi	%hi(POS1.6176), %l5
				sethi	%hi(POS.6178), %l4
				sethi	%hi(SUBATOM.6113), %l3
				lduw	[%l4+%lo(POS.6178)], %g1
				st	%g1, [%l5+%lo(POS1.6176)]
				st	%g0, [%l3+%lo(SUBATOM.6113)]
 1298
				mov	0, %i1
		.LVL258:
		.L286:
				mov	0, %i4
		.LVL266:
		.L268:
 1299       !app and format must be left for assigning to papp & pformat
				sethi	%hi(ATOMFLAGS.6139), %g1
				st	%g0, [%g1+%lo(ATOMFLAGS.6139)]
				sethi	%hi(ATOMFLAGS.6139), %l2
				st	%g0, [%l2+%lo(ATOMFLAGS.6139)]
 1300
 1301       ->name %IF symtype = -2;                   !letter
				sethi	%hi(SYMTYPE.6129), %g1
				lduw	[%g1+%lo(SYMTYPE.6129)], %g1
				cmp	%g1, -2
				be,pn	%icc, .L254
				 cmp	%g1, 0
				ba,pt	%xcc, .L260
				 sethi	%hi(SYMTYPE.6129), %l1
		.L256:
				lduw	[%l1+%lo(SYMTYPE.6129)], %g1
				cmp	%g1, -2
				be,pn	%icc, .L254
				 cmp	%g1, 0
		.L261:
 1302       ->number %IF symtype < 0;                  !digit
				bl,a,pn	%icc, .L347
				 mov	10, %g1
				bl,a,pn	%icc, .L347
				 mov	10, %g1
		.L262:
 1303       %IF symtype = 0 %START
				be,pn	%icc, .L256
				 cmp	%g1, 2
				be,pn	%icc, .L256
				 cmp	%g1, 2
		.L263:
 1304          atom1 = termin;  atom2 = 0
				sethi	%hi(ATOM1.6111), %g1
				mov	20, %g2
				st	%g2, [%g1+%lo(ATOM1.6111)]
 1305          %RETURN
				sethi	%hi(ATOM2.6112), %g1
				ba,pt	%xcc, .L253
				 st	%g0, [%g1+%lo(ATOM2.6112)]
		.L258:
		.L348:
 1306       %FINISH
 1307       %IF symtype # 2 %START;                    !catch keywords here
				be,pn	%icc, .L270
				 sethi	%hi(QUOTE.6130), %g1
				be,pn	%icc, .L270
				 lduw	[%i1+%lo(QUOTE.6130)], %g1
 1308          ->text %IF quote # 0;                   !completion of text
				lduw	[%g1+%lo(QUOTE.6130)], %g1
				cmp	%g1, 0
				be,pn	%icc, .L348
				 sethi	%hi(SYM.6128), %g1
				cmp	%g1, 0
				be,pn	%icc, .L258
				 sethi	%hi(SYM.6128), %g1
		.L265:
 1309          ->strings %IF sym = squote;             !start of string
				lduw	[%g1+%lo(SYM.6128)], %g1
				cmp	%g1, 34
				be,pn	%icc, .L266
				 cmp	%g1, 39
		.L267:
 1310          ->symbols %IF sym = cquote;             !start of symbol
				be,pn	%icc, .L320
				 cmp	%g1, 46
		.L269:
 1311          ->number %IF sym = '.' %AND '0' <= nextsymbol <= '9'
				be,pn	%icc, .L326
				 nop
		.L257:
		.L270:
 1312       %FINISH
 1313
 1314                                                  !locate atom in fixed dict
 1315       k = key>>2;  read sym
				sethi	%hi(KEY.6586), %g1
		.L350:
				lduw	[%g1+%lo(KEY.6586)], %g1
				srl	%g1, 2, %i4
		.LVL251:
 1316       %CYCLE
				call	READSYM.6631, 0
				 mov	%i5, %g5
		.LVL252:
		.LDL11:
 1317          j = kdict(k)
				ldx	[%i5], %g2
				sra	%i4, 0, %g1
				add	%g1, %g1, %g1
				ldx	[%g2+8], %g2
				add	%g2, %g1, %g1
				sethi	%hi(6558720), %g2
				srlx	%g2, 8, %g2
				lduh	[%g1+%g2], %g2
		.LVL253:
		.LDL12:
				add	%o0, -48, %o0
				cmp	%o0, 9
				bgu,pt	%icc, .L350
				 sethi	%hi(KEY.6586), %g1
		.L255:
		.LBE388:
 1318          %EXIT %IF j&x'4000' # 0
 1319          %IF j&127 # sym %OR symtype < 0 %START
 1320             ->err %UNLESS j < 0
 1321             k = k+1
 1322          %FINISH %ELSE %START
 1323             l = j>>7&127;  read sym
 1324             %IF j > 0 %START
 1325                %IF l # 0 %START
 1326                   ->err %IF l # sym %OR symtype < 0
 1327                   read sym
 1328                %FINISH
 1329                l = 1
 1330             %FINISH
 1331             k = k+l
 1332          %FINISH
 1333       %REPEAT
 1334       atom1 = j&127
				and	%g2, 127, %g3
				sethi	%hi(ATOM1.6111), %g4
 1335       %IF atom1 = 0 %START;                      !comma
				cmp	%g3, 0
				bne,pn	%icc, .L271
				 st	%g3, [%g4+%lo(ATOM1.6111)]
 1336          atom1 = 19;  subatom = 19;  atom2 = 0
				mov	19, %g1
				st	%g1, [%g4+%lo(ATOM1.6111)]
 1337          %IF sym = nl %START
				sethi	%hi(SUBATOM.6113), %g2
		.LVL254:
				st	%g1, [%g2+%lo(SUBATOM.6113)]
				sethi	%hi(SYM.6128), %g1
				lduw	[%g1+%lo(SYM.6128)], %g1
				cmp	%g1, 10
				bne,pt	%icc, .L253
				 sethi	%hi(OCOUNT.6169), %g1
 1338             %RETURN %IF ocount >= 0
				sethi	%hi(ATOM2.6112), %g1
				st	%g0, [%g1+%lo(ATOM2.6112)]
				lduw	[%g1+%lo(OCOUNT.6169)], %g1
				cmp	%g1, 0
				bge,pt	%icc, .L253
				 nop
		.L272:
 1339
 1340             !special action needs to be taken with <comma nl> as
 1341             !const array lists can be enormous
 1342
 1343             read sym
				call	READSYM.6631, 0
				 mov	%i5, %g5
		.LVL255:
				ba,pt	%xcc, .L253
				 nop
		.LVL256:
		.L326:
		.LBB388:
		.LBB389:
		.LBB390:
				call	_imp_nextsymbol, 0
				 nop
		.LVL257:
		.LBE390:
		.LBE389:
 1344          %FINISH
 1345          %RETURN
 1346       %FINISH
 1347       atom2 = j>>7&127
				sll	%g2, 16, %g2
		.LVL263:
				sra	%g2, 16, %g2
				srl	%g2, 7, %g2
				and	%g2, 127, %g2
				sethi	%hi(ATOM2.6112), %g3
				st	%g2, [%g3+%lo(ATOM2.6112)]
 1348       subatom = kdict(k+1)&x'3fff'
				sethi	%hi(13118464), %g2
				srlx	%g2, 9, %g2
				lduh	[%g1+%g2], %g2
				sethi	%hi(-16384), %g1
		.LVL264:
				andn	%g2, %g1, %g1
				sll	%g1, 16, %g1
				srl	%g1, 16, %g1
				sethi	%hi(SUBATOM.6113), %g2
 1349       !!!!!cont = ' '
 1350       %RETURN
				ba,pt	%xcc, .L253
				 st	%g1, [%g2+%lo(SUBATOM.6113)]
		.LVL265:
		.L320:
 1351
 1352       !report an error. adjust the error marker (pos1) to point
 1353       !to the faulty character in an atom, but care needs to be taken
 1354       !to prevent misleading reports in cases like ...?????
 1355
 1356 err:  atom1 = error+1;  atom2 = 0
 1357       pos1 = pos %IF pos-pos1 > 2
				sethi	%hi(ATOM1.6111), %g2
		.L353:
				sethi	%hi(32768), %g1
				or	%g1, 1, %g1
				st	%g1, [%g2+%lo(ATOM1.6111)]
				sethi	%hi(POS.6178), %g1
				lduw	[%g1+%lo(POS.6178)], %g2
				sethi	%hi(POS1.6176), %g1
				lduw	[%g1+%lo(POS1.6176)], %g1
				sub	%g2, %g1, %g1
				cmp	%g1, 2
				ble,pt	%icc, .L253
				 sethi	%hi(POS1.6176), %g1
 1358       %RETURN
				sethi	%hi(ATOM2.6112), %g1
				st	%g0, [%g1+%lo(ATOM2.6112)]
				ba,pt	%xcc, .L253
				 st	%g2, [%g1+%lo(POS1.6176)]
		.L329:
 1359
 1360         !take care with strings and symbol constants.
 1361         !make sure the constant is valid here before sucking it in
 1362         !(and potentially loosing many lines)
 1363
 1364 symbols:atom1 = var;  atom2 = const;  type = integer
 1365         map gg = const;  protection = prot
				sethi	%hi(ATOM1.6111), %g1
				mov	91, %g2
				st	%g2, [%g1+%lo(ATOM1.6111)]
				sethi	%hi(MAPGG.6150), %g2
				st	%g1, [%g2+%lo(MAPGG.6150)]
 1366         subatom = lp;  abandon(3) %IF lp >= lit max
				mov	93, %g1
				sethi	%hi(ATOM2.6112), %g2
				st	%g1, [%g2+%lo(ATOM2.6112)]
				sethi	%hi(LP.6188), %g1
				lduw	[%g1+%lo(LP.6188)], %g1
				sethi	%hi(SUBATOM.6113), %g2
 1367         quote = \pend quote
				sethi	%hi(TYPE.6114), %g2
				mov	1, %g3
				st	%g3, [%g2+%lo(TYPE.6114)]
				cmp	%g1, 49
				bg,pn	%icc, .L328
				 st	%g1, [%g2+%lo(SUBATOM.6113)]
		.L275:
				xnor	%g0, %i4, %i4
		.LVL267:
		.L341:
				sethi	%hi(QUOTE.6130), %g1
				ba,pt	%xcc, .L341
				 xnor	%g0, %i4, %i4
		.LVL270:
		.L330:
		.L278:
 1368         %RETURN
				ba,pt	%xcc, .L253
				 st	%i4, [%g1+%lo(QUOTE.6130)]
		.LVL268:
		.L328:
				ldx	[%i5], %g1
				ldx	[%g1+8], %g5
				call	ABANDON.6239, 0
				 mov	3, %o0
		.LVL269:
 1369
 1370       !an integer constant is acceptable so get it in and
 1371       !get the next atom
 1372
 1373 chars:n = 0;  cont = cquote
 1374       %CYCLE
				st	%g0, [%fp+2019]
 1375          read sym
				sethi	%hi(CONT.6132), %i4
				or	%i4, %lo(CONT.6132), %i4
				mov	39, %l0
				st	%l0, [%i4]
		.LDL14:
				call	READSYM.6631, 0
				 mov	%i5, %g5
		.LVL274:
 1376          %IF sym = cquote %START
				sethi	%hi(SYM.6128), %i3
				lduw	[%i3+%lo(SYM.6128)], %g1
				cmp	%g1, 39
				bne,pn	%icc, .L351
				 sethi	%hi(POS.6178), %g1
		.LBB391:
		.LBB392:
				call	_imp_nextsymbol, 0
				 nop
		.LVL275:
		.LBE392:
		.LBE391:
 1377             %EXIT %IF nextsymbol # cquote
				cmp	%o0, 39
				be,pn	%icc, .L330
				 nop
		.L277:
 1378             read sym
				call	READSYM.6631, 0
				 mov	%i5, %g5
		.LVL271:
		.L276:
 1379          %FINISH
 1380          %IF n&(\((-1)>>byte size)) # 0 %START; ! overflow
 1381             pos1 = pos;  atom1 = error+10;  %RETURN
				sethi	%hi(POS.6178), %g1
		.L351:
				lduw	[%g1+%lo(POS.6178)], %g2
				sethi	%hi(POS1.6176), %g1
				st	%g2, [%g1+%lo(POS1.6176)]
 1382          %FINISH
				sethi	%hi(ATOM1.6111), %g2
				sethi	%hi(32768), %g1
				or	%g1, 10, %g1
				st	%g1, [%g2+%lo(ATOM1.6111)]
		.LVL272:
		.L253:
 1383          ->err %IF quote = 0
 1384          n = n<<byte size+sym
 1385          quote = quote+1
 1386       %REPEAT
 1387       quote = 0;  cont = ' '
				sethi	%hi(QUOTE.6130), %i1
				st	%g0, [%i1+%lo(QUOTE.6130)]
 1388       readsym %IF sym # nl
				mov	32, %l6
				st	%l6, [%i4]
				lduw	[%i3+%lo(SYM.6128)], %g1
				cmp	%g1, 10
				be,a,pt	%icc, .L279
				 lduw	[%i2+%lo(LP.6188)], %g1
 1389       lit pool(lp) = n;  lp = lp+1
				sethi	%hi(LP.6188), %i2
				ldx	[%i5], %g2
				ldx	[%g2+8], %g3
				sra	%g1, 0, %g2
				sllx	%g2, 2, %g2
				lduw	[%fp+2019], %g4
				st	%g4, [%g3+%g2]
				call	READSYM.6631, 0
				 mov	%i5, %g5
		.LVL276:
				ba,pt	%xcc, .L342
				 lduw	[%i2+%lo(LP.6188)], %g1
		.L266:
 1390       ->top
				add	%g1, 1, %g1
				st	%g1, [%i2+%lo(LP.6188)]
		.LDL13:
 1391
 1392         !sniff the grammar before getting the string
 1393
 1394 strings:atom1 = var;  atom2 = const;  type = stringv
 1395         subatom = (strp-stbase)!x'4000'
				sethi	%hi(ATOM1.6111), %g1
				mov	91, %g2
				st	%g2, [%g1+%lo(ATOM1.6111)]
				lduw	[%i5+8], %g1
				sethi	%hi(STBASE.6156), %g3
				lduw	[%g3+%lo(STBASE.6156)], %g3
				sub	%g1, %g3, %g1
				sethi	%hi(16384), %g3
				or	%g1, %g3, %g1
				sethi	%hi(SUBATOM.6113), %g3
				st	%g1, [%g3+%lo(SUBATOM.6113)]
 1396         map gg = const;  protection = prot
				mov	93, %g2
				sethi	%hi(ATOM2.6112), %g1
				st	%g2, [%g1+%lo(ATOM2.6112)]
				sethi	%hi(MAPGG.6150), %g3
				st	%g2, [%g3+%lo(MAPGG.6150)]
 1397         quote = subatom
				sethi	%hi(TYPE.6114), %g1
				mov	3, %g3
				st	%g3, [%g1+%lo(TYPE.6114)]
				sethi	%hi(QUOTE.6130), %g2
				st	%g1, [%g2+%lo(QUOTE.6130)]
 1398         text line = lines;                         !in case of errors
				sethi	%hi(LINES.6120), %g1
				lduw	[%g1+%lo(LINES.6120)], %g2
				sethi	%hi(TEXTLINE.6121), %g1
 1399         %RETURN
				ba,pt	%xcc, .L253
				 st	%g2, [%g1+%lo(TEXTLINE.6121)]
		.L259:
		.LVL277:
		.L349:
 1400
 1401       !a string constant is ok here, so pull it in and get
 1402       !the next atom
 1403
 1404 text: ->chars %IF quote < 0;                       !character consts
 1405       l = strp; n = strp
				bge,a,pn %icc, .L349
				 lduw	[%i5+8], %i4
				bge,a,pn %icc, .L259
				 lduw	[%i5+8], %i4
		.L260:
 1406       j = addr(glink(gmin-1));                     !absolute limit
				st	%i4, [%fp+2019]
		.LVL278:
				sethi	%hi(GMIN.6157), %g1
				lduw	[%g1+%lo(GMIN.6157)], %i2
				add	%i2, -1, %i2
				sra	%i2, 0, %i2
				add	%i2, %i2, %i2
				sethi	%hi(GLINK.6204), %g1
				or	%g1, %lo(GLINK.6204), %g1
				add	%i2, %g1, %i2
				cmp	%g2, %i2
				movl	%icc, %g2, %i2
		.LDL15:
		.LDL16:
		.LDL17:
 1407       k = l+256;                                   !string length limit
				add	%i4, 256, %g2
		.LVL279:
 1408       k = j %IF j < k;                             !choose lower
 1409
 1410       %CYCLE
 1411          cont = squote;  quote = 1
				sethi	%hi(CONT.6132), %l2
				or	%l2, %lo(CONT.6132), %l2
				mov	34, %l6
				st	%l6, [%l2]
 1412          %CYCLE
				sethi	%hi(QUOTE.6130), %l1
				or	%l1, %lo(QUOTE.6130), %l1
				mov	1, %l5
				st	%l5, [%l1]
		.L280:
 1413             read sym
				call	READSYM.6631, 0
				 mov	%i5, %g5
		.LVL286:
 1414             %IF sym = squote %START;               !terminator?
				sethi	%hi(SYM.6128), %i3
				lduw	[%i3+%lo(SYM.6128)], %g1
				cmp	%g1, 34
				be,pn	%icc, .L331
				 nop
		.L281:
 1415                %EXIT %IF nextsymbol # squote;      !yes ->
				cmp	%o0, 34
				bne,pn	%icc, .L282
				 lduw	[%fp+2019], %g1
		.L283:
 1416                read sym;                           ! skip quote
				call	READSYM.6631, 0
				 mov	%i5, %g5
		.LVL282:
 1417             %FINISH
 1418             l = l+1;  byteinteger(l) = sym
				ba,pt	%xcc, .L343
				 add	%i4, 1, %i4
		.L282:
				add	%i4, 1, %i4
		.LVL287:
		.L343:
 1419             lines = text line %AND abandon(7) %IF l >= k; !too many chars
				sra	%i4, 0, %g1
				lduw	[%i3+%lo(SYM.6128)], %g2
				cmp	%i4, %i2
				bl,pt	%icc, .L280
				 stb	%g2, [%g1]
 1420          %REPEAT
				sethi	%hi(LINES.6120), %l0
				sethi	%hi(TEXTLINE.6121), %i1
				lduw	[%i1+%lo(TEXTLINE.6121)], %g1
				st	%g1, [%l0+%lo(LINES.6120)]
 1421          byteinteger(n) = l-n;                            !plug in length
				sra	%g1, 0, %g2
				sub	%i4, %g1, %g1
				stb	%g1, [%g2]
				ldx	[%i5], %g1
				ldx	[%g1+8], %g5
				call	ABANDON.6239, 0
				 mov	7, %o0
		.LVL288:
				ba,pt	%xcc, .L280
				 nop
		.LVL289:
		.L327:
 1422
 1423          strp = l+1;                                      !ready for next string
				add	%i4, 1, %g1
				st	%g1, [%i5+8]
 1424          quote = 0;  cont = ' ';  read sym
				st	%g0, [%l1]
 1425          code atom(target)
				mov	32, %l4
				st	%l4, [%l2]
				mov	%i5, %g5
				call	CODEATOM.6671, 0
				 mov	%i0, %o0
		.LVL284:
 1426          %RETURN %UNLESS atom1 = 48 %AND sym = squote;    !fold "???"."+++"
				ba,pt	%xcc, .L285
				 sethi	%hi(ATOM1.6111), %l3
		.LVL280:
		.L331:
		.LBB393:
		.LBB394:
				call	_imp_nextsymbol, 0
				 nop
		.LVL281:
		.LBE394:
		.LBE393:
				call	READSYM.6631, 0
				 mov	%i5, %g5
		.LVL283:
				lduw	[%l3+%lo(ATOM1.6111)], %g1
				cmp	%g1, 48
				bne,pn	%icc, .L253
				 lduw	[%i3+%lo(SYM.6128)], %g1
 1427       %REPEAT
				cmp	%g1, 34
				bne,pn	%icc, .L253
				 nop
		.LVL285:
		.L285:
 1428
 1429       %ROUTINE get(%INTEGER limit)
		.LVL239:
				save	%sp, -176, %sp
		.LVL240:
				mov	%g5, %i5
		.LVL241:
 1430          %INTEGER s, shift
 1431          shift = 0
				xor	%g1, 2, %g2
				cmp	%g0, %g2
				subx	%g0, -1, %i3
				cmp	%g1, 8
				move	%icc, 3, %i3
		.L232:
		.L230:
		.L233:
		.L234:
		.L235:
		.LVL242:
 1432          %IF base # 10 %START
				lduw	[%g5+16], %g1
				cmp	%g1, 10
				be,pn	%icc, .L235
				 mov	0, %i3
 1433             %IF base = 16 %START
				cmp	%g1, 16
				be,pn	%icc, .L235
				 mov	4, %i3
		.L231:
 1434                shift = 4
 1435             %FINISH %ELSE %START
 1436                %IF base = 8 %START
 1437                   shift = 3
 1438                %FINISH %ELSE %START
 1439                   %IF base = 2 %START
 1440                      shift = 1
 1441                   %FINISH
 1442                %FINISH
 1443             %FINISH
 1444          %FINISH
 1445          n = 0
				st	%g0, [%i5+12]
 1446          %CYCLE
 1447             %IF symtype = -1 %START;            !digit
				sethi	%hi(SYMTYPE.6129), %i2
				lduw	[%i2+%lo(SYMTYPE.6129)], %g1
				cmp	%g1, -1
				be,pn	%icc, .L240
				 add	%g2, -48, %g2
		.L237:
 1448                s = sym-'0'
				lduw	[%i4+%lo(SYM.6128)], %g2
 1449             %FINISH %ELSE %START
 1450                %IF symtype < 0 %START;          !letter
				cmp	%g1, 0
				bge,pn	%icc, .L252
				 lduw	[%i4+%lo(SYM.6128)], %g2
 1451                   s = sym-'A'+10
				sethi	%hi(SYM.6128), %i4
				add	%g2, -55, %g2
		.LVL246:
		.L238:
		.L240:
 1452                %FINISH %ELSE %START
 1453                   %RETURN
 1454                %FINISH
 1455             %FINISH
 1456             %RETURN %IF s >= limit
				cmp	%g2, %i0
				bge,pn	%icc, .L252
				 nop
		.L241:
 1457             pt = pt+1;  byteinteger(pt) = sym
				lduw	[%i5+8], %g1
				add	%g1, 1, %g1
				st	%g1, [%i5+8]
 1458             %IF base = 10 %START;            !check overflow
				sra	%g1, 0, %g1
				lduw	[%i4+%lo(SYM.6128)], %g3
				stb	%g3, [%g1]
				lduw	[%i5+16], %g1
				cmp	%g1, 10
				be,a,pn	%icc, .L250
				 lduw	[%i5+12], %g1
		.L242:
		.L244:
 1459                %IF n >= max int %AND (s > max dig %OR n > max int) %START
				sethi	%hi(214748160), %i1
				or	%i1, 203, %l0
				cmp	%g1, %l0
				ble,pt	%icc, .L251
				 cmp	%i3, 0
 1460
				cmp	%g2, 7
				mov	0, %g1
				movle	%icc, 1, %g1
 1461                   !too big for an integer,
				or	%i1, 204, %i1
				cmp	%g1, %i1
				mov	0, %g3
				movle	%icc, 1, %g3
				andcc	%g3, %g1, %g0
				bne,pn	%icc, .L251
				 cmp	%i3, 0
		.L243:
 1462                   !so call it a real
 1463
 1464                   base = 0;  type = real;  n = 0
				st	%g0, [%i5+16]
 1465                %FINISH
				sethi	%hi(TYPE.6114), %l2
				ba,pt	%xcc, .L236
				 mov	2, %l1
		.LVL243:
		.L250:
				st	%l1, [%l2+%lo(TYPE.6114)]
 1466             %FINISH
				ba,pt	%xcc, .L251
				 st	%g0, [%i5+12]
		.L245:
 1467             %IF shift = 0 %START
				cmp	%i3, 0
		.L251:
				bne,pt	%icc, .L245
				 lduw	[%i5+12], %g1
 1468                n = n*base+s
				lduw	[%i5+16], %g3
				mulx	%g1, %g3, %g1
				add	%g1, %g2, %g2
		.LVL247:
 1469             %FINISH %ELSE %START
				ba,pt	%xcc, .L246
				 st	%g2, [%i5+12]
		.L239:
		.L252:
 1470                n = n<<shift+s
				sll	%g1, %i3, %g1
				add	%g1, %g2, %g2
		.LVL244:
				st	%g2, [%i5+12]
		.L246:
 1471             %FINISH
 1472             read sym
				call	READSYM.6631, 0
				 ldx	[%i5], %g5
		.LVL245:
		.L236:
 1473          %REPEAT
 1474       %END
				return	%i7+8
				 nop
		.LFE206:
				.align 4
				.proc	020
		CODEATOM.6671:
		.LFB204:
 1475
 1476 number:base = 10
 1477 bxk:   atom1 = var;  atom2 = const;  type = integer;  subatom = lp
				mov	10, %g1
		.L347:
				st	%g1, [%fp+2023]
 1478        map gg = const;  protection = prot
				sethi	%hi(ATOM1.6111), %g1
				mov	91, %g2
				st	%g2, [%g1+%lo(ATOM1.6111)]
				sethi	%hi(MAPGG.6150), %g3
 1479        abandon(3) %IF lp >= lit max
				mov	93, %g2
				sethi	%hi(ATOM2.6112), %g1
				st	%g2, [%g1+%lo(ATOM2.6112)]
				cmp	%g1, 49
				bg,pn	%icc, .L327
				 st	%g2, [%g3+%lo(MAPGG.6150)]
		.L287:
 1480        pt = strp;  mul = 0
				sethi	%hi(TYPE.6114), %g1
				mov	1, %g3
				st	%g3, [%g1+%lo(TYPE.6114)]
				lduw	[%i5+8], %g1
		.L344:
				st	%g1, [%fp+2015]
		.LVL259:
				ldx	[%i5], %g1
				ldx	[%g1+8], %g5
				call	ABANDON.6239, 0
				 mov	3, %o0
		.LVL290:
				ba,pt	%xcc, .L344
				 lduw	[%i5+8], %g1
		.L289:
		.LVL291:
		.L292:
 1481        %CYCLE
				sethi	%hi(LP.6188), %g1
				lduw	[%g1+%lo(LP.6188)], %g1
				sethi	%hi(SUBATOM.6113), %g3
				st	%g1, [%g3+%lo(SUBATOM.6113)]
 1482           get(base)
				add	%fp, 2007, %g5
				call	GET.6798, 0
				 ldsw	[%fp+2023], %o0
		.LVL260:
 1483           %EXIT %UNLESS sym = '_' %AND base # 0 %AND pend quote = 0;    !change of base
				sethi	%hi(SYM.6128), %i4
				lduw	[%i4+%lo(SYM.6128)], %g1
				cmp	%g1, 95
				bne,pn	%icc, .L292
				 cmp	%i1, 0
 1484           pt = pt+1;  byteinteger(pt) = '_'
				lduw	[%fp+2023], %g1
				cmp	%g0, %g1
				addx	%g0, 0, %g1
				add	%g1, 1, %g1
				st	%g1, [%fp+2015]
 1485           read sym
				cmp	%g0, %i1
				subx	%g0, -1, %i3
				mov	95, %i2
		.L288:
				andcc	%g1, %i3, %g0
				be,pn	%icc, .L290
				 lduw	[%fp+2015], %g1
		.L291:
				sra	%g1, 0, %g1
				stb	%i2, [%g1]
				call	READSYM.6631, 0
				 mov	%i5, %g5
		.LVL261:
 1486           base = n
				lduw	[%fp+2019], %g1
 1487        %REPEAT
				ba,pt	%xcc, .L288
				 st	%g1, [%fp+2023]
		.LVL262:
		.L271:
 1488
 1489        %IF pend quote # 0 %START
				be,a,pt	%icc, .L352
				 sethi	%hi(SYM.6128), %g1
				cmp	%i1, 0
				be,pt	%icc, .L357
				 sethi	%hi(TYPE.6114), %g1
		.LVL321:
		.L273:
		.L274:
 1490           ->err %IF sym # cquote
				cmp	%g1, 39
				bne,pn	%icc, .L353
				 sethi	%hi(ATOM1.6111), %g2
		.L294:
 1491           readsym
				call	READSYM.6631, 0
				 mov	%i5, %g5
		.LVL292:
		.L293:
 1492        %FINISH
 1493        %IF sym = '.' %START;                        !a real constant
				sethi	%hi(SYM.6128), %g1
		.L352:
				lduw	[%g1+%lo(SYM.6128)], %g1
				cmp	%g1, 46
				be,pn	%icc, .L332
				 lduw	[%fp+2015], %g1
		.L295:
 1494           pt = pt+1;  byteinteger(pt) = '.'
				add	%g1, 1, %g1
				st	%g1, [%fp+2015]
 1495           read sym
				sra	%g1, 0, %g1
				mov	46, %g2
				stb	%g2, [%g1]
				call	READSYM.6631, 0
				 mov	%i5, %g5
		.LVL293:
 1496           type = real;  n = base;  base = 0;  get(n)
				sethi	%hi(TYPE.6114), %g1
				mov	2, %g2
				st	%g2, [%g1+%lo(TYPE.6114)]
 1497        %FINISH
				lduw	[%fp+2023], %o0
				st	%o0, [%fp+2019]
 1498
				st	%g0, [%fp+2023]
 1499        %IF sym = '@' %START;                        !an exponent
				sethi	%hi(SYM.6128), %g1
		.L345:
				lduw	[%g1+%lo(SYM.6128)], %g1
				cmp	%g1, 64
				be,pn	%icc, .L333
				 lduw	[%fp+2015], %g1
		.L296:
				add	%fp, 2007, %g5
				call	GET.6798, 0
				 sra	%o0, 0, %o0
		.LVL294:
				ba,pt	%xcc, .L345
				 sethi	%hi(SYM.6128), %g1
		.L333:
 1500           pt = pt+1;  byteinteger(pt) = '@';  k = pt
				add	%g1, 1, %g1
				st	%g1, [%fp+2015]
 1501           readsym
				sra	%g1, 0, %g1
				mov	64, %g2
				stb	%g2, [%g1]
				call	READSYM.6631, 0
				 mov	%i5, %g5
		.LVL296:
 1502           type = integer;  base = 10
				lduw	[%fp+2015], %i4
		.LVL295:
				sethi	%hi(TYPE.6114), %g1
				mov	1, %g2
				st	%g2, [%g1+%lo(TYPE.6114)]
 1503           %IF sym = '-' %START
				mov	10, %g1
				st	%g1, [%fp+2023]
				sethi	%hi(SYM.6128), %g1
				lduw	[%g1+%lo(SYM.6128)], %g1
				cmp	%g1, 45
				be,pn	%icc, .L334
				 add	%fp, 2007, %g5
		.L297:
 1504              read sym;  get(10);  n = -n
				call	READSYM.6631, 0
				 mov	%i5, %g5
		.LVL300:
 1505           %FINISH %ELSE %START
				add	%fp, 2007, %g5
				call	GET.6798, 0
				 mov	10, %o0
		.LVL301:
				ba,pt	%xcc, .L298
				 st	%g1, [%fp+2019]
		.LVL302:
		.L254:
		.LBB395:
 1506              get(10)
				call	GET.6798, 0
				 mov	10, %o0
		.LVL297:
		.L298:
				lduw	[%fp+2019], %g1
				sub	%g0, %g1, %g1
 1507           %FINISH
 1508           pt = k+1;  byteinteger(pt) = lp;  litpool(lp) = n;  lp = lp+1
				add	%i4, 1, %g1
				st	%g1, [%fp+2015]
 1509           atom1 = error+10 %IF base = 0
				sethi	%hi(LP.6188), %g3
				lduw	[%g3+%lo(LP.6188)], %g2
				sra	%g1, 0, %g1
				stb	%g2, [%g1]
				lduw	[%fp+2023], %g1
				cmp	%g1, 0
				bne,pt	%icc, .L354
				 sethi	%hi(TYPE.6114), %g1
 1510           type = real;                              !exponents force the type
				ldx	[%i5], %g1
				ldx	[%g1+8], %g4
				sra	%g2, 0, %g1
				sllx	%g1, 2, %g1
				lduw	[%fp+2019], %g5
				st	%g5, [%g4+%g1]
				sethi	%hi(ATOM1.6111), %g2
				sethi	%hi(32768), %g1
				or	%g1, 10, %g1
				st	%g1, [%g2+%lo(ATOM1.6111)]
		.L299:
				sethi	%hi(TYPE.6114), %g1
		.L354:
				mov	2, %g2
				st	%g2, [%g1+%lo(TYPE.6114)]
		.LVL298:
		.L300:
 1511        %FINISH
				add	%g2, 1, %g2
				st	%g2, [%g3+%lo(LP.6188)]
 1512
 1513        %IF type = real %START
				sethi	%hi(TYPE.6114), %g1
		.L357:
				lduw	[%g1+%lo(TYPE.6114)], %g1
				cmp	%g1, 2
				be,pn	%icc, .L300
				 sethi	%hi(LP.6188), %g3
		.L301:
 1514           byteinteger(strp) = pt-strp
				lduw	[%i5+8], %g2
				sra	%g2, 0, %g3
				lduw	[%fp+2015], %g1
				sub	%g1, %g2, %g1
				stb	%g1, [%g3]
 1515           subatom = (strp-stbase)!x'2000';  strp = pt+1
				lduw	[%i5+8], %g1
				sethi	%hi(STBASE.6156), %g2
				lduw	[%g2+%lo(STBASE.6156)], %g2
				sub	%g1, %g2, %g1
				sethi	%hi(8192), %g2
				or	%g1, %g2, %g1
				sethi	%hi(SUBATOM.6113), %g2
				st	%g1, [%g2+%lo(SUBATOM.6113)]
 1516        %FINISH %ELSE %START
				lduw	[%fp+2015], %g1
				add	%g1, 1, %g1
				ba,pt	%xcc, .L253
				 st	%g1, [%i5+8]
		.LVL299:
		.L334:
 1517           litpool(lp) = n
				lduw	[%g3+%lo(LP.6188)], %g1
				ldx	[%i5], %g2
				ldx	[%g2+8], %g4
				sra	%g1, 0, %g2
				sllx	%g2, 2, %g2
				lduw	[%fp+2019], %g5
				st	%g5, [%g4+%g2]
 1518           lp = lp+1
				add	%g1, 1, %g1
				ba,pt	%xcc, .L253
				 st	%g1, [%g3+%lo(LP.6188)]
		.L332:
 1519        %FINISH
 1520        %RETURN
 1521
 1522 name: atom1 = 0 %AND %RETURN %IF 27 <= target <= 41
 1523       hash value = 0
				ldx	[%i5], %g1
				ldx	[%g1+8], %g1
				st	%g0, [%g1+208]
 1524
 1525       !*****************************
 1526       !*machine dependent for speed*
 1527       !*****************************
 1528
				add	%i0, -27, %g1
				cmp	%g1, 14
				bleu,pn	%icc, .L335
				 sethi	%hi(DP.6175), %g2
		.L302:
		.LBE395:
 1529       dp = dmax+1
				sethi	%hi(DMAX.6158), %g1
				lduw	[%g1+%lo(DMAX.6158)], %g1
				add	%g1, 1, %g3
				st	%g3, [%g2+%lo(DP.6175)]
 1530       da = addr(dict(dp));  dbase = da
				ldx	[%i5], %g3
				sra	%g1, 0, %g1
				sethi	%hi(6870016), %g2
				srlx	%g2, 9, %g2
				add	%g1, %g2, %g1
				add	%g1, %g1, %g1
				ldx	[%g3+8], %i2
				add	%i2, %g1, %i2
		.LVL303:
				mov	%i2, %i4
				sethi	%hi(ATOM1.6111), %g1
 1531       %CYCLE
				ba,pt	%xcc, .L253
				 st	%g0, [%g1+%lo(ATOM1.6111)]
		.LVL311:
		.L336:
 1532          hash value = hash value+(hash value+sym);        !is this good enough?
				sethi	%hi(SYM.6128), %i1
				lduw	[%i1+%lo(SYM.6128)], %g2
		.L355:
				ldx	[%i5], %g1
				ldx	[%g1+8], %g3
				lduw	[%g3+208], %g4
				add	%g2, %g4, %g1
				add	%g1, %g4, %g1
				st	%g1, [%g3+208]
 1533          da = da+1;  byteinteger(da) = sym
				add	%i4, 1, %i4
		.LVL305:
 1534          read sym
				sra	%i4, 0, %g1
				stb	%g2, [%g1]
				call	READSYM.6631, 0
				 mov	%i5, %g5
		.LVL306:
 1535          %EXIT %IF symtype >= 0
				sethi	%hi(SYMTYPE.6129), %i3
		.L303:
		.LVL304:
		.L304:
				lduw	[%i3+%lo(SYMTYPE.6129)], %g1
				cmp	%g1, 0
				bl,pt	%icc, .L355
				 lduw	[%i1+%lo(SYM.6128)], %g2
		.L305:
 1536       %REPEAT
 1537       %IF sym = cquote %START
				sethi	%hi(SYM.6128), %g1
				lduw	[%g1+%lo(SYM.6128)], %g1
				cmp	%g1, 39
				be,pn	%icc, .L336
				 sra	%i2, 0, %g1
		.L306:
 1538          pend quote = 100
 1539          ->symbols %IF hash value = 'M'
				ldx	[%i5], %g1
				ldx	[%g1+8], %g1
				lduw	[%g1+208], %g1
		.LVL312:
				cmp	%g1, 77
				be,pt	%icc, .L268
				 mov	100, %i4
		.L307:
 1540          read sym
				call	READSYM.6631, 0
				 mov	%i5, %g5
		.LVL313:
 1541          %IF hash value = 'X' %THEN base = 16 %AND ->bxk
				ldx	[%i5], %g1
				ldx	[%g1+8], %g1
				lduw	[%g1+208], %g1
				cmp	%g1, 88
				be,pn	%icc, .L340
				 and	%g1, -5, %g2
		.L308:
 1542          %IF hash value = 'K' %C
				mov	16, %g1
				st	%g1, [%fp+2023]
 1543          %OR hash value = 'O' %THEN base = 8 %AND ->bxk
				cmp	%g2, 75
				bne,pn	%icc, .L309
				 mov	100, %i1
		.L310:
				ba,pt	%xcc, .L286
				 mov	100, %i1
		.L309:
 1544          %IF hash value = 'B' %THEN base = 2 %AND ->bxk
				cmp	%g1, 66
				bne,pt	%icc, .L353
				 sethi	%hi(ATOM1.6111), %g2
 1545          ->err
				mov	8, %g1
				mov	2, %g1
				st	%g1, [%fp+2023]
 1546       %FINISH
				ba,pt	%xcc, .L286
				 st	%g1, [%fp+2023]
		.L340:
				ba,pt	%xcc, .L286
				 mov	100, %i1
		.LVL314:
		.L337:
 1547       n = da-dbase
				sub	%i4, %i2, %i4
		.LVL307:
				st	%i4, [%fp+2019]
 1548       byteinteger(dbase) = n
				stb	%i4, [%g1]
 1549       dp = dp+(n+2)>>1
				lduw	[%fp+2019], %g1
				add	%g1, 2, %g1
				srl	%g1, 1, %g1
				sethi	%hi(DP.6175), %g2
				lduw	[%g2+%lo(DP.6175)], %g3
				add	%g1, %g3, %g1
				st	%g1, [%g2+%lo(DP.6175)]
 1550       abandon(8) %IF dp >= dmin
				ldx	[%i5], %g2
				lduw	[%g2+52], %g3
				cmp	%g1, %g3
				bge,a,pn %icc, .L337
				 ldx	[%g2+8], %g5
		.L311:
 1551
				call	ABANDON.6239, 0
				 mov	8, %o0
		.LVL315:
 1552       atom2 = 90;                                    !ident
				sethi	%hi(ATOM2.6112), %g1
		.L346:
				mov	90, %g2
				st	%g2, [%g1+%lo(ATOM2.6112)]
				ba,pt	%xcc, .L346
				 sethi	%hi(ATOM2.6112), %g1
		.L338:
 1553       %IF last1 = 0 %AND sym = ':' %START;           !label
				sethi	%hi(LAST1.6142), %g1
				lduw	[%g1+%lo(LAST1.6142)], %g1
				cmp	%g1, 0
				bne,pt	%icc, .L312
				 cmp	%g1, 54
 1554          limit = local;  lookup(lab);  %RETURN
				sethi	%hi(SYM.6128), %g1
				lduw	[%g1+%lo(SYM.6128)], %g1
				cmp	%g1, 58
				be,pn	%icc, .L338
				 sethi	%hi(LOCAL.6180), %g1
		.L313:
				lduw	[%g1+%lo(LOCAL.6180)], %g2
				sethi	%hi(LIMIT.6170), %g1
				st	%g2, [%g1+%lo(LIMIT.6170)]
 1555       %FINISH
				add	%fp, 2007, %g5
				call	LOOKUP.6684, 0
				 mov	3, %o0
		.LVL316:
 1556       %IF last1 = jump %START;                       !->label
				ba,pt	%xcc, .L253
				 nop
		.L312:
				bne,pt	%icc, .L356
				 sethi	%hi(DECL.6134), %g1
 1557          limit = local;  lookup(lab+spec+used bit);  %RETURN
				sethi	%hi(LOCAL.6180), %g1
				lduw	[%g1+%lo(LOCAL.6180)], %g2
				sethi	%hi(LIMIT.6170), %g1
				st	%g2, [%g1+%lo(LIMIT.6170)]
 1558       %FINISH
				add	%fp, 2007, %g5
				sethi	%hi(33688576), %o0
				call	LOOKUP.6684, 0
				 srlx	%o0, 10, %o0
		.LVL317:
 1559       %IF decl # 0 %AND target = 90 %START;          !identifier
				sethi	%hi(DECL.6134), %g1
		.L356:
				lduw	[%g1+%lo(DECL.6134)], %o0
				cmp	%g0, %o0
				subx	%g0, -1, %g1
				ba,pt	%xcc, .L253
				 nop
		.LVL318:
		.L339:
 1560          search base = fm base
				xor	%i0, 90, %i0
		.LVL308:
				cmp	%g0, %i0
				addx	%g0, 0, %g2
				orcc	%g2, %g1, %g0
				be,pn	%icc, .L339
				 sethi	%hi(LIMIT.6170), %g1
		.L314:
				sethi	%hi(SEARCHBASE.6182), %i5
				sethi	%hi(FMBASE.6181), %g1
				lduw	[%g1+%lo(FMBASE.6181)], %g1
				st	%g1, [%i5+%lo(SEARCHBASE.6182)]
 1561          limit = local;  lookup(decl)
				sethi	%hi(LOCAL.6180), %g1
				lduw	[%g1+%lo(LOCAL.6180)], %g2
				sethi	%hi(LIMIT.6170), %g1
				st	%g2, [%g1+%lo(LIMIT.6170)]
 1562          search base = 0
				add	%fp, 2007, %g5
				call	LOOKUP.6684, 0
				 sra	%o0, 0, %o0
		.LVL319:
 1563       %FINISH %ELSE %START
				ba,pt	%xcc, .L253
				 st	%g0, [%i5+%lo(SEARCHBASE.6182)]
		.LVL320:
		.L290:
 1564          limit = 0;  lookup(0)
				st	%g0, [%g1+%lo(LIMIT.6170)]
 1565       %FINISH
				add	%fp, 2007, %g5
				call	LOOKUP.6684, 0
				 mov	0, %o0
		.LVL309:
		.L264:
		.L315:
		.L316:
		.L317:
		.L318:
				ba,pt	%xcc, .L253
				 nop
		.LVL310:
		.L335:
 1566    %END
 1567
				ldx	[%fp+2039], %g1
				ldx	[%g7+40], %g2
				xor	%g1, %g2, %g1
				mov	0, %g2
				brnz,pn	%g1, .L329
				 nop
				return	%i7+8
				 nop
		.LVL273:
		.L279:
		.L342:
				call	__stack_chk_fail, 0
				 nop
		.LVL322:
				nop
		.LFE204:
				.align 4
				.proc	020
		GETNEXT.7245:
		.LFB211:
 1568    %INTEGERFN parsed machine code
 1569       !   *opcode_??????????
 1570       %routine octal(%integer n)
 1571          %integer m
 1572          m = n>>3
 1573          octal(m) %if m # 0
 1574          bp = bp+1;  buff(bp) = n&7+'0'
 1575       %end
 1576       atom1 = error %AND %RESULT=0 %UNLESS symtype = -2;  !starts with letter
 1577       flush buffer %IF bp >= 128
 1578       bp=bp+1 %AND buff(bp)='w'
 1579       %CYCLE
 1580          bp=bp+1 %AND buff(bp)=sym
 1581          read sym
 1582          %EXIT %IF symtype >= 0;                !pull in letters and digits
 1583       %REPEAT
 1584       bp=bp+1 %AND buff(bp)='_'
 1585       %IF symtype # 0 %START;                   !not terminator
 1586          atom1 = error %AND %result=0 %UNLESS sym = '_'
 1587          read sym
 1588          %WHILE symtype # 0 %CYCLE
 1589             %IF symtype < 0 %START;             !complex
 1590                code atom(0);  %result=0 %IF atom1&error # 0
 1591                %IF atom2 = const %AND type = integer %START
 1592                   %IF subatom < 0 %THEN octal(tag(-subatom)_format) %C
 1593                                   %ELSE octal(litpool(subatom))
 1594                %FINISH %ELSE %START
 1595                   %IF 91 <= atom1 <= 109 %START
 1596                      %if atom1 = 104 {label} %and %C
 1597                          Tag(Subatom)_Flags&Closed = 0 %start
 1598                         This = Subatom;  Atom1 = Error+21
 1599                         %result = 0
 1600                      %finish
 1601                      op(' ', tag(subatom)_index)
 1602                   %FINISH %ELSE %START
 1603                      atom1 = error;  %result=0
 1604                   %FINISH
 1605                %FINISH
 1606             %FINISH %ELSE %START
 1607                bp=bp+1 %AND buff(bp)=sym;  read sym
 1608             %FINISH
 1609          %REPEAT
 1610       %FINISH
 1611       bp=bp+1 %AND buff(bp)=';'
 1612       %RESULT=1
 1613    %END
 1614
 1615    cont = ' ' %IF gg = 0
				sethi	%hi(GG.6149), %g1
				lduw	[%g1+%lo(GG.6149)], %g3
				cmp	%g3, 0
				bne,pt	%icc, .L999
				 sethi	%hi(LAST1.6142), %g1
 1616    last1 = 0;  mapgg = 0
				sethi	%hi(CONT.6132), %g1
				mov	32, %g2
				st	%g2, [%g1+%lo(CONT.6132)]
		.L893:
				sethi	%hi(LAST1.6142), %g1
		.L999:
				st	%g0, [%g1+%lo(LAST1.6142)]
 1617    s = 0;  ss = 0;  sstype = -1; fdef = 0
				sethi	%hi(MAPGG.6150), %g1
				st	%g0, [%g1+%lo(MAPGG.6150)]
		.LVL736:
				mov	0, %i5
		.LBB641:
		.LBB642:
 1618    fm base = 0
				sethi	%hi(SS.6160), %g1
				st	%g0, [%g1+%lo(SS.6160)]
				sethi	%hi(FMBASE.6181), %g1
				st	%g0, [%g1+%lo(FMBASE.6181)]
 1619    app = 0
				sethi	%hi(SSTYPE.6167), %g1
				mov	-1, %g2
				st	%g2, [%g1+%lo(SSTYPE.6167)]
				sethi	%hi(APP.6115), %g1
				st	%g0, [%g1+%lo(APP.6115)]
 1620
				sethi	%hi(FDEF.6151), %g1
				st	%g0, [%g1+%lo(FDEF.6151)]
 1621    !deal with alignment following an error in one statement
 1622    !of several on a line
 1623
 1624    margin = column;                              !start of statement
				sethi	%hi(COLUMN.6125), %g1
				lduw	[%g1+%lo(COLUMN.6125)], %g2
				sethi	%hi(MARGIN.6122), %g1
				st	%g2, [%g1+%lo(MARGIN.6122)]
 1625
 1626    pos = 0
				sethi	%hi(POS.6178), %g1
				st	%g0, [%g1+%lo(POS.6178)]
 1627    stbase = addr(glink(gmax+1));  strp = stbase;  lp = 0
				sethi	%hi(GMAX.6199), %g1
				lduw	[%g1+%lo(GMAX.6199)], %g1
				add	%g1, 1, %g1
				sra	%g1, 0, %g1
				add	%g1, %g1, %g1
				sethi	%hi(GLINK.6204), %g2
				or	%g2, %lo(GLINK.6204), %g2
				add	%g1, %g2, %g1
				sethi	%hi(STBASE.6156), %g2
				st	%g1, [%g2+%lo(STBASE.6156)]
 1628    tbase = tstart;                               !??????????????
				sethi	%hi(5120), %g2
				xor	%g2, -544, %g2
				add	%fp, 2047, %g4
				add	%g4, %g2, %g2
				st	%g1, [%g2+8]
				lduw	[%i0+72], %g1
				st	%g1, [%i0+68]
 1629    local = tbase
				sethi	%hi(LP.6188), %g1
				st	%g0, [%g1+%lo(LP.6188)]
				sethi	%hi(LOCAL.6180), %g2
 1630
 1631    %IF gg = 0 %or ocount >= 0 %START;            !data or not continuation(z)
				cmp	%g3, 0
				be,pt	%icc, .L894
				 st	%g1, [%g2+%lo(LOCAL.6180)]
 1632 again:%WHILE sym type = 0 %CYCLE;                !skip redundant terminators
				sethi	%hi(OCOUNT.6169), %g1
				lduw	[%g1+%lo(OCOUNT.6169)], %g1
				cmp	%g1, 0
				bl,pn	%icc, .L1000
				 sethi	%hi(DECL.6134), %g1
		.L894:
 1633          c = cont
				lduw	[%i5+%lo(CONT.6132)], %i2
		.LVL740:
 1634          cont = ' ';  cont = '+' %IF ocount >= 0
				sethi	%hi(SYMTYPE.6129), %i1
				lduw	[%i1+%lo(SYMTYPE.6129)], %g1
				cmp	%g1, 0
				bne,pt	%icc, .L897
				 lduw	[%i3+%lo(SYM.6128)], %g1
				mov	32, %g1
				st	%g1, [%i5+%lo(CONT.6132)]
 1635          read sym
				ba,pt	%xcc, .L896
				 sethi	%hi(OCOUNT.6169), %l1
		.LVL737:
		.L898:
				call	READSYM.6631, 0
				 mov	%i4, %g5
		.LVL738:
				lduw	[%l1+%lo(OCOUNT.6169)], %g1
				cmp	%g1, 0
				bl,pn	%icc, .L898
				 mov	43, %g1
 1636          cont = c
				st	%i2, [%i5+%lo(CONT.6132)]
		.LVL739:
		.L896:
				ba,pt	%xcc, .L898
				 st	%g1, [%i5+%lo(CONT.6132)]
		.LVL741:
		.L897:
 1637       %REPEAT
 1638       ->skip %IF sym = '!';                      !comment
				sethi	%hi(SYM.6128), %i3
				cmp	%g1, 33
				be,pn	%icc, .L900
				 mov	-1, %g1
		.L901:
 1639       this = -1
				sethi	%hi(THIS.6152), %l3
				st	%g1, [%l3+%lo(THIS.6152)]
 1640       code atom(0)
				mov	%i4, %g5
				call	CODEATOM.6671, 0
				 mov	0, %o0
		.LVL742:
 1641       %IF atom1 = comment %START
				sethi	%hi(ATOM1.6111), %l2
				lduw	[%l2+%lo(ATOM1.6111)], %g1
				cmp	%g1, 22
				bne,pn	%icc, .L904
				 sethi	%hi(DECL.6134), %g1
		.L900:
 1642 skip:    quote = 1
 1643          c = cont
				sethi	%hi(QUOTE.6130), %l0
				sethi	%hi(CONT.6132), %i5
				mov	1, %g1
				st	%g1, [%l0+%lo(QUOTE.6130)]
		.LVL743:
 1644          read sym %AND cont = c %WHILE sym # nl; !skip to end of line
 1645          quote = 0;  symtype = 0
				lduw	[%i3+%lo(SYM.6128)], %g1
				cmp	%g1, 10
				be,pn	%icc, .L902
				 lduw	[%i5+%lo(CONT.6132)], %i2
		.L903:
				lduw	[%i3+%lo(SYM.6128)], %g1
				cmp	%g1, 10
				bne,pt	%icc, .L903
				 nop
		.L902:
				st	%g0, [%l0+%lo(QUOTE.6130)]
 1646          ->again
				sethi	%hi(5120), %i4
				xor	%i4, -544, %i4
				add	%fp, 2047, %g1
				add	%g1, %i4, %i4
				call	READSYM.6631, 0
				 mov	%i4, %g5
		.LVL744:
				ba,pt	%xcc, .L896
				 st	%g0, [%i1+%lo(SYMTYPE.6129)]
		.L895:
		.LVL745:
		.L904:
		.L1000:
 1647       %FINISH
				st	%i2, [%i5+%lo(CONT.6132)]
		.LDL36:
 1648    %FINISH
 1649    decl = 0;  mark = 0
				st	%g0, [%g1+%lo(DECL.6134)]
		.LVL746:
 1650    gentype = 0;  force = 0
				sethi	%hi(GENTYPE.6143), %g1
				st	%g0, [%g1+%lo(GENTYPE.6143)]
 1651    dim = 0;  prot err = 0
				sethi	%hi(FORCE.6147), %g1
				st	%g0, [%g1+%lo(FORCE.6147)]
				sethi	%hi(DIM.6135), %g1
				st	%g0, [%g1+%lo(DIM.6135)]
		.LVL747:
 1652    node = 0;  nmax = 0;  nmin = rec size+1
				sethi	%hi(5120), %g1
				xor	%g1, -562, %g1
				add	%fp, 2047, %g2
				sth	%g0, [%g2+%g1]
 1653    order = 1;  gmin = max grammar+1
				sethi	%hi(NMAX.6154), %g1
				st	%g0, [%g1+%lo(NMAX.6154)]
				sethi	%hi(ORDER.6172), %g1
				mov	1, %g2
				st	%g2, [%g1+%lo(ORDER.6172)]
 1654    sstype = 0 %AND ->more %IF gg # 0;            !continuation
				sethi	%hi(NMIN.6153), %g1
				mov	521, %g2
				st	%g2, [%g1+%lo(NMIN.6153)]
				sethi	%hi(GMIN.6157), %g1
				mov	1721, %g2
				st	%g2, [%g1+%lo(GMIN.6157)]
				sethi	%hi(GG.6149), %g1
				lduw	[%g1+%lo(GG.6149)], %g1
				cmp	%g1, 0
				be,pt	%icc, .L905
				 sethi	%hi(PTYPE.6144), %g1
 1655    ptype = 0;  spec given = 0
				sethi	%hi(SSTYPE.6167), %g1
				st	%g0, [%g1+%lo(SSTYPE.6167)]
				st	%g0, [%g1+%lo(PTYPE.6144)]
 1656
				sethi	%hi(SPECGIVEN.6136), %g1
				st	%g0, [%g1+%lo(SPECGIVEN.6136)]
 1657    stats = stats+1;  op('O', lines) %IF perm = 0
				sethi	%hi(STATS.6126), %g2
				lduw	[%g2+%lo(STATS.6126)], %g1
				add	%g1, 1, %g1
				st	%g1, [%g2+%lo(STATS.6126)]
 1658
				sethi	%hi(PERM.6165), %g1
				lduw	[%g1+%lo(PERM.6165)], %g1
				cmp	%g1, 0
				be,a,pn	%icc, .L976
				 ldx	[%i0+8], %g5
		.L907:
		.LVL750:
		.L946:
 1659    ->fail1 %IF atom1&error # 0;                  !first atom faulty
				sethi	%hi(LINES.6120), %g1
				ldsw	[%g1+%lo(LINES.6120)], %o1
				call	OP.6313, 0
				 mov	79, %o0
		.LVL811:
 1660
 1661    %IF escape class # 0 %START;                  !enter the hard way after
 1662       g = imp phrase;  sstype = -1;  ->a3
 1663    %FINISH
 1664
 1665    g = initial(atom1);                           !pick up entry point
 1666    %IF g = 0 %START;                             !invalid first atom
 1667       g = initial(0);  sstype = 0;  ->a3;        !declarator?
 1668    %FINISH
 1669    %IF g < 0 %START;                             !phrase imp
 1670       g = g&255
 1671       nmax = 1
 1672       ar(1)_class = 0;  ar(1)_link = 0;  ar(1)_sub = imp phrase
 1673    %FINISH
 1674
 1675    gg = gram(g);  class = gg&255;  sstype = gg>>12&3-1
 1676    ->a1
 1677
 1678 act(194): ptype = type;  papp = app;  pformat = format;  ->more
 1679 act(196):k =g+1;  ->a610
 1680 act(188):k = ar(nmax)_sub+1
 1681 a610:     papp = glink(k)
 1682           k = gram(k)
 1683           ->more %IF k = 0;                        !%NAME
 1684           ptype = k&7;  pformat = k>>3
 1685 act(183):k = type;  gentype = k %IF gentype = 0 %OR k = real
 1686           %IF pformat < 0 %START;                  !general type
 1687              app = papp;  format = pformat
 1688              k = real %IF ptype = real %AND type = integer
 1689              k = force %AND force = 0 %IF force # 0
 1690           %FINISH
 1691           ->fail2 %UNLESS papp = app %AND (ptype = k %OR ptype = 0)
 1692           ->more %IF pformat=format %OR pformat = 0 %OR format = 0
 1693           ->fail2
 1694 act(197):arp == ar(nmin)
 1695          k = arp_sub
 1696          ->fail3 %UNLESS block form = k&15
 1697          arp_sub = k>>4
 1698
 1699          type = block type
 1700          ptype = block type;  pformat = block fm;  papp = app
 1701          pformat = -1 %IF ptype # record
 1702          ->more
 1703 act(195):->Fail2 %if Type # 0 %and Type # Integer %and %C
 1704                                    Type # Real
 1705          arp == ar(nmin)
 1706          k = arp_sub
 1707          arp_sub = k>>2
 1708          k = k&3
 1709                                                       !1 = check integer
 1710                                                       !2 = check real
 1711                                                       !3 = check real + int
 1712           ->more %IF k = 0;                           !0 = no action
 1713           %IF k = 1 %START
 1714              force = integer
 1715              ->more %IF type = integer %OR type = 0
 1716              ->fail2
 1717           %FINISH
 1718           ->fail2 %UNLESS ptype = real %or ptype = 0  {or added?}
 1719           force = integer %IF k = 3
 1720           ->more
 1721 act(198):!%OTHER
 1722          k = gg>>8&15
 1723          %IF k = 0 %START;                    !restore atom
 1724             atom1 = last1
 1725             ->more
 1726          %FINISH
 1727          %IF k = 1 %START;                    !test string
 1728             ->fail2 %UNLESS type = stringv
 1729             ->more
 1730          %FINISH
 1731          %if k = 2 %start                     {fault record comparisons}
 1732             ->fail2 %if type = record
 1733             ->more
 1734          %finish
 1735          %if k = 3 %start;                    !check OWN variable coming
 1736             code atom(0)
 1737             ->A7 %if atom flags&own bit = 0
 1738             ->more
 1739          %finish
 1740          for warn = pos1 %IF x <= local;      !%FORTEST
 1741          ->more
 1742 paction(1):%IF type = record %THEN g = phrase(242) %ELSE pformat = -1
 1743                                                ->a3
 1744 paction(2):ptype = real;     pformat = -1;     ->a3
 1745 paction(3):ptype = stringv;  pformat = -1;     ->a3
 1746 paction(4):ptype = integer;  pformat = -1;     ->a3
 1747 paction(5):->a3 %if ptype = integer
 1748            g = phrase(212) %AND pformat=-1 %IF ptype = real
 1749            g = phrase(213) %IF ptype = stringv
 1750            ->a3
 1751 paction(6):ptype = gram(ar(nmax)_sub+1)&7;  pformat = -1;  ->a3
 1752 paction(7):ptype=real %IF ptype = integer;  pformat = -1;  ->a3
 1753
 1754 a1:   last1 = class;  atom1 = 0;  s = subatom
 1755
				st	%g1, [%g2+%lo(LAST1.6142)]
 1756 a2:   %IF gg&trans bit = 0 %START;                !insert into analysis record
				sethi	%hi(ATOM1.6111), %g1
				st	%g0, [%g1+%lo(ATOM1.6111)]
 1757          z == node
				sethi	%hi(SUBATOM.6113), %g1
				lduw	[%g1+%lo(SUBATOM.6113)], %i5
		.LVL813:
		.L910:
				sethi	%hi(GG.6149), %g1
				lduw	[%g1+%lo(GG.6149)], %g2
				andcc	%g2, 1, %g0
				be,pn	%xcc, .L977
				 xor	%l2, -562, %g1
		.LVL814:
		.L911:
				xor	%l2, -562, %g1
				add	%fp, 2047, %g3
		.LVL925:
				xor	%l2, -562, %g1
				ba,pt	%xcc, .L964
				 add	%g3, %g1, %g1
		.LVL926:
		.L985:
 1758          %CYCLE;                                  !insert cell in order
 1759             k = z
				add	%fp, 2047, %g3
				ldsh	[%g3+%g1], %g1
		.LVL816:
				sra	%g3, 0, %g1
		.LVL819:
				add	%g1, 814, %g1
		.LVL820:
				sllx	%g1, 4, %g1
		.LVL821:
				add	%g4, %g1, %g1
				ldsh	[%g1+8], %g1
		.LVL822:
 1760             %EXIT %IF gg&order bits = 0 %OR k = 0
 1761             gg = gg-order bit;  z == ar(k)_link
				cmp	%g1, 0
				be,pn	%icc, .L912
				 add	%g2, -4096, %g2
				mov	%g2, %g5
				cmp	%g1, 0
				bne,pt	%icc, .L913
				 add	%g2, -4096, %g2
 1762          %REPEAT
				ldx	[%i0+8], %g4
		.LVL817:
		.L913:
				add	%g1, -1, %g3
		.LDL37:
		.LVL818:
				sra	%g3, 0, %g1
		.LVL823:
				add	%g1, 814, %g1
		.LVL824:
				sllx	%g1, 4, %g1
		.LVL825:
				add	%g1, 8, %g1
		.LVL826:
		.LDL38:
		.LDL39:
				sethi	%hi(GG.6149), %g2
				st	%g5, [%g2+%lo(GG.6149)]
 1763          gg = map gg %IF map gg # 0 %AND gg&255 = var
				sethi	%hi(MAPGG.6150), %g2
				lduw	[%g2+%lo(MAPGG.6150)], %g2
				cmp	%g2, 0
				be,pt	%icc, .L914
				 add	%g4, %g1, %g1
				sethi	%hi(MAPGG.6150), %g1
		.LVL924:
				lduw	[%g1+%lo(MAPGG.6150)], %g2
				cmp	%g2, 0
				be,pt	%icc, .L914
				 add	%g3, %g1, %g1
 1764          nmin = nmin-1;  ->fail0 %IF nmin = nmax
				andcc	%g5, 1, %g0
				bne,pt	%xcc, .L1001
				 sethi	%hi(NMIN.6153), %g4
		.LVL827:
		.L964:
				sethi	%hi(NMIN.6153), %g4
		.L1001:
				lduw	[%g4+%lo(NMIN.6153)], %g2
				add	%g2, -1, %g3
				st	%g3, [%g4+%lo(NMIN.6153)]
 1765          z = nmin
				sethi	%hi(GG.6149), %g3
				st	%g2, [%g3+%lo(GG.6149)]
		.L914:
				sethi	%hi(NMAX.6154), %g4
				lduw	[%g4+%lo(NMAX.6154)], %g4
				cmp	%g3, %g4
				be,pn	%icc, .L1002
				 mov	256, %o2
		.L916:
				sth	%g3, [%g1]
		.LVL828:
				sra	%g2, 0, %g1
				sllx	%g1, 4, %g1
				ldx	[%i0+8], %g2
		.LVL829:
				add	%g2, %g1, %g1
 1766          arp == ar(nmin)
 1767          arp_sub = s;  arp_class = (gg&255)!mark
				sethi	%hi(6654976), %g2
				srlx	%g2, 9, %g2
				sth	%i5, [%g1+%g2]
		.LVL830:
 1768          arp_link = k
				sethi	%hi(GG.6149), %g2
				ldub	[%g2+%lo(GG.6149+3)], %g2
				or	%g2, %l6, %l6
		.LVL831:
				mov	3249, %g2
				sllx	%g2, 2, %g2
				sth	%l6, [%g1+%g2]
				mov	1625, %g2
				sllx	%g2, 3, %g2
				ba,pt	%xcc, .L911
				 sth	%g0, [%g1+%g2]
		.LVL832:
		.L980:
		.LBB710:
		.LBB667:
		.LBB647:
		.LBB648:
				call	_imp_newline, 0
				 nop
		.LVL833:
		.LBE648:
		.LBE647:
		.LBE667:
		.LBE710:
 1769       %FINISH
 1770       mark = 0;  map gg = 0
 1771
				sethi	%hi(MAPGG.6150), %g1
				ba,pt	%xcc, .L906
				 st	%g0, [%g1+%lo(MAPGG.6150)]
		.LVL815:
		.L977:
 1772 more: g = glink(g);                               !chain down the grammar
 1773
				sethi	%hi(G.6148), %g3
				ldsw	[%g3+%lo(G.6148)], %g1
				add	%g1, %g1, %g1
				sethi	%hi(GLINK.6204), %g2
				or	%g2, %lo(GLINK.6204), %g2
				ldsh	[%g2+%g1], %g1
				st	%g1, [%g3+%lo(G.6148)]
				mov	0, %l6
 1774 paction(0):
 1775 a3:   gg = gram(g);  class = gg&255
 1776       trace analysis %IF diag&1 # 0
				sethi	%hi(GRAM.6203), %l0
				or	%l0, %lo(GRAM.6203), %l0
				mov	%g3, %i2
		.LBB672:
		.LBB666:
				ldsw	[%i2+%lo(G.6148)], %g1
				add	%g1, %g1, %g1
				lduh	[%l0+%g1], %g2
				ldsh	[%l0+%g1], %g3
				sethi	%hi(GG.6149), %g1
				st	%g3, [%g1+%lo(GG.6149)]
 1777       ->a5 %IF class = 0;                         !end of phrase
				and	%g2, 0xff, %g1
				sethi	%hi(CLASS.6109), %g2
				st	%g1, [%g2+%lo(CLASS.6109)]
		.LBB713:
		.LBB670:
				sethi	%hi(CLASS.6109), %g1
				lduw	[%g1+%lo(CLASS.6109)], %i4
				cmp	%i4, 0
				be,pn	%icc, .L922
				 cmp	%i4, 179
		.L923:
 1778
 1779       %IF class < actions %START;                 !not a phrase or an action
				bg,pn	%icc, .L924
				 cmp	%i4, 129
 1780          class = atomic(class) %IF class >= figurative
				ble,pt	%icc, .L1006
				 lduw	[%g1+%lo(CLASS.6109)], %o0
 1781          ->a2 %IF class >= manifest
				lduw	[%g1+%lo(CLASS.6109)], %o0
		.L1006:
				cmp	%o0, 119
				bg,pn	%icc, .L910
				 sethi	%hi(ATOM1.6111), %g1
		.L926:
				ldx	[%i0+8], %g2
				add	%i4, -130, %g1
				sra	%g1, 0, %g1
				add	%g2, %g1, %g2
				sethi	%hi(9946112), %g1
				srlx	%g1, 8, %g1
				ldub	[%g2+%g1], %g2
				sethi	%hi(CLASS.6109), %g1
				ba,pt	%xcc, .L1010
				 st	%g2, [%g1+%lo(CLASS.6109)]
		.L978:
 1782          code atom(class) %IF atom1 = 0
				lduw	[%g1+%lo(ATOM1.6111)], %g1
				cmp	%g1, 0
				be,pn	%icc, .L978
				 mov	%l1, %g5
		.L927:
 1783          %IF escape class # 0 %START;             !escape to new grammar
				sethi	%hi(ESCAPECLASS.6137), %g1
		.L990:
				lduw	[%g1+%lo(ESCAPECLASS.6137)], %g1
				cmp	%g1, 0
				bne,pn	%icc, .L979
				 sethi	%hi(CLASS.6109), %g2
		.L928:
				call	CODEATOM.6671, 0
				 sra	%o0, 0, %o0
		.LVL861:
				ba,pt	%xcc, .L990
				 sethi	%hi(ESCAPECLASS.6137), %g1
		.L979:
 1784             class = escape class;  escape class = 0
				st	%g1, [%g2+%lo(CLASS.6109)]
 1785             g = g+escape
				sethi	%hi(ESCAPECLASS.6137), %g1
				st	%g0, [%g1+%lo(ESCAPECLASS.6137)]
				sethi	%hi(G.6148), %g2
				lduw	[%g2+%lo(G.6148)], %g1
				sub	%g1, -4096, %g1
				st	%g1, [%g2+%lo(G.6148)]
		.LDL42:
 1786
 1787             !note that following an escape the next item is
 1788             !forced to be transparent!
 1789
 1790 esc:        gg = 0
 1791             arp == ar(nmax+1)
				sethi	%hi(GG.6149), %g1
				st	%g0, [%g1+%lo(GG.6149)]
		.LVL862:
				sethi	%hi(NMAX.6154), %g1
				ldsw	[%g1+%lo(NMAX.6154)], %g1
		.LVL863:
				sllx	%g1, 4, %g2
				ldx	[%i0+8], %g1
		.LVL864:
				add	%g1, %g2, %g1
 1792             arp_papp = papp;  arp_x = x;  ->a4
				sethi	%hi(PAPP.6145), %g2
				lduw	[%g2+%lo(PAPP.6145)], %g3
				mov	3259, %g2
				sllx	%g2, 2, %g2
				sth	%g3, [%g1+%g2]
		.LVL865:
 1793          %FINISH
				sethi	%hi(X.6110), %g2
				lduw	[%g2+%lo(X.6110)], %g3
				mov	815, %g2
				sllx	%g2, 4, %g2
				sth	%g3, [%g1+%g2]
		.L929:
 1794
 1795          ->a1 %IF class = atom1 %OR class = atom2
				sethi	%hi(CLASS.6109), %g1
				lduw	[%g1+%lo(CLASS.6109)], %g2
				sethi	%hi(ATOM1.6111), %g1
				lduw	[%g1+%lo(ATOM1.6111)], %g1
				cmp	%g2, %g1
				be,a,pn	%icc, .L1005
				 sethi	%hi(LAST1.6142), %g2
 1796
				sethi	%hi(ATOM2.6112), %g1
				lduw	[%g1+%lo(ATOM2.6112)], %g1
				cmp	%g2, %g1
				be,pn	%icc, .L908
				 sethi	%hi(LAST1.6142), %g2
		.L930:
		.L931:
 1797 a7:      ->fail1 %IF gg >= 0;                     !no alternative
 1798          g = g+1
				sethi	%hi(GG.6149), %g1
				lduw	[%g1+%lo(GG.6149)], %g1
				cmp	%g1, 0
				bge,pn	%icc, .L946
				 lduw	[%i2+%lo(G.6148)], %g1
		.L932:
				add	%g1, 1, %g1
				st	%g1, [%i2+%lo(G.6148)]
		.LVL840:
		.L917:
 1799          ->a3
 1800       %FINISH
 1801
 1802       %IF class >= phrasal %START;                !a phrase
				cmp	%i4, 199
				bg,pt	%icc, .L1009
				 sethi	%hi(NMAX.6154), %g3
		.L934:
		.LVL877:
		.LDL43:
 1803 a4:      nmax = nmax+1;  ->fail0 %IF nmax = nmin
 1804          arp == ar(nmax)
				sethi	%hi(NMAX.6154), %g3
		.L1009:
				lduw	[%g3+%lo(NMAX.6154)], %g1
				add	%g1, 1, %g2
				st	%g2, [%g3+%lo(NMAX.6154)]
 1805          arp_ptype = ptype
				sethi	%hi(NMIN.6153), %g3
				lduw	[%g3+%lo(NMIN.6153)], %g3
				cmp	%g2, %g3
				be,pn	%icc, .L915
				 sra	%g1, 0, %g1
		.L935:
		.LVL866:
				sllx	%g1, 4, %g1
		.LVL867:
				ldx	[%i0+8], %g2
		.LVL868:
				add	%g2, %g1, %g1
				sethi	%hi(PTYPE.6144), %g2
				lduw	[%g2+%lo(PTYPE.6144)], %g3
				sethi	%hi(6673408), %g2
				srlx	%g2, 9, %g2
				sth	%g3, [%g1+%g2]
		.LVL869:
 1806          arp_pos = pos1
				sethi	%hi(POS1.6176), %g2
				lduw	[%g2+%lo(POS1.6176)], %g3
				sethi	%hi(6677504), %g2
				srlx	%g2, 9, %g2
				sth	%g3, [%g1+%g2]
 1807          arp_pformat = pformat
				sethi	%hi(PFORMAT.6146), %g2
				lduw	[%g2+%lo(PFORMAT.6146)], %g3
				sethi	%hi(6675456), %g2
				srlx	%g2, 9, %g2
				sth	%g3, [%g1+%g2]
 1808          arp_link = gentype
				sethi	%hi(GENTYPE.6143), %g2
				lduw	[%g2+%lo(GENTYPE.6143)], %g3
				mov	1629, %g2
				sllx	%g2, 3, %g2
				sth	%g3, [%g1+%g2]
 1809          arp_class = node
				sethi	%hi(5120), %g2
				xor	%g2, -562, %g2
				add	%fp, 2047, %g3
				lduh	[%g3+%g2], %g4
				mov	3257, %g3
				sllx	%g3, 2, %g3
				sth	%g4, [%g1+%g3]
 1810          arp_sub = g
				sethi	%hi(G.6148), %g4
				lduw	[%g4+%lo(G.6148)], %g5
				sethi	%hi(6671360), %g3
				srlx	%g3, 9, %g3
				sth	%g5, [%g1+%g3]
 1811          node = 0
				add	%fp, 2047, %g1
				sth	%g0, [%g1+%g2]
 1812          g = phrase(class)
				sethi	%hi(CLASS.6109), %g1
				lduw	[%g1+%lo(CLASS.6109)], %g1
				add	%g1, -200, %g1
				sra	%g1, 0, %g1
				add	%g1, %g1, %g1
				sethi	%hi(PHRASE.6200), %g2
				or	%g2, %lo(PHRASE.6200), %g2
				ldsh	[%g2+%g1], %g1
				st	%g1, [%g4+%lo(G.6148)]
 1813          ptype = force %AND force = 0 %IF force # 0
				sethi	%hi(FORCE.6147), %g1
				lduw	[%g1+%lo(FORCE.6147)], %g1
				cmp	%g1, 0
				be,a,pt	%icc, .L1007
				 sethi	%hi(GENTYPE.6143), %g1
 1814          gentype = 0
				sethi	%hi(PTYPE.6144), %g2
				st	%g1, [%g2+%lo(PTYPE.6144)]
				sethi	%hi(GENTYPE.6143), %g1
		.L1007:
				st	%g0, [%g1+%lo(GENTYPE.6143)]
		.LVL870:
 1815          ->paction(gg>>8&15)
				sethi	%hi(FORCE.6147), %g1
				st	%g0, [%g1+%lo(FORCE.6147)]
		.L936:
				sethi	%hi(GG.6149), %g1
				lduw	[%g1+%lo(GG.6149)], %l5
				srl	%l5, 8, %l5
				and	%l5, 15, %l5
		.LVL871:
		.L937:
 1816       %FINISH
 1817
 1818       ->act(class);                               !only actions left
 1819
 1820 a5:   !reverse links
 1821
 1822       s = 0
 1823       %WHILE node # 0 %CYCLE
 1824          z == ar(node)_link
				xor	%l2, -562, %g2
				add	%fp, 2047, %g1
				lduh	[%g1+%g2], %g1
				add	%fp, 2047, %g3
				ldsh	[%g3+%g2], %g2
				cmp	%g2, 0
				be,pn	%icc, .L940
				 mov	%i4, %i5
				sll	%g1, 16, %i5
				sra	%i5, 16, %i5
		.LVL881:
				sllx	%g1, 48, %g1
				srax	%g1, 44, %g1
				ldx	[%i0+8], %g2
				add	%g2, %g1, %g2
				sll	%g1, 16, %g2
				cmp	%g2, 0
				bne,pt	%icc, .L941
				 mov	%i5, %i4
				xor	%l2, -562, %g1
		.LVL884:
				add	%fp, 2047, %g2
				sth	%g0, [%g2+%g1]
		.LVL885:
		.L940:
 1825          k = z;  z = s;  s = node;  node = k
				mov	1627, %g3
				sllx	%g3, 3, %g3
		.LVL880:
		.L941:
				lduh	[%g2+%g3], %g1
		.LVL882:
 1826       %REPEAT
				sth	%i4, [%g2+%g3]
		.LVL883:
		.LDL44:
		.LDL45:
 1827       ss = s
				sethi	%hi(SS.6160), %g1
				st	%i5, [%g1+%lo(SS.6160)]
		.LDL46:
 1828
 1829 a6:   %IF nmax # 0 %START
 1830          k = gentype;                             !type of phrase
				sethi	%hi(NMAX.6154), %g1
				lduw	[%g1+%lo(NMAX.6154)], %g2
				cmp	%g2, 0
				be,pn	%icc, .L942
				 add	%g2, -1, %g4
		.LVL886:
 1831          arp == ar(nmax);  nmax = nmax-1
				ldx	[%i0+8], %g1
		.LVL887:
 1832          node = arp_class
				sethi	%hi(NMAX.6154), %g3
				st	%g4, [%g3+%lo(NMAX.6154)]
				sra	%g2, 0, %g2
				sllx	%g2, 4, %g2
		.LVL888:
				add	%g1, %g2, %g1
		.LVL889:
				xor	%l2, -562, %g3
				mov	3253, %g2
				sllx	%g2, 2, %g2
				lduh	[%g1+%g2], %g2
				add	%fp, 2047, %g4
		.LVL890:
				sth	%g2, [%g4+%g3]
 1833          gentype = arp_link
				mov	1627, %g2
				sllx	%g2, 3, %g2
				ldsh	[%g1+%g2], %g3
				sethi	%hi(GENTYPE.6143), %g2
				st	%g3, [%g2+%lo(GENTYPE.6143)]
		.LVL891:
 1834          ptype = arp_ptype
				sethi	%hi(6665216), %l4
				srlx	%l4, 9, %l4
		.LBB671:
		.LBB665:
		.LBB643:
				ldsh	[%g1+%l4], %g3
				sethi	%hi(PTYPE.6144), %g2
				st	%g3, [%g2+%lo(PTYPE.6144)]
 1835          pformat = arp_pformat
				sethi	%hi(6667264), %g2
				srlx	%g2, 9, %g2
				ldsh	[%g1+%g2], %g3
				sethi	%hi(PFORMAT.6146), %g2
				st	%g3, [%g2+%lo(PFORMAT.6146)]
 1836          g = arp_sub
				sethi	%hi(6663168), %g2
				srlx	%g2, 9, %g2
				ldsh	[%g1+%g2], %g2
 1837          %IF g&escape # 0 %START
 1838             g = g-escape
				add	%g2, -4096, %g2
				st	%g2, [%i2+%lo(G.6148)]
 1839             papp = arp_papp
				mov	3255, %g2
				sllx	%g2, 2, %g2
				ldsh	[%g1+%g2], %g2
				sethi	%hi(PAPP.6145), %g1
				st	%g2, [%g1+%lo(PAPP.6145)]
		.LVL892:
 1840             mark = 255
 1841             subatom = s
				sethi	%hi(SUBATOM.6113), %g1
				st	%i5, [%g1+%lo(SUBATOM.6113)]
 1842             ->a3
				ba,pt	%xcc, .L917
				 mov	255, %l6
		.LVL893:
		.L942:
 1843          %FINISH
 1844          gentype = k %IF gentype = 0 %OR k = real
 1845          type = gen type
 1846
 1847          k = gg;                                  !exit-point code
 1848          %CYCLE
 1849             gg = gram(g)
 1850             ->a2 %IF k = 0
 1851             ->fail1 %IF gg >= 0;                  !no alternative phrase
 1852             k = k-order bit
 1853             g = g+1;                              !sideways step
 1854          %REPEAT
 1855
 1856       %FINISH
 1857
 1858       Fault(4)  %IF copy # 0
				sethi	%hi(COPY.6171), %g1
				lduw	[%g1+%lo(COPY.6171)], %g1
				cmp	%g1, 0
				bne,pn	%icc, .L983
				 mov	%i0, %g5
		.L943:
 1859       fault(13) %IF order = 0
				sethi	%hi(ORDER.6172), %g1
		.L991:
				lduw	[%g1+%lo(ORDER.6172)], %g1
				cmp	%g1, 0
				be,pn	%icc, .L984
				 mov	%i0, %g5
		.L944:
		.LDL47:
				call	FAULT.6349, 0
				 mov	4, %o0
		.LVL894:
				ba,pt	%xcc, .L991
				 sethi	%hi(ORDER.6172), %g1
		.L984:
 1860       fault(-4) %IF for warn # 0
				call	FAULT.6349, 0
				 mov	13, %o0
		.LVL895:
 1861       pos1 = 0
				sethi	%hi(POS1.6176), %g1
		.L992:
				st	%g0, [%g1+%lo(POS1.6176)]
				ba,pt	%xcc, .L992
				 sethi	%hi(POS1.6176), %g1
		.LVL896:
		.L938:
 1862       fault rate = fault rate-1
				sethi	%hi(FAULTRATE.6119), %g2
				lduw	[%g2+%lo(FAULTRATE.6119)], %g1
				add	%g1, -1, %g1
				st	%g1, [%g2+%lo(FAULTRATE.6119)]
		.L892:
 1863       %RETURN
 1864
 1865 act(193):gg = 0 %AND ->a5 %UNLESS sym = '=' %or sym = '<';  !cdummy
 1866 act(181):atom1 = amap(decl&15);                             !dummy
 1867          ->more
 1868
 1869 act(182):class = escdec;  g = glink(g)!escape
 1870          decl = 0;  otype = 0;  ->esc;                      !decl
 1871
 1872 act(199):                                                   !compile
 1873
 1874          s = 0
 1875          %WHILE node # 0 %CYCLE
 1876             z == ar(node)_link
 1877             k = z;  z = s;  s = node;  node = k
 1878          %repeat
 1879          ss = s
 1880
 1881          code atom(28) %IF quote # 0;                       !expend
 1882          compile;  ->more %IF atom1&error = 0
 1883          ->fail1
 1884
 1885 act(184):->fail4 %UNLESS type = integer
 1886          %IF subatom < 0 %THEN lit = tag(-subatom)_format %C
 1887                          %ELSE lit = lit pool(subatom)
 1888          ->fail4 %IF lit # 0
 1889          ->more
 1890 act(185):                                                   !apply parameters
 1891          s = 0
 1892          %WHILE node # 0 %CYCLE
 1893             z == ar(node)_link
 1894             k = z;  z = s;  s = node;  node = k
 1895          %REPEAT
 1896          ss = s
 1897
 1898          atom1 = ar(s)_class;  atom2 = 0
 1899          atom1 = var %IF atom1 = 97 %OR atom1 = 98
 1900          arp == ar(nmax)
 1901          x = arp_x
 1902          pos1 = arp_pos
 1903          pos2 = 0
 1904          app = 0
 1905          format = tag(x)_format
 1906          flags = tag(x)_flags
 1907          type = flags>>4&7
 1908          protection = flags&prot
 1909          protection = 0 %IF flags&aname # 0
 1910
 1911          %IF flags&subname # 0 %AND format # 0 %START
 1912             ->fail1 %if format selected = 0
 1913          %FINISH
 1914
 1915          ->a6
 1916
 1917 act(187):protection = prot;  ->more;            !%SETPROT
 1918 act(186):->More %if protection&prot = 0
 1919          prot err = nmin
 1920          ->A7
 1921 act(191):k = protection;                        !%GUARD
 1922          code atom(0)
 1923          protection = k %IF atom flags&aname = 0
 1924          ->more
 1925
 1926 act(192):->fail1 %IF parsed machine code=0
 1927          ->more
 1928
 1929 act(189):k = gapp;                              !%GAPP
 1930          delete names(1)
 1931          tmax = tbase;  tbase = gram (gmin);    !restore tmax
 1932          local= tbase
 1933          gmin = gmin+1
 1934
 1935          x = ar(ar(nmax)_class)_sub
 1936          tag(x)_app = k;                        !update app
 1937          ->more
 1938
 1939 act(190):gmin = gmin-1;                         !%LOCAL
 1940          abandon(2) %IF gmin <= gmax
 1941          gram (gmin) = tbase;  tbase = tmax
 1942          local = tbase
 1943          ->more
 1944
 1945 ! errors
 1946
 1947 fail4:k = error+10;            ->failed;        !*size
 1948 fail3:k = error+7;             ->failed;        !*context
 1949 fail2:k = error+5;  pos2 = 0;  ->failed;        !*type
 1950 fail0:k = error+3;             ->failed;        !*too complex
 1951 fail1:k = atom1;    pos2 = 0
 1952
 1953 failed:
				sethi	%hi(POS2.6177), %g1
		.L987:
				st	%g0, [%g1+%lo(POS2.6177)]
		.LVL751:
		.L915:
		.LBB673:
				ba,pt	%xcc, .L987
				 sethi	%hi(POS2.6177), %g1
		.LVL812:
		.L908:
		.L909:
		.L1005:
 1954       %IF diag&32 # 0 %START
 1955          printstring("Atom1 =");       write(atom1, 3)
				mov	256, %o2
		.L1002:
				sethi	%hi(.LC17), %o1
				or	%o1, %lo(.LC17), %o1
				call	memcpy, 0
				 add	%fp, 1527, %o0
		.LVL752:
				sethi	%hi(5120), %i4
				xor	%i4, -520, %i5
				add	%fp, 2047, %g1
				add	%g1, %i5, %i5
				mov	256, %o2
				add	%fp, 1527, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL753:
				mov	256, %o2
				mov	%i5, %o1
				call	memcpy, 0
				 add	%fp, 1527, %o0
		.LVL754:
		.LBE673:
		.LBB674:
		.LBB675:
				xor	%i4, -832, %i5
				add	%fp, 2047, %g1
				add	%g1, %i5, %i5
				mov	256, %o2
				add	%fp, 1527, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL755:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL756:
		.LBE675:
		.LBE674:
 1956          printstring("  Atom2 =");     write(atom2, 3)
				mov	3, %o1
				sethi	%hi(ATOM1.6111), %g1
				call	_imp_writeint, 0
				 ldsw	[%g1+%lo(ATOM1.6111)], %o0
		.LVL757:
		.LBB676:
				mov	256, %o2
				sethi	%hi(.LC18), %o1
				or	%o1, %lo(.LC18), %o1
				call	memcpy, 0
				 add	%fp, 503, %o0
		.LVL758:
				xor	%i4, -264, %i3
				add	%fp, 2047, %g1
				add	%g1, %i3, %i3
				mov	256, %o2
				add	%fp, 503, %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL759:
				mov	256, %o2
				mov	%i3, %o1
				call	memcpy, 0
				 add	%fp, 503, %o0
		.LVL760:
		.LBE676:
		.LBB677:
		.LBB678:
				mov	256, %o2
				add	%fp, 503, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL761:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL762:
		.LBE678:
		.LBE677:
 1957          printstring("  subatom =");   write(subatom, 3);  newline
				mov	3, %o1
				sethi	%hi(ATOM2.6112), %g1
				call	_imp_writeint, 0
				 ldsw	[%g1+%lo(ATOM2.6112)], %o0
		.LVL763:
		.LBB679:
				mov	256, %o2
				sethi	%hi(.LC19), %o1
				or	%o1, %lo(.LC19), %o1
				call	memcpy, 0
				 add	%fp, 247, %o0
		.LVL764:
				xor	%i4, -8, %i4
				add	%fp, 2047, %g1
				add	%g1, %i4, %i4
				mov	256, %o2
				add	%fp, 247, %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL765:
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 add	%fp, 247, %o0
		.LVL766:
		.LBE679:
		.LBB680:
		.LBB681:
				mov	256, %o2
				add	%fp, 247, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL767:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL768:
		.LBE681:
		.LBE680:
 1958          printstring("Type =");        write(type, 1)
				mov	3, %o1
				sethi	%hi(SUBATOM.6113), %g1
				call	_imp_writeint, 0
				 ldsw	[%g1+%lo(SUBATOM.6113)], %o0
		.LVL769:
		.LBB682:
		.LBB683:
				call	_imp_newline, 0
				 sethi	%hi(4096), %i4
		.LVL770:
		.LBE683:
		.LBE682:
		.LBB684:
				mov	256, %o2
				sethi	%hi(.LC20), %o1
				or	%o1, %lo(.LC20), %o1
				call	memcpy, 0
				 add	%fp, -9, %o0
		.LVL771:
				xor	%i4, -776, %i3
				add	%fp, 2047, %g1
				add	%g1, %i3, %i3
				mov	256, %o2
				add	%fp, -9, %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL772:
				mov	256, %o2
				mov	%i3, %o1
				call	memcpy, 0
				 add	%fp, -9, %o0
		.LVL773:
		.LBE684:
		.LBB685:
		.LBB686:
				mov	256, %o2
				add	%fp, -9, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL774:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL775:
		.LBE686:
		.LBE685:
 1959          printstring("   Ptype =");    write(ptype, 1);    newline
				mov	1, %o1
				sethi	%hi(TYPE.6114), %g1
				call	_imp_writeint, 0
				 ldsw	[%g1+%lo(TYPE.6114)], %o0
		.LVL776:
		.LBB687:
				mov	256, %o2
				sethi	%hi(.LC21), %o1
				or	%o1, %lo(.LC21), %o1
				call	memcpy, 0
				 add	%fp, -265, %o0
		.LVL777:
				xor	%i4, -520, %i3
				add	%fp, 2047, %g1
				add	%g1, %i3, %i3
				mov	256, %o2
				add	%fp, -265, %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL778:
				mov	256, %o2
				mov	%i3, %o1
				call	memcpy, 0
				 add	%fp, -265, %o0
		.LVL779:
		.LBE687:
		.LBB688:
		.LBB689:
				mov	256, %o2
				add	%fp, -265, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL780:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL781:
		.LBE689:
		.LBE688:
 1960          printstring("App =");         write(app, 1)
				mov	1, %o1
				sethi	%hi(PTYPE.6144), %g1
				call	_imp_writeint, 0
				 ldsw	[%g1+%lo(PTYPE.6144)], %o0
		.LVL782:
		.LBB690:
		.LBB691:
				call	_imp_newline, 0
				 xor	%i4, -264, %i3
		.LVL783:
		.LBE691:
		.LBE690:
		.LBB692:
				mov	256, %o2
				sethi	%hi(.LC22), %o1
				or	%o1, %lo(.LC22), %o1
				call	memcpy, 0
				 add	%fp, -521, %o0
		.LVL784:
				add	%fp, 2047, %g1
				add	%g1, %i3, %i3
				mov	256, %o2
				add	%fp, -521, %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL785:
				mov	256, %o2
				mov	%i3, %o1
				call	memcpy, 0
				 add	%fp, -521, %o0
		.LVL786:
		.LBE692:
		.LBB693:
		.LBB694:
				mov	256, %o2
				add	%fp, -521, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL787:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL788:
		.LBE694:
		.LBE693:
 1961          printstring("   Papp =");     write(papp, 1);     newline
				mov	1, %o1
				sethi	%hi(APP.6115), %g1
				call	_imp_writeint, 0
				 ldsw	[%g1+%lo(APP.6115)], %o0
		.LVL789:
		.LBB695:
				mov	256, %o2
				sethi	%hi(.LC23), %o1
				or	%o1, %lo(.LC23), %o1
				call	memcpy, 0
				 add	%fp, -777, %o0
		.LVL790:
				xor	%i4, -8, %i4
				add	%fp, 2047, %g1
				add	%g1, %i4, %i4
				mov	256, %o2
				add	%fp, -777, %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL791:
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 add	%fp, -777, %o0
		.LVL792:
		.LBE695:
		.LBB696:
		.LBB697:
				mov	256, %o2
				add	%fp, -777, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL793:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL794:
		.LBE697:
		.LBE696:
 1962          printstring("Format =");      write(format, 1)
				mov	1, %o1
				sethi	%hi(PAPP.6145), %g1
				call	_imp_writeint, 0
				 ldsw	[%g1+%lo(PAPP.6145)], %o0
		.LVL795:
		.LBB698:
		.LBB699:
				call	_imp_newline, 0
				 nop
		.LVL796:
		.LBE699:
		.LBE698:
		.LBB700:
				mov	256, %o2
				sethi	%hi(.LC24), %o1
				or	%o1, %lo(.LC24), %o1
				call	memcpy, 0
				 add	%fp, -1033, %o0
		.LVL797:
				mov	256, %o2
				add	%fp, -1033, %o1
				call	memcpy, 0
				 add	%fp, -1801, %o0
		.LVL798:
				mov	256, %o2
				add	%fp, -1801, %o1
				call	memcpy, 0
				 add	%fp, -1033, %o0
		.LVL799:
		.LBE700:
		.LBB701:
		.LBB702:
				mov	256, %o2
				add	%fp, -1033, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL800:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL801:
		.LBE702:
		.LBE701:
 1963          printstring("   Pformat =");  write(pformat, 1);  newline
				mov	1, %o1
				sethi	%hi(FORMAT.6116), %g1
				call	_imp_writeint, 0
				 ldsw	[%g1+%lo(FORMAT.6116)], %o0
		.LVL802:
		.LBB703:
				mov	256, %o2
				sethi	%hi(.LC25), %o1
				or	%o1, %lo(.LC25), %o1
				call	memcpy, 0
				 add	%fp, -1289, %o0
		.LVL803:
				mov	256, %o2
				add	%fp, -1289, %o1
				call	memcpy, 0
				 add	%fp, -1545, %o0
		.LVL804:
				mov	256, %o2
				add	%fp, -1545, %o1
				call	memcpy, 0
				 add	%fp, -1289, %o0
		.LVL805:
		.LBE703:
		.LBB704:
		.LBB705:
				mov	256, %o2
				add	%fp, -1289, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL806:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL807:
		.LBE705:
		.LBE704:
 1964 !IMP80 BUG???           %SIGNAL 13,15
				mov	1, %o1
				sethi	%hi(PFORMAT.6146), %g1
				call	_imp_writeint, 0
				 ldsw	[%g1+%lo(PFORMAT.6146)], %o0
		.LVL808:
		.LBB706:
		.LBB707:
				call	_imp_newline, 0
				 nop
		.LVL809:
		.LBE707:
		.LBE706:
		.LBB708:
		.LBB709:
				call	exit, 0
				 mov	0, %o0
		.LVL810:
		.L976:
		.LBE709:
		.LBE708:
 1965          %STOP
 1966        %FINISH
 1967
 1968        quote = 0 %AND readsym %WHILE sym # nl %AND sym # ';'
 1969        %IF k&error # 0 %START
 1970           fault(k&255)
 1971        %FINISH %ELSE %START
 1972          %IF prot err = nmin %THEN fault(14) %ELSE fault(0)
 1973        %FINISH
 1974        gg = 0;  ss = 0;  symtype = 0
 1975    %END;                                               !of analyse
 1976
 1977    %ROUTINE compile
				save	%sp, -4096, %sp
				add	%sp, -1200, %sp
				stx	%g5, [%fp-2953]
				ldx	[%g7+40], %g1
				stx	%g1, [%fp+2039]
				mov	0, %g1
				sethi	%hi(4096), %g2
				xor	%g2, -384, %g1
				add	%fp, 2047, %g3
				add	%g3, %g1, %g3
				add	%fp, 2047, %g4
				stx	%g4, [%g3+40]
				stx	%g5, [%g4+%g1]
 1978
				add	%i4, -180, %g1
				cmp	%g1, 20
				bgu,a,pt %icc, .L938
				 sethi	%hi(_imp_current_file), %g1
		.LVL878:
				ldx	[%g1+%lo(_imp_current_file)], %o1
				brz,pn	%o1, .L947
				 mov	256, %o2
				call	_imp_c2istr, 0
				 add	%fp, -9, %o0
		.LVL897:
				sethi	%hi(_imp_current_line), %g1
		.L994:
				lduw	[%g1+%lo(_imp_current_line)], %i3
				cmp	%i3, 0
				mov	1978, %g1
				move	%icc, %g1, %i3
				sethi	%hi(5120), %i5
		.LVL898:
				xor	%i5, -832, %i5
				add	%fp, 2047, %g1
				add	%g1, %i5, %i5
				mov	256, %o2
				add	%fp, -9, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL899:
				sra	%i4, 0, %o4
				mov	1818, %g1
				stx	%g1, [%sp+2239]
				sethi	%hi(.LC78), %g1
				or	%g1, %lo(.LC78), %g1
				stx	%g1, [%sp+2231]
				stx	%o4, [%sp+2223]
				sethi	%hi(.LC87), %o5
				or	%o5, %lo(.LC87), %o5
				mov	3, %o3
				mov	6, %o2
				sra	%i3, 0, %o1
				call	_signal_eventf, 0
				 mov	%i5, %o0
		.LVL900:
				sethi	%hi(.LC16), %o1
				or	%o1, %lo(.LC16), %o1
				call	memcpy, 0
				 add	%fp, 1527, %o0
		.LVL902:
				mov	256, %o2
				add	%fp, 1527, %o1
				call	memcpy, 0
				 add	%fp, -1033, %o0
		.LVL903:
		.LBE714:
				mov	256, %o2
				add	%fp, -1033, %o1
				call	memcpy, 0
				 add	%fp, -9, %o0
		.LVL904:
				ba,pt	%xcc, .L994
				 sethi	%hi(_imp_current_line), %g1
		.LVL905:
		.L951:
 1979       %CONSTINTEGER then = 4, else = 8, loop = 16
				add	%i4, -180, %g1
		.L993:
				sra	%g1, 0, %g1
				sllx	%g1, 3, %g1
				sethi	%hi(ACT.6593), %g2
				or	%g2, %lo(ACT.6593), %g2
				ba,pt	%xcc, .L950
				 ldx	[%g2+%g1], %g1
		.LVL879:
		.L922:
				ba,pt	%xcc, .L993
				 add	%i4, -180, %g1
		.LVL901:
		.L947:
		.LBB714:
 1980
 1981       %SWITCH c(0:actions), litop(1:12)
				sethi	%hi(_imp_current_file), %g1
				ldx	[%g1+%lo(_imp_current_file)], %o1
				brz,pn	%o1, .L986
				 mov	256, %o2
				call	_imp_c2istr, 0
				 add	%fp, 247, %o0
		.LVL906:
				sethi	%hi(_imp_current_line), %g1
		.L996:
				lduw	[%g1+%lo(_imp_current_line)], %i3
				cmp	%i3, 0
				mov	1981, %g1
				move	%icc, %g1, %i3
				sethi	%hi(5120), %i5
				xor	%i5, -832, %i5
				add	%fp, 2047, %g1
				add	%g1, %i5, %i5
				mov	256, %o2
				add	%fp, 247, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL907:
				sra	%i4, 0, %o4
				mov	1818, %g1
				stx	%g1, [%sp+2239]
				sethi	%hi(.LC78), %g1
				or	%g1, %lo(.LC78), %g1
				stx	%g1, [%sp+2231]
				stx	%o4, [%sp+2223]
				sethi	%hi(.LC88), %o5
				or	%o5, %lo(.LC88), %o5
				mov	2, %o3
				mov	8, %o2
				sra	%i3, 0, %o1
				call	_signal_eventf, 0
				 mov	%i5, %o0
		.LVL908:
				sethi	%hi(.LC16), %o1
				or	%o1, %lo(.LC16), %o1
				call	memcpy, 0
				 add	%fp, 1527, %o0
		.LVL909:
				mov	256, %o2
				add	%fp, 1527, %o1
				call	memcpy, 0
				 add	%fp, -777, %o0
		.LVL910:
		.LBE715:
				mov	256, %o2
				add	%fp, -777, %o1
				call	memcpy, 0
				 add	%fp, 247, %o0
		.LVL911:
				ba,pt	%xcc, .L996
				 sethi	%hi(_imp_current_line), %g1
		.L957:
		.LBB716:
 1982
 1983       %CONSTBYTEINTEGERARRAY operator(1:14) = %C
				mov	91, %g1
				stb	%g1, [%fp+2007]
				mov	93, %g1
				stb	%g1, [%fp+2008]
				mov	88, %g1
				stb	%g1, [%fp+2009]
				mov	47, %g1
				stb	%g1, [%fp+2010]
				mov	38, %g1
				stb	%g1, [%fp+2011]
				mov	33, %g1
				stb	%g1, [%fp+2012]
				mov	37, %g1
				stb	%g1, [%fp+2013]
				mov	43, %g1
				stb	%g1, [%fp+2014]
				mov	45, %g1
				stb	%g1, [%fp+2015]
				mov	42, %g1
				stb	%g1, [%fp+2016]
				mov	81, %g1
				stb	%g1, [%fp+2017]
				mov	120, %g1
				stb	%g1, [%fp+2018]
				mov	46, %g1
				stb	%g1, [%fp+2019]
				mov	118, %g1
				stb	%g1, [%fp+2020]
 1984                          '[',  ']',  'X',  '/', '&',  '!',  '%',  '+',
				cmp	%l5, 15
		.L995:
				bleu,pt	%icc, .L1008
				 sra	%l5, 0, %g1
				sethi	%hi(_imp_current_file), %g1
				ldx	[%g1+%lo(_imp_current_file)], %o1
				brz,pn	%o1, .L957
				 mov	256, %o2
				call	_imp_c2istr, 0
				 add	%fp, 503, %o0
		.LVL872:
				sethi	%hi(_imp_current_line), %g1
		.L997:
				lduw	[%g1+%lo(_imp_current_line)], %i3
				cmp	%i3, 0
				mov	1984, %g1
				move	%icc, %g1, %i3
				sethi	%hi(5120), %i5
				xor	%i5, -832, %i5
				add	%fp, 2047, %g1
				add	%g1, %i5, %i5
				mov	256, %o2
				add	%fp, 503, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL873:
				sra	%l5, 0, %o4
				mov	1815, %g1
				stx	%g1, [%sp+2239]
				sethi	%hi(.LC78), %g1
				or	%g1, %lo(.LC78), %g1
				stx	%g1, [%sp+2231]
				stx	%o4, [%sp+2223]
				sethi	%hi(.LC89), %o5
				or	%o5, %lo(.LC89), %o5
				mov	3, %o3
				mov	6, %o2
				sra	%i3, 0, %o1
				call	_signal_eventf, 0
				 mov	%i5, %o0
		.LVL874:
				ba,pt	%xcc, .L995
				 cmp	%l5, 15
		.L986:
		.LBB715:
				sethi	%hi(.LC16), %o1
				or	%o1, %lo(.LC16), %o1
				call	memcpy, 0
				 add	%fp, 1527, %o0
		.LVL912:
				mov	256, %o2
				add	%fp, 1527, %o1
				call	memcpy, 0
				 add	%fp, -521, %o0
		.LVL913:
		.LBE716:
				mov	256, %o2
				add	%fp, -521, %o1
				call	memcpy, 0
				 add	%fp, 503, %o0
		.LVL914:
				ba,pt	%xcc, .L997
				 sethi	%hi(_imp_current_line), %g1
		.L960:
 1985                          '-',  '*',  'Q',  'x', '.',  'v'
				sra	%l5, 0, %g1
		.L1008:
				sllx	%g1, 3, %g1
				sethi	%hi(PACTION.6598), %g2
				or	%g2, %lo(PACTION.6598), %g2
				ldx	[%g2+%g1], %g1
		.LVL875:
		.L950:
				jmp	%g1
				 nop
		.LVL876:
		.L924:
 1986
 1987       %CONSTBYTEINTEGERARRAY cc(0 : 7) = '#','=',')','<','(','>', 'k','t'
				mov	35, %g1
				stb	%g1, [%fp+1999]
				mov	61, %g1
				stb	%g1, [%fp+2000]
				mov	41, %g1
				stb	%g1, [%fp+2001]
				mov	60, %g1
				stb	%g1, [%fp+2002]
				mov	40, %g1
				stb	%g1, [%fp+2003]
				mov	62, %g1
				stb	%g1, [%fp+2004]
				mov	107, %g1
				stb	%g1, [%fp+2005]
				mov	116, %g1
				stb	%g1, [%fp+2006]
				sethi	%hi(_imp_current_file), %g1
				ldx	[%g1+%lo(_imp_current_file)], %o1
				brz,pn	%o1, .L961
				 mov	256, %o2
				call	_imp_c2istr, 0
				 add	%fp, 1527, %o0
		.LVL915:
				sethi	%hi(_imp_current_line), %g1
		.L998:
				lduw	[%g1+%lo(_imp_current_line)], %i4
		.LVL916:
				cmp	%i4, 0
				mov	1987, %g1
				move	%icc, %g1, %i4
				sethi	%hi(5120), %i5
				xor	%i5, -832, %i5
				add	%fp, 2047, %g1
				add	%g1, %i5, %i5
				mov	256, %o2
				add	%fp, 1527, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL917:
				sra	%l5, 0, %o4
				mov	1815, %g1
				stx	%g1, [%sp+2239]
				sethi	%hi(.LC78), %g1
				or	%g1, %lo(.LC78), %g1
				stx	%g1, [%sp+2231]
				stx	%o4, [%sp+2223]
				sethi	%hi(.LC90), %o5
				or	%o5, %lo(.LC90), %o5
				mov	2, %o3
				mov	8, %o2
				sra	%i4, 0, %o1
				call	_signal_eventf, 0
				 mov	%i5, %o0
		.LVL918:
				ba,pt	%xcc, .L892
				 nop
		.LVL919:
		.L961:
		.LBB717:
				sethi	%hi(.LC16), %o1
				or	%o1, %lo(.LC16), %o1
				call	memcpy, 0
				 add	%fp, 1527, %o0
		.LVL920:
				mov	256, %o2
				add	%fp, 1527, %o1
				call	memcpy, 0
				 add	%fp, -265, %o0
		.LVL921:
		.LBE717:
				mov	256, %o2
				add	%fp, -265, %o1
				call	memcpy, 0
				 add	%fp, 1527, %o0
		.LVL922:
				ba,pt	%xcc, .L998
				 sethi	%hi(_imp_current_line), %g1
		.LVL923:
		.L912:
 1988
				ldx	[%fp+2039], %g1
				ldx	[%g7+40], %g2
				xor	%g1, %g2, %g1
				mov	0, %g2
				brnz,pn	%g1, .L985
				 nop
				return	%i7+8
				 nop
		.L983:
				call	__stack_chk_fail, 0
				 nop
		.LVL927:
				nop
		.LFE198:
				.section	".rodata"
		.LC8:
				.byte	5
				.asciz	"Begin"
				.skip	249
		.LC9:
				.byte	10
				.asciz	"Procedure "
				.skip	244
		.LC10:
				.byte	3
				.asciz	"End"
				.skip	251
				.section	".text"
				.align 4
				.proc	020
		COMPILEBLOCK.6323:
		.LFB191:
 1989       %CONSTBYTEINTEGERARRAY anyform(0:15) = 1,0,1,1(4),1,0,1,1,0,1,1,1,1
				mov	1, %g1
				stb	%g1, [%fp+2023]
				stb	%g0, [%fp+2024]
				stb	%g1, [%fp+2025]
				stb	%g1, [%fp+2026]
				stb	%g1, [%fp+2027]
				stb	%g1, [%fp+2028]
				stb	%g1, [%fp+2029]
				stb	%g1, [%fp+2030]
				stb	%g0, [%fp+2031]
				stb	%g1, [%fp+2032]
				stb	%g1, [%fp+2033]
				stb	%g0, [%fp+2034]
				stb	%g1, [%fp+2035]
				stb	%g1, [%fp+2036]
				stb	%g1, [%fp+2037]
				stb	%g1, [%fp+2038]
 1990
 1991       %CONSTSHORTINTEGERARRAY decmap(0:15) = %C
				xor	%g2, -336, %g1
				mov	1, %g3
				sth	%g3, [%g4+%g1]
				add	%g4, %g1, %g1
				mov	2, %g3
				sth	%g3, [%g1+2]
				or	%g2, 11, %g3
				sth	%g3, [%g1+4]
				or	%g2, 13, %g3
				sth	%g3, [%g1+6]
				sethi	%hi(5120), %g3
				or	%g3, 12, %g4
				sth	%g4, [%g1+8]
				or	%g3, 14, %g3
				sth	%g3, [%g1+10]
				mov	3, %g3
				sth	%g3, [%g1+12]
				mov	4, %g3
				sth	%g3, [%g1+14]
				or	%g2, 7, %g3
				sth	%g3, [%g1+16]
				or	%g2, 8, %g3
				sth	%g3, [%g1+18]
				or	%g2, 9, %g3
				sth	%g3, [%g1+20]
				or	%g2, 10, %g2
				sth	%g2, [%g1+22]
				mov	6, %g2
				sth	%g2, [%g1+24]
				sth	%g0, [%g1+26]
				sth	%g0, [%g1+28]
				sth	%g0, [%g1+30]
 1992          1,             2,
 1993          x'100B',       x'100D',       x'140C',      x'140E',
 1994          3,             4,
 1995          x'1007',       x'1008',       x'1009',      x'100A',
 1996          6,             0,             0,            0
 1997       %OWNBYTEINTEGERARRAY cnest(0:15)
 1998       %INTEGER lmode, clab, dupid
 1999       %INTEGER resln
 2000       %OWNINTEGER last def = 0
 2001       %OWNINTEGER lb, ub
 2002       %INTEGER cp, ord
 2003       %INTEGER next, link, j, k, n, done
 2004       %INTEGER class
 2005       %INTEGER lit2, defs, decs, cident
 2006       %INTEGER pending;  %OWNINTEGERARRAY pstack(1:40)
 2007       %OWNSTRING(8) name = ""
 2008       %OWNINTEGER count = 0
 2009
 2010       %ROUTINE def lab(%INTEGER l)
		.LVL9:
				save	%sp, -176, %sp
		.LVL10:
				mov	%g5, %i5
 2011          op(':', l)
				ldx	[%g5], %g1
				ldx	[%g1+8], %g5
				mov	%i0, %o1
				call	OP.6313, 0
				 mov	58, %o0
		.LVL11:
 2012          access = 1
				ldx	[%i5], %g1
				mov	1, %g2
				st	%g2, [%g1+36]
 2013       %END
 2014
				return	%i7+8
				 nop
		.LFE210:
				.align 4
				.proc	020
		POPLIT.7342:
		.LFB219:
 2015       %ROUTINE get next
				save	%sp, -1728, %sp
				ldx	[%g7+40], %g1
				stx	%g1, [%fp+2039]
				mov	0, %g1
				sethi	%hi(X.6110), %g1
				lduw	[%g1+%lo(X.6110)], %g3
				mov	0, %g2
 2016          %RECORD(arfm)%NAME p
 2017 gn:      %IF next = 0 %START;                        !end of phrase
 2018             class = 0 %AND %RETURN %IF link = 0;     !end of statement
				lduw	[%g5+36], %g1
				cmp	%g1, 0
				bne,a,pt %icc, .L383
				 add	%g1, -1, %g2
				lduw	[%g5+32], %g1
				cmp	%g1, 0
				be,pn	%icc, .L376
				 sra	%g1, 0, %g1
		.L361:
		.LVL323:
 2019             p == ar(link)
				ldx	[%g5], %g2
				sllx	%g1, 4, %g1
		.LVL324:
				ldx	[%g2+8], %g2
				add	%g2, %g1, %g1
 2020             next = p_link
				mov	1627, %i1
				sllx	%i1, 3, %i1
				ldsh	[%g1+%i1], %g2
				st	%g2, [%g5+36]
		.LVL325:
				ba,pt	%xcc, .L358
				 st	%g0, [%g5+28]
		.L378:
				ba,pt	%xcc, .L362
				 st	%g3, [%g1+%lo(X.6110)]
		.LVL328:
		.L377:
				sethi	%hi(X.6110), %g1
				ba,pt	%xcc, .L365
				 st	%g3, [%g1+%lo(X.6110)]
		.LVL329:
		.L369:
 2021             link = p_sub
				sethi	%hi(6663168), %i5
				srlx	%i5, 9, %i5
				ldsh	[%g1+%i5], %g1
				st	%g1, [%g5+32]
 2022          %FINISH
 2023          %CYCLE
 2024             p == ar(next)
				lduw	[%g5+36], %g1
				add	%g1, -1, %g2
		.L383:
				ldx	[%g5], %g3
				ldx	[%g3+8], %g4
		.LVL326:
				sra	%g1, 0, %g1
				sllx	%g1, 4, %g1
				add	%g4, %g1, %g1
				add	%g3, -1, %g2
				ldx	[%g5], %g1
				ldx	[%g1+8], %g4
		.LVL330:
				sra	%g3, 0, %g3
				sllx	%g3, 4, %g3
				add	%g4, %g3, %g1
 2025             x = p_sub
				ldsh	[%g1+%i5], %g3
				ldsh	[%g1+%i5], %g3
 2026             class = p_class
				mov	3253, %i4
				sllx	%i4, 2, %i4
				ldsh	[%g1+%i4], %g1
				ldsh	[%g1+%i4], %g1
 2027             %EXIT %IF class < actions;               !an atom
				cmp	%g1, 179
				ble,pn	%icc, .L377
				 st	%g1, [%g5+28]
				cmp	%g1, 179
				ble,pn	%icc, .L379
				 st	%g1, [%g5+28]
		.L368:
 2028             %IF x = 0 %START;                        !null phrase
				cmp	%g3, 0
				bne,pt	%icc, .L384
				 sra	%g2, 0, %g1
		.LVL327:
		.L367:
				cmp	%g3, 0
				be,pn	%icc, .L367
				 sra	%g2, 0, %g1
		.LVL331:
		.L366:
		.L384:
				sllx	%g1, 4, %g1
		.LVL332:
				add	%g4, %g1, %g1
 2029                next = p_link;  ->gn
				sra	%g2, 0, %g3
				add	%g3, 814, %g3
				sllx	%g3, 4, %g3
				add	%g4, %g3, %g1
				ldsh	[%g1+8], %g1
				st	%g1, [%g5+36]
				mov	%o7, %g3
 2030             %FINISH
				ba,pt	%xcc, .L359
				 mov	%i0, %g2
		.L376:
				andcc	%g2, 0xff, %g0
				bne,pn	%icc, .L378
				 sethi	%hi(X.6110), %g1
		.L362:
 2031             %IF p_link # 0 %START;                   !follow a phrase
				mov	1629, %i3
				sllx	%i3, 3, %i3
				ldsh	[%g1+%i3], %g2
		.LVL333:
				cmp	%g2, 0
				be,a,pt	%icc, .L385
				 st	%g3, [%g5+36]
 2032                p_sub = link;  link = next
				sethi	%hi(6671360), %i2
				srlx	%i2, 9, %i2
				mov	0, %o7
				mov	1, %i0
		.L359:
				lduw	[%g5+32], %g2
				sth	%g2, [%g1+%i2]
 2033             %FINISH
				lduw	[%g5+36], %g1
				ba,pt	%xcc, .L369
				 st	%g1, [%g5+32]
		.LVL334:
		.L379:
				sethi	%hi(X.6110), %g1
				st	%g3, [%g1+%lo(X.6110)]
		.LVL335:
		.L365:
 2034             next = x
				st	%g3, [%g5+36]
		.L385:
 2035          %REPEAT
 2036          next = p_link
				sra	%g2, 0, %g2
				add	%g2, 814, %g2
				sllx	%g2, 4, %g2
				add	%g4, %g2, %g1
				ldsh	[%g1+8], %g1
				st	%g1, [%g5+36]
 2037          %IF diag&2 # 0 %START
 2038             spaces(8-length(name)) %UNLESS name = ""
 2039             name = text(class)
 2040             write(x, 2)
				add	%fp, 759, %o1
				sethi	%hi(NAME.7239), %o0
				call	_imp_strcmp, 0
				 or	%o0, %lo(NAME.7239), %o0
		.LVL336:
				cmp	%o0, 0
				bne,pn	%icc, .L380
				 sethi	%hi(NAME.7239), %g1
		.L370:
				mov	2, %o1
				sethi	%hi(X.6110), %g1
				call	_imp_writeint, 0
				 ldsw	[%g1+%lo(X.6110)], %o0
		.LVL338:
		.LBB396:
		.LBB397:
				call	_imp_space, 0
				 nop
		.LVL339:
				mov	256, %o2
				add	%fp, 1271, %o1
				call	memcpy, 0
				 add	%fp, 1783, %o0
		.LVL340:
		.LBE397:
		.LBE396:
		.LBB398:
		.LBB399:
				mov	256, %o2
				add	%fp, 1783, %o1
				call	memcpy, 0
				 add	%fp, 495, %o0
		.LVL341:
				call	_imp_printstring, 0
				 add	%fp, 495, %o0
		.LVL342:
		.LBE399:
		.LBE398:
		.LBB400:
		.LBB401:
				call	_imp_space, 0
				 nop
		.LVL343:
		.LBE401:
		.LBE400:
 2041             space
				mov	8, %o2
		.L382:
				add	%fp, 1015, %o1
				sethi	%hi(NAME.7239), %o0
				call	_imp_strncpy, 0
				 or	%o0, %lo(NAME.7239), %o0
		.LVL337:
				ba,pt	%xcc, .L382
				 mov	8, %o2
		.L371:
 2042             printstring(name)
 2043             space
				ldub	[%g1+%lo(NAME.7239)], %g1
				mov	8, %o0
				sub	%o0, %g1, %o0
		.LBB402:
		.LBB403:
				call	_imp_spaces, 0
				 sra	%o0, 0, %o0
		.LVL345:
		.LBE403:
		.LBE402:
 2044             count = count-1
				sethi	%hi(COUNT.7240), %g1
				lduw	[%g1+%lo(COUNT.7240)], %g1
				add	%g1, -1, %g1
				st	%g1, [%g2+%lo(COUNT.7240)]
		.L363:
		.L372:
		.L358:
 2045             %IF count <= 0 %START
				cmp	%g1, 0
				ble,pn	%icc, .L371
				 sethi	%hi(COUNT.7240), %g2
 2046                count = 5
				sethi	%hi(COUNT.7240), %g1
				mov	5, %g2
				st	%g2, [%g1+%lo(COUNT.7240)]
		.LVL346:
 2047                name = ""
 2048                newline
 2049             %FINISH
				mov	8, %o2
				add	%fp, 1527, %o1
				sethi	%hi(NAME.7239), %o0
				call	_imp_strncpy, 0
				 or	%o0, %lo(NAME.7239), %o0
		.LVL347:
		.LBB404:
		.LBB405:
				call	_imp_newline, 0
				 nop
		.LVL348:
				ba,pt	%xcc, .L358
				 nop
		.L381:
		.LBE405:
		.LBE404:
 2050          %FINISH
 2051       %END
 2052
				ldx	[%fp+2039], %g1
				ldx	[%g7+40], %g2
				xor	%g1, %g2, %g1
				mov	0, %g2
				brnz,pn	%g1, .L381
				 nop
				return	%i7+8
				 nop
		.L380:
		.LVL344:
				call	__stack_chk_fail, 0
				 nop
		.LVL349:
				nop
		.LFE211:
				.align 4
				.proc	020
		SETSUBS.7270:
		.LFB212:
 2053       %ROUTINE set subs(%INTEGER n)
		.LVL350:
				save	%sp, -176, %sp
		.LVL351:
 2054
 2055          !update the app field in n array descriptors
 2056
 2057          %INTEGER p
 2058          p = tmax
				ldx	[%g5], %g1
		.LVL352:
 2059          %WHILE n > 0 %CYCLE
 2060 !IMP80 BUG???              %SIGNAL 15,15 %IF p < tbase
				cmp	%i0, 0
				ble,pn	%icc, .L395
				 lduw	[%g1+64], %g2
				cmp	%i0, %g2
				be,pn	%icc, .L395
				 st	%g4, [%g1+4]
 2061             %STOP %IF p < tbase
				lduw	[%g1+68], %g3
				cmp	%g2, %g3
				bl,pn	%icc, .L389
				 sub	%g2, %i0, %i0
		.L390:
				ldx	[%g5], %g1
				lduw	[%g1+68], %g3
				cmp	%g3, %g2
				ble,a,pt %icc, .L394
				 ldx	[%g1+8], %g3
		.L389:
		.LVL355:
		.LBB406:
		.LBB407:
				call	exit, 0
				 mov	0, %o0
		.LVL356:
		.L387:
		.L395:
		.LBE407:
		.LBE406:
 2062             tag(p)_app = dimension
				sethi	%hi(DIMENSION.6179), %g4
				lduw	[%g4+%lo(DIMENSION.6179)], %g4
		.LVL353:
				ldx	[%g1+8], %g3
		.L394:
				sra	%g2, 0, %g1
				add	%g1, 13, %g1
				sllx	%g1, 4, %g1
				add	%g3, %g1, %g1
 2063             p = p-1;  n = n-1
				add	%g2, -1, %g2
		.LVL354:
		.LDL18:
 2064          %REPEAT
 2065       %END
 2066
				return	%i7+8
				 nop
		.LFE212:
				.section	.rodata.str1.8
				.align 8
		.LC82:
				.asciz	"switch jump to undefined label FM(%d): at %s line %d"
				.section	".rodata"
		.LC31:
				.byte	8
				.asciz	"      ! "
				.skip	246
		.LC32:
				.byte	5
				.asciz	"fault"
				.skip	249
				.section	".text"
				.align 4
				.proc	020
		FAULT.6349:
		.LFB192:
 2067       %ROUTINE set bp
				save	%sp, -176, %sp
 2068
 2069          !define a constant bound pair from the last stacked constants
 2070
 2071          pending = pending-2
				lduw	[%g5+24], %g1
				add	%g1, -2, %g2
				st	%g2, [%g5+24]
 2072          lb = pstack(pending+1);  ub = pstack(pending+2)
				sethi	%hi(PSTACK.7238), %g3
				or	%g3, %lo(PSTACK.7238), %g3
				sra	%g2, 0, %g2
				sllx	%g2, 2, %g2
				lduw	[%g3+%g2], %g2
				sethi	%hi(LB.7222), %g4
				st	%g2, [%g4+%lo(LB.7222)]
 2073          %IF ub-lb+1 < 0 %START
				add	%g1, -1, %g1
				sra	%g1, 0, %g1
				sllx	%g1, 2, %g1
				lduw	[%g3+%g1], %g1
				sethi	%hi(UB.7223), %g3
				st	%g1, [%g3+%lo(UB.7223)]
				sub	%g1, %g2, %g1
				addcc	%g1, 1, %g0
				bneg,pn	%icc, .L459
				 mov	%g5, %i5
		.L457:
 2074             pos1 = 0;  next = link;  fault(11)
				sethi	%hi(POS1.6176), %g1
				st	%g0, [%g1+%lo(POS1.6176)]
 2075             ub = lb
				lduw	[%g5+32], %g1
				st	%g1, [%g5+36]
				sethi	%hi(LB.7222), %g1
				lduw	[%g1+%lo(LB.7222)], %g2
				sethi	%hi(UB.7223), %g1
				ba,pt	%xcc, .L457
				 st	%g2, [%g1+%lo(UB.7223)]
		.LFE213:
				.align 4
				.proc	020
		DEFSLAB.7319:
		.LFB216:
 2076          %FINISH
				ldx	[%g5], %g5
				call	FAULT.6349, 0
				 mov	11, %o0
		.LVL416:
 2077          set const(lb);  set const(ub)
				ldx	[%i5], %g1
				ldx	[%g1+8], %g5
				sethi	%hi(LB.7222), %g1
				call	SETCONST.6316, 0
				 ldsw	[%g1+%lo(LB.7222)], %o0
		.LVL414:
 2078          bp=bp+1 %AND buff(bp)='b' %UNLESS class = 146
				ldx	[%i5], %g1
				ldx	[%g1+8], %g5
				sethi	%hi(UB.7223), %g1
				call	SETCONST.6316, 0
				 ldsw	[%g1+%lo(UB.7223)], %o0
		.LVL415:
				lduw	[%i5+28], %g1
				cmp	%g1, 146
				be,pn	%icc, .L460
				 sethi	%hi(BP.6197), %g2
 2079       %END
				lduw	[%g2+%lo(BP.6197)], %g1
				add	%g1, 1, %g3
				st	%g3, [%g2+%lo(BP.6197)]
 2080
				ldx	[%i5], %g2
				ldx	[%g2+8], %g2
				sra	%g1, 0, %g1
				add	%g2, %g1, %g1
				sethi	%hi(53611520), %g2
				srlx	%g2, 9, %g2
				mov	98, %g3
				stb	%g3, [%g1+%g2]
		.L458:
		.L460:
				return	%i7+8
				 nop
		.L459:
 2081       %ROUTINE compile end(%INTEGER type)
 2082
 2083          ! type = 0:eof, 1:eop, 2:end
 2084
 2085          %IF access # 0 %START
				sethi	%hi(4096), %g1
				xor	%g1, -384, %g1
				add	%fp, 2047, %g2
				ldx	[%g2+%g1], %g5
				lduw	[%g5+36], %g1
				cmp	%g1, 0
				bne,a,pt %icc, .L619
				 st	%g0, [%g5+32]
 2086             open = 0
 2087             fault(19) %IF block form > proc;           !can reach end
				lduw	[%g5+48], %g1
				cmp	%g1, 7
				ble,a,pt %icc, .L843
				 sethi	%hi(4096), %g1
 2088          %FINISH
				call	FAULT.6349, 0
				 mov	19, %o0
		.LVL550:
		.LBE552:
		.LBE558:
 2089
 2090          %WHILE dict(dmin) >= 0 %CYCLE;                !finishes & repeats
 2091             fault(17+dict(dmin)&1)
				sethi	%hi(4096), %g1
		.L843:
				xor	%g1, -384, %g1
				add	%fp, 2047, %g2
				ldx	[%g2+%g1], %g5
				ldx	[%g5+8], %g3
				lduw	[%g5+52], %g1
				add	%g1, -1, %g1
				sra	%g1, 0, %g1
				mov	1677, %g2
				sllx	%g2, 3, %g2
				add	%g1, %g2, %g1
				add	%g1, %g1, %g1
				add	%g3, %g1, %g1
				lduh	[%g1+4], %g2
				ldsh	[%g1+4], %g1
				cmp	%g1, 0
				bl,pn	%icc, .L620
				 mov	1677, %i4
				sllx	%i4, 3, %i4
				and	%g2, 1, %g2
		.L873:
				add	%g2, 17, %o0
				call	FAULT.6349, 0
				 sra	%o0, 0, %o0
		.LVL544:
				ldx	[%g5+8], %g3
				sra	%g1, 0, %g1
				add	%g1, %i4, %g1
				add	%g1, %g1, %g1
				add	%g3, %g1, %g1
				lduh	[%g1+4], %g2
				ldsh	[%g1+4], %g1
				cmp	%g1, 0
				bge,pt	%icc, .L873
				 and	%g2, 1, %g2
		.L620:
				ba,pt	%xcc, .L843
				 sethi	%hi(4096), %g1
		.L810:
		.LBB559:
		.LBB553:
 2092             dmin = dmin+1
				sethi	%hi(4096), %i3
				xor	%i3, -384, %i3
				add	%fp, 2047, %g1
				ldx	[%g1+%i3], %g5
				lduw	[%g5+52], %g1
				add	%g1, 1, %g2
				st	%g2, [%g5+52]
 2093          %REPEAT
 2094          {delete names(0)}
 2095          bp=bp+1 %AND buff(bp)=';'
				sethi	%hi(BP.6197), %g2
				lduw	[%g2+%lo(BP.6197)], %g1
				add	%g1, 1, %g4
				st	%g4, [%g2+%lo(BP.6197)]
 2096          bp=bp+1 %AND buff(bp)=';' %IF type = 1;       !endofprogram
				sra	%g1, 0, %g2
				add	%g3, %g2, %g3
				sethi	%hi(53611520), %g2
				srlx	%g2, 9, %g2
				mov	59, %i4
				cmp	%i5, 1
				be,pn	%icc, .L810
				 stb	%i4, [%g3+%g2]
		.L623:
 2097
				add	%g1, 2, %g1
				sethi	%hi(BP.6197), %g2
				st	%g1, [%g2+%lo(BP.6197)]
 2098          bflags = bflags!open;                         !show if it returns
				ldx	[%g5], %g2
				lduw	[%g5+32], %g1
				lduh	[%g2], %g3
				or	%g1, %g3, %g1
				sth	%g1, [%g2]
				ldx	[%g5+8], %g1
				sra	%g4, 0, %g4
				add	%g1, %g4, %g4
				sethi	%hi(53611520), %g1
				srlx	%g1, 9, %g1
				mov	59, %g2
				stb	%g2, [%g4+%g1]
				ldx	[%g5], %g2
				lduw	[%g5+32], %g1
				lduh	[%g2], %g3
				or	%g1, %g3, %g1
				sth	%g1, [%g2]
 2099
 2100          def lab(0) %IF block tag # 0 %AND level # 1;  !for jump around
				sethi	%hi(4096), %g1
				xor	%g1, -384, %g1
				add	%fp, 2047, %g2
				ldx	[%g2+%g1], %g1
				lduw	[%g1+28], %g2
				cmp	%g2, 0
				be,pt	%icc, .L874
				 cmp	%i5, 2
				sethi	%hi(4096), %g1
				xor	%g1, -384, %g1
				add	%fp, 2047, %g2
				ldx	[%g2+%g1], %g1
				lduw	[%g1+28], %g2
				cmp	%g2, 0
				be,a,pt	%icc, .L842
				 sethi	%hi(4096), %g1
 2101          %IF type # 2 %START;                          !eop, eof
				lduw	[%g1+60], %g1
				cmp	%g1, 1
				bne,pn	%icc, .L768
				 cmp	%i5, 2
		.L495:
		.L766:
				be,a,pt	%icc, .L844
				 sethi	%hi(ENDMARK.6131), %g1
		.LBE551:
		.LBE550:
				lduw	[%g1+60], %g1
				cmp	%g1, 1
				be,pt	%icc, .L842
				 sethi	%hi(4096), %g1
		.L768:
				cmp	%i5, 2
		.L874:
				be,pn	%icc, .L628
				 sethi	%hi(4096), %g1
		.L842:
 2102             fault(16) %IF level # type;                !end missing
				ba,pt	%xcc, .L842
				 sethi	%hi(4096), %g1
		.LVL545:
		.L809:
				sethi	%hi(4096), %g5
				xor	%g5, -384, %g5
				add	%fp, 2047, %g1
				add	%g1, %g5, %g5
				call	DEFLAB.7242, 0
				 mov	0, %o0
		.LVL551:
		.L626:
				xor	%g1, -384, %g1
				add	%fp, 2047, %g2
				ldx	[%g2+%g1], %g5
				lduw	[%g5+60], %g1
				cmp	%i5, %g1
				bne,pn	%icc, .L811
				 nop
		.L629:
		.L630:
		.L631:
 2103          %FINISH %ELSE %START
				call	FAULT.6349, 0
				 mov	16, %o0
		.LVL552:
		.LBE554:
		.LBE560:
 2104             %IF level = 0 %START
				xor	%g1, -384, %g1
				add	%fp, 2047, %g2
				ldx	[%g2+%g1], %g5
				lduw	[%g5+60], %g1
				cmp	%g1, 0
				bne,a,pn %icc, .L844
				 sethi	%hi(ENDMARK.6131), %g1
 2105                fault(15);                              !spurious end
				call	FAULT.6349, 0
				 mov	15, %o0
		.LVL553:
		.LBE555:
		.LBE561:
 2106             %FINISH
 2107          %FINISH
 2108
 2109          end mark = 11;               !******Mouses specific******
				sethi	%hi(ENDMARK.6131), %g1
		.L844:
				mov	11, %g2
		.LBE553:
		.LBE559:
				ba,pt	%xcc, .L471
				 st	%g2, [%g1+%lo(ENDMARK.6131)]
		.L811:
		.LBB560:
		.LBB554:
				ba,pt	%xcc, .L844
				 sethi	%hi(ENDMARK.6131), %g1
		.L628:
		.LBB561:
		.LBB555:
				ba,pt	%xcc, .L844
				 sethi	%hi(ENDMARK.6131), %g1
		.LVL554:
		.L632:
		.LDL26:
		.LDL27:
		.LDL28:
 2110       %END
 2111
 2112       %ROUTINE def(%INTEGER p)
		.LVL101:
				save	%sp, -176, %sp
		.LVL102:
 2113
 2114          !dump a descriptor
 2115
 2116          %INTEGER t, f, type
 2117          %RECORD(tagfm)%NAME v
 2118          flush buffer %if bp # 0
				sethi	%hi(BP.6197), %g1
				lduw	[%g1+%lo(BP.6197)], %g1
				cmp	%g1, 0
				bne,pn	%icc, .L90
				 mov	%g5, %i4
		.L76:
 2119          defs = defs+1
				lduw	[%i4+20], %g1
		.L94:
				add	%g1, 1, %g1
				st	%g1, [%i4+20]
				ldx	[%g5], %g1
				call	FLUSHBUFFER.6207, 0
				 ldx	[%g1+8], %g5
		.LVL125:
				ba,pt	%xcc, .L94
				 lduw	[%i4+20], %g1
		.LVL126:
		.L92:
 2120          v == tag(p)
				ldx	[%i4], %g2
		.LVL103:
				sllx	%i0, 4, %g1
				ldx	[%g2+8], %i3
				add	%i3, %g1, %i3
 2121          t = 0
 2122          %UNLESS v_index < 0 %START;                   !no index for subnames
				lduh	[%i3+222], %g1
				ldsh	[%i3+222], %g3
				cmp	%g3, 0
				bl,pn	%icc, .L77
				 mov	0, %o1
 2123             id = id+1 %AND v_index = id %IF v_index = 0
				sll	%g1, 16, %g1
				cmp	%g1, 0
				bne,a,pt %icc, .L77
				 ldsh	[%i3+222], %o1
 2124             last def = v_index
				lduw	[%g2+56], %g1
				add	%g1, 1, %g1
				st	%g1, [%g2+56]
				ldsh	[%i3+222], %o1
		.LVL105:
		.L77:
 2125             t = last def
				ldx	[%i4], %g1
				lduw	[%g1+56], %g1
				sth	%g1, [%i3+222]
		.LVL104:
		.L78:
 2126          %FINISH
 2127          op('$', t)
				ldx	[%i4], %g1
				ldx	[%g1+8], %g5
				sra	%o1, 0, %o1
				call	OP.6313, 0
				 mov	36, %o0
		.LVL106:
 2128          print ident(p, 1);                            !output the name
				ldx	[%i4], %g1
				ldx	[%g1+8], %g5
				mov	1, %o1
				call	PRINTIDENT.6220, 0
				 mov	%i0, %o0
		.LVL107:
 2129          t = v_flags
				lduh	[%i3+220], %i5
		.LVL108:
		.LDL5:
				and	%i5, 15, %i2
 2130          type = t
 2131          type = type&(\(7<<4)) %IF type&(7<<4) >= 6<<4;!routine & pred
 2132          op(',', type&b'1111111');             !type & form
				mov	%i2, %i1
				ldx	[%i4], %g1
				ldx	[%g1+8], %g5
				sra	%i2, 0, %o1
				call	OP.6313, 0
				 mov	44, %o0
		.LVL109:
 2133          f = v_format
 2134          f = tag(f)_index %IF t&x'70' = record<<4
				andcc	%i5, 1, %i0
				bne,pt	%icc, .L79
				 lduw	[%i3+216], %o1
 2135          f = v_index %IF f < 0
				ldx	[%i4], %g1
				ldx	[%g1+8], %g1
				sra	%o1, 0, %o1
				add	%o1, 13, %o1
		.LVL110:
				sllx	%o1, 4, %o1
		.LVL111:
				add	%g1, %o1, %o1
				ldsh	[%o1+14], %o1
		.LVL112:
		.L79:
				cmp	%o1, 0
				bl,a,pn	%icc, .L80
				 ldsh	[%i3+222], %o1
		.L80:
 2136          op(',', f);               !format
				ldx	[%i4], %g1
				ldx	[%g1+8], %g5
				sra	%o1, 0, %o1
				call	OP.6313, 0
				 mov	44, %o0
		.LVL113:
 2137          f = otype+t>>4&b'1111000'
				sethi	%hi(OTYPE.6140), %g1
				lduw	[%g1+%lo(OTYPE.6140)], %l0
				srl	%i5, 4, %o1
				and	%o1, 120, %o1
				add	%o1, %l0, %o1
		.LVL114:
 2138          f = f!8 %IF class = 125;              !add spec from %DUP
				lduw	[%i4+28], %g2
 2139          dim = v_app;                          !dimension
				or	%o1, 8, %g1
				cmp	%g2, 125
				move	%icc, %g1, %o1
		.LVL115:
		.L81:
				lduw	[%i3+212], %g1
		.LVL116:
		.LBB337:
				ba,pt	%xcc, .L83
				 st	%g1, [%g2+%lo(DIM.6135)]
		.LVL127:
		.L93:
 2140          dim = 0 %unless 0 < dim <= dim limit
 2141          op(',', f+dim<<8);                    !otype & spec & prot
				sethi	%hi(DIM.6135), %g1
				lduw	[%g1+%lo(DIM.6135)], %i5
		.LVL119:
				sll	%i5, 8, %i5
				add	%i5, %o1, %o1
		.LVL120:
				ldx	[%i4], %g1
				ldx	[%g1+8], %g5
				sra	%o1, 0, %o1
				call	OP.6313, 0
				 mov	44, %o0
		.LVL121:
 2142          defs = 0 %IF t&parameters = 0
				cmp	%i0, 0
				be,a,pt	%icc, .L84
				 st	%g0, [%i4+20]
		.L84:
		.LVL122:
		.LBB338:
 2143          f = t&15
 2144          %IF v_flags&spec # 0 %START
 2145             v_flags = v_flags&(\spec) %UNLESS 3 <= f <= 10
				add	%g1, -1, %g2
				cmp	%g2, 5
				bleu,pn	%icc, .L92
				 sethi	%hi(DIM.6135), %g2
		.L82:
		.LBE337:
 2146             ocount = -1;                       !external specs have no constants
				sethi	%hi(OCOUNT.6169), %g1
		.L95:
				mov	-1, %g2
				st	%g2, [%g1+%lo(OCOUNT.6169)]
		.LDL6:
 2147          %FINISH
 2148          dimension = 0
				sethi	%hi(DIM.6135), %g1
		.LVL117:
				st	%g0, [%g1+%lo(DIM.6135)]
		.LVL118:
		.L83:
				sethi	%hi(DIMENSION.6179), %g1
 2149          %if otype = 2 %and (f=2 %or f=12 %or f=14) %start
				cmp	%l0, 2
				be,pn	%icc, .L93
				 st	%g0, [%g1+%lo(DIMENSION.6179)]
		.L87:
		.LVL123:
		.L96:
 2150             v_flags = v_flags-1;               !convert to simple
				add	%i2, -3, %i2
				cmp	%i2, 7
				bleu,pn	%icc, .L95
				 sethi	%hi(OCOUNT.6169), %g1
		.L86:
		.LBE338:
				xor	%i1, 2, %g2
				cmp	%g0, %g2
				subx	%g0, -1, %g2
				lduh	[%i3+220], %g1
				add	%g1, -1, %g1
				sth	%g1, [%i3+220]
				return	%i7+8
				 nop
		.LFE215:
				.section	".rodata"
		.LC26:
				.byte	7
				.asciz	"lookup:"
				.skip	247
				.section	".text"
				.align 4
				.proc	020
		LOOKUP.6684:
		.LFB205:
 2151          %finish
				xor	%i1, 12, %g1
				cmp	%g0, %g1
				subx	%g0, -1, %g1
				or	%g1, %g2, %g1
				xor	%g1, 1, %g1
 2152       %END
				xor	%i1, 14, %i1
		.LVL128:
				cmp	%g0, %i1
				addx	%g0, 0, %g2
				andcc	%g1, %g2, %g0
				bne,pn	%icc, .L96
				 nop
		.L88:
 2153
				lduh	[%i3+220], %g1
				and	%g1, -129, %g1
				sth	%g1, [%i3+220]
		.L85:
				return	%i7+8
				 nop
		.LVL124:
		.L90:
 2154       %ROUTINE def s lab(%INTEGER n)
		.LVL417:
				save	%sp, -176, %sp
		.LVL418:
				mov	%g5, %i4
 2155
 2156          !define a switch label, x defines the switch tag
 2157
 2158          %INTEGER p, l, b, w, bit
 2159          p = tag(x)_format;                               !pointer to table
				sethi	%hi(X.6110), %g1
				lduw	[%g1+%lo(X.6110)], %i5
				ldx	[%g5], %g5
				ldx	[%g5+8], %g3
				sra	%i5, 0, %g1
				add	%g1, 13, %g1
				sllx	%g1, 4, %g1
				add	%g3, %g1, %g1
				lduw	[%g1+8], %i3
		.LVL419:
				sra	%i3, 0, %g1
				add	%g1, %g1, %g1
				add	%g3, %g1, %g1
 2160          l = dict(p);                                     !lower bound
				sethi	%hi(13739008), %g4
				srlx	%g4, 9, %g4
				ldsh	[%g1+%g4], %g2
		.LVL420:
		.LBB494:
 2161          %IF l <= n <= dict(p+1) %START
 2162             b = n-l
 2163             w = b>>4+p
				srl	%g2, 4, %g2
		.LVL423:
				add	%g2, %i3, %g2
		.LVL424:
				sra	%g2, 0, %g2
				add	%g2, %g2, %g2
		.LVL425:
				add	%g3, %g2, %g2
 2164             bit = 1<<(b&15)
				cmp	%g2, %i0
				bg,pn	%icc, .L462
				 sethi	%hi(6870016), %g4
				and	%g2, 15, %g1
				mov	1, %g4
				sll	%g4, %g1, %g4
		.LVL422:
 2165             %IF dict(w+2)&bit # 0 %START;                 !already set
				sethi	%hi(13741056), %g1
				srlx	%g1, 9, %g1
				cmp	%g0, %g4
				subx	%g0, -1, %g3
		.LVL426:
				lduh	[%g2+%g1], %i3
		.LVL427:
				ldsh	[%g2+%g1], %g1
				andcc	%g1, %g3, %g0
				bne,pt	%icc, .L463
				 lduw	[%i4+24], %g1
 2166                fault(4) %IF pending # 0
				srlx	%g4, 8, %g4
				ldsh	[%g1+%g4], %g1
				cmp	%g1, %i0
				bl,pt	%icc, .L462
				 sub	%i0, %g2, %g2
		.LVL421:
		.LBE494:
				cmp	%g1, 0
				be,pt	%icc, .L469
				 nop
 2167                %RETURN
				call	FAULT.6349, 0
				 mov	4, %o0
		.LVL428:
				return	%i7+8
				 nop
		.LVL429:
		.L463:
 2168             %FINISH
 2169             dict(w+2) <- dict(w+2)!bit %IF pending # 0
				cmp	%g1, 0
				be,a,pt	%icc, .L468
				 ldx	[%i4], %g1
 2170             set const(n)
				or	%g4, %i3, %g4
		.LVL430:
				sethi	%hi(13741056), %g1
				srlx	%g1, 9, %g1
				sth	%g4, [%g2+%g1]
		.LVL431:
		.L465:
				ldx	[%i4], %g1
		.L468:
				ldx	[%g1+8], %g5
				call	SETCONST.6316, 0
				 mov	%i0, %o0
		.LVL432:
 2171             op('_', tag(x)_index)
				ldx	[%i4], %g1
				ldx	[%g1+8], %g5
				sra	%i5, 0, %g1
				add	%g1, 13, %g1
				sllx	%g1, 4, %g1
				add	%g5, %g1, %g1
				ldsh	[%g1+14], %o1
				call	OP.6313, 0
				 mov	95, %o0
		.LVL433:
 2172          %FINISH %ELSE %START
				ba,pt	%xcc, .L467
				 ldx	[%i4], %g1
		.LVL434:
		.L462:
 2173             fault(12)
				call	FAULT.6349, 0
				 mov	12, %o0
		.LVL435:
		.L466:
 2174          %FINISH
 2175          access = 1
				ldx	[%i4], %g1
		.L467:
				mov	1, %g2
				st	%g2, [%g1+36]
		.L464:
		.L469:
 2176       %END
 2177
				return	%i7+8
				 nop
		.LFE216:
				.section	.rodata.str1.8
				.align 8
		.LC83:
				.asciz	"Illegal cycle J = DICT[N - 1], 1, DICT[N + 1 - 1]"
				.align 8
		.LC84:
				.asciz	"->C(%d) out of bounds at %s line %d"
				.align 8
		.LC85:
				.asciz	"switch jump to undefined label C(%d): at %s line %d"
				.align 8
		.LC86:
				.asciz	"->LITOP(%d) out of bounds at %s line %d"
				.section	".rodata"
		.LC15:
				.byte	4
				.asciz	"ss ="
				.skip	250
				.section	".text"
				.align 4
				.proc	020
		COMPILE.6332:
		.LFB209:
 2178       %ROUTINE call
 2179          %RECORD(tagfm)%NAME T
 2180          t == tag(x)
				sethi	%hi(4096), %i4
		.L846:
				xor	%i4, -384, %g1
				add	%fp, 2047, %g2
				ldx	[%g2+%g1], %g1
				ldx	[%g1+8], %g5
		.LVL591:
				sethi	%hi(X.6110), %g1
				ldsw	[%g1+%lo(X.6110)], %i5
		.LVL592:
				sllx	%i5, 4, %i5
		.LVL593:
				add	%g5, %i5, %i5
				ba,pt	%xcc, .L846
				 sethi	%hi(4096), %i4
		.L663:
				ba,pt	%xcc, .L846
				 sethi	%hi(4096), %i4
		.L665:
 2181          op('@', t_index)
				ldsh	[%i5+222], %o1
				call	OP.6313, 0
				 mov	64, %o0
		.LVL594:
 2182          access = 0 %IF t_flags&closed # 0;                !never comes back
 2183          bp=bp+1 %AND buff(bp)='E' %IF t_app = 0;          !no parameters
				xor	%i4, -384, %g1
				add	%fp, 2047, %g2
				ldx	[%g2+%g1], %g2
				st	%g0, [%g2+36]
		.LDL30:
				lduw	[%i5+212], %g1
				cmp	%g1, 0
				bne,pn	%icc, .L787
				 sethi	%hi(BP.6197), %g3
 2184       %END
				lduw	[%g3+%lo(BP.6197)], %g1
				add	%g1, 1, %g4
				st	%g4, [%g3+%lo(BP.6197)]
 2185
				ldx	[%g2+8], %g2
				sra	%g1, 0, %g1
				add	%g2, %g1, %g2
				sethi	%hi(53611520), %g1
				srlx	%g1, 9, %g1
				mov	69, %g3
		.LBE565:
		.LBE564:
				ba,pt	%xcc, .L787
				 stb	%g3, [%g2+%g1]
		.LVL595:
		.L662:
 2186       %ROUTINE pop def
 2187          set const(pstack(pending));  pending = pending-1
				add	%g1, -1, %g1
				sra	%g1, 0, %g1
				sllx	%g1, 2, %g1
				sethi	%hi(4096), %g2
				xor	%g2, -384, %g2
				add	%fp, 2047, %g3
				ldx	[%g3+%g2], %g2
				ldx	[%g2+8], %g5
				ldx	[%fp-3009], %g2
				call	SETCONST.6316, 0
				 ldsw	[%g2+%g1], %o0
		.LVL613:
 2188       %END
				lduw	[%i5+24], %g1
				add	%g1, -1, %g1
				st	%g1, [%i5+24]
		.L695:
		.LBE567:
		.LBE566:
 2189
 2190       %ROUTINE pop lit
 2191          %IF pending = 0 %THEN lit = 0 %ELSE %START
				lduw	[%g5+24], %g1
				cmp	%g1, 0
				be,pn	%icc, .L15
				 add	%g1, -1, %g1
		.L13:
 2192             lit = pstack(pending);  pending = pending-1
				sra	%g1, 0, %g2
				sllx	%g2, 2, %g2
				sethi	%hi(PSTACK.7238), %g3
				or	%g3, %lo(PSTACK.7238), %g3
				lduw	[%g3+%g2], %g3
				sethi	%hi(LIT.6187), %g2
				st	%g3, [%g2+%lo(LIT.6187)]
		.L14:
				sethi	%hi(LIT.6187), %g1
 2193          %FINISH
				jmp	%o7+8
				 st	%g0, [%g1+%lo(LIT.6187)]
		.LFE219:
				.align 4
				.proc	020
		PUSH.7398:
		.LFB220:
 2194       %END
 2195
				jmp	%o7+8
				 st	%g1, [%g5+24]
		.L15:
 2196
 2197       %IF sstype < 0 %START;                       !executable statement
				sethi	%hi(SSTYPE.6167), %g1
				lduw	[%g1+%lo(SSTYPE.6167)], %g1
				cmp	%g1, 0
				bl,a,pn	%icc, .L790
				 lduw	[%g5+60], %g1
		.L472:
		.L474:
		.L475:
 2198          %IF level = 0 %START;                     !outermost level
				cmp	%g1, 0
				be,pn	%icc, .L797
				 nop
		.L473:
 2199             fault(13);                             !*order
				call	FAULT.6349, 0
				 mov	13, %o0
		.LVL455:
 2200          %FINISH %ELSE %START
 2201             %IF access = 0 %START
				ldx	[%fp-2953], %g1
				lduw	[%g1+36], %g1
				cmp	%g1, 0
				bne,a,pt %icc, .L828
				 sethi	%hi(SYM.6128), %g1
 2202                access = 1;  fault(-1);             !only a warning
				mov	1, %g1
				ldx	[%fp-2953], %g2
				st	%g1, [%g2+36]
 2203             %FINISH
				mov	%g2, %g5
				call	FAULT.6349, 0
				 mov	-1, %o0
		.LVL454:
 2204          %FINISH
 2205       %FINISH
 2206
 2207       %IF diag&2 # 0 %START
 2208          newline %IF sym # nl
				sethi	%hi(SYM.6128), %g1
		.L828:
				lduw	[%g1+%lo(SYM.6128)], %g1
				cmp	%g1, 10
				be,pn	%icc, .L862
				 mov	256, %o2
		.LBB536:
		.LBB537:
				call	_imp_newline, 0
				 nop
		.LVL436:
		.L476:
		.LBE537:
		.LBE536:
		.LBB538:
				ba,pt	%xcc, .L828
				 sethi	%hi(SYM.6128), %g1
		.L797:
				ba,pt	%xcc, .L828
				 sethi	%hi(SYM.6128), %g1
		.LVL456:
		.L791:
 2209          printstring("ss =")
				mov	256, %o2
		.L862:
				sethi	%hi(.LC15), %o1
				or	%o1, %lo(.LC15), %o1
				call	memcpy, 0
				 add	%fp, 1743, %o0
		.LVL437:
				sethi	%hi(4096), %i5
				xor	%i5, -304, %i4
				add	%fp, 2047, %g1
				add	%g1, %i4, %i4
				mov	256, %o2
				add	%fp, 1743, %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL438:
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 add	%fp, 1743, %o0
		.LVL439:
		.LBE538:
		.LBB539:
		.LBB540:
				xor	%i5, -640, %i4
				add	%fp, 2047, %g1
				add	%g1, %i4, %i4
				mov	256, %o2
				add	%fp, 1743, %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL440:
				call	_imp_printstring, 0
				 mov	%i4, %o0
		.LVL441:
		.LBE540:
		.LBE539:
 2210          write(ss, 1)
				sethi	%hi(SS.6160), %i4
				mov	1, %o1
				call	_imp_writeint, 0
				 ldsw	[%i4+%lo(SS.6160)], %o0
		.LVL442:
		.LBB541:
		.LBB542:
				call	_imp_newline, 0
				 nop
		.LVL443:
		.LBE542:
		.LBE541:
 2211          newline
 2212          count = 5
				sethi	%hi(COUNT.7240), %g1
				mov	5, %g2
				st	%g2, [%g1+%lo(COUNT.7240)]
		.LVL444:
 2213          name = ""
 2214       %FINISH
 2215
				xor	%i5, -48, %o1
				mov	8, %o2
				add	%fp, 2047, %g1
				add	%g1, %o1, %o1
				sethi	%hi(NAME.7239), %o0
				call	_imp_strncpy, 0
				 or	%o0, %lo(NAME.7239), %o0
		.LVL445:
		.L477:
 2216       next = ss
				xor	%i5, -384, %g1
				add	%fp, 2047, %g2
				add	%g2, %g1, %g1
				lduw	[%i4+%lo(SS.6160)], %g2
				st	%g2, [%g1+36]
 2217       pending = 0;  lmode = 0
				st	%g0, [%g1+24]
 2218       link = 0;  decs = 0
				st	%g0, [%g1+8]
				st	%g0, [%g1+32]
		.LVL446:
 2219       defs = 0;  resln = 0;  done = 0
				st	%g0, [%g1+20]
		.LVL447:
				st	%g0, [%fp-2965]
 2220       ord = level
				ldx	[%fp-2953], %g1
				lduw	[%g1+60], %g1
				ba,pt	%xcc, .L779
				 st	%g1, [%fp-2969]
		.L478:
		.L479:
		.L480:
		.L481:
		.L482:
		.L483:
		.LVL457:
		.L484:
 2221       ord = 1 %IF this >= 0;                       !recordformat declarations
				sethi	%hi(THIS.6152), %g1
				lduw	[%g1+%lo(THIS.6152)], %g1
				cmp	%g1, 0
				bl,pn	%icc, .L791
				 st	%g0, [%fp-2981]
		.L779:
 2222 c(0):
				mov	1, %g2
				st	%g2, [%fp-2969]
 2223 top:  %IF next # link %START
 2224          get next;  ->c(class)
				add	%fp, 2047, %g1
				sethi	%hi(4096), %g2
				xor	%g2, -384, %g2
				add	%g1, %g2, %g1
				stx	%g1, [%fp-2961]
				ldx	[%fp-2961], %g1
		.L829:
				lduw	[%g1+36], %g2
				lduw	[%g1+32], %g1
				cmp	%g2, %g1
				bne,pn	%icc, .L792
				 sethi	%hi(COUNT.7240), %g1
		.L486:
				ba,pt	%xcc, .L829
				 ldx	[%fp-2961], %g1
		.LVL458:
		.L792:
				ldx	[%fp-2961], %i5
				call	GETNEXT.7245, 0
				 mov	%i5, %g5
		.LVL459:
				ba,pt	%xcc, .L829
				 ldx	[%fp-2961], %g1
		.L537:
				ba,pt	%xcc, .L829
				 ldx	[%fp-2961], %g1
		.L556:
				ba,pt	%xcc, .L829
				 ldx	[%fp-2961], %g1
		.L566:
		.L567:
				ba,pt	%xcc, .L829
				 ldx	[%fp-2961], %g1
		.L587:
				ba,pt	%xcc, .L829
				 ldx	[%fp-2961], %g1
		.L807:
				ba,pt	%xcc, .L829
				 ldx	[%fp-2961], %g1
		.L633:
				ba,pt	%xcc, .L829
				 ldx	[%fp-2961], %g1
		.LVL569:
		.L642:
				ba,pt	%xcc, .L829
				 ldx	[%fp-2961], %g1
		.L643:
				ba,pt	%xcc, .L829
				 ldx	[%fp-2961], %g1
		.L644:
				ba,pt	%xcc, .L829
				 ldx	[%fp-2961], %g1
		.LVL585:
		.L657:
				ba,pt	%xcc, .L829
				 ldx	[%fp-2961], %g1
		.LVL590:
		.L660:
				ba,pt	%xcc, .L829
				 ldx	[%fp-2961], %g1
		.L671:
				ba,pt	%xcc, .L829
				 ldx	[%fp-2961], %g1
		.L677:
				ba,pt	%xcc, .L829
				 ldx	[%fp-2961], %g1
		.L678:
				ba,pt	%xcc, .L829
				 ldx	[%fp-2961], %g1
		.L683:
				ba,pt	%xcc, .L829
				 ldx	[%fp-2961], %g1
		.LVL610:
		.L688:
				ba,pt	%xcc, .L829
				 ldx	[%fp-2961], %g1
		.LVL630:
		.L819:
				ba,pt	%xcc, .L829
				 ldx	[%fp-2961], %g1
		.L748:
		.LVL687:
 2225       %FINISH
				lduw	[%i5+28], %i5
		.LVL460:
		.LDL24:
 2226
 2227       !all done, tidy up declarations and jumps
 2228
 2229       newline %IF diag&2 # 0 %AND count # 5
 2230
				lduw	[%g1+%lo(COUNT.7240)], %g1
				cmp	%g1, 5
				be,pn	%icc, .L863
				 ldx	[%fp-2953], %i4
		.LBB544:
		.LBB545:
				call	_imp_newline, 0
				 nop
		.LVL449:
		.L490:
		.LBE545:
		.LBE544:
 2231       %IF lmode&(loop!then!else) # 0 %START;       !pending labels and jumps
 2232          op('B', label-1) %IF lmode&loop # 0;      !repeat
 2233          def lab(label)   %IF lmode&then # 0;      !entry from then
				ldx	[%fp-2953], %i4
		.L863:
				lduw	[%i4+24], %o1
				add	%o1, -1, %o1
				ldx	[%i4+8], %g5
				sra	%o1, 0, %o1
				call	OP.6313, 0
				 mov	66, %o0
		.LVL450:
		.L491:
 2234          def lab(label-1) %IF lmode&else # 0;      !entry from else
				sethi	%hi(4096), %i5
				xor	%i5, -384, %i5
				add	%fp, 2047, %g1
				add	%g1, %i5, %i5
				mov	%i5, %g5
				call	DEFLAB.7242, 0
				 ldsw	[%i4+24], %o0
		.LVL451:
		.L492:
 2235       %FINISH
				lduw	[%i4+24], %o0
				add	%o0, -1, %o0
				mov	%i5, %g5
				call	DEFLAB.7242, 0
				 sra	%o0, 0, %o0
		.LVL452:
		.L493:
		.L494:
 2236
 2237       %RETURN %IF decs = 0
				lduw	[%fp-2965], %g1
				cmp	%g1, 0
				be,pn	%icc, .L471
				 sethi	%hi(ATOM1.6111), %g1
		.L496:
 2238       atom1 = error %AND %RETURN %IF atom1 # 0;    !%INTEGERROUTINE
				lduw	[%g1+%lo(ATOM1.6111)], %g1
				cmp	%g1, 0
				bne,pn	%icc, .L793
				 sethi	%hi(ORDER.6172), %g1
		.L497:
 2239       order = ord
				lduw	[%fp-2969], %g2
				st	%g2, [%g1+%lo(ORDER.6172)]
				sethi	%hi(ATOM1.6111), %g1
				sethi	%hi(32768), %g2
				st	%g2, [%g1+%lo(ATOM1.6111)]
		.LVL464:
		.L471:
 2240       decl = decl&(\15)+decmap(decl&15);           !construct declarator flags
				sethi	%hi(DECL.6134), %g4
				lduw	[%g4+%lo(DECL.6134)], %g2
				and	%g2, 15, %g1
				add	%g1, %g1, %g1
				add	%fp, 2047, %g3
				add	%g3, %g1, %g1
				sethi	%hi(4096), %g3
				xor	%g3, -336, %g3
				ldsh	[%g1+%g3], %g1
				and	%g2, -16, %g2
				add	%g1, %g2, %g1
				st	%g1, [%g4+%lo(DECL.6134)]
 2241       atom1 = atoms(decl&15);                      !generate class
				ldx	[%fp-2953], %g2
				ldx	[%g2+8], %g3
				and	%g1, 15, %g2
				add	%g3, %g2, %g3
				sethi	%hi(9942016), %g2
				srlx	%g2, 8, %g2
				ldub	[%g3+%g2], %g2
				sethi	%hi(ATOM1.6111), %g3
				st	%g2, [%g3+%lo(ATOM1.6111)]
 2242       %IF otype # 0 %START;                        !own, const etc.
				sethi	%hi(OTYPE.6140), %g3
				lduw	[%g3+%lo(OTYPE.6140)], %g3
				cmp	%g3, 0
				be,a,pt	%icc, .L864
				 sethi	%hi(SSTYPE.6167), %g1
 2243          atom1 = atom1+1 %IF atom1 # proc
				cmp	%g2, 7
				be,pn	%icc, .L499
				 add	%g2, 1, %g2
 2244          %IF otype = 2 %START;                     !const
				sethi	%hi(ATOM1.6111), %g4
				st	%g2, [%g4+%lo(ATOM1.6111)]
		.L499:
				cmp	%g3, 2
				be,pn	%icc, .L794
				 sethi	%hi(DECL.6134), %g2
		.L500:
 2245             n = decl&15
 2246             %if n&1 # 0 %start
 2247                decl = decl!prot
				or	%g1, 256, %g1
		.LVL466:
				sethi	%hi(DECL.6134), %g2
		.LVL467:
				ba,pt	%xcc, .L504
				 st	%g1, [%g2+%lo(DECL.6134)]
		.LVL468:
		.L501:
 2248                decl = decl!const bit %IF decl&b'1111111' = iform
				andcc	%g1, 1, %g0
				be,pt	%xcc, .L501
				 sethi	%hi(8192), %g2
 2249             %finish
				or	%g2, 256, %g2
				or	%g1, %g2, %g1
		.LVL469:
				sethi	%hi(DECL.6134), %g2
		.LVL470:
				ba,pt	%xcc, .L504
				 st	%g1, [%g2+%lo(DECL.6134)]
		.L795:
 2250          %else
 2251             decl = decl!own bit
				or	%g1, 512, %g1
				st	%g1, [%g2+%lo(DECL.6134)]
		.L498:
		.L502:
		.L503:
		.L504:
 2252          %FINISH
 2253       %FINISH
 2254       sstype = 1 %IF sstype = 0 %AND atom1 = proc
				sethi	%hi(SSTYPE.6167), %g1
		.L864:
				lduw	[%g1+%lo(SSTYPE.6167)], %g1
				cmp	%g1, 0
				bne,pt	%icc, .L865
				 sethi	%hi(ATOM1.6111), %g2
 2255       atom1 = atom1+1 %IF decl&spec # 0;             !onto spec variant
				sethi	%hi(ATOM1.6111), %g1
				lduw	[%g1+%lo(ATOM1.6111)], %g1
				cmp	%g1, 7
				be,pn	%icc, .L795
				 sethi	%hi(SSTYPE.6167), %g1
		.L505:
		.L865:
 2256       ocount = 0 %AND cont = '+' %IF atom1 = 5;      !own array
				lduw	[%g2+%lo(ATOM1.6111)], %g1
				add	%g1, 1, %g1
		.LDL22:
				cmp	%g1, 5
				be,pn	%icc, .L796
				 st	%g1, [%g2+%lo(ATOM1.6111)]
		.L506:
				mov	1, %g2
				st	%g2, [%g1+%lo(SSTYPE.6167)]
				sethi	%hi(ATOM1.6111), %g1
				mov	8, %g2
				ba,pt	%xcc, .L506
				 st	%g2, [%g1+%lo(ATOM1.6111)]
		.L796:
 2257       %IF anyform(decl&15) = 0 %START;               !check meaningful
				sethi	%hi(DECL.6134), %g1
				lduw	[%g1+%lo(DECL.6134)], %g2
				and	%g2, 15, %g1
				add	%fp, 2047, %g3
				add	%g3, %g1, %g1
				ldub	[%g1-24], %g1
				cmp	%g1, 0
				bne,pn	%icc, .L471
				 andcc	%g2, 16, %g0
				sethi	%hi(OCOUNT.6169), %g1
				st	%g0, [%g1+%lo(OCOUNT.6169)]
 2258          %IF decl>>4&7 = record %START
				bne,pt	%xcc, .L866
				 sethi	%hi(FDEF.6151), %g1
				sethi	%hi(CONT.6132), %g1
				mov	43, %g2
				ba,pt	%xcc, .L506
				 st	%g2, [%g1+%lo(CONT.6132)]
		.LVL471:
		.L511:
		.L512:
 2259             this = fdef %IF tag(fdef)_flags&spec # 0
 2260             atom1 = error+21 %IF fdef = this;        !*context for format
				lduw	[%g1+%lo(FDEF.6151)], %g2
				sethi	%hi(THIS.6152), %g1
				st	%g2, [%g1+%lo(THIS.6152)]
		.LDL23:
 2261          %FINISH
				sethi	%hi(ATOM1.6111), %g2
				sethi	%hi(32768), %g1
				or	%g1, 21, %g1
				st	%g1, [%g2+%lo(ATOM1.6111)]
		.L507:
		.L508:
 2262          atom1 = error+10 %IF fdef = 0;              !*size
				sethi	%hi(FDEF.6151), %g1
		.L866:
				lduw	[%g1+%lo(FDEF.6151)], %g1
				cmp	%g1, 0
				bne,pt	%icc, .L471
				 sethi	%hi(ATOM1.6111), %g2
 2263       %FINISH
				sethi	%hi(32768), %g1
				or	%g1, 10, %g1
				ba,pt	%xcc, .L471
				 st	%g1, [%g2+%lo(ATOM1.6111)]
		.LVL453:
		.L790:
 2264       %RETURN
 2265
 2266 atop:   access = 0;  ->top
 2267
				ldx	[%fp-2953], %g1
		.L840:
				ba,pt	%xcc, .L840
				 ldx	[%fp-2953], %g1
		.L608:
 2268 ! declarators
				ba,pt	%xcc, .L787
				 st	%g0, [%g1+36]
		.LVL499:
		.L565:
 2269
 2270 c(88):                                                !rtype
 2271 c(28): decl = x&(\7);                                 !stype
 2272        fdef = x&7;                                    !precision
				sethi	%hi(X.6110), %g1
				lduw	[%g1+%lo(X.6110)], %g1
				and	%g1, -8, %g3
				sethi	%hi(DECL.6134), %g2
				st	%g3, [%g2+%lo(DECL.6134)]
				and	%g1, 7, %g3
				sethi	%hi(FDEF.6151), %g2
				st	%g3, [%g2+%lo(FDEF.6151)]
 2273        fdef = reals ln %IF x&b'1110001' = real<<4+1;  !convert to long
				andcc	%g1, 1, %g1
				bne,pt	%icc, .L787
				 st	%g1, [%fp-2965]
 2274        decs = 1;  ->top
				sethi	%hi(REALSLN.6141), %g1
				lduw	[%g1+%lo(REALSLN.6141)], %g2
				sethi	%hi(FDEF.6151), %g1
				st	%g2, [%g1+%lo(FDEF.6151)]
				mov	1, %g1
				ba,pt	%xcc, .L787
				 st	%g1, [%fp-2965]
		.L513:
		.L514:
 2275 c(34):                                                !own
 2276 c(35): otype = x;  ord = 1;  ->top;                   !external
 2277 c(152):decl = decl+x<<1;  ->top;                      !xname
				sethi	%hi(X.6110), %g1
				lduw	[%g1+%lo(X.6110)], %g2
				sethi	%hi(OTYPE.6140), %g1
				st	%g2, [%g1+%lo(OTYPE.6140)]
		.LVL472:
 2278 c(31):                                                !proc
				mov	1, %g1
				sethi	%hi(DECL.6134), %g2
				sethi	%hi(X.6110), %g1
				lduw	[%g1+%lo(X.6110)], %g1
				add	%g1, %g1, %g1
				lduw	[%g2+%lo(DECL.6134)], %g3
				add	%g1, %g3, %g1
 2279 c(32): spec mode = level+1;                           !fn/map
				ba,pt	%xcc, .L787
				 st	%g1, [%fp-2969]
		.LVL473:
		.L515:
				ba,pt	%xcc, .L787
				 st	%g1, [%g2+%lo(DECL.6134)]
		.L516:
		.L517:
 2280        decl = decl!prot %IF x = 9;                    !function
				ldx	[%fp-2953], %g1
				lduw	[%g1+60], %g1
				add	%g1, 1, %g1
				sethi	%hi(SPECMODE.6168), %g2
				st	%g1, [%g2+%lo(SPECMODE.6168)]
				sethi	%hi(X.6110), %g1
				lduw	[%g1+%lo(X.6110)], %g1
				cmp	%g1, 9
				be,pn	%icc, .L799
				 sethi	%hi(DECL.6134), %g2
		.L518:
		.L519:
		.LVL474:
 2281 c(29): ord = 1;                                       !array
				lduw	[%g2+%lo(DECL.6134)], %g1
				or	%g1, 256, %g1
				ba,pt	%xcc, .L519
				 st	%g1, [%g2+%lo(DECL.6134)]
		.L521:
 2282        dim = 0
				sethi	%hi(DIM.6135), %g1
				st	%g0, [%g1+%lo(DIM.6135)]
				mov	1, %g1
				st	%g1, [%fp-2969]
		.LVL475:
		.L520:
 2283 c(30): decl = decl+x;                                 !name
 2284        decs = 1
				sethi	%hi(DECL.6134), %g2
				lduw	[%g2+%lo(DECL.6134)], %g1
				sethi	%hi(X.6110), %g3
				lduw	[%g3+%lo(X.6110)], %g3
				add	%g1, %g3, %g1
				st	%g1, [%g2+%lo(DECL.6134)]
		.LVL476:
				mov	1, %g1
 2285        ->top
				ba,pt	%xcc, .L787
				 st	%g1, [%fp-2965]
		.LVL477:
		.L799:
 2286 c(27): lit = 0;                                       ! arrayd
 2287        %IF pending # 0 %START
				sethi	%hi(LIT.6187), %g1
				st	%g0, [%g1+%lo(LIT.6187)]
				ldx	[%fp-2961], %g1
				lduw	[%g1+24], %g1
				cmp	%g1, 0
				bne,pn	%icc, .L800
				 nop
		.L522:
		.L524:
 2288           pop lit
				call	POPLIT.7342, 0
				 ldx	[%fp-2961], %g5
		.LVL480:
		.LBB546:
 2289           %UNLESS 0<lit<=dim limit %START
 2290              atom1 = error + 11;  %RETURN
				sethi	%hi(32768), %g1
				or	%g1, 11, %g1
 2291           %FINISH
				ba,pt	%xcc, .L471
				 st	%g1, [%g2+%lo(ATOM1.6111)]
		.LVL481:
		.L525:
 2292        %FINISH
				sethi	%hi(LIT.6187), %g1
 2293        dim = lit
				sethi	%hi(LIT.6187), %g1
				lduw	[%g1+%lo(LIT.6187)], %g2
				sethi	%hi(DIM.6135), %g1
				st	%g2, [%g1+%lo(DIM.6135)]
 2294        decl = decl + x;  decs = 1
				sethi	%hi(DECL.6134), %g2
				lduw	[%g2+%lo(DECL.6134)], %g1
				sethi	%hi(X.6110), %g3
				lduw	[%g3+%lo(X.6110)], %g3
				add	%g1, %g3, %g1
				st	%g1, [%g2+%lo(DECL.6134)]
		.LVL478:
				lduw	[%g1+%lo(LIT.6187)], %g1
				add	%g1, -1, %g1
				cmp	%g1, 5
				bleu,pn	%icc, .L524
				 sethi	%hi(ATOM1.6111), %g2
		.L523:
		.LBE546:
 2295        -> top
				mov	1, %g1
				ba,pt	%xcc, .L787
				 st	%g1, [%fp-2965]
		.LVL479:
		.L800:
 2296 c(37): x = x!subname;                                 !record
 2297 c(36): lit = 0;                                       !string
				sethi	%hi(X.6110), %g2
				lduw	[%g2+%lo(X.6110)], %g1
				or	%g1, 2048, %g1
				st	%g1, [%g2+%lo(X.6110)]
		.L526:
 2298        %IF pending # 0 %START
				sethi	%hi(LIT.6187), %g1
				st	%g0, [%g1+%lo(LIT.6187)]
				ldx	[%fp-2961], %g1
				lduw	[%g1+24], %g1
				cmp	%g1, 0
				bne,pn	%icc, .L801
				 nop
		.L527:
		.L529:
 2299          pop lit
				call	POPLIT.7342, 0
				 ldx	[%fp-2961], %g5
		.LVL484:
		.LBB547:
 2300           %UNLESS 0 < lit <= 255 %START;              !max length wrong
 2301              atom1 = error+10;  %RETURN
				sethi	%hi(32768), %g1
				or	%g1, 10, %g1
 2302           %FINISH
				ba,pt	%xcc, .L471
				 st	%g1, [%g2+%lo(ATOM1.6111)]
		.LVL485:
		.L531:
 2303        %FINISH
				sethi	%hi(LIT.6187), %g1
 2304        fdef = lit;                                    !format or length
				sethi	%hi(LIT.6187), %g1
				lduw	[%g1+%lo(LIT.6187)], %g2
				sethi	%hi(FDEF.6151), %g1
				st	%g2, [%g1+%lo(FDEF.6151)]
		.L530:
 2305 c(33): decl = x;                                      !switch
				lduw	[%g1+%lo(LIT.6187)], %g1
				add	%g1, -1, %g1
				cmp	%g1, 254
				bleu,pn	%icc, .L529
				 sethi	%hi(ATOM1.6111), %g2
		.L528:
		.LBE547:
 2306        decs = 1
				sethi	%hi(X.6110), %g1
				lduw	[%g1+%lo(X.6110)], %g2
				sethi	%hi(DECL.6134), %g1
				st	%g2, [%g1+%lo(DECL.6134)]
		.LVL482:
				mov	1, %g1
 2307        ->top
				ba,pt	%xcc, .L787
				 st	%g1, [%fp-2965]
		.LVL483:
		.L801:
 2308 c(39): decl = decl!spec;                              !spec
 2309        ocount = -1;                                   !no initialisation
				sethi	%hi(DECL.6134), %g2
				lduw	[%g2+%lo(DECL.6134)], %g1
				or	%g1, 128, %g1
				st	%g1, [%g2+%lo(DECL.6134)]
				mov	-1, %g1
				sethi	%hi(OCOUNT.6169), %g2
				st	%g1, [%g2+%lo(OCOUNT.6169)]
 2310        spec mode = -1
				sethi	%hi(SPECMODE.6168), %g2
 2311        ->top
				ba,pt	%xcc, .L787
				 st	%g1, [%g2+%lo(SPECMODE.6168)]
		.L532:
 2312 c(38): decl = 64+4;                                   !recordformat (spec)
 2313        order = 1
				sethi	%hi(DECL.6134), %g1
				mov	68, %g2
				st	%g2, [%g1+%lo(DECL.6134)]
				sethi	%hi(ORDER.6172), %g1
				mov	1, %g2
				st	%g2, [%g1+%lo(ORDER.6172)]
 2314        atom1 = x
				sethi	%hi(X.6110), %g1
				lduw	[%g1+%lo(X.6110)], %g1
				sethi	%hi(ATOM1.6111), %g2
 2315        decl = decl!spec %if atom1 = 12;               !formatspec
				cmp	%g1, 12
				be,pn	%icc, .L802
				 st	%g1, [%g2+%lo(ATOM1.6111)]
		.L533:
 2316        fdef = tmax+1;                                 !format tag
				ldx	[%fp-2953], %g1
				lduw	[%g1+64], %g1
				add	%g1, 1, %g1
				sethi	%hi(FDEF.6151), %g2
				sethi	%hi(DECL.6134), %g1
				mov	196, %g2
				ba,pt	%xcc, .L533
				 st	%g2, [%g1+%lo(DECL.6134)]
		.L534:
 2317        %return
				ba,pt	%xcc, .L471
				 st	%g1, [%g2+%lo(FDEF.6151)]
		.L802:
 2318 c(175):id = id+1;  tag(x)_index = id;  %return;       !FSID
 2319 c(41): decs = 1;  decl = x!spec!closed;  ->top;       !label
				ldx	[%fp-2953], %g1
				lduw	[%g1+56], %g2
				add	%g2, 1, %g2
				st	%g2, [%g1+56]
 2320 c(133):recid = 0;  rbase = tmin-1;                    !fname
				ldx	[%g1+8], %g3
				sethi	%hi(X.6110), %g1
				ldsw	[%g1+%lo(X.6110)], %g1
				add	%g1, 13, %g1
				sllx	%g1, 4, %g1
				add	%g3, %g1, %g1
				mov	1, %g1
 2321        this = x
				ba,pt	%xcc, .L471
				 sth	%g2, [%g1+14]
		.L535:
		.LVL486:
				sethi	%hi(X.6110), %g1
				lduw	[%g1+%lo(X.6110)], %g1
				sethi	%hi(16384), %g2
				or	%g2, 128, %g2
				or	%g1, %g2, %g1
				sethi	%hi(DECL.6134), %g2
				st	%g1, [%g2+%lo(DECL.6134)]
				ldx	[%fp-2953], %g1
				ldx	[%g1+8], %g1
				st	%g0, [%g1+204]
				sethi	%hi(X.6110), %g2
				lduw	[%g2+%lo(X.6110)], %o0
				sethi	%hi(THIS.6152), %g2
				st	%o0, [%g2+%lo(THIS.6152)]
 2322        fm base = fdef;  format list = tmin
				ba,pt	%xcc, .L787
				 st	%g1, [%fp-2965]
		.LVL487:
		.L536:
				sethi	%hi(TMIN.6159), %g1
				lduw	[%g1+%lo(TMIN.6159)], %g1
				add	%g1, -1, %g3
				sethi	%hi(RBASE.6155), %g2
				st	%g3, [%g2+%lo(RBASE.6155)]
				sethi	%hi(FDEF.6151), %g2
				lduw	[%g2+%lo(FDEF.6151)], %g3
				sethi	%hi(FMBASE.6181), %g2
				st	%g3, [%g2+%lo(FMBASE.6181)]
 2323        def(this);                      ->top
				sethi	%hi(FORMATLIST.6183), %g2
				st	%g1, [%g2+%lo(FORMATLIST.6183)]
				ldx	[%fp-2961], %g5
				call	DEF.7295, 0
				 sra	%o0, 0, %o0
		.LVL488:
 2324 c(148):fdef = 0 %AND ->top %IF next = 0;              !reclb
 2325        get next;                                      !skip name
				ldx	[%fp-2961], %g1
				lduw	[%g1+36], %g1
				cmp	%g1, 0
				bne,pn	%icc, .L538
				 sethi	%hi(FDEF.6151), %g1
				call	GETNEXT.7245, 0
				 ldx	[%fp-2961], %g5
		.LVL489:
 2326        fdef = x
				sethi	%hi(X.6110), %g1
				lduw	[%g1+%lo(X.6110)], %g2
				sethi	%hi(FDEF.6151), %g1
 2327        ->top
				ba,pt	%xcc, .L787
				 st	%g0, [%g1+%lo(FDEF.6151)]
		.L538:
				ba,pt	%xcc, .L787
				 st	%g2, [%g1+%lo(FDEF.6151)]
		.L539:
 2328 c(127):bp=bp+1 %AND buff(bp)='}';  ->top;             !%POUT
 2329 c(126):bp=bp+1 %AND buff(bp)='{';  ->top;             !%PIN
				sethi	%hi(BP.6197), %g2
				lduw	[%g2+%lo(BP.6197)], %g1
				add	%g1, 1, %g3
				st	%g3, [%g2+%lo(BP.6197)]
 2330
				ldx	[%fp-2953], %g2
				ldx	[%g2+8], %g2
				sra	%g1, 0, %g1
				add	%g2, %g1, %g2
				sethi	%hi(53611520), %g1
				srlx	%g1, 9, %g1
				mov	125, %g3
				sethi	%hi(BP.6197), %g2
				lduw	[%g2+%lo(BP.6197)], %g1
				add	%g1, 1, %g3
				st	%g3, [%g2+%lo(BP.6197)]
 2331 c(174):set bp;                                        !rangerb
				ba,pt	%xcc, .L787
				 stb	%g3, [%g2+%g1]
		.L540:
				ldx	[%fp-2953], %g2
				ldx	[%g2+8], %g2
				sra	%g1, 0, %g1
				add	%g2, %g1, %g2
				sethi	%hi(53611520), %g1
				srlx	%g1, 9, %g1
				mov	123, %g3
 2332 c(171):                                               !fmlb
				ba,pt	%xcc, .L787
				 stb	%g3, [%g2+%g1]
		.L541:
				call	SETBP.7277, 0
				 ldx	[%fp-2961], %g5
		.LVL490:
		.L544:
 2333 c(172):                                               !fmrb
 2334 c(173):bp=bp+1 %AND buff(bp)='~';  bp=bp+1 %AND buff(bp)=class-171+'A';  ->top;         !fmor
 2335 c(168):rbase = -rbase;                                !orrb
				sethi	%hi(BP.6197), %g4
		.L830:
				lduw	[%g4+%lo(BP.6197)], %g1
				add	%g1, 1, %g1
				ba,pt	%xcc, .L830
				 sethi	%hi(BP.6197), %g4
		.L543:
				ba,pt	%xcc, .L830
				 sethi	%hi(BP.6197), %g4
		.L545:
 2336        sstype = 0;  spec mode = 0
				ldx	[%fp-2953], %i5
		.LVL491:
				ldx	[%i5+8], %g3
				sra	%g1, 0, %g2
				add	%g3, %g2, %g3
				sethi	%hi(53611520), %g2
				srlx	%g2, 9, %g2
				mov	126, %g5
				stb	%g5, [%g3+%g2]
				sethi	%hi(RBASE.6155), %g2
				lduw	[%g2+%lo(RBASE.6155)], %g1
				sub	%g0, %g1, %g1
				st	%g1, [%g2+%lo(RBASE.6155)]
				sethi	%hi(SSTYPE.6167), %g1
				st	%g0, [%g1+%lo(SSTYPE.6167)]
 2337
				add	%g1, 2, %g3
				st	%g3, [%g4+%lo(BP.6197)]
				sethi	%hi(SPECMODE.6168), %g1
				st	%g0, [%g1+%lo(SPECMODE.6168)]
		.L546:
 2338 c(147):search base = 0;                               !recrb
				ldx	[%i5+8], %g3
				sra	%g1, 0, %g1
				add	%g3, %g1, %g1
				ldx	[%fp-2961], %g3
				lduw	[%g3+28], %g3
				add	%g3, -106, %g3
 2339        tag(this)_app = tmin
				ba,pt	%xcc, .L787
				 stb	%g3, [%g1+%g2]
		.LVL492:
		.L542:
				sethi	%hi(SEARCHBASE.6182), %g1
				st	%g0, [%g1+%lo(SEARCHBASE.6182)]
				ldx	[%fp-2953], %g4
				ldx	[%g4+8], %g2
				sethi	%hi(THIS.6152), %g1
				ldsw	[%g1+%lo(THIS.6152)], %g1
				add	%g1, 13, %g1
				sllx	%g1, 4, %g1
				add	%g2, %g1, %g2
				sethi	%hi(TMIN.6159), %g3
				lduw	[%g3+%lo(TMIN.6159)], %g3
				st	%g3, [%g2+4]
 2340        tag(this)_format = rbase
				ldx	[%g4+8], %g2
				add	%g2, %g1, %g1
				sethi	%hi(RBASE.6155), %g2
				lduw	[%g2+%lo(RBASE.6155)], %g2
 2341        ->top
				ba,pt	%xcc, .L787
				 st	%g2, [%g1+8]
		.L547:
 2342
 2343 c(45):bp=bp+1 %and buff(bp)='U' %IF x = 36;  ->top;   !sign
 2344 c(46):bp=bp+1;  buff(bp)='\';  ->top;                 !uop
				sethi	%hi(X.6110), %g1
				lduw	[%g1+%lo(X.6110)], %g1
				cmp	%g1, 36
				bne,pt	%icc, .L829
				 ldx	[%fp-2961], %g1
 2345 c(47):                                                !mod
				sethi	%hi(BP.6197), %g2
				lduw	[%g2+%lo(BP.6197)], %g1
				add	%g1, 1, %g3
				st	%g3, [%g2+%lo(BP.6197)]
				sethi	%hi(BP.6197), %g2
				lduw	[%g2+%lo(BP.6197)], %g1
				add	%g1, 1, %g3
				st	%g3, [%g2+%lo(BP.6197)]
 2346 c(48):                                                !dot
				ldx	[%fp-2953], %g2
				ldx	[%g2+8], %g2
				sra	%g1, 0, %g1
				add	%g2, %g1, %g2
				sethi	%hi(53611520), %g1
				srlx	%g1, 9, %g1
				mov	85, %g3
				ba,pt	%xcc, .L787
				 stb	%g3, [%g2+%g1]
		.L548:
				ldx	[%fp-2953], %g2
				ldx	[%g2+8], %g2
				sra	%g1, 0, %g1
				add	%g2, %g1, %g2
				sethi	%hi(53611520), %g1
				srlx	%g1, 9, %g1
				mov	92, %g3
 2347 c(42):                                                !op1
				ba,pt	%xcc, .L787
				 stb	%g3, [%g2+%g1]
		.L549:
		.L553:
 2348 c(43):                                                !op2
 2349 c(44):bp=bp+1;  buff(bp)=operator(x);  ->top;         !op3
 2350
				sethi	%hi(BP.6197), %g2
		.L831:
				lduw	[%g2+%lo(BP.6197)], %g1
				add	%g1, 1, %g3
				st	%g3, [%g2+%lo(BP.6197)]
				ba,pt	%xcc, .L831
				 sethi	%hi(BP.6197), %g2
		.L551:
				ba,pt	%xcc, .L831
				 sethi	%hi(BP.6197), %g2
		.L552:
				ba,pt	%xcc, .L831
				 sethi	%hi(BP.6197), %g2
		.L554:
		.L555:
 2351 !conditions & jumps
				ldx	[%fp-2953], %g2
				ldx	[%g2+8], %g3
				sra	%g1, 0, %g1
				add	%g3, %g1, %g3
				sethi	%hi(X.6110), %g1
				lduw	[%g1+%lo(X.6110)], %g1
				add	%g1, -1, %g1
				sra	%g1, 0, %g1
				add	%fp, 2047, %g2
				add	%g2, %g1, %g1
				ldub	[%g1-40], %g1
				sethi	%hi(53611520), %g2
				srlx	%g2, 9, %g2
 2352
				ba,pt	%xcc, .L787
				 stb	%g1, [%g3+%g2]
		.L550:
 2353       %ROUTINE push(%INTEGER x)
		.LVL12:
 2354          %IF cnest(cp)&2 # x %START
				lduw	[%g5+16], %g1
				sra	%g1, 0, %g3
				sethi	%hi(CNEST.7216), %g2
				or	%g2, %lo(CNEST.7216), %g2
				ldub	[%g2+%g3], %g2
				xor	%o0, 2, %g3
				cmp	%g0, %g3
				subx	%g0, -1, %g3
				andcc	%g2, %g3, %g0
				bne,pn	%icc, .L17
				 sra	%g1, 0, %g3
 2355             cnest(cp) = cnest(cp)!1;  x = x+4
				or	%g2, 1, %g2
				sethi	%hi(CNEST.7216), %g4
				or	%g4, %lo(CNEST.7216), %g4
				stb	%g2, [%g4+%g3]
 2356          %FINISH
				add	%o0, 4, %o0
		.LVL13:
				sra	%o0, 0, %o0
		.LVL14:
		.L17:
 2357          clab = clab+1 %IF cnest(cp)&1 # 0
 2358          cnest(cp+1) = x;  cp = cp+1
				lduw	[%g5+12], %g2
				add	%g2, 1, %g2
				st	%g2, [%g5+12]
		.LDL1:
				add	%g1, 1, %g1
				sra	%g1, 0, %g3
				sethi	%hi(CNEST.7216), %g2
				or	%g2, %lo(CNEST.7216), %g2
				stb	%o0, [%g2+%g3]
 2359       %END
 2360
				jmp	%o7+8
				 st	%g1, [%g5+16]
		.LFE220:
				.section	.rodata.str1.8,"aMS",@progbits,1
				.align 8
		.LC77:
				.asciz	"->REASON(%d) out of bounds at %s line %d"
				.align 8
		.LC78:
				.asciz	"test-new/pass1-pe.imp"
				.align 8
		.LC79:
				.asciz	"switch jump to undefined label REASON(%d): at %s line %d"
				.section	".rodata"
		.LC16:
				.byte	21
				.asciz	"test-new/pass1-pe.imp"
				.skip	233
				.section	".text"
				.align 4
				.proc	020
		ABANDON.6239:
		.LFB188:
 2361       %ROUTINE pop label(%INTEGER mode)
		.LVL411:
				save	%sp, -176, %sp
		.LVL412:
 2362          lmode = dict(dmin)
				ldx	[%g5], %g3
				ldx	[%g3+8], %g4
				lduw	[%g3+52], %g2
				add	%g2, -1, %g2
				sra	%g2, 0, %g2
				mov	1677, %g1
				sllx	%g1, 3, %g1
				add	%g2, %g1, %g1
				add	%g1, %g1, %g1
				add	%g4, %g1, %g1
				ldsh	[%g1+4], %g1
 2363          %IF lmode < 0 %OR lmode&1 # mode %START
				cmp	%g1, 0
				bl,pn	%icc, .L452
				 st	%g1, [%g5+8]
 2364             fault(mode+8)
				xor	%i0, 1, %g2
				cmp	%g0, %g2
				subx	%g0, -1, %g2
				andcc	%g1, %g2, %g0
				be,a,pn	%icc, .L455
				 add	%i0, 8, %i0
		.L453:
				add	%i0, 8, %i0
		.L455:
				mov	%g3, %g5
				call	FAULT.6349, 0
				 sra	%i0, 0, %o0
		.LVL413:
 2365          %FINISH %ELSE %START
				return	%i7+8
				 nop
		.LFE221:
				.align 4
				.proc	020
		SETBP.7277:
		.LFB213:
 2366             dmin = dmin+1;  label = label-3
				lduw	[%g3+52], %g1
				add	%g1, 1, %g1
				st	%g1, [%g3+52]
 2367          %FINISH
				ldx	[%g5], %g2
				lduw	[%g2+24], %g1
				add	%g1, -3, %g1
				st	%g1, [%g2+24]
		.L454:
 2368       %END
 2369
				return	%i7+8
				 nop
		.L452:
 2370 c(56):                                         !and
 2371 c(57):push(x);  ->top;                         !or
 2372 c(58):cnest(cp) = cnest(cp)!!2;  ->top;        !not
				ldx	[%fp-2961], %g5
				sethi	%hi(X.6110), %g1
				call	PUSH.7398, 0
				 ldsw	[%g1+%lo(X.6110)], %o0
		.LVL493:
 2373
				sethi	%hi(CNEST.7216), %g1
				or	%g1, %lo(CNEST.7216), %g1
				ldx	[%fp-2961], %g2
				ldsw	[%g2+16], %g3
				ldub	[%g1+%g3], %g2
				xor	%g2, 2, %g2
 2374 c(138):x = 128+32+16+4;                        !csep: treat like %WHILE
				ba,pt	%xcc, .L787
				 stb	%g2, [%g1+%g3]
		.L557:
 2375 c(59):                                         !while
				sethi	%hi(X.6110), %g1
				mov	180, %g2
				st	%g2, [%g1+%lo(X.6110)]
		.L559:
 2376 c(60):%IF class = 138 %THEN op('f', label-1) %C
 2377                       %ELSE def lab(label-1);  !until
				ldx	[%fp-2961], %g1
		.L833:
				lduw	[%g1+28], %g1
				cmp	%g1, 138
				be,pn	%icc, .L803
				 ldx	[%fp-2961], %g5
		.L560:
				ba,pt	%xcc, .L833
				 ldx	[%fp-2961], %g1
		.L803:
 2378 c(166):                                        !runtil
				ldx	[%fp-2953], %g1
				lduw	[%g1+24], %o1
				add	%o1, -1, %o1
				ldx	[%g1+8], %g5
				sra	%o1, 0, %o1
				call	OP.6313, 0
				 mov	102, %o0
		.LVL495:
 2379 c(62):lmode = (lmode&(else!loop)) !(x>>3);     !cword
 2380       clab = label;  cp = 1;  cnest(1) = x&7
				ba,pt	%xcc, .L832
				 sethi	%hi(X.6110), %g1
		.L558:
				ba,pt	%xcc, .L832
				 sethi	%hi(X.6110), %g1
		.L561:
		.L562:
		.L563:
				sethi	%hi(X.6110), %g1
		.L832:
				lduw	[%g1+%lo(X.6110)], %g2
				ldx	[%fp-2961], %g4
				lduw	[%g4+8], %g1
				and	%g1, 24, %g1
				srl	%g2, 3, %g3
				or	%g1, %g3, %g1
				st	%g1, [%g4+8]
				ldx	[%fp-2953], %g1
				lduw	[%g1+24], %g1
				st	%g1, [%g4+12]
 2381       ->top
				ldx	[%fp-2953], %g1
				lduw	[%g1+24], %o0
				add	%o0, -1, %o0
				call	DEFLAB.7242, 0
				 sra	%o0, 0, %o0
		.LVL494:
				mov	1, %g1
				st	%g1, [%g4+16]
				ba,pt	%xcc, .L787
				 stb	%g2, [%g1+%lo(CNEST.7216)+1]
		.L564:
 2382 c(72):pop label(0);                            !repeat
				and	%g2, 7, %g2
				sethi	%hi(CNEST.7216), %g1
 2383       def lab(label+1) %IF lmode&32 # 0;  ->atop
				ldx	[%fp-2961], %i5
		.LVL496:
				mov	%i5, %g5
				call	POPLABEL.7403, 0
				 mov	0, %o0
		.LVL497:
 2384 c(69):pop label(1);               ->top;       !finish
				ldx	[%fp-2953], %g1
				lduw	[%g1+24], %o0
				add	%o0, 1, %o0
				mov	%i5, %g5
				call	DEFLAB.7242, 0
				 sra	%o0, 0, %o0
		.LVL498:
		.L509:
		.L510:
 2385 c(163):                                        !xelse
				ldx	[%fp-2961], %g5
				call	POPLABEL.7403, 0
				 mov	1, %o0
		.LVL500:
 2386 c(70):pop label(1);                            !finish else ...
 2387       fault(7) %IF lmode&3 = 3;                !dangling else
				ldx	[%fp-2961], %g5
				call	POPLABEL.7403, 0
				 mov	1, %o0
		.LVL501:
 2388 c(68):lmode = (lmode&else)!3;                  !...else...
				ldx	[%fp-2953], %g5
				call	FAULT.6349, 0
				 mov	7, %o0
		.LVL502:
		.L568:
		.L569:
 2389       %IF access # 0 %START
				ldx	[%fp-2961], %i5
		.LVL503:
				lduw	[%i5+8], %g1
				and	%g1, 8, %g1
				or	%g1, 3, %g1
				st	%g1, [%i5+8]
				ldx	[%fp-2953], %g2
				lduw	[%g2+36], %g1
				cmp	%g1, 0
				be,a,pt	%icc, .L867
				 ldx	[%fp-2961], %i5
 2390          op('F', label-1);  lmode = else!3
				lduw	[%g2+24], %o1
				add	%o1, -1, %o1
				ldx	[%g2+8], %g5
				sra	%o1, 0, %o1
				call	OP.6313, 0
				 mov	70, %o0
		.LVL504:
 2391       %FINISH
				mov	11, %g1
				st	%g1, [%i5+8]
		.L570:
 2392       def lab(label)
				ldx	[%fp-2961], %i5
		.L867:
				mov	%i5, %g5
				ldx	[%fp-2953], %g1
				call	DEFLAB.7242, 0
				 ldsw	[%g1+24], %o0
		.LVL505:
 2393       ->top %IF next # 0
				lduw	[%i5+36], %g1
				cmp	%g1, 0
				bne,a,pt %icc, .L829
				 ldx	[%fp-2961], %g1
 2394
 2395 c(120):                                        !%MSTART
 2396 c(67):                                         !start
 2397 c(71):                                         !cycle
 2398 stcy: def lab(label-1) %AND lmode = loop %IF lmode = 0;!cycle
 2399       dmin = dmin-1;  abandon(3) %IF dmin <= dmax
				ba,pt	%xcc, .L834
				 sethi	%hi(4096), %g1
		.L571:
		.LVL506:
		.L572:
		.L574:
		.L575:
				sethi	%hi(4096), %g1
		.L834:
				xor	%g1, -384, %g1
				add	%fp, 2047, %g2
				add	%g2, %g1, %g1
				lduw	[%g1+8], %g1
				cmp	%g1, 0
				be,pn	%icc, .L804
				 ldx	[%fp-2953], %g1
		.L576:
				ldx	[%fp-2953], %g2
				lduw	[%g2+52], %g1
				add	%g1, -1, %g1
				st	%g1, [%g2+52]
				ba,pt	%xcc, .L834
				 sethi	%hi(4096), %g1
		.LVL508:
		.L804:
 2400       dict(dmin) = lmode
				sethi	%hi(DMAX.6158), %g2
				lduw	[%g2+%lo(DMAX.6158)], %g2
				cmp	%g2, %g1
				bge,pn	%icc, .L805
				 ldx	[%fp-2953], %g1
		.L577:
				ldx	[%fp-2953], %g4
		.L835:
				ldx	[%g4+8], %g2
				lduw	[%g4+52], %g1
				add	%g1, -1, %g1
				sra	%g1, 0, %g1
				mov	1677, %g3
				sllx	%g3, 3, %g3
				add	%g1, %g3, %g1
				add	%g1, %g1, %g1
				add	%g2, %g1, %g1
				sethi	%hi(4096), %g2
				xor	%g2, -384, %g2
				add	%fp, 2047, %g3
				add	%g3, %g2, %g2
				lduw	[%g2+8], %g2
				sth	%g2, [%g1+4]
				lduw	[%g1+24], %o0
				add	%o0, -1, %o0
				sethi	%hi(4096), %i5
				xor	%i5, -384, %i5
				add	%g2, %i5, %i5
				mov	%i5, %g5
				call	DEFLAB.7242, 0
				 sra	%o0, 0, %o0
		.LVL509:
				ba,pt	%xcc, .L835
				 ldx	[%fp-2953], %g4
		.LVL511:
		.L578:
 2401       label = label+3
				lduw	[%g4+24], %g1
				add	%g1, 3, %g1
				mov	16, %g1
				ba,pt	%xcc, .L576
				 st	%g1, [%i5+8]
		.L805:
				ldx	[%g1+8], %g5
				call	ABANDON.6239, 0
				 mov	3, %o0
		.LVL510:
 2402       %RETURN
				ba,pt	%xcc, .L471
				 st	%g1, [%g4+24]
		.LVL507:
		.L573:
 2403
 2404 c(64):fault(13) %IF dict(dmin) >= 0 %OR inhibit # 0;  !on event
 2405       inhibit = 1
				ldx	[%fp-2953], %g4
				ldx	[%g4+8], %g2
				lduw	[%g4+52], %g1
				add	%g1, -1, %g1
				sra	%g1, 0, %g1
				mov	1677, %g3
				sllx	%g3, 3, %g3
				add	%g1, %g3, %g1
				add	%g1, %g1, %g1
				add	%g2, %g1, %g1
				ldsh	[%g1+4], %g1
				cmp	%g1, 0
				bge,pn	%icc, .L868
				 ldx	[%fp-2953], %g5
				mov	1, %g1
		.L869:
				ldx	[%fp-2953], %g2
				st	%g1, [%g2+20]
		.LVL513:
 2406       n = 0
				lduw	[%g4+20], %g1
				cmp	%g1, 0
				be,pt	%icc, .L869
				 mov	1, %g1
		.L579:
 2407       n = x'FFFF' %IF pending = 0;             !* = all events
				sethi	%hi(4096), %g1
				xor	%g1, -384, %g1
				add	%fp, 2047, %g2
				add	%g2, %g1, %g1
				lduw	[%g1+24], %g1
				cmp	%g1, 0
				be,pt	%icc, .L581
				 or	%i5, 1023, %i5
 2408       %WHILE pending > 0 %CYCLE
				ldx	[%fp-2953], %g5
		.L868:
				call	FAULT.6349, 0
				 mov	13, %o0
		.LVL512:
		.L580:
				sethi	%hi(64512), %i5
		.LVL514:
 2409          pop lit;  fault(10) %IF lit&(\15) # 0;!too big
				ble,pn	%icc, .L581
				 mov	0, %i5
				sethi	%hi(4096), %i4
				xor	%i4, -384, %i4
				add	%g2, %i4, %i4
				lduw	[%i4+24], %g1
		.LVL517:
				cmp	%g1, 0
				ble,a,pn %icc, .L870
				 ldx	[%fp-2953], %i4
		.LVL518:
		.L584:
				call	POPLIT.7342, 0
				 mov	%i4, %g5
		.LVL519:
 2410          j = 1<<lit
				sethi	%hi(LIT.6187), %i2
				mov	1, %i3
				lduw	[%i2+%lo(LIT.6187)], %g1
				sll	%i3, %g1, %g1
		.LVL521:
 2411          dubious = 1 %IF n&j # 0
				ldx	[%fp-2953], %g5
				call	FAULT.6349, 0
				 mov	10, %o0
		.LVL520:
		.L582:
				cmp	%g0, %g1
				subx	%g0, -1, %g2
				andcc	%i5, %g2, %g0
				be,a,pt	%icc, .L583
				 st	%i3, [%i1+%lo(DUBIOUS.6174)]
 2412          n = n!j;                              !construct bit mask
				ba,pt	%xcc, .L584
				 sethi	%hi(DUBIOUS.6174), %i1
		.LVL515:
		.L583:
				or	%i5, %g1, %i5
		.LVL516:
		.L836:
				ba,pt	%xcc, .L836
				 or	%i5, %g1, %i5
		.LVL522:
		.L581:
 2413       %REPEAT
 2414       op('o', n);  op(',', label)
				ldx	[%fp-2953], %i4
		.L870:
				ldx	[%i4+8], %g5
				sra	%i5, 0, %o1
				call	OP.6313, 0
				 mov	111, %o0
		.LVL523:
 2415       lmode = then!1;  ->stcy
				ldx	[%i4+8], %g5
				ldsw	[%i4+24], %o1
				call	OP.6313, 0
				 mov	44, %o0
		.LVL524:
				sethi	%hi(4096), %g1
				xor	%g1, -384, %g1
				add	%fp, 2047, %g2
				add	%g2, %g1, %g1
				mov	5, %g2
				ba,pt	%xcc, .L576
				 st	%g2, [%g1+8]
		.LVL525:
		.L585:
 2416
 2417
 2418 c(104):op('J', tag(x)_index);                   !l
 2419        inhibit = 1;            ->atop
				ldx	[%fp-2953], %i5
		.LVL526:
				ldx	[%i5+8], %g5
				sethi	%hi(X.6110), %g1
				ldsw	[%g1+%lo(X.6110)], %g1
				add	%g1, 13, %g1
				sllx	%g1, 4, %g1
				add	%g5, %g1, %g1
				ldsh	[%g1+14], %o1
				call	OP.6313, 0
				 mov	74, %o0
		.LVL527:
				mov	1, %g1
 2420 c(149):stats = stats-1;                         !lab
				ba,pt	%xcc, .L509
				 st	%g1, [%i5+20]
		.LVL528:
		.L586:
 2421        access = 1;  inhibit = 1
				sethi	%hi(STATS.6126), %g2
				lduw	[%g2+%lo(STATS.6126)], %g1
				add	%g1, -1, %g1
				st	%g1, [%g2+%lo(STATS.6126)]
				mov	1, %g1
				ldx	[%fp-2953], %g2
				st	%g1, [%g2+36]
 2422        op('L', tag(x)_index);  ->top
				st	%g1, [%g2+20]
				ldx	[%g2+8], %g5
				sethi	%hi(X.6110), %g1
				ldsw	[%g1+%lo(X.6110)], %g1
				add	%g1, 13, %g1
				sllx	%g1, 4, %g1
				add	%g5, %g1, %g1
				ldsh	[%g1+14], %o1
				call	OP.6313, 0
				 mov	76, %o0
		.LVL529:
 2423
 2424 c(63):j = dmin;  l = label-3;                   !exit, continue
 2425       %CYCLE
				ldx	[%fp-2953], %g2
				lduw	[%g2+52], %i5
		.LVL530:
 2426          fault(7) %AND ->top %IF dict(j) < 0
				lduw	[%g2+24], %g1
				add	%g1, -3, %g1
				st	%g1, [%g2+16]
				add	%i5, -1, %g3
				ldx	[%g2+8], %g5
				sra	%g3, 0, %g1
				mov	1677, %g2
				sllx	%g2, 3, %g2
				add	%g1, %g2, %g1
				add	%g1, %g1, %g1
				add	%g5, %g1, %g1
				lduh	[%g1+4], %g2
				ldsh	[%g1+4], %g1
				cmp	%g1, 0
				bl,pn	%icc, .L588
				 mov	1677, %g4
				sra	%i5, 0, %g1
				add	%g1, %g4, %g1
				add	%g1, %g1, %g1
				add	%g5, %g1, %g1
				lduh	[%g1+4], %g2
				ldsh	[%g1+4], %g1
				cmp	%g1, 0
				bl,pn	%icc, .L588
				 add	%i5, 1, %g3
		.L591:
				mov	%g3, %i5
		.LVL533:
		.L590:
 2427          %EXIT %IF dict(j)&1 = 0
				andcc	%g2, 1, %g0
				be,pn	%xcc, .L806
				 sllx	%g4, 3, %g4
		.L589:
		.LVL531:
				andcc	%g2, 1, %g0
				be,pn	%xcc, .L871
				 sethi	%hi(X.6110), %g1
				ldx	[%fp-2953], %g5
				call	FAULT.6349, 0
				 mov	7, %o0
		.LVL535:
 2428          j = j+1;  l = l-3
				ba,pt	%xcc, .L589
				 mov	%g3, %i5
		.LVL532:
		.L806:
 2429       %REPEAT
				ldx	[%fp-2953], %g2
				lduw	[%g2+16], %g1
				add	%g1, -3, %g1
				st	%g1, [%g2+16]
		.LDL25:
 2430       l = l+1 %IF x = 32;                       !continue
				sethi	%hi(X.6110), %g1
		.L871:
				lduw	[%g1+%lo(X.6110)], %i4
				cmp	%i4, 32
				be,pn	%icc, .L807
				 ldx	[%fp-2953], %g2
		.L592:
 2431       op('F', l)
				ldx	[%fp-2953], %i3
				ldsw	[%i3+16], %o1
				call	OP.6313, 0
				 mov	70, %o0
		.LVL534:
				sra	%i5, 0, %i5
				add	%i5, %i5, %i5
				ldx	[%i3+8], %g1
				add	%g1, %i5, %i5
				lduw	[%g2+16], %g1
				add	%g1, 1, %g1
				ba,pt	%xcc, .L592
				 st	%g1, [%g2+16]
		.LVL536:
		.L593:
 2432       dict(j) = dict(j)!x;                      !show given
				sethi	%hi(6870016), %g1
				srlx	%g1, 8, %g1
				lduh	[%i5+%g1], %g2
				or	%i4, %g2, %i4
 2433       ->atop
				ba,pt	%xcc, .L509
				 sth	%i4, [%i5+%g1]
		.L588:
 2434
 2435 c(50):bp=bp+1 %AND buff(bp)='C';  ->cop;        !acomp
 2436
				sethi	%hi(BP.6197), %g2
				lduw	[%g2+%lo(BP.6197)], %g1
				add	%g1, 1, %g3
				st	%g3, [%g2+%lo(BP.6197)]
 2437 c(49): bp = bp+1
				ldx	[%fp-2953], %g2
				ldx	[%g2+8], %g2
				sra	%g1, 0, %g1
				add	%g2, %g1, %g2
				sethi	%hi(53611520), %g1
				srlx	%g1, 9, %g1
				mov	67, %g3
 2438        %IF next # 0 %START;                     !comparator
				ba,pt	%xcc, .L597
				 stb	%g3, [%g2+%g1]
		.L595:
				sethi	%hi(BP.6197), %g2
				lduw	[%g2+%lo(BP.6197)], %g1
				add	%g1, 1, %g3
				st	%g3, [%g2+%lo(BP.6197)]
				ldx	[%fp-2961], %g2
				lduw	[%g2+36], %g2
				cmp	%g2, 0
				bne,pn	%icc, .L808
				 ldx	[%fp-2953], %g2
		.L596:
 2439           buff(bp)='"';  push(0);               !double sided
				ldx	[%g2+8], %g2
				sra	%g1, 0, %g1
				add	%g2, %g1, %g2
				sethi	%hi(53611520), %g1
				srlx	%g1, 9, %g1
				mov	34, %g3
				stb	%g3, [%g2+%g1]
 2440        %FINISH %ELSE %START
				ldx	[%fp-2961], %g5
				call	PUSH.7398, 0
				 mov	0, %o0
		.LVL537:
 2441           buff(bp)='?'
				ldx	[%g2+8], %g2
				sra	%g1, 0, %g1
				add	%g2, %g1, %g2
				sethi	%hi(53611520), %g1
				srlx	%g1, 9, %g1
				mov	63, %g3
				ba,pt	%xcc, .L597
				 stb	%g3, [%g2+%g1]
		.L808:
 2442        %FINISH
 2443
 2444 cop:   x = x!!1 %IF cnest(cp)&2 # 0;            !invert the condition
 2445        j = cp;  l = clab
				ldx	[%fp-2961], %g1
				lduw	[%g1+16], %g2
		.LVL695:
 2446        %WHILE cnest(j)&4 = 0 %CYCLE
				ba,pt	%xcc, .L837
				 sethi	%hi(X.6110), %g1
		.L601:
		.L603:
				sethi	%hi(X.6110), %g1
		.L837:
				lduw	[%g1+%lo(X.6110)], %g4
				xor	%g4, 1, %g4
				st	%g4, [%g1+%lo(X.6110)]
		.LDL33:
				lduw	[%g1+12], %g3
				ldx	[%fp-2953], %g1
				st	%g3, [%g1+16]
 2447           j = j-1;  l = l-cnest(j)&1
				sra	%g2, 0, %g5
				sethi	%hi(CNEST.7216), %g1
				or	%g1, %lo(CNEST.7216), %g1
				ldub	[%g1+%g5], %g1
				andcc	%g1, 1, %g0
				bne,pn	%xcc, .L598
				 sethi	%hi(CNEST.7216), %g5
				add	%g2, -1, %g2
		.LVL696:
				cmp	%g1, 0
				be,pt	%icc, .L599
				 sub	%g3, %g1, %g3
				ldx	[%fp-2953], %g1
				st	%g3, [%g1+16]
		.L598:
 2448        %REPEAT
				or	%g5, %lo(CNEST.7216), %g5
		.L599:
				sra	%g2, 0, %g1
				ldub	[%g5+%g1], %g1
				and	%g1, 1, %g1
		.LDL34:
 2449        op(cc(x), l)
				sra	%g4, 0, %g1
				add	%fp, 2047, %g2
		.LVL697:
				add	%g2, %g1, %g1
				ldx	[%fp-2953], %g2
				ldx	[%g2+8], %g5
				ldsw	[%g2+16], %o1
				call	OP.6313, 0
				 ldub	[%g1-48], %o0
		.LVL698:
 2450        def lab(clab+1) %IF cnest(cp)&1 # 0
 2451        cp = cp-1
				ldx	[%fp-2961], %i5
		.LVL699:
				lduw	[%i5+12], %o0
				add	%o0, 1, %o0
				mov	%i5, %g5
				call	DEFLAB.7242, 0
				 sra	%o0, 0, %o0
		.LVL700:
		.L600:
				lduw	[%i5+16], %g1
				add	%g1, -1, %g1
				st	%g1, [%i5+16]
 2452        clab = clab-cnest(cp)&1
				sra	%g1, 0, %g1
				sethi	%hi(CNEST.7216), %g2
				or	%g2, %lo(CNEST.7216), %g2
				ldub	[%g2+%g1], %g1
				and	%g1, 1, %g2
				lduw	[%i5+12], %g1
				sub	%g1, %g2, %g1
 2453        ->top
				ba,pt	%xcc, .L787
				 st	%g1, [%i5+12]
		.LVL701:
		.L753:
 2454
 2455 c(78):                                              !fresult
 2456 c(79):                                              !mresult
 2457 c(80):   open = 0;                                  !return, true, false
 2458 c(82):   access = 0;                                !stop
				ldx	[%fp-2953], %g1
		.L838:
				st	%g0, [%g1+32]
		.L604:
				ba,pt	%xcc, .L838
				 ldx	[%fp-2953], %g1
		.L605:
 2459 c(89):                                              !addop
				ldx	[%fp-2953], %g1
				st	%g0, [%g1+36]
		.L606:
 2460 c(81):   bp=bp+1 %AND buff(bp)=x;  ->top;           !monitor
 2461
				sethi	%hi(BP.6197), %g2
		.L839:
				lduw	[%g2+%lo(BP.6197)], %g1
				add	%g1, 1, %g3
				st	%g3, [%g2+%lo(BP.6197)]
				ba,pt	%xcc, .L839
				 sethi	%hi(BP.6197), %g2
		.L607:
 2462 c(65):   pop lit;  op('e', lit);  ->atop;           !signal
				ldx	[%fp-2953], %g2
				ldx	[%g2+8], %g2
				sra	%g1, 0, %g1
				add	%g2, %g1, %g1
				sethi	%hi(X.6110), %g2
				lduw	[%g2+%lo(X.6110)], %g3
				sethi	%hi(53611520), %g2
				srlx	%g2, 9, %g2
 2463
				ba,pt	%xcc, .L787
				 stb	%g3, [%g1+%g2]
		.L602:
				call	POPLIT.7342, 0
				 ldx	[%fp-2961], %g5
		.LVL538:
 2464 c(51):   bp=bp+1 %AND buff(bp)='S';  ->top;         !eq
				ldx	[%fp-2953], %g1
				ldx	[%g1+8], %g5
				sethi	%hi(LIT.6187), %g1
				ldsw	[%g1+%lo(LIT.6187)], %o1
				call	OP.6313, 0
				 mov	101, %o0
		.LVL539:
 2465 c(53):   bp=bp+1 %AND buff(bp)='j';  ->top;         !jam transfer
				sethi	%hi(BP.6197), %g2
				lduw	[%g2+%lo(BP.6197)], %g1
				add	%g1, 1, %g3
				st	%g3, [%g2+%lo(BP.6197)]
 2466 c(52):   bp=bp+1 %AND buff(bp)='Z';  ->top;         !eqeq
				ldx	[%fp-2953], %g2
				ldx	[%g2+8], %g2
				sra	%g1, 0, %g1
				add	%g2, %g1, %g2
				sethi	%hi(53611520), %g1
				srlx	%g1, 9, %g1
				mov	83, %g3
				sethi	%hi(BP.6197), %g2
				lduw	[%g2+%lo(BP.6197)], %g1
				add	%g1, 1, %g3
				st	%g3, [%g2+%lo(BP.6197)]
 2467
				ba,pt	%xcc, .L787
				 stb	%g3, [%g2+%g1]
		.L609:
				ldx	[%fp-2953], %g2
				ldx	[%g2+8], %g2
				sra	%g1, 0, %g1
				add	%g2, %g1, %g2
				sethi	%hi(53611520), %g1
				srlx	%g1, 9, %g1
				mov	106, %g3
				sethi	%hi(BP.6197), %g2
				lduw	[%g2+%lo(BP.6197)], %g1
				add	%g1, 1, %g3
				st	%g3, [%g2+%lo(BP.6197)]
 2468 c(74):%IF level = 0 %START;                         !begin
				ba,pt	%xcc, .L787
				 stb	%g3, [%g2+%g1]
		.L610:
				ldx	[%fp-2953], %g2
				ldx	[%g2+8], %g2
				sra	%g1, 0, %g1
				add	%g2, %g1, %g2
				sethi	%hi(53611520), %g1
				srlx	%g1, 9, %g1
				mov	90, %g3
 2469          %IF progmode <= 0 %THEN progmode = 1 %ELSE fault(7)
				ba,pt	%xcc, .L787
				 stb	%g3, [%g2+%g1]
		.L611:
				ldx	[%fp-2953], %g1
				lduw	[%g1+60], %g1
				cmp	%g1, 0
				bne,pn	%icc, .L614
				 sethi	%hi(PROGMODE.6166), %g1
				lduw	[%g1+%lo(PROGMODE.6166)], %g1
				cmp	%g1, 0
				bg,pn	%icc, .L613
				 sethi	%hi(PROGMODE.6166), %g1
 2470          {Permit BEGIN after external defs}
				mov	1, %g2
				st	%g2, [%g1+%lo(PROGMODE.6166)]
		.L612:
		.L614:
 2471       %FINISH
 2472       spec mode = level+1
				ldx	[%fp-2953], %g4
		.L841:
				lduw	[%g4+60], %g1
				add	%g1, 1, %g1
				sethi	%hi(SPECMODE.6168), %g2
				st	%g1, [%g2+%lo(SPECMODE.6168)]
				ba,pt	%xcc, .L841
				 ldx	[%fp-2953], %g4
		.L615:
 2473       block x = 0
				sethi	%hi(BLOCKX.6189), %g1
				st	%g0, [%g1+%lo(BLOCKX.6189)]
				ldx	[%fp-2953], %g5
				call	FAULT.6349, 0
				 mov	7, %o0
		.LVL540:
 2474       bp=bp+1 %AND buff(bp)='H';  %RETURN
				sethi	%hi(BP.6197), %g2
				lduw	[%g2+%lo(BP.6197)], %g1
				add	%g1, 1, %g3
				st	%g3, [%g2+%lo(BP.6197)]
 2475 c(77):perm = 0;  lines = 0;  stats = 0;             !endofperm
				ldx	[%g4+8], %g2
				sra	%g1, 0, %g1
				add	%g2, %g1, %g2
				sethi	%hi(53611520), %g1
				srlx	%g1, 9, %g1
				mov	72, %g3
 2476       close input
				ba,pt	%xcc, .L471
				 stb	%g3, [%g2+%g1]
		.L613:
				sethi	%hi(PERM.6165), %g1
				st	%g0, [%g1+%lo(PERM.6165)]
				call	CLOSEINPUT, 0
				 st	%g0, [%g1+%lo(STATS.6126)]
		.LVL541:
		.LBB548:
		.LBB549:
				sethi	%hi(_imp_InStream), %g1
				mov	1, %g2
				st	%g2, [%g1+%lo(_imp_InStream)]
				sethi	%hi(_imp_infile), %g1
				ldx	[%g1+%lo(_imp_infile)+296], %g2
				sethi	%hi(_imp_InFile), %g1
				stx	%g2, [%g1+%lo(_imp_InFile)]
				sethi	%hi(__PRETTY_FUNCTION__.5656), %o0
				call	check_instream, 0
				 or	%o0, %lo(__PRETTY_FUNCTION__.5656), %o0
		.LVL542:
		.LBE549:
		.LBE548:
 2477       select input(source)
				sethi	%hi(LINES.6120), %g1
				st	%g0, [%g1+%lo(LINES.6120)]
 2478       list = list-1
				sethi	%hi(STATS.6126), %g1
				sethi	%hi(LIST.6190), %g2
				lduw	[%g2+%lo(LIST.6190)], %g1
				add	%g1, -1, %g1
				st	%g1, [%g2+%lo(LIST.6190)]
 2479       tbase = tmax;  tstart = tmax
				ldx	[%fp-2953], %g2
				lduw	[%g2+64], %g1
				st	%g1, [%g2+68]
 2480       %RETURN
				ba,pt	%xcc, .L471
				 st	%g1, [%g2+72]
		.L616:
 2481 c(76):%IF include # 0 %AND x = 0 %START;            !end of ...
 2482          lines = include;  sstype =  0;             !include
				sethi	%hi(INCLUDE.6164), %g1
				lduw	[%g1+%lo(INCLUDE.6164)], %g1
				cmp	%g1, 0
				be,a,pt	%icc, .L872
				 sethi	%hi(SS.6160), %g1
				st	%g1, [%g2+%lo(LINES.6120)]
 2483          close input
				sethi	%hi(X.6110), %g2
				lduw	[%g2+%lo(X.6110)], %g2
				cmp	%g2, 0
				be,pn	%icc, .L809
				 sethi	%hi(LINES.6120), %g2
		.L617:
				sethi	%hi(SSTYPE.6167), %g1
				call	CLOSEINPUT, 0
				 st	%g0, [%g1+%lo(SSTYPE.6167)]
		.LVL546:
 2484          list = include list
				sethi	%hi(INCLUDELIST.6162), %g1
				lduw	[%g1+%lo(INCLUDELIST.6162)], %g2
				sethi	%hi(LIST.6190), %g1
				st	%g2, [%g1+%lo(LIST.6190)]
 2485          include level = 0
				sethi	%hi(INCLUDELEVEL.6163), %g1
				st	%g0, [%g1+%lo(INCLUDELEVEL.6163)]
 2486          include = 0;  select input(source);  %RETURN
				sethi	%hi(INCLUDE.6164), %g1
				st	%g0, [%g1+%lo(INCLUDE.6164)]
		.LVL547:
		.LBB556:
		.LBB557:
				sethi	%hi(_imp_InStream), %g1
				mov	1, %g2
				st	%g2, [%g1+%lo(_imp_InStream)]
				sethi	%hi(_imp_infile), %g1
				ldx	[%g1+%lo(_imp_infile)+296], %g2
				sethi	%hi(_imp_InFile), %g1
				stx	%g2, [%g1+%lo(_imp_InFile)]
				sethi	%hi(__PRETTY_FUNCTION__.5656), %o0
				call	check_instream, 0
				 or	%o0, %lo(__PRETTY_FUNCTION__.5656), %o0
		.LVL548:
				ba,pt	%xcc, .L471
				 nop
		.LVL549:
		.L619:
		.LBE557:
		.LBE556:
		.LBB558:
		.LBB552:
 2487       %FINISH
 2488       ss = -1;                                      !prog/file
				sethi	%hi(SS.6160), %g1
		.L872:
				mov	-1, %g2
				st	%g2, [%g1+%lo(SS.6160)]
		.L618:
 2489 c(75):compile end(x);  %RETURN;                     !%END
 2490
				sethi	%hi(X.6110), %g1
				lduw	[%g1+%lo(X.6110)], %i5
		.LVL543:
		.LBB550:
		.LBB551:
 2491 c(85):%IF x=0 %THEN control=lit %ELSE %START;       !control
 2492          diag = lit&x'3FFF' %IF lit>>14&3 = 1
 2493       %FINISH
 2494       op('z'-x, lit)
				sethi	%hi(X.6110), %g1
				lduw	[%g1+%lo(X.6110)], %g1
				mov	122, %o0
				sub	%o0, %g1, %o0
				ldx	[%fp-2953], %g1
				ldx	[%g1+8], %g5
				sethi	%hi(LIT.6187), %g1
				ldsw	[%g1+%lo(LIT.6187)], %o1
				call	OP.6313, 0
				 sra	%o0, 0, %o0
		.LVL555:
 2495       ->top
 2496 c(83):list = list+x-2;   ->top;                     !%LIST/%ENDOFLIST
 2497 c(84):reals ln = x;      ->top;                     !%REALS long/normal
				sethi	%hi(LIST.6190), %g2
				lduw	[%g2+%lo(LIST.6190)], %g1
				sethi	%hi(X.6110), %g3
				lduw	[%g3+%lo(X.6110)], %g3
				add	%g1, %g3, %g1
				add	%g1, -2, %g1
 2498 c(86):%IF include # 0 %START;                       !include "file"
				ba,pt	%xcc, .L787
				 st	%g1, [%g2+%lo(LIST.6190)]
		.L634:
				sethi	%hi(X.6110), %g1
				lduw	[%g1+%lo(X.6110)], %g2
				sethi	%hi(REALSLN.6141), %g1
 2499          fault(7);  %RETURN
				ba,pt	%xcc, .L787
				 st	%g2, [%g1+%lo(REALSLN.6141)]
		.L635:
				sethi	%hi(INCLUDE.6164), %g1
				lduw	[%g1+%lo(INCLUDE.6164)], %g1
				cmp	%g1, 0
				be,pt	%icc, .L636
				 ldx	[%fp-2953], %g5
				call	FAULT.6349, 0
				 mov	7, %o0
		.LVL556:
				ba,pt	%xcc, .L471
				 nop
		.L636:
 2500       %FINISH
 2501       get next;                                     !sconst
				call	GETNEXT.7245, 0
				 ldx	[%fp-2961], %g5
		.LVL557:
 2502       include file = string(x-x'4000'+stbase)
 2503       %begin
 2504          %on 9 %start;  Abandon(9);  %finish
				ldx	[%fp-2953], %g1
				ldx	[%g1+8], %o0
				mov	63, %o2
				add	%fp, -1841, %o1
				sethi	%hi(53480448), %g1
				srlx	%g1, 9, %g1
				call	_imp_strncpy, 0
				 add	%o0, %g1, %o0
		.LVL558:
				mov	1, %o1
				sethi	%hi(_imp_event+544), %o0
				call	__sigsetjmp, 0
				 or	%o0, %lo(_imp_event+544), %o0
		.LVL559:
				cmp	%o0, 0
				bne,pn	%icc, .L639
				 mov	512, %o1
		.LVL560:
				sethi	%hi(_imp_event), %o0
				call	_imp_on_event_enter, 0
				 or	%o0, %lo(_imp_event), %o0
		.LVL561:
				brnz,a,pt %o0, .L875
				 sethi	%hi(4096), %g1
		.LVL562:
		.L639:
 2505          open input(3, include file)
				ldx	[%fp-2953], %g1
				ldx	[%g1+8], %g5
				call	ABANDON.6239, 0
				 mov	9, %o0
		.LVL563:
		.L640:
				sethi	%hi(4096), %g1
		.L875:
				xor	%g1, -640, %i5
		.LVL564:
				add	%fp, 2047, %g1
				add	%g1, %i5, %i5
				mov	256, %o2
				add	%fp, -1585, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL565:
				mov	%i5, %o1
				call	OPENINPUT, 0
				 mov	3, %o0
		.LVL566:
		.L641:
 2506       %end
 2507       include = lines;  lines = 0
				sethi	%hi(LINES.6120), %g1
				lduw	[%g1+%lo(LINES.6120)], %g3
				sethi	%hi(INCLUDE.6164), %g2
				st	%g3, [%g2+%lo(INCLUDE.6164)]
 2508       include list = list;  include level = level
				st	%g0, [%g1+%lo(LINES.6120)]
				sethi	%hi(LIST.6190), %g1
				lduw	[%g1+%lo(LIST.6190)], %g2
				sethi	%hi(INCLUDELIST.6162), %g1
				st	%g2, [%g1+%lo(INCLUDELIST.6162)]
 2509       select input(3)
				ldx	[%fp-2953], %g1
				lduw	[%g1+60], %g2
				sethi	%hi(INCLUDELEVEL.6163), %g1
				st	%g2, [%g1+%lo(INCLUDELEVEL.6163)]
		.LVL567:
		.LBB562:
		.LBB563:
				sethi	%hi(_imp_InStream), %g1
				mov	3, %g2
				st	%g2, [%g1+%lo(_imp_InStream)]
				sethi	%hi(_imp_infile), %g1
				ldx	[%g1+%lo(_imp_infile)+872], %g2
				sethi	%hi(_imp_InFile), %g1
				stx	%g2, [%g1+%lo(_imp_InFile)]
				sethi	%hi(__PRETTY_FUNCTION__.5656), %o0
				call	check_instream, 0
				 or	%o0, %lo(__PRETTY_FUNCTION__.5656), %o0
		.LVL568:
		.LBE563:
		.LBE562:
 2510       ->top
 2511
 2512 c(154):dimension = dimension+1;                     !dbsep
 2513        fault(11) %IF dimension = dim limit+1
				sethi	%hi(DIMENSION.6179), %g2
				lduw	[%g2+%lo(DIMENSION.6179)], %g1
				add	%g1, 1, %g1
				cmp	%g1, 7
				bne,pt	%icc, .L787
				 st	%g1, [%g2+%lo(DIMENSION.6179)]
 2514        ->top
				ldx	[%fp-2953], %g5
				call	FAULT.6349, 0
				 mov	11, %o0
		.LVL570:
 2515 c(145):set bp;                       ->top;         !crb
 2516 c(146):set bp;                                      !rcrb
				call	SETBP.7277, 0
				 ldx	[%fp-2961], %g5
		.LVL571:
 2517 c(142):                                             !bplrb
				call	SETBP.7277, 0
				 ldx	[%fp-2961], %g5
		.LVL572:
		.L645:
 2518        dimension = 1 %IF dimension = 0
				sethi	%hi(DIMENSION.6179), %g1
				lduw	[%g1+%lo(DIMENSION.6179)], %g1
				cmp	%g1, 0
				bne,pt	%icc, .L876
				 ldx	[%fp-2953], %i5
 2519        op('d', dimension);  op(',', defs)
				sethi	%hi(DIMENSION.6179), %g1
				mov	1, %g2
				st	%g2, [%g1+%lo(DIMENSION.6179)]
		.L646:
				ldx	[%fp-2953], %i5
		.LVL573:
		.L876:
				ldx	[%i5+8], %g5
				sethi	%hi(DIMENSION.6179), %g1
				ldsw	[%g1+%lo(DIMENSION.6179)], %o1
				call	OP.6313, 0
				 mov	100, %o0
		.LVL574:
 2520        %IF class # 146 %START
				ldx	[%i5+8], %g5
				ldx	[%fp-2961], %i4
				ldsw	[%i4+20], %o1
				call	OP.6313, 0
				 mov	44, %o0
		.LVL575:
				lduw	[%i4+28], %g1
				cmp	%g1, 146
				bne,pn	%icc, .L812
				 mov	%i4, %g5
		.L647:
		.L649:
 2521           set subs(defs)
				call	SETSUBS.7270, 0
				 ldsw	[%i4+20], %o0
		.LVL576:
 2522           fault(13) %IF dict(dmin) >= 0 %OR inhibit # 0 %OR level=0
				ldx	[%i5+8], %g2
				lduw	[%i5+52], %g1
				add	%g1, -1, %g1
				sra	%g1, 0, %g1
				mov	1677, %g3
				sllx	%g3, 3, %g3
				add	%g1, %g3, %g1
				add	%g1, %g1, %g1
				add	%g2, %g1, %g1
				ldsh	[%g1+4], %g1
				cmp	%g1, 0
				bge,pn	%icc, .L877
				 ldx	[%fp-2953], %g5
 2523        %FINISH
				lduw	[%i5+20], %g1
				cmp	%g1, 0
				bne,pt	%icc, .L877
				 nop
 2524        dimension = 0;  defs = 0
				sethi	%hi(DIMENSION.6179), %g1
		.L845:
				st	%g0, [%g1+%lo(DIMENSION.6179)]
				lduw	[%i5+60], %g1
				cmp	%g1, 0
				bne,a,pt %icc, .L845
				 sethi	%hi(DIMENSION.6179), %g1
		.L648:
				ba,pt	%xcc, .L845
				 sethi	%hi(DIMENSION.6179), %g1
		.LVL578:
		.L650:
 2525        ->top
				ldx	[%fp-2961], %g1
				ba,pt	%xcc, .L787
				 st	%g0, [%g1+20]
		.L812:
 2526 c(128):id = dupid;  ->top;                          !EDUP
				ldx	[%fp-2953], %g5
		.L877:
				call	FAULT.6349, 0
				 mov	13, %o0
		.LVL577:
 2527 c(130):block x = x
				ldx	[%fp-2953], %g1
				lduw	[%fp-3029], %g2
 2528        op('F', 0) %IF decl&spec = 0 %AND level # 0; !jump round proc
				ba,pt	%xcc, .L787
				 st	%g2, [%g1+56]
		.L651:
				sethi	%hi(X.6110), %g1
				lduw	[%g1+%lo(X.6110)], %g2
				sethi	%hi(BLOCKX.6189), %g1
				st	%g2, [%g1+%lo(BLOCKX.6189)]
				sethi	%hi(DECL.6134), %g1
				lduw	[%g1+%lo(DECL.6134)], %g1
				andcc	%g1, 1, %g0
				bne,pt	%xcc, .L878
				 ldx	[%fp-2953], %g1
 2529 c(125):dupid = id;                                  !%DUP
				lduw	[%g1+60], %g1
				cmp	%g1, 0
				bne,pn	%icc, .L813
				 ldx	[%fp-2953], %g1
 2530        %return %if Level < 0                        {spec about}
				lduw	[%g1+56], %g1
		.LVL579:
				ba,pt	%xcc, .L656
				 st	%g1, [%fp-3029]
		.LVL580:
		.L813:
				ldx	[%g1+8], %g5
				mov	0, %o1
				call	OP.6313, 0
				 mov	70, %o0
		.LVL581:
		.L652:
		.L654:
				ldx	[%fp-2953], %g1
		.L878:
				lduw	[%g1+56], %g2
				st	%g2, [%fp-3029]
		.LVL582:
				lduw	[%g1+60], %g1
				cmp	%g1, 0
				bl,pn	%icc, .L471
				 nop
		.L655:
		.LVL583:
		.L656:
 2531 c(90): def(x);  ->top;                              !ident
 2532 c(131):                                             !cident
				ldx	[%fp-2961], %g5
				sethi	%hi(X.6110), %g1
				call	DEF.7295, 0
				 ldsw	[%g1+%lo(X.6110)], %o0
		.LVL584:
 2533        %IF tag(x)_flags&(b'1111111'+const bit) = iform+const bit %START
				sethi	%hi(X.6110), %g1
				lduw	[%g1+%lo(X.6110)], %i5
		.LVL586:
				ldx	[%fp-2953], %g1
				ldx	[%g1+8], %g5
				sra	%i5, 0, %g1
				sllx	%g1, 4, %g1
				add	%g5, %g1, %g1
				lduh	[%g1+220], %g2
				andcc	%g2, 1, %g0
				bne,a,pt %xcc, .L658
				 ldx	[%fp-2961], %g1
 2534           tag(x)_format = lit
				sethi	%hi(LIT.6187), %g2
				lduw	[%g2+%lo(LIT.6187)], %g2
 2535        %FINISH %ELSE %START
				ba,pt	%xcc, .L787
				 st	%g2, [%g1+216]
		.L658:
 2536           set const(lit) %IF pending # 0
				lduw	[%g1+24], %g1
				cmp	%g1, 0
				be,a,pt	%icc, .L879
				 ldx	[%fp-2961], %g5
 2537           def(x)
				sethi	%hi(LIT.6187), %g1
				call	SETCONST.6316, 0
				 ldsw	[%g1+%lo(LIT.6187)], %o0
		.LVL587:
		.L659:
				ldx	[%fp-2961], %g5
		.L879:
				call	DEF.7295, 0
				 sra	%i5, 0, %o0
		.LVL588:
 2538          op('A', 1)
				ldx	[%fp-2953], %g1
				ldx	[%g1+8], %g5
				mov	1, %o1
				call	OP.6313, 0
				 mov	65, %o0
		.LVL589:
 2539        %FINISH
 2540        cident = x
 2541        ->top
 2542 c(124):dubious = 1 %IF tag(cident)_flags&prot # 0; !%DUBIOUS
 2543        ->top
				ba,pt	%xcc, .L787
				 st	%g2, [%g1+%lo(DUBIOUS.6174)]
		.L661:
		.L664:
		.LBB564:
		.LBB565:
 2544 c(97):                                              !f
				sethi	%hi(DUBIOUS.6174), %g1
				mov	1, %g2
		.LDL29:
 2545 c(98):                                              !m
 2546 c(99):                                              !p
 2547 c(96): call;  ->top;                                !r
 2548
 2549 c(165):                                             !nlab
 2550 c(100):                                             !rp
 2551 c(101):                                             !fp
 2552 c(102):                                             !mp
 2553 c(103):                                             !pp
 2554 c(91):                                              !v
 2555 c(92):                                              !n
 2556 c(106):                                             !a
 2557 c(107):                                             !an
 2558 c(108):                                             !na
 2559 c(109):                                             !nan
 2560       k = tag(x)_index
				ba,pt	%xcc, .L847
				 ldx	[%fp-2953], %g1
		.L666:
				ba,pt	%xcc, .L847
				 ldx	[%fp-2953], %g1
		.L667:
				ba,pt	%xcc, .L847
				 ldx	[%fp-2953], %g1
		.L668:
				ba,pt	%xcc, .L847
				 ldx	[%fp-2953], %g1
		.L669:
				ba,pt	%xcc, .L847
				 ldx	[%fp-2953], %g1
		.L670:
		.L675:
				ldx	[%fp-2953], %g1
		.L847:
				ldx	[%g1+8], %g5
				sethi	%hi(X.6110), %g1
				ldsw	[%g1+%lo(X.6110)], %g1
				add	%g1, 13, %g1
				sllx	%g1, 4, %g1
				add	%g5, %g1, %g1
				ldsh	[%g1+14], %o1
		.LVL596:
				ba,pt	%xcc, .L847
				 ldx	[%fp-2953], %g1
		.L672:
				ba,pt	%xcc, .L847
				 ldx	[%fp-2953], %g1
		.L673:
				ba,pt	%xcc, .L847
				 ldx	[%fp-2953], %g1
		.L674:
				ba,pt	%xcc, .L847
				 ldx	[%fp-2953], %g1
		.LVL598:
		.L814:
 2561       %IF k < 0 %THEN op('n', -k) %ELSE op('@', k)
				cmp	%o1, 0
				bl,a,pn	%icc, .L814
				 sub	%g0, %o1, %o1
		.L676:
 2562       ->top
				sra	%o1, 0, %o1
				call	OP.6313, 0
				 mov	110, %o0
		.LVL599:
 2563 c(121):set const(0);  ->top;                        !special for zero
 2564 c(167):bp=bp+1;  buff(bp)='G';  ->pstr;             !aconst (alias)
				ldx	[%fp-2953], %g1
				ldx	[%g1+8], %g5
				call	SETCONST.6316, 0
				 mov	0, %o0
		.LVL600:
 2565 c(const):                                           !const
				sra	%o1, 0, %o1
				call	OP.6313, 0
				 mov	64, %o0
		.LVL597:
				sethi	%hi(BP.6197), %g2
				lduw	[%g2+%lo(BP.6197)], %g1
				add	%g1, 1, %g3
				st	%g3, [%g2+%lo(BP.6197)]
 2566        %IF x < 0 %START;                            !constinteger
				ldx	[%fp-2953], %g2
				ldx	[%g2+8], %g2
				sra	%g1, 0, %g1
				add	%g2, %g1, %g2
				sethi	%hi(53611520), %g1
				srlx	%g1, 9, %g1
				mov	71, %g3
				stb	%g3, [%g2+%g1]
		.L679:
				sethi	%hi(X.6110), %g1
				lduw	[%g1+%lo(X.6110)], %g1
				cmp	%g1, 0
				bl,pn	%icc, .L815
				 sethi	%hi(BP.6197), %g2
		.L681:
 2567           set const(tag(-x)_format);  ->top
				ldx	[%fp-2953], %g2
				ldx	[%g2+8], %g5
				sub	%g0, %g1, %g1
				sra	%g1, 0, %g1
				add	%g1, 13, %g1
				sllx	%g1, 4, %g1
				add	%g5, %g1, %g1
				call	SETCONST.6316, 0
				 ldsw	[%g1+8], %o0
		.LVL604:
 2568        %FINISH
 2569        %IF x&x'4000' # 0 %START;                    !strings
 2570           bp=bp+1 %AND buff(bp)=''''
				lduw	[%g2+%lo(BP.6197)], %g1
				add	%g1, 1, %g3
				st	%g3, [%g2+%lo(BP.6197)]
 2571 pstr:     x = x-x'4000'+stbase
				ldx	[%fp-2953], %g2
				ldx	[%g2+8], %g2
				sra	%g1, 0, %g1
				add	%g2, %g1, %g2
				sethi	%hi(53611520), %g1
				srlx	%g1, 9, %g1
				mov	39, %g3
				ba,pt	%xcc, .L679
				 stb	%g3, [%g2+%g1]
		.L815:
 2572           k = byteinteger(x)
				sethi	%hi(X.6110), %g1
				lduw	[%g1+%lo(X.6110)], %g2
				sethi	%hi(-16384), %g3
				add	%g2, %g3, %g2
				sethi	%hi(STBASE.6156), %g3
				lduw	[%g3+%lo(STBASE.6156)], %g3
				add	%g2, %g3, %g2
				st	%g2, [%g1+%lo(X.6110)]
				sra	%g2, 0, %g1
				ldub	[%g1], %g4
				and	%g4, 0xff, %i5
		.LVL601:
 2573           bp=bp+1 %AND buff(bp)=k
				sethi	%hi(BP.6197), %g3
				lduw	[%g3+%lo(BP.6197)], %g1
				add	%g1, 1, %g5
				st	%g5, [%g3+%lo(BP.6197)]
 2574           k = k+x
				ldx	[%fp-2953], %g3
				ldx	[%g3+8], %g3
				sra	%g1, 0, %g1
				add	%g3, %g1, %g3
				sethi	%hi(53611520), %g1
				srlx	%g1, 9, %g1
				add	%g2, %i5, %i5
		.LVL602:
 2575           %CYCLE
 2576              ->top %IF x = k
				cmp	%g2, %i5
				be,pn	%icc, .L787
				 stb	%g4, [%g3+%g1]
				mov	%g2, %g1
				sub	%g5, %g2, %g5
				cmp	%g1, %i5
				bne,pt	%icc, .L682
				 stb	%g4, [%g2+%i4]
				sethi	%hi(X.6110), %g2
				st	%g1, [%g2+%lo(X.6110)]
				add	%g1, %g5, %g1
				sethi	%hi(BP.6197), %g2
				ba,pt	%xcc, .L787
				 st	%g1, [%g2+%lo(BP.6197)]
		.LVL603:
		.L680:
 2577              x = x+1;  bp=bp+1 %AND buff(bp)=byteinteger(x)
				add	%g1, 1, %g1
 2578           %REPEAT
 2579        %FINISH
				sethi	%hi(53611520), %i4
				srlx	%i4, 9, %i4
		.L682:
				add	%g1, %g5, %g3
				sra	%g1, 0, %g2
				ldub	[%g2], %g4
				ldx	[%fp-2953], %g2
				ldx	[%g2+8], %g2
				sra	%g3, 0, %g3
				add	%g2, %g3, %g2
		.LDL31:
 2580        %IF x&x'2000' # 0 %START;                    !real
 2581           x = x-x'2000'+stbase
 2582           k = byteinteger(x)
 2583           op('D', k);  bp=bp+1 %AND buff(bp)=','
 2584           k = k+x
 2585           %CYCLE
 2586              ->top %IF x = k
 2587              x = x+1;  j = byteinteger(x)
 2588              %IF j = '@' %START
 2589                 op('@', litpool(byteinteger(x+1)));  ->top
 2590              %FINISH
 2591              bp=bp+1 %AND buff(bp)=j
 2592           %REPEAT
 2593        %FINISH
 2594        set const(lit pool(x))
 2595        ->top
 2596
 2597 c(137):bp=bp+1 %AND buff(bp)='i';               ->top;         !asep
 2598 c(141):bp=bp+1 %AND buff(bp)='a';               ->top;         !arb
				sethi	%hi(BP.6197), %g2
				lduw	[%g2+%lo(BP.6197)], %g1
				add	%g1, 1, %g3
				st	%g3, [%g2+%lo(BP.6197)]
 2599
				ldx	[%fp-2953], %g2
				ldx	[%g2+8], %g2
				sra	%g1, 0, %g1
				add	%g2, %g1, %g2
				sethi	%hi(53611520), %g1
				srlx	%g1, 9, %g1
				mov	105, %g3
				sethi	%hi(BP.6197), %g2
				lduw	[%g2+%lo(BP.6197)], %g1
				add	%g1, 1, %g3
				st	%g3, [%g2+%lo(BP.6197)]
 2600 !own arrays
				ba,pt	%xcc, .L787
				 stb	%g3, [%g2+%g1]
		.L684:
				ldx	[%fp-2953], %g2
				ldx	[%g2+8], %g2
				sra	%g1, 0, %g1
				add	%g2, %g1, %g2
				sethi	%hi(53611520), %g1
				srlx	%g1, 9, %g1
				mov	97, %g3
 2601
				ba,pt	%xcc, .L787
				 stb	%g3, [%g2+%g1]
		.L685:
 2602 c(132):ocount = ub-lb+1
 2603        def(x);                               !oident
				sethi	%hi(UB.7223), %g1
				lduw	[%g1+%lo(UB.7223)], %g1
				sethi	%hi(LB.7222), %g2
				lduw	[%g2+%lo(LB.7222)], %g2
				sub	%g1, %g2, %g1
				add	%g1, 1, %g1
				sethi	%hi(OCOUNT.6169), %g2
				st	%g1, [%g2+%lo(OCOUNT.6169)]
				ldx	[%fp-2961], %i5
		.LVL605:
				mov	%i5, %g5
				sethi	%hi(X.6110), %g1
				call	DEF.7295, 0
				 ldsw	[%g1+%lo(X.6110)], %o0
		.LVL606:
 2604        dimension = 1;  set subs(1)
				sethi	%hi(DIMENSION.6179), %g1
				mov	1, %g2
				st	%g2, [%g1+%lo(DIMENSION.6179)]
 2605        %IF next = 0 %START;                  !no initialisation
				mov	%i5, %g5
				call	SETSUBS.7270, 0
				 mov	1, %o0
		.LVL607:
				lduw	[%i5+36], %g1
				cmp	%g1, 0
				bne,pn	%icc, .L686
				 nop
 2606           op('A', ocount) %IF ocount > 0
				sethi	%hi(OCOUNT.6169), %g1
				lduw	[%g1+%lo(OCOUNT.6169)], %o1
				cmp	%o1, 0
				bg,a,pn	%icc, .L816
				 ldx	[%fp-2953], %g1
		.L687:
		.L848:
 2607           ocount = -1
				mov	-1, %g2
				ldx	[%g1+8], %g5
				sra	%o1, 0, %o1
				call	OP.6313, 0
				 mov	65, %o0
		.LVL608:
				ba,pt	%xcc, .L848
				 sethi	%hi(OCOUNT.6169), %g1
		.L686:
 2608        %FINISH %ELSE %START;                 !initialisation given
				ba,pt	%xcc, .L787
				 st	%g2, [%g1+%lo(OCOUNT.6169)]
		.L816:
 2609           get next
				call	GETNEXT.7245, 0
				 ldx	[%fp-2961], %g5
		.LVL609:
 2610        %FINISH
 2611        ->top
 2612 c(162):lit = ocount;  ->ins;                 !indef
 2613 c(143):pop lit;                              !orb
				sethi	%hi(OCOUNT.6169), %g1
				lduw	[%g1+%lo(OCOUNT.6169)], %g2
				sethi	%hi(LIT.6187), %g1
				st	%g2, [%g1+%lo(LIT.6187)]
		.L689:
 2614 ins:   fault(10) %AND lit = 0 %IF lit < 0
				call	POPLIT.7342, 0
				 ldx	[%fp-2961], %g5
		.LVL617:
 2615        get next
				sethi	%hi(LIT.6187), %g1
		.L849:
				lduw	[%g1+%lo(LIT.6187)], %g1
				cmp	%g1, 0
				bl,pn	%icc, .L817
				 ldx	[%fp-2953], %g5
		.L691:
				call	GETNEXT.7245, 0
				 ldx	[%fp-2961], %g5
		.LVL611:
		.L692:
				ba,pt	%xcc, .L849
				 sethi	%hi(LIT.6187), %g1
		.L817:
 2616        ->inst
				call	FAULT.6349, 0
				 mov	10, %o0
		.LVL618:
 2617 c(139):                                      !osep (x=19)
				sethi	%hi(LIT.6187), %g1
				ba,pt	%xcc, .L691
				 st	%g0, [%g1+%lo(LIT.6187)]
		.L693:
		.L694:
 2618 c(153):lit = 1
 2619 inst:  pop def %IF pending # 0;              !ownt (x=0)
				sethi	%hi(LIT.6187), %g1
				mov	1, %g2
				ba,pt	%xcc, .L692
				 st	%g2, [%g1+%lo(LIT.6187)]
		.LVL619:
		.L818:
 2620        op('A', lit)
				ldx	[%fp-2961], %i5
		.LVL612:
				lduw	[%i5+24], %g1
				cmp	%g1, 0
				be,a,pt	%icc, .L880
				 sethi	%hi(LIT.6187), %g1
		.LBB566:
		.LBB567:
				sethi	%hi(LIT.6187), %g1
		.L880:
				lduw	[%g1+%lo(LIT.6187)], %i5
				ldx	[%fp-2953], %g1
				ldx	[%g1+8], %g5
				sra	%i5, 0, %o1
				call	OP.6313, 0
				 mov	65, %o0
		.LVL614:
 2621        ocount = ocount-lit
				sethi	%hi(OCOUNT.6169), %g2
				lduw	[%g2+%lo(OCOUNT.6169)], %g1
				sub	%g1, %i5, %g1
 2622        %IF ocount >= 0 %START
				cmp	%g1, 0
				bl,pn	%icc, .L698
				 st	%g1, [%g2+%lo(OCOUNT.6169)]
 2623           ->top %IF x # 0;                          !more coming
				sethi	%hi(X.6110), %g2
				lduw	[%g2+%lo(X.6110)], %g2
				cmp	%g2, 0
				bne,a,pt %icc, .L829
				 ldx	[%fp-2961], %g1
		.L697:
 2624           ocount = -1 %AND %RETURN %IF ocount = 0;  !all done
				cmp	%g1, 0
				be,pn	%icc, .L818
				 sethi	%hi(OCOUNT.6169), %g1
		.L696:
		.L698:
 2625        %FINISH
				mov	-1, %g2
 2626        fault(11);  %RETURN
				ldx	[%fp-2953], %g5
				call	FAULT.6349, 0
				 mov	11, %o0
		.LVL615:
				ba,pt	%xcc, .L471
				 nop
		.LVL616:
		.L690:
				ba,pt	%xcc, .L471
				 st	%g2, [%g1+%lo(OCOUNT.6169)]
		.LVL620:
		.L699:
 2627
 2628 c(swit):op('W', tag(x)_index);  inhibit = 1;  ->atop
 2629 c(134):def(x);                               !swid
				ldx	[%fp-2953], %i5
		.LVL621:
				ldx	[%i5+8], %g5
				sethi	%hi(X.6110), %g1
				ldsw	[%g1+%lo(X.6110)], %g1
				add	%g1, 13, %g1
				sllx	%g1, 4, %g1
				add	%g5, %g1, %g1
				ldsh	[%g1+14], %o1
				call	OP.6313, 0
				 mov	87, %o0
		.LVL622:
 2630        n = ub-lb+1
				mov	1, %g1
				ldx	[%fp-2961], %g5
				sethi	%hi(X.6110), %g1
				call	DEF.7295, 0
				 ldsw	[%g1+%lo(X.6110)], %o0
		.LVL624:
				sethi	%hi(UB.7223), %g1
				lduw	[%g1+%lo(UB.7223)], %g3
				sethi	%hi(LB.7222), %g1
				lduw	[%g1+%lo(LB.7222)], %g1
				sub	%g3, %g1, %g3
 2631        n = (n+15)>>4;                        !slots needed (includes zero)
				ba,pt	%xcc, .L509
				 st	%g1, [%i5+20]
		.LVL623:
		.L700:
				add	%g3, 16, %g3
				srl	%g3, 4, %i4
		.LVL625:
 2632        j = dmax;  dmax = dmax+n+2
				sethi	%hi(DMAX.6158), %g2
				lduw	[%g2+%lo(DMAX.6158)], %i5
		.LVL626:
 2633        abandon(1) %IF dmax >= dmin
				add	%i4, %i5, %g1
				add	%g1, 2, %g1
				st	%g1, [%g2+%lo(DMAX.6158)]
				ldx	[%fp-2953], %g2
				lduw	[%g2+52], %g2
				cmp	%g1, %g2
				bge,pn	%icc, .L819
				 ldx	[%fp-2953], %g1
		.L701:
 2634        tag(x)_format = j
				ldx	[%fp-2953], %g4
		.L850:
				ldx	[%g4+8], %g2
				sethi	%hi(X.6110), %g1
				ldsw	[%g1+%lo(X.6110)], %g1
				add	%g1, 13, %g1
				sllx	%g1, 4, %g1
				add	%g2, %g1, %g1
				st	%i5, [%g1+8]
				ldx	[%g1+8], %g5
				call	ABANDON.6239, 0
				 mov	1, %o0
		.LVL631:
				ba,pt	%xcc, .L850
				 ldx	[%fp-2953], %g4
		.LVL632:
		.L703:
 2635        dict(j) = lb;  dict(j+1) = ub
				ldx	[%g4+8], %g3
				add	%i5, -1, %g1
				sra	%g1, 0, %g1
				mov	1677, %g2
				sllx	%g2, 3, %g2
				add	%g1, %g2, %g1
				add	%g1, %g1, %g1
				add	%g3, %g1, %g1
				sethi	%hi(LB.7222), %g3
				lduw	[%g3+%lo(LB.7222)], %g3
				sth	%g3, [%g1+4]
 2636        %CYCLE
				ldx	[%g4+8], %g3
				sra	%i5, 0, %g1
				add	%g1, %g2, %g1
				add	%g1, %g1, %g1
				add	%g3, %g1, %g1
				sethi	%hi(UB.7223), %g2
				lduw	[%g2+%lo(UB.7223)], %g2
		.LVL627:
 2637           n = n-1
 2638           ->top %IF n < 0
				addcc	%i4, -1, %g0
				bneg,pn	%icc, .L787
				 sth	%g2, [%g1+4]
				add	%i5, %i4, %g3
				cmp	%i5, %g3
				bne,pt	%icc, .L702
				 sth	%g0, [%g1+4]
 2639           j = j+1;  dict(j+1) = 0
				add	%i5, 1, %i5
		.LVL629:
 2640        %REPEAT
				mov	1677, %g4
				sllx	%g4, 3, %g4
		.LVL628:
		.L702:
				ldx	[%fp-2953], %g1
				ldx	[%g1+8], %g2
				sra	%i5, 0, %g1
				add	%g1, %g4, %g1
				add	%g1, %g1, %g1
				add	%g2, %g1, %g1
		.LDL32:
 2641 c(151):stats = stats-1;                      !slab
 2642        fault(7) %AND %RETURN %IF x < tbase
				sethi	%hi(STATS.6126), %g2
				lduw	[%g2+%lo(STATS.6126)], %g1
				add	%g1, -1, %g1
				st	%g1, [%g2+%lo(STATS.6126)]
				sethi	%hi(X.6110), %g1
				lduw	[%g1+%lo(X.6110)], %g1
				ldx	[%fp-2953], %g2
				lduw	[%g2+68], %g2
				cmp	%g1, %g2
				bl,pn	%icc, .L820
				 sethi	%hi(4096), %g2
		.L704:
 2643        %IF pending # 0 %START;               !explicit label
				xor	%g2, -384, %g2
				add	%fp, 2047, %g3
				add	%g3, %g2, %g2
				lduw	[%g2+24], %g2
				cmp	%g2, 0
				bne,pn	%icc, .L821
				 sra	%g1, 0, %g2
		.L705:
				sllx	%g2, 4, %g3
				ldx	[%fp-2953], %g2
				ldx	[%g2+8], %g2
				add	%g2, %g3, %g2
				ldx	[%fp-2953], %g5
				call	FAULT.6349, 0
				 mov	7, %o0
		.LVL642:
				ba,pt	%xcc, .L471
				 nop
		.L821:
 2644           def s lab(pstack(1))
				sethi	%hi(4096), %g5
				xor	%g5, -384, %g5
				add	%g3, %g5, %g5
				sethi	%hi(PSTACK.7238), %g1
				call	DEFSLAB.7319, 0
				 ldsw	[%g1+%lo(PSTACK.7238)], %o0
		.LVL643:
		.L706:
		.L714:
 2645        %FINISH %ELSE %START
 2646           fault(4) %AND %RETURN %IF tag(x)_app # 0
				lduw	[%g2+212], %g3
				cmp	%g3, 0
				bne,pn	%icc, .L822
				 mov	1, %g3
		.L707:
 2647           tag(x)_app = 1
				st	%g3, [%g2+212]
				ldx	[%fp-2953], %g5
				call	FAULT.6349, 0
				 mov	4, %o0
		.LVL645:
				ba,pt	%xcc, .L471
				 nop
		.LVL646:
		.L823:
		.LBB570:
 2648           n = tag(x)_format
				ldx	[%fp-2953], %g2
				ldx	[%g2+8], %g2
		.LVL633:
				sra	%g1, 0, %g1
				add	%g1, 13, %g1
		.LVL634:
				sllx	%g1, 4, %g1
		.LVL635:
				add	%g2, %g1, %g1
				ldsw	[%g1+8], %g1
				add	%g1, %g1, %g1
				add	%g2, %g1, %g1
		.LBB568:
 2649           %FOR j = dict(n), 1, dict(n+1) %CYCLE
 2650              def s lab(j)
				sethi	%hi(13739008), %g2
		.LVL636:
				srlx	%g2, 9, %g2
				ldsh	[%g1+%g2], %i5
		.LVL637:
				sethi	%hi(6870016), %g2
				srlx	%g2, 8, %g2
				ldsh	[%g1+%g2], %i3
		.LVL638:
				xor	%i4, -384, %i4
				add	%fp, 2047, %g1
				add	%g1, %i4, %i4
		.LBE568:
				mov	%i4, %g5
				call	DEFSLAB.7319, 0
				 sra	%i5, 0, %o0
		.LVL658:
 2651              flush buffer %IF bp >= 128
				subcc	%i3, %i5, %g0
				bneg,pn	%icc, .L823
				 sethi	%hi(_imp_current_file), %g1
		.LVL639:
				ba,pt	%xcc, .L712
				 sethi	%hi(BP.6197), %i2
		.LVL641:
		.L820:
				ldx	[%g1+%lo(_imp_current_file)], %o1
				brz,pn	%o1, .L709
				 mov	256, %o2
				call	_imp_c2istr, 0
				 add	%fp, 463, %o0
		.LVL647:
				sethi	%hi(_imp_current_line), %g1
		.L852:
				lduw	[%g1+%lo(_imp_current_line)], %i1
				cmp	%i1, 0
				be,a,pt	%icc, .L711
				 mov	2651, %i1
		.L711:
				sethi	%hi(.LC83), %o1
				or	%o1, %lo(.LC83), %o1
				call	_imp_c2istr, 0
				 add	%fp, 719, %o0
		.LVL648:
				sethi	%hi(4096), %i4
				xor	%i4, -640, %i2
				add	%fp, 2047, %g1
				add	%g1, %i2, %i2
				mov	256, %o2
				add	%fp, 463, %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL649:
				xor	%i4, -896, %i4
				add	%fp, 2047, %g1
				add	%g1, %i4, %i4
				mov	256, %o2
				add	%fp, 719, %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL650:
				mov	0, %o5
				mov	1, %o4
				mov	5, %o3
				mov	%i4, %o2
				sra	%i1, 0, %o1
				call	_signal_event, 0
				 mov	%i2, %o0
		.LVL651:
		.LBE570:
				sethi	%hi(.LC16), %o1
				or	%o1, %lo(.LC16), %o1
				call	memcpy, 0
				 add	%fp, -49, %o0
		.LVL653:
				mov	256, %o2
				add	%fp, -49, %o1
				call	memcpy, 0
				 add	%fp, -1329, %o0
		.LVL654:
		.LBE569:
				mov	256, %o2
				add	%fp, -1329, %o1
				call	memcpy, 0
				 add	%fp, 463, %o0
		.LVL655:
		.LBE571:
				ba,pt	%xcc, .L852
				 sethi	%hi(_imp_current_line), %g1
		.LVL656:
		.L713:
		.L853:
		.LBB572:
				lduw	[%i2+%lo(BP.6197)], %g1
				cmp	%g1, 127
				ble,a,pt %icc, .L713
				 cmp	%i3, %i5
 2652           %REPEAT
				add	%i5, -1, %i5
		.LVL640:
		.L851:
				ba,pt	%xcc, .L851
				 add	%i5, -1, %i5
		.LVL652:
		.L709:
		.LBB571:
		.LBB569:
				ldx	[%fp-2953], %g1
				call	FLUSHBUFFER.6207, 0
				 ldx	[%g1+8], %g5
		.LVL659:
		.LBE572:
 2653        %FINISH
 2654        inhibit = 1
				cmp	%i3, %i5
				be,pn	%icc, .L714
				 sethi	%hi(4096), %i4
				mov	1, %g1
		.L881:
				ldx	[%fp-2953], %g2
				be,pn	%icc, .L881
				 mov	1, %g1
		.L712:
				ba,pt	%xcc, .L853
				 cmp	%i3, %i5
		.LVL660:
		.L715:
 2655        %RETURN
				ba,pt	%xcc, .L471
				 st	%g1, [%g2+20]
		.LVL644:
		.L822:
				add	%i5, 1, %i5
		.LVL657:
 2656
 2657 c(140):bp=bp+1 %AND buff(bp)='p';                  ->top;          !psep
 2658 c(144):buff(bp+1)='p';  buff(bp+2)='E';  bp=bp+2;  ->top;          !prb
				sethi	%hi(BP.6197), %g2
				lduw	[%g2+%lo(BP.6197)], %g1
				add	%g1, 1, %g3
				st	%g3, [%g2+%lo(BP.6197)]
 2659
				ldx	[%fp-2953], %g2
				ldx	[%g2+8], %g2
				sra	%g1, 0, %g1
				add	%g2, %g1, %g2
				sethi	%hi(53611520), %g1
				srlx	%g1, 9, %g1
				mov	112, %g3
				sethi	%hi(BP.6197), %g5
				lduw	[%g5+%lo(BP.6197)], %g1
				ldx	[%fp-2953], %i5
		.LVL661:
				ldx	[%i5+8], %g3
				sra	%g1, 0, %g2
				add	%g3, %g2, %g3
				sethi	%hi(53611520), %g2
				srlx	%g2, 9, %g2
				mov	112, %g4
				stb	%g4, [%g3+%g2]
 2660 !constant expressions
				ba,pt	%xcc, .L787
				 stb	%g3, [%g2+%g1]
		.L716:
				ldx	[%i5+8], %g3
				add	%g1, 1, %g4
				sra	%g4, 0, %g4
				add	%g3, %g4, %g3
				mov	69, %g4
				stb	%g4, [%g3+%g2]
 2661
				add	%g1, 2, %g1
 2662 c(155):                                      !pconst
				ba,pt	%xcc, .L787
				 st	%g1, [%g5+%lo(BP.6197)]
		.LVL662:
		.L717:
 2663        %IF x < 0 %THEN lit = tag(-x)_format %c
				sethi	%hi(X.6110), %g1
				lduw	[%g1+%lo(X.6110)], %g1
				cmp	%g1, 0
				bl,pn	%icc, .L824
				 ldx	[%fp-2953], %g2
		.L718:
 2664                  %ELSE lit = lit pool(x)
				ldx	[%g2+8], %g2
				sub	%g0, %g1, %g1
				sra	%g1, 0, %g1
				add	%g1, 13, %g1
				sllx	%g1, 4, %g1
				add	%g2, %g1, %g1
				lduw	[%g1+8], %g2
				sethi	%hi(LIT.6187), %g1
 2665        pending = pending+1;     pstack(pending) = lit;  ->top
				ldx	[%fp-2961], %g3
				lduw	[%g3+24], %g1
				add	%g1, 1, %g2
				st	%g2, [%g3+24]
				ba,pt	%xcc, .L719
				 st	%g2, [%g1+%lo(LIT.6187)]
		.L720:
 2666 c(156):lit = pstack(pending);  lit = -lit %IF lit < 0
				sra	%g1, 0, %g1
				sllx	%g1, 2, %g1
				sethi	%hi(LIT.6187), %g2
				lduw	[%g2+%lo(LIT.6187)], %g2
				ldx	[%fp-3009], %g3
 2667                                 pstack(pending) = lit;  ->top;  !cmod
				ldx	[%g2+8], %g2
				sra	%g1, 0, %g1
				sllx	%g1, 2, %g1
				lduw	[%g2+%g1], %g2
				sethi	%hi(LIT.6187), %g1
				st	%g2, [%g1+%lo(LIT.6187)]
		.L719:
				ba,pt	%xcc, .L787
				 st	%g2, [%g3+%g1]
		.L824:
				ldx	[%fp-2961], %g1
				lduw	[%g1+24], %g1
				add	%g1, -1, %g1
				sra	%g1, 0, %g2
				sllx	%g2, 2, %g2
				ldx	[%fp-3009], %g3
				lduw	[%g3+%g2], %g2
				sethi	%hi(LIT.6187), %g3
				sra	%g1, 0, %g1
				sllx	%g1, 2, %g1
				sethi	%hi(LIT.6187), %g2
				lduw	[%g2+%lo(LIT.6187)], %g2
				ldx	[%fp-3009], %g3
 2668 c(157):lit = -pstack(pending);  pstack(pending) = lit;  ->top;  !csign
				cmp	%g2, 0
				bl,pn	%icc, .L825
				 st	%g2, [%g3+%lo(LIT.6187)]
		.L721:
				ba,pt	%xcc, .L787
				 st	%g2, [%g3+%g1]
		.L825:
 2669 c(158):lit = \pstack(pending);  pstack(pending) = lit;  ->top;  !cuop
				sub	%g0, %g2, %g2
				ba,pt	%xcc, .L721
				 st	%g2, [%g3+%lo(LIT.6187)]
		.L722:
				ldx	[%fp-2961], %g1
				lduw	[%g1+24], %g1
				add	%g1, -1, %g1
				sra	%g1, 0, %g1
				sllx	%g1, 2, %g1
				ldx	[%fp-3009], %g4
				lduw	[%g4+%g1], %g2
				sub	%g0, %g2, %g2
				sethi	%hi(LIT.6187), %g3
				st	%g2, [%g3+%lo(LIT.6187)]
 2670 c(159):                                      !cop1
				ldx	[%fp-2961], %g1
				lduw	[%g1+24], %g1
				add	%g1, -1, %g1
				sra	%g1, 0, %g1
				sllx	%g1, 2, %g1
				ldx	[%fp-3009], %g4
				lduw	[%g4+%g1], %g2
				xnor	%g0, %g2, %g2
				sethi	%hi(LIT.6187), %g3
				st	%g2, [%g3+%lo(LIT.6187)]
 2671 c(160):                                      !cop2
				ba,pt	%xcc, .L787
				 st	%g2, [%g4+%g1]
		.L723:
 2672 c(161):pending = pending-1;                  !cop3
				ba,pt	%xcc, .L787
				 st	%g2, [%g4+%g1]
		.L724:
		.L726:
 2673        lit2 = pstack(pending+1);  lit = pstack(pending)
				sethi	%hi(PSTACK.7238), %g1
				or	%g1, %lo(PSTACK.7238), %g1
				stx	%g1, [%fp-3009]
		.LVL448:
		.L787:
				ldx	[%fp-2961], %g3
		.L854:
				lduw	[%g3+24], %g1
				add	%g1, -1, %g2
				st	%g2, [%g3+24]
				sra	%g2, 0, %g2
				sllx	%g2, 2, %g2
				ldx	[%fp-3009], %g3
				lduw	[%g3+%g2], %g2
				st	%g2, [%fp-2985]
		.LVL663:
				ba,pt	%xcc, .L854
				 ldx	[%fp-2961], %g3
		.L728:
 2674        ->litop(x>>2)
				add	%g1, -2, %g1
				sra	%g1, 0, %g1
				sllx	%g1, 2, %g1
				lduw	[%g3+%g1], %g2
		.LVL664:
				sethi	%hi(LIT.6187), %g1
				st	%g2, [%g1+%lo(LIT.6187)]
		.LVL665:
				sethi	%hi(X.6110), %g1
				lduw	[%g1+%lo(X.6110)], %g1
				srl	%g1, 2, %g1
				st	%g1, [%fp-3013]
		.LVL666:
				ldx	[%fp-2993], %g1
		.LVL667:
				stx	%g1, [%fp-3025]
				mov	2674, %g1
				st	%g1, [%fp-3017]
		.LVL668:
		.L727:
 2675 litop(10):lit = lit*lit2;   ->setl
 2676 litop(12):
				sethi	%hi(LIT.6187), %g2
				lduw	[%g2+%lo(LIT.6187)], %g1
				lduw	[%fp-2985], %g3
				mulx	%g1, %g3, %g1
 2677 litop(3):n = 1;                              !lit = lit\\lit2
				ba,pt	%xcc, .L745
				 st	%g1, [%g2+%lo(LIT.6187)]
		.L730:
		.L731:
		.LVL674:
 2678          fault(10) %IF lit2 < 0
				lduw	[%fp-2985], %g1
				cmp	%g1, 0
				bl,pn	%icc, .L826
				 ldx	[%fp-2953], %g5
 2679          %WHILE lit2 > 0 %CYCLE
				call	FAULT.6349, 0
				 mov	10, %o0
		.LVL681:
 2680             lit2 = lit2-1
				lduw	[%fp-2985], %g2
		.L855:
				cmp	%g2, 0
				ble,pn	%icc, .L733
				 mov	1, %g1
				lduw	[%fp-2985], %g3
				addcc	%g3, -1, %g3
		.LVL677:
				bne,pt	%icc, .L734
				 st	%g3, [%fp-2985]
		.LVL678:
		.L733:
				ba,pt	%xcc, .L855
				 lduw	[%fp-2985], %g2
		.LVL682:
		.L735:
 2681             n = n*lit
				sethi	%hi(LIT.6187), %g1
				lduw	[%g1+%lo(LIT.6187)], %g2
				mov	1, %g1
		.LVL675:
		.L734:
				mulx	%g1, %g2, %g1
		.LVL676:
 2682          %REPEAT
 2683          lit = n;           ->setl
				sethi	%hi(LIT.6187), %g2
				st	%g1, [%g2+%lo(LIT.6187)]
		.L729:
		.L745:
		.LVL679:
 2684 litop(1):lit = lit<<lit2;   ->setl
 2685 litop(2):lit = lit>>lit2;   ->setl
				sethi	%hi(LIT.6187), %g2
				lduw	[%g2+%lo(LIT.6187)], %g1
				lduw	[%fp-2985], %g3
				sll	%g1, %g3, %g1
 2686 litop(5):lit = lit&lit2;    ->setl
				ba,pt	%xcc, .L745
				 st	%g1, [%g2+%lo(LIT.6187)]
		.L736:
				sethi	%hi(LIT.6187), %g2
				lduw	[%g2+%lo(LIT.6187)], %g1
				lduw	[%fp-2985], %g3
				srl	%g1, %g3, %g1
 2687 litop(11):
				ba,pt	%xcc, .L745
				 st	%g1, [%g2+%lo(LIT.6187)]
		.L737:
				sethi	%hi(LIT.6187), %g2
				lduw	[%g2+%lo(LIT.6187)], %g1
				lduw	[%fp-2985], %g3
				and	%g1, %g3, %g1
 2688 litop(4):%IF lit2 = 0 %THEN fault(10) %ELSE lit = lit//lit2
				ba,pt	%xcc, .L745
				 st	%g1, [%g2+%lo(LIT.6187)]
		.L738:
		.L739:
 2689                             ->setl
				lduw	[%fp-2985], %g1
				cmp	%g1, 0
				be,pn	%icc, .L827
				 sethi	%hi(LIT.6187), %g2
		.L740:
 2690 litop(8):lit = lit+lit2;    ->setl
				ldx	[%fp-2953], %g5
				call	FAULT.6349, 0
				 mov	10, %o0
		.LVL683:
 2691 litop(9):lit = lit-lit2;    ->setl
				sethi	%hi(LIT.6187), %g2
				lduw	[%g2+%lo(LIT.6187)], %g1
				lduw	[%fp-2985], %g3
				add	%g1, %g3, %g1
 2692 litop(6):lit = lit!lit2;    ->setl
				ba,pt	%xcc, .L745
				 st	%g1, [%g2+%lo(LIT.6187)]
		.L742:
				sethi	%hi(LIT.6187), %g2
				lduw	[%g2+%lo(LIT.6187)], %g1
				lduw	[%fp-2985], %g3
				sub	%g1, %g3, %g1
 2693 litop(7):lit = lit!!lit2
				ldsw	[%g2+%lo(LIT.6187)], %g1
				ldsw	[%fp-2985], %g3
				sdivx	%g1, %g3, %g1
				ba,pt	%xcc, .L745
				 st	%g1, [%g2+%lo(LIT.6187)]
		.L827:
				ba,pt	%xcc, .L745
				 st	%g1, [%g2+%lo(LIT.6187)]
		.L743:
				sethi	%hi(LIT.6187), %g2
				lduw	[%g2+%lo(LIT.6187)], %g1
				lduw	[%fp-2985], %g3
				or	%g1, %g3, %g1
 2694
				ba,pt	%xcc, .L745
				 st	%g1, [%g2+%lo(LIT.6187)]
		.L744:
				sethi	%hi(LIT.6187), %g2
				lduw	[%g2+%lo(LIT.6187)], %g1
				lduw	[%fp-2985], %g3
				xor	%g1, %g3, %g1
				ba,pt	%xcc, .L745
				 st	%g1, [%g2+%lo(LIT.6187)]
		.L746:
 2695 setl: pstack(pending) = lit;  ->top
 2696
				ldx	[%fp-2961], %g1
		.L856:
				lduw	[%g1+24], %g1
				add	%g1, -1, %g1
				sra	%g1, 0, %g1
				sllx	%g1, 2, %g1
				sethi	%hi(LIT.6187), %g2
				lduw	[%g2+%lo(LIT.6187)], %g2
				ldx	[%fp-3009], %g3
				ba,pt	%xcc, .L856
				 ldx	[%fp-2961], %g1
		.L741:
 2697 c(170):Fault(4) %if IMPCOM_Option # ""
				ba,pt	%xcc, .L787
				 st	%g2, [%g3+%g1]
		.LVL680:
		.L826:
 2698        IMPCOM_Option = String(x-x'4000'+Stbase);      !Option string
 2699        ->Top
 2700
				add	%fp, -1073, %o1
				sethi	%hi(IMPCOM+280), %o0
				call	_imp_strcmp, 0
				 or	%o0, %lo(IMPCOM+280), %o0
		.LVL684:
				cmp	%o0, 0
				be,pt	%icc, .L883
				 mov	255, %o2
				mov	255, %o2
		.L883:
				add	%fp, -817, %o1
				sethi	%hi(IMPCOM+280), %o0
				call	_imp_strncpy, 0
				 or	%o0, %lo(IMPCOM+280), %o0
		.LVL686:
 2701 !string resolution
 2702
 2703 c(135):resln = 2;                    ->top;           !dotl
				ldx	[%fp-2953], %g5
				call	FAULT.6349, 0
				 mov	4, %o0
		.LVL685:
		.L747:
 2704 c(136):resln = resln+1;              ->top;           !dotr
				mov	2, %g1
 2705 c(55): op('r', resln);    resln = 0; ->top;           !resop
				ba,pt	%xcc, .L787
				 st	%g1, [%fp-2981]
		.LVL688:
		.L749:
				lduw	[%fp-2981], %g1
				add	%g1, 1, %g1
		.LVL689:
 2706 c(164):op('r', resln+4);  resln = 0;                  !cresop
				ba,pt	%xcc, .L787
				 st	%g1, [%fp-2981]
		.LVL690:
		.L750:
				ldx	[%fp-2953], %g1
				ldx	[%g1+8], %g5
				ldsw	[%fp-2981], %o1
				call	OP.6313, 0
				 mov	114, %o0
		.LVL691:
 2707 c(122):x = 6;                        ->cop;           !%PRED
				ba,pt	%xcc, .L787
				 st	%g0, [%fp-2981]
		.L751:
				lduw	[%fp-2981], %g1
				add	%g1, 4, %o1
				ldx	[%fp-2953], %g1
				ldx	[%g1+8], %g5
				sra	%o1, 0, %o1
				call	OP.6313, 0
				 mov	114, %o0
		.LVL692:
 2708 c(87): set const(pstack(1));                          !mass
				st	%g0, [%fp-2981]
		.L752:
		.LVL693:
				sethi	%hi(X.6110), %g1
				mov	6, %g2
				st	%g2, [%g1+%lo(X.6110)]
		.L594:
		.LVL694:
		.L597:
 2709        bp=bp+1 %AND buff(bp)='P';    ->top
				ldx	[%fp-2953], %i5
		.LVL702:
				ldx	[%i5+8], %g5
				ldx	[%fp-3009], %g1
				call	SETCONST.6316, 0
				 ldsw	[%g1], %o0
		.LVL703:
				sethi	%hi(BP.6197), %g2
				lduw	[%g2+%lo(BP.6197)], %g1
				add	%g1, 1, %g3
				st	%g3, [%g2+%lo(BP.6197)]
 2710    %END
				ldx	[%i5+8], %g2
				sra	%g1, 0, %g1
				add	%g2, %g1, %g2
				sethi	%hi(53611520), %g1
				srlx	%g1, 9, %g1
				mov	80, %g3
		.L485:
 2711
				ba,pt	%xcc, .L787
				 stb	%g3, [%g2+%g1]
		.LVL704:
		.L488:
 2712 %END;                                                 !of compile block
				sethi	%hi(.LC78), %g1
				or	%g1, %lo(.LC78), %g1
				stx	%g1, [%fp-2993]
		.LBB543:
				sethi	%hi(.LC16), %g1
				or	%g1, %lo(.LC16), %g1
				stx	%g1, [%fp-3001]
		.LBE543:
				cmp	%i5, 180
				bgu,pt	%icc, .L488
				 sethi	%hi(_imp_current_file), %g1
		.LVL461:
				sra	%i5, 0, %g1
		.L857:
				sllx	%g1, 3, %g1
				ldx	[%fp-2977], %g2
				ldx	[%g2+%g1], %g1
				ldx	[%g1+%lo(_imp_current_file)], %o1
				brz,pn	%o1, .L754
				 mov	256, %o2
				call	_imp_c2istr, 0
				 add	%fp, 975, %o0
		.LVL705:
				sethi	%hi(_imp_current_line), %g1
		.L858:
				lduw	[%g1+%lo(_imp_current_line)], %i3
				cmp	%i3, 0
				mov	2712, %g1
				move	%icc, %g1, %i3
				sethi	%hi(4096), %g1
				xor	%g1, -896, %i4
				add	%fp, 2047, %g1
				add	%g1, %i4, %i4
				mov	256, %o2
				add	%fp, 975, %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL706:
				sra	%i5, 0, %o4
				mov	2225, %g1
				stx	%g1, [%sp+2239]
		.LVL707:
				ldx	[%fp-2993], %g1
				stx	%g1, [%sp+2231]
				stx	%o4, [%sp+2223]
				sethi	%hi(.LC84), %o5
				or	%o5, %lo(.LC84), %o5
				mov	3, %o3
				mov	6, %o2
				sra	%i3, 0, %o1
				call	_signal_eventf, 0
				 mov	%i4, %o0
		.LVL708:
				ldx	[%fp-3001], %o1
				call	memcpy, 0
				 add	%fp, -49, %o0
		.LVL710:
				mov	256, %o2
				add	%fp, -49, %o1
				call	memcpy, 0
				 add	%fp, -561, %o0
		.LVL711:
		.LBE573:
				mov	256, %o2
				add	%fp, -561, %o1
				call	memcpy, 0
				 add	%fp, 975, %o0
		.LVL712:
				ba,pt	%xcc, .L858
				 sethi	%hi(_imp_current_line), %g1
		.LVL713:
		.L758:
 2713
				sethi	%hi(C.7065), %g1
				or	%g1, %lo(C.7065), %g1
				stx	%g1, [%fp-2977]
				ba,pt	%xcc, .L857
				 sra	%i5, 0, %g1
		.LVL709:
		.L754:
		.LBB573:
				ldx	[%fp+2039], %g1
				ldx	[%g7+40], %g2
				xor	%g1, %g2, %g1
				mov	0, %g2
				brnz,pn	%g1, .L1058
				 nop
				return	%i7+8
				 nop
		.L1057:
				call	__stack_chk_fail, 0
				 nop
		.LVL993:
				nop
		.LFE191:
				.section	".rodata"
				.align 8
		.LC91:
				.asciz	"Z"
				.skip	6
				.align 8
		.LC92:
				.asciz	"VDEC"
				.skip	3
				.section	.rodata.str1.8
				.align 8
		.LC93:
				.asciz	"OWNVDEC"
				.section	".rodata"
				.align 8
		.LC94:
				.asciz	"EXTVSPEC"
				.align 8
		.LC95:
				.asciz	"ADEC"
				.skip	3
				.section	.rodata.str1.8
				.align 8
		.LC96:
				.asciz	"OWNADEC"
				.section	".rodata"
				.align 8
		.LC97:
				.asciz	"EXTASPEC"
				.align 8
		.LC98:
				.asciz	"PROC"
				.skip	3
				.align 8
		.LC99:
				.asciz	"PROCSPEC"
				.section	.rodata.str1.8
				.align 8
		.LC100:
				.asciz	"FORMDEC"
				.section	".rodata"
				.align 8
		.LC101:
				.asciz	"SWDEC"
				.skip	2
				.align 8
		.LC102:
				.asciz	"LDEC"
				.skip	3
				.align 8
		.LC103:
				.asciz	"FORMSPEC"
				.align 8
		.LC104:
				.asciz	"OPTION"
				.skip	1
				.align 8
		.LC105:
				.asciz	"COMMA"
				.skip	2
				.align 8
		.LC106:
				.asciz	"T"
				.skip	6
				.align 8
		.LC107:
				.asciz	"COLON"
				.skip	2
				.section	.rodata.str1.8
				.align 8
		.LC108:
				.asciz	"COMMENT"
				.section	".rodata"
				.align 8
		.LC109:
				.asciz	"LB"
				.skip	5
				.align 8
		.LC110:
				.asciz	"ALIAS"
				.skip	2
				.align 8
		.LC111:
				.asciz	"RB"
				.skip	5
				.align 8
		.LC112:
				.asciz	"SUB"
				.skip	4
				.align 8
		.LC113:
				.asciz	"ARRAYD"
				.skip	1
				.align 8
		.LC114:
				.asciz	"STYPE"
				.skip	2
				.align 8
		.LC115:
				.asciz	"ARRAY"
				.skip	2
				.align 8
		.LC116:
				.asciz	"NAME"
				.skip	3
				.align 8
		.LC117:
				.asciz	"PROCD"
				.skip	2
				.align 8
		.LC118:
				.asciz	"FNMAP"
				.skip	2
				.align 8
		.LC119:
				.asciz	"SWITCH"
				.skip	1
				.align 8
		.LC120:
				.asciz	"OWN"
				.skip	4
				.align 8
		.LC121:
				.asciz	"EXTERNAL"
				.align 8
		.LC122:
				.asciz	"STRING"
				.skip	1
				.align 8
		.LC123:
				.asciz	"RECORD"
				.skip	1
				.align 8
		.LC124:
				.asciz	"FORMAT"
				.skip	1
				.align 8
		.LC125:
				.asciz	"SPEC"
				.skip	3
				.align 8
		.LC126:
				.asciz	"MCODE"
				.skip	2
				.align 8
		.LC127:
				.asciz	"LABEL"
				.skip	2
				.align 8
		.LC128:
				.asciz	"OP1"
				.skip	4
				.align 8
		.LC129:
				.asciz	"OP2"
				.skip	4
				.align 8
		.LC130:
				.asciz	"OP3"
				.skip	4
				.align 8
		.LC131:
				.asciz	"SIGN"
				.skip	3
				.align 8
		.LC132:
				.asciz	"UOP"
				.skip	4
				.align 8
		.LC133:
				.asciz	"MOD"
				.skip	4
				.align 8
		.LC134:
				.asciz	"DOT"
				.skip	4
				.align 8
		.LC135:
				.asciz	"COMP"
				.skip	3
				.align 8
		.LC136:
				.asciz	"ACOMP"
				.skip	2
				.align 8
		.LC137:
				.asciz	"EQ"
				.skip	5
				.align 8
		.LC138:
				.asciz	"EQEQ"
				.skip	3
				.align 8
		.LC139:
				.asciz	"JAM"
				.skip	4
				.align 8
		.LC140:
				.asciz	"JUMP"
				.skip	3
				.align 8
		.LC141:
				.asciz	"RESOP"
				.skip	2
				.align 8
		.LC142:
				.asciz	"AND"
				.skip	4
				.align 8
		.LC143:
				.asciz	"OR"
				.skip	5
				.align 8
		.LC144:
				.asciz	"NOT"
				.skip	4
				.align 8
		.LC145:
				.asciz	"WHILE"
				.skip	2
				.align 8
		.LC146:
				.asciz	"UNTIL"
				.skip	2
				.align 8
		.LC147:
				.asciz	"FOR"
				.skip	4
				.align 8
		.LC148:
				.asciz	"CWORD"
				.skip	2
				.align 8
		.LC149:
				.asciz	"EXIT"
				.skip	3
				.align 8
		.LC150:
				.asciz	"ON"
				.skip	5
				.align 8
		.LC151:
				.asciz	"SIGNAL"
				.skip	1
				.align 8
		.LC152:
				.asciz	"THEN"
				.skip	3
				.align 8
		.LC153:
				.asciz	"START"
				.skip	2
				.align 8
		.LC154:
				.asciz	"ELSE"
				.skip	3
				.align 8
		.LC155:
				.asciz	"FINISH"
				.skip	1
				.align 8
		.LC156:
				.asciz	"FELSE"
				.skip	2
				.align 8
		.LC157:
				.asciz	"CYCLE"
				.skip	2
				.align 8
		.LC158:
				.asciz	"REPEAT"
				.skip	1
				.section	.rodata.str1.8
				.align 8
		.LC159:
				.asciz	"PROGRAM"
				.section	".rodata"
				.align 8
		.LC160:
				.asciz	"BEGIN"
				.skip	2
				.align 8
		.LC161:
				.asciz	"END"
				.skip	4
				.section	.rodata.str1.8
				.align 8
		.LC162:
				.asciz	"ENDPROG"
				.align 8
		.LC163:
				.asciz	"ENDPERM"
				.align 8
		.LC164:
				.asciz	"FRESULT"
				.align 8
		.LC165:
				.asciz	"MRESULT"
				.section	".rodata"
				.align 8
		.LC166:
				.asciz	"BACK"
				.skip	3
				.section	.rodata.str1.8
				.align 8
		.LC167:
				.asciz	"MONITOR"
				.section	".rodata"
				.align 8
		.LC168:
				.asciz	"STOP"
				.skip	3
				.align 8
		.LC169:
				.asciz	"LIST"
				.skip	3
				.section	.rodata.str1.8
				.align 8
		.LC170:
				.asciz	"REALSLN"
				.align 8
		.LC171:
				.asciz	"CONTROL"
				.align 8
		.LC172:
				.asciz	"INCLUDE"
				.section	".rodata"
				.align 8
		.LC173:
				.asciz	"MASS"
				.skip	3
				.align 8
		.LC174:
				.asciz	"RTYPE"
				.skip	2
				.align 8
		.LC175:
				.asciz	"ADDOP"
				.skip	2
				.align 8
		.LC176:
				.asciz	"IDENT"
				.skip	2
				.align 8
		.LC177:
				.asciz	"V"
				.skip	6
				.align 8
		.LC178:
				.asciz	"N"
				.skip	6
				.align 8
		.LC179:
				.asciz	"CONST"
				.skip	2
				.align 8
		.LC180:
				.asciz	"FM"
				.skip	5
				.align 8
		.LC181:
				.asciz	"R"
				.skip	6
				.align 8
		.LC182:
				.asciz	"F"
				.skip	6
				.align 8
		.LC183:
				.asciz	"M"
				.skip	6
				.align 8
		.LC184:
				.asciz	"P"
				.skip	6
				.align 8
		.LC185:
				.asciz	"RP"
				.skip	5
				.align 8
		.LC186:
				.asciz	"FP"
				.skip	5
				.align 8
		.LC187:
				.asciz	"MP"
				.skip	5
				.align 8
		.LC188:
				.asciz	"PP"
				.skip	5
				.align 8
		.LC189:
				.asciz	"L"
				.skip	6
				.align 8
		.LC190:
				.asciz	"S"
				.skip	6
				.align 8
		.LC191:
				.asciz	"A"
				.skip	6
				.align 8
		.LC192:
				.asciz	"AN"
				.skip	5
				.align 8
		.LC193:
				.asciz	"NA"
				.skip	5
				.align 8
		.LC194:
				.asciz	"NAN"
				.skip	4
				.section	.rodata.str1.8
				.align 8
		.LC195:
				.asciz	"%MSTART"
				.section	".rodata"
				.align 8
		.LC196:
				.asciz	"%CLEAR"
				.skip	1
				.align 8
		.LC197:
				.asciz	"%PRED"
				.skip	2
				.align 8
		.LC198:
				.asciz	"%DUBIOUS"
				.align 8
		.LC199:
				.asciz	"%DUP"
				.skip	3
				.align 8
		.LC200:
				.asciz	"%PIN"
				.skip	3
				.align 8
		.LC201:
				.asciz	"%POUT"
				.skip	2
				.align 8
		.LC202:
				.asciz	"%EDUP"
				.skip	2
				.align 8
		.LC203:
				.asciz	"PIDENT"
				.skip	1
				.align 8
		.LC204:
				.asciz	"CIDENT"
				.skip	1
				.align 8
		.LC205:
				.asciz	"OIDENT"
				.skip	1
				.align 8
		.LC206:
				.asciz	"FNAME"
				.skip	2
				.align 8
		.LC207:
				.asciz	"SWID"
				.skip	3
				.align 8
		.LC208:
				.asciz	"DOTL"
				.skip	3
				.align 8
		.LC209:
				.asciz	"DOTR"
				.skip	3
				.align 8
		.LC210:
				.asciz	"ASEP"
				.skip	3
				.align 8
		.LC211:
				.asciz	"CSEP"
				.skip	3
				.align 8
		.LC212:
				.asciz	"OSEP"
				.skip	3
				.align 8
		.LC213:
				.asciz	"PSEP"
				.skip	3
				.align 8
		.LC214:
				.asciz	"ARB"
				.skip	4
				.align 8
		.LC215:
				.asciz	"BPLRB"
				.skip	2
				.align 8
		.LC216:
				.asciz	"ORB"
				.skip	4
				.align 8
		.LC217:
				.asciz	"PRB"
				.skip	4
				.align 8
		.LC218:
				.asciz	"CRB"
				.skip	4
				.align 8
		.LC219:
				.asciz	"RCRB"
				.skip	3
				.align 8
		.LC220:
				.asciz	"RECRB"
				.skip	2
				.align 8
		.LC221:
				.asciz	"RECLB"
				.skip	2
				.align 8
		.LC222:
				.asciz	"LAB"
				.skip	4
				.align 8
		.LC223:
				.asciz	"MLAB"
				.skip	3
				.align 8
		.LC224:
				.asciz	"SLAB"
				.skip	3
				.align 8
		.LC225:
				.asciz	"XNAME"
				.skip	2
				.align 8
		.LC226:
				.asciz	"OWNT"
				.skip	3
				.align 8
		.LC227:
				.asciz	"DBSEP"
				.skip	2
				.align 8
		.LC228:
				.asciz	"PCONST"
				.skip	1
				.align 8
		.LC229:
				.asciz	"CMOD"
				.skip	3
				.align 8
		.LC230:
				.asciz	"CSIGN"
				.skip	2
				.align 8
		.LC231:
				.asciz	"CUOP"
				.skip	3
				.align 8
		.LC232:
				.asciz	"COP1"
				.skip	3
				.align 8
		.LC233:
				.asciz	"COP2"
				.skip	3
				.align 8
		.LC234:
				.asciz	"COP3"
				.skip	3
				.align 8
		.LC235:
				.asciz	"INDEF"
				.skip	2
				.align 8
		.LC236:
				.asciz	"XELSE"
				.skip	2
				.align 8
		.LC237:
				.asciz	"CRESOP"
				.skip	1
				.align 8
		.LC238:
				.asciz	"NLAB"
				.skip	3
				.align 8
		.LC239:
				.asciz	"RUNTIL"
				.skip	1
				.align 8
		.LC240:
				.asciz	"ACONST"
				.skip	1
				.align 8
		.LC241:
				.asciz	"ORRB"
				.skip	3
				.align 8
		.LC242:
				.asciz	"FMANY"
				.skip	2
				.section	.rodata.str1.8
				.align 8
		.LC243:
				.asciz	"OSTRING"
				.section	".rodata"
				.align 8
		.LC244:
				.asciz	"FMLB"
				.skip	3
				.align 8
		.LC245:
				.asciz	"FMRB"
				.skip	3
				.align 8
		.LC246:
				.asciz	"FMOR"
				.skip	3
				.section	.rodata.str1.8
				.align 8
		.LC247:
				.asciz	"RANGERB"
				.section	".rodata"
				.align 8
		.LC248:
				.asciz	"FSID"
				.skip	3
				.align 8
		.LC249:
				.asciz	"%DUMMY"
				.skip	1
				.align 8
		.LC250:
				.asciz	"%DECL"
				.skip	2
				.align 8
		.LC251:
				.asciz	"%TYPE"
				.skip	2
				.align 8
		.LC252:
				.asciz	"%ZERO"
				.skip	2
				.align 8
		.LC253:
				.asciz	"%APPLY"
				.skip	1
				.align 8
		.LC254:
				.asciz	"%PROT"
				.skip	2
				.align 8
		.LC255:
				.asciz	"%SETPROT"
				.align 8
		.LC256:
				.asciz	"%PTYPE"
				.skip	1
				.align 8
		.LC257:
				.asciz	"%GAPP"
				.skip	2
				.align 8
		.LC258:
				.asciz	"%LOCAL"
				.skip	1
				.align 8
		.LC259:
				.asciz	"%GUARD"
				.skip	1
				.align 8
		.LC260:
				.asciz	"%MCODE"
				.skip	1
				.section	.rodata.str1.8
				.align 8
		.LC261:
				.asciz	"%CDUMMY"
				.section	".rodata"
				.align 8
		.LC262:
				.asciz	"%SETTYPE"
				.align 8
		.LC263:
				.asciz	"%OPER"
				.skip	2
				.align 8
		.LC264:
				.asciz	"%PARAM"
				.skip	1
				.align 8
		.LC265:
				.asciz	"%BLOCK"
				.skip	1
				.align 8
		.LC266:
				.asciz	"%OTHER"
				.skip	1
				.align 8
		.LC267:
				.asciz	"%COMPILE"
				.align 8
		.LC268:
				.asciz	"APP"
				.skip	4
				.section	.rodata.str1.8
				.align 8
		.LC269:
				.asciz	"BASEAPP"
				.section	".rodata"
				.align 8
		.LC270:
				.asciz	"APP2"
				.skip	3
				.align 8
		.LC271:
				.asciz	"APP3"
				.skip	3
				.align 8
		.LC272:
				.asciz	"APP4"
				.skip	3
				.align 8
		.LC273:
				.asciz	"APP5"
				.skip	3
				.align 8
		.LC274:
				.asciz	"APP6"
				.skip	3
				.align 8
		.LC275:
				.asciz	"ADEFN"
				.skip	2
				.align 8
		.LC276:
				.asciz	"NPARM"
				.skip	2
				.align 8
		.LC277:
				.asciz	"SWDEF"
				.skip	2
				.align 8
		.LC278:
				.asciz	"SWIDS"
				.skip	2
				.align 8
		.LC279:
				.asciz	"CIEXP"
				.skip	2
				.align 8
		.LC280:
				.asciz	"RCONST"
				.skip	1
				.align 8
		.LC281:
				.asciz	"SCONST"
				.skip	1
				.align 8
		.LC282:
				.asciz	"ARRAYP"
				.skip	1
				.align 8
		.LC283:
				.asciz	"XIMP"
				.skip	3
				.align 8
		.LC284:
				.asciz	"IMP"
				.skip	4
				.align 8
		.LC285:
				.asciz	"COND"
				.skip	3
				.align 8
		.LC286:
				.asciz	"SCOND"
				.skip	2
				.align 8
		.LC287:
				.asciz	"EXP1"
				.skip	3
				.align 8
		.LC288:
				.asciz	"EXP2"
				.skip	3
				.align 8
		.LC289:
				.asciz	"SEXP"
				.skip	3
				.align 8
		.LC290:
				.asciz	"IEXP"
				.skip	3
				.align 8
		.LC291:
				.asciz	"IEXP1"
				.skip	2
				.align 8
		.LC292:
				.asciz	"IEXP2"
				.skip	2
				.align 8
		.LC293:
				.asciz	"ISEXP"
				.skip	2
				.align 8
		.LC294:
				.asciz	"SEQ"
				.skip	4
				.align 8
		.LC295:
				.asciz	"FDEF"
				.skip	3
				.align 8
		.LC296:
				.asciz	"EXP"
				.skip	4
				.section	.rodata.str1.8
				.align 8
		.LC297:
				.asciz	"NARRAYP"
				.section	".rodata"
				.align 8
		.LC298:
				.asciz	"STRUCT"
				.skip	1
				.align 8
		.LC299:
				.asciz	"RESEXP"
				.skip	1
				.align 8
		.LC300:
				.asciz	"BPL"
				.skip	4
				.align 8
		.LC301:
				.asciz	"CONSTB"
				.skip	1
				.align 8
		.LC302:
				.asciz	"FITEM"
				.skip	2
				.align 8
		.LC303:
				.asciz	"MOREA"
				.skip	2
				.align 8
		.LC304:
				.asciz	"CLIST"
				.skip	2
				.align 8
		.LC305:
				.asciz	"FPP"
				.skip	4
				.align 8
		.LC306:
				.asciz	"FPP0"
				.skip	3
				.align 8
		.LC307:
				.asciz	"FPP1"
				.skip	3
				.align 8
		.LC308:
				.asciz	"FPP2"
				.skip	3
				.section	.rodata.str1.8
				.align 8
		.LC309:
				.asciz	"INITVAR"
				.section	".rodata"
				.align 8
		.LC310:
				.asciz	"RECEXP"
				.skip	1
				.align 8
		.LC311:
				.asciz	"EIMP"
				.skip	3
				.align 8
		.LC312:
				.asciz	"IDENTS"
				.skip	1
				.align 8
		.LC313:
				.asciz	"RANGE"
				.skip	2
				.section	.rodata.str1.8
				.align 8
		.LC314:
				.asciz	"RCONSTB"
				.section	".rodata"
				.align 8
		.LC315:
				.asciz	"VARP"
				.skip	3
				.section	.rodata.str1.8
				.align 8
		.LC316:
				.asciz	"INITDEC"
				.section	".rodata"
				.align 8
		.LC317:
				.asciz	"ESCDEC"
				.skip	1
				.section	.rodata.str1.8
				.align 8
		.LC318:
				.asciz	"ESCPROC"
				.section	".rodata"
				.align 8
		.LC319:
				.asciz	"ESCARRAY"
				.align 8
		.LC320:
				.asciz	"ESCREC"
				.skip	1
				.align 2
		.LC3:
				.half	24
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	23
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	20
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	-32551
				.half	0
				.half	0
				.half	0
				.half	0
				.half	13
				.half	0
				.half	14
				.half	4
				.half	-32557
				.half	16
				.half	-32550
				.half	0
				.half	0
				.half	5
				.half	6
				.half	3
				.half	12
				.half	15
				.half	8
				.half	7
				.half	9
				.half	10
				.half	11
				.half	-32558
				.half	-32554
				.half	-32559
				.half	-32552
				.half	-32553
				.half	18
				.half	22
				.half	17
				.half	21
				.half	19
				.half	0
				.half	0
				.half	0
				.half	-32562
				.half	-32560
				.half	0
				.half	0
				.half	0
				.half	-32561
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	1
				.half	2
				.half	0
				.half	-32556
				.half	0
				.half	-32555
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.align 2
		.LC4:
				.half	0
				.half	511
				.half	131
				.half	531
				.half	131
				.half	551
				.half	559
				.half	131
				.half	567
				.half	575
				.half	583
				.half	603
				.half	623
				.half	631
				.half	663
				.half	671
				.half	129
				.half	129
				.half	129
				.half	129
				.half	129
				.half	129
				.half	129
				.half	129
				.half	129
				.half	129
				.half	691
				.half	698
				.half	707
				.half	751
				.half	795
				.half	131
				.half	131
				.half	824
				.half	900
				.half	960
				.half	1076
				.half	1120
				.half	1280
				.half	128
				.half	128
				.half	1392
				.half	128
				.half	128
				.half	1460
				.half	1556
				.half	1592
				.half	1660
				.half	1748
				.half	128
				.half	1828
				.half	2044
				.half	2240
				.half	2272
				.half	128
				.half	2312
				.half	128
				.half	128
				.half	128
				.half	2331
				.half	2339
				.half	2371
				.half	2379
				.half	2399
				.half	131
				.half	131
				.half	131
				.half	131
				.half	131
				.half	131
				.half	131
				.half	131
				.half	131
				.half	131
				.half	131
				.half	131
				.half	131
				.half	131
				.half	131
				.half	131
				.half	131
				.half	131
				.half	131
				.half	131
				.half	131
				.half	131
				.half	131
				.half	131
				.half	131
				.half	131
				.half	131
				.half	131
				.half	2407
				.half	131
				.half	2379
				.half	-32351
				.half	16428
				.half	25
				.half	16428
				.half	29
				.half	-32349
				.half	16433
				.half	1
				.half	16434
				.half	1
				.half	-16127
				.half	0
				.half	16427
				.half	21
				.half	16407
				.half	0
				.half	16409
				.half	0
				.half	-32323
				.half	-10840
				.half	40
				.half	16471
				.half	0
				.half	-32341
				.half	-10580
				.half	32
				.half	16473
				.half	117
				.half	16384
				.half	19
				.half	-31955
				.half	-32322
				.half	-10580
				.half	36
				.half	-9290
				.half	0
				.half	16473
				.half	113
				.half	16432
				.half	13
				.half	-32337
				.half	16427
				.half	46
				.half	16427
				.half	17
				.half	16405
				.half	0
				.half	16404
				.half	0
				.half	-31556
				.half	-31939
				.half	-32322
				.half	-9551
				.half	2
				.half	16433
				.half	1
				.half	16433
				.half	5
				.half	16426
				.half	5
				.half	-31606
				.half	-32323
				.half	-9807
				.half	0
				.half	-32374
				.half	-9678
				.half	0
				.half	16436
				.half	0
				.half	16435
				.half	0
				.half	-31939
				.half	-32322
				.half	16433
				.half	4
				.half	16426
				.half	9
				.half	16433
				.half	3
				.half	-30772
				.half	-31666
				.half	10578
				.half	11457
				.half	-32344
				.half	16413
				.half	2
				.half	16411
				.half	2
				.half	68
				.half	-32374
				.half	16440
				.half	0
				.half	16440
				.half	0
				.half	8393
				.half	83
				.half	16408
				.half	0
				.half	-31291
				.half	10841
				.half	69
				.half	-32311
				.half	16412
				.half	18
				.half	10830
				.half	9157
				.half	10565
				.half	16412
				.half	18
				.half	9415
				.half	78
				.half	16458
				.half	0
				.half	-32049
				.half	8665
				.half	8908
				.half	16455
				.half	0
				.half	-30131
				.half	78
				.half	-31277
				.half	84
				.half	-32055
				.half	10194
				.half	76
				.half	16469
				.half	0
				.half	10958
				.half	69
				.half	16447
				.half	32
				.half	84
				.half	-32319
				.half	16418
				.half	2
				.half	10830
				.half	16418
				.half	2
				.half	8909
				.half	10830
				.half	16406
				.half	0
				.half	-31927
				.half	10073
				.half	9921
				.half	8649
				.half	16419
				.half	5
				.half	9153
				.half	10190
				.half	8915
				.half	16469
				.half	1
				.half	-27956
				.half	-31282
				.half	88
				.half	-31927
				.half	8916
				.half	10066
				.half	9793
				.half	16419
				.half	3
				.half	84
				.half	16447
				.half	4
				.half	68
				.half	-32305
				.half	16459
				.half	2
				.half	70
				.half	-30650
				.half	-31284
				.half	80
				.half	-31931
				.half	10194
				.half	10567
				.half	9921
				.half	16460
				.half	1
				.half	9938
				.half	16461
				.half	0
				.half	10697
				.half	84
				.half	16467
				.half	3
				.half	9801
				.half	69
				.half	16460
				.half	0
				.half	8915
				.half	16452
				.half	0
				.half	-29631
				.half	-30903
				.half	-31282
				.half	-31793
				.half	10069
				.half	10819
				.half	10185
				.half	78
				.half	16416
				.half	9
				.half	82
				.half	16445
				.half	0
				.half	16416
				.half	9
				.half	9422
				.half	9299
				.half	-32315
				.half	16453
				.half	0
				.half	10700
				.half	69
				.half	16454
				.half	0
				.half	10700
				.half	69
				.half	16464
				.half	1210
				.half	-30778
				.half	78
				.half	-31549
				.half	8916
				.half	8903
				.half	82
				.half	-32344
				.half	16412
				.half	17
				.half	16472
				.half	17
				.half	10956
				.half	8900
				.half	16470
				.half	0
				.half	16446
				.half	44
				.half	-30143
				.half	-30647
				.half	10063
				.half	71
				.half	-31671
				.half	-32302
				.half	16412
				.half	20
				.half	8389
				.half	76
				.half	16412
				.half	36
				.half	10830
				.half	9157
				.half	10565
				.half	16412
				.half	20
				.half	10835
				.half	16467
				.half	1
				.half	8898
				.half	76
				.half	16425
				.half	6
				.half	-31935
				.half	10063
				.half	10825
				.half	10575
				.half	16465
				.half	109
				.half	80
				.half	16416
				.half	10
				.half	-32191
				.half	10831
				.half	16442
				.half	0
				.half	8909
				.half	-32314
				.half	16414
				.half	1
				.half	-31794
				.half	10069
				.half	10819
				.half	10185
				.half	78
				.half	16416
				.half	10
				.half	16416
				.half	10
				.half	-30770
				.half	-31408
				.half	-32174
				.half	10071
				.half	16418
				.half	1
				.half	-32374
				.half	16441
				.half	2
				.half	16441
				.half	2
				.half	9428
				.half	10063
				.half	16402
				.half	0
				.half	-32315
				.half	16448
				.half	0
				.half	8918
				.half	10830
				.half	16448
				.half	0
				.half	-30523
				.half	82
				.half	-31419
				.half	-31927
				.half	9167
				.half	8402
				.half	77
				.half	16457
				.half	0
				.half	77
				.half	16419
				.half	6
				.half	9412
				.half	8387
				.half	8916
				.half	16415
				.half	123
				.half	9938
				.half	16419
				.half	7
				.half	-31931
				.half	10959
				.half	9428
				.half	8910
				.half	16415
				.half	104
				.half	-28351
				.half	-30397
				.half	-31024
				.half	-32045
				.half	10964
				.half	10066
				.half	16464
				.half	1319
				.half	9813
				.half	7892
				.half	-32323
				.half	16462
				.half	1384
				.half	16463
				.half	1241
				.half	8389
				.half	84
				.half	16456
				.half	0
				.half	10575
				.half	68
				.half	-32314
				.half	16421
				.half	64
				.half	10575
				.half	8397
				.half	84
				.half	-32301
				.half	16422
				.half	9
				.half	8912
				.half	67
				.half	16422
				.half	12
				.half	76
				.half	-32301
				.half	16412
				.half	33
				.half	-31924
				.half	10190
				.half	9938
				.half	9793
				.half	16468
				.half	1
				.half	10063
				.half	71
				.half	16468
				.half	4
				.half	-27704
				.half	-28983
				.half	-29488
				.half	-31276
				.half	-31913
				.half	10713
				.half	8916
				.half	77
				.half	16419
				.half	4
				.half	10825
				.half	9283
				.half	16417
				.half	12
				.half	-31423
				.half	-31921
				.half	9426
				.half	9166
				.half	40
				.half	16420
				.half	48
				.half	80
				.half	16466
				.half	115
				.half	10834
				.half	16451
				.half	0
				.half	8645
				.half	16423
				.half	0
				.half	10055
				.half	9793
				.half	-32315
				.half	16449
				.half	0
				.half	8918
				.half	10830
				.half	16449
				.half	0
				.half	10575
				.half	84
				.half	-32311
				.half	16412
				.half	19
				.half	10830
				.half	9157
				.half	10565
				.half	16412
				.half	19
				.half	-32056
				.half	10962
				.half	69
				.half	16464
				.half	1354
				.half	10053
				.half	16450
				.half	0
				.half	78
				.half	-32052
				.half	9428
				.half	76
				.half	16444
				.half	182
				.half	10693
				.half	83
				.half	16446
				.half	46
				.half	9416
				.half	8908
				.half	16443
				.half	180
				.half	16407
				.half	0
				.half	-31939
				.half	-32292
				.half	-10454
				.half	51
				.half	16426
				.half	13
				.half	16433
				.half	1
				.half	16409
				.half	0
				.half	-32290
				.half	-10454
				.half	51
				.half	16426
				.half	13
				.half	16410
				.half	0
				.half	16431
				.half	14
				.half	-32323
				.half	16430
				.half	51
				.half	16433
				.half	1
		.LC5:
				.byte	7
				.asciz	"LISTING"
				.skip	247
		.LC6:
				.byte	9
				.asciz	"prims.inc"
				.skip	245
		.LC7:
				.byte	44
				.asciz	"         Edinburgh IMP77 Compiler - Version "
				.skip	210
				.section	".text"
				.align 4
				.global main
				.proc	04
		main:
		.LFB185:
 2714    %ON 9 %START
				mov	1, %o1
				sethi	%hi(_imp_event+544), %o0
				call	__sigsetjmp, 0
				 or	%o0, %lo(_imp_event+544), %o0
		.LVL1326:
				cmp	%o0, 0
				bne,pn	%icc, .L1071
				 mov	512, %o1
		.LVL1327:
				sethi	%hi(_imp_event), %o0
				call	_imp_on_event_enter, 0
				 or	%o0, %lo(_imp_event), %o0
		.LVL1328:
				brz,pn	%o0, .L1077
				 sethi	%hi(104448), %g5
		.LVL1329:
		.L1072:
 2715       abandon(5)
				sethi	%hi(4096), %g2
				xor	%g2, -896, %o0
				add	%fp, 2047, %g2
				add	%g2, %o0, %i4
		.L757:
		.LVL462:
				jmp	%g1
				 nop
		.LVL463:
		.L793:
				sethi	%hi(_imp_current_file), %g1
				ldx	[%g1+%lo(_imp_current_file)], %o1
				brz,pn	%o1, .L759
				 mov	256, %o2
				call	_imp_c2istr, 0
				 add	%fp, 1231, %o0
		.LVL714:
				sethi	%hi(_imp_current_line), %g1
		.L860:
				lduw	[%g1+%lo(_imp_current_line)], %i3
				cmp	%i3, 0
				mov	2715, %g1
				move	%icc, %g1, %i3
				mov	256, %o2
				add	%fp, 1231, %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL715:
				sra	%i5, 0, %o4
				mov	2225, %g1
				stx	%g1, [%sp+2239]
		.LVL716:
				ldx	[%fp-2993], %g1
				stx	%g1, [%sp+2231]
				stx	%o4, [%sp+2223]
				sethi	%hi(.LC85), %o5
				or	%o5, %lo(.LC85), %o5
				mov	2, %o3
				mov	8, %o2
				sra	%i3, 0, %o1
				call	_signal_eventf, 0
				 mov	%i4, %o0
		.LVL717:
				ldx	[%fp-3001], %o1
				call	memcpy, 0
				 add	%fp, -49, %o0
		.LVL719:
				mov	256, %o2
				add	%fp, -49, %o1
				call	memcpy, 0
				 add	%fp, -305, %o0
		.LVL720:
		.LBE574:
				mov	256, %o2
				add	%fp, -305, %o1
				call	memcpy, 0
				 add	%fp, 1231, %o0
		.LVL721:
				ba,pt	%xcc, .L860
				 sethi	%hi(_imp_current_line), %g1
		.L763:
		.LBB575:
				sethi	%hi(104448), %g5
		.L1077:
				xor	%g5, -792, %g5
				add	%fp, 2047, %g1
				add	%g1, %g5, %g5
				call	ABANDON.6239, 0
				 mov	5, %o0
		.LVL1358:
 2716    %FINISH
 2717
 2718 impcom_flags = 0
				lduw	[%fp-3013], %g1
		.L859:
				add	%g1, -1, %g1
				cmp	%g1, 11
				bleu,pt	%icc, .L882
				 lduw	[%fp-3013], %g1
				sethi	%hi(_imp_current_file), %g1
				ldx	[%g1+%lo(_imp_current_file)], %o1
				brz,pn	%o1, .L763
				 mov	256, %o2
				call	_imp_c2istr, 0
				 add	%fp, 1487, %o0
		.LVL669:
				sethi	%hi(_imp_current_line), %g1
		.L861:
				lduw	[%g1+%lo(_imp_current_line)], %i3
				cmp	%i3, 0
				mov	2718, %g1
				move	%icc, %g1, %i3
				mov	256, %o2
				add	%fp, 1487, %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL670:
				ldsw	[%fp-3013], %o4
				ldsw	[%fp-3017], %g1
				stx	%g1, [%sp+2239]
		.LVL671:
				ldx	[%fp-3025], %g1
				stx	%g1, [%sp+2231]
				stx	%o4, [%sp+2223]
				sethi	%hi(.LC86), %o5
				or	%o5, %lo(.LC86), %o5
				mov	3, %o3
				mov	6, %o2
				sra	%i3, 0, %o1
				call	_signal_eventf, 0
				 mov	%i4, %o0
		.LVL672:
				ba,pt	%xcc, .L859
				 lduw	[%fp-3013], %g1
		.LVL718:
		.L759:
		.LBB574:
				ldx	[%fp-3001], %o1
				call	memcpy, 0
				 add	%fp, -49, %o0
		.LVL722:
				mov	256, %o2
				add	%fp, -49, %o1
				call	memcpy, 0
				 add	%fp, 207, %o0
		.LVL723:
		.LBE575:
				mov	256, %o2
				add	%fp, 207, %o1
				call	memcpy, 0
				 add	%fp, 1487, %o0
		.LVL724:
				ba,pt	%xcc, .L861
				 sethi	%hi(_imp_current_line), %g1
		.LVL725:
		.L798:
				call	__stack_chk_fail, 0
				 nop
		.LVL726:
				nop
		.LFE209:
				.align 4
				.proc	020
		DELETENAMES.6328:
		.LFB197:
				sethi	%hi(IMPCOM), %g1
		.L1076:
				or	%g1, %lo(IMPCOM), %o0
				st	%g0, [%g1+%lo(IMPCOM)+4]
		.LVL1330:
				ba,pt	%xcc, .L1076
				 sethi	%hi(IMPCOM), %g1
		.LFE185:
				.section	".rodata"
				.align 8
		FM.6354:
				.xword	.L423
				.xword	.L423
				.xword	.L423
				.xword	.L423
				.xword	.L423
				.xword	.L423
				.xword	.L423
				.xword	.L423
				.xword	.L423
				.xword	.L423
				.xword	.L423
				.xword	.L423
				.xword	.L423
				.xword	.L423
				.xword	.L423
				.xword	.L423
				.xword	.L423
				.xword	.L423
				.xword	.L423
				.xword	.L423
				.xword	.L423
				.xword	.L423
				.xword	.L423
				.xword	.L423
				.xword	.L423
				.xword	.L423
				.xword	.L423
				.xword	.L423
				.align 8
		LITOP.7199:
				.xword	.L735
				.xword	.L736
				.xword	.L731
				.xword	.L739
				.xword	.L737
				.xword	.L743
				.xword	.L744
				.xword	.L741
				.xword	.L742
				.xword	.L728
				.xword	.L738
				.xword	.L730
				.align 8
		C.7065:
				.xword	.L484
				.xword	.L758
				.xword	.L758
				.xword	.L758
				.xword	.L758
				.xword	.L758
				.xword	.L758
				.xword	.L758
				.xword	.L758
				.xword	.L758
				.xword	.L758
				.xword	.L758
				.xword	.L758
				.xword	.L758
				.xword	.L758
				.xword	.L758
				.xword	.L758
				.xword	.L758
				.xword	.L758
				.xword	.L758
				.xword	.L758
				.xword	.L758
				.xword	.L758
				.xword	.L758
				.xword	.L758
				.xword	.L758
				.xword	.L758
				.xword	.L521
				.xword	.L512
				.xword	.L519
				.xword	.L520
				.xword	.L516
				.xword	.L517
				.xword	.L530
				.xword	.L513
				.xword	.L514
				.xword	.L526
				.xword	.L525
				.xword	.L532
				.xword	.L531
				.xword	.L758
				.xword	.L535
				.xword	.L551
				.xword	.L552
				.xword	.L553
				.xword	.L547
				.xword	.L548
				.xword	.L549
				.xword	.L550
				.xword	.L595
				.xword	.L593
				.xword	.L608
				.xword	.L610
				.xword	.L609
				.xword	.L758
				.xword	.L750
				.xword	.L554
				.xword	.L555
				.xword	.L556
				.xword	.L558
				.xword	.L559
				.xword	.L758
				.xword	.L563
				.xword	.L587
				.xword	.L578
				.xword	.L607
				.xword	.L758
				.xword	.L573
				.xword	.L569
				.xword	.L565
				.xword	.L567
				.xword	.L574
				.xword	.L564
				.xword	.L758
				.xword	.L611
				.xword	.L618
				.xword	.L616
				.xword	.L615
				.xword	.L601
				.xword	.L602
				.xword	.L603
				.xword	.L606
				.xword	.L604
				.xword	.L633
				.xword	.L634
				.xword	.L632
				.xword	.L635
				.xword	.L753
				.xword	.L511
				.xword	.L605
				.xword	.L656
				.xword	.L670
				.xword	.L671
				.xword	.L680
				.xword	.L758
				.xword	.L758
				.xword	.L664
				.xword	.L661
				.xword	.L662
				.xword	.L663
				.xword	.L666
				.xword	.L667
				.xword	.L668
				.xword	.L669
				.xword	.L585
				.xword	.L699
				.xword	.L672
				.xword	.L673
				.xword	.L674
				.xword	.L675
				.xword	.L758
				.xword	.L758
				.xword	.L758
				.xword	.L758
				.xword	.L758
				.xword	.L758
				.xword	.L758
				.xword	.L758
				.xword	.L758
				.xword	.L758
				.xword	.L572
				.xword	.L677
				.xword	.L752
				.xword	.L758
				.xword	.L660
				.xword	.L654
				.xword	.L540
				.xword	.L539
				.xword	.L650
				.xword	.L758
				.xword	.L651
				.xword	.L657
				.xword	.L685
				.xword	.L536
				.xword	.L700
				.xword	.L748
				.xword	.L749
				.xword	.L683
				.xword	.L557
				.xword	.L693
				.xword	.L715
				.xword	.L684
				.xword	.L645
				.xword	.L690
				.xword	.L716
				.xword	.L643
				.xword	.L644
				.xword	.L546
				.xword	.L537
				.xword	.L586
				.xword	.L758
				.xword	.L703
				.xword	.L515
				.xword	.L694
				.xword	.L642
				.xword	.L717
				.xword	.L720
				.xword	.L722
				.xword	.L723
				.xword	.L724
				.xword	.L725
				.xword	.L726
				.xword	.L688
				.xword	.L566
				.xword	.L751
				.xword	.L665
				.xword	.L562
				.xword	.L678
				.xword	.L545
				.xword	.L758
				.xword	.L746
				.xword	.L542
				.xword	.L543
				.xword	.L544
				.xword	.L541
				.xword	.L534
				.xword	.L758
				.xword	.L758
				.xword	.L758
				.xword	.L758
				.xword	.L758
				.common	PSTACK.7238,160,4
				.common	LB.7222,4,4
				.common	UB.7223,4,4
				.common	CNEST.7216,16,8
				.common	NAME.7239,256,1
				.common	COUNT.7240,4,4
				.common	LAST.6633,4,4
				.common	LT.6615,4,4
				.common	LSA.6614,4,4
				.common	LA2.6613,4,4
				.common	LA1.6612,4,4
				.common	KEY.6586,4,4
				.align 8
		PACTION.6598:
				.xword	.L960
				.xword	.L960
				.xword	.L960
				.xword	.L960
				.xword	.L960
				.xword	.L960
				.xword	.L960
				.xword	.L960
				.xword	.L960
				.xword	.L960
				.xword	.L960
				.xword	.L960
				.xword	.L960
				.xword	.L960
				.xword	.L960
				.xword	.L960
				.align 8
		ACT.6593:
				.xword	.L951
				.xword	.L951
				.xword	.L951
				.xword	.L951
				.xword	.L951
				.xword	.L951
				.xword	.L951
				.xword	.L951
				.xword	.L951
				.xword	.L951
				.xword	.L951
				.xword	.L951
				.xword	.L951
				.xword	.L951
				.xword	.L951
				.xword	.L951
				.xword	.L951
				.xword	.L951
				.xword	.L951
				.xword	.L951
				.xword	.L951
				.align 8
		__PRETTY_FUNCTION__.5660:
				.asciz	"_imp_SELECTOUTPUT"
				.align 8
		__PRETTY_FUNCTION__.5656:
				.asciz	"_imp_SELECTINPUT"
				.align 8
		REASON.6244:
				.xword	.L24
				.xword	.L24
				.xword	.L24
				.xword	.L24
				.xword	.L24
				.xword	.L24
				.xword	.L24
				.xword	.L24
				.xword	.L24
				.xword	.L24
				.section	".data"
				.align 4
		SPARENAMES.6081:
				.long	2047
				.common	CLASS.6109,4,4
				.common	ATOM1.6111,4,4
				.common	ATOM2.6112,4,4
				.common	SUBATOM.6113,4,4
				.common	TYPE.6114,4,4
				.common	APP.6115,4,4
				.common	FORMAT.6116,4,4
				.common	FAULTRATE.6119,4,4
				.common	LINES.6120,4,4
				.common	TEXTLINE.6121,4,4
				.common	MARGIN.6122,4,4
				.common	ERRORMARGIN.6123,4,4
				.common	ERRORSYM.6124,4,4
				.common	COLUMN.6125,4,4
				.common	MONPOS.6127,4,4
				.align 4
		SYM.6128:
				.long	10
				.common	SYMTYPE.6129,4,4
				.common	QUOTE.6130,4,4
				.common	ENDMARK.6131,4,4
				.align 4
		CONT.6132:
				.long	32
				.align 4
		CSYM.6133:
				.long	32
				.common	DECL.6134,4,4
				.common	DIM.6135,4,4
				.common	SPECGIVEN.6136,4,4
				.common	ESCAPECLASS.6137,4,4
				.common	ATOMFLAGS.6139,4,4
				.common	OTYPE.6140,4,4
				.align 4
		REALSLN.6141:
				.long	1
				.common	LAST1.6142,4,4
				.common	GENTYPE.6143,4,4
				.common	PTYPE.6144,4,4
				.common	PAPP.6145,4,4
				.common	PFORMAT.6146,4,4
				.common	FORCE.6147,4,4
				.common	G.6148,4,4
				.common	GG.6149,4,4
				.common	MAPGG.6150,4,4
				.common	FDEF.6151,4,4
				.align 4
		THIS.6152:
				.long	-1
				.common	NMIN.6153,4,4
				.common	NMAX.6154,4,4
				.common	RBASE.6155,4,4
				.common	STBASE.6156,4,4
				.align 4
		GMIN.6157:
				.long	1720
				.align 4
		DMAX.6158:
				.long	1
				.align 4
		TMIN.6159:
				.long	800
				.common	SS.6160,4,4
				.common	INCLUDELIST.6162,4,4
				.common	INCLUDELEVEL.6163,4,4
				.common	INCLUDE.6164,4,4
				.align 4
		PERM.6165:
				.long	1
				.common	PROGMODE.6166,4,4
				.common	SSTYPE.6167,4,4
				.common	SPECMODE.6168,4,4
				.align 4
		OCOUNT.6169:
				.long	-1
				.common	LIMIT.6170,4,4
				.common	COPY.6171,4,4
				.common	ORDER.6172,4,4
				.common	DUBIOUS.6174,4,4
				.align 4
		DP.6175:
				.long	1
				.common	POS1.6176,4,4
				.common	POS2.6177,4,4
				.common	POS.6178,4,4
				.common	DIMENSION.6179,4,4
				.common	LOCAL.6180,4,4
				.common	FMBASE.6181,4,4
				.common	SEARCHBASE.6182,4,4
				.common	FORMATLIST.6183,4,4
				.align 8
		CHAR.6185:
				.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
				.common	LIT.6187,4,4
				.common	LP.6188,4,4
				.common	BLOCKX.6189,4,4
				.align 4
		GMAX.6199:
				.long	719
				.align 2
		PHRASE.6200:
				.half	0
				.half	564
				.half	565
				.half	567
				.half	569
				.half	571
				.half	573
				.half	562
				.half	614
				.half	203
				.half	200
				.half	602
				.half	478
				.half	480
				.half	624
				.half	298
				.half	206
				.half	308
				.half	318
				.half	433
				.half	426
				.half	437
				.half	444
				.half	458
				.half	453
				.half	461
				.half	467
				.half	482
				.half	402
				.half	627
				.half	629
				.half	603
				.half	521
				.half	511
				.half	486
				.half	502
				.half	575
				.half	527
				.half	528
				.half	543
				.half	550
				.half	578
				.half	397
				.half	287
				.half	197
				.half	636
				.half	516
				.half	621
				.half	167
				.half	0
				.half	0
				.half	0
				.half	640
				.half	693
				.half	701
				.half	709
				.align 2
		GRAM.6203:
				.half	0
				.half	-28523
				.half	-28521
				.half	-28602
				.half	-32706
				.half	-28509
				.half	-28603
				.half	-24502
				.half	-24503
				.half	-20405
				.half	-20404
				.half	-28595
				.half	-32697
				.half	-32709
				.half	-16323
				.half	-28600
				.half	-32704
				.half	-28587
				.half	-28589
				.half	-32681
				.half	-16344
				.half	-28586
				.half	-28588
				.half	-12270
				.half	-32586
				.half	216
				.half	-12287
				.half	-16380
				.half	-8185
				.half	-8184
				.half	-12285
				.half	-12286
				.half	-12283
				.half	-12282
				.half	-12279
				.half	-12276
				.half	-16373
				.half	20490
				.half	-32706
				.half	-32701
				.half	216
				.half	-16364
				.half	-28610
				.half	-28613
				.half	-28612
				.half	16445
				.half	217
				.half	-16364
				.half	62
				.half	-32701
				.half	16450
				.half	-16364
				.half	5346
				.half	-16364
				.half	166
				.half	-16344
				.half	4332
				.half	130
				.half	-16360
				.half	-16361
				.half	126
				.half	217
				.half	-32701
				.half	216
				.half	-16364
				.half	16450
				.half	-32700
				.half	16404
				.half	-32701
				.half	-32706
				.half	216
				.half	16405
				.half	16407
				.half	-16222
				.half	8414
				.half	130
				.half	217
				.half	-32697
				.half	16450
				.half	1250
				.half	4307
				.half	4318
				.half	192
				.half	93
				.half	170
				.half	90
				.half	207
				.half	-16365
				.half	16404
				.half	90
				.half	-16360
				.half	-16365
				.half	16404
				.half	241
				.half	-16365
				.half	16404
				.half	132
				.half	132
				.half	-16360
				.half	4329
				.half	-16365
				.half	16404
				.half	133
				.half	175
				.half	90
				.half	-16365
				.half	16404
				.half	209
				.half	-16365
				.half	16404
				.half	4313
				.half	217
				.half	16451
				.half	4263
				.half	16384
				.half	16384
				.half	120
				.half	216
				.half	-32700
				.half	16404
				.half	-32706
				.half	16404
				.half	243
				.half	16409
				.half	454
				.half	-32685
				.half	16404
				.half	454
				.half	248
				.half	-16365
				.half	16404
				.half	4263
				.half	194
				.half	-16360
				.half	4329
				.half	-32717
				.half	16404
				.half	4263
				.half	16407
				.half	454
				.half	237
				.half	127
				.half	215
				.half	454
				.half	4263
				.half	16384
				.half	-16364
				.half	1502
				.half	-32629
				.half	-16361
				.half	153
				.half	-32606
				.half	222
				.half	143
				.half	-32629
				.half	153
				.half	454
				.half	126
				.half	16409
				.half	454
				.half	16384
				.half	234
				.half	-16365
				.half	-32595
				.half	147
				.half	-32678
				.half	234
				.half	193
				.half	-32677
				.half	-32676
				.half	-32661
				.half	109
				.half	-32717
				.half	53
				.half	52
				.half	52
				.half	52
				.half	194
				.half	194
				.half	194
				.half	-28581
				.half	4188
				.half	194
				.half	-28566
				.half	4203
				.half	194
				.half	-28564
				.half	4205
				.half	4580
				.half	16429
				.half	183
				.half	183
				.half	186
				.half	186
				.half	-28583
				.half	0
				.half	9437
				.half	90
				.half	-16365
				.half	0
				.half	134
				.half	-16365
				.half	0
				.half	210
				.half	4329
				.half	199
				.half	-32677
				.half	-32672
				.half	-32676
				.half	-32688
				.half	-32690
				.half	-32705
				.half	-32661
				.half	-32659
				.half	-32689
				.half	-32686
				.half	-32687
				.half	-16330
				.half	65
				.half	-32716
				.half	186
				.half	-28583
				.half	-32717
				.half	-32715
				.half	-32713
				.half	52
				.half	-32664
				.half	4201
				.half	186
				.half	-32717
				.half	-32715
				.half	55
				.half	-16328
				.half	0
				.half	197
				.half	197
				.half	52
				.half	52
				.half	197
				.half	-28581
				.half	-28580
				.half	186
				.half	-28581
				.half	4188
				.half	4318
				.half	194
				.half	-28581
				.half	4188
				.half	9437
				.half	194
				.half	194
				.half	454
				.half	16407
				.half	216
				.half	194
				.half	-28566
				.half	-28565
				.half	186
				.half	-28566
				.half	4203
				.half	194
				.half	-28564
				.half	-28563
				.half	186
				.half	-28564
				.half	4205
				.half	183
				.half	183
				.half	186
				.half	183
				.half	-16365
				.half	0
				.half	183
				.half	4580
				.half	16429
				.half	5095
				.half	9444
				.half	5348
				.half	186
				.half	-28583
				.half	-16328
				.half	0
				.half	16409
				.half	-16365
				.half	0
				.half	9437
				.half	5348
				.half	217
				.half	-32701
				.half	16450
				.half	-32701
				.half	216
				.half	-32700
				.half	0
				.half	-32701
				.half	-32706
				.half	216
				.half	243
				.half	217
				.half	-16318
				.half	0
				.half	-32552
				.half	0
				.half	-32700
				.half	0
				.half	-32706
				.half	0
				.half	215
				.half	-32550
				.half	228
				.half	-28616
				.half	-28615
				.half	0
				.half	4096
				.half	218
				.half	218
				.half	-28616
				.half	0
				.half	-32677
				.half	-32676
				.half	-16361
				.half	-32710
				.half	-32669
				.half	-32662
				.half	-32661
				.half	-32660
				.half	-32659
				.half	740
				.half	-32039
				.half	740
				.half	-32719
				.half	4096
				.half	194
				.half	-32719
				.half	-32718
				.half	-32604
				.half	-32726
				.half	-32725
				.half	-32724
				.half	-32720
				.half	4096
				.half	710
				.half	6116
				.half	-32719
				.half	0
				.half	710
				.half	6116
				.half	-28581
				.half	4188
				.half	218
				.half	122
				.half	50
				.half	16409
				.half	-32726
				.half	-32725
				.half	-32724
				.half	-32719
				.half	4096
				.half	710
				.half	454
				.half	195
				.half	195
				.half	195
				.half	454
				.half	-28581
				.half	4188
				.half	194
				.half	-28566
				.half	-28565
				.half	-28564
				.half	4205
				.half	195
				.half	195
				.half	195
				.half	710
				.half	4836
				.half	5095
				.half	4829
				.half	-32726
				.half	-32725
				.half	-32724
				.half	-32719
				.half	4096
				.half	4827
				.half	4828
				.half	454
				.half	-32720
				.half	-32719
				.half	4096
				.half	4829
				.half	4827
				.half	4828
				.half	194
				.half	-32719
				.half	0
				.half	710
				.half	4836
				.half	-16291
				.half	-32677
				.half	92
				.half	184
				.half	121
				.half	-28581
				.half	-28580
				.half	-32722
				.half	-32723
				.half	4317
				.half	-32726
				.half	-32725
				.half	-32724
				.half	0
				.half	183
				.half	-32726
				.half	-32725
				.half	-32724
				.half	-32720
				.half	0
				.half	4316
				.half	195
				.half	195
				.half	195
				.half	454
				.half	-28581
				.half	4188
				.half	4315
				.half	183
				.half	4317
				.half	-32726
				.half	-32725
				.half	0
				.half	195
				.half	195
				.half	4315
				.half	4317
				.half	-32726
				.half	0
				.half	195
				.half	-32677
				.half	-32676
				.half	-16361
				.half	16431
				.half	228
				.half	228
				.half	47
				.half	-32610
				.half	-32611
				.half	5345
				.half	-32609
				.half	-32608
				.half	-32607
				.half	0
				.half	4320
				.half	4319
				.half	5345
				.half	-32609
				.half	-32608
				.half	0
				.half	4319
				.half	5345
				.half	-32609
				.half	0
				.half	-32613
				.half	-16361
				.half	16431
				.half	222
				.half	222
				.half	156
				.half	-32677
				.half	92
				.half	183
				.half	186
				.half	1222
				.half	16435
				.half	228
				.half	16403
				.half	4324
				.half	138
				.half	8420
				.half	-32723
				.half	4189
				.half	93
				.half	454
				.half	148
				.half	-32674
				.half	16546
				.half	16409
				.half	-32597
				.half	182
				.half	-16383
				.half	16388
				.half	234
				.half	-16365
				.half	-32595
				.half	172
				.half	-32678
				.half	234
				.half	90
				.half	244
				.half	246
				.half	-16365
				.half	0
				.half	235
				.half	-32678
				.half	234
				.half	-16365
				.half	246
				.half	-16365
				.half	0
				.half	-32678
				.half	234
				.half	90
				.half	16407
				.half	222
				.half	16405
				.half	222
				.half	145
				.half	16407
				.half	222
				.half	16405
				.half	222
				.half	146
				.half	16407
				.half	1252
				.half	154
				.half	5348
				.half	-16365
				.half	142
				.half	126
				.half	182
				.half	-16383
				.half	16391
				.half	90
				.half	-16365
				.half	127
				.half	-32678
				.half	238
				.half	90
				.half	125
				.half	239
				.half	-16365
				.half	8319
				.half	8430
				.half	128
				.half	126
				.half	-16361
				.half	127
				.half	190
				.half	240
				.half	189
				.half	16409
				.half	182
				.half	-16383
				.half	16391
				.half	90
				.half	-16365
				.half	0
				.half	-32678
				.half	240
				.half	90
				.half	16623
				.half	-16365
				.half	0
				.half	244
				.half	232
				.half	1252
				.half	1252
				.half	137
				.half	1252
				.half	137
				.half	1252
				.half	137
				.half	1252
				.half	137
				.half	1252
				.half	137
				.half	222
				.half	-16365
				.half	0
				.half	131
				.half	194
				.half	-16360
				.half	-16333
				.half	-16332
				.half	124
				.half	181
				.half	-16292
				.half	-16277
				.half	16493
				.half	-31802
				.half	5342
				.half	-28581
				.half	4188
				.half	4263
				.half	181
				.half	186
				.half	454
				.half	16475
				.half	183
				.half	-28583
				.half	199
				.half	5598
				.half	9438
				.half	222
				.half	-32677
				.half	-32676
				.half	16407
				.half	186
				.half	228
				.half	135
				.half	16409
				.half	-32632
				.half	0
				.half	-32677
				.half	92
				.half	-32677
				.half	-32676
				.half	-32662
				.half	-32661
				.half	-32660
				.half	-32659
				.half	165
				.half	-32677
				.half	92
				.half	188
				.half	-32662
				.half	107
				.half	188
				.half	-32660
				.half	109
				.half	-32732
				.half	37
				.half	-16344
				.half	4318
				.half	148
				.half	-32674
				.half	16424
				.half	222
				.half	16405
				.half	222
				.half	174
				.half	-28644
				.half	-32734
				.half	-32680
				.half	-28641
				.half	-32733
				.half	-32730
				.half	-32735
				.half	-32727
				.half	-32738
				.half	4326
				.half	-32738
				.half	-32739
				.half	-32741
				.half	-32736
				.half	199
				.half	-28644
				.half	-32680
				.half	-28641
				.half	4326
				.half	-32739
				.half	-32741
				.half	199
				.half	-32738
				.half	-32739
				.half	-32741
				.half	-32736
				.half	-32729
				.half	199
				.half	-32616
				.half	199
				.half	-32739
				.half	-32741
				.half	-32729
				.half	199
				.half	-32616
				.half	-32729
				.half	199
				.half	-28644
				.half	-32680
				.half	4326
				.half	-32738
				.half	-32739
				.half	-32741
				.half	199
				.half	245
				.half	4318
				.half	245
				.half	16409
				.half	152
				.half	4318
				.half	16409
				.half	152
				.half	245
				.half	-32672
				.half	-32671
				.half	-32670
				.half	99
				.half	16407
				.half	200
				.half	144
				.half	185
				.half	-32677
				.half	92
				.half	16407
				.half	-32582
				.half	200
				.half	200
				.half	187
				.half	141
				.half	-32677
				.half	92
				.half	16410
				.half	191
				.half	-32677
				.half	-32676
				.half	-32662
				.half	-32661
				.half	-32660
				.half	109
				.half	198
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.align 2
		GLINK.6204:
				.half	-1
				.half	71
				.half	72
				.half	38
				.half	46
				.half	47
				.half	67
				.half	67
				.half	75
				.half	67
				.half	0
				.half	67
				.half	51
				.half	76
				.half	79
				.half	53
				.half	55
				.half	80
				.half	67
				.half	81
				.half	82
				.half	83
				.half	67
				.half	84
				.half	26
				.half	41
				.half	85
				.half	86
				.half	57
				.half	57
				.half	89
				.half	93
				.half	96
				.half	97
				.half	102
				.half	103
				.half	104
				.half	107
				.half	46
				.half	67
				.half	67
				.half	0
				.half	110
				.half	110
				.half	111
				.half	52
				.half	49
				.half	0
				.half	61
				.half	67
				.half	62
				.half	0
				.half	67
				.half	0
				.half	111
				.half	112
				.half	112
				.half	58
				.half	113
				.half	114
				.half	115
				.half	64
				.half	67
				.half	66
				.half	116
				.half	117
				.half	68
				.half	0
				.half	67
				.half	122
				.half	67
				.half	0
				.half	73
				.half	123
				.half	123
				.half	67
				.half	77
				.half	67
				.half	40
				.half	77
				.half	67
				.half	67
				.half	0
				.half	124
				.half	127
				.half	128
				.half	87
				.half	86
				.half	0
				.half	90
				.half	131
				.half	89
				.half	0
				.half	94
				.half	93
				.half	0
				.half	132
				.half	98
				.half	137
				.half	100
				.half	97
				.half	0
				.half	138
				.half	67
				.half	105
				.half	104
				.half	0
				.half	108
				.half	107
				.half	0
				.half	67
				.half	67
				.half	67
				.half	139
				.half	140
				.half	141
				.half	0
				.half	118
				.half	120
				.half	116
				.half	142
				.half	116
				.half	67
				.half	71
				.half	125
				.half	67
				.half	0
				.half	67
				.half	129
				.half	85
				.half	0
				.half	143
				.half	133
				.half	144
				.half	135
				.half	145
				.half	0
				.half	156
				.half	157
				.half	59
				.half	158
				.half	67
				.half	119
				.half	91
				.half	159
				.half	146
				.half	145
				.half	148
				.half	146
				.half	151
				.half	0
				.half	153
				.half	153
				.half	154
				.half	146
				.half	0
				.half	99
				.half	160
				.half	67
				.half	134
				.half	161
				.half	162
				.half	165
				.half	161
				.half	141
				.half	162
				.half	162
				.half	168
				.half	172
				.half	174
				.half	175
				.half	176
				.half	177
				.half	178
				.half	179
				.half	182
				.half	185
				.half	188
				.half	189
				.half	180
				.half	190
				.half	190
				.half	183
				.half	191
				.half	191
				.half	186
				.half	191
				.half	191
				.half	0
				.half	188
				.half	192
				.half	193
				.half	194
				.half	0
				.half	196
				.half	0
				.half	0
				.half	198
				.half	197
				.half	0
				.half	201
				.half	200
				.half	0
				.half	204
				.half	205
				.half	0
				.half	228
				.half	232
				.half	219
				.half	234
				.half	235
				.half	0
				.half	236
				.half	237
				.half	238
				.half	0
				.half	232
				.half	226
				.half	244
				.half	245
				.half	221
				.half	248
				.half	249
				.half	250
				.half	251
				.half	245
				.half	0
				.half	252
				.half	229
				.half	249
				.half	250
				.half	251
				.half	253
				.half	0
				.half	0
				.half	188
				.half	254
				.half	260
				.half	239
				.half	269
				.half	269
				.half	242
				.half	191
				.half	191
				.half	270
				.half	246
				.half	272
				.half	272
				.half	229
				.half	273
				.half	274
				.half	275
				.half	276
				.half	0
				.half	255
				.half	266
				.half	266
				.half	258
				.half	267
				.half	267
				.half	261
				.half	266
				.half	266
				.half	264
				.half	267
				.half	267
				.half	232
				.half	268
				.half	232
				.half	0
				.half	277
				.half	0
				.half	278
				.half	232
				.half	273
				.half	232
				.half	282
				.half	283
				.half	279
				.half	285
				.half	253
				.half	0
				.half	0
				.half	286
				.half	0
				.half	232
				.half	0
				.half	288
				.half	0
				.half	290
				.half	0
				.half	292
				.half	294
				.half	0
				.half	0
				.half	297
				.half	0
				.half	0
				.half	299
				.half	301
				.half	0
				.half	303
				.half	0
				.half	305
				.half	0
				.half	307
				.half	0
				.half	0
				.half	310
				.half	313
				.half	314
				.half	315
				.half	0
				.half	0
				.half	316
				.half	311
				.half	314
				.half	0
				.half	332
				.half	332
				.half	328
				.half	349
				.half	350
				.half	351
				.half	351
				.half	351
				.half	351
				.half	330
				.half	282
				.half	352
				.half	358
				.half	0
				.half	333
				.half	341
				.half	347
				.half	359
				.half	360
				.half	361
				.half	362
				.half	363
				.half	0
				.half	342
				.half	343
				.half	345
				.half	0
				.half	346
				.half	0
				.half	269
				.half	269
				.half	0
				.half	0
				.half	366
				.half	353
				.half	371
				.half	372
				.half	373
				.half	374
				.half	0
				.half	375
				.half	376
				.half	377
				.half	383
				.half	384
				.half	364
				.half	385
				.half	385
				.half	367
				.half	269
				.half	269
				.half	269
				.half	269
				.half	389
				.half	390
				.half	391
				.half	392
				.half	393
				.half	0
				.half	378
				.half	360
				.half	361
				.half	362
				.half	341
				.half	0
				.half	379
				.half	380
				.half	386
				.half	363
				.half	341
				.half	0
				.half	353
				.half	354
				.half	355
				.half	375
				.half	395
				.half	0
				.half	396
				.half	0
				.half	400
				.half	269
				.half	269
				.half	401
				.half	0
				.half	411
				.half	411
				.half	406
				.half	417
				.half	407
				.half	418
				.half	419
				.half	420
				.half	0
				.half	412
				.half	418
				.half	419
				.half	420
				.half	421
				.half	0
				.half	409
				.half	406
				.half	424
				.half	417
				.half	422
				.half	425
				.half	425
				.half	408
				.half	415
				.half	427
				.half	430
				.half	431
				.half	0
				.half	426
				.half	432
				.half	428
				.half	434
				.half	436
				.half	0
				.half	433
				.half	269
				.half	269
				.half	441
				.half	442
				.half	282
				.half	443
				.half	0
				.half	446
				.half	451
				.half	447
				.half	446
				.half	452
				.half	451
				.half	0
				.half	449
				.half	448
				.half	454
				.half	453
				.half	457
				.half	0
				.half	455
				.half	459
				.half	458
				.half	0
				.half	269
				.half	464
				.half	465
				.half	282
				.half	466
				.half	0
				.half	469
				.half	469
				.half	470
				.half	471
				.half	472
				.half	473
				.half	474
				.half	475
				.half	476
				.half	477
				.half	0
				.half	479
				.half	269
				.half	481
				.half	0
				.half	483
				.half	485
				.half	485
				.half	205
				.half	490
				.half	488
				.half	496
				.half	497
				.half	491
				.half	494
				.half	490
				.half	0
				.half	491
				.half	491
				.half	0
				.half	498
				.half	499
				.half	501
				.half	0
				.half	0
				.half	504
				.half	506
				.half	510
				.half	499
				.half	508
				.half	0
				.half	506
				.half	506
				.half	504
				.half	512
				.half	513
				.half	514
				.half	515
				.half	0
				.half	517
				.half	518
				.half	519
				.half	520
				.half	0
				.half	522
				.half	523
				.half	524
				.half	525
				.half	522
				.half	0
				.half	528
				.half	529
				.half	531
				.half	536
				.half	532
				.half	534
				.half	0
				.half	532
				.half	0
				.half	537
				.half	538
				.half	539
				.half	541
				.half	542
				.half	542
				.half	0
				.half	544
				.half	546
				.half	0
				.half	547
				.half	548
				.half	549
				.half	533
				.half	551
				.half	553
				.half	558
				.half	554
				.half	556
				.half	0
				.half	554
				.half	0
				.half	559
				.half	560
				.half	557
				.half	0
				.half	563
				.half	205
				.half	0
				.half	566
				.half	564
				.half	568
				.half	565
				.half	570
				.half	567
				.half	572
				.half	569
				.half	574
				.half	571
				.half	576
				.half	575
				.half	0
				.half	579
				.half	580
				.half	592
				.half	593
				.half	584
				.half	205
				.half	585
				.half	588
				.half	588
				.half	588
				.half	590
				.half	205
				.half	594
				.half	594
				.half	595
				.half	596
				.half	597
				.half	581
				.half	600
				.half	598
				.half	601
				.half	0
				.half	205
				.half	205
				.half	205
				.half	606
				.half	606
				.half	607
				.half	608
				.half	609
				.half	605
				.half	610
				.half	612
				.half	0
				.half	193
				.half	193
				.half	193
				.half	193
				.half	193
				.half	193
				.half	193
				.half	193
				.half	0
				.half	623
				.half	623
				.half	192
				.half	626
				.half	626
				.half	0
				.half	626
				.half	626
				.half	631
				.half	633
				.half	282
				.half	282
				.half	634
				.half	282
				.half	282
				.half	637
				.half	638
				.half	639
				.half	0
				.half	650
				.half	677
				.half	684
				.half	666
				.half	655
				.half	205
				.half	205
				.half	205
				.half	205
				.half	650
				.half	659
				.half	668
				.half	685
				.half	666
				.half	0
				.half	662
				.half	686
				.half	666
				.half	662
				.half	668
				.half	685
				.half	0
				.half	670
				.half	674
				.half	689
				.half	666
				.half	205
				.half	0
				.half	205
				.half	0
				.half	674
				.half	689
				.half	205
				.half	0
				.half	666
				.half	205
				.half	0
				.half	680
				.half	692
				.half	680
				.half	659
				.half	668
				.half	685
				.half	0
				.half	650
				.half	687
				.half	662
				.half	688
				.half	205
				.half	690
				.half	691
				.half	666
				.half	680
				.half	697
				.half	697
				.half	697
				.half	697
				.half	698
				.half	699
				.half	700
				.half	0
				.half	703
				.half	703
				.half	704
				.half	706
				.half	707
				.half	708
				.half	708
				.half	700
				.half	711
				.half	711
				.half	712
				.half	713
				.half	719
				.half	719
				.half	719
				.half	719
				.half	719
				.half	719
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.half	0
				.common	STATS.6126,4,4
				.common	BP.6197,4,4
				.common	X.6110,4,4
				.align 4
		LIST.6190:
				.long	1
				.common	IMPCOM,536,4
				.section	".text"
		.Letext0:
 2719 impcom_option = ""
				lduw	[%fp-3013], %g1
		.L882:
				add	%g1, -1, %g1
				sra	%g1, 0, %g1
				sllx	%g1, 3, %g1
				sethi	%hi(LITOP.7199), %g2
				or	%g2, %lo(LITOP.7199), %g2
				ba,pt	%xcc, .L757
				 ldx	[%g2+%g1], %g1
		.LVL673:
		.L725:
 2720
				ldx	[%fp+2039], %g1
				ldx	[%g7+40], %g2
				xor	%g1, %g2, %g1
				mov	0, %g2
				brnz,pn	%g1, .L798
				 nop
				return	%i7+8
				 nop
		.LVL465:
		.L794:
 2721    list = 15 %IF Impcom_Flags&x'1000' # 0
				sethi	%hi(106496), %i5
				xor	%i5, -536, %o1
				mov	255, %o2
				add	%fp, 2047, %g1
				add	%g1, %o1, %o1
				call	_imp_strncpy, 0
				 add	%o0, 280, %o0
		.LVL1331:
 2722
				sethi	%hi(LIST.6190), %g1
				mov	15, %g2
				st	%g2, [%g1+%lo(LIST.6190)]
		.LDL49:
		.LBB772:
 2723    open output(2, "LISTING");
				sethi	%hi(105472), %i4
				xor	%i4, -792, %i4
				add	%fp, 2047, %g1
				add	%g1, %i4, %i4
				mov	256, %o2
				sethi	%hi(.LC5), %o1
				or	%o1, %lo(.LC5), %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL1332:
				xor	%i5, -280, %i2
				add	%fp, 2047, %g1
				add	%g1, %i2, %i2
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 mov	%i2, %o0
		.LVL1333:
		.LBE772:
				xor	%i5, -800, %i3
				add	%fp, 2047, %g1
				add	%g1, %i3, %i3
				mov	256, %o2
				mov	%i2, %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1334:
				mov	%i3, %o1
				call	OPENOUTPUT, 0
				 mov	2, %o0
		.LVL1335:
		.LBB773:
 2724    open input(2, "prims.inc");
				mov	256, %o2
				sethi	%hi(.LC6), %o1
				or	%o1, %lo(.LC6), %o1
				call	memcpy, 0
				 mov	%i4, %o0
		.LVL1336:
				xor	%i5, -24, %i5
				add	%fp, 2047, %g1
				add	%g1, %i5, %i5
				mov	256, %o2
				mov	%i4, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL1337:
		.LBE773:
				mov	256, %o2
				mov	%i5, %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1338:
				mov	%i3, %o1
				call	OPENINPUT, 0
				 mov	2, %o0
		.LVL1339:
		.LBB774:
		.LBB775:
				mov	2, %i5
				sethi	%hi(_imp_InStream), %g1
				st	%i5, [%g1+%lo(_imp_InStream)]
				sethi	%hi(_imp_infile), %g1
				ldx	[%g1+%lo(_imp_infile)+584], %g2
				sethi	%hi(_imp_InFile), %g1
				stx	%g2, [%g1+%lo(_imp_InFile)]
				sethi	%hi(__PRETTY_FUNCTION__.5656), %o0
				call	check_instream, 0
				 or	%o0, %lo(__PRETTY_FUNCTION__.5656), %o0
		.LVL1340:
		.LBE775:
		.LBE774:
		.LBB776:
		.LBB777:
				sethi	%hi(_imp_OutStream), %g1
				st	%i5, [%g1+%lo(_imp_OutStream)]
				sethi	%hi(_imp_outfile), %g1
				ldx	[%g1+%lo(_imp_outfile)+584], %g2
				sethi	%hi(_imp_OutFile), %g1
				stx	%g2, [%g1+%lo(_imp_OutFile)]
				sethi	%hi(__PRETTY_FUNCTION__.5660), %o0
				call	check_outstream, 0
				 or	%o0, %lo(__PRETTY_FUNCTION__.5660), %o0
		.LVL1341:
		.LBE777:
		.LBE776:
 2725    select input(2);  selectoutput(listing)
 2726    tag(max tag) = 0;                       !%BEGIN defn
				sethi	%hi(104448), %i5
				xor	%i5, -792, %i5
				add	%fp, 2047, %g1
				add	%g1, %i5, %i5
				mov	16, %o2
				mov	0, %o1
				mov	3253, %o0
				sllx	%o0, 2, %o0
				call	memset, 0
				 add	%i5, %o0, %o0
		.LVL1342:
 2727    tag(0) = 0;  tag(0)_flags = 7;          !%BEGIN tag!
				mov	16, %o2
				mov	0, %o1
				call	memset, 0
				 add	%i5, 212, %o0
		.LVL1343:
 2728    Hash(x) = 0 %FOR x = 0, 1, max names
				mov	7, %g1
				sth	%g1, [%i5+220]
				mov	0, %g3
 2729    printstring("         Edinburgh IMP77 Compiler - Version ")
				sethi	%hi(105472), %i4
				xor	%i4, -792, %i3
				add	%fp, 2047, %g1
				add	%g1, %i3, %i3
				mov	256, %o2
				sethi	%hi(.LC7), %o1
				or	%o1, %lo(.LC7), %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1344:
				xor	%i4, -536, %i5
				add	%fp, 2047, %g1
				add	%g1, %i5, %i5
				mov	256, %o2
				mov	%i3, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL1345:
				xor	%i4, -280, %i3
				add	%fp, 2047, %g1
				add	%g1, %i3, %i3
				mov	256, %o2
				mov	%i5, %o1
				call	memcpy, 0
				 mov	%i3, %o0
		.LVL1346:
		.LBE778:
		.LBB779:
		.LBB780:
				sethi	%hi(106496), %i5
				xor	%i5, -800, %i5
				add	%fp, 2047, %g1
				add	%g1, %i5, %i5
				mov	256, %o2
				mov	%i3, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL1347:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL1348:
				xor	%i4, -24, %i4
		.LVL1349:
				add	%fp, 2047, %g1
				stb	%g0, [%g1+%i4]
		.LBE780:
		.LBE779:
		.LBB781:
		.LBB782:
				mov	256, %o2
				add	%g1, %i4, %o1
				call	memcpy, 0
				 mov	%i5, %o0
		.LVL1350:
				call	_imp_printstring, 0
				 mov	%i5, %o0
		.LVL1351:
		.LBE782:
		.LBE781:
		.LBB783:
		.LBB784:
				call	_imp_newlines, 0
				 mov	2, %o0
		.LVL1352:
		.LBE784:
		.LBE783:
 2730    printstring(version);  newlines(2)
 2731    op('l', 0)
				cmp	%g3, 2048
				bne,pt	%icc, .L1073
				 sth	%g0, [%g4+4]
		.LDL51:
				sethi	%hi(X.6110), %g1
				mov	2047, %g2
				st	%g2, [%g1+%lo(X.6110)]
		.LBB778:
				sethi	%hi(104448), %i5
				xor	%i5, -792, %i5
				add	%fp, 2047, %g1
				add	%g1, %i5, %i5
				mov	%i5, %g5
				mov	0, %o1
				call	OP.6313, 0
				 mov	108, %o0
		.LVL1353:
 2732    compile block(0, 0, max dict, 0, 0)
				mov	%i5, %g5
				mov	0, %o4
				mov	0, %o3
				mov	375, %o2
				sllx	%o2, 4, %o2
				mov	0, %o1
				call	COMPILEBLOCK.6323, 0
				 mov	0, %o0
		.LVL1354:
				sethi	%hi(BP.6197), %g2
				lduw	[%g2+%lo(BP.6197)], %g1
				add	%g1, 1, %g3
				st	%g3, [%g2+%lo(BP.6197)]
 2733    bp=bp+1 %AND buff(bp)=nl                {for bouncing off}
				mov	1349, %g1
				sllx	%g1, 3, %g2
				mov	%i5, %g1
		.L1073:
				sra	%g3, 0, %g4
				add	%g4, %g2, %g4
				add	%g4, %g4, %g4
				add	%g1, %g4, %g4
		.LDL50:
				add	%g3, 1, %g3
 2734    flush buffer
				sra	%g1, 0, %g1
				add	%i5, %g1, %g1
				sethi	%hi(53611520), %g2
				srlx	%g2, 9, %g2
				mov	10, %g3
				stb	%g3, [%g1+%g2]
				call	FLUSHBUFFER.6207, 0
				 mov	%i5, %g5
		.LVL1355:
 2735    Impcom_Statements = stats
				sethi	%hi(STATS.6126), %g1
				lduw	[%g1+%lo(STATS.6126)], %g2
				sethi	%hi(IMPCOM), %g1
				st	%g2, [%g1+%lo(IMPCOM)]
		.LDL52:
		.LVL1356:
		.LBB785:
		.LBB786:
				call	exit, 0
				 mov	0, %o0
		.LVL1357:
		.L1071:
		.LBE786:
		.LBE785:
 2736    Impcom_Statements = -faulty %IF faulty # 0
 2737 %ENDOFPROGRAM
 2310 Statements compiled