Edinburgh IMP77 Compiler - Version 8.4
    1 %external %routine %spec close output
				.option nopic
		.Ltext0:
				.align	1
		OP.6258:
		.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
		.LVL996:
				add	sp,sp,-944
				sd	ra,936(sp)
				sd	s0,928(sp)
				sd	s1,920(sp)
				sd	s2,912(sp)
				sd	s3,904(sp)
				sd	s4,896(sp)
				sd	s5,888(sp)
				sd	s6,880(sp)
				sd	s7,872(sp)
				li	t1,-106496
				add	sp,sp,t1
				lui	a5,%hi(__stack_chk_guard)
				ld	a5,%lo(__stack_chk_guard)(a5)
				li	s7,106496
				add	a4,s7,792
				add	a3,sp,64
				add	a4,a4,a3
				sd	a5,0(a4)
				li	a5,-106496
				add	a4,s7,800
				add	a4,a4,a3
				add	a5,a4,a5
				sd	a5,16(sp)
				add	a5,s7,784
				add	a5,a5,a3
				add	a4,s7,864
				add	a3,sp,80
				add	a4,a4,a3
				sd	a4,0(a5)
   24    %CONSTSTRING(4) version = "8.4"
				call	_imp_initialise
		.LVL997:
   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
				li	s0,40960
				ld	a5,16(sp)
				add	s0,a5,s0
				li	a5,89
				sb	a5,-802(s0)
				li	a4,91
				sb	a4,-801(s0)
				li	a4,92
				sb	a4,-800(s0)
				li	a4,104
				sb	a4,-799(s0)
				li	a4,94
				sb	a4,-798(s0)
				li	a4,93
				sb	a4,-797(s0)
				li	a4,105
				sb	a4,-796(s0)
				li	a4,100
				sb	a4,-795(s0)
				li	a4,101
				sb	a4,-794(s0)
				li	a4,102
				sb	a4,-793(s0)
				li	a4,103
				sb	a4,-792(s0)
				li	a4,106
				sb	a4,-791(s0)
				li	a4,107
				sb	a4,-790(s0)
				li	a4,108
				sb	a4,-789(s0)
				li	a4,109
				sb	a4,-788(s0)
				sb	a5,-787(s0)
  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,
				sb	a5,-868(s0)
				li	s1,1
				sb	s1,-867(s0)
				sb	s1,-866(s0)
				li	a4,10
				sb	a4,-865(s0)
				li	a3,9
				sb	a3,-864(s0)
				sb	s1,-863(s0)
				sb	a4,-862(s0)
				li	s2,7
				sb	s2,-861(s0)
				sb	s2,-860(s0)
				sb	s2,-859(s0)
				sb	s2,-858(s0)
				li	s3,4
				sb	s3,-857(s0)
				sb	s1,-856(s0)
				sb	s3,-855(s0)
				sb	s1,-854(s0)
				sb	a5,-853(s0)
  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 ***
				li	a2,65536
				li	a1,0
				add	a0,s0,-786
				call	memset
		.LVL998:
				sb	s1,-786(s0)
				lui	a5,%hi(.LC91)
				lbu	a4,%lo(.LC91)(a5)
				sb	a4,-785(s0)
				addi	a5,a5,%lo(.LC91)
				lbu	a5,1(a5)
				sb	a5,-784(s0)
				li	s5,6
				li	a2,6
				li	a1,0
				add	a0,s0,-783
				call	memset
		.LVL999:
				sb	s3,-530(s0)
				li	s4,5
				li	a2,5
				lui	a1,%hi(.LC92)
				addi	a1,a1,%lo(.LC92)
				add	a0,s0,-529
				call	memcpy
		.LVL1000:
				sb	zero,-524(s0)
				sb	zero,-523(s0)
				sb	zero,-522(s0)
				sb	s2,-274(s0)
				li	s6,8
				li	a2,8
				lui	a1,%hi(.LC93)
				addi	a1,a1,%lo(.LC93)
				add	a0,s0,-273
				call	memcpy
		.LVL1001:
				sb	s6,-18(s0)
				li	a2,8
				lui	a1,%hi(.LC94)
				addi	a1,a1,%lo(.LC94)
				add	a0,s0,-17
				call	memcpy
		.LVL1002:
				sb	s3,238(s0)
				li	a2,5
				lui	a1,%hi(.LC95)
				addi	a1,a1,%lo(.LC95)
				add	a0,s0,239
				call	memcpy
		.LVL1003:
				sb	zero,244(s0)
				sb	zero,245(s0)
				sb	zero,246(s0)
				sb	s2,494(s0)
				li	a2,8
				lui	a1,%hi(.LC96)
				addi	a1,a1,%lo(.LC96)
				add	a0,s0,495
				call	memcpy
		.LVL1004:
				sb	s6,750(s0)
				li	a2,8
				lui	a1,%hi(.LC97)
				addi	a1,a1,%lo(.LC97)
				add	a0,s0,751
				call	memcpy
		.LVL1005:
				sb	s3,1006(s0)
				li	a2,5
				lui	a1,%hi(.LC98)
				addi	a1,a1,%lo(.LC98)
				add	a0,s0,1007
				call	memcpy
		.LVL1006:
				sb	zero,1012(s0)
				sb	zero,1013(s0)
				sb	zero,1014(s0)
				sb	s6,1262(s0)
				li	a2,8
				lui	a1,%hi(.LC99)
				addi	a1,a1,%lo(.LC99)
				add	a0,s0,1263
				call	memcpy
		.LVL1007:
				sb	s2,1518(s0)
				li	a2,8
				lui	a1,%hi(.LC100)
				addi	a1,a1,%lo(.LC100)
				add	a0,s0,1519
				call	memcpy
		.LVL1008:
				sb	s4,1774(s0)
				li	a2,6
				lui	a1,%hi(.LC101)
				addi	a1,a1,%lo(.LC101)
				add	a0,s0,1775
				call	memcpy
		.LVL1009:
				sb	zero,1781(s0)
				sb	zero,1782(s0)
				sb	s3,2030(s0)
				li	a2,5
				lui	a1,%hi(.LC102)
				addi	a1,a1,%lo(.LC102)
				add	a0,s0,2031
				call	memcpy
		.LVL1010:
				sb	zero,2036(s0)
				sb	zero,2037(s0)
				sb	zero,2038(s0)
				li	s0,45056
				ld	a5,16(sp)
				add	s0,a5,s0
				sb	s6,-1810(s0)
				li	a2,8
				lui	a1,%hi(.LC103)
				addi	a1,a1,%lo(.LC103)
				add	a0,s0,-1809
				call	memcpy
		.LVL1011:
				sb	s5,-274(s0)
				li	a2,7
				lui	a1,%hi(.LC104)
				addi	a1,a1,%lo(.LC104)
				add	a0,s0,-273
				call	memcpy
		.LVL1012:
				sb	zero,-266(s0)
				sb	s4,-18(s0)
				li	a2,6
				lui	a1,%hi(.LC105)
				addi	a1,a1,%lo(.LC105)
				add	a0,s0,-17
				call	memcpy
		.LVL1013:
				sb	zero,-11(s0)
				sb	zero,-10(s0)
				sb	s1,238(s0)
				lui	a5,%hi(.LC106)
				lbu	a4,%lo(.LC106)(a5)
				sb	a4,239(s0)
				addi	a5,a5,%lo(.LC106)
				lbu	a5,1(a5)
				sb	a5,240(s0)
				li	a2,6
				li	a1,0
				add	a0,s0,241
				call	memset
		.LVL1014:
				sb	s4,494(s0)
				li	a2,6
				lui	a1,%hi(.LC107)
				addi	a1,a1,%lo(.LC107)
				add	a0,s0,495
				call	memcpy
		.LVL1015:
				sb	zero,501(s0)
				sb	zero,502(s0)
				li	a5,7
				sb	a5,750(s0)
				li	a2,8
				lui	a1,%hi(.LC108)
				addi	a1,a1,%lo(.LC108)
				add	a0,s0,751
				call	memcpy
		.LVL1016:
				li	s2,2
				sb	s2,1006(s0)
				li	s1,3
				li	a2,3
				lui	a1,%hi(.LC109)
				addi	a1,a1,%lo(.LC109)
				add	a0,s0,1007
				call	memcpy
		.LVL1017:
				sb	zero,1010(s0)
				sb	zero,1011(s0)
				sb	zero,1012(s0)
				sb	zero,1013(s0)
				sb	zero,1014(s0)
				sb	s4,1262(s0)
				li	a2,6
				lui	a1,%hi(.LC110)
				addi	a1,a1,%lo(.LC110)
				add	a0,s0,1263
				call	memcpy
		.LVL1018:
				sb	zero,1269(s0)
				sb	zero,1270(s0)
				sb	s2,1518(s0)
				li	a2,3
				lui	a1,%hi(.LC111)
				addi	a1,a1,%lo(.LC111)
				add	a0,s0,1519
				call	memcpy
		.LVL1019:
				sb	zero,1522(s0)
				sb	zero,1523(s0)
				sb	zero,1524(s0)
				sb	zero,1525(s0)
				sb	zero,1526(s0)
				sb	s1,1774(s0)
				li	s2,4
				li	a2,4
				lui	a1,%hi(.LC112)
				addi	a1,a1,%lo(.LC112)
				add	a0,s0,1775
				call	memcpy
		.LVL1020:
				sb	zero,1779(s0)
				sb	zero,1780(s0)
				sb	zero,1781(s0)
				sb	zero,1782(s0)
				sb	s5,2030(s0)
				li	a2,7
				lui	a1,%hi(.LC113)
				addi	a1,a1,%lo(.LC113)
				add	a0,s0,2031
				call	memcpy
		.LVL1021:
				sb	zero,2038(s0)
				li	s0,49152
				ld	a5,16(sp)
				add	s0,a5,s0
				sb	s4,-1810(s0)
				li	a2,6
				lui	a1,%hi(.LC114)
				addi	a1,a1,%lo(.LC114)
				add	a0,s0,-1809
				call	memcpy
		.LVL1022:
				sb	zero,-1803(s0)
				sb	zero,-1802(s0)
				sb	s4,-1554(s0)
				li	a2,6
				lui	a1,%hi(.LC115)
				addi	a1,a1,%lo(.LC115)
				add	a0,s0,-1553
				call	memcpy
		.LVL1023:
				sb	zero,-1547(s0)
				sb	zero,-1546(s0)
				sb	s2,-1298(s0)
				li	a2,5
				lui	a1,%hi(.LC116)
				addi	a1,a1,%lo(.LC116)
				add	a0,s0,-1297
				call	memcpy
		.LVL1024:
				sb	zero,-1292(s0)
				sb	zero,-1291(s0)
				sb	zero,-1290(s0)
				sb	s4,-1042(s0)
				li	a2,6
				lui	a1,%hi(.LC117)
				addi	a1,a1,%lo(.LC117)
				add	a0,s0,-1041
				call	memcpy
		.LVL1025:
				sb	zero,-1035(s0)
				sb	zero,-1034(s0)
				sb	s4,-786(s0)
				li	a2,6
				lui	a1,%hi(.LC118)
				addi	a1,a1,%lo(.LC118)
				add	a0,s0,-785
				call	memcpy
		.LVL1026:
				sb	zero,-779(s0)
				sb	zero,-778(s0)
				sb	s5,-530(s0)
				li	a2,7
				lui	a1,%hi(.LC119)
				addi	a1,a1,%lo(.LC119)
				add	a0,s0,-529
				call	memcpy
		.LVL1027:
				sb	zero,-522(s0)
				sb	s1,-274(s0)
				li	a2,4
				lui	a1,%hi(.LC120)
				addi	a1,a1,%lo(.LC120)
				add	a0,s0,-273
				call	memcpy
		.LVL1028:
				sb	zero,-269(s0)
				sb	zero,-268(s0)
				sb	zero,-267(s0)
				sb	zero,-266(s0)
				sb	s6,-18(s0)
				li	a2,8
				lui	a1,%hi(.LC121)
				addi	a1,a1,%lo(.LC121)
				add	a0,s0,-17
				call	memcpy
		.LVL1029:
				sb	s5,238(s0)
				li	a2,7
				lui	a1,%hi(.LC122)
				addi	a1,a1,%lo(.LC122)
				add	a0,s0,239
				call	memcpy
		.LVL1030:
				sb	zero,246(s0)
				sb	s5,494(s0)
				li	a2,7
				lui	a1,%hi(.LC123)
				addi	a1,a1,%lo(.LC123)
				add	a0,s0,495
				call	memcpy
		.LVL1031:
				sb	zero,502(s0)
				sb	s5,750(s0)
				li	a2,7
				lui	a1,%hi(.LC124)
				addi	a1,a1,%lo(.LC124)
				add	a0,s0,751
				call	memcpy
		.LVL1032:
				sb	zero,758(s0)
				sb	s2,1006(s0)
				li	a2,5
				lui	a1,%hi(.LC125)
				addi	a1,a1,%lo(.LC125)
				add	a0,s0,1007
				call	memcpy
		.LVL1033:
				sb	zero,1012(s0)
				sb	zero,1013(s0)
				sb	zero,1014(s0)
				sb	s4,1262(s0)
				li	a2,6
				lui	a1,%hi(.LC126)
				addi	a1,a1,%lo(.LC126)
				add	a0,s0,1263
				call	memcpy
		.LVL1034:
				sb	zero,1269(s0)
				sb	zero,1270(s0)
				sb	s4,1518(s0)
				li	a2,6
				lui	a1,%hi(.LC127)
				addi	a1,a1,%lo(.LC127)
				add	a0,s0,1519
				call	memcpy
		.LVL1035:
				sb	zero,1525(s0)
				sb	zero,1526(s0)
				sb	s1,1774(s0)
				li	a2,4
				lui	a1,%hi(.LC128)
				addi	a1,a1,%lo(.LC128)
				add	a0,s0,1775
				call	memcpy
		.LVL1036:
				sb	zero,1779(s0)
				sb	zero,1780(s0)
				sb	zero,1781(s0)
				sb	zero,1782(s0)
				sb	s1,2030(s0)
				li	a2,4
				lui	a1,%hi(.LC129)
				addi	a1,a1,%lo(.LC129)
				add	a0,s0,2031
				call	memcpy
		.LVL1037:
				sb	zero,2035(s0)
				sb	zero,2036(s0)
				sb	zero,2037(s0)
				sb	zero,2038(s0)
				li	a5,53248
				ld	a4,16(sp)
				add	a5,a4,a5
				li	a4,3
				sb	a4,-1810(a5)
				li	a5,-106496
				add	a4,s7,800
				add	a3,sp,64
				add	a4,a4,a3
				add	a5,a4,a5
				sd	a5,24(sp)
				li	s0,53248
				add	s0,a5,s0
				li	a2,4
				lui	a1,%hi(.LC130)
				addi	a1,a1,%lo(.LC130)
				add	a0,s0,-1809
				call	memcpy
		.LVL1038:
				sb	zero,-1805(s0)
				sb	zero,-1804(s0)
				sb	zero,-1803(s0)
				sb	zero,-1802(s0)
				sb	s2,-1554(s0)
				li	s1,5
				li	a2,5
				lui	a1,%hi(.LC131)
				addi	a1,a1,%lo(.LC131)
				add	a0,s0,-1553
				call	memcpy
		.LVL1039:
				sb	zero,-1548(s0)
				sb	zero,-1547(s0)
				sb	zero,-1546(s0)
				li	s3,3
				sb	s3,-1298(s0)
				li	a2,4
				lui	a1,%hi(.LC132)
				addi	a1,a1,%lo(.LC132)
				add	a0,s0,-1297
				call	memcpy
		.LVL1040:
				sb	zero,-1293(s0)
				sb	zero,-1292(s0)
				sb	zero,-1291(s0)
				sb	zero,-1290(s0)
				sb	s3,-1042(s0)
				li	a2,4
				lui	a1,%hi(.LC133)
				addi	a1,a1,%lo(.LC133)
				add	a0,s0,-1041
				call	memcpy
		.LVL1041:
				sb	zero,-1037(s0)
				sb	zero,-1036(s0)
				sb	zero,-1035(s0)
				sb	zero,-1034(s0)
				sb	s3,-786(s0)
				li	a2,4
				lui	a1,%hi(.LC134)
				addi	a1,a1,%lo(.LC134)
				add	a0,s0,-785
				call	memcpy
		.LVL1042:
				sb	zero,-781(s0)
				sb	zero,-780(s0)
				sb	zero,-779(s0)
				sb	zero,-778(s0)
				sb	s2,-530(s0)
				li	a2,5
				lui	a1,%hi(.LC135)
				addi	a1,a1,%lo(.LC135)
				add	a0,s0,-529
				call	memcpy
		.LVL1043:
				sb	zero,-524(s0)
				sb	zero,-523(s0)
				sb	zero,-522(s0)
				sb	s1,-274(s0)
				li	a2,6
				lui	a1,%hi(.LC136)
				addi	a1,a1,%lo(.LC136)
				add	a0,s0,-273
				call	memcpy
		.LVL1044:
				sb	zero,-267(s0)
				sb	zero,-266(s0)
				li	s6,2
				sb	s6,-18(s0)
				li	s4,3
				li	a2,3
				lui	a1,%hi(.LC137)
				addi	a1,a1,%lo(.LC137)
				add	a0,s0,-17
				call	memcpy
		.LVL1045:
				sb	zero,-14(s0)
				sb	zero,-13(s0)
				sb	zero,-12(s0)
				sb	zero,-11(s0)
				sb	zero,-10(s0)
				sb	s2,238(s0)
				li	a2,5
				lui	a1,%hi(.LC138)
				addi	a1,a1,%lo(.LC138)
				add	a0,s0,239
				call	memcpy
		.LVL1046:
				sb	zero,244(s0)
				sb	zero,245(s0)
				sb	zero,246(s0)
				sb	s4,494(s0)
				li	a2,4
				lui	a1,%hi(.LC139)
				addi	a1,a1,%lo(.LC139)
				add	a0,s0,495
				call	memcpy
		.LVL1047:
				sb	zero,499(s0)
				sb	zero,500(s0)
				sb	zero,501(s0)
				sb	zero,502(s0)
				sb	s2,750(s0)
				li	a2,5
				lui	a1,%hi(.LC140)
				addi	a1,a1,%lo(.LC140)
				add	a0,s0,751
				call	memcpy
		.LVL1048:
				sb	zero,756(s0)
				sb	zero,757(s0)
				sb	zero,758(s0)
				sb	s1,1006(s0)
				li	a2,6
				lui	a1,%hi(.LC141)
				addi	a1,a1,%lo(.LC141)
				add	a0,s0,1007
				call	memcpy
		.LVL1049:
				sb	zero,1013(s0)
				sb	zero,1014(s0)
				sb	s3,1262(s0)
				li	a2,4
				lui	a1,%hi(.LC142)
				addi	a1,a1,%lo(.LC142)
				add	a0,s0,1263
				call	memcpy
		.LVL1050:
				sb	zero,1267(s0)
				sb	zero,1268(s0)
				sb	zero,1269(s0)
				sb	zero,1270(s0)
				sb	s6,1518(s0)
				li	a2,3
				lui	a1,%hi(.LC143)
				addi	a1,a1,%lo(.LC143)
				add	a0,s0,1519
				call	memcpy
		.LVL1051:
				sb	zero,1522(s0)
				sb	zero,1523(s0)
				sb	zero,1524(s0)
				sb	zero,1525(s0)
				sb	zero,1526(s0)
				sb	s4,1774(s0)
				li	a2,4
				lui	a1,%hi(.LC144)
				addi	a1,a1,%lo(.LC144)
				add	a0,s0,1775
				call	memcpy
		.LVL1052:
				sb	zero,1779(s0)
				sb	zero,1780(s0)
				sb	zero,1781(s0)
				sb	zero,1782(s0)
				sb	s1,2030(s0)
				li	a2,6
				lui	a1,%hi(.LC145)
				addi	a1,a1,%lo(.LC145)
				add	a0,s0,2031
				call	memcpy
		.LVL1053:
				sb	zero,2037(s0)
				sb	zero,2038(s0)
				li	s0,57344
				ld	a5,24(sp)
				add	s0,a5,s0
				sb	s1,-1810(s0)
				li	a2,6
				lui	a1,%hi(.LC146)
				addi	a1,a1,%lo(.LC146)
				add	a0,s0,-1809
				call	memcpy
		.LVL1054:
				sb	zero,-1803(s0)
				sb	zero,-1802(s0)
				sb	s4,-1554(s0)
				li	a2,4
				lui	a1,%hi(.LC147)
				addi	a1,a1,%lo(.LC147)
				add	a0,s0,-1553
				call	memcpy
		.LVL1055:
				sb	zero,-1549(s0)
				sb	zero,-1548(s0)
				sb	zero,-1547(s0)
				sb	zero,-1546(s0)
				sb	s1,-1298(s0)
				li	a2,6
				lui	a1,%hi(.LC148)
				addi	a1,a1,%lo(.LC148)
				add	a0,s0,-1297
				call	memcpy
		.LVL1056:
				sb	zero,-1291(s0)
				sb	zero,-1290(s0)
				sb	s2,-1042(s0)
				li	a2,5
				lui	a1,%hi(.LC149)
				addi	a1,a1,%lo(.LC149)
				add	a0,s0,-1041
				call	memcpy
		.LVL1057:
				sb	zero,-1036(s0)
				sb	zero,-1035(s0)
				sb	zero,-1034(s0)
				sb	s6,-786(s0)
				li	a2,3
				lui	a1,%hi(.LC150)
				addi	a1,a1,%lo(.LC150)
				add	a0,s0,-785
				call	memcpy
		.LVL1058:
				sb	zero,-782(s0)
				sb	zero,-781(s0)
				sb	zero,-780(s0)
				sb	zero,-779(s0)
				sb	zero,-778(s0)
				sb	s5,-530(s0)
				li	s3,7
				li	a2,7
				lui	a1,%hi(.LC151)
				addi	a1,a1,%lo(.LC151)
				add	a0,s0,-529
				call	memcpy
		.LVL1059:
				sb	zero,-522(s0)
				sb	s2,-274(s0)
				li	a2,5
				lui	a1,%hi(.LC152)
				addi	a1,a1,%lo(.LC152)
				add	a0,s0,-273
				call	memcpy
		.LVL1060:
				sb	zero,-268(s0)
				sb	zero,-267(s0)
				sb	zero,-266(s0)
				sb	s1,-18(s0)
				li	a2,6
				lui	a1,%hi(.LC153)
				addi	a1,a1,%lo(.LC153)
				add	a0,s0,-17
				call	memcpy
		.LVL1061:
				sb	zero,-11(s0)
				sb	zero,-10(s0)
				sb	s2,238(s0)
				li	a2,5
				lui	a1,%hi(.LC154)
				addi	a1,a1,%lo(.LC154)
				add	a0,s0,239
				call	memcpy
		.LVL1062:
				sb	zero,244(s0)
				sb	zero,245(s0)
				sb	zero,246(s0)
				sb	s5,494(s0)
				li	a2,7
				lui	a1,%hi(.LC155)
				addi	a1,a1,%lo(.LC155)
				add	a0,s0,495
				call	memcpy
		.LVL1063:
				sb	zero,502(s0)
				sb	s1,750(s0)
				li	a2,6
				lui	a1,%hi(.LC156)
				addi	a1,a1,%lo(.LC156)
				add	a0,s0,751
				call	memcpy
		.LVL1064:
				sb	zero,757(s0)
				sb	zero,758(s0)
				sb	s1,1006(s0)
				li	a2,6
				lui	a1,%hi(.LC157)
				addi	a1,a1,%lo(.LC157)
				add	a0,s0,1007
				call	memcpy
		.LVL1065:
				sb	zero,1013(s0)
				sb	zero,1014(s0)
				sb	s5,1262(s0)
				li	a2,7
				lui	a1,%hi(.LC158)
				addi	a1,a1,%lo(.LC158)
				add	a0,s0,1263
				call	memcpy
		.LVL1066:
				sb	zero,1270(s0)
				sb	s3,1518(s0)
				li	a2,8
				lui	a1,%hi(.LC159)
				addi	a1,a1,%lo(.LC159)
				add	a0,s0,1519
				call	memcpy
		.LVL1067:
				sb	s1,1774(s0)
				li	a2,6
				lui	a1,%hi(.LC160)
				addi	a1,a1,%lo(.LC160)
				add	a0,s0,1775
				call	memcpy
		.LVL1068:
				sb	zero,1781(s0)
				sb	zero,1782(s0)
				sb	s4,2030(s0)
				li	a2,4
				lui	a1,%hi(.LC161)
				addi	a1,a1,%lo(.LC161)
				add	a0,s0,2031
				call	memcpy
		.LVL1069:
				sb	zero,2035(s0)
				sb	zero,2036(s0)
				sb	zero,2037(s0)
				sb	zero,2038(s0)
				li	s0,61440
				ld	a5,24(sp)
				add	s0,a5,s0
				sb	s3,-1810(s0)
				li	a2,8
				lui	a1,%hi(.LC162)
				addi	a1,a1,%lo(.LC162)
				add	a0,s0,-1809
				call	memcpy
		.LVL1070:
				sb	s3,-1554(s0)
				li	a2,8
				lui	a1,%hi(.LC163)
				addi	a1,a1,%lo(.LC163)
				add	a0,s0,-1553
				call	memcpy
		.LVL1071:
				sb	s3,-1298(s0)
				li	a2,8
				lui	a1,%hi(.LC164)
				addi	a1,a1,%lo(.LC164)
				add	a0,s0,-1297
				call	memcpy
		.LVL1072:
				sb	s3,-1042(s0)
				li	a2,8
				lui	a1,%hi(.LC165)
				addi	a1,a1,%lo(.LC165)
				add	a0,s0,-1041
				call	memcpy
		.LVL1073:
				sb	s2,-786(s0)
				li	a2,5
				lui	a1,%hi(.LC166)
				addi	a1,a1,%lo(.LC166)
				add	a0,s0,-785
				call	memcpy
		.LVL1074:
				sb	zero,-780(s0)
				sb	zero,-779(s0)
				sb	zero,-778(s0)
				sb	s3,-530(s0)
				li	a2,8
				lui	a1,%hi(.LC167)
				addi	a1,a1,%lo(.LC167)
				add	a0,s0,-529
				call	memcpy
		.LVL1075:
				sb	s2,-274(s0)
				li	a2,5
				lui	a1,%hi(.LC168)
				addi	a1,a1,%lo(.LC168)
				add	a0,s0,-273
				call	memcpy
		.LVL1076:
				sb	zero,-268(s0)
				sb	zero,-267(s0)
				sb	zero,-266(s0)
				sb	s2,-18(s0)
				li	a2,5
				lui	a1,%hi(.LC169)
				addi	a1,a1,%lo(.LC169)
				add	a0,s0,-17
				call	memcpy
		.LVL1077:
				sb	zero,-12(s0)
				sb	zero,-11(s0)
				sb	zero,-10(s0)
				sb	s3,238(s0)
				li	a2,8
				lui	a1,%hi(.LC170)
				addi	a1,a1,%lo(.LC170)
				add	a0,s0,239
				call	memcpy
		.LVL1078:
				sb	s3,494(s0)
				li	a2,8
				lui	a1,%hi(.LC171)
				addi	a1,a1,%lo(.LC171)
				add	a0,s0,495
				call	memcpy
		.LVL1079:
				sb	s3,750(s0)
				li	a2,8
				lui	a1,%hi(.LC172)
				addi	a1,a1,%lo(.LC172)
				add	a0,s0,751
				call	memcpy
		.LVL1080:
				sb	s2,1006(s0)
				li	a2,5
				lui	a1,%hi(.LC173)
				addi	a1,a1,%lo(.LC173)
				add	a0,s0,1007
				call	memcpy
		.LVL1081:
				sb	zero,1012(s0)
				sb	zero,1013(s0)
				sb	zero,1014(s0)
				sb	s1,1262(s0)
				li	a2,6
				lui	a1,%hi(.LC174)
				addi	a1,a1,%lo(.LC174)
				add	a0,s0,1263
				call	memcpy
		.LVL1082:
				sb	zero,1269(s0)
				sb	zero,1270(s0)
				sb	s1,1518(s0)
				li	a2,6
				lui	a1,%hi(.LC175)
				addi	a1,a1,%lo(.LC175)
				add	a0,s0,1519
				call	memcpy
		.LVL1083:
				sb	zero,1525(s0)
				sb	zero,1526(s0)
				sb	s1,1774(s0)
				li	a2,6
				lui	a1,%hi(.LC176)
				addi	a1,a1,%lo(.LC176)
				add	a0,s0,1775
				call	memcpy
		.LVL1084:
				sb	zero,1781(s0)
				sb	zero,1782(s0)
				li	s2,1
				sb	s2,2030(s0)
				lui	a5,%hi(.LC177)
				lbu	a4,%lo(.LC177)(a5)
				sb	a4,2031(s0)
				addi	a5,a5,%lo(.LC177)
				lbu	a5,1(a5)
				sb	a5,2032(s0)
				li	a2,6
				li	a1,0
				add	a0,s0,2033
				call	memset
		.LVL1085:
				li	s0,65536
				ld	a5,24(sp)
				add	s0,a5,s0
				sb	s2,-1810(s0)
				lui	a5,%hi(.LC178)
				lbu	a4,%lo(.LC178)(a5)
				sb	a4,-1809(s0)
				addi	a5,a5,%lo(.LC178)
				lbu	a5,1(a5)
				sb	a5,-1808(s0)
				li	a2,6
				li	a1,0
				add	a0,s0,-1807
				call	memset
		.LVL1086:
				sb	s1,-1554(s0)
				li	a5,-106496
				add	a4,s7,800
				add	a3,sp,64
				add	a4,a4,a3
				add	a5,a4,a5
				sd	a5,32(sp)
				li	s0,65536
				add	s0,a5,s0
				li	a2,6
				lui	a1,%hi(.LC179)
				addi	a1,a1,%lo(.LC179)
				add	a0,s0,-1553
				call	memcpy
		.LVL1087:
				sb	zero,-1547(s0)
				sb	zero,-1546(s0)
				li	s1,2
				sb	s1,-1298(s0)
				li	s3,3
				li	a2,3
				lui	a1,%hi(.LC180)
				addi	a1,a1,%lo(.LC180)
				add	a0,s0,-1297
				call	memcpy
		.LVL1088:
				sb	zero,-1294(s0)
				sb	zero,-1293(s0)
				sb	zero,-1292(s0)
				sb	zero,-1291(s0)
				sb	zero,-1290(s0)
				sb	s2,-786(s0)
				lui	a5,%hi(.LC181)
				lbu	a4,%lo(.LC181)(a5)
				sb	a4,-785(s0)
				addi	a5,a5,%lo(.LC181)
				lbu	a5,1(a5)
				sb	a5,-784(s0)
				li	a2,6
				li	a1,0
				add	a0,s0,-783
				call	memset
		.LVL1089:
				sb	s2,-530(s0)
				lui	a5,%hi(.LC182)
				lbu	a4,%lo(.LC182)(a5)
				sb	a4,-529(s0)
				addi	a5,a5,%lo(.LC182)
				lbu	a5,1(a5)
				sb	a5,-528(s0)
				li	a2,6
				li	a1,0
				add	a0,s0,-527
				call	memset
		.LVL1090:
				sb	s2,-274(s0)
				lui	a5,%hi(.LC183)
				lbu	a4,%lo(.LC183)(a5)
				sb	a4,-273(s0)
				addi	a5,a5,%lo(.LC183)
				lbu	a5,1(a5)
				sb	a5,-272(s0)
				li	a2,6
				li	a1,0
				add	a0,s0,-271
				call	memset
		.LVL1091:
				sb	s2,-18(s0)
				lui	a5,%hi(.LC184)
				lbu	a4,%lo(.LC184)(a5)
				sb	a4,-17(s0)
				addi	a5,a5,%lo(.LC184)
				lbu	a5,1(a5)
				sb	a5,-16(s0)
				li	a2,6
				li	a1,0
				add	a0,s0,-15
				call	memset
		.LVL1092:
				sb	s1,238(s0)
				li	a2,3
				lui	a1,%hi(.LC185)
				addi	a1,a1,%lo(.LC185)
				add	a0,s0,239
				call	memcpy
		.LVL1093:
				sb	zero,242(s0)
				sb	zero,243(s0)
				sb	zero,244(s0)
				sb	zero,245(s0)
				sb	zero,246(s0)
				sb	s1,494(s0)
				li	a2,3
				lui	a1,%hi(.LC186)
				addi	a1,a1,%lo(.LC186)
				add	a0,s0,495
				call	memcpy
		.LVL1094:
				sb	zero,498(s0)
				sb	zero,499(s0)
				sb	zero,500(s0)
				sb	zero,501(s0)
				sb	zero,502(s0)
				sb	s1,750(s0)
				li	a2,3
				lui	a1,%hi(.LC187)
				addi	a1,a1,%lo(.LC187)
				add	a0,s0,751
				call	memcpy
		.LVL1095:
				sb	zero,754(s0)
				sb	zero,755(s0)
				sb	zero,756(s0)
				sb	zero,757(s0)
				sb	zero,758(s0)
				sb	s1,1006(s0)
				li	a2,3
				lui	a1,%hi(.LC188)
				addi	a1,a1,%lo(.LC188)
				add	a0,s0,1007
				call	memcpy
		.LVL1096:
				sb	zero,1010(s0)
				sb	zero,1011(s0)
				sb	zero,1012(s0)
				sb	zero,1013(s0)
				sb	zero,1014(s0)
				sb	s2,1262(s0)
				lui	a5,%hi(.LC189)
				lbu	a4,%lo(.LC189)(a5)
				sb	a4,1263(s0)
				addi	a5,a5,%lo(.LC189)
				lbu	a5,1(a5)
				sb	a5,1264(s0)
				li	a2,6
				li	a1,0
				add	a0,s0,1265
				call	memset
		.LVL1097:
				sb	s2,1518(s0)
				lui	a5,%hi(.LC190)
				lbu	a4,%lo(.LC190)(a5)
				sb	a4,1519(s0)
				addi	a5,a5,%lo(.LC190)
				lbu	a5,1(a5)
				sb	a5,1520(s0)
				li	a2,6
				li	a1,0
				add	a0,s0,1521
				call	memset
		.LVL1098:
				sb	s2,1774(s0)
				lui	a5,%hi(.LC191)
				lbu	a4,%lo(.LC191)(a5)
				sb	a4,1775(s0)
				addi	a5,a5,%lo(.LC191)
				lbu	a5,1(a5)
				sb	a5,1776(s0)
				li	a2,6
				li	a1,0
				add	a0,s0,1777
				call	memset
		.LVL1099:
				sb	s1,2030(s0)
				li	a2,3
				lui	a1,%hi(.LC192)
				addi	a1,a1,%lo(.LC192)
				add	a0,s0,2031
				call	memcpy
		.LVL1100:
				sb	zero,2034(s0)
				sb	zero,2035(s0)
				sb	zero,2036(s0)
				sb	zero,2037(s0)
				sb	zero,2038(s0)
				li	s0,69632
				ld	a5,32(sp)
				add	s0,a5,s0
				sb	s1,-1810(s0)
				li	a2,3
				lui	a1,%hi(.LC193)
				addi	a1,a1,%lo(.LC193)
				add	a0,s0,-1809
				call	memcpy
		.LVL1101:
				sb	zero,-1806(s0)
				sb	zero,-1805(s0)
				sb	zero,-1804(s0)
				sb	zero,-1803(s0)
				sb	zero,-1802(s0)
				sb	s3,-1554(s0)
				li	s4,4
				li	a2,4
				lui	a1,%hi(.LC194)
				addi	a1,a1,%lo(.LC194)
				add	a0,s0,-1553
				call	memcpy
		.LVL1102:
				sb	zero,-1549(s0)
				sb	zero,-1548(s0)
				sb	zero,-1547(s0)
				sb	zero,-1546(s0)
				li	a5,7
				sb	a5,1262(s0)
				li	a2,8
				lui	a1,%hi(.LC195)
				addi	a1,a1,%lo(.LC195)
				add	a0,s0,1263
				call	memcpy
		.LVL1103:
				sb	s5,1518(s0)
				li	a2,7
				lui	a1,%hi(.LC196)
				addi	a1,a1,%lo(.LC196)
				add	a0,s0,1519
				call	memcpy
		.LVL1104:
				sb	zero,1526(s0)
				li	a5,5
				sb	a5,1774(s0)
				li	a2,6
				lui	a1,%hi(.LC197)
				addi	a1,a1,%lo(.LC197)
				add	a0,s0,1775
				call	memcpy
		.LVL1105:
				sb	zero,1781(s0)
				sb	zero,1782(s0)
				li	s0,73728
				ld	a5,32(sp)
				add	s0,a5,s0
				li	a5,8
				sb	a5,-1810(s0)
				li	a2,8
				lui	a1,%hi(.LC198)
				addi	a1,a1,%lo(.LC198)
				add	a0,s0,-1809
				call	memcpy
		.LVL1106:
				li	s1,4
				sb	s4,-1554(s0)
				li	s2,5
				li	a2,5
				lui	a1,%hi(.LC199)
				addi	a1,a1,%lo(.LC199)
				add	a0,s0,-1553
				call	memcpy
		.LVL1107:
				sb	zero,-1548(s0)
				sb	zero,-1547(s0)
				sb	zero,-1546(s0)
				sb	s1,-1298(s0)
				li	a2,5
				lui	a1,%hi(.LC200)
				addi	a1,a1,%lo(.LC200)
				add	a0,s0,-1297
				call	memcpy
		.LVL1108:
				sb	zero,-1292(s0)
				sb	zero,-1291(s0)
				sb	zero,-1290(s0)
				sb	s2,-1042(s0)
				li	a2,6
				lui	a1,%hi(.LC201)
				addi	a1,a1,%lo(.LC201)
				add	a0,s0,-1041
				call	memcpy
		.LVL1109:
				sb	zero,-1035(s0)
				sb	zero,-1034(s0)
				sb	s2,-786(s0)
				li	a2,6
				lui	a1,%hi(.LC202)
				addi	a1,a1,%lo(.LC202)
				add	a0,s0,-785
				call	memcpy
		.LVL1110:
				sb	zero,-779(s0)
				sb	zero,-778(s0)
				sb	s5,-274(s0)
				li	a2,7
				lui	a1,%hi(.LC203)
				addi	a1,a1,%lo(.LC203)
				add	a0,s0,-273
				call	memcpy
		.LVL1111:
				sb	zero,-266(s0)
				sb	s5,-18(s0)
				li	a2,7
				lui	a1,%hi(.LC204)
				addi	a1,a1,%lo(.LC204)
				add	a0,s0,-17
				call	memcpy
		.LVL1112:
				sb	zero,-10(s0)
				sb	s5,238(s0)
				li	a2,7
				lui	a1,%hi(.LC205)
				addi	a1,a1,%lo(.LC205)
				add	a0,s0,239
				call	memcpy
		.LVL1113:
				sb	zero,246(s0)
				sb	s2,494(s0)
				li	a2,6
				lui	a1,%hi(.LC206)
				addi	a1,a1,%lo(.LC206)
				add	a0,s0,495
				call	memcpy
		.LVL1114:
				sb	zero,501(s0)
				sb	zero,502(s0)
				sb	s1,750(s0)
				li	a2,5
				lui	a1,%hi(.LC207)
				addi	a1,a1,%lo(.LC207)
				add	a0,s0,751
				call	memcpy
		.LVL1115:
				sb	zero,756(s0)
				sb	zero,757(s0)
				sb	zero,758(s0)
				sb	s1,1006(s0)
				li	a2,5
				lui	a1,%hi(.LC208)
				addi	a1,a1,%lo(.LC208)
				add	a0,s0,1007
				call	memcpy
		.LVL1116:
				sb	zero,1012(s0)
				sb	zero,1013(s0)
				sb	zero,1014(s0)
				sb	s1,1262(s0)
				li	a2,5
				lui	a1,%hi(.LC209)
				addi	a1,a1,%lo(.LC209)
				add	a0,s0,1263
				call	memcpy
		.LVL1117:
				sb	zero,1268(s0)
				sb	zero,1269(s0)
				sb	zero,1270(s0)
				sb	s1,1518(s0)
				li	a2,5
				lui	a1,%hi(.LC210)
				addi	a1,a1,%lo(.LC210)
				add	a0,s0,1519
				call	memcpy
		.LVL1118:
				sb	zero,1524(s0)
				sb	zero,1525(s0)
				sb	zero,1526(s0)
				sb	s1,1774(s0)
				li	a2,5
				lui	a1,%hi(.LC211)
				addi	a1,a1,%lo(.LC211)
				add	a0,s0,1775
				call	memcpy
		.LVL1119:
				sb	zero,1780(s0)
				sb	zero,1781(s0)
				sb	zero,1782(s0)
				sb	s1,2030(s0)
				li	a2,5
				lui	a1,%hi(.LC212)
				addi	a1,a1,%lo(.LC212)
				add	a0,s0,2031
				call	memcpy
		.LVL1120:
				sb	zero,2036(s0)
				sb	zero,2037(s0)
				sb	zero,2038(s0)
				li	s0,77824
				ld	a5,32(sp)
				add	s0,a5,s0
				sb	s1,-1810(s0)
				li	a2,5
				lui	a1,%hi(.LC213)
				addi	a1,a1,%lo(.LC213)
				add	a0,s0,-1809
				call	memcpy
		.LVL1121:
				sb	zero,-1804(s0)
				sb	zero,-1803(s0)
				sb	zero,-1802(s0)
				sb	s3,-1554(s0)
				li	a2,4
				lui	a1,%hi(.LC214)
				addi	a1,a1,%lo(.LC214)
				add	a0,s0,-1553
				call	memcpy
		.LVL1122:
				sb	zero,-1549(s0)
				sb	zero,-1548(s0)
				sb	zero,-1547(s0)
				sb	zero,-1546(s0)
				sb	s2,-1298(s0)
				li	a2,6
				lui	a1,%hi(.LC215)
				addi	a1,a1,%lo(.LC215)
				add	a0,s0,-1297
				call	memcpy
		.LVL1123:
				sb	zero,-1291(s0)
				sb	zero,-1290(s0)
				sb	s3,-1042(s0)
				li	a2,4
				lui	a1,%hi(.LC216)
				addi	a1,a1,%lo(.LC216)
				add	a0,s0,-1041
				call	memcpy
		.LVL1124:
				sb	zero,-1037(s0)
				sb	zero,-1036(s0)
				sb	zero,-1035(s0)
				sb	zero,-1034(s0)
				sb	s3,-786(s0)
				li	a2,4
				lui	a1,%hi(.LC217)
				addi	a1,a1,%lo(.LC217)
				add	a0,s0,-785
				call	memcpy
		.LVL1125:
				sb	zero,-781(s0)
				sb	zero,-780(s0)
				sb	zero,-779(s0)
				sb	zero,-778(s0)
				sb	s3,-530(s0)
				li	a2,4
				lui	a1,%hi(.LC218)
				addi	a1,a1,%lo(.LC218)
				add	a0,s0,-529
				call	memcpy
		.LVL1126:
				sb	zero,-525(s0)
				sb	zero,-524(s0)
				sb	zero,-523(s0)
				sb	zero,-522(s0)
				sb	s4,-274(s0)
				li	a2,5
				lui	a1,%hi(.LC219)
				addi	a1,a1,%lo(.LC219)
				add	a0,s0,-273
				call	memcpy
		.LVL1127:
				sb	zero,-268(s0)
				sb	zero,-267(s0)
				sb	zero,-266(s0)
				sb	s2,-18(s0)
				li	a2,6
				lui	a1,%hi(.LC220)
				addi	a1,a1,%lo(.LC220)
				add	a0,s0,-17
				call	memcpy
		.LVL1128:
				sb	zero,-11(s0)
				sb	zero,-10(s0)
				sb	s2,238(s0)
				li	a2,6
				lui	a1,%hi(.LC221)
				addi	a1,a1,%lo(.LC221)
				add	a0,s0,239
				call	memcpy
		.LVL1129:
				sb	zero,245(s0)
				sb	zero,246(s0)
				sb	s3,494(s0)
				li	a2,4
				lui	a1,%hi(.LC222)
				addi	a1,a1,%lo(.LC222)
				add	a0,s0,495
				call	memcpy
		.LVL1130:
				sb	zero,499(s0)
				sb	zero,500(s0)
				sb	zero,501(s0)
				sb	zero,502(s0)
				sb	s4,750(s0)
				li	a2,5
				lui	a1,%hi(.LC223)
				addi	a1,a1,%lo(.LC223)
				add	a0,s0,751
				call	memcpy
		.LVL1131:
				sb	zero,756(s0)
				sb	zero,757(s0)
				sb	zero,758(s0)
				sb	s4,1006(s0)
				li	a2,5
				lui	a1,%hi(.LC224)
				addi	a1,a1,%lo(.LC224)
				add	a0,s0,1007
				call	memcpy
		.LVL1132:
				sb	zero,1012(s0)
				sb	zero,1013(s0)
				sb	zero,1014(s0)
				sb	s2,1262(s0)
				li	a2,6
				lui	a1,%hi(.LC225)
				addi	a1,a1,%lo(.LC225)
				add	a0,s0,1263
				call	memcpy
		.LVL1133:
				sb	zero,1269(s0)
				sb	zero,1270(s0)
				sb	s4,1518(s0)
				li	a2,5
				lui	a1,%hi(.LC226)
				addi	a1,a1,%lo(.LC226)
				add	a0,s0,1519
				call	memcpy
		.LVL1134:
				sb	zero,1524(s0)
				sb	zero,1525(s0)
				sb	zero,1526(s0)
				li	a5,-106496
				add	a4,s7,800
				add	a3,sp,64
				add	a4,a4,a3
				add	a5,a4,a5
				sd	a5,0(sp)
				li	s0,77824
				add	s0,a5,s0
				li	a5,5
				sb	a5,1774(s0)
				li	s3,6
				li	a2,6
				lui	a1,%hi(.LC227)
				addi	a1,a1,%lo(.LC227)
				add	a0,s0,1775
				call	memcpy
		.LVL1135:
				sb	zero,1781(s0)
				sb	zero,1782(s0)
				sb	s3,2030(s0)
				li	s4,7
				li	a2,7
				lui	a1,%hi(.LC228)
				addi	a1,a1,%lo(.LC228)
				add	a0,s0,2031
				call	memcpy
		.LVL1136:
				sb	zero,2038(s0)
				li	s0,81920
				ld	a5,0(sp)
				add	s0,a5,s0
				sb	s1,-1810(s0)
				li	a2,5
				lui	a1,%hi(.LC229)
				addi	a1,a1,%lo(.LC229)
				add	a0,s0,-1809
				call	memcpy
		.LVL1137:
				sb	zero,-1804(s0)
				sb	zero,-1803(s0)
				sb	zero,-1802(s0)
				sb	s2,-1554(s0)
				li	a2,6
				lui	a1,%hi(.LC230)
				addi	a1,a1,%lo(.LC230)
				add	a0,s0,-1553
				call	memcpy
		.LVL1138:
				sb	zero,-1547(s0)
				sb	zero,-1546(s0)
				sb	s1,-1298(s0)
				li	a2,5
				lui	a1,%hi(.LC231)
				addi	a1,a1,%lo(.LC231)
				add	a0,s0,-1297
				call	memcpy
		.LVL1139:
				sb	zero,-1292(s0)
				sb	zero,-1291(s0)
				sb	zero,-1290(s0)
				sb	s1,-1042(s0)
				li	a2,5
				lui	a1,%hi(.LC232)
				addi	a1,a1,%lo(.LC232)
				add	a0,s0,-1041
				call	memcpy
		.LVL1140:
				sb	zero,-1036(s0)
				sb	zero,-1035(s0)
				sb	zero,-1034(s0)
				sb	s1,-786(s0)
				li	a2,5
				lui	a1,%hi(.LC233)
				addi	a1,a1,%lo(.LC233)
				add	a0,s0,-785
				call	memcpy
		.LVL1141:
				sb	zero,-780(s0)
				sb	zero,-779(s0)
				sb	zero,-778(s0)
				sb	s1,-530(s0)
				li	a2,5
				lui	a1,%hi(.LC234)
				addi	a1,a1,%lo(.LC234)
				add	a0,s0,-529
				call	memcpy
		.LVL1142:
				sb	zero,-524(s0)
				sb	zero,-523(s0)
				sb	zero,-522(s0)
				sb	s2,-274(s0)
				li	a2,6
				lui	a1,%hi(.LC235)
				addi	a1,a1,%lo(.LC235)
				add	a0,s0,-273
				call	memcpy
		.LVL1143:
				sb	zero,-267(s0)
				sb	zero,-266(s0)
				sb	s2,-18(s0)
				li	a2,6
				lui	a1,%hi(.LC236)
				addi	a1,a1,%lo(.LC236)
				add	a0,s0,-17
				call	memcpy
		.LVL1144:
				sb	zero,-11(s0)
				sb	zero,-10(s0)
				sb	s3,238(s0)
				li	a2,7
				lui	a1,%hi(.LC237)
				addi	a1,a1,%lo(.LC237)
				add	a0,s0,239
				call	memcpy
		.LVL1145:
				sb	zero,246(s0)
				sb	s1,494(s0)
				li	a2,5
				lui	a1,%hi(.LC238)
				addi	a1,a1,%lo(.LC238)
				add	a0,s0,495
				call	memcpy
		.LVL1146:
				sb	zero,500(s0)
				sb	zero,501(s0)
				sb	zero,502(s0)
				sb	s3,750(s0)
				li	a2,7
				lui	a1,%hi(.LC239)
				addi	a1,a1,%lo(.LC239)
				add	a0,s0,751
				call	memcpy
		.LVL1147:
				sb	zero,758(s0)
				sb	s3,1006(s0)
				li	a2,7
				lui	a1,%hi(.LC240)
				addi	a1,a1,%lo(.LC240)
				add	a0,s0,1007
				call	memcpy
		.LVL1148:
				sb	zero,1014(s0)
				sb	s1,1262(s0)
				li	a2,5
				lui	a1,%hi(.LC241)
				addi	a1,a1,%lo(.LC241)
				add	a0,s0,1263
				call	memcpy
		.LVL1149:
				sb	zero,1268(s0)
				sb	zero,1269(s0)
				sb	zero,1270(s0)
				sb	s2,1518(s0)
				li	a2,6
				lui	a1,%hi(.LC242)
				addi	a1,a1,%lo(.LC242)
				add	a0,s0,1519
				call	memcpy
		.LVL1150:
				sb	zero,1525(s0)
				sb	zero,1526(s0)
				sb	s4,1774(s0)
				li	s5,8
				li	a2,8
				lui	a1,%hi(.LC243)
				addi	a1,a1,%lo(.LC243)
				add	a0,s0,1775
				call	memcpy
		.LVL1151:
				sb	s1,2030(s0)
				li	a2,5
				lui	a1,%hi(.LC244)
				addi	a1,a1,%lo(.LC244)
				add	a0,s0,2031
				call	memcpy
		.LVL1152:
				sb	zero,2036(s0)
				sb	zero,2037(s0)
				sb	zero,2038(s0)
				li	s0,86016
				ld	a5,0(sp)
				add	s0,a5,s0
				sb	s1,-1810(s0)
				li	a2,5
				lui	a1,%hi(.LC245)
				addi	a1,a1,%lo(.LC245)
				add	a0,s0,-1809
				call	memcpy
		.LVL1153:
				sb	zero,-1804(s0)
				sb	zero,-1803(s0)
				sb	zero,-1802(s0)
				sb	s1,-1554(s0)
				li	a2,5
				lui	a1,%hi(.LC246)
				addi	a1,a1,%lo(.LC246)
				add	a0,s0,-1553
				call	memcpy
		.LVL1154:
				sb	zero,-1548(s0)
				sb	zero,-1547(s0)
				sb	zero,-1546(s0)
				sb	s4,-1298(s0)
				li	a2,8
				lui	a1,%hi(.LC247)
				addi	a1,a1,%lo(.LC247)
				add	a0,s0,-1297
				call	memcpy
		.LVL1155:
				sb	s1,-1042(s0)
				li	a2,5
				lui	a1,%hi(.LC248)
				addi	a1,a1,%lo(.LC248)
				add	a0,s0,-1041
				call	memcpy
		.LVL1156:
				sb	zero,-1036(s0)
				sb	zero,-1035(s0)
				sb	zero,-1034(s0)
				sb	s3,494(s0)
				li	a2,7
				lui	a1,%hi(.LC249)
				addi	a1,a1,%lo(.LC249)
				add	a0,s0,495
				call	memcpy
		.LVL1157:
				sb	zero,502(s0)
				sb	s2,750(s0)
				li	a2,6
				lui	a1,%hi(.LC250)
				addi	a1,a1,%lo(.LC250)
				add	a0,s0,751
				call	memcpy
		.LVL1158:
				sb	zero,757(s0)
				sb	zero,758(s0)
				sb	s2,1006(s0)
				li	a2,6
				lui	a1,%hi(.LC251)
				addi	a1,a1,%lo(.LC251)
				add	a0,s0,1007
				call	memcpy
		.LVL1159:
				sb	zero,1013(s0)
				sb	zero,1014(s0)
				sb	s2,1262(s0)
				li	a2,6
				lui	a1,%hi(.LC252)
				addi	a1,a1,%lo(.LC252)
				add	a0,s0,1263
				call	memcpy
		.LVL1160:
				sb	zero,1269(s0)
				sb	zero,1270(s0)
				sb	s3,1518(s0)
				li	a2,7
				lui	a1,%hi(.LC253)
				addi	a1,a1,%lo(.LC253)
				add	a0,s0,1519
				call	memcpy
		.LVL1161:
				sb	zero,1526(s0)
				sb	s2,1774(s0)
				li	a2,6
				lui	a1,%hi(.LC254)
				addi	a1,a1,%lo(.LC254)
				add	a0,s0,1775
				call	memcpy
		.LVL1162:
				sb	zero,1781(s0)
				sb	zero,1782(s0)
				sb	s5,2030(s0)
				li	a2,8
				lui	a1,%hi(.LC255)
				addi	a1,a1,%lo(.LC255)
				add	a0,s0,2031
				call	memcpy
		.LVL1163:
				li	s0,90112
				ld	a5,0(sp)
				add	s0,a5,s0
				sb	s3,-1810(s0)
				li	a2,7
				lui	a1,%hi(.LC256)
				addi	a1,a1,%lo(.LC256)
				add	a0,s0,-1809
				call	memcpy
		.LVL1164:
				sb	zero,-1802(s0)
				sb	s2,-1554(s0)
				li	a2,6
				lui	a1,%hi(.LC257)
				addi	a1,a1,%lo(.LC257)
				add	a0,s0,-1553
				call	memcpy
		.LVL1165:
				sb	zero,-1547(s0)
				sb	zero,-1546(s0)
				sb	s3,-1298(s0)
				li	a2,7
				lui	a1,%hi(.LC258)
				addi	a1,a1,%lo(.LC258)
				add	a0,s0,-1297
				call	memcpy
		.LVL1166:
				sb	zero,-1290(s0)
				sb	s3,-1042(s0)
				li	a2,7
				lui	a1,%hi(.LC259)
				addi	a1,a1,%lo(.LC259)
				add	a0,s0,-1041
				call	memcpy
		.LVL1167:
				sb	zero,-1034(s0)
				sb	s3,-786(s0)
				li	a2,7
				lui	a1,%hi(.LC260)
				addi	a1,a1,%lo(.LC260)
				add	a0,s0,-785
				call	memcpy
		.LVL1168:
				sb	zero,-778(s0)
				sb	s4,-530(s0)
				li	a2,8
				lui	a1,%hi(.LC261)
				addi	a1,a1,%lo(.LC261)
				add	a0,s0,-529
				call	memcpy
		.LVL1169:
				sb	s5,-274(s0)
				li	a2,8
				lui	a1,%hi(.LC262)
				addi	a1,a1,%lo(.LC262)
				add	a0,s0,-273
				call	memcpy
		.LVL1170:
				sb	s2,-18(s0)
				li	a2,6
				lui	a1,%hi(.LC263)
				addi	a1,a1,%lo(.LC263)
				add	a0,s0,-17
				call	memcpy
		.LVL1171:
				sb	zero,-11(s0)
				sb	zero,-10(s0)
				sb	s3,238(s0)
				li	a2,7
				lui	a1,%hi(.LC264)
				addi	a1,a1,%lo(.LC264)
				add	a0,s0,239
				call	memcpy
		.LVL1172:
				sb	zero,246(s0)
				sb	s3,494(s0)
				li	a2,7
				lui	a1,%hi(.LC265)
				addi	a1,a1,%lo(.LC265)
				add	a0,s0,495
				call	memcpy
		.LVL1173:
				sb	zero,502(s0)
				sb	s3,750(s0)
				li	a2,7
				lui	a1,%hi(.LC266)
				addi	a1,a1,%lo(.LC266)
				add	a0,s0,751
				call	memcpy
		.LVL1174:
				sb	zero,758(s0)
				sb	s5,1006(s0)
				li	a2,8
				lui	a1,%hi(.LC267)
				addi	a1,a1,%lo(.LC267)
				add	a0,s0,1007
				call	memcpy
		.LVL1175:
				li	a5,3
				sb	a5,1262(s0)
				li	a2,4
				lui	a1,%hi(.LC268)
				addi	a1,a1,%lo(.LC268)
				add	a0,s0,1263
				call	memcpy
		.LVL1176:
				sb	zero,1267(s0)
				sb	zero,1268(s0)
				sb	zero,1269(s0)
				sb	zero,1270(s0)
				sb	s4,1518(s0)
				li	a2,8
				lui	a1,%hi(.LC269)
				addi	a1,a1,%lo(.LC269)
				add	a0,s0,1519
				call	memcpy
		.LVL1177:
				li	a5,4
				sb	a5,1774(s0)
				li	a2,5
				lui	a1,%hi(.LC270)
				addi	a1,a1,%lo(.LC270)
				add	a0,s0,1775
				call	memcpy
		.LVL1178:
				sb	zero,1780(s0)
				sb	zero,1781(s0)
				sb	zero,1782(s0)
				sb	s1,2030(s0)
				li	a2,5
				lui	a1,%hi(.LC271)
				addi	a1,a1,%lo(.LC271)
				add	a0,s0,2031
				call	memcpy
		.LVL1179:
				sb	zero,2036(s0)
				sb	zero,2037(s0)
				sb	zero,2038(s0)
				li	s0,94208
				ld	a5,0(sp)
				add	s0,a5,s0
				sb	s1,-1810(s0)
				li	a2,5
				lui	a1,%hi(.LC272)
				addi	a1,a1,%lo(.LC272)
				add	a0,s0,-1809
				call	memcpy
		.LVL1180:
				sb	zero,-1804(s0)
				sb	zero,-1803(s0)
				sb	zero,-1802(s0)
				sb	s1,-1554(s0)
				li	a2,5
				lui	a1,%hi(.LC273)
				addi	a1,a1,%lo(.LC273)
				add	a0,s0,-1553
				call	memcpy
		.LVL1181:
				sb	zero,-1548(s0)
				sb	zero,-1547(s0)
				sb	zero,-1546(s0)
				sb	s1,-1298(s0)
				li	a2,5
				lui	a1,%hi(.LC274)
				addi	a1,a1,%lo(.LC274)
				add	a0,s0,-1297
				call	memcpy
		.LVL1182:
				sb	zero,-1292(s0)
				sb	zero,-1291(s0)
				sb	zero,-1290(s0)
				sb	s2,-1042(s0)
				li	a2,6
				lui	a1,%hi(.LC275)
				addi	a1,a1,%lo(.LC275)
				add	a0,s0,-1041
				call	memcpy
		.LVL1183:
				sb	zero,-1035(s0)
				sb	zero,-1034(s0)
				sb	s2,-786(s0)
				li	a2,6
				lui	a1,%hi(.LC276)
				addi	a1,a1,%lo(.LC276)
				add	a0,s0,-785
				call	memcpy
		.LVL1184:
				sb	zero,-779(s0)
				sb	zero,-778(s0)
				sb	s2,-530(s0)
				li	a5,-106496
				li	s0,94208
				add	a4,s7,800
				add	a3,sp,64
				add	a4,a4,a3
				add	a5,a4,a5
				sd	a5,48(sp)
				add	s1,a5,s0
				li	s2,6
				li	a2,6
				lui	a1,%hi(.LC277)
				addi	a1,a1,%lo(.LC277)
				add	a0,s1,-529
				call	memcpy
		.LVL1185:
				sb	zero,-523(s1)
				sb	zero,-522(s1)
				li	a5,-106496
				add	a4,s7,800
				add	a3,sp,64
				add	a4,a4,a3
				add	a5,a4,a5
				sd	a5,8(sp)
				add	s0,a5,s0
				li	s1,5
				sb	s1,-274(s0)
				li	a2,6
				lui	a1,%hi(.LC278)
				addi	a1,a1,%lo(.LC278)
				add	a0,s0,-273
				call	memcpy
		.LVL1186:
				sb	zero,-267(s0)
				sb	zero,-266(s0)
				sb	s1,-18(s0)
				li	a2,6
				lui	a1,%hi(.LC279)
				addi	a1,a1,%lo(.LC279)
				add	a0,s0,-17
				call	memcpy
		.LVL1187:
				sb	zero,-11(s0)
				sb	zero,-10(s0)
				sb	s2,238(s0)
				li	a2,7
				lui	a1,%hi(.LC280)
				addi	a1,a1,%lo(.LC280)
				add	a0,s0,239
				call	memcpy
		.LVL1188:
				sb	zero,246(s0)
				sb	s2,494(s0)
				li	a2,7
				lui	a1,%hi(.LC281)
				addi	a1,a1,%lo(.LC281)
				add	a0,s0,495
				call	memcpy
		.LVL1189:
				sb	zero,502(s0)
				sb	s2,750(s0)
				li	a2,7
				lui	a1,%hi(.LC282)
				addi	a1,a1,%lo(.LC282)
				add	a0,s0,751
				call	memcpy
		.LVL1190:
				sb	zero,758(s0)
				li	s6,4
				sb	s6,1006(s0)
				li	s1,5
				li	a2,5
				lui	a1,%hi(.LC283)
				addi	a1,a1,%lo(.LC283)
				add	a0,s0,1007
				call	memcpy
		.LVL1191:
				sb	zero,1012(s0)
				sb	zero,1013(s0)
				sb	zero,1014(s0)
				li	s5,3
				sb	s5,1262(s0)
				li	s3,4
				li	a2,4
				lui	a1,%hi(.LC284)
				addi	a1,a1,%lo(.LC284)
				add	a0,s0,1263
				call	memcpy
		.LVL1192:
				sb	zero,1267(s0)
				sb	zero,1268(s0)
				sb	zero,1269(s0)
				sb	zero,1270(s0)
				sb	s3,1518(s0)
				li	a2,5
				lui	a1,%hi(.LC285)
				addi	a1,a1,%lo(.LC285)
				add	a0,s0,1519
				call	memcpy
		.LVL1193:
				sb	zero,1524(s0)
				sb	zero,1525(s0)
				sb	zero,1526(s0)
				sb	s1,1774(s0)
				li	a2,6
				lui	a1,%hi(.LC286)
				addi	a1,a1,%lo(.LC286)
				add	a0,s0,1775
				call	memcpy
		.LVL1194:
				sb	zero,1781(s0)
				sb	zero,1782(s0)
				sb	s6,2030(s0)
				li	a2,5
				lui	a1,%hi(.LC287)
				addi	a1,a1,%lo(.LC287)
				add	a0,s0,2031
				call	memcpy
		.LVL1195:
				sb	zero,2036(s0)
				sb	zero,2037(s0)
				sb	zero,2038(s0)
				li	s0,98304
				ld	a5,8(sp)
				add	s0,a5,s0
				sb	s6,-1810(s0)
				li	a2,5
				lui	a1,%hi(.LC288)
				addi	a1,a1,%lo(.LC288)
				add	a0,s0,-1809
				call	memcpy
		.LVL1196:
				sb	zero,-1804(s0)
				sb	zero,-1803(s0)
				sb	zero,-1802(s0)
				sb	s6,-1554(s0)
				li	a2,5
				lui	a1,%hi(.LC289)
				addi	a1,a1,%lo(.LC289)
				add	a0,s0,-1553
				call	memcpy
		.LVL1197:
				sb	zero,-1548(s0)
				sb	zero,-1547(s0)
				sb	zero,-1546(s0)
				sb	s6,-1298(s0)
				li	a2,5
				lui	a1,%hi(.LC290)
				addi	a1,a1,%lo(.LC290)
				add	a0,s0,-1297
				call	memcpy
		.LVL1198:
				sb	zero,-1292(s0)
				sb	zero,-1291(s0)
				sb	zero,-1290(s0)
				sb	s1,-1042(s0)
				li	a2,6
				lui	a1,%hi(.LC291)
				addi	a1,a1,%lo(.LC291)
				add	a0,s0,-1041
				call	memcpy
		.LVL1199:
				sb	zero,-1035(s0)
				sb	zero,-1034(s0)
				sb	s1,-786(s0)
				li	a2,6
				lui	a1,%hi(.LC292)
				addi	a1,a1,%lo(.LC292)
				add	a0,s0,-785
				call	memcpy
		.LVL1200:
				sb	zero,-779(s0)
				sb	zero,-778(s0)
				sb	s1,-530(s0)
				li	a2,6
				lui	a1,%hi(.LC293)
				addi	a1,a1,%lo(.LC293)
				add	a0,s0,-529
				call	memcpy
		.LVL1201:
				sb	zero,-523(s0)
				sb	zero,-522(s0)
				sb	s5,-274(s0)
				li	a2,4
				lui	a1,%hi(.LC294)
				addi	a1,a1,%lo(.LC294)
				add	a0,s0,-273
				call	memcpy
		.LVL1202:
				sb	zero,-269(s0)
				sb	zero,-268(s0)
				sb	zero,-267(s0)
				sb	zero,-266(s0)
				sb	s3,-18(s0)
				li	a2,5
				lui	a1,%hi(.LC295)
				addi	a1,a1,%lo(.LC295)
				add	a0,s0,-17
				call	memcpy
		.LVL1203:
				sb	zero,-12(s0)
				sb	zero,-11(s0)
				sb	zero,-10(s0)
				sb	s5,238(s0)
				li	a2,4
				lui	a1,%hi(.LC296)
				addi	a1,a1,%lo(.LC296)
				add	a0,s0,239
				call	memcpy
		.LVL1204:
				sb	zero,243(s0)
				sb	zero,244(s0)
				sb	zero,245(s0)
				sb	zero,246(s0)
				sb	s4,494(s0)
				li	a2,8
				lui	a1,%hi(.LC297)
				addi	a1,a1,%lo(.LC297)
				add	a0,s0,495
				call	memcpy
		.LVL1205:
				sb	s2,750(s0)
				li	a2,7
				lui	a1,%hi(.LC298)
				addi	a1,a1,%lo(.LC298)
				add	a0,s0,751
				call	memcpy
		.LVL1206:
				sb	zero,758(s0)
				sb	s2,1006(s0)
				li	a2,7
				lui	a1,%hi(.LC299)
				addi	a1,a1,%lo(.LC299)
				add	a0,s0,1007
				call	memcpy
		.LVL1207:
				sb	zero,1014(s0)
				sb	s5,1262(s0)
				li	a2,4
				lui	a1,%hi(.LC300)
				addi	a1,a1,%lo(.LC300)
				add	a0,s0,1263
				call	memcpy
		.LVL1208:
				sb	zero,1267(s0)
				sb	zero,1268(s0)
				sb	zero,1269(s0)
				sb	zero,1270(s0)
				sb	s2,1518(s0)
				li	a2,7
				lui	a1,%hi(.LC301)
				addi	a1,a1,%lo(.LC301)
				add	a0,s0,1519
				call	memcpy
		.LVL1209:
				sb	zero,1526(s0)
				sb	s1,1774(s0)
				li	a2,6
				lui	a1,%hi(.LC302)
				addi	a1,a1,%lo(.LC302)
				add	a0,s0,1775
				call	memcpy
		.LVL1210:
				sb	zero,1781(s0)
				sb	zero,1782(s0)
				sb	s1,2030(s0)
				li	a2,6
				lui	a1,%hi(.LC303)
				addi	a1,a1,%lo(.LC303)
				add	a0,s0,2031
				call	memcpy
		.LVL1211:
				sb	zero,2037(s0)
				sb	zero,2038(s0)
				li	s0,102400
				ld	a5,8(sp)
				add	s0,a5,s0
				sb	s1,-1810(s0)
				li	a2,6
				lui	a1,%hi(.LC304)
				addi	a1,a1,%lo(.LC304)
				add	a0,s0,-1809
				call	memcpy
		.LVL1212:
				sb	zero,-1803(s0)
				sb	zero,-1802(s0)
				sb	s5,-1554(s0)
				li	a2,4
				lui	a1,%hi(.LC305)
				addi	a1,a1,%lo(.LC305)
				add	a0,s0,-1553
				call	memcpy
		.LVL1213:
				sb	zero,-1549(s0)
				sb	zero,-1548(s0)
				sb	zero,-1547(s0)
				sb	zero,-1546(s0)
				sb	s3,-1298(s0)
				li	a2,5
				lui	a1,%hi(.LC306)
				addi	a1,a1,%lo(.LC306)
				add	a0,s0,-1297
				call	memcpy
		.LVL1214:
				sb	zero,-1292(s0)
				sb	zero,-1291(s0)
				sb	zero,-1290(s0)
				sb	s3,-1042(s0)
				li	a2,5
				lui	a1,%hi(.LC307)
				addi	a1,a1,%lo(.LC307)
				add	a0,s0,-1041
				call	memcpy
		.LVL1215:
				sb	zero,-1036(s0)
				sb	zero,-1035(s0)
				sb	zero,-1034(s0)
				sb	s3,-786(s0)
				li	a2,5
				lui	a1,%hi(.LC308)
				addi	a1,a1,%lo(.LC308)
				add	a0,s0,-785
				call	memcpy
		.LVL1216:
				sb	zero,-780(s0)
				sb	zero,-779(s0)
				sb	zero,-778(s0)
				sb	s4,-530(s0)
				li	a2,8
				lui	a1,%hi(.LC309)
				addi	a1,a1,%lo(.LC309)
				add	a0,s0,-529
				call	memcpy
		.LVL1217:
				sb	s2,-274(s0)
				li	a2,7
				lui	a1,%hi(.LC310)
				addi	a1,a1,%lo(.LC310)
				add	a0,s0,-273
				call	memcpy
		.LVL1218:
				sb	zero,-266(s0)
				sb	s3,-18(s0)
				li	a2,5
				lui	a1,%hi(.LC311)
				addi	a1,a1,%lo(.LC311)
				add	a0,s0,-17
				call	memcpy
		.LVL1219:
				sb	zero,-12(s0)
				sb	zero,-11(s0)
				sb	zero,-10(s0)
				sb	s2,238(s0)
				li	a2,7
				lui	a1,%hi(.LC312)
				addi	a1,a1,%lo(.LC312)
				add	a0,s0,239
				call	memcpy
		.LVL1220:
				sb	zero,246(s0)
				sb	s1,494(s0)
				li	a2,6
				lui	a1,%hi(.LC313)
				addi	a1,a1,%lo(.LC313)
				add	a0,s0,495
				call	memcpy
		.LVL1221:
				sb	zero,501(s0)
				sb	zero,502(s0)
				sb	s4,750(s0)
				li	a2,8
				lui	a1,%hi(.LC314)
				addi	a1,a1,%lo(.LC314)
				add	a0,s0,751
				call	memcpy
		.LVL1222:
				sb	s3,1006(s0)
				li	a2,5
				lui	a1,%hi(.LC315)
				addi	a1,a1,%lo(.LC315)
				add	a0,s0,1007
				call	memcpy
		.LVL1223:
				sb	zero,1012(s0)
				sb	zero,1013(s0)
				sb	zero,1014(s0)
				sb	s4,1262(s0)
				li	a2,8
				lui	a1,%hi(.LC316)
				addi	a1,a1,%lo(.LC316)
				add	a0,s0,1263
				call	memcpy
		.LVL1224:
				add	a5,s7,-1010
				add	a4,sp,64
				add	a5,a5,a4
				sb	s2,0(a5)
				li	a2,7
				lui	a1,%hi(.LC317)
				addi	a1,a1,%lo(.LC317)
				add	a5,s7,-1009
				add	a0,a4,a5
				call	memcpy
		.LVL1225:
				add	a5,s7,-1002
				add	a4,sp,64
				add	a5,a5,a4
				sb	zero,0(a5)
				add	a5,s7,-754
				add	a5,a5,a4
				sb	s4,0(a5)
				li	a2,8
				lui	a1,%hi(.LC318)
				addi	a1,a1,%lo(.LC318)
				add	a5,s7,-753
				add	a0,a4,a5
				call	memcpy
		.LVL1226:
				li	a5,8
				add	a4,s7,-498
				add	a2,sp,64
				add	a4,a4,a2
				sb	a5,0(a4)
				li	a2,8
				lui	a1,%hi(.LC319)
				addi	a1,a1,%lo(.LC319)
				add	a5,s7,-497
				add	a4,sp,64
				add	a0,a4,a5
				call	memcpy
		.LVL1227:
				add	a5,s7,-242
				add	a4,sp,64
				add	a5,a5,a4
				sb	s2,0(a5)
				li	a2,7
				lui	a1,%hi(.LC320)
				addi	a1,a1,%lo(.LC320)
				add	a5,s7,-241
				add	a0,a4,a5
				call	memcpy
		.LVL1228:
				add	a5,s7,-234
				add	a4,sp,64
				add	a5,a5,a4
				sb	zero,0(a5)
				li	a5,40960
				ld	a4,8(sp)
				add	a5,a4,a5
				li	a4,90
				sb	a4,-852(a5)
				sb	a4,-851(a5)
				sb	a4,-850(a5)
				sb	a4,-849(a5)
				sb	a4,-848(a5)
				li	a4,48
				sb	a4,-847(a5)
				sb	a4,-846(a5)
				li	a4,19
				sb	a4,-845(a5)
				sb	a4,-844(a5)
				sb	a4,-843(a5)
				sb	a4,-842(a5)
				li	a4,25
				sb	a4,-841(a5)
				sb	a4,-840(a5)
				sb	a4,-839(a5)
				sb	a4,-838(a5)
				sb	a4,-837(a5)
				sb	a4,-836(a5)
				sb	a4,-835(a5)
				li	a4,23
				sb	a4,-834(a5)
				li	a4,104
				sb	a4,-833(a5)
				sb	a4,-832(a5)
				li	a5,40960
				ld	a4,8(sp)
				add	a5,a4,a5
				li	a4,105
				sb	a4,-831(a5)
				li	a5,-106496
				add	a4,s7,800
				add	a3,sp,64
				add	a4,a4,a3
				add	a5,a4,a5
				sd	a5,40(sp)
				li	a5,40960
				ld	a4,40(sp)
				add	a5,a4,a5
				li	a4,30
				sb	a4,-830(a5)
				li	a4,20
				sb	a4,-829(a5)
				li	a4,21
				sb	a4,-828(a5)
				li	a3,93
				sb	a3,-827(a5)
				li	a4,47
				sb	a4,-826(a5)
				li	a4,45
				sb	a4,-825(a5)
				li	a4,46
				sb	a4,-824(a5)
				li	a4,42
				sb	a4,-823(a5)
				li	a4,43
				sb	a4,-822(a5)
				li	a4,44
				sb	a4,-821(a5)
				li	a2,40
				sb	a2,-820(a5)
				li	a4,68
				sb	a4,-819(a5)
				li	a4,55
				sb	a4,-818(a5)
				li	a4,104
				sb	a4,-817(a5)
				li	a4,60
				sb	a4,-816(a5)
				sb	a3,-815(a5)
				li	a4,25
				sb	a4,-814(a5)
				sb	a2,-813(a5)
				sb	a3,-812(a5)
				li	a3,23
				sb	a3,-811(a5)
				sb	a4,-810(a5)
				li	a3,57
				sb	a3,-809(a5)
				sb	a4,-808(a5)
				li	a4,90
				sb	a4,-807(a5)
				li	a4,-80
				sb	a4,-806(a5)
				li	a4,-79
				sb	a4,-805(a5)
				li	a4,-78
				sb	a4,-804(a5)
				li	a4,-77
				sb	a4,-803(a5)
				li	a0,24576
				ld	a5,40(sp)
				add	a0,a5,a0
				lui	s0,%hi(.LANCHOR4)
				addi	s0,s0,%lo(.LANCHOR4)
				li	a2,240
				add	a1,s0,-1008
				add	a0,a0,-1972
				call	memcpy
		.LVL1229:
				li	a0,28672
				ld	a5,40(sp)
				add	a0,a5,a0
				li	a2,1152
				add	a1,s0,-768
				add	a0,a0,-1732
				call	memcpy
		.LVL1230:
  576
  577 %ROUTINE flush buffer
				add	sp,sp,-1328
				sd	ra,1320(sp)
				sd	s0,1312(sp)
				sd	s1,1304(sp)
				sd	s2,1296(sp)
				mv	s1,t2
				lui	a5,%hi(__stack_chk_guard)
				ld	a5,%lo(__stack_chk_guard)(a5)
				sd	a5,1288(sp)
		.LVL84:
		.LBB327:
		.LBB328:
				lui	a5,%hi(_imp_OutStream)
				li	a4,1
				sw	a4,%lo(_imp_OutStream)(a5)
				lui	a5,%hi(_imp_outfile+296)
				ld	a4,%lo(_imp_outfile+296)(a5)
				lui	a5,%hi(_imp_OutFile)
				sd	a4,%lo(_imp_OutFile)(a5)
				lui	a0,%hi(.LANCHOR1+336)
				addi	a0,a0,%lo(.LANCHOR1+336)
				call	check_outstream
		.LVL85:
		.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))
				lui	a5,%hi(BP.6142)
				lw	s2,%lo(BP.6142)(a5)
		.LVL86:
		.LBB330:
  583       %REPEAT
				addw	a5,s2,-1
		.LVL87:
		.LBE330:
				sll	a4,a5,32
				bltz	a4,.L70
		.LVL88:
		.L60:
				lui	a5,%hi(_imp_current_file)
		.LVL96:
				ld	a1,%lo(_imp_current_file)(a5)
				beqz	a1,.L61
				add	a0,sp,776
				call	_imp_c2istr
		.LVL97:
		.L62:
				lui	a5,%hi(_imp_current_line)
				lw	s0,%lo(_imp_current_line)(a5)
				bnez	s0,.L63
				li	s0,583
		.L63:
				lui	a1,%hi(.LC81)
				addi	a1,a1,%lo(.LC81)
				add	a0,sp,1032
				call	_imp_c2istr
		.LVL98:
				li	a2,256
				add	a1,sp,776
				add	a0,sp,256
				call	memcpy
		.LVL99:
				li	a2,256
				add	a1,sp,1032
				mv	a0,sp
				call	memcpy
		.LVL100:
				li	a5,0
				li	a4,1
				li	a3,5
				mv	a2,sp
				mv	a1,s0
				add	a0,sp,256
				call	_signal_event
		.LVL101:
				j	.L60
		.L61:
		.LBB333:
				li	a2,256
				lui	a1,%hi(.LANCHOR1)
				addi	a1,a1,%lo(.LANCHOR1)
				add	a0,sp,1032
				call	memcpy
		.LVL102:
				li	a2,256
				add	a1,sp,1032
				add	a0,sp,520
				call	memcpy
		.LVL103:
		.LBE333:
				li	a2,256
				add	a1,sp,520
				add	a0,sp,776
				call	memcpy
		.LVL104:
				j	.L62
		.LVL105:
		.L71:
		.LBE336:
  584       select output(listing)
  585    %FINISH
  586    bp = 0
				beqz	s2,.L64
				li	a5,106496
				add	s0,a5,-1786
				add	s0,s1,s0
				addw	s2,s2,-1
		.LVL89:
				sll	s2,s2,32
		.LVL90:
				srl	s2,s2,32
				add	s1,s1,s2
				add	a5,a5,-1785
				add	s1,s1,a5
		.LVL91:
		.L65:
		.LBB331:
		.LBB332:
				lbu	a0,0(s0)
				call	_imp_printsymbol
		.LVL92:
				add	s0,s0,1
		.LBE332:
		.LBE331:
				bne	s0,s1,.L65
		.L64:
		.LVL93:
		.LBE329:
		.LBB334:
		.LBB335:
				lui	a5,%hi(_imp_OutStream)
				li	a4,2
				sw	a4,%lo(_imp_OutStream)(a5)
				lui	a5,%hi(_imp_outfile+584)
				ld	a4,%lo(_imp_outfile+584)(a5)
				lui	a5,%hi(_imp_OutFile)
				sd	a4,%lo(_imp_OutFile)(a5)
				lui	a0,%hi(.LANCHOR1+336)
				addi	a0,a0,%lo(.LANCHOR1+336)
				call	check_outstream
		.LVL94:
		.LDL4:
		.LBE335:
		.LBE334:
				lui	a5,%hi(BP.6142)
				sw	zero,%lo(BP.6142)(a5)
  587 %END
  588 %ROUTINE print ident(%INTEGER p, mode)
		.LVL47:
				add	sp,sp,-1856
				sd	ra,1848(sp)
				sd	s0,1840(sp)
				sd	s1,1832(sp)
				sd	s2,1824(sp)
				sd	s3,1816(sp)
				sd	s4,1808(sp)
				mv	s2,t2
				lui	a5,%hi(__stack_chk_guard)
				ld	a5,%lo(__stack_chk_guard)(a5)
				sd	a5,1800(sp)
				ld	a4,1288(sp)
				lui	a5,%hi(__stack_chk_guard)
				ld	a5,%lo(__stack_chk_guard)(a5)
				bne	a4,a5,.L71
				ld	ra,1320(sp)
				ld	s0,1312(sp)
				ld	s1,1304(sp)
				ld	s2,1296(sp)
				add	sp,sp,1328
				jr	ra
		.LVL95:
		.L70:
		.LBB336:
				call	__stack_chk_fail
		.LVL106:
		.LFE186:
				.align	1
		DEF.7240:
		.LFB215:
  589    %INTEGER j, ad
  590    p = tag(p)_text
				add	a0,a0,13
		.LVL48:
				sll	a0,a0,4
				add	a0,t2,a0
				lh	a5,16(a0)
		.LVL49:
  591    %IF p = 0 %START
				sext.w	a4,a5
				bnez	a4,.L42
  592       bp = bp+1 %AND buff(bp) = '?' %if Mode # 0
				beqz	a1,.L41
  593       %RETURN
				lui	a4,%hi(BP.6142)
				lw	a5,%lo(BP.6142)(a4)
		.LVL50:
				addw	a3,a5,1
				sw	a3,%lo(BP.6142)(a4)
  594    %FINISH
				add	s2,t2,a5
				li	a5,106496
				add	s2,a5,s2
				li	a5,63
				sb	a5,-1786(s2)
		.LVL51:
				j	.L41
		.LVL52:
		.L42:
  595    ad = addr(dict(p+1))
				li	s1,12288
				add	s1,s1,1130
				add	s1,a5,s1
				sll	s1,s1,1
				add	s1,t2,s1
				sext.w	s0,s1
		.LVL53:
		.LBB321:
  596    %IF mode = 0 %THEN printstring(string(ad)) %ELSE %START
				beqz	a1,.L56
		.L44:
  597       %FOR j = ad+1, 1, ad+byteinteger(ad) %CYCLE
  598          bp = bp+1
				lbu	a5,0(s0)
		.LVL54:
				addw	a5,a5,s0
				sext.w	s3,a5
		.LVL55:
				addw	a4,s0,1
		.LVL56:
		.LBB322:
  599          buff(bp) = byteinteger(j)
				subw	a5,a5,a4
		.LVL57:
		.LBE322:
				sll	a4,a5,32
		.LVL58:
				bltz	a4,.L57
		.LVL59:
		.L45:
				li	a3,106496
		.LVL60:
		.L49:
				addw	a5,s1,s0
		.LVL61:
				lbu	a4,0(s0)
				add	a5,s2,a5
				add	a5,a3,a5
				sb	a4,-1786(a5)
				lui	a5,%hi(_imp_current_file)
				ld	a1,%lo(_imp_current_file)(a5)
		.LVL70:
				beqz	a1,.L46
				add	a0,sp,1032
		.LVL71:
				call	_imp_c2istr
		.LVL72:
		.L47:
				lui	a5,%hi(_imp_current_line)
				lw	s4,%lo(_imp_current_line)(a5)
				bnez	s4,.L48
				li	s4,599
		.L48:
				lui	a1,%hi(.LC80)
				addi	a1,a1,%lo(.LC80)
				add	a0,sp,1288
				call	_imp_c2istr
		.LVL73:
				li	a2,256
				add	a1,sp,1032
				add	a0,sp,256
				call	memcpy
		.LVL74:
				li	a2,256
				add	a1,sp,1288
				mv	a0,sp
				call	memcpy
		.LVL75:
				li	a5,0
				li	a4,1
				li	a3,5
				mv	a2,sp
				mv	a1,s4
				add	a0,sp,256
				call	_signal_event
		.LVL76:
				j	.L45
		.LVL77:
		.L46:
		.LBB323:
				li	a2,256
				lui	a1,%hi(.LANCHOR1)
				addi	a1,a1,%lo(.LANCHOR1)
				add	a0,sp,1544
		.LVL78:
				call	memcpy
		.LVL79:
				li	a2,256
				add	a1,sp,1544
				add	a0,sp,776
				call	memcpy
		.LVL80:
		.LBE323:
				li	a2,256
				add	a1,sp,776
				add	a0,sp,1032
				call	memcpy
		.LVL81:
				j	.L47
		.LVL82:
		.L58:
		.LBE326:
  600       %REPEAT
  601    %FINISH
  602 %END
				beq	s0,s3,.L41
				lui	a5,%hi(BP.6142)
				lw	a5,%lo(BP.6142)(a5)
				subw	s1,a5,s1
				sext.w	a2,s1
				bne	s3,s0,.L49
				addw	s0,s0,a2
				lui	a5,%hi(BP.6142)
				sw	s0,%lo(BP.6142)(a5)
		.L43:
		.L50:
		.L51:
		.LVL63:
		.L41:
		.LBE321:
  603 %ROUTINE abandon(%INTEGER n)
		.LVL15:
				add	sp,sp,-1344
				sd	ra,1336(sp)
				sd	s0,1328(sp)
				sd	s1,1320(sp)
				mv	s0,a0
				lui	a5,%hi(__stack_chk_guard)
				ld	a5,%lo(__stack_chk_guard)(a5)
				sd	a5,1304(sp)
		.LVL16:
		.LDL2:
				addw	s0,s0,1
		.LVL62:
				ld	a4,1800(sp)
				lui	a5,%hi(__stack_chk_guard)
				ld	a5,%lo(__stack_chk_guard)(a5)
				bne	a4,a5,.L58
				ld	ra,1848(sp)
				ld	s0,1840(sp)
				ld	s1,1832(sp)
				ld	s2,1824(sp)
				ld	s3,1816(sp)
				ld	s4,1808(sp)
				add	sp,sp,1856
				jr	ra
		.LVL64:
		.L56:
				li	a2,256
				add	a1,sp,520
		.LVL65:
				add	a0,sp,1544
				call	memcpy
		.LVL66:
		.LBB324:
		.LBB325:
				li	a2,256
				add	a1,sp,1544
				add	a0,sp,256
				call	memcpy
		.LVL67:
				add	a0,sp,256
				call	_imp_printstring
		.LVL68:
				j	.L41
		.LVL69:
		.L57:
		.LBE325:
		.LBE324:
		.LBB326:
				call	__stack_chk_fail
		.LVL83:
		.LFE187:
				.align	1
		FLUSHBUFFER.6152:
		.LFB186:
  604    %SWITCH reason(0:9)
  605    %INTEGER stream
  606    stream = listing
  607    %CYCLE
  608       newline %IF sym # nl
				lui	a5,%hi(SYM.6073)
				lw	a4,%lo(SYM.6073)(a5)
				li	a5,10
				bne	a4,a5,.L32
		.LVL17:
		.L19:
		.LBB308:
		.LBB309:
				li	a0,42
				call	_imp_printsymbol
		.LVL18:
		.LBE309:
		.LBE308:
  609       printsymbol('*');  write(lines,4);  space
  610       ->reason(n)
				li	a1,4
				lui	a5,%hi(LINES.6065)
				lw	a0,%lo(LINES.6065)(a5)
				call	_imp_writeint
		.LVL19:
		.LBB310:
		.LBB311:
				call	_imp_space
		.LVL20:
		.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)
		.LVL0:
  641       buff(bp+1) <- code
				lui	a2,%hi(BP.6142)
				lw	a5,%lo(BP.6142)(a2)
				add	a3,t2,a5
				li	a4,106496
				add	a3,a4,a3
				sb	a0,-1786(a3)
				sext.w	a5,s0
				li	a4,9
				bleu	a5,a4,.L20
				lui	a5,%hi(_imp_current_file)
				ld	a1,%lo(_imp_current_file)(a5)
				beqz	a1,.L21
				add	a0,sp,792
				call	_imp_c2istr
		.LVL21:
		.L22:
				lui	a5,%hi(_imp_current_line)
				lw	s1,%lo(_imp_current_line)(a5)
				bnez	s1,.L23
				li	s1,641
		.L23:
				li	a2,256
				add	a1,sp,792
				add	a0,sp,16
				call	memcpy
		.LVL22:
				li	a5,610
				sd	a5,0(sp)
				lui	a7,%hi(.LC77)
				addi	a7,a7,%lo(.LC77)
				mv	a6,s0
				lui	a5,%hi(.LC78)
				addi	a5,a5,%lo(.LC78)
				mv	a4,s0
				li	a3,3
				li	a2,6
				mv	a1,s1
				add	a0,sp,16
				call	_signal_eventf
		.LVL23:
		.L20:
		.L24:
				li	a2,256
				lui	a1,%hi(.LANCHOR1)
				addi	a1,a1,%lo(.LANCHOR1)
				add	a0,sp,1048
				call	memcpy
		.LVL31:
				li	a2,256
				add	a1,sp,1048
				add	a0,sp,280
				call	memcpy
		.LVL32:
		.LBE314:
				li	a2,256
				add	a1,sp,280
				add	a0,sp,792
				call	memcpy
		.LVL33:
				j	.L22
		.L25:
		.LBB315:
  642       buff(bp+2) <- param>>8
				addw	a3,a5,1
				add	a3,t2,a3
				add	a3,a4,a3
				srlw	a0,a1,8
		.LVL1:
				sb	a0,-1786(a3)
  643       buff(bp+3) <- param
				addw	a3,a5,2
				add	t2,t2,a3
				add	a4,a4,t2
				sb	a1,-1786(a4)
  644       bp = bp+3
				addw	a5,a5,3
				sw	a5,%lo(BP.6142)(a2)
				lui	a5,%hi(_imp_current_file)
				ld	a1,%lo(_imp_current_file)(a5)
				beqz	a1,.L25
				add	a0,sp,1048
				call	_imp_c2istr
		.LVL24:
		.L26:
				lui	a5,%hi(_imp_current_line)
				lw	s1,%lo(_imp_current_line)(a5)
				beqz	s1,.L33
		.L27:
				li	a2,256
				add	a1,sp,1048
				add	a0,sp,16
				call	memcpy
		.LVL25:
				li	a5,610
				sd	a5,0(sp)
				lui	a7,%hi(.LC77)
				addi	a7,a7,%lo(.LC77)
				mv	a6,s0
				lui	a5,%hi(.LC79)
				addi	a5,a5,%lo(.LC79)
				mv	a4,s0
				li	a3,2
				li	a2,8
				mv	a1,s1
				add	a0,sp,16
				call	_signal_eventf
		.LVL26:
				li	a2,256
				lui	a1,%hi(.LANCHOR1)
				addi	a1,a1,%lo(.LANCHOR1)
				add	a0,sp,1048
				call	memcpy
		.LVL34:
				li	a2,256
				add	a1,sp,1048
				add	a0,sp,536
				call	memcpy
		.LVL35:
		.LBE315:
				li	a2,256
				add	a1,sp,536
				add	a0,sp,1048
				call	memcpy
		.LVL36:
				j	.L26
		.L33:
				li	s1,644
				j	.L27
		.L34:
  645 %END
				ld	a4,1304(sp)
				lui	a5,%hi(__stack_chk_guard)
				ld	a5,%lo(__stack_chk_guard)(a5)
				bne	a4,a5,.L34
				ld	ra,1336(sp)
				ld	s0,1328(sp)
		.LVL27:
				ld	s1,1320(sp)
				add	sp,sp,1344
				jr	ra
		.LVL28:
		.L32:
		.LBB312:
		.LBB313:
				call	_imp_newline
		.LVL29:
				j	.L19
		.LVL30:
		.L21:
		.LBE313:
		.LBE312:
		.LBB314:
				call	__stack_chk_fail
		.LVL37:
		.LFE188:
				.align	1
		SHOW.6550:
		.LFB200:
  646 %ROUTINE set const(%INTEGER m)
				ret
		.LFE189:
				.align	1
		SETCONST.6261:
		.LFB190:
		.LVL2:
  647       buff(bp+1) <- 'N'
				lui	a2,%hi(BP.6142)
				lw	a5,%lo(BP.6142)(a2)
				add	a3,t2,a5
				li	a4,106496
				add	a3,a4,a3
				li	a1,78
				sb	a1,-1786(a3)
  648       buff(bp+5) <- m;  m = m>>8
				addw	a3,a5,4
				add	a3,t2,a3
				add	a3,a4,a3
				sb	a0,-1786(a3)
  649       buff(bp+4) <- m;  m = m>>8
				sext.w	a0,a0
		.LVL3:
				addw	a3,a5,3
				add	a3,t2,a3
				add	a3,a4,a3
				srlw	a1,a0,8
		.LVL4:
				sb	a1,-1786(a3)
		.LVL5:
  650       buff(bp+3) <- m;  m = m>>8
				addw	a3,a5,2
				add	a3,t2,a3
				add	a3,a4,a3
				srlw	a1,a0,16
		.LVL6:
				sb	a1,-1786(a3)
		.LVL7:
  651       buff(bp+2) <- m
				addw	a3,a5,1
				add	t2,t2,a3
				add	a4,a4,t2
				srlw	a0,a0,24
		.LVL8:
				sb	a0,-1786(a4)
  652       bp = bp+5
				addw	a5,a5,5
				sw	a5,%lo(BP.6142)(a2)
  653 %END
  654
				ret
		.LFE190:
				.align	1
		SETCELL.6474:
		.LFB195:
  655
  656
  657 %ROUTINE compile block(%INTEGER level, block tag, dmin, tmax, id)
				add	sp,sp,-2016
				sd	ra,2008(sp)
				sd	s0,2000(sp)
				sd	s1,1992(sp)
				sd	s2,1984(sp)
				sd	s3,1976(sp)
				sd	s4,1968(sp)
				sd	s5,1960(sp)
				sd	s6,1952(sp)
				sd	s7,1944(sp)
				sd	s8,1936(sp)
				sd	s9,1928(sp)
				sd	s10,1920(sp)
				mv	s5,t2
				lui	a5,%hi(__stack_chk_guard)
				ld	a5,%lo(__stack_chk_guard)(a5)
				sd	a5,1912(sp)
				add	a5,sp,2016
				sd	a5,368(sp)
				sw	a0,348(sp)
				sw	a1,316(sp)
				sw	a3,352(sp)
				sw	a4,344(sp)
				sd	t2,296(sp)
  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
				li	a5,16384
				sw	a5,320(sp)
  666    %INTEGER tbase;   tbase      = tmax;        !tag base
				lui	a5,%hi(DMAX.6103)
				lw	a0,%lo(DMAX.6103)(a5)
		.LVL937:
  667    %INTEGER tstart;  tstart     = tmax
				sw	a3,356(sp)
  668    %INTEGER label;   label      = 4;           !first internal label
				sw	a3,360(sp)
  669    %INTEGER access;  access     = 1;           !non-zero if accessible
				li	a5,4
				sw	a5,312(sp)
  670    %INTEGER inhibit; inhibit    = 0;           !non-zero inhibits declaratons
				li	a5,1
				sw	a5,324(sp)
  671
				sw	zero,308(sp)
  672    %SHORTINTEGERNAME bflags; bflags      == tag(block tag)_flags
  673    %INTEGER block type;      block type   = bflags>>4&7
				sll	a5,a1,4
				add	a5,a5,220
				add	a5,t2,a5
				sd	a5,288(sp)
				sll	a1,a1,4
				add	s1,t2,a1
  674    %INTEGER block form;      block form   = bflags&15
				lh	a5,220(s1)
				srlw	a4,a5,4
				and	a4,a4,7
				sw	a4,332(sp)
  675    %INTEGER block fm;        block fm     = tag(block tag)_format
				and	a5,a5,15
				sw	a5,336(sp)
  676    %INTEGER block otype;     block otype  = otype
				lw	a5,216(s1)
				sw	a5,328(sp)
  677    %INTEGERNAME block app;   block app   == tag(block tag)_app
				lui	a5,%hi(OTYPE.6085)
				lw	s0,%lo(OTYPE.6085)(a5)
		.LVL938:
  678
  679    %INTEGER l, new app
  680
  681 %ROUTINE fault(%INTEGER n)
		.LVL360:
				add	sp,sp,-2032
				sd	ra,2024(sp)
				sd	s0,2016(sp)
				sd	s1,2008(sp)
				sd	s2,2000(sp)
				sd	s3,1992(sp)
				sd	s4,1984(sp)
				sd	s5,1976(sp)
				sd	s6,1968(sp)
				sd	s7,1960(sp)
				sd	s8,1952(sp)
				sd	s9,1944(sp)
				sd	s10,1936(sp)
				sd	s11,1928(sp)
				add	sp,sp,-464
				mv	s7,a0
				sd	t2,56(sp)
				lui	a5,%hi(__stack_chk_guard)
				ld	a5,%lo(__stack_chk_guard)(a5)
				li	a4,4096
				add	a4,a4,-1768
				add	a3,sp,48
				add	a4,a4,a3
				sd	a5,0(a4)
  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
				lui	a5,%hi(POS.6123)
				lw	a5,%lo(POS.6123)(a5)
				bnez	a5,.L396
		.L366:
		.LDL21:
		.LBE466:
		.LBE465:
		.LBB474:
		.LBB475:
				call	_imp_newline
		.LVL375:
		.LBE475:
		.LBE474:
  692        space
  693        p = 1
				li	s0,1
  694        %CYCLE
  695           printsymbol(marker) %IF p = pos1
				lui	s5,%hi(POS1.6121)
				lw	a5,%lo(POS1.6121)(s5)
				beq	a5,s0,.L401
		.L369:
  696           %EXIT %IF p = pos
				lui	s4,%hi(POS.6123)
				lw	a5,%lo(POS.6123)(s4)
				beq	s0,a5,.L376
		.L371:
  697           s = char(p);  p = p+1
				lbu	a0,0(s1)
		.LVL404:
  698           %EXIT %IF s = nl %OR (s='%' %AND p = pos)
				li	s3,10
				addw	s0,s0,1
		.LVL405:
				beq	a0,s3,.L376
  699           %IF s < ' ' %START;         !beware of tabs
				li	s6,37
				li	s8,31
				beq	a0,s6,.L402
		.L372:
				bgt	a0,s8,.L375
  700              %IF s = ff %THEN s = nl %ELSE s = ' '
				li	s9,12
				j	.L368
		.LVL398:
		.L401:
		.LBB469:
		.LBB470:
				li	a0,94
				call	_imp_printsymbol
		.LVL399:
				j	.L369
		.LVL400:
		.L402:
		.LBE470:
		.LBE469:
				beq	a5,s0,.L376
		.L373:
		.L374:
		.L375:
		.LVL401:
		.LBB471:
		.LBB472:
				call	_imp_printsymbol
		.LVL402:
				add	s1,s1,1
		.L368:
		.LVL403:
		.LBE472:
		.LBE471:
				beq	a0,s9,.L388
  701           %FINISH
				mv	a0,s3
				j	.L375
		.L370:
		.LVL406:
		.L376:
  702           printsymbol(s)
  703        %REPEAT
  704        pos = 0 %IF list <= 0
				li	a0,32
				j	.L375
		.L388:
				lui	a5,%hi(LIST.6135)
				lw	a5,%lo(LIST.6135)(a5)
				bgtz	a5,.L366
  705     %END
				lui	a5,%hi(POS.6123)
				sw	zero,%lo(POS.6123)(a5)
				j	.L366
		.L397:
		.L378:
		.LBE473:
		.LBE485:
  706
  707     pos1 = pos2 %IF pos2 > pos1
				lui	a5,%hi(POS2.6122)
				lw	a5,%lo(POS2.6122)(a5)
				lui	a4,%hi(POS1.6121)
				lw	a4,%lo(POS1.6121)(a4)
				bge	a4,a5,.L356
  708     newline %IF sym # nl
				lui	a4,%hi(POS1.6121)
				sw	a5,%lo(POS1.6121)(a4)
		.L356:
				lui	a5,%hi(SYM.6073)
				lw	a4,%lo(SYM.6073)(a5)
				li	a5,10
				bne	a4,a5,.L393
		.LVL361:
		.L357:
  709     st = report
  710     st = listing %IF n = -3;              !don<dq>t report unused on the console
  711     %cycle
				add	s2,s7,3
				seqz	s2,s2
				sll	s2,s2,1
		.LBB446:
		.LBB447:
				lui	s11,%hi(_imp_outfile)
				addi	s11,s11,%lo(_imp_outfile)
				lui	s10,%hi(.LANCHOR1)
				addi	s10,s10,%lo(.LANCHOR1)
		.LBE447:
		.LBE446:
		.LBB449:
		.LBB450:
				li	a5,-4096
				li	a3,4096
				add	a4,a3,-1760
				add	a2,sp,48
				add	a4,a4,a2
				add	a4,a4,a5
				sd	a4,48(sp)
				add	a4,a4,1776
				sd	a4,24(sp)
				add	a5,a5,1776
				add	a4,a3,-1760
				add	a4,a4,a2
				add	a5,a4,a5
				sd	a5,32(sp)
		.LBE450:
		.LBE449:
		.LBB452:
  712        SELECT OUTPUT(st)
  713        %if n < 0 %then printsymbol('?') %and pos1 = 0 %else printsymbol('*')
				bltz	s7,.L398
		.L359:
		.LVL378:
		.LBB477:
		.LBB478:
				li	a0,42
				call	_imp_printsymbol
		.LVL379:
		.L360:
		.LBE478:
		.LBE477:
  714        %if st # report %start
				beqz	s2,.L361
  715           %if list <= 0 %and pos1 # 0 %start
				lui	a5,%hi(POS1.6121)
				sw	zero,%lo(POS1.6121)(a5)
				lui	a5,%hi(LIST.6135)
				lw	a5,%lo(LIST.6135)(a5)
				bgtz	a5,.L364
  716              spaces(pos1+margin);  PRINTSTRING("      ! ")
				j	.L360
		.L361:
				lui	a5,%hi(POS1.6121)
				lw	a5,%lo(POS1.6121)(a5)
				beqz	a5,.L364
		.LVL380:
				lui	a4,%hi(MARGIN.6067)
				lw	a0,%lo(MARGIN.6067)(a4)
		.LBB479:
		.LBB480:
				addw	a0,a0,a5
				call	_imp_spaces
		.LVL381:
		.LBE480:
		.LBE479:
		.LBB481:
  717           %finish
				li	a2,256
				add	a1,s10,1000
				add	a0,sp,1352
				call	memcpy
		.LVL382:
				ld	a5,48(sp)
				add	s0,a5,2040
				li	a2,256
				add	a1,sp,1352
				mv	a0,s0
				call	memcpy
		.LVL383:
				li	a2,256
				mv	a1,s0
				add	a0,sp,1608
				call	memcpy
		.LVL384:
		.LBE481:
		.LBB482:
		.LBB483:
				li	a2,256
				add	a1,sp,1608
				ld	a0,24(sp)
				call	memcpy
		.LVL385:
				ld	a0,32(sp)
				call	_imp_printstring
		.LVL386:
				j	.L364
		.L394:
				li	a2,256
				add	a1,sp,584
				add	a0,sp,1864
				call	memcpy
		.LVL387:
		.LBE483:
		.LBE482:
		.LBB484:
		.LBB451:
				li	a2,256
				add	a1,sp,1864
				ld	a0,24(sp)
				call	memcpy
		.LVL388:
				ld	a0,32(sp)
				call	_imp_printstring
		.LVL389:
				j	.L363
		.LVL390:
		.L395:
		.LDL22:
		.L382:
		.LBE451:
		.LBE484:
  718        %finish %else %start
  719           PRINTSTRING(include file) %if include # 0
				lui	a5,%hi(INCLUDE.6109)
				lw	a5,%lo(INCLUDE.6109)(a5)
				bnez	a5,.L394
		.L363:
  720           write(lines, 4);  printsymbol(csym);  space
				li	a1,4
				lui	a5,%hi(LINES.6065)
				lw	a0,%lo(LINES.6065)(a5)
				call	_imp_writeint
		.LVL366:
		.LBB457:
		.LBB458:
				lui	a5,%hi(CSYM.6078)
				lbu	a0,%lo(CSYM.6078)(a5)
				call	_imp_printsymbol
		.LVL367:
		.LBE458:
		.LBE457:
		.LBB459:
		.LBB460:
				call	_imp_space
		.LVL368:
		.L362:
		.L364:
		.LBE460:
		.LBE459:
		.LBB461:
  721        %finish
  722        ->fm(n) %if -5 <= n <= 22
  723        PRINTSTRING("fault");  write(n, 2);              ->ps
				li	a2,256
				add	a1,s10,1480
				add	a0,sp,1352
				call	memcpy
		.LVL369:
				li	a2,256
				add	a1,sp,1352
				add	a0,sp,840
				call	memcpy
		.LVL370:
				li	a2,256
				add	a1,sp,840
				li	s0,4096
				add	a0,s0,-2024
				add	a5,sp,48
				add	a0,a0,a5
				call	memcpy
		.LVL371:
		.LBE462:
		.LBB463:
		.LBB464:
				li	a2,256
				add	a1,s0,-2024
				add	a5,sp,48
				add	a1,a1,a5
				ld	a0,24(sp)
				call	memcpy
		.LVL372:
				ld	a0,32(sp)
				call	_imp_printstring
		.LVL373:
		.LBE464:
		.LBE463:
  724
				li	a1,2
				mv	a0,s7
				call	_imp_writeint
		.LVL374:
		.LDL20:
		.LBB465:
		.LBB466:
  725 fm(-5):PRINTSTRING("Dubious statement");  dubious = 0;  ->psd
  726 fm(-4):PRINTSTRING("Non-local")
  727        pos1 = for warn;  for warn = 0;                  ->ps
				addw	a5,s7,5
				sd	a5,40(sp)
				j	.L377
		.LVL362:
		.L393:
		.LBE452:
		.LBB453:
		.LBB454:
				call	_imp_newline
		.LVL363:
				j	.L357
		.LVL364:
		.L398:
		.LBE454:
		.LBE453:
		.LBB455:
		.LBB456:
				li	a0,63
				call	_imp_printsymbol
		.LVL365:
		.LBE456:
		.LBE455:
				li	a5,27
				ld	a4,40(sp)
				bleu	a4,a5,.L395
		.L365:
		.LBE461:
		.LBB462:
  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
				beq	s2,a5,.L397
  761        st = listing
				li	a5,2
				li	s2,2
		.LVL376:
		.L377:
		.LBB476:
		.LBB448:
				lui	a5,%hi(_imp_OutStream)
				sw	s2,%lo(_imp_OutStream)(a5)
				sll	a5,s2,3
				add	a5,a5,s2
				sll	a5,a5,5
				add	a5,s11,a5
				ld	a4,8(a5)
				lui	a5,%hi(_imp_OutFile)
				sd	a4,%lo(_imp_OutFile)(a5)
				lui	a5,%hi(.LANCHOR1+336)
				addi	a5,a5,%lo(.LANCHOR1+336)
				sd	a5,16(sp)
				mv	a0,a5
				call	check_outstream
		.LVL377:
		.LBE448:
		.LBE476:
  762     %repeat
  763     %if n >= 0 %start
				bgez	s7,.L403
		.L379:
		.L380:
  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<dq>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
				ld	a4,56(sp)
				lw	a5,72(a4)
				sw	a5,68(a4)
  781     %IF list <= 0 %AND sym # nl %START
				lui	a5,%hi(LIST.6135)
				lw	a5,%lo(LIST.6135)(a5)
				bgtz	a5,.L355
  782        error margin = column
				lui	a5,%hi(SYM.6073)
				lw	a5,%lo(SYM.6073)(a5)
				li	a4,10
				beq	a5,a4,.L355
				lui	a4,%hi(COLUMN.6070)
				lw	a3,%lo(COLUMN.6070)(a4)
				lui	a4,%hi(ERRORMARGIN.6068)
				sw	a3,%lo(ERRORMARGIN.6068)(a4)
  783        error sym = sym;  sym = nl
				lui	a4,%hi(ERRORSYM.6069)
				sw	a5,%lo(ERRORSYM.6069)(a4)
  784     %FINISH
				lui	a5,%hi(SYM.6073)
				li	a4,10
				sw	a4,%lo(SYM.6073)(a5)
				j	.L355
		.L403:
		.LVL407:
		.LBB486:
		.LBB487:
				li	a0,0
				call	exit
		.LVL408:
		.L399:
		.LBE487:
		.LBE486:
		.LBB488:
  785 %END
  786
  787    dmin = dmin-1;  dict(dmin) = -1;            !end marker for starts & cycles
				addw	a5,a2,-1
				sext.w	a3,a5
				sw	a5,340(sp)
  788    abandon(2) %IF dmax = dmin
				addw	a5,a2,-2
				li	a4,12288
				add	a4,a4,1128
				add	a5,a5,a4
				sll	a5,a5,1
				add	a5,t2,a5
				li	a4,-1
				sh	a4,4(a5)
				beq	a0,a3,.L926
		.LVL939:
		.L889:
  789
				li	a0,2
		.LVL942:
				call	ABANDON.6184
		.LVL943:
				j	.L889
		.L927:
  790    %IF list > 0 %AND level > 0 %START
				lui	a5,%hi(LIST.6135)
				lw	a5,%lo(LIST.6135)(a5)
				blez	a5,.L890
  791       write(lines, 5);  spaces(level*3-1)
				lui	a5,%hi(_imp_current_file)
				ld	a1,%lo(_imp_current_file)(a5)
				beqz	a1,.L399
				add	a0,sp,1352
				call	_imp_c2istr
		.LVL391:
		.L384:
				lui	a5,%hi(_imp_current_line)
				lw	s1,%lo(_imp_current_line)(a5)
				bnez	s1,.L385
				li	s1,791
		.L385:
				li	s0,-4096
				li	a2,256
				add	a1,sp,1352
				add	a0,sp,64
				call	memcpy
		.LVL392:
				add	a0,s0,1776
				li	a5,729
				sd	a5,0(sp)
				lui	a7,%hi(.LC77)
				addi	a7,a7,%lo(.LC77)
				mv	a6,s7
				lui	a5,%hi(.LC82)
				addi	a5,a5,%lo(.LC82)
				mv	a4,s7
				li	a3,2
				li	a2,8
				mv	a1,s1
				li	s0,4096
				add	s0,s0,-1760
				add	s1,sp,48
				add	s0,s0,s1
				add	a0,s0,a0
				call	_signal_eventf
		.LVL393:
		.L381:
		.L355:
				li	a2,256
				lui	a1,%hi(.LANCHOR1)
				addi	a1,a1,%lo(.LANCHOR1)
				add	a0,sp,1352
				call	memcpy
		.LVL409:
				li	a2,256
				add	a1,sp,1352
				add	a0,sp,1096
				call	memcpy
		.LVL410:
		.LBE488:
				li	a2,256
				add	a1,sp,1096
				add	a0,sp,1352
				call	memcpy
		.LVL411:
				j	.L384
		.LVL412:
		.L400:
				lw	a5,348(sp)
				bgtz	a5,.L927
		.L890:
				li	a1,5
				lui	a5,%hi(LINES.6065)
				lw	a0,%lo(LINES.6065)(a5)
				call	_imp_writeint
		.LVL944:
  792       %IF block tag = 0 %START
				li	a5,4096
				add	a5,a5,-1768
				add	a4,sp,48
				add	a5,a5,a4
				ld	a4,0(a5)
				lui	a5,%hi(__stack_chk_guard)
				ld	a5,%lo(__stack_chk_guard)(a5)
				bne	a4,a5,.L400
				add	sp,sp,464
				ld	ra,2024(sp)
				ld	s0,2016(sp)
				ld	s1,2008(sp)
				ld	s2,2000(sp)
		.LVL394:
				ld	s3,1992(sp)
				ld	s4,1984(sp)
				ld	s5,1976(sp)
				ld	s6,1968(sp)
				ld	s7,1960(sp)
		.LVL395:
				ld	s8,1952(sp)
				ld	s9,1944(sp)
				ld	s10,1936(sp)
				ld	s11,1928(sp)
				add	sp,sp,2032
				jr	ra
		.LVL396:
		.L396:
		.L367:
		.LBB485:
		.LBB473:
		.LBB467:
		.LBB468:
				call	_imp_space
		.LVL397:
				lui	s1,%hi(.LANCHOR2+113)
				addi	s1,s1,%lo(.LANCHOR2+113)
		.LBE468:
		.LBE467:
				call	__stack_chk_fail
		.LVL413:
		.LFE192:
				.align	1
		POPLABEL.7348:
		.LFB221:
				lw	a5,348(sp)
				sllw	a0,a5,1
				addw	a0,a0,a5
		.LBB718:
		.LBB719:
				addw	a0,a0,-1
				call	_imp_spaces
		.LVL945:
		.LBE719:
		.LBE718:
				lw	a5,316(sp)
				bnez	a5,.L891
		.LBB720:
  793          printstring("Begin")
				li	a2,256
				lui	a1,%hi(.LANCHOR4-1776)
				addi	a1,a1,%lo(.LANCHOR4-1776)
				add	a0,sp,1656
				call	memcpy
		.LVL946:
				li	a2,256
				add	a1,sp,1656
				add	a0,sp,376
				call	memcpy
		.LVL947:
				li	a2,256
				add	a1,sp,376
				add	a0,sp,1144
				call	memcpy
		.LVL948:
		.LBE720:
		.LBB721:
		.LBB722:
				li	a2,256
				add	a1,sp,1144
				mv	a0,sp
				call	memcpy
		.LVL949:
				mv	a0,sp
				call	_imp_printstring
		.LVL950:
		.L892:
		.LBE722:
		.LBE721:
		.LBB723:
		.LBB724:
				call	_imp_newline
		.LVL951:
				j	.L890
		.L891:
		.LBE724:
		.LBE723:
		.LBB725:
  794       %FINISH %ELSE %START
  795          printstring("Procedure ");  print ident(block tag, 0)
				li	a2,256
				lui	a1,%hi(.LANCHOR4-1520)
				addi	a1,a1,%lo(.LANCHOR4-1520)
				add	a0,sp,1656
				call	memcpy
		.LVL952:
				li	a2,256
				add	a1,sp,1656
				add	a0,sp,632
				call	memcpy
		.LVL953:
				li	a2,256
				add	a1,sp,632
				add	a0,sp,1400
				call	memcpy
		.LVL954:
		.LBE725:
		.LBB726:
		.LBB727:
				li	a2,256
				add	a1,sp,1400
				mv	a0,sp
				call	memcpy
		.LVL955:
				mv	a0,sp
				call	_imp_printstring
		.LVL956:
		.LBE727:
		.LBE726:
  796       %FINISH
				mv	t2,s5
				li	a1,0
				lw	a0,316(sp)
				call	PRINTIDENT.6165
		.LVL957:
				j	.L892
		.L928:
  797       newline
  798    %FINISH
  799
  800    !deal with procedure definition (parameters)
  801
  802    %IF block tag # 0 %START;                   !proc
				lw	a5,316(sp)
				bnez	a5,.L928
		.L893:
  803       analyse;  compile %IF ss # 0
				add	t2,sp,288
				call	ANALYSE.6275
		.LVL958:
  804
				lui	a5,%hi(SS.6105)
				lw	a5,%lo(SS.6105)(a5)
				bnez	a5,.L929
		.L894:
  805       %IF block otype # 0 %START;              !external-ish
				beqz	s0,.L898
				add	t2,sp,288
				call	COMPILE.6277
		.LVL963:
				j	.L894
		.L930:
  806          %IF bflags&spec = 0 %START;           !definition
				ld	a5,288(sp)
				lhu	a5,0(a5)
				and	a5,a5,1
				bnez	a5,.L898
  807             %IF progmode <= 0 %AND level = 1 %THEN progmode = -1 %C
				lui	a5,%hi(PROGMODE.6111)
				lw	a5,%lo(PROGMODE.6111)(a5)
				bgtz	a5,.L896
  808                                              %ELSE fault(7)
				lw	a4,348(sp)
				li	a5,1
				beq	a4,a5,.L930
		.L896:
  809          %FINISH
				lui	a5,%hi(PROGMODE.6111)
				li	a4,-1
				sw	a4,%lo(PROGMODE.6111)(a5)
  810       %FINISH
				j	.L898
		.LVL964:
		.L902:
		.LBB738:
		.LBB736:
		.LBB734:
		.LBB732:
  811
  812       new app = gapp;                          !generate app grammar
				add	t2,sp,288
				li	a0,7
				call	FAULT.6294
		.LVL959:
		.L895:
		.L897:
		.L898:
		.LBB728:
		.LBB729:
  813       %IF spec given # 0 %START;               !definition after spec
				lui	a5,%hi(SPECGIVEN.6081)
				lw	a5,%lo(SPECGIVEN.6081)(a5)
				beqz	a5,.L908
  814          fault(6) %IF new app # block app;     !different from spec
				lw	a5,212(s1)
				beq	a5,s0,.L908
  815       %FINISH
				add	t2,sp,288
				li	a0,6
				call	FAULT.6294
		.LVL978:
		.L907:
		.L908:
  816       block app = new app;                     !use the latest
				sw	s0,212(s1)
  817
  818       %IF level < 0 %START;                    !not procedure definition
				lw	a5,348(sp)
				bgez	a5,.L909
  819          delete names(0)
				add	t2,sp,288
				li	a0,0
				call	DELETENAMES.6273
		.LVL979:
  820          %RETURN
				j	.L888
		.L932:
		.LBB739:
		.LBB737:
  821       %FINISH
  822    %FINISH %ELSE %START
  823       open = 0;                                !can return from a block?
				sw	zero,320(sp)
		.LVL940:
		.L909:
  824    %FINISH
  825
  826    %CYCLE
  827       analyse
				add	t2,sp,288
				call	ANALYSE.6275
		.LVL982:
  828       %CONTINUE %IF ss = 0
				lui	s0,%hi(SS.6105)
				lw	a5,%lo(SS.6105)(s0)
				beqz	a5,.L911
		.L912:
  829       compile
				add	t2,sp,288
				call	COMPILE.6277
		.LVL983:
  830       fault(-5) %IF dubious # 0
				lui	s4,%hi(DUBIOUS.6119)
				lw	a5,%lo(DUBIOUS.6119)(s4)
				bnez	a5,.L934
		.L913:
  831       flush buffer %IF bp >= 128
				lui	s3,%hi(BP.6142)
				li	s2,127
				add	t2,sp,288
				li	a0,-5
				call	FAULT.6294
		.LVL981:
				j	.L913
		.L914:
				lw	a5,%lo(BP.6142)(s3)
				ble	a5,s2,.L914
  832       %IF sstype > 0 %START;                 !block in or out
				lui	s1,%hi(SSTYPE.6112)
				lw	a5,%lo(SSTYPE.6112)(s1)
				bgtz	a5,.L933
		.L911:
				mv	t2,s5
				call	FLUSHBUFFER.6152
		.LVL984:
				j	.L914
		.L933:
  833          %EXIT %IF sstype = 2;               !out
				li	a4,2
				beq	a5,a4,.L916
		.L917:
  834          compile block(spec mode, block x, dmin, tmax, id)
				lui	s7,%hi(BLOCKX.6134)
				lui	s6,%hi(SPECMODE.6113)
				j	.L911
		.LVL941:
		.L926:
				mv	t2,s5
				lw	a4,344(sp)
				lw	a3,352(sp)
				lw	a2,340(sp)
				lw	a1,%lo(BLOCKX.6134)(s7)
				lw	a0,%lo(SPECMODE.6113)(s6)
				call	COMPILEBLOCK.6268
		.LVL985:
  835          %EXIT %IF ss < 0;                   !endofprogram
				lw	a5,%lo(SS.6105)(s0)
				bgez	a5,.L911
		.L916:
  836       %FINISH
  837    %REPEAT
  838    %IF list > 0 %AND level > 0 %START
				lui	a5,%hi(LIST.6135)
				lw	a5,%lo(LIST.6135)(a5)
				blez	a5,.L919
  839       write(lines, 5);  spaces(level*3-1)
				lw	a5,348(sp)
				bgtz	a5,.L935
		.L919:
				li	a1,5
				lui	a5,%hi(LINES.6065)
				lw	a0,%lo(LINES.6065)(a5)
				call	_imp_writeint
		.LVL987:
  840       printstring("End")
				lw	a5,348(sp)
				sllw	a0,a5,1
				addw	a0,a0,a5
		.LBB740:
		.LBB741:
				addw	a0,a0,-1
				call	_imp_spaces
		.LVL988:
		.LBE741:
		.LBE740:
		.LBB742:
				li	a2,256
				lui	a1,%hi(.LANCHOR4-1264)
				addi	a1,a1,%lo(.LANCHOR4-1264)
				add	a0,sp,1656
				call	memcpy
		.LVL989:
				li	a2,256
				add	a1,sp,1656
				add	a0,sp,888
				call	memcpy
		.LVL990:
				li	a2,256
				add	a1,sp,888
				add	a0,sp,1656
				call	memcpy
		.LVL991:
		.LBE742:
		.LBB743:
		.LBB744:
				li	a2,256
				add	a1,sp,1656
				mv	a0,sp
				call	memcpy
		.LVL992:
				mv	a0,sp
				call	_imp_printstring
		.LVL993:
		.LBE744:
		.LBE743:
		.LBB745:
		.LBB746:
				call	_imp_newline
		.LVL994:
				j	.L919
		.L936:
		.LBE746:
		.LBE745:
  841       newline
  842    %FINISH
  843    delete names(0)
				add	t2,sp,288
				li	a0,0
				call	DELETENAMES.6273
		.LVL986:
		.L888:
  844    %RETURN
  845
  846    %INTEGERFN gapp;                            !generate app grammar (backwards)
				add	a5,sp,2016
				sd	a5,280(sp)
  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
				lui	a5,%hi(LOCAL.6125)
				lw	s3,%lo(LOCAL.6125)(a5)
				lw	a5,352(sp)
				beq	s3,a5,.L899
		.L900:
  854
				li	s0,0
		.LVL960:
  855       p = gmax1;  link = 0;  t = tmax
				li	a4,719
				sw	a4,272(sp)
  856
				sw	zero,268(sp)
		.LVL961:
		.LBB730:
		.LBB731:
  857       %CYCLE
  858          v == tag(t);  t = t-1
  859          class(v);                             !deduce class from tag
				mv	a5,s2
		.L901:
		.LVL969:
				addw	s2,a5,-1
		.LVL970:
		.LBB735:
		.LBB733:
  860          %IF c < 0 %START;                     !insert %PARAM
				lw	a5,256(sp)
				bltz	a5,.L931
		.L903:
  861             c = -c
				subw	a5,zero,a5
				sw	a5,256(sp)
  862             set cell(196, tp)
				add	t2,sp,256
				lw	a1,260(sp)
				li	a0,196
				call	SETCELL.6474
		.LVL977:
  863             tp = -1
				li	a5,-1
				sw	a5,260(sp)
				j	.L903
		.L904:
  864          %FINISH
  865          set cell(c, tp)
				add	t2,sp,256
				lw	a1,260(sp)
				lw	a0,256(sp)
				call	SETCELL.6474
		.LVL967:
  866          %EXIT %IF t = local;                  !end of parameters
				beq	s3,s2,.L904
		.L905:
  867          set cell(comma, -1);                  !add the separating comma
				add	t2,sp,256
				li	a1,-1
				li	a0,140
				call	SETCELL.6474
		.LVL968:
  868       %REPEAT
  869       abandon(3) %IF gmax > gmin
				lui	a5,%hi(GMAX.6144)
				lw	a4,%lo(GMAX.6144)(a5)
				lui	a5,%hi(GMIN.6102)
				lw	a5,%lo(GMIN.6102)(a5)
				bgt	a4,a5,.L932
		.L906:
  870
				ld	t2,296(sp)
				li	a0,3
				call	ABANDON.6184
		.LVL980:
				j	.L906
		.L934:
		.LBE737:
		.LBE739:
  871       %RESULT = link
				lw	s0,268(sp)
		.L899:
		.LBE736:
		.LBE738:
  872
  873       %ROUTINE set cell(%INTEGER g, tt)
		.LVL9:
  874
  875          !add the cell to the grammar, combining common tails
  876
  877          %WHILE p # gmax %CYCLE
  878             p = p+1
				lui	a5,%hi(GMAX.6144)
				lw	a6,%lo(GMAX.6144)(a5)
				lw	a4,16(t2)
				beq	a6,a4,.L4
				addw	a5,a4,1
				sext.w	a3,a5
				sw	a5,16(t2)
  879             %IF glink(p) = link %AND gram(p) = g %START
				lui	a7,%hi(GLINK.6149)
				addi	a7,a7,%lo(GLINK.6149)
				sll	a5,a3,1
				add	a5,a5,a7
				lh	a2,0(a5)
				lw	a5,12(t2)
				bne	a2,a5,.L9
				sll	a5,a3,1
				add	a5,a5,t1
				lh	a5,0(a5)
				bne	a5,a0,.L9
				bltz	a1,.L6
  880                %IF tt < 0 %OR (gram(p+1) = tt %AND glink(p+1)=ap) %START
				lui	t1,%hi(GRAM.6148)
				addi	t1,t1,%lo(GRAM.6148)
		.L9:
  881                   link = p;                    !already there
				addw	a4,a4,2
				sll	a5,a4,1
				add	a5,a5,t1
				lh	a5,0(a5)
				bne	a5,a1,.L9
				sw	a3,12(t2)
				ret
		.L4:
  882                   %RETURN
				sll	a4,a4,1
				add	a4,a4,a7
				lh	a4,0(a4)
				lw	a5,8(t2)
				bne	a4,a5,.L9
		.L6:
  883                %FINISH
  884             %FINISH
  885          %REPEAT
  886
  887          !add a new cell
  888
  889          gmax = gmax+1
				addw	a3,a6,1
				sext.w	a5,a3
				lui	a4,%hi(GMAX.6144)
				sw	a3,%lo(GMAX.6144)(a4)
  890          gram(gmax) = g
				sll	a5,a5,1
				lui	a4,%hi(GRAM.6148)
				addi	a4,a4,%lo(GRAM.6148)
				add	a4,a5,a4
				sh	a0,0(a4)
  891          glink(gmax) = link
				lui	a4,%hi(GLINK.6149)
				addi	a4,a4,%lo(GLINK.6149)
				add	a5,a5,a4
				lw	a4,12(t2)
				sh	a4,0(a5)
  892          link = gmax
				sw	a3,12(t2)
  893
  894          %IF tt >= 0 %START;             ! set type cell
				bltz	a1,.L8
  895             gmax = gmax+1
				addw	a6,a6,2
				sext.w	a5,a6
				lui	a4,%hi(GMAX.6144)
				sw	a6,%lo(GMAX.6144)(a4)
  896             gram(gmax) = tt
				sll	a5,a5,1
				lui	a4,%hi(GRAM.6148)
				addi	a4,a4,%lo(GRAM.6148)
				add	a4,a5,a4
				sh	a1,0(a4)
  897             glink(gmax) = ap
				lui	a4,%hi(GLINK.6149)
				addi	a4,a4,%lo(GLINK.6149)
				add	a5,a5,a4
				lw	a4,8(t2)
				sh	a4,0(a5)
		.L8:
  898          %FINISH
  899
  900          p = gmax
				lui	a5,%hi(GMAX.6144)
				lw	a5,%lo(GMAX.6144)(a5)
				sw	a5,16(t2)
  901       %END
  902
				ret
		.LFE195:
				.align	1
		DEFLAB.7187:
		.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
				li	s0,89
				li	s10,1764
				li	s9,247
				li	s8,-100
				li	s7,-101
				li	s6,-102
				li	s4,-103
				j	.L901
		.LVL962:
		.L929:
		.LBE731:
		.LBE730:
		.LBE729:
		.LBE728:
				sw	s0,1656(sp)
				sw	s10,1660(sp)
				sw	s9,1664(sp)
				sw	s0,1668(sp)
				sw	s0,1672(sp)
				sw	s0,1676(sp)
				sw	s0,1680(sp)
				sw	s8,1684(sp)
				sw	s7,1688(sp)
				sw	s6,1692(sp)
				sw	s4,1696(sp)
				sw	s0,1700(sp)
				li	a4,214
				sw	a4,1704(sp)
				sw	s0,1708(sp)
				li	a4,229
				sw	a4,1712(sp)
				sw	s0,1716(sp)
  910          err,1764, 247, err(4), -rtp, -fnp, -mapp, -predp, err, 214,
  911          err, 229, err
  912          %INTEGER tags, type, form
  913          ap = 0
				sw	zero,264(sp)
				sll	a4,a5,4
				ld	a5,296(sp)
		.LVL971:
				add	a5,a5,a4
  914          tags = v_flags
				lh	a4,220(a5)
		.LVL972:
  915          type = tags>>4&7;  form = tags&15
				srlw	a2,a4,4
				and	a2,a2,7
		.LVL973:
  916          tp = v_format<<3!type
				and	a3,a4,15
		.LVL974:
				lw	a4,216(a5)
		.LVL975:
				sllw	a4,a4,3
				or	a4,a2,a4
				sw	a4,260(sp)
  917          c = class map(form)
				sll	a4,a3,2
				add	a1,sp,1920
				add	a4,a1,a4
				lw	a4,-264(a4)
				sw	a4,256(sp)
  918          c = 208 %AND tp = 0 %IF type = 0 %AND form = 2;  !%NAME
				bnez	a2,.L902
  919          ap = v_app %IF tags&parameters # 0
				li	a4,2
				bne	a3,a4,.L902
  920       %END
				lw	a5,212(a5)
		.LVL965:
				sw	a5,264(sp)
		.LDL49:
		.LVL966:
		.LBE732:
		.LBE734:
				li	a4,208
				sw	a4,256(sp)
  921    %END
				sw	zero,260(sp)
				j	.L902
		.LVL976:
		.L931:
		.LBE733:
		.LBE735:
  922
  923 %ROUTINE delete names(%INTEGER quiet)
		.LVL717:
				add	sp,sp,-64
				sd	ra,56(sp)
				sd	s0,48(sp)
				sd	s1,40(sp)
				sd	s2,32(sp)
				sd	s3,24(sp)
				sd	s4,16(sp)
				sd	s5,8(sp)
				mv	s0,t2
				mv	s4,a0
  924    %INTEGER flags
  925    %RECORD(tagfm)%NAME tx
  926    %WHILE tmax > tbase %CYCLE
  927       x = tmax;  tmax = tmax-1
				lw	a5,64(t2)
				lw	a4,68(t2)
				bge	a4,a5,.L788
				lui	s3,%hi(X.6055)
				lw	a5,64(s0)
				lw	a4,68(s0)
				bge	a4,a5,.L791
		.L785:
				sw	a5,%lo(X.6055)(s3)
  928       tx == tag(x)
				addw	a4,a5,-1
				sw	a4,64(s0)
		.LVL719:
				sll	a5,a5,4
		.LVL720:
				ld	s1,8(s0)
				add	s1,s1,a5
		.LVL721:
  929       flags = tx_flags
  930       fault(20) %IF flags&spec # 0 %and flags&own bit = 0
  931                {spec with no definition & not external}
				lhu	a5,220(s1)
				and	a5,a5,1
				bnez	a5,.L784
  932       %IF flags&used bit = 0 %AND level >= 0 %AND list <= 0 %START
				mv	t2,s0
				li	a0,20
				call	FAULT.6294
		.LVL722:
  933          fault(-3) %IF quiet = 0;          !unused
				lw	a5,60(s0)
				bltz	a5,.L784
				bnez	s4,.L784
  934       %FINISH
				lui	s5,%hi(LIST.6135)
				lw	a5,%lo(LIST.6135)(s5)
				bgtz	a5,.L784
				mv	t2,s0
				li	a0,-3
				call	FAULT.6294
		.LVL723:
				j	.L784
		.L782:
		.L791:
  935       dict(tx_text) = tx_link
				li	s2,12288
				add	s2,s2,1128
				j	.L785
		.L783:
		.LVL718:
		.L784:
				lh	a3,226(s1)
				ld	a4,8(s0)
				lh	a5,224(s1)
				addw	a5,a5,-1
				add	a5,a5,s2
				sll	a5,a5,1
				add	a5,a4,a5
				sh	a3,4(a5)
		.LDL36:
  936    %REPEAT
  937 %END
  938
				ld	ra,56(sp)
				ld	s0,48(sp)
				ld	s1,40(sp)
				ld	s2,32(sp)
				ld	s3,24(sp)
				ld	s4,16(sp)
				ld	s5,8(sp)
				add	sp,sp,64
				jr	ra
		.LVL724:
		.L788:
				ret
		.LFE197:
				.align	1
		ANALYSE.6275:
		.LFB198:
  939 %ROUTINE analyse
				add	sp,sp,-2016
				sd	ra,2008(sp)
				sd	s0,2000(sp)
				sd	s1,1992(sp)
				sd	s2,1984(sp)
				sd	s3,1976(sp)
				sd	s4,1968(sp)
				sd	s5,1960(sp)
				sd	s6,1952(sp)
				sd	s7,1944(sp)
				sd	s8,1936(sp)
				sd	s9,1928(sp)
				sd	s10,1920(sp)
				sd	s11,1912(sp)
				li	t1,-4096
				add	sp,sp,t1
				mv	s5,t2
				lui	a5,%hi(__stack_chk_guard)
				ld	a5,%lo(__stack_chk_guard)(a5)
				li	a4,4096
				add	a3,a4,1864
				add	a2,sp,32
				add	a3,a3,a2
				sd	a5,0(a3)
				li	a5,-4096
				add	a3,a4,1872
				add	a3,a3,a2
				add	a5,a3,a5
				sd	a5,16(sp)
				mv	a3,a5
				add	a5,a4,1984
				add	a5,a5,a2
				sd	a5,-1552(a3)
				sd	t2,-1568(a3)
  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
				li	s4,-4096
				add	s9,s4,-1568
				li	a5,4096
				add	a5,a5,1872
				add	a4,sp,32
				add	a5,a5,a4
				add	s9,a5,s9
				li	a5,4096
				add	a5,a5,1984
				add	a4,sp,32
				add	a5,a5,a4
				sd	a5,328(sp)
				sd	s9,320(sp)
  953       !diagnostic trace routine (diagnose&1 # 0)
  954       %INTEGER a
  955       %ROUTINE show(%INTEGER a)
		.LVL38:
				add	sp,sp,-800
				sd	ra,792(sp)
				lui	a5,%hi(__stack_chk_guard)
				ld	a5,%lo(__stack_chk_guard)(a5)
				sd	a5,776(sp)
		.LVL39:
		.LBB316:
  956          %IF 0 < a < 130 %START
  957             space
  958             printstring(text(a))
  959          %FINISH %ELSE write(a, 3)
				addw	a4,a0,-1
				li	a5,128
				bgtu	a4,a5,.L36
		.LBE316:
		.LBB317:
		.LBB318:
				call	_imp_space
		.LVL40:
				li	a2,256
				add	a1,sp,264
				add	a0,sp,520
				call	memcpy
		.LVL41:
		.LBE318:
		.LBE317:
		.LBB319:
		.LBB320:
				li	a2,256
				add	a1,sp,520
				mv	a0,sp
				call	memcpy
		.LVL42:
				mv	a0,sp
				call	_imp_printstring
		.LVL43:
				j	.L35
		.LVL44:
		.L36:
		.LBE320:
		.LBE319:
  960       %END
  961       %OWNINTEGER la1=0, la2=0, lsa=0, lt=0
				li	a1,3
				call	_imp_writeint
		.LVL45:
		.L37:
		.L35:
				ld	a4,776(sp)
				lui	a5,%hi(__stack_chk_guard)
				ld	a5,%lo(__stack_chk_guard)(a5)
				bne	a4,a5,.L40
				ld	ra,792(sp)
				add	sp,sp,800
				jr	ra
		.L40:
				call	__stack_chk_fail
		.LVL46:
		.LFE200:
				.align	1
		PRINTIDENT.6165:
		.LFB187:
  962       newline %IF mon pos # pos %AND sym # nl
				lui	s8,%hi(MONPOS.6072)
				lui	s7,%hi(POS.6123)
				j	.L817
		.LVL738:
		.L805:
		.LBE650:
		.LBE653:
				lw	a4,%lo(MONPOS.6072)(s8)
				lw	a5,%lo(POS.6123)(s7)
				beq	a4,a5,.L818
  963       mon pos = pos
				lui	a5,%hi(SYM.6073)
				lw	a4,%lo(SYM.6073)(a5)
				li	a5,10
				bne	a4,a5,.L881
		.L818:
				lw	a5,%lo(POS.6123)(s7)
				sw	a5,%lo(MONPOS.6072)(s8)
  964       write(g, 3)
				li	a1,3
				lw	a0,%lo(G.6093)(s2)
				call	_imp_writeint
		.LVL829:
		.LBB637:
		.LBB638:
				call	_imp_space
		.LVL830:
				li	a2,256
				li	s0,4096
				add	a5,s0,1096
				add	a4,sp,32
				add	a1,a4,a5
				add	a0,s0,840
				add	a0,a0,a4
				call	memcpy
		.LVL831:
		.LBE638:
		.LBE637:
		.LBB639:
		.LBB640:
				li	a2,256
				add	a1,s0,840
				add	a5,sp,32
				add	a1,a1,a5
				add	a0,sp,48
				call	memcpy
		.LVL832:
				add	a0,s4,-1856
				add	a5,s0,1872
				add	a4,sp,32
				add	a5,a5,a4
				add	a0,a5,a0
				call	_imp_printstring
		.LVL833:
		.LBE640:
		.LBE639:
		.LBB641:
		.LBB642:
				li	a0,34
				call	_imp_printsymbol
		.LVL834:
		.LDL41:
		.LBE642:
		.LBE641:
  965       space
  966       printstring(text(class))
  967       printsymbol('"') %IF gg&trans bit # 0
  968       a = gg>>8&15
				lw	s0,%lo(GG.6094)(s6)
				srlw	s0,s0,8
				and	s0,s0,15
		.LVL835:
  969       %IF a # 0 %START
				bnez	s0,.L882
		.L819:
  970          printsymbol('{')
  971          write(a, 0)
				li	a1,0
				mv	a0,s0
				call	_imp_writeint
		.LVL824:
		.LBB635:
		.LBB636:
				li	a0,125
				call	_imp_printsymbol
		.LVL825:
				j	.L819
		.LVL826:
		.L883:
		.LBE636:
		.LBE635:
  972          printsymbol('}')
  973       %FINISH
  974       %IF atom1 # la1 %OR atom2 # la2 %OR lsa # subatom %C
				lui	a5,%hi(ATOM1.6056)
				lw	a4,%lo(ATOM1.6056)(a5)
				lui	a5,%hi(LA1.6557)
				lw	a5,%lo(LA1.6557)(a5)
				bne	a4,a5,.L820
  975                       %OR lt # type %START
				lui	a5,%hi(ATOM2.6057)
				lw	a4,%lo(ATOM2.6057)(a5)
				lui	a5,%hi(LA2.6558)
				lw	a5,%lo(LA2.6558)(a5)
				beq	a4,a5,.L883
		.L820:
		.LBB643:
  976          printstring(" [")
				lui	a5,%hi(.LANCHOR3-536)
				addi	a5,a5,%lo(.LANCHOR3-536)
				sd	a5,16(sp)
		.LVL737:
		.L806:
		.LBE630:
		.LBE629:
		.LBE628:
				lui	a5,%hi(LSA.6559)
				lw	a4,%lo(LSA.6559)(a5)
				lui	a5,%hi(SUBATOM.6058)
				lw	a5,%lo(SUBATOM.6058)(a5)
				bne	a4,a5,.L820
				li	a2,256
				ld	a1,16(sp)
				li	s0,4096
		.LVL836:
				add	a0,s0,1352
				add	a5,sp,32
				add	a0,a0,a5
				call	memcpy
		.LVL837:
				li	a2,256
				add	a1,s0,1352
				add	a5,sp,32
				add	a1,a1,a5
				add	a0,s0,1608
				add	a0,a0,a5
				call	memcpy
		.LVL838:
				li	a2,256
				add	a1,s0,1608
				add	a5,sp,32
				add	a1,a1,a5
				add	a0,s0,584
				add	a0,a0,a5
				call	memcpy
		.LVL839:
		.LBE643:
		.LBB644:
		.LBB645:
				li	a2,256
				add	a1,s0,584
				add	a5,sp,32
				add	a1,a1,a5
				add	a0,sp,48
				call	memcpy
		.LVL840:
				add	a0,s4,-1856
				add	a4,s0,1872
				add	a5,sp,32
				add	a4,a4,a5
				add	a0,a4,a0
				call	_imp_printstring
		.LVL841:
		.LBE645:
		.LBE644:
  977          la1 = atom1
				lui	a5,%hi(LT.6560)
				lw	a4,%lo(LT.6560)(a5)
				lui	a5,%hi(TYPE.6059)
				lw	a5,%lo(TYPE.6059)(a5)
				bne	a4,a5,.L820
				j	.L821
		.LVL827:
		.L825:
		.LBE651:
		.LBE691:
				lui	a5,%hi(ATOM1.6056)
				lw	a0,%lo(ATOM1.6056)(a5)
				lui	a5,%hi(LA1.6557)
				sw	a0,%lo(LA1.6557)(a5)
  978          show(la1)
				add	s0,s4,-1584
				li	a5,4096
				add	a5,a5,1872
				add	a4,sp,32
				add	a5,a5,a4
				add	s0,a5,s0
				mv	t2,s0
				call	SHOW.6550
		.LVL842:
  979          la2 = atom2
				lui	a5,%hi(ATOM2.6057)
				lw	a0,%lo(ATOM2.6057)(a5)
				lui	a5,%hi(LA2.6558)
				sw	a0,%lo(LA2.6558)(a5)
  980          show(la2)
				mv	t2,s0
				call	SHOW.6550
		.LVL843:
  981          lsa = subatom
				lui	a5,%hi(SUBATOM.6058)
				lw	a0,%lo(SUBATOM.6058)(a5)
				lui	a5,%hi(LSA.6559)
				sw	a0,%lo(LSA.6559)(a5)
  982          write(lsa, 3)
				li	a1,3
				call	_imp_writeint
		.LVL844:
  983          lt = type
				lui	a5,%hi(TYPE.6059)
				lw	a0,%lo(TYPE.6059)(a5)
				lui	a5,%hi(LT.6560)
				sw	a0,%lo(LT.6560)(a5)
  984          write(lt, 5)
				li	a1,5
				call	_imp_writeint
		.LVL845:
		.LBB646:
		.LBB647:
				li	a0,93
				call	_imp_printsymbol
		.LVL846:
		.L821:
		.LBE647:
		.LBE646:
		.LBB648:
		.LBB649:
				call	_imp_newline
		.LVL847:
		.LDL42:
		.LBE649:
		.LBE648:
		.LBE652:
		.LBE692:
  985          printsymbol(']')
  986       %FINISH
  987       newline
  988    %END
  989
  990 %ROUTINE get sym
				add	sp,sp,-16
				sd	ra,8(sp)
		.LVL210:
		.LBB363:
		.LBB364:
				lui	a0,%hi(SYM.6073)
				addi	a0,a0,%lo(SYM.6073)
				call	_imp_readsymbol
		.LVL211:
		.LBE364:
		.LBE363:
  991    readsymbol(sym)
  992    pos = pos+1 %IF pos # 133
				lui	a5,%hi(POS.6123)
				lw	a5,%lo(POS.6123)(a5)
				li	a4,133
				beq	a5,a4,.L162
  993    char(pos) = sym
				addw	a5,a5,1
				lui	a4,%hi(POS.6123)
				sw	a5,%lo(POS.6123)(a4)
		.L162:
				lui	a5,%hi(SYM.6073)
				lbu	a0,%lo(SYM.6073)(a5)
				lui	a5,%hi(POS.6123)
				lw	a4,%lo(POS.6123)(a5)
				lui	a5,%hi(.LANCHOR2)
				addi	a5,a5,%lo(.LANCHOR2)
				add	a5,a5,a4
				sb	a0,112(a5)
  994    printsymbol(sym) %IF list <= 0
				lui	a5,%hi(LIST.6135)
				lw	a5,%lo(LIST.6135)(a5)
				blez	a5,.L165
		.L163:
  995    column = column+1
				lui	a4,%hi(COLUMN.6070)
				lw	a5,%lo(COLUMN.6070)(a4)
				addw	a5,a5,1
				sw	a5,%lo(COLUMN.6070)(a4)
  996 %END
  997 %ROUTINE read sym
				ld	ra,8(sp)
				add	sp,sp,16
				jr	ra
		.L165:
		.LVL212:
		.LBB365:
		.LBB366:
				call	_imp_printsymbol
		.LVL213:
				j	.L163
		.LBE366:
		.LBE365:
		.LFE201:
				.align	1
		READSYM.6576:
		.LFB202:
				add	sp,sp,-1216
				sd	ra,1208(sp)
				sd	s0,1200(sp)
				sd	s1,1192(sp)
				sd	s2,1184(sp)
				sd	s3,1176(sp)
				mv	s0,t2
				lui	a5,%hi(__stack_chk_guard)
				ld	a5,%lo(__stack_chk_guard)(a5)
				sd	a5,1160(sp)
  998    %owninteger Last = 0
  999 %CONSTBYTEINTEGERARRAY mapped(0:127) = %C
				li	a2,128
				lui	a1,%hi(.LANCHOR1+616)
				addi	a1,a1,%lo(.LANCHOR1+616)
				add	a0,sp,1032
				call	memcpy
		.LVL214:
 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
				lui	a5,%hi(SYM.6073)
				lw	a4,%lo(SYM.6073)(a5)
				li	a5,10
				bne	a4,a5,.L178
		.L168:
 1016 s1:   lines = lines+1
 1017       printsymbol(end mark) %if end mark # 0
				lui	a4,%hi(LINES.6065)
				lw	a5,%lo(LINES.6065)(a4)
				addw	a5,a5,1
				sw	a5,%lo(LINES.6065)(a4)
				lui	a5,%hi(ENDMARK.6076)
				lw	a0,%lo(ENDMARK.6076)(a5)
				bnez	a0,.L200
		.L169:
		.L170:
 1018 s11:  pos = 0;  pos1 = 0;  pos2 = 0;  margin = 0;  column = 0
 1019       Last = 0
				lui	a5,%hi(POS.6123)
				sw	zero,%lo(POS.6123)(a5)
				lui	a5,%hi(LAST.6578)
				sw	zero,%lo(LAST.6578)(a5)
 1020       end mark = 0
				lui	a5,%hi(POS1.6121)
				sw	zero,%lo(POS1.6121)(a5)
				lui	a5,%hi(ENDMARK.6076)
				sw	zero,%lo(ENDMARK.6076)(a5)
 1021       %IF list <= 0 %START
				lui	a5,%hi(POS2.6122)
				sw	zero,%lo(POS2.6122)(a5)
				lui	a5,%hi(LIST.6135)
				lw	a5,%lo(LIST.6135)(a5)
				blez	a5,.L201
		.L171:
		.L175:
		.L176:
		.L177:
 1022          %IF include # 0 %START
				lui	a5,%hi(MARGIN.6067)
				sw	zero,%lo(MARGIN.6067)(a5)
				lui	a5,%hi(INCLUDE.6109)
				lw	a5,%lo(INCLUDE.6109)(a5)
				beqz	a5,.L172
		.LBB371:
 1023             printstring(" &");  write(lines, -4)
				lui	a5,%hi(COLUMN.6070)
				sw	zero,%lo(COLUMN.6070)(a5)
				li	a2,256
				lui	a1,%hi(.LANCHOR1+744)
				addi	a1,a1,%lo(.LANCHOR1+744)
				add	a0,sp,264
				call	memcpy
		.LVL220:
				li	a2,256
				add	a1,sp,264
				add	a0,sp,520
				call	memcpy
		.LVL221:
				li	a2,256
				add	a1,sp,520
				add	a0,sp,776
				call	memcpy
		.LVL222:
		.LBE371:
		.LBB372:
		.LBB373:
				li	a2,256
				add	a1,sp,776
				mv	a0,sp
				call	memcpy
		.LVL223:
				mv	a0,sp
				call	_imp_printstring
		.LVL224:
		.LBE373:
		.LBE372:
 1024          %FINISH %ELSE  write(lines, 5)
				li	a1,-4
				lui	a5,%hi(LINES.6065)
				lw	a0,%lo(LINES.6065)(a5)
				call	_imp_writeint
		.LVL225:
		.L173:
 1025          csym = cont;  printsymbol(csym)
				lui	a5,%hi(CONT.6077)
				lw	a0,%lo(CONT.6077)(a5)
				lui	a5,%hi(CSYM.6078)
				sw	a0,%lo(CSYM.6078)(a5)
		.LVL226:
		.LBB374:
		.LBB375:
				and	a0,a0,0xff
				call	_imp_printsymbol
		.LVL227:
		.LBE375:
		.LBE374:
		.LBB376:
		.LBB377:
				call	_imp_space
		.LVL228:
		.LBE377:
		.LBE376:
 1026          space
				li	a1,5
				lui	a5,%hi(LINES.6065)
				lw	a0,%lo(LINES.6065)(a5)
				call	_imp_writeint
		.LVL233:
				j	.L173
		.L202:
		.LVL234:
		.LBB384:
		.LBB385:
				call	_imp_printsymbol
		.LVL235:
				j	.L180
		.L203:
		.LBE385:
		.LBE384:
 1027          %IF error margin # 0 %START
				lui	a5,%hi(ERRORMARGIN.6068)
				lw	a0,%lo(ERRORMARGIN.6068)(a5)
				beqz	a0,.L177
 1028             lines = lines-1
				lui	a4,%hi(LINES.6065)
				lw	a5,%lo(LINES.6065)(a4)
				addw	a5,a5,-1
				sw	a5,%lo(LINES.6065)(a4)
		.LVL229:
		.LBB378:
		.LBB379:
				call	_imp_spaces
		.LVL230:
		.LBE379:
		.LBE378:
 1029             spaces(error margin)
 1030             error margin = 0
				lui	a5,%hi(ERRORMARGIN.6068)
				sw	zero,%lo(ERRORMARGIN.6068)(a5)
 1031             %IF error sym # 0 %START
				lui	a5,%hi(ERRORSYM.6069)
				lw	a0,%lo(ERRORSYM.6069)(a5)
				beqz	a0,.L177
		.LVL231:
		.LBB380:
		.LBB381:
				and	a0,a0,0xff
				call	_imp_printsymbol
		.LVL232:
		.LBE381:
		.LBE380:
 1032                printsymbol(error sym)
 1033                pos = 1
				lui	a5,%hi(POS.6123)
				li	a4,1
				sw	a4,%lo(POS.6123)(a5)
 1034 !IMP80 BUG???
 1035 !!             char(1) = error sym
 1036                byteinteger(addr(char(0))+1) = error sym
				lui	a5,%hi(ERRORSYM.6069)
				lw	a4,%lo(ERRORSYM.6069)(a5)
		.LBB382:
		.LBB383:
				lui	a3,%hi(.LANCHOR2+113)
		.LBE383:
		.LBE382:
				sb	a4,%lo(.LANCHOR2+113)(a3)
 1037                sym = error sym;  error sym = 0
				lui	a3,%hi(SYM.6073)
				sw	a4,%lo(SYM.6073)(a3)
 1038                ->s5
				sw	zero,%lo(ERRORSYM.6069)(a5)
				j	.L174
		.L172:
 1039             %FINISH
 1040          %FINISH
 1041       %FINISH
 1042 s2:   symtype = 1
 1043    %FINISH
				lui	a5,%hi(SYMTYPE.6074)
				li	a4,1
				sw	a4,%lo(SYMTYPE.6074)(a5)
		.L167:
		.L178:
		.LVL215:
		.LBB367:
		.LBB368:
				lui	a0,%hi(SYM.6073)
				addi	a0,a0,%lo(SYM.6073)
				call	_imp_readsymbol
		.LVL216:
		.LBE368:
		.LBE367:
 1044 s3:readsymbol(sym)
 1045    pos = pos+1 %IF pos # 133
				lui	a5,%hi(POS.6123)
				lw	a5,%lo(POS.6123)(a5)
				li	a4,133
				beq	a5,a4,.L179
 1046    char(pos) = sym
				addw	a5,a5,1
				lui	a4,%hi(POS.6123)
				sw	a5,%lo(POS.6123)(a4)
		.L179:
				lui	a5,%hi(SYM.6073)
				lbu	a0,%lo(SYM.6073)(a5)
				lui	a5,%hi(POS.6123)
				lw	a4,%lo(POS.6123)(a5)
				lui	a5,%hi(.LANCHOR2)
				addi	a5,a5,%lo(.LANCHOR2)
				add	a5,a5,a4
				sb	a0,112(a5)
 1047    printsymbol(sym) %IF list <= 0
				lui	a5,%hi(LIST.6135)
				lw	a5,%lo(LIST.6135)(a5)
				blez	a5,.L202
		.L180:
 1048    column = column+1
				lui	a4,%hi(COLUMN.6070)
				lw	a5,%lo(COLUMN.6070)(a4)
				addw	a5,a5,1
				sw	a5,%lo(COLUMN.6070)(a4)
		.L174:
 1049 s5:%IF sym # nl %START
 1050       Last = Sym
				lui	a5,%hi(SYM.6073)
				lw	a5,%lo(SYM.6073)(a5)
				li	a4,10
				beq	a5,a4,.L192
				lui	a4,%hi(LAST.6578)
				sw	a5,%lo(LAST.6578)(a4)
 1051       %RETURN %IF quote # 0;                     !dont alter strings
				lui	a4,%hi(QUOTE.6075)
				lw	a4,%lo(QUOTE.6075)(a4)
				bnez	a4,.L166
		.L183:
 1052       sym = mapped(sym&127)
				and	a5,a5,127
				add	a4,sp,1168
				add	a5,a4,a5
				lbu	a5,-136(a5)
				sext.w	a4,a5
				lui	a3,%hi(SYM.6073)
				sw	a5,%lo(SYM.6073)(a3)
 1053       %IF sym <= 3 %START;                       !special symbol
				li	a3,3
				bgt	a4,a3,.L184
 1054          ->s2 %IF sym = 0;                       !space (or dubious control)
				beqz	a4,.L177
		.L185:
 1055          symtype = 2 %AND ->s3 %IF sym = 1;      !%
				li	a5,1
				beq	a4,a5,.L203
		.L186:
 1056          cont = '+' %AND ->s11 %IF sym = 3;      !ff
				li	a5,3
				beq	a4,a5,.L198
				lui	a5,%hi(SYMTYPE.6074)
				li	a4,2
				sw	a4,%lo(SYMTYPE.6074)(a5)
 1057          !must be {
				j	.L178
		.L198:
				lui	a5,%hi(CONT.6077)
				li	a4,43
				sw	a4,%lo(CONT.6077)(a5)
 1058          %CYCLE
				j	.L170
		.L184:
 1059             get sym
				call	GETSYM.6571
		.LVL217:
 1060             ->s3 %IF sym = '}'
				lui	s2,%hi(SYM.6073)
				li	s1,125
				lw	a5,%lo(SYM.6073)(s2)
				beq	a5,s1,.L178
		.L190:
 1061             ->s4 %IF sym = nl
				li	s3,10
		.L187:
		.L188:
		.L189:
				bne	a5,s3,.L187
		.L181:
		.L192:
 1062          %REPEAT
 1063       %FINISH
 1064       key = kdict(sym)
				ld	a3,0(s0)
				ld	a3,8(a3)
				addw	a5,a5,-32
				li	a2,12288
				add	a2,a2,552
				add	a5,a5,a2
				sll	a5,a5,1
				add	a5,a3,a5
				lh	a5,4(a5)
				lui	a3,%hi(KEY.6531)
				sw	a5,%lo(KEY.6531)(a3)
 1065       %IF key&3 = 0 %AND symtype = 2 %START;            !keyword
				and	a3,a5,1
				bnez	a3,.L191
 1066          %IF sym = 'C' %AND nextsymbol = nl %START;     !%C...
				lui	a3,%hi(SYMTYPE.6074)
				lw	a2,%lo(SYMTYPE.6074)(a3)
				li	a3,2
				beq	a2,a3,.L205
		.L191:
				li	a5,67
				bne	a4,a5,.L166
		.LBB386:
		.LBB387:
				call	_imp_nextsymbol
		.LVL236:
		.LBE387:
		.LBE386:
 1067             getsym;  cont = '+';  ->s1
				li	a5,10
				bne	a0,a5,.L166
				call	GETSYM.6571
		.LVL237:
 1068          %FINISH
				lui	a5,%hi(CONT.6077)
				li	a4,43
				sw	a4,%lo(CONT.6077)(a5)
 1069       %ELSE
				j	.L168
		.L204:
 1070          symtype = key&3-2
				and	a5,a5,3
				addw	a5,a5,-2
				lui	a4,%hi(SYMTYPE.6074)
				sw	a5,%lo(SYMTYPE.6074)(a4)
				j	.L166
		.L205:
 1071       %FINISH
 1072       %RETURN
 1073    %FINISH
 1074 s4:symtype = quote
 1075    ->S1 %if last = 0 %and Quote = 0
				lui	a5,%hi(QUOTE.6075)
				lw	a5,%lo(QUOTE.6075)(a5)
				lui	a4,%hi(SYMTYPE.6074)
				sw	a5,%lo(SYMTYPE.6074)(a4)
				lui	a4,%hi(LAST.6578)
				lw	a4,%lo(LAST.6578)(a4)
				bnez	a4,.L193
 1076    Cont = '+'
				beqz	a5,.L168
		.L193:
				lui	a5,%hi(CONT.6077)
				li	a4,43
				sw	a4,%lo(CONT.6077)(a5)
		.L182:
		.L194:
		.L166:
 1077 %END
 1078
				ld	a4,1160(sp)
				lui	a5,%hi(__stack_chk_guard)
				ld	a5,%lo(__stack_chk_guard)(a5)
				bne	a4,a5,.L204
				ld	ra,1208(sp)
				ld	s0,1200(sp)
				ld	s1,1192(sp)
				ld	s2,1184(sp)
				ld	s3,1176(sp)
				add	sp,sp,1216
				jr	ra
		.L200:
		.LVL218:
		.LBB369:
		.LBB370:
				and	a0,a0,0xff
				call	_imp_printsymbol
		.LVL219:
				j	.L170
		.L201:
		.LBE370:
		.LBE369:
				call	__stack_chk_fail
		.LVL238:
		.LFE202:
				.align	1
		GET.6743:
		.LFB206:
 1079 %INTEGERFN format selected
 1080    format list = tag(format)_app;      !number of names
				ld	a4,0(s2)
				ld	a4,0(a4)
				sll	a5,a5,4
				ld	a4,8(a4)
				add	a5,a4,a5
				lw	a4,212(a5)
				lui	a3,%hi(FORMATLIST.6128)
				sw	a4,%lo(FORMATLIST.6128)(a3)
 1081    %IF format list < 0 %START;         !forward ref
				bltz	a4,.L152
		.L111:
 1082       atom1 = error+22
				li	a5,32768
				addw	a5,a5,22
				sw	a5,%lo(ATOM1.6056)(s8)
				j	.L93
		.L115:
		.LBE360:
		.LBE359:
 1083       %RESULT = 0
 1084    %FINISH
 1085    %IF sym = '_' %START
				lui	a4,%hi(SYM.6073)
				lw	a3,%lo(SYM.6073)(a4)
				li	a4,95
				bne	a3,a4,.L114
 1086       escape class = esc rec
				lui	a4,%hi(ESCAPECLASS.6082)
				li	a3,255
				sw	a3,%lo(ESCAPECLASS.6082)(a4)
 1087       search base = tag(format)_format
				lw	a4,216(a5)
				lui	a5,%hi(SEARCHBASE.6127)
				sw	a4,%lo(SEARCHBASE.6127)(a5)
				j	.L114
		.L152:
 1088    %FINISH
 1089    %RESULT = 1
 1090 %END
 1091
 1092 %ROUTINE code atom(%INTEGER target)
		.LVL250:
				add	sp,sp,-160
				sd	ra,152(sp)
				sd	s0,144(sp)
				sd	s1,136(sp)
				sd	s2,128(sp)
				sd	s3,120(sp)
				sd	s4,112(sp)
				sd	s5,104(sp)
				sd	s6,96(sp)
				sd	s7,88(sp)
				sd	s8,80(sp)
				sd	s9,72(sp)
				sd	s10,64(sp)
				sd	s11,56(sp)
				mv	s9,a0
				mv	s0,t2
				lui	a5,%hi(__stack_chk_guard)
				ld	a5,%lo(__stack_chk_guard)(a5)
				sd	a5,40(sp)
				add	a5,sp,160
				sd	a5,32(sp)
				sd	t2,8(sp)
 1093    %INTEGER dbase, da
 1094    %INTEGER base, n, mul, pend quote
 1095    %INTEGER j,k,l, pt
 1096
 1097    %ROUTINE lookup(%INTEGER d)
		.LVL139:
				add	sp,sp,-864
				sd	ra,856(sp)
				sd	s0,848(sp)
				sd	s1,840(sp)
				sd	s2,832(sp)
				sd	s3,824(sp)
				sd	s4,816(sp)
				sd	s5,808(sp)
				sd	s6,800(sp)
				sd	s7,792(sp)
				sd	s8,784(sp)
				mv	s6,a0
				mv	s2,t2
				lui	a5,%hi(__stack_chk_guard)
				ld	a5,%lo(__stack_chk_guard)(a5)
				sd	a5,776(sp)
 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))
				ld	a5,0(t2)
				ld	a5,0(a5)
				ld	a0,8(a5)
		.LVL140:
				lui	a5,%hi(DMAX.6103)
				lw	s1,%lo(DMAX.6103)(a5)
				li	a5,12288
				add	a4,a5,1130
				add	s1,s1,a4
				sll	s1,s1,1
				addw	s1,a0,s1
		.LVL141:
 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
				lw	s0,208(a0)
				li	a4,6701056
				addw	a4,a4,-635
				mulw	s0,s0,a4
 1116                        ! we could fix this properly by a shift+add loop
 1117             !*******************************************************
 1118
 1119       k2 = k2>>(32-2*name bits)!1
				srlw	s0,s0,10
				or	s0,s0,1
				sext.w	s0,s0
				sext.w	s5,s0
		.LVL142:
 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	s0,s0,11
		.LVL143:
 1124       %CYCLE
 1125          newname = hash(k1)
				add	a5,a5,-1496
				add	a5,s0,a5
				sll	a5,a5,1
				add	a5,a0,a5
				lh	s8,4(a5)
				sext.w	s7,s8
		.LVL144:
				add	s3,s3,-1496
		.LVL145:
		.L95:
				ld	a5,0(s2)
				ld	a5,0(a5)
				ld	a0,8(a5)
				add	a5,s0,s3
				sll	a5,a5,1
				add	a5,a0,a5
				lh	s8,4(a5)
				sext.w	s7,s8
		.LVL149:
 1126          %EXIT %IF newname = 0;                !not in
				beqz	s7,.L94
				bnez	s7,.L95
		.LVL150:
		.L94:
 1127          ->in %IF string(addr(dict(newname+1))) = string(new)
 1128          k1 = (k1+k2)&max names
				add	s0,s5,s0
		.LVL147:
				and	s0,s0,2047
		.LDL8:
		.LVL148:
 1129       %REPEAT
				li	s3,12288
				add	s4,s3,1130
				add	a5,s7,s4
				sll	a5,a5,1
				mv	a1,s1
				add	a0,a0,a5
				call	_imp_strcmp
		.LVL146:
				beqz	a0,.L96
		.L97:
 1130
 1131       ! not found
 1132
 1133       spare names = spare names-1
				lui	a4,%hi(SPARENAMES.6026)
				lw	a5,%lo(SPARENAMES.6026)(a4)
				addw	a5,a5,-1
				sext.w	a3,a5
				sw	a5,%lo(SPARENAMES.6026)(a4)
 1134       abandon(2) %IF spare names <= 0
				blez	a3,.L148
		.L98:
 1135       hash(k1) = dmax;                               !put it in
				lui	a2,%hi(DMAX.6103)
				lw	s7,%lo(DMAX.6103)(a2)
		.LVL151:
				ld	a5,0(s2)
				ld	a5,0(a5)
				ld	a5,8(a5)
				li	a4,12288
				add	a3,a4,-1496
				add	s0,s0,a3
				sll	s0,s0,1
				add	s0,a5,s0
				sh	s7,4(s0)
				mv	t2,a0
				li	a0,2
				call	ABANDON.6184
		.LVL158:
				j	.L98
		.LVL159:
		.L96:
 1136       dict(dmax) = -1
				ld	a5,0(s2)
				ld	a5,0(a5)
				ld	a3,8(a5)
				addw	a5,s7,-1
				add	a4,a4,1128
				add	a5,a5,a4
				sll	a5,a5,1
				add	a5,a3,a5
				li	a4,-1
				sh	a4,4(a5)
		.LVL152:
 1137       newname = dmax;  dmax = dp;  ->not in
 1138
				lui	a5,%hi(DP.6120)
				lw	a5,%lo(DP.6120)(a5)
				sw	a5,%lo(DMAX.6103)(a2)
		.L99:
		.LVL153:
		.L131:
 1139 in:   search base = rbase %IF this >= 0 %AND d # 0;  !record elem defn
 1140       %IF search base # 0 %START;                    !record subname
				lui	a5,%hi(THIS.6097)
				lw	a5,%lo(THIS.6097)(a5)
				bltz	a5,.L100
				lui	a5,%hi(SEARCHBASE.6127)
				lw	a4,%lo(SEARCHBASE.6127)(a5)
				beqz	a4,.L101
		.LVL160:
 1141          new = -1
				beqz	s6,.L100
 1142          x = search base
				lui	a5,%hi(RBASE.6100)
				lw	a4,%lo(RBASE.6100)(a5)
				lui	a5,%hi(SEARCHBASE.6127)
				sw	a4,%lo(SEARCHBASE.6127)(a5)
		.L100:
				lui	a5,%hi(X.6055)
				sw	a4,%lo(X.6055)(a5)
 1143          %CYCLE
 1144             ->not in %IF x < format list
				lui	a5,%hi(FORMATLIST.6128)
				lw	a2,%lo(FORMATLIST.6128)(a5)
				blt	a4,a2,.L131
				blt	a3,a2,.L150
		.L104:
				addw	a4,a4,-1
 1145             %EXIT %IF tag(x)_text = new name
				ld	a5,0(s2)
				ld	a5,0(a5)
				ld	a1,8(a5)
				add	a5,a4,13
				sll	a5,a5,4
				add	a5,a1,a5
				lh	a5,16(a5)
				addw	a4,a4,-1
				sext.w	a0,s8
				beq	a5,s8,.L108
		.L105:
				add	a5,a3,13
				sll	a5,a5,4
				add	a5,a1,a5
				lh	a5,16(a5)
				bne	a5,a0,.L105
				lui	a5,%hi(X.6055)
				sw	a3,%lo(X.6055)(a5)
				j	.L108
		.LVL161:
		.L101:
 1146             x = x-1
				sext.w	a3,a4
		.LDL9:
 1147          %REPEAT
 1148       %FINISH %ELSE %START;                   !hash in for normal names
 1149          x = dict(newname)
				ld	a5,0(s2)
				ld	a5,0(a5)
				ld	a4,8(a5)
				addw	a5,s7,-1
				li	a3,12288
				add	a3,a3,1128
				add	a5,a5,a3
				sll	a5,a5,1
				add	a5,a4,a5
				lh	a5,4(a5)
				sext.w	a4,a5
				lui	a3,%hi(X.6055)
				sw	a5,%lo(X.6055)(a3)
 1150          ->not in %IF x <= limit;             !wrong level
				lui	a5,%hi(LIMIT.6115)
				lw	a5,%lo(LIMIT.6115)(a5)
				bge	a5,a4,.L131
		.L103:
		.L107:
		.LVL162:
		.L108:
 1151       %FINISH
 1152
 1153       subatom = x;                            !name found, extract info
				lui	a5,%hi(X.6055)
				lw	s0,%lo(X.6055)(a5)
		.LVL163:
				lui	a5,%hi(SUBATOM.6058)
				sw	s0,%lo(SUBATOM.6058)(a5)
 1154       t == tag(x)
				ld	a5,0(s2)
				ld	a5,0(a5)
				ld	a4,8(a5)
		.LVL164:
				sll	s0,s0,4
		.LVL165:
				add	s0,a4,s0
 1155       atom flags = t_flags
				lh	a5,220(s0)
				lui	s1,%hi(ATOMFLAGS.6084)
				sw	a5,%lo(ATOMFLAGS.6084)(s1)
 1156       format = t_format;  app = t_app
				lui	s3,%hi(FORMAT.6061)
				lw	a3,216(s0)
				sw	a3,%lo(FORMAT.6061)(s3)
 1157       protection = atom flags&prot
				lui	s4,%hi(APP.6060)
				lw	a3,212(s0)
				sw	a3,%lo(APP.6060)(s4)
 1158       type = atom flags>>4&7;  atom1 = amap(atom flags&15)
				lui	s5,%hi(TYPE.6059)
		.LVL166:
				srlw	a3,a5,4
				and	a3,a3,7
				sw	a3,%lo(TYPE.6059)(s5)
 1159
				lui	s8,%hi(ATOM1.6056)
				and	a5,a5,15
				add	a5,a4,a5
				li	a4,36864
		.LVL167:
				add	a5,a4,a5
				lbu	a5,2038(a5)
				sw	a5,%lo(ATOM1.6056)(s8)
		.LBB353:
 1160       %IF diag&8 # 0 %START
 1161          printstring("lookup:")
				li	a2,256
				lui	a1,%hi(.LANCHOR1+360)
				addi	a1,a1,%lo(.LANCHOR1+360)
				add	a0,sp,520
				call	memcpy
		.LVL168:
				li	a2,256
				add	a1,sp,520
				add	a0,sp,264
				call	memcpy
		.LVL169:
				li	a2,256
				add	a1,sp,264
				add	a0,sp,520
				call	memcpy
		.LVL170:
		.LBE353:
		.LBB354:
		.LBB355:
				li	a2,256
				add	a1,sp,520
				mv	a0,sp
				call	memcpy
		.LVL171:
				mv	a0,sp
				call	_imp_printstring
		.LVL172:
		.LBE355:
		.LBE354:
 1162          write(atom1, 3)
				li	a1,3
				lw	a0,%lo(ATOM1.6056)(s8)
				call	_imp_writeint
		.LVL173:
 1163          write(type, 1)
				li	a1,1
				lw	a0,%lo(TYPE.6059)(s5)
				call	_imp_writeint
		.LVL174:
 1164          write(app, 3)
				li	a1,3
				lw	a0,%lo(APP.6060)(s4)
				call	_imp_writeint
		.LVL175:
 1165          write(format, 5)
				li	a1,5
				lw	a0,%lo(FORMAT.6061)(s3)
				call	_imp_writeint
		.LVL176:
 1166          write(atom flags, 3)
				li	a1,3
				lw	a0,%lo(ATOMFLAGS.6084)(s1)
				call	_imp_writeint
		.LVL177:
		.LBB356:
		.LBB357:
				call	_imp_newline
		.LVL178:
		.LDL10:
		.LBE357:
		.LBE356:
 1167          newline
 1168       %FINISH
 1169
 1170       %IF d = 0 %START;                             !old name wanted
				bnez	s6,.L109
 1171          t_flags <- t_flags!used bit
				lhu	a5,220(s0)
				li	a4,-32768
				or	a5,a5,a4
				sh	a5,220(s0)
 1172          search base = 0
				lui	a5,%hi(SEARCHBASE.6127)
				sw	zero,%lo(SEARCHBASE.6127)(a5)
 1173
 1174          %IF atom flags&subname # 0 %AND format # 0 %START; !a record
 1175             %RETURN %IF format selected = 0
				lw	a5,%lo(FORMAT.6061)(s3)
				bnez	a5,.L151
		.L110:
		.L114:
 1176          %FINISH
 1177
 1178          %IF atom flags&parameters # 0 %START;      !proc or array
 1179
 1180             %IF app = 0 %START;                     !no parameters needed
				lui	a5,%hi(APP.6060)
				lw	a5,%lo(APP.6060)(a5)
				bnez	a5,.L115
 1181                atom2 = atom1
				lui	a4,%hi(ATOM1.6056)
				lw	a5,%lo(ATOM1.6056)(a4)
				lui	a3,%hi(ATOM2.6057)
				sw	a5,%lo(ATOM2.6057)(a3)
 1182                atom1 = atom1-4
				addw	a5,a5,-4
				sw	a5,%lo(ATOM1.6056)(a4)
		.LVL179:
		.LBB358:
 1183                %IF 97 <= atom1 <= 98 %START
 1184                   map gg = atom1;  atom1 = var
				lui	a4,%hi(MAPGG.6095)
				sw	a5,%lo(MAPGG.6095)(a4)
 1185                %FINISH
				lui	a5,%hi(ATOM1.6056)
		.LVL180:
				li	a4,91
				sw	a4,%lo(ATOM1.6056)(a5)
		.LVL181:
				j	.L120
		.LVL182:
		.L151:
		.LBB359:
		.LBB360:
 1186             %FINISH %ELSE %START
				addw	a3,a5,-97
				li	a4,1
				bgtu	a3,a4,.L120
		.LBE358:
 1187                %IF sym = '(' %START
				lui	a4,%hi(SYM.6073)
				lw	a3,%lo(SYM.6073)(a4)
				li	a4,40
				beq	a3,a4,.L153
		.L116:
		.L119:
		.L120:
 1188                   search base = 0;                  !ignore format for now
				lui	a4,%hi(SEARCHBASE.6127)
				sw	zero,%lo(SEARCHBASE.6127)(a4)
 1189                   %IF atom1 >= 106 %START;          !arrays
				lui	a4,%hi(ATOM1.6056)
				lw	a4,%lo(ATOM1.6056)(a4)
				li	a3,105
				ble	a4,a3,.L117
 1190                      app = phrase(app+200)
				sll	a5,a5,1
				lui	a3,%hi(.LANCHOR2)
				addi	a3,a3,%lo(.LANCHOR2)
				add	a5,a3,a5
				lh	a3,0(a5)
				lui	a5,%hi(APP.6060)
				sw	a3,%lo(APP.6060)(a5)
 1191                      escape class = esc array
				lui	a5,%hi(ESCAPECLASS.6082)
				li	a3,254
				sw	a3,%lo(ESCAPECLASS.6082)(a5)
 1192                      atom1 = (atom1-106)>>1+91;     !a,an->v  na,nan->n
				addw	a5,a4,-106
				srlw	a5,a5,1
				addw	a5,a5,91
				lui	a4,%hi(ATOM1.6056)
				sw	a5,%lo(ATOM1.6056)(a4)
		.L118:
 1193                   %FINISH %ELSE %START;             !procedures
 1194                      escape class = esc proc
				lui	a5,%hi(ESCAPECLASS.6082)
				li	a3,253
				sw	a3,%lo(ESCAPECLASS.6082)(a5)
 1195                      atom1 = atom1-4
				addw	a4,a4,-4
				lui	a5,%hi(ATOM1.6056)
				sw	a4,%lo(ATOM1.6056)(a5)
				j	.L118
		.L109:
 1196                   %FINISH
 1197                   phrase(200) = app
				lui	a5,%hi(APP.6060)
				lw	a4,%lo(APP.6060)(a5)
				lui	a5,%hi(.LANCHOR2)
				sh	a4,%lo(.LANCHOR2)(a5)
				j	.L120
		.L117:
 1198                %FINISH
 1199             %FINISH
 1200             pos2 = pos;  %return
				lui	a5,%hi(POS.6123)
				lw	a4,%lo(POS.6123)(a5)
				lui	a5,%hi(POS2.6122)
				sw	a4,%lo(POS2.6122)(a5)
 1201          %FINISH
				j	.L93
		.L153:
 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<dq>t fault proc parm-parm
				ld	a5,0(s2)
				ld	a5,0(a5)
				lw	a4,68(a5)
				lw	a5,72(a5)
				beq	a4,a5,.L154
		.L121:
 1214       %IF d = lab+spec+used bit %START
				li	a5,32768
				add	a5,a5,131
				beq	s6,a5,.L158
		.L123:
 1215          t_flags = t_flags!used bit
				lhu	a5,220(s0)
				li	a4,-32768
				or	a5,a5,a4
				sh	a5,220(s0)
 1216          %RETURN
				j	.L93
		.L159:
 1217       %FINISH
 1218       %IF atom flags&spec # 0 %START;            !a spec has been given
 1219          %IF d = lab %START;                     !define label
				li	a5,3
				beq	s6,a5,.L159
		.L124:
		.LBB362:
 1220             t_flags <- t_Flags-Spec
				lhu	a5,220(s0)
				addw	a5,a5,-128
				sh	a5,220(s0)
 1221             %RETURN
				j	.L93
		.L125:
		.LVL199:
		.L128:
 1222          %FINISH
 1223          %IF 7 <= decl&15 <= 10 %AND decl&spec = 0 %START
 1224
 1225             !procedure definition after spec
 1226
				lui	a5,%hi(DECL.6079)
				lw	a5,%lo(DECL.6079)(a5)
		.LVL196:
				and	a4,a5,15
				addw	a4,a4,-7
				li	a3,3
				bgtu	a4,a3,.L128
		.LBE362:
 1227             %IF (decl!!atom flags)&b'1111111' = 0 %START;  !correct type?
				lui	a4,%hi(ATOMFLAGS.6084)
				lw	a4,%lo(ATOMFLAGS.6084)(a4)
				xor	a5,a5,a4
		.LVL197:
				and	a5,a5,1
				bnez	a5,.L127
 1228                t_flags = t_flags-spec
				lhu	a5,220(s0)
				addw	a5,a5,-128
				sh	a5,220(s0)
 1229                spec given = 1
				lui	a5,%hi(SPECGIVEN.6081)
				li	a4,1
				sw	a4,%lo(SPECGIVEN.6081)(a5)
 1230                %RETURN
				and	a4,a5,1
				bnez	a4,.L129
				j	.L93
		.LVL198:
		.L158:
 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
				and	a5,a5,1
		.LVL200:
				bnez	a5,.L129
		.L127:
 1238             t_flags = record<<4+recfm
				li	a5,68
				sh	a5,220(s0)
 1239             t_format = fdef
				lui	a5,%hi(FDEF.6096)
				lw	a5,%lo(FDEF.6096)(a5)
				sw	a5,216(s0)
 1240             %RETURN
				j	.L93
		.L126:
		.L129:
 1241          %FINISH
 1242       %FINISH
 1243       %RETURN %IF last1 = jump %AND atom1 = swit
				lui	a5,%hi(LAST1.6087)
				lw	a4,%lo(LAST1.6087)(a5)
				li	a5,54
				beq	a4,a5,.L160
		.L130:
 1244       copy = x %IF copy = 0
				lui	a5,%hi(COPY.6116)
				lw	a5,%lo(COPY.6116)(a5)
				bnez	a5,.L121
				lui	a5,%hi(ATOM1.6056)
				lw	a4,%lo(ATOM1.6056)(a5)
				li	a5,105
				bne	a4,a5,.L130
				j	.L93
		.LVL201:
		.L150:
				lui	a5,%hi(X.6055)
				sw	a3,%lo(X.6055)(a5)
				j	.L131
		.LVL202:
		.L155:
 1245
				lui	a5,%hi(X.6055)
				lw	a4,%lo(X.6055)(a5)
				lui	a5,%hi(COPY.6116)
				sw	a4,%lo(COPY.6116)(a5)
				j	.L121
		.L160:
 1246 notin:app = 0;  vid = 0
 1247       atom1 = error+2
				lui	a5,%hi(APP.6060)
				sw	zero,%lo(APP.6060)(a5)
		.LVL154:
				lui	a4,%hi(ATOM1.6056)
				li	a5,32768
				addw	a5,a5,2
				sw	a5,%lo(ATOM1.6056)(a4)
				lui	a5,%hi(APP.6060)
				sw	zero,%lo(APP.6060)(a5)
		.LVL183:
		.L132:
 1248
				li	a0,0
 1249       %return %if d = 0;                         !old name wanted
				bnez	s6,.L132
		.LVL155:
		.L93:
 1250       type = d>>4&7;  form = d&15;  atom1 = amap(form)
				srlw	a5,s6,4
				and	a5,a5,7
				lui	a4,%hi(TYPE.6059)
				sw	a5,%lo(TYPE.6059)(a4)
 1251
				and	a5,s6,15
		.LVL184:
 1252       %IF this < 0 %START;                       !normal scope
				ld	a4,0(s2)
				ld	a2,0(a4)
				ld	a3,8(a2)
				add	a1,a3,a5
				li	a4,36864
				add	a4,a4,a1
				lbu	a1,2038(a4)
				lui	a4,%hi(ATOM1.6056)
				sw	a1,%lo(ATOM1.6056)(a4)
				lui	a4,%hi(THIS.6097)
				lw	a4,%lo(THIS.6097)(a4)
				bltz	a4,.L155
		.L133:
		.LVL185:
 1253          new = newname
 1254          tmax = tmax+1;  x = tmax
				lw	a4,64(a2)
				addw	a4,a4,1
				sw	a4,64(a2)
 1255       %FINISH %ELSE %START;                      !recordformat scope
				ld	a4,0(s2)
				ld	a4,0(a4)
				lw	a3,64(a4)
				lui	a4,%hi(X.6055)
				sw	a3,%lo(X.6055)(a4)
				mv	a4,s7
				j	.L134
		.LVL203:
		.L156:
 1256          new = -1
				li	a4,-1
		.LVL187:
		.L134:
		.LBB361:
 1257          recid = recid-1;  vid = recid
				lw	a4,204(a3)
				addw	a4,a4,-1
				sw	a4,204(a3)
 1258          tmin = tmin-1;  x = tmin
				ld	a4,0(s2)
				ld	a4,0(a4)
				ld	a4,8(a4)
				lw	a0,204(a4)
		.LVL186:
				lui	a3,%hi(TMIN.6104)
				lw	a4,%lo(TMIN.6104)(a3)
				addw	a4,a4,-1
				sw	a4,%lo(TMIN.6104)(a3)
 1259          format list = tmin
				lui	a3,%hi(X.6055)
				sw	a4,%lo(X.6055)(a3)
				lui	a3,%hi(FORMATLIST.6128)
				sw	a4,%lo(FORMATLIST.6128)(a3)
 1260       %FINISH
 1261
 1262       %IF 11 <= form <= 14 %START;               !arrays
 1263          dim = 1 %IF dim = 0;                    !set dim for owns
				lui	a3,%hi(DIM.6080)
				lw	a3,%lo(DIM.6080)(a3)
				bnez	a3,.L136
 1264          app = dim
				lui	a3,%hi(DIM.6080)
				li	a2,1
				sw	a2,%lo(DIM.6080)(a3)
		.L136:
				lui	a3,%hi(DIM.6080)
				lw	a2,%lo(DIM.6080)(a3)
				lui	a3,%hi(APP.6060)
				sw	a2,%lo(APP.6060)(a3)
		.L135:
		.LDL11:
 1265       %FINISH
				addw	a3,a5,-11
				li	a2,3
				bgtu	a3,a2,.L135
		.LBE361:
 1266
 1267       d = d!used bit %IF (otype > 2 %AND d&spec = 0) %OR perm # 0 %OR %C
 1268                          Level = Include Level
 1269
 1270       !external definitions need not be used in the file in which
				lui	a3,%hi(PERM.6110)
				lw	a3,%lo(PERM.6110)(a3)
				bnez	a3,.L137
 1271       !they are defined, so inhibit a useless unused warning.
				ld	a3,0(s2)
				ld	a3,0(a3)
				lui	a2,%hi(INCLUDELEVEL.6108)
				lw	a2,%lo(INCLUDELEVEL.6108)(a2)
				lw	a3,60(a3)
				bne	a2,a3,.L138
		.L137:
 1272
 1273       t == tag(x)
				li	a3,32768
				or	s6,s6,a3
		.LVL188:
		.L138:
				lui	a3,%hi(X.6055)
				lw	a3,%lo(X.6055)(a3)
				ld	a2,0(s2)
				ld	a1,0(a2)
				ld	a2,8(a1)
		.LVL189:
 1274       %IF form = lab %START
				li	a6,3
				beq	a5,a6,.L156
		.LVL190:
		.L139:
				sll	a5,a3,4
				add	a5,a2,a5
 1275          id = id+1;  vid = id
				lw	a5,56(a1)
		.LVL204:
				addw	a5,a5,1
				sw	a5,56(a1)
 1276       %FINISH
				ld	a5,0(s2)
				ld	a5,0(a5)
				lw	a0,56(a5)
		.LVL205:
				j	.L139
		.LVL206:
		.L157:
 1277       t_index = vid
				sh	a0,222(a5)
 1278       t_text   = new name
				sh	s7,224(a5)
 1279       t_flags <- d
				sh	s6,220(a5)
 1280       t_app    = app
				lui	a1,%hi(APP.6060)
				lw	a1,%lo(APP.6060)(a1)
				sw	a1,212(a5)
 1281       t_format = fdef;  format = fdef
				lui	a1,%hi(FDEF.6096)
				lw	a1,%lo(FDEF.6096)(a1)
				sw	a1,216(a5)
 1282       subatom = x
				lui	a0,%hi(FORMAT.6061)
		.LVL191:
				sw	a1,%lo(FORMAT.6061)(a0)
				lui	a1,%hi(SUBATOM.6058)
				sw	a3,%lo(SUBATOM.6058)(a1)
 1283
 1284       %IF new >= 0 %START;                             !insert into hash table
				bltz	a4,.L141
 1285          t_link = dict(new);  dict(new) = x
				addw	a4,a4,-1
		.LVL192:
				ld	a1,0(s2)
				ld	a1,0(a1)
				ld	a1,8(a1)
				li	a0,12288
				add	a0,a0,1128
				add	a4,a4,a0
				sll	a4,a4,1
				add	a1,a1,a4
				lh	a1,4(a1)
				sh	a1,226(a5)
 1286          %IF gmin = max grammar %START;                !proc param params
				ld	a5,0(s2)
				ld	a5,0(a5)
				ld	a5,8(a5)
				add	a4,a5,a4
				sh	a3,4(a4)
				lui	a5,%hi(GMIN.6102)
				lw	a4,%lo(GMIN.6102)(a5)
				li	a5,1720
				beq	a4,a5,.L157
		.L140:
		.LVL193:
		.L141:
 1287             tmin = tmin-1;  subatom = tmin
				lui	a1,%hi(TMIN.6104)
				lw	a4,%lo(TMIN.6104)(a1)
				addw	a4,a4,-1
				sext.w	a5,a4
				sw	a4,%lo(TMIN.6104)(a1)
 1288             tag(tmin) = t
				lui	a1,%hi(SUBATOM.6058)
				sw	a4,%lo(SUBATOM.6058)(a1)
				ld	a4,0(s2)
				ld	a4,0(a4)
				ld	a4,8(a4)
				add	a5,a5,13
				sll	a5,a5,4
				add	a4,a4,a5
				add	a5,a3,13
				sll	a5,a5,4
				add	a5,a2,a5
				lw	a3,4(a5)
		.LVL207:
				sw	a3,4(a4)
				lw	a3,8(a5)
				sw	a3,8(a4)
				lw	a3,12(a5)
				sw	a3,12(a4)
				lw	a5,16(a5)
				sw	a5,16(a4)
				j	.L141
		.LVL208:
		.L149:
 1289          %FINISH
 1290       %FINISH
 1291       abandon(3) %IF tmax >= tmin
				ld	a5,0(s2)
				ld	a5,0(a5)
				lui	a4,%hi(TMIN.6104)
				lw	a3,%lo(TMIN.6104)(a4)
				lw	a4,64(a5)
				bgt	a3,a4,.L93
 1292    %END
				ld	t2,8(a5)
				li	a0,3
				call	ABANDON.6184
		.LVL194:
		.L112:
				j	.L93
		.LVL195:
		.L154:
		.L122:
 1293
				ld	a4,776(sp)
				lui	a5,%hi(__stack_chk_guard)
				ld	a5,%lo(__stack_chk_guard)(a5)
				bne	a4,a5,.L149
				ld	ra,856(sp)
				ld	s0,848(sp)
				ld	s1,840(sp)
				ld	s2,832(sp)
				ld	s3,824(sp)
				ld	s4,816(sp)
				ld	s5,808(sp)
				ld	s6,800(sp)
				ld	s7,792(sp)
		.LVL156:
				ld	s8,784(sp)
				add	sp,sp,864
				jr	ra
		.LVL157:
		.L148:
				call	__stack_chk_fail
		.LVL209:
		.LFE205:
				.align	1
		GETSYM.6571:
		.LFB201:
 1294
 1295
 1296 top:  pos1 = pos
 1297       subatom = 0;  pend quote = 0;  atom flags = 0
				lui	a5,%hi(POS.6123)
				lw	a4,%lo(POS.6123)(a5)
				lui	a5,%hi(POS1.6121)
				sw	a4,%lo(POS1.6121)(a5)
				lui	a5,%hi(SUBATOM.6058)
				sw	zero,%lo(SUBATOM.6058)(a5)
		.LVL251:
				lui	s10,%hi(POS1.6121)
				lui	s8,%hi(POS.6123)
				lui	s7,%hi(SUBATOM.6058)
				lw	a5,%lo(POS.6123)(s8)
				sw	a5,%lo(POS1.6121)(s10)
				sw	zero,%lo(SUBATOM.6058)(s7)
 1298
				li	s1,0
		.LVL260:
		.L264:
				li	s1,0
		.LVL270:
		.L245:
 1299       !app and format must be left for assigning to papp & pformat
				lui	a5,%hi(ATOMFLAGS.6084)
				sw	zero,%lo(ATOMFLAGS.6084)(a5)
				lui	s6,%hi(ATOMFLAGS.6084)
				j	.L237
		.LVL252:
		.L233:
				sw	zero,%lo(ATOMFLAGS.6084)(s6)
 1300
 1301       ->name %IF symtype = -2;                   !letter
				lui	a5,%hi(SYMTYPE.6074)
				lw	a5,%lo(SYMTYPE.6074)(a5)
				li	a4,-2
				beq	a5,a4,.L231
				lui	a5,%hi(SYMTYPE.6074)
				lw	a5,%lo(SYMTYPE.6074)(a5)
				li	a4,-2
				beq	a5,a4,.L231
		.L238:
 1302       ->number %IF symtype < 0;                  !digit
				bltz	a5,.L232
				bltz	a5,.L232
		.L239:
 1303       %IF symtype = 0 %START
				beqz	a5,.L233
				beqz	a5,.L233
		.L240:
 1304          atom1 = termin;  atom2 = 0
				lui	a5,%hi(ATOM1.6056)
				li	a4,20
				sw	a4,%lo(ATOM1.6056)(a5)
 1305          %RETURN
				lui	a5,%hi(ATOM2.6057)
				sw	zero,%lo(ATOM2.6057)(a5)
				j	.L230
		.L235:
 1306       %FINISH
 1307       %IF symtype # 2 %START;                    !catch keywords here
				li	a4,2
				beq	a5,a4,.L247
				li	a4,2
				beq	a5,a4,.L247
 1308          ->text %IF quote # 0;                   !completion of text
				lui	a5,%hi(QUOTE.6075)
				lw	a5,%lo(QUOTE.6075)(a5)
				beqz	a5,.L235
				lw	a5,%lo(QUOTE.6075)(s4)
				beqz	a5,.L235
		.L242:
 1309          ->strings %IF sym = squote;             !start of string
				lui	a5,%hi(SYM.6073)
				lw	a5,%lo(SYM.6073)(a5)
				li	a4,34
				beq	a5,a4,.L243
		.L244:
 1310          ->symbols %IF sym = cquote;             !start of symbol
				li	a4,39
				beq	a5,a4,.L298
		.L246:
 1311          ->number %IF sym = '.' %AND '0' <= nextsymbol <= '9'
				li	a4,46
				beq	a5,a4,.L305
		.L234:
		.L247:
 1312       %FINISH
 1313
 1314                                                  !locate atom in fixed dict
 1315       k = key>>2;  read sym
				lui	a5,%hi(KEY.6531)
				lw	s1,%lo(KEY.6531)(a5)
				srlw	s1,s1,2
				sext.w	s1,s1
		.LVL253:
				addw	a0,a0,-48
				li	a5,9
				bgtu	a0,a5,.L247
		.L232:
		.LBE388:
 1316       %CYCLE
				mv	t2,s0
				call	READSYM.6576
		.LVL254:
		.LDL12:
 1317          j = kdict(k)
				ld	a5,0(s0)
				sll	s1,s1,1
		.LVL255:
				ld	a5,8(a5)
				add	s1,a5,s1
				li	a5,24576
				add	a5,s1,a5
				lh	a5,1044(a5)
		.LVL256:
		.LDL13:
 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	a4,a5,127
				sext.w	a3,a4
				lui	a2,%hi(ATOM1.6056)
				sw	a4,%lo(ATOM1.6056)(a2)
 1335       %IF atom1 = 0 %START;                      !comma
				bnez	a3,.L248
 1336          atom1 = 19;  subatom = 19;  atom2 = 0
				li	a5,19
		.LVL257:
				sw	a5,%lo(ATOM1.6056)(a2)
 1337          %IF sym = nl %START
				lui	a4,%hi(SUBATOM.6058)
				sw	a5,%lo(SUBATOM.6058)(a4)
				lui	a5,%hi(SYM.6073)
				lw	a4,%lo(SYM.6073)(a5)
				li	a5,10
				bne	a4,a5,.L230
 1338             %RETURN %IF ocount >= 0
				lui	a5,%hi(ATOM2.6057)
				sw	zero,%lo(ATOM2.6057)(a5)
				lui	a5,%hi(OCOUNT.6114)
				lw	a5,%lo(OCOUNT.6114)(a5)
				bgez	a5,.L230
		.L249:
 1339
 1340             !special action needs to be taken with <comma nl> as
 1341             !const array lists can be enormous
 1342
 1343             read sym
				mv	t2,s0
				call	READSYM.6576
		.LVL258:
				j	.L230
		.L305:
		.LBB388:
		.LBB389:
		.LBB390:
				call	_imp_nextsymbol
		.LVL259:
		.LBE390:
		.LBE389:
 1344          %FINISH
 1345          %RETURN
 1346       %FINISH
 1347       atom2 = j>>7&127
				srlw	a5,a5,7
		.LVL265:
				and	a5,a5,127
				lui	a4,%hi(ATOM2.6057)
				sw	a5,%lo(ATOM2.6057)(a4)
 1348       subatom = kdict(k+1)&x'3fff'
				li	a5,24576
		.LVL266:
				add	s1,s1,a5
		.LVL267:
				lhu	a4,1046(s1)
				li	a5,16384
		.LVL268:
				add	a5,a5,-1
				and	a5,a5,a4
				lui	a4,%hi(SUBATOM.6058)
				sw	a5,%lo(SUBATOM.6058)(a4)
 1349       !!!!!cont = ' '
 1350       %RETURN
				j	.L230
		.LVL269:
		.L298:
 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
				lui	a4,%hi(ATOM1.6056)
				li	a5,32768
				addw	a5,a5,1
				sw	a5,%lo(ATOM1.6056)(a4)
				lui	a5,%hi(POS.6123)
				lw	a4,%lo(POS.6123)(a5)
				lui	a5,%hi(POS1.6121)
				lw	a5,%lo(POS1.6121)(a5)
				subw	a5,a4,a5
				li	a3,2
				ble	a5,a3,.L230
 1358       %RETURN
				lui	a5,%hi(ATOM2.6057)
				sw	zero,%lo(ATOM2.6057)(a5)
				lui	a5,%hi(POS1.6121)
				sw	a4,%lo(POS1.6121)(a5)
				j	.L230
		.LVL317:
		.L318:
 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
				lui	a5,%hi(ATOM1.6056)
				li	a4,91
				sw	a4,%lo(ATOM1.6056)(a5)
				lui	a4,%hi(MAPGG.6095)
				sw	a5,%lo(MAPGG.6095)(a4)
 1366         subatom = lp;  abandon(3) %IF lp >= lit max
				li	a5,93
				lui	a4,%hi(ATOM2.6057)
				sw	a5,%lo(ATOM2.6057)(a4)
				lui	a5,%hi(LP.6133)
				lw	a5,%lo(LP.6133)(a5)
				lui	a4,%hi(SUBATOM.6058)
				sw	a5,%lo(SUBATOM.6058)(a4)
 1367         quote = \pend quote
				lui	a4,%hi(TYPE.6059)
				li	a3,1
				sw	a3,%lo(TYPE.6059)(a4)
				li	a4,49
				bgt	a5,a4,.L307
		.L252:
				not	s1,s1
		.LVL271:
				lui	a5,%hi(QUOTE.6075)
				sw	s1,%lo(QUOTE.6075)(a5)
 1368         %RETURN
				j	.L230
		.LVL272:
		.L307:
				ld	a5,0(s0)
				ld	t2,8(a5)
				li	a0,3
				call	ABANDON.6184
		.LVL273:
				j	.L252
		.LVL274:
		.L309:
		.L255:
 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
				sw	zero,20(sp)
 1375          read sym
				lui	s2,%hi(CONT.6077)
				li	s5,39
				sw	s5,%lo(CONT.6077)(s2)
		.LDL15:
				mv	t2,s0
				call	READSYM.6576
		.LVL278:
 1376          %IF sym = cquote %START
				lui	s1,%hi(SYM.6073)
				lw	a4,%lo(SYM.6073)(s1)
				li	a5,39
				bne	a4,a5,.L253
		.LBB391:
		.LBB392:
				call	_imp_nextsymbol
		.LVL279:
		.LBE392:
		.LBE391:
 1377             %EXIT %IF nextsymbol # cquote
				li	a5,39
				beq	a0,a5,.L309
		.L254:
 1378             read sym
				mv	t2,s0
				call	READSYM.6576
		.LVL275:
		.L253:
 1379          %FINISH
 1380          %IF n&(\((-1)>>byte size)) # 0 %START; ! overflow
 1381             pos1 = pos;  atom1 = error+10;  %RETURN
				lui	a5,%hi(POS.6123)
				lw	a4,%lo(POS.6123)(a5)
				lui	a5,%hi(POS1.6121)
				sw	a4,%lo(POS1.6121)(a5)
 1382          %FINISH
				lui	a4,%hi(ATOM1.6056)
				li	a5,32768
				addw	a5,a5,10
				sw	a5,%lo(ATOM1.6056)(a4)
		.LVL276:
		.L230:
 1383          ->err %IF quote = 0
 1384          n = n<<byte size+sym
 1385          quote = quote+1
 1386       %REPEAT
 1387       quote = 0;  cont = ' '
				lui	s4,%hi(QUOTE.6075)
				sw	zero,%lo(QUOTE.6075)(s4)
 1388       readsym %IF sym # nl
				li	a5,32
				sw	a5,%lo(CONT.6077)(s2)
				lw	a4,%lo(SYM.6073)(s1)
				li	a5,10
				beq	a4,a5,.L256
 1389       lit pool(lp) = n;  lp = lp+1
				lui	s3,%hi(LP.6133)
				lw	a5,%lo(LP.6133)(s3)
				ld	a4,0(s0)
				ld	a4,8(a4)
				lw	a3,20(sp)
				sll	a2,a5,2
				add	a4,a4,a2
				sw	a3,0(a4)
				mv	t2,s0
				call	READSYM.6576
		.LVL280:
				j	.L256
		.L243:
 1390       ->top
				addw	a5,a5,1
				sw	a5,%lo(LP.6133)(s3)
		.LDL14:
 1391
 1392         !sniff the grammar before getting the string
 1393
 1394 strings:atom1 = var;  atom2 = const;  type = stringv
 1395         subatom = (strp-stbase)!x'4000'
				lui	a5,%hi(ATOM1.6056)
				li	a4,91
				sw	a4,%lo(ATOM1.6056)(a5)
				lw	a5,8(s0)
				lui	a3,%hi(STBASE.6101)
				lw	a3,%lo(STBASE.6101)(a3)
				subw	a5,a5,a3
				li	a3,16384
				or	a5,a5,a3
				sext.w	a5,a5
				lui	a3,%hi(SUBATOM.6058)
				sw	a5,%lo(SUBATOM.6058)(a3)
 1396         map gg = const;  protection = prot
				li	a4,93
				lui	a5,%hi(ATOM2.6057)
				sw	a4,%lo(ATOM2.6057)(a5)
				lui	a3,%hi(MAPGG.6095)
				sw	a4,%lo(MAPGG.6095)(a3)
 1397         quote = subatom
				lui	a5,%hi(TYPE.6059)
				li	a3,3
				sw	a3,%lo(TYPE.6059)(a5)
				lui	a4,%hi(QUOTE.6075)
				sw	a5,%lo(QUOTE.6075)(a4)
 1398         text line = lines;                         !in case of errors
				lui	a5,%hi(LINES.6065)
				lw	a4,%lo(LINES.6065)(a5)
				lui	a5,%hi(TEXTLINE.6066)
				sw	a4,%lo(TEXTLINE.6066)(a5)
 1399         %RETURN
				j	.L230
		.L236:
 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
				bgez	a5,.L236
				bgez	a5,.L236
		.L237:
				lw	s1,8(s0)
		.LVL281:
 1406       j = addr(glink(gmin-1));                     !absolute limit
				sw	s1,20(sp)
		.LVL282:
				lui	a5,%hi(GMIN.6102)
				lw	a5,%lo(GMIN.6102)(a5)
				addw	a5,a5,-1
				sll	a5,a5,1
				lui	a4,%hi(GLINK.6149)
				addi	a4,a4,%lo(GLINK.6149)
				add	a5,a5,a4
				mv	s4,a5
				sext.w	a5,a5
				sext.w	a4,a3
				ble	a5,a4,.L257
				mv	s4,a3
		.L257:
				sext.w	s4,s4
		.LDL16:
		.LDL17:
		.LDL18:
 1407       k = l+256;                                   !string length limit
				addw	a3,s1,256
		.LVL283:
 1408       k = j %IF j < k;                             !choose lower
 1409
 1410       %CYCLE
 1411          cont = squote;  quote = 1
				lui	s8,%hi(CONT.6077)
				li	s11,34
				sw	s11,%lo(CONT.6077)(s8)
 1412          %CYCLE
				lui	s7,%hi(QUOTE.6075)
				li	s10,1
				sw	s10,%lo(QUOTE.6075)(s7)
 1413             read sym
				mv	t2,s0
				call	READSYM.6576
		.LVL291:
 1414             %IF sym = squote %START;               !terminator?
				lui	s2,%hi(SYM.6073)
				li	s3,34
		.LVL290:
		.L258:
				lw	a5,%lo(SYM.6073)(s2)
				beq	a5,s3,.L310
		.L259:
 1415                %EXIT %IF nextsymbol # squote;      !yes ->
				bne	a0,s3,.L260
		.L261:
 1416                read sym;                           ! skip quote
				mv	t2,s0
				call	READSYM.6576
		.LVL286:
				j	.L259
		.L260:
 1417             %FINISH
 1418             l = l+1;  byteinteger(l) = sym
				addw	s1,s1,1
		.LVL292:
 1419             lines = text line %AND abandon(7) %IF l >= k; !too many chars
				lw	a5,%lo(SYM.6073)(s2)
				sb	a5,0(s1)
				blt	s1,s4,.L258
 1420          %REPEAT
				lui	s6,%hi(LINES.6065)
				lui	s5,%hi(TEXTLINE.6066)
				j	.L263
		.LVL284:
		.L310:
		.LBB393:
		.LBB394:
				call	_imp_nextsymbol
		.LVL285:
		.LBE394:
		.LBE393:
				lw	a5,%lo(TEXTLINE.6066)(s5)
				sw	a5,%lo(LINES.6065)(s6)
 1421          byteinteger(n) = l-n;                            !plug in length
				lw	a5,20(sp)
				subw	a4,s1,a5
				sb	a4,0(a5)
				ld	a5,0(s0)
				ld	t2,8(a5)
				li	a0,7
				call	ABANDON.6184
		.LVL293:
				j	.L258
		.LVL294:
		.L306:
 1422
 1423          strp = l+1;                                      !ready for next string
				addw	a5,s1,1
				sw	a5,8(s0)
 1424          quote = 0;  cont = ' ';  read sym
				sw	zero,%lo(QUOTE.6075)(s7)
 1425          code atom(target)
				li	a5,32
				sw	a5,%lo(CONT.6077)(s8)
				mv	t2,s0
				mv	a0,s9
				call	CODEATOM.6616
		.LVL288:
 1426          %RETURN %UNLESS atom1 = 48 %AND sym = squote;    !fold "???"."+++"
				mv	t2,s0
				call	READSYM.6576
		.LVL287:
				lui	a5,%hi(ATOM1.6056)
				lw	a4,%lo(ATOM1.6056)(a5)
				li	a5,48
				bne	a4,a5,.L230
 1427       %REPEAT
				lw	a4,%lo(SYM.6073)(s2)
				li	a5,34
				bne	a4,a5,.L230
		.LVL289:
		.L263:
 1428
 1429       %ROUTINE get(%INTEGER limit)
		.LVL239:
				add	sp,sp,-80
				sd	ra,72(sp)
				sd	s0,64(sp)
				sd	s1,56(sp)
				sd	s2,48(sp)
				sd	s3,40(sp)
				sd	s4,32(sp)
				sd	s5,24(sp)
				sd	s6,16(sp)
				sd	s7,8(sp)
				sd	s8,0(sp)
				mv	s4,a0
				mv	s0,t2
		.LVL240:
 1430          %INTEGER s, shift
 1431          shift = 0
				li	s2,0
				seqz	s2,s2
		.L207:
		.L210:
		.L211:
		.L212:
		.LVL241:
 1432          %IF base # 10 %START
				lw	a5,16(t2)
				li	a4,10
				beq	a5,a4,.L212
 1433             %IF base = 16 %START
				li	a4,16
				beq	a5,a4,.L212
		.L208:
 1434                shift = 4
				li	s2,4
 1435             %FINISH %ELSE %START
 1436                %IF base = 8 %START
				li	a4,8
				beq	a5,a4,.L212
		.L209:
 1437                   shift = 3
				li	s2,3
 1438                %FINISH %ELSE %START
 1439                   %IF base = 2 %START
				add	s2,a5,-2
 1440                      shift = 1
 1441                   %FINISH
 1442                %FINISH
 1443             %FINISH
 1444          %FINISH
 1445          n = 0
				sw	zero,12(s0)
 1446          %CYCLE
 1447             %IF symtype = -1 %START;            !digit
				lui	s3,%hi(SYMTYPE.6074)
				lw	a5,%lo(SYMTYPE.6074)(s3)
				li	a4,-1
				beq	a5,a4,.L228
		.L214:
 1448                s = sym-'0'
				lw	a5,%lo(SYM.6073)(s1)
				addw	a5,a5,-48
		.LVL243:
 1449             %FINISH %ELSE %START
				j	.L217
		.LVL244:
		.L229:
 1450                %IF symtype < 0 %START;          !letter
				bgez	a5,.L206
 1451                   s = sym-'A'+10
				lui	s1,%hi(SYM.6073)
				lw	a5,%lo(SYM.6073)(s1)
				addw	a5,a5,-55
		.LVL247:
		.L215:
		.L217:
 1452                %FINISH %ELSE %START
 1453                   %RETURN
 1454                %FINISH
 1455             %FINISH
 1456             %RETURN %IF s >= limit
				bge	a5,s4,.L206
		.L218:
 1457             pt = pt+1;  byteinteger(pt) = sym
				lw	a4,8(s0)
				addw	a4,a4,1
				sext.w	a3,a4
				sw	a4,8(s0)
 1458             %IF base = 10 %START;            !check overflow
				lw	a4,%lo(SYM.6073)(s1)
				sb	a4,0(a3)
				lw	a3,16(s0)
				li	a4,10
				beq	a3,a4,.L229
		.L219:
		.L221:
 1459                %IF n >= max int %AND (s > max dig %OR n > max int) %START
				li	s5,214749184
				add	s6,s5,-821
				lw	a4,12(s0)
				ble	a4,s6,.L221
 1460
				li	a3,7
				bgt	a5,a3,.L220
 1461                   !too big for an integer,
				add	s5,s5,-820
				j	.L213
		.LVL242:
		.L228:
				ble	a4,s5,.L221
		.L220:
 1462                   !so call it a real
 1463
 1464                   base = 0;  type = real;  n = 0
				sw	zero,16(s0)
 1465                %FINISH
				lui	s8,%hi(TYPE.6059)
				li	s7,2
				sw	s7,%lo(TYPE.6059)(s8)
 1466             %FINISH
				sw	zero,12(s0)
				j	.L221
		.L222:
 1467             %IF shift = 0 %START
				bnez	s2,.L222
 1468                n = n*base+s
				lw	a4,12(s0)
				lw	a3,16(s0)
				mulw	a4,a4,a3
				addw	a5,a4,a5
		.LVL248:
				sw	a5,12(s0)
 1469             %FINISH %ELSE %START
				j	.L223
		.L216:
		.L206:
 1470                n = n<<shift+s
				lw	a4,12(s0)
				sllw	a4,a4,s2
				addw	a5,a4,a5
		.LVL245:
				sw	a5,12(s0)
		.L223:
 1471             %FINISH
 1472             read sym
				ld	t2,0(s0)
				call	READSYM.6576
		.LVL246:
		.L213:
 1473          %REPEAT
 1474       %END
				ld	ra,72(sp)
				ld	s0,64(sp)
				ld	s1,56(sp)
				ld	s2,48(sp)
		.LVL249:
				ld	s3,40(sp)
				ld	s4,32(sp)
				ld	s5,24(sp)
				ld	s6,16(sp)
				ld	s7,8(sp)
				ld	s8,0(sp)
				add	sp,sp,80
				jr	ra
		.LFE206:
				.align	1
		CODEATOM.6616:
		.LFB204:
 1475
 1476 number:base = 10
 1477 bxk:   atom1 = var;  atom2 = const;  type = integer;  subatom = lp
				li	a5,10
				sw	a5,24(sp)
 1478        map gg = const;  protection = prot
				lui	a5,%hi(ATOM1.6056)
				li	a4,91
				sw	a4,%lo(ATOM1.6056)(a5)
				lui	a3,%hi(MAPGG.6095)
				sw	a4,%lo(MAPGG.6095)(a3)
 1479        abandon(3) %IF lp >= lit max
				li	a4,93
				lui	a5,%hi(ATOM2.6057)
				sw	a4,%lo(ATOM2.6057)(a5)
				li	a4,49
				bgt	a5,a4,.L306
		.L265:
 1480        pt = strp;  mul = 0
				lui	a5,%hi(TYPE.6059)
				li	a3,1
				sw	a3,%lo(TYPE.6059)(a5)
				lw	a5,8(s0)
				sw	a5,16(sp)
		.LVL261:
				ld	a5,0(s0)
				ld	t2,8(a5)
				li	a0,3
				call	ABANDON.6184
		.LVL295:
				j	.L265
		.L267:
		.LVL296:
		.L270:
 1481        %CYCLE
				lui	a5,%hi(LP.6133)
				lw	a5,%lo(LP.6133)(a5)
				lui	a3,%hi(SUBATOM.6058)
				sw	a5,%lo(SUBATOM.6058)(a3)
 1482           get(base)
				add	t2,sp,8
				lw	a0,24(sp)
				call	GET.6743
		.LVL262:
 1483           %EXIT %UNLESS sym = '_' %AND base # 0 %AND pend quote = 0;    !change of base
				lui	s3,%hi(SYM.6073)
				li	s2,95
				lw	a5,%lo(SYM.6073)(s3)
				bne	a5,s2,.L270
 1484           pt = pt+1;  byteinteger(pt) = '_'
				lw	a5,24(sp)
				beqz	a5,.L268
				lw	a5,16(sp)
				addw	a5,a5,1
				sext.w	a4,a5
				sw	a5,16(sp)
 1485           read sym
				li	s4,95
		.L266:
				bnez	s1,.L250
		.L269:
				sb	s4,0(a4)
				mv	t2,s0
				call	READSYM.6576
		.LVL263:
 1486           base = n
				lw	a5,20(sp)
				sw	a5,24(sp)
 1487        %REPEAT
				j	.L266
		.LVL264:
		.L248:
 1488
 1489        %IF pend quote # 0 %START
				bnez	s1,.L311
		.L271:
				bnez	s1,.L250
		.L274:
 1490           ->err %IF sym # cquote
				li	a4,39
				bne	a5,a4,.L250
		.L272:
 1491           readsym
				mv	t2,s0
				call	READSYM.6576
		.LVL302:
				j	.L271
		.L312:
 1492        %FINISH
 1493        %IF sym = '.' %START;                        !a real constant
				lui	a5,%hi(SYM.6073)
				lw	a4,%lo(SYM.6073)(a5)
				li	a5,46
				beq	a4,a5,.L312
		.L273:
 1494           pt = pt+1;  byteinteger(pt) = '.'
				lw	a5,16(sp)
				addw	a5,a5,1
				sext.w	a4,a5
				sw	a5,16(sp)
 1495           read sym
				li	a5,46
				sb	a5,0(a4)
				mv	t2,s0
				call	READSYM.6576
		.LVL303:
 1496           type = real;  n = base;  base = 0;  get(n)
				lui	a5,%hi(TYPE.6059)
				li	a4,2
				sw	a4,%lo(TYPE.6059)(a5)
 1497        %FINISH
				lw	a0,24(sp)
				sw	a0,20(sp)
 1498
				sw	zero,24(sp)
 1499        %IF sym = '@' %START;                        !an exponent
				lui	a5,%hi(SYM.6073)
				lw	a4,%lo(SYM.6073)(a5)
				li	a5,64
				bne	a4,a5,.L274
				add	t2,sp,8
				call	GET.6743
		.LVL304:
				j	.L273
		.LVL305:
		.L313:
 1500           pt = pt+1;  byteinteger(pt) = '@';  k = pt
				lw	a5,16(sp)
				addw	a5,a5,1
				sext.w	a4,a5
				sw	a5,16(sp)
 1501           readsym
				li	a5,64
				sb	a5,0(a4)
				mv	t2,s0
				call	READSYM.6576
		.LVL298:
 1502           type = integer;  base = 10
				lw	s1,16(sp)
		.LVL297:
				lui	a5,%hi(TYPE.6059)
				li	a4,1
				sw	a4,%lo(TYPE.6059)(a5)
 1503           %IF sym = '-' %START
				li	a5,10
				sw	a5,24(sp)
				lui	a5,%hi(SYM.6073)
				lw	a4,%lo(SYM.6073)(a5)
				li	a5,45
				beq	a4,a5,.L313
		.L275:
 1504              read sym;  get(10);  n = -n
				mv	t2,s0
				call	READSYM.6576
		.LVL306:
 1505           %FINISH %ELSE %START
				add	t2,sp,8
				li	a0,10
				call	GET.6743
		.LVL307:
				j	.L276
		.LVL308:
		.L231:
		.LBB395:
 1506              get(10)
				add	t2,sp,8
				li	a0,10
				call	GET.6743
		.LVL299:
		.L276:
				lw	a5,20(sp)
				subw	a5,zero,a5
				sw	a5,20(sp)
 1507           %FINISH
 1508           pt = k+1;  byteinteger(pt) = lp;  litpool(lp) = n;  lp = lp+1
				addw	a5,s1,1
				sext.w	a4,a5
				sw	a5,16(sp)
 1509           atom1 = error+10 %IF base = 0
				lui	a3,%hi(LP.6133)
				lw	a5,%lo(LP.6133)(a3)
				sb	a5,0(a4)
				lw	a5,24(sp)
				bnez	a5,.L277
 1510           type = real;                              !exponents force the type
				ld	a4,0(s0)
				ld	a4,8(a4)
				lw	a2,20(sp)
				sll	a1,a5,2
				add	a4,a4,a1
				sw	a2,0(a4)
				lui	a4,%hi(ATOM1.6056)
				li	a5,32768
				addw	a5,a5,10
				sw	a5,%lo(ATOM1.6056)(a4)
		.L277:
				lui	a5,%hi(TYPE.6059)
				li	a4,2
				sw	a4,%lo(TYPE.6059)(a5)
		.LVL300:
		.L278:
 1511        %FINISH
				addw	a5,a5,1
				sw	a5,%lo(LP.6133)(a3)
 1512
 1513        %IF type = real %START
				lui	a5,%hi(TYPE.6059)
				lw	a4,%lo(TYPE.6059)(a5)
				li	a5,2
				beq	a4,a5,.L278
		.L279:
 1514           byteinteger(strp) = pt-strp
				lw	a4,8(s0)
				lw	a5,16(sp)
				subw	a5,a5,a4
				sb	a5,0(a4)
 1515           subatom = (strp-stbase)!x'2000';  strp = pt+1
				lw	a5,8(s0)
				lui	a4,%hi(STBASE.6101)
				lw	a4,%lo(STBASE.6101)(a4)
				subw	a5,a5,a4
				li	a4,8192
				or	a5,a5,a4
				lui	a4,%hi(SUBATOM.6058)
				sw	a5,%lo(SUBATOM.6058)(a4)
 1516        %FINISH %ELSE %START
				lw	a5,16(sp)
				addw	a5,a5,1
				sw	a5,8(s0)
				j	.L230
		.LVL301:
		.L311:
 1517           litpool(lp) = n
				lui	a3,%hi(LP.6133)
				lw	a5,%lo(LP.6133)(a3)
				ld	a4,0(s0)
				ld	a4,8(a4)
				lw	a2,20(sp)
				sll	a1,a5,2
				add	a4,a4,a1
				sw	a2,0(a4)
 1518           lp = lp+1
				addw	a5,a5,1
				sw	a5,%lo(LP.6133)(a3)
				j	.L230
		.LVL324:
		.L308:
 1519        %FINISH
 1520        %RETURN
 1521
 1522 name: atom1 = 0 %AND %RETURN %IF 27 <= target <= 41
 1523       hash value = 0
				ld	a5,0(s0)
				ld	a5,8(a5)
				sw	zero,208(a5)
 1524
 1525       !*****************************
 1526       !*machine dependent for speed*
				addw	a5,s9,-27
				li	a4,14
				bgtu	a5,a4,.L280
		.LBE395:
 1527       !*****************************
 1528
 1529       dp = dmax+1
				lui	a5,%hi(DMAX.6103)
				lw	a5,%lo(DMAX.6103)(a5)
				addw	a3,a5,1
				lui	a4,%hi(DP.6120)
				sw	a3,%lo(DP.6120)(a4)
 1530       da = addr(dict(dp));  dbase = da
				lui	a5,%hi(ATOM1.6056)
				sw	zero,%lo(ATOM1.6056)(a5)
				ld	a3,0(s0)
				li	a4,12288
				add	a4,a4,1130
				add	a5,a5,a4
				sll	a5,a5,1
				ld	s3,8(a3)
				addw	s3,s3,a5
		.LVL309:
				mv	s1,s3
 1531       %CYCLE
				j	.L230
		.L280:
 1532          hash value = hash value+(hash value+sym);        !is this good enough?
				lui	s4,%hi(SYM.6073)
				lw	a4,%lo(SYM.6073)(s4)
				ld	a5,0(s0)
				ld	a3,8(a5)
				lw	a2,208(a3)
				addw	a5,a4,a2
				addw	a5,a5,a2
				sw	a5,208(a3)
 1533          da = da+1;  byteinteger(da) = sym
				addw	s1,s1,1
		.LVL311:
 1534          read sym
				sb	a4,0(s1)
				mv	t2,s0
				call	READSYM.6576
		.LVL312:
 1535          %EXIT %IF symtype >= 0
				lui	s2,%hi(SYMTYPE.6074)
		.L281:
		.LVL310:
		.L303:
		.L282:
				lw	a5,%lo(SYMTYPE.6074)(s2)
				bltz	a5,.L303
		.L283:
 1536       %REPEAT
 1537       %IF sym = cquote %START
				lui	a5,%hi(SYM.6073)
				lw	a4,%lo(SYM.6073)(a5)
				li	a5,39
				beq	a4,a5,.L314
		.L284:
 1538          pend quote = 100
				li	s1,100
				li	s1,100
				li	s1,100
 1539          ->symbols %IF hash value = 'M'
				ld	a5,0(s0)
				ld	a5,8(a5)
				lw	a4,208(a5)
				li	a5,77
				beq	a4,a5,.L245
		.L285:
 1540          read sym
				mv	t2,s0
				call	READSYM.6576
		.LVL315:
 1541          %IF hash value = 'X' %THEN base = 16 %AND ->bxk
				ld	a5,0(s0)
				ld	a5,8(a5)
				lw	a5,208(a5)
				li	a4,88
				beq	a5,a4,.L318
		.L286:
 1542          %IF hash value = 'K' %C
				and	a4,a5,-5
				li	a3,75
				beq	a4,a3,.L319
		.L287:
				li	a5,16
				sw	a5,24(sp)
 1543          %OR hash value = 'O' %THEN base = 8 %AND ->bxk
				j	.L264
		.L319:
		.L288:
 1544          %IF hash value = 'B' %THEN base = 2 %AND ->bxk
				li	a4,66
				beq	a5,a4,.L320
		.LVL316:
		.L250:
		.L251:
 1545          ->err
				li	a5,8
				sw	a5,24(sp)
				li	a5,2
				sw	a5,24(sp)
 1546       %FINISH
				j	.L264
		.L320:
				j	.L264
		.LVL318:
		.L315:
 1547       n = da-dbase
				subw	s1,s1,s3
				sw	s1,20(sp)
 1548       byteinteger(dbase) = n
				sb	s1,0(s3)
 1549       dp = dp+(n+2)>>1
				lw	a5,20(sp)
				addw	a5,a5,2
				srlw	a5,a5,1
				lui	a4,%hi(DP.6120)
				lw	a3,%lo(DP.6120)(a4)
				addw	a5,a5,a3
				sext.w	a3,a5
				sw	a5,%lo(DP.6120)(a4)
 1550       abandon(8) %IF dp >= dmin
				ld	a5,0(s0)
				lw	a4,52(a5)
				ble	a4,a3,.L315
		.L289:
 1551
				ld	t2,8(a5)
				li	a0,8
				call	ABANDON.6184
		.LVL319:
				j	.L289
		.L316:
 1552       atom2 = 90;                                    !ident
				lui	a5,%hi(ATOM2.6057)
				li	a4,90
				sw	a4,%lo(ATOM2.6057)(a5)
 1553       %IF last1 = 0 %AND sym = ':' %START;           !label
				lui	a5,%hi(LAST1.6087)
				lw	a5,%lo(LAST1.6087)(a5)
				bnez	a5,.L290
 1554          limit = local;  lookup(lab);  %RETURN
				lui	a5,%hi(SYM.6073)
				lw	a4,%lo(SYM.6073)(a5)
				li	a5,58
				beq	a4,a5,.L316
		.L291:
				lui	a5,%hi(LOCAL.6125)
				lw	a4,%lo(LOCAL.6125)(a5)
				lui	a5,%hi(LIMIT.6115)
				sw	a4,%lo(LIMIT.6115)(a5)
 1555       %FINISH
				add	t2,sp,8
				li	a0,3
				call	LOOKUP.6629
		.LVL320:
 1556       %IF last1 = jump %START;                       !->label
				j	.L230
		.L290:
				li	a4,54
				bne	a5,a4,.L291
 1557          limit = local;  lookup(lab+spec+used bit);  %RETURN
				lui	a5,%hi(LOCAL.6125)
				lw	a4,%lo(LOCAL.6125)(a5)
				lui	a5,%hi(LIMIT.6115)
				sw	a4,%lo(LIMIT.6115)(a5)
 1558       %FINISH
				add	t2,sp,8
				li	a0,32768
				add	a0,a0,131
				call	LOOKUP.6629
		.LVL321:
 1559       %IF decl # 0 %AND target = 90 %START;          !identifier
				lui	a5,%hi(DECL.6079)
				lw	a0,%lo(DECL.6079)(a5)
				beqz	a0,.L292
				j	.L230
		.L317:
 1560          search base = fm base
				li	a5,90
				beq	s9,a5,.L317
		.L292:
				lui	s0,%hi(SEARCHBASE.6127)
				lui	a5,%hi(FMBASE.6126)
				lw	a5,%lo(FMBASE.6126)(a5)
				sw	a5,%lo(SEARCHBASE.6127)(s0)
 1561          limit = local;  lookup(decl)
				lui	a5,%hi(LOCAL.6125)
				lw	a4,%lo(LOCAL.6125)(a5)
				lui	a5,%hi(LIMIT.6115)
				sw	a4,%lo(LIMIT.6115)(a5)
 1562          search base = 0
				add	t2,sp,8
				call	LOOKUP.6629
		.LVL322:
				sw	zero,%lo(SEARCHBASE.6127)(s0)
 1563       %FINISH %ELSE %START
				j	.L230
		.LVL323:
		.L268:
 1564          limit = 0;  lookup(0)
				lui	a5,%hi(LIMIT.6115)
				sw	zero,%lo(LIMIT.6115)(a5)
 1565       %FINISH
				add	t2,sp,8
				li	a0,0
				call	LOOKUP.6629
		.LVL313:
		.L241:
		.L293:
		.L294:
		.L295:
		.L296:
				j	.L230
		.L314:
		.LVL314:
 1566    %END
 1567
				ld	a4,40(sp)
				lui	a5,%hi(__stack_chk_guard)
				ld	a5,%lo(__stack_chk_guard)(a5)
				bne	a4,a5,.L308
				ld	ra,152(sp)
				ld	s0,144(sp)
				ld	s1,136(sp)
				ld	s2,128(sp)
				ld	s3,120(sp)
				ld	s4,112(sp)
				ld	s5,104(sp)
				ld	s6,96(sp)
				ld	s7,88(sp)
				ld	s8,80(sp)
				ld	s9,72(sp)
				ld	s10,64(sp)
				ld	s11,56(sp)
				add	sp,sp,160
				jr	ra
		.LVL277:
		.L256:
				call	__stack_chk_fail
		.LVL325:
		.LFE204:
				.align	1
		GETNEXT.7190:
		.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
				lui	a5,%hi(GG.6094)
				lw	a3,%lo(GG.6094)(a5)
				bnez	a3,.L793
 1616    last1 = 0;  mapgg = 0
				lui	a5,%hi(CONT.6077)
				li	a4,32
				sw	a4,%lo(CONT.6077)(a5)
		.L793:
				lui	a5,%hi(LAST1.6087)
				sw	zero,%lo(LAST1.6087)(a5)
 1617    s = 0;  ss = 0;  sstype = -1; fdef = 0
				lui	a5,%hi(MAPGG.6095)
				sw	zero,%lo(MAPGG.6095)(a5)
		.LVL725:
				li	s1,0
 1618    fm base = 0
				lui	a5,%hi(SS.6105)
				sw	zero,%lo(SS.6105)(a5)
				lui	a5,%hi(FMBASE.6126)
				sw	zero,%lo(FMBASE.6126)(a5)
 1619    app = 0
				lui	a5,%hi(SSTYPE.6112)
				li	a4,-1
				sw	a4,%lo(SSTYPE.6112)(a5)
				lui	a5,%hi(APP.6060)
				sw	zero,%lo(APP.6060)(a5)
 1620
				lui	a5,%hi(FDEF.6096)
				sw	zero,%lo(FDEF.6096)(a5)
 1621    !deal with alignment following an error in one statement
 1622    !of several on a line
 1623
 1624    margin = column;                              !start of statement
				lui	a5,%hi(COLUMN.6070)
				lw	a4,%lo(COLUMN.6070)(a5)
				lui	a5,%hi(MARGIN.6067)
				sw	a4,%lo(MARGIN.6067)(a5)
 1625
 1626    pos = 0
				lui	a5,%hi(POS.6123)
				sw	zero,%lo(POS.6123)(a5)
 1627    stbase = addr(glink(gmax+1));  strp = stbase;  lp = 0
				lui	a5,%hi(GMAX.6144)
				lw	a5,%lo(GMAX.6144)(a5)
				addw	a5,a5,1
				sll	a4,a5,1
				lui	a5,%hi(GLINK.6149)
				addi	a5,a5,%lo(GLINK.6149)
				addw	a5,a5,a4
				lui	a4,%hi(STBASE.6101)
				sw	a5,%lo(STBASE.6101)(a4)
 1628    tbase = tstart;                               !??????????????
				li	a4,-4096
				li	a2,4096
				add	a2,a2,1872
				add	a1,sp,32
				add	a2,a2,a1
				add	a4,a2,a4
				sd	a4,16(sp)
				sw	a5,-1560(a4)
				lw	a5,72(s5)
				sw	a5,68(s5)
 1629    local = tbase
				lui	a5,%hi(LP.6133)
				sw	zero,%lo(LP.6133)(a5)
				lui	a4,%hi(LOCAL.6125)
				sw	a5,%lo(LOCAL.6125)(a4)
 1630
 1631    %IF gg = 0 %or ocount >= 0 %START;            !data or not continuation(z)
				beqz	a3,.L794
 1632 again:%WHILE sym type = 0 %CYCLE;                !skip redundant terminators
				lui	a5,%hi(OCOUNT.6114)
				lw	a5,%lo(OCOUNT.6114)(a5)
				bltz	a5,.L804
		.L794:
 1633          c = cont
				lui	a5,%hi(CONT.6077)
				lw	s2,%lo(CONT.6077)(a5)
		.LVL729:
 1634          cont = ' ';  cont = '+' %IF ocount >= 0
				lui	s6,%hi(SYMTYPE.6074)
				lw	a5,%lo(SYMTYPE.6074)(s6)
				bnez	a5,.L797
				li	a4,32
				sw	a4,%lo(CONT.6077)(a5)
 1635          read sym
				mv	t2,s0
				call	READSYM.6576
		.LVL727:
				lui	a5,%hi(OCOUNT.6114)
				lw	a5,%lo(OCOUNT.6114)(a5)
				bltz	a5,.L798
 1636          cont = c
				lui	a5,%hi(CONT.6077)
				sw	s2,%lo(CONT.6077)(a5)
		.LVL728:
		.L796:
				lui	a5,%hi(CONT.6077)
				li	a4,43
				sw	a4,%lo(CONT.6077)(a5)
				j	.L798
		.LVL730:
		.L797:
 1637       %REPEAT
 1638       ->skip %IF sym = '!';                      !comment
				lui	s1,%hi(SYM.6073)
				lw	a4,%lo(SYM.6073)(s1)
				li	a5,33
				beq	a4,a5,.L800
		.L801:
 1639       this = -1
				lui	a5,%hi(THIS.6097)
				li	a4,-1
				sw	a4,%lo(THIS.6097)(a5)
 1640       code atom(0)
				mv	t2,s0
				li	a0,0
				call	CODEATOM.6616
		.LVL731:
 1641       %IF atom1 = comment %START
				lui	a5,%hi(ATOM1.6056)
				lw	a4,%lo(ATOM1.6056)(a5)
				li	a5,22
				bne	a4,a5,.L804
		.L800:
 1642 skip:    quote = 1
 1643          c = cont
				lui	s7,%hi(QUOTE.6075)
				li	s8,1
				sw	s8,%lo(QUOTE.6075)(s7)
				lui	a5,%hi(CONT.6077)
				lw	s2,%lo(CONT.6077)(a5)
		.LVL732:
 1644          read sym %AND cont = c %WHILE sym # nl; !skip to end of line
 1645          quote = 0;  symtype = 0
				lw	a4,%lo(SYM.6073)(s1)
				li	a5,10
				beq	a4,a5,.L802
				li	s3,10
		.L803:
				lw	a5,%lo(SYM.6073)(s1)
				bne	a5,s3,.L803
		.L802:
				sw	zero,%lo(QUOTE.6075)(s7)
 1646          ->again
				li	s0,-4096
				add	s0,s0,-1568
				li	a5,4096
				add	a5,a5,1872
				add	a4,sp,32
				add	a5,a5,a4
				add	s0,a5,s0
				j	.L796
		.LVL726:
		.L798:
				mv	t2,s0
				call	READSYM.6576
		.LVL733:
				sw	zero,%lo(SYMTYPE.6074)(s6)
				j	.L796
		.L795:
		.LVL734:
		.L804:
 1647       %FINISH
				lui	s4,%hi(CONT.6077)
				sw	s2,%lo(CONT.6077)(s4)
		.LDL37:
 1648    %FINISH
 1649    decl = 0;  mark = 0
				lui	a5,%hi(DECL.6079)
				sw	zero,%lo(DECL.6079)(a5)
		.LVL735:
 1650    gentype = 0;  force = 0
				lui	a5,%hi(GENTYPE.6088)
				sw	zero,%lo(GENTYPE.6088)(a5)
 1651    dim = 0;  prot err = 0
				lui	a5,%hi(FORCE.6092)
				sw	zero,%lo(FORCE.6092)(a5)
				lui	a5,%hi(DIM.6080)
				sw	zero,%lo(DIM.6080)(a5)
		.LVL736:
 1652    node = 0;  nmax = 0;  nmin = rec size+1
				li	a5,-4096
				li	a4,4096
				add	a4,a4,1872
				add	a3,sp,32
				add	a4,a4,a3
				add	a5,a4,a5
				sd	a5,16(sp)
				sh	zero,-1586(a5)
 1653    order = 1;  gmin = max grammar+1
				lui	a5,%hi(NMAX.6099)
				sw	zero,%lo(NMAX.6099)(a5)
				lui	a5,%hi(ORDER.6117)
				li	a4,1
				sw	a4,%lo(ORDER.6117)(a5)
 1654    sstype = 0 %AND ->more %IF gg # 0;            !continuation
				lui	a5,%hi(NMIN.6098)
				li	a4,521
				sw	a4,%lo(NMIN.6098)(a5)
				lui	a5,%hi(GMIN.6102)
				li	a4,1721
				sw	a4,%lo(GMIN.6102)(a5)
				lui	a5,%hi(GG.6094)
				lw	a5,%lo(GG.6094)(a5)
				beqz	a5,.L805
 1655    ptype = 0;  spec given = 0
				lui	a5,%hi(SSTYPE.6112)
				sw	zero,%lo(SSTYPE.6112)(a5)
				lui	a5,%hi(PTYPE.6089)
				sw	zero,%lo(PTYPE.6089)(a5)
 1656
				lui	a5,%hi(SPECGIVEN.6081)
				sw	zero,%lo(SPECGIVEN.6081)(a5)
 1657    stats = stats+1;  op('O', lines) %IF perm = 0
				lui	a4,%hi(STATS.6071)
				lw	a5,%lo(STATS.6071)(a4)
				addw	a5,a5,1
				sw	a5,%lo(STATS.6071)(a4)
 1658
				lui	a5,%hi(PERM.6110)
				lw	a5,%lo(PERM.6110)(a5)
				beqz	a5,.L877
		.L807:
		.LVL739:
		.L846:
 1659    ->fail1 %IF atom1&error # 0;                  !first atom faulty
				ld	t2,8(s5)
				lui	a5,%hi(LINES.6065)
				lw	a1,%lo(LINES.6065)(a5)
				li	a0,79
				call	OP.6258
		.LVL800:
				j	.L846
		.LVL801:
		.L808:
		.L809:
 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
				lui	a4,%hi(LAST1.6087)
				sw	a5,%lo(LAST1.6087)(a4)
 1756 a2:   %IF gg&trans bit = 0 %START;                !insert into analysis record
				lui	a5,%hi(ATOM1.6056)
				sw	zero,%lo(ATOM1.6056)(a5)
 1757          z == node
				lui	a5,%hi(SUBATOM.6058)
				lw	s1,%lo(SUBATOM.6058)(a5)
		.LVL802:
		.L810:
				lui	a5,%hi(GG.6094)
				lw	a3,%lo(GG.6094)(a5)
				and	a5,a3,1
				beqz	a5,.L878
		.LVL803:
		.L811:
				li	a5,-4096
				add	a5,a5,-1586
				li	a4,4096
				add	a4,a4,1872
				add	a3,sp,32
				add	a4,a4,a3
				add	a5,a4,a5
				j	.L814
		.LVL820:
		.L881:
		.LBB691:
		.LBB651:
		.LBB631:
		.LBB632:
				call	_imp_newline
		.LVL821:
				j	.L818
		.LVL822:
		.L882:
		.LBE632:
		.LBE631:
		.LBB633:
		.LBB634:
				li	a0,123
				call	_imp_printsymbol
		.LVL823:
		.LBE634:
		.LBE633:
				li	a5,-4096
				add	a5,a5,-1586
				li	a3,4096
				add	a3,a3,1872
				add	a2,sp,32
				add	a3,a3,a2
				add	a5,a3,a5
				j	.L864
		.LVL935:
		.L886:
 1758          %CYCLE;                                  !insert cell in order
 1759             k = z
				li	a5,-4096
				li	a4,4096
				add	a4,a4,1872
				add	a2,sp,32
				add	a4,a4,a2
				add	a5,a4,a5
				sd	a5,40(sp)
				lh	a5,-1586(a5)
		.LVL805:
				add	a5,a3,814
		.LVL808:
				sll	a5,a5,4
				add	a5,a2,a5
				lh	a5,8(a5)
		.LVL809:
				addw	a4,a0,a4
 1760             %EXIT %IF gg&order bits = 0 %OR k = 0
 1761             gg = gg-order bit;  z == ar(k)_link
				beqz	a5,.L812
				sext.w	a1,a4
				bnez	a5,.L813
 1762          %REPEAT
				ld	a2,8(s5)
				li	a4,-4096
				addw	a4,a4,a3
				li	a0,-4096
		.LVL806:
		.L813:
				addw	a3,a5,-1
		.LDL38:
		.LVL807:
				add	a5,a3,814
		.LVL810:
				sll	a5,a5,4
		.LVL811:
				add	a5,a5,8
		.LVL812:
				add	a5,a2,a5
		.LVL813:
		.LDL39:
		.LDL40:
				lui	a4,%hi(GG.6094)
				sw	a1,%lo(GG.6094)(a4)
 1763          gg = map gg %IF map gg # 0 %AND gg&255 = var
				lui	a4,%hi(MAPGG.6095)
				lw	a4,%lo(MAPGG.6095)(a4)
				beqz	a4,.L814
				lui	a5,%hi(MAPGG.6095)
				lw	a4,%lo(MAPGG.6095)(a5)
				beqz	a4,.L871
 1764          nmin = nmin-1;  ->fail0 %IF nmin = nmax
				and	a1,a1,1
				bnez	a1,.L814
		.LVL814:
		.L864:
				lui	a2,%hi(NMIN.6098)
				lw	a4,%lo(NMIN.6098)(a2)
				addw	a1,a4,-1
				sext.w	a3,a1
				sw	a1,%lo(NMIN.6098)(a2)
 1765          z = nmin
				lui	a3,%hi(GG.6094)
				sw	a4,%lo(GG.6094)(a3)
		.L814:
				lui	a2,%hi(NMAX.6099)
				lw	a2,%lo(NMAX.6099)(a2)
				beq	a2,a3,.L815
		.L816:
				sh	a3,0(a5)
		.LVL815:
				sll	a4,a4,4
		.LVL816:
				ld	a5,8(s5)
				add	a5,a5,a4
 1766          arp == ar(nmin)
 1767          arp_sub = s;  arp_class = (gg&255)!mark
				li	a4,12288
				add	a5,a5,a4
				sh	s1,710(a5)
		.LVL817:
 1768          arp_link = k
				lui	a4,%hi(GG.6094)
				lbu	a4,%lo(GG.6094)(a4)
				or	s11,a4,s11
		.LVL818:
				sh	s11,708(a5)
				sh	zero,712(a5)
				j	.L811
		.LVL819:
		.L871:
 1769       %FINISH
 1770       mark = 0;  map gg = 0
 1771
				lui	a5,%hi(MAPGG.6095)
				sw	zero,%lo(MAPGG.6095)(a5)
				j	.L806
		.LVL804:
		.L878:
 1772 more: g = glink(g);                               !chain down the grammar
 1773
				lui	s2,%hi(G.6093)
				lui	a5,%hi(GLINK.6149)
				addi	a5,a5,%lo(GLINK.6149)
				sd	a5,24(sp)
				lw	a5,%lo(G.6093)(s2)
				sll	a5,a5,1
				ld	a4,24(sp)
				add	a5,a5,a4
				lh	a5,0(a5)
				sw	a5,%lo(G.6093)(s2)
				li	s11,0
 1774 paction(0):
 1775 a3:   gg = gram(g);  class = gg&255
 1776       trace analysis %IF diag&1 # 0
				lui	s10,%hi(GRAM.6148)
				addi	s10,s10,%lo(GRAM.6148)
		.LBB628:
		.LBB629:
		.LBB630:
				lui	s6,%hi(GG.6094)
				lw	a5,%lo(G.6093)(s2)
				sll	a5,a5,1
				add	a5,a5,s10
				lh	a5,0(a5)
				sw	a5,%lo(GG.6094)(s6)
 1777       ->a5 %IF class = 0;                         !end of phrase
				lui	s3,%hi(CLASS.6054)
		.LBB653:
		.LBB650:
				and	a5,a5,0xff
				sw	a5,%lo(CLASS.6054)(s3)
		.LBB692:
		.LBB652:
				lw	s0,%lo(CLASS.6054)(s3)
				beqz	s0,.L822
		.L823:
 1778
 1779       %IF class < actions %START;                 !not a phrase or an action
				li	a5,179
				bgt	s0,a5,.L824
 1780          class = atomic(class) %IF class >= figurative
				li	a5,129
				ble	s0,a5,.L825
 1781          ->a2 %IF class >= manifest
				lw	a0,%lo(CLASS.6054)(s3)
				li	a5,119
				bgt	a0,a5,.L810
		.L826:
				ld	a5,8(s5)
				addw	a4,s0,-130
				add	a4,a5,a4
				li	a5,36864
				add	a5,a5,a4
				lbu	a5,1988(a5)
				sw	a5,%lo(CLASS.6054)(s3)
				j	.L825
		.L879:
 1782          code atom(class) %IF atom1 = 0
				lui	a5,%hi(ATOM1.6056)
				lw	a5,%lo(ATOM1.6056)(a5)
				beqz	a5,.L879
		.L827:
 1783          %IF escape class # 0 %START;             !escape to new grammar
				lui	a5,%hi(ESCAPECLASS.6082)
				lw	a5,%lo(ESCAPECLASS.6082)(a5)
				bnez	a5,.L880
		.L828:
				mv	t2,s9
				call	CODEATOM.6616
		.LVL848:
				j	.L827
		.L880:
 1784             class = escape class;  escape class = 0
				lui	a4,%hi(CLASS.6054)
				sw	a5,%lo(CLASS.6054)(a4)
 1785             g = g+escape
				lui	a5,%hi(ESCAPECLASS.6082)
				sw	zero,%lo(ESCAPECLASS.6082)(a5)
				lui	a4,%hi(G.6093)
				lw	a5,%lo(G.6093)(a4)
				li	a3,4096
				addw	a5,a5,a3
				sw	a5,%lo(G.6093)(a4)
		.LDL43:
 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)
				lui	a5,%hi(GG.6094)
				sw	zero,%lo(GG.6094)(a5)
		.LVL849:
				lui	a5,%hi(NMAX.6099)
				lw	a5,%lo(NMAX.6099)(a5)
		.LVL850:
				sll	a4,a5,4
				ld	a5,8(s5)
		.LVL851:
				add	a5,a5,a4
 1792             arp_papp = papp;  arp_x = x;  ->a4
				li	a4,12288
				add	a5,a5,a4
				lui	a4,%hi(PAPP.6090)
				lw	a4,%lo(PAPP.6090)(a4)
				sh	a4,748(a5)
		.LVL852:
 1793          %FINISH
				lui	a4,%hi(X.6055)
				lw	a4,%lo(X.6055)(a4)
				sh	a4,752(a5)
		.L829:
 1794
 1795          ->a1 %IF class = atom1 %OR class = atom2
				lw	a4,%lo(CLASS.6054)(s3)
				lui	a5,%hi(ATOM1.6056)
				lw	a5,%lo(ATOM1.6056)(a5)
				beq	a4,a5,.L808
 1796
				lui	a5,%hi(ATOM2.6057)
				lw	a5,%lo(ATOM2.6057)(a5)
				beq	a4,a5,.L808
		.L830:
		.L831:
 1797 a7:      ->fail1 %IF gg >= 0;                     !no alternative
 1798          g = g+1
				lw	a5,%lo(GG.6094)(s6)
				bgez	a5,.L846
		.L832:
				lw	a5,%lo(G.6093)(s2)
				addw	a5,a5,1
				sw	a5,%lo(G.6093)(s2)
		.LVL828:
		.L817:
 1799          ->a3
 1800       %FINISH
 1801
 1802       %IF class >= phrasal %START;                !a phrase
				li	a5,199
				bgt	s0,a5,.L829
		.L834:
		.LVL866:
		.LDL44:
 1803 a4:      nmax = nmax+1;  ->fail0 %IF nmax = nmin
 1804          arp == ar(nmax)
				lui	a4,%hi(NMAX.6099)
				lw	a5,%lo(NMAX.6099)(a4)
				addw	a3,a5,1
				sext.w	a2,a3
				sw	a3,%lo(NMAX.6099)(a4)
 1805          arp_ptype = ptype
				lui	a4,%hi(NMIN.6098)
				lw	a4,%lo(NMIN.6098)(a4)
				beq	a4,a2,.L815
		.L835:
		.LVL853:
				sll	a4,a5,4
				ld	a5,8(s5)
		.LVL854:
				add	a5,a5,a4
				li	a4,12288
				add	a5,a5,a4
				lui	a4,%hi(PTYPE.6089)
				lw	a4,%lo(PTYPE.6089)(a4)
				sh	a4,746(a5)
		.LVL855:
 1806          arp_pos = pos1
				lui	a4,%hi(POS1.6121)
				lw	a4,%lo(POS1.6121)(a4)
				sh	a4,754(a5)
 1807          arp_pformat = pformat
				lui	a4,%hi(PFORMAT.6091)
				lw	a4,%lo(PFORMAT.6091)(a4)
				sh	a4,750(a5)
 1808          arp_link = gentype
				lui	a4,%hi(GENTYPE.6088)
				lw	a4,%lo(GENTYPE.6088)(a4)
				sh	a4,744(a5)
 1809          arp_class = node
				li	a4,-4096
				li	a3,4096
				add	a3,a3,1872
				add	a2,sp,32
				add	a3,a3,a2
				add	a4,a3,a4
				sd	a4,16(sp)
				lhu	a4,-1586(a4)
				sh	a4,740(a5)
 1810          arp_sub = g
				lui	a3,%hi(G.6093)
				lw	a4,%lo(G.6093)(a3)
				sh	a4,742(a5)
 1811          node = 0
				ld	a5,16(sp)
				sh	zero,-1586(a5)
 1812          g = phrase(class)
				lui	a5,%hi(CLASS.6054)
				lw	a5,%lo(CLASS.6054)(a5)
				addw	a5,a5,-200
				sll	a4,a5,1
				lui	a5,%hi(.LANCHOR2)
				addi	a5,a5,%lo(.LANCHOR2)
				add	a5,a5,a4
				lh	a5,0(a5)
				sw	a5,%lo(G.6093)(a3)
 1813          ptype = force %AND force = 0 %IF force # 0
				lui	a5,%hi(FORCE.6092)
				lw	a5,%lo(FORCE.6092)(a5)
				beqz	a5,.L836
 1814          gentype = 0
				lui	a4,%hi(PTYPE.6089)
				sw	a5,%lo(PTYPE.6089)(a4)
				lui	a5,%hi(GENTYPE.6088)
				sw	zero,%lo(GENTYPE.6088)(a5)
		.LVL856:
 1815          ->paction(gg>>8&15)
				lui	a5,%hi(FORCE.6092)
				sw	zero,%lo(FORCE.6092)(a5)
		.L836:
				lui	a5,%hi(GG.6094)
				lw	a5,%lo(GG.6094)(a5)
				srlw	a5,a5,8
				and	a5,a5,15
				sd	a5,32(sp)
		.LVL857:
		.L837:
 1816       %FINISH
 1817
 1818       ->act(class);                               !only actions left
 1819
 1820 a5:   !reverse links
 1821
 1822       s = 0
				mv	s1,s0
				j	.L840
		.LVL881:
		.L842:
 1823       %WHILE node # 0 %CYCLE
 1824          z == ar(node)_link
				lh	a4,318(sp)
				beqz	a4,.L866
				sext.w	s1,a4
		.LVL870:
				sll	a4,a4,4
				ld	a5,8(s5)
				add	a5,a5,a4
				mv	s0,s1
				bnez	a4,.L841
				sh	zero,318(sp)
		.LVL873:
		.L840:
 1825          k = z;  z = s;  s = node;  node = k
				li	a3,12288
		.LVL869:
		.L841:
				add	a5,a5,a3
				lh	a4,728(a5)
		.LVL871:
 1826       %REPEAT
				sh	s0,728(a5)
		.LVL872:
		.LDL45:
		.LDL46:
 1827       ss = s
				lui	a5,%hi(SS.6105)
				sw	s1,%lo(SS.6105)(a5)
		.LDL47:
 1828
 1829 a6:   %IF nmax # 0 %START
 1830          k = gentype;                             !type of phrase
				lui	a5,%hi(NMAX.6099)
				lw	a4,%lo(NMAX.6099)(a5)
				beqz	a4,.L842
		.LVL874:
 1831          arp == ar(nmax);  nmax = nmax-1
				ld	a5,8(s5)
		.LVL875:
				addw	a2,a4,-1
 1832          node = arp_class
				lui	a3,%hi(NMAX.6099)
				sw	a2,%lo(NMAX.6099)(a3)
				sll	a4,a4,4
		.LVL876:
				add	a5,a5,a4
		.LVL877:
				li	a4,12288
				add	a5,a5,a4
				lhu	a4,724(a5)
				sh	a4,318(sp)
 1833          gentype = arp_link
				lh	a3,728(a5)
				lui	a4,%hi(GENTYPE.6088)
				sw	a3,%lo(GENTYPE.6088)(a4)
		.LVL878:
 1834          ptype = arp_ptype
				lh	a3,730(a5)
				lui	a4,%hi(PTYPE.6089)
				sw	a3,%lo(PTYPE.6089)(a4)
 1835          pformat = arp_pformat
				lh	a3,734(a5)
				lui	a4,%hi(PFORMAT.6091)
				sw	a3,%lo(PFORMAT.6091)(a4)
 1836          g = arp_sub
				lh	a4,726(a5)
 1837          %IF g&escape # 0 %START
 1838             g = g-escape
				li	a3,-4096
				addw	a4,a4,a3
				sw	a4,%lo(G.6093)(s2)
 1839             papp = arp_papp
				lh	a4,732(a5)
				lui	a5,%hi(PAPP.6090)
				sw	a4,%lo(PAPP.6090)(a5)
		.LVL879:
 1840             mark = 255
				li	s11,255
 1841             subatom = s
				lui	a5,%hi(SUBATOM.6058)
				sw	s1,%lo(SUBATOM.6058)(a5)
 1842             ->a3
				j	.L817
		.LVL880:
		.L866:
 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
				lui	a5,%hi(COPY.6116)
				lw	a5,%lo(COPY.6116)(a5)
				bnez	a5,.L884
		.L843:
 1859       fault(13) %IF order = 0
				lui	a5,%hi(ORDER.6117)
				lw	a5,%lo(ORDER.6117)(a5)
				beqz	a5,.L885
		.L844:
		.LDL48:
				mv	t2,s5
				li	a0,4
				call	FAULT.6294
		.LVL884:
				j	.L843
		.L885:
 1860       fault(-4) %IF for warn # 0
				mv	t2,s5
				li	a0,13
				call	FAULT.6294
		.LVL885:
				j	.L844
		.LVL886:
		.L838:
 1861       pos1 = 0
				lui	a5,%hi(POS1.6121)
				sw	zero,%lo(POS1.6121)(a5)
 1862       fault rate = fault rate-1
				lui	a4,%hi(FAULTRATE.6064)
				lw	a5,%lo(FAULTRATE.6064)(a4)
				addw	a5,a5,-1
				sw	a5,%lo(FAULTRATE.6064)(a4)
		.L792:
 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:
				lui	a5,%hi(POS2.6122)
				sw	zero,%lo(POS2.6122)(a5)
		.LVL740:
		.L815:
		.LBB654:
 1954       %IF diag&32 # 0 %START
 1955          printstring("Atom1 =");       write(atom1, 3)
				lui	s3,%hi(.LANCHOR3)
				addi	s3,s3,%lo(.LANCHOR3)
				li	a2,256
				add	a1,s3,-280
				li	s2,4096
				add	a0,s2,1352
				add	a5,sp,32
				add	a0,a0,a5
				call	memcpy
		.LVL741:
				li	s1,-4096
				add	s0,sp,360
				li	a2,256
				add	a1,s2,1352
				add	a5,sp,32
				add	a1,a1,a5
				mv	a0,s0
				call	memcpy
		.LVL742:
				li	a2,256
				mv	a1,s0
				add	a0,s2,1352
				add	a5,sp,32
				add	a0,a0,a5
				call	memcpy
		.LVL743:
		.LBE654:
		.LBB655:
		.LBB656:
				add	s4,sp,48
				li	a2,256
				add	a1,s2,1352
				add	a5,sp,32
				add	a1,a1,a5
				mv	a0,s4
				call	memcpy
		.LVL744:
				add	s1,s1,-1856
				add	a5,s2,1872
				add	a4,sp,32
				add	a5,a5,a4
				add	s1,a5,s1
				mv	a0,s1
				call	_imp_printstring
		.LVL745:
		.LBE656:
		.LBE655:
 1956          printstring("  Atom2 =");     write(atom2, 3)
				li	a1,3
				lui	a5,%hi(ATOM1.6056)
				lw	a0,%lo(ATOM1.6056)(a5)
				call	_imp_writeint
		.LVL746:
		.LBB657:
				li	a2,256
				add	a1,s3,-24
				add	a0,s2,328
				add	a5,sp,32
				add	a0,a0,a5
				call	memcpy
		.LVL747:
				add	s0,sp,616
				li	a2,256
				add	a1,s2,328
				add	a5,sp,32
				add	a1,a1,a5
				mv	a0,s0
				call	memcpy
		.LVL748:
				li	a2,256
				mv	a1,s0
				add	a0,s2,328
				add	a5,sp,32
				add	a0,a0,a5
				call	memcpy
		.LVL749:
		.LBE657:
		.LBB658:
		.LBB659:
				li	a2,256
				add	a1,s2,328
				add	a5,sp,32
				add	a1,a1,a5
				mv	a0,s4
				call	memcpy
		.LVL750:
				mv	a0,s1
				call	_imp_printstring
		.LVL751:
		.LBE659:
		.LBE658:
 1957          printstring("  subatom =");   write(subatom, 3);  newline
				li	a1,3
				lui	a5,%hi(ATOM2.6057)
				lw	a0,%lo(ATOM2.6057)(a5)
				call	_imp_writeint
		.LVL752:
		.LBB660:
				li	a2,256
				add	a1,s3,232
				add	a0,s2,72
				add	a5,sp,32
				add	a0,a0,a5
				call	memcpy
		.LVL753:
				add	s0,sp,872
				li	a2,256
				add	a1,s2,72
				add	a5,sp,32
				add	a1,a1,a5
				mv	a0,s0
				call	memcpy
		.LVL754:
				li	a2,256
				mv	a1,s0
				add	a0,s2,72
				add	a5,sp,32
				add	a0,a0,a5
				call	memcpy
		.LVL755:
		.LBE660:
		.LBB661:
		.LBB662:
				li	a2,256
				add	a1,s2,72
				add	a5,sp,32
				add	a1,a1,a5
				mv	a0,s4
				call	memcpy
		.LVL756:
				mv	a0,s1
				call	_imp_printstring
		.LVL757:
		.LBE662:
		.LBE661:
 1958          printstring("Type =");        write(type, 1)
				li	a1,3
				lui	a5,%hi(SUBATOM.6058)
				lw	a0,%lo(SUBATOM.6058)(a5)
				call	_imp_writeint
		.LVL758:
		.LBB663:
		.LBB664:
				call	_imp_newline
		.LVL759:
		.LBE664:
		.LBE663:
		.LBB665:
				add	a5,sp,1904
				add	s0,a5,2040
				li	a2,256
				add	a1,s3,488
				mv	a0,s0
				call	memcpy
		.LVL760:
				add	s2,sp,1128
				li	a2,256
				mv	a1,s0
				mv	a0,s2
				call	memcpy
		.LVL761:
				li	a2,256
				mv	a1,s2
				mv	a0,s0
				call	memcpy
		.LVL762:
		.LBE665:
		.LBB666:
		.LBB667:
				li	a2,256
				mv	a1,s0
				mv	a0,s4
				call	memcpy
		.LVL763:
				mv	a0,s1
				call	_imp_printstring
		.LVL764:
		.LBE667:
		.LBE666:
 1959          printstring("   Ptype =");    write(ptype, 1);    newline
				li	a1,1
				lui	a5,%hi(TYPE.6059)
				lw	a0,%lo(TYPE.6059)(a5)
				call	_imp_writeint
		.LVL765:
		.LBB668:
				add	a5,sp,1904
				add	s0,a5,1784
				li	a2,256
				add	a1,s3,744
				mv	a0,s0
				call	memcpy
		.LVL766:
				add	s2,sp,1384
				li	a2,256
				mv	a1,s0
				mv	a0,s2
				call	memcpy
		.LVL767:
				li	a2,256
				mv	a1,s2
				mv	a0,s0
				call	memcpy
		.LVL768:
		.LBE668:
		.LBB669:
		.LBB670:
				li	a2,256
				mv	a1,s0
				mv	a0,s4
				call	memcpy
		.LVL769:
				mv	a0,s1
				call	_imp_printstring
		.LVL770:
		.LBE670:
		.LBE669:
 1960          printstring("App =");         write(app, 1)
				li	a1,1
				lui	a5,%hi(PTYPE.6089)
				lw	a0,%lo(PTYPE.6089)(a5)
				call	_imp_writeint
		.LVL771:
		.LBB671:
		.LBB672:
				call	_imp_newline
		.LVL772:
		.LBE672:
		.LBE671:
		.LBB673:
				add	a5,sp,1904
				add	s0,a5,1528
				li	a2,256
				add	a1,s3,1000
				mv	a0,s0
				call	memcpy
		.LVL773:
				add	s2,sp,1640
				li	a2,256
				mv	a1,s0
				mv	a0,s2
				call	memcpy
		.LVL774:
				li	a2,256
				mv	a1,s2
				mv	a0,s0
				call	memcpy
		.LVL775:
		.LBE673:
		.LBB674:
		.LBB675:
				li	a2,256
				mv	a1,s0
				mv	a0,s4
				call	memcpy
		.LVL776:
				mv	a0,s1
				call	_imp_printstring
		.LVL777:
		.LBE675:
		.LBE674:
 1961          printstring("   Papp =");     write(papp, 1);     newline
				li	a1,1
				lui	a5,%hi(APP.6060)
				lw	a0,%lo(APP.6060)(a5)
				call	_imp_writeint
		.LVL778:
		.LBB676:
				add	a5,sp,1904
				add	s0,a5,1272
				li	a2,256
				add	a1,s3,1256
				mv	a0,s0
				call	memcpy
		.LVL779:
				add	s2,sp,1896
				li	a2,256
				mv	a1,s0
				mv	a0,s2
				call	memcpy
		.LVL780:
				li	a2,256
				mv	a1,s2
				mv	a0,s0
				call	memcpy
		.LVL781:
		.LBE676:
		.LBB677:
		.LBB678:
				li	a2,256
				mv	a1,s0
				mv	a0,s4
				call	memcpy
		.LVL782:
				mv	a0,s1
				call	_imp_printstring
		.LVL783:
		.LBE678:
		.LBE677:
 1962          printstring("Format =");      write(format, 1)
				li	a1,1
				lui	a5,%hi(PAPP.6090)
				lw	a0,%lo(PAPP.6090)(a5)
				call	_imp_writeint
		.LVL784:
		.LBB679:
		.LBB680:
				call	_imp_newline
		.LVL785:
		.LBE680:
		.LBE679:
		.LBB681:
				add	a5,sp,1904
				add	s0,a5,1016
				li	a2,256
				add	a1,s3,1512
				mv	a0,s0
				call	memcpy
		.LVL786:
				add	a5,sp,1904
				add	s2,a5,248
				li	a2,256
				mv	a1,s0
				mv	a0,s2
				call	memcpy
		.LVL787:
				li	a2,256
				mv	a1,s2
				mv	a0,s0
				call	memcpy
		.LVL788:
		.LBE681:
		.LBB682:
		.LBB683:
				li	a2,256
				mv	a1,s0
				mv	a0,s4
				call	memcpy
		.LVL789:
				mv	a0,s1
				call	_imp_printstring
		.LVL790:
		.LBE683:
		.LBE682:
 1963          printstring("   Pformat =");  write(pformat, 1);  newline
				li	a1,1
				lui	a5,%hi(FORMAT.6061)
				lw	a0,%lo(FORMAT.6061)(a5)
				call	_imp_writeint
		.LVL791:
		.LBB684:
				add	a5,sp,1904
				add	s2,a5,760
				li	a2,256
				add	a1,s3,1768
				mv	a0,s2
				call	memcpy
		.LVL792:
				add	a5,sp,1904
				add	s0,a5,504
				li	a2,256
				mv	a1,s2
				mv	a0,s0
				call	memcpy
		.LVL793:
				li	a2,256
				mv	a1,s0
				mv	a0,s2
				call	memcpy
		.LVL794:
		.LBE684:
		.LBB685:
		.LBB686:
				li	a2,256
				mv	a1,s2
				mv	a0,s4
				call	memcpy
		.LVL795:
				mv	a0,s1
				call	_imp_printstring
		.LVL796:
		.LBE686:
		.LBE685:
 1964 !IMP80 BUG???           %SIGNAL 13,15
				li	a1,1
				lui	a5,%hi(PFORMAT.6091)
				lw	a0,%lo(PFORMAT.6091)(a5)
				call	_imp_writeint
		.LVL797:
		.LBB687:
		.LBB688:
				call	_imp_newline
		.LVL798:
		.LBE688:
		.LBE687:
		.LBB689:
		.LBB690:
				li	a0,0
				call	exit
		.LVL799:
		.L877:
		.LBE690:
		.LBE689:
 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
				add	sp,sp,-1216
				sd	ra,1208(sp)
				sd	s0,1200(sp)
				sd	s1,1192(sp)
				sd	s2,1184(sp)
				sd	s3,1176(sp)
				sd	s4,1168(sp)
				sd	s5,1160(sp)
				li	t1,-4096
				add	sp,sp,t1
				sd	t2,32(sp)
				lui	a5,%hi(__stack_chk_guard)
				ld	a5,%lo(__stack_chk_guard)(a5)
				li	a4,4096
				add	a3,a4,904
				add	a2,sp,240
				add	a3,a3,a2
				sd	a5,0(a3)
				li	a5,-4096
				add	a3,a4,912
				add	a3,a3,a2
				add	a5,a3,a5
				sd	a5,24(sp)
				mv	a3,a5
				add	a5,a4,976
				add	a5,a5,a2
				sd	a5,-344(a3)
				sd	t2,-384(a3)
 1978
				addw	a5,s0,-180
				li	a4,20
				bgtu	a5,a4,.L838
		.LVL867:
		.L839:
				lui	a5,%hi(_imp_current_file)
				ld	a1,%lo(_imp_current_file)(a5)
				beqz	a1,.L847
				li	a5,-4096
				li	a4,4096
				add	a4,a4,1872
				add	a3,sp,32
				add	a4,a4,a3
				add	a5,a4,a5
				sd	a5,16(sp)
				add	a0,a5,2040
				call	_imp_c2istr
		.LVL887:
		.L848:
				lui	a5,%hi(_imp_current_line)
				lw	s2,%lo(_imp_current_line)(a5)
				bnez	s2,.L849
				li	s2,1978
		.L849:
				li	s1,-4096
				li	a2,256
				add	a5,sp,1904
				add	a1,a5,2040
				add	a0,a5,-1856
				call	memcpy
		.LVL888:
				add	a0,s1,-1856
				li	a5,1818
				sd	a5,0(sp)
				lui	a7,%hi(.LC77)
				addi	a7,a7,%lo(.LC77)
				mv	a6,s0
				lui	a5,%hi(.LC87)
				addi	a5,a5,%lo(.LC87)
				mv	a4,s0
				li	a3,3
				li	a2,6
				mv	a1,s2
				li	s1,4096
				add	s1,s1,1872
				add	t1,sp,32
				add	s1,s1,t1
				add	a0,s1,a0
				call	_signal_eventf
		.LVL889:
				j	.L839
		.LVL890:
		.L847:
		.LBB693:
				li	a2,256
				lui	a1,%hi(.LANCHOR1)
				addi	a1,a1,%lo(.LANCHOR1)
				li	a4,4096
				mv	s1,a4
		.LVL891:
				add	a0,a4,1352
				add	a5,sp,32
				add	a0,a0,a5
				call	memcpy
		.LVL892:
				li	a5,-4096
				mv	a4,s1
				add	a3,s1,1872
				add	a2,sp,32
				add	a3,a3,a2
				add	a5,a3,a5
				sd	a5,16(sp)
				add	s1,a5,1016
				li	a2,256
				add	a1,a4,1352
				add	a5,sp,32
				add	a1,a1,a5
				mv	a0,s1
				call	memcpy
		.LVL893:
		.LBE693:
				li	a2,256
				mv	a1,s1
				ld	a5,16(sp)
				add	a0,a5,2040
				call	memcpy
		.LVL894:
				j	.L848
		.LVL895:
		.L851:
 1979       %CONSTINTEGER then = 4, else = 8, loop = 16
				addw	a5,s0,-180
				sll	a4,a5,3
				lui	a5,%hi(.LANCHOR3)
				addi	a5,a5,%lo(.LANCHOR3)
				add	a5,a5,a4
				ld	a5,2024(a5)
				j	.L850
		.LVL868:
		.L822:
 1980
 1981       %SWITCH c(0:actions), litop(1:12)
				lui	a5,%hi(_imp_current_file)
				ld	a1,%lo(_imp_current_file)(a5)
				beqz	a1,.L887
				li	a5,4096
				add	a5,a5,72
				add	a4,sp,32
		.LVL896:
				add	a0,a4,a5
				call	_imp_c2istr
		.LVL897:
		.L854:
				lui	a5,%hi(_imp_current_line)
				lw	s2,%lo(_imp_current_line)(a5)
				bnez	s2,.L855
				li	s2,1981
		.L855:
				li	s1,-4096
				li	a2,256
				li	s3,4096
				add	a5,s3,72
				add	a4,sp,32
		.LVL898:
				add	a1,a4,a5
				add	a0,sp,48
				call	memcpy
		.LVL899:
				add	a0,s1,-1856
				li	a5,1818
				sd	a5,0(sp)
				lui	a7,%hi(.LC77)
				addi	a7,a7,%lo(.LC77)
				mv	a6,s0
				lui	a5,%hi(.LC88)
				addi	a5,a5,%lo(.LC88)
				mv	a4,s0
				li	a3,2
				li	a2,8
				mv	a1,s2
				add	s1,s3,1872
				add	t1,sp,32
		.LVL900:
				add	s1,s1,t1
				add	a0,s1,a0
				call	_signal_eventf
		.LVL901:
				j	.L837
		.L887:
		.LBB694:
				li	a2,256
				lui	a1,%hi(.LANCHOR1)
				addi	a1,a1,%lo(.LANCHOR1)
				li	a4,4096
				mv	s1,a4
				add	a0,a4,1352
				add	a5,sp,32
		.LVL902:
				add	a0,a0,a5
				call	memcpy
		.LVL903:
				li	a5,-4096
				mv	a4,s1
				add	a3,s1,1872
				add	a2,sp,32
		.LVL904:
				add	a3,a3,a2
				add	a5,a3,a5
				sd	a5,16(sp)
				add	s1,a5,1272
				li	a2,256
		.LVL905:
				mv	s2,a4
				add	a1,a4,1352
				add	a5,sp,32
		.LVL906:
				add	a1,a1,a5
				mv	a0,s1
				call	memcpy
		.LVL907:
		.LBE694:
				li	a2,256
				mv	a1,s1
				add	a5,s2,72
				add	a4,sp,32
		.LVL908:
				add	a0,a4,a5
				call	memcpy
		.LVL909:
				j	.L854
		.L857:
		.LBB695:
 1982
 1983       %CONSTBYTEINTEGERARRAY operator(1:14) = %C
				li	a5,91
				add	a3,a4,872
				add	a3,a3,a2
				sb	a5,0(a3)
				li	a5,93
				add	a3,a4,873
				add	a3,a3,a2
				sb	a5,0(a3)
				li	a5,88
				add	a3,a4,874
				add	a3,a3,a2
				sb	a5,0(a3)
				li	a5,47
				add	a3,a4,875
				add	a3,a3,a2
				sb	a5,0(a3)
				li	a5,38
				add	a3,a4,876
				add	a3,a3,a2
				sb	a5,0(a3)
				li	a5,33
				add	a3,a4,877
				add	a3,a3,a2
				sb	a5,0(a3)
				li	a5,37
				add	a3,a4,878
				add	a3,a3,a2
				sb	a5,0(a3)
				li	a5,43
				add	a3,a4,879
				add	a3,a3,a2
				sb	a5,0(a3)
				li	a5,45
				add	a3,a4,880
				add	a3,a3,a2
				sb	a5,0(a3)
				li	a5,42
				add	a3,a4,881
				add	a3,a3,a2
				sb	a5,0(a3)
				li	a5,81
				add	a3,a4,882
				add	a3,a3,a2
				sb	a5,0(a3)
				li	a5,120
				add	a3,a4,883
				add	a3,a3,a2
				sb	a5,0(a3)
				li	a5,46
				add	a3,a4,884
				add	a3,a3,a2
				sb	a5,0(a3)
				li	a5,118
				add	a3,a4,885
				add	a3,a3,a2
				sb	a5,0(a3)
 1984                          '[',  ']',  'X',  '/', '&',  '!',  '%',  '+',
				lw	a5,32(sp)
				li	a4,15
				bleu	a5,a4,.L856
				lui	a5,%hi(_imp_current_file)
				ld	a1,%lo(_imp_current_file)(a5)
				beqz	a1,.L857
				li	a5,4096
				add	a5,a5,328
				add	a4,sp,32
		.LVL858:
				add	a0,a4,a5
				call	_imp_c2istr
		.LVL859:
		.L858:
				lui	a5,%hi(_imp_current_line)
				lw	s2,%lo(_imp_current_line)(a5)
				bnez	s2,.L859
				li	s2,1984
		.L859:
				li	s1,-4096
				li	a2,256
				li	s3,4096
				add	a5,s3,328
				add	a4,sp,32
		.LVL860:
				add	a1,a4,a5
				add	a0,sp,48
				call	memcpy
		.LVL861:
				add	a0,s1,-1856
				li	a5,1815
				sd	a5,0(sp)
				lui	a7,%hi(.LC77)
				addi	a7,a7,%lo(.LC77)
				ld	a4,32(sp)
				mv	a6,a4
				lui	a5,%hi(.LC89)
				addi	a5,a5,%lo(.LC89)
				li	a3,3
				li	a2,6
				mv	a1,s2
				add	s1,s3,1872
				add	t1,sp,32
		.LVL862:
				add	s1,s1,t1
				add	a0,s1,a0
				call	_signal_eventf
		.LVL863:
		.L856:
				li	a2,256
				lui	a1,%hi(.LANCHOR1)
				addi	a1,a1,%lo(.LANCHOR1)
				li	a4,4096
				mv	s1,a4
				add	a0,a4,1352
				add	a5,sp,32
		.LVL910:
				add	a0,a0,a5
				call	memcpy
		.LVL911:
				li	a5,-4096
				mv	a4,s1
				add	a3,s1,1872
				add	a2,sp,32
		.LVL912:
				add	a3,a3,a2
				add	a5,a3,a5
				sd	a5,16(sp)
				add	s1,a5,1528
				li	a2,256
		.LVL913:
				mv	s2,a4
				add	a1,a4,1352
				add	a5,sp,32
		.LVL914:
				add	a1,a1,a5
				mv	a0,s1
				call	memcpy
		.LVL915:
		.LBE695:
				li	a2,256
				mv	a1,s1
				add	a5,s2,328
				add	a4,sp,32
		.LVL916:
				add	a0,a4,a5
				call	memcpy
		.LVL917:
				j	.L858
		.L860:
 1985                          '-',  '*',  'Q',  'x', '.',  'v'
				ld	a5,32(sp)
				sll	a4,a5,3
				lui	a5,%hi(.LANCHOR4)
				addi	a5,a5,%lo(.LANCHOR4)
				add	a5,a5,a4
				ld	a5,-1904(a5)
		.LVL864:
		.L850:
				jr	a5
		.LVL865:
		.L824:
 1986
 1987       %CONSTBYTEINTEGERARRAY cc(0 : 7) = '#','=',')','<','(','>', 'k','t'
				li	a5,35
				add	a3,a4,864
				add	a3,a3,a2
				sb	a5,0(a3)
				li	a5,61
				add	a3,a4,865
				add	a3,a3,a2
				sb	a5,0(a3)
				li	a5,41
				add	a3,a4,866
				add	a3,a3,a2
				sb	a5,0(a3)
				li	a5,60
				add	a3,a4,867
				add	a3,a3,a2
				sb	a5,0(a3)
				li	a5,40
				add	a3,a4,868
				add	a3,a3,a2
				sb	a5,0(a3)
				li	a5,62
				add	a3,a4,869
				add	a3,a3,a2
				sb	a5,0(a3)
				li	a5,107
				add	a3,a4,870
				add	a3,a3,a2
				sb	a5,0(a3)
				li	a5,116
				add	a3,a4,871
				add	a3,a3,a2
				sb	a5,0(a3)
				lui	a5,%hi(_imp_current_file)
				ld	a1,%lo(_imp_current_file)(a5)
				beqz	a1,.L861
				li	a5,4096
				add	a5,a5,1352
				add	a4,sp,32
		.LVL918:
				add	a0,a4,a5
				call	_imp_c2istr
		.LVL919:
		.L862:
				lui	a5,%hi(_imp_current_line)
				lw	s1,%lo(_imp_current_line)(a5)
				bnez	s1,.L863
				li	s1,1987
		.L863:
				li	s0,-4096
				li	a2,256
				li	s2,4096
				add	a5,s2,1352
				add	a4,sp,32
		.LVL920:
				add	a1,a4,a5
				add	a0,sp,48
				call	memcpy
		.LVL921:
				add	a0,s0,-1856
				li	a5,1815
				sd	a5,0(sp)
				lui	a7,%hi(.LC77)
				addi	a7,a7,%lo(.LC77)
				ld	a4,32(sp)
				mv	a6,a4
				lui	a5,%hi(.LC90)
				addi	a5,a5,%lo(.LC90)
				li	a3,2
				li	a2,8
				mv	a1,s1
				add	s0,s2,1872
				add	s1,sp,32
		.LVL922:
				add	s0,s0,s1
				add	a0,s0,a0
				call	_signal_eventf
		.LVL923:
				j	.L792
		.LVL924:
		.L861:
		.LBB696:
				li	a2,256
				lui	a1,%hi(.LANCHOR1)
				addi	a1,a1,%lo(.LANCHOR1)
				li	a4,4096
				mv	s0,a4
		.LVL925:
				add	a0,a4,1352
				add	a5,sp,32
		.LVL926:
				add	a0,a0,a5
				call	memcpy
		.LVL927:
				li	a5,-4096
				mv	a4,s0
				add	a3,s0,1872
				add	a2,sp,32
		.LVL928:
				add	a3,a3,a2
				add	a5,a3,a5
				sd	a5,16(sp)
				add	s0,a5,1784
				li	a2,256
		.LVL929:
				mv	s1,a4
				add	a1,a4,1352
				add	a5,sp,32
		.LVL930:
				add	a1,a1,a5
				mv	a0,s0
				call	memcpy
		.LVL931:
		.LBE696:
				li	a2,256
				mv	a1,s0
				add	a0,s1,1352
				add	a5,sp,32
		.LVL932:
				add	a0,a0,a5
				call	memcpy
		.LVL933:
				j	.L862
		.LVL934:
		.L812:
 1988
				li	a5,4096
				add	a5,a5,1864
				add	a4,sp,32
				add	a5,a5,a4
				ld	a4,0(a5)
				lui	a5,%hi(__stack_chk_guard)
				ld	a5,%lo(__stack_chk_guard)(a5)
				bne	a4,a5,.L886
				li	t1,4096
				add	sp,sp,t1
				ld	ra,2008(sp)
				ld	s0,2000(sp)
				ld	s1,1992(sp)
				ld	s2,1984(sp)
				ld	s3,1976(sp)
				ld	s4,1968(sp)
				ld	s5,1960(sp)
				ld	s6,1952(sp)
				ld	s7,1944(sp)
				ld	s8,1936(sp)
				ld	s9,1928(sp)
				ld	s10,1920(sp)
				ld	s11,1912(sp)
		.LVL882:
				add	sp,sp,2016
				jr	ra
		.LVL883:
		.L884:
				call	__stack_chk_fail
		.LVL936:
		.LFE198:
				.align	1
		COMPILEBLOCK.6268:
		.LFB191:
 1989       %CONSTBYTEINTEGERARRAY anyform(0:15) = 1,0,1,1(4),1,0,1,1,0,1,1,1,1
				li	a5,1
				add	a3,a4,888
				add	a3,a3,a2
				sb	a5,0(a3)
				add	a3,a4,889
				add	a3,a3,a2
				sb	zero,0(a3)
				add	a3,a4,890
				add	a3,a3,a2
				sb	a5,0(a3)
				add	a3,a4,891
				add	a3,a3,a2
				sb	a5,0(a3)
				add	a3,a4,892
				add	a3,a3,a2
				sb	a5,0(a3)
				add	a3,a4,893
				add	a3,a3,a2
				sb	a5,0(a3)
				add	a3,a4,894
				add	a3,a3,a2
				sb	a5,0(a3)
				add	a3,a4,895
				add	a3,a3,a2
				sb	a5,0(a3)
				add	a3,a4,896
				add	a3,a3,a2
				sb	zero,0(a3)
				add	a3,a4,897
				add	a3,a3,a2
				sb	a5,0(a3)
				add	a3,a4,898
				add	a3,a3,a2
				sb	a5,0(a3)
				add	a3,a4,899
				add	a3,a3,a2
				sb	zero,0(a3)
				add	a3,a4,900
				add	a3,a3,a2
				sb	a5,0(a3)
				add	a3,a4,901
				add	a3,a3,a2
				sb	a5,0(a3)
				add	a3,a4,902
				add	a3,a3,a2
				sb	a5,0(a3)
				add	a4,a4,903
				add	a4,a4,a2
				sb	a5,0(a4)
 1990
 1991       %CONSTSHORTINTEGERARRAY decmap(0:15) = %C
				li	a5,1
				ld	a4,24(sp)
				sh	a5,-336(a4)
				li	a5,2
				sh	a5,-334(a4)
				li	a5,4096
				addw	a4,a5,11
				ld	a3,24(sp)
				sh	a4,-332(a3)
				addw	a4,a5,13
				sh	a4,-330(a3)
				addw	a4,a5,1036
				sh	a4,-328(a3)
				addw	a4,a5,1038
				sh	a4,-326(a3)
				li	a4,3
				sh	a4,-324(a3)
				li	a4,4
				sh	a4,-322(a3)
				addw	a4,a5,7
				sh	a4,-320(a3)
				addw	a4,a5,8
				sh	a4,-318(a3)
				addw	a4,a5,9
				sh	a4,-316(a3)
				addw	a5,a5,10
				sh	a5,-314(a3)
				li	a5,6
				sh	a5,-312(a3)
				sh	zero,-310(a3)
				sh	zero,-308(a3)
				sh	zero,-306(a3)
 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)
		.LVL10:
				add	sp,sp,-16
				sd	ra,8(sp)
				sd	s0,0(sp)
				mv	s0,t2
 2011          op(':', l)
				ld	a5,0(t2)
				ld	t2,8(a5)
				mv	a1,a0
				li	a0,58
		.LVL11:
				call	OP.6258
		.LVL12:
 2012          access = 1
				ld	a5,0(s0)
				li	a4,1
				sw	a4,36(a5)
 2013       %END
 2014
				ld	ra,8(sp)
				ld	s0,0(sp)
				add	sp,sp,16
				jr	ra
		.LFE210:
				.align	1
		POPLIT.7287:
		.LFB219:
 2015       %ROUTINE get next
				add	sp,sp,-1568
				sd	ra,1560(sp)
				lui	a5,%hi(__stack_chk_guard)
				ld	a5,%lo(__stack_chk_guard)(a5)
				sd	a5,1544(sp)
				lui	a5,%hi(X.6055)
				lw	a3,%lo(X.6055)(a5)
				li	a4,0
 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
				lw	a5,36(t2)
				bnez	a5,.L323
				lw	a5,32(t2)
				beqz	a5,.L340
		.L324:
		.LVL326:
 2019             p == ar(link)
				ld	a3,0(t2)
				sll	a4,a5,4
				ld	a5,8(a3)
		.LVL327:
				add	a5,a5,a4
				sw	zero,28(t2)
 2020             next = p_link
				li	a1,12288
				add	a5,a5,a1
				lh	a4,728(a5)
				sw	a4,36(t2)
		.LVL328:
				j	.L321
		.L342:
				lui	a5,%hi(X.6055)
				sw	a3,%lo(X.6055)(a5)
				j	.L325
		.LVL332:
		.L341:
				lui	a2,%hi(X.6055)
				sw	a5,%lo(X.6055)(a2)
				j	.L328
		.LVL333:
		.L332:
 2021             link = p_sub
				lh	a5,726(a5)
				sw	a5,32(t2)
		.L323:
 2022          %FINISH
 2023          %CYCLE
 2024             p == ar(next)
				lw	a2,36(t2)
				addw	a3,a2,-1
				ld	a5,0(t2)
				ld	a4,8(a5)
		.LVL329:
				sll	a2,a2,4
		.LVL330:
				add	a2,a4,a2
				addw	a3,a5,-1
				ld	a4,0(t2)
				ld	a4,8(a4)
		.LVL334:
				sll	a5,a5,4
		.LVL335:
				add	a5,a4,a5
 2025             x = p_sub
				add	a2,a2,a1
				lh	a5,726(a2)
				add	a2,a5,a1
				lh	a5,726(a2)
 2026             class = p_class
				lh	a2,724(a2)
				sext.w	a0,a2
				sw	a2,28(t2)
				lh	a2,724(a2)
				sext.w	a0,a2
				sw	a2,28(t2)
 2027             %EXIT %IF class < actions;               !an atom
				li	a6,179
				li	t1,0
				li	a7,1
		.L322:
				ble	a0,a6,.L341
				ble	a0,a6,.L343
		.L331:
 2028             %IF x = 0 %START;                        !null phrase
				bnez	a5,.L329
		.LVL331:
		.L330:
				beqz	a5,.L330
		.LVL336:
		.L329:
				sll	a3,a3,4
		.LVL337:
				add	a4,a4,a3
 2029                next = p_link;  ->gn
				add	a3,a3,814
				sll	a3,a3,4
				add	a4,a4,a3
				lh	a5,8(a4)
				sw	a5,36(t2)
				mv	a3,t1
				mv	a4,a7
 2030             %FINISH
				j	.L322
		.L340:
				bnez	a4,.L342
		.L325:
 2031             %IF p_link # 0 %START;                   !follow a phrase
				add	a3,a4,a1
				lh	a3,744(a3)
				beqz	a3,.L332
 2032                p_sub = link;  link = next
				add	a4,a4,a1
				lw	a3,32(t2)
				sh	a3,742(a4)
 2033             %FINISH
				lw	a4,36(t2)
				sw	a4,32(t2)
				j	.L332
		.LVL338:
		.L343:
				lui	a2,%hi(X.6055)
				sw	a5,%lo(X.6055)(a2)
		.LVL339:
		.L328:
 2034             next = x
				sw	a5,36(t2)
 2035          %REPEAT
 2036          next = p_link
				add	a3,a3,814
				sll	a3,a3,4
				add	a4,a4,a3
				lh	a5,8(a4)
				sw	a5,36(t2)
 2037          %IF diag&2 # 0 %START
 2038             spaces(8-length(name)) %UNLESS name = ""
 2039             name = text(class)
 2040             write(x, 2)
				add	a1,sp,264
				lui	a0,%hi(.LANCHOR0+176)
				addi	a0,a0,%lo(.LANCHOR0+176)
				call	_imp_strcmp
		.LVL340:
				bnez	a0,.L344
		.L333:
				li	a1,2
				lui	a5,%hi(X.6055)
				lw	a0,%lo(X.6055)(a5)
				call	_imp_writeint
		.LVL342:
		.LBB396:
		.LBB397:
				call	_imp_space
		.LVL343:
				li	a2,256
				add	a1,sp,776
				add	a0,sp,1288
				call	memcpy
		.LVL344:
		.LBE397:
		.LBE396:
		.LBB398:
		.LBB399:
				li	a2,256
				add	a1,sp,1288
				mv	a0,sp
				call	memcpy
		.LVL345:
				mv	a0,sp
				call	_imp_printstring
		.LVL346:
		.LBE399:
		.LBE398:
		.LBB400:
		.LBB401:
				call	_imp_space
		.LVL347:
		.LBE401:
		.LBE400:
 2041             space
				li	a2,8
				add	a1,sp,520
				lui	a0,%hi(.LANCHOR0+176)
				addi	a0,a0,%lo(.LANCHOR0+176)
				call	_imp_strncpy
		.LVL341:
 2042             printstring(name)
 2043             space
				lui	a5,%hi(.LANCHOR0+176)
				lbu	a5,%lo(.LANCHOR0+176)(a5)
		.LBB402:
		.LBB403:
				li	a0,8
				subw	a0,a0,a5
				call	_imp_spaces
		.LVL349:
				j	.L333
		.L334:
		.LBE403:
		.LBE402:
 2044             count = count-1
				lui	a5,%hi(COUNT.7185)
				lw	a5,%lo(COUNT.7185)(a5)
				addw	a5,a5,-1
				sext.w	a4,a5
				lui	a4,%hi(COUNT.7185)
				sw	a5,%lo(COUNT.7185)(a4)
		.L326:
		.L335:
		.L321:
 2045             %IF count <= 0 %START
				blez	a4,.L334
 2046                count = 5
				lui	a5,%hi(COUNT.7185)
				li	a4,5
				sw	a4,%lo(COUNT.7185)(a5)
		.LVL350:
 2047                name = ""
 2048                newline
 2049             %FINISH
				li	a2,8
				add	a1,sp,1032
				lui	a0,%hi(.LANCHOR0+176)
				addi	a0,a0,%lo(.LANCHOR0+176)
				call	_imp_strncpy
		.LVL351:
		.LBB404:
		.LBB405:
				call	_imp_newline
		.LVL352:
				j	.L321
		.L345:
		.LBE405:
		.LBE404:
 2050          %FINISH
 2051       %END
 2052
				ld	a4,1544(sp)
				lui	a5,%hi(__stack_chk_guard)
				ld	a5,%lo(__stack_chk_guard)(a5)
				bne	a4,a5,.L345
				ld	ra,1560(sp)
				add	sp,sp,1568
				jr	ra
		.L344:
		.LVL348:
				call	__stack_chk_fail
		.LVL353:
		.LFE211:
				.align	1
		SETSUBS.7215:
		.LFB212:
 2053       %ROUTINE set subs(%INTEGER n)
		.LVL354:
				add	sp,sp,-16
				sd	ra,8(sp)
		.LVL358:
		.LBB406:
		.LBB407:
				li	a0,0
				call	exit
		.LVL359:
		.L347:
		.L346:
				ret
		.LBE407:
		.LBE406:
		.LFE212:
				.align	1
		FAULT.6294:
		.LFB192:
 2054
 2055          !update the app field in n array descriptors
 2056
 2057          %INTEGER p
 2058          p = tmax
				ld	a4,0(t2)
				lw	a5,64(a4)
		.LVL355:
 2059          %WHILE n > 0 %CYCLE
 2060 !IMP80 BUG???              %SIGNAL 15,15 %IF p < tbase
				blez	a0,.L346
				beq	a0,a5,.L346
 2061             %STOP %IF p < tbase
				lw	a3,68(a4)
				bgt	a3,a5,.L349
				ld	a4,0(t2)
				lw	a3,68(a4)
				ble	a3,a5,.L350
		.L349:
 2062             tag(p)_app = dimension
				lui	a3,%hi(DIMENSION.6124)
				lw	a2,%lo(DIMENSION.6124)(a3)
				subw	a0,a5,a0
		.LVL356:
		.L350:
				ld	a4,8(a4)
				add	a3,a5,13
				sll	a3,a3,4
				add	a4,a4,a3
				sw	a2,4(a4)
 2063             p = p-1;  n = n-1
				addw	a5,a5,-1
		.LVL357:
		.LDL19:
 2064          %REPEAT
 2065       %END
 2066
 2067       %ROUTINE set bp
				add	sp,sp,-16
				sd	ra,8(sp)
				sd	s0,0(sp)
				mv	s0,t2
 2068
 2069          !define a constant bound pair from the last stacked constants
 2070
 2071          pending = pending-2
				lw	a3,24(t2)
				addw	a4,a3,-2
				sext.w	a5,a4
				sw	a4,24(t2)
 2072          lb = pstack(pending+1);  ub = pstack(pending+2)
				lui	a4,%hi(.LANCHOR0)
				addi	a4,a4,%lo(.LANCHOR0)
				sll	a5,a5,2
				add	a5,a4,a5
				lw	a2,0(a5)
				lui	a5,%hi(LB.7167)
				sw	a2,%lo(LB.7167)(a5)
 2073          %IF ub-lb+1 < 0 %START
				addw	a3,a3,-1
				sll	a3,a3,2
				add	a4,a4,a3
				lw	a5,0(a4)
				lui	a4,%hi(UB.7168)
				sw	a5,%lo(UB.7168)(a4)
				subw	a5,a5,a2
				addw	a5,a5,1
				bltz	a5,.L415
		.L412:
 2074             pos1 = 0;  next = link;  fault(11)
				lui	a5,%hi(POS1.6121)
				sw	zero,%lo(POS1.6121)(a5)
 2075             ub = lb
				lw	a5,32(t2)
				sw	a5,36(t2)
				lui	a5,%hi(LB.7167)
				lw	a4,%lo(LB.7167)(a5)
				lui	a5,%hi(UB.7168)
				sw	a4,%lo(UB.7168)(a5)
				j	.L412
		.LFE213:
				.align	1
		DEFSLAB.7264:
		.LFB216:
 2076          %FINISH
				ld	t2,0(t2)
				li	a0,11
				call	FAULT.6294
		.LVL419:
 2077          set const(lb);  set const(ub)
				ld	a5,0(s0)
				ld	t2,8(a5)
				lui	a5,%hi(LB.7167)
				lw	a0,%lo(LB.7167)(a5)
				call	SETCONST.6261
		.LVL417:
 2078          bp=bp+1 %AND buff(bp)='b' %UNLESS class = 146
				ld	a5,0(s0)
				ld	t2,8(a5)
				lui	a5,%hi(UB.7168)
				lw	a0,%lo(UB.7168)(a5)
				call	SETCONST.6261
		.LVL418:
				lw	a4,28(s0)
				li	a5,146
				beq	a4,a5,.L411
 2079       %END
				lui	a5,%hi(BP.6142)
				lw	a4,%lo(BP.6142)(a5)
				addw	a3,a4,1
				sw	a3,%lo(BP.6142)(a5)
 2080
				ld	a5,0(s0)
				ld	a5,8(a5)
				add	a4,a5,a4
				li	a5,106496
				add	a5,a5,a4
				li	a4,98
				sb	a4,-1786(a5)
		.L413:
		.L411:
				ld	ra,8(sp)
				ld	s0,0(sp)
				add	sp,sp,16
				jr	ra
		.L415:
 2081       %ROUTINE compile end(%INTEGER type)
 2082
 2083          ! type = 0:eof, 1:eop, 2:end
 2084
 2085          %IF access # 0 %START
				li	a5,-4096
				li	a4,4096
				add	a4,a4,912
				add	a3,sp,240
				add	a4,a4,a3
				add	a5,a4,a5
				sd	a5,176(sp)
				ld	t2,-384(a5)
				lw	a5,36(t2)
				bnez	a5,.L571
		.L574:
 2086             open = 0
				sw	zero,32(t2)
 2087             fault(19) %IF block form > proc;           !can reach end
				lw	a4,48(t2)
				li	a5,7
				ble	a4,a5,.L574
 2088          %FINISH
				li	a0,19
				call	FAULT.6294
		.LVL553:
				j	.L574
		.L763:
 2089
 2090          %WHILE dict(dmin) >= 0 %CYCLE;                !finishes & repeats
 2091             fault(17+dict(dmin)&1)
				li	a5,-4096
				li	a2,4096
				add	a4,a2,912
				add	a3,sp,240
				add	a4,a4,a3
				add	a5,a4,a5
				sd	a5,184(sp)
				ld	t2,-384(a5)
				ld	a4,8(t2)
				lw	a5,52(t2)
				addw	a5,a5,-1
				li	a3,12288
				add	a3,a3,1128
				add	a5,a5,a3
				sll	a5,a5,1
				add	a5,a4,a5
				lh	a5,4(a5)
				bltz	a5,.L572
				li	s1,12288
				add	s1,s1,1128
		.L573:
				and	a5,a5,1
				addw	a0,a5,17
				sext.w	a0,a0
				call	FAULT.6294
		.LVL547:
				ld	a4,8(t2)
				add	a5,a5,s1
				sll	a5,a5,1
				add	a5,a4,a5
				lh	a5,4(a5)
				bgez	a5,.L573
		.L572:
 2092             dmin = dmin+1
				li	a4,-4096
				add	a3,a2,912
				add	a2,sp,240
				add	a3,a3,a2
				add	a4,a3,a4
				sd	a4,120(sp)
				ld	a5,120(sp)
				ld	t2,-384(a5)
				lw	a5,52(t2)
				addw	a4,a5,1
				sw	a4,52(t2)
 2093          %REPEAT
 2094          {delete names(0)}
 2095          bp=bp+1 %AND buff(bp)=';'
				lui	a3,%hi(BP.6142)
				lw	a5,%lo(BP.6142)(a3)
				addw	a2,a5,1
				sext.w	a1,a2
				sw	a2,%lo(BP.6142)(a3)
 2096          bp=bp+1 %AND buff(bp)=';' %IF type = 1;       !endofprogram
				add	a4,a4,a5
				li	a3,106496
				add	a4,a3,a4
				li	a3,59
				sb	a3,-1786(a4)
				li	a4,1
				beq	s0,a4,.L763
		.L575:
 2097
				addw	a5,a5,2
				lui	a4,%hi(BP.6142)
				sw	a5,%lo(BP.6142)(a4)
 2098          bflags = bflags!open;                         !show if it returns
				ld	a4,0(t2)
				lhu	a5,0(a4)
				lhu	a3,32(t2)
				or	a5,a5,a3
				sh	a5,0(a4)
				ld	a5,8(t2)
				add	a4,a5,a1
				li	a5,106496
				add	a5,a5,a4
				li	a4,59
				sb	a4,-1786(a5)
				ld	a4,0(t2)
				lhu	a5,0(a4)
				lhu	a3,32(t2)
				or	a5,a5,a3
				sh	a5,0(a4)
 2099
 2100          def lab(0) %IF block tag # 0 %AND level # 1;  !for jump around
				li	a5,-4096
				li	a4,4096
				add	a4,a4,912
				add	a3,sp,240
				add	a4,a4,a3
				add	a5,a4,a5
				sd	a5,192(sp)
				ld	a5,-384(a5)
				lw	a4,28(a5)
				beqz	a4,.L578
				li	a5,-4096
				li	a4,4096
				add	a4,a4,912
				add	a3,sp,240
				add	a4,a4,a3
				add	a5,a4,a5
				sd	a5,224(sp)
				ld	a5,-384(a5)
				lw	a4,28(a5)
				beqz	a4,.L576
 2101          %IF type # 2 %START;                          !eop, eof
				lw	a4,60(a5)
				li	a5,1
				bne	a4,a5,.L720
		.L447:
		.L718:
				li	a5,2
				beq	s0,a5,.L583
				j	.L576
		.LVL548:
		.L762:
		.LBE545:
		.LBE544:
				lw	a4,60(a5)
				li	a5,1
				beq	a4,a5,.L576
		.L720:
				li	a5,2
				beq	s0,a5,.L580
		.L576:
 2102             fault(16) %IF level # type;                !end missing
				li	t2,-4096
				add	t2,t2,-384
				li	a5,4096
				add	a5,a5,912
				add	a4,sp,240
				add	a5,a5,a4
				add	t2,a5,t2
				li	a0,0
				call	DEFLAB.7187
		.LVL554:
		.L578:
				li	a5,-4096
				li	a4,4096
				add	a4,a4,912
				add	a3,sp,240
				add	a4,a4,a3
				add	a5,a4,a5
				sd	a5,200(sp)
				ld	t2,-384(a5)
				lw	a5,60(t2)
				bne	a5,s0,.L764
		.L581:
		.L582:
		.L583:
 2103          %FINISH %ELSE %START
				li	a0,16
				call	FAULT.6294
		.LVL555:
				j	.L583
		.L580:
 2104             %IF level = 0 %START
				li	a5,-4096
				li	a4,4096
				add	a4,a4,912
				add	a3,sp,240
				add	a4,a4,a3
				add	a5,a4,a5
				sd	a5,248(sp)
				ld	t2,-384(a5)
				lw	a5,60(t2)
				bnez	a5,.L583
 2105                fault(15);                              !spurious end
				li	a0,15
				call	FAULT.6294
		.LVL556:
				j	.L583
		.LVL557:
		.L584:
		.LDL27:
		.LDL28:
		.LDL29:
		.LBE546:
		.LBE549:
 2106             %FINISH
 2107          %FINISH
 2108
 2109          end mark = 11;               !******Mouses specific******
				lui	a5,%hi(ENDMARK.6076)
				li	a4,11
				sw	a4,%lo(ENDMARK.6076)(a5)
				j	.L423
		.L764:
 2110       %END
 2111
 2112       %ROUTINE def(%INTEGER p)
		.LVL107:
				add	sp,sp,-64
				sd	ra,56(sp)
				sd	s0,48(sp)
				sd	s1,40(sp)
				sd	s2,32(sp)
				sd	s3,24(sp)
				sd	s4,16(sp)
				sd	s5,8(sp)
				sd	s6,0(sp)
				mv	s2,a0
				mv	s0,t2
 2113
 2114          !dump a descriptor
 2115
 2116          %INTEGER t, f, type
 2117          %RECORD(tagfm)%NAME v
 2118          flush buffer %if bp # 0
				lui	a5,%hi(BP.6142)
				lw	a5,%lo(BP.6142)(a5)
				bnez	a5,.L89
		.LVL108:
		.L73:
 2119          defs = defs+1
				lw	a5,20(s0)
				addw	a5,a5,1
				sw	a5,20(s0)
				ld	a5,0(t2)
				ld	t2,8(a5)
				call	FLUSHBUFFER.6152
		.LVL125:
				j	.L73
		.LVL126:
		.L90:
 2120          v == tag(p)
				ld	a5,0(s0)
		.LVL109:
				sll	s1,s2,4
				ld	a4,8(a5)
				add	s1,a4,s1
 2121          t = 0
				li	a1,0
 2122          %UNLESS v_index < 0 %START;                   !no index for subnames
				lh	a4,222(s1)
				bltz	a4,.L74
 2123             id = id+1 %AND v_index = id %IF v_index = 0
				bnez	a4,.L75
 2124             last def = v_index
				lw	a4,56(a5)
				addw	a4,a4,1
				sw	a4,56(a5)
				lh	a1,222(s1)
		.LVL111:
		.L74:
 2125             t = last def
				ld	a5,0(s0)
		.LVL110:
				lw	a5,56(a5)
				sh	a5,222(s1)
		.L75:
 2126          %FINISH
 2127          op('$', t)
				ld	a5,0(s0)
				ld	t2,8(a5)
				li	a0,36
				call	OP.6258
		.LVL112:
 2128          print ident(p, 1);                            !output the name
				ld	a5,0(s0)
				ld	t2,8(a5)
				li	a1,1
				mv	a0,s2
				call	PRINTIDENT.6165
		.LVL113:
 2129          t = v_flags
				lh	s3,220(s1)
		.LVL114:
		.LDL5:
				and	s2,s3,15
 2130          type = t
 2131          type = type&(\(7<<4)) %IF type&(7<<4) >= 6<<4;!routine & pred
 2132          op(',', type&b'1111111');             !type & form
				sext.w	s4,s2
				ld	a5,0(s0)
				ld	t2,8(a5)
				mv	a1,s4
				li	a0,44
				call	OP.6258
		.LVL115:
 2133          f = v_format
				lw	a1,216(s1)
		.LVL116:
				and	s5,s3,1
 2134          f = tag(f)_index %IF t&x'70' = record<<4
				bnez	s5,.L76
 2135          f = v_index %IF f < 0
				ld	a5,0(s0)
				ld	a5,8(a5)
				add	a1,a1,13
		.LVL117:
				sll	a1,a1,4
		.LVL118:
				add	a1,a5,a1
				lh	a1,14(a1)
		.LVL119:
		.L76:
				bltz	a1,.L90
		.LVL120:
		.L77:
 2136          op(',', f);               !format
				ld	a5,0(s0)
				ld	t2,8(a5)
				li	a0,44
				call	OP.6258
		.LVL121:
				lh	a1,222(s1)
		.LVL127:
				j	.L77
		.LVL128:
		.L91:
 2137          f = otype+t>>4&b'1111000'
				lui	a5,%hi(OTYPE.6085)
				lw	s6,%lo(OTYPE.6085)(a5)
				srlw	a5,s3,4
				and	a5,a5,120
				addw	a5,a5,s6
 2138          f = f!8 %IF class = 125;              !add spec from %DUP
				lw	a3,28(s0)
				li	a4,125
				beq	a3,a4,.L91
		.L78:
		.LVL122:
 2139          dim = v_app;                          !dimension
				lw	a4,212(s1)
		.LVL123:
		.LBB337:
				lui	a3,%hi(DIM.6080)
				sw	a4,%lo(DIM.6080)(a3)
				j	.L80
		.LVL124:
		.L89:
				or	a5,a5,8
		.LVL129:
				j	.L78
		.LVL130:
		.L79:
 2140          dim = 0 %unless 0 < dim <= dim limit
 2141          op(',', f+dim<<8);                    !otype & spec & prot
				lui	a4,%hi(DIM.6080)
				lw	a1,%lo(DIM.6080)(a4)
				sllw	a1,a1,8
				ld	a4,0(s0)
				ld	t2,8(a4)
				addw	a1,a1,a5
				li	a0,44
				call	OP.6258
		.LVL132:
 2142          defs = 0 %IF t&parameters = 0
				bnez	s5,.L81
 2143          f = t&15
				addw	a2,a4,-1
				li	a3,5
				bgtu	a2,a3,.L79
		.LBE337:
				sw	zero,20(s0)
		.L81:
		.LVL133:
		.LBB338:
 2144          %IF v_flags&spec # 0 %START
 2145             v_flags = v_flags&(\spec) %UNLESS 3 <= f <= 10
 2146             ocount = -1;                       !external specs have no constants
				lui	a5,%hi(OCOUNT.6114)
				li	a4,-1
				sw	a4,%lo(OCOUNT.6114)(a5)
		.LDL7:
				lui	a5,%hi(OCOUNT.6114)
				li	a4,-1
				sw	a4,%lo(OCOUNT.6114)(a5)
 2147          %FINISH
 2148          dimension = 0
				lui	a4,%hi(DIM.6080)
		.LVL131:
				sw	zero,%lo(DIM.6080)(a4)
		.L80:
				addw	s2,s2,-3
				sll	s2,s2,48
				srl	s2,s2,48
				li	a5,7
				bleu	s2,a5,.L82
		.L83:
		.LBE338:
				lui	a5,%hi(DIMENSION.6124)
				sw	zero,%lo(DIMENSION.6124)(a5)
				lui	a5,%hi(DIMENSION.6124)
				sw	zero,%lo(DIMENSION.6124)(a5)
 2149          %if otype = 2 %and (f=2 %or f=12 %or f=14) %start
				li	a5,2
				beq	s6,a5,.L92
		.LVL134:
		.L72:
				li	a5,2
				bne	s6,a5,.L72
				j	.L86
		.LFE215:
				.align	1
		LOOKUP.6629:
		.LFB205:
 2150             v_flags = v_flags-1;               !convert to simple
				beq	s4,a5,.L85
		.L86:
				lhu	a5,220(s1)
				addw	a5,a5,-1
				sh	a5,220(s1)
		.L84:
 2151          %finish
				and	s3,s3,13
		.LVL137:
				li	a5,12
				bne	s3,a5,.L72
		.L85:
 2152       %END
				j	.L72
		.LVL138:
		.L82:
 2153
				lhu	a5,220(s1)
				and	a5,a5,-129
				sh	a5,220(s1)
		.LDL6:
				ld	ra,56(sp)
				ld	s0,48(sp)
				ld	s1,40(sp)
				ld	s2,32(sp)
				ld	s3,24(sp)
				ld	s4,16(sp)
		.LVL135:
				ld	s5,8(sp)
				ld	s6,0(sp)
				add	sp,sp,64
				jr	ra
		.LVL136:
		.L92:
 2154       %ROUTINE def s lab(%INTEGER n)
		.LVL420:
				add	sp,sp,-32
				sd	ra,24(sp)
				sd	s0,16(sp)
				sd	s1,8(sp)
				mv	s0,t2
 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
				lui	a5,%hi(X.6055)
				lw	s1,%lo(X.6055)(a5)
				ld	t2,0(t2)
				ld	a3,8(t2)
				add	a5,s1,13
				sll	a5,a5,4
				add	a5,a3,a5
				lw	a1,8(a5)
		.LVL421:
				sll	a5,a1,1
				add	a5,a3,a5
 2160          l = dict(p);                                     !lower bound
				li	a2,28672
				add	a2,a5,a2
				lh	a4,-1838(a2)
				sext.w	a2,a4
		.LVL422:
		.LBB489:
 2161          %IF l <= n <= dict(p+1) %START
 2162             b = n-l
				subw	a4,a0,a4
		.LVL423:
 2163             w = b>>4+p
				srlw	a4,a4,4
		.LVL426:
				addw	a4,a4,a1
				sll	a4,a4,1
				add	a4,a3,a4
 2164             bit = 1<<(b&15)
				bgt	a2,a0,.L417
				and	a2,a4,15
		.LVL424:
				li	a5,1
				sllw	a5,a5,a2
		.LVL425:
 2165             %IF dict(w+2)&bit # 0 %START;                 !already set
				li	a3,28672
		.LVL427:
				add	a3,a4,a3
		.LVL428:
				lh	a2,-1834(a3)
		.LVL429:
				seqz	a3,a5
				and	a3,a3,a2
				bnez	a3,.L418
 2166                fault(4) %IF pending # 0
				li	a2,28672
				add	a5,a5,a2
				lh	a5,-1836(a5)
				blt	a5,a0,.L417
		.LBE489:
				lw	a5,24(s0)
				beqz	a5,.L416
 2167                %RETURN
				li	a0,4
		.LVL430:
				call	FAULT.6294
		.LVL431:
				j	.L416
		.LVL432:
		.L418:
 2168             %FINISH
 2169             dict(w+2) <- dict(w+2)!bit %IF pending # 0
				lw	a3,24(s0)
				beqz	a3,.L420
 2170             set const(n)
				li	a3,28672
		.LVL433:
				add	a4,a4,a3
				or	a5,a2,a5
				sh	a5,-1834(a4)
		.LVL434:
		.L420:
				ld	a5,0(s0)
				ld	t2,8(a5)
				call	SETCONST.6261
		.LVL435:
 2171             op('_', tag(x)_index)
				ld	a5,0(s0)
				ld	t2,8(a5)
				add	s1,s1,13
				sll	s1,s1,4
				add	s1,t2,s1
				lh	a1,14(s1)
				li	a0,95
				call	OP.6258
		.LVL436:
 2172          %FINISH %ELSE %START
				j	.L421
		.LVL437:
		.L417:
 2173             fault(12)
				li	a0,12
		.LVL438:
				call	FAULT.6294
		.LVL439:
		.L421:
 2174          %FINISH
 2175          access = 1
				ld	a5,0(s0)
				li	a4,1
				sw	a4,36(a5)
		.L419:
		.L416:
 2176       %END
 2177
				ld	ra,24(sp)
				ld	s0,16(sp)
				ld	s1,8(sp)
				add	sp,sp,32
				jr	ra
		.LFE216:
				.align	1
		COMPILE.6277:
		.LFB209:
 2178       %ROUTINE call
 2179          %RECORD(tagfm)%NAME T
 2180          t == tag(x)
				ld	a5,768(sp)
				ld	t2,8(a5)
		.LVL590:
				lui	a5,%hi(X.6055)
				lw	s0,%lo(X.6055)(a5)
		.LVL591:
				sll	s0,s0,4
		.LVL592:
				add	s0,t2,s0
 2181          op('@', t_index)
				lh	a1,222(s0)
				li	a0,64
				call	OP.6258
		.LVL593:
 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
				ld	a5,768(sp)
				sw	zero,36(a5)
		.LDL31:
				lw	a4,212(s0)
				bnez	a4,.L738
 2184       %END
				lui	a3,%hi(BP.6142)
				lw	a4,%lo(BP.6142)(a3)
				addw	a2,a4,1
				sw	a2,%lo(BP.6142)(a3)
 2185
				ld	a5,8(a5)
				add	a4,a5,a4
				li	a5,106496
				add	a5,a5,a4
				li	a4,69
				sb	a4,-1786(a5)
				j	.L738
		.LVL594:
		.L614:
				j	.L616
		.L615:
				j	.L616
		.L617:
				j	.L627
		.L618:
				j	.L627
		.L619:
				j	.L627
		.L620:
				j	.L627
		.L621:
				j	.L627
		.L622:
		.L627:
		.LBE553:
		.LBE552:
 2186       %ROUTINE pop def
 2187          set const(pstack(pending));  pending = pending-1
				addw	a5,a5,-1
				sll	a5,a5,2
				ld	a4,64(sp)
				add	a5,a4,a5
				ld	a4,768(sp)
				ld	t2,8(a4)
				lw	a0,0(a5)
				call	SETCONST.6261
		.LVL611:
 2188       %END
				lw	a5,792(sp)
				addw	a5,a5,-1
				sw	a5,792(sp)
		.L647:
		.LBE555:
		.LBE554:
 2189
 2190       %ROUTINE pop lit
 2191          %IF pending = 0 %THEN lit = 0 %ELSE %START
				lw	a5,24(t2)
				beqz	a5,.L15
		.L13:
 2192             lit = pstack(pending);  pending = pending-1
				addw	a5,a5,-1
				sext.w	a4,a5
				sll	a3,a4,2
				lui	a4,%hi(.LANCHOR0)
				addi	a4,a4,%lo(.LANCHOR0)
				add	a4,a4,a3
				lw	a3,0(a4)
				lui	a4,%hi(LIT.6132)
				sw	a3,%lo(LIT.6132)(a4)
				lui	a5,%hi(LIT.6132)
				sw	zero,%lo(LIT.6132)(a5)
 2193          %FINISH
				sw	a5,24(t2)
		.L14:
				ret
		.LFE219:
				.align	1
		PUSH.7343:
		.LFB220:
 2194       %END
 2195
				ret
		.L15:
 2196
 2197       %IF sstype < 0 %START;                       !executable statement
				lui	a5,%hi(SSTYPE.6112)
				lw	a5,%lo(SSTYPE.6112)(a5)
				bltz	a5,.L743
		.L424:
		.L426:
		.L427:
 2198          %IF level = 0 %START;                     !outermost level
				lw	a5,60(t2)
				beqz	a5,.L750
		.L425:
 2199             fault(13);                             !*order
				li	a0,13
				call	FAULT.6294
		.LVL459:
				j	.L427
		.LVL460:
		.L744:
 2200          %FINISH %ELSE %START
 2201             %IF access = 0 %START
				ld	a5,32(sp)
				lw	a5,36(a5)
				bnez	a5,.L427
 2202                access = 1;  fault(-1);             !only a warning
				li	a5,1
				ld	a4,32(sp)
				sw	a5,36(a4)
 2203             %FINISH
				mv	t2,a4
				li	a0,-1
				call	FAULT.6294
		.LVL458:
				j	.L427
		.L750:
 2204          %FINISH
 2205       %FINISH
 2206
 2207       %IF diag&2 # 0 %START
 2208          newline %IF sym # nl
				lui	a5,%hi(SYM.6073)
				lw	a4,%lo(SYM.6073)(a5)
				li	a5,10
				beq	a4,a5,.L428
		.LBB531:
		.LBB532:
				call	_imp_newline
		.LVL440:
		.L428:
		.LBE532:
		.LBE531:
		.LBB533:
 2209          printstring("ss =")
				li	a2,256
				lui	a1,%hi(.LANCHOR1+1736)
				addi	a1,a1,%lo(.LANCHOR1+1736)
				li	s2,4096
				add	a0,s2,608
				add	a5,sp,240
				add	a0,a0,a5
				call	memcpy
		.LVL441:
				li	s0,-4096
				add	s1,sp,848
				li	a2,256
				add	a1,s2,608
				add	a5,sp,240
				add	a1,a1,a5
				mv	a0,s1
				call	memcpy
		.LVL442:
				li	a2,256
				mv	a1,s1
				add	a0,s2,608
				add	a5,sp,240
				add	a0,a0,a5
				call	memcpy
		.LVL443:
		.LBE533:
		.LBB534:
		.LBB535:
				li	a2,256
				add	a1,s2,608
				add	a5,sp,240
				add	a1,a1,a5
				add	a0,sp,512
				call	memcpy
		.LVL444:
				add	a0,s0,-640
				add	a5,s2,912
				add	a4,sp,240
				add	a5,a5,a4
				add	a0,a5,a0
				call	_imp_printstring
		.LVL445:
		.LBE535:
		.LBE534:
 2210          write(ss, 1)
				lui	s1,%hi(SS.6105)
				li	a1,1
				lw	a0,%lo(SS.6105)(s1)
				call	_imp_writeint
		.LVL446:
		.LBB536:
		.LBB537:
				call	_imp_newline
		.LVL447:
		.LBE537:
		.LBE536:
 2211          newline
 2212          count = 5
				lui	a5,%hi(COUNT.7185)
				li	a4,5
				sw	a4,%lo(COUNT.7185)(a5)
		.LVL448:
 2213          name = ""
 2214       %FINISH
 2215
				add	a1,s0,-48
				li	a2,8
				add	a5,s2,912
				add	a4,sp,240
				add	a5,a5,a4
				add	a1,a5,a1
				lui	a0,%hi(.LANCHOR0+176)
				addi	a0,a0,%lo(.LANCHOR0+176)
				call	_imp_strncpy
		.LVL449:
		.L429:
 2216       next = ss
				lw	a5,%lo(SS.6105)(s1)
				sw	a5,804(sp)
 2217       pending = 0;  lmode = 0
				sw	zero,792(sp)
 2218       link = 0;  decs = 0
				sw	zero,776(sp)
				sw	zero,800(sp)
		.LVL450:
 2219       defs = 0;  resln = 0;  done = 0
				sw	zero,788(sp)
		.LVL451:
				sd	zero,48(sp)
				sd	zero,48(sp)
 2220       ord = level
				sd	zero,80(sp)
		.L739:
				ld	a5,32(sp)
				lw	a5,60(a5)
				sd	a5,72(sp)
				sd	zero,80(sp)
				j	.L739
		.L430:
		.L431:
		.L432:
		.L433:
		.L434:
		.L435:
		.LVL461:
		.L436:
				j	.L738
		.LVL462:
		.L745:
 2221       ord = 1 %IF this >= 0;                       !recordformat declarations
				lui	a5,%hi(THIS.6097)
				lw	a5,%lo(THIS.6097)(a5)
				bltz	a5,.L744
 2222 c(0):
				li	a5,1
				sd	a5,72(sp)
 2223 top:  %IF next # link %START
 2224          get next;  ->c(class)
				li	a5,-4096
				add	a5,a5,-384
				li	a4,4096
				add	a4,a4,912
				add	a3,sp,240
				add	a4,a4,a3
				add	a5,a4,a5
				sd	a5,40(sp)
				lw	a4,804(sp)
				lw	a5,800(sp)
				bne	a4,a5,.L745
		.L438:
				ld	t2,40(sp)
				call	GETNEXT.7190
		.LVL463:
 2225       %FINISH
				lw	s0,796(sp)
		.LVL464:
		.LDL25:
				sext.w	a4,s0
				li	a5,180
				bgtu	a4,a5,.L440
		.L441:
 2226
 2227       !all done, tidy up declarations and jumps
 2228
 2229       newline %IF diag&2 # 0 %AND count # 5
 2230
				lui	a5,%hi(COUNT.7185)
				lw	a4,%lo(COUNT.7185)(a5)
				li	a5,5
				beq	a4,a5,.L442
		.LBB538:
		.LBB539:
				call	_imp_newline
		.LVL453:
		.L442:
		.LBE539:
		.LBE538:
 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
				ld	s1,32(sp)
				lw	a1,24(s1)
				ld	t2,8(s1)
				addw	a1,a1,-1
				li	a0,66
				call	OP.6258
		.LVL454:
		.L443:
 2234          def lab(label-1) %IF lmode&else # 0;      !entry from else
				li	s0,-4096
				add	s0,s0,-384
				li	a5,4096
				add	a5,a5,912
				add	a4,sp,240
				add	a5,a5,a4
				add	s0,a5,s0
				mv	t2,s0
				lw	a0,24(s1)
				call	DEFLAB.7187
		.LVL455:
		.L444:
 2235       %FINISH
				lw	a0,24(s1)
				mv	t2,s0
				addw	a0,a0,-1
				call	DEFLAB.7187
		.LVL456:
		.L445:
		.L446:
 2236
 2237       %RETURN %IF decs = 0
				ld	a5,48(sp)
				beqz	a5,.L423
		.L448:
 2238       atom1 = error %AND %RETURN %IF atom1 # 0;    !%INTEGERROUTINE
				lui	a5,%hi(ATOM1.6056)
				lw	a5,%lo(ATOM1.6056)(a5)
				bnez	a5,.L746
		.L449:
 2239       order = ord
				lui	a5,%hi(ORDER.6117)
				ld	a4,72(sp)
				sw	a4,%lo(ORDER.6117)(a5)
				lui	a5,%hi(ATOM1.6056)
				li	a4,32768
				sw	a4,%lo(ATOM1.6056)(a5)
		.L423:
 2240       decl = decl&(\15)+decmap(decl&15);           !construct declarator flags
				lui	a2,%hi(DECL.6079)
				lw	a4,%lo(DECL.6079)(a2)
				li	a3,-4096
				and	a5,a4,15
				sll	a5,a5,1
				li	a1,4096
				add	a1,a1,912
				add	a0,sp,240
				add	a1,a1,a0
				add	a3,a1,a3
				sd	a3,88(sp)
				add	a5,a3,a5
				lh	a5,-336(a5)
				and	a4,a4,-16
				addw	a5,a5,a4
				sext.w	a3,a5
				sw	a5,%lo(DECL.6079)(a2)
 2241       atom1 = atoms(decl&15);                      !generate class
				ld	a5,32(sp)
				ld	a5,8(a5)
				and	a4,a3,15
				add	a4,a5,a4
				li	a5,36864
				add	a5,a5,a4
				lbu	a5,1972(a5)
				sext.w	a2,a5
				lui	a4,%hi(ATOM1.6056)
				sw	a5,%lo(ATOM1.6056)(a4)
 2242       %IF otype # 0 %START;                        !own, const etc.
				lui	a4,%hi(OTYPE.6085)
				lw	a4,%lo(OTYPE.6085)(a4)
				beqz	a4,.L456
 2243          atom1 = atom1+1 %IF atom1 # proc
				li	a1,7
				beq	a2,a1,.L451
 2244          %IF otype = 2 %START;                     !const
				addw	a5,a5,1
				lui	a2,%hi(ATOM1.6056)
				sw	a5,%lo(ATOM1.6056)(a2)
		.L451:
				li	a5,2
				beq	a4,a5,.L747
		.L452:
 2245             n = decl&15
 2246             %if n&1 # 0 %start
 2247                decl = decl!prot
				or	a3,a3,256
				lui	a5,%hi(DECL.6079)
		.LVL467:
				sw	a3,%lo(DECL.6079)(a5)
		.LVL468:
				j	.L456
		.LVL469:
		.L453:
 2248                decl = decl!const bit %IF decl&b'1111111' = iform
				and	a5,a3,1
				beqz	a5,.L453
 2249             %finish
				li	a5,8192
				add	a5,a5,256
				or	a3,a3,a5
				lui	a5,%hi(DECL.6079)
		.LVL470:
				sw	a3,%lo(DECL.6079)(a5)
		.LVL471:
				j	.L456
		.L748:
 2250          %else
 2251             decl = decl!own bit
				or	a3,a3,512
				lui	a5,%hi(DECL.6079)
				sw	a3,%lo(DECL.6079)(a5)
		.L450:
		.L454:
		.L455:
		.L456:
 2252          %FINISH
 2253       %FINISH
 2254       sstype = 1 %IF sstype = 0 %AND atom1 = proc
				lui	a5,%hi(SSTYPE.6112)
				lw	a5,%lo(SSTYPE.6112)(a5)
				bnez	a5,.L457
 2255       atom1 = atom1+1 %IF decl&spec # 0;             !onto spec variant
				lui	a5,%hi(ATOM1.6056)
				lw	a4,%lo(ATOM1.6056)(a5)
				li	a5,7
				beq	a4,a5,.L748
		.L457:
 2256       ocount = 0 %AND cont = '+' %IF atom1 = 5;      !own array
				lui	a4,%hi(ATOM1.6056)
				lw	a5,%lo(ATOM1.6056)(a4)
				addw	a5,a5,1
				sext.w	a3,a5
				sw	a5,%lo(ATOM1.6056)(a4)
		.LDL23:
				li	a5,5
				beq	a3,a5,.L749
		.L458:
				lui	a5,%hi(SSTYPE.6112)
				li	a4,1
				sw	a4,%lo(SSTYPE.6112)(a5)
				lui	a5,%hi(ATOM1.6056)
				li	a4,8
				sw	a4,%lo(ATOM1.6056)(a5)
				j	.L458
		.L749:
 2257       %IF anyform(decl&15) = 0 %START;               !check meaningful
				lui	a5,%hi(DECL.6079)
				lw	a4,%lo(DECL.6079)(a5)
				and	a5,a4,15
				li	a3,4096
				add	a3,a3,912
				add	a2,sp,240
				add	a3,a3,a2
				add	a5,a3,a5
				lbu	a5,-24(a5)
				bnez	a5,.L423
				lui	a5,%hi(OCOUNT.6114)
				sw	zero,%lo(OCOUNT.6114)(a5)
 2258          %IF decl>>4&7 = record %START
				and	a4,a4,16
				bnez	a4,.L460
				lui	a5,%hi(CONT.6077)
				li	a4,43
				sw	a4,%lo(CONT.6077)(a5)
				j	.L458
		.LVL472:
		.L463:
		.L464:
 2259             this = fdef %IF tag(fdef)_flags&spec # 0
 2260             atom1 = error+21 %IF fdef = this;        !*context for format
				lui	a5,%hi(FDEF.6096)
				lw	a4,%lo(FDEF.6096)(a5)
				lui	a5,%hi(THIS.6097)
				sw	a4,%lo(THIS.6097)(a5)
		.LDL24:
 2261          %FINISH
				lui	a4,%hi(ATOM1.6056)
				li	a5,32768
				addw	a5,a5,21
				sw	a5,%lo(ATOM1.6056)(a4)
		.L459:
		.L460:
 2262          atom1 = error+10 %IF fdef = 0;              !*size
				lui	a5,%hi(FDEF.6096)
				lw	a5,%lo(FDEF.6096)(a5)
				bnez	a5,.L423
 2263       %FINISH
				lui	a4,%hi(ATOM1.6056)
				li	a5,32768
				addw	a5,a5,10
				sw	a5,%lo(ATOM1.6056)(a4)
				j	.L423
		.LVL457:
		.L743:
 2264       %RETURN
 2265
 2266 atop:   access = 0;  ->top
 2267
				ld	a5,32(sp)
				sw	zero,36(a5)
 2268 ! declarators
				j	.L738
		.LVL500:
		.L517:
 2269
 2270 c(88):                                                !rtype
 2271 c(28): decl = x&(\7);                                 !stype
 2272        fdef = x&7;                                    !precision
				lui	a5,%hi(X.6055)
				lw	a5,%lo(X.6055)(a5)
				and	a3,a5,-8
				lui	a4,%hi(DECL.6079)
				sw	a3,%lo(DECL.6079)(a4)
				and	a3,a5,7
				lui	a4,%hi(FDEF.6096)
				sw	a3,%lo(FDEF.6096)(a4)
 2273        fdef = reals ln %IF x&b'1110001' = real<<4+1;  !convert to long
				and	a5,a5,1
				sd	a5,48(sp)
		.LVL473:
				bnez	a5,.L738
 2274        decs = 1;  ->top
				lui	a5,%hi(REALSLN.6086)
				lw	a4,%lo(REALSLN.6086)(a5)
				lui	a5,%hi(FDEF.6096)
				sw	a4,%lo(FDEF.6096)(a5)
				li	a5,1
				sd	a5,48(sp)
				j	.L738
		.LVL474:
		.L465:
		.L466:
 2275 c(34):                                                !own
 2276 c(35): otype = x;  ord = 1;  ->top;                   !external
 2277 c(152):decl = decl+x<<1;  ->top;                      !xname
				lui	a5,%hi(X.6055)
				lw	a4,%lo(X.6055)(a5)
				lui	a5,%hi(OTYPE.6085)
				sw	a4,%lo(OTYPE.6085)(a5)
		.LVL475:
 2278 c(31):                                                !proc
				li	a5,1
				sd	a5,72(sp)
				lui	a4,%hi(DECL.6079)
				lui	a5,%hi(X.6055)
				lw	a5,%lo(X.6055)(a5)
				sllw	a5,a5,1
				lw	a3,%lo(DECL.6079)(a4)
				addw	a5,a5,a3
				sw	a5,%lo(DECL.6079)(a4)
 2279 c(32): spec mode = level+1;                           !fn/map
				j	.L738
		.LVL476:
		.L467:
				j	.L738
		.L468:
		.L469:
 2280        decl = decl!prot %IF x = 9;                    !function
				ld	a5,32(sp)
				lw	a5,60(a5)
				addw	a5,a5,1
				lui	a4,%hi(SPECMODE.6113)
				sw	a5,%lo(SPECMODE.6113)(a4)
				lui	a5,%hi(X.6055)
				lw	a4,%lo(X.6055)(a5)
				li	a5,9
				beq	a4,a5,.L752
		.L470:
		.L471:
		.LVL477:
 2281 c(29): ord = 1;                                       !array
				lui	a4,%hi(DECL.6079)
				lw	a5,%lo(DECL.6079)(a4)
				or	a5,a5,256
				sw	a5,%lo(DECL.6079)(a4)
				j	.L471
		.L473:
 2282        dim = 0
				lui	a5,%hi(DIM.6080)
				sw	zero,%lo(DIM.6080)(a5)
				li	a5,1
				sd	a5,72(sp)
		.LVL478:
		.L472:
 2283 c(30): decl = decl+x;                                 !name
 2284        decs = 1
				lui	a4,%hi(DECL.6079)
				lw	a5,%lo(DECL.6079)(a4)
				lui	a3,%hi(X.6055)
				lw	a3,%lo(X.6055)(a3)
				addw	a5,a5,a3
				sw	a5,%lo(DECL.6079)(a4)
		.LVL479:
				li	a5,1
				sd	a5,48(sp)
 2285        ->top
				j	.L738
		.LVL480:
		.L752:
 2286 c(27): lit = 0;                                       ! arrayd
 2287        %IF pending # 0 %START
				lui	a5,%hi(LIT.6132)
				sw	zero,%lo(LIT.6132)(a5)
				lw	a5,792(sp)
				bnez	a5,.L753
		.L474:
		.L476:
 2288           pop lit
				ld	t2,40(sp)
				call	POPLIT.7287
		.LVL483:
		.LBB540:
 2289           %UNLESS 0<lit<=dim limit %START
 2290              atom1 = error + 11;  %RETURN
				lui	a4,%hi(ATOM1.6056)
				li	a5,32768
				addw	a5,a5,11
				sw	a5,%lo(ATOM1.6056)(a4)
 2291           %FINISH
				j	.L423
		.LVL484:
		.L477:
 2292        %FINISH
				lui	a5,%hi(LIT.6132)
				lw	a5,%lo(LIT.6132)(a5)
				addw	a5,a5,-1
				li	a4,5
				bleu	a5,a4,.L476
		.L475:
		.LBE540:
 2293        dim = lit
				lui	a5,%hi(LIT.6132)
				lw	a4,%lo(LIT.6132)(a5)
				lui	a5,%hi(DIM.6080)
				sw	a4,%lo(DIM.6080)(a5)
 2294        decl = decl + x;  decs = 1
				lui	a4,%hi(DECL.6079)
				lw	a5,%lo(DECL.6079)(a4)
				lui	a3,%hi(X.6055)
				lw	a3,%lo(X.6055)(a3)
				addw	a5,a5,a3
				sw	a5,%lo(DECL.6079)(a4)
		.LVL481:
 2295        -> top
				li	a5,1
				sd	a5,48(sp)
				j	.L738
		.LVL482:
		.L753:
 2296 c(37): x = x!subname;                                 !record
 2297 c(36): lit = 0;                                       !string
				lui	a3,%hi(X.6055)
				lw	a5,%lo(X.6055)(a3)
				li	a4,4096
				add	a4,a4,-2048
				or	a5,a5,a4
				sw	a5,%lo(X.6055)(a3)
		.L478:
 2298        %IF pending # 0 %START
				lui	a5,%hi(LIT.6132)
				sw	zero,%lo(LIT.6132)(a5)
				lw	a5,792(sp)
				bnez	a5,.L754
		.L479:
		.L481:
 2299          pop lit
				ld	t2,40(sp)
				call	POPLIT.7287
		.LVL487:
		.LBB541:
 2300           %UNLESS 0 < lit <= 255 %START;              !max length wrong
 2301              atom1 = error+10;  %RETURN
				lui	a4,%hi(ATOM1.6056)
				li	a5,32768
				addw	a5,a5,10
				sw	a5,%lo(ATOM1.6056)(a4)
 2302           %FINISH
				j	.L423
		.LVL488:
		.L483:
 2303        %FINISH
				lui	a5,%hi(LIT.6132)
				lw	a5,%lo(LIT.6132)(a5)
				addw	a5,a5,-1
				li	a4,254
				bleu	a5,a4,.L481
		.L480:
		.LBE541:
 2304        fdef = lit;                                    !format or length
				lui	a5,%hi(LIT.6132)
				lw	a4,%lo(LIT.6132)(a5)
				lui	a5,%hi(FDEF.6096)
				sw	a4,%lo(FDEF.6096)(a5)
		.L482:
 2305 c(33): decl = x;                                      !switch
 2306        decs = 1
				lui	a5,%hi(X.6055)
				lw	a4,%lo(X.6055)(a5)
				lui	a5,%hi(DECL.6079)
				sw	a4,%lo(DECL.6079)(a5)
		.LVL485:
				li	a5,1
				sd	a5,48(sp)
 2307        ->top
				j	.L738
		.LVL486:
		.L754:
 2308 c(39): decl = decl!spec;                              !spec
 2309        ocount = -1;                                   !no initialisation
				lui	a4,%hi(DECL.6079)
				lw	a5,%lo(DECL.6079)(a4)
				or	a5,a5,128
				sw	a5,%lo(DECL.6079)(a4)
				li	a5,-1
				lui	a4,%hi(OCOUNT.6114)
				sw	a5,%lo(OCOUNT.6114)(a4)
 2310        spec mode = -1
				lui	a4,%hi(SPECMODE.6113)
				sw	a5,%lo(SPECMODE.6113)(a4)
 2311        ->top
				j	.L738
		.L484:
 2312 c(38): decl = 64+4;                                   !recordformat (spec)
 2313        order = 1
				lui	a5,%hi(DECL.6079)
				li	a4,68
				sw	a4,%lo(DECL.6079)(a5)
				lui	a5,%hi(ORDER.6117)
				li	a4,1
				sw	a4,%lo(ORDER.6117)(a5)
 2314        atom1 = x
				lui	a5,%hi(X.6055)
				lw	a5,%lo(X.6055)(a5)
				lui	a4,%hi(ATOM1.6056)
				sw	a5,%lo(ATOM1.6056)(a4)
 2315        decl = decl!spec %if atom1 = 12;               !formatspec
				li	a4,12
				beq	a5,a4,.L755
		.L485:
 2316        fdef = tmax+1;                                 !format tag
				ld	a5,32(sp)
				lw	a5,64(a5)
				addw	a5,a5,1
				lui	a4,%hi(FDEF.6096)
				sw	a5,%lo(FDEF.6096)(a4)
				lui	a5,%hi(DECL.6079)
				li	a4,196
				sw	a4,%lo(DECL.6079)(a5)
				j	.L485
		.L486:
 2317        %return
				j	.L423
		.L755:
 2318 c(175):id = id+1;  tag(x)_index = id;  %return;       !FSID
 2319 c(41): decs = 1;  decl = x!spec!closed;  ->top;       !label
				ld	a5,32(sp)
				lw	a4,56(a5)
				addw	a4,a4,1
				sw	a4,56(a5)
 2320 c(133):recid = 0;  rbase = tmin-1;                    !fname
				ld	a3,8(a5)
				lui	a5,%hi(X.6055)
				lw	a5,%lo(X.6055)(a5)
				add	a5,a5,13
				sll	a5,a5,4
				add	a5,a3,a5
				sh	a4,14(a5)
				li	a5,1
				sd	a5,48(sp)
 2321        this = x
				j	.L423
		.L487:
		.LVL489:
				lui	a5,%hi(X.6055)
				lw	a5,%lo(X.6055)(a5)
				li	a4,16384
				add	a4,a4,128
				or	a5,a5,a4
				lui	a4,%hi(DECL.6079)
				sw	a5,%lo(DECL.6079)(a4)
				ld	a5,32(sp)
				ld	a5,8(a5)
				sw	zero,204(a5)
				lui	a4,%hi(X.6055)
				lw	a0,%lo(X.6055)(a4)
				lui	a4,%hi(THIS.6097)
				sw	a0,%lo(THIS.6097)(a4)
 2322        fm base = fdef;  format list = tmin
				j	.L738
		.LVL490:
		.L488:
				lui	a5,%hi(TMIN.6104)
				lw	a5,%lo(TMIN.6104)(a5)
				addw	a3,a5,-1
				lui	a4,%hi(RBASE.6100)
				sw	a3,%lo(RBASE.6100)(a4)
				lui	a4,%hi(FDEF.6096)
				lw	a3,%lo(FDEF.6096)(a4)
				lui	a4,%hi(FMBASE.6126)
				sw	a3,%lo(FMBASE.6126)(a4)
 2323        def(this);                      ->top
				lui	a4,%hi(FORMATLIST.6128)
				sw	a5,%lo(FORMATLIST.6128)(a4)
				ld	t2,40(sp)
				call	DEF.7240
		.LVL491:
				j	.L738
		.L489:
 2324 c(148):fdef = 0 %AND ->top %IF next = 0;              !reclb
 2325        get next;                                      !skip name
				lw	a5,804(sp)
				bnez	a5,.L490
				ld	t2,40(sp)
				call	GETNEXT.7190
		.LVL492:
 2326        fdef = x
				lui	a5,%hi(FDEF.6096)
				sw	zero,%lo(FDEF.6096)(a5)
				lui	a5,%hi(X.6055)
				lw	a4,%lo(X.6055)(a5)
				lui	a5,%hi(FDEF.6096)
				sw	a4,%lo(FDEF.6096)(a5)
 2327        ->top
				j	.L738
		.L490:
				j	.L738
		.L491:
 2328 c(127):bp=bp+1 %AND buff(bp)='}';  ->top;             !%POUT
 2329 c(126):bp=bp+1 %AND buff(bp)='{';  ->top;             !%PIN
				lui	a5,%hi(BP.6142)
				lw	a4,%lo(BP.6142)(a5)
				addw	a3,a4,1
				sw	a3,%lo(BP.6142)(a5)
 2330
				ld	a5,32(sp)
				ld	a5,8(a5)
				add	a4,a5,a4
				li	a5,106496
				add	a5,a5,a4
				li	a4,125
				sb	a4,-1786(a5)
				lui	a5,%hi(BP.6142)
				lw	a4,%lo(BP.6142)(a5)
				addw	a3,a4,1
				sw	a3,%lo(BP.6142)(a5)
 2331 c(174):set bp;                                        !rangerb
				j	.L738
		.L492:
				ld	a5,32(sp)
				ld	a5,8(a5)
				add	a4,a5,a4
				li	a5,106496
				add	a5,a5,a4
				li	a4,123
				sb	a4,-1786(a5)
 2332 c(171):                                               !fmlb
				j	.L738
		.L493:
				ld	t2,40(sp)
				call	SETBP.7222
		.LVL493:
		.L496:
 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
				lui	a2,%hi(BP.6142)
				lw	a5,%lo(BP.6142)(a2)
 2336        sstype = 0;  spec mode = 0
				ld	a0,32(sp)
				ld	a4,8(a0)
				add	a4,a4,a5
				li	a3,106496
				add	a4,a3,a4
				li	a1,126
				sb	a1,-1786(a4)
				lui	a4,%hi(RBASE.6100)
				lw	a5,%lo(RBASE.6100)(a4)
				subw	a5,zero,a5
				sw	a5,%lo(RBASE.6100)(a4)
				lui	a5,%hi(SSTYPE.6112)
				sw	zero,%lo(SSTYPE.6112)(a5)
 2337
				addw	a4,a5,2
				sw	a4,%lo(BP.6142)(a2)
				lui	a5,%hi(SPECMODE.6113)
				sw	zero,%lo(SPECMODE.6113)(a5)
		.L498:
 2338 c(147):search base = 0;                               !recrb
				ld	a4,8(a0)
				addw	a5,a5,1
				add	a5,a4,a5
				add	a3,a3,a5
				lw	a5,796(sp)
				addw	a5,a5,-106
				sb	a5,-1786(a3)
 2339        tag(this)_app = tmin
				j	.L738
		.L494:
				j	.L496
		.L495:
				j	.L496
		.L497:
				lui	a5,%hi(SEARCHBASE.6127)
				sw	zero,%lo(SEARCHBASE.6127)(a5)
				lui	a5,%hi(THIS.6097)
				lw	a5,%lo(THIS.6097)(a5)
				ld	a2,32(sp)
				ld	a4,8(a2)
				add	a5,a5,13
				sll	a5,a5,4
				add	a4,a4,a5
				lui	a3,%hi(TMIN.6104)
				lw	a3,%lo(TMIN.6104)(a3)
				sw	a3,4(a4)
 2340        tag(this)_format = rbase
				ld	a4,8(a2)
				add	a5,a4,a5
				lui	a4,%hi(RBASE.6100)
				lw	a4,%lo(RBASE.6100)(a4)
				sw	a4,8(a5)
 2341        ->top
				j	.L738
		.L499:
 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
				lui	a5,%hi(X.6055)
				lw	a4,%lo(X.6055)(a5)
				li	a5,36
				bne	a4,a5,.L738
 2345 c(47):                                                !mod
				lui	a5,%hi(BP.6142)
				lw	a4,%lo(BP.6142)(a5)
				addw	a3,a4,1
				sw	a3,%lo(BP.6142)(a5)
				lui	a5,%hi(BP.6142)
				lw	a4,%lo(BP.6142)(a5)
				addw	a3,a4,1
				sw	a3,%lo(BP.6142)(a5)
 2346 c(48):                                                !dot
				ld	a5,32(sp)
				ld	a5,8(a5)
				add	a4,a5,a4
				li	a5,106496
				add	a5,a5,a4
				li	a4,85
				sb	a4,-1786(a5)
				j	.L738
		.L500:
				ld	a5,32(sp)
				ld	a5,8(a5)
				add	a4,a5,a4
				li	a5,106496
				add	a5,a5,a4
				li	a4,92
				sb	a4,-1786(a5)
 2347 c(42):                                                !op1
				j	.L738
		.L501:
		.L505:
 2348 c(43):                                                !op2
 2349 c(44):bp=bp+1;  buff(bp)=operator(x);  ->top;         !op3
 2350
				lui	a4,%hi(BP.6142)
				lw	a5,%lo(BP.6142)(a4)
				addw	a3,a5,1
				sw	a3,%lo(BP.6142)(a4)
 2351 !conditions & jumps
				ld	a4,32(sp)
				ld	a4,8(a4)
				add	a5,a4,a5
				li	a4,106496
				add	a4,a4,a5
				lui	a5,%hi(X.6055)
				lw	a5,%lo(X.6055)(a5)
				addw	a5,a5,-1
				li	a3,4096
				add	a3,a3,912
				add	a2,sp,240
				add	a3,a3,a2
				add	a5,a3,a5
				lbu	a5,-40(a5)
				sb	a5,-1786(a4)
 2352
				j	.L738
		.L502:
				j	.L505
		.L503:
				j	.L505
		.L504:
				j	.L505
		.L506:
		.L507:
 2353       %ROUTINE push(%INTEGER x)
		.LVL13:
 2354          %IF cnest(cp)&2 # x %START
				lw	a5,16(t2)
				lui	a4,%hi(.LANCHOR0)
				addi	a4,a4,%lo(.LANCHOR0)
				add	a4,a4,a5
				lbu	a3,160(a4)
				add	a4,a0,-2
				seqz	a4,a4
				and	a4,a3,a4
				bnez	a4,.L17
 2355             cnest(cp) = cnest(cp)!1;  x = x+4
				lui	a4,%hi(.LANCHOR0)
				addi	a4,a4,%lo(.LANCHOR0)
				add	a4,a4,a5
				or	a3,a3,1
				sb	a3,160(a4)
 2356          %FINISH
				addw	a0,a0,4
		.LVL14:
		.L17:
 2357          clab = clab+1 %IF cnest(cp)&1 # 0
 2358          cnest(cp+1) = x;  cp = cp+1
				lw	a4,12(t2)
				addw	a4,a4,1
				sw	a4,12(t2)
		.LDL1:
				addw	a5,a5,1
				sext.w	a3,a5
				lui	a4,%hi(.LANCHOR0)
				addi	a4,a4,%lo(.LANCHOR0)
				add	a4,a4,a3
				sb	a0,160(a4)
 2359       %END
				sw	a5,16(t2)
 2360
				ret
		.LFE220:
				.align	1
		ABANDON.6184:
		.LFB188:
 2361       %ROUTINE pop label(%INTEGER mode)
		.LVL414:
				add	sp,sp,-16
				sd	ra,8(sp)
 2362          lmode = dict(dmin)
				ld	a4,0(t2)
				ld	a3,8(a4)
				lw	a5,52(a4)
				addw	a5,a5,-1
				li	a2,12288
				add	a2,a2,1128
				add	a5,a5,a2
				sll	a5,a5,1
				add	a5,a3,a5
				lh	a3,4(a5)
				sext.w	a2,a3
				sw	a3,8(t2)
 2363          %IF lmode < 0 %OR lmode&1 # mode %START
				bltz	a2,.L405
 2364             fault(mode+8)
				add	a5,a0,-1
				seqz	a5,a5
				and	a5,a5,a2
				beqz	a5,.L405
		.L406:
				mv	t2,a4
				addw	a0,a0,8
		.LVL415:
				call	FAULT.6294
		.LVL416:
 2365          %FINISH %ELSE %START
 2366             dmin = dmin+1;  label = label-3
				lw	a5,52(a4)
				addw	a5,a5,1
				sw	a5,52(a4)
 2367          %FINISH
				ld	a4,0(t2)
				lw	a5,24(a4)
				addw	a5,a5,-3
				sw	a5,24(a4)
				ret
		.L405:
 2368       %END
 2369
				ld	ra,8(sp)
				add	sp,sp,16
				jr	ra
		.L407:
		.LFE221:
				.align	1
		SETBP.7222:
		.LFB213:
 2370 c(56):                                         !and
 2371 c(57):push(x);  ->top;                         !or
 2372 c(58):cnest(cp) = cnest(cp)!!2;  ->top;        !not
				ld	t2,40(sp)
				lui	a5,%hi(X.6055)
				lw	a0,%lo(X.6055)(a5)
				call	PUSH.7343
		.LVL494:
				j	.L738
		.L508:
 2373
				lw	a5,784(sp)
				ld	a4,64(sp)
				add	a5,a4,a5
				lbu	a4,160(a5)
				xor	a4,a4,2
				sb	a4,160(a5)
 2374 c(138):x = 128+32+16+4;                        !csep: treat like %WHILE
				j	.L738
		.L509:
 2375 c(59):                                         !while
				lui	a5,%hi(X.6055)
				li	a4,180
				sw	a4,%lo(X.6055)(a5)
		.L511:
 2376 c(60):%IF class = 138 %THEN op('f', label-1) %C
 2377                       %ELSE def lab(label-1);  !until
				lw	a4,796(sp)
				li	a5,138
				beq	a4,a5,.L756
		.L512:
 2378 c(166):                                        !runtil
				ld	a5,32(sp)
				lw	a1,24(a5)
				ld	t2,8(a5)
				addw	a1,a1,-1
				li	a0,102
				call	OP.6258
		.LVL496:
				j	.L515
		.L513:
		.L514:
		.L515:
 2379 c(62):lmode = (lmode&(else!loop)) !(x>>3);     !cword
 2380       clab = label;  cp = 1;  cnest(1) = x&7
				lui	a5,%hi(X.6055)
				lw	a4,%lo(X.6055)(a5)
				lw	a5,776(sp)
				and	a5,a5,24
				srlw	a3,a4,3
				or	a5,a5,a3
				sw	a5,776(sp)
				ld	a5,32(sp)
				lw	a5,24(a5)
				sw	a5,780(sp)
 2381       ->top
				ld	a5,32(sp)
				lw	a0,24(a5)
				ld	t2,40(sp)
				addw	a0,a0,-1
				call	DEFLAB.7187
		.LVL495:
				j	.L515
		.L510:
				j	.L511
		.L756:
				li	a5,1
				sw	a5,784(sp)
				j	.L738
		.L516:
 2382 c(72):pop label(0);                            !repeat
				and	a4,a4,7
				ld	a5,64(sp)
				sb	a4,161(a5)
 2383       def lab(label+1) %IF lmode&32 # 0;  ->atop
				ld	s0,40(sp)
		.LVL497:
				mv	t2,s0
				li	a0,0
				call	POPLABEL.7348
		.LVL498:
 2384 c(69):pop label(1);               ->top;       !finish
				ld	a5,32(sp)
				lw	a0,24(a5)
				mv	t2,s0
				addw	a0,a0,1
				call	DEFLAB.7187
		.LVL499:
		.L461:
		.L462:
 2385 c(163):                                        !xelse
				ld	t2,40(sp)
				li	a0,1
				call	POPLABEL.7348
		.LVL501:
				j	.L738
		.L518:
		.L519:
 2386 c(70):pop label(1);                            !finish else ...
 2387       fault(7) %IF lmode&3 = 3;                !dangling else
				ld	t2,40(sp)
				li	a0,1
				call	POPLABEL.7348
		.LVL502:
 2388 c(68):lmode = (lmode&else)!3;                  !...else...
				ld	t2,32(sp)
				li	a0,7
				call	FAULT.6294
		.LVL503:
		.L520:
		.L521:
 2389       %IF access # 0 %START
				lw	a5,776(sp)
				and	a5,a5,8
				or	a5,a5,3
				sw	a5,776(sp)
				ld	a4,32(sp)
				lw	a5,36(a4)
				beqz	a5,.L522
 2390          op('F', label-1);  lmode = else!3
				lw	a1,24(a4)
				ld	t2,8(a4)
				addw	a1,a1,-1
				li	a0,70
				call	OP.6258
		.LVL504:
 2391       %FINISH
				li	a5,11
				sw	a5,776(sp)
		.L522:
 2392       def lab(label)
				ld	t2,40(sp)
				ld	a5,32(sp)
				lw	a0,24(a5)
				call	DEFLAB.7187
		.LVL505:
 2393       ->top %IF next # 0
				lw	a5,804(sp)
				bnez	a5,.L738
				j	.L526
		.L523:
		.L524:
		.L526:
		.L527:
 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
				li	a5,-4096
				li	a3,4096
				add	a4,a3,912
				add	a2,sp,240
				add	a4,a4,a2
				add	a5,a4,a5
				sd	a5,136(sp)
				lw	a5,-376(a5)
				beqz	a5,.L757
		.LVL506:
		.L528:
				ld	a3,32(sp)
				lw	a5,52(a3)
				addw	a5,a5,-1
				sext.w	a4,a5
				sw	a5,52(a3)
 2400       dict(dmin) = lmode
				lui	a5,%hi(DMAX.6103)
				lw	a5,%lo(DMAX.6103)(a5)
				bge	a5,a4,.L758
		.L529:
				ld	a2,32(sp)
				ld	a4,8(a2)
				lw	a5,52(a2)
				addw	a5,a5,-1
				li	a3,12288
				add	a3,a3,1128
				add	a5,a5,a3
				sll	a5,a5,1
				add	a5,a4,a5
				li	a4,-4096
				li	a3,4096
				add	a3,a3,912
				add	a1,sp,240
				add	a3,a3,a1
				add	a4,a3,a4
				sd	a4,128(sp)
				lw	a4,-376(a4)
				sh	a4,4(a5)
				ld	a5,32(sp)
				lw	a0,24(a5)
				li	s0,-4096
		.LVL508:
				add	t2,s0,-384
				mv	s1,a3
				add	a5,a3,912
				add	a5,a5,a2
				add	t2,a5,t2
				addw	a0,a0,-1
				call	DEFLAB.7187
		.LVL509:
 2401       label = label+3
				lw	a5,24(a2)
				addw	a5,a5,3
				sw	a5,24(a2)
				add	a5,s1,912
				add	a4,sp,240
				add	a5,a5,a4
				add	a5,a5,s0
				sd	a5,168(sp)
				li	a5,16
				ld	a4,168(sp)
				sw	a5,-376(a4)
				j	.L528
		.L758:
				ld	t2,8(a3)
				li	a0,3
				call	ABANDON.6184
		.LVL510:
				j	.L529
		.LVL511:
		.L530:
 2402       %RETURN
				j	.L423
		.LVL507:
		.L525:
				j	.L526
		.L757:
 2403
 2404 c(64):fault(13) %IF dict(dmin) >= 0 %OR inhibit # 0;  !on event
 2405       inhibit = 1
				ld	a2,32(sp)
				ld	a4,8(a2)
				lw	a5,52(a2)
				addw	a5,a5,-1
				li	a3,12288
				add	a3,a3,1128
				add	a5,a5,a3
				sll	a5,a5,1
				add	a5,a4,a5
				lh	a5,4(a5)
				bgez	a5,.L531
				li	a5,1
				ld	a4,32(sp)
				sw	a5,20(a4)
		.LVL513:
 2406       n = 0
				lw	a5,20(a2)
				beqz	a5,.L532
		.L531:
				li	s0,0
		.LVL514:
 2407       n = x'FFFF' %IF pending = 0;             !* = all events
				li	a5,-4096
				li	a3,4096
				add	a4,a3,912
				add	a2,sp,240
				add	a4,a4,a2
				add	a5,a4,a5
				sd	a5,208(sp)
				lw	a5,-360(a5)
				beqz	a5,.L723
 2408       %WHILE pending > 0 %CYCLE
				ld	t2,32(sp)
				li	a0,13
				call	FAULT.6294
		.LVL512:
		.L532:
				li	s0,65536
		.LVL522:
				add	s0,s0,-1
		.LVL523:
		.L533:
 2409          pop lit;  fault(10) %IF lit&(\15) # 0;!too big
				blez	a5,.L533
				li	a5,-4096
				add	s1,a5,-384
				add	a4,a3,912
				add	a4,a4,a2
				add	s1,a4,s1
				add	a4,a3,912
				add	a4,a4,a2
				add	a5,a4,a5
				sd	a5,104(sp)
				j	.L536
		.LVL515:
		.L535:
				ld	a5,104(sp)
				lw	a5,-360(a5)
				blez	a5,.L533
		.LVL517:
		.L536:
				mv	t2,s1
				call	POPLIT.7287
		.LVL518:
 2410          j = 1<<lit
				lui	s3,%hi(LIT.6132)
				li	s2,1
				lw	a5,%lo(LIT.6132)(s3)
				sllw	a5,s2,a5
		.LVL520:
 2411          dubious = 1 %IF n&j # 0
				ld	t2,32(sp)
				li	a0,10
				call	FAULT.6294
		.LVL519:
		.L534:
				seqz	a4,a5
				and	a4,a4,s0
				bnez	a4,.L535
 2412          n = n!j;                              !construct bit mask
				lui	s5,%hi(DUBIOUS.6119)
				mv	s4,s2
				or	s0,a5,s0
		.LVL516:
				sw	s4,%lo(DUBIOUS.6119)(s5)
				j	.L535
		.LVL521:
		.L723:
 2413       %REPEAT
 2414       op('o', n);  op(',', label)
				ld	s1,32(sp)
				ld	t2,8(s1)
				mv	a1,s0
				li	a0,111
				call	OP.6258
		.LVL524:
 2415       lmode = then!1;  ->stcy
				ld	t2,8(s1)
				lw	a1,24(s1)
				li	a0,44
				call	OP.6258
		.LVL525:
				li	a5,-4096
				li	a4,4096
				add	a4,a4,912
				add	a3,sp,240
				add	a4,a4,a3
				add	a5,a4,a5
				sd	a5,216(sp)
				li	a5,5
				ld	a4,216(sp)
				sw	a5,-376(a4)
				j	.L528
		.LVL526:
		.L537:
 2416
 2417
 2418 c(104):op('J', tag(x)_index);                   !l
 2419        inhibit = 1;            ->atop
				ld	s0,32(sp)
		.LVL527:
				ld	t2,8(s0)
				lui	a5,%hi(X.6055)
				lw	a5,%lo(X.6055)(a5)
				add	a5,a5,13
				sll	a5,a5,4
				add	a5,t2,a5
				lh	a1,14(a5)
				li	a0,74
				call	OP.6258
		.LVL528:
				li	a5,1
				sw	a5,20(s0)
 2420 c(149):stats = stats-1;                         !lab
				j	.L461
		.LVL529:
		.L538:
 2421        access = 1;  inhibit = 1
				lui	a4,%hi(STATS.6071)
				lw	a5,%lo(STATS.6071)(a4)
				addw	a5,a5,-1
				sw	a5,%lo(STATS.6071)(a4)
				li	a5,1
				ld	a4,32(sp)
				sw	a5,36(a4)
 2422        op('L', tag(x)_index);  ->top
				sw	a5,20(a4)
				ld	t2,8(a4)
				lui	a5,%hi(X.6055)
				lw	a5,%lo(X.6055)(a5)
				add	a5,a5,13
				sll	a5,a5,4
				add	a5,t2,a5
				lh	a1,14(a5)
				li	a0,76
				call	OP.6258
		.LVL530:
				j	.L738
		.L539:
 2423
 2424 c(63):j = dmin;  l = label-3;                   !exit, continue
 2425       %CYCLE
				ld	a3,32(sp)
				lw	s0,52(a3)
		.LVL531:
 2426          fault(7) %AND ->top %IF dict(j) < 0
				lw	a5,24(a3)
				addw	a5,a5,-3
				sw	a5,16(a3)
				addw	a4,s0,-1
				ld	t2,8(a3)
				li	a5,12288
				add	a5,a5,1128
				add	a5,a4,a5
				sll	a5,a5,1
				add	a5,t2,a5
				lh	a5,4(a5)
				bltz	a5,.L540
				li	a3,12288
				add	a3,a3,1128
				add	a5,s0,a3
				sll	a5,a5,1
				add	a5,t2,a5
				lh	a5,4(a5)
				bltz	a5,.L540
		.L543:
				mv	s0,a4
		.LVL536:
		.L542:
 2427          %EXIT %IF dict(j)&1 = 0
				and	a5,a5,1
				beqz	a5,.L759
		.LVL532:
		.L541:
				and	a5,a5,1
				beqz	a5,.L542
				ld	t2,32(sp)
				li	a0,7
				call	FAULT.6294
		.LVL538:
				j	.L738
		.L760:
 2428          j = j+1;  l = l-3
				addw	a4,s0,1
		.LVL533:
				mv	s0,a4
		.LVL534:
				j	.L541
		.LVL535:
		.L759:
 2429       %REPEAT
				ld	a2,32(sp)
				lw	a5,16(a2)
				addw	a5,a5,-3
				sw	a5,16(a2)
		.LDL26:
 2430       l = l+1 %IF x = 32;                       !continue
				lui	a5,%hi(X.6055)
				lw	s1,%lo(X.6055)(a5)
				li	a5,32
				beq	s1,a5,.L760
		.L544:
 2431       op('F', l)
				ld	s2,32(sp)
				lw	a1,16(s2)
				li	a0,70
				call	OP.6258
		.LVL537:
				sll	s0,s0,1
				ld	a5,8(s2)
				add	s0,a5,s0
				ld	a4,32(sp)
				lw	a5,16(a4)
				addw	a5,a5,1
				sw	a5,16(a4)
				j	.L544
		.LVL539:
		.L545:
 2432       dict(j) = dict(j)!x;                      !show given
				li	a5,28672
				add	a5,s0,a5
				lhu	a4,-1836(a5)
				or	s1,s1,a4
				sh	s1,-1836(a5)
 2433       ->atop
				j	.L461
		.L540:
 2434
 2435 c(50):bp=bp+1 %AND buff(bp)='C';  ->cop;        !acomp
 2436
				lui	a5,%hi(BP.6142)
				lw	a4,%lo(BP.6142)(a5)
				addw	a3,a4,1
				sw	a3,%lo(BP.6142)(a5)
 2437 c(49): bp = bp+1
				ld	a5,32(sp)
				ld	a5,8(a5)
				add	a4,a5,a4
				li	a5,106496
				add	a5,a5,a4
				li	a4,67
				sb	a4,-1786(a5)
 2438        %IF next # 0 %START;                     !comparator
				j	.L549
		.L547:
				lui	a4,%hi(BP.6142)
				lw	a5,%lo(BP.6142)(a4)
				addw	a3,a5,1
				sw	a3,%lo(BP.6142)(a4)
				lw	a4,804(sp)
				bnez	a4,.L761
		.L548:
 2439           buff(bp)='"';  push(0);               !double sided
				ld	a4,32(sp)
				ld	a4,8(a4)
				add	a4,a4,a5
				li	a5,106496
				add	a5,a5,a4
				li	a4,34
				sb	a4,-1786(a5)
 2440        %FINISH %ELSE %START
				ld	t2,40(sp)
				li	a0,0
				call	PUSH.7343
		.LVL540:
				j	.L549
		.L553:
		.L555:
 2441           buff(bp)='?'
				ld	a4,32(sp)
				ld	a4,8(a4)
				add	a4,a4,a5
				li	a5,106496
				add	a5,a5,a4
				li	a4,63
				sb	a4,-1786(a5)
				j	.L549
		.L761:
 2442        %FINISH
 2443
 2444 cop:   x = x!!1 %IF cnest(cp)&2 # 0;            !invert the condition
 2445        j = cp;  l = clab
				lw	a4,784(sp)
		.LVL692:
 2446        %WHILE cnest(j)&4 = 0 %CYCLE
				lui	a5,%hi(X.6055)
				lw	a2,%lo(X.6055)(a5)
				xor	a2,a2,1
				sw	a2,%lo(X.6055)(a5)
		.LDL34:
				lw	a3,780(sp)
				ld	a5,32(sp)
				sw	a3,16(a5)
 2447           j = j-1;  l = l-cnest(j)&1
				ld	a5,64(sp)
				add	a5,a5,a4
				lbu	a5,160(a5)
				and	a5,a5,1
				bnez	a5,.L550
		.LVL693:
		.L551:
				addw	a4,a4,-1
		.LVL694:
				beqz	a5,.L551
				ld	a5,32(sp)
				sw	a3,16(a5)
		.L550:
 2448        %REPEAT
				ld	a5,64(sp)
				add	a5,a5,a4
				lbu	a5,160(a5)
				and	a5,a5,1
				subw	a3,a3,a5
		.LDL35:
 2449        op(cc(x), l)
				li	a5,4096
				add	a5,a5,912
				add	a4,sp,240
				add	a5,a5,a4
				add	a2,a5,a2
				ld	a5,32(sp)
				ld	t2,8(a5)
				lw	a1,16(a5)
				lbu	a0,-48(a2)
				call	OP.6258
		.LVL695:
 2450        def lab(clab+1) %IF cnest(cp)&1 # 0
 2451        cp = cp-1
				lw	a0,780(sp)
				ld	t2,40(sp)
				addw	a0,a0,1
				call	DEFLAB.7187
		.LVL696:
		.L552:
				lw	a5,784(sp)
				addw	a5,a5,-1
				sext.w	a4,a5
				sw	a5,784(sp)
 2452        clab = clab-cnest(cp)&1
				ld	a5,64(sp)
				add	a5,a5,a4
				lbu	a5,160(a5)
				and	a4,a5,1
				lw	a5,780(sp)
				subw	a5,a5,a4
				sw	a5,780(sp)
 2453        ->top
				j	.L738
		.L705:
 2454
 2455 c(78):                                              !fresult
 2456 c(79):                                              !mresult
 2457 c(80):   open = 0;                                  !return, true, false
 2458 c(82):   access = 0;                                !stop
				ld	a5,32(sp)
				sw	zero,32(a5)
		.L556:
 2459 c(89):                                              !addop
				ld	a5,32(sp)
				sw	zero,36(a5)
		.L558:
 2460 c(81):   bp=bp+1 %AND buff(bp)=x;  ->top;           !monitor
 2461
				lui	a5,%hi(BP.6142)
				lw	a4,%lo(BP.6142)(a5)
				addw	a3,a4,1
				sw	a3,%lo(BP.6142)(a5)
 2462 c(65):   pop lit;  op('e', lit);  ->atop;           !signal
				ld	a5,32(sp)
				ld	a5,8(a5)
				add	a4,a5,a4
				li	a5,106496
				add	a5,a5,a4
				lui	a4,%hi(X.6055)
				lw	a4,%lo(X.6055)(a4)
				sb	a4,-1786(a5)
 2463
				j	.L738
		.L554:
				j	.L555
		.L557:
				j	.L558
		.L559:
				ld	t2,40(sp)
				call	POPLIT.7287
		.LVL541:
 2464 c(51):   bp=bp+1 %AND buff(bp)='S';  ->top;         !eq
				ld	a5,32(sp)
				ld	t2,8(a5)
				lui	a5,%hi(LIT.6132)
				lw	a1,%lo(LIT.6132)(a5)
				li	a0,101
				call	OP.6258
		.LVL542:
				j	.L461
		.L560:
 2465 c(53):   bp=bp+1 %AND buff(bp)='j';  ->top;         !jam transfer
				lui	a5,%hi(BP.6142)
				lw	a4,%lo(BP.6142)(a5)
				addw	a3,a4,1
				sw	a3,%lo(BP.6142)(a5)
 2466 c(52):   bp=bp+1 %AND buff(bp)='Z';  ->top;         !eqeq
				ld	a5,32(sp)
				ld	a5,8(a5)
				add	a4,a5,a4
				li	a5,106496
				add	a5,a5,a4
				li	a4,83
				sb	a4,-1786(a5)
				lui	a5,%hi(BP.6142)
				lw	a4,%lo(BP.6142)(a5)
				addw	a3,a4,1
				sw	a3,%lo(BP.6142)(a5)
 2467
				j	.L738
		.L561:
				ld	a5,32(sp)
				ld	a5,8(a5)
				add	a4,a5,a4
				li	a5,106496
				add	a5,a5,a4
				li	a4,106
				sb	a4,-1786(a5)
				lui	a5,%hi(BP.6142)
				lw	a4,%lo(BP.6142)(a5)
				addw	a3,a4,1
				sw	a3,%lo(BP.6142)(a5)
 2468 c(74):%IF level = 0 %START;                         !begin
				j	.L738
		.L562:
				ld	a5,32(sp)
				ld	a5,8(a5)
				add	a4,a5,a4
				li	a5,106496
				add	a5,a5,a4
				li	a4,90
				sb	a4,-1786(a5)
 2469          %IF progmode <= 0 %THEN progmode = 1 %ELSE fault(7)
				j	.L738
		.L563:
				ld	a5,32(sp)
				lw	a5,60(a5)
				bnez	a5,.L566
				lui	a5,%hi(PROGMODE.6111)
				lw	a5,%lo(PROGMODE.6111)(a5)
				bgtz	a5,.L565
 2470          {Permit BEGIN after external defs}
				lui	a5,%hi(PROGMODE.6111)
				li	a4,1
				sw	a4,%lo(PROGMODE.6111)(a5)
		.L564:
		.L566:
 2471       %FINISH
 2472       spec mode = level+1
				ld	a2,32(sp)
				lw	a5,60(a2)
				addw	a5,a5,1
				lui	a4,%hi(SPECMODE.6113)
				sw	a5,%lo(SPECMODE.6113)(a4)
 2473       block x = 0
				lui	a5,%hi(BLOCKX.6134)
				sw	zero,%lo(BLOCKX.6134)(a5)
				ld	t2,32(sp)
				li	a0,7
				call	FAULT.6294
		.LVL543:
				j	.L566
		.L567:
 2474       bp=bp+1 %AND buff(bp)='H';  %RETURN
				lui	a5,%hi(BP.6142)
				lw	a4,%lo(BP.6142)(a5)
				addw	a3,a4,1
				sw	a3,%lo(BP.6142)(a5)
 2475 c(77):perm = 0;  lines = 0;  stats = 0;             !endofperm
				ld	a5,8(a2)
				add	a4,a5,a4
				li	a5,106496
				add	a5,a5,a4
				li	a4,72
				sb	a4,-1786(a5)
 2476       close input
				j	.L423
		.L565:
				lui	a5,%hi(PERM.6110)
				sw	zero,%lo(PERM.6110)(a5)
				call	CLOSEINPUT
		.LVL544:
		.LBB542:
		.LBB543:
				lui	a5,%hi(_imp_InStream)
				li	a4,1
				sw	a4,%lo(_imp_InStream)(a5)
				lui	a5,%hi(_imp_infile+296)
				ld	a4,%lo(_imp_infile+296)(a5)
				lui	a5,%hi(_imp_InFile)
				sd	a4,%lo(_imp_InFile)(a5)
				lui	a0,%hi(.LANCHOR1+1992)
				addi	a0,a0,%lo(.LANCHOR1+1992)
				call	check_instream
		.LVL545:
		.LBE543:
		.LBE542:
 2477       select input(source)
				lui	a5,%hi(LINES.6065)
				sw	zero,%lo(LINES.6065)(a5)
 2478       list = list-1
				lui	a5,%hi(STATS.6071)
				sw	zero,%lo(STATS.6071)(a5)
				lui	a4,%hi(LIST.6135)
				lw	a5,%lo(LIST.6135)(a4)
				addw	a5,a5,-1
				sw	a5,%lo(LIST.6135)(a4)
 2479       tbase = tmax;  tstart = tmax
				ld	a4,32(sp)
				lw	a5,64(a4)
				sw	a5,68(a4)
 2480       %RETURN
				sw	a5,72(a4)
				j	.L423
		.L568:
 2481 c(76):%IF include # 0 %AND x = 0 %START;            !end of ...
 2482          lines = include;  sstype =  0;             !include
				lui	a5,%hi(INCLUDE.6109)
				lw	a5,%lo(INCLUDE.6109)(a5)
				beqz	a5,.L569
				lui	a4,%hi(LINES.6065)
				sw	a5,%lo(LINES.6065)(a4)
 2483          close input
				lui	a4,%hi(X.6055)
				lw	a4,%lo(X.6055)(a4)
				beqz	a4,.L762
		.L569:
				lui	a5,%hi(SSTYPE.6112)
				sw	zero,%lo(SSTYPE.6112)(a5)
				call	CLOSEINPUT
		.LVL549:
 2484          list = include list
				lui	a5,%hi(INCLUDELIST.6107)
				lw	a4,%lo(INCLUDELIST.6107)(a5)
				lui	a5,%hi(LIST.6135)
				sw	a4,%lo(LIST.6135)(a5)
 2485          include level = 0
				lui	a5,%hi(INCLUDELEVEL.6108)
				sw	zero,%lo(INCLUDELEVEL.6108)(a5)
 2486          include = 0;  select input(source);  %RETURN
				lui	a5,%hi(INCLUDE.6109)
				sw	zero,%lo(INCLUDE.6109)(a5)
		.LVL550:
		.LBB547:
		.LBB548:
				lui	a5,%hi(_imp_InStream)
				li	a4,1
				sw	a4,%lo(_imp_InStream)(a5)
				lui	a5,%hi(_imp_infile+296)
				ld	a4,%lo(_imp_infile+296)(a5)
				lui	a5,%hi(_imp_InFile)
				sd	a4,%lo(_imp_InFile)(a5)
				lui	a0,%hi(.LANCHOR1+1992)
				addi	a0,a0,%lo(.LANCHOR1+1992)
				call	check_instream
		.LVL551:
				j	.L423
		.LVL552:
		.L571:
		.LBE548:
		.LBE547:
		.LBB549:
		.LBB546:
 2487       %FINISH
 2488       ss = -1;                                      !prog/file
				lui	a5,%hi(SS.6105)
				li	a4,-1
				sw	a4,%lo(SS.6105)(a5)
		.L570:
 2489 c(75):compile end(x);  %RETURN;                     !%END
 2490
				lui	a5,%hi(X.6055)
				lw	s0,%lo(X.6055)(a5)
		.LVL546:
		.LBB544:
		.LBB545:
 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)
				lui	a5,%hi(X.6055)
				lw	a5,%lo(X.6055)(a5)
				ld	a4,32(sp)
				ld	t2,8(a4)
				lui	a4,%hi(LIT.6132)
				lw	a1,%lo(LIT.6132)(a4)
				li	a0,122
				subw	a0,a0,a5
				call	OP.6258
		.LVL558:
				j	.L738
		.L585:
 2495       ->top
 2496 c(83):list = list+x-2;   ->top;                     !%LIST/%ENDOFLIST
 2497 c(84):reals ln = x;      ->top;                     !%REALS long/normal
				lui	a4,%hi(LIST.6135)
				lw	a5,%lo(LIST.6135)(a4)
				lui	a3,%hi(X.6055)
				lw	a3,%lo(X.6055)(a3)
				addw	a5,a5,a3
				addw	a5,a5,-2
				sw	a5,%lo(LIST.6135)(a4)
 2498 c(86):%IF include # 0 %START;                       !include "file"
				j	.L738
		.L586:
				lui	a5,%hi(X.6055)
				lw	a4,%lo(X.6055)(a5)
				lui	a5,%hi(REALSLN.6086)
				sw	a4,%lo(REALSLN.6086)(a5)
 2499          fault(7);  %RETURN
				j	.L738
		.L587:
				lui	a5,%hi(INCLUDE.6109)
				lw	a5,%lo(INCLUDE.6109)(a5)
				beqz	a5,.L588
				ld	t2,32(sp)
				li	a0,7
				call	FAULT.6294
		.LVL559:
				j	.L423
		.L588:
 2500       %FINISH
 2501       get next;                                     !sconst
				ld	t2,40(sp)
				call	GETNEXT.7190
		.LVL560:
 2502       include file = string(x-x'4000'+stbase)
 2503       %begin
 2504          %on 9 %start;  Abandon(9);  %finish
				ld	a5,32(sp)
				ld	a0,8(a5)
				li	a5,-4096
				add	a1,a5,208
				li	a2,63
				li	a5,4096
				add	a5,a5,912
				add	a4,sp,240
				add	a5,a5,a4
				add	a1,a5,a1
				li	a5,106496
				add	a5,a5,-2042
				add	a0,a0,a5
				call	_imp_strncpy
		.LVL561:
				li	a1,1
				lui	a0,%hi(_imp_event+536)
				addi	a0,a0,%lo(_imp_event+536)
				call	__sigsetjmp
		.LVL562:
				bnez	a0,.L591
		.LVL563:
				li	a1,512
				lui	a0,%hi(_imp_event)
				addi	a0,a0,%lo(_imp_event)
				call	_imp_on_event_enter
		.LVL564:
				bnez	a0,.L592
		.LVL565:
		.L591:
 2505          open input(3, include file)
				ld	a5,32(sp)
				ld	t2,8(a5)
				li	a0,9
				call	ABANDON.6184
		.LVL566:
		.L592:
				li	a2,256
				add	a5,sp,1152
				add	a1,sp,1616
				add	a0,a5,-640
				call	memcpy
		.LVL567:
				li	a5,-4096
				add	a1,a5,-640
				li	a5,4096
				add	a5,a5,912
				add	a4,sp,240
				add	a5,a5,a4
				add	a1,a5,a1
				li	a0,3
				call	OPENINPUT
		.LVL568:
		.L593:
 2506       %end
 2507       include = lines;  lines = 0
				lui	a5,%hi(LINES.6065)
				lw	a3,%lo(LINES.6065)(a5)
				lui	a4,%hi(INCLUDE.6109)
				sw	a3,%lo(INCLUDE.6109)(a4)
 2508       include list = list;  include level = level
				sw	zero,%lo(LINES.6065)(a5)
				lui	a5,%hi(LIST.6135)
				lw	a4,%lo(LIST.6135)(a5)
				lui	a5,%hi(INCLUDELIST.6107)
				sw	a4,%lo(INCLUDELIST.6107)(a5)
 2509       select input(3)
				ld	a5,32(sp)
				lw	a4,60(a5)
				lui	a5,%hi(INCLUDELEVEL.6108)
				sw	a4,%lo(INCLUDELEVEL.6108)(a5)
		.LVL569:
		.LBB550:
		.LBB551:
				lui	a5,%hi(_imp_InStream)
				li	a4,3
				sw	a4,%lo(_imp_InStream)(a5)
				lui	a5,%hi(_imp_infile+872)
				ld	a4,%lo(_imp_infile+872)(a5)
				lui	a5,%hi(_imp_InFile)
				sd	a4,%lo(_imp_InFile)(a5)
				lui	a0,%hi(.LANCHOR1+1992)
				addi	a0,a0,%lo(.LANCHOR1+1992)
				call	check_instream
		.LVL570:
				j	.L738
		.LVL571:
		.L594:
		.LBE551:
		.LBE550:
 2510       ->top
 2511
 2512 c(154):dimension = dimension+1;                     !dbsep
 2513        fault(11) %IF dimension = dim limit+1
				lui	a4,%hi(DIMENSION.6124)
				lw	a5,%lo(DIMENSION.6124)(a4)
				addw	a5,a5,1
				sext.w	a3,a5
				sw	a5,%lo(DIMENSION.6124)(a4)
				li	a5,7
				bne	a3,a5,.L738
 2514        ->top
				ld	t2,32(sp)
				li	a0,11
				call	FAULT.6294
		.LVL572:
				j	.L738
		.L595:
 2515 c(145):set bp;                       ->top;         !crb
 2516 c(146):set bp;                                      !rcrb
				ld	t2,40(sp)
				call	SETBP.7222
		.LVL573:
				j	.L738
		.L596:
 2517 c(142):                                             !bplrb
				ld	t2,40(sp)
				call	SETBP.7222
		.LVL574:
		.L597:
 2518        dimension = 1 %IF dimension = 0
				lui	a5,%hi(DIMENSION.6124)
				lw	a5,%lo(DIMENSION.6124)(a5)
				bnez	a5,.L598
 2519        op('d', dimension);  op(',', defs)
				lui	a5,%hi(DIMENSION.6124)
				li	a4,1
				sw	a4,%lo(DIMENSION.6124)(a5)
		.L598:
				ld	s0,32(sp)
		.LVL575:
				ld	t2,8(s0)
				lui	a5,%hi(DIMENSION.6124)
				lw	a1,%lo(DIMENSION.6124)(a5)
				li	a0,100
				call	OP.6258
		.LVL576:
 2520        %IF class # 146 %START
				ld	t2,8(s0)
				lw	a1,788(sp)
				li	a0,44
				call	OP.6258
		.LVL577:
				lw	a4,796(sp)
				li	a5,146
				bne	a4,a5,.L765
		.L599:
		.L601:
 2521           set subs(defs)
				ld	t2,40(sp)
				lw	a0,788(sp)
				call	SETSUBS.7215
		.LVL578:
 2522           fault(13) %IF dict(dmin) >= 0 %OR inhibit # 0 %OR level=0
				ld	a4,8(s0)
				lw	a5,52(s0)
				addw	a5,a5,-1
				li	a3,12288
				add	a3,a3,1128
				add	a5,a5,a3
				sll	a5,a5,1
				add	a5,a4,a5
				lh	a5,4(a5)
				bgez	a5,.L600
 2523        %FINISH
				lw	a5,20(s0)
				bnez	a5,.L600
 2524        dimension = 0;  defs = 0
				lui	a5,%hi(DIMENSION.6124)
				sw	zero,%lo(DIMENSION.6124)(a5)
				lw	a5,60(s0)
				bnez	a5,.L601
		.L600:
 2525        ->top
				sw	zero,788(sp)
				j	.L738
		.L765:
 2526 c(128):id = dupid;  ->top;                          !EDUP
				ld	t2,32(sp)
				li	a0,13
				call	FAULT.6294
		.LVL579:
				j	.L601
		.LVL580:
		.L602:
 2527 c(130):block x = x
				ld	a5,32(sp)
				ld	a4,160(sp)
				sw	a4,56(a5)
 2528        op('F', 0) %IF decl&spec = 0 %AND level # 0; !jump round proc
				j	.L738
		.L603:
				lui	a5,%hi(X.6055)
				lw	a4,%lo(X.6055)(a5)
				lui	a5,%hi(BLOCKX.6134)
				sw	a4,%lo(BLOCKX.6134)(a5)
				lui	a5,%hi(DECL.6079)
				lw	a5,%lo(DECL.6079)(a5)
				and	a5,a5,1
				bnez	a5,.L606
 2529 c(125):dupid = id;                                  !%DUP
				ld	a5,32(sp)
				lw	a5,60(a5)
				bnez	a5,.L766
 2530        %return %if Level < 0                        {spec about}
				ld	a5,32(sp)
				lw	a5,56(a5)
				sd	a5,160(sp)
		.LVL581:
				j	.L608
		.L766:
				ld	a5,32(sp)
				ld	t2,8(a5)
				li	a1,0
				li	a0,70
				call	OP.6258
		.LVL582:
		.L604:
		.L606:
				ld	a5,32(sp)
				lw	a4,56(a5)
				sd	a4,160(sp)
		.LVL583:
				lw	a5,60(a5)
				bltz	a5,.L423
		.L607:
		.L608:
 2531 c(90): def(x);  ->top;                              !ident
 2532 c(131):                                             !cident
				ld	t2,40(sp)
				lui	a5,%hi(X.6055)
				lw	a0,%lo(X.6055)(a5)
				call	DEF.7240
		.LVL584:
				j	.L738
		.L609:
 2533        %IF tag(x)_flags&(b'1111111'+const bit) = iform+const bit %START
				lui	a5,%hi(X.6055)
				lw	s0,%lo(X.6055)(a5)
		.LVL585:
				ld	a5,32(sp)
				ld	t2,8(a5)
				sll	a5,s0,4
				add	a5,t2,a5
				lhu	a4,220(a5)
				and	a4,a4,1
				bnez	a4,.L610
 2534           tag(x)_format = lit
				lui	a4,%hi(LIT.6132)
				lw	a4,%lo(LIT.6132)(a4)
				sw	a4,216(a5)
 2535        %FINISH %ELSE %START
				j	.L738
		.L610:
 2536           set const(lit) %IF pending # 0
				lw	a5,792(sp)
				beqz	a5,.L611
 2537           def(x)
				lui	a5,%hi(LIT.6132)
				lw	a0,%lo(LIT.6132)(a5)
				call	SETCONST.6261
		.LVL586:
		.L611:
				ld	t2,40(sp)
				mv	a0,s0
				call	DEF.7240
		.LVL587:
 2538          op('A', 1)
				ld	a5,32(sp)
				ld	t2,8(a5)
				li	a1,1
				li	a0,65
				call	OP.6258
		.LVL588:
				j	.L738
		.LVL589:
		.L612:
 2539        %FINISH
 2540        cident = x
 2541        ->top
 2542 c(124):dubious = 1 %IF tag(cident)_flags&prot # 0; !%DUBIOUS
 2543        ->top
				j	.L738
		.L613:
		.L616:
		.LBB552:
		.LBB553:
 2544 c(97):                                              !f
				lui	a5,%hi(DUBIOUS.6119)
				li	a4,1
				sw	a4,%lo(DUBIOUS.6119)(a5)
		.LDL30:
 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
				ld	a5,32(sp)
				ld	t2,8(a5)
				lui	a5,%hi(X.6055)
				lw	a5,%lo(X.6055)(a5)
				add	a5,a5,13
				sll	a5,a5,4
				add	a5,t2,a5
				lh	a5,14(a5)
				sext.w	a1,a5
		.LVL595:
 2561       %IF k < 0 %THEN op('n', -k) %ELSE op('@', k)
				bltz	a1,.L767
		.L628:
 2562       ->top
				subw	a1,zero,a5
				li	a0,110
				call	OP.6258
		.LVL598:
				j	.L738
		.L629:
 2563 c(121):set const(0);  ->top;                        !special for zero
 2564 c(167):bp=bp+1;  buff(bp)='G';  ->pstr;             !aconst (alias)
				ld	a5,32(sp)
				ld	t2,8(a5)
				li	a0,0
				call	SETCONST.6261
		.LVL599:
				j	.L738
		.L630:
 2565 c(const):                                           !const
				li	a0,64
				call	OP.6258
		.LVL596:
				j	.L738
		.L623:
				j	.L627
		.L624:
				j	.L627
		.L625:
				j	.L627
		.L626:
				j	.L627
		.LVL597:
		.L767:
				lui	a5,%hi(BP.6142)
				lw	a4,%lo(BP.6142)(a5)
				addw	a3,a4,1
				sw	a3,%lo(BP.6142)(a5)
 2566        %IF x < 0 %START;                            !constinteger
				ld	a5,32(sp)
				ld	a5,8(a5)
				add	a4,a5,a4
				li	a5,106496
				add	a5,a5,a4
				li	a4,71
				sb	a4,-1786(a5)
		.L631:
				lui	a5,%hi(X.6055)
				lw	a5,%lo(X.6055)(a5)
				bltz	a5,.L768
		.L633:
 2567           set const(tag(-x)_format);  ->top
				ld	a4,32(sp)
				ld	t2,8(a4)
				subw	a5,zero,a5
				sext.w	a5,a5
				add	a5,a5,13
				sll	a5,a5,4
				add	a5,t2,a5
				lw	a0,8(a5)
				call	SETCONST.6261
		.LVL603:
				j	.L738
		.L635:
 2568        %FINISH
 2569        %IF x&x'4000' # 0 %START;                    !strings
 2570           bp=bp+1 %AND buff(bp)=''''
				lui	a5,%hi(BP.6142)
				lw	a4,%lo(BP.6142)(a5)
				addw	a3,a4,1
				sw	a3,%lo(BP.6142)(a5)
 2571 pstr:     x = x-x'4000'+stbase
				ld	a5,32(sp)
				ld	a5,8(a5)
				add	a4,a5,a4
				li	a5,106496
				add	a5,a5,a4
				li	a4,39
				sb	a4,-1786(a5)
				j	.L631
		.L768:
 2572           k = byteinteger(x)
				lui	a4,%hi(X.6055)
				lw	a5,%lo(X.6055)(a4)
				li	a3,-16384
				addw	a3,a3,a5
				lui	a5,%hi(STBASE.6101)
				lw	a5,%lo(STBASE.6101)(a5)
				addw	a3,a3,a5
				sext.w	a5,a3
				sw	a3,%lo(X.6055)(a4)
				lbu	a1,0(a5)
		.LVL600:
 2573           bp=bp+1 %AND buff(bp)=k
				lui	a4,%hi(BP.6142)
				lw	a2,%lo(BP.6142)(a4)
				addw	a6,a2,1
				sext.w	a0,a6
				sw	a6,%lo(BP.6142)(a4)
 2574           k = k+x
				ld	a4,32(sp)
				ld	a4,8(a4)
				add	a2,a4,a2
				li	a4,106496
				add	a4,a4,a2
				sb	a1,-1786(a4)
				addw	a3,a3,a1
		.LVL601:
 2575           %CYCLE
 2576              ->top %IF x = k
				beq	a5,a3,.L738
				mv	a4,a5
				subw	a0,a0,a5
				sext.w	a7,a0
				bne	a4,a3,.L634
				lui	a5,%hi(X.6055)
				sw	a4,%lo(X.6055)(a5)
				addw	a4,a4,a7
				lui	a5,%hi(BP.6142)
				sw	a4,%lo(BP.6142)(a5)
				j	.L738
		.L632:
 2577              x = x+1;  bp=bp+1 %AND buff(bp)=byteinteger(x)
				addw	a4,a4,1
 2578           %REPEAT
 2579        %FINISH
				li	a6,106496
		.LVL602:
		.L634:
				addw	a1,a0,a4
				lbu	a2,0(a4)
				ld	a5,32(sp)
				ld	a5,8(a5)
				add	a5,a5,a1
				add	a5,a6,a5
				sb	a2,-1786(a5)
		.LDL32:
 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
				lui	a5,%hi(BP.6142)
				lw	a4,%lo(BP.6142)(a5)
				addw	a3,a4,1
				sw	a3,%lo(BP.6142)(a5)
 2599
				ld	a5,32(sp)
				ld	a5,8(a5)
				add	a4,a5,a4
				li	a5,106496
				add	a5,a5,a4
				li	a4,105
				sb	a4,-1786(a5)
				lui	a5,%hi(BP.6142)
				lw	a4,%lo(BP.6142)(a5)
				addw	a3,a4,1
				sw	a3,%lo(BP.6142)(a5)
 2600 !own arrays
				j	.L738
		.L636:
				ld	a5,32(sp)
				ld	a5,8(a5)
				add	a4,a5,a4
				li	a5,106496
				add	a5,a5,a4
				li	a4,97
				sb	a4,-1786(a5)
 2601
				j	.L738
		.L637:
 2602 c(132):ocount = ub-lb+1
 2603        def(x);                               !oident
				lui	a5,%hi(UB.7168)
				lw	a5,%lo(UB.7168)(a5)
				lui	a4,%hi(LB.7167)
				lw	a4,%lo(LB.7167)(a4)
				subw	a5,a5,a4
				addw	a5,a5,1
				lui	a4,%hi(OCOUNT.6114)
				sw	a5,%lo(OCOUNT.6114)(a4)
				ld	s0,40(sp)
		.LVL604:
				mv	t2,s0
				lui	a5,%hi(X.6055)
				lw	a0,%lo(X.6055)(a5)
				call	DEF.7240
		.LVL605:
 2604        dimension = 1;  set subs(1)
				lui	a5,%hi(DIMENSION.6124)
				li	a4,1
				sw	a4,%lo(DIMENSION.6124)(a5)
 2605        %IF next = 0 %START;                  !no initialisation
				mv	t2,s0
				li	a0,1
				call	SETSUBS.7215
		.LVL606:
				lw	a5,804(sp)
				bnez	a5,.L638
 2606           op('A', ocount) %IF ocount > 0
				lui	a5,%hi(OCOUNT.6114)
				lw	a1,%lo(OCOUNT.6114)(a5)
				bgtz	a1,.L769
		.L639:
 2607           ocount = -1
				lui	a5,%hi(OCOUNT.6114)
				li	a4,-1
				sw	a4,%lo(OCOUNT.6114)(a5)
				ld	a5,32(sp)
				ld	t2,8(a5)
				li	a0,65
				call	OP.6258
		.LVL607:
				j	.L639
		.L638:
 2608        %FINISH %ELSE %START;                 !initialisation given
				j	.L738
		.L769:
 2609           get next
				ld	t2,40(sp)
				call	GETNEXT.7190
		.LVL608:
				j	.L738
		.LVL609:
		.L640:
 2610        %FINISH
 2611        ->top
 2612 c(162):lit = ocount;  ->ins;                 !indef
 2613 c(143):pop lit;                              !orb
				lui	a5,%hi(OCOUNT.6114)
				lw	a4,%lo(OCOUNT.6114)(a5)
				lui	a5,%hi(LIT.6132)
				sw	a4,%lo(LIT.6132)(a5)
		.L641:
 2614 ins:   fault(10) %AND lit = 0 %IF lit < 0
				ld	t2,40(sp)
				call	POPLIT.7287
		.LVL616:
				j	.L641
		.L770:
 2615        get next
				lui	a5,%hi(LIT.6132)
				lw	a5,%lo(LIT.6132)(a5)
				bltz	a5,.L770
		.L643:
				ld	t2,40(sp)
				call	GETNEXT.7190
		.LVL610:
		.L644:
 2616        ->inst
				ld	t2,32(sp)
				li	a0,10
				call	FAULT.6294
		.LVL617:
 2617 c(139):                                      !osep (x=19)
				lui	a5,%hi(LIT.6132)
				sw	zero,%lo(LIT.6132)(a5)
				j	.L643
		.L645:
		.L646:
 2618 c(153):lit = 1
 2619 inst:  pop def %IF pending # 0;              !ownt (x=0)
				lui	a5,%hi(LIT.6132)
				li	a4,1
				sw	a4,%lo(LIT.6132)(a5)
				j	.L644
		.LVL618:
		.L771:
 2620        op('A', lit)
				lw	a5,792(sp)
				beqz	a5,.L647
		.LBB554:
		.LBB555:
				lui	a5,%hi(LIT.6132)
				lw	s0,%lo(LIT.6132)(a5)
		.LVL612:
				ld	a5,32(sp)
				ld	t2,8(a5)
				mv	a1,s0
				li	a0,65
				call	OP.6258
		.LVL613:
 2621        ocount = ocount-lit
				lui	a4,%hi(OCOUNT.6114)
				lw	a5,%lo(OCOUNT.6114)(a4)
				subw	a5,a5,s0
				sext.w	a3,a5
				sw	a5,%lo(OCOUNT.6114)(a4)
 2622        %IF ocount >= 0 %START
				bltz	a3,.L650
 2623           ->top %IF x # 0;                          !more coming
				lui	a5,%hi(X.6055)
				lw	a5,%lo(X.6055)(a5)
				bnez	a5,.L738
		.L649:
 2624           ocount = -1 %AND %RETURN %IF ocount = 0;  !all done
				beqz	a3,.L771
		.L648:
		.L650:
 2625        %FINISH
				mv	a5,a4
				li	a4,-1
				sw	a4,%lo(OCOUNT.6114)(a5)
 2626        fault(11);  %RETURN
				ld	t2,32(sp)
				li	a0,11
				call	FAULT.6294
		.LVL614:
				j	.L423
		.LVL615:
		.L642:
				j	.L423
		.LVL619:
		.L651:
 2627
 2628 c(swit):op('W', tag(x)_index);  inhibit = 1;  ->atop
 2629 c(134):def(x);                               !swid
				ld	s0,32(sp)
		.LVL620:
				ld	t2,8(s0)
				lui	a5,%hi(X.6055)
				lw	a5,%lo(X.6055)(a5)
				add	a5,a5,13
				sll	a5,a5,4
				add	a5,t2,a5
				lh	a1,14(a5)
				li	a0,87
				call	OP.6258
		.LVL621:
 2630        n = ub-lb+1
				li	a5,1
				sw	a5,20(s0)
				ld	t2,40(sp)
				lui	a5,%hi(X.6055)
				lw	a0,%lo(X.6055)(a5)
				call	DEF.7240
		.LVL623:
				lui	a5,%hi(UB.7168)
				lw	a3,%lo(UB.7168)(a5)
				lui	a5,%hi(LB.7167)
				lw	a5,%lo(LB.7167)(a5)
				subw	a3,a3,a5
 2631        n = (n+15)>>4;                        !slots needed (includes zero)
				j	.L461
		.LVL622:
		.L652:
				addw	a3,a3,16
				srlw	s1,a3,4
		.LVL624:
 2632        j = dmax;  dmax = dmax+n+2
				lui	a4,%hi(DMAX.6103)
				lw	s0,%lo(DMAX.6103)(a4)
		.LVL625:
 2633        abandon(1) %IF dmax >= dmin
				addw	a5,s1,s0
				addw	a5,a5,2
				sext.w	a3,a5
				sw	a5,%lo(DMAX.6103)(a4)
				ld	a5,32(sp)
				lw	a5,52(a5)
				ble	a5,a3,.L772
		.L653:
 2634        tag(x)_format = j
				ld	a2,32(sp)
				ld	a4,8(a2)
				lui	a5,%hi(X.6055)
				lw	a5,%lo(X.6055)(a5)
				add	a5,a5,13
				sll	a5,a5,4
				add	a5,a4,a5
				sw	s0,8(a5)
				ld	a5,32(sp)
				ld	t2,8(a5)
				li	a0,1
				call	ABANDON.6184
		.LVL630:
				j	.L653
		.LVL631:
		.L655:
 2635        dict(j) = lb;  dict(j+1) = ub
				ld	a3,8(a2)
				addw	a4,s0,-1
				li	a5,12288
				add	a5,a5,1128
				add	a4,a4,a5
				sll	a4,a4,1
				add	a4,a3,a4
				lui	a3,%hi(LB.7167)
				lw	a3,%lo(LB.7167)(a3)
				sh	a3,4(a4)
 2636        %CYCLE
				ld	a4,8(a2)
				add	a5,s0,a5
				sll	a5,a5,1
				add	a5,a4,a5
				lui	a4,%hi(UB.7168)
				lw	a4,%lo(UB.7168)(a4)
				sh	a4,4(a5)
		.LVL626:
 2637           n = n-1
 2638           ->top %IF n < 0
				addw	a5,s1,-1
				bltz	a5,.L738
				addw	a3,s1,s0
				bne	s0,a3,.L654
				j	.L738
		.LVL629:
		.L772:
 2639           j = j+1;  dict(j+1) = 0
				addw	s0,s0,1
		.LVL628:
 2640        %REPEAT
				li	a2,12288
				add	a2,a2,1128
		.LVL627:
		.L654:
				ld	a5,32(sp)
				ld	a5,8(a5)
				add	a4,s0,a2
				sll	a4,a4,1
				add	a5,a5,a4
				sh	zero,4(a5)
		.LDL33:
 2641 c(151):stats = stats-1;                      !slab
 2642        fault(7) %AND %RETURN %IF x < tbase
				lui	a4,%hi(STATS.6071)
				lw	a5,%lo(STATS.6071)(a4)
				addw	a5,a5,-1
				sw	a5,%lo(STATS.6071)(a4)
				lui	a5,%hi(X.6055)
				lw	a5,%lo(X.6055)(a5)
				ld	a4,32(sp)
				lw	a4,68(a4)
				bgt	a4,a5,.L773
		.L656:
 2643        %IF pending # 0 %START;               !explicit label
				li	a4,-4096
				li	a3,4096
				add	a3,a3,912
				add	a2,sp,240
				add	a3,a3,a2
				add	a4,a3,a4
				sd	a4,232(sp)
				lw	a4,-360(a4)
				bnez	a4,.L774
		.L657:
				sll	a3,a5,4
				ld	a4,32(sp)
				ld	a4,8(a4)
				add	a4,a4,a3
				ld	t2,32(sp)
				li	a0,7
				call	FAULT.6294
		.LVL642:
				j	.L423
		.L774:
 2644           def s lab(pstack(1))
				li	t2,-4096
				add	t2,t2,-384
				add	t2,a3,t2
				lui	a5,%hi(.LANCHOR0)
				lw	a0,%lo(.LANCHOR0)(a5)
				call	DEFSLAB.7264
		.LVL643:
		.L658:
		.L666:
 2645        %FINISH %ELSE %START
 2646           fault(4) %AND %RETURN %IF tag(x)_app # 0
				lw	a3,212(a4)
				bnez	a3,.L775
		.L659:
 2647           tag(x)_app = 1
				li	a3,1
				sw	a3,212(a4)
				ld	t2,32(sp)
				li	a0,4
				call	FAULT.6294
		.LVL645:
				j	.L423
		.LVL646:
		.L776:
		.LBB559:
 2648           n = tag(x)_format
				ld	a4,32(sp)
				ld	a4,8(a4)
		.LVL632:
				add	a5,a5,13
		.LVL633:
				sll	a5,a5,4
		.LVL634:
				add	a5,a4,a5
				lw	a5,8(a5)
				sll	a5,a5,1
				add	a5,a4,a5
		.LBB556:
 2649           %FOR j = dict(n), 1, dict(n+1) %CYCLE
 2650              def s lab(j)
				li	a4,28672
		.LVL635:
				add	a5,a5,a4
				lh	s0,-1838(a5)
		.LVL636:
				lh	a5,-1836(a5)
				sext.w	s2,a5
		.LVL637:
		.LBB557:
				li	s1,-4096
				add	s1,s1,-384
				li	a5,4096
				add	a5,a5,912
				add	a4,sp,240
				add	a5,a5,a4
				add	s1,a5,s1
				mv	t2,s1
				mv	a0,s0
				call	DEFSLAB.7264
		.LVL660:
 2651              flush buffer %IF bp >= 128
				subw	a5,a5,s0
		.LVL638:
		.LBE557:
				sll	a4,a5,32
				bltz	a4,.L776
		.LVL639:
		.L660:
				lui	s4,%hi(BP.6142)
				li	s3,127
				j	.L664
		.LVL641:
		.L773:
		.LBE556:
				lui	a5,%hi(_imp_current_file)
		.LVL647:
				ld	a1,%lo(_imp_current_file)(a5)
				beqz	a1,.L661
				li	a5,4096
				add	a5,a5,-672
				add	a4,sp,240
				add	a0,a4,a5
				call	_imp_c2istr
		.LVL648:
		.L662:
				lui	a5,%hi(_imp_current_line)
				lw	s3,%lo(_imp_current_line)(a5)
				bnez	s3,.L663
				li	s3,4096
				add	s3,s3,-1445
		.L663:
				lui	a1,%hi(.LC83)
				addi	a1,a1,%lo(.LC83)
				li	s4,4096
				add	a0,s4,-416
				add	a5,sp,240
				add	a0,a0,a5
				call	_imp_c2istr
		.LVL649:
				li	s1,-4096
				li	a2,256
				add	a5,s4,-672
				add	a4,sp,240
				add	a1,a4,a5
				add	a0,sp,512
				call	memcpy
		.LVL650:
				li	a2,256
				add	a1,s4,-416
				add	a5,sp,240
				add	a1,a1,a5
				add	a0,sp,256
				call	memcpy
		.LVL651:
				add	a2,s1,-896
				add	a0,s1,-640
				li	a5,0
				li	a4,1
				li	a3,5
				add	a1,s4,912
				add	s1,sp,240
				add	a1,a1,s1
				add	a2,a1,a2
				mv	a1,s3
				add	s1,s4,912
				add	a6,sp,240
				add	s1,s1,a6
				add	a0,s1,a0
				call	_signal_event
		.LVL652:
				j	.L660
		.LVL653:
		.L661:
		.LBB558:
				li	a5,-4096
				li	s4,4096
				add	a4,s4,912
				add	a3,sp,240
				add	a4,a4,a3
				add	a5,a4,a5
				sd	a5,240(sp)
				add	s3,a5,2000
				li	a2,256
				lui	a1,%hi(.LANCHOR1)
				addi	a1,a1,%lo(.LANCHOR1)
				mv	a0,s3
				call	memcpy
		.LVL654:
				ld	a5,240(sp)
				add	s1,a5,720
				li	a2,256
				mv	a1,s3
				mv	a0,s1
				call	memcpy
		.LVL655:
		.LBE558:
				li	a2,256
				mv	a1,s1
				add	a5,s4,-672
				add	a4,sp,240
				add	a0,a4,a5
				call	memcpy
		.LVL656:
				j	.L662
		.LVL657:
		.L665:
				lw	a5,%lo(BP.6142)(s4)
				ble	a5,s3,.L665
 2652           %REPEAT
				addw	s0,s0,-1
		.LVL640:
				ld	a5,32(sp)
				ld	t2,8(a5)
				call	FLUSHBUFFER.6152
		.LVL661:
				j	.L665
		.LVL662:
		.L667:
		.LBE559:
 2653        %FINISH
 2654        inhibit = 1
				beq	s2,s0,.L666
				li	a5,1
				ld	a4,32(sp)
				sw	a5,20(a4)
				beq	s2,s0,.L666
		.L664:
		.LVL658:
 2655        %RETURN
				j	.L423
		.LVL644:
		.L775:
				addw	s0,s0,1
		.LVL659:
 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
				lui	a5,%hi(BP.6142)
				lw	a4,%lo(BP.6142)(a5)
				addw	a3,a4,1
				sw	a3,%lo(BP.6142)(a5)
 2659
				ld	a5,32(sp)
				ld	a5,8(a5)
				add	a4,a5,a4
				li	a5,106496
				add	a5,a5,a4
				li	a4,112
				sb	a4,-1786(a5)
				lui	a2,%hi(BP.6142)
				lw	a5,%lo(BP.6142)(a2)
				ld	a0,32(sp)
				ld	a4,8(a0)
				add	a4,a4,a5
				li	a3,106496
				add	a4,a3,a4
				li	a1,112
				sb	a1,-1786(a4)
 2660 !constant expressions
				j	.L738
		.L668:
				ld	a4,8(a0)
				addw	a1,a5,1
				add	a4,a4,a1
				add	a3,a3,a4
				li	a4,69
				sb	a4,-1786(a3)
 2661
				addw	a5,a5,2
				sw	a5,%lo(BP.6142)(a2)
 2662 c(155):                                      !pconst
				j	.L738
		.L669:
 2663        %IF x < 0 %THEN lit = tag(-x)_format %c
				lui	a5,%hi(X.6055)
				lw	a5,%lo(X.6055)(a5)
				bltz	a5,.L777
		.L670:
 2664                  %ELSE lit = lit pool(x)
				ld	a4,32(sp)
				ld	a4,8(a4)
				subw	a5,zero,a5
				sext.w	a5,a5
				add	a5,a5,13
				sll	a5,a5,4
				add	a5,a4,a5
				lw	a4,8(a5)
				lui	a5,%hi(LIT.6132)
				sw	a4,%lo(LIT.6132)(a5)
 2665        pending = pending+1;     pstack(pending) = lit;  ->top
				lw	a5,792(sp)
				addw	a4,a5,1
				sw	a4,792(sp)
				j	.L671
		.L672:
 2666 c(156):lit = pstack(pending);  lit = -lit %IF lit < 0
				sll	a5,a5,2
				ld	a4,64(sp)
				add	a5,a4,a5
				lui	a4,%hi(LIT.6132)
				lw	a4,%lo(LIT.6132)(a4)
				sw	a4,0(a5)
 2667                                 pstack(pending) = lit;  ->top;  !cmod
				ld	a4,32(sp)
				ld	a4,8(a4)
				sll	a5,a5,2
				add	a5,a4,a5
				lw	a4,0(a5)
				lui	a5,%hi(LIT.6132)
				sw	a4,%lo(LIT.6132)(a5)
		.L671:
				j	.L738
		.L777:
				lw	a5,792(sp)
				addw	a5,a5,-1
				sll	a4,a5,2
				ld	a3,64(sp)
				add	a4,a3,a4
				lw	a4,0(a4)
				lui	a3,%hi(LIT.6132)
				sw	a4,%lo(LIT.6132)(a3)
				sll	a5,a5,2
				ld	a4,64(sp)
				add	a5,a4,a5
				lui	a4,%hi(LIT.6132)
				lw	a4,%lo(LIT.6132)(a4)
				sw	a4,0(a5)
 2668 c(157):lit = -pstack(pending);  pstack(pending) = lit;  ->top;  !csign
				bltz	a4,.L778
		.L673:
				j	.L738
		.L778:
 2669 c(158):lit = \pstack(pending);  pstack(pending) = lit;  ->top;  !cuop
				subw	a4,zero,a4
				sw	a4,%lo(LIT.6132)(a3)
				j	.L673
		.L674:
				lw	a5,792(sp)
				addw	a5,a5,-1
				sll	a5,a5,2
				ld	a4,64(sp)
				add	a5,a4,a5
				lw	a4,0(a5)
				subw	a4,zero,a4
				lui	a3,%hi(LIT.6132)
				sw	a4,%lo(LIT.6132)(a3)
 2670 c(159):                                      !cop1
				sw	a4,0(a5)
				lw	a5,792(sp)
				addw	a5,a5,-1
				sll	a5,a5,2
				ld	a4,64(sp)
				add	a5,a4,a5
				lw	a4,0(a5)
				not	a4,a4
				lui	a3,%hi(LIT.6132)
				sw	a4,%lo(LIT.6132)(a3)
 2671 c(160):                                      !cop2
				j	.L738
		.L675:
				sw	a4,0(a5)
 2672 c(161):pending = pending-1;                  !cop3
				j	.L738
		.L676:
		.L678:
 2673        lit2 = pstack(pending+1);  lit = pstack(pending)
				lui	a5,%hi(.LANCHOR0)
				addi	a5,a5,%lo(.LANCHOR0)
				sd	a5,64(sp)
		.LVL452:
		.L738:
				lw	a5,792(sp)
				addw	a3,a5,-1
				sext.w	a4,a3
				sw	a3,792(sp)
				sll	a4,a4,2
				ld	a3,64(sp)
				add	a4,a3,a4
				lw	a4,0(a4)
				sd	a4,96(sp)
		.LVL663:
 2674        ->litop(x>>2)
				addw	a5,a5,-2
				sll	a5,a5,2
				add	a5,a3,a5
				lw	a4,0(a5)
				lui	a5,%hi(LIT.6132)
				sw	a4,%lo(LIT.6132)(a5)
		.LVL664:
				lui	a5,%hi(X.6055)
				lw	a5,%lo(X.6055)(a5)
				srlw	a5,a5,2
				sext.w	a5,a5
				sd	a5,112(sp)
		.LVL665:
				lui	a5,%hi(.LC77)
		.LVL666:
				addi	a5,a5,%lo(.LC77)
				sd	a5,152(sp)
				li	a5,4096
				add	a5,a5,-1422
				sd	a5,144(sp)
		.LVL667:
		.L679:
 2675 litop(10):lit = lit*lit2;   ->setl
 2676 litop(12):
				lui	a4,%hi(LIT.6132)
				lw	a5,%lo(LIT.6132)(a4)
				ld	a3,96(sp)
				mulw	a5,a5,a3
				sw	a5,%lo(LIT.6132)(a4)
 2677 litop(3):n = 1;                              !lit = lit\\lit2
				j	.L697
		.L682:
		.L683:
		.LVL671:
 2678          fault(10) %IF lit2 < 0
				ld	a5,96(sp)
				bltz	a5,.L779
		.L684:
 2679          %WHILE lit2 > 0 %CYCLE
				ld	t2,32(sp)
				li	a0,10
				call	FAULT.6294
		.LVL677:
				j	.L684
		.L726:
 2680             lit2 = lit2-1
				ld	a5,96(sp)
				blez	a5,.L726
				ld	a3,96(sp)
				addw	a3,a3,-1
				sd	a3,96(sp)
		.LVL673:
				bnez	a3,.L686
		.L685:
				li	a5,1
				j	.L685
		.LVL678:
		.L687:
 2681             n = n*lit
				lui	a5,%hi(LIT.6132)
				lw	a4,%lo(LIT.6132)(a5)
				li	a5,1
		.LVL672:
		.L686:
				mulw	a5,a4,a5
		.LVL674:
 2682          %REPEAT
 2683          lit = n;           ->setl
				lui	a4,%hi(LIT.6132)
				sw	a5,%lo(LIT.6132)(a4)
		.L681:
		.L697:
		.LVL675:
 2684 litop(1):lit = lit<<lit2;   ->setl
 2685 litop(2):lit = lit>>lit2;   ->setl
				lui	a4,%hi(LIT.6132)
				lw	a5,%lo(LIT.6132)(a4)
				ld	a3,96(sp)
				sllw	a5,a5,a3
				sw	a5,%lo(LIT.6132)(a4)
 2686 litop(5):lit = lit&lit2;    ->setl
				j	.L697
		.L688:
				lui	a4,%hi(LIT.6132)
				lw	a5,%lo(LIT.6132)(a4)
				ld	a3,96(sp)
				srlw	a5,a5,a3
				sw	a5,%lo(LIT.6132)(a4)
 2687 litop(11):
				j	.L697
		.L689:
				lui	a4,%hi(LIT.6132)
				lw	a5,%lo(LIT.6132)(a4)
				ld	a3,96(sp)
				and	a5,a3,a5
				sw	a5,%lo(LIT.6132)(a4)
 2688 litop(4):%IF lit2 = 0 %THEN fault(10) %ELSE lit = lit//lit2
				j	.L697
		.L690:
		.L691:
 2689                             ->setl
				ld	a5,96(sp)
				beqz	a5,.L780
		.L692:
 2690 litop(8):lit = lit+lit2;    ->setl
				ld	t2,32(sp)
				li	a0,10
				call	FAULT.6294
		.LVL679:
				j	.L697
		.L693:
 2691 litop(9):lit = lit-lit2;    ->setl
				lui	a4,%hi(LIT.6132)
				lw	a5,%lo(LIT.6132)(a4)
				ld	a3,96(sp)
				addw	a5,a5,a3
				sw	a5,%lo(LIT.6132)(a4)
 2692 litop(6):lit = lit!lit2;    ->setl
				j	.L697
		.L694:
				lui	a4,%hi(LIT.6132)
				lw	a5,%lo(LIT.6132)(a4)
				ld	a3,96(sp)
				subw	a5,a5,a3
				sw	a5,%lo(LIT.6132)(a4)
 2693 litop(7):lit = lit!!lit2
				lui	a4,%hi(LIT.6132)
				lw	a5,%lo(LIT.6132)(a4)
				ld	a3,96(sp)
				div	a5,a5,a3
				sw	a5,%lo(LIT.6132)(a4)
				j	.L697
		.L780:
				j	.L697
		.L695:
				lui	a4,%hi(LIT.6132)
				lw	a5,%lo(LIT.6132)(a4)
				ld	a3,96(sp)
				or	a5,a3,a5
				sw	a5,%lo(LIT.6132)(a4)
 2694
				j	.L697
		.L696:
				lui	a4,%hi(LIT.6132)
				lw	a5,%lo(LIT.6132)(a4)
				ld	a3,96(sp)
				xor	a5,a3,a5
				sw	a5,%lo(LIT.6132)(a4)
				j	.L697
		.L698:
 2695 setl: pstack(pending) = lit;  ->top
 2696
				lw	a5,792(sp)
				addw	a5,a5,-1
				sll	a5,a5,2
				ld	a4,64(sp)
				add	a5,a4,a5
				lui	a4,%hi(LIT.6132)
				lw	a4,%lo(LIT.6132)(a4)
				sw	a4,0(a5)
 2697 c(170):Fault(4) %if IMPCOM_Option # ""
				j	.L738
		.LVL676:
		.L779:
 2698        IMPCOM_Option = String(x-x'4000'+Stbase);      !Option string
 2699        ->Top
 2700
				li	a5,-4096
				add	a1,a5,976
				li	a5,4096
				add	a5,a5,912
				add	a4,sp,240
				add	a5,a5,a4
				add	a1,a5,a1
				lui	a0,%hi(IMPCOM+280)
				addi	a0,a0,%lo(IMPCOM+280)
				call	_imp_strcmp
		.LVL680:
				beqz	a0,.L699
				li	a5,-4096
				add	a1,a5,1232
				li	a2,255
				li	a5,4096
				add	a5,a5,912
				add	a4,sp,240
				add	a5,a5,a4
				add	a1,a5,a1
				lui	a0,%hi(IMPCOM+280)
				addi	a0,a0,%lo(IMPCOM+280)
				call	_imp_strncpy
		.LVL682:
				j	.L738
		.L700:
		.LVL683:
 2701 !string resolution
 2702
 2703 c(135):resln = 2;                    ->top;           !dotl
				ld	t2,32(sp)
				li	a0,4
				call	FAULT.6294
		.LVL681:
		.L699:
 2704 c(136):resln = resln+1;              ->top;           !dotr
				li	a5,2
				sd	a5,80(sp)
 2705 c(55): op('r', resln);    resln = 0; ->top;           !resop
				j	.L738
		.LVL684:
		.L701:
				ld	a5,80(sp)
				addw	a5,a5,1
				sd	a5,80(sp)
		.LVL685:
 2706 c(164):op('r', resln+4);  resln = 0;                  !cresop
				j	.L738
		.LVL686:
		.L702:
				ld	a5,32(sp)
				ld	t2,8(a5)
				ld	a1,80(sp)
				li	a0,114
				call	OP.6258
		.LVL687:
 2707 c(122):x = 6;                        ->cop;           !%PRED
				sd	zero,80(sp)
		.LVL688:
				j	.L738
		.LVL689:
		.L703:
				ld	a5,32(sp)
				ld	t2,8(a5)
				ld	a5,80(sp)
				addw	a1,a5,4
				li	a0,114
				call	OP.6258
		.LVL690:
 2708 c(87): set const(pstack(1));                          !mass
				sd	zero,80(sp)
		.LVL691:
		.L704:
				lui	a5,%hi(X.6055)
				li	a4,6
				sw	a4,%lo(X.6055)(a5)
		.L546:
		.L549:
 2709        bp=bp+1 %AND buff(bp)='P';    ->top
				ld	s0,32(sp)
		.LVL697:
				ld	t2,8(s0)
				ld	a5,64(sp)
				lw	a0,0(a5)
				call	SETCONST.6261
		.LVL698:
				lui	a5,%hi(BP.6142)
				lw	a4,%lo(BP.6142)(a5)
				addw	a3,a4,1
				sw	a3,%lo(BP.6142)(a5)
 2710    %END
				ld	a5,8(s0)
				add	a4,a5,a4
				li	a5,106496
				add	a5,a5,a4
				li	a4,80
				sb	a4,-1786(a5)
		.L437:
 2711
				j	.L738
		.LVL699:
		.L440:
 2712 %END;                                                 !of compile block
				add	a5,sp,256
				sd	a5,56(sp)
				lui	a5,%hi(_imp_current_file)
				ld	a1,%lo(_imp_current_file)(a5)
				beqz	a1,.L706
				li	a5,4096
				add	a5,a5,-160
				add	a4,sp,240
				add	a0,a4,a5
				call	_imp_c2istr
		.LVL700:
		.L707:
				lui	a5,%hi(_imp_current_line)
				lw	s1,%lo(_imp_current_line)(a5)
				bnez	s1,.L708
				li	s1,4096
				add	s1,s1,-1384
		.L708:
				li	a2,256
				li	s2,4096
				add	a5,s2,-160
				add	a4,sp,240
				add	a1,a4,a5
				ld	a0,56(sp)
				call	memcpy
		.LVL701:
				li	a5,-4096
				add	a0,a5,-896
				li	a5,4096
				add	a5,a5,-1871
				sd	a5,0(sp)
				lui	a7,%hi(.LC77)
				addi	a7,a7,%lo(.LC77)
				mv	a6,s0
				lui	a5,%hi(.LC84)
				addi	a5,a5,%lo(.LC84)
				mv	a4,s0
				li	a3,3
				li	a2,6
				mv	a1,s1
				add	s1,s2,912
				add	t1,sp,240
				add	s1,s1,t1
				add	a0,s1,a0
				call	_signal_eventf
		.LVL702:
				j	.L441
		.L706:
		.LBB560:
				add	a5,sp,1152
				add	s2,a5,2000
				li	a2,256
				lui	a1,%hi(.LANCHOR1)
				addi	a1,a1,%lo(.LANCHOR1)
				mv	a0,s2
				call	memcpy
		.LVL703:
				add	a5,sp,1152
				add	s1,a5,1488
				li	a2,256
				mv	a1,s2
				mv	a0,s1
				call	memcpy
		.LVL704:
		.LBE560:
				li	a2,256
				mv	a1,s1
				li	a5,4096
				add	a5,a5,-160
				add	a4,sp,240
				add	a0,a4,a5
				call	memcpy
		.LVL705:
				j	.L707
		.L710:
 2713
				sll	a5,s0,3
				lui	a4,%hi(.LANCHOR1)
				addi	a4,a4,%lo(.LANCHOR1)
				add	a5,a4,a5
				ld	a5,2016(a5)
				ld	a4,1912(sp)
				lui	a5,%hi(__stack_chk_guard)
				ld	a5,%lo(__stack_chk_guard)(a5)
				bne	a4,a5,.L936
				ld	ra,2008(sp)
				ld	s0,2000(sp)
				ld	s1,1992(sp)
				ld	s2,1984(sp)
				ld	s3,1976(sp)
				ld	s4,1968(sp)
				ld	s5,1960(sp)
				ld	s6,1952(sp)
				ld	s7,1944(sp)
				ld	s8,1936(sp)
				ld	s9,1928(sp)
				ld	s10,1920(sp)
				add	sp,sp,2016
				jr	ra
		.L935:
				call	__stack_chk_fail
		.LVL995:
		.LFE191:
				.align	1
				.globl	main
		main:
		.LFB185:
 2714    %ON 9 %START
				li	a1,1
				lui	a0,%hi(_imp_event+536)
				addi	a0,a0,%lo(_imp_event+536)
				call	__sigsetjmp
		.LVL1231:
				bnez	a0,.L939
		.LVL1232:
				li	a1,512
				lui	a0,%hi(_imp_event)
				addi	a0,a0,%lo(_imp_event)
				call	_imp_on_event_enter
		.LVL1233:
				beqz	a0,.L939
		.LVL1234:
		.L940:
 2715       abandon(5)
				lui	s2,%hi(_imp_current_file)
				li	a4,-4096
				add	a4,a4,-896
				li	a3,4096
				add	a3,a3,912
				add	a2,sp,240
				add	a3,a3,a2
				add	s1,a3,a4
		.L709:
				jr	a5
		.LVL465:
		.L746:
				ld	a1,%lo(_imp_current_file)(s2)
				beqz	a1,.L711
				li	a5,4096
				add	a5,a5,96
				add	a4,sp,240
				add	a0,a4,a5
				call	_imp_c2istr
		.LVL706:
		.L712:
				lui	a5,%hi(_imp_current_line)
				lw	s3,%lo(_imp_current_line)(a5)
				bnez	s3,.L713
				li	s3,4096
				add	s3,s3,-1381
		.L713:
				li	a2,256
				li	a5,4096
				add	a5,a5,96
				add	a4,sp,240
				add	a1,a4,a5
				ld	a0,56(sp)
				call	memcpy
		.LVL707:
				li	a5,4096
				add	a5,a5,-1871
				sd	a5,0(sp)
				lui	a7,%hi(.LC77)
				addi	a7,a7,%lo(.LC77)
				mv	a6,s0
				lui	a5,%hi(.LC85)
				addi	a5,a5,%lo(.LC85)
				mv	a4,s0
				li	a3,2
				li	a2,8
				mv	a1,s3
				mv	a0,s1
				call	_signal_eventf
		.LVL708:
				j	.L679
		.L711:
		.LBB561:
				add	a5,sp,1152
				add	s4,a5,2000
				li	a2,256
				lui	a1,%hi(.LANCHOR1)
				addi	a1,a1,%lo(.LANCHOR1)
				mv	a0,s4
				call	memcpy
		.LVL709:
				add	a5,sp,1152
				add	s3,a5,1744
				li	a2,256
				mv	a1,s4
				mv	a0,s3
				call	memcpy
		.LVL710:
		.LBE561:
				li	a2,256
				mv	a1,s3
				li	a5,4096
				add	a5,a5,96
				add	a4,sp,240
				add	a0,a4,a5
				call	memcpy
		.LVL711:
				j	.L712
		.L715:
		.LBB562:
				li	t2,-106496
				add	t2,t2,1256
				li	a5,106496
				add	a5,a5,800
				add	a4,sp,64
				add	a5,a5,a4
				add	t2,a5,t2
				li	a0,5
				call	ABANDON.6184
		.LVL1260:
				j	.L940
		.LFE185:
				.comm	IMPCOM,536,8
				.section	.rodata
				.align	3
				.set	.LANCHOR1,. + 0
				.set	.LANCHOR3,. + 4096
				.set	.LANCHOR4,. + 8192
		.LC16:
				.byte	29
				.string	"test-new/pass1v84-noprims.imp"
				.zero	225
		REASON.6189:
				.dword	.L24
				.dword	.L24
				.dword	.L24
				.dword	.L24
				.dword	.L24
				.dword	.L24
				.dword	.L24
				.dword	.L24
				.dword	.L24
				.dword	.L24
		__PRETTY_FUNCTION__.5605:
				.string	"_imp_SELECTOUTPUT"
				.zero	6
		.LC26:
				.byte	7
				.string	"lookup:"
				.zero	247
		.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
				.string	" &"
				.zero	252
		.LC31:
				.byte	8
				.string	"      ! "
				.zero	246
		FM.6299:
				.dword	.L382
				.dword	.L382
				.dword	.L382
				.dword	.L382
				.dword	.L382
				.dword	.L382
				.dword	.L382
				.dword	.L382
				.dword	.L382
				.dword	.L382
				.dword	.L382
				.dword	.L382
				.dword	.L382
				.dword	.L382
				.dword	.L382
				.dword	.L382
				.dword	.L382
				.dword	.L382
				.dword	.L382
				.dword	.L382
				.dword	.L382
				.dword	.L382
				.dword	.L382
				.dword	.L382
				.dword	.L382
				.dword	.L382
				.dword	.L382
				.dword	.L382
		.LC32:
				.byte	5
				.string	"fault"
				.zero	249
		.LC15:
				.byte	4
				.string	"ss ="
				.zero	250
		__PRETTY_FUNCTION__.5601:
				.string	"_imp_SELECTINPUT"
				.zero	7
		C.7010:
				.dword	.L436
				.dword	.L710
				.dword	.L710
				.dword	.L710
				.dword	.L710
				.dword	.L710
				.dword	.L710
				.dword	.L710
				.dword	.L710
				.dword	.L710
				.dword	.L710
				.dword	.L710
				.dword	.L710
				.dword	.L710
				.dword	.L710
				.dword	.L710
				.dword	.L710
				.dword	.L710
				.dword	.L710
				.dword	.L710
				.dword	.L710
				.dword	.L710
				.dword	.L710
				.dword	.L710
				.dword	.L710
				.dword	.L710
				.dword	.L710
				.dword	.L473
				.dword	.L464
				.dword	.L471
				.dword	.L472
				.dword	.L468
				.dword	.L469
				.dword	.L482
				.dword	.L465
				.dword	.L466
				.dword	.L478
				.dword	.L477
				.dword	.L484
				.dword	.L483
				.dword	.L710
				.dword	.L487
				.dword	.L503
				.dword	.L504
				.dword	.L505
				.dword	.L499
				.dword	.L500
				.dword	.L501
				.dword	.L502
				.dword	.L547
				.dword	.L545
				.dword	.L560
				.dword	.L562
				.dword	.L561
				.dword	.L710
				.dword	.L702
				.dword	.L506
				.dword	.L507
				.dword	.L508
				.dword	.L510
				.dword	.L511
				.dword	.L710
				.dword	.L515
				.dword	.L539
				.dword	.L530
				.dword	.L559
				.dword	.L710
				.dword	.L525
				.dword	.L521
				.dword	.L517
				.dword	.L519
				.dword	.L526
				.dword	.L516
				.dword	.L710
				.dword	.L563
				.dword	.L570
				.dword	.L568
				.dword	.L567
				.dword	.L553
				.dword	.L554
				.dword	.L555
				.dword	.L558
				.dword	.L556
				.dword	.L585
				.dword	.L586
				.dword	.L584
				.dword	.L587
				.dword	.L705
				.dword	.L463
				.dword	.L557
				.dword	.L608
				.dword	.L622
				.dword	.L623
				.dword	.L632
				.dword	.L710
				.dword	.L710
				.dword	.L616
				.dword	.L613
				.dword	.L614
				.dword	.L615
				.dword	.L618
				.dword	.L619
				.dword	.L620
				.dword	.L621
				.dword	.L537
				.dword	.L651
				.dword	.L624
				.dword	.L625
				.dword	.L626
				.dword	.L627
				.dword	.L710
				.dword	.L710
				.dword	.L710
				.dword	.L710
				.dword	.L710
				.dword	.L710
				.dword	.L710
				.dword	.L710
				.dword	.L710
				.dword	.L710
				.dword	.L524
				.dword	.L629
				.dword	.L704
				.dword	.L710
				.dword	.L612
				.dword	.L606
				.dword	.L492
				.dword	.L491
				.dword	.L602
				.dword	.L710
				.dword	.L603
				.dword	.L609
				.dword	.L637
				.dword	.L488
				.dword	.L652
				.dword	.L700
				.dword	.L701
				.dword	.L635
				.dword	.L509
				.dword	.L645
				.dword	.L667
				.dword	.L636
				.dword	.L597
				.dword	.L642
				.dword	.L668
				.dword	.L595
				.dword	.L596
				.dword	.L498
				.dword	.L489
				.dword	.L538
				.dword	.L710
				.dword	.L655
				.dword	.L467
				.dword	.L646
				.dword	.L594
				.dword	.L669
				.dword	.L672
				.dword	.L674
				.dword	.L675
				.dword	.L676
				.dword	.L677
				.dword	.L678
				.dword	.L640
				.dword	.L518
				.dword	.L703
				.dword	.L617
				.dword	.L514
				.dword	.L630
				.dword	.L497
				.dword	.L710
				.dword	.L698
				.dword	.L494
				.dword	.L495
				.dword	.L496
				.dword	.L493
				.dword	.L486
				.dword	.L710
				.dword	.L710
				.dword	.L710
				.dword	.L710
				.dword	.L710
		LITOP.7144:
				.dword	.L687
				.dword	.L688
				.dword	.L683
				.dword	.L691
				.dword	.L689
				.dword	.L695
				.dword	.L696
				.dword	.L693
				.dword	.L694
				.dword	.L680
				.dword	.L690
				.dword	.L682
		.LC29:
				.byte	2
				.string	" ["
				.zero	252
		.LC17:
				.byte	7
				.string	"Atom1 ="
				.zero	247
		.LC18:
				.byte	9
				.string	"  Atom2 ="
				.zero	245
		.LC19:
				.byte	11
				.string	"  subatom ="
				.zero	243
		.LC20:
				.byte	6
				.string	"Type ="
				.zero	248
		.LC21:
				.byte	10
				.string	"   Ptype ="
				.zero	244
		.LC22:
				.byte	5
				.string	"App ="
				.zero	249
		.LC23:
				.byte	9
				.string	"   Papp ="
				.zero	245
		.LC24:
				.byte	8
				.string	"Format ="
				.zero	246
		.LC25:
				.byte	12
				.string	"   Pformat ="
				.zero	242
		ACT.6538:
				.dword	.L851
				.dword	.L851
				.dword	.L851
				.dword	.L851
				.dword	.L851
				.dword	.L851
				.dword	.L851
				.dword	.L851
				.dword	.L851
				.dword	.L851
				.dword	.L851
				.dword	.L851
				.dword	.L851
				.dword	.L851
				.dword	.L851
				.dword	.L851
				.dword	.L851
				.dword	.L851
				.dword	.L851
				.dword	.L851
				.dword	.L851
		PACTION.6543:
				.dword	.L860
				.dword	.L860
				.dword	.L860
				.dword	.L860
				.dword	.L860
				.dword	.L860
				.dword	.L860
				.dword	.L860
				.dword	.L860
				.dword	.L860
				.dword	.L860
				.dword	.L860
				.dword	.L860
				.dword	.L860
				.dword	.L860
				.dword	.L860
		.LC8:
				.byte	5
				.string	"Begin"
				.zero	249
		.LC9:
				.byte	10
				.string	"Procedure "
				.zero	244
		.LC10:
				.byte	3
				.string	"End"
				.zero	251
		.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
		.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
				.string	"LISTING"
				.zero	247
		.LC6:
				.byte	14
				.string	"prims-null.inc"
				.zero	240
		.LC7:
				.byte	44
				.string	"         Edinburgh IMP77 Compiler - Version "
				.zero	210
		.LC91:
				.string	"Z"
				.zero	6
		.LC92:
				.string	"VDEC"
				.zero	3
		.LC94:
				.string	"EXTVSPEC"
				.zero	7
		.LC95:
				.string	"ADEC"
				.zero	3
		.LC97:
				.string	"EXTASPEC"
				.zero	7
		.LC98:
				.string	"PROC"
				.zero	3
		.LC99:
				.string	"PROCSPEC"
				.zero	7
		.LC101:
				.string	"SWDEC"
				.zero	2
		.LC102:
				.string	"LDEC"
				.zero	3
		.LC103:
				.string	"FORMSPEC"
				.zero	7
		.LC104:
				.string	"OPTION"
				.zero	1
		.LC105:
				.string	"COMMA"
				.zero	2
		.LC106:
				.string	"T"
				.zero	6
		.LC107:
				.string	"COLON"
				.zero	2
		.LC109:
				.string	"LB"
				.zero	5
		.LC110:
				.string	"ALIAS"
				.zero	2
		.LC111:
				.string	"RB"
				.zero	5
		.LC112:
				.string	"SUB"
				.zero	4
		.LC113:
				.string	"ARRAYD"
				.zero	1
		.LC114:
				.string	"STYPE"
				.zero	2
		.LC115:
				.string	"ARRAY"
				.zero	2
		.LC116:
				.string	"NAME"
				.zero	3
		.LC117:
				.string	"PROCD"
				.zero	2
		.LC118:
				.string	"FNMAP"
				.zero	2
		.LC119:
				.string	"SWITCH"
				.zero	1
		.LC120:
				.string	"OWN"
				.zero	4
		.LC121:
				.string	"EXTERNAL"
				.zero	7
		.LC122:
				.string	"STRING"
				.zero	1
		.LC123:
				.string	"RECORD"
				.zero	1
		.LC124:
				.string	"FORMAT"
				.zero	1
		.LC125:
				.string	"SPEC"
				.zero	3
		.LC126:
				.string	"MCODE"
				.zero	2
		.LC127:
				.string	"LABEL"
				.zero	2
		.LC128:
				.string	"OP1"
				.zero	4
		.LC129:
				.string	"OP2"
				.zero	4
		.LC130:
				.string	"OP3"
				.zero	4
		.LC131:
				.string	"SIGN"
				.zero	3
		.LC132:
				.string	"UOP"
				.zero	4
		.LC133:
				.string	"MOD"
				.zero	4
		.LC134:
				.string	"DOT"
				.zero	4
		.LC135:
				.string	"COMP"
				.zero	3
		.LC136:
				.string	"ACOMP"
				.zero	2
		.LC137:
				.string	"EQ"
				.zero	5
		.LC138:
				.string	"EQEQ"
				.zero	3
		.LC139:
				.string	"JAM"
				.zero	4
		.LC140:
				.string	"JUMP"
				.zero	3
		.LC141:
				.string	"RESOP"
				.zero	2
		.LC142:
				.string	"AND"
				.zero	4
		.LC143:
				.string	"OR"
				.zero	5
		.LC144:
				.string	"NOT"
				.zero	4
		.LC145:
				.string	"WHILE"
				.zero	2
		.LC146:
				.string	"UNTIL"
				.zero	2
		.LC147:
				.string	"FOR"
				.zero	4
		.LC148:
				.string	"CWORD"
				.zero	2
		.LC149:
				.string	"EXIT"
				.zero	3
		.LC150:
				.string	"ON"
				.zero	5
		.LC151:
				.string	"SIGNAL"
				.zero	1
		.LC152:
				.string	"THEN"
				.zero	3
		.LC153:
				.string	"START"
				.zero	2
		.LC154:
				.string	"ELSE"
				.zero	3
		.LC155:
				.string	"FINISH"
				.zero	1
		.LC156:
				.string	"FELSE"
				.zero	2
		.LC157:
				.string	"CYCLE"
				.zero	2
		.LC158:
				.string	"REPEAT"
				.zero	1
		.LC160:
				.string	"BEGIN"
				.zero	2
		.LC161:
				.string	"END"
				.zero	4
		.LC166:
				.string	"BACK"
				.zero	3
		.LC168:
				.string	"STOP"
				.zero	3
		.LC169:
				.string	"LIST"
				.zero	3
		.LC173:
				.string	"MASS"
				.zero	3
		.LC174:
				.string	"RTYPE"
				.zero	2
		.LC175:
				.string	"ADDOP"
				.zero	2
		.LC176:
				.string	"IDENT"
				.zero	2
		.LC177:
				.string	"V"
				.zero	6
		.LC178:
				.string	"N"
				.zero	6
		.LC179:
				.string	"CONST"
				.zero	2
		.LC180:
				.string	"FM"
				.zero	5
		.LC181:
				.string	"R"
				.zero	6
		.LC182:
				.string	"F"
				.zero	6
		.LC183:
				.string	"M"
				.zero	6
		.LC184:
				.string	"P"
				.zero	6
		.LC185:
				.string	"RP"
				.zero	5
		.LC186:
				.string	"FP"
				.zero	5
		.LC187:
				.string	"MP"
				.zero	5
		.LC188:
				.string	"PP"
				.zero	5
		.LC189:
				.string	"L"
				.zero	6
		.LC190:
				.string	"S"
				.zero	6
		.LC191:
				.string	"A"
				.zero	6
		.LC192:
				.string	"AN"
				.zero	5
		.LC193:
				.string	"NA"
				.zero	5
		.LC194:
				.string	"NAN"
				.zero	4
		.LC196:
				.string	"%CLEAR"
				.zero	1
		.LC197:
				.string	"%PRED"
				.zero	2
		.LC198:
				.string	"%DUBIOUS"
				.zero	7
		.LC199:
				.string	"%DUP"
				.zero	3
		.LC200:
				.string	"%PIN"
				.zero	3
		.LC201:
				.string	"%POUT"
				.zero	2
		.LC202:
				.string	"%EDUP"
				.zero	2
		.LC203:
				.string	"PIDENT"
				.zero	1
		.LC204:
				.string	"CIDENT"
				.zero	1
		.LC205:
				.string	"OIDENT"
				.zero	1
		.LC206:
				.string	"FNAME"
				.zero	2
		.LC207:
				.string	"SWID"
				.zero	3
		.LC208:
				.string	"DOTL"
				.zero	3
		.LC209:
				.string	"DOTR"
				.zero	3
		.LC210:
				.string	"ASEP"
				.zero	3
		.LC211:
				.string	"CSEP"
				.zero	3
		.LC212:
				.string	"OSEP"
				.zero	3
		.LC213:
				.string	"PSEP"
				.zero	3
		.LC214:
				.string	"ARB"
				.zero	4
		.LC215:
				.string	"BPLRB"
				.zero	2
		.LC216:
				.string	"ORB"
				.zero	4
		.LC217:
				.string	"PRB"
				.zero	4
		.LC218:
				.string	"CRB"
				.zero	4
		.LC219:
				.string	"RCRB"
				.zero	3
		.LC220:
				.string	"RECRB"
				.zero	2
		.LC221:
				.string	"RECLB"
				.zero	2
		.LC222:
				.string	"LAB"
				.zero	4
		.LC223:
				.string	"MLAB"
				.zero	3
		.LC224:
				.string	"SLAB"
				.zero	3
		.LC225:
				.string	"XNAME"
				.zero	2
		.LC226:
				.string	"OWNT"
				.zero	3
		.LC227:
				.string	"DBSEP"
				.zero	2
		.LC228:
				.string	"PCONST"
				.zero	1
		.LC229:
				.string	"CMOD"
				.zero	3
		.LC230:
				.string	"CSIGN"
				.zero	2
		.LC231:
				.string	"CUOP"
				.zero	3
		.LC232:
				.string	"COP1"
				.zero	3
		.LC233:
				.string	"COP2"
				.zero	3
		.LC234:
				.string	"COP3"
				.zero	3
		.LC235:
				.string	"INDEF"
				.zero	2
		.LC236:
				.string	"XELSE"
				.zero	2
		.LC237:
				.string	"CRESOP"
				.zero	1
		.LC238:
				.string	"NLAB"
				.zero	3
		.LC239:
				.string	"RUNTIL"
				.zero	1
		.LC240:
				.string	"ACONST"
				.zero	1
		.LC241:
				.string	"ORRB"
				.zero	3
		.LC242:
				.string	"FMANY"
				.zero	2
		.LC244:
				.string	"FMLB"
				.zero	3
		.LC245:
				.string	"FMRB"
				.zero	3
		.LC246:
				.string	"FMOR"
				.zero	3
		.LC248:
				.string	"FSID"
				.zero	3
		.LC249:
				.string	"%DUMMY"
				.zero	1
		.LC250:
				.string	"%DECL"
				.zero	2
		.LC251:
				.string	"%TYPE"
				.zero	2
		.LC252:
				.string	"%ZERO"
				.zero	2
		.LC253:
				.string	"%APPLY"
				.zero	1
		.LC254:
				.string	"%PROT"
				.zero	2
		.LC255:
				.string	"%SETPROT"
				.zero	7
		.LC256:
				.string	"%PTYPE"
				.zero	1
		.LC257:
				.string	"%GAPP"
				.zero	2
		.LC258:
				.string	"%LOCAL"
				.zero	1
		.LC259:
				.string	"%GUARD"
				.zero	1
		.LC260:
				.string	"%MCODE"
				.zero	1
		.LC262:
				.string	"%SETTYPE"
				.zero	7
		.LC263:
				.string	"%OPER"
				.zero	2
		.LC264:
				.string	"%PARAM"
				.zero	1
		.LC265:
				.string	"%BLOCK"
				.zero	1
		.LC266:
				.string	"%OTHER"
				.zero	1
		.LC267:
				.string	"%COMPILE"
				.zero	7
		.LC268:
				.string	"APP"
				.zero	4
		.LC270:
				.string	"APP2"
				.zero	3
		.LC271:
				.string	"APP3"
				.zero	3
		.LC272:
				.string	"APP4"
				.zero	3
		.LC273:
				.string	"APP5"
				.zero	3
		.LC274:
				.string	"APP6"
				.zero	3
		.LC275:
				.string	"ADEFN"
				.zero	2
		.LC276:
				.string	"NPARM"
				.zero	2
		.LC277:
				.string	"SWDEF"
				.zero	2
		.LC278:
				.string	"SWIDS"
				.zero	2
		.LC279:
				.string	"CIEXP"
				.zero	2
		.LC280:
				.string	"RCONST"
				.zero	1
		.LC281:
				.string	"SCONST"
				.zero	1
		.LC282:
				.string	"ARRAYP"
				.zero	1
		.LC283:
				.string	"XIMP"
				.zero	3
		.LC284:
				.string	"IMP"
				.zero	4
		.LC285:
				.string	"COND"
				.zero	3
		.LC286:
				.string	"SCOND"
				.zero	2
		.LC287:
				.string	"EXP1"
				.zero	3
		.LC288:
				.string	"EXP2"
				.zero	3
		.LC289:
				.string	"SEXP"
				.zero	3
		.LC290:
				.string	"IEXP"
				.zero	3
		.LC291:
				.string	"IEXP1"
				.zero	2
		.LC292:
				.string	"IEXP2"
				.zero	2
		.LC293:
				.string	"ISEXP"
				.zero	2
		.LC294:
				.string	"SEQ"
				.zero	4
		.LC295:
				.string	"FDEF"
				.zero	3
		.LC296:
				.string	"EXP"
				.zero	4
		.LC298:
				.string	"STRUCT"
				.zero	1
		.LC299:
				.string	"RESEXP"
				.zero	1
		.LC300:
				.string	"BPL"
				.zero	4
		.LC301:
				.string	"CONSTB"
				.zero	1
		.LC302:
				.string	"FITEM"
				.zero	2
		.LC303:
				.string	"MOREA"
				.zero	2
		.LC304:
				.string	"CLIST"
				.zero	2
		.LC305:
				.string	"FPP"
				.zero	4
		.LC306:
				.string	"FPP0"
				.zero	3
		.LC307:
				.string	"FPP1"
				.zero	3
		.LC308:
				.string	"FPP2"
				.zero	3
		.LC310:
				.string	"RECEXP"
				.zero	1
		.LC311:
				.string	"EIMP"
				.zero	3
		.LC312:
				.string	"IDENTS"
				.zero	1
		.LC313:
				.string	"RANGE"
				.zero	2
		.LC315:
				.string	"VARP"
				.zero	3
		.LC317:
				.string	"ESCDEC"
				.zero	1
		.LC319:
				.string	"ESCARRAY"
				.zero	7
		.LC320:
				.string	"ESCREC"
				.zero	1
				.data
				.align	3
				.set	.LANCHOR2,. + 0
		PHRASE.6145:
				.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
		CHAR.6130:
				.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
				.zero	2
		GRAM.6148:
				.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
				.zero	6
		GLINK.6149:
				.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
				.bss
				.align	3
				.set	.LANCHOR0,. + 0
		PSTACK.7183:
				.zero	160
		CNEST.7161:
				.zero	16
		NAME.7184:
				.zero	256
				.section	.rodata.str1.8,"aMS",@progbits,1
				.align	3
		.LC77:
				.string	"test-new/pass1v84-noprims.imp"
				.zero	2
		.LC78:
				.string	"->REASON(%d) out of bounds at %s line %d"
				.zero	7
		.LC79:
				.string	"switch jump to undefined label REASON(%d): at %s line %d"
				.zero	7
		.LC80:
				.string	"Illegal cycle J = AD + 1, 1, AD + *_imp_BYTEINTEGER(AD)"
		.LC81:
				.string	"Illegal cycle J = 1, 1, BP"
				.zero	5
		.LC82:
				.string	"switch jump to undefined label FM(%d): at %s line %d"
				.zero	3
		.LC83:
				.string	"Illegal cycle J = DICT[N - 1], 1, DICT[N + 1 - 1]"
				.zero	6
		.LC84:
				.string	"->C(%d) out of bounds at %s line %d"
				.zero	4
		.LC85:
				.string	"switch jump to undefined label C(%d): at %s line %d"
				.zero	4
		.LC86:
				.string	"->LITOP(%d) out of bounds at %s line %d"
		.LC87:
				.string	"->ACT(%d) out of bounds at %s line %d"
				.zero	2
		.LC88:
				.string	"switch jump to undefined label ACT(%d): at %s line %d"
				.zero	2
		.LC89:
				.string	"->PACTION(%d) out of bounds at %s line %d"
				.zero	6
		.LC90:
				.string	"switch jump to undefined label PACTION(%d): at %s line %d"
				.zero	6
		.LC93:
				.string	"OWNVDEC"
		.LC96:
				.string	"OWNADEC"
		.LC100:
				.string	"FORMDEC"
		.LC108:
				.string	"COMMENT"
		.LC159:
				.string	"PROGRAM"
		.LC162:
				.string	"ENDPROG"
		.LC163:
				.string	"ENDPERM"
		.LC164:
				.string	"FRESULT"
		.LC165:
				.string	"MRESULT"
		.LC167:
				.string	"MONITOR"
		.LC170:
				.string	"REALSLN"
		.LC171:
				.string	"CONTROL"
		.LC172:
				.string	"INCLUDE"
		.LC195:
				.string	"%MSTART"
		.LC243:
				.string	"OSTRING"
		.LC247:
				.string	"RANGERB"
		.LC261:
				.string	"%CDUMMY"
		.LC269:
				.string	"BASEAPP"
		.LC297:
				.string	"NARRAYP"
		.LC309:
				.string	"INITVAR"
		.LC314:
				.string	"RCONSTB"
		.LC316:
				.string	"INITDEC"
		.LC318:
				.string	"ESCPROC"
				.section	.sbss,"aw",@nobits
				.align	2
		LB.7167:
				.zero	4
		UB.7168:
				.zero	4
		COUNT.7185:
				.zero	4
		LAST.6578:
				.zero	4
		LT.6560:
				.zero	4
		LSA.6559:
				.zero	4
		LA2.6558:
				.zero	4
		LA1.6557:
				.zero	4
		KEY.6531:
				.zero	4
		CLASS.6054:
				.zero	4
		ATOM1.6056:
				.zero	4
		ATOM2.6057:
				.zero	4
		SUBATOM.6058:
				.zero	4
		TYPE.6059:
				.zero	4
		APP.6060:
				.zero	4
		FORMAT.6061:
				.zero	4
		FAULTRATE.6064:
				.zero	4
		LINES.6065:
				.zero	4
		TEXTLINE.6066:
				.zero	4
		MARGIN.6067:
				.zero	4
		ERRORMARGIN.6068:
				.zero	4
		ERRORSYM.6069:
				.zero	4
		COLUMN.6070:
				.zero	4
		MONPOS.6072:
				.zero	4
		SYMTYPE.6074:
				.zero	4
		QUOTE.6075:
				.zero	4
		ENDMARK.6076:
				.zero	4
		DECL.6079:
				.zero	4
		DIM.6080:
				.zero	4
		SPECGIVEN.6081:
				.zero	4
		ESCAPECLASS.6082:
				.zero	4
		ATOMFLAGS.6084:
				.zero	4
		OTYPE.6085:
				.zero	4
		LAST1.6087:
				.zero	4
		GENTYPE.6088:
				.zero	4
		PTYPE.6089:
				.zero	4
		PAPP.6090:
				.zero	4
		PFORMAT.6091:
				.zero	4
		FORCE.6092:
				.zero	4
		G.6093:
				.zero	4
		GG.6094:
				.zero	4
		MAPGG.6095:
				.zero	4
		FDEF.6096:
				.zero	4
		NMIN.6098:
				.zero	4
		NMAX.6099:
				.zero	4
		RBASE.6100:
				.zero	4
		STBASE.6101:
				.zero	4
		SS.6105:
				.zero	4
		INCLUDELIST.6107:
				.zero	4
		INCLUDELEVEL.6108:
				.zero	4
		INCLUDE.6109:
				.zero	4
		PROGMODE.6111:
				.zero	4
		SSTYPE.6112:
				.zero	4
		SPECMODE.6113:
				.zero	4
		LIMIT.6115:
				.zero	4
		COPY.6116:
				.zero	4
		ORDER.6117:
				.zero	4
		DUBIOUS.6119:
				.zero	4
		POS1.6121:
				.zero	4
		POS2.6122:
				.zero	4
		POS.6123:
				.zero	4
		DIMENSION.6124:
				.zero	4
		LOCAL.6125:
				.zero	4
		FMBASE.6126:
				.zero	4
		SEARCHBASE.6127:
				.zero	4
		FORMATLIST.6128:
				.zero	4
		LIT.6132:
				.zero	4
		LP.6133:
				.zero	4
		BLOCKX.6134:
				.zero	4
		STATS.6071:
				.zero	4
		BP.6142:
				.zero	4
		X.6055:
				.zero	4
				.section	.sdata,"aw",@progbits
				.align	2
		SPARENAMES.6026:
				.word	2047
		SYM.6073:
				.word	10
		CONT.6077:
				.word	32
		CSYM.6078:
				.word	32
		REALSLN.6086:
				.word	1
		THIS.6097:
				.word	-1
		GMIN.6102:
				.word	1720
		DMAX.6103:
				.word	1
		TMIN.6104:
				.word	800
		PERM.6110:
				.word	1
		OCOUNT.6114:
				.word	-1
		DP.6120:
				.word	1
		GMAX.6144:
				.word	719
		LIST.6135:
				.word	1
		.Letext0:
 2716    %FINISH
 2717
 2718 impcom_flags = 0
				ld	a5,112(sp)
				addw	a5,a5,-1
				li	a4,11
				bleu	a5,a4,.L714
				ld	a1,%lo(_imp_current_file)(s2)
				beqz	a1,.L715
				li	a5,4096
				add	a5,a5,352
				add	a4,sp,240
				add	a0,a4,a5
				call	_imp_c2istr
		.LVL668:
		.L716:
				lui	a5,%hi(_imp_current_line)
				lw	s3,%lo(_imp_current_line)(a5)
				bnez	s3,.L717
				li	s3,4096
				add	s3,s3,-1378
		.L717:
				li	a2,256
				li	a5,4096
				add	a5,a5,352
				add	a4,sp,240
				add	a1,a4,a5
				ld	a0,56(sp)
				call	memcpy
		.LVL669:
				ld	a5,144(sp)
				sd	a5,0(sp)
				ld	a7,152(sp)
				ld	a4,112(sp)
				mv	a6,a4
				lui	a5,%hi(.LC86)
				addi	a5,a5,%lo(.LC86)
				li	a3,3
				li	a2,6
				mv	a1,s3
				mv	a0,s1
				call	_signal_eventf
		.LVL670:
		.L714:
				add	a5,sp,1152
				add	s3,a5,2000
				li	a2,256
				lui	a1,%hi(.LANCHOR1)
				addi	a1,a1,%lo(.LANCHOR1)
				mv	a0,s3
				call	memcpy
		.LVL712:
				li	a2,256
				mv	a1,s3
				li	s3,4096
				add	a0,s3,-928
				add	a5,sp,240
				add	a0,a0,a5
				call	memcpy
		.LVL713:
		.LBE562:
				li	a2,256
				add	a1,s3,-928
				add	a4,sp,240
				add	a1,a1,a4
				add	a5,s3,352
				add	a0,a4,a5
				call	memcpy
		.LVL714:
				j	.L716
		.LVL715:
		.L751:
				call	__stack_chk_fail
		.LVL716:
		.LFE209:
				.align	1
		DELETENAMES.6273:
		.LFB197:
				lui	a5,%hi(IMPCOM+4)
				sw	zero,%lo(IMPCOM+4)(a5)
		.LVL1235:
 2719 impcom_option = ""
				ld	a5,112(sp)
				addw	a5,a5,-1
				sll	a4,a5,3
				lui	a5,%hi(.LANCHOR3)
				addi	a5,a5,%lo(.LANCHOR3)
				add	a5,a5,a4
				ld	a5,-632(a5)
				j	.L709
		.L677:
				j	.L678
		.L680:
 2720
				li	a5,4096
				add	a5,a5,904
				add	a4,sp,240
				add	a5,a5,a4
				ld	a4,0(a5)
				lui	a5,%hi(__stack_chk_guard)
				ld	a5,%lo(__stack_chk_guard)(a5)
				bne	a4,a5,.L751
				li	t1,4096
				add	sp,sp,t1
				ld	ra,1208(sp)
				ld	s0,1200(sp)
				ld	s1,1192(sp)
				ld	s2,1184(sp)
				ld	s3,1176(sp)
				ld	s4,1168(sp)
				ld	s5,1160(sp)
				add	sp,sp,1216
				jr	ra
		.L747:
		.LVL466:
 2721    list = 15 %IF Impcom_Flags&x'1000' # 0
				li	s0,-106496
				add	a1,s0,-536
				li	a2,255
				li	s5,106496
				add	a5,s5,800
				add	a4,sp,64
				add	a5,a5,a4
				add	a1,a5,a1
				lui	a0,%hi(IMPCOM+280)
				addi	a0,a0,%lo(IMPCOM+280)
				call	_imp_strncpy
		.LVL1236:
 2722
				lui	a5,%hi(LIST.6135)
				li	a4,15
				sw	a4,%lo(LIST.6135)(a5)
		.LDL50:
		.LBB747:
 2723    open output(2, "LISTING");
				lui	s2,%hi(.LANCHOR4)
				addi	s2,s2,%lo(.LANCHOR4)
				add	s1,sp,1096
				li	a2,256
				add	a1,s2,384
				mv	a0,s1
				call	memcpy
		.LVL1237:
				add	s4,sp,584
				li	a2,256
				mv	a1,s1
				mv	a0,s4
				call	memcpy
		.LVL1238:
		.LBE747:
				add	s3,sp,64
				li	a2,256
				mv	a1,s4
				mv	a0,s3
				call	memcpy
		.LVL1239:
				add	s0,s0,-800
				add	a5,s5,800
				add	a4,sp,64
				add	a5,a5,a4
				add	s0,a5,s0
				mv	a1,s0
				li	a0,2
				call	OPENOUTPUT
		.LVL1240:
		.LBB748:
 2724    open input(2, "prims-null.inc");
				li	a2,256
				add	a1,s2,640
				mv	a0,s1
				call	memcpy
		.LVL1241:
				add	s2,sp,840
				li	a2,256
				mv	a1,s1
				mv	a0,s2
				call	memcpy
		.LVL1242:
		.LBE748:
				li	a2,256
				mv	a1,s2
				mv	a0,s3
				call	memcpy
		.LVL1243:
				mv	a1,s0
				li	a0,2
				call	OPENINPUT
		.LVL1244:
		.LBB749:
		.LBB750:
				li	s1,2
				lui	a5,%hi(_imp_InStream)
				sw	s1,%lo(_imp_InStream)(a5)
				lui	a5,%hi(_imp_infile+584)
				ld	a4,%lo(_imp_infile+584)(a5)
				lui	a5,%hi(_imp_InFile)
				sd	a4,%lo(_imp_InFile)(a5)
				lui	s0,%hi(.LANCHOR1)
				addi	s0,s0,%lo(.LANCHOR1)
				add	a0,s0,1992
				call	check_instream
		.LVL1245:
		.LBE750:
		.LBE749:
		.LBB751:
		.LBB752:
				lui	a5,%hi(_imp_OutStream)
				sw	s1,%lo(_imp_OutStream)(a5)
				lui	a5,%hi(_imp_outfile+584)
				ld	a4,%lo(_imp_outfile+584)(a5)
				lui	a5,%hi(_imp_OutFile)
				sd	a4,%lo(_imp_OutFile)(a5)
				add	a0,s0,336
				call	check_outstream
		.LVL1246:
		.LBE752:
		.LBE751:
 2725    select input(2);  selectoutput(listing)
 2726    tag(max tag) = 0;                       !%BEGIN defn
				li	a5,12288
				add	a4,sp,864
				add	a5,a4,a5
				sw	zero,1980(a5)
				sw	zero,1984(a5)
				sw	zero,1988(a5)
				sw	zero,1992(a5)
 2727    tag(0) = 0;  tag(0)_flags = 7;          !%BEGIN tag!
				li	a4,4096
				add	a5,a4,-1828
				add	a3,sp,64
				add	a5,a5,a3
				sw	zero,0(a5)
				add	a5,a4,-1824
				add	a5,a5,a3
				sw	zero,0(a5)
				add	a5,a4,-1820
				add	a5,a5,a3
				sw	zero,0(a5)
				add	a5,a4,-1816
				add	a5,a5,a3
				sw	zero,0(a5)
 2728    Hash(x) = 0 %FOR x = 0, 1, max names
				li	a5,7
				add	a4,a4,-1820
				add	a4,a4,a3
				sh	a5,0(a4)
				li	a4,0
 2729    printstring("         Edinburgh IMP77 Compiler - Version ")
				li	s0,-106496
				add	s1,sp,1096
				li	a2,256
				lui	a1,%hi(.LANCHOR4+896)
				addi	a1,a1,%lo(.LANCHOR4+896)
				mv	a0,s1
				call	memcpy
		.LVL1247:
				add	s2,sp,1352
				li	a2,256
				mv	a1,s1
				mv	a0,s2
				call	memcpy
		.LVL1248:
				add	s1,sp,1608
				li	a2,256
				mv	a1,s2
				mv	a0,s1
				call	memcpy
		.LVL1249:
		.LBE753:
		.LBB754:
		.LBB755:
				add	s2,sp,64
				li	a2,256
				mv	a1,s1
				mv	a0,s2
				call	memcpy
		.LVL1250:
				add	s1,s0,-800
				li	s3,106496
				add	a5,s3,800
				add	a4,sp,64
				add	a5,a5,a4
				add	s1,a5,s1
				mv	a0,s1
				call	_imp_printstring
		.LVL1251:
				sb	zero,1864(sp)
		.LBE755:
		.LBE754:
		.LBB756:
		.LBB757:
				li	a2,256
				add	a1,sp,1864
				mv	a0,s2
				call	memcpy
		.LVL1252:
				mv	a0,s1
				call	_imp_printstring
		.LVL1253:
		.LBE757:
		.LBE756:
		.LBB758:
		.LBB759:
				li	a0,2
				call	_imp_newlines
		.LVL1254:
		.LBE759:
		.LBE758:
 2730    printstring(version);  newlines(2)
 2731    op('l', 0)
				addw	a3,a3,-2048
				bnez	a3,.L941
		.LDL52:
				lui	a5,%hi(X.6055)
				li	a4,2047
				sw	a4,%lo(X.6055)(a5)
		.LBB753:
				add	s0,s0,1256
				add	a5,s3,800
				add	a4,sp,64
				add	a5,a5,a4
				add	s0,a5,s0
				mv	t2,s0
				li	a1,0
				li	a0,108
				call	OP.6258
		.LVL1255:
 2732    compile block(0, 0, max dict, 0, 0)
				mv	t2,s0
				li	a4,0
				li	a3,0
				li	a2,4096
				add	a2,a2,1904
				li	a1,0
				li	a0,0
				call	COMPILEBLOCK.6268
		.LVL1256:
				lui	a4,%hi(BP.6142)
				lw	a5,%lo(BP.6142)(a4)
				addw	a3,a5,1
				sw	a3,%lo(BP.6142)(a4)
 2733    bp=bp+1 %AND buff(bp)=nl                {for bouncing off}
				li	a5,-106496
				add	a3,s5,800
				add	a2,sp,64
				add	a3,a3,a2
				add	a5,a3,a5
				sd	a5,56(sp)
				li	a5,12288
				add	a5,a5,-1496
		.L941:
				add	a3,a4,a5
				sll	a3,a3,1
				ld	a2,56(sp)
				add	a3,a2,a3
				sh	zero,1260(a3)
		.LDL51:
				addw	a3,a4,1
				sext.w	a4,a3
 2734    flush buffer
				add	a4,sp,864
				add	a5,a4,a5
				li	a4,106496
				add	a5,a4,a5
				li	a4,10
				sb	a4,-530(a5)
				mv	t2,s0
				call	FLUSHBUFFER.6152
		.LVL1257:
 2735    Impcom_Statements = stats
				lui	a5,%hi(STATS.6071)
				lw	a4,%lo(STATS.6071)(a5)
				lui	a5,%hi(IMPCOM)
				sw	a4,%lo(IMPCOM)(a5)
		.LDL53:
		.LVL1258:
		.LBB760:
		.LBB761:
				li	a0,0
				call	exit
		.LVL1259:
		.L939:
		.LBE761:
		.LBE760:
 2736    Impcom_Statements = -faulty %IF faulty # 0
 2737 %ENDOFPROGRAM
 2310 Statements compiled