Edinburgh IMP77 Compiler - Version 8.4
    1 %external %routine %spec close output
				.machine ppc
				.section	".text"
		.Ltext0:
				.align 2
		OP.7241:
		.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
		.LVL980:
				mr 12,1
				lis 0,0xfffe
				ori 0,0,0x5cc0
				stwux 1,1,0
				mflr 0
				stw 0,4(12)
				stw 29,-12(12)
				stw 30,-8(12)
				stw 31,-4(12)
				lis 9,0x1
				ori 9,9,0xa31c
				addi 10,1,16
				add 9,9,10
				lwz 10,-28680(2)
				stw 10,0(9)
				li 10,0
				lis 9,0x1
				ori 9,9,0xa318
				addi 10,1,16
				add 9,9,10
				lis 10,0x1
				ori 10,10,0xa330
				addi 8,1,16
				add 10,10,8
				stw 10,0(9)
   24    %CONSTSTRING(4) version = "8.4"
				bl _imp_initialise
		.LVL981:
   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
				lis 29,.LANCHOR2@ha
				la 30,.LANCHOR2@l(29)
				lwz 7,6232(30)
				lwz 8,6236(30)
				lwz 10,6240(30)
				lwz 9,6244(30)
				li 6,0
				ori 6,6,0xa320
				addi 5,1,16
				add 31,5,6
				stw 7,-794(31)
				stw 8,-790(31)
				stw 10,-786(31)
				stw 9,-782(31)
  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,
				lwz 7,6248(30)
				lwz 8,6252(30)
				lwz 10,6256(30)
				lwz 9,6260(30)
				stw 7,-860(31)
				stw 8,-856(31)
				stw 10,-852(31)
				stw 9,-848(31)
  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 ***
				lis 5,0x1
				li 4,0
				addi 3,31,-778
				bl memset
		.LVL982:
				li 4,1
				stb 4,-778(31)
				lis 9,0x5a00
				stw 9,-777(31)
				li 10,4
				stb 10,-522(31)
				lwz 8,6264(30)
				lwz 9,6268(30)
				stw 8,-521(31)
				stw 9,-517(31)
				li 8,7
				stb 8,-266(31)
				lis 9,.LC92@ha
				la 9,.LC92@l(9)
				lwz 6,0(9)
				lwz 7,4(9)
				stw 6,-265(31)
				stw 7,-261(31)
				li 3,8
				stb 3,-10(31)
				lwz 6,6272(30)
				lwz 7,6276(30)
				stw 6,-9(31)
				stw 7,-5(31)
				stb 10,246(31)
				lwz 6,6284(30)
				lwz 7,6288(30)
				stw 6,247(31)
				stw 7,251(31)
				stb 8,502(31)
				lis 9,.LC95@ha
				la 9,.LC95@l(9)
				lwz 6,0(9)
				lwz 7,4(9)
				stw 6,503(31)
				stw 7,507(31)
				stb 3,758(31)
				lwz 6,6292(30)
				lwz 7,6296(30)
				stw 6,759(31)
				stw 7,763(31)
				stb 10,1014(31)
				lwz 6,6304(30)
				lwz 7,6308(30)
				stw 6,1015(31)
				stw 7,1019(31)
				stb 3,1270(31)
				lwz 6,6312(30)
				lwz 7,6316(30)
				stw 6,1271(31)
				stw 7,1275(31)
				stb 8,1526(31)
				lis 9,.LC99@ha
				la 9,.LC99@l(9)
				lwz 6,0(9)
				lwz 7,4(9)
				stw 6,1527(31)
				stw 7,1531(31)
				li 9,5
				stb 9,1782(31)
				lwz 6,6324(30)
				lwz 7,6328(30)
				stw 6,1783(31)
				stw 7,1787(31)
				stb 10,2038(31)
				lwz 6,6332(30)
				lwz 7,6336(30)
				stw 6,2039(31)
				stw 7,2043(31)
				stb 3,2294(31)
				lwz 6,6340(30)
				lwz 7,6344(30)
				stw 6,2295(31)
				stw 7,2299(31)
				li 6,6
				stb 6,3830(31)
				lwz 11,6352(30)
				lwz 12,6356(30)
				stw 11,3831(31)
				stw 12,3835(31)
				stb 9,4086(31)
				lwz 11,6360(30)
				lwz 12,6364(30)
				stw 11,4087(31)
				stw 12,4091(31)
				stb 4,4342(31)
				lis 7,0x5400
				stw 7,4343(31)
				stb 9,4598(31)
				lwz 11,6368(30)
				lwz 12,6372(30)
				stw 11,4599(31)
				stw 12,4603(31)
				stb 8,4854(31)
				lis 7,.LC106@ha
				la 7,.LC106@l(7)
				lwz 11,0(7)
				lwz 12,4(7)
				stw 11,4855(31)
				stw 12,4859(31)
				li 5,2
				stb 5,5110(31)
				lis 7,0x4c42
				stw 7,5111(31)
				stb 9,5366(31)
				lwz 11,6376(30)
				lwz 12,6380(30)
				stw 11,5367(31)
				stw 12,5371(31)
				stb 5,5622(31)
				lis 7,0x5242
				stw 7,5623(31)
				li 7,3
				stb 7,5878(31)
				lis 11,0x5355
				ori 11,11,0x4200
				stw 11,5879(31)
				stb 6,6134(31)
				lwz 11,6384(30)
				lwz 12,6388(30)
				stw 11,6135(31)
				stw 12,6139(31)
				stb 9,6390(31)
				lwz 11,6392(30)
				lwz 12,6396(30)
				stw 11,6391(31)
				stw 12,6395(31)
				stb 9,6646(31)
				lwz 11,6400(30)
				lwz 12,6404(30)
				stw 11,6647(31)
				stw 12,6651(31)
				stb 10,6902(31)
				lwz 11,6408(30)
				lwz 12,6412(30)
				stw 11,6903(31)
				stw 12,6907(31)
				stb 9,7158(31)
				lwz 11,6416(30)
				lwz 12,6420(30)
				stw 11,7159(31)
				stw 12,7163(31)
				stb 9,7414(31)
				lwz 11,6424(30)
				lwz 12,6428(30)
				stw 11,7415(31)
				stw 12,7419(31)
				stb 6,7670(31)
				lwz 11,6432(30)
				lwz 12,6436(30)
				stw 11,7671(31)
				stw 12,7675(31)
				stb 7,7926(31)
				lis 11,0x4f57
				ori 11,11,0x4e00
				stw 11,7927(31)
				stb 3,8182(31)
				lwz 11,6440(30)
				lwz 12,6444(30)
				stw 11,8183(31)
				stw 12,8187(31)
				stb 6,8438(31)
				lwz 11,6452(30)
				lwz 12,6456(30)
				stw 11,8439(31)
				stw 12,8443(31)
				stb 6,8694(31)
				lwz 11,6460(30)
				lwz 12,6464(30)
				stw 11,8695(31)
				stw 12,8699(31)
				stb 6,8950(31)
				lwz 11,6468(30)
				lwz 12,6472(30)
				stw 11,8951(31)
				stw 12,8955(31)
				stb 10,9206(31)
				lwz 11,6476(30)
				lwz 12,6480(30)
				stw 11,9207(31)
				stw 12,9211(31)
				stb 9,9462(31)
				lwz 11,6484(30)
				lwz 12,6488(30)
				stw 11,9463(31)
				stw 12,9467(31)
				stb 9,9718(31)
				lwz 11,6492(30)
				lwz 12,6496(30)
				stw 11,9719(31)
				stw 12,9723(31)
				stb 7,9974(31)
				lis 11,0x4f50
				ori 11,11,0x3100
				stw 11,9975(31)
				stb 7,10230(31)
				lis 11,0x4f50
				ori 11,11,0x3200
				stw 11,10231(31)
				stb 7,10486(31)
				lis 11,0x4f50
				ori 11,11,0x3300
				stw 11,10487(31)
				stb 10,10742(31)
				lwz 11,6500(30)
				lwz 12,6504(30)
				stw 11,10743(31)
				stw 12,10747(31)
				stb 7,10998(31)
				lis 11,0x554f
				ori 11,11,0x5000
				stw 11,10999(31)
				stb 7,11254(31)
				lis 11,0x4d4f
				ori 11,11,0x4400
				stw 11,11255(31)
				stb 7,11510(31)
				lis 11,0x444f
				ori 11,11,0x5400
				stw 11,11511(31)
				stb 10,11766(31)
				lwz 11,6508(30)
				lwz 12,6512(30)
				stw 11,11767(31)
				stw 12,11771(31)
				stb 9,12022(31)
				lwz 11,6516(30)
				lwz 12,6520(30)
				stw 11,12023(31)
				stw 12,12027(31)
				stb 5,12278(31)
				lis 11,0x4551
				stw 11,12279(31)
				stb 10,12534(31)
				lwz 11,6524(30)
				lwz 12,6528(30)
				stw 11,12535(31)
				stw 12,12539(31)
				stb 7,12790(31)
				lis 11,0x4a41
				ori 11,11,0x4d00
				stw 11,12791(31)
				stb 10,13046(31)
				lwz 11,6532(30)
				lwz 12,6536(30)
				stw 11,13047(31)
				stw 12,13051(31)
				stb 9,13302(31)
				lwz 11,6540(30)
				lwz 12,6544(30)
				stw 11,13303(31)
				stw 12,13307(31)
				stb 7,13558(31)
				lis 11,0x414e
				ori 11,11,0x4400
				stw 11,13559(31)
				stb 5,13814(31)
				lis 11,0x4f52
				stw 11,13815(31)
				stb 7,14070(31)
				lis 11,0x4e4f
				ori 11,11,0x5400
				stw 11,14071(31)
				stb 9,14326(31)
				lwz 11,6548(30)
				lwz 12,6552(30)
				stw 11,14327(31)
				stw 12,14331(31)
				stb 9,14582(31)
				lwz 11,6556(30)
				lwz 12,6560(30)
				stw 11,14583(31)
				stw 12,14587(31)
				stb 7,14838(31)
				lis 11,0x464f
				ori 11,11,0x5200
				stw 11,14839(31)
				stb 9,15094(31)
				lwz 11,6564(30)
				lwz 12,6568(30)
				stw 11,15095(31)
				stw 12,15099(31)
				stb 10,15350(31)
				lwz 11,6572(30)
				lwz 12,6576(30)
				stw 11,15351(31)
				stw 12,15355(31)
				stb 5,15606(31)
				lis 11,0x4f4e
				stw 11,15607(31)
				stb 6,15862(31)
				lwz 11,6580(30)
				lwz 12,6584(30)
				stw 11,15863(31)
				stw 12,15867(31)
				stb 10,16118(31)
				lwz 11,6588(30)
				lwz 12,6592(30)
				stw 11,16119(31)
				stw 12,16123(31)
				stb 9,16374(31)
				lwz 11,6596(30)
				lwz 12,6600(30)
				stw 11,16375(31)
				stw 12,16379(31)
				stb 10,16630(31)
				lwz 11,6604(30)
				lwz 12,6608(30)
				stw 11,16631(31)
				stw 12,16635(31)
				stb 6,16886(31)
				lwz 11,6612(30)
				lwz 12,6616(30)
				stw 11,16887(31)
				stw 12,16891(31)
				stb 9,17142(31)
				lwz 11,6620(30)
				lwz 12,6624(30)
				stw 11,17143(31)
				stw 12,17147(31)
				stb 9,17398(31)
				lwz 11,6628(30)
				lwz 12,6632(30)
				stw 11,17399(31)
				stw 12,17403(31)
				stb 6,17654(31)
				lwz 11,6636(30)
				lwz 12,6640(30)
				stw 11,17655(31)
				stw 12,17659(31)
				stb 8,17910(31)
				lis 11,.LC140@ha
				la 11,.LC140@l(11)
				lwz 12,4(11)
				lwz 11,0(11)
				stw 11,17911(31)
				stw 12,17915(31)
				stb 9,18166(31)
				lwz 11,6644(30)
				lwz 12,6648(30)
				stw 11,18167(31)
				stw 12,18171(31)
				stb 7,18422(31)
				lis 11,0x454e
				ori 11,11,0x4400
				stw 11,18423(31)
				stb 8,18678(31)
				lis 11,.LC142@ha
				la 11,.LC142@l(11)
				lwz 12,4(11)
				lwz 11,0(11)
				stw 11,18679(31)
				stw 12,18683(31)
				stb 8,18934(31)
				lis 11,.LC143@ha
				la 11,.LC143@l(11)
				lwz 12,4(11)
				lwz 11,0(11)
				stw 11,18935(31)
				stw 12,18939(31)
				stb 8,19190(31)
				lis 11,.LC144@ha
				la 11,.LC144@l(11)
				lwz 12,4(11)
				lwz 11,0(11)
				stw 11,19191(31)
				stw 12,19195(31)
				stb 8,19446(31)
				lis 11,.LC145@ha
				la 11,.LC145@l(11)
				lwz 12,4(11)
				lwz 11,0(11)
				stw 11,19447(31)
				stw 12,19451(31)
				stb 10,19702(31)
				lwz 11,6652(30)
				lwz 12,6656(30)
				stw 11,19703(31)
				stw 12,19707(31)
				stb 8,19958(31)
				lis 11,.LC147@ha
				la 11,.LC147@l(11)
				lwz 12,4(11)
				lwz 11,0(11)
				stw 11,19959(31)
				stw 12,19963(31)
				stb 10,20214(31)
				lwz 11,6660(30)
				lwz 12,6664(30)
				stw 11,20215(31)
				stw 12,20219(31)
				stb 10,20470(31)
				lwz 11,6668(30)
				lwz 12,6672(30)
				stw 11,20471(31)
				stw 12,20475(31)
				stb 8,20726(31)
				lis 11,.LC150@ha
				la 11,.LC150@l(11)
				lwz 12,4(11)
				lwz 11,0(11)
				stw 11,20727(31)
				stw 12,20731(31)
				stb 8,20982(31)
				lis 11,.LC151@ha
				la 11,.LC151@l(11)
				lwz 12,4(11)
				lwz 11,0(11)
				stw 11,20983(31)
				stw 12,20987(31)
				stb 8,21238(31)
				lis 11,.LC152@ha
				la 11,.LC152@l(11)
				lwz 12,4(11)
				lwz 11,0(11)
				stw 11,21239(31)
				stw 12,21243(31)
				stb 10,21494(31)
				lwz 11,6676(30)
				lwz 12,6680(30)
				stw 11,21495(31)
				stw 12,21499(31)
				stb 9,21750(31)
				lwz 11,6684(30)
				lwz 12,6688(30)
				stw 11,21751(31)
				stw 12,21755(31)
				stb 9,22006(31)
				lwz 11,6692(30)
				lwz 12,6696(30)
				stw 11,22007(31)
				stw 12,22011(31)
				stb 9,22262(31)
				lwz 11,6700(30)
				lwz 12,6704(30)
				stw 11,22263(31)
				stw 12,22267(31)
				stb 4,22518(31)
				lis 11,0x5600
				stw 11,22519(31)
				stb 4,22774(31)
				lis 11,0x4e00
				stw 11,22775(31)
				stb 9,23030(31)
				lwz 11,6708(30)
				lwz 12,6712(30)
				stw 11,23031(31)
				stw 12,23035(31)
				stb 5,23286(31)
				lis 11,0x464d
				stw 11,23287(31)
				stb 4,23798(31)
				lis 11,0x5200
				stw 11,23799(31)
				stb 4,24054(31)
				lis 11,0x4600
				stw 11,24055(31)
				stb 4,24310(31)
				lis 11,0x4d00
				stw 11,24311(31)
				stb 4,24566(31)
				lis 11,0x5000
				stw 11,24567(31)
				stb 5,24822(31)
				lis 11,0x5250
				stw 11,24823(31)
				stb 5,25078(31)
				lis 11,0x4650
				stw 11,25079(31)
				stb 5,25334(31)
				lis 11,0x4d50
				stw 11,25335(31)
				stb 5,25590(31)
				lis 11,0x5050
				stw 11,25591(31)
				stb 4,25846(31)
				lis 11,0x4c00
				stw 11,25847(31)
				stb 4,26102(31)
				lis 11,0x5300
				stw 11,26103(31)
				stb 4,26358(31)
				lis 4,0x4100
				stw 4,26359(31)
				stb 5,26614(31)
				lis 4,0x414e
				stw 4,26615(31)
				stb 5,26870(31)
				lis 5,0x4e41
				stw 5,26871(31)
				stb 7,27126(31)
				lis 7,0x4e41
				ori 7,7,0x4e00
				stw 7,27127(31)
				stb 8,29942(31)
				lis 8,.LC158@ha
				la 8,.LC158@l(8)
				lwz 7,0(8)
				lwz 8,4(8)
				stw 7,29943(31)
				stw 8,29947(31)
				stb 6,30198(31)
				lwz 7,6716(30)
				lwz 8,6720(30)
				stw 7,30199(31)
				stw 8,30203(31)
				stb 9,30454(31)
				lwz 7,6724(30)
				lwz 8,6728(30)
				stw 7,30455(31)
				stw 8,30459(31)
				stb 3,30966(31)
				lwz 7,6732(30)
				lwz 8,6736(30)
				stw 7,30967(31)
				stw 8,30971(31)
				stb 10,31222(31)
				lwz 7,6744(30)
				lwz 8,6748(30)
				stw 7,31223(31)
				stw 8,31227(31)
				stb 10,31478(31)
				lwz 10,6752(30)
				lwz 11,6756(30)
				stw 10,31479(31)
				stw 11,31483(31)
				stb 9,31734(31)
				lwz 10,6760(30)
				lwz 11,6764(30)
				stw 10,31735(31)
				stw 11,31739(31)
				stb 9,31990(31)
				lwz 10,6768(30)
				lwz 11,6772(30)
				stw 10,31991(31)
				stw 11,31995(31)
				stb 6,32502(31)
				lwz 10,6776(30)
				lwz 11,6780(30)
				stw 10,32503(31)
				stw 11,32507(31)
				stb 6,32758(31)
				lwz 10,6784(30)
				lwz 11,6788(30)
				stw 10,32759(31)
				stw 11,32763(31)
				lis 10,0x1
				ori 10,10,0x2416
				addi 8,1,16
				add 10,10,8
				stb 6,0(10)
				lis 10,0x1
				ori 10,10,0x2417
				add 10,10,8
				lwz 7,6792(30)
				lwz 8,6796(30)
				stw 7,0(10)
				stw 8,4(10)
				lis 10,0x1
				ori 10,10,0x2516
				addi 8,1,16
				add 10,10,8
				stb 9,0(10)
				lis 9,0x1
				ori 9,9,0x2517
				add 9,9,8
				lwz 10,6800(30)
				lwz 11,6804(30)
				stw 10,0(9)
				stw 11,4(9)
				li 9,4
				lis 10,0x1
				ori 10,10,0x2616
				add 10,10,8
				stb 9,0(10)
				lis 10,0x1
				ori 10,10,0x2617
				add 10,10,8
				lwz 7,6808(30)
				lwz 8,6812(30)
				stw 7,0(10)
				stw 8,4(10)
				lis 10,0x1
				ori 10,10,0x2716
				addi 8,1,16
				add 10,10,8
				stb 9,0(10)
				lis 10,0x1
				ori 10,10,0x2717
				add 10,10,8
				lwz 7,6816(30)
				lwz 8,6820(30)
				stw 7,0(10)
				stw 8,4(10)
				lis 10,0x1
				ori 10,10,0x2816
				addi 8,1,16
				add 10,10,8
				stb 9,0(10)
				lis 10,0x1
				ori 10,10,0x2817
				add 10,10,8
				lwz 7,6824(30)
				lwz 8,6828(30)
				stw 7,0(10)
				stw 8,4(10)
				lis 10,0x1
				ori 10,10,0x2916
				addi 8,1,16
				add 10,10,8
				stb 9,0(10)
				lis 10,0x1
				ori 10,10,0x2917
				add 10,10,8
				lwz 7,6832(30)
				lwz 8,6836(30)
				stw 7,0(10)
				stw 8,4(10)
				lis 10,0x1
				ori 10,10,0x2a16
				addi 8,1,16
				add 10,10,8
				stb 9,0(10)
				lis 10,0x1
				ori 10,10,0x2a17
				add 10,10,8
				lwz 7,6840(30)
				lwz 8,6844(30)
				stw 7,0(10)
				stw 8,4(10)
				lis 10,0x1
				ori 10,10,0x2b16
				addi 8,1,16
				add 10,10,8
				stb 9,0(10)
				lis 10,0x1
				ori 10,10,0x2b17
				add 10,10,8
				lwz 7,6848(30)
				lwz 8,6852(30)
				stw 7,0(10)
				stw 8,4(10)
				lis 10,0x1
				ori 10,10,0x2c16
				addi 8,1,16
				add 10,10,8
				stb 9,0(10)
				lis 10,0x1
				ori 10,10,0x2c17
				add 10,10,8
				lwz 7,6856(30)
				lwz 8,6860(30)
				stw 7,0(10)
				stw 8,4(10)
				li 7,3
				lis 10,0x1
				ori 10,10,0x2d16
				addi 8,1,16
				add 10,10,8
				stb 7,0(10)
				lis 10,0x4152
				ori 10,10,0x4200
				lis 8,0x1
				ori 8,8,0x2d17
				addi 6,1,16
				add 8,8,6
				stw 10,0(8)
				li 10,5
				lis 8,0x1
				ori 8,8,0x2e16
				add 8,8,6
				stb 10,0(8)
				lis 8,0x1
				ori 8,8,0x2e17
				add 8,8,6
				lwz 5,6864(30)
				lwz 6,6868(30)
				stw 5,0(8)
				stw 6,4(8)
				lis 8,0x1
				ori 8,8,0x2f16
				addi 6,1,16
				add 8,8,6
				stb 7,0(8)
				lis 8,0x4f52
				ori 8,8,0x4200
				lis 6,0x1
				ori 6,6,0x2f17
				addi 5,1,16
				add 6,6,5
				stw 8,0(6)
				lis 8,0x1
				ori 8,8,0x3016
				add 8,8,5
				stb 7,0(8)
				lis 8,0x5052
				ori 8,8,0x4200
				lis 6,0x1
				ori 6,6,0x3017
				add 6,6,5
				stw 8,0(6)
				lis 8,0x1
				ori 8,8,0x3116
				add 8,8,5
				stb 7,0(8)
				lis 8,0x4352
				ori 8,8,0x4200
				lis 6,0x1
				ori 6,6,0x3117
				add 6,6,5
				stw 8,0(6)
				lis 8,0x1
				ori 8,8,0x3216
				add 8,8,5
				stb 9,0(8)
				lis 8,0x1
				ori 8,8,0x3217
				add 8,8,5
				lwz 5,6872(30)
				lwz 6,6876(30)
				stw 5,0(8)
				stw 6,4(8)
				lis 8,0x1
				ori 8,8,0x3316
				addi 6,1,16
				add 8,8,6
				stb 10,0(8)
				lis 8,0x1
				ori 8,8,0x3317
				add 8,8,6
				lwz 5,6880(30)
				lwz 6,6884(30)
				stw 5,0(8)
				stw 6,4(8)
				lis 8,0x1
				ori 8,8,0x3416
				addi 6,1,16
				add 8,8,6
				stb 10,0(8)
				lis 8,0x1
				ori 8,8,0x3417
				add 8,8,6
				lwz 5,6888(30)
				lwz 6,6892(30)
				stw 5,0(8)
				stw 6,4(8)
				lis 8,0x1
				ori 8,8,0x3516
				addi 6,1,16
				add 8,8,6
				stb 7,0(8)
				lis 8,0x4c41
				ori 8,8,0x4200
				lis 6,0x1
				ori 6,6,0x3517
				addi 5,1,16
				add 6,6,5
				stw 8,0(6)
				lis 8,0x1
				ori 8,8,0x3616
				add 8,8,5
				stb 9,0(8)
				lis 8,0x1
				ori 8,8,0x3617
				add 8,8,5
				lwz 5,6896(30)
				lwz 6,6900(30)
				stw 5,0(8)
				stw 6,4(8)
				lis 8,0x1
				ori 8,8,0x3716
				addi 6,1,16
				add 8,8,6
				stb 9,0(8)
				lis 8,0x1
				ori 8,8,0x3717
				add 8,8,6
				lwz 5,6904(30)
				lwz 6,6908(30)
				stw 5,0(8)
				stw 6,4(8)
				lis 8,0x1
				ori 8,8,0x3816
				addi 6,1,16
				add 8,8,6
				stb 10,0(8)
				lis 8,0x1
				ori 8,8,0x3817
				add 8,8,6
				lwz 5,6912(30)
				lwz 6,6916(30)
				stw 5,0(8)
				stw 6,4(8)
				lis 8,0x1
				ori 8,8,0x3916
				addi 6,1,16
				add 8,8,6
				stb 9,0(8)
				lis 8,0x1
				ori 8,8,0x3917
				add 8,8,6
				lwz 5,6920(30)
				lwz 6,6924(30)
				stw 5,0(8)
				stw 6,4(8)
				lis 8,0x1
				ori 8,8,0x3a16
				addi 6,1,16
				add 8,8,6
				stb 10,0(8)
				lis 8,0x1
				ori 8,8,0x3a17
				add 8,8,6
				lwz 5,6928(30)
				lwz 6,6932(30)
				stw 5,0(8)
				stw 6,4(8)
				li 8,6
				lis 6,0x1
				ori 6,6,0x3b16
				addi 5,1,16
				add 6,6,5
				stb 8,0(6)
				lis 6,0x1
				ori 6,6,0x3b17
				add 6,6,5
				lwz 4,6936(30)
				lwz 5,6940(30)
				stw 4,0(6)
				stw 5,4(6)
				lis 6,0x1
				ori 6,6,0x3c16
				addi 5,1,16
				add 6,6,5
				stb 9,0(6)
				lis 6,0x1
				ori 6,6,0x3c17
				add 6,6,5
				lwz 4,6944(30)
				lwz 5,6948(30)
				stw 4,0(6)
				stw 5,4(6)
				lis 6,0x1
				ori 6,6,0x3d16
				addi 5,1,16
				add 6,6,5
				stb 10,0(6)
				lis 6,0x1
				ori 6,6,0x3d17
				add 6,6,5
				lwz 4,6952(30)
				lwz 5,6956(30)
				stw 4,0(6)
				stw 5,4(6)
				lis 6,0x1
				ori 6,6,0x3e16
				addi 5,1,16
				add 6,6,5
				stb 9,0(6)
				lis 6,0x1
				ori 6,6,0x3e17
				add 6,6,5
				lwz 4,6960(30)
				lwz 5,6964(30)
				stw 4,0(6)
				stw 5,4(6)
				lis 6,0x1
				ori 6,6,0x3f16
				addi 5,1,16
				add 6,6,5
				stb 9,0(6)
				lis 6,0x1
				ori 6,6,0x3f17
				add 6,6,5
				lwz 4,6968(30)
				lwz 5,6972(30)
				stw 4,0(6)
				stw 5,4(6)
				lis 6,0x1
				ori 6,6,0x4016
				addi 5,1,16
				add 6,6,5
				stb 9,0(6)
				lis 6,0x1
				ori 6,6,0x4017
				add 6,6,5
				lwz 4,6976(30)
				lwz 5,6980(30)
				stw 4,0(6)
				stw 5,4(6)
				lis 6,0x1
				ori 6,6,0x4116
				addi 5,1,16
				add 6,6,5
				stb 9,0(6)
				lis 6,0x1
				ori 6,6,0x4117
				add 6,6,5
				lwz 4,6984(30)
				lwz 5,6988(30)
				stw 4,0(6)
				stw 5,4(6)
				lis 6,0x1
				ori 6,6,0x4216
				addi 5,1,16
				add 6,6,5
				stb 10,0(6)
				lis 6,0x1
				ori 6,6,0x4217
				add 6,6,5
				lwz 4,6992(30)
				lwz 5,6996(30)
				stw 4,0(6)
				stw 5,4(6)
				lis 6,0x1
				ori 6,6,0x4316
				addi 5,1,16
				add 6,6,5
				stb 10,0(6)
				lis 6,0x1
				ori 6,6,0x4317
				add 6,6,5
				lwz 4,7000(30)
				lwz 5,7004(30)
				stw 4,0(6)
				stw 5,4(6)
				lis 6,0x1
				ori 6,6,0x4416
				addi 5,1,16
				add 6,6,5
				stb 8,0(6)
				lis 6,0x1
				ori 6,6,0x4417
				add 6,6,5
				lwz 4,7008(30)
				lwz 5,7012(30)
				stw 4,0(6)
				stw 5,4(6)
				lis 6,0x1
				ori 6,6,0x4516
				addi 5,1,16
				add 6,6,5
				stb 9,0(6)
				lis 6,0x1
				ori 6,6,0x4517
				add 6,6,5
				lwz 4,7016(30)
				lwz 5,7020(30)
				stw 4,0(6)
				stw 5,4(6)
				lis 6,0x1
				ori 6,6,0x4616
				addi 5,1,16
				add 6,6,5
				stb 8,0(6)
				lis 6,0x1
				ori 6,6,0x4617
				add 6,6,5
				lwz 4,7024(30)
				lwz 5,7028(30)
				stw 4,0(6)
				stw 5,4(6)
				lis 6,0x1
				ori 6,6,0x4716
				addi 5,1,16
				add 6,6,5
				stb 8,0(6)
				lis 6,0x1
				ori 6,6,0x4717
				add 6,6,5
				lwz 4,7032(30)
				lwz 5,7036(30)
				stw 4,0(6)
				stw 5,4(6)
				lis 6,0x1
				ori 6,6,0x4816
				addi 5,1,16
				add 6,6,5
				stb 9,0(6)
				lis 6,0x1
				ori 6,6,0x4817
				add 6,6,5
				lwz 4,7040(30)
				lwz 5,7044(30)
				stw 4,0(6)
				stw 5,4(6)
				lis 6,0x1
				ori 6,6,0x4916
				addi 5,1,16
				add 6,6,5
				stb 10,0(6)
				lis 6,0x1
				ori 6,6,0x4917
				add 6,6,5
				lwz 4,7048(30)
				lwz 5,7052(30)
				stw 4,0(6)
				stw 5,4(6)
				li 6,7
				lis 5,0x1
				ori 5,5,0x4a16
				addi 4,1,16
				add 5,5,4
				stb 6,0(5)
				lis 5,.LC201@ha
				la 5,.LC201@l(5)
				lis 4,0x1
				ori 4,4,0x4a17
				addi 3,1,16
				add 4,4,3
				lwz 11,0(5)
				lwz 12,4(5)
				stw 11,0(4)
				stw 12,4(4)
				lis 5,0x1
				ori 5,5,0x4b16
				add 5,5,3
				stb 9,0(5)
				lis 5,0x1
				ori 5,5,0x4b17
				add 5,5,3
				lwz 3,7056(30)
				lwz 4,7060(30)
				stw 3,0(5)
				stw 4,4(5)
				lis 5,0x1
				ori 5,5,0x4c16
				addi 4,1,16
				add 5,5,4
				stb 9,0(5)
				lis 5,0x1
				ori 5,5,0x4c17
				add 5,5,4
				lwz 3,7064(30)
				lwz 4,7068(30)
				stw 3,0(5)
				stw 4,4(5)
				lis 5,0x1
				ori 5,5,0x4d16
				addi 4,1,16
				add 5,5,4
				stb 9,0(5)
				lis 5,0x1
				ori 5,5,0x4d17
				add 5,5,4
				lwz 3,7072(30)
				lwz 4,7076(30)
				stw 3,0(5)
				stw 4,4(5)
				lis 5,0x1
				ori 5,5,0x4e16
				addi 4,1,16
				add 5,5,4
				stb 6,0(5)
				lis 5,.LC205@ha
				la 5,.LC205@l(5)
				lis 4,0x1
				ori 4,4,0x4e17
				addi 3,1,16
				add 4,4,3
				lwz 11,0(5)
				lwz 12,4(5)
				stw 11,0(4)
				stw 12,4(4)
				lis 5,0x1
				ori 5,5,0x4f16
				add 5,5,3
				stb 9,0(5)
				lis 5,0x1
				ori 5,5,0x4f17
				add 5,5,3
				lwz 3,7080(30)
				lwz 4,7084(30)
				stw 3,0(5)
				stw 4,4(5)
				lis 5,0x1
				ori 5,5,0x5516
				addi 4,1,16
				add 5,5,4
				stb 8,0(5)
				lis 5,0x1
				ori 5,5,0x5517
				add 5,5,4
				lwz 3,7088(30)
				lwz 4,7092(30)
				stw 3,0(5)
				stw 4,4(5)
				lis 5,0x1
				ori 5,5,0x5616
				addi 4,1,16
				add 5,5,4
				stb 10,0(5)
				lis 5,0x1
				ori 5,5,0x5617
				add 5,5,4
				lwz 3,7096(30)
				lwz 4,7100(30)
				stw 3,0(5)
				stw 4,4(5)
				lis 5,0x1
				ori 5,5,0x5716
				addi 4,1,16
				add 5,5,4
				stb 10,0(5)
				lis 5,0x1
				ori 5,5,0x5717
				add 5,5,4
				lwz 3,7104(30)
				lwz 4,7108(30)
				stw 3,0(5)
				stw 4,4(5)
				lis 5,0x1
				ori 5,5,0x5816
				addi 4,1,16
				add 5,5,4
				stb 10,0(5)
				lis 5,0x1
				ori 5,5,0x5817
				add 5,5,4
				lwz 3,7112(30)
				lwz 4,7116(30)
				stw 3,0(5)
				stw 4,4(5)
				lis 5,0x1
				ori 5,5,0x5916
				addi 4,1,16
				add 5,5,4
				stb 8,0(5)
				lis 5,0x1
				ori 5,5,0x5917
				add 5,5,4
				lwz 3,7120(30)
				lwz 4,7124(30)
				stw 3,0(5)
				stw 4,4(5)
				lis 5,0x1
				ori 5,5,0x5a16
				addi 4,1,16
				add 5,5,4
				stb 10,0(5)
				lis 5,0x1
				ori 5,5,0x5a17
				add 5,5,4
				lwz 3,7128(30)
				lwz 4,7132(30)
				stw 3,0(5)
				stw 4,4(5)
				li 5,8
				lis 4,0x1
				ori 4,4,0x5b16
				addi 3,1,16
				add 4,4,3
				stb 5,0(4)
				lis 4,0x1
				ori 4,4,0x5b17
				add 4,4,3
				lwz 11,7136(30)
				lwz 12,7140(30)
				stw 11,0(4)
				stw 12,4(4)
				lis 4,0x1
				ori 4,4,0x5c16
				add 4,4,3
				stb 8,0(4)
				lis 4,0x1
				ori 4,4,0x5c17
				add 4,4,3
				lwz 11,7148(30)
				lwz 12,7152(30)
				stw 11,0(4)
				stw 12,4(4)
				lis 4,0x1
				ori 4,4,0x5d16
				add 4,4,3
				stb 10,0(4)
				lis 4,0x1
				ori 4,4,0x5d17
				add 4,4,3
				lwz 11,7156(30)
				lwz 12,7160(30)
				stw 11,0(4)
				stw 12,4(4)
				lis 4,0x1
				ori 4,4,0x5e16
				add 4,4,3
				stb 8,0(4)
				lis 4,0x1
				ori 4,4,0x5e17
				add 4,4,3
				lwz 11,7164(30)
				lwz 12,7168(30)
				stw 11,0(4)
				stw 12,4(4)
				lis 4,0x1
				ori 4,4,0x5f16
				add 4,4,3
				stb 8,0(4)
				lis 4,0x1
				ori 4,4,0x5f17
				add 4,4,3
				lwz 11,7172(30)
				lwz 12,7176(30)
				stw 11,0(4)
				stw 12,4(4)
				lis 4,0x1
				ori 4,4,0x6016
				add 4,4,3
				stb 8,0(4)
				lis 4,0x1
				ori 4,4,0x6017
				add 4,4,3
				lwz 11,7180(30)
				lwz 12,7184(30)
				stw 11,0(4)
				stw 12,4(4)
				lis 4,0x1
				ori 4,4,0x6116
				add 4,4,3
				stb 6,0(4)
				lis 4,.LC219@ha
				la 4,.LC219@l(4)
				lis 3,0x1
				ori 3,3,0x6117
				addi 11,1,16
				add 3,3,11
				lwz 11,0(4)
				lwz 12,4(4)
				stw 11,0(3)
				stw 12,4(3)
				lis 4,0x1
				ori 4,4,0x6216
				addi 3,1,16
				add 4,4,3
				stb 5,0(4)
				lis 4,0x1
				ori 4,4,0x6217
				add 4,4,3
				lwz 11,7188(30)
				lwz 12,7192(30)
				stw 11,0(4)
				stw 12,4(4)
				lis 4,0x1
				ori 4,4,0x6316
				add 4,4,3
				stb 10,0(4)
				lis 4,0x1
				ori 4,4,0x6317
				add 4,4,3
				lwz 11,7200(30)
				lwz 12,7204(30)
				stw 11,0(4)
				stw 12,4(4)
				lis 4,0x1
				ori 4,4,0x6416
				add 4,4,3
				stb 8,0(4)
				lis 4,0x1
				ori 4,4,0x6417
				add 4,4,3
				lwz 11,7208(30)
				lwz 12,7212(30)
				stw 11,0(4)
				stw 12,4(4)
				lis 4,0x1
				ori 4,4,0x6516
				add 4,4,3
				stb 8,0(4)
				lis 4,0x1
				ori 4,4,0x6517
				add 4,4,3
				lwz 11,7216(30)
				lwz 12,7220(30)
				stw 11,0(4)
				stw 12,4(4)
				lis 4,0x1
				ori 4,4,0x6616
				add 4,4,3
				stb 8,0(4)
				lis 4,0x1
				ori 4,4,0x6617
				add 4,4,3
				lwz 11,7224(30)
				lwz 12,7228(30)
				stw 11,0(4)
				stw 12,4(4)
				lis 4,0x1
				ori 4,4,0x6716
				add 4,4,3
				stb 5,0(4)
				lis 4,0x1
				ori 4,4,0x6717
				add 4,4,3
				lwz 11,7232(30)
				lwz 12,7236(30)
				stw 11,0(4)
				stw 12,4(4)
				lis 4,0x1
				ori 4,4,0x6816
				add 4,4,3
				stb 7,0(4)
				lis 4,0x4150
				ori 4,4,0x5000
				lis 3,0x1
				ori 3,3,0x6817
				addi 11,1,16
				add 3,3,11
				stw 4,0(3)
				lis 4,0x1
				ori 4,4,0x6916
				add 4,4,11
				stb 6,0(4)
				lis 4,.LC226@ha
				la 4,.LC226@l(4)
				lis 3,0x1
				ori 3,3,0x6917
				add 3,3,11
				lwz 11,0(4)
				lwz 12,4(4)
				stw 11,0(3)
				stw 12,4(3)
				lis 4,0x1
				ori 4,4,0x6a16
				addi 3,1,16
				add 4,4,3
				stb 9,0(4)
				lis 4,0x1
				ori 4,4,0x6a17
				add 4,4,3
				lwz 11,7244(30)
				lwz 12,7248(30)
				stw 11,0(4)
				stw 12,4(4)
				lis 4,0x1
				ori 4,4,0x6b16
				add 4,4,3
				stb 9,0(4)
				lis 4,0x1
				ori 4,4,0x6b17
				add 4,4,3
				lwz 11,7252(30)
				lwz 12,7256(30)
				stw 11,0(4)
				stw 12,4(4)
				lis 4,0x1
				ori 4,4,0x6c16
				add 4,4,3
				stb 9,0(4)
				lis 4,0x1
				ori 4,4,0x6c17
				add 4,4,3
				lwz 11,7260(30)
				lwz 12,7264(30)
				stw 11,0(4)
				stw 12,4(4)
				lis 4,0x1
				ori 4,4,0x6d16
				add 4,4,3
				stb 9,0(4)
				lis 4,0x1
				ori 4,4,0x6d17
				add 4,4,3
				lwz 11,7268(30)
				lwz 12,7272(30)
				stw 11,0(4)
				stw 12,4(4)
				lis 4,0x1
				ori 4,4,0x6e16
				add 4,4,3
				stb 9,0(4)
				lis 4,0x1
				ori 4,4,0x6e17
				add 4,4,3
				lwz 11,7276(30)
				lwz 12,7280(30)
				stw 11,0(4)
				stw 12,4(4)
				lis 4,0x1
				ori 4,4,0x6f16
				add 4,4,3
				stb 10,0(4)
				lis 4,0x1
				ori 4,4,0x6f17
				add 4,4,3
				lwz 11,7284(30)
				lwz 12,7288(30)
				stw 11,0(4)
				stw 12,4(4)
				lis 4,0x1
				ori 4,4,0x7016
				add 4,4,3
				stb 10,0(4)
				lis 4,0x1
				ori 4,4,0x7017
				add 4,4,3
				lwz 11,7292(30)
				lwz 12,7296(30)
				stw 11,0(4)
				stw 12,4(4)
				lis 4,0x1
				ori 4,4,0x7116
				add 4,4,3
				stb 10,0(4)
				lis 4,0x1
				ori 4,4,0x7117
				add 4,4,3
				lwz 11,7300(30)
				lwz 12,7304(30)
				stw 11,0(4)
				stw 12,4(4)
				lis 4,0x1
				ori 4,4,0x7216
				add 4,4,3
				stb 10,0(4)
				lis 4,0x1
				ori 4,4,0x7217
				add 4,4,3
				lwz 11,7308(30)
				lwz 12,7312(30)
				stw 11,0(4)
				stw 12,4(4)
				lis 4,0x1
				ori 4,4,0x7316
				add 4,4,3
				stb 10,0(4)
				lis 4,0x1
				ori 4,4,0x7317
				add 4,4,3
				lwz 11,7316(30)
				lwz 12,7320(30)
				stw 11,0(4)
				stw 12,4(4)
				lis 4,0x1
				ori 4,4,0x7416
				add 4,4,3
				stb 8,0(4)
				lis 4,0x1
				ori 4,4,0x7417
				add 4,4,3
				lwz 11,7324(30)
				lwz 12,7328(30)
				stw 11,0(4)
				stw 12,4(4)
				lis 4,0x1
				ori 4,4,0x7516
				add 4,4,3
				stb 8,0(4)
				lis 4,0x1
				ori 4,4,0x7517
				add 4,4,3
				lwz 11,7332(30)
				lwz 12,7336(30)
				stw 11,0(4)
				stw 12,4(4)
				lis 4,0x1
				ori 4,4,0x7616
				add 4,4,3
				stb 8,0(4)
				lis 4,0x1
				ori 4,4,0x7617
				add 4,4,3
				lwz 11,7340(30)
				lwz 12,7344(30)
				stw 11,0(4)
				stw 12,4(4)
				lis 4,0x1
				ori 4,4,0x7716
				add 4,4,3
				stb 9,0(4)
				lis 4,0x1
				ori 4,4,0x7717
				add 4,4,3
				lwz 11,7348(30)
				lwz 12,7352(30)
				stw 11,0(4)
				stw 12,4(4)
				lis 4,0x1
				ori 4,4,0x7816
				add 4,4,3
				stb 7,0(4)
				lis 4,0x494d
				ori 4,4,0x5000
				lis 3,0x1
				ori 3,3,0x7817
				addi 11,1,16
				add 3,3,11
				stw 4,0(3)
				lis 4,0x1
				ori 4,4,0x7916
				mr 3,11
				add 4,4,11
				stb 9,0(4)
				lis 4,0x1
				ori 4,4,0x7917
				add 4,4,11
				lwz 11,7356(30)
				lwz 12,7360(30)
				stw 11,0(4)
				stw 12,4(4)
				lis 4,0x1
				ori 4,4,0x7a16
				add 4,4,3
				stb 10,0(4)
				lis 4,0x1
				ori 4,4,0x7a17
				add 4,4,3
				lwz 11,7364(30)
				lwz 12,7368(30)
				stw 11,0(4)
				stw 12,4(4)
				lis 4,0x1
				ori 4,4,0x7b16
				add 4,4,3
				stb 9,0(4)
				lis 4,0x1
				ori 4,4,0x7b17
				add 4,4,3
				lwz 11,7372(30)
				lwz 12,7376(30)
				stw 11,0(4)
				stw 12,4(4)
				lis 4,0x1
				ori 4,4,0x7c16
				add 4,4,3
				stb 9,0(4)
				lis 4,0x1
				ori 4,4,0x7c17
				add 4,4,3
				lwz 11,7380(30)
				lwz 12,7384(30)
				stw 11,0(4)
				stw 12,4(4)
				lis 4,0x1
				ori 4,4,0x7d16
				add 4,4,3
				stb 9,0(4)
				lis 4,0x1
				ori 4,4,0x7d17
				add 4,4,3
				lwz 11,7388(30)
				lwz 12,7392(30)
				stw 11,0(4)
				stw 12,4(4)
				lis 4,0x1
				ori 4,4,0x7e16
				add 4,4,3
				stb 9,0(4)
				lis 4,0x1
				ori 4,4,0x7e17
				add 4,4,3
				lwz 11,7396(30)
				lwz 12,7400(30)
				stw 11,0(4)
				stw 12,4(4)
				lis 4,0x1
				ori 4,4,0x7f16
				add 4,4,3
				stb 10,0(4)
				lis 4,0x1
				ori 4,4,0x7f17
				add 4,4,3
				lwz 11,7404(30)
				lwz 12,7408(30)
				stw 11,0(4)
				stw 12,4(4)
				lis 4,0x1
				ori 4,4,0x8016
				add 4,4,3
				stb 10,0(4)
				lis 4,0x1
				ori 4,4,0x8017
				add 4,4,3
				lwz 11,7412(30)
				lwz 12,7416(30)
				stw 11,0(4)
				stw 12,4(4)
				lis 4,0x1
				ori 4,4,0x8116
				add 4,4,3
				stb 10,0(4)
				lis 4,0x1
				ori 4,4,0x8117
				add 4,4,3
				lwz 11,7420(30)
				lwz 12,7424(30)
				stw 11,0(4)
				stw 12,4(4)
				lis 4,0x1
				ori 4,4,0x8216
				add 4,4,3
				stb 7,0(4)
				lis 4,0x5345
				ori 4,4,0x5100
				lis 3,0x1
				ori 3,3,0x8217
				addi 11,1,16
				add 3,3,11
				stw 4,0(3)
				lis 4,0x1
				ori 4,4,0x8316
				mr 3,11
				add 4,4,11
				stb 9,0(4)
				lis 4,0x1
				ori 4,4,0x8317
				add 4,4,11
				lwz 11,7428(30)
				lwz 12,7432(30)
				stw 11,0(4)
				stw 12,4(4)
				lis 4,0x1
				ori 4,4,0x8416
				add 4,4,3
				stb 7,0(4)
				lis 4,0x4558
				ori 4,4,0x5000
				lis 3,0x1
				ori 3,3,0x8417
				addi 11,1,16
				add 3,3,11
				stw 4,0(3)
				lis 4,0x1
				ori 4,4,0x8516
				add 4,4,11
				stb 6,0(4)
				lis 4,.LC251@ha
				la 4,.LC251@l(4)
				lis 3,0x1
				ori 3,3,0x8517
				add 3,3,11
				lwz 11,0(4)
				lwz 12,4(4)
				stw 11,0(3)
				stw 12,4(3)
				lis 4,0x1
				ori 4,4,0x8616
				addi 3,1,16
				add 4,4,3
				stb 8,0(4)
				lis 4,0x1
				ori 4,4,0x8617
				add 4,4,3
				lwz 11,7436(30)
				lwz 12,7440(30)
				stw 11,0(4)
				stw 12,4(4)
				lis 4,0x1
				ori 4,4,0x8716
				add 4,4,3
				stb 8,0(4)
				lis 4,0x1
				ori 4,4,0x8717
				add 4,4,3
				lwz 11,7444(30)
				lwz 12,7448(30)
				stw 11,0(4)
				stw 12,4(4)
				lis 4,0x1
				ori 4,4,0x8816
				add 4,4,3
				stb 7,0(4)
				lis 4,0x4250
				ori 4,4,0x4c00
				lis 3,0x1
				ori 3,3,0x8817
				addi 11,1,16
				add 3,3,11
				stw 4,0(3)
				lis 4,0x1
				ori 4,4,0x8916
				mr 3,11
				add 4,4,11
				stb 8,0(4)
				lis 4,0x1
				ori 4,4,0x8917
				add 4,4,11
				lwz 11,7452(30)
				lwz 12,7456(30)
				stw 11,0(4)
				stw 12,4(4)
				lis 4,0x1
				ori 4,4,0x8a16
				add 4,4,3
				stb 10,0(4)
				lis 4,0x1
				ori 4,4,0x8a17
				add 4,4,3
				lwz 11,7460(30)
				lwz 12,7464(30)
				stw 11,0(4)
				stw 12,4(4)
				lis 4,0x1
				ori 4,4,0x8b16
				add 4,4,3
				stb 10,0(4)
				lis 4,0x1
				ori 4,4,0x8b17
				add 4,4,3
				lwz 11,7468(30)
				lwz 12,7472(30)
				stw 11,0(4)
				stw 12,4(4)
				lis 4,0x1
				ori 4,4,0x8c16
				add 4,4,3
				stb 10,0(4)
				lis 4,0x1
				ori 4,4,0x8c17
				add 4,4,3
				lwz 11,7476(30)
				lwz 12,7480(30)
				stw 11,0(4)
				stw 12,4(4)
				lis 4,0x1
				ori 4,4,0x8d16
				add 4,4,3
				stb 7,0(4)
				lis 7,0x4650
				ori 7,7,0x5000
				lis 4,0x1
				ori 4,4,0x8d17
				add 4,4,3
				stw 7,0(4)
				lis 7,0x1
				ori 7,7,0x8e16
				add 7,7,3
				stb 9,0(7)
				lis 7,0x1
				ori 7,7,0x8e17
				add 7,7,3
				lwz 3,7484(30)
				lwz 4,7488(30)
				stw 3,0(7)
				stw 4,4(7)
				lis 7,0x1
				ori 7,7,0x8f16
				addi 4,1,16
				add 7,7,4
				stb 9,0(7)
				lis 7,0x1
				ori 7,7,0x8f17
				add 7,7,4
				lwz 3,7492(30)
				lwz 4,7496(30)
				stw 3,0(7)
				stw 4,4(7)
				lis 7,0x1
				ori 7,7,0x9016
				addi 4,1,16
				add 7,7,4
				stb 9,0(7)
				lis 7,0x1
				ori 7,7,0x9017
				add 7,7,4
				lwz 3,7500(30)
				lwz 4,7504(30)
				stw 3,0(7)
				stw 4,4(7)
				lis 7,0x1
				ori 7,7,0x9116
				addi 4,1,16
				add 7,7,4
				stb 6,0(7)
				lis 7,.LC261@ha
				la 7,.LC261@l(7)
				lis 4,0x1
				ori 4,4,0x9117
				addi 3,1,16
				add 4,4,3
				lwz 11,0(7)
				lwz 12,4(7)
				stw 11,0(4)
				stw 12,4(4)
				lis 7,0x1
				ori 7,7,0x9216
				add 7,7,3
				stb 8,0(7)
				lis 7,0x1
				ori 7,7,0x9217
				add 7,7,3
				lwz 3,7508(30)
				lwz 4,7512(30)
				stw 3,0(7)
				stw 4,4(7)
				lis 7,0x1
				ori 7,7,0x9316
				addi 4,1,16
				add 7,7,4
				stb 9,0(7)
				lis 7,0x1
				ori 7,7,0x9317
				add 7,7,4
				lwz 3,7516(30)
				lwz 4,7520(30)
				stw 3,0(7)
				stw 4,4(7)
				lis 7,0x1
				ori 7,7,0x9416
				addi 4,1,16
				add 7,7,4
				stb 8,0(7)
				lis 7,0x1
				ori 7,7,0x9417
				add 7,7,4
				lwz 3,7524(30)
				lwz 4,7528(30)
				stw 3,0(7)
				stw 4,4(7)
				lis 7,0x1
				ori 7,7,0x9516
				addi 4,1,16
				add 7,7,4
				stb 10,0(7)
				lis 10,0x1
				ori 10,10,0x9517
				mr 7,4
				add 10,10,4
				lwz 3,7532(30)
				lwz 4,7536(30)
				stw 3,0(10)
				stw 4,4(10)
				lis 10,0x1
				ori 10,10,0x9616
				add 10,10,7
				stb 6,0(10)
				lis 10,.LC266@ha
				la 10,.LC266@l(10)
				lis 7,0x1
				ori 7,7,0x9617
				addi 4,1,16
				add 7,7,4
				lwz 11,4(10)
				lwz 10,0(10)
				stw 10,0(7)
				stw 11,4(7)
				lis 10,0x1
				ori 10,10,0x9716
				mr 7,4
				add 10,10,4
				stb 9,0(10)
				lis 9,0x1
				ori 9,9,0x9717
				add 9,9,4
				lwz 10,7540(30)
				lwz 11,7544(30)
				stw 10,0(9)
				stw 11,4(9)
				lis 9,0x1
				ori 9,9,0x9816
				add 9,9,4
				stb 6,0(9)
				lis 9,.LC268@ha
				la 9,.LC268@l(9)
				lis 10,0x1
				ori 10,10,0x9817
				add 10,10,4
				lwz 3,0(9)
				lwz 4,4(9)
				stw 3,0(10)
				stw 4,4(10)
				lis 9,0x1
				ori 9,9,0x9c16
				add 9,9,7
				stb 8,0(9)
				lis 9,0x1
				ori 9,9,0x9c17
				add 9,9,7
				lwz 10,7548(30)
				lwz 11,7552(30)
				stw 10,0(9)
				stw 11,4(9)
				lis 9,0x1
				ori 9,9,0x9d16
				add 9,9,7
				stb 6,0(9)
				lis 9,.LC270@ha
				la 9,.LC270@l(9)
				lis 10,0x1
				ori 10,10,0x9d17
				add 10,10,7
				lwz 6,0(9)
				lwz 7,4(9)
				stw 6,0(10)
				stw 7,4(10)
				lis 9,0x1
				ori 9,9,0x9e16
				addi 10,1,16
				add 9,9,10
				stb 5,0(9)
				lis 9,0x1
				ori 9,9,0x9e17
				add 9,9,10
				lwz 10,7556(30)
				lwz 11,7560(30)
				stw 10,0(9)
				stw 11,4(9)
				lis 9,0x1
				ori 9,9,0x9f16
				addi 10,1,16
				add 9,9,10
				stb 8,0(9)
				lis 9,0x1
				ori 9,9,0x9f17
				add 9,9,10
				lwz 10,7568(30)
				lwz 11,7572(30)
				stw 10,0(9)
				stw 11,4(9)
				li 5,50
				addi 4,30,7576
				li 9,0
				ori 9,9,0xa320
				addi 10,1,16
				add 9,9,10
				addi 3,9,-844
				bl memcpy
		.LVL983:
				li 5,240
				addi 4,30,7626
				li 9,0
				ori 9,9,0xa320
				addi 10,1,16
				add 9,9,10
				addi 3,9,-18348
				bl memcpy
		.LVL984:
				li 5,1152
				addi 4,30,7866
				li 9,0
				ori 9,9,0xa320
				addi 10,1,16
				add 9,9,10
				addi 3,9,-14012
				bl memcpy
		.LVL985:
  576
  577 %ROUTINE flush buffer
				stwu 1,-1328(1)
				mflr 0
				stw 0,1332(1)
				stw 29,1316(1)
				stw 30,1320(1)
				mr 29,11
				lwz 9,-28680(2)
				stw 9,1308(1)
				li 9,0
		.LVL86:
		.LBB326:
		.LBB327:
				lis 9,_imp_OutStream@ha
				li 10,1
				stw 10,_imp_OutStream@l(9)
				lis 9,_imp_outfile+280@ha
				lwz 10,_imp_outfile+280@l(9)
				lis 9,_imp_OutFile@ha
				stw 10,_imp_OutFile@l(9)
				lis 3,.LANCHOR2@ha
				la 3,.LANCHOR2@l(3)
				addi 3,3,296
				bl check_outstream
		.LVL87:
		.LBE327:
		.LBE326:
		.LBB328:
  578    %INTEGER j
  579    %IF faulty = 0 %START
  580       select output(object)
  581       %FOR j = 1, 1, bp %CYCLE
  582          printsymbol(buff(j))
				lis 9,.LANCHOR0@ha
				lwz 30,.LANCHOR0@l(9)
		.LVL88:
  583       %REPEAT
				addic. 9,30,-1
				blt 0,.L76
		.L66:
		.LVL89:
				lis 9,_imp_current_file@ha
				lwz 4,_imp_current_file@l(9)
				cmpwi 7,4,0
				beq 7,.L67
				addi 3,1,796
				bl _imp_c2istr
		.LVL98:
		.L68:
				lis 9,_imp_current_line@ha
				lwz 31,_imp_current_line@l(9)
				cmpwi 7,31,0
				bne 7,.L69
				li 31,583
		.L69:
				lis 4,.LC81@ha
				la 4,.LC81@l(4)
				addi 3,1,1052
				bl _imp_c2istr
		.LVL99:
				li 5,256
				addi 4,1,796
				addi 3,1,272
				bl memcpy
		.LVL100:
				li 5,256
				addi 4,1,1052
				addi 3,1,16
				bl memcpy
		.LVL101:
				li 8,0
				li 7,1
				li 6,5
				addi 5,1,16
				mr 4,31
				addi 3,1,272
				bl _signal_event
		.LVL102:
				lwz 31,1324(1)
				b .L66
		.L67:
		.LBB331:
				li 5,256
				lis 4,.LANCHOR2@ha
				la 4,.LANCHOR2@l(4)
				addi 3,1,1052
				bl memcpy
		.LVL103:
				li 5,256
				addi 4,1,1052
				addi 3,1,540
				bl memcpy
		.LVL104:
		.LBE331:
				li 5,256
				addi 4,1,540
				addi 3,1,796
				bl memcpy
		.LVL105:
				b .L68
		.LVL106:
		.L77:
				stw 31,1324(1)
		.LBE334:
  584       select output(listing)
  585    %FINISH
  586    bp = 0
				cmpwi 7,30,0
				beq 7,.L70
				stw 31,1324(1)
				addis 31,29,0x2
				addi 31,31,-26363
				addis 30,30,0x2
		.LVL90:
				addi 30,30,-26363
		.LVL91:
				add 30,29,30
		.LVL92:
		.L71:
		.LBB329:
		.LBB330:
				lbzu 3,1(31)
		.LVL93:
				bl _imp_printsymbol
		.LVL94:
		.LBE330:
		.LBE329:
				cmplw 7,31,30
				bne 7,.L71
				lwz 31,1324(1)
		.LVL95:
		.L70:
		.LBE328:
		.LBB332:
		.LBB333:
				lis 9,_imp_OutStream@ha
				li 10,2
				stw 10,_imp_OutStream@l(9)
				lis 9,_imp_outfile+556@ha
				lwz 10,_imp_outfile+556@l(9)
				lis 9,_imp_OutFile@ha
				stw 10,_imp_OutFile@l(9)
				lis 3,.LANCHOR2@ha
				la 3,.LANCHOR2@l(3)
				addi 3,3,296
				bl check_outstream
		.LVL96:
		.LDL4:
		.LBE333:
		.LBE332:
				lis 9,.LANCHOR0@ha
				li 10,0
				stw 10,.LANCHOR0@l(9)
  587 %END
  588 %ROUTINE print ident(%INTEGER p, mode)
		.LVL46:
				stwu 1,-1856(1)
				stw 30,1848(1)
				mr 30,11
				lwz 9,-28680(2)
				stw 9,1820(1)
				li 9,0
				lwz 9,1308(1)
				lwz 10,-28680(2)
				xor. 9,9,10
				li 10,0
				bne 0,.L77
				lwz 0,1332(1)
				mtlr 0
				lwz 29,1316(1)
				lwz 30,1320(1)
				addi 1,1,1328
				blr
		.LVL97:
		.L76:
				stw 31,1324(1)
		.LBB334:
				bl __stack_chk_fail
		.LVL107:
		.LFE186:
				.align 2
		DEF.8223:
		.LFB215:
  589    %INTEGER j, ad
  590    p = tag(p)_text
				addi 3,3,13
		.LVL47:
				slwi 3,3,4
		.LVL48:
				add 3,11,3
				lha 9,16(3)
		.LVL49:
  591    %IF p = 0 %START
				cmpwi 7,9,0
				bne 7,.L47
  592       bp = bp+1 %AND buff(bp) = '?' %if Mode # 0
				cmpwi 7,4,0
				beq 7,.L46
  593       %RETURN
				lis 9,.LANCHOR0@ha
				lwz 11,.LANCHOR0@l(9)
				addi 10,11,1
				stw 10,.LANCHOR0@l(9)
  594    %FINISH
				add 11,30,11
				addis 11,11,0x2
				li 9,63
				stb 9,-26362(11)
		.LVL50:
				b .L46
		.LVL51:
		.L47:
  595    ad = addr(dict(p+1))
				addi 9,9,13418
		.LVL53:
				slwi 9,9,1
		.LVL54:
				add 28,11,9
				mr 29,28
		.LVL55:
		.LBB321:
  596    %IF mode = 0 %THEN printstring(string(ad)) %ELSE %START
				cmpwi 7,4,0
				beq 7,.L62
		.L49:
				stw 28,1840(1)
		.LVL52:
				stw 29,1844(1)
				stw 31,1852(1)
  597       %FOR j = ad+1, 1, ad+byteinteger(ad) %CYCLE
  598          bp = bp+1
				lbzx 31,11,9
				add 31,31,28
		.LVL56:
				addi 9,28,1
		.LVL57:
  599          buff(bp) = byteinteger(j)
				subf. 9,9,31
		.LVL58:
				blt 0,.L63
		.LVL59:
		.L50:
				lbzu 9,1(29)
		.LVL61:
				stbu 9,1(11)
		.LVL62:
				lis 9,_imp_current_file@ha
				lwz 4,_imp_current_file@l(9)
		.LVL73:
				cmpwi 7,4,0
				beq 7,.L51
				addi 3,1,1052
				bl _imp_c2istr
		.LVL74:
		.L52:
				lis 9,_imp_current_line@ha
				lwz 27,_imp_current_line@l(9)
				cmpwi 7,27,0
				bne 7,.L53
				li 27,599
		.L53:
				lis 4,.LC80@ha
				la 4,.LC80@l(4)
				addi 3,1,1308
				bl _imp_c2istr
		.LVL75:
				li 5,256
				addi 4,1,1052
				addi 3,1,272
				bl memcpy
		.LVL76:
				li 5,256
				addi 4,1,1308
				addi 3,1,16
				bl memcpy
		.LVL77:
				li 8,0
				li 7,1
				li 6,5
				addi 5,1,16
				mr 4,27
				addi 3,1,272
				bl _signal_event
		.LVL78:
				lwz 27,1836(1)
				lwz 0,1860(1)
				mtlr 0
				b .L50
		.L51:
		.LBB322:
				li 5,256
				lis 4,.LANCHOR2@ha
				la 4,.LANCHOR2@l(4)
				addi 3,1,1564
				bl memcpy
		.LVL79:
				li 5,256
				addi 4,1,1564
				addi 3,1,796
				bl memcpy
		.LVL80:
		.LBE322:
				li 5,256
				addi 4,1,796
				addi 3,1,1052
				bl memcpy
		.LVL81:
				b .L52
		.L48:
		.L55:
		.L56:
		.L61:
				lwz 28,1840(1)
		.LVL82:
				lwz 29,1844(1)
		.LVL83:
				lwz 31,1852(1)
		.LVL84:
				b .L46
		.L64:
				mflr 0
				stw 0,1860(1)
				stw 27,1836(1)
				stw 28,1840(1)
				stw 29,1844(1)
				stw 31,1852(1)
		.LBE325:
  600       %REPEAT
  601    %FINISH
  602 %END
				cmpw 7,28,31
				beq 7,.L61
				lis 9,.LANCHOR0@ha
				lwz 10,.LANCHOR0@l(9)
				addis 11,10,0x2
				addi 11,11,-26363
				add 11,30,11
				subf 9,29,31
				mtctr 9
		.L54:
		.LVL60:
				bdnz .L54
				subf 9,28,10
				add 9,9,29
				lis 10,.LANCHOR0@ha
				stw 9,.LANCHOR0@l(10)
				lwz 28,1840(1)
		.LVL63:
				lwz 29,1844(1)
		.LVL64:
				lwz 31,1852(1)
		.LVL65:
		.L46:
		.LBE321:
  603 %ROUTINE abandon(%INTEGER n)
		.LVL14:
				stwu 1,-1328(1)
				mflr 0
				stw 0,1332(1)
				stw 30,1320(1)
				stw 31,1324(1)
				mr 31,3
				lwz 9,-28680(2)
				stw 9,1308(1)
				li 9,0
		.LVL15:
		.LDL2:
				lwz 9,1820(1)
				lwz 10,-28680(2)
				xor. 9,9,10
				li 10,0
				bne 0,.L64
				lwz 30,1848(1)
				addi 1,1,1856
				blr
		.LVL66:
		.L62:
				mflr 0
				stw 0,1860(1)
		.LVL67:
				li 5,256
				addi 4,1,540
		.LVL68:
				addi 3,1,1564
				bl memcpy
		.LVL69:
		.LBB323:
		.LBB324:
				li 5,256
				addi 4,1,1564
				addi 3,1,272
				bl memcpy
		.LVL70:
				addi 3,1,272
				bl _imp_printstring
		.LVL71:
				lwz 0,1860(1)
				mtlr 0
				b .L46
		.LVL72:
		.L63:
				mflr 0
				stw 0,1860(1)
				stw 27,1836(1)
		.LBE324:
		.LBE323:
		.LBB325:
				bl __stack_chk_fail
		.LVL85:
		.LFE187:
				.align 2
		FLUSHBUFFER.7135:
		.LFB186:
  604    %SWITCH reason(0:9)
  605    %INTEGER stream
  606    stream = listing
  607    %CYCLE
  608       newline %IF sym # nl
				lis 9,.LANCHOR1+6888@ha
				lwz 9,.LANCHOR1+6888@l(9)
				cmpwi 7,9,10
				bne 7,.L37
		.LVL16:
		.L24:
		.LBB308:
		.LBB309:
				li 3,42
				bl _imp_printsymbol
		.LVL17:
		.LBE309:
		.LBE308:
  609       printsymbol('*');  write(lines,4);  space
  610       ->reason(n)
				li 4,4
				lis 9,.LANCHOR0+184@ha
				lwz 3,.LANCHOR0+184@l(9)
				bl _imp_writeint
		.LVL18:
		.LBB310:
		.LBB311:
				bl _imp_space
		.LVL19:
		.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:
				stwu 1,-16(1)
  641       buff(bp+1) <- code
				lis 10,.LANCHOR0@ha
				lwz 9,.LANCHOR0@l(10)
				add 11,11,9
				addis 11,11,0x2
				stb 3,-26362(11)
				cmplwi 7,31,9
				ble 7,.L25
				lis 9,_imp_current_file@ha
				lwz 4,_imp_current_file@l(9)
				cmpwi 7,4,0
				beq 7,.L26
				addi 3,1,796
				bl _imp_c2istr
		.LVL20:
		.L27:
				lis 9,_imp_current_line@ha
				lwz 30,_imp_current_line@l(9)
				cmpwi 7,30,0
				bne 7,.L28
				li 30,641
		.L28:
				li 5,256
				addi 4,1,796
				addi 3,1,16
				bl memcpy
		.LVL21:
				li 9,610
				stw 9,8(1)
				lis 10,.LC77@ha
				la 10,.LC77@l(10)
				mr 9,31
				lis 8,.LC78@ha
				la 8,.LC78@l(8)
				mr 7,31
				li 6,3
				li 5,6
				mr 4,30
				addi 3,1,16
				crxor 6,6,6
				bl _signal_eventf
		.LVL22:
		.L25:
		.L29:
				li 5,256
				lis 4,.LANCHOR2@ha
				la 4,.LANCHOR2@l(4)
				addi 3,1,1052
				bl memcpy
		.LVL30:
				li 5,256
				addi 4,1,1052
				addi 3,1,284
				bl memcpy
		.LVL31:
		.LBE314:
				li 5,256
				addi 4,1,284
				addi 3,1,796
				bl memcpy
		.LVL32:
				b .L27
		.L30:
		.LBB315:
  642       buff(bp+2) <- param>>8
				srwi 8,4,8
				stb 8,-26361(11)
  643       buff(bp+3) <- param
				stb 4,-26360(11)
  644       bp = bp+3
				addi 9,9,3
				stw 9,.LANCHOR0@l(10)
				lis 9,_imp_current_file@ha
				lwz 4,_imp_current_file@l(9)
				cmpwi 7,4,0
				beq 7,.L30
				addi 3,1,1052
				bl _imp_c2istr
		.LVL23:
		.L31:
				lis 9,_imp_current_line@ha
				lwz 30,_imp_current_line@l(9)
				cmpwi 7,30,0
				beq 7,.L38
		.L32:
				li 5,256
				addi 4,1,1052
				addi 3,1,16
				bl memcpy
		.LVL24:
				li 9,610
				stw 9,8(1)
				lis 10,.LC77@ha
				la 10,.LC77@l(10)
				mr 9,31
				lis 8,.LC79@ha
				la 8,.LC79@l(8)
				mr 7,31
				li 6,2
				li 5,8
				mr 4,30
				addi 3,1,16
				crxor 6,6,6
				bl _signal_eventf
		.LVL25:
				li 5,256
				lis 4,.LANCHOR2@ha
				la 4,.LANCHOR2@l(4)
				addi 3,1,1052
				bl memcpy
		.LVL33:
				li 5,256
				addi 4,1,1052
				addi 3,1,540
				bl memcpy
		.LVL34:
		.LBE315:
				li 5,256
				addi 4,1,540
				addi 3,1,1052
				bl memcpy
		.LVL35:
				b .L31
		.L38:
				li 30,644
				b .L32
		.L39:
  645 %END
				lwz 9,1308(1)
				lwz 10,-28680(2)
				xor. 9,9,10
				li 10,0
				bne 0,.L39
				lwz 0,1332(1)
				mtlr 0
				lwz 30,1320(1)
				lwz 31,1324(1)
		.LVL26:
				addi 1,1,1328
				blr
		.LVL27:
		.L37:
		.LBB312:
		.LBB313:
				bl _imp_newline
		.LVL28:
				b .L24
		.LVL29:
		.L26:
		.LBE313:
		.LBE312:
		.LBB314:
				bl __stack_chk_fail
		.LVL36:
		.LFE188:
				.align 2
		SHOW.7533:
		.LFB200:
  646 %ROUTINE set const(%INTEGER m)
				addi 1,1,16
				blr
		.LFE189:
				.align 2
		SETCONST.7244:
		.LFB190:
		.LVL1:
				stwu 1,-16(1)
  647       buff(bp+1) <- 'N'
				lis 10,.LANCHOR0@ha
				lwz 9,.LANCHOR0@l(10)
				add 11,11,9
				addis 11,11,0x2
				li 8,78
				stb 8,-26362(11)
  648       buff(bp+5) <- m;  m = m>>8
				stb 3,-26358(11)
		.LVL2:
  649       buff(bp+4) <- m;  m = m>>8
				srwi 8,3,8
		.LVL3:
				stb 8,-26359(11)
		.LVL4:
  650       buff(bp+3) <- m;  m = m>>8
				srwi 8,3,16
		.LVL5:
				stb 8,-26360(11)
		.LVL6:
  651       buff(bp+2) <- m
				srwi 3,3,24
		.LVL7:
				stb 3,-26361(11)
  652       bp = bp+5
				addi 9,9,5
				stw 9,.LANCHOR0@l(10)
  653 %END
  654
				addi 1,1,16
				blr
		.LFE190:
				.align 2
		SETCELL.7457:
		.LFB195:
  655
  656
  657 %ROUTINE compile block(%INTEGER level, block tag, dmin, tmax, id)
				stwu 1,-1968(1)
				mflr 0
				stw 0,1972(1)
				stw 29,1956(1)
				stw 30,1960(1)
				stw 31,1964(1)
				mr 30,11
				lwz 9,-28680(2)
				stw 9,1916(1)
				li 9,0
				addi 9,1,1968
				stw 9,376(1)
				stw 3,356(1)
				stw 4,320(1)
				stw 6,360(1)
				stw 7,352(1)
				stw 11,372(1)
  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 9,16384
				stw 9,328(1)
  666    %INTEGER tbase;   tbase      = tmax;        !tag base
				lis 9,.LANCHOR1+6896@ha
				lwz 10,.LANCHOR1+6896@l(9)
		.LVL914:
  667    %INTEGER tstart;  tstart     = tmax
				stw 6,364(1)
  668    %INTEGER label;   label      = 4;           !first internal label
				stw 6,368(1)
  669    %INTEGER access;  access     = 1;           !non-zero if accessible
				li 9,4
				stw 9,316(1)
  670    %INTEGER inhibit; inhibit    = 0;           !non-zero inhibits declaratons
				li 9,1
				stw 9,332(1)
  671
				li 9,0
				stw 9,312(1)
  672    %SHORTINTEGERNAME bflags; bflags      == tag(block tag)_flags
  673    %INTEGER block type;      block type   = bflags>>4&7
				slwi 9,4,4
				addi 9,9,220
				add 9,11,9
				stw 9,324(1)
				slwi 4,4,4
				add 31,11,4
  674    %INTEGER block form;      block form   = bflags&15
				lhz 9,220(31)
				rlwinm 8,9,28,29,31
				stw 8,340(1)
  675    %INTEGER block fm;        block fm     = tag(block tag)_format
				rlwinm 9,9,0,28,31
				stw 9,344(1)
  676    %INTEGER block otype;     block otype  = otype
				lwz 9,216(31)
				stw 9,336(1)
  677    %INTEGERNAME block app;   block app   == tag(block tag)_app
				lis 9,.LANCHOR0+188@ha
				lwz 29,.LANCHOR0+188@l(9)
		.LVL915:
  678
  679    %INTEGER l, new app
  680
  681 %ROUTINE fault(%INTEGER n)
		.LVL363:
				stwu 1,-2400(1)
				mflr 0
				stw 0,2404(1)
				mfcr 12
				stw 18,2344(1)
				stw 19,2348(1)
				stw 20,2352(1)
				stw 21,2356(1)
				stw 22,2360(1)
				stw 23,2364(1)
				stw 24,2368(1)
				stw 25,2372(1)
				stw 26,2376(1)
				stw 27,2380(1)
				stw 28,2384(1)
				stw 29,2388(1)
				stw 30,2392(1)
				stw 31,2396(1)
				stw 12,2340(1)
				mr 27,3
				mr 18,11
				lwz 9,-28680(2)
				stw 9,2332(1)
				li 9,0
  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
				lwz 9,260(30)
				cmpwi 7,9,0
				bne 7,.L410
		.L380:
		.LDL21:
		.LBE451:
		.LBE465:
		.LBB466:
		.LBB467:
				bl _imp_newline
		.LVL378:
		.LBE467:
		.LBE466:
  692        space
  693        p = 1
				li 31,1
  694        %CYCLE
  695           printsymbol(marker) %IF p = pos1
				lwz 9,296(30)
				cmpw 7,9,31
				beq 7,.L415
		.L383:
  696           %EXIT %IF p = pos
				lwz 9,260(30)
				cmpw 7,31,9
				beq 7,.L390
		.L385:
  697           s = char(p);  p = p+1
				addi 28,26,7036
				b .L391
		.LVL365:
		.L407:
		.LBE444:
		.LBE443:
		.LBB453:
		.LBB454:
				bl _imp_newline
		.LVL366:
				b .L371
		.LVL367:
		.L412:
		.LBE454:
		.LBE453:
		.LBB455:
		.LBB456:
				li 3,63
				bl _imp_printsymbol
		.LVL368:
		.LBE456:
		.LBE455:
				lbzx 3,31,28
		.LVL407:
  698           %EXIT %IF s = nl %OR (s='%' %AND p = pos)
				addi 31,31,1
		.LVL408:
				cmpwi 7,3,10
				beq 7,.L390
  699           %IF s < ' ' %START;         !beware of tabs
				cmpwi 7,3,37
				beq 7,.L416
		.L386:
				cmpwi 7,3,31
				bgt 7,.L389
  700              %IF s = ff %THEN s = nl %ELSE s = ' '
				cmpw 7,9,31
				beq 7,.L390
		.L387:
		.L388:
		.LVL405:
		.L389:
		.LBB449:
		.LBB450:
				bl _imp_printsymbol
		.LVL406:
		.L382:
		.LBE450:
		.LBE449:
				cmpwi 7,3,12
				beq 7,.L402
  701           %FINISH
				li 19,10
				mr 3,19
		.LVL411:
				b .L389
		.L384:
		.LVL412:
		.L390:
  702           printsymbol(s)
  703        %REPEAT
  704        pos = 0 %IF list <= 0
				li 23,32
				b .L382
		.LVL402:
		.L415:
		.LBB447:
		.LBB448:
				li 3,94
				bl _imp_printsymbol
		.LVL403:
				b .L383
		.LVL404:
		.L416:
		.LBE448:
		.LBE447:
				mr 3,23
		.LVL409:
				b .L389
		.LVL410:
		.L402:
				lwz 9,7172(26)
				cmpwi 7,9,0
				bgt 7,.L380
  705     %END
				li 9,0
				stw 9,260(30)
				b .L380
		.LVL413:
		.L411:
		.L392:
		.LBE452:
		.LBE478:
  706
  707     pos1 = pos2 %IF pos2 > pos1
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				lwz 10,256(9)
				lwz 9,296(9)
				cmpw 7,10,9
				ble 7,.L370
  708     newline %IF sym # nl
				lis 9,.LANCHOR0+296@ha
				stw 10,.LANCHOR0+296@l(9)
		.L370:
				lis 9,.LANCHOR1+6888@ha
				lwz 9,.LANCHOR1+6888@l(9)
				cmpwi 7,9,10
				bne 7,.L407
		.LVL364:
		.L371:
  709     st = report
  710     st = listing %IF n = -3;              !don<dq>t report unused on the console
  711     %cycle
				addi 29,27,3
				cntlzw 29,29
				srwi 29,29,5
				slwi 29,29,1
		.LBB440:
		.LBB441:
				lis 20,_imp_OutStream@ha
				lis 21,_imp_OutFile@ha
				lis 24,_imp_outfile@ha
				la 24,_imp_outfile@l(24)
				lis 25,.LANCHOR2@ha
				la 25,.LANCHOR2@l(25)
				addi 22,25,296
		.LBE441:
		.LBE440:
  712        SELECT OUTPUT(st)
  713        %if n < 0 %then printsymbol('?') %and pos1 = 0 %else printsymbol('*')
				cmpwi 4,27,0
				blt 4,.L412
		.L373:
		.LVL381:
		.LBB469:
		.LBB470:
				li 3,42
				bl _imp_printsymbol
		.LVL382:
		.L374:
		.LBE470:
		.LBE469:
  714        %if st # report %start
				cmpwi 7,29,0
				beq 7,.L375
  715           %if list <= 0 %and pos1 # 0 %start
				lis 30,.LANCHOR0@ha
				la 30,.LANCHOR0@l(30)
				li 9,0
				stw 9,296(30)
				lwz 9,7172(26)
				cmpwi 7,9,0
				bgt 7,.L378
  716              spaces(pos1+margin);  PRINTSTRING("      ! ")
				b .L374
		.L375:
				lwz 9,296(30)
				cmpwi 7,9,0
				beq 7,.L378
		.LVL383:
				lwz 3,300(30)
		.LBB471:
		.LBB472:
				add 3,9,3
		.LVL384:
				bl _imp_spaces
		.LVL385:
		.LBE472:
		.LBE471:
		.LBB473:
  717           %finish
				li 5,256
				addi 4,25,956
				addi 3,1,1308
				bl memcpy
		.LVL386:
				li 5,256
				addi 4,1,1308
				addi 3,1,284
				bl memcpy
		.LVL387:
				li 5,256
				addi 4,1,284
				addi 3,1,1564
				bl memcpy
		.LVL388:
		.LBE473:
		.LBB474:
		.LBB475:
				li 5,256
				addi 4,1,1564
				addi 3,1,16
				bl memcpy
		.LVL389:
				addi 3,1,16
				bl _imp_printstring
		.LVL390:
				b .L378
		.L408:
				li 5,256
				addi 4,1,540
				addi 3,1,1820
				bl memcpy
		.LVL391:
		.LBE475:
		.LBE474:
		.LBB476:
		.LBB477:
				li 5,256
				addi 4,1,1820
				addi 3,1,16
				bl memcpy
		.LVL392:
				addi 3,1,16
				bl _imp_printstring
		.LVL393:
				b .L377
		.LVL394:
		.L409:
		.LDL22:
		.L396:
		.LBE477:
		.LBE476:
  718        %finish %else %start
  719           PRINTSTRING(include file) %if include # 0
				lwz 9,308(30)
				cmpwi 7,9,0
				bne 7,.L408
		.L377:
  720           write(lines, 4);  printsymbol(csym);  space
				li 4,4
				lwz 3,184(30)
				bl _imp_writeint
		.LVL369:
		.LBB457:
		.LBB458:
				lbz 3,7183(26)
				bl _imp_printsymbol
		.LVL370:
		.LBE458:
		.LBE457:
		.LBB459:
		.LBB460:
				bl _imp_space
		.LVL371:
		.L376:
		.L378:
		.LBE460:
		.LBE459:
		.LBB461:
  721        %finish
				lis 26,.LANCHOR1@ha
				la 26,.LANCHOR1@l(26)
		.LBB443:
		.LBB444:
  722        ->fm(n) %if -5 <= n <= 22
  723        PRINTSTRING("fault");  write(n, 2);              ->ps
				li 5,256
				addi 4,25,1324
				addi 3,1,1308
				bl memcpy
		.LVL372:
				li 5,256
				addi 4,1,1308
				addi 3,1,796
				bl memcpy
		.LVL373:
				li 5,256
				addi 4,1,796
				addi 3,1,2076
				bl memcpy
		.LVL374:
		.LBE462:
		.LBB463:
		.LBB464:
				li 5,256
				addi 4,1,2076
				addi 3,1,16
				bl memcpy
		.LVL375:
				addi 3,1,16
				bl _imp_printstring
		.LVL376:
		.LBE464:
		.LBE463:
  724
				li 4,2
				mr 3,27
				bl _imp_writeint
		.LVL377:
		.LDL20:
		.LBB465:
		.LBB451:
  725 fm(-5):PRINTSTRING("Dubious statement");  dubious = 0;  ->psd
  726 fm(-4):PRINTSTRING("Non-local")
  727        pos1 = for warn;  for warn = 0;                  ->ps
				addi 9,27,5
				cmplwi 7,9,27
				ble 7,.L409
		.L379:
		.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
				cmpwi 7,29,2
				beq 7,.L411
  761        st = listing
				li 29,2
		.LVL379:
		.L391:
		.LBB468:
		.LBB442:
				stw 29,_imp_OutStream@l(20)
				mulli 9,29,276
				add 9,24,9
				lwz 9,4(9)
				stw 9,_imp_OutFile@l(21)
				mr 3,22
				bl check_outstream
		.LVL380:
		.LBE442:
		.LBE468:
  762     %repeat
  763     %if n >= 0 %start
				cmpwi 7,27,0
				bge 7,.L417
		.L393:
		.L394:
  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
				lwz 9,60(18)
				stw 9,56(18)
  781     %IF list <= 0 %AND sym # nl %START
				lis 9,.LANCHOR1+7172@ha
				lwz 9,.LANCHOR1+7172@l(9)
				cmpwi 7,9,0
				bgt 7,.L369
  782        error margin = column
				lis 9,.LANCHOR1+6888@ha
				lwz 10,.LANCHOR1+6888@l(9)
				cmpwi 7,10,10
				beq 7,.L369
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				lwz 8,288(9)
				stw 8,312(9)
  783        error sym = sym;  sym = nl
				stw 10,316(9)
  784     %FINISH
				lis 9,.LANCHOR1+6888@ha
				li 10,10
				stw 10,.LANCHOR1+6888@l(9)
				b .L369
		.L417:
		.LVL414:
		.LBB479:
		.LBB480:
				li 3,0
				bl exit
		.LVL415:
		.L413:
		.LBE480:
		.LBE479:
		.LBB481:
  785 %END
  786
  787    dmin = dmin-1;  dict(dmin) = -1;            !end marker for starts & cycles
				addi 8,5,-1
				stw 8,348(1)
  788    abandon(2) %IF dmax = dmin
				addi 9,5,13414
				slwi 9,9,1
				add 9,11,9
				li 7,-1
				sth 7,4(9)
		.LVL916:
				cmpw 7,10,8
				beq 7,.L937
		.LVL917:
		.L899:
  789
				li 3,2
				bl ABANDON.7167
		.LVL920:
				b .L899
		.L938:
  790    %IF list > 0 %AND level > 0 %START
				lis 9,.LANCHOR1+7172@ha
				lwz 9,.LANCHOR1+7172@l(9)
				cmpwi 7,9,0
				ble 7,.L900
  791       write(lines, 5);  spaces(level*3-1)
				lis 9,_imp_current_file@ha
				lwz 4,_imp_current_file@l(9)
				cmpwi 7,4,0
				beq 7,.L413
				addi 3,1,1308
				bl _imp_c2istr
		.LVL395:
		.L398:
				lis 9,_imp_current_line@ha
				lwz 31,_imp_current_line@l(9)
				cmpwi 7,31,0
				bne 7,.L399
				li 31,791
		.L399:
				li 5,256
				addi 4,1,1308
				addi 3,1,16
				bl memcpy
		.LVL396:
				li 9,729
				stw 9,8(1)
				lis 10,.LC77@ha
				la 10,.LC77@l(10)
				mr 9,27
				lis 8,.LC82@ha
				la 8,.LC82@l(8)
				mr 7,27
				li 6,2
				li 5,8
				mr 4,31
				addi 3,1,16
				crxor 6,6,6
				bl _signal_eventf
		.LVL397:
		.L395:
		.L369:
				li 5,256
				lis 4,.LANCHOR2@ha
				la 4,.LANCHOR2@l(4)
				addi 3,1,1308
				bl memcpy
		.LVL416:
				li 5,256
				addi 4,1,1308
				addi 3,1,1052
				bl memcpy
		.LVL417:
		.LBE481:
				li 5,256
				addi 4,1,1052
				addi 3,1,1308
				bl memcpy
		.LVL418:
				b .L398
		.LVL419:
		.L414:
				lwz 9,356(1)
				cmpwi 7,9,0
				bgt 7,.L938
		.L900:
				li 4,5
				lis 9,.LANCHOR0+184@ha
				lwz 3,.LANCHOR0+184@l(9)
				bl _imp_writeint
		.LVL921:
  792       %IF block tag = 0 %START
				lwz 9,2332(1)
				lwz 10,-28680(2)
				xor. 9,9,10
				li 10,0
				bne 0,.L414
				lwz 0,2404(1)
				lwz 12,2340(1)
				mtlr 0
				lwz 18,2344(1)
				lwz 19,2348(1)
				lwz 20,2352(1)
				lwz 21,2356(1)
				lwz 22,2360(1)
				lwz 23,2364(1)
				lwz 24,2368(1)
				lwz 25,2372(1)
				lwz 26,2376(1)
				lwz 27,2380(1)
		.LVL398:
				lwz 28,2384(1)
				lwz 29,2388(1)
		.LVL399:
				lwz 30,2392(1)
				lwz 31,2396(1)
				mtcrf 8,12
				addi 1,1,2400
				blr
		.LVL400:
		.L410:
		.L381:
		.LBB478:
		.LBB452:
		.LBB445:
		.LBB446:
				bl _imp_space
		.LVL401:
		.LBE446:
		.LBE445:
				bl __stack_chk_fail
		.LVL420:
		.LFE192:
				.align 2
		POPLABEL.8331:
		.LFB221:
				lwz 3,356(1)
				mulli 3,3,3
		.LBB709:
		.LBB710:
				addi 3,3,-1
		.LVL922:
				bl _imp_spaces
		.LVL923:
		.LBE710:
		.LBE709:
				lwz 9,320(1)
				cmpwi 7,9,0
				bne 7,.L901
		.LBB711:
  793          printstring("Begin")
				li 5,256
				lis 4,.LANCHOR2@ha
				la 4,.LANCHOR2@l(4)
				addi 4,4,5400
				addi 3,1,1660
				bl memcpy
		.LVL924:
				li 5,256
				addi 4,1,1660
				addi 3,1,380
				bl memcpy
		.LVL925:
				li 5,256
				addi 4,1,380
				addi 3,1,1148
				bl memcpy
		.LVL926:
		.LBE711:
		.LBB712:
		.LBB713:
				li 5,256
				addi 4,1,1148
				addi 3,1,16
				bl memcpy
		.LVL927:
				addi 3,1,16
				bl _imp_printstring
		.LVL928:
		.L902:
		.LBE713:
		.LBE712:
		.LBB714:
		.LBB715:
				bl _imp_newline
		.LVL929:
				b .L900
		.L901:
		.LBE715:
		.LBE714:
		.LBB716:
  794       %FINISH %ELSE %START
  795          printstring("Procedure ");  print ident(block tag, 0)
				li 5,256
				lis 4,.LANCHOR2@ha
				la 4,.LANCHOR2@l(4)
				addi 4,4,5656
				addi 3,1,1660
				bl memcpy
		.LVL930:
				li 5,256
				addi 4,1,1660
				addi 3,1,636
				bl memcpy
		.LVL931:
				li 5,256
				addi 4,1,636
				addi 3,1,1404
				bl memcpy
		.LVL932:
		.LBE716:
		.LBB717:
		.LBB718:
				li 5,256
				addi 4,1,1404
				addi 3,1,16
				bl memcpy
		.LVL933:
				addi 3,1,16
				bl _imp_printstring
		.LVL934:
		.LBE718:
		.LBE717:
  796       %FINISH
				mr 11,30
				li 4,0
				lwz 3,320(1)
				bl PRINTIDENT.7148
		.LVL935:
				b .L902
		.L939:
				stw 25,1940(1)
				stw 28,1952(1)
  797       newline
  798    %FINISH
  799
  800    !deal with procedure definition (parameters)
  801
  802    %IF block tag # 0 %START;                   !proc
				lwz 9,320(1)
				cmpwi 7,9,0
				bne 7,.L939
		.L903:
  803       analyse;  compile %IF ss # 0
				addi 11,1,308
				bl ANALYSE.7258
		.LVL936:
  804
				lis 9,.LANCHOR0+624@ha
				lwz 9,.LANCHOR0+624@l(9)
				cmpwi 7,9,0
				bne 7,.L940
		.L904:
  805       %IF block otype # 0 %START;              !external-ish
				cmpwi 7,29,0
				beq 7,.L908
				addi 11,1,308
				bl COMPILE.7260
		.LVL941:
				b .L904
		.L941:
  806          %IF bflags&spec = 0 %START;           !definition
				lwz 9,324(1)
				lhz 9,0(9)
				andi. 9,9,0x1
				bne 0,.L908
  807             %IF progmode <= 0 %AND level = 1 %THEN progmode = -1 %C
				lis 9,.LANCHOR0+644@ha
				lwz 9,.LANCHOR0+644@l(9)
				cmpwi 7,9,0
				bgt 7,.L906
  808                                              %ELSE fault(7)
				lwz 9,356(1)
				cmpwi 7,9,1
				beq 7,.L941
		.L906:
  809          %FINISH
				lis 9,.LANCHOR0+644@ha
				li 10,-1
				stw 10,.LANCHOR0+644@l(9)
  810       %FINISH
				b .L908
		.LVL942:
		.L912:
		.LBB729:
		.LBB727:
		.LBB725:
		.LBB723:
  811
  812       new app = gapp;                          !generate app grammar
				addi 11,1,308
				li 3,7
				bl FAULT.7277
		.LVL937:
		.L905:
		.L907:
		.L908:
		.LBB719:
		.LBB720:
  813       %IF spec given # 0 %START;               !definition after spec
				lis 9,.LANCHOR0+268@ha
				lwz 9,.LANCHOR0+268@l(9)
				cmpwi 7,9,0
				beq 7,.L918
  814          fault(6) %IF new app # block app;     !different from spec
				lwz 9,212(31)
				cmpw 7,9,29
				beq 7,.L918
  815       %FINISH
				addi 11,1,308
				li 3,6
				bl FAULT.7277
		.LVL959:
		.L917:
		.L918:
  816       block app = new app;                     !use the latest
				stw 29,212(31)
  817
  818       %IF level < 0 %START;                    !not procedure definition
				lwz 9,356(1)
				cmpwi 7,9,0
				blt 7,.L944
				lwz 25,1940(1)
				lwz 28,1952(1)
				b .L919
		.LVL960:
		.L943:
		.LBB730:
		.LBB728:
  819          delete names(0)
				addi 11,1,308
				li 3,0
				bl DELETENAMES.7256
		.LVL963:
  820          %RETURN
				lwz 25,1940(1)
				lwz 28,1952(1)
				b .L898
		.L946:
  821       %FINISH
  822    %FINISH %ELSE %START
  823       open = 0;                                !can return from a block?
				li 9,0
				stw 9,328(1)
		.LVL918:
		.L919:
  824    %FINISH
  825
  826    %CYCLE
  827       analyse
				addi 11,1,308
				bl ANALYSE.7258
		.LVL965:
  828       %CONTINUE %IF ss = 0
				lis 31,.LANCHOR0@ha
				la 31,.LANCHOR0@l(31)
				b .L921
		.LVL919:
		.L937:
				lwz 9,624(31)
				cmpwi 7,9,0
				beq 7,.L921
		.L922:
  829       compile
				addi 11,1,308
				bl COMPILE.7260
		.LVL966:
  830       fault(-5) %IF dubious # 0
				lwz 9,636(31)
				cmpwi 7,9,0
				bne 7,.L946
		.L923:
  831       flush buffer %IF bp >= 128
				addi 11,1,308
				li 3,-5
				bl FAULT.7277
		.LVL964:
				b .L923
		.L924:
				lwz 9,0(31)
				cmpwi 7,9,127
				ble 7,.L924
  832       %IF sstype > 0 %START;                 !block in or out
				lwz 9,620(31)
				cmpwi 7,9,0
				bgt 7,.L945
		.L921:
				mr 11,30
				bl FLUSHBUFFER.7135
		.LVL967:
				b .L924
		.L945:
  833          %EXIT %IF sstype = 2;               !out
				cmpwi 7,9,2
				beq 7,.L926
		.L927:
  834          compile block(spec mode, block x, dmin, tmax, id)
				mr 11,30
				lwz 7,352(1)
				lwz 6,360(1)
				lwz 5,348(1)
				lwz 4,648(31)
				lwz 3,632(31)
				bl COMPILEBLOCK.7251
		.LVL968:
  835          %EXIT %IF ss < 0;                   !endofprogram
				lwz 9,624(31)
				cmpwi 7,9,0
				bge 7,.L921
		.L926:
  836       %FINISH
  837    %REPEAT
  838    %IF list > 0 %AND level > 0 %START
				lis 9,.LANCHOR1+7172@ha
				lwz 9,.LANCHOR1+7172@l(9)
				cmpwi 7,9,0
				ble 7,.L929
  839       write(lines, 5);  spaces(level*3-1)
				lwz 9,356(1)
				cmpwi 7,9,0
				bgt 7,.L947
		.L929:
				li 4,5
				lis 9,.LANCHOR0+184@ha
				lwz 3,.LANCHOR0+184@l(9)
				bl _imp_writeint
		.LVL970:
  840       printstring("End")
				lwz 3,356(1)
				mulli 3,3,3
		.LBB731:
		.LBB732:
				addi 3,3,-1
		.LVL971:
				bl _imp_spaces
		.LVL972:
		.LBE732:
		.LBE731:
		.LBB733:
				li 5,256
				lis 4,.LANCHOR2@ha
				la 4,.LANCHOR2@l(4)
				addi 4,4,5976
				addi 3,1,1660
				bl memcpy
		.LVL973:
				li 5,256
				addi 4,1,1660
				addi 3,1,892
				bl memcpy
		.LVL974:
				li 5,256
				addi 4,1,892
				addi 3,1,1660
				bl memcpy
		.LVL975:
		.LBE733:
		.LBB734:
		.LBB735:
				li 5,256
				addi 4,1,1660
				addi 3,1,16
				bl memcpy
		.LVL976:
				addi 3,1,16
				bl _imp_printstring
		.LVL977:
		.LBE735:
		.LBE734:
		.LBB736:
		.LBB737:
				bl _imp_newline
		.LVL978:
				b .L929
		.L948:
				stw 22,1928(1)
				stw 23,1932(1)
				stw 24,1936(1)
				stw 25,1940(1)
				stw 26,1944(1)
				stw 27,1948(1)
				stw 28,1952(1)
		.LBE737:
		.LBE736:
  841       newline
  842    %FINISH
  843    delete names(0)
				addi 11,1,308
				li 3,0
				bl DELETENAMES.7256
		.LVL969:
		.L898:
  844    %RETURN
  845
  846    %INTEGERFN gapp;                            !generate app grammar (backwards)
				addi 9,1,1968
				stw 9,304(1)
  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
				lis 9,.LANCHOR0+344@ha
				lwz 25,.LANCHOR0+344@l(9)
				lwz 28,360(1)
				cmpw 7,25,28
				beq 7,.L909
				stw 22,1928(1)
				stw 23,1932(1)
				stw 24,1936(1)
				stw 26,1944(1)
				stw 27,1948(1)
		.L910:
  854
				li 29,0
		.LVL938:
  855       p = gmax1;  link = 0;  t = tmax
				li 9,719
				stw 9,300(1)
  856
				li 9,0
				stw 9,296(1)
		.LVL939:
		.LBB721:
		.LBB722:
  857       %CYCLE
  858          v == tag(t);  t = t-1
				lwz 29,372(1)
		.LVL949:
  859          class(v);                             !deduce class from tag
				mr 28,27
		.LVL948:
		.L911:
				addi 27,28,-1
		.LVL950:
		.LBB726:
		.LBB724:
  860          %IF c < 0 %START;                     !insert %PARAM
				lwz 9,284(1)
				cmpwi 7,9,0
				blt 7,.L942
		.LVL945:
		.L913:
  861             c = -c
				neg 9,9
				stw 9,284(1)
  862             set cell(196, tp)
				addi 11,1,284
				lwz 4,288(1)
				li 3,196
				bl SETCELL.7457
		.LVL956:
  863             tp = -1
				li 24,-1
				b .L911
		.LVL940:
		.L940:
		.LBE720:
		.LBE719:
				stw 24,288(1)
				b .L913
		.L914:
  864          %FINISH
  865          set cell(c, tp)
				addi 11,1,284
				lwz 4,288(1)
				lwz 3,284(1)
				bl SETCELL.7457
		.LVL946:
  866          %EXIT %IF t = local;                  !end of parameters
				cmpw 7,25,27
				beq 7,.L914
		.L915:
  867          set cell(comma, -1);                  !add the separating comma
				addi 11,1,284
				mr 4,24
				li 3,140
				bl SETCELL.7457
		.LVL947:
  868       %REPEAT
  869       abandon(3) %IF gmax > gmin
				lis 9,.LANCHOR1@ha
				la 10,.LANCHOR1@l(9)
				lwz 9,.LANCHOR1@l(9)
				lwz 10,7032(10)
				cmpw 7,9,10
				bgt 7,.L943
		.L916:
  870
				lwz 11,372(1)
				li 3,3
				bl ABANDON.7167
		.LVL961:
				b .L916
		.LVL962:
		.L944:
		.LBE728:
		.LBE730:
  871       %RESULT = link
				lwz 29,296(1)
		.LVL957:
				lwz 22,1928(1)
				lwz 23,1932(1)
				lwz 24,1936(1)
				lwz 26,1944(1)
				lwz 27,1948(1)
		.LVL958:
		.L909:
		.LBE727:
		.LBE729:
  872
  873       %ROUTINE set cell(%INTEGER g, tt)
		.LVL8:
				stwu 1,-16(1)
  874
  875          !add the cell to the grammar, combining common tails
  876
  877          %WHILE p # gmax %CYCLE
  878             p = p+1
				lis 9,.LANCHOR1@ha
				lwz 5,.LANCHOR1@l(9)
				lwz 10,16(11)
				cmpw 7,5,10
				beq 7,.L6
				addi 8,10,1
				stw 8,16(11)
  879             %IF glink(p) = link %AND gram(p) = g %START
				la 6,.LANCHOR1@l(9)
				slwi 9,8,1
				add 9,6,9
				lha 9,4(9)
				lwz 7,12(11)
				cmpw 7,9,7
				bne 7,.L11
				slwi 9,8,1
				add 9,6,9
				lha 9,3446(9)
				cmpw 7,9,3
				bne 7,.L11
				blt 0,.L8
  880                %IF tt < 0 %OR (gram(p+1) = tt %AND glink(p+1)=ap) %START
				cmpwi 0,4,0
		.L11:
  881                   link = p;                    !already there
				addi 10,10,2
				slwi 9,10,1
				add 9,6,9
				lha 9,3446(9)
				cmpw 7,9,4
				bne 7,.L11
				stw 8,12(11)
				b .L5
		.L6:
  882                   %RETURN
				slwi 10,10,1
				add 10,6,10
				lha 9,4(10)
				lwz 10,8(11)
				cmpw 7,9,10
				bne 7,.L11
		.L8:
  883                %FINISH
  884             %FINISH
  885          %REPEAT
  886
  887          !add a new cell
  888
  889          gmax = gmax+1
				addi 9,5,1
				lis 8,.LANCHOR1@ha
				la 10,.LANCHOR1@l(8)
				stw 9,.LANCHOR1@l(8)
  890          gram(gmax) = g
				slwi 8,9,1
				add 10,10,8
				sth 3,3446(10)
  891          glink(gmax) = link
				lwz 8,12(11)
				sth 8,4(10)
  892          link = gmax
				stw 9,12(11)
  893
  894          %IF tt >= 0 %START;             ! set type cell
				cmpwi 7,4,0
				blt 7,.L10
  895             gmax = gmax+1
				addi 5,5,2
				lis 10,.LANCHOR1@ha
				la 9,.LANCHOR1@l(10)
				stw 5,.LANCHOR1@l(10)
  896             gram(gmax) = tt
				slwi 5,5,1
				add 5,9,5
				sth 4,3446(5)
  897             glink(gmax) = ap
				lwz 9,8(11)
				sth 9,4(5)
		.L10:
  898          %FINISH
  899
  900          p = gmax
				lis 9,.LANCHOR1@ha
				lwz 9,.LANCHOR1@l(9)
				stw 9,16(11)
		.L5:
  901       %END
  902
				addi 1,1,16
				blr
		.LFE195:
				.align 2
		DEFLAB.8170:
		.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
				lis 26,.LANCHOR2@ha
				la 26,.LANCHOR2@l(26)
				addi 26,26,5912
				li 5,64
				mr 4,26
				addi 3,1,1660
				bl memcpy
		.LVL951:
  910          err,1764, 247, err(4), -rtp, -fnp, -mapp, -predp, err, 214,
  911          err, 229, err
  912          %INTEGER tags, type, form
  913          ap = 0
				li 23,0
				stw 23,292(1)
				slwi 10,28,4
				add 10,29,10
  914          tags = v_flags
				lha 9,220(10)
		.LVL952:
  915          type = tags>>4&7;  form = tags&15
				rlwinm 7,9,28,29,31
		.LVL953:
  916          tp = v_format<<3!type
				rlwinm 9,9,0,28,31
		.LVL954:
				lwz 8,216(10)
				slwi 8,8,3
				or 8,8,7
				stw 8,288(1)
  917          c = class map(form)
				slwi 8,9,2
				addi 6,1,1920
				add 8,6,8
				lwz 8,-260(8)
				stw 8,284(1)
  918          c = 208 %AND tp = 0 %IF type = 0 %AND form = 2;  !%NAME
				cmpwi 7,7,0
				bne 7,.L912
  919          ap = v_app %IF tags&parameters # 0
				cmpwi 7,9,2
				bne 7,.L912
  920       %END
				li 22,208
		.LBE722:
		.LBE721:
				lwz 9,212(10)
		.LVL943:
				stw 9,292(1)
		.LDL49:
		.LVL944:
		.LBE723:
		.LBE725:
				stw 22,284(1)
  921    %END
				stw 23,288(1)
				b .L912
		.LVL955:
		.L942:
		.LBE724:
		.LBE726:
  922
  923 %ROUTINE delete names(%INTEGER quiet)
		.LVL732:
				stwu 1,-48(1)
				mfcr 12
				stw 12,28(1)
  924    %INTEGER flags
  925    %RECORD(tagfm)%NAME tx
  926    %WHILE tmax > tbase %CYCLE
  927       x = tmax;  tmax = tmax-1
				lwz 9,52(11)
				lwz 10,56(11)
				cmpw 7,9,10
				ble 7,.L794
				mflr 0
				stw 0,52(1)
				stw 28,32(1)
				stw 29,36(1)
				stw 30,40(1)
				stw 31,44(1)
				mr 31,11
				lis 29,.LANCHOR0@ha
				la 29,.LANCHOR0@l(29)
				lwz 9,52(31)
				lwz 10,56(31)
				cmpw 7,9,10
				ble 7,.L801
		.L798:
				stw 9,208(29)
  928       tx == tag(x)
				addi 10,9,-1
				stw 10,52(31)
		.LVL734:
				slwi 9,9,4
		.LVL735:
				lwz 30,64(31)
				add 30,30,9
		.LVL736:
  929       flags = tx_flags
  930       fault(20) %IF flags&spec # 0 %and flags&own bit = 0
  931                {spec with no definition & not external}
				lhz 9,220(30)
				andi. 9,9,0x1
				bne 0,.L797
  932       %IF flags&used bit = 0 %AND level >= 0 %AND list <= 0 %START
				mr 11,31
				li 3,20
				bl FAULT.7277
		.LVL737:
  933          fault(-3) %IF quiet = 0;          !unused
				cmpwi 4,3,0
				b .L798
		.L796:
		.LVL733:
		.L797:
				lwz 9,48(31)
				cmpwi 7,9,0
				blt 7,.L797
				bne 4,.L797
  934       %FINISH
				lis 28,.LANCHOR1@ha
				la 28,.LANCHOR1@l(28)
				lwz 9,7172(28)
				cmpwi 7,9,0
				bgt 7,.L797
				mr 11,31
				li 3,-3
				bl FAULT.7277
		.LVL738:
				b .L797
		.L795:
		.L801:
				lwz 28,32(1)
				lwz 29,36(1)
				lwz 30,40(1)
				lwz 31,44(1)
				lwz 0,52(1)
				mtlr 0
		.L794:
  935       dict(tx_text) = tx_link
				lhz 8,226(30)
				lwz 10,64(31)
				lha 9,224(30)
				addi 9,9,13415
				slwi 9,9,1
				add 9,10,9
				sth 8,4(9)
		.LDL36:
  936    %REPEAT
  937 %END
  938
				lwz 12,28(1)
				mtcrf 8,12
				addi 1,1,48
				blr
		.LFE197:
				.align 2
		ANALYSE.7258:
		.LFB198:
  939 %ROUTINE analyse
				stwu 1,-5984(1)
				mflr 0
				stw 0,5988(1)
				stw 22,5944(1)
				stw 23,5948(1)
				stw 24,5952(1)
				stw 25,5956(1)
				stw 26,5960(1)
				stw 27,5964(1)
				stw 28,5968(1)
				stw 29,5972(1)
				stw 30,5976(1)
				stw 31,5980(1)
				mr 29,11
				lwz 9,-28680(2)
				stw 9,5932(1)
				li 9,0
				addi 9,1,5984
				stw 9,296(1)
				stw 11,292(1)
  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
				addi 25,1,288
		.LBB623:
				addi 9,1,5984
				stw 9,284(1)
				stw 25,280(1)
  953       !diagnostic trace routine (diagnose&1 # 0)
  954       %INTEGER a
  955       %ROUTINE show(%INTEGER a)
		.LVL37:
				stwu 1,-800(1)
				mflr 0
				stw 0,804(1)
				lwz 9,-28680(2)
				stw 9,796(1)
				li 9,0
		.LVL38:
		.LBB316:
  956          %IF 0 < a < 130 %START
  957             space
  958             printstring(text(a))
  959          %FINISH %ELSE write(a, 3)
				addi 9,3,-1
				cmplwi 7,9,128
				bgt 7,.L41
		.LBE316:
		.LBB317:
		.LBB318:
				bl _imp_space
		.LVL39:
				li 5,256
				addi 4,1,284
				addi 3,1,540
				bl memcpy
		.LVL40:
		.LBE318:
		.LBE317:
		.LBB319:
		.LBB320:
				li 5,256
				addi 4,1,540
				addi 3,1,16
				bl memcpy
		.LVL41:
				addi 3,1,16
				bl _imp_printstring
		.LVL42:
				b .L40
		.LVL43:
		.L41:
		.LBE320:
		.LBE319:
  960       %END
  961       %OWNINTEGER la1=0, la2=0, lsa=0, lt=0
				li 4,3
				bl _imp_writeint
		.LVL44:
		.L42:
		.L40:
				lwz 9,796(1)
				lwz 10,-28680(2)
				xor. 9,9,10
				li 10,0
				bne 0,.L45
				lwz 0,804(1)
				mtlr 0
				addi 1,1,800
				blr
		.L45:
				bl __stack_chk_fail
		.LVL45:
		.LFE200:
				.align 2
		PRINTIDENT.7148:
		.LFB187:
  962       newline %IF mon pos # pos %AND sym # nl
				lwz 9,688(31)
				lwz 10,260(31)
				cmpw 7,9,10
				beq 7,.L828
  963       mon pos = pos
				lwz 9,6888(26)
				cmpwi 7,9,10
				bne 7,.L891
		.L828:
				lwz 9,260(31)
				stw 9,688(31)
  964       write(g, 3)
				li 4,3
				lwz 3,680(31)
				bl _imp_writeint
		.LVL838:
		.LBB630:
		.LBB631:
				bl _imp_space
		.LVL839:
				li 5,256
				addi 4,1,5164
				addi 3,1,4908
				bl memcpy
		.LVL840:
		.LBE631:
		.LBE630:
		.LBB632:
		.LBB633:
				li 5,256
				addi 4,1,4908
				addi 3,1,16
				bl memcpy
		.LVL841:
				addi 3,1,16
				bl _imp_printstring
		.LVL842:
		.LBE633:
		.LBE632:
		.LBB634:
		.LBB635:
				li 3,34
				bl _imp_printsymbol
		.LVL843:
		.LDL41:
		.LBE635:
		.LBE634:
  965       space
  966       printstring(text(class))
  967       printsymbol('"') %IF gg&trans bit # 0
  968       a = gg>>8&15
				lwz 3,656(31)
		.LVL844:
  969       %IF a # 0 %START
				rlwinm. 30,3,24,28,31
				bne 0,.L892
		.LVL845:
		.L829:
  970          printsymbol('{')
  971          write(a, 0)
				li 4,0
				mr 3,30
				bl _imp_writeint
		.LVL835:
		.LBB628:
		.LBB629:
				li 3,125
				bl _imp_printsymbol
		.LVL836:
				b .L829
		.LVL837:
		.L893:
		.LBE629:
		.LBE628:
  972          printsymbol('}')
  973       %FINISH
  974       %IF atom1 # la1 %OR atom2 # la2 %OR lsa # subatom %C
				lwz 9,240(31)
				lwz 10,692(31)
				cmpw 7,9,10
				bne 7,.L830
  975                       %OR lt # type %START
				lwz 9,248(31)
				lwz 10,696(31)
				cmpw 7,9,10
				beq 7,.L893
		.L830:
		.LBB636:
  976          printstring(" [")
				lis 24,.LANCHOR2@ha
				la 24,.LANCHOR2@l(24)
				addi 24,24,2692
		.LVL751:
		.L816:
		.LBE623:
		.LBE622:
		.LBE621:
				lwz 9,700(31)
				lwz 10,220(31)
				cmpw 7,9,10
				bne 7,.L830
				li 5,256
				mr 4,24
				addi 3,1,5420
				bl memcpy
		.LVL846:
				li 5,256
				addi 4,1,5420
				addi 3,1,5676
				bl memcpy
		.LVL847:
				li 5,256
				addi 4,1,5676
				addi 3,1,4652
				bl memcpy
		.LVL848:
		.LBE636:
		.LBB637:
		.LBB638:
				li 5,256
				addi 4,1,4652
				addi 3,1,16
				bl memcpy
		.LVL849:
				addi 3,1,16
				bl _imp_printstring
		.LVL850:
		.LBE638:
		.LBE637:
  977          la1 = atom1
				lwz 9,704(31)
				lwz 10,236(31)
				cmpw 7,9,10
				bne 7,.L830
				b .L831
		.L835:
		.LBE643:
		.LBE682:
				lwz 3,240(31)
				stw 3,692(31)
  978          show(la1)
				addi 11,1,280
				bl SHOW.7533
		.LVL851:
  979          la2 = atom2
				lwz 3,248(31)
				stw 3,696(31)
  980          show(la2)
				addi 11,1,280
				bl SHOW.7533
		.LVL852:
  981          lsa = subatom
				lwz 3,220(31)
				stw 3,700(31)
  982          write(lsa, 3)
				li 4,3
				bl _imp_writeint
		.LVL853:
  983          lt = type
				lwz 3,236(31)
				stw 3,704(31)
  984          write(lt, 5)
				li 4,5
				bl _imp_writeint
		.LVL854:
		.LBB639:
		.LBB640:
				li 3,93
				bl _imp_printsymbol
		.LVL855:
		.L831:
		.LBE640:
		.LBE639:
		.LBB641:
		.LBB642:
				bl _imp_newline
		.LVL856:
		.LDL42:
		.LBE642:
		.LBE641:
		.LBE644:
		.LBE683:
  985          printsymbol(']')
  986       %FINISH
  987       newline
  988    %END
  989
  990 %ROUTINE get sym
				stwu 1,-16(1)
				mflr 0
				stw 0,20(1)
		.LVL211:
		.LBB357:
		.LBB358:
				lis 3,.LANCHOR1@ha
				la 3,.LANCHOR1@l(3)
				addi 3,3,6888
				bl _imp_readsymbol
		.LVL212:
		.LBE358:
		.LBE357:
  991    readsymbol(sym)
  992    pos = pos+1 %IF pos # 133
				lis 9,.LANCHOR0+260@ha
				lwz 9,.LANCHOR0+260@l(9)
				cmpwi 7,9,133
				beq 7,.L168
  993    char(pos) = sym
				addi 9,9,1
				lis 10,.LANCHOR0+260@ha
				stw 9,.LANCHOR0+260@l(10)
		.L168:
				lis 9,.LANCHOR1@ha
				la 9,.LANCHOR1@l(9)
				lbz 3,6891(9)
				lis 10,.LANCHOR0+260@ha
				lwz 10,.LANCHOR0+260@l(10)
				add 10,9,10
				stb 3,7036(10)
  994    printsymbol(sym) %IF list <= 0
				lwz 9,7172(9)
				cmpwi 7,9,0
				ble 7,.L171
		.L169:
  995    column = column+1
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				lwz 10,288(9)
				addi 10,10,1
				stw 10,288(9)
  996 %END
  997 %ROUTINE read sym
				lwz 0,20(1)
				mtlr 0
				addi 1,1,16
				blr
		.L171:
		.LVL213:
		.LBB359:
		.LBB360:
				bl _imp_printsymbol
		.LVL214:
				b .L169
		.LBE360:
		.LBE359:
		.LFE201:
				.align 2
		READSYM.7559:
		.LFB202:
				stwu 1,-1200(1)
				mflr 0
				stw 0,1204(1)
				stw 31,1196(1)
				mr 31,11
				lwz 9,-28680(2)
				stw 9,1180(1)
				li 9,0
  998    %owninteger Last = 0
  999 %CONSTBYTEINTEGERARRAY mapped(0:127) = %C
				li 5,128
				lis 4,.LANCHOR2@ha
				la 4,.LANCHOR2@l(4)
				addi 4,4,572
				addi 3,1,1052
				bl memcpy
		.LVL215:
 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
				lis 9,.LANCHOR1+6888@ha
				lwz 9,.LANCHOR1+6888@l(9)
				cmpwi 7,9,10
				bne 7,.L184
		.L174:
 1016 s1:   lines = lines+1
 1017       printsymbol(end mark) %if end mark # 0
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				lwz 10,184(9)
				addi 10,10,1
				stw 10,184(9)
				lwz 3,292(9)
				cmpwi 7,3,0
				bne 7,.L208
		.L175:
		.L176:
 1018 s11:  pos = 0;  pos1 = 0;  pos2 = 0;  margin = 0;  column = 0
 1019       Last = 0
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				li 10,0
				stw 10,260(9)
				stw 10,304(9)
 1020       end mark = 0
				stw 10,296(9)
				stw 10,292(9)
 1021       %IF list <= 0 %START
				stw 10,256(9)
				lis 9,.LANCHOR1+7172@ha
				lwz 9,.LANCHOR1+7172@l(9)
				cmpwi 7,9,0
				ble 7,.L209
		.L183:
 1022          %IF include # 0 %START
				stw 10,300(9)
				lis 9,.LANCHOR0+308@ha
				lwz 9,.LANCHOR0+308@l(9)
				cmpwi 7,9,0
				beq 7,.L178
		.LBB365:
 1023             printstring(" &");  write(lines, -4)
				stw 10,288(9)
				li 5,256
				lis 4,.LANCHOR2@ha
				la 4,.LANCHOR2@l(4)
				addi 4,4,700
				addi 3,1,284
				bl memcpy
		.LVL221:
				li 5,256
				addi 4,1,284
				addi 3,1,540
				bl memcpy
		.LVL222:
				li 5,256
				addi 4,1,540
				addi 3,1,796
				bl memcpy
		.LVL223:
		.LBE365:
		.LBB366:
		.LBB367:
				li 5,256
				addi 4,1,796
				addi 3,1,16
				bl memcpy
		.LVL224:
				addi 3,1,16
				bl _imp_printstring
		.LVL225:
		.LBE367:
		.LBE366:
 1024          %FINISH %ELSE  write(lines, 5)
				li 4,-4
				lis 9,.LANCHOR0+184@ha
				lwz 3,.LANCHOR0+184@l(9)
				bl _imp_writeint
		.LVL226:
		.L179:
 1025          csym = cont;  printsymbol(csym)
				lis 9,.LANCHOR1@ha
				la 9,.LANCHOR1@l(9)
				lwz 3,7176(9)
				stw 3,7180(9)
		.LVL227:
		.LBB368:
		.LBB369:
				rlwinm 3,3,0,0xff
				bl _imp_printsymbol
		.LVL228:
		.LBE369:
		.LBE368:
		.LBB370:
		.LBB371:
				bl _imp_space
		.LVL229:
		.LBE371:
		.LBE370:
 1026          space
				li 4,5
				lis 9,.LANCHOR0+184@ha
				lwz 3,.LANCHOR0+184@l(9)
				bl _imp_writeint
		.LVL232:
				b .L179
		.L213:
		.LVL233:
		.LBB374:
		.LBB375:
				rlwinm 3,3,0,0xff
				bl _imp_printsymbol
		.LVL234:
		.LBE375:
		.LBE374:
 1027          %IF error margin # 0 %START
				lis 9,.LANCHOR0+312@ha
				lwz 3,.LANCHOR0+312@l(9)
				cmpwi 7,3,0
				beq 7,.L183
				stw 30,1192(1)
 1028             lines = lines-1
				lis 30,.LANCHOR0@ha
				la 30,.LANCHOR0@l(30)
				lwz 9,184(30)
				addi 9,9,-1
				stw 9,184(30)
		.LVL230:
		.LBB372:
		.LBB373:
				bl _imp_spaces
		.LVL231:
		.LBE373:
		.LBE372:
 1029             spaces(error margin)
 1030             error margin = 0
				li 9,0
				stw 9,312(30)
 1031             %IF error sym # 0 %START
				lwz 3,316(30)
				cmpwi 7,3,0
				bne 7,.L213
		.L177:
		.L181:
		.L182:
				lwz 30,1192(1)
				b .L183
		.L178:
 1032                printsymbol(error sym)
 1033                pos = 1
				li 10,1
				stw 10,260(30)
 1034 !IMP80 BUG???
 1035 !!             char(1) = error sym
 1036                byteinteger(addr(char(0))+1) = error sym
				lwz 8,316(30)
		.LBB376:
		.LBB377:
				lis 10,.LANCHOR1@ha
				la 10,.LANCHOR1@l(10)
		.LBE377:
		.LBE376:
				stb 8,7037(10)
 1037                sym = error sym;  error sym = 0
				stw 8,6888(10)
 1038                ->s5
				li 10,0
				stw 10,316(30)
				lwz 30,1192(1)
				b .L180
		.L173:
		.L207:
				lwz 30,1192(1)
				b .L184
		.L210:
		.LVL235:
		.LBB378:
		.LBB379:
				bl _imp_printsymbol
		.LVL236:
				b .L186
		.L211:
		.LBE379:
		.LBE378:
 1039             %FINISH
 1040          %FINISH
 1041       %FINISH
 1042 s2:   symtype = 1
 1043    %FINISH
				lis 9,.LANCHOR0+320@ha
				li 10,1
				stw 10,.LANCHOR0+320@l(9)
		.L184:
		.LVL216:
		.LBB361:
		.LBB362:
				lis 3,.LANCHOR1@ha
				la 3,.LANCHOR1@l(3)
				addi 3,3,6888
				bl _imp_readsymbol
		.LVL217:
		.LBE362:
		.LBE361:
 1044 s3:readsymbol(sym)
 1045    pos = pos+1 %IF pos # 133
				lis 9,.LANCHOR0+260@ha
				lwz 9,.LANCHOR0+260@l(9)
				cmpwi 7,9,133
				beq 7,.L185
 1046    char(pos) = sym
				addi 9,9,1
				lis 10,.LANCHOR0+260@ha
				stw 9,.LANCHOR0+260@l(10)
		.L185:
				lis 9,.LANCHOR1@ha
				la 9,.LANCHOR1@l(9)
				lbz 3,6891(9)
				lis 10,.LANCHOR0+260@ha
				lwz 10,.LANCHOR0+260@l(10)
				add 10,9,10
				stb 3,7036(10)
 1047    printsymbol(sym) %IF list <= 0
				lwz 9,7172(9)
				cmpwi 7,9,0
				ble 7,.L210
		.L186:
 1048    column = column+1
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				lwz 10,288(9)
				addi 10,10,1
				stw 10,288(9)
		.L180:
 1049 s5:%IF sym # nl %START
 1050       Last = Sym
				lis 9,.LANCHOR1+6888@ha
				lwz 9,.LANCHOR1+6888@l(9)
				cmpwi 7,9,10
				beq 7,.L198
				lis 10,.LANCHOR0@ha
				la 10,.LANCHOR0@l(10)
				stw 9,304(10)
 1051       %RETURN %IF quote # 0;                     !dont alter strings
				lwz 10,324(10)
				cmpwi 7,10,0
				bne 7,.L172
		.L189:
 1052       sym = mapped(sym&127)
				rlwinm 9,9,0,25,31
				addi 10,1,1184
				add 9,10,9
				lbz 9,-132(9)
				lis 10,.LANCHOR1+6888@ha
				stw 9,.LANCHOR1+6888@l(10)
 1053       %IF sym <= 3 %START;                       !special symbol
				cmpwi 7,9,3
				bgt 7,.L190
 1054          ->s2 %IF sym = 0;                       !space (or dubious control)
				cmpwi 7,9,0
				beq 7,.L183
		.L191:
 1055          symtype = 2 %AND ->s3 %IF sym = 1;      !%
				cmpwi 7,9,1
				beq 7,.L211
		.L192:
 1056          cont = '+' %AND ->s11 %IF sym = 3;      !ff
				cmpwi 7,9,3
				beq 7,.L204
				stw 30,1192(1)
				lis 9,.LANCHOR0+320@ha
				li 10,2
				stw 10,.LANCHOR0+320@l(9)
 1057          !must be {
				b .L184
		.L204:
				lis 9,.LANCHOR1+7176@ha
				li 10,43
				stw 10,.LANCHOR1+7176@l(9)
 1058          %CYCLE
				b .L176
		.L190:
 1059             get sym
				bl GETSYM.7554
		.LVL218:
 1060             ->s3 %IF sym = '}'
				lis 30,.LANCHOR1@ha
				la 30,.LANCHOR1@l(30)
		.L193:
		.L194:
		.L195:
				lwz 9,6888(30)
				cmpwi 7,9,125
				beq 7,.L207
		.L196:
 1061             ->s4 %IF sym = nl
				cmpwi 7,9,10
				bne 7,.L193
				lwz 30,1192(1)
		.L187:
		.L198:
 1062          %REPEAT
 1063       %FINISH
 1064       key = kdict(sym)
				lwz 10,4(31)
				lwz 10,64(10)
				addi 8,9,12808
				slwi 8,8,1
				add 10,10,8
				lha 10,4(10)
				lis 8,.LANCHOR0+328@ha
				stw 10,.LANCHOR0+328@l(8)
 1065       %IF key&3 = 0 %AND symtype = 2 %START;            !keyword
				andi. 8,10,0x1
				bne 0,.L197
 1066          %IF sym = 'C' %AND nextsymbol = nl %START;     !%C...
				lis 8,.LANCHOR0+320@ha
				lwz 8,.LANCHOR0+320@l(8)
				cmpwi 7,8,2
				beq 7,.L214
		.L197:
				cmpwi 7,9,67
				bne 7,.L172
		.LBB380:
		.LBB381:
				bl _imp_nextsymbol
		.LVL237:
		.LBE381:
		.LBE380:
 1067             getsym;  cont = '+';  ->s1
				cmpwi 7,3,10
				bne 7,.L172
				bl GETSYM.7554
		.LVL238:
 1068          %FINISH
				lis 9,.LANCHOR1+7176@ha
				li 10,43
				stw 10,.LANCHOR1+7176@l(9)
 1069       %ELSE
				b .L174
		.L212:
				stw 30,1192(1)
 1070          symtype = key&3-2
				rlwinm 10,10,0,30,31
				addi 10,10,-2
				lis 9,.LANCHOR0+320@ha
				stw 10,.LANCHOR0+320@l(9)
				b .L172
		.L214:
 1071       %FINISH
 1072       %RETURN
 1073    %FINISH
 1074 s4:symtype = quote
 1075    ->S1 %if last = 0 %and Quote = 0
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				lwz 10,324(9)
				stw 10,320(9)
				lwz 9,304(9)
				cmpwi 7,9,0
				bne 7,.L199
 1076    Cont = '+'
				cmpwi 7,10,0
				beq 7,.L174
		.L199:
				lis 9,.LANCHOR1+7176@ha
				li 10,43
				stw 10,.LANCHOR1+7176@l(9)
		.L188:
		.L200:
		.L172:
 1077 %END
 1078
				lwz 9,1180(1)
				lwz 10,-28680(2)
				xor. 9,9,10
				li 10,0
				bne 0,.L212
				lwz 0,1204(1)
				mtlr 0
				lwz 31,1196(1)
				addi 1,1,1200
				blr
		.L208:
		.LVL219:
		.LBB363:
		.LBB364:
				rlwinm 3,3,0,0xff
				bl _imp_printsymbol
		.LVL220:
				b .L176
		.L209:
		.LBE364:
		.LBE363:
				bl __stack_chk_fail
		.LVL239:
		.LFE202:
				.align 2
		GET.7726:
		.LFB206:
 1079 %INTEGERFN format selected
 1080    format list = tag(format)_app;      !number of names
				lwz 10,12(28)
				lwz 10,4(10)
				slwi 9,9,4
				lwz 10,64(10)
				add 10,10,9
				lwz 9,212(10)
				lis 8,.LANCHOR0+212@ha
				stw 9,.LANCHOR0+212@l(8)
 1081    %IF format list < 0 %START;         !forward ref
				cmpwi 7,9,0
				blt 7,.L158
		.L117:
 1082       atom1 = error+22
				lis 9,.LANCHOR0+240@ha
				li 10,0
				ori 10,10,0x8016
				stw 10,.LANCHOR0+240@l(9)
				b .L99
		.L121:
		.LBE354:
		.LBE353:
 1083       %RESULT = 0
 1084    %FINISH
 1085    %IF sym = '_' %START
				lis 9,.LANCHOR1+6888@ha
				lwz 9,.LANCHOR1+6888@l(9)
				cmpwi 7,9,95
				bne 7,.L120
 1086       escape class = esc rec
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				li 8,255
				stw 8,244(9)
 1087       search base = tag(format)_format
				lwz 10,216(10)
				stw 10,200(9)
				b .L120
		.L158:
 1088    %FINISH
 1089    %RESULT = 1
 1090 %END
 1091
 1092 %ROUTINE code atom(%INTEGER target)
		.LVL251:
				stwu 1,-96(1)
				mflr 0
				stw 0,100(1)
				mfcr 12
				stw 25,68(1)
				stw 26,72(1)
				stw 27,76(1)
				stw 28,80(1)
				stw 29,84(1)
				stw 30,88(1)
				stw 31,92(1)
				stw 12,52(1)
				mr 27,3
				mr 30,11
				lwz 9,-28680(2)
				stw 9,44(1)
				li 9,0
				addi 9,1,96
				stw 9,40(1)
				stw 11,36(1)
 1093    %INTEGER dbase, da
 1094    %INTEGER base, n, mul, pend quote
 1095    %INTEGER j,k,l, pt
 1096
 1097    %ROUTINE lookup(%INTEGER d)
		.LVL138:
				stwu 1,-832(1)
				mflr 0
				stw 0,836(1)
				stw 25,804(1)
				stw 26,808(1)
				stw 27,812(1)
				stw 28,816(1)
				stw 29,820(1)
				stw 30,824(1)
				stw 31,828(1)
				mr 27,3
				mr 28,11
				lwz 9,-28680(2)
				stw 9,796(1)
				li 9,0
 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))
				lwz 9,12(11)
				lwz 9,4(9)
				lwz 3,64(9)
		.LVL139:
				lis 9,.LANCHOR1+6896@ha
				lwz 25,.LANCHOR1+6896@l(9)
				addi 25,25,13418
				slwi 25,25,1
				add 25,3,25
		.LVL140:
 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
				lwz 9,208(3)
				lis 26,0x66
				ori 26,26,0x3d85
				mullw 26,26,9
 1116                        ! we could fix this properly by a shift+add loop
 1117             !*******************************************************
 1118
 1119       k2 = k2>>(32-2*name bits)!1
				srwi 26,26,10
				ori 26,26,0x1
		.LVL141:
 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
				srwi 31,26,11
		.LVL142:
 1124       %CYCLE
 1125          newname = hash(k1)
				addi 9,31,10792
				slwi 9,9,1
				add 9,3,9
				lha 30,4(9)
				mr 29,30
		.LVL143:
				lwz 9,12(28)
				lwz 9,4(9)
				lwz 3,64(9)
				addi 9,31,10792
				slwi 9,9,1
				add 9,3,9
				lha 30,4(9)
				mr 29,30
		.LVL147:
 1126          %EXIT %IF newname = 0;                !not in
				cmpwi 7,30,0
				beq 7,.L100
		.L101:
				cmpwi 7,30,0
				bne 7,.L101
		.L100:
 1127          ->in %IF string(addr(dict(newname+1))) = string(new)
 1128          k1 = (k1+k2)&max names
				add 31,26,31
		.LVL145:
				rlwinm 31,31,0,21,31
		.LDL8:
		.LVL146:
 1129       %REPEAT
				addi 9,29,13418
				slwi 9,9,1
				mr 4,25
				add 3,3,9
				bl _imp_strcmp
		.LVL144:
				cmpwi 7,3,0
				beq 7,.L102
		.L103:
 1130
 1131       ! not found
 1132
 1133       spare names = spare names-1
				lis 10,.LANCHOR1@ha
				la 10,.LANCHOR1@l(10)
				lwz 9,6900(10)
				addi 9,9,-1
				stw 9,6900(10)
 1134       abandon(2) %IF spare names <= 0
				cmpwi 7,9,0
				ble 7,.L154
		.L104:
 1135       hash(k1) = dmax;                               !put it in
				lis 9,.LANCHOR1@ha
				la 9,.LANCHOR1@l(9)
				lwz 29,6896(9)
		.LVL148:
				lwz 10,12(28)
				lwz 10,4(10)
				lwz 10,64(10)
				addi 31,31,10792
		.LVL149:
				slwi 31,31,1
		.LVL150:
				add 31,10,31
				sth 29,4(31)
				mr 11,3
				li 3,2
				bl ABANDON.7167
		.LVL159:
				b .L104
		.L102:
 1136       dict(dmax) = -1
				lwz 10,12(28)
				lwz 10,4(10)
				lwz 10,64(10)
				addi 8,29,13415
				slwi 8,8,1
				add 10,10,8
				li 8,-1
				sth 8,4(10)
		.LVL151:
 1137       newname = dmax;  dmax = dp;  ->not in
 1138
				lwz 10,6904(9)
				stw 10,6896(9)
		.L105:
		.LVL152:
		.L137:
 1139 in:   search base = rbase %IF this >= 0 %AND d # 0;  !record elem defn
 1140       %IF search base # 0 %START;                    !record subname
				lis 9,.LANCHOR1+6908@ha
				lwz 9,.LANCHOR1+6908@l(9)
				cmpwi 7,9,0
				blt 7,.L106
				lis 9,.LANCHOR0+200@ha
				lwz 9,.LANCHOR0+200@l(9)
				cmpwi 7,9,0
				beq 7,.L107
		.LVL160:
 1141          new = -1
				cmpwi 7,27,0
				beq 7,.L106
 1142          x = search base
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				lwz 10,204(9)
				stw 10,200(9)
		.L106:
				lis 10,.LANCHOR0@ha
				la 10,.LANCHOR0@l(10)
				stw 9,208(10)
 1143          %CYCLE
 1144             ->not in %IF x < format list
				lwz 7,212(10)
				cmpw 7,9,7
				blt 7,.L137
				cmpw 7,9,7
				blt 7,.L156
		.L110:
				addi 8,8,-16
 1145             %EXIT %IF tag(x)_text = new name
				lwz 10,12(28)
				lwz 10,4(10)
				lwz 8,64(10)
				addi 10,9,13
				slwi 10,10,4
				add 10,8,10
				lha 10,16(10)
				slwi 6,9,4
				add 8,8,6
				cmpw 7,10,30
				beq 7,.L114
		.L111:
				lha 10,224(8)
				cmpw 7,10,30
				bne 7,.L111
				lis 10,.LANCHOR0+208@ha
				stw 9,.LANCHOR0+208@l(10)
				b .L114
		.LVL161:
		.L107:
 1146             x = x-1
				addi 9,9,-1
		.LDL9:
 1147          %REPEAT
 1148       %FINISH %ELSE %START;                   !hash in for normal names
 1149          x = dict(newname)
				lwz 9,12(28)
				lwz 9,4(9)
				lwz 9,64(9)
				addi 10,29,13415
				slwi 10,10,1
				add 9,9,10
				lha 9,4(9)
				lis 10,.LANCHOR0@ha
				la 10,.LANCHOR0@l(10)
				stw 9,208(10)
 1150          ->not in %IF x <= limit;             !wrong level
				lwz 10,216(10)
				cmpw 7,9,10
				ble 7,.L137
		.L109:
		.L113:
		.LVL162:
		.L114:
 1151       %FINISH
 1152
 1153       subatom = x;                            !name found, extract info
				lis 31,.LANCHOR0@ha
		.LVL163:
				la 31,.LANCHOR0@l(31)
				lwz 30,208(31)
				stw 30,220(31)
 1154       t == tag(x)
				lwz 9,12(28)
				lwz 9,4(9)
				lwz 9,64(9)
		.LVL164:
				slwi 30,30,4
		.LVL165:
				add 30,9,30
 1155       atom flags = t_flags
				lha 10,220(30)
				stw 10,224(31)
 1156       format = t_format;  app = t_app
				lwz 8,216(30)
				stw 8,228(31)
 1157       protection = atom flags&prot
				lwz 8,212(30)
				stw 8,232(31)
 1158       type = atom flags>>4&7;  atom1 = amap(atom flags&15)
				rlwinm 8,10,28,29,31
				stw 8,236(31)
 1159
				rlwinm 10,10,0,28,31
				add 9,9,10
		.LVL166:
				addis 9,9,0x1
				lbz 9,-26634(9)
				stw 9,240(31)
		.LBB347:
 1160       %IF diag&8 # 0 %START
 1161          printstring("lookup:")
				li 5,256
				lis 4,.LANCHOR2@ha
				la 4,.LANCHOR2@l(4)
				addi 4,4,314
				addi 3,1,540
				bl memcpy
		.LVL167:
				li 5,256
				addi 4,1,540
				addi 3,1,284
				bl memcpy
		.LVL168:
				li 5,256
				addi 4,1,284
				addi 3,1,540
				bl memcpy
		.LVL169:
		.LBE347:
		.LBB348:
		.LBB349:
				li 5,256
				addi 4,1,540
				addi 3,1,16
				bl memcpy
		.LVL170:
				addi 3,1,16
				bl _imp_printstring
		.LVL171:
		.LBE349:
		.LBE348:
 1162          write(atom1, 3)
				li 4,3
				lwz 3,240(31)
				bl _imp_writeint
		.LVL172:
 1163          write(type, 1)
				li 4,1
				lwz 3,236(31)
				bl _imp_writeint
		.LVL173:
 1164          write(app, 3)
				li 4,3
				lwz 3,232(31)
				bl _imp_writeint
		.LVL174:
 1165          write(format, 5)
				li 4,5
				lwz 3,228(31)
				bl _imp_writeint
		.LVL175:
 1166          write(atom flags, 3)
				li 4,3
				lwz 3,224(31)
				bl _imp_writeint
		.LVL176:
		.LBB350:
		.LBB351:
				bl _imp_newline
		.LVL177:
		.LDL10:
		.LBE351:
		.LBE350:
 1167          newline
 1168       %FINISH
 1169
 1170       %IF d = 0 %START;                             !old name wanted
				cmpwi 7,27,0
				bne 7,.L115
 1171          t_flags <- t_flags!used bit
				lhz 9,220(30)
				li 10,-1
				rlwimi 9,10,15,0,16
				sth 9,220(30)
 1172          search base = 0
				li 10,0
				stw 10,200(31)
 1173
 1174          %IF atom flags&subname # 0 %AND format # 0 %START; !a record
 1175             %RETURN %IF format selected = 0
				lwz 9,228(31)
				cmpwi 7,9,0
				bne 7,.L157
		.L116:
		.L120:
 1176          %FINISH
 1177
 1178          %IF atom flags&parameters # 0 %START;      !proc or array
 1179
 1180             %IF app = 0 %START;                     !no parameters needed
				lis 9,.LANCHOR0+232@ha
				lwz 9,.LANCHOR0+232@l(9)
				cmpwi 7,9,0
				bne 7,.L121
 1181                atom2 = atom1
				lis 10,.LANCHOR0@ha
				la 10,.LANCHOR0@l(10)
				lwz 9,240(10)
				stw 9,248(10)
 1182                atom1 = atom1-4
				addi 8,9,-4
				stw 8,240(10)
		.LVL178:
		.LBB352:
 1183                %IF 97 <= atom1 <= 98 %START
 1184                   map gg = atom1;  atom1 = var
				mr 9,10
				stw 8,252(10)
 1185                %FINISH
				li 10,91
				stw 10,240(9)
				b .L126
		.LVL179:
		.L157:
		.LBB353:
		.LBB354:
 1186             %FINISH %ELSE %START
				addi 9,9,-101
				cmplwi 7,9,1
				bgt 7,.L126
		.LBE352:
 1187                %IF sym = '(' %START
				lis 10,.LANCHOR1+6888@ha
				lwz 10,.LANCHOR1+6888@l(10)
				cmpwi 7,10,40
				beq 7,.L159
		.L122:
		.L125:
		.L126:
 1188                   search base = 0;                  !ignore format for now
				lis 10,.LANCHOR0@ha
				la 10,.LANCHOR0@l(10)
				li 8,0
				stw 8,200(10)
 1189                   %IF atom1 >= 106 %START;          !arrays
				lwz 10,240(10)
				cmpwi 7,10,105
				ble 7,.L123
 1190                      app = phrase(app+200)
				lis 8,.LANCHOR0@ha
				la 8,.LANCHOR0@l(8)
				slwi 9,9,1
				lis 7,.LANCHOR1@ha
				la 7,.LANCHOR1@l(7)
				add 9,7,9
				lha 9,6912(9)
				stw 9,232(8)
 1191                      escape class = esc array
				li 9,254
				stw 9,244(8)
 1192                      atom1 = (atom1-106)>>1+91;     !a,an->v  na,nan->n
				addi 9,10,-106
				srwi 9,9,1
				addi 9,9,91
				stw 9,240(8)
		.L124:
 1193                   %FINISH %ELSE %START;             !procedures
 1194                      escape class = esc proc
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				li 8,253
				stw 8,244(9)
 1195                      atom1 = atom1-4
				addi 10,10,-4
				stw 10,240(9)
				b .L124
		.L115:
 1196                   %FINISH
 1197                   phrase(200) = app
				lis 9,.LANCHOR0+232@ha
				lwz 10,.LANCHOR0+232@l(9)
				lis 9,.LANCHOR1+6912@ha
				sth 10,.LANCHOR1+6912@l(9)
				b .L126
		.L123:
 1198                %FINISH
 1199             %FINISH
 1200             pos2 = pos;  %return
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				lwz 10,260(9)
				stw 10,256(9)
 1201          %FINISH
				b .L99
		.L159:
 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
				lwz 9,12(28)
				lwz 10,4(9)
				lwz 9,56(10)
				lwz 10,60(10)
				cmpw 7,9,10
				beq 7,.L160
		.L127:
 1214       %IF d = lab+spec+used bit %START
				li 9,0
				ori 9,9,0x8083
				cmpw 7,27,9
				beq 7,.L164
		.L129:
 1215          t_flags = t_flags!used bit
				lhz 9,220(30)
				li 10,-1
				rlwimi 9,10,15,0,16
				sth 9,220(30)
 1216          %RETURN
				b .L99
		.L165:
 1217       %FINISH
 1218       %IF atom flags&spec # 0 %START;            !a spec has been given
 1219          %IF d = lab %START;                     !define label
				cmpwi 7,27,3
				beq 7,.L165
		.L130:
		.LBB356:
 1220             t_flags <- t_Flags-Spec
				lhz 9,220(30)
				addi 9,9,-128
				sth 9,220(30)
 1221             %RETURN
				b .L99
		.L131:
		.LVL200:
		.L134:
 1222          %FINISH
 1223          %IF 7 <= decl&15 <= 10 %AND decl&spec = 0 %START
 1224
 1225             !procedure definition after spec
 1226
				lis 9,.LANCHOR0+264@ha
				lwz 9,.LANCHOR0+264@l(9)
		.LVL194:
				rlwinm 10,9,0,28,31
		.LVL195:
				addi 10,10,-7
		.LVL196:
				cmplwi 7,10,3
				bgt 7,.L134
		.LBE356:
 1227             %IF (decl!!atom flags)&b'1111111' = 0 %START;  !correct type?
				lis 10,.LANCHOR0+224@ha
				lwz 10,.LANCHOR0+224@l(10)
				xor 9,9,10
		.LVL198:
				andi. 9,9,0x1
				bne 0,.L133
 1228                t_flags = t_flags-spec
				lhz 9,220(30)
				addi 9,9,-128
				sth 9,220(30)
 1229                spec given = 1
				lis 9,.LANCHOR0+268@ha
				li 10,1
				stw 10,.LANCHOR0+268@l(9)
 1230                %RETURN
				andi. 10,9,0x1
		.LVL197:
				bne 0,.L135
				b .L99
		.LVL199:
		.L164:
 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
				andi. 9,9,0x1
				bne 0,.L135
		.LVL201:
		.L133:
 1238             t_flags = record<<4+recfm
				li 9,68
				sth 9,220(30)
 1239             t_format = fdef
				lis 9,.LANCHOR0+272@ha
				lwz 9,.LANCHOR0+272@l(9)
				stw 9,216(30)
 1240             %RETURN
				b .L99
		.L132:
		.L135:
 1241          %FINISH
 1242       %FINISH
 1243       %RETURN %IF last1 = jump %AND atom1 = swit
				lis 9,.LANCHOR0+276@ha
				lwz 9,.LANCHOR0+276@l(9)
				cmpwi 7,9,54
				beq 7,.L166
		.L136:
 1244       copy = x %IF copy = 0
				lis 9,.LANCHOR0+280@ha
				lwz 9,.LANCHOR0+280@l(9)
				cmpwi 7,9,0
				bne 7,.L127
				lis 9,.LANCHOR0+240@ha
				lwz 9,.LANCHOR0+240@l(9)
				cmpwi 7,9,105
				bne 7,.L136
				b .L99
		.LVL202:
		.L156:
				lis 10,.LANCHOR0+208@ha
				stw 9,.LANCHOR0+208@l(10)
				b .L137
		.LVL203:
		.L161:
 1245
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				lwz 10,208(9)
				stw 10,280(9)
				b .L127
		.L166:
 1246 notin:app = 0;  vid = 0
 1247       atom1 = error+2
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				li 10,0
				stw 10,232(9)
		.LVL153:
				li 10,0
				ori 10,10,0x8002
				stw 10,240(9)
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				li 10,0
				stw 10,232(9)
		.LVL180:
		.L138:
 1248
				li 7,0
 1249       %return %if d = 0;                         !old name wanted
				cmpwi 7,27,0
				bne 7,.L138
		.LVL154:
		.L99:
 1250       type = d>>4&7;  form = d&15;  atom1 = amap(form)
				lis 10,.LANCHOR0@ha
				la 10,.LANCHOR0@l(10)
				rlwinm 9,27,28,29,31
				stw 9,236(10)
 1251
				rlwinm 9,27,0,28,31
		.LVL181:
 1252       %IF this < 0 %START;                       !normal scope
				lwz 8,12(28)
				lwz 6,4(8)
				lwz 7,64(6)
				add 8,7,9
				addis 8,8,0x1
				lbz 8,-26634(8)
				stw 8,240(10)
				lis 10,.LANCHOR1+6908@ha
				lwz 10,.LANCHOR1+6908@l(10)
				cmpwi 7,10,0
				blt 7,.L161
		.L139:
		.LVL182:
 1253          new = newname
 1254          tmax = tmax+1;  x = tmax
				lwz 10,52(6)
				addi 10,10,1
				stw 10,52(6)
 1255       %FINISH %ELSE %START;                      !recordformat scope
				lwz 10,12(28)
				lwz 10,4(10)
				lwz 8,52(10)
				lis 10,.LANCHOR0+208@ha
				stw 8,.LANCHOR0+208@l(10)
				mr 8,29
				b .L140
		.LVL204:
		.L162:
 1256          new = -1
				li 8,-1
		.LVL184:
		.L140:
		.LBB355:
 1257          recid = recid-1;  vid = recid
				lwz 10,204(7)
				addi 10,10,-1
				stw 10,204(7)
 1258          tmin = tmin-1;  x = tmin
				lwz 10,12(28)
				lwz 10,4(10)
				lwz 10,64(10)
				lwz 7,204(10)
		.LVL183:
				lis 8,.LANCHOR1@ha
				la 8,.LANCHOR1@l(8)
				lwz 10,7024(8)
				addi 10,10,-1
				stw 10,7024(8)
 1259          format list = tmin
				lis 8,.LANCHOR0@ha
				la 8,.LANCHOR0@l(8)
				stw 10,208(8)
				stw 10,212(8)
 1260       %FINISH
 1261
 1262       %IF 11 <= form <= 14 %START;               !arrays
 1263          dim = 1 %IF dim = 0;                    !set dim for owns
				lis 10,.LANCHOR0+192@ha
				lwz 10,.LANCHOR0+192@l(10)
				cmpwi 7,10,0
				bne 7,.L142
 1264          app = dim
				lis 10,.LANCHOR0+192@ha
				li 6,1
				stw 6,.LANCHOR0+192@l(10)
		.L142:
				lis 10,.LANCHOR0@ha
				la 10,.LANCHOR0@l(10)
				lwz 6,192(10)
				stw 6,232(10)
		.L141:
		.LDL11:
 1265       %FINISH
				addi 10,9,-11
				cmplwi 7,10,3
				bgt 7,.L141
		.LBE355:
 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
				lis 10,.LANCHOR1+7028@ha
				lwz 10,.LANCHOR1+7028@l(10)
				cmpwi 7,10,0
				bne 7,.L143
 1271       !they are defined, so inhibit a useless unused warning.
				lwz 10,12(28)
				lwz 6,4(10)
				lis 10,.LANCHOR0+284@ha
				lwz 10,.LANCHOR0+284@l(10)
				lwz 6,48(6)
				cmpw 7,10,6
				bne 7,.L144
		.L143:
 1272
 1273       t == tag(x)
				ori 27,27,0x8000
		.LVL185:
		.L144:
				lis 10,.LANCHOR0+208@ha
				lwz 6,.LANCHOR0+208@l(10)
				lwz 10,12(28)
				lwz 10,4(10)
				lwz 5,64(10)
		.LVL186:
 1274       %IF form = lab %START
				cmpwi 7,9,3
				beq 7,.L162
		.LVL187:
		.L145:
				slwi 9,6,4
				add 9,5,9
 1275          id = id+1;  vid = id
				lwz 9,44(10)
		.LVL205:
				addi 9,9,1
				stw 9,44(10)
 1276       %FINISH
				lwz 9,12(28)
				lwz 9,4(9)
				lwz 7,44(9)
		.LVL206:
				b .L145
		.LVL207:
		.L163:
 1277       t_index = vid
				sth 7,222(9)
 1278       t_text   = new name
				sth 29,224(9)
 1279       t_flags <- d
				sth 27,220(9)
 1280       t_app    = app
				lis 10,.LANCHOR0@ha
				la 10,.LANCHOR0@l(10)
				lwz 7,232(10)
		.LVL188:
				stw 7,212(9)
 1281       t_format = fdef;  format = fdef
				lwz 7,272(10)
				stw 7,216(9)
 1282       subatom = x
				stw 7,228(10)
				stw 6,220(10)
 1283
 1284       %IF new >= 0 %START;                             !insert into hash table
				cmpwi 7,8,0
				blt 7,.L147
 1285          t_link = dict(new);  dict(new) = x
				lwz 10,12(28)
				lwz 10,4(10)
				lwz 10,64(10)
				addi 8,8,13415
		.LVL189:
				slwi 8,8,1
		.LVL190:
				add 10,10,8
				lhz 10,4(10)
				sth 10,226(9)
 1286          %IF gmin = max grammar %START;                !proc param params
				lwz 9,12(28)
				lwz 9,4(9)
				lwz 9,64(9)
				add 8,9,8
				sth 6,4(8)
				lis 9,.LANCHOR1+7032@ha
				lwz 9,.LANCHOR1+7032@l(9)
				cmpwi 7,9,1720
				beq 7,.L163
		.L146:
		.LVL191:
		.L147:
 1287             tmin = tmin-1;  subatom = tmin
				lis 10,.LANCHOR1@ha
				la 10,.LANCHOR1@l(10)
				lwz 9,7024(10)
				addi 8,9,-1
				stw 8,7024(10)
 1288             tag(tmin) = t
				lis 10,.LANCHOR0+220@ha
				stw 8,.LANCHOR0+220@l(10)
				lwz 10,12(28)
				lwz 10,4(10)
				lwz 10,64(10)
				addi 9,9,12
				slwi 9,9,4
				add 10,10,9
				addi 9,6,13
				slwi 9,9,4
				add 9,5,9
				lwz 6,4(9)
		.LVL208:
				lwz 7,8(9)
				lwz 8,12(9)
				lwz 9,16(9)
				stw 6,4(10)
				stw 7,8(10)
				stw 8,12(10)
				stw 9,16(10)
				b .L147
		.LVL209:
		.L155:
 1289          %FINISH
 1290       %FINISH
 1291       abandon(3) %IF tmax >= tmin
				lwz 9,12(28)
				lwz 10,4(9)
				lis 9,.LANCHOR1+7024@ha
				lwz 9,.LANCHOR1+7024@l(9)
				lwz 8,52(10)
				cmpw 7,9,8
				bgt 7,.L99
 1292    %END
				lwz 11,64(10)
				li 3,3
				bl ABANDON.7167
		.LVL192:
		.L118:
				b .L99
		.LVL193:
		.L160:
		.L128:
 1293
				lwz 9,796(1)
				lwz 10,-28680(2)
				xor. 9,9,10
				li 10,0
				bne 0,.L155
				lwz 0,836(1)
				mtlr 0
				lwz 25,804(1)
				lwz 26,808(1)
		.LVL155:
				lwz 27,812(1)
		.LVL156:
				lwz 28,816(1)
				lwz 29,820(1)
		.LVL157:
				lwz 30,824(1)
				lwz 31,828(1)
				addi 1,1,832
				blr
		.LVL158:
		.L154:
				bl __stack_chk_fail
		.LVL210:
		.LFE205:
				.align 2
		GETSYM.7554:
		.LFB201:
 1294
 1295
 1296 top:  pos1 = pos
 1297       subatom = 0;  pend quote = 0;  atom flags = 0
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				lwz 10,260(9)
				stw 10,296(9)
				li 10,0
				stw 10,220(9)
		.LVL252:
				lwz 9,260(31)
				stw 9,296(31)
				stw 28,220(31)
 1298
				li 27,0
		.LVL260:
		.L273:
				li 31,0
		.LVL266:
		.L254:
 1299       !app and format must be left for assigning to papp & pformat
				stw 10,224(9)
				stw 28,224(31)
 1300
 1301       ->name %IF symtype = -2;                   !letter
				lwz 9,320(9)
				cmpwi 7,9,-2
				beq 7,.L240
				lwz 9,320(31)
				cmpwi 7,9,-2
				beq 7,.L240
		.L247:
 1302       ->number %IF symtype < 0;                  !digit
				cmpwi 7,9,0
				blt 7,.L241
				cmpwi 7,9,0
				blt 7,.L241
		.L248:
 1303       %IF symtype = 0 %START
				beq 7,.L242
				beq 7,.L242
		.L249:
 1304          atom1 = termin;  atom2 = 0
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				li 10,20
				stw 10,240(9)
 1305          %RETURN
				li 10,0
				stw 10,248(9)
				b .L239
		.L244:
 1306       %FINISH
 1307       %IF symtype # 2 %START;                    !catch keywords here
				cmpwi 7,9,2
				beq 7,.L256
				cmpwi 7,9,2
				beq 7,.L256
 1308          ->text %IF quote # 0;                   !completion of text
				lis 9,.LANCHOR0+324@ha
				lwz 9,.LANCHOR0+324@l(9)
				cmpwi 7,9,0
				beq 7,.L244
				lwz 9,324(31)
				cmpwi 7,9,0
				beq 7,.L244
		.L251:
 1309          ->strings %IF sym = squote;             !start of string
				lis 9,.LANCHOR1+6888@ha
				lwz 9,.LANCHOR1+6888@l(9)
				cmpwi 7,9,34
				beq 7,.L252
		.L253:
 1310          ->symbols %IF sym = cquote;             !start of symbol
				cmpwi 7,9,39
				beq 7,.L307
		.L255:
 1311          ->number %IF sym = '.' %AND '0' <= nextsymbol <= '9'
				cmpwi 7,9,46
				beq 7,.L317
		.L243:
		.L256:
 1312       %FINISH
 1313
 1314                                                  !locate atom in fixed dict
 1315       k = key>>2;  read sym
				lis 29,.LANCHOR0@ha
				la 29,.LANCHOR0@l(29)
				lwz 31,328(29)
				srwi 31,31,2
		.LVL254:
				addi 3,3,-48
				cmplwi 7,3,9
				bgt 7,.L256
		.L241:
		.LBE382:
 1316       %CYCLE
				mr 11,30
				bl READSYM.7559
		.LVL255:
		.LDL12:
 1317          j = kdict(k)
				lwz 9,4(30)
				slwi 31,31,1
		.LVL256:
				lwz 9,64(9)
				add 31,9,31
				lha 10,25620(31)
		.LVL257:
		.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
				rlwinm 9,10,0,25,31
				stw 9,240(29)
 1335       %IF atom1 = 0 %START;                      !comma
				cmpwi 7,9,0
				bne 7,.L257
 1336          atom1 = 19;  subatom = 19;  atom2 = 0
				li 10,19
				stw 10,240(29)
 1337          %IF sym = nl %START
				stw 10,220(29)
				lis 9,.LANCHOR1+6888@ha
				lwz 9,.LANCHOR1+6888@l(9)
				cmpwi 7,9,10
				bne 7,.L239
 1338             %RETURN %IF ocount >= 0
				li 10,0
				stw 10,248(29)
				lis 9,.LANCHOR1+6892@ha
				lwz 9,.LANCHOR1+6892@l(9)
				cmpwi 7,9,0
				bge 7,.L239
		.L258:
 1339
 1340             !special action needs to be taken with <comma nl> as
 1341             !const array lists can be enormous
 1342
 1343             read sym
				mr 11,30
				bl READSYM.7559
		.LVL258:
				b .L239
		.L317:
		.LBB382:
		.LBB383:
		.LBB384:
				bl _imp_nextsymbol
		.LVL259:
		.LBE384:
		.LBE383:
 1344          %FINISH
 1345          %RETURN
 1346       %FINISH
 1347       atom2 = j>>7&127
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				rlwinm 10,10,25,25,31
				stw 10,248(9)
 1348       subatom = kdict(k+1)&x'3fff'
				lhz 10,25622(31)
				rlwinm 10,10,0,18,31
				stw 10,220(9)
 1349       !!!!!cont = ' '
 1350       %RETURN
				b .L239
		.LVL265:
		.L307:
 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
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				li 10,0
				ori 10,10,0x8001
				stw 10,240(9)
				lwz 10,260(9)
				lwz 9,296(9)
				subf 9,9,10
				cmpwi 7,9,2
				ble 7,.L239
 1358       %RETURN
				li 10,0
				stw 10,248(9)
				lis 9,.LANCHOR0+296@ha
				stw 10,.LANCHOR0+296@l(9)
				b .L239
		.LVL315:
		.L331:
 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
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				li 10,91
				stw 10,240(9)
				stw 10,252(9)
 1366         subatom = lp;  abandon(3) %IF lp >= lit max
				li 10,93
				stw 10,248(9)
				lwz 10,332(9)
				stw 10,220(9)
 1367         quote = \pend quote
				li 8,1
				stw 8,236(9)
				cmpwi 7,10,49
				bgt 7,.L319
		.L261:
				not 31,31
		.LVL267:
				lis 9,.LANCHOR0+324@ha
				stw 31,.LANCHOR0+324@l(9)
 1368         %RETURN
				b .L239
		.LVL268:
		.L315:
				lwz 24,64(1)
				b .L254
		.LVL269:
		.L319:
				lwz 9,4(30)
				lwz 11,64(9)
				li 3,3
				bl ABANDON.7167
		.LVL270:
				b .L261
		.LVL271:
		.L321:
		.L264:
 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
				li 28,0
				stw 28,28(1)
 1375          read sym
				lis 29,.LANCHOR1@ha
				la 29,.LANCHOR1@l(29)
				li 26,39
				stw 26,7176(29)
		.LDL15:
				mr 11,30
				bl READSYM.7559
		.LVL275:
 1376          %IF sym = cquote %START
				lwz 9,6888(29)
				cmpwi 7,9,39
				bne 7,.L262
		.LBB385:
		.LBB386:
				bl _imp_nextsymbol
		.LVL276:
		.LBE386:
		.LBE385:
 1377             %EXIT %IF nextsymbol # cquote
				cmpwi 7,3,39
				beq 7,.L321
		.L263:
 1378             read sym
				mr 11,30
				bl READSYM.7559
		.LVL272:
		.L262:
 1379          %FINISH
 1380          %IF n&(\((-1)>>byte size)) # 0 %START; ! overflow
 1381             pos1 = pos;  atom1 = error+10;  %RETURN
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				lwz 10,260(9)
				stw 10,296(9)
 1382          %FINISH
				li 10,0
				ori 10,10,0x800a
				stw 10,240(9)
		.LVL273:
		.L239:
 1383          ->err %IF quote = 0
 1384          n = n<<byte size+sym
 1385          quote = quote+1
 1386       %REPEAT
 1387       quote = 0;  cont = ' '
				lis 31,.LANCHOR0@ha
				la 31,.LANCHOR0@l(31)
				stw 28,324(31)
 1388       readsym %IF sym # nl
				li 25,32
				b .L246
		.LVL253:
		.L242:
				stw 25,7176(29)
				lwz 9,6888(29)
				cmpwi 7,9,10
				beq 7,.L265
 1389       lit pool(lp) = n;  lp = lp+1
				lwz 9,332(31)
				lwz 10,4(30)
				lwz 8,64(10)
				slwi 10,9,2
				lwz 7,28(1)
				stwx 7,8,10
				mr 11,30
				bl READSYM.7559
		.LVL277:
				b .L265
		.L252:
 1390       ->top
				addi 9,9,1
				stw 9,332(31)
		.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'
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				li 10,91
				stw 10,240(9)
				lwz 7,0(30)
				lwz 10,336(9)
				subf 10,10,7
				ori 10,10,0x4000
				stw 10,220(9)
 1396         map gg = const;  protection = prot
				li 8,93
				stw 8,248(9)
				stw 8,252(9)
 1397         quote = subatom
				li 10,3
				stw 10,236(9)
				stw 10,324(9)
 1398         text line = lines;                         !in case of errors
				lwz 10,184(9)
				stw 10,340(9)
 1399         %RETURN
				b .L239
		.L245:
				stw 22,56(1)
				stw 23,60(1)
				stw 24,64(1)
 1400
 1401       !a string constant is ok here, so pull it in and get
 1402       !the next atom
 1403
 1404 text: ->chars %IF quote < 0;                       !character consts
 1405       l = strp; n = strp
				bge 7,.L245
				cmpwi 7,9,0
				bge 7,.L245
		.L246:
				lwz 31,0(30)
		.LVL278:
 1406       j = addr(glink(gmin-1));                     !absolute limit
				stw 31,28(1)
		.LVL279:
				lis 9,.LANCHOR1@ha
				la 9,.LANCHOR1@l(9)
				addi 28,9,4
				lwz 9,7032(9)
				addi 9,9,-1
				slwi 9,9,1
				add 28,28,9
				cmpw 7,28,10
				ble 7,.L266
				mr 28,10
		.L266:
		.LDL16:
		.LDL17:
		.LDL18:
 1407       k = l+256;                                   !string length limit
				addi 10,31,256
		.LVL280:
 1408       k = j %IF j < k;                             !choose lower
 1409
 1410       %CYCLE
 1411          cont = squote;  quote = 1
				lis 29,.LANCHOR1@ha
				la 29,.LANCHOR1@l(29)
				li 22,34
				stw 22,7176(29)
 1412          %CYCLE
				lis 26,.LANCHOR0@ha
				la 26,.LANCHOR0@l(26)
				li 23,1
				stw 23,324(26)
		.LVL286:
		.L267:
 1413             read sym
				mr 11,30
				bl READSYM.7559
		.LVL287:
 1414             %IF sym = squote %START;               !terminator?
				lwz 9,6888(29)
				cmpwi 7,9,34
				beq 7,.L323
		.L268:
 1415                %EXIT %IF nextsymbol # squote;      !yes ->
				cmpwi 7,3,34
				bne 7,.L269
		.L270:
 1416                read sym;                           ! skip quote
				mr 11,30
				bl READSYM.7559
		.LVL283:
				b .L268
		.L269:
 1417             %FINISH
 1418             l = l+1;  byteinteger(l) = sym
 1419             lines = text line %AND abandon(7) %IF l >= k; !too many chars
				lwz 9,6888(29)
				stbu 9,1(31)
		.LVL288:
				cmpw 7,31,28
				blt 7,.L267
 1420          %REPEAT
				lwz 9,340(26)
				stw 9,184(26)
 1421          byteinteger(n) = l-n;                            !plug in length
				lwz 9,28(1)
				subf 10,9,31
				stb 10,0(9)
				lwz 9,4(30)
				lwz 11,64(9)
				li 3,7
				bl ABANDON.7167
		.LVL289:
				b .L267
		.LVL290:
		.L322:
 1422
 1423          strp = l+1;                                      !ready for next string
				addi 9,31,1
				stw 9,0(30)
 1424          quote = 0;  cont = ' ';  read sym
				li 24,0
				stw 24,324(26)
 1425          code atom(target)
				li 25,32
				b .L272
		.LVL281:
		.L323:
		.LBB387:
		.LBB388:
				bl _imp_nextsymbol
		.LVL282:
		.LBE388:
		.LBE387:
				stw 25,7176(29)
				mr 11,30
				mr 3,27
				bl CODEATOM.7599
		.LVL285:
 1426          %RETURN %UNLESS atom1 = 48 %AND sym = squote;    !fold "???"."+++"
				mr 11,30
				bl READSYM.7559
		.LVL284:
				lwz 9,240(26)
				cmpwi 7,9,48
				bne 7,.L314
 1427       %REPEAT
				lwz 9,6888(29)
				cmpwi 7,9,34
				bne 7,.L322
		.L272:
 1428
				lwz 22,56(1)
				lwz 23,60(1)
				lwz 24,64(1)
				b .L239
		.LVL291:
		.L318:
 1429       %ROUTINE get(%INTEGER limit)
		.LVL240:
				stwu 1,-64(1)
				mflr 0
				stw 0,68(1)
				mfcr 12
				stw 23,28(1)
				stw 24,32(1)
				stw 25,36(1)
				stw 26,40(1)
				stw 27,44(1)
				stw 28,48(1)
				stw 29,52(1)
				stw 30,56(1)
				stw 31,60(1)
				stw 12,24(1)
				mr 28,3
				mr 31,11
		.LVL241:
 1430          %INTEGER s, shift
 1431          shift = 0
				li 27,0
				xori 27,9,0x2
				cntlzw 27,27
				srwi 27,27,5
		.L216:
		.L219:
		.L220:
		.L221:
		.LVL242:
 1432          %IF base # 10 %START
				lwz 9,8(11)
				cmpwi 7,9,10
				beq 7,.L221
 1433             %IF base = 16 %START
				cmpwi 7,9,16
				beq 7,.L221
		.L217:
 1434                shift = 4
				li 27,4
 1435             %FINISH %ELSE %START
 1436                %IF base = 8 %START
				cmpwi 7,9,8
				beq 7,.L221
		.L218:
 1437                   shift = 3
				li 27,3
 1438                %FINISH %ELSE %START
 1439                   %IF base = 2 %START
 1440                      shift = 1
 1441                   %FINISH
 1442                %FINISH
 1443             %FINISH
 1444          %FINISH
 1445          n = 0
				li 9,0
				stw 9,4(31)
 1446          %CYCLE
 1447             %IF symtype = -1 %START;            !digit
				lis 29,.LANCHOR0@ha
				la 29,.LANCHOR0@l(29)
				lwz 9,320(29)
				cmpwi 7,9,-1
				beq 7,.L237
		.L223:
 1448                s = sym-'0'
				lwz 9,6888(30)
				addi 9,9,-48
		.LVL244:
 1449             %FINISH %ELSE %START
				b .L226
		.L238:
 1450                %IF symtype < 0 %START;          !letter
				cmpwi 7,9,0
				bge 7,.L215
 1451                   s = sym-'A'+10
				lis 30,.LANCHOR1@ha
				la 30,.LANCHOR1@l(30)
				lwz 9,6888(30)
				addi 9,9,-55
		.LVL247:
		.L224:
		.L226:
 1452                %FINISH %ELSE %START
 1453                   %RETURN
 1454                %FINISH
 1455             %FINISH
 1456             %RETURN %IF s >= limit
				cmpw 7,9,28
				bge 7,.L215
		.L227:
 1457             pt = pt+1;  byteinteger(pt) = sym
				lwz 10,0(31)
				addi 8,10,1
				stw 8,0(31)
 1458             %IF base = 10 %START;            !check overflow
				lwz 8,6888(30)
				stb 8,1(10)
				lwz 10,8(31)
				cmpwi 7,10,10
				beq 7,.L238
		.L228:
		.L230:
 1459                %IF n >= max int %AND (s > max dig %OR n > max int) %START
				lis 26,0xccc
				ori 26,26,0xcccb
				lwz 10,4(31)
				cmpw 7,10,26
				ble 7,.L230
 1460
				cmpwi 7,9,7
				bgt 7,.L229
 1461                   !too big for an integer,
				lis 23,0xccc
				ori 23,23,0xcccc
				cmpw 7,10,23
				ble 7,.L230
		.L229:
 1462                   !so call it a real
 1463
 1464                   base = 0;  type = real;  n = 0
				li 25,0
				stw 25,8(31)
 1465                %FINISH
				li 24,2
				stw 24,236(29)
 1466             %FINISH
				stw 25,4(31)
				b .L230
		.L231:
 1467             %IF shift = 0 %START
				cmpwi 4,27,0
				b .L222
		.LVL243:
		.L237:
				bne 4,.L231
 1468                n = n*base+s
				lwz 10,4(31)
				lwz 8,8(31)
				mullw 10,10,8
				add 9,10,9
		.LVL248:
				stw 9,4(31)
 1469             %FINISH %ELSE %START
				b .L232
		.L225:
		.L215:
 1470                n = n<<shift+s
				lwz 10,4(31)
				slw 10,10,27
				add 9,10,9
		.LVL245:
				stw 9,4(31)
		.L232:
 1471             %FINISH
 1472             read sym
				lwz 11,12(31)
				bl READSYM.7559
		.LVL246:
		.L222:
 1473          %REPEAT
 1474       %END
				lwz 0,68(1)
				lwz 12,24(1)
				mtlr 0
				lwz 23,28(1)
				lwz 24,32(1)
				lwz 25,36(1)
				lwz 26,40(1)
				lwz 27,44(1)
		.LVL249:
				lwz 28,48(1)
		.LVL250:
				lwz 29,52(1)
				lwz 30,56(1)
				lwz 31,60(1)
				mtcrf 8,12
				addi 1,1,64
				blr
		.LFE206:
				.align 2
		CODEATOM.7599:
		.LFB204:
 1475
 1476 number:base = 10
 1477 bxk:   atom1 = var;  atom2 = const;  type = integer;  subatom = lp
				li 9,10
				stw 9,32(1)
 1478        map gg = const;  protection = prot
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				li 10,91
				stw 10,240(9)
				stw 8,252(9)
 1479        abandon(3) %IF lp >= lit max
				li 8,93
				stw 8,248(9)
				cmpwi 7,10,49
				bgt 7,.L318
		.L274:
 1480        pt = strp;  mul = 0
				li 10,1
				stw 10,236(9)
				lwz 9,0(30)
				addi 29,1,48
				stwu 9,-24(29)
		.LVL261:
				lwz 9,4(30)
				lwz 11,64(9)
				li 3,3
				bl ABANDON.7167
		.LVL292:
				b .L274
		.L276:
		.LVL293:
		.L279:
 1481        %CYCLE
				lwz 10,332(9)
				stw 10,220(9)
 1482           get(base)
				mr 11,29
				lwz 3,32(1)
				bl GET.7726
		.LVL262:
 1483           %EXIT %UNLESS sym = '_' %AND base # 0 %AND pend quote = 0;    !change of base
				lis 31,.LANCHOR1@ha
				la 31,.LANCHOR1@l(31)
				lwz 9,6888(31)
				cmpwi 7,9,95
				bne 7,.L279
 1484           pt = pt+1;  byteinteger(pt) = '_'
				lwz 9,32(1)
				cmpwi 7,9,0
				beq 7,.L277
				lwz 9,24(1)
				addi 10,9,1
				stw 10,24(1)
 1485           read sym
				cmpwi 4,27,0
				li 28,95
		.L275:
				bne 4,.L259
		.L278:
				stb 28,1(9)
				mr 11,30
				bl READSYM.7559
		.LVL263:
 1486           base = n
				lwz 9,28(1)
				stw 9,32(1)
 1487        %REPEAT
				b .L275
		.LVL264:
		.L257:
 1488
 1489        %IF pend quote # 0 %START
				cmpwi 7,27,0
				bne 7,.L324
		.L280:
				cmpwi 7,27,0
				bne 7,.L259
		.L283:
 1490           ->err %IF sym # cquote
				cmpwi 7,9,39
				bne 7,.L259
		.L281:
 1491           readsym
				mr 11,30
				bl READSYM.7559
		.LVL298:
				b .L280
		.L325:
 1492        %FINISH
 1493        %IF sym = '.' %START;                        !a real constant
				lis 9,.LANCHOR1+6888@ha
				lwz 9,.LANCHOR1+6888@l(9)
				cmpwi 7,9,46
				beq 7,.L325
		.L282:
 1494           pt = pt+1;  byteinteger(pt) = '.'
				lwz 9,24(1)
				addi 10,9,1
				stw 10,24(1)
 1495           read sym
				li 10,46
				stb 10,1(9)
				mr 11,30
				bl READSYM.7559
		.LVL299:
 1496           type = real;  n = base;  base = 0;  get(n)
				lis 9,.LANCHOR0+236@ha
				li 10,2
				stw 10,.LANCHOR0+236@l(9)
 1497        %FINISH
				lwz 3,32(1)
				stw 3,28(1)
 1498
				li 9,0
				stw 9,32(1)
 1499        %IF sym = '@' %START;                        !an exponent
				lis 9,.LANCHOR1+6888@ha
				lwz 9,.LANCHOR1+6888@l(9)
				cmpwi 7,9,64
				bne 7,.L283
				addi 11,1,24
				bl GET.7726
		.LVL300:
				b .L282
		.LVL301:
		.L326:
 1500           pt = pt+1;  byteinteger(pt) = '@';  k = pt
				lwz 9,24(1)
				addi 10,9,1
				stw 10,24(1)
 1501           readsym
				li 10,64
				stb 10,1(9)
				mr 11,30
				bl READSYM.7559
		.LVL295:
 1502           type = integer;  base = 10
				lwz 31,24(1)
		.LVL294:
				lis 9,.LANCHOR0+236@ha
				li 10,1
				stw 10,.LANCHOR0+236@l(9)
 1503           %IF sym = '-' %START
				li 9,10
				stw 9,32(1)
				lis 9,.LANCHOR1+6888@ha
				lwz 9,.LANCHOR1+6888@l(9)
				cmpwi 7,9,45
				beq 7,.L326
		.L284:
 1504              read sym;  get(10);  n = -n
				mr 11,30
				bl READSYM.7559
		.LVL302:
 1505           %FINISH %ELSE %START
				addi 11,1,24
				li 3,10
				bl GET.7726
		.LVL303:
				b .L285
		.LVL304:
		.L240:
		.LBB389:
 1506              get(10)
				addi 11,1,24
				li 3,10
				bl GET.7726
		.LVL296:
		.L285:
				lwz 9,28(1)
				neg 9,9
				stw 9,28(1)
 1507           %FINISH
 1508           pt = k+1;  byteinteger(pt) = lp;  litpool(lp) = n;  lp = lp+1
				addi 9,31,1
				stw 9,24(1)
 1509           atom1 = error+10 %IF base = 0
				lis 10,.LANCHOR0@ha
				la 10,.LANCHOR0@l(10)
				lwz 9,332(10)
				stb 9,1(31)
				lwz 9,32(1)
				cmpwi 7,9,0
				bne 7,.L286
 1510           type = real;                              !exponents force the type
				lwz 8,4(30)
				lwz 7,64(8)
				slwi 8,9,2
				lwz 6,28(1)
				stwx 6,7,8
				lis 9,.LANCHOR0+240@ha
				li 10,0
				ori 10,10,0x800a
				stw 10,.LANCHOR0+240@l(9)
		.L286:
				lis 9,.LANCHOR0+236@ha
				li 10,2
				stw 10,.LANCHOR0+236@l(9)
		.LVL297:
		.L287:
 1511        %FINISH
				addi 9,9,1
				stw 9,332(10)
 1512
 1513        %IF type = real %START
				lis 9,.LANCHOR0+236@ha
				lwz 9,.LANCHOR0+236@l(9)
				cmpwi 7,9,2
				beq 7,.L287
		.L288:
 1514           byteinteger(strp) = pt-strp
				lwz 10,0(30)
				lwz 9,24(1)
				subf 9,10,9
				stb 9,0(10)
 1515           subatom = (strp-stbase)!x'2000';  strp = pt+1
				lis 10,.LANCHOR0@ha
				la 10,.LANCHOR0@l(10)
				lwz 8,0(30)
				lwz 9,336(10)
				subf 9,9,8
				ori 9,9,0x2000
				stw 9,220(10)
 1516        %FINISH %ELSE %START
				lwz 9,24(1)
				addi 9,9,1
				stw 9,0(30)
				b .L239
		.L324:
 1517           litpool(lp) = n
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				lwz 10,332(9)
				lwz 8,4(30)
				lwz 7,64(8)
				slwi 8,10,2
				lwz 6,28(1)
				stwx 6,7,8
 1518           lp = lp+1
				addi 10,10,1
				stw 10,332(9)
				b .L239
		.LVL327:
		.L314:
				lwz 22,56(1)
				lwz 23,60(1)
				lwz 24,64(1)
				b .L239
		.LVL328:
		.L320:
				stw 22,56(1)
				stw 23,60(1)
				stw 24,64(1)
 1519        %FINISH
 1520        %RETURN
 1521
 1522 name: atom1 = 0 %AND %RETURN %IF 27 <= target <= 41
 1523       hash value = 0
				lwz 9,4(30)
				lwz 9,64(9)
				li 10,0
				stw 10,208(9)
 1524
 1525       !*****************************
 1526       !*machine dependent for speed*
				addi 9,27,-27
				cmplwi 7,9,14
				bgt 7,.L289
		.LBE389:
 1527       !*****************************
 1528
 1529       dp = dmax+1
				lis 10,.LANCHOR1@ha
				la 10,.LANCHOR1@l(10)
				lwz 9,6896(10)
				addi 8,9,1
				stw 8,6904(10)
 1530       da = addr(dict(dp));  dbase = da
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				li 10,0
				stw 10,240(9)
				lwz 10,4(30)
				addi 9,9,13418
				slwi 25,9,1
				lwz 24,64(10)
				add 29,24,25
		.LVL305:
				mr 31,29
 1531       %CYCLE
				b .L239
		.L289:
				stw 24,64(1)
 1532          hash value = hash value+(hash value+sym);        !is this good enough?
				lis 26,.LANCHOR1@ha
				la 26,.LANCHOR1@l(26)
				lwz 10,6888(26)
				lwz 9,4(30)
				lwz 8,64(9)
				lwz 7,208(8)
				add 9,10,7
				add 9,9,7
				stw 9,208(8)
 1533          da = da+1;  byteinteger(da) = sym
 1534          read sym
				stbu 10,1(31)
		.LVL307:
				mr 11,30
				bl READSYM.7559
		.LVL308:
 1535          %EXIT %IF symtype >= 0
				lis 28,.LANCHOR0@ha
				la 28,.LANCHOR0@l(28)
		.L290:
		.LVL306:
		.L312:
		.L291:
				lwz 9,320(28)
				cmpwi 7,9,0
				blt 7,.L312
		.L292:
 1536       %REPEAT
 1537       %IF sym = cquote %START
				lis 9,.LANCHOR1+6888@ha
				lwz 9,.LANCHOR1+6888@l(9)
				cmpwi 7,9,39
				beq 7,.L327
		.L293:
 1538          pend quote = 100
				li 31,100
		.LVL312:
				li 27,100
		.LVL316:
				li 27,100
		.LVL318:
				li 27,100
		.LVL320:
 1539          ->symbols %IF hash value = 'M'
				lwz 9,4(30)
				lwz 9,64(9)
				lwz 9,208(9)
				cmpwi 7,9,77
				beq 7,.L315
		.L294:
 1540          read sym
				mr 11,30
				bl READSYM.7559
		.LVL313:
 1541          %IF hash value = 'X' %THEN base = 16 %AND ->bxk
				lwz 9,4(30)
				lwz 9,64(9)
				lwz 9,208(9)
				cmpwi 7,9,88
				beq 7,.L331
		.L295:
 1542          %IF hash value = 'K' %C
				rlwinm 10,9,0,30,28
				cmpwi 7,10,75
				beq 7,.L332
		.L296:
				li 9,16
				stw 9,32(1)
 1543          %OR hash value = 'O' %THEN base = 8 %AND ->bxk
				lwz 24,64(1)
				b .L273
		.LVL317:
		.L332:
		.L297:
 1544          %IF hash value = 'B' %THEN base = 2 %AND ->bxk
				cmpwi 7,9,66
				beq 7,.L333
				lwz 24,64(1)
		.LVL314:
		.L259:
		.L260:
 1545          ->err
				li 9,8
				stw 9,32(1)
				li 9,2
				stw 9,32(1)
 1546       %FINISH
				lwz 24,64(1)
				b .L273
		.LVL319:
		.L333:
				lwz 24,64(1)
				b .L273
		.LVL321:
		.L328:
 1547       n = da-dbase
				subf 31,29,31
		.LVL309:
				stw 31,28(1)
 1548       byteinteger(dbase) = n
				stbx 31,24,25
 1549       dp = dp+(n+2)>>1
				addi 9,31,2
				srwi 9,9,1
				lis 10,.LANCHOR1@ha
				la 10,.LANCHOR1@l(10)
				lwz 8,6904(10)
				add 9,9,8
				stw 9,6904(10)
 1550       abandon(8) %IF dp >= dmin
				lwz 10,4(30)
				lwz 8,40(10)
				cmpw 7,9,8
				bge 7,.L328
		.L298:
 1551
				lwz 11,64(10)
				li 3,8
				bl ABANDON.7167
		.LVL322:
				b .L298
		.L329:
 1552       atom2 = 90;                                    !ident
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				li 10,90
				stw 10,248(9)
 1553       %IF last1 = 0 %AND sym = ':' %START;           !label
				lwz 9,276(9)
				cmpwi 7,9,0
				bne 7,.L299
 1554          limit = local;  lookup(lab);  %RETURN
				lis 9,.LANCHOR1+6888@ha
				lwz 9,.LANCHOR1+6888@l(9)
				cmpwi 7,9,58
				beq 7,.L329
		.L300:
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				lwz 10,344(9)
				stw 10,216(9)
 1555       %FINISH
				addi 11,1,24
				li 3,3
				bl LOOKUP.7612
		.LVL323:
 1556       %IF last1 = jump %START;                       !->label
				lwz 24,64(1)
				b .L239
		.L299:
				cmpwi 7,9,54
				bne 7,.L300
 1557          limit = local;  lookup(lab+spec+used bit);  %RETURN
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				lwz 10,344(9)
				stw 10,216(9)
 1558       %FINISH
				addi 11,1,24
				li 3,0
				ori 3,3,0x8083
				bl LOOKUP.7612
		.LVL324:
 1559       %IF decl # 0 %AND target = 90 %START;          !identifier
				lis 9,.LANCHOR0+264@ha
				lwz 3,.LANCHOR0+264@l(9)
				cmpwi 7,3,0
				beq 7,.L301
				lwz 24,64(1)
				b .L239
		.L330:
 1560          search base = fm base
				cmpwi 7,27,90
				beq 7,.L330
		.L301:
				lis 31,.LANCHOR0@ha
				la 31,.LANCHOR0@l(31)
				lwz 9,348(31)
				stw 9,200(31)
 1561          limit = local;  lookup(decl)
				lwz 9,344(31)
				stw 9,216(31)
 1562          search base = 0
				addi 11,1,24
				bl LOOKUP.7612
		.LVL325:
				li 9,0
				stw 9,200(31)
 1563       %FINISH %ELSE %START
				lwz 24,64(1)
				b .L239
		.LVL326:
		.L277:
 1564          limit = 0;  lookup(0)
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				li 10,0
				stw 10,216(9)
 1565       %FINISH
				addi 11,1,24
				li 3,0
				bl LOOKUP.7612
		.LVL310:
		.L250:
		.L302:
		.L303:
		.L304:
		.L305:
				lwz 24,64(1)
				b .L239
		.LVL311:
		.L327:
 1566    %END
 1567
				lwz 9,44(1)
				lwz 10,-28680(2)
				xor. 9,9,10
				li 10,0
				bne 0,.L320
				lwz 0,100(1)
				lwz 12,52(1)
				mtlr 0
				lwz 25,68(1)
				lwz 26,72(1)
				lwz 27,76(1)
				lwz 28,80(1)
				lwz 29,84(1)
				lwz 30,88(1)
				lwz 31,92(1)
				mtcrf 8,12
				addi 1,1,96
				blr
		.LVL274:
		.L265:
				bl __stack_chk_fail
		.LVL329:
		.LFE204:
				.align 2
		GETNEXT.8173:
		.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
				lis 9,.LANCHOR0+656@ha
				lwz 6,.LANCHOR0+656@l(9)
				cmpwi 7,6,0
				bne 7,.L803
 1616    last1 = 0;  mapgg = 0
				lis 9,.LANCHOR1+7176@ha
				li 10,32
				stw 10,.LANCHOR1+7176@l(9)
		.L803:
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				li 10,0
				stw 10,276(9)
 1617    s = 0;  ss = 0;  sstype = -1; fdef = 0
				stw 10,252(9)
		.LVL739:
				li 27,0
 1618    fm base = 0
				stw 10,624(9)
				stw 10,348(9)
 1619    app = 0
				li 8,-1
				stw 8,620(9)
				stw 10,232(9)
 1620
				stw 10,272(9)
 1621    !deal with alignment following an error in one statement
 1622    !of several on a line
 1623
 1624    margin = column;                              !start of statement
				lwz 8,288(9)
				stw 8,300(9)
 1625
 1626    pos = 0
				stw 10,260(9)
 1627    stbase = addr(glink(gmax+1));  strp = stbase;  lp = 0
				lis 7,.LANCHOR1@ha
				la 8,.LANCHOR1@l(7)
				addi 8,8,4
				lwz 7,.LANCHOR1@l(7)
				addi 7,7,1
				slwi 7,7,1
				add 8,8,7
				stw 8,336(9)
 1628    tbase = tstart;                               !??????????????
				stw 8,288(1)
				lwz 10,60(29)
				stw 10,56(29)
 1629    local = tbase
				stw 10,332(9)
				stw 10,344(9)
 1630
 1631    %IF gg = 0 %or ocount >= 0 %START;            !data or not continuation(z)
				cmpwi 7,6,0
				beq 7,.L804
 1632 again:%WHILE sym type = 0 %CYCLE;                !skip redundant terminators
				lis 9,.LANCHOR1+6892@ha
				lwz 9,.LANCHOR1+6892@l(9)
				cmpwi 7,9,0
				blt 7,.L814
		.L804:
 1633          c = cont
				lwz 30,7176(31)
		.LVL743:
 1634          cont = ' ';  cont = '+' %IF ocount >= 0
				lis 27,.LANCHOR0@ha
				la 27,.LANCHOR0@l(27)
				li 25,32
				lwz 9,320(27)
				cmpwi 7,9,0
				bne 7,.L807
				stw 25,7176(31)
 1635          read sym
				addi 11,1,288
				bl READSYM.7559
		.LVL741:
				lwz 9,6892(31)
				cmpwi 7,9,0
				blt 7,.L808
 1636          cont = c
				li 22,43
				b .L806
		.LVL740:
		.L808:
				stw 30,7176(31)
		.LVL742:
		.L806:
				stw 22,7176(31)
				b .L808
		.LVL744:
		.L807:
 1637       %REPEAT
 1638       ->skip %IF sym = '!';                      !comment
				lis 31,.LANCHOR1@ha
				la 31,.LANCHOR1@l(31)
				lwz 9,6888(31)
				cmpwi 7,9,33
				beq 7,.L810
		.L811:
 1639       this = -1
				li 23,-1
				stw 23,6908(31)
 1640       code atom(0)
				addi 11,1,288
				mr 3,26
				bl CODEATOM.7599
		.LVL745:
 1641       %IF atom1 = comment %START
				lwz 9,240(27)
				cmpwi 7,9,22
				bne 7,.L814
		.L810:
 1642 skip:    quote = 1
 1643          c = cont
				li 24,1
				stw 24,324(27)
				lwz 30,7176(31)
		.LVL746:
 1644          read sym %AND cont = c %WHILE sym # nl; !skip to end of line
 1645          quote = 0;  symtype = 0
				li 26,0
				lwz 9,6888(31)
				cmpwi 7,9,10
				beq 7,.L812
		.L813:
				lwz 9,6888(31)
				cmpwi 7,9,10
				bne 7,.L813
		.L812:
				stw 26,324(27)
 1646          ->again
				addi 11,1,288
				bl READSYM.7559
		.LVL747:
				stw 26,320(27)
				b .L806
		.L805:
		.LVL748:
		.L814:
 1647       %FINISH
				stw 30,7176(31)
		.LDL37:
 1648    %FINISH
 1649    decl = 0;  mark = 0
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				li 10,0
				stw 10,264(9)
		.LVL749:
 1650    gentype = 0;  force = 0
				stw 10,660(9)
 1651    dim = 0;  prot err = 0
				stw 10,664(9)
				stw 10,192(9)
		.LVL750:
 1652    node = 0;  nmax = 0;  nmin = rec size+1
				sth 10,278(1)
 1653    order = 1;  gmin = max grammar+1
				stw 10,668(9)
				li 10,1
				stw 10,628(9)
 1654    sstype = 0 %AND ->more %IF gg # 0;            !continuation
				li 10,521
				stw 10,672(9)
				lis 10,.LANCHOR1+7032@ha
				li 8,1721
				stw 8,.LANCHOR1+7032@l(10)
				lwz 9,656(9)
				cmpwi 7,9,0
				beq 7,.L815
 1655    ptype = 0;  spec given = 0
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				li 10,0
				stw 10,620(9)
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				li 10,0
				stw 10,676(9)
 1656
				stw 10,268(9)
 1657    stats = stats+1;  op('O', lines) %IF perm = 0
				lwz 10,640(9)
				addi 10,10,1
				stw 10,640(9)
 1658
				lis 9,.LANCHOR1+7028@ha
				lwz 9,.LANCHOR1+7028@l(9)
				cmpwi 7,9,0
				beq 7,.L887
		.L817:
		.LVL753:
		.L856:
 1659    ->fail1 %IF atom1&error # 0;                  !first atom faulty
				lwz 11,64(29)
				lis 9,.LANCHOR0+184@ha
				lwz 4,.LANCHOR0+184@l(9)
				li 3,79
				bl OP.7241
		.LVL814:
				b .L856
		.LVL815:
		.L818:
		.L819:
 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
				stw 10,276(31)
 1756 a2:   %IF gg&trans bit = 0 %START;                !insert into analysis record
				li 9,0
				stw 9,240(31)
 1757          z == node
				lwz 27,220(31)
		.LVL816:
		.L820:
				lwz 10,656(31)
				andi. 9,10,0x1
				beq 0,.L888
		.L821:
		.LVL817:
				addi 9,1,278
		.LVL911:
 1758          %CYCLE;                                  !insert cell in order
 1759             k = z
				lha 9,278(1)
		.LVL819:
				addi 9,9,813
		.LVL822:
				slwi 9,9,4
		.LVL823:
				add 9,7,9
				lha 9,8(9)
		.LVL824:
				addi 10,10,-4096
 1760             %EXIT %IF gg&order bits = 0 %OR k = 0
 1761             gg = gg-order bit;  z == ar(k)_link
				cmpwi 7,9,0
				beq 7,.L822
				mr 6,10
				cmpwi 7,9,0
				bne 7,.L823
 1762          %REPEAT
				lwz 7,64(29)
				addi 10,10,-4096
		.LVL820:
		.L823:
				addi 8,9,-1
		.LDL38:
		.LVL821:
				slwi 9,8,4
		.LVL825:
				addi 9,9,13032
				add 9,7,9
		.LDL39:
		.LDL40:
				stw 6,656(31)
 1763          gg = map gg %IF map gg # 0 %AND gg&255 = var
				lwz 10,252(31)
				cmpwi 7,10,0
				beq 7,.L824
				lwz 10,252(31)
				cmpwi 7,10,0
				beq 7,.L824
				b .L874
		.LVL912:
		.L896:
 1764          nmin = nmin-1;  ->fail0 %IF nmin = nmax
				andi. 8,6,0x1
		.LVL826:
				bne 0,.L824
		.L874:
				lwz 10,672(31)
				addi 8,10,-1
				stw 8,672(31)
 1765          z = nmin
				stw 10,656(31)
		.L824:
				lwz 7,668(31)
				cmpw 7,8,7
				beq 7,.L825
		.L826:
				sth 8,0(9)
		.LVL827:
				slwi 10,10,4
		.LVL828:
				lwz 9,64(29)
				add 9,9,10
 1766          arp == ar(nmin)
 1767          arp_sub = s;  arp_class = (gg&255)!mark
				sth 27,12998(9)
		.LVL829:
 1768          arp_link = k
				lbz 10,659(31)
				or 23,10,23
				sth 23,12996(9)
				li 10,0
				sth 10,13000(9)
				b .L821
		.LVL830:
		.L891:
		.LBB682:
		.LBB643:
		.LBB624:
		.LBB625:
				bl _imp_newline
		.LVL831:
				b .L828
		.LVL832:
		.L892:
		.LBE625:
		.LBE624:
		.LBB626:
		.LBB627:
				li 3,123
		.LVL833:
				bl _imp_printsymbol
		.LVL834:
		.LBE627:
		.LBE626:
 1769       %FINISH
 1770       mark = 0;  map gg = 0
 1771
				li 9,0
				stw 9,252(31)
				b .L816
		.LVL818:
		.L888:
 1772 more: g = glink(g);                               !chain down the grammar
 1773
				mr 31,9
				lis 26,.LANCHOR1@ha
				la 26,.LANCHOR1@l(26)
		.LBB621:
		.LBB622:
				lwz 9,680(31)
				slwi 9,9,1
				add 9,26,9
				lha 9,4(9)
				stw 9,680(31)
				li 23,0
				b .L827
		.LVL752:
		.L815:
 1774 paction(0):
 1775 a3:   gg = gram(g);  class = gg&255
 1776       trace analysis %IF diag&1 # 0
				lwz 9,680(31)
				slwi 9,9,1
				add 9,26,9
				lha 9,3446(9)
				stw 9,656(31)
 1777       ->a5 %IF class = 0;                         !end of phrase
				rlwinm 9,9,0,0xff
				stw 9,684(31)
		.LBB683:
		.LBB644:
				lwz 30,684(31)
				cmpwi 7,30,0
				beq 7,.L832
		.L833:
 1778
 1779       %IF class < actions %START;                 !not a phrase or an action
				cmpwi 7,30,179
				bgt 7,.L834
 1780          class = atomic(class) %IF class >= figurative
				cmpwi 7,30,129
				ble 7,.L835
 1781          ->a2 %IF class >= manifest
				lwz 3,684(31)
				cmpwi 7,3,119
				bgt 7,.L820
		.L836:
				lwz 9,64(29)
				add 9,9,30
				addis 9,9,0x1
				lbz 9,-26814(9)
				stw 9,684(31)
				b .L835
		.L889:
 1782          code atom(class) %IF atom1 = 0
				lwz 9,240(31)
				cmpwi 7,9,0
				beq 7,.L889
		.L837:
 1783          %IF escape class # 0 %START;             !escape to new grammar
				lwz 9,244(31)
				cmpwi 7,9,0
				bne 7,.L890
		.L838:
				mr 11,25
				bl CODEATOM.7599
		.LVL857:
				b .L837
		.L890:
 1784             class = escape class;  escape class = 0
				lis 10,.LANCHOR0@ha
				la 10,.LANCHOR0@l(10)
				stw 9,684(10)
 1785             g = g+escape
				li 8,0
				stw 8,244(10)
				lwz 9,680(10)
				addi 9,9,4096
				stw 9,680(10)
		.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)
				stw 8,656(10)
		.LVL858:
				lwz 9,668(10)
				slwi 8,9,4
				lwz 9,64(29)
				add 9,9,8
 1792             arp_papp = papp;  arp_x = x;  ->a4
				lwz 8,708(10)
				sth 8,13036(9)
		.LVL859:
 1793          %FINISH
				lwz 10,208(10)
				sth 10,13040(9)
		.L839:
 1794
 1795          ->a1 %IF class = atom1 %OR class = atom2
				lwz 9,684(31)
				lwz 10,240(31)
				cmpw 7,9,10
				beq 7,.L818
 1796
				lwz 10,248(31)
				cmpw 7,9,10
				beq 7,.L818
		.L840:
		.L841:
 1797 a7:      ->fail1 %IF gg >= 0;                     !no alternative
 1798          g = g+1
				lwz 9,656(31)
				cmpwi 7,9,0
				bge 7,.L856
		.L842:
				lwz 9,680(31)
				addi 9,9,1
				stw 9,680(31)
		.L827:
 1799          ->a3
 1800       %FINISH
 1801
 1802       %IF class >= phrasal %START;                !a phrase
				cmpwi 7,30,199
				bgt 7,.L839
		.L844:
		.LVL870:
		.LDL44:
 1803 a4:      nmax = nmax+1;  ->fail0 %IF nmax = nmin
 1804          arp == ar(nmax)
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				lwz 8,668(9)
				addi 10,8,1
				stw 10,668(9)
 1805          arp_ptype = ptype
				lwz 9,672(9)
				cmpw 7,10,9
				beq 7,.L825
		.L845:
		.LVL860:
				slwi 8,8,4
		.LVL861:
				lwz 10,64(29)
				add 10,10,8
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				lwz 8,676(9)
				sth 8,13034(10)
		.LVL862:
 1806          arp_pos = pos1
				lwz 8,296(9)
				sth 8,13042(10)
 1807          arp_pformat = pformat
				lwz 8,712(9)
				sth 8,13038(10)
 1808          arp_link = gentype
				lwz 8,660(9)
				sth 8,13032(10)
 1809          arp_class = node
				lhz 8,278(1)
				sth 8,13028(10)
 1810          arp_sub = g
				lwz 8,680(9)
				sth 8,13030(10)
 1811          node = 0
				li 10,0
				sth 10,278(1)
 1812          g = phrase(class)
				lwz 10,684(9)
				addi 10,10,-200
				slwi 8,10,1
				lis 10,.LANCHOR1@ha
				la 10,.LANCHOR1@l(10)
				add 10,10,8
				lha 10,6912(10)
				stw 10,680(9)
 1813          ptype = force %AND force = 0 %IF force # 0
				lwz 9,664(9)
				cmpwi 7,9,0
				beq 7,.L846
 1814          gentype = 0
				lis 10,.LANCHOR0@ha
				la 10,.LANCHOR0@l(10)
				stw 9,676(10)
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				li 10,0
				stw 10,660(9)
		.LVL863:
 1815          ->paction(gg>>8&15)
				li 9,0
				stw 9,664(10)
		.L846:
				lwz 28,656(9)
				rlwinm 28,28,24,28,31
		.LVL864:
		.L847:
 1816       %FINISH
 1817
 1818       ->act(class);                               !only actions left
 1819
 1820 a5:   !reverse links
 1821
 1822       s = 0
				mr 27,30
				b .L850
		.LVL884:
		.L852:
 1823       %WHILE node # 0 %CYCLE
 1824          z == ar(node)_link
				lha 9,278(1)
				cmpwi 7,9,0
				beq 7,.L876
		.LVL872:
		.L851:
				mr 27,9
		.LVL873:
				slwi 9,9,4
		.LVL874:
				lwz 10,64(29)
				add 10,10,9
				mr 30,27
				cmpwi 7,9,0
				bne 7,.L851
				sth 9,278(1)
		.LVL877:
		.L850:
 1825          k = z;  z = s;  s = node;  node = k
				lha 9,13016(10)
		.LVL875:
 1826       %REPEAT
				sth 30,13016(10)
		.LVL876:
		.LDL45:
		.LDL46:
 1827       ss = s
				stw 27,624(31)
		.LDL47:
 1828
 1829 a6:   %IF nmax # 0 %START
 1830          k = gentype;                             !type of phrase
				lwz 10,668(31)
				cmpwi 7,10,0
				beq 7,.L852
		.LVL878:
 1831          arp == ar(nmax);  nmax = nmax-1
				lwz 9,64(29)
		.LVL879:
				addi 8,10,-1
 1832          node = arp_class
				stw 8,668(31)
				slwi 10,10,4
		.LVL880:
				add 9,9,10
		.LVL881:
				lhz 10,13012(9)
				sth 10,278(1)
 1833          gentype = arp_link
				lha 10,13016(9)
				stw 10,660(31)
 1834          ptype = arp_ptype
				lha 10,13018(9)
				stw 10,676(31)
 1835          pformat = arp_pformat
				lha 10,13022(9)
				stw 10,712(31)
 1836          g = arp_sub
				lha 10,13014(9)
 1837          %IF g&escape # 0 %START
 1838             g = g-escape
				addi 10,10,-4096
				stw 10,680(31)
 1839             papp = arp_papp
				lha 9,13020(9)
				stw 9,708(31)
		.LVL882:
 1840             mark = 255
				li 23,255
 1841             subatom = s
				stw 27,220(31)
 1842             ->a3
				b .L827
		.LVL883:
		.L876:
 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
				lis 9,.LANCHOR0+280@ha
				lwz 9,.LANCHOR0+280@l(9)
				cmpwi 7,9,0
				bne 7,.L894
		.L853:
 1859       fault(13) %IF order = 0
				lis 9,.LANCHOR0+628@ha
				lwz 9,.LANCHOR0+628@l(9)
				cmpwi 7,9,0
				beq 7,.L895
		.L854:
		.LDL48:
				mr 11,29
				li 3,4
				bl FAULT.7277
		.LVL885:
				b .L853
		.L895:
 1860       fault(-4) %IF for warn # 0
				mr 11,29
				li 3,13
				bl FAULT.7277
		.LVL886:
				b .L854
		.LVL887:
		.L848:
 1861       pos1 = 0
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				li 10,0
				stw 10,296(9)
 1862       fault rate = fault rate-1
				lwz 10,716(9)
				addi 10,10,-1
				stw 10,716(9)
		.L802:
 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:
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				li 10,0
				stw 10,256(9)
		.LVL754:
		.L825:
		.LBB645:
 1954       %IF diag&32 # 0 %START
 1955          printstring("Atom1 =");       write(atom1, 3)
				lis 30,.LANCHOR2@ha
				la 30,.LANCHOR2@l(30)
				li 5,256
				addi 4,30,2948
				addi 3,1,5420
				bl memcpy
		.LVL755:
				li 5,256
				addi 4,1,5420
				addi 3,1,300
				bl memcpy
		.LVL756:
				li 5,256
				addi 4,1,300
				addi 3,1,5420
				bl memcpy
		.LVL757:
		.LBE645:
		.LBB646:
		.LBB647:
				li 5,256
				addi 4,1,5420
				addi 3,1,16
				bl memcpy
		.LVL758:
				addi 3,1,16
				bl _imp_printstring
		.LVL759:
		.LBE647:
		.LBE646:
 1956          printstring("  Atom2 =");     write(atom2, 3)
				lis 31,.LANCHOR0@ha
				la 31,.LANCHOR0@l(31)
				li 4,3
				lwz 3,240(31)
				bl _imp_writeint
		.LVL760:
		.LBB648:
				li 5,256
				addi 4,30,3204
				addi 3,1,4396
				bl memcpy
		.LVL761:
				li 5,256
				addi 4,1,4396
				addi 3,1,556
				bl memcpy
		.LVL762:
				li 5,256
				addi 4,1,556
				addi 3,1,4396
				bl memcpy
		.LVL763:
		.LBE648:
		.LBB649:
		.LBB650:
				li 5,256
				addi 4,1,4396
				addi 3,1,16
				bl memcpy
		.LVL764:
				addi 3,1,16
				bl _imp_printstring
		.LVL765:
		.LBE650:
		.LBE649:
 1957          printstring("  subatom =");   write(subatom, 3);  newline
				li 4,3
				lwz 3,248(31)
				bl _imp_writeint
		.LVL766:
		.LBB651:
				li 5,256
				addi 4,30,3460
				addi 3,1,4140
				bl memcpy
		.LVL767:
				li 5,256
				addi 4,1,4140
				addi 3,1,812
				bl memcpy
		.LVL768:
				li 5,256
				addi 4,1,812
				addi 3,1,4140
				bl memcpy
		.LVL769:
		.LBE651:
		.LBB652:
		.LBB653:
				li 5,256
				addi 4,1,4140
				addi 3,1,16
				bl memcpy
		.LVL770:
				addi 3,1,16
				bl _imp_printstring
		.LVL771:
		.LBE653:
		.LBE652:
 1958          printstring("Type =");        write(type, 1)
				li 4,3
				lwz 3,220(31)
				bl _imp_writeint
		.LVL772:
		.LBB654:
		.LBB655:
				bl _imp_newline
		.LVL773:
		.LBE655:
		.LBE654:
		.LBB656:
				li 5,256
				addi 4,30,3716
				addi 3,1,3884
				bl memcpy
		.LVL774:
				li 5,256
				addi 4,1,3884
				addi 3,1,1068
				bl memcpy
		.LVL775:
				li 5,256
				addi 4,1,1068
				addi 3,1,3884
				bl memcpy
		.LVL776:
		.LBE656:
		.LBB657:
		.LBB658:
				li 5,256
				addi 4,1,3884
				addi 3,1,16
				bl memcpy
		.LVL777:
				addi 3,1,16
				bl _imp_printstring
		.LVL778:
		.LBE658:
		.LBE657:
 1959          printstring("   Ptype =");    write(ptype, 1);    newline
				li 4,1
				lwz 3,236(31)
				bl _imp_writeint
		.LVL779:
		.LBB659:
				li 5,256
				addi 4,30,3972
				addi 3,1,3628
				bl memcpy
		.LVL780:
				li 5,256
				addi 4,1,3628
				addi 3,1,1324
				bl memcpy
		.LVL781:
				li 5,256
				addi 4,1,1324
				addi 3,1,3628
				bl memcpy
		.LVL782:
		.LBE659:
		.LBB660:
		.LBB661:
				li 5,256
				addi 4,1,3628
				addi 3,1,16
				bl memcpy
		.LVL783:
				addi 3,1,16
				bl _imp_printstring
		.LVL784:
		.LBE661:
		.LBE660:
 1960          printstring("App =");         write(app, 1)
				li 4,1
				lwz 3,676(31)
				bl _imp_writeint
		.LVL785:
		.LBB662:
		.LBB663:
				bl _imp_newline
		.LVL786:
		.LBE663:
		.LBE662:
		.LBB664:
				li 5,256
				addi 4,30,4228
				addi 3,1,3372
				bl memcpy
		.LVL787:
				li 5,256
				addi 4,1,3372
				addi 3,1,1580
				bl memcpy
		.LVL788:
				li 5,256
				addi 4,1,1580
				addi 3,1,3372
				bl memcpy
		.LVL789:
		.LBE664:
		.LBB665:
		.LBB666:
				li 5,256
				addi 4,1,3372
				addi 3,1,16
				bl memcpy
		.LVL790:
				addi 3,1,16
				bl _imp_printstring
		.LVL791:
		.LBE666:
		.LBE665:
 1961          printstring("   Papp =");     write(papp, 1);     newline
				li 4,1
				lwz 3,232(31)
				bl _imp_writeint
		.LVL792:
		.LBB667:
				li 5,256
				addi 4,30,4484
				addi 3,1,3116
				bl memcpy
		.LVL793:
				li 5,256
				addi 4,1,3116
				addi 3,1,1836
				bl memcpy
		.LVL794:
				li 5,256
				addi 4,1,1836
				addi 3,1,3116
				bl memcpy
		.LVL795:
		.LBE667:
		.LBB668:
		.LBB669:
				li 5,256
				addi 4,1,3116
				addi 3,1,16
				bl memcpy
		.LVL796:
				addi 3,1,16
				bl _imp_printstring
		.LVL797:
		.LBE669:
		.LBE668:
 1962          printstring("Format =");      write(format, 1)
				li 4,1
				lwz 3,708(31)
				bl _imp_writeint
		.LVL798:
		.LBB670:
		.LBB671:
				bl _imp_newline
		.LVL799:
		.LBE671:
		.LBE670:
		.LBB672:
				li 5,256
				addi 4,30,4740
				addi 3,1,2860
				bl memcpy
		.LVL800:
				li 5,256
				addi 4,1,2860
				addi 3,1,2092
				bl memcpy
		.LVL801:
				li 5,256
				addi 4,1,2092
				addi 3,1,2860
				bl memcpy
		.LVL802:
		.LBE672:
		.LBB673:
		.LBB674:
				li 5,256
				addi 4,1,2860
				addi 3,1,16
				bl memcpy
		.LVL803:
				addi 3,1,16
				bl _imp_printstring
		.LVL804:
		.LBE674:
		.LBE673:
 1963          printstring("   Pformat =");  write(pformat, 1);  newline
				li 4,1
				lwz 3,228(31)
				bl _imp_writeint
		.LVL805:
		.LBB675:
				li 5,256
				addi 4,30,4996
				addi 3,1,2604
				bl memcpy
		.LVL806:
				li 5,256
				addi 4,1,2604
				addi 3,1,2348
				bl memcpy
		.LVL807:
				li 5,256
				addi 4,1,2348
				addi 3,1,2604
				bl memcpy
		.LVL808:
		.LBE675:
		.LBB676:
		.LBB677:
				li 5,256
				addi 4,1,2604
				addi 3,1,16
				bl memcpy
		.LVL809:
				addi 3,1,16
				bl _imp_printstring
		.LVL810:
		.LBE677:
		.LBE676:
 1964 !IMP80 BUG???           %SIGNAL 13,15
				li 4,1
				lwz 3,712(31)
				bl _imp_writeint
		.LVL811:
		.LBB678:
		.LBB679:
				bl _imp_newline
		.LVL812:
		.LBE679:
		.LBE678:
		.LBB680:
		.LBB681:
				li 3,0
				bl exit
		.LVL813:
		.L887:
		.LBE681:
		.LBE680:
 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
				stwu 1,-5088(1)
				mflr 0
				stw 0,5092(1)
				stw 28,5072(1)
				stw 29,5076(1)
				stw 30,5080(1)
				stw 31,5084(1)
				stw 11,20(1)
				lwz 9,-28680(2)
				stw 9,5068(1)
				li 9,0
				addi 9,1,5088
				stw 9,640(1)
				stw 11,636(1)
 1978
				addi 9,30,-180
				cmplwi 7,9,20
				bgt 7,.L848
		.L849:
				lis 9,_imp_current_file@ha
				lwz 4,_imp_current_file@l(9)
				cmpwi 7,4,0
				beq 7,.L857
				addi 3,1,3884
				bl _imp_c2istr
		.LVL888:
		.L858:
				lis 9,_imp_current_line@ha
				lwz 31,_imp_current_line@l(9)
				cmpwi 7,31,0
				bne 7,.L859
				li 31,1978
		.L859:
				li 5,256
				addi 4,1,3884
				addi 3,1,16
				bl memcpy
		.LVL889:
				li 9,1818
				stw 9,8(1)
				lis 10,.LC77@ha
				la 10,.LC77@l(10)
				mr 9,30
				lis 8,.LC87@ha
				la 8,.LC87@l(8)
				mr 7,30
				li 6,3
				li 5,6
				mr 4,31
				addi 3,1,16
				crxor 6,6,6
				bl _signal_eventf
		.LVL890:
				b .L849
		.L857:
		.LBB684:
				li 5,256
				lis 4,.LANCHOR2@ha
				la 4,.LANCHOR2@l(4)
				addi 3,1,5420
				bl memcpy
		.LVL891:
				li 5,256
				addi 4,1,5420
				addi 3,1,2860
				bl memcpy
		.LVL892:
		.LBE684:
				li 5,256
				addi 4,1,2860
				addi 3,1,3884
				bl memcpy
		.LVL893:
				b .L858
		.LVL894:
		.L861:
 1979       %CONSTINTEGER then = 4, else = 8, loop = 16
				addi 9,30,-180
				slwi 10,9,2
				lis 9,.LANCHOR2@ha
				la 9,.LANCHOR2@l(9)
				add 9,9,10
				lwz 9,5252(9)
				b .L860
		.LVL871:
		.L832:
 1980
 1981       %SWITCH c(0:actions), litop(1:12)
				lis 9,_imp_current_file@ha
				lwz 4,_imp_current_file@l(9)
				cmpwi 7,4,0
				beq 7,.L897
				addi 3,1,4140
				bl _imp_c2istr
		.LVL895:
		.L864:
				lis 9,_imp_current_line@ha
				lwz 31,_imp_current_line@l(9)
				cmpwi 7,31,0
				bne 7,.L865
				li 31,1981
		.L865:
				li 5,256
				addi 4,1,4140
				addi 3,1,16
				bl memcpy
		.LVL896:
				li 9,1818
				stw 9,8(1)
				lis 10,.LC77@ha
				la 10,.LC77@l(10)
				mr 9,30
				lis 8,.LC88@ha
				la 8,.LC88@l(8)
				mr 7,30
				li 6,2
				li 5,8
				mr 4,31
				addi 3,1,16
				crxor 6,6,6
				bl _signal_eventf
		.LVL897:
				b .L847
		.L897:
		.LBB685:
				li 5,256
				lis 4,.LANCHOR2@ha
				la 4,.LANCHOR2@l(4)
				addi 3,1,5420
				bl memcpy
		.LVL898:
				li 5,256
				addi 4,1,5420
				addi 3,1,3116
				bl memcpy
		.LVL899:
		.LBE685:
				li 5,256
				addi 4,1,3116
				addi 3,1,4140
				bl memcpy
		.LVL900:
				b .L864
		.L867:
		.LBB686:
 1982
 1983       %CONSTBYTEINTEGERARRAY operator(1:14) = %C
				lis 9,.LANCHOR2@ha
				la 9,.LANCHOR2@l(9)
				lwz 6,1580(9)
				lwz 7,1584(9)
				lwz 8,1588(9)
				lhz 10,1592(9)
				stw 6,5036(1)
				stw 7,5040(1)
				stw 8,5044(1)
				sth 10,5048(1)
 1984                          '[',  ']',  'X',  '/', '&',  '!',  '%',  '+',
				cmplwi 7,28,15
				ble 7,.L866
				lis 9,_imp_current_file@ha
				lwz 4,_imp_current_file@l(9)
				cmpwi 7,4,0
				beq 7,.L867
				addi 3,1,4396
				bl _imp_c2istr
		.LVL865:
		.L868:
				lis 9,_imp_current_line@ha
				lwz 31,_imp_current_line@l(9)
				cmpwi 7,31,0
				bne 7,.L869
				li 31,1984
		.L869:
				li 5,256
				addi 4,1,4396
				addi 3,1,16
				bl memcpy
		.LVL866:
				li 9,1815
				stw 9,8(1)
				lis 10,.LC77@ha
				la 10,.LC77@l(10)
				mr 9,28
				lis 8,.LC89@ha
				la 8,.LC89@l(8)
				mr 7,28
				li 6,3
				li 5,6
				mr 4,31
				addi 3,1,16
				crxor 6,6,6
				bl _signal_eventf
		.LVL867:
		.L866:
				li 5,256
				lis 4,.LANCHOR2@ha
				la 4,.LANCHOR2@l(4)
				addi 3,1,5420
				bl memcpy
		.LVL901:
				li 5,256
				addi 4,1,5420
				addi 3,1,3372
				bl memcpy
		.LVL902:
		.LBE686:
				li 5,256
				addi 4,1,3372
				addi 3,1,4396
				bl memcpy
		.LVL903:
				b .L868
		.L870:
 1985                          '-',  '*',  'Q',  'x', '.',  'v'
				slwi 10,28,2
				lis 9,.LANCHOR2@ha
				la 9,.LANCHOR2@l(9)
				add 9,9,10
				lwz 9,5336(9)
		.LVL868:
		.L860:
				mtctr 9
				bctr
		.LVL869:
		.L834:
 1986
 1987       %CONSTBYTEINTEGERARRAY cc(0 : 7) = '#','=',')','<','(','>', 'k','t'
				li 10,35
				stb 10,5028(1)
				li 10,61
				stb 10,5029(1)
				li 10,41
				stb 10,5030(1)
				li 10,60
				stb 10,5031(1)
				li 10,40
				stb 10,5032(1)
				li 10,62
				stb 10,5033(1)
				li 10,107
				stb 10,5034(1)
				li 10,116
				stb 10,5035(1)
				lis 9,_imp_current_file@ha
				lwz 4,_imp_current_file@l(9)
				cmpwi 7,4,0
				beq 7,.L871
				addi 3,1,5420
				bl _imp_c2istr
		.LVL904:
		.L872:
				lis 9,_imp_current_line@ha
				lwz 31,_imp_current_line@l(9)
				cmpwi 7,31,0
				bne 7,.L873
				li 31,1987
		.L873:
				li 5,256
				addi 4,1,5420
				addi 3,1,16
				bl memcpy
		.LVL905:
				li 9,1815
				stw 9,8(1)
				lis 10,.LC77@ha
				la 10,.LC77@l(10)
				mr 9,28
				lis 8,.LC90@ha
				la 8,.LC90@l(8)
				mr 7,28
				li 6,2
				li 5,8
				mr 4,31
				addi 3,1,16
				crxor 6,6,6
				bl _signal_eventf
		.LVL906:
				b .L802
		.L871:
		.LBB687:
				li 5,256
				lis 4,.LANCHOR2@ha
				la 4,.LANCHOR2@l(4)
				addi 3,1,5420
				bl memcpy
		.LVL907:
				li 5,256
				addi 4,1,5420
				addi 3,1,3628
				bl memcpy
		.LVL908:
		.LBE687:
				li 5,256
				addi 4,1,3628
				addi 3,1,5420
				bl memcpy
		.LVL909:
				b .L872
		.LVL910:
		.L822:
 1988
				lwz 9,5932(1)
				lwz 10,-28680(2)
				xor. 9,9,10
				li 10,0
				bne 0,.L896
				lwz 0,5988(1)
				mtlr 0
				lwz 22,5944(1)
				lwz 23,5948(1)
				lwz 24,5952(1)
				lwz 25,5956(1)
				lwz 26,5960(1)
				lwz 27,5964(1)
				lwz 28,5968(1)
				lwz 29,5972(1)
				lwz 30,5976(1)
				lwz 31,5980(1)
				addi 1,1,5984
				blr
		.L894:
				bl __stack_chk_fail
		.LVL913:
		.LFE198:
				.align 2
		COMPILEBLOCK.7251:
		.LFB191:
 1989       %CONSTBYTEINTEGERARRAY anyform(0:15) = 1,0,1,1(4),1,0,1,1,0,1,1,1,1
				lwz 6,1596(9)
				lwz 7,1600(9)
				lwz 8,1604(9)
				lwz 10,1608(9)
				stw 6,5052(1)
				stw 7,5056(1)
				stw 8,5060(1)
				stw 10,5064(1)
 1990
 1991       %CONSTSHORTINTEGERARRAY decmap(0:15) = %C
				lwz 6,1612(9)
				lwz 7,1616(9)
				lwz 8,1620(9)
				lwz 10,1624(9)
				stw 6,644(1)
				stw 7,648(1)
				stw 8,652(1)
				stw 10,656(1)
				lwz 7,1628(9)
				lwz 8,1632(9)
				lwz 10,1636(9)
				lwz 9,1640(9)
				stw 7,660(1)
				stw 8,664(1)
				stw 10,668(1)
				stw 9,672(1)
 1992          1,             2,
 1993          x'100B',       x'100D',       x'140C',      x'140E',
 1994          3,             4,
 1995          x'1007',       x'1008',       x'1009',      x'100A',
 1996          6,             0,             0,            0
 1997       %OWNBYTEINTEGERARRAY cnest(0:15)
 1998       %INTEGER lmode, clab, dupid
 1999       %INTEGER resln
 2000       %OWNINTEGER last def = 0
 2001       %OWNINTEGER lb, ub
 2002       %INTEGER cp, ord
 2003       %INTEGER next, link, j, k, n, done
 2004       %INTEGER class
 2005       %INTEGER lit2, defs, decs, cident
 2006       %INTEGER pending;  %OWNINTEGERARRAY pstack(1:40)
 2007       %OWNSTRING(8) name = ""
 2008       %OWNINTEGER count = 0
 2009
 2010       %ROUTINE def lab(%INTEGER l)
		.LVL9:
				stwu 1,-32(1)
				mflr 0
				stw 0,36(1)
				stw 31,28(1)
				mr 31,11
 2011          op(':', l)
				lwz 9,32(11)
				lwz 11,64(9)
				mr 4,3
				li 3,58
		.LVL10:
				bl OP.7241
		.LVL11:
 2012          access = 1
				lwz 9,32(31)
				li 10,1
				stw 10,24(9)
 2013       %END
 2014
				lwz 0,36(1)
				mtlr 0
				lwz 31,28(1)
				addi 1,1,32
				blr
		.LFE210:
				.align 2
		POPLIT.8270:
		.LFB219:
 2015       %ROUTINE get next
				stwu 1,-1584(1)
				lwz 9,-28680(2)
				stw 9,1564(1)
				li 9,0
				lis 9,.LANCHOR0+208@ha
				lwz 8,.LANCHOR0+208@l(9)
				li 10,0
				li 5,0
				li 6,1
		.L335:
 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
				lwz 9,28(11)
				cmpwi 7,9,0
				bne 7,.L336
				lwz 9,24(11)
				cmpwi 7,9,0
				beq 7,.L353
		.L337:
		.LVL330:
 2019             p == ar(link)
				lwz 10,32(11)
				slwi 9,9,4
		.LVL331:
				lwz 10,64(10)
				add 9,10,9
				li 9,0
				stw 9,20(11)
 2020             next = p_link
				lha 10,13016(9)
				stw 10,28(11)
		.LVL332:
				b .L334
		.L355:
				lis 9,.LANCHOR0+208@ha
				stw 8,.LANCHOR0+208@l(9)
				b .L338
		.LVL335:
		.L354:
				mflr 0
				stw 0,1588(1)
				stw 31,1580(1)
				lis 7,.LANCHOR0+208@ha
				stw 9,.LANCHOR0+208@l(7)
				b .L341
		.LVL336:
		.L345:
 2021             link = p_sub
				lha 9,13014(9)
				stw 9,24(11)
		.L336:
 2022          %FINISH
 2023          %CYCLE
 2024             p == ar(next)
				lwz 7,28(11)
				addi 8,7,-1
				lwz 9,32(11)
				lwz 10,64(9)
		.LVL333:
				slwi 7,7,4
				add 7,10,7
				addi 8,9,-1
				lwz 10,32(11)
				lwz 10,64(10)
		.LVL337:
				slwi 9,9,4
				add 7,10,9
 2025             x = p_sub
				lha 9,13014(7)
				lha 9,13014(7)
 2026             class = p_class
				lha 7,13012(7)
				stw 7,20(11)
				lha 7,13012(7)
				stw 7,20(11)
 2027             %EXIT %IF class < actions;               !an atom
				cmpwi 7,7,179
				ble 7,.L354
				cmpwi 7,7,179
				ble 7,.L356
		.L344:
 2028             %IF x = 0 %START;                        !null phrase
				cmpwi 7,9,0
				bne 7,.L342
		.LVL334:
		.L343:
				cmpwi 7,9,0
				beq 7,.L343
		.LVL338:
		.L342:
				slwi 8,8,4
		.LVL339:
				add 10,10,8
 2029                next = p_link;  ->gn
				addi 8,8,814
				slwi 8,8,4
				add 10,10,8
				lha 9,8(10)
				stw 9,28(11)
				mr 8,5
				mr 10,6
 2030             %FINISH
				b .L335
		.L353:
				cmpwi 7,10,0
				bne 7,.L355
		.L338:
 2031             %IF p_link # 0 %START;                   !follow a phrase
				lha 8,13032(10)
				cmpwi 7,8,0
				beq 7,.L345
 2032                p_sub = link;  link = next
				lwz 8,24(11)
				sth 8,13030(10)
 2033             %FINISH
				lwz 10,28(11)
				stw 10,24(11)
				b .L345
		.LVL340:
		.L356:
				mflr 0
				stw 0,1588(1)
				stw 31,1580(1)
				lis 7,.LANCHOR0+208@ha
				stw 9,.LANCHOR0+208@l(7)
		.LVL341:
		.L341:
 2034             next = x
				stw 9,28(11)
 2035          %REPEAT
 2036          next = p_link
				addi 8,8,814
				slwi 8,8,4
				add 10,10,8
				lha 9,8(10)
				stw 9,28(11)
 2037          %IF diag&2 # 0 %START
 2038             spaces(8-length(name)) %UNLESS name = ""
 2039             name = text(class)
 2040             write(x, 2)
				addi 4,1,284
				lis 3,.LANCHOR0@ha
				la 3,.LANCHOR0@l(3)
				addi 3,3,352
				bl _imp_strcmp
		.LVL342:
				cmpwi 7,3,0
				bne 7,.L357
		.L346:
				li 4,2
				lwz 3,208(31)
				bl _imp_writeint
		.LVL344:
		.LBB390:
		.LBB391:
				bl _imp_space
		.LVL345:
				li 5,256
				addi 4,1,796
				addi 3,1,1308
				bl memcpy
		.LVL346:
		.LBE391:
		.LBE390:
		.LBB392:
		.LBB393:
				li 5,256
				addi 4,1,1308
				addi 3,1,16
				bl memcpy
		.LVL347:
				addi 3,1,16
				bl _imp_printstring
		.LVL348:
		.LBE393:
		.LBE392:
		.LBB394:
		.LBB395:
				bl _imp_space
		.LVL349:
		.LBE395:
		.LBE394:
 2041             space
				lis 31,.LANCHOR0@ha
				la 31,.LANCHOR0@l(31)
				li 5,8
				addi 4,1,540
				addi 3,31,352
				bl _imp_strncpy
		.LVL343:
 2042             printstring(name)
 2043             space
				lis 9,.LANCHOR0+352@ha
				lbz 3,.LANCHOR0+352@l(9)
		.LBB396:
		.LBB397:
				subfic 3,3,8
				bl _imp_spaces
		.LVL351:
				b .L346
		.L347:
		.LBE397:
		.LBE396:
 2044             count = count-1
				lwz 9,608(31)
				lis 9,.LANCHOR0+608@ha
				stw 10,.LANCHOR0+608@l(9)
				lwz 31,1580(1)
				lwz 0,1588(1)
				mtlr 0
		.L339:
		.L348:
		.L334:
 2045             %IF count <= 0 %START
				addic. 10,9,-1
				ble 0,.L347
 2046                count = 5
				lis 3,.LANCHOR0@ha
				la 3,.LANCHOR0@l(3)
				li 9,5
				stw 9,608(3)
		.LVL352:
 2047                name = ""
 2048                newline
 2049             %FINISH
				li 5,8
				addi 4,1,1052
				addi 3,3,352
				bl _imp_strncpy
		.LVL353:
		.LBB398:
		.LBB399:
				bl _imp_newline
		.LVL354:
				lwz 31,1580(1)
				lwz 0,1588(1)
				mtlr 0
				b .L334
		.L358:
				mflr 0
				stw 0,1588(1)
				stw 31,1580(1)
		.LBE399:
		.LBE398:
 2050          %FINISH
 2051       %END
 2052
				lwz 9,1564(1)
				lwz 10,-28680(2)
				xor. 9,9,10
				li 10,0
				bne 0,.L358
				addi 1,1,1584
				blr
		.L357:
		.LVL350:
				bl __stack_chk_fail
		.LVL355:
		.LFE211:
				.align 2
		SETSUBS.8198:
		.LFB212:
 2053       %ROUTINE set subs(%INTEGER n)
		.LVL356:
				stwu 1,-16(1)
				mflr 0
				stw 0,20(1)
		.LVL361:
		.LBB400:
		.LBB401:
				li 3,0
				bl exit
		.LVL362:
		.L360:
		.L368:
				blr
		.LBE401:
		.LBE400:
		.LFE212:
				.align 2
		FAULT.7277:
		.LFB192:
 2054
 2055          !update the app field in n array descriptors
 2056
 2057          %INTEGER p
 2058          p = tmax
				lwz 8,32(11)
				lwz 9,52(8)
		.LVL357:
 2059          %WHILE n > 0 %CYCLE
 2060 !IMP80 BUG???              %SIGNAL 15,15 %IF p < tbase
				cmpwi 0,3,0
				blelr 0
				bdz .L368
 2061             %STOP %IF p < tbase
				lwz 7,56(8)
				cmpw 7,9,7
				blt 7,.L362
				lwz 8,32(11)
				lwz 10,56(8)
				cmpw 7,10,9
				ble 7,.L363
		.LVL360:
		.L362:
 2062             tag(p)_app = dimension
				lis 7,.LANCHOR0+196@ha
				lwz 7,.LANCHOR0+196@l(7)
				mtctr 3
		.LVL358:
		.L363:
				lwz 10,64(8)
				addi 8,9,13
				slwi 8,8,4
				add 10,10,8
				stw 7,4(10)
 2063             p = p-1;  n = n-1
				addi 9,9,-1
		.LVL359:
		.LDL19:
 2064          %REPEAT
 2065       %END
 2066
 2067       %ROUTINE set bp
				stwu 1,-32(1)
				mflr 0
				stw 0,36(1)
				stw 30,24(1)
				stw 31,28(1)
				mr 31,11
 2068
 2069          !define a constant bound pair from the last stacked constants
 2070
 2071          pending = pending-2
				lwz 9,16(11)
				addi 10,9,-2
				stw 10,16(11)
 2072          lb = pstack(pending+1);  ub = pstack(pending+2)
				lis 8,.LANCHOR0@ha
				la 8,.LANCHOR0@l(8)
				slwi 10,10,2
				add 10,8,10
				lwz 10,8(10)
				stw 10,612(8)
 2073          %IF ub-lb+1 < 0 %START
				addi 9,9,-1
				slwi 9,9,2
				add 9,8,9
				lwz 9,8(9)
				stw 9,616(8)
				subf 10,10,9
				addic. 9,10,1
				blt 0,.L429
		.L426:
 2074             pos1 = 0;  next = link;  fault(11)
				mr 30,8
				li 9,0
				stw 9,296(8)
 2075             ub = lb
				lwz 9,24(11)
				stw 9,28(11)
				lwz 9,612(30)
				stw 9,616(30)
				b .L426
		.LFE213:
				.align 2
		DEFSLAB.8247:
		.LFB216:
 2076          %FINISH
				lwz 11,32(11)
				li 3,11
				bl FAULT.7277
		.LVL426:
 2077          set const(lb);  set const(ub)
				lis 30,.LANCHOR0@ha
				la 30,.LANCHOR0@l(30)
				lwz 9,32(31)
				lwz 11,64(9)
				lwz 3,612(30)
				bl SETCONST.7244
		.LVL424:
 2078          bp=bp+1 %AND buff(bp)='b' %UNLESS class = 146
				lwz 9,32(31)
				lwz 11,64(9)
				lwz 3,616(30)
				bl SETCONST.7244
		.LVL425:
				lwz 9,20(31)
				cmpwi 7,9,146
				beq 7,.L425
 2079       %END
				lis 9,.LANCHOR0@ha
				lwz 10,.LANCHOR0@l(9)
				addi 8,10,1
				stw 8,.LANCHOR0@l(9)
 2080
				lwz 9,32(31)
				lwz 9,64(9)
				add 9,9,10
				addis 9,9,0x2
				li 10,98
				stb 10,-26362(9)
		.L427:
		.L425:
				lwz 0,36(1)
				mtlr 0
				lwz 30,24(1)
				lwz 31,28(1)
				addi 1,1,32
				blr
		.L429:
 2081       %ROUTINE compile end(%INTEGER type)
 2082
 2083          ! type = 0:eof, 1:eop, 2:end
 2084
 2085          %IF access # 0 %START
				lwz 10,636(1)
				lwz 9,24(10)
				cmpwi 7,9,0
				bne 7,.L585
		.L588:
 2086             open = 0
				li 9,0
				stw 9,20(10)
 2087             fault(19) %IF block form > proc;           !can reach end
				lwz 11,636(1)
				lwz 9,36(11)
				cmpwi 7,9,7
				ble 7,.L588
 2088          %FINISH
				li 3,19
				bl FAULT.7277
		.LVL564:
				b .L588
		.L776:
 2089
 2090          %WHILE dict(dmin) >= 0 %CYCLE;                !finishes & repeats
 2091             fault(17+dict(dmin)&1)
				lwz 11,636(1)
				lwz 10,64(11)
				lwz 9,40(11)
				addi 9,9,13415
				slwi 9,9,1
				add 9,10,9
				lha 3,4(9)
				cmpwi 7,3,0
				blt 7,.L586
		.L587:
				rlwinm 3,3,0,31,31
				addi 3,3,17
				bl FAULT.7277
		.LVL557:
				lwz 10,64(11)
				addi 9,9,13416
				slwi 9,9,1
				add 9,10,9
				lha 3,4(9)
				cmpwi 7,3,0
				bge 7,.L587
		.L586:
 2092             dmin = dmin+1
				lwz 11,636(1)
				lwz 9,40(11)
				addi 10,9,1
				stw 10,40(11)
 2093          %REPEAT
 2094          {delete names(0)}
 2095          bp=bp+1 %AND buff(bp)=';'
				lis 9,.LANCHOR0@ha
				lwz 8,.LANCHOR0@l(9)
				addi 7,8,1
				stw 7,.LANCHOR0@l(9)
 2096          bp=bp+1 %AND buff(bp)=';' %IF type = 1;       !endofprogram
				add 9,10,8
				addis 9,9,0x2
				li 10,59
				stb 10,-26362(9)
				cmpwi 7,31,1
				beq 7,.L776
		.L589:
 2097
				addi 8,8,2
				lis 9,.LANCHOR0@ha
				stw 8,.LANCHOR0@l(9)
 2098          bflags = bflags!open;                         !show if it returns
				lwz 10,16(11)
				lwz 9,20(11)
				lhz 8,0(10)
				or 9,9,8
				sth 9,0(10)
				lwz 9,64(11)
				add 9,9,7
				addis 9,9,0x2
				stb 10,-26362(9)
				lwz 10,16(11)
				lwz 9,20(11)
				lhz 8,0(10)
				or 9,9,8
				sth 9,0(10)
 2099
 2100          def lab(0) %IF block tag # 0 %AND level # 1;  !for jump around
				lwz 10,636(1)
				lwz 9,12(10)
				cmpwi 7,9,0
				beq 7,.L592
				lwz 10,636(1)
				lwz 9,12(10)
				cmpwi 7,9,0
				beq 7,.L590
 2101          %IF type # 2 %START;                          !eop, eof
				lwz 9,48(10)
				cmpwi 7,9,1
				bne 7,.L734
		.L461:
		.L732:
				cmpwi 7,31,2
				beq 7,.L597
				b .L590
		.LVL558:
		.L775:
		.LBE542:
		.LBE541:
				lwz 9,48(10)
				cmpwi 7,9,1
				beq 7,.L590
		.L734:
				cmpwi 7,31,2
				beq 7,.L594
		.L590:
 2102             fault(16) %IF level # type;                !end missing
				addi 11,1,604
				li 3,0
				bl DEFLAB.8170
		.LVL565:
		.L592:
				lwz 11,636(1)
				lwz 9,48(11)
				cmpw 7,31,9
				bne 7,.L777
		.L595:
		.L596:
		.L597:
 2103          %FINISH %ELSE %START
				li 3,16
				bl FAULT.7277
		.LVL566:
				b .L597
		.L594:
 2104             %IF level = 0 %START
				lwz 11,636(1)
				lwz 9,48(11)
				cmpwi 7,9,0
				bne 7,.L597
 2105                fault(15);                              !spurious end
				li 3,15
				bl FAULT.7277
		.LVL567:
				b .L597
		.LVL568:
		.L598:
		.LDL27:
		.LDL28:
		.LDL29:
		.LBE543:
		.LBE546:
 2106             %FINISH
 2107          %FINISH
 2108
 2109          end mark = 11;               !******Mouses specific******
				lis 9,.LANCHOR0+292@ha
				li 10,11
				stw 10,.LANCHOR0+292@l(9)
				b .L437
		.L777:
 2110       %END
 2111
 2112       %ROUTINE def(%INTEGER p)
		.LVL108:
				stwu 1,-48(1)
				mflr 0
				stw 0,52(1)
				stw 26,24(1)
				stw 27,28(1)
				stw 28,32(1)
				stw 29,36(1)
				stw 30,40(1)
				stw 31,44(1)
				mr 29,3
				mr 31,11
 2113
 2114          !dump a descriptor
 2115
 2116          %INTEGER t, f, type
 2117          %RECORD(tagfm)%NAME v
 2118          flush buffer %if bp # 0
				lis 9,.LANCHOR0@ha
				lwz 9,.LANCHOR0@l(9)
				cmpwi 7,9,0
				bne 7,.L95
		.LVL109:
		.L79:
 2119          defs = defs+1
				lwz 9,12(31)
				addi 9,9,1
				stw 9,12(31)
				lwz 9,32(11)
				lwz 11,64(9)
				bl FLUSHBUFFER.7135
		.LVL124:
				b .L79
		.LVL125:
		.L96:
 2120          v == tag(p)
				lwz 10,32(31)
		.LVL110:
				slwi 30,29,4
				lwz 9,64(10)
				add 30,9,30
 2121          t = 0
				li 4,0
 2122          %UNLESS v_index < 0 %START;                   !no index for subnames
				lha 9,222(30)
				cmpwi 7,9,0
				blt 7,.L80
 2123             id = id+1 %AND v_index = id %IF v_index = 0
				bne 7,.L81
 2124             last def = v_index
				lwz 9,44(10)
				addi 9,9,1
				stw 9,44(10)
				lha 4,222(30)
		.LVL112:
		.L80:
 2125             t = last def
				lwz 9,32(31)
				lwz 9,44(9)
				sth 9,222(30)
		.LVL111:
		.L81:
 2126          %FINISH
 2127          op('$', t)
				lwz 9,32(31)
				lwz 11,64(9)
				li 3,36
				bl OP.7241
		.LVL113:
 2128          print ident(p, 1);                            !output the name
				lwz 9,32(31)
				lwz 11,64(9)
				li 4,1
				mr 3,29
				bl PRINTIDENT.7148
		.LVL114:
 2129          t = v_flags
				lha 29,220(30)
		.LVL115:
		.LDL5:
				rlwinm 26,29,0,28,31
 2130          type = t
 2131          type = type&(\(7<<4)) %IF type&(7<<4) >= 6<<4;!routine & pred
 2132          op(',', type&b'1111111');             !type & form
				lwz 9,32(31)
				lwz 11,64(9)
				mr 4,26
				li 3,44
				bl OP.7241
		.LVL116:
 2133          f = v_format
				lwz 4,216(30)
		.LVL117:
 2134          f = tag(f)_index %IF t&x'70' = record<<4
				andi. 27,29,0x1
				bne 0,.L82
 2135          f = v_index %IF f < 0
				lwz 9,32(31)
				lwz 9,64(9)
				addi 4,4,13
		.LVL118:
				slwi 4,4,4
				add 4,9,4
				lha 4,14(4)
		.LVL119:
		.L82:
				cmpwi 7,4,0
				blt 7,.L96
		.L83:
 2136          op(',', f);               !format
				lwz 9,32(31)
				lwz 11,64(9)
				li 3,44
				bl OP.7241
		.LVL120:
				lha 4,222(30)
		.LVL126:
				b .L83
		.LVL127:
		.L97:
 2137          f = otype+t>>4&b'1111000'
				lis 9,.LANCHOR0+188@ha
				lwz 28,.LANCHOR0+188@l(9)
				rlwinm 9,29,28,25,28
				add 9,9,28
		.LVL121:
 2138          f = f!8 %IF class = 125;              !add spec from %DUP
				lwz 10,20(31)
				cmpwi 7,10,125
				beq 7,.L97
		.L84:
 2139          dim = v_app;                          !dimension
				lwz 8,212(30)
		.LVL122:
		.LBB335:
				lis 10,.LANCHOR0+192@ha
				stw 8,.LANCHOR0+192@l(10)
				b .L86
		.LVL123:
		.L95:
				ori 9,9,0x8
		.LVL128:
				b .L84
		.LVL129:
		.L85:
 2140          dim = 0 %unless 0 < dim <= dim limit
 2141          op(',', f+dim<<8);                    !otype & spec & prot
				lis 10,.LANCHOR0+192@ha
				lwz 4,.LANCHOR0+192@l(10)
				slwi 4,4,8
				lwz 10,32(31)
				lwz 11,64(10)
				add 4,4,9
				li 3,44
				bl OP.7241
		.LVL131:
 2142          defs = 0 %IF t&parameters = 0
				cmpwi 7,27,0
				bne 7,.L87
 2143          f = t&15
				addi 10,8,-1
				cmplwi 7,10,5
				bgt 7,.L85
		.LBE335:
				li 9,0
				stw 9,12(31)
		.L87:
		.LVL132:
		.LBB336:
 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
				lis 9,.LANCHOR1+6892@ha
				li 10,-1
				stw 10,.LANCHOR1+6892@l(9)
		.LDL7:
				lis 9,.LANCHOR1+6892@ha
				li 10,-1
				stw 10,.LANCHOR1+6892@l(9)
 2147          %FINISH
 2148          dimension = 0
				lis 10,.LANCHOR0@ha
				la 10,.LANCHOR0@l(10)
				li 8,0
		.LVL130:
				stw 8,192(10)
		.L86:
				addi 9,26,-3
				rlwinm 9,9,0,0xffff
				cmplwi 7,9,7
				ble 7,.L88
		.L89:
		.LBE336:
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				li 10,0
				stw 10,196(9)
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				li 10,0
				stw 10,196(9)
 2149          %if otype = 2 %and (f=2 %or f=12 %or f=14) %start
				cmpwi 7,28,2
				beq 7,.L98
		.LVL133:
		.L78:
				cmpwi 7,28,2
				bne 7,.L78
				b .L92
		.LFE215:
				.align 2
		LOOKUP.7612:
		.LFB205:
 2150             v_flags = v_flags-1;               !convert to simple
				cmpwi 7,26,2
				beq 7,.L91
		.L92:
				lhz 9,220(30)
				addi 9,9,-1
				sth 9,220(30)
		.L90:
 2151          %finish
				andi. 29,29,0xd
		.LVL136:
				cmpwi 7,29,12
				bne 7,.L78
		.L91:
 2152       %END
				b .L78
		.LVL137:
		.L88:
 2153
				lhz 9,220(30)
				rlwinm 9,9,0,25,23
				sth 9,220(30)
		.LDL6:
				lwz 0,52(1)
				mtlr 0
				lwz 26,24(1)
		.LVL134:
				lwz 27,28(1)
				lwz 28,32(1)
				lwz 29,36(1)
				lwz 30,40(1)
				lwz 31,44(1)
				addi 1,1,48
				blr
		.LVL135:
		.L98:
 2154       %ROUTINE def s lab(%INTEGER n)
		.LVL427:
				stwu 1,-32(1)
				stw 30,24(1)
				stw 31,28(1)
				mr 31,11
 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
				lis 9,.LANCHOR0+208@ha
				lwz 30,.LANCHOR0+208@l(9)
				lwz 11,32(11)
				lwz 8,64(11)
		.LVL428:
				addi 9,30,13
		.LVL429:
				slwi 9,9,4
		.LVL430:
				add 9,8,9
				lwz 7,8(9)
				slwi 10,7,1
				add 10,8,10
 2160          l = dict(p);                                     !lower bound
				lha 9,26834(10)
		.LVL431:
		.LBB482:
 2161          %IF l <= n <= dict(p+1) %START
 2162             b = n-l
				subf 9,9,3
		.LVL432:
 2163             w = b>>4+p
				srwi 9,9,4
		.LVL434:
				add 9,9,7
		.LVL435:
				slwi 9,9,1
		.LVL436:
				add 9,8,9
 2164             bit = 1<<(b&15)
				cmpw 7,9,3
				bgt 7,.L431
				rlwinm 10,9,0,28,31
				li 6,1
				slw 6,6,10
		.LVL433:
 2165             %IF dict(w+2)&bit # 0 %START;                 !already set
				lha 8,26838(9)
		.LVL437:
				cntlzw 10,6
				srwi 10,10,5
				and. 10,10,8
				bne 0,.L432
 2166                fault(4) %IF pending # 0
				lha 10,26836(10)
				cmpw 7,10,3
				blt 7,.L431
		.LBE482:
				lwz 9,16(31)
				cmpwi 7,9,0
				beq 7,.L430
				mflr 0
				stw 0,36(1)
		.LVL438:
 2167                %RETURN
				li 3,4
		.LVL439:
				bl FAULT.7277
		.LVL440:
				lwz 0,36(1)
				mtlr 0
				b .L430
		.LVL441:
		.L432:
				mflr 0
				stw 0,36(1)
		.LVL442:
 2168             %FINISH
 2169             dict(w+2) <- dict(w+2)!bit %IF pending # 0
				lwz 10,16(31)
				cmpwi 7,10,0
				beq 7,.L434
 2170             set const(n)
				or 6,8,6
		.LVL443:
				sth 6,26838(9)
		.L434:
				lwz 9,32(31)
				lwz 11,64(9)
				bl SETCONST.7244
		.LVL444:
 2171             op('_', tag(x)_index)
				lwz 9,32(31)
				lwz 11,64(9)
				addi 30,30,13
				slwi 30,30,4
				add 30,11,30
				lha 4,14(30)
				li 3,95
				bl OP.7241
		.LVL445:
 2172          %FINISH %ELSE %START
				b .L435
		.LVL446:
		.L431:
				mflr 0
				stw 0,36(1)
		.LVL447:
 2173             fault(12)
				li 3,12
		.LVL448:
				bl FAULT.7277
		.LVL449:
		.L435:
 2174          %FINISH
 2175          access = 1
				lwz 9,32(31)
				li 10,1
				stw 10,24(9)
				lwz 0,36(1)
				mtlr 0
		.L433:
		.L430:
 2176       %END
 2177
				lwz 30,24(1)
				lwz 31,28(1)
				addi 1,1,32
				blr
		.LFE216:
				.align 2
		COMPILE.7260:
		.LFB209:
 2178       %ROUTINE call
 2179          %RECORD(tagfm)%NAME T
 2180          t == tag(x)
				lwz 9,636(1)
				lwz 11,64(9)
		.LVL603:
				lwz 30,28(1)
				lwz 31,208(30)
		.LVL604:
				slwi 31,31,4
				add 31,11,31
 2181          op('@', t_index)
				lha 4,222(31)
				li 3,64
				bl OP.7241
		.LVL605:
 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
				lwz 9,636(1)
				li 10,0
				stw 10,24(9)
		.LDL31:
				lwz 9,212(31)
				cmpwi 7,9,0
				bne 7,.L752
 2184       %END
				lwz 10,0(30)
				addi 9,10,1
				stw 9,0(30)
 2185
				lwz 9,636(1)
				lwz 9,64(9)
				add 9,9,10
				addis 9,9,0x2
				li 10,69
				stb 10,-26362(9)
				b .L752
		.LVL606:
		.L628:
				b .L630
		.L629:
				b .L630
		.L631:
				b .L641
		.L632:
				b .L641
		.L633:
				b .L641
		.L634:
				b .L641
		.L635:
				b .L641
		.L636:
		.L641:
		.LBE549:
		.LBE548:
 2186       %ROUTINE pop def
 2187          set const(pstack(pending));  pending = pending-1
				addi 9,9,-1
				slwi 9,9,2
				lwz 10,28(1)
				add 9,10,9
				lwz 10,636(1)
				lwz 11,64(10)
				lwz 3,8(9)
				bl SETCONST.7244
		.LVL624:
 2188       %END
				lwz 9,620(1)
				addi 9,9,-1
				stw 9,620(1)
		.L661:
		.LBE551:
		.LBE550:
 2189
 2190       %ROUTINE pop lit
				stwu 1,-16(1)
 2191          %IF pending = 0 %THEN lit = 0 %ELSE %START
				lwz 9,16(11)
				cmpwi 7,9,0
				beq 7,.L19
		.L16:
 2192             lit = pstack(pending);  pending = pending-1
				addi 9,9,-1
				lis 10,.LANCHOR0@ha
				la 10,.LANCHOR0@l(10)
				slwi 8,9,2
				add 8,10,8
				lwz 8,8(8)
				stw 8,4(10)
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				li 10,0
				stw 10,4(9)
 2193          %FINISH
				stw 9,16(11)
		.L17:
		.L15:
				b .L15
		.LFE219:
				.align 2
		PUSH.8326:
		.LFB220:
 2194       %END
 2195
				addi 1,1,16
				blr
		.L19:
 2196
 2197       %IF sstype < 0 %START;                       !executable statement
				lis 9,.LANCHOR0+620@ha
				lwz 9,.LANCHOR0+620@l(9)
				cmpwi 7,9,0
				blt 7,.L757
		.L438:
		.L440:
		.L441:
 2198          %IF level = 0 %START;                     !outermost level
				lwz 9,48(11)
				cmpwi 7,9,0
				beq 7,.L764
		.L439:
 2199             fault(13);                             !*order
				li 3,13
				bl FAULT.7277
		.LVL469:
				b .L441
		.LVL470:
		.L758:
 2200          %FINISH %ELSE %START
 2201             %IF access = 0 %START
				lwz 9,20(1)
				lwz 9,24(9)
				cmpwi 7,9,0
				bne 7,.L441
 2202                access = 1;  fault(-1);             !only a warning
				li 9,1
				lwz 10,20(1)
				stw 9,24(10)
 2203             %FINISH
				mr 11,10
				li 3,-1
				bl FAULT.7277
		.LVL468:
				b .L441
		.L764:
 2204          %FINISH
 2205       %FINISH
 2206
 2207       %IF diag&2 # 0 %START
 2208          newline %IF sym # nl
				lis 9,.LANCHOR1+6888@ha
				lwz 9,.LANCHOR1+6888@l(9)
				cmpwi 7,9,10
				beq 7,.L442
		.LBB524:
		.LBB525:
				bl _imp_newline
		.LVL450:
		.L442:
		.LBE525:
		.LBE524:
		.LBB526:
 2209          printstring("ss =")
				li 5,256
				lis 4,.LANCHOR2@ha
				la 4,.LANCHOR2@l(4)
				addi 4,4,1644
				addi 3,1,4772
				bl memcpy
		.LVL451:
				li 5,256
				addi 4,1,4772
				addi 3,1,676
				bl memcpy
		.LVL452:
				li 5,256
				addi 4,1,676
				addi 3,1,4772
				bl memcpy
		.LVL453:
		.LBE526:
		.LBB527:
		.LBB528:
				li 5,256
				addi 4,1,4772
				addi 3,1,336
				bl memcpy
		.LVL454:
				addi 3,1,336
				bl _imp_printstring
		.LVL455:
		.LBE528:
		.LBE527:
 2210          write(ss, 1)
				lis 31,.LANCHOR0@ha
				la 31,.LANCHOR0@l(31)
				li 4,1
				lwz 3,624(31)
				bl _imp_writeint
		.LVL456:
		.LBB529:
		.LBB530:
				bl _imp_newline
		.LVL457:
		.LBE530:
		.LBE529:
 2211          newline
 2212          count = 5
				li 9,5
				stw 9,608(31)
		.LVL458:
 2213          name = ""
 2214       %FINISH
 2215
				li 5,8
				addi 4,1,932
				addi 3,31,352
				bl _imp_strncpy
		.LVL459:
		.L443:
 2216       next = ss
				lwz 9,624(31)
				stw 9,632(1)
 2217       pending = 0;  lmode = 0
				li 9,0
				stw 9,620(1)
 2218       link = 0;  decs = 0
				stw 9,604(1)
				stw 9,628(1)
		.LVL460:
 2219       defs = 0;  resln = 0;  done = 0
				stw 9,616(1)
		.LVL461:
				li 9,0
				stw 9,32(1)
				li 9,0
				stw 9,32(1)
 2220       ord = level
				li 9,0
				stw 9,40(1)
		.L753:
		.LBB531:
				lwz 9,20(1)
				lwz 9,48(9)
				stw 9,36(1)
				stw 9,40(1)
				b .L753
		.L444:
		.L445:
		.L446:
		.L447:
		.L448:
		.L449:
		.LVL471:
		.L450:
				b .L752
		.LVL472:
		.L759:
 2221       ord = 1 %IF this >= 0;                       !recordformat declarations
				lis 9,.LANCHOR1+6908@ha
				lwz 9,.LANCHOR1+6908@l(9)
				cmpwi 7,9,0
				blt 7,.L758
 2222 c(0):
				li 9,1
				stw 9,36(1)
 2223 top:  %IF next # link %START
 2224          get next;  ->c(class)
				lwz 9,632(1)
				lwz 10,628(1)
				cmpw 7,9,10
				bne 7,.L759
		.L452:
				addi 11,1,604
				bl GETNEXT.8173
		.LVL473:
 2225       %FINISH
				lwz 31,624(1)
		.LVL474:
		.LDL25:
 2226
 2227       !all done, tidy up declarations and jumps
 2228
 2229       newline %IF diag&2 # 0 %AND count # 5
 2230
				lis 9,.LANCHOR0+608@ha
				lwz 9,.LANCHOR0+608@l(9)
				cmpwi 7,9,5
				beq 7,.L456
		.LBB535:
		.LBB536:
				bl _imp_newline
		.LVL463:
		.L456:
		.LBE536:
		.LBE535:
 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
				lwz 31,20(1)
				lwz 4,8(31)
				lwz 11,64(31)
				addi 4,4,-1
				li 3,66
				bl OP.7241
		.LVL464:
		.L457:
 2234          def lab(label-1) %IF lmode&else # 0;      !entry from else
				addi 11,1,604
				lwz 3,8(31)
				bl DEFLAB.8170
		.LVL465:
		.L458:
 2235       %FINISH
				lwz 3,8(31)
				addi 11,1,604
				addi 3,3,-1
				bl DEFLAB.8170
		.LVL466:
		.L459:
		.L460:
 2236
 2237       %RETURN %IF decs = 0
				lwz 9,32(1)
				cmpwi 7,9,0
				beq 7,.L437
		.L462:
 2238       atom1 = error %AND %RETURN %IF atom1 # 0;    !%INTEGERROUTINE
				lis 9,.LANCHOR0+240@ha
				lwz 9,.LANCHOR0+240@l(9)
				cmpwi 7,9,0
				bne 7,.L760
		.L463:
 2239       order = ord
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				lwz 10,36(1)
				stw 10,628(9)
				lis 9,.LANCHOR0+240@ha
				li 10,0
				ori 10,10,0x8000
				stw 10,.LANCHOR0+240@l(9)
		.LVL477:
		.L437:
 2240       decl = decl&(\15)+decmap(decl&15);           !construct declarator flags
				lwz 8,264(9)
				rlwinm 10,8,1,27,30
				addi 7,1,5072
				add 10,7,10
				lha 10,-4428(10)
				rlwinm 8,8,0,0,27
				add 10,10,8
				stw 10,264(9)
 2241       atom1 = atoms(decl&15);                      !generate class
				lwz 8,20(1)
				lwz 8,64(8)
				rlwinm 7,10,0,28,31
				add 8,8,7
				addis 8,8,0x1
				lbz 8,-26700(8)
				stw 8,240(9)
 2242       %IF otype # 0 %START;                        !own, const etc.
				lwz 9,188(9)
				cmpwi 7,9,0
				beq 7,.L470
 2243          atom1 = atom1+1 %IF atom1 # proc
				cmpwi 7,8,7
				beq 7,.L465
 2244          %IF otype = 2 %START;                     !const
				addi 8,8,1
				lis 7,.LANCHOR0+240@ha
				stw 8,.LANCHOR0+240@l(7)
		.L465:
				cmpwi 7,9,2
				beq 7,.L761
		.L466:
 2245             n = decl&15
 2246             %if n&1 # 0 %start
 2247                decl = decl!prot
				ori 10,10,0x100
		.LVL480:
				lis 9,.LANCHOR0+264@ha
				stw 10,.LANCHOR0+264@l(9)
		.LVL481:
				b .L470
		.LVL482:
		.L467:
 2248                decl = decl!const bit %IF decl&b'1111111' = iform
				andi. 9,10,0x1
				beq 0,.L467
 2249             %finish
				ori 10,10,0x2100
		.LVL483:
				lis 9,.LANCHOR0+264@ha
				stw 10,.LANCHOR0+264@l(9)
		.LVL484:
				b .L470
		.LVL485:
		.L762:
 2250          %else
 2251             decl = decl!own bit
				ori 10,10,0x200
				lis 9,.LANCHOR0+264@ha
				stw 10,.LANCHOR0+264@l(9)
		.L464:
		.L468:
		.L469:
		.L470:
 2252          %FINISH
 2253       %FINISH
 2254       sstype = 1 %IF sstype = 0 %AND atom1 = proc
				lis 9,.LANCHOR0+620@ha
				lwz 9,.LANCHOR0+620@l(9)
				cmpwi 7,9,0
				bne 7,.L471
 2255       atom1 = atom1+1 %IF decl&spec # 0;             !onto spec variant
				lis 9,.LANCHOR0+240@ha
				lwz 9,.LANCHOR0+240@l(9)
				cmpwi 7,9,7
				beq 7,.L762
		.L471:
 2256       ocount = 0 %AND cont = '+' %IF atom1 = 5;      !own array
				lis 10,.LANCHOR0@ha
				la 10,.LANCHOR0@l(10)
				lwz 9,240(10)
				addi 9,9,1
				stw 9,240(10)
		.LDL23:
				cmpwi 7,9,5
				beq 7,.L763
		.L472:
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				li 10,1
				stw 10,620(9)
				li 10,8
				stw 10,240(9)
				b .L472
		.L763:
 2257       %IF anyform(decl&15) = 0 %START;               !check meaningful
				lis 9,.LANCHOR0+264@ha
				lwz 10,.LANCHOR0+264@l(9)
				rlwinm 9,10,0,28,31
				addi 8,1,5072
				add 9,8,9
				lbz 9,-20(9)
				cmpwi 7,9,0
				bne 7,.L437
				lis 9,.LANCHOR1@ha
				la 9,.LANCHOR1@l(9)
				li 10,0
				stw 10,6892(9)
 2258          %IF decl>>4&7 = record %START
				andi. 9,10,0x10
				bne 0,.L474
				li 10,43
				stw 10,7176(9)
				b .L472
		.LVL486:
		.L477:
		.L478:
 2259             this = fdef %IF tag(fdef)_flags&spec # 0
 2260             atom1 = error+21 %IF fdef = this;        !*context for format
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				lwz 8,272(9)
				lis 10,.LANCHOR1+6908@ha
				stw 8,.LANCHOR1+6908@l(10)
		.LDL24:
 2261          %FINISH
				li 10,0
				ori 10,10,0x8015
				stw 10,240(9)
		.L473:
		.L474:
 2262          atom1 = error+10 %IF fdef = 0;              !*size
				lis 9,.LANCHOR0+272@ha
				lwz 9,.LANCHOR0+272@l(9)
				cmpwi 7,9,0
				bne 7,.L437
 2263       %FINISH
				lis 9,.LANCHOR0+240@ha
				li 10,0
				ori 10,10,0x800a
				stw 10,.LANCHOR0+240@l(9)
				b .L437
		.LVL467:
		.L757:
 2264       %RETURN
 2265
 2266 atop:   access = 0;  ->top
 2267
				li 9,0
				lwz 10,20(1)
				stw 9,24(10)
 2268 ! declarators
				b .L752
		.LVL511:
		.L531:
 2269
 2270 c(88):                                                !rtype
 2271 c(28): decl = x&(\7);                                 !stype
 2272        fdef = x&7;                                    !precision
				lwz 8,28(1)
				lwz 9,208(8)
				rlwinm 10,9,0,0,28
				stw 10,264(8)
				rlwinm 10,9,0,29,31
				stw 10,272(8)
 2273        fdef = reals ln %IF x&b'1110001' = real<<4+1;  !convert to long
				andi. 9,9,0x1
				stw 9,32(1)
				bne 0,.L752
 2274        decs = 1;  ->top
				lis 9,.LANCHOR1+7184@ha
				lwz 9,.LANCHOR1+7184@l(9)
				stw 9,272(8)
				li 9,1
				stw 9,32(1)
				b .L752
		.L479:
		.L480:
 2275 c(34):                                                !own
 2276 c(35): otype = x;  ord = 1;  ->top;                   !external
 2277 c(152):decl = decl+x<<1;  ->top;                      !xname
				lwz 10,28(1)
				lwz 9,208(10)
				stw 9,188(10)
		.LVL487:
 2278 c(31):                                                !proc
				li 9,1
				stw 9,36(1)
				lwz 8,28(1)
				lwz 9,208(8)
				slwi 9,9,1
				lwz 10,264(8)
				add 9,9,10
				stw 9,264(8)
 2279 c(32): spec mode = level+1;                           !fn/map
				b .L752
		.LVL488:
		.L481:
				b .L752
		.L482:
		.L483:
 2280        decl = decl!prot %IF x = 9;                    !function
				lwz 9,20(1)
				lwz 9,48(9)
				addi 9,9,1
				lwz 10,28(1)
				stw 9,632(10)
				lwz 9,208(10)
				cmpwi 7,9,9
				beq 7,.L766
		.L484:
		.L485:
		.LVL489:
 2281 c(29): ord = 1;                                       !array
				lwz 9,264(10)
				ori 9,9,0x100
				stw 9,264(10)
				b .L485
		.L487:
 2282        dim = 0
				li 9,0
				lwz 10,28(1)
				stw 9,192(10)
				li 9,1
				stw 9,36(1)
		.LVL490:
		.L486:
 2283 c(30): decl = decl+x;                                 !name
 2284        decs = 1
				lwz 8,28(1)
				lwz 9,264(8)
				lwz 10,208(8)
				add 9,9,10
				stw 9,264(8)
		.LVL491:
				li 9,1
				stw 9,32(1)
 2285        ->top
				b .L752
		.LVL492:
		.L766:
 2286 c(27): lit = 0;                                       ! arrayd
 2287        %IF pending # 0 %START
				li 9,0
				lwz 10,28(1)
				stw 9,4(10)
				lwz 9,620(1)
				cmpwi 7,9,0
				bne 7,.L767
		.L488:
		.L490:
 2288           pop lit
				addi 11,1,604
				bl POPLIT.8270
		.LVL495:
		.LBB537:
 2289           %UNLESS 0<lit<=dim limit %START
 2290              atom1 = error + 11;  %RETURN
				lis 9,.LANCHOR0+240@ha
				li 10,0
				ori 10,10,0x800b
				stw 10,.LANCHOR0+240@l(9)
 2291           %FINISH
				b .L437
		.LVL496:
		.L491:
 2292        %FINISH
				lwz 9,28(1)
				lwz 9,4(9)
				addi 9,9,-1
				cmplwi 7,9,5
				ble 7,.L490
		.L489:
		.LBE537:
 2293        dim = lit
				lwz 8,28(1)
				lwz 9,4(8)
				stw 9,192(8)
 2294        decl = decl + x;  decs = 1
				lwz 9,264(8)
				lwz 10,208(8)
				add 9,9,10
				stw 9,264(8)
		.LVL493:
 2295        -> top
				li 9,1
				stw 9,32(1)
				b .L752
		.LVL494:
		.L767:
 2296 c(37): x = x!subname;                                 !record
 2297 c(36): lit = 0;                                       !string
				lwz 10,28(1)
				lwz 9,208(10)
				ori 9,9,0x800
				stw 9,208(10)
		.L492:
 2298        %IF pending # 0 %START
				li 9,0
				lwz 10,28(1)
				stw 9,4(10)
				lwz 9,620(1)
				cmpwi 7,9,0
				bne 7,.L768
		.L493:
		.L495:
 2299          pop lit
				addi 11,1,604
				bl POPLIT.8270
		.LVL499:
		.LBB538:
 2300           %UNLESS 0 < lit <= 255 %START;              !max length wrong
 2301              atom1 = error+10;  %RETURN
				lis 9,.LANCHOR0+240@ha
				li 10,0
				ori 10,10,0x800a
				stw 10,.LANCHOR0+240@l(9)
 2302           %FINISH
				b .L437
		.LVL500:
		.L497:
 2303        %FINISH
				lwz 9,28(1)
				lwz 9,4(9)
				addi 9,9,-1
				cmplwi 7,9,254
				ble 7,.L495
		.L494:
		.LBE538:
 2304        fdef = lit;                                    !format or length
				lwz 10,28(1)
				lwz 9,4(10)
				stw 9,272(10)
		.L496:
 2305 c(33): decl = x;                                      !switch
 2306        decs = 1
				lwz 10,28(1)
				lwz 9,208(10)
				stw 9,264(10)
		.LVL497:
				li 9,1
				stw 9,32(1)
 2307        ->top
				b .L752
		.LVL498:
		.L768:
 2308 c(39): decl = decl!spec;                              !spec
 2309        ocount = -1;                                   !no initialisation
				lwz 8,28(1)
				lwz 9,264(8)
				ori 9,9,0x80
				stw 9,264(8)
				li 9,-1
				lis 10,.LANCHOR1+6892@ha
				stw 9,.LANCHOR1+6892@l(10)
 2310        spec mode = -1
				stw 9,632(8)
 2311        ->top
				b .L752
		.L498:
 2312 c(38): decl = 64+4;                                   !recordformat (spec)
 2313        order = 1
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				li 10,68
				stw 10,264(9)
				li 10,1
				stw 10,628(9)
 2314        atom1 = x
				lwz 10,208(9)
				stw 10,240(9)
 2315        decl = decl!spec %if atom1 = 12;               !formatspec
				cmpwi 7,10,12
				beq 7,.L769
		.L499:
 2316        fdef = tmax+1;                                 !format tag
				lwz 9,20(1)
				lwz 9,52(9)
				addi 9,9,1
				lis 10,.LANCHOR0+272@ha
				stw 9,.LANCHOR0+272@l(10)
				lis 9,.LANCHOR0+264@ha
				li 10,196
				stw 10,.LANCHOR0+264@l(9)
				b .L499
		.L500:
 2317        %return
				b .L437
		.L769:
 2318 c(175):id = id+1;  tag(x)_index = id;  %return;       !FSID
 2319 c(41): decs = 1;  decl = x!spec!closed;  ->top;       !label
				lwz 9,20(1)
				lwz 10,44(9)
				addi 10,10,1
				stw 10,44(9)
 2320 c(133):recid = 0;  rbase = tmin-1;                    !fname
				lwz 8,64(9)
				lis 9,.LANCHOR0+208@ha
				lwz 9,.LANCHOR0+208@l(9)
				addi 9,9,13
				slwi 9,9,4
				add 9,8,9
				sth 10,14(9)
				li 9,1
				stw 9,32(1)
 2321        this = x
				b .L437
		.L501:
		.LVL501:
				lwz 10,28(1)
				lwz 9,208(10)
				ori 9,9,0x4080
				stw 9,264(10)
				lwz 9,20(1)
				lwz 9,64(9)
				li 10,0
				stw 10,204(9)
				lwz 3,208(7)
				stw 3,6908(9)
 2322        fm base = fdef;  format list = tmin
				b .L752
		.LVL502:
		.L502:
				lis 9,.LANCHOR1@ha
				la 9,.LANCHOR1@l(9)
				lwz 10,7024(9)
				addi 8,10,-1
				lwz 7,28(1)
				stw 8,204(7)
				lwz 9,272(7)
				stw 9,348(7)
 2323        def(this);                      ->top
				stw 10,212(7)
				addi 11,1,604
				bl DEF.8223
		.LVL503:
				b .L752
		.L503:
 2324 c(148):fdef = 0 %AND ->top %IF next = 0;              !reclb
 2325        get next;                                      !skip name
				lwz 9,632(1)
				cmpwi 7,9,0
				bne 7,.L504
				addi 11,1,604
				bl GETNEXT.8173
		.LVL504:
 2326        fdef = x
				lwz 10,28(1)
				stw 9,272(10)
				lwz 10,28(1)
				lwz 9,208(10)
				stw 9,272(10)
 2327        ->top
				b .L752
		.L504:
				b .L752
		.L505:
 2328 c(127):bp=bp+1 %AND buff(bp)='}';  ->top;             !%POUT
 2329 c(126):bp=bp+1 %AND buff(bp)='{';  ->top;             !%PIN
				lwz 8,28(1)
				lwz 10,0(8)
				addi 9,10,1
				stw 9,0(8)
 2330
				lwz 9,20(1)
				lwz 9,64(9)
				add 9,9,10
				addis 9,9,0x2
				li 10,125
				stb 10,-26362(9)
				lwz 8,28(1)
				lwz 10,0(8)
				addi 9,10,1
				stw 9,0(8)
 2331 c(174):set bp;                                        !rangerb
				b .L752
		.L506:
				lwz 9,20(1)
				lwz 9,64(9)
				add 9,9,10
				addis 9,9,0x2
				li 10,123
				stb 10,-26362(9)
 2332 c(171):                                               !fmlb
				b .L752
		.L507:
				addi 11,1,604
				bl SETBP.8205
		.LVL505:
		.L510:
 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
				lwz 7,28(1)
				lwz 10,0(7)
 2336        sstype = 0;  spec mode = 0
				lwz 6,20(1)
				lwz 9,64(6)
				add 9,9,10
				addis 9,9,0x2
				li 8,126
				stb 8,-26362(9)
				lwz 10,28(1)
				lwz 9,204(10)
				neg 9,9
				stw 9,204(10)
				li 9,0
				stw 9,620(10)
 2337
				addi 9,10,2
				stw 9,0(7)
				stw 9,632(10)
		.L512:
 2338 c(147):search base = 0;                               !recrb
				lwz 9,64(6)
				add 9,9,10
				addis 9,9,0x2
				lwz 10,624(1)
				addi 10,10,-106
				stb 10,-26361(9)
 2339        tag(this)_app = tmin
				b .L752
		.L508:
				b .L510
		.L509:
				b .L510
		.L511:
				li 9,0
				lwz 7,28(1)
				stw 9,200(7)
				lis 10,.LANCHOR1@ha
				la 10,.LANCHOR1@l(10)
				lwz 9,6908(10)
				lwz 6,20(1)
				lwz 8,64(6)
				addi 9,9,13
				slwi 9,9,4
				add 8,8,9
				lwz 10,7024(10)
				stw 10,4(8)
 2340        tag(this)_format = rbase
				lwz 10,64(6)
				add 9,10,9
				lwz 10,204(7)
				stw 10,8(9)
 2341        ->top
				b .L752
		.L513:
 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
				lwz 9,28(1)
				lwz 9,208(9)
				cmpwi 7,9,36
				bne 7,.L752
 2345 c(47):                                                !mod
				lwz 8,28(1)
				lwz 10,0(8)
				addi 9,10,1
				stw 9,0(8)
				lwz 8,28(1)
				lwz 10,0(8)
				addi 9,10,1
				stw 9,0(8)
 2346 c(48):                                                !dot
				lwz 9,20(1)
				lwz 9,64(9)
				add 9,9,10
				addis 9,9,0x2
				li 10,85
				stb 10,-26362(9)
				b .L752
		.L514:
				lwz 9,20(1)
				lwz 9,64(9)
				add 9,9,10
				addis 9,9,0x2
				li 10,92
				stb 10,-26362(9)
 2347 c(42):                                                !op1
				b .L752
		.L515:
		.L519:
 2348 c(43):                                                !op2
 2349 c(44):bp=bp+1;  buff(bp)=operator(x);  ->top;         !op3
 2350
				lwz 8,28(1)
				lwz 10,0(8)
				addi 9,10,1
				stw 9,0(8)
 2351 !conditions & jumps
				lwz 9,20(1)
				lwz 9,64(9)
				add 9,9,10
				addis 9,9,0x2
				lwz 10,208(8)
				addi 8,1,5072
				add 10,8,10
				lbz 10,-37(10)
				stb 10,-26362(9)
 2352
				b .L752
		.L516:
				b .L519
		.L517:
				b .L519
		.L518:
				b .L519
		.L520:
		.L521:
 2353       %ROUTINE push(%INTEGER x)
		.LVL12:
				stwu 1,-16(1)
 2354          %IF cnest(cp)&2 # x %START
				lwz 10,8(11)
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				add 9,9,10
				lbz 8,168(9)
				xori 9,3,0x2
				cntlzw 9,9
				srwi 9,9,5
				and. 9,9,8
				bne 0,.L21
 2355             cnest(cp) = cnest(cp)!1;  x = x+4
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				add 9,9,10
				ori 8,8,0x1
				stb 8,168(9)
 2356          %FINISH
				addi 3,3,4
		.LVL13:
		.L21:
 2357          clab = clab+1 %IF cnest(cp)&1 # 0
 2358          cnest(cp+1) = x;  cp = cp+1
				lwz 9,4(11)
				addi 9,9,1
				stw 9,4(11)
		.LDL1:
				addi 10,10,1
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				add 9,9,10
				stb 3,168(9)
 2359       %END
				stw 10,8(11)
 2360
				addi 1,1,16
				blr
		.LFE220:
				.align 2
		ABANDON.7167:
		.LFB188:
 2361       %ROUTINE pop label(%INTEGER mode)
		.LVL421:
				stwu 1,-16(1)
				mflr 0
				stw 0,20(1)
 2362          lmode = dict(dmin)
				lwz 10,32(11)
				lwz 8,64(10)
				lwz 9,40(10)
				addi 9,9,13415
				slwi 9,9,1
				add 9,8,9
				lha 8,4(9)
				stw 8,0(11)
 2363          %IF lmode < 0 %OR lmode&1 # mode %START
				cmpwi 7,8,0
				blt 7,.L419
 2364             fault(mode+8)
				xori 9,3,0x1
				cntlzw 9,9
				srwi 9,9,5
				and. 9,9,8
				beq 0,.L419
		.L420:
				mr 11,10
				addi 3,3,8
		.LVL422:
				bl FAULT.7277
		.LVL423:
 2365          %FINISH %ELSE %START
 2366             dmin = dmin+1;  label = label-3
				lwz 9,40(10)
				addi 9,9,1
				stw 9,40(10)
 2367          %FINISH
				lwz 10,32(11)
				lwz 9,8(10)
				addi 9,9,-3
				stw 9,8(10)
				blr
		.L419:
 2368       %END
 2369
				lwz 0,20(1)
				mtlr 0
				addi 1,1,16
				blr
		.L421:
		.LFE221:
				.align 2
		SETBP.8205:
		.LFB213:
 2370 c(56):                                         !and
 2371 c(57):push(x);  ->top;                         !or
 2372 c(58):cnest(cp) = cnest(cp)!!2;  ->top;        !not
				addi 11,1,604
				lwz 9,28(1)
				lwz 3,208(9)
				bl PUSH.8326
		.LVL506:
				b .L752
		.L522:
 2373
				lwz 9,612(1)
				lwz 10,28(1)
				add 9,10,9
				lbz 10,168(9)
				xori 10,10,0x2
				stb 10,168(9)
 2374 c(138):x = 128+32+16+4;                        !csep: treat like %WHILE
				b .L752
		.L523:
 2375 c(59):                                         !while
				li 9,180
				lwz 10,28(1)
				stw 9,208(10)
		.L525:
 2376 c(60):%IF class = 138 %THEN op('f', label-1) %C
 2377                       %ELSE def lab(label-1);  !until
				lwz 9,624(1)
				cmpwi 7,9,138
				beq 7,.L770
		.L526:
 2378 c(166):                                        !runtil
				lwz 9,20(1)
				lwz 4,8(9)
				lwz 11,64(9)
				addi 4,4,-1
				li 3,102
				bl OP.7241
		.LVL508:
				b .L529
		.L527:
		.L528:
		.L529:
 2379 c(62):lmode = (lmode&(else!loop)) !(x>>3);     !cword
 2380       clab = label;  cp = 1;  cnest(1) = x&7
				lwz 7,28(1)
				lwz 10,208(7)
				lwz 9,604(1)
				rlwinm 9,9,0,27,28
				srwi 8,10,3
				or 9,9,8
				stw 9,604(1)
				lwz 9,20(1)
				lwz 9,8(9)
				stw 9,608(1)
 2381       ->top
				lwz 9,20(1)
				lwz 3,8(9)
				addi 11,1,604
				addi 3,3,-1
				bl DEFLAB.8170
		.LVL507:
				b .L529
		.L524:
				b .L525
		.L770:
				li 9,1
				stw 9,612(1)
				b .L752
		.L530:
 2382 c(72):pop label(0);                            !repeat
				rlwinm 10,10,0,29,31
				stb 10,169(7)
 2383       def lab(label+1) %IF lmode&32 # 0;  ->atop
				addi 11,1,604
				li 3,0
				bl POPLABEL.8331
		.LVL509:
 2384 c(69):pop label(1);               ->top;       !finish
				lwz 9,20(1)
				lwz 3,8(9)
				addi 11,1,604
				addi 3,3,1
				bl DEFLAB.8170
		.LVL510:
		.L475:
		.L476:
 2385 c(163):                                        !xelse
				addi 11,1,604
				li 3,1
				bl POPLABEL.8331
		.LVL512:
				b .L752
		.L532:
		.L533:
 2386 c(70):pop label(1);                            !finish else ...
 2387       fault(7) %IF lmode&3 = 3;                !dangling else
				addi 11,1,604
				li 3,1
				bl POPLABEL.8331
		.LVL513:
 2388 c(68):lmode = (lmode&else)!3;                  !...else...
				lwz 11,20(1)
				li 3,7
				bl FAULT.7277
		.LVL514:
		.L534:
		.L535:
 2389       %IF access # 0 %START
				lwz 9,604(1)
				rlwinm 9,9,0,28,28
				ori 9,9,0x3
				stw 9,604(1)
				lwz 10,20(1)
				lwz 9,24(10)
				cmpwi 7,9,0
				beq 7,.L536
 2390          op('F', label-1);  lmode = else!3
				lwz 4,8(10)
				lwz 11,64(10)
				addi 4,4,-1
				li 3,70
				bl OP.7241
		.LVL515:
 2391       %FINISH
				li 9,11
				stw 9,604(1)
		.L536:
 2392       def lab(label)
				addi 11,1,604
				lwz 9,20(1)
				lwz 3,8(9)
				bl DEFLAB.8170
		.LVL516:
 2393       ->top %IF next # 0
				lwz 9,632(1)
				cmpwi 7,9,0
				bne 7,.L752
				b .L540
		.L537:
		.L538:
		.L540:
		.L541:
 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
				lwz 9,604(1)
				cmpwi 7,9,0
				beq 7,.L771
		.LVL517:
		.L542:
				lwz 10,20(1)
				lwz 9,40(10)
				addi 9,9,-1
				stw 9,40(10)
 2400       dict(dmin) = lmode
				lis 10,.LANCHOR1+6896@ha
				lwz 10,.LANCHOR1+6896@l(10)
				cmpw 7,10,9
				bge 7,.L772
		.L543:
				lwz 8,20(1)
				lwz 10,64(8)
				lwz 9,40(8)
				addi 9,9,13415
				slwi 9,9,1
				add 9,10,9
				lwz 10,604(1)
				sth 10,4(9)
				lwz 9,20(1)
				lwz 3,8(9)
				addi 11,1,604
				addi 3,3,-1
				bl DEFLAB.8170
		.LVL519:
 2401       label = label+3
				lwz 9,8(8)
				addi 9,9,3
				stw 9,8(8)
				li 9,16
				stw 9,604(1)
				b .L542
		.LVL520:
		.L772:
				lwz 9,20(1)
				lwz 11,64(9)
				li 3,3
				bl ABANDON.7167
		.LVL521:
				b .L543
		.LVL522:
		.L544:
 2402       %RETURN
				b .L437
		.LVL518:
		.L539:
				b .L540
		.L771:
 2403
 2404 c(64):fault(13) %IF dict(dmin) >= 0 %OR inhibit # 0;  !on event
 2405       inhibit = 1
				lwz 8,20(1)
				lwz 10,64(8)
				lwz 9,40(8)
				addi 9,9,13415
				slwi 9,9,1
				add 9,10,9
				lha 9,4(9)
				cmpwi 7,9,0
				bge 7,.L545
				li 9,1
				lwz 10,20(1)
				stw 9,4(10)
		.LVL524:
 2406       n = 0
				lwz 9,4(8)
				cmpwi 7,9,0
				beq 7,.L546
		.L545:
				li 31,0
 2407       n = x'FFFF' %IF pending = 0;             !* = all events
				lwz 9,620(1)
				cmpwi 7,9,0
				beq 7,.L547
 2408       %WHILE pending > 0 %CYCLE
				lwz 11,20(1)
				li 3,13
				bl FAULT.7277
		.LVL523:
		.L546:
				li 31,0
		.LVL525:
				ori 31,31,0xffff
 2409          pop lit;  fault(10) %IF lit&(\15) # 0;!too big
				ble 7,.L547
				lwz 9,620(1)
				cmpwi 7,9,0
				ble 7,.L547
		.LVL528:
		.L550:
				addi 11,1,604
				bl POPLIT.8270
		.LVL529:
 2410          j = 1<<lit
				lis 30,.LANCHOR0@ha
				la 30,.LANCHOR0@l(30)
				li 29,1
				b .L550
		.LVL526:
		.L549:
				lwz 10,4(30)
				slw 10,29,10
		.LVL531:
 2411          dubious = 1 %IF n&j # 0
				lwz 11,20(1)
				li 3,10
				bl FAULT.7277
		.LVL530:
		.L548:
				cntlzw 9,10
				srwi 9,9,5
				and. 9,9,31
				bne 0,.L549
 2412          n = n!j;                              !construct bit mask
				or 31,31,10
		.LVL527:
				stw 29,636(30)
				b .L549
		.LVL532:
		.L547:
 2413       %REPEAT
 2414       op('o', n);  op(',', label)
				lwz 30,20(1)
				lwz 11,64(30)
				mr 4,31
				li 3,111
				bl OP.7241
		.LVL533:
 2415       lmode = then!1;  ->stcy
				lwz 11,64(30)
				lwz 4,8(30)
				li 3,44
				bl OP.7241
		.LVL534:
				li 9,5
				stw 9,604(1)
				b .L542
		.LVL535:
		.L551:
 2416
 2417
 2418 c(104):op('J', tag(x)_index);                   !l
 2419        inhibit = 1;            ->atop
				lwz 31,20(1)
		.LVL536:
				lwz 11,64(31)
				lwz 9,28(1)
				lwz 9,208(9)
				addi 9,9,13
				slwi 9,9,4
				add 9,11,9
				lha 4,14(9)
				li 3,74
				bl OP.7241
		.LVL537:
				li 9,1
				stw 9,4(31)
 2420 c(149):stats = stats-1;                         !lab
				b .L475
		.LVL538:
		.L552:
 2421        access = 1;  inhibit = 1
				lwz 10,28(1)
				lwz 9,640(10)
				addi 9,9,-1
				stw 9,640(10)
				li 9,1
				lwz 8,20(1)
				stw 9,24(8)
 2422        op('L', tag(x)_index);  ->top
				stw 9,4(8)
				lwz 11,64(8)
				lwz 9,208(10)
				addi 9,9,13
				slwi 9,9,4
				add 9,11,9
				lha 4,14(9)
				li 3,76
				bl OP.7241
		.LVL539:
				b .L752
		.L553:
 2423
 2424 c(63):j = dmin;  l = label-3;                   !exit, continue
 2425       %CYCLE
				lwz 8,20(1)
				lwz 31,40(8)
		.LVL540:
 2426          fault(7) %AND ->top %IF dict(j) < 0
				lwz 9,8(8)
				addi 9,9,-3
				stw 9,0(8)
				addi 10,31,-1
				lwz 11,64(8)
				addi 9,31,13415
				slwi 9,9,1
				add 9,11,9
				lhz 9,4(9)
				andi. 8,9,0x8000
				bne 0,.L554
				lhzu 9,2(10)
				andi. 7,9,0x8000
				bne 0,.L554
		.L557:
				mr 31,10
		.LVL545:
		.L555:
 2427          %EXIT %IF dict(j)&1 = 0
				andi. 9,9,0x1
				beq 0,.L739
				slwi 10,31,1
				addi 10,10,26834
				add 10,11,10
		.L556:
				andi. 9,9,0x1
				beq 0,.L555
				lwz 11,20(1)
				li 3,7
				bl FAULT.7277
		.LVL543:
				b .L752
		.LVL544:
		.L739:
 2428          j = j+1;  l = l-3
				addi 8,31,1
		.LVL541:
				mr 31,8
				b .L556
		.LVL542:
		.L554:
 2429       %REPEAT
				lwz 7,20(1)
				lwz 9,0(7)
				addi 9,9,-3
				stw 9,0(7)
		.LDL26:
 2430       l = l+1 %IF x = 32;                       !continue
				lwz 9,28(1)
				lwz 30,208(9)
				cmpwi 7,30,32
				beq 7,.L773
		.L558:
 2431       op('F', l)
				lwz 29,20(1)
				lwz 4,0(29)
				li 3,70
				bl OP.7241
		.LVL546:
				slwi 31,31,1
				lwz 9,64(29)
				add 31,9,31
				lwz 10,20(1)
				lwz 9,0(10)
				addi 9,9,1
				stw 9,0(10)
				b .L558
		.LVL547:
		.L559:
 2432       dict(j) = dict(j)!x;                      !show given
				lhz 9,26836(31)
				or 30,30,9
				sth 30,26836(31)
 2433       ->atop
				b .L475
		.L773:
 2434
 2435 c(50):bp=bp+1 %AND buff(bp)='C';  ->cop;        !acomp
 2436
				lwz 8,28(1)
				lwz 10,0(8)
				addi 9,10,1
				stw 9,0(8)
 2437 c(49): bp = bp+1
				lwz 9,20(1)
				lwz 9,64(9)
				add 9,9,10
				addis 9,9,0x2
				li 10,67
				stb 10,-26362(9)
 2438        %IF next # 0 %START;                     !comparator
				b .L563
		.L561:
				lwz 8,28(1)
				lwz 10,0(8)
				addi 9,10,1
				stw 9,0(8)
				lwz 9,632(1)
				cmpwi 7,9,0
				bne 7,.L774
		.L562:
 2439           buff(bp)='"';  push(0);               !double sided
				lwz 9,20(1)
				lwz 9,64(9)
				add 9,9,10
				addis 9,9,0x2
				li 10,34
				stb 10,-26362(9)
 2440        %FINISH %ELSE %START
				addi 11,1,604
				li 3,0
				bl PUSH.8326
		.LVL548:
				b .L563
		.L567:
		.L569:
 2441           buff(bp)='?'
				lwz 9,20(1)
				lwz 9,64(9)
				add 9,9,10
				addis 9,9,0x2
				li 10,63
				stb 10,-26362(9)
				b .L563
		.L774:
 2442        %FINISH
 2443
 2444 cop:   x = x!!1 %IF cnest(cp)&2 # 0;            !invert the condition
 2445        j = cp;  l = clab
				lwz 10,612(1)
		.LVL705:
 2446        %WHILE cnest(j)&4 = 0 %CYCLE
				lwz 9,28(1)
				lwz 7,208(9)
				xori 7,7,0x1
				stw 7,208(9)
		.LDL34:
				lwz 8,608(1)
				lwz 6,20(1)
				stw 8,0(6)
 2447           j = j-1;  l = l-cnest(j)&1
				add 9,9,10
				lbz 9,168(9)
				andi. 9,9,0x1
				bne 0,.L564
				lwz 9,44(1)
				add 10,9,10
		.LVL706:
		.L565:
				lbzu 9,-1(10)
		.LVL707:
				rlwinm 9,9,0,31,31
				cmpwi 7,9,0
				beq 7,.L565
				lwz 9,20(1)
				stw 8,0(9)
		.LVL708:
		.L564:
 2448        %REPEAT
				subf 8,9,8
		.LDL35:
 2449        op(cc(x), l)
				addi 9,1,5072
				add 7,9,7
				lwz 9,20(1)
				lwz 11,64(9)
				lwz 4,0(9)
				lbz 3,-44(7)
				bl OP.7241
		.LVL709:
 2450        def lab(clab+1) %IF cnest(cp)&1 # 0
 2451        cp = cp-1
				addi 11,1,604
				lwz 3,608(1)
				addi 3,3,1
				bl DEFLAB.8170
		.LVL710:
		.L566:
				lwz 9,612(1)
				addi 9,9,-1
				stw 9,612(1)
 2452        clab = clab-cnest(cp)&1
				lwz 10,28(1)
				add 9,10,9
				lbz 9,168(9)
				rlwinm 9,9,0,31,31
				lwz 10,608(1)
				subf 9,9,10
				stw 9,608(1)
 2453        ->top
				b .L752
		.L719:
 2454
 2455 c(78):                                              !fresult
 2456 c(79):                                              !mresult
 2457 c(80):   open = 0;                                  !return, true, false
 2458 c(82):   access = 0;                                !stop
				li 9,0
				lwz 10,20(1)
				stw 9,20(10)
		.L570:
 2459 c(89):                                              !addop
				li 9,0
				lwz 10,20(1)
				stw 9,24(10)
		.L572:
 2460 c(81):   bp=bp+1 %AND buff(bp)=x;  ->top;           !monitor
 2461
				lwz 8,28(1)
				lwz 10,0(8)
				addi 9,10,1
				stw 9,0(8)
 2462 c(65):   pop lit;  op('e', lit);  ->atop;           !signal
				lwz 9,20(1)
				lwz 9,64(9)
				add 9,9,10
				addis 9,9,0x2
				lwz 10,208(8)
				stb 10,-26362(9)
 2463
				b .L752
		.L568:
				b .L569
		.L571:
				b .L572
		.L573:
				addi 11,1,604
				bl POPLIT.8270
		.LVL549:
 2464 c(51):   bp=bp+1 %AND buff(bp)='S';  ->top;         !eq
				lwz 9,20(1)
				lwz 11,64(9)
				lwz 9,28(1)
				lwz 4,4(9)
				li 3,101
				bl OP.7241
		.LVL550:
				b .L475
		.L574:
 2465 c(53):   bp=bp+1 %AND buff(bp)='j';  ->top;         !jam transfer
				lwz 8,28(1)
				lwz 10,0(8)
				addi 9,10,1
				stw 9,0(8)
 2466 c(52):   bp=bp+1 %AND buff(bp)='Z';  ->top;         !eqeq
				lwz 9,20(1)
				lwz 9,64(9)
				add 9,9,10
				addis 9,9,0x2
				li 10,83
				stb 10,-26362(9)
				lwz 8,28(1)
				lwz 10,0(8)
				addi 9,10,1
				stw 9,0(8)
 2467
				b .L752
		.L575:
				lwz 9,20(1)
				lwz 9,64(9)
				add 9,9,10
				addis 9,9,0x2
				li 10,106
				stb 10,-26362(9)
				lwz 8,28(1)
				lwz 10,0(8)
				addi 9,10,1
				stw 9,0(8)
 2468 c(74):%IF level = 0 %START;                         !begin
				b .L752
		.L576:
				lwz 9,20(1)
				lwz 9,64(9)
				add 9,9,10
				addis 9,9,0x2
				li 10,90
				stb 10,-26362(9)
 2469          %IF progmode <= 0 %THEN progmode = 1 %ELSE fault(7)
				b .L752
		.L577:
				lwz 9,20(1)
				lwz 9,48(9)
				cmpwi 7,9,0
				bne 7,.L580
				lis 9,.LANCHOR0+644@ha
				lwz 9,.LANCHOR0+644@l(9)
				cmpwi 7,9,0
				bgt 7,.L579
 2470          {Permit BEGIN after external defs}
				lis 9,.LANCHOR0+644@ha
				li 10,1
				stw 10,.LANCHOR0+644@l(9)
		.L578:
		.L580:
 2471       %FINISH
 2472       spec mode = level+1
				lis 9,.LANCHOR0@ha
				la 8,.LANCHOR0@l(9)
				lwz 7,20(1)
				lwz 10,48(7)
				addi 10,10,1
				stw 10,632(8)
 2473       block x = 0
				li 10,0
				stw 10,648(8)
				lwz 11,20(1)
				li 3,7
				bl FAULT.7277
		.LVL551:
				b .L580
		.L581:
 2474       bp=bp+1 %AND buff(bp)='H';  %RETURN
				lwz 10,.LANCHOR0@l(9)
				addi 8,10,1
				stw 8,.LANCHOR0@l(9)
 2475 c(77):perm = 0;  lines = 0;  stats = 0;             !endofperm
				lwz 9,64(7)
				add 9,9,10
				addis 9,9,0x2
				li 10,72
				stb 10,-26362(9)
 2476       close input
				b .L437
		.L579:
				lis 31,.LANCHOR1@ha
		.LVL552:
				la 31,.LANCHOR1@l(31)
				li 10,0
				stw 10,7028(31)
				bl CLOSEINPUT
		.LVL553:
		.LBB539:
		.LBB540:
				lis 9,_imp_InStream@ha
				li 10,1
				stw 10,_imp_InStream@l(9)
				lis 9,_imp_infile+280@ha
				lwz 10,_imp_infile+280@l(9)
				lis 9,_imp_InFile@ha
				stw 10,_imp_InFile@l(9)
				lis 3,.LANCHOR2@ha
				la 3,.LANCHOR2@l(3)
				addi 3,3,1900
				bl check_instream
		.LVL554:
		.LBE540:
		.LBE539:
 2477       select input(source)
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				stw 10,184(9)
 2478       list = list-1
				stw 10,640(9)
				lwz 9,7172(31)
				addi 9,9,-1
				stw 9,7172(31)
 2479       tbase = tmax;  tstart = tmax
				lwz 10,20(1)
				lwz 9,52(10)
				stw 9,56(10)
 2480       %RETURN
				stw 9,60(10)
				b .L437
		.LVL555:
		.L582:
 2481 c(76):%IF include # 0 %AND x = 0 %START;            !end of ...
 2482          lines = include;  sstype =  0;             !include
				lis 9,.LANCHOR0+308@ha
				lwz 9,.LANCHOR0+308@l(9)
				cmpwi 7,9,0
				beq 7,.L583
				lis 31,.LANCHOR0@ha
		.LVL559:
				la 31,.LANCHOR0@l(31)
				stw 9,184(31)
 2483          close input
				lis 10,.LANCHOR0+208@ha
				lwz 10,.LANCHOR0+208@l(10)
				cmpwi 7,10,0
				beq 7,.L775
		.L583:
				li 30,0
				stw 30,620(31)
				bl CLOSEINPUT
		.LVL560:
 2484          list = include list
				lwz 10,652(31)
				lis 9,.LANCHOR1+7172@ha
				stw 10,.LANCHOR1+7172@l(9)
 2485          include level = 0
				stw 30,284(31)
 2486          include = 0;  select input(source);  %RETURN
				stw 30,308(31)
		.LVL561:
		.LBB544:
		.LBB545:
				lis 9,_imp_InStream@ha
				li 10,1
				stw 10,_imp_InStream@l(9)
				lis 9,_imp_infile+280@ha
				lwz 10,_imp_infile+280@l(9)
				lis 9,_imp_InFile@ha
				stw 10,_imp_InFile@l(9)
				lis 3,.LANCHOR2@ha
				la 3,.LANCHOR2@l(3)
				addi 3,3,1900
				bl check_instream
		.LVL562:
				b .L437
		.LVL563:
		.L585:
		.LBE545:
		.LBE544:
		.LBB546:
		.LBB543:
 2487       %FINISH
 2488       ss = -1;                                      !prog/file
				lis 9,.LANCHOR0+624@ha
				li 10,-1
				stw 10,.LANCHOR0+624@l(9)
		.L584:
 2489 c(75):compile end(x);  %RETURN;                     !%END
 2490
				lis 9,.LANCHOR0+208@ha
				lwz 31,.LANCHOR0+208@l(9)
		.LVL556:
		.LBB541:
		.LBB542:
 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)
				lwz 9,28(1)
				lwz 3,208(9)
				lwz 10,20(1)
				lwz 11,64(10)
				lwz 4,4(9)
				subfic 3,3,122
				bl OP.7241
		.LVL569:
				b .L752
		.L599:
 2495       ->top
 2496 c(83):list = list+x-2;   ->top;                     !%LIST/%ENDOFLIST
 2497 c(84):reals ln = x;      ->top;                     !%REALS long/normal
				lis 10,.LANCHOR1@ha
				la 10,.LANCHOR1@l(10)
				lwz 9,7172(10)
				lwz 8,28(1)
				lwz 8,208(8)
				add 9,9,8
				addi 9,9,-2
				stw 9,7172(10)
 2498 c(86):%IF include # 0 %START;                       !include "file"
				b .L752
		.L600:
				lwz 9,28(1)
				lwz 10,208(9)
				lis 9,.LANCHOR1+7184@ha
				stw 10,.LANCHOR1+7184@l(9)
 2499          fault(7);  %RETURN
				b .L752
		.L601:
				lwz 9,28(1)
				lwz 9,308(9)
				cmpwi 7,9,0
				beq 7,.L602
				lwz 11,20(1)
				li 3,7
				bl FAULT.7277
		.LVL570:
				b .L437
		.L602:
 2500       %FINISH
 2501       get next;                                     !sconst
				addi 11,1,604
				bl GETNEXT.8173
		.LVL571:
 2502       include file = string(x-x'4000'+stbase)
 2503       %begin
 2504          %on 9 %start;  Abandon(9);  %finish
				lwz 9,20(1)
				lwz 3,64(9)
				addis 3,3,0x2
				li 5,63
				addi 4,1,1188
				addi 3,3,-26618
				bl _imp_strncpy
		.LVL572:
				li 4,1
				lis 3,_imp_event+544@ha
				la 3,_imp_event+544@l(3)
				bl __sigsetjmp
		.LVL573:
				cmpwi 7,3,0
				bne 7,.L605
		.LVL574:
				li 4,512
				lis 3,_imp_event@ha
				la 3,_imp_event@l(3)
				bl _imp_on_event_enter
		.LVL575:
				cmpwi 7,3,0
				bne 7,.L606
		.LVL576:
		.L605:
 2505          open input(3, include file)
				lwz 9,20(1)
				lwz 11,64(9)
				li 3,9
				bl ABANDON.7167
		.LVL577:
		.L606:
				li 5,256
				addi 4,1,1444
				addi 3,1,336
				bl memcpy
		.LVL578:
				addi 4,1,336
				li 3,3
				bl OPENINPUT
		.LVL579:
		.L607:
 2506       %end
 2507       include = lines;  lines = 0
				lwz 10,28(1)
				lwz 9,184(10)
				stw 9,308(10)
 2508       include list = list;  include level = level
				li 9,0
				stw 9,184(10)
				lis 9,.LANCHOR1+7172@ha
				lwz 9,.LANCHOR1+7172@l(9)
				stw 9,652(10)
 2509       select input(3)
				lwz 9,20(1)
				lwz 9,48(9)
				stw 9,284(10)
		.LVL580:
		.LBB547:
		.LBB534:
				lis 9,_imp_InStream@ha
				li 10,3
				stw 10,_imp_InStream@l(9)
				lis 9,_imp_infile+832@ha
				lwz 10,_imp_infile+832@l(9)
				lis 9,_imp_InFile@ha
				stw 10,_imp_InFile@l(9)
				lwz 3,52(1)
				bl check_instream
		.LVL581:
				b .L752
		.LVL582:
		.L608:
		.LBE534:
		.LBE547:
 2510       ->top
 2511
 2512 c(154):dimension = dimension+1;                     !dbsep
 2513        fault(11) %IF dimension = dim limit+1
				lwz 10,28(1)
				lwz 9,196(10)
				addi 9,9,1
				stw 9,196(10)
				cmpwi 7,9,7
				bne 7,.L752
 2514        ->top
				lwz 11,20(1)
				li 3,11
				bl FAULT.7277
		.LVL583:
				b .L752
		.L609:
 2515 c(145):set bp;                       ->top;         !crb
 2516 c(146):set bp;                                      !rcrb
				addi 11,1,604
				bl SETBP.8205
		.LVL584:
				b .L752
		.L610:
 2517 c(142):                                             !bplrb
				addi 11,1,604
				bl SETBP.8205
		.LVL585:
		.L611:
 2518        dimension = 1 %IF dimension = 0
				lwz 10,28(1)
				lwz 9,196(10)
				cmpwi 7,9,0
				bne 7,.L612
 2519        op('d', dimension);  op(',', defs)
				li 9,1
				stw 9,196(10)
		.L612:
				lwz 31,20(1)
		.LVL586:
				lwz 11,64(31)
				lwz 9,28(1)
				lwz 4,196(9)
				li 3,100
				bl OP.7241
		.LVL587:
 2520        %IF class # 146 %START
				lwz 11,64(31)
				lwz 4,616(1)
				li 3,44
				bl OP.7241
		.LVL588:
				lwz 9,624(1)
				cmpwi 7,9,146
				bne 7,.L778
		.L613:
		.L615:
 2521           set subs(defs)
				addi 11,1,604
				lwz 3,616(1)
				bl SETSUBS.8198
		.LVL589:
 2522           fault(13) %IF dict(dmin) >= 0 %OR inhibit # 0 %OR level=0
				lwz 10,64(31)
				lwz 9,40(31)
				addi 9,9,13415
				slwi 9,9,1
				add 9,10,9
				lha 9,4(9)
				cmpwi 7,9,0
				bge 7,.L614
 2523        %FINISH
				lwz 9,4(31)
				cmpwi 7,9,0
				bne 7,.L614
 2524        dimension = 0;  defs = 0
				li 9,0
				lwz 10,28(1)
				stw 9,196(10)
				lwz 9,48(31)
				cmpwi 7,9,0
				bne 7,.L615
		.L614:
 2525        ->top
				stw 9,616(1)
				b .L752
		.L778:
 2526 c(128):id = dupid;  ->top;                          !EDUP
				lwz 11,20(1)
				li 3,13
				bl FAULT.7277
		.LVL590:
				b .L615
		.LVL591:
		.L616:
 2527 c(130):block x = x
				lwz 9,20(1)
				lwz 10,76(1)
				stw 10,44(9)
 2528        op('F', 0) %IF decl&spec = 0 %AND level # 0; !jump round proc
				b .L752
		.L617:
				lwz 10,28(1)
				lwz 9,208(10)
				stw 9,648(10)
				lwz 9,264(10)
				andi. 9,9,0x1
				bne 0,.L620
 2529 c(125):dupid = id;                                  !%DUP
				lwz 9,20(1)
				lwz 9,48(9)
				cmpwi 7,9,0
				bne 7,.L779
 2530        %return %if Level < 0                        {spec about}
				lwz 9,20(1)
				lwz 9,44(9)
				stw 9,76(1)
		.LVL592:
				b .L622
		.LVL593:
		.L779:
				lwz 9,20(1)
				lwz 11,64(9)
				li 4,0
				li 3,70
				bl OP.7241
		.LVL594:
		.L618:
		.L620:
				lwz 9,20(1)
				lwz 10,44(9)
				stw 10,76(1)
		.LVL595:
				lwz 9,48(9)
				cmpwi 7,9,0
				blt 7,.L437
		.L621:
		.LVL596:
		.L622:
 2531 c(90): def(x);  ->top;                              !ident
 2532 c(131):                                             !cident
				addi 11,1,604
				lwz 9,28(1)
				lwz 3,208(9)
				bl DEF.8223
		.LVL597:
				b .L752
		.L623:
 2533        %IF tag(x)_flags&(b'1111111'+const bit) = iform+const bit %START
				lwz 8,28(1)
				lwz 31,208(8)
		.LVL598:
				lwz 9,20(1)
				lwz 11,64(9)
				slwi 9,31,4
				add 9,11,9
				lhz 10,220(9)
				andi. 10,10,0x1
				bne 0,.L624
 2534           tag(x)_format = lit
				lwz 10,4(8)
				stw 10,216(9)
 2535        %FINISH %ELSE %START
				b .L752
		.L624:
 2536           set const(lit) %IF pending # 0
				lwz 9,620(1)
				cmpwi 7,9,0
				beq 7,.L625
 2537           def(x)
				lwz 9,28(1)
				lwz 3,4(9)
				bl SETCONST.7244
		.LVL599:
		.L625:
				addi 11,1,604
				mr 3,31
				bl DEF.8223
		.LVL600:
 2538          op('A', 1)
				lwz 9,20(1)
				lwz 11,64(9)
				li 4,1
				li 3,65
				bl OP.7241
		.LVL601:
				b .L752
		.LVL602:
		.L626:
 2539        %FINISH
 2540        cident = x
 2541        ->top
 2542 c(124):dubious = 1 %IF tag(cident)_flags&prot # 0; !%DUBIOUS
 2543        ->top
				b .L752
		.L627:
		.L630:
		.LBB548:
		.LBB549:
 2544 c(97):                                              !f
				li 9,1
				lwz 10,28(1)
				stw 9,636(10)
		.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
				lwz 9,20(1)
				lwz 11,64(9)
				lwz 9,28(1)
				lwz 9,208(9)
				addi 9,9,13
				slwi 9,9,4
				add 9,11,9
				lha 4,14(9)
		.LVL607:
 2561       %IF k < 0 %THEN op('n', -k) %ELSE op('@', k)
				cmpwi 7,4,0
				blt 7,.L780
		.L642:
 2562       ->top
				neg 4,4
		.LVL610:
				li 3,110
				bl OP.7241
		.LVL611:
				b .L752
		.L643:
 2563 c(121):set const(0);  ->top;                        !special for zero
 2564 c(167):bp=bp+1;  buff(bp)='G';  ->pstr;             !aconst (alias)
				lwz 9,20(1)
				lwz 11,64(9)
				li 3,0
				bl SETCONST.7244
		.LVL612:
				b .L752
		.L644:
 2565 c(const):                                           !const
				li 3,64
				bl OP.7241
		.LVL608:
				b .L752
		.L637:
				b .L641
		.L638:
				b .L641
		.L639:
				b .L641
		.L640:
				b .L641
		.LVL609:
		.L780:
				lwz 8,28(1)
				lwz 10,0(8)
				addi 9,10,1
				stw 9,0(8)
 2566        %IF x < 0 %START;                            !constinteger
				lwz 9,20(1)
				lwz 9,64(9)
				add 9,9,10
				addis 9,9,0x2
				li 10,71
				stb 10,-26362(9)
		.L645:
				lwz 9,28(1)
				lwz 9,208(9)
				cmpwi 7,9,0
				blt 7,.L781
		.L647:
 2567           set const(tag(-x)_format);  ->top
				lwz 10,20(1)
				lwz 11,64(10)
				subfic 9,9,13
				slwi 9,9,4
				add 9,11,9
				lwz 3,8(9)
				bl SETCONST.7244
		.LVL616:
				b .L752
		.L649:
 2568        %FINISH
 2569        %IF x&x'4000' # 0 %START;                    !strings
 2570           bp=bp+1 %AND buff(bp)=''''
				lwz 8,28(1)
				lwz 10,0(8)
				addi 9,10,1
				stw 9,0(8)
 2571 pstr:     x = x-x'4000'+stbase
				lwz 9,20(1)
				lwz 9,64(9)
				add 9,9,10
				addis 9,9,0x2
				li 10,39
				stb 10,-26362(9)
				b .L645
		.L781:
 2572           k = byteinteger(x)
				lwz 7,28(1)
				lwz 9,208(7)
				addi 9,9,-16384
				lwz 8,336(7)
				add 10,9,8
				stw 10,208(7)
				lbzx 6,9,8
		.LVL613:
 2573           bp=bp+1 %AND buff(bp)=k
				mr 9,7
				lwz 7,0(7)
				addi 8,7,1
				stw 8,0(9)
 2574           k = k+x
				lwz 9,20(1)
				lwz 9,64(9)
				add 9,9,7
				addis 9,9,0x2
				stb 6,-26362(9)
				add 6,10,6
		.LVL614:
 2575           %CYCLE
 2576              ->top %IF x = k
				cmpw 7,10,6
				beq 7,.L752
				bdnz .L648
				lwz 9,28(1)
				stw 6,208(9)
				stw 10,0(9)
				b .L752
		.LVL615:
		.L646:
 2577              x = x+1;  bp=bp+1 %AND buff(bp)=byteinteger(x)
 2578           %REPEAT
				addi 10,8,1
				mr 8,10
 2579        %FINISH
				subf 5,8,10
				subf 9,10,6
				mtctr 9
		.L648:
				lbzx 7,5,10
				lwz 9,20(1)
				lwz 9,64(9)
				add 9,9,8
				addis 9,9,0x2
				stb 7,-26362(9)
		.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
				lwz 8,28(1)
				lwz 10,0(8)
				addi 9,10,1
				stw 9,0(8)
 2599
				lwz 9,20(1)
				lwz 9,64(9)
				add 9,9,10
				addis 9,9,0x2
				li 10,105
				stb 10,-26362(9)
				lwz 8,28(1)
				lwz 10,0(8)
				addi 9,10,1
				stw 9,0(8)
 2600 !own arrays
				b .L752
		.L650:
				lwz 9,20(1)
				lwz 9,64(9)
				add 9,9,10
				addis 9,9,0x2
				li 10,97
				stb 10,-26362(9)
 2601
				b .L752
		.L651:
 2602 c(132):ocount = ub-lb+1
 2603        def(x);                               !oident
				lwz 31,28(1)
		.LVL617:
				lwz 10,616(31)
				lwz 9,612(31)
				subf 9,9,10
				addi 9,9,1
				lis 10,.LANCHOR1+6892@ha
				stw 9,.LANCHOR1+6892@l(10)
				addi 11,1,604
				lwz 3,208(31)
				bl DEF.8223
		.LVL618:
 2604        dimension = 1;  set subs(1)
				li 9,1
				stw 9,196(31)
 2605        %IF next = 0 %START;                  !no initialisation
				addi 11,1,604
				li 3,1
				bl SETSUBS.8198
		.LVL619:
				lwz 9,632(1)
				cmpwi 7,9,0
				bne 7,.L652
 2606           op('A', ocount) %IF ocount > 0
				lis 9,.LANCHOR1+6892@ha
				lwz 4,.LANCHOR1+6892@l(9)
				cmpwi 7,4,0
				bgt 7,.L782
		.L653:
 2607           ocount = -1
				lis 9,.LANCHOR1+6892@ha
				li 10,-1
				stw 10,.LANCHOR1+6892@l(9)
				lwz 9,20(1)
				lwz 11,64(9)
				li 3,65
				bl OP.7241
		.LVL620:
				b .L653
		.L652:
 2608        %FINISH %ELSE %START;                 !initialisation given
				b .L752
		.L782:
 2609           get next
				addi 11,1,604
				bl GETNEXT.8173
		.LVL621:
				b .L752
		.LVL622:
		.L654:
 2610        %FINISH
 2611        ->top
 2612 c(162):lit = ocount;  ->ins;                 !indef
 2613 c(143):pop lit;                              !orb
				lis 9,.LANCHOR1+6892@ha
				lwz 9,.LANCHOR1+6892@l(9)
				lwz 10,28(1)
				stw 9,4(10)
		.L655:
 2614 ins:   fault(10) %AND lit = 0 %IF lit < 0
				addi 11,1,604
				bl POPLIT.8270
		.LVL629:
				b .L655
		.L783:
 2615        get next
				lwz 9,28(1)
				lwz 9,4(9)
				cmpwi 7,9,0
				blt 7,.L783
		.L657:
				addi 11,1,604
				bl GETNEXT.8173
		.LVL623:
		.L658:
 2616        ->inst
				lwz 11,20(1)
				li 3,10
				bl FAULT.7277
		.LVL630:
 2617 c(139):                                      !osep (x=19)
				li 9,0
				lwz 10,28(1)
				stw 9,4(10)
				b .L657
		.L659:
		.L660:
 2618 c(153):lit = 1
 2619 inst:  pop def %IF pending # 0;              !ownt (x=0)
				li 9,1
				lwz 10,28(1)
				stw 9,4(10)
				b .L658
		.LVL631:
		.L784:
 2620        op('A', lit)
				lwz 9,620(1)
				cmpwi 7,9,0
				beq 7,.L661
		.LBB550:
		.LBB551:
				lwz 30,28(1)
				lwz 31,4(30)
		.LVL625:
				lwz 9,20(1)
				lwz 11,64(9)
				mr 4,31
				li 3,65
				bl OP.7241
		.LVL626:
 2621        ocount = ocount-lit
				lis 10,.LANCHOR1@ha
				la 10,.LANCHOR1@l(10)
				lwz 9,6892(10)
				subf 9,31,9
				stw 9,6892(10)
 2622        %IF ocount >= 0 %START
				cmpwi 7,9,0
				blt 7,.L664
 2623           ->top %IF x # 0;                          !more coming
				lwz 10,208(30)
				cmpwi 7,10,0
				bne 7,.L752
		.L663:
 2624           ocount = -1 %AND %RETURN %IF ocount = 0;  !all done
				cmpwi 7,9,0
				beq 7,.L784
		.L662:
		.L664:
 2625        %FINISH
				lis 9,.LANCHOR1+6892@ha
				li 10,-1
				stw 10,.LANCHOR1+6892@l(9)
 2626        fault(11);  %RETURN
				lwz 11,20(1)
				li 3,11
				bl FAULT.7277
		.LVL627:
				b .L437
		.LVL628:
		.L656:
				b .L437
		.LVL632:
		.L665:
 2627
 2628 c(swit):op('W', tag(x)_index);  inhibit = 1;  ->atop
 2629 c(134):def(x);                               !swid
				lwz 31,20(1)
		.LVL633:
				lwz 11,64(31)
				lwz 9,28(1)
				lwz 9,208(9)
				addi 9,9,13
				slwi 9,9,4
				add 9,11,9
				lha 4,14(9)
				li 3,87
				bl OP.7241
		.LVL634:
 2630        n = ub-lb+1
				li 9,1
				stw 9,4(31)
				addi 11,1,604
				lwz 31,28(1)
		.LVL636:
				lwz 3,208(31)
				bl DEF.8223
		.LVL637:
				lwz 9,616(31)
				lwz 31,612(31)
				subf 31,31,9
 2631        n = (n+15)>>4;                        !slots needed (includes zero)
				b .L475
		.LVL635:
		.L666:
				addi 31,31,16
				srwi 31,31,4
		.LVL638:
 2632        j = dmax;  dmax = dmax+n+2
				lis 10,.LANCHOR1@ha
				la 10,.LANCHOR1@l(10)
				lwz 30,6896(10)
		.LVL639:
 2633        abandon(1) %IF dmax >= dmin
				add 9,31,30
				addi 9,9,2
				stw 9,6896(10)
				lwz 10,20(1)
				lwz 10,40(10)
				cmpw 7,9,10
				bge 7,.L785
		.L667:
 2634        tag(x)_format = j
				lwz 8,20(1)
				lwz 10,64(8)
				lwz 7,28(1)
				lwz 9,208(7)
				addi 9,9,13
				slwi 9,9,4
				add 9,10,9
				stw 30,8(9)
				lwz 9,20(1)
				lwz 11,64(9)
				li 3,1
				bl ABANDON.7167
		.LVL644:
				b .L667
		.LVL645:
		.L669:
 2635        dict(j) = lb;  dict(j+1) = ub
				lwz 9,64(8)
				addi 10,30,13415
				slwi 10,10,1
				add 9,9,10
				lwz 10,612(7)
				sth 10,4(9)
 2636        %CYCLE
				lwz 9,64(8)
				addi 10,30,13416
				slwi 10,10,1
				add 9,9,10
				lwz 10,616(7)
				sth 10,4(9)
		.LVL640:
 2637           n = n-1
 2638           ->top %IF n < 0
				addic. 9,31,-1
				blt 0,.L752
				bdnz .L668
				b .L752
		.LVL643:
		.L785:
 2639           j = j+1;  dict(j+1) = 0
				addi 30,30,1
		.LVL642:
 2640        %REPEAT
				li 8,0
				mtctr 31
		.LVL641:
		.L668:
				lwz 9,20(1)
				lwz 9,64(9)
				addi 10,30,13416
				slwi 10,10,1
				add 9,9,10
				sth 8,4(9)
		.LDL33:
 2641 c(151):stats = stats-1;                      !slab
 2642        fault(7) %AND %RETURN %IF x < tbase
				lis 9,.LANCHOR0@ha
				la 9,.LANCHOR0@l(9)
				lwz 10,640(9)
				addi 10,10,-1
				stw 10,640(9)
				lwz 9,208(9)
				lwz 10,20(1)
				lwz 10,56(10)
				cmpw 7,9,10
				blt 7,.L786
		.L670:
 2643        %IF pending # 0 %START;               !explicit label
				lwz 10,620(1)
				cmpwi 7,10,0
				bne 7,.L787
		.L671:
				slwi 8,9,4
				lwz 10,20(1)
				lwz 10,64(10)
				add 10,10,8
				lwz 11,20(1)
				li 3,7
				bl FAULT.7277
		.LVL654:
				b .L437
		.L787:
 2644           def s lab(pstack(1))
				addi 11,1,604
				lis 9,.LANCHOR0+8@ha
				lwz 3,.LANCHOR0+8@l(9)
				bl DEFSLAB.8247
		.LVL655:
		.L672:
		.L680:
 2645        %FINISH %ELSE %START
 2646           fault(4) %AND %RETURN %IF tag(x)_app # 0
				lwz 8,212(10)
				cmpwi 7,8,0
				bne 7,.L788
		.L673:
 2647           tag(x)_app = 1
				li 8,1
				stw 8,212(10)
				lwz 11,20(1)
				li 3,4
				bl FAULT.7277
		.LVL657:
				b .L437
		.LVL658:
		.L789:
		.LBB554:
 2648           n = tag(x)_format
				lwz 10,20(1)
				lwz 10,64(10)
		.LVL646:
				addi 9,9,13
		.LVL647:
				slwi 9,9,4
		.LVL648:
				add 9,10,9
				lwz 9,8(9)
				slwi 9,9,1
				add 9,10,9
		.LBB552:
 2649           %FOR j = dict(n), 1, dict(n+1) %CYCLE
 2650              def s lab(j)
				lha 31,26834(9)
		.LVL649:
				lha 30,26836(9)
		.LVL650:
				addi 11,1,604
				mr 3,31
				bl DEFSLAB.8247
		.LVL670:
 2651              flush buffer %IF bp >= 128
				subf. 9,31,30
				blt 0,.L789
		.LVL651:
		.L674:
				lis 29,.LANCHOR0@ha
				b .L678
		.LVL653:
		.L786:
		.LBE552:
				lis 9,_imp_current_file@ha
				lwz 4,_imp_current_file@l(9)
				cmpwi 7,4,0
				beq 7,.L675
				addi 3,1,3492
				bl _imp_c2istr
		.LVL659:
		.L676:
				lis 9,_imp_current_line@ha
				lwz 29,_imp_current_line@l(9)
				cmpwi 7,29,0
				bne 7,.L677
				li 29,2651
		.L677:
				lis 4,.LC83@ha
				la 4,.LC83@l(4)
				addi 3,1,3748
				bl _imp_c2istr
		.LVL660:
				li 5,256
				addi 4,1,3492
				addi 3,1,336
				bl memcpy
		.LVL661:
				li 5,256
				addi 4,1,3748
				addi 3,1,80
				bl memcpy
		.LVL662:
				li 8,0
				li 7,1
				li 6,5
				addi 5,1,80
				mr 4,29
				addi 3,1,336
				bl _signal_event
		.LVL663:
				b .L674
		.LVL664:
		.L675:
		.LBB553:
				li 5,256
				lis 4,.LANCHOR2@ha
				la 4,.LANCHOR2@l(4)
				addi 3,1,2980
				bl memcpy
		.LVL665:
				li 5,256
				addi 4,1,2980
				addi 3,1,1700
				bl memcpy
		.LVL666:
		.LBE553:
				li 5,256
				addi 4,1,1700
				addi 3,1,3492
				bl memcpy
		.LVL667:
				b .L676
		.LVL668:
		.L679:
				lwz 9,.LANCHOR0@l(29)
				cmpwi 7,9,127
				ble 7,.L679
 2652           %REPEAT
				addi 31,31,-1
		.LVL652:
				lwz 9,20(1)
				lwz 11,64(9)
				bl FLUSHBUFFER.7135
		.LVL671:
				b .L679
		.LVL672:
		.L681:
		.LBE554:
 2653        %FINISH
 2654        inhibit = 1
				cmpw 7,30,31
				beq 7,.L680
				li 9,1
				lwz 10,20(1)
				stw 9,4(10)
				cmpw 7,30,31
				beq 7,.L680
		.L678:
 2655        %RETURN
				b .L437
		.LVL656:
		.L788:
				addi 31,31,1
		.LVL669:
 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
				lwz 8,28(1)
				lwz 10,0(8)
				addi 9,10,1
				stw 9,0(8)
 2659
				lwz 9,20(1)
				lwz 9,64(9)
				add 9,9,10
				addis 9,9,0x2
				li 10,112
				stb 10,-26362(9)
				lwz 7,28(1)
				lwz 9,0(7)
				lwz 6,20(1)
				lwz 10,64(6)
				add 10,10,9
				addis 10,10,0x2
				li 8,112
				stb 8,-26362(10)
 2660 !constant expressions
				b .L752
		.L682:
				lwz 10,64(6)
				add 10,10,9
				addis 10,10,0x2
				li 8,69
				stb 8,-26361(10)
 2661
				addi 9,9,2
				stw 9,0(7)
 2662 c(155):                                      !pconst
				b .L752
		.L683:
 2663        %IF x < 0 %THEN lit = tag(-x)_format %c
				lwz 9,28(1)
				lwz 9,208(9)
				cmpwi 7,9,0
				blt 7,.L790
		.L684:
 2664                  %ELSE lit = lit pool(x)
				lwz 10,20(1)
				lwz 10,64(10)
				subfic 9,9,13
				slwi 9,9,4
				add 9,10,9
				lwz 9,8(9)
				lwz 10,28(1)
				stw 9,4(10)
 2665        pending = pending+1;     pstack(pending) = lit;  ->top
				lwz 9,620(1)
				addi 10,9,1
				stw 10,620(1)
				b .L685
		.L686:
 2666 c(156):lit = pstack(pending);  lit = -lit %IF lit < 0
				slwi 9,9,2
				lwz 10,28(1)
				add 9,10,9
				lwz 10,4(10)
				stw 10,8(9)
 2667                                 pstack(pending) = lit;  ->top;  !cmod
				lwz 10,20(1)
				lwz 10,64(10)
				slwi 9,9,2
				lwzx 9,10,9
				lwz 10,28(1)
				stw 9,4(10)
		.L685:
				b .L752
		.L790:
				lwz 9,620(1)
				addi 9,9,-1
				slwi 10,9,2
				lwz 8,28(1)
				add 10,8,10
				lwz 10,8(10)
				stw 10,4(8)
				slwi 9,9,2
				lwz 10,28(1)
				add 9,10,9
				lwz 10,4(10)
				stw 10,8(9)
 2668 c(157):lit = -pstack(pending);  pstack(pending) = lit;  ->top;  !csign
				cmpwi 7,10,0
				blt 7,.L791
		.L687:
				b .L752
		.L791:
 2669 c(158):lit = \pstack(pending);  pstack(pending) = lit;  ->top;  !cuop
				neg 10,10
				stw 10,4(8)
				b .L687
		.L688:
				lwz 9,620(1)
				addi 9,9,-1
				slwi 9,9,2
				lwz 8,28(1)
				add 9,8,9
				lwz 10,8(9)
				neg 10,10
				stw 10,4(8)
 2670 c(159):                                      !cop1
				stw 10,8(9)
				lwz 9,620(1)
				addi 9,9,-1
				slwi 9,9,2
				lwz 8,28(1)
				add 9,8,9
				lwz 10,8(9)
				not 10,10
				stw 10,4(8)
 2671 c(160):                                      !cop2
				b .L752
		.L689:
				stw 10,8(9)
 2672 c(161):pending = pending-1;                  !cop3
				b .L752
		.L690:
		.L692:
 2673        lit2 = pstack(pending+1);  lit = pstack(pending)
				lis 9,.LANCHOR0@ha
				la 8,.LANCHOR0@l(9)
				stw 8,28(1)
				lwz 9,620(1)
				addi 10,9,-1
				stw 10,620(1)
				slwi 10,10,2
				lwz 8,28(1)
				add 10,8,10
				lwz 10,8(10)
				stw 10,60(1)
		.LVL673:
 2674        ->litop(x>>2)
				addi 9,9,-2
				slwi 9,9,2
				add 9,8,9
				lwz 9,8(9)
				stw 9,4(8)
		.LVL674:
				lwz 9,208(8)
				srwi 9,9,2
				stw 9,64(1)
		.LVL675:
				stw 30,72(1)
				li 9,2674
		.LVL676:
				stw 9,68(1)
		.LVL677:
		.L693:
 2675 litop(10):lit = lit*lit2;   ->setl
 2676 litop(12):
				lwz 10,28(1)
				lwz 9,4(10)
				lwz 8,60(1)
				mullw 9,9,8
				stw 9,4(10)
 2677 litop(3):n = 1;                              !lit = lit\\lit2
				b .L711
		.L696:
		.L697:
		.LVL681:
 2678          fault(10) %IF lit2 < 0
				lwz 9,60(1)
				cmpwi 7,9,0
				blt 7,.L792
		.L698:
		.LVL682:
 2679          %WHILE lit2 > 0 %CYCLE
				lwz 11,20(1)
				li 3,10
				bl FAULT.7277
		.LVL689:
				b .L698
		.LVL690:
		.L741:
 2680             lit2 = lit2-1
				lwz 8,60(1)
				cmpwi 7,8,0
				ble 7,.L741
				lwz 8,60(1)
				addi 8,8,-1
				stw 8,60(1)
		.LVL684:
				bdnz .L700
		.LVL686:
		.L699:
				li 9,1
				b .L699
		.LVL691:
		.L701:
 2681             n = n*lit
				lwz 9,28(1)
				lwz 10,4(9)
				li 9,1
				mtctr 8
		.LVL683:
		.L700:
				mullw 9,9,10
		.LVL685:
 2682          %REPEAT
 2683          lit = n;           ->setl
				lwz 10,28(1)
				stw 9,4(10)
		.L695:
		.LVL687:
		.L711:
 2684 litop(1):lit = lit<<lit2;   ->setl
 2685 litop(2):lit = lit>>lit2;   ->setl
				lwz 10,28(1)
				lwz 9,4(10)
				lwz 8,60(1)
				slw 9,9,8
				stw 9,4(10)
 2686 litop(5):lit = lit&lit2;    ->setl
				b .L711
		.L702:
				lwz 10,28(1)
				lwz 9,4(10)
				lwz 8,60(1)
				srw 9,9,8
				stw 9,4(10)
 2687 litop(11):
				b .L711
		.L703:
				lwz 10,28(1)
				lwz 9,4(10)
				lwz 8,60(1)
				and 9,9,8
				stw 9,4(10)
 2688 litop(4):%IF lit2 = 0 %THEN fault(10) %ELSE lit = lit//lit2
				b .L711
		.L704:
		.L705:
 2689                             ->setl
				lwz 9,60(1)
				cmpwi 7,9,0
				beq 7,.L793
		.L706:
 2690 litop(8):lit = lit+lit2;    ->setl
				lwz 11,20(1)
				li 3,10
				bl FAULT.7277
		.LVL692:
				b .L711
		.L707:
 2691 litop(9):lit = lit-lit2;    ->setl
				lwz 10,28(1)
				lwz 9,4(10)
				lwz 8,60(1)
				add 9,9,8
				stw 9,4(10)
 2692 litop(6):lit = lit!lit2;    ->setl
				b .L711
		.L708:
				lwz 10,28(1)
				lwz 9,4(10)
				lwz 8,60(1)
				subf 9,8,9
				stw 9,4(10)
 2693 litop(7):lit = lit!!lit2
				lwz 10,28(1)
				lwz 9,4(10)
				lwz 8,60(1)
				divw 9,9,8
				stw 9,4(10)
				b .L711
		.L793:
				b .L711
		.L709:
				lwz 10,28(1)
				lwz 9,4(10)
				lwz 8,60(1)
				or 9,9,8
				stw 9,4(10)
 2694
				b .L711
		.L710:
				lwz 10,28(1)
				lwz 9,4(10)
				lwz 8,60(1)
				xor 9,9,8
				stw 9,4(10)
				b .L711
		.L712:
 2695 setl: pstack(pending) = lit;  ->top
 2696
				lwz 9,620(1)
				addi 9,9,-1
				slwi 9,9,2
				lwz 10,28(1)
				add 9,10,9
				lwz 10,4(10)
				stw 10,8(9)
 2697 c(170):Fault(4) %if IMPCOM_Option # ""
				b .L752
		.LVL688:
		.L792:
 2698        IMPCOM_Option = String(x-x'4000'+Stbase);      !Option string
 2699        ->Top
 2700
				addi 4,1,1956
				lis 3,IMPCOM+280@ha
				la 3,IMPCOM+280@l(3)
				bl _imp_strcmp
		.LVL693:
				cmpwi 7,3,0
				beq 7,.L713
				li 5,255
				addi 4,1,2212
				lis 3,IMPCOM+280@ha
				la 3,IMPCOM+280@l(3)
				bl _imp_strncpy
		.LVL695:
				b .L752
		.L714:
		.LVL696:
 2701 !string resolution
 2702
 2703 c(135):resln = 2;                    ->top;           !dotl
				lwz 11,20(1)
				li 3,4
				bl FAULT.7277
		.LVL694:
		.L713:
 2704 c(136):resln = resln+1;              ->top;           !dotr
				li 9,2
				stw 9,40(1)
 2705 c(55): op('r', resln);    resln = 0; ->top;           !resop
				b .L752
		.LVL697:
		.L715:
				lwz 9,40(1)
				addi 9,9,1
				stw 9,40(1)
		.LVL698:
 2706 c(164):op('r', resln+4);  resln = 0;                  !cresop
				b .L752
		.LVL699:
		.L716:
				lwz 9,20(1)
				lwz 11,64(9)
				lwz 4,40(1)
				li 3,114
				bl OP.7241
		.LVL700:
 2707 c(122):x = 6;                        ->cop;           !%PRED
				li 9,0
				stw 9,40(1)
		.LVL701:
				b .L752
		.LVL702:
		.L717:
				lwz 9,20(1)
				lwz 11,64(9)
				lwz 9,40(1)
				addi 4,9,4
				li 3,114
				bl OP.7241
		.LVL703:
 2708 c(87): set const(pstack(1));                          !mass
				li 9,0
				stw 9,40(1)
		.LVL704:
		.L718:
				li 9,6
				lwz 10,28(1)
				stw 9,208(10)
		.L560:
		.L563:
 2709        bp=bp+1 %AND buff(bp)='P';    ->top
				lwz 30,20(1)
				lwz 11,64(30)
				lwz 31,28(1)
		.LVL711:
				lwz 3,8(31)
				bl SETCONST.7244
		.LVL712:
				lwz 10,0(31)
				addi 9,10,1
				stw 9,0(31)
 2710    %END
				lwz 9,64(30)
				add 9,9,10
				addis 9,9,0x2
				li 10,80
				stb 10,-26362(9)
		.L451:
 2711
				b .L752
		.LVL713:
		.L454:
 2712 %END;                                                 !of compile block
				lis 9,.LANCHOR2@ha
				la 10,.LANCHOR2@l(9)
				stw 10,24(1)
		.LBE531:
				cmplwi 7,31,180
				bgt 7,.L454
		.L455:
				lis 9,_imp_current_file@ha
				lwz 4,_imp_current_file@l(9)
				cmpwi 7,4,0
				beq 7,.L720
				addi 3,1,4004
				bl _imp_c2istr
		.LVL714:
		.L721:
				lis 9,_imp_current_line@ha
				lwz 30,_imp_current_line@l(9)
				cmpwi 7,30,0
				bne 7,.L722
				li 30,2712
		.L722:
				li 5,256
				addi 4,1,4004
				addi 3,1,80
				bl memcpy
		.LVL715:
				li 9,2225
				stw 9,8(1)
				lis 10,.LC77@ha
				la 10,.LC77@l(10)
				mr 9,31
				lis 8,.LC84@ha
				la 8,.LC84@l(8)
				mr 7,31
				li 6,3
				li 5,6
				mr 4,30
				addi 3,1,80
				crxor 6,6,6
				bl _signal_eventf
		.LVL716:
				b .L455
		.L720:
		.LBB555:
				li 5,256
				lwz 4,24(1)
				addi 3,1,2980
				bl memcpy
		.LVL717:
				li 5,256
				addi 4,1,2980
				addi 3,1,2468
				bl memcpy
		.LVL718:
		.LBE555:
				li 5,256
				addi 4,1,2468
				addi 3,1,4004
				bl memcpy
		.LVL719:
				b .L721
		.LVL720:
		.L724:
 2713
				slwi 9,31,2
				lwz 10,24(1)
				add 9,10,9
				lwz 9,1920(9)
				lwz 9,1916(1)
				lwz 10,-28680(2)
				xor. 9,9,10
				li 10,0
				bne 0,.L948
				lwz 0,1972(1)
				mtlr 0
				lwz 29,1956(1)
				lwz 30,1960(1)
				lwz 31,1964(1)
				addi 1,1,1968
				blr
		.L947:
				bl __stack_chk_fail
		.LVL979:
		.LFE191:
				.align 2
				.globl main
		main:
		.LFB185:
 2714    %ON 9 %START
				li 4,1
				lis 3,_imp_event+544@ha
				la 3,_imp_event+544@l(3)
				bl __sigsetjmp
		.LVL986:
				cmpwi 7,3,0
				bne 7,.L951
		.LVL987:
				li 4,512
				lis 3,_imp_event@ha
				la 3,_imp_event@l(3)
				bl _imp_on_event_enter
		.LVL988:
				cmpwi 7,3,0
				beq 7,.L951
		.LVL989:
		.L952:
 2715       abandon(5)
				lis 9,.LC85@ha
				la 9,.LC85@l(9)
				stw 9,56(1)
		.LBB532:
		.LBB533:
				addi 9,10,1900
				stw 9,52(1)
				addi 9,8,168
				stw 9,44(1)
		.LVL462:
		.L752:
		.LBE533:
		.LBE532:
				lis 29,_imp_current_line@ha
				lis 30,.LC77@ha
				la 30,.LC77@l(30)
		.LVL475:
		.L723:
				mtctr 9
				bctr
		.LVL476:
		.L760:
				lis 9,_imp_current_file@ha
				lwz 4,_imp_current_file@l(9)
				cmpwi 7,4,0
				beq 7,.L725
				addi 3,1,4260
				bl _imp_c2istr
		.LVL721:
		.L726:
				lwz 28,_imp_current_line@l(29)
				cmpwi 7,28,0
				bne 7,.L727
				li 28,2715
		.L727:
				li 5,256
				addi 4,1,4260
				addi 3,1,80
				bl memcpy
		.LVL722:
				li 9,2225
				stw 9,8(1)
				mr 10,30
				mr 9,31
				lwz 8,56(1)
				mr 7,31
				li 6,2
				li 5,8
				mr 4,28
				addi 3,1,80
				crxor 6,6,6
				bl _signal_eventf
		.LVL723:
				b .L693
		.L725:
		.LBB556:
				li 5,256
				lwz 4,24(1)
				addi 3,1,2980
				bl memcpy
		.LVL724:
				li 5,256
				addi 4,1,2980
				addi 3,1,2724
				bl memcpy
		.LVL725:
		.LBE556:
				li 5,256
				addi 4,1,2724
				addi 3,1,4260
				bl memcpy
		.LVL726:
				b .L726
		.L729:
		.LBB557:
				addi 11,1,2080
				li 3,5
				bl ABANDON.7167
		.LVL1016:
				b .L952
		.LFE185:
				.comm	IMPCOM,536,4
				.section	.rodata
				.align 2
				.set	.LANCHOR2,. + 0
		.LC16:
				.byte	29
				.string	"test-new/pass1v84-noprims.imp"
				.zero	225
		REASON.7172:
				.long	.L29
				.long	.L29
				.long	.L29
				.long	.L29
				.long	.L29
				.long	.L29
				.long	.L29
				.long	.L29
				.long	.L29
				.long	.L29
		__PRETTY_FUNCTION__.6588:
				.string	"_imp_SELECTOUTPUT"
		.LC26:
				.byte	7
				.string	"lookup:"
				.zero	247
				.zero	2
		.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.7282:
				.long	.L396
				.long	.L396
				.long	.L396
				.long	.L396
				.long	.L396
				.long	.L396
				.long	.L396
				.long	.L396
				.long	.L396
				.long	.L396
				.long	.L396
				.long	.L396
				.long	.L396
				.long	.L396
				.long	.L396
				.long	.L396
				.long	.L396
				.long	.L396
				.long	.L396
				.long	.L396
				.long	.L396
				.long	.L396
				.long	.L396
				.long	.L396
				.long	.L396
				.long	.L396
				.long	.L396
				.long	.L396
		.LC32:
				.byte	5
				.string	"fault"
				.zero	249
		.LC11:
				.byte	91
				.byte	93
				.byte	88
				.byte	47
				.byte	38
				.byte	33
				.byte	37
				.byte	43
				.byte	45
				.byte	42
				.byte	81
				.byte	120
				.byte	46
				.byte	118
				.zero	2
		.LC13:
				.byte	1
				.byte	0
				.byte	1
				.byte	1
				.byte	1
				.byte	1
				.byte	1
				.byte	1
				.byte	0
				.byte	1
				.byte	1
				.byte	0
				.byte	1
				.byte	1
				.byte	1
				.byte	1
		.LC14:
				.short	1
				.short	2
				.short	4107
				.short	4109
				.short	5132
				.short	5134
				.short	3
				.short	4
				.short	4103
				.short	4104
				.short	4105
				.short	4106
				.short	6
				.short	0
				.short	0
				.short	0
		.LC15:
				.byte	4
				.string	"ss ="
				.zero	250
		__PRETTY_FUNCTION__.6584:
				.string	"_imp_SELECTINPUT"
				.zero	3
		C.7993:
				.long	.L450
				.long	.L724
				.long	.L724
				.long	.L724
				.long	.L724
				.long	.L724
				.long	.L724
				.long	.L724
				.long	.L724
				.long	.L724
				.long	.L724
				.long	.L724
				.long	.L724
				.long	.L724
				.long	.L724
				.long	.L724
				.long	.L724
				.long	.L724
				.long	.L724
				.long	.L724
				.long	.L724
				.long	.L724
				.long	.L724
				.long	.L724
				.long	.L724
				.long	.L724
				.long	.L724
				.long	.L487
				.long	.L478
				.long	.L485
				.long	.L486
				.long	.L482
				.long	.L483
				.long	.L496
				.long	.L479
				.long	.L480
				.long	.L492
				.long	.L491
				.long	.L498
				.long	.L497
				.long	.L724
				.long	.L501
				.long	.L517
				.long	.L518
				.long	.L519
				.long	.L513
				.long	.L514
				.long	.L515
				.long	.L516
				.long	.L561
				.long	.L559
				.long	.L574
				.long	.L576
				.long	.L575
				.long	.L724
				.long	.L716
				.long	.L520
				.long	.L521
				.long	.L522
				.long	.L524
				.long	.L525
				.long	.L724
				.long	.L529
				.long	.L553
				.long	.L544
				.long	.L573
				.long	.L724
				.long	.L539
				.long	.L535
				.long	.L531
				.long	.L533
				.long	.L540
				.long	.L530
				.long	.L724
				.long	.L577
				.long	.L584
				.long	.L582
				.long	.L581
				.long	.L567
				.long	.L568
				.long	.L569
				.long	.L572
				.long	.L570
				.long	.L599
				.long	.L600
				.long	.L598
				.long	.L601
				.long	.L719
				.long	.L477
				.long	.L571
				.long	.L622
				.long	.L636
				.long	.L637
				.long	.L646
				.long	.L724
				.long	.L724
				.long	.L630
				.long	.L627
				.long	.L628
				.long	.L629
				.long	.L632
				.long	.L633
				.long	.L634
				.long	.L635
				.long	.L551
				.long	.L665
				.long	.L638
				.long	.L639
				.long	.L640
				.long	.L641
				.long	.L724
				.long	.L724
				.long	.L724
				.long	.L724
				.long	.L724
				.long	.L724
				.long	.L724
				.long	.L724
				.long	.L724
				.long	.L724
				.long	.L538
				.long	.L643
				.long	.L718
				.long	.L724
				.long	.L626
				.long	.L620
				.long	.L506
				.long	.L505
				.long	.L616
				.long	.L724
				.long	.L617
				.long	.L623
				.long	.L651
				.long	.L502
				.long	.L666
				.long	.L714
				.long	.L715
				.long	.L649
				.long	.L523
				.long	.L659
				.long	.L681
				.long	.L650
				.long	.L611
				.long	.L656
				.long	.L682
				.long	.L609
				.long	.L610
				.long	.L512
				.long	.L503
				.long	.L552
				.long	.L724
				.long	.L669
				.long	.L481
				.long	.L660
				.long	.L608
				.long	.L683
				.long	.L686
				.long	.L688
				.long	.L689
				.long	.L690
				.long	.L691
				.long	.L692
				.long	.L654
				.long	.L532
				.long	.L717
				.long	.L631
				.long	.L528
				.long	.L644
				.long	.L511
				.long	.L724
				.long	.L712
				.long	.L508
				.long	.L509
				.long	.L510
				.long	.L507
				.long	.L500
				.long	.L724
				.long	.L724
				.long	.L724
				.long	.L724
				.long	.L724
		LITOP.8127:
				.long	.L701
				.long	.L702
				.long	.L697
				.long	.L705
				.long	.L703
				.long	.L709
				.long	.L710
				.long	.L707
				.long	.L708
				.long	.L694
				.long	.L704
				.long	.L696
		.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.7521:
				.long	.L861
				.long	.L861
				.long	.L861
				.long	.L861
				.long	.L861
				.long	.L861
				.long	.L861
				.long	.L861
				.long	.L861
				.long	.L861
				.long	.L861
				.long	.L861
				.long	.L861
				.long	.L861
				.long	.L861
				.long	.L861
				.long	.L861
				.long	.L861
				.long	.L861
				.long	.L861
				.long	.L861
		PACTION.7526:
				.long	.L870
				.long	.L870
				.long	.L870
				.long	.L870
				.long	.L870
				.long	.L870
				.long	.L870
				.long	.L870
				.long	.L870
				.long	.L870
				.long	.L870
				.long	.L870
				.long	.L870
				.long	.L870
				.long	.L870
				.long	.L870
		.LC8:
				.byte	5
				.string	"Begin"
				.zero	249
		.LC9:
				.byte	10
				.string	"Procedure "
				.zero	244
		.LC30:
				.long	89
				.long	1764
				.long	247
				.long	89
				.long	89
				.long	89
				.long	89
				.long	-100
				.long	-101
				.long	-102
				.long	-103
				.long	89
				.long	214
				.long	89
				.long	229
				.long	89
		.LC10:
				.byte	3
				.string	"End"
				.zero	251
		.LC0:
				.byte	89
				.byte	91
				.byte	92
				.byte	104
				.byte	94
				.byte	93
				.byte	105
				.byte	100
				.byte	101
				.byte	102
				.byte	103
				.byte	106
				.byte	107
				.byte	108
				.byte	109
				.byte	89
		.LC1:
				.byte	89
				.byte	1
				.byte	1
				.byte	10
				.byte	9
				.byte	1
				.byte	10
				.byte	7
				.byte	7
				.byte	7
				.byte	7
				.byte	4
				.byte	1
				.byte	4
				.byte	1
				.byte	89
		.LC91:
				.string	"VDEC"
				.zero	3
		.LC93:
				.string	"EXTVSPEC"
				.zero	3
		.LC94:
				.string	"ADEC"
				.zero	3
		.LC96:
				.string	"EXTASPEC"
				.zero	3
		.LC97:
				.string	"PROC"
				.zero	3
		.LC98:
				.string	"PROCSPEC"
				.zero	3
		.LC100:
				.string	"SWDEC"
				.zero	2
		.LC101:
				.string	"LDEC"
				.zero	3
		.LC102:
				.string	"FORMSPEC"
				.zero	3
		.LC103:
				.string	"OPTION"
				.zero	1
		.LC104:
				.string	"COMMA"
				.zero	2
		.LC105:
				.string	"COLON"
				.zero	2
		.LC107:
				.string	"ALIAS"
				.zero	2
		.LC108:
				.string	"ARRAYD"
				.zero	1
		.LC109:
				.string	"STYPE"
				.zero	2
		.LC110:
				.string	"ARRAY"
				.zero	2
		.LC111:
				.string	"NAME"
				.zero	3
		.LC112:
				.string	"PROCD"
				.zero	2
		.LC113:
				.string	"FNMAP"
				.zero	2
		.LC114:
				.string	"SWITCH"
				.zero	1
		.LC115:
				.string	"EXTERNAL"
				.zero	3
		.LC116:
				.string	"STRING"
				.zero	1
		.LC117:
				.string	"RECORD"
				.zero	1
		.LC118:
				.string	"FORMAT"
				.zero	1
		.LC119:
				.string	"SPEC"
				.zero	3
		.LC120:
				.string	"MCODE"
				.zero	2
		.LC121:
				.string	"LABEL"
				.zero	2
		.LC122:
				.string	"SIGN"
				.zero	3
		.LC123:
				.string	"COMP"
				.zero	3
		.LC124:
				.string	"ACOMP"
				.zero	2
		.LC125:
				.string	"EQEQ"
				.zero	3
		.LC126:
				.string	"JUMP"
				.zero	3
		.LC127:
				.string	"RESOP"
				.zero	2
		.LC128:
				.string	"WHILE"
				.zero	2
		.LC129:
				.string	"UNTIL"
				.zero	2
		.LC130:
				.string	"CWORD"
				.zero	2
		.LC131:
				.string	"EXIT"
				.zero	3
		.LC132:
				.string	"SIGNAL"
				.zero	1
		.LC133:
				.string	"THEN"
				.zero	3
		.LC134:
				.string	"START"
				.zero	2
		.LC135:
				.string	"ELSE"
				.zero	3
		.LC136:
				.string	"FINISH"
				.zero	1
		.LC137:
				.string	"FELSE"
				.zero	2
		.LC138:
				.string	"CYCLE"
				.zero	2
		.LC139:
				.string	"REPEAT"
				.zero	1
		.LC141:
				.string	"BEGIN"
				.zero	2
		.LC146:
				.string	"BACK"
				.zero	3
		.LC148:
				.string	"STOP"
				.zero	3
		.LC149:
				.string	"LIST"
				.zero	3
		.LC153:
				.string	"MASS"
				.zero	3
		.LC154:
				.string	"RTYPE"
				.zero	2
		.LC155:
				.string	"ADDOP"
				.zero	2
		.LC156:
				.string	"IDENT"
				.zero	2
		.LC157:
				.string	"CONST"
				.zero	2
		.LC159:
				.string	"%CLEAR"
				.zero	1
		.LC160:
				.string	"%PRED"
				.zero	2
		.LC161:
				.string	"%DUBIOUS"
				.zero	3
		.LC162:
				.string	"%DUP"
				.zero	3
		.LC163:
				.string	"%PIN"
				.zero	3
		.LC164:
				.string	"%POUT"
				.zero	2
		.LC165:
				.string	"%EDUP"
				.zero	2
		.LC166:
				.string	"PIDENT"
				.zero	1
		.LC167:
				.string	"CIDENT"
				.zero	1
		.LC168:
				.string	"OIDENT"
				.zero	1
		.LC169:
				.string	"FNAME"
				.zero	2
		.LC170:
				.string	"SWID"
				.zero	3
		.LC171:
				.string	"DOTL"
				.zero	3
		.LC172:
				.string	"DOTR"
				.zero	3
		.LC173:
				.string	"ASEP"
				.zero	3
		.LC174:
				.string	"CSEP"
				.zero	3
		.LC175:
				.string	"OSEP"
				.zero	3
		.LC176:
				.string	"PSEP"
				.zero	3
		.LC177:
				.string	"BPLRB"
				.zero	2
		.LC178:
				.string	"RCRB"
				.zero	3
		.LC179:
				.string	"RECRB"
				.zero	2
		.LC180:
				.string	"RECLB"
				.zero	2
		.LC181:
				.string	"MLAB"
				.zero	3
		.LC182:
				.string	"SLAB"
				.zero	3
		.LC183:
				.string	"XNAME"
				.zero	2
		.LC184:
				.string	"OWNT"
				.zero	3
		.LC185:
				.string	"DBSEP"
				.zero	2
		.LC186:
				.string	"PCONST"
				.zero	1
		.LC187:
				.string	"CMOD"
				.zero	3
		.LC188:
				.string	"CSIGN"
				.zero	2
		.LC189:
				.string	"CUOP"
				.zero	3
		.LC190:
				.string	"COP1"
				.zero	3
		.LC191:
				.string	"COP2"
				.zero	3
		.LC192:
				.string	"COP3"
				.zero	3
		.LC193:
				.string	"INDEF"
				.zero	2
		.LC194:
				.string	"XELSE"
				.zero	2
		.LC195:
				.string	"CRESOP"
				.zero	1
		.LC196:
				.string	"NLAB"
				.zero	3
		.LC197:
				.string	"RUNTIL"
				.zero	1
		.LC198:
				.string	"ACONST"
				.zero	1
		.LC199:
				.string	"ORRB"
				.zero	3
		.LC200:
				.string	"FMANY"
				.zero	2
		.LC202:
				.string	"FMLB"
				.zero	3
		.LC203:
				.string	"FMRB"
				.zero	3
		.LC204:
				.string	"FMOR"
				.zero	3
		.LC206:
				.string	"FSID"
				.zero	3
		.LC207:
				.string	"%DUMMY"
				.zero	1
		.LC208:
				.string	"%DECL"
				.zero	2
		.LC209:
				.string	"%TYPE"
				.zero	2
		.LC210:
				.string	"%ZERO"
				.zero	2
		.LC211:
				.string	"%APPLY"
				.zero	1
		.LC212:
				.string	"%PROT"
				.zero	2
		.LC213:
				.string	"%SETPROT"
				.zero	3
		.LC214:
				.string	"%PTYPE"
				.zero	1
		.LC215:
				.string	"%GAPP"
				.zero	2
		.LC216:
				.string	"%LOCAL"
				.zero	1
		.LC217:
				.string	"%GUARD"
				.zero	1
		.LC218:
				.string	"%MCODE"
				.zero	1
		.LC220:
				.string	"%SETTYPE"
				.zero	3
		.LC221:
				.string	"%OPER"
				.zero	2
		.LC222:
				.string	"%PARAM"
				.zero	1
		.LC223:
				.string	"%BLOCK"
				.zero	1
		.LC224:
				.string	"%OTHER"
				.zero	1
		.LC225:
				.string	"%COMPILE"
				.zero	3
		.LC227:
				.string	"APP2"
				.zero	3
		.LC228:
				.string	"APP3"
				.zero	3
		.LC229:
				.string	"APP4"
				.zero	3
		.LC230:
				.string	"APP5"
				.zero	3
		.LC231:
				.string	"APP6"
				.zero	3
		.LC232:
				.string	"ADEFN"
				.zero	2
		.LC233:
				.string	"NPARM"
				.zero	2
		.LC234:
				.string	"SWDEF"
				.zero	2
		.LC235:
				.string	"SWIDS"
				.zero	2
		.LC236:
				.string	"CIEXP"
				.zero	2
		.LC237:
				.string	"RCONST"
				.zero	1
		.LC238:
				.string	"SCONST"
				.zero	1
		.LC239:
				.string	"ARRAYP"
				.zero	1
		.LC240:
				.string	"XIMP"
				.zero	3
		.LC241:
				.string	"COND"
				.zero	3
		.LC242:
				.string	"SCOND"
				.zero	2
		.LC243:
				.string	"EXP1"
				.zero	3
		.LC244:
				.string	"EXP2"
				.zero	3
		.LC245:
				.string	"SEXP"
				.zero	3
		.LC246:
				.string	"IEXP"
				.zero	3
		.LC247:
				.string	"IEXP1"
				.zero	2
		.LC248:
				.string	"IEXP2"
				.zero	2
		.LC249:
				.string	"ISEXP"
				.zero	2
		.LC250:
				.string	"FDEF"
				.zero	3
		.LC252:
				.string	"STRUCT"
				.zero	1
		.LC253:
				.string	"RESEXP"
				.zero	1
		.LC254:
				.string	"CONSTB"
				.zero	1
		.LC255:
				.string	"FITEM"
				.zero	2
		.LC256:
				.string	"MOREA"
				.zero	2
		.LC257:
				.string	"CLIST"
				.zero	2
		.LC258:
				.string	"FPP0"
				.zero	3
		.LC259:
				.string	"FPP1"
				.zero	3
		.LC260:
				.string	"FPP2"
				.zero	3
		.LC262:
				.string	"RECEXP"
				.zero	1
		.LC263:
				.string	"EIMP"
				.zero	3
		.LC264:
				.string	"IDENTS"
				.zero	1
		.LC265:
				.string	"RANGE"
				.zero	2
		.LC267:
				.string	"VARP"
				.zero	3
		.LC269:
				.string	"ESCDEC"
				.zero	1
		.LC271:
				.string	"ESCARRAY"
				.zero	3
		.LC272:
				.string	"ESCREC"
				.zero	1
		.LC2:
				.byte	90
				.byte	90
				.byte	90
				.byte	90
				.byte	90
				.byte	48
				.byte	48
				.byte	19
				.byte	19
				.byte	19
				.byte	19
				.byte	25
				.byte	25
				.byte	25
				.byte	25
				.byte	25
				.byte	25
				.byte	25
				.byte	23
				.byte	104
				.byte	104
				.byte	105
				.byte	30
				.byte	20
				.byte	21
				.byte	93
				.byte	47
				.byte	45
				.byte	46
				.byte	42
				.byte	43
				.byte	44
				.byte	40
				.byte	68
				.byte	55
				.byte	104
				.byte	60
				.byte	93
				.byte	25
				.byte	40
				.byte	93
				.byte	23
				.byte	25
				.byte	57
				.byte	25
				.byte	90
				.byte	-80
				.byte	-79
				.byte	-78
				.byte	-77
		.LC3:
				.short	24
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	23
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	20
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	-32551
				.short	0
				.short	0
				.short	0
				.short	0
				.short	13
				.short	0
				.short	14
				.short	4
				.short	-32557
				.short	16
				.short	-32550
				.short	0
				.short	0
				.short	5
				.short	6
				.short	3
				.short	12
				.short	15
				.short	8
				.short	7
				.short	9
				.short	10
				.short	11
				.short	-32558
				.short	-32554
				.short	-32559
				.short	-32552
				.short	-32553
				.short	18
				.short	22
				.short	17
				.short	21
				.short	19
				.short	0
				.short	0
				.short	0
				.short	-32562
				.short	-32560
				.short	0
				.short	0
				.short	0
				.short	-32561
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	1
				.short	2
				.short	0
				.short	-32556
				.short	0
				.short	-32555
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
		.LC4:
				.short	0
				.short	511
				.short	131
				.short	531
				.short	131
				.short	551
				.short	559
				.short	131
				.short	567
				.short	575
				.short	583
				.short	603
				.short	623
				.short	631
				.short	663
				.short	671
				.short	129
				.short	129
				.short	129
				.short	129
				.short	129
				.short	129
				.short	129
				.short	129
				.short	129
				.short	129
				.short	691
				.short	698
				.short	707
				.short	751
				.short	795
				.short	131
				.short	131
				.short	824
				.short	900
				.short	960
				.short	1076
				.short	1120
				.short	1280
				.short	128
				.short	128
				.short	1392
				.short	128
				.short	128
				.short	1460
				.short	1556
				.short	1592
				.short	1660
				.short	1748
				.short	128
				.short	1828
				.short	2044
				.short	2240
				.short	2272
				.short	128
				.short	2312
				.short	128
				.short	128
				.short	128
				.short	2331
				.short	2339
				.short	2371
				.short	2379
				.short	2399
				.short	131
				.short	131
				.short	131
				.short	131
				.short	131
				.short	131
				.short	131
				.short	131
				.short	131
				.short	131
				.short	131
				.short	131
				.short	131
				.short	131
				.short	131
				.short	131
				.short	131
				.short	131
				.short	131
				.short	131
				.short	131
				.short	131
				.short	131
				.short	131
				.short	131
				.short	131
				.short	131
				.short	131
				.short	2407
				.short	131
				.short	2379
				.short	-32351
				.short	16428
				.short	25
				.short	16428
				.short	29
				.short	-32349
				.short	16433
				.short	1
				.short	16434
				.short	1
				.short	-16127
				.short	0
				.short	16427
				.short	21
				.short	16407
				.short	0
				.short	16409
				.short	0
				.short	-32323
				.short	-10840
				.short	40
				.short	16471
				.short	0
				.short	-32341
				.short	-10580
				.short	32
				.short	16473
				.short	117
				.short	16384
				.short	19
				.short	-31955
				.short	-32322
				.short	-10580
				.short	36
				.short	-9290
				.short	0
				.short	16473
				.short	113
				.short	16432
				.short	13
				.short	-32337
				.short	16427
				.short	46
				.short	16427
				.short	17
				.short	16405
				.short	0
				.short	16404
				.short	0
				.short	-31556
				.short	-31939
				.short	-32322
				.short	-9551
				.short	2
				.short	16433
				.short	1
				.short	16433
				.short	5
				.short	16426
				.short	5
				.short	-31606
				.short	-32323
				.short	-9807
				.short	0
				.short	-32374
				.short	-9678
				.short	0
				.short	16436
				.short	0
				.short	16435
				.short	0
				.short	-31939
				.short	-32322
				.short	16433
				.short	4
				.short	16426
				.short	9
				.short	16433
				.short	3
				.short	-30772
				.short	-31666
				.short	10578
				.short	11457
				.short	-32344
				.short	16413
				.short	2
				.short	16411
				.short	2
				.short	68
				.short	-32374
				.short	16440
				.short	0
				.short	16440
				.short	0
				.short	8393
				.short	83
				.short	16408
				.short	0
				.short	-31291
				.short	10841
				.short	69
				.short	-32311
				.short	16412
				.short	18
				.short	10830
				.short	9157
				.short	10565
				.short	16412
				.short	18
				.short	9415
				.short	78
				.short	16458
				.short	0
				.short	-32049
				.short	8665
				.short	8908
				.short	16455
				.short	0
				.short	-30131
				.short	78
				.short	-31277
				.short	84
				.short	-32055
				.short	10194
				.short	76
				.short	16469
				.short	0
				.short	10958
				.short	69
				.short	16447
				.short	32
				.short	84
				.short	-32319
				.short	16418
				.short	2
				.short	10830
				.short	16418
				.short	2
				.short	8909
				.short	10830
				.short	16406
				.short	0
				.short	-31927
				.short	10073
				.short	9921
				.short	8649
				.short	16419
				.short	5
				.short	9153
				.short	10190
				.short	8915
				.short	16469
				.short	1
				.short	-27956
				.short	-31282
				.short	88
				.short	-31927
				.short	8916
				.short	10066
				.short	9793
				.short	16419
				.short	3
				.short	84
				.short	16447
				.short	4
				.short	68
				.short	-32305
				.short	16459
				.short	2
				.short	70
				.short	-30650
				.short	-31284
				.short	80
				.short	-31931
				.short	10194
				.short	10567
				.short	9921
				.short	16460
				.short	1
				.short	9938
				.short	16461
				.short	0
				.short	10697
				.short	84
				.short	16467
				.short	3
				.short	9801
				.short	69
				.short	16460
				.short	0
				.short	8915
				.short	16452
				.short	0
				.short	-29631
				.short	-30903
				.short	-31282
				.short	-31793
				.short	10069
				.short	10819
				.short	10185
				.short	78
				.short	16416
				.short	9
				.short	82
				.short	16445
				.short	0
				.short	16416
				.short	9
				.short	9422
				.short	9299
				.short	-32315
				.short	16453
				.short	0
				.short	10700
				.short	69
				.short	16454
				.short	0
				.short	10700
				.short	69
				.short	16464
				.short	1210
				.short	-30778
				.short	78
				.short	-31549
				.short	8916
				.short	8903
				.short	82
				.short	-32344
				.short	16412
				.short	17
				.short	16472
				.short	17
				.short	10956
				.short	8900
				.short	16470
				.short	0
				.short	16446
				.short	44
				.short	-30143
				.short	-30647
				.short	10063
				.short	71
				.short	-31671
				.short	-32302
				.short	16412
				.short	20
				.short	8389
				.short	76
				.short	16412
				.short	36
				.short	10830
				.short	9157
				.short	10565
				.short	16412
				.short	20
				.short	10835
				.short	16467
				.short	1
				.short	8898
				.short	76
				.short	16425
				.short	6
				.short	-31935
				.short	10063
				.short	10825
				.short	10575
				.short	16465
				.short	109
				.short	80
				.short	16416
				.short	10
				.short	-32191
				.short	10831
				.short	16442
				.short	0
				.short	8909
				.short	-32314
				.short	16414
				.short	1
				.short	-31794
				.short	10069
				.short	10819
				.short	10185
				.short	78
				.short	16416
				.short	10
				.short	16416
				.short	10
				.short	-30770
				.short	-31408
				.short	-32174
				.short	10071
				.short	16418
				.short	1
				.short	-32374
				.short	16441
				.short	2
				.short	16441
				.short	2
				.short	9428
				.short	10063
				.short	16402
				.short	0
				.short	-32315
				.short	16448
				.short	0
				.short	8918
				.short	10830
				.short	16448
				.short	0
				.short	-30523
				.short	82
				.short	-31419
				.short	-31927
				.short	9167
				.short	8402
				.short	77
				.short	16457
				.short	0
				.short	77
				.short	16419
				.short	6
				.short	9412
				.short	8387
				.short	8916
				.short	16415
				.short	123
				.short	9938
				.short	16419
				.short	7
				.short	-31931
				.short	10959
				.short	9428
				.short	8910
				.short	16415
				.short	104
				.short	-28351
				.short	-30397
				.short	-31024
				.short	-32045
				.short	10964
				.short	10066
				.short	16464
				.short	1319
				.short	9813
				.short	7892
				.short	-32323
				.short	16462
				.short	1384
				.short	16463
				.short	1241
				.short	8389
				.short	84
				.short	16456
				.short	0
				.short	10575
				.short	68
				.short	-32314
				.short	16421
				.short	64
				.short	10575
				.short	8397
				.short	84
				.short	-32301
				.short	16422
				.short	9
				.short	8912
				.short	67
				.short	16422
				.short	12
				.short	76
				.short	-32301
				.short	16412
				.short	33
				.short	-31924
				.short	10190
				.short	9938
				.short	9793
				.short	16468
				.short	1
				.short	10063
				.short	71
				.short	16468
				.short	4
				.short	-27704
				.short	-28983
				.short	-29488
				.short	-31276
				.short	-31913
				.short	10713
				.short	8916
				.short	77
				.short	16419
				.short	4
				.short	10825
				.short	9283
				.short	16417
				.short	12
				.short	-31423
				.short	-31921
				.short	9426
				.short	9166
				.short	40
				.short	16420
				.short	48
				.short	80
				.short	16466
				.short	115
				.short	10834
				.short	16451
				.short	0
				.short	8645
				.short	16423
				.short	0
				.short	10055
				.short	9793
				.short	-32315
				.short	16449
				.short	0
				.short	8918
				.short	10830
				.short	16449
				.short	0
				.short	10575
				.short	84
				.short	-32311
				.short	16412
				.short	19
				.short	10830
				.short	9157
				.short	10565
				.short	16412
				.short	19
				.short	-32056
				.short	10962
				.short	69
				.short	16464
				.short	1354
				.short	10053
				.short	16450
				.short	0
				.short	78
				.short	-32052
				.short	9428
				.short	76
				.short	16444
				.short	182
				.short	10693
				.short	83
				.short	16446
				.short	46
				.short	9416
				.short	8908
				.short	16443
				.short	180
				.short	16407
				.short	0
				.short	-31939
				.short	-32292
				.short	-10454
				.short	51
				.short	16426
				.short	13
				.short	16433
				.short	1
				.short	16409
				.short	0
				.short	-32290
				.short	-10454
				.short	51
				.short	16426
				.short	13
				.short	16410
				.short	0
				.short	16431
				.short	14
				.short	-32323
				.short	16430
				.short	51
				.short	16433
				.short	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
				.section	".data"
				.align 2
				.set	.LANCHOR1,. + 0
		GMAX.7127:
				.long	719
		GLINK.7132:
				.short	-1
				.short	71
				.short	72
				.short	38
				.short	46
				.short	47
				.short	67
				.short	67
				.short	75
				.short	67
				.short	0
				.short	67
				.short	51
				.short	76
				.short	79
				.short	53
				.short	55
				.short	80
				.short	67
				.short	81
				.short	82
				.short	83
				.short	67
				.short	84
				.short	26
				.short	41
				.short	85
				.short	86
				.short	57
				.short	57
				.short	89
				.short	93
				.short	96
				.short	97
				.short	102
				.short	103
				.short	104
				.short	107
				.short	46
				.short	67
				.short	67
				.short	0
				.short	110
				.short	110
				.short	111
				.short	52
				.short	49
				.short	0
				.short	61
				.short	67
				.short	62
				.short	0
				.short	67
				.short	0
				.short	111
				.short	112
				.short	112
				.short	58
				.short	113
				.short	114
				.short	115
				.short	64
				.short	67
				.short	66
				.short	116
				.short	117
				.short	68
				.short	0
				.short	67
				.short	122
				.short	67
				.short	0
				.short	73
				.short	123
				.short	123
				.short	67
				.short	77
				.short	67
				.short	40
				.short	77
				.short	67
				.short	67
				.short	0
				.short	124
				.short	127
				.short	128
				.short	87
				.short	86
				.short	0
				.short	90
				.short	131
				.short	89
				.short	0
				.short	94
				.short	93
				.short	0
				.short	132
				.short	98
				.short	137
				.short	100
				.short	97
				.short	0
				.short	138
				.short	67
				.short	105
				.short	104
				.short	0
				.short	108
				.short	107
				.short	0
				.short	67
				.short	67
				.short	67
				.short	139
				.short	140
				.short	141
				.short	0
				.short	118
				.short	120
				.short	116
				.short	142
				.short	116
				.short	67
				.short	71
				.short	125
				.short	67
				.short	0
				.short	67
				.short	129
				.short	85
				.short	0
				.short	143
				.short	133
				.short	144
				.short	135
				.short	145
				.short	0
				.short	156
				.short	157
				.short	59
				.short	158
				.short	67
				.short	119
				.short	91
				.short	159
				.short	146
				.short	145
				.short	148
				.short	146
				.short	151
				.short	0
				.short	153
				.short	153
				.short	154
				.short	146
				.short	0
				.short	99
				.short	160
				.short	67
				.short	134
				.short	161
				.short	162
				.short	165
				.short	161
				.short	141
				.short	162
				.short	162
				.short	168
				.short	172
				.short	174
				.short	175
				.short	176
				.short	177
				.short	178
				.short	179
				.short	182
				.short	185
				.short	188
				.short	189
				.short	180
				.short	190
				.short	190
				.short	183
				.short	191
				.short	191
				.short	186
				.short	191
				.short	191
				.short	0
				.short	188
				.short	192
				.short	193
				.short	194
				.short	0
				.short	196
				.short	0
				.short	0
				.short	198
				.short	197
				.short	0
				.short	201
				.short	200
				.short	0
				.short	204
				.short	205
				.short	0
				.short	228
				.short	232
				.short	219
				.short	234
				.short	235
				.short	0
				.short	236
				.short	237
				.short	238
				.short	0
				.short	232
				.short	226
				.short	244
				.short	245
				.short	221
				.short	248
				.short	249
				.short	250
				.short	251
				.short	245
				.short	0
				.short	252
				.short	229
				.short	249
				.short	250
				.short	251
				.short	253
				.short	0
				.short	0
				.short	188
				.short	254
				.short	260
				.short	239
				.short	269
				.short	269
				.short	242
				.short	191
				.short	191
				.short	270
				.short	246
				.short	272
				.short	272
				.short	229
				.short	273
				.short	274
				.short	275
				.short	276
				.short	0
				.short	255
				.short	266
				.short	266
				.short	258
				.short	267
				.short	267
				.short	261
				.short	266
				.short	266
				.short	264
				.short	267
				.short	267
				.short	232
				.short	268
				.short	232
				.short	0
				.short	277
				.short	0
				.short	278
				.short	232
				.short	273
				.short	232
				.short	282
				.short	283
				.short	279
				.short	285
				.short	253
				.short	0
				.short	0
				.short	286
				.short	0
				.short	232
				.short	0
				.short	288
				.short	0
				.short	290
				.short	0
				.short	292
				.short	294
				.short	0
				.short	0
				.short	297
				.short	0
				.short	0
				.short	299
				.short	301
				.short	0
				.short	303
				.short	0
				.short	305
				.short	0
				.short	307
				.short	0
				.short	0
				.short	310
				.short	313
				.short	314
				.short	315
				.short	0
				.short	0
				.short	316
				.short	311
				.short	314
				.short	0
				.short	332
				.short	332
				.short	328
				.short	349
				.short	350
				.short	351
				.short	351
				.short	351
				.short	351
				.short	330
				.short	282
				.short	352
				.short	358
				.short	0
				.short	333
				.short	341
				.short	347
				.short	359
				.short	360
				.short	361
				.short	362
				.short	363
				.short	0
				.short	342
				.short	343
				.short	345
				.short	0
				.short	346
				.short	0
				.short	269
				.short	269
				.short	0
				.short	0
				.short	366
				.short	353
				.short	371
				.short	372
				.short	373
				.short	374
				.short	0
				.short	375
				.short	376
				.short	377
				.short	383
				.short	384
				.short	364
				.short	385
				.short	385
				.short	367
				.short	269
				.short	269
				.short	269
				.short	269
				.short	389
				.short	390
				.short	391
				.short	392
				.short	393
				.short	0
				.short	378
				.short	360
				.short	361
				.short	362
				.short	341
				.short	0
				.short	379
				.short	380
				.short	386
				.short	363
				.short	341
				.short	0
				.short	353
				.short	354
				.short	355
				.short	375
				.short	395
				.short	0
				.short	396
				.short	0
				.short	400
				.short	269
				.short	269
				.short	401
				.short	0
				.short	411
				.short	411
				.short	406
				.short	417
				.short	407
				.short	418
				.short	419
				.short	420
				.short	0
				.short	412
				.short	418
				.short	419
				.short	420
				.short	421
				.short	0
				.short	409
				.short	406
				.short	424
				.short	417
				.short	422
				.short	425
				.short	425
				.short	408
				.short	415
				.short	427
				.short	430
				.short	431
				.short	0
				.short	426
				.short	432
				.short	428
				.short	434
				.short	436
				.short	0
				.short	433
				.short	269
				.short	269
				.short	441
				.short	442
				.short	282
				.short	443
				.short	0
				.short	446
				.short	451
				.short	447
				.short	446
				.short	452
				.short	451
				.short	0
				.short	449
				.short	448
				.short	454
				.short	453
				.short	457
				.short	0
				.short	455
				.short	459
				.short	458
				.short	0
				.short	269
				.short	464
				.short	465
				.short	282
				.short	466
				.short	0
				.short	469
				.short	469
				.short	470
				.short	471
				.short	472
				.short	473
				.short	474
				.short	475
				.short	476
				.short	477
				.short	0
				.short	479
				.short	269
				.short	481
				.short	0
				.short	483
				.short	485
				.short	485
				.short	205
				.short	490
				.short	488
				.short	496
				.short	497
				.short	491
				.short	494
				.short	490
				.short	0
				.short	491
				.short	491
				.short	0
				.short	498
				.short	499
				.short	501
				.short	0
				.short	0
				.short	504
				.short	506
				.short	510
				.short	499
				.short	508
				.short	0
				.short	506
				.short	506
				.short	504
				.short	512
				.short	513
				.short	514
				.short	515
				.short	0
				.short	517
				.short	518
				.short	519
				.short	520
				.short	0
				.short	522
				.short	523
				.short	524
				.short	525
				.short	522
				.short	0
				.short	528
				.short	529
				.short	531
				.short	536
				.short	532
				.short	534
				.short	0
				.short	532
				.short	0
				.short	537
				.short	538
				.short	539
				.short	541
				.short	542
				.short	542
				.short	0
				.short	544
				.short	546
				.short	0
				.short	547
				.short	548
				.short	549
				.short	533
				.short	551
				.short	553
				.short	558
				.short	554
				.short	556
				.short	0
				.short	554
				.short	0
				.short	559
				.short	560
				.short	557
				.short	0
				.short	563
				.short	205
				.short	0
				.short	566
				.short	564
				.short	568
				.short	565
				.short	570
				.short	567
				.short	572
				.short	569
				.short	574
				.short	571
				.short	576
				.short	575
				.short	0
				.short	579
				.short	580
				.short	592
				.short	593
				.short	584
				.short	205
				.short	585
				.short	588
				.short	588
				.short	588
				.short	590
				.short	205
				.short	594
				.short	594
				.short	595
				.short	596
				.short	597
				.short	581
				.short	600
				.short	598
				.short	601
				.short	0
				.short	205
				.short	205
				.short	205
				.short	606
				.short	606
				.short	607
				.short	608
				.short	609
				.short	605
				.short	610
				.short	612
				.short	0
				.short	193
				.short	193
				.short	193
				.short	193
				.short	193
				.short	193
				.short	193
				.short	193
				.short	0
				.short	623
				.short	623
				.short	192
				.short	626
				.short	626
				.short	0
				.short	626
				.short	626
				.short	631
				.short	633
				.short	282
				.short	282
				.short	634
				.short	282
				.short	282
				.short	637
				.short	638
				.short	639
				.short	0
				.short	650
				.short	677
				.short	684
				.short	666
				.short	655
				.short	205
				.short	205
				.short	205
				.short	205
				.short	650
				.short	659
				.short	668
				.short	685
				.short	666
				.short	0
				.short	662
				.short	686
				.short	666
				.short	662
				.short	668
				.short	685
				.short	0
				.short	670
				.short	674
				.short	689
				.short	666
				.short	205
				.short	0
				.short	205
				.short	0
				.short	674
				.short	689
				.short	205
				.short	0
				.short	666
				.short	205
				.short	0
				.short	680
				.short	692
				.short	680
				.short	659
				.short	668
				.short	685
				.short	0
				.short	650
				.short	687
				.short	662
				.short	688
				.short	205
				.short	690
				.short	691
				.short	666
				.short	680
				.short	697
				.short	697
				.short	697
				.short	697
				.short	698
				.short	699
				.short	700
				.short	0
				.short	703
				.short	703
				.short	704
				.short	706
				.short	707
				.short	708
				.short	708
				.short	700
				.short	711
				.short	711
				.short	712
				.short	713
				.short	719
				.short	719
				.short	719
				.short	719
				.short	719
				.short	719
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
		GRAM.7131:
				.short	0
				.short	-28523
				.short	-28521
				.short	-28602
				.short	-32706
				.short	-28509
				.short	-28603
				.short	-24502
				.short	-24503
				.short	-20405
				.short	-20404
				.short	-28595
				.short	-32697
				.short	-32709
				.short	-16323
				.short	-28600
				.short	-32704
				.short	-28587
				.short	-28589
				.short	-32681
				.short	-16344
				.short	-28586
				.short	-28588
				.short	-12270
				.short	-32586
				.short	216
				.short	-12287
				.short	-16380
				.short	-8185
				.short	-8184
				.short	-12285
				.short	-12286
				.short	-12283
				.short	-12282
				.short	-12279
				.short	-12276
				.short	-16373
				.short	20490
				.short	-32706
				.short	-32701
				.short	216
				.short	-16364
				.short	-28610
				.short	-28613
				.short	-28612
				.short	16445
				.short	217
				.short	-16364
				.short	62
				.short	-32701
				.short	16450
				.short	-16364
				.short	5346
				.short	-16364
				.short	166
				.short	-16344
				.short	4332
				.short	130
				.short	-16360
				.short	-16361
				.short	126
				.short	217
				.short	-32701
				.short	216
				.short	-16364
				.short	16450
				.short	-32700
				.short	16404
				.short	-32701
				.short	-32706
				.short	216
				.short	16405
				.short	16407
				.short	-16222
				.short	8414
				.short	130
				.short	217
				.short	-32697
				.short	16450
				.short	1250
				.short	4307
				.short	4318
				.short	192
				.short	93
				.short	170
				.short	90
				.short	207
				.short	-16365
				.short	16404
				.short	90
				.short	-16360
				.short	-16365
				.short	16404
				.short	241
				.short	-16365
				.short	16404
				.short	132
				.short	132
				.short	-16360
				.short	4329
				.short	-16365
				.short	16404
				.short	133
				.short	175
				.short	90
				.short	-16365
				.short	16404
				.short	209
				.short	-16365
				.short	16404
				.short	4313
				.short	217
				.short	16451
				.short	4263
				.short	16384
				.short	16384
				.short	120
				.short	216
				.short	-32700
				.short	16404
				.short	-32706
				.short	16404
				.short	243
				.short	16409
				.short	454
				.short	-32685
				.short	16404
				.short	454
				.short	248
				.short	-16365
				.short	16404
				.short	4263
				.short	194
				.short	-16360
				.short	4329
				.short	-32717
				.short	16404
				.short	4263
				.short	16407
				.short	454
				.short	237
				.short	127
				.short	215
				.short	454
				.short	4263
				.short	16384
				.short	-16364
				.short	1502
				.short	-32629
				.short	-16361
				.short	153
				.short	-32606
				.short	222
				.short	143
				.short	-32629
				.short	153
				.short	454
				.short	126
				.short	16409
				.short	454
				.short	16384
				.short	234
				.short	-16365
				.short	-32595
				.short	147
				.short	-32678
				.short	234
				.short	193
				.short	-32677
				.short	-32676
				.short	-32661
				.short	109
				.short	-32717
				.short	53
				.short	52
				.short	52
				.short	52
				.short	194
				.short	194
				.short	194
				.short	-28581
				.short	4188
				.short	194
				.short	-28566
				.short	4203
				.short	194
				.short	-28564
				.short	4205
				.short	4580
				.short	16429
				.short	183
				.short	183
				.short	186
				.short	186
				.short	-28583
				.short	0
				.short	9437
				.short	90
				.short	-16365
				.short	0
				.short	134
				.short	-16365
				.short	0
				.short	210
				.short	4329
				.short	199
				.short	-32677
				.short	-32672
				.short	-32676
				.short	-32688
				.short	-32690
				.short	-32705
				.short	-32661
				.short	-32659
				.short	-32689
				.short	-32686
				.short	-32687
				.short	-16330
				.short	65
				.short	-32716
				.short	186
				.short	-28583
				.short	-32717
				.short	-32715
				.short	-32713
				.short	52
				.short	-32664
				.short	4201
				.short	186
				.short	-32717
				.short	-32715
				.short	55
				.short	-16328
				.short	0
				.short	197
				.short	197
				.short	52
				.short	52
				.short	197
				.short	-28581
				.short	-28580
				.short	186
				.short	-28581
				.short	4188
				.short	4318
				.short	194
				.short	-28581
				.short	4188
				.short	9437
				.short	194
				.short	194
				.short	454
				.short	16407
				.short	216
				.short	194
				.short	-28566
				.short	-28565
				.short	186
				.short	-28566
				.short	4203
				.short	194
				.short	-28564
				.short	-28563
				.short	186
				.short	-28564
				.short	4205
				.short	183
				.short	183
				.short	186
				.short	183
				.short	-16365
				.short	0
				.short	183
				.short	4580
				.short	16429
				.short	5095
				.short	9444
				.short	5348
				.short	186
				.short	-28583
				.short	-16328
				.short	0
				.short	16409
				.short	-16365
				.short	0
				.short	9437
				.short	5348
				.short	217
				.short	-32701
				.short	16450
				.short	-32701
				.short	216
				.short	-32700
				.short	0
				.short	-32701
				.short	-32706
				.short	216
				.short	243
				.short	217
				.short	-16318
				.short	0
				.short	-32552
				.short	0
				.short	-32700
				.short	0
				.short	-32706
				.short	0
				.short	215
				.short	-32550
				.short	228
				.short	-28616
				.short	-28615
				.short	0
				.short	4096
				.short	218
				.short	218
				.short	-28616
				.short	0
				.short	-32677
				.short	-32676
				.short	-16361
				.short	-32710
				.short	-32669
				.short	-32662
				.short	-32661
				.short	-32660
				.short	-32659
				.short	740
				.short	-32039
				.short	740
				.short	-32719
				.short	4096
				.short	194
				.short	-32719
				.short	-32718
				.short	-32604
				.short	-32726
				.short	-32725
				.short	-32724
				.short	-32720
				.short	4096
				.short	710
				.short	6116
				.short	-32719
				.short	0
				.short	710
				.short	6116
				.short	-28581
				.short	4188
				.short	218
				.short	122
				.short	50
				.short	16409
				.short	-32726
				.short	-32725
				.short	-32724
				.short	-32719
				.short	4096
				.short	710
				.short	454
				.short	195
				.short	195
				.short	195
				.short	454
				.short	-28581
				.short	4188
				.short	194
				.short	-28566
				.short	-28565
				.short	-28564
				.short	4205
				.short	195
				.short	195
				.short	195
				.short	710
				.short	4836
				.short	5095
				.short	4829
				.short	-32726
				.short	-32725
				.short	-32724
				.short	-32719
				.short	4096
				.short	4827
				.short	4828
				.short	454
				.short	-32720
				.short	-32719
				.short	4096
				.short	4829
				.short	4827
				.short	4828
				.short	194
				.short	-32719
				.short	0
				.short	710
				.short	4836
				.short	-16291
				.short	-32677
				.short	92
				.short	184
				.short	121
				.short	-28581
				.short	-28580
				.short	-32722
				.short	-32723
				.short	4317
				.short	-32726
				.short	-32725
				.short	-32724
				.short	0
				.short	183
				.short	-32726
				.short	-32725
				.short	-32724
				.short	-32720
				.short	0
				.short	4316
				.short	195
				.short	195
				.short	195
				.short	454
				.short	-28581
				.short	4188
				.short	4315
				.short	183
				.short	4317
				.short	-32726
				.short	-32725
				.short	0
				.short	195
				.short	195
				.short	4315
				.short	4317
				.short	-32726
				.short	0
				.short	195
				.short	-32677
				.short	-32676
				.short	-16361
				.short	16431
				.short	228
				.short	228
				.short	47
				.short	-32610
				.short	-32611
				.short	5345
				.short	-32609
				.short	-32608
				.short	-32607
				.short	0
				.short	4320
				.short	4319
				.short	5345
				.short	-32609
				.short	-32608
				.short	0
				.short	4319
				.short	5345
				.short	-32609
				.short	0
				.short	-32613
				.short	-16361
				.short	16431
				.short	222
				.short	222
				.short	156
				.short	-32677
				.short	92
				.short	183
				.short	186
				.short	1222
				.short	16435
				.short	228
				.short	16403
				.short	4324
				.short	138
				.short	8420
				.short	-32723
				.short	4189
				.short	93
				.short	454
				.short	148
				.short	-32674
				.short	16546
				.short	16409
				.short	-32597
				.short	182
				.short	-16383
				.short	16388
				.short	234
				.short	-16365
				.short	-32595
				.short	172
				.short	-32678
				.short	234
				.short	90
				.short	244
				.short	246
				.short	-16365
				.short	0
				.short	235
				.short	-32678
				.short	234
				.short	-16365
				.short	246
				.short	-16365
				.short	0
				.short	-32678
				.short	234
				.short	90
				.short	16407
				.short	222
				.short	16405
				.short	222
				.short	145
				.short	16407
				.short	222
				.short	16405
				.short	222
				.short	146
				.short	16407
				.short	1252
				.short	154
				.short	5348
				.short	-16365
				.short	142
				.short	126
				.short	182
				.short	-16383
				.short	16391
				.short	90
				.short	-16365
				.short	127
				.short	-32678
				.short	238
				.short	90
				.short	125
				.short	239
				.short	-16365
				.short	8319
				.short	8430
				.short	128
				.short	126
				.short	-16361
				.short	127
				.short	190
				.short	240
				.short	189
				.short	16409
				.short	182
				.short	-16383
				.short	16391
				.short	90
				.short	-16365
				.short	0
				.short	-32678
				.short	240
				.short	90
				.short	16623
				.short	-16365
				.short	0
				.short	244
				.short	232
				.short	1252
				.short	1252
				.short	137
				.short	1252
				.short	137
				.short	1252
				.short	137
				.short	1252
				.short	137
				.short	1252
				.short	137
				.short	222
				.short	-16365
				.short	0
				.short	131
				.short	194
				.short	-16360
				.short	-16333
				.short	-16332
				.short	124
				.short	181
				.short	-16292
				.short	-16277
				.short	16493
				.short	-31802
				.short	5342
				.short	-28581
				.short	4188
				.short	4263
				.short	181
				.short	186
				.short	454
				.short	16475
				.short	183
				.short	-28583
				.short	199
				.short	5598
				.short	9438
				.short	222
				.short	-32677
				.short	-32676
				.short	16407
				.short	186
				.short	228
				.short	135
				.short	16409
				.short	-32632
				.short	0
				.short	-32677
				.short	92
				.short	-32677
				.short	-32676
				.short	-32662
				.short	-32661
				.short	-32660
				.short	-32659
				.short	165
				.short	-32677
				.short	92
				.short	188
				.short	-32662
				.short	107
				.short	188
				.short	-32660
				.short	109
				.short	-32732
				.short	37
				.short	-16344
				.short	4318
				.short	148
				.short	-32674
				.short	16424
				.short	222
				.short	16405
				.short	222
				.short	174
				.short	-28644
				.short	-32734
				.short	-32680
				.short	-28641
				.short	-32733
				.short	-32730
				.short	-32735
				.short	-32727
				.short	-32738
				.short	4326
				.short	-32738
				.short	-32739
				.short	-32741
				.short	-32736
				.short	199
				.short	-28644
				.short	-32680
				.short	-28641
				.short	4326
				.short	-32739
				.short	-32741
				.short	199
				.short	-32738
				.short	-32739
				.short	-32741
				.short	-32736
				.short	-32729
				.short	199
				.short	-32616
				.short	199
				.short	-32739
				.short	-32741
				.short	-32729
				.short	199
				.short	-32616
				.short	-32729
				.short	199
				.short	-28644
				.short	-32680
				.short	4326
				.short	-32738
				.short	-32739
				.short	-32741
				.short	199
				.short	245
				.short	4318
				.short	245
				.short	16409
				.short	152
				.short	4318
				.short	16409
				.short	152
				.short	245
				.short	-32672
				.short	-32671
				.short	-32670
				.short	99
				.short	16407
				.short	200
				.short	144
				.short	185
				.short	-32677
				.short	92
				.short	16407
				.short	-32582
				.short	200
				.short	200
				.short	187
				.short	141
				.short	-32677
				.short	92
				.short	16410
				.short	191
				.short	-32677
				.short	-32676
				.short	-32662
				.short	-32661
				.short	-32660
				.short	109
				.short	198
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
				.short	0
		SYM.7056:
				.long	10
		OCOUNT.7097:
				.long	-1
		DMAX.7086:
				.long	1
		SPARENAMES.7009:
				.long	2047
		DP.7103:
				.long	1
		THIS.7080:
				.long	-1
		PHRASE.7128:
				.short	0
				.short	564
				.short	565
				.short	567
				.short	569
				.short	571
				.short	573
				.short	562
				.short	614
				.short	203
				.short	200
				.short	602
				.short	478
				.short	480
				.short	624
				.short	298
				.short	206
				.short	308
				.short	318
				.short	433
				.short	426
				.short	437
				.short	444
				.short	458
				.short	453
				.short	461
				.short	467
				.short	482
				.short	402
				.short	627
				.short	629
				.short	603
				.short	521
				.short	511
				.short	486
				.short	502
				.short	575
				.short	527
				.short	528
				.short	543
				.short	550
				.short	578
				.short	397
				.short	287
				.short	197
				.short	636
				.short	516
				.short	621
				.short	167
				.short	0
				.short	0
				.short	0
				.short	640
				.short	693
				.short	701
				.short	709
		TMIN.7087:
				.long	800
		PERM.7093:
				.long	1
		GMIN.7085:
				.long	1720
		CHAR.7113:
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.byte	10
				.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
		LIST.7118:
				.long	1
		CONT.7060:
				.long	32
		CSYM.7061:
				.long	32
		REALSLN.7069:
				.long	1
				.section	".bss"
				.align 2
				.set	.LANCHOR0,. + 0
		BP.7125:
				.zero	4
		LIT.7115:
				.zero	4
		PSTACK.8166:
				.zero	160
		CNEST.8144:
				.zero	16
		LINES.7048:
				.zero	4
		OTYPE.7068:
				.zero	4
		DIM.7063:
				.zero	4
		DIMENSION.7107:
				.zero	4
		SEARCHBASE.7110:
				.zero	4
		RBASE.7083:
				.zero	4
		X.7038:
				.zero	4
		FORMATLIST.7111:
				.zero	4
		LIMIT.7098:
				.zero	4
		SUBATOM.7041:
				.zero	4
		ATOMFLAGS.7067:
				.zero	4
		FORMAT.7044:
				.zero	4
		APP.7043:
				.zero	4
		TYPE.7042:
				.zero	4
		ATOM1.7039:
				.zero	4
		ESCAPECLASS.7065:
				.zero	4
		ATOM2.7040:
				.zero	4
		MAPGG.7078:
				.zero	4
		POS2.7105:
				.zero	4
		POS.7106:
				.zero	4
		DECL.7062:
				.zero	4
		SPECGIVEN.7064:
				.zero	4
		FDEF.7079:
				.zero	4
		LAST1.7070:
				.zero	4
		COPY.7099:
				.zero	4
		INCLUDELEVEL.7091:
				.zero	4
		COLUMN.7053:
				.zero	4
		ENDMARK.7059:
				.zero	4
		POS1.7104:
				.zero	4
		MARGIN.7050:
				.zero	4
		LAST.7561:
				.zero	4
		INCLUDE.7092:
				.zero	4
		ERRORMARGIN.7051:
				.zero	4
		ERRORSYM.7052:
				.zero	4
		SYMTYPE.7057:
				.zero	4
		QUOTE.7058:
				.zero	4
		KEY.7514:
				.zero	4
		LP.7116:
				.zero	4
		STBASE.7084:
				.zero	4
		TEXTLINE.7049:
				.zero	4
		LOCAL.7108:
				.zero	4
		FMBASE.7109:
				.zero	4
		NAME.8167:
				.zero	256
		COUNT.8168:
				.zero	4
		LB.8150:
				.zero	4
		UB.8151:
				.zero	4
		SSTYPE.7095:
				.zero	4
		SS.7088:
				.zero	4
		ORDER.7100:
				.zero	4
		SPECMODE.7096:
				.zero	4
		DUBIOUS.7102:
				.zero	4
		STATS.7054:
				.zero	4
		PROGMODE.7094:
				.zero	4
		BLOCKX.7117:
				.zero	4
		INCLUDELIST.7090:
				.zero	4
		GG.7077:
				.zero	4
		GENTYPE.7071:
				.zero	4
		FORCE.7075:
				.zero	4
		NMAX.7082:
				.zero	4
		NMIN.7081:
				.zero	4
		PTYPE.7072:
				.zero	4
		G.7076:
				.zero	4
		CLASS.7037:
				.zero	4
		MONPOS.7055:
				.zero	4
		LA1.7540:
				.zero	4
		LA2.7541:
				.zero	4
		LSA.7542:
				.zero	4
		LT.7543:
				.zero	4
		PAPP.7073:
				.zero	4
		PFORMAT.7074:
				.zero	4
		FAULTRATE.7047:
				.zero	4
				.section	.rodata.str1.4,"aMS",@progbits,1
				.align 2
		.LC77:
				.string	"test-new/pass1v84-noprims.imp"
				.zero	2
		.LC78:
				.string	"->REASON(%d) out of bounds at %s line %d"
				.zero	3
		.LC79:
				.string	"switch jump to undefined label REASON(%d): at %s line %d"
				.zero	3
		.LC80:
				.string	"Illegal cycle J = AD + 1, 1, AD + *_imp_BYTEINTEGER(AD)"
		.LC81:
				.string	"Illegal cycle J = 1, 1, BP"
				.zero	1
		.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	2
		.LC84:
				.string	"->C(%d) out of bounds at %s line %d"
		.LC85:
				.string	"switch jump to undefined label C(%d): at %s line %d"
		.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	2
		.LC90:
				.string	"switch jump to undefined label PACTION(%d): at %s line %d"
				.zero	2
		.LC92:
				.string	"OWNVDEC"
		.LC95:
				.string	"OWNADEC"
		.LC99:
				.string	"FORMDEC"
		.LC106:
				.string	"COMMENT"
		.LC140:
				.string	"PROGRAM"
		.LC142:
				.string	"ENDPROG"
		.LC143:
				.string	"ENDPERM"
		.LC144:
				.string	"FRESULT"
		.LC145:
				.string	"MRESULT"
		.LC147:
				.string	"MONITOR"
		.LC150:
				.string	"REALSLN"
		.LC151:
				.string	"CONTROL"
		.LC152:
				.string	"INCLUDE"
		.LC158:
				.string	"%MSTART"
		.LC201:
				.string	"OSTRING"
		.LC205:
				.string	"RANGERB"
		.LC219:
				.string	"%CDUMMY"
		.LC226:
				.string	"BASEAPP"
		.LC251:
				.string	"NARRAYP"
		.LC261:
				.string	"INITVAR"
		.LC266:
				.string	"RCONSTB"
		.LC268:
				.string	"INITDEC"
		.LC270:
				.string	"ESCPROC"
				.section	".text"
		.Letext0:
 2716    %FINISH
 2717
 2718 impcom_flags = 0
				lis 9,.LC86@ha
				la 9,.LC86@l(9)
				stw 9,48(1)
				lwz 9,64(1)
				addi 9,9,-1
				cmplwi 7,9,11
				ble 7,.L728
				lis 9,_imp_current_file@ha
				lwz 4,_imp_current_file@l(9)
				cmpwi 7,4,0
				beq 7,.L729
				addi 3,1,4516
				bl _imp_c2istr
		.LVL678:
		.L730:
				lwz 28,_imp_current_line@l(29)
				cmpwi 7,28,0
				bne 7,.L731
				li 28,2718
		.L731:
				li 5,256
				addi 4,1,4516
				addi 3,1,80
				bl memcpy
		.LVL679:
				lwz 9,68(1)
				stw 9,8(1)
				lwz 10,72(1)
				lwz 7,64(1)
				mr 9,7
				lwz 8,48(1)
				li 6,3
				li 5,6
				mr 4,28
				addi 3,1,80
				crxor 6,6,6
				bl _signal_eventf
		.LVL680:
		.L728:
				li 5,256
				lwz 4,24(1)
				addi 3,1,2980
				bl memcpy
		.LVL727:
				li 5,256
				addi 4,1,2980
				addi 3,1,3236
				bl memcpy
		.LVL728:
		.LBE557:
				li 5,256
				addi 4,1,3236
				addi 3,1,4516
				bl memcpy
		.LVL729:
				b .L730
		.LVL730:
		.L765:
				bl __stack_chk_fail
		.LVL731:
		.LFE209:
				.align 2
		DELETENAMES.7256:
		.LFB197:
				lis 3,IMPCOM@ha
				la 3,IMPCOM@l(3)
				li 31,0
				stw 31,4(3)
		.LVL990:
 2719 impcom_option = ""
				lwz 9,64(1)
				addi 9,9,-1
				slwi 9,9,2
				lwz 10,24(1)
				add 9,10,9
				lwz 9,2644(9)
				b .L723
		.L691:
				b .L692
		.L694:
 2720
				lwz 9,5068(1)
				lwz 10,-28680(2)
				xor. 9,9,10
				li 10,0
				bne 0,.L765
				lwz 0,5092(1)
				mtlr 0
				lwz 28,5072(1)
				lwz 29,5076(1)
				lwz 30,5080(1)
				lwz 31,5084(1)
				addi 1,1,5088
		.LVL478:
				blr
		.LVL479:
		.L761:
 2721    list = 15 %IF Impcom_Flags&x'1000' # 0
				li 5,255
				addi 4,1,288
				addi 3,3,280
				bl _imp_strncpy
		.LVL991:
 2722
				lis 9,.LANCHOR1+7172@ha
				li 10,15
				stw 10,.LANCHOR1+7172@l(9)
		.LDL50:
		.LBB738:
 2723    open output(2, "LISTING");
				lis 30,.LANCHOR2@ha
				la 30,.LANCHOR2@l(30)
				li 5,256
				addi 4,30,9018
				addi 3,1,1056
				bl memcpy
		.LVL992:
				li 5,256
				addi 4,1,1056
				addi 3,1,544
				bl memcpy
		.LVL993:
		.LBE738:
				li 5,256
				addi 4,1,544
				addi 3,1,32
				bl memcpy
		.LVL994:
				addi 4,1,32
				li 3,2
				bl OPENOUTPUT
		.LVL995:
		.LBB739:
 2724    open input(2, "prims-null.inc");
				li 5,256
				addi 4,30,9274
				addi 3,1,1056
				bl memcpy
		.LVL996:
				li 5,256
				addi 4,1,1056
				addi 3,1,800
				bl memcpy
		.LVL997:
		.LBE739:
				li 5,256
				addi 4,1,800
				addi 3,1,32
				bl memcpy
		.LVL998:
				addi 4,1,32
				li 3,2
				bl OPENINPUT
		.LVL999:
		.LBB740:
		.LBB741:
				li 29,2
				lis 9,_imp_InStream@ha
				stw 29,_imp_InStream@l(9)
				lis 9,_imp_infile+556@ha
				lwz 10,_imp_infile+556@l(9)
				lis 9,_imp_InFile@ha
				stw 10,_imp_InFile@l(9)
				addi 3,30,1900
				bl check_instream
		.LVL1000:
		.LBE741:
		.LBE740:
		.LBB742:
		.LBB743:
				lis 9,_imp_OutStream@ha
				stw 29,_imp_OutStream@l(9)
				lis 9,_imp_outfile+556@ha
				lwz 10,_imp_outfile+556@l(9)
				lis 9,_imp_OutFile@ha
				stw 10,_imp_OutFile@l(9)
				addi 3,30,296
				bl check_outstream
		.LVL1001:
		.LBE743:
		.LBE742:
 2725    select input(2);  selectoutput(listing)
 2726    tag(max tag) = 0;                       !%BEGIN defn
				stw 31,15092(1)
				stw 31,15096(1)
				stw 31,15100(1)
				stw 31,15104(1)
 2727    tag(0) = 0;  tag(0)_flags = 7;          !%BEGIN tag!
				stw 31,2292(1)
				stw 31,2296(1)
				stw 31,2300(1)
				stw 31,2304(1)
 2728    Hash(x) = 0 %FOR x = 0, 1, max names
				li 9,7
				sth 9,2300(1)
 2729    printstring("         Edinburgh IMP77 Compiler - Version ")
				li 5,256
				lis 4,.LANCHOR2@ha
				la 4,.LANCHOR2@l(4)
				addi 4,4,9530
				addi 3,1,1056
				bl memcpy
		.LVL1002:
				li 5,256
				addi 4,1,1056
				addi 3,1,1312
				bl memcpy
		.LVL1003:
				li 5,256
				addi 4,1,1312
				addi 3,1,1568
				bl memcpy
		.LVL1004:
		.LBE744:
		.LBB745:
		.LBB746:
				li 5,256
				addi 4,1,1568
				addi 3,1,32
				bl memcpy
		.LVL1005:
				addi 3,1,32
				bl _imp_printstring
		.LVL1006:
				addi 4,1,-23760
		.LVL1007:
				li 9,0
				stbu 9,25584(4)
		.LBE746:
		.LBE745:
		.LBB747:
		.LBB748:
				li 5,256
				addi 3,1,32
				bl memcpy
		.LVL1008:
				addi 3,1,32
				bl _imp_printstring
		.LVL1009:
		.LBE748:
		.LBE747:
		.LBB749:
		.LBB750:
				li 3,2
				bl _imp_newlines
		.LVL1010:
		.LBE750:
		.LBE749:
 2730    printstring(version);  newlines(2)
 2731    op('l', 0)
				li 10,-1
				cmpwi 0,9,1
				addi 9,9,-1
				bne 0,.L953
		.LDL52:
				lis 31,.LANCHOR0@ha
				la 30,.LANCHOR0@l(31)
				li 9,2047
				stw 9,208(30)
		.LBB744:
				addi 9,1,2080
				stw 9,28(1)
				mr 11,9
				li 4,0
				li 3,108
				bl OP.7241
		.LVL1011:
 2732    compile block(0, 0, max dict, 0, 0)
				addi 10,10,1
				slwi 7,10,1
				lwz 6,24(1)
				add 7,6,7
				sth 8,21588(7)
		.LDL51:
				lwz 11,28(1)
				li 7,0
				li 6,0
				li 5,6000
				li 4,0
				li 3,0
				bl COMPILEBLOCK.7251
		.LVL1012:
				lwz 9,.LANCHOR0@l(31)
				addi 10,9,1
				stw 10,.LANCHOR0@l(31)
 2733    bp=bp+1 %AND buff(bp)=nl                {for bouncing off}
				addi 9,1,2080
				stw 9,24(1)
				li 8,0
				li 9,2048
		.L953:
 2734    flush buffer
				lis 10,0x1
				ori 10,10,0xa320
				addi 8,1,16
				add 10,10,8
				add 9,10,9
				li 10,10
				stb 10,-522(9)
				lwz 11,28(1)
				bl FLUSHBUFFER.7135
		.LVL1013:
 2735    Impcom_Statements = stats
				lwz 10,640(30)
				lis 9,IMPCOM@ha
				stw 10,IMPCOM@l(9)
		.LDL53:
		.LVL1014:
		.LBB751:
		.LBB752:
				li 3,0
				bl exit
		.LVL1015:
		.L951:
		.LBE752:
		.LBE751:
 2736    Impcom_Statements = -faulty %IF faulty # 0
 2737 %ENDOFPROGRAM
 2310 Statements compiled