Edinburgh IMP77 Compiler - Version 8.4
    1 %begin; ! LC (Low-level compiler) for 8086
				.machinemode zarch
				.machine "zEC12"
		.text
		.Ltext0:
				.align	8
		NEXTATOM.6870:
		.LFB190:
		.LVL542:
				stmg	%r6,%r15,48(%r15)
				lgr	%r14,%r15
				lay	%r15,-17360(%r15)
				aghi	%r14,-24
				std	%f8,0(%r14)
				std	%f10,8(%r14)
				std	%f12,16(%r14)
				ear	%r1,%a0
				sllg	%r1,%r1,32
				ear	%r1,%a1
				lay	%r4,17328(%r15)
				mvc	0(8,%r4),40(%r1)
				lay	%r1,17520(%r15)
				stg	%r1,17320(%r15)
    2
				brasl	%r14,_imp_initialise@PLT
		.LVL543:
    3 ! Statement -> CONST {tag = cexpr}+
    4 !              {WORD, BYTE} {tag { (cexpr:cexpr) }? {= {data}+ }? }*
    5 !              SPEC tag string
    6 !              PROC tag {string}? {tag}*
    7 !              END
    8 !              tag :
    9 !              {instruction, ELSE}? {IF expr comp expr}?
   10 !              CYCLE
   11 !              FINISH
   12 ! Instruction -> MOVE {string opd, cexpr opd opd}
   13 !                JUMP tag
   14 !                REPEAT
   15 !                RETURN {expr}?
   16 !                opd = expr
   17 !                tag {expr}*
   18 ! Data -> {string, cexpr { (cexpr) }? }
   19 ! Cexpr -> const {op const}*
   20 ! Expr -> {opd, const} {op {opd, const} }*
   21 ! Opd -> tag { ( {opd, const} ) }?
   22 ! Op -> + - & ! \ * / % << >>
   23 ! Comp -> = # < > <= >= [ ] [= ]=
   24 ! Comments are enclosed between { and } or | and NL.
   25
   26 ! Calling convention: Push parms, then XCALL or Push CS, CALL.
   27 !Entry: Push DS, Push BP, Mov BP,SP, {Sub SP,framesize}?,
   28 !        {Mov AX,Glaseg, Mov DS,AX}? Xor AX,AX, Push AX
   29 !Return: Mov SP,BP, Pop BP, Pop DS, Xret parmsize.
   30
   31 %constinteger source=1,diag=0,object=1,list=2;  !Streams
   32
   33 %constinteger linemax=80,atommax=50,tagmax=200,textmax=20
   34 %constinteger codemax=3499,glamax=499
   35 %byteintegerarray line(1:linemax)
   36 %byteintegerarray code(0:codemax)
   37 %byteintegerarray gla(0:glamax)
   38 %integerarray atomtype,atomval(1:atommax)
   39 %integerarray tag1,tag2,tagtype,tagval(1:tagmax)
   40 %integerarray texttype,textval(1:textmax)
   41 %integer type,val,t,v,atompos,ifpos,floc,parms
   42 %integer oldapos,oldcpos,oldtpos,access,textlevel
   43 %integer lineno=0,cloc=0,gloc=0,level=0,gpos=0,cpos=0,tagpos=1
   44 %string(31)program
				lay	%r1,12980(%r15)
				mvhi	0(%r1),0
   45
   46 !Atom types
				lay	%r1,12572(%r15)
				mvhi	0(%r1),0
   47 %constinteger unknown=0,constant=1,string=2,label=3
   48 %constinteger var=4, wordbit=1, glabit=2, varmask=16_fc
				lay	%r1,12568(%r15)
				mvhi	0(%r1),0
   49 %constinteger proc=8,xproc=9,spec=10
   50 %constinteger op=11,comp=12,colon=13,sep=14,bracket=15,bx=16!wordbit
				lay	%r1,9168(%r15)
				mvhi	0(%r1),0
   51
   52 ! Keyword types
				lay	%r1,9348(%r15)
				mvhi	0(%r1),0
   53 %constinteger kconst=17,kword=18,kbyte=19,kspec=20,kproc=21
   54 %constinteger kend=22,kmove=23,kjump=24,kreturn=25,kprogram=26
				lay	%r1,9344(%r15)
				mvhi	0(%r1),0
   55 %constinteger kelse=27,kfinish=28,kcycle=29,krepeat=30
   56
				lay	%r1,12560(%r15)
				mvhi	0(%r1),1
   57 !Operator codes
   58 %constinteger load=1,add=2,sub=3,and=4,or=5,xor=6,cmp=7,
   59               mul=8,div=9,rem=10,left=11,right=12,store=13,lea=14
   60
   61 !Keyword tag codes (1:36 = A:Z,0:9) 1st {*37 + 2nd {*37 + 3rd}? }?
   62 %constinteger if=339
   63 %ownintegerarray n1(kconst:krepeat)=
   64   4676, 32060, 3683, 26608, 22585, 7367, 18374, 14480, 24847, 22585,
   65   7308,  8561, 5035, 24843
   66 %ownintegerarray n2(kconst:krepeat)=
   67    723,     4,    5,     3,     3,    0,     5,    16, 29429, 10250,
   68      5, 13032,  449,  6902
   69
   70 !Fault numbers
   71 %constinteger complex=1,atom=2,consterr=3,bfull=4,form=5,ambig=6,
   72      nested=7,declate=8,far=9,labund=10,level0=11,varund=12,dfull=13,
   73      repexp=14,finexp=15,context=16,maxfault=16
   74
   75 %routine fault(%integer n)
		.LVL77:
				stmg	%r6,%r15,48(%r15)
				lay	%r15,-2992(%r15)
				lgr	%r9,%r0
				ear	%r1,%a0
				sllg	%r1,%r1,32
				ear	%r1,%a1
				mvc	2984(8,%r15),40(%r1)
		.LVL78:
		.LBB258:
		.LBB259:
				lgrl	%r1,_imp_OutStream@GOTENT
				mvhi	0(%r1),0
				lgrl	%r1,_imp_OutFile@GOTENT
				lgrl	%r2,_imp_outfile@GOTENT
		.LVL79:
				lg	%r2,8(%r2)
				stg	%r2,0(%r1)
				larl	%r2,__PRETTY_FUNCTION__.6293
				brasl	%r14,check_outstream@PLT
		.LVL80:
		.LBE259:
		.LBE258:
   76 %ownstring(15)%array s(1:maxfault)=
   77 "Complex",
   78 "Atom",
   79 "Not constant",
   80 "Buffer full",
   81 "Form",
   82 "Ambiguous",
   83 "Nesting",
   84 "Too late",
   85 "Too far",
   86 "Label missing",
   87 "Code misplaced",
   88 "Name",
   89 "Dict full",
   90 "Repeat expected",
   91 "Finish expected",
   92 "Context"
   93 %integer i,sym
   94    selectoutput(diag); write(lineno,1); space
   95    i=1
				lghi	%r3,1
				lgf	%r2,3828(%r9)
				brasl	%r14,_imp_writeint@PLT
		.LVL81:
		.LBB260:
		.LBB261:
				brasl	%r14,_imp_space@PLT
		.LVL82:
				aghik	%r10,%r9,8088
		.LVL83:
		.L95:
		.LBE261:
		.LBE260:
   96    %cycle
   97       sym=line(i); printsymbol(sym); i=i+1
				llgc	%r11,0(%r10)
		.LVL84:
		.LBB262:
		.LBB263:
				lgr	%r2,%r11
				brasl	%r14,_imp_printsymbol@PLT
		.LVL85:
				aghi	%r10,1
		.LBE263:
		.LBE262:
   98    %repeatuntil sym=nl
				llcr	%r11,%r11
		.LVL86:
				cijlh	%r11,10,.L95
		.L96:
				mvc	2728(256,%r15),680(%r15)
		.LBB264:
		.LBB265:
				mvc	424(256,%r15),2728(%r15)
				aghik	%r11,%r15,424
		.LVL87:
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL88:
		.LBE265:
		.LBE264:
   99    printstring(s(n)); write(atompos-1,1); newline
  100    selectoutput(list)
  101    printstring("** "); printstring(s(n))
				larl	%r1,.LC8
				mvc	2472(256,%r15),0(%r1)
				mvc	936(256,%r15),2472(%r15)
				mvc	2472(256,%r15),936(%r15)
		.LBE270:
		.LBB271:
		.LBB272:
				mvc	424(256,%r15),2472(%r15)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL92:
				mvc	2216(256,%r15),1192(%r15)
		.LBE272:
		.LBE271:
		.LBB273:
		.LBB274:
				mvc	424(256,%r15),2216(%r15)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL93:
		.LBE274:
		.LBE273:
  102    write(atompos-1,1); newline
				l	%r1,3824(%r9)
				ahik	%r2,%r1,-1
				lghi	%r3,1
				lgfr	%r2,%r2
				brasl	%r14,_imp_writeint@PLT
		.LVL94:
		.LBB275:
		.LBB276:
				brasl	%r14,_imp_newline@PLT
		.LVL95:
		.LBE276:
		.LBE275:
  103    %signalevent 15
				lgrl	%r1,_imp_current_file@GOTENT
				ltg	%r3,0(%r1)
				je	.L97
				la	%r2,1704(%r15)
				brasl	%r14,_imp_c2istr@PLT
		.LVL96:
		.L98:
				lgrl	%r1,_imp_current_line@GOTENT
				lt	%r11,0(%r1)
				ltr	%r11,%r11
				lhi	%r1,103
				locrne	%r1,%r11
				lr	%r11,%r1
				larl	%r3,.LC14
				la	%r2,1960(%r15)
				brasl	%r14,_imp_c2istr@PLT
		.LVL97:
				mvc	424(256,%r15),1704(%r15)
				mvc	168(256,%r15),1960(%r15)
				mvghi	160(%r15),0
				lghi	%r6,0
				lghi	%r5,15
				la	%r4,168(%r15)
				lgfr	%r3,%r11
				la	%r2,424(%r15)
				brasl	%r14,_signal_event@PLT
		.LVL98:
				larl	%r1,.LC5
				mvc	1960(256,%r15),0(%r1)
				mvc	1448(256,%r15),1960(%r15)
		.LBE277:
				mvc	1704(256,%r15),1448(%r15)
				j	.L98
		.L104:
  104 %end
				l	%r1,3824(%r9)
				ahik	%r2,%r1,-1
				lghi	%r3,1
				lgfr	%r2,%r2
				brasl	%r14,_imp_writeint@PLT
		.LVL89:
		.LBB266:
		.LBB267:
				brasl	%r14,_imp_newline@PLT
		.LVL90:
		.LBE267:
		.LBE266:
		.LBB268:
		.LBB269:
				lgrl	%r1,_imp_OutStream@GOTENT
				mvhi	0(%r1),2
				lgrl	%r1,_imp_OutFile@GOTENT
				lgrl	%r2,_imp_outfile@GOTENT
				lg	%r2,584(%r2)
				stg	%r2,0(%r1)
				larl	%r2,__PRETTY_FUNCTION__.6293
				brasl	%r14,check_outstream@PLT
		.LVL91:
		.LBE269:
		.LBE268:
		.LBB270:
  105
				ear	%r1,%a0
				sllg	%r1,%r1,32
				ear	%r1,%a1
				clc	2984(8,%r15),40(%r1)
				jne	.L104
				lg	%r4,3104(%r15)
				lmg	%r6,%r15,3040(%r15)
				br	%r4
		.L97:
		.LBB277:
				brasl	%r14,__stack_chk_fail@PLT
		.LVL99:
		.LFE186:
				.align	8
		PUTATOM.6761:
		.LFB189:
  106 %routine readline
				stmg	%r6,%r15,48(%r15)
				lgr	%r14,%r15
				lay	%r15,-2784(%r15)
				aghi	%r14,-24
				std	%f8,0(%r14)
				std	%f10,8(%r14)
				std	%f12,16(%r14)
				lgr	%r9,%r0
				ear	%r1,%a0
				sllg	%r1,%r1,32
				ear	%r1,%a1
				mvc	2752(8,%r15),40(%r1)
				la	%r1,2944(%r15)
				stg	%r1,696(%r15)
				stg	%r0,688(%r15)
		.LVL105:
		.LBB278:
		.LBB279:
				lgrl	%r1,_imp_OutStream@GOTENT
				mvhi	0(%r1),2
				lgrl	%r1,_imp_OutFile@GOTENT
				lgrl	%r2,_imp_outfile@GOTENT
				lg	%r2,584(%r2)
				stg	%r2,0(%r1)
				larl	%r2,__PRETTY_FUNCTION__.6293
				brasl	%r14,check_outstream@PLT
		.LVL106:
		.LBE279:
		.LBE278:
		.LBB280:
  107 %owninteger semi=0
  108 %OWNINTEGER QUOTE=0
  109 %integer sym,n1,n2,radix,i,quoted,lpos
  110
  111   %routine phex(%integer x)
		.LVL25:
				stmg	%r9,%r15,72(%r15)
				lay	%r15,-160(%r15)
				lgr	%r9,%r2
		.LVL26:
  112   %integer k,i
  113     %for i=12,-4,0 %cycle
  114       k=x>>i&15; k=k+7 %if k>9
				lhi	%r10,16
				lhi	%r11,4
				j	.L54
		.LVL27:
		.L53:
				srlk	%r2,%r9,0(%r10)
				nilf	%r2,15
		.LVL33:
  115       printsymbol(k+'0')
				ahi	%r2,48
		.LVL28:
		.LBB226:
		.LBB227:
				llgcr	%r2,%r2
		.LVL29:
				brasl	%r14,_imp_printsymbol@PLT
		.LVL30:
		.LDL4:
		.LBE227:
		.LBE226:
				cijle	%r2,9,.L53
  116     %repeat
				brct	%r11,.L54
				ahi	%r2,7
		.LVL34:
				j	.L53
		.LVL35:
		.L58:
  117   %end
				ahi	%r10,-4
		.LVL32:
  118
				lg	%r4,272(%r15)
				lmg	%r9,%r15,232(%r15)
		.LVL36:
				br	%r4
		.L55:
		.LFE188:
				.section	.rodata.str1.2
				.align	2
		.LC12:
				.string	"Illegal cycle I = 0, 1, GPOS - 1"
		.text
				.align	8
		GFLUSH.6938:
		.LFB198:
  119   %routine putatom(%integer t,v)
				j	.L58
		.LVL31:
		.L54:
		.LVL100:
				stmg	%r9,%r15,72(%r15)
				lay	%r15,-160(%r15)
				lgr	%r9,%r2
				lgr	%r10,%r3
				lgr	%r11,%r0
  120     fault(complex) %if atompos>atommax
				lg	%r0,0(%r11)
				lgr	%r1,%r0
				chsi	3824(%r1),50
				jh	.L109
		.LVL101:
		.L107:
  121     atomtype(atompos)=t; atomval(atompos)=v
				lg	%r2,0(%r11)
				l	%r1,3824(%r2)
				ahi	%r1,-1
				lgfr	%r1,%r1
				aghi	%r1,906
				sllg	%r1,%r1,2
				st	%r9,0(%r1,%r2)
				lghi	%r2,1
		.LVL103:
				brasl	%r14,FAULT.6724
		.LVL104:
				j	.L107
		.LFE189:
				.section	.rodata.str1.2
				.align	2
		.LC15:
				.string	"Illegal cycle I = TAGPOS - 1,  -1, 1"
				.section	.rodata
				.align	2
		.LC6:
				.byte	2
				.string	" C"
				.zero	252
				.align	2
		.LC7:
				.byte	2
				.string	" D"
				.zero	252
		.text
				.align	8
		READLINE.6740:
		.LFB187:
  122     atompos=atompos+1
				lg	%r2,0(%r11)
				l	%r1,3824(%r2)
				ahi	%r1,-1
				lgfr	%r1,%r1
				aghi	%r1,856
				sllg	%r1,%r1,2
				st	%r10,0(%r1,%r2)
				lg	%r1,0(%r11)
				asi	3824(%r1),1
  123   %end
  124
				lg	%r4,272(%r15)
				lmg	%r9,%r15,232(%r15)
				br	%r4
		.LVL102:
		.L109:
  125    selectoutput(list)
  126    %cycle
  127       %if semi=0 %start
				larl	%r1,SEMI.6742
				lt	%r1,0(%r1)
				je	.L221
		.L113:
  128         write(lineno+1,4)
				l	%r1,3828(%r9)
				ahik	%r2,%r1,1
				lghi	%r3,4
				lgfr	%r2,%r2
				brasl	%r14,_imp_writeint@PLT
		.LVL107:
		.LBB287:
  129         printstring(" C"); phex(cloc); printstring(" D"); phex(gloc)
				larl	%r13,.LC6
		.LBE280:
		.LBB281:
		.LBB282:
				aghik	%r1,%r15,424
				ldgr	%f10,%r1
		.LBE282:
		.LBE281:
				mvc	1984(256,%r15),0(%r13)
				mvc	704(256,%r15),1984(%r15)
				mvc	2496(256,%r15),704(%r15)
		.LBE287:
		.LBB288:
		.LBB283:
				mvc	424(256,%r15),2496(%r15)
				lgdr	%r2,%f10
				brasl	%r14,_imp_printstring@PLT
		.LVL108:
		.LBE283:
		.LBE288:
  130         space
				lgf	%r2,3420(%r9)
				brasl	%r14,PHEX.6752
		.LVL109:
		.LBB289:
  131       %finish
				larl	%r1,.LC7
				mvc	1984(256,%r15),0(%r1)
				mvc	960(256,%r15),1984(%r15)
				mvc	2240(256,%r15),960(%r15)
		.LBE289:
		.LBB290:
		.LBB291:
				mvc	424(256,%r15),2240(%r15)
				lgdr	%r2,%f10
				brasl	%r14,_imp_printstring@PLT
		.LVL110:
		.LBE291:
		.LBE290:
  132       lpos=1; quoted=0
				lgf	%r2,3416(%r9)
				brasl	%r14,PHEX.6752
		.LVL111:
		.LBB292:
		.LBB293:
				brasl	%r14,_imp_space@PLT
		.LVL112:
				j	.L113
		.LVL113:
		.L219:
		.LBE293:
		.LBE292:
  133       %cycle
  134 next:    %if lpos+quoted=linemax %start; ! line nearly too long: force end
  135             %if quoted=0 %then sym=nl %else sym=quote
				ark	%r1,%r10,%r11
				cijlh	%r1,80,.L115
				cijlh	%r10,0,.L116
  136          %else
				mvhi	684(%r15),10
		.LVL121:
		.LBB298:
		.LBB296:
				lghi	%r2,10
				brasl	%r14,_imp_printsymbol@PLT
		.LVL122:
		.L117:
		.LBE296:
		.LBE298:
  137             readsymbol(sym)
  138          %finish
  139          printsymbol(sym)
				lrl	%r1,QUOTE.6743
				st	%r1,684(%r15)
		.LVL116:
		.LBB294:
		.LBB295:
				llgcr	%r2,%r1
				brasl	%r14,_imp_printsymbol@PLT
		.LVL117:
		.L118:
		.LBE295:
		.LBE294:
  140          %if quoted=0 %start
				cijlh	%r10,0,.L118
				j	.L117
		.LVL130:
		.L119:
  141            quoted=1 %if sym='''' %or sym='"'
				l	%r1,684(%r15)
				cije	%r1,39,.L119
  142            quote=sym %if quoted#0
				cije	%r1,34,.L119
		.L120:
  143          %else
				strl	%r1,QUOTE.6743
				j	.L121
		.LVL131:
		.L124:
  144            quoted=0 %if sym=quote
				larl	%r1,QUOTE.6743
				clc	0(4,%r1),684(%r15)
				je	.L120
		.LVL118:
		.L121:
  145          %finish
  146          %if quoted=0 %start
  147             %if sym='{' %start; ! Comment
				l	%r1,684(%r15)
				cije	%r1,123,.L123
		.L122:
		.LVL123:
		.LBB299:
  148                %cycle
  149                   readsymbol(sym)
  150                   printsymbol(sym)
  151                   %if sym=nl %start
				l	%r1,684(%r15)
				chi	%r1,10
				jne	.L124
  152                      lineno=lineno+1; spaces(18)
				asi	3828(%r9),1
		.LVL135:
		.LBB306:
		.LBB307:
				lghi	%r2,18
				brasl	%r14,_imp_spaces@PLT
		.LVL136:
				j	.L124
		.LVL137:
		.L218:
		.LBE307:
		.LBE306:
  153                   %finish
  154                %repeatuntil sym='}'
				l	%r1,684(%r15)
				chi	%r1,125
				je	.L219
		.L123:
		.LVL132:
		.LBB303:
		.LBB286:
				lgdr	%r2,%f8
				brasl	%r14,_imp_readsymbol@PLT
		.LVL133:
		.LBE286:
		.LBE303:
		.LBB304:
		.LBB305:
				llgc	%r2,687(%r15)
				brasl	%r14,_imp_printsymbol@PLT
		.LVL134:
		.LBE305:
		.LBE304:
  155                ->next
  156             %finish
				lhi	%r6,0
		.LBB284:
		.LBB285:
				aghik	%r1,%r15,684
				ldgr	%f8,%r1
		.LBE285:
		.LBE284:
				lr	%r8,%r6
				j	.L112
		.L221:
				lr	%r10,%r8
		.LVL114:
				j	.L114
		.LVL115:
		.L116:
				lr	%r10,%r7
		.LVL119:
		.L129:
		.L132:
		.L133:
				lhi	%r11,1
				lr	%r10,%r6
				lhi	%r7,1
				j	.L114
		.LVL145:
		.L220:
		.L136:
  157             sym=sym-32 %if 'a'<=sym<='z'; semi=0
  158             %if sym=';' %start
				l	%r1,684(%r15)
				cije	%r1,59,.L218
		.L127:
  159               sym=nl; lineno=lineno-1; semi=1
				mvhi	684(%r15),10
  160             %finish
				ahik	%r2,%r1,-97
				clijh	%r2,25,.L126
		.LBE299:
				asi	3828(%r9),-1
  161             %if sym='|' %start
				cije	%r1,124,.L130
				strl	%r7,SEMI.6742
				lr	%r10,%r8
		.LVL138:
		.L128:
  162               readsymbol(sym) %and printsymbol(sym) %until sym=nl
  163             %finish
  164          %finish
				ahi	%r1,-32
		.LVL124:
				st	%r1,684(%r15)
		.LVL125:
		.L126:
  165          lineno=lineno+1 %if sym=nl
				l	%r2,684(%r15)
				cije	%r2,10,.L128
				l	%r1,684(%r15)
				chi	%r1,10
				jne	.L130
  166          line(lpos)=sym; lpos=lpos+1
				ahik	%r1,%r11,-1
				lgfr	%r1,%r1
				stcy	%r2,8088(%r1,%r9)
				strl	%r8,SEMI.6742
				asi	3828(%r9),1
				ahik	%r1,%r11,-1
				lgfr	%r1,%r1
				lay	%r1,8088(%r1,%r9)
				mvi	0(%r1),10
				asi	3828(%r9),1
				ahik	%r1,%r11,-1
				lgfr	%r1,%r1
				lay	%r1,8088(%r1,%r9)
				mvi	0(%r1),10
  167       %repeatuntil sym=nl %and quoted=0
				ahi	%r11,1
		.LVL120:
		.L114:
				lr	%r10,%r8
		.LVL126:
				j	.L129
		.LVL127:
		.L115:
		.LBB300:
		.LBB301:
				lgdr	%r2,%f8
				brasl	%r14,_imp_readsymbol@PLT
		.LVL128:
		.LDL5:
		.LDL6:
		.LBE301:
		.LBE300:
		.LBB302:
		.LBB297:
				llgc	%r2,687(%r15)
				brasl	%r14,_imp_printsymbol@PLT
		.LVL129:
		.LBE297:
		.LBE302:
				ahi	%r11,1
		.LVL139:
				ahi	%r11,1
		.LVL143:
		.L135:
  168    %repeatuntil lpos>2; ! non-empty line
				cijlh	%r10,0,.L114
				cijh	%r11,2,.L220
		.LVL144:
		.L112:
  169
  170 ! Now decompose line into atoms
  171
				j	.L135
		.LVL140:
		.L130:
		.LBB308:
		.LBB309:
				lgdr	%r2,%f8
				brasl	%r14,_imp_readsymbol@PLT
		.LVL141:
		.LBE309:
		.LBE308:
		.LBB310:
		.LBB311:
				llgc	%r2,687(%r15)
				brasl	%r14,_imp_printsymbol@PLT
		.LVL142:
		.LBE311:
		.LBE310:
  172    atompos=1; ifpos=0; lpos=1
				mvhi	3824(%r9),1
  173 nextatom:
				mvhi	3412(%r9),0
		.LVL146:
  174    %cycle
				lhi	%r10,1
  175       sym=line(lpos); lpos=lpos+1
				ahik	%r1,%r10,-1
				lgfr	%r1,%r1
				llgc	%r2,8088(%r1,%r9)
				llcr	%r3,%r2
				st	%r3,684(%r15)
  176       ->tag %if 'A'<=sym<='Z'
				lr	%r10,%r11
				j	.L137
		.L225:
				lr	%r10,%r11
				lr	%r10,%r11
				lr	%r10,%r11
				lr	%r10,%r11
				lr	%r10,%r11
				lr	%r10,%r11
				lr	%r10,%r11
				lr	%r10,%r11
				lr	%r10,%r11
				lr	%r10,%r11
				lr	%r10,%r11
				lr	%r10,%r11
				j	.L166
		.LVL191:
		.L238:
				lr	%r10,%r11
				j	.L137
		.LVL196:
		.L204:
		.LBB315:
				lhi	%r1,0
		.LBE315:
				ahik	%r11,%r10,1
		.LVL211:
		.LBB318:
  177       ->num %if '0'<=sym<='9'
  178       %if sym=nl %start
				cije	%r3,10,.L225
		.L142:
  179         putatom(sep,0); atompos=1; %return
				aghik	%r0,%r15,688
				lghi	%r3,0
		.LVL148:
				lghi	%r2,14
				brasl	%r14,PUTATOM.6761
		.LVL149:
				ahik	%r1,%r2,-65
				llcr	%r1,%r1
				clijle	%r1,25,.L138
		.L139:
		.LVL212:
		.LBE318:
		.LBB319:
  180       %finish
				mvhi	3824(%r9),1
				ahik	%r1,%r2,-48
				llcr	%r1,%r1
				clijle	%r1,9,.L204
		.L141:
		.LBE319:
  181       %if sym=':' %start
				cije	%r3,58,.L226
		.L143:
  182          putatom(colon,0)
				lgdr	%r0,%f8
				lghi	%r3,0
		.LVL152:
				lghi	%r2,13
				brasl	%r14,PUTATOM.6761
		.LVL153:
  183       %finishelseif sym='+' %start
				j	.L137
		.LVL154:
		.L227:
  184         putatom(op,add)
				lgdr	%r0,%f8
				lghi	%r3,2
		.LVL155:
				lghi	%r2,11
				brasl	%r14,PUTATOM.6761
		.LVL156:
  185       %finishelseif sym='-' %start
				j	.L137
		.LVL157:
		.L228:
				cije	%r3,43,.L227
		.L145:
  186         putatom(op,sub)
				lgdr	%r0,%f8
				lghi	%r3,3
		.LVL158:
				lghi	%r2,11
				brasl	%r14,PUTATOM.6761
		.LVL159:
  187       %finishelseif sym='&' %start
				j	.L137
		.LVL160:
		.L229:
				cije	%r3,45,.L228
		.L146:
  188         putatom(op,and)
				lgdr	%r0,%f8
				lghi	%r3,4
		.LVL161:
				lghi	%r2,11
				brasl	%r14,PUTATOM.6761
		.LVL162:
  189       %finishelseif sym='!' %start
				j	.L137
		.LVL163:
		.L230:
				cije	%r3,38,.L229
		.L147:
  190         putatom(op,or)
				lgdr	%r0,%f8
				lghi	%r3,5
		.LVL164:
				lghi	%r2,11
				brasl	%r14,PUTATOM.6761
		.LVL165:
  191       %finishelseif sym='\' %start
				j	.L137
		.LVL166:
		.L231:
				cije	%r3,33,.L230
		.L148:
  192         putatom(op,xor)
				lgdr	%r0,%f8
				lghi	%r3,6
		.LVL167:
				lghi	%r2,11
				brasl	%r14,PUTATOM.6761
		.LVL168:
  193       %finishelseif sym='*' %start
				j	.L137
		.LVL169:
		.L232:
				cije	%r3,92,.L231
		.L149:
  194         putatom(op,mul)
				lgdr	%r0,%f8
				lghi	%r3,8
		.LVL170:
				lghi	%r2,11
				brasl	%r14,PUTATOM.6761
		.LVL171:
  195       %finishelseif sym='%' %start
				j	.L137
		.LVL172:
		.L233:
				cije	%r3,42,.L232
		.L150:
  196         putatom(op,rem)
				lgdr	%r0,%f8
				lghi	%r3,10
		.LVL173:
				lghi	%r2,11
				brasl	%r14,PUTATOM.6761
		.LVL174:
  197       %finishelseif sym='/' %start
				j	.L137
		.LVL175:
		.L234:
				cije	%r3,37,.L233
		.L151:
  198         putatom(op,div)
				lgdr	%r0,%f8
				lghi	%r3,9
		.LVL176:
				lghi	%r2,11
				brasl	%r14,PUTATOM.6761
		.LVL177:
  199       %finishelseif sym='<' %or sym='>' %start
				j	.L137
		.LVL178:
		.L243:
				cije	%r3,47,.L234
		.L152:
  200          %if line(lpos)=sym %start; ! '<<', '>>'
				lgr	%r1,%r9
				agfr	%r1,%r10
				cliy	8088(%r1),60
				je	.L242
		.L156:
		.L157:
		.L158:
				lgr	%r1,%r9
				agfr	%r1,%r10
				cliy	8088(%r1),62
				jne	.L156
  201             lpos=lpos+1
				cije	%r3,60,.L153
				ahi	%r10,2
		.LVL260:
				ahi	%r10,2
		.LDL9:
		.LVL268:
  202             %if sym='<' %then putatom(op,left) %else putatom(op,right)
				cije	%r3,62,.L235
		.L154:
  203          %else; ! '<', '>', '<=', '>='
				lgdr	%r0,%f8
				lghi	%r3,11
		.LVL261:
				lghi	%r2,11
				brasl	%r14,PUTATOM.6761
		.LVL262:
  204 square:         !+'[', ']', '[=', ']='
				j	.L137
		.LVL263:
		.L153:
  205             %if line(lpos)='=' %start
				lgr	%r1,%r9
				agfr	%r1,%r10
				cliy	8088(%r1),61
				je	.L243
		.L159:
  206                lpos=lpos+1; sym=sym+128
				ahik	%r11,%r10,2
		.LVL179:
				lgdr	%r0,%f8
				lghi	%r3,12
		.LVL269:
				lghi	%r2,11
				brasl	%r14,PUTATOM.6761
		.LVL270:
				j	.L137
		.LVL271:
		.L222:
  207             %finish
				ahik	%r1,%r3,128
				st	%r1,684(%r15)
				j	.L159
		.L236:
		.L161:
  208             putatom(comp,sym)
				lgdr	%r0,%f8
				lgf	%r3,684(%r15)
		.LVL264:
				lghi	%r2,12
		.LVL265:
				brasl	%r14,PUTATOM.6761
		.LVL266:
				lr	%r10,%r11
				j	.L137
		.LVL267:
		.L235:
  209          %finish
  210       %finishelseif sym='(' %or sym=')' %start
  211         putatom(bracket,sym)
				lgdr	%r0,%f8
				lgfr	%r3,%r3
		.LVL180:
				lghi	%r2,15
				brasl	%r14,PUTATOM.6761
		.LVL181:
  212       %finishelseif sym='[' %or sym=']' %start
				j	.L137
		.LVL182:
		.L163:
				ahik	%r1,%r2,-40
				llcr	%r1,%r1
				clijle	%r1,1,.L236
		.L160:
  213          ->square
  214       %finishelseif sym='=' %or sym='#' %start
				cije	%r3,91,.L156
  215          putatom(comp,sym)
				lgdr	%r0,%f8
				lgfr	%r3,%r3
		.LVL183:
				lghi	%r2,12
				brasl	%r14,PUTATOM.6761
		.LVL184:
				cije	%r3,93,.L156
		.L162:
				cije	%r3,61,.L163
  216       %finishelseif sym='"' %start
				j	.L137
		.LVL185:
		.L237:
				cije	%r3,35,.L163
		.L164:
  217          putatom(string,lpos)
				lgdr	%r0,%f8
				lgfr	%r3,%r11
		.LVL186:
				lghi	%r2,2
				brasl	%r14,PUTATOM.6761
		.LVL187:
  218          lpos=lpos+1 %while line(lpos)#'"'; ! we know it's there
				cije	%r3,34,.L237
		.L165:
  219          lpos=lpos+1
				lgr	%r1,%r9
				agfr	%r1,%r10
				cliy	8088(%r1),34
				je	.L205
		.L167:
				lgfr	%r1,%r11
				llc	%r1,8088(%r1,%r9)
				cijlh	%r1,34,.L167
		.L166:
				ahi	%r10,1
		.LVL189:
  220       %finishelseif sym='''' %start
				ahik	%r10,%r11,1
		.LDL7:
		.LVL188:
				lr	%r11,%r10
				j	.L137
		.LVL190:
		.L205:
  221          sym=line(lpos); lpos=lpos+1 %if sym=''''
				lgfr	%r1,%r10
				llc	%r1,8088(%r1,%r9)
				st	%r1,684(%r15)
  222          fault(atom) %if line(lpos+1)#''''
				cijlh	%r3,39,.L168
				cije	%r1,39,.L238
		.L169:
				lgr	%r1,%r9
				agfr	%r1,%r11
				cliy	8088(%r1),39
				jne	.L239
		.LVL213:
		.L170:
  223          putatom(constant,sym); lpos=lpos+2
				ahik	%r11,%r10,2
		.LVL192:
				j	.L169
		.L239:
				lgr	%r0,%r9
				lghi	%r2,2
				brasl	%r14,FAULT.6724
		.LVL193:
				j	.L170
		.LVL194:
		.L168:
				lgdr	%r0,%f8
				lgf	%r3,684(%r15)
				lghi	%r2,1
				brasl	%r14,PUTATOM.6761
		.LVL214:
  224       %else
				ahik	%r10,%r11,2
		.LVL215:
				j	.L137
		.LVL216:
		.L224:
				st	%r3,684(%r15)
		.LVL217:
				j	.L177
		.LVL218:
		.L207:
				lr	%r4,%r2
		.LVL219:
  225          fault(atom) %unless sym=' '
				cije	%r3,32,.L206
  226       %finish
				lgr	%r0,%r9
				lghi	%r2,2
				brasl	%r14,FAULT.6724
		.LVL195:
  227    %repeat
  228 num: i=0; radix=10; ! I accumulates number, default radix is ten
  229    %cycle
				lhi	%r2,0
  230       %if sym='_' %start; ! change radix
				lhi	%r4,10
				cije	%r3,95,.L207
		.L173:
		.LVL204:
		.LBB317:
  231          radix=i; i=0
  232       %finishelseif '9'<sym<'A' %start
				lhi	%r0,0
				lhi	%r5,1
				j	.L140
		.LVL197:
		.L175:
				lr	%r2,%r0
		.LVL220:
				j	.L172
		.LVL221:
		.L138:
  233 endconst: putatom(constant,i); lpos=lpos-1; ->nextatom
  234       %else
				lgdr	%r0,%f8
				lgfr	%r3,%r2
				lghi	%r2,1
		.LVL208:
				brasl	%r14,PUTATOM.6761
		.LVL209:
  235          sym=sym-7 %if sym>'9'; sym=sym-'0'
				ahik	%r10,%r11,-1
		.LVL210:
		.L137:
  236          ->endconst %unless 0<=sym<radix
				ahi	%r3,-7
		.LVL198:
		.L174:
		.LBB316:
  237          i=i*radix+sym
				msr	%r2,%r4
		.LVL200:
				ar	%r2,%r3
		.LVL201:
		.L172:
				cijle	%r3,57,.L174
  238       %finish
  239       sym=line(lpos); lpos=lpos+1
				ahi	%r3,-48
		.LVL199:
				jl	.L223
				ahik	%r1,%r11,-1
				lgfr	%r1,%r1
				llc	%r3,8088(%r1,%r9)
				cijh	%r3,64,.L175
				llcr	%r1,%r1
				cije	%r1,0,.L177
				st	%r3,684(%r15)
		.LVL205:
				j	.L177
		.LVL206:
		.L223:
				st	%r3,684(%r15)
		.LVL207:
		.L176:
		.L177:
		.LBE317:
  240    %repeat
				ahi	%r11,1
		.LVL202:
				lr	%r1,%r5
		.LVL203:
		.L140:
		.L171:
  241 tag: n1=sym-'A'+1; n2=0; i=1; ! I counts name length
				crjhe	%r3,%r4,.L224
		.L179:
		.LBE316:
  242    %cycle
				ahik	%r11,%r3,-64
		.LVL222:
  243       sym=line(lpos)
				lhi	%r8,0
				ahik	%r4,%r10,-1
				j	.L180
		.LVL223:
		.L181:
		.LBB320:
				ark	%r1,%r4,%r2
				lgfr	%r1,%r1
				llgc	%r1,8088(%r1,%r9)
				llcr	%r5,%r1
		.LVL228:
		.LBB321:
  244       %if 'A'<=sym<='Z' %start
				lhi	%r2,1
  245          sym=sym-'A'+1
				ahik	%r1,%r5,-64
  246       %finishelseif '0'<=sym<='9' %start
				j	.L182
		.LVL229:
		.L183:
		.LDL8:
				st	%r5,684(%r15)
		.LVL230:
  247          sym=sym-'0'+27
				ahik	%r1,%r5,-21
		.LVL224:
		.L182:
				ahik	%r3,%r1,-65
				llcr	%r3,%r3
				clijh	%r3,25,.L181
		.LBE321:
  248       %else
  249          %if n1=if %start
				lhi	%r1,339
				crjlh	%r11,%r1,.L184
  250             fault(form) %unless ifpos=0
				lt	%r1,3412(%r9)
				jne	.L240
		.LVL231:
		.L185:
  251             ifpos=atompos; putatom(sep,0)
				ahi	%r1,-48
				llcr	%r1,%r1
				clijh	%r1,9,.L183
		.LBE320:
				l	%r1,3824(%r9)
				st	%r1,3412(%r9)
				lgr	%r0,%r9
				lghi	%r2,5
		.LVL234:
				brasl	%r14,FAULT.6724
		.LVL235:
				j	.L185
		.LVL236:
		.L184:
		.LBB322:
  252          %else; ! Look up in dictionary
				lgdr	%r0,%f8
				lghi	%r3,0
				lghi	%r2,14
				brasl	%r14,PUTATOM.6761
		.LVL232:
				lr	%r10,%r7
				j	.L137
		.LVL233:
		.L240:
  253             %for i=tagpos-1,-1,1 %cycle
  254                %if tag1(i)=n1 %and tag2(i)=n2 %start
				l	%r10,3408(%r9)
		.LVL237:
		.LBB313:
				c	%r11,2608(%r1)
				jne	.L209
  255                   n1=tagtype(i); n2=tagval(i)
				aghik	%r1,%r15,1984
				ldgr	%f12,%r1
				aghik	%r1,%r15,168
				ldgr	%f10,%r1
				j	.L137
		.LVL147:
		.L206:
		.LBE312:
				lhi	%r1,2
				sr	%r1,%r10
		.LVL238:
		.LBE313:
				cijl	%r1,0,.L186
				lgrl	%r1,_imp_current_file@GOTENT
		.LVL239:
				ltg	%r3,0(%r1)
				je	.L187
				la	%r2,1728(%r15)
		.LVL240:
				brasl	%r14,_imp_c2istr@PLT
		.LVL241:
		.L188:
				lgrl	%r1,_imp_current_line@GOTENT
				lt	%r13,0(%r1)
				ltr	%r13,%r13
				lhi	%r1,255
				locrne	%r1,%r13
				lr	%r13,%r1
				larl	%r3,.LC15
				lgdr	%r2,%f12
				brasl	%r14,_imp_c2istr@PLT
		.LVL242:
				mvc	424(256,%r15),1728(%r15)
				mvc	168(256,%r15),1984(%r15)
				mvghi	160(%r15),0
				lghi	%r6,1
				lghi	%r5,5
				lgdr	%r4,%f10
				lgfr	%r3,%r13
				la	%r2,424(%r15)
				brasl	%r14,_signal_event@PLT
		.LVL243:
		.L186:
				larl	%r1,.LC5
				mvc	1216(256,%r15),0(%r1)
				mvc	1472(256,%r15),1216(%r15)
		.LBE314:
				mvc	1728(256,%r15),1472(%r15)
				j	.L188
		.L192:
		.LVL245:
		.L209:
		.L193:
				c	%r8,1808(%r1)
				jne	.L209
		.LVL247:
  256                   n2=i %if n1=unknown
				lt	%r2,1008(%r1)
  257                   putatom(n1,n2)
				lgdr	%r0,%f8
				lgfr	%r3,%r3
				lgfr	%r2,%r2
				brasl	%r14,PUTATOM.6761
		.LVL249:
  258                   ->nextatom
				cije	%r10,1,.L190
				ahik	%r2,%r10,-1
				j	.L191
		.LVL244:
		.L187:
		.LBB314:
				brct	%r2,.L191
				j	.L190
		.L191:
				lr	%r10,%r7
		.LVL250:
				j	.L137
		.LVL251:
		.L190:
				lgf	%r3,3408(%r9)
				sllg	%r1,%r3,2
				agr	%r1,%r9
		.LBE322:
  259                %finish
				ahi	%r10,-1
		.LVL246:
				ahik	%r1,%r10,-1
				lgfr	%r1,%r1
				sllg	%r1,%r1,2
				agr	%r1,%r9
				ltr	%r2,%r2
				lr	%r3,%r10
				locne	%r3,208(%r1)
		.L194:
		.LVL248:
  260             %repeat
  261 ! Not found: enter name and details
  262             tag1(tagpos)=n1; tag2(tagpos)=n2
				st	%r11,2604(%r1)
  263             tagtype(tagpos)=unknown; tagval(tagpos)=0
				st	%r8,1804(%r1)
				mvhi	1004(%r1),0
  264             putatom(unknown,tagpos)
				aghik	%r1,%r15,688
				ldgr	%f8,%r1
		.LBB312:
				mvhi	204(%r1),0
				lgdr	%r0,%f8
				lghi	%r2,0
				brasl	%r14,PUTATOM.6761
		.LVL252:
  265             %if tagpos>tagmax %then fault(dfull) %else tagpos=tagpos+1
				chsi	3408(%r9),200
				jh	.L241
		.L195:
  266          %finish
				lgr	%r0,%r9
				lghi	%r2,13
				brasl	%r14,FAULT.6724
		.LVL255:
				j	.L195
		.LVL256:
		.L196:
  267          ->nextatom
  268       %finish
				asi	3408(%r9),1
				lr	%r10,%r7
		.LVL253:
				j	.L137
		.LVL254:
		.L241:
  269       %if i<3 %start
				cijh	%r2,2,.L196
  270          n1=n1*37+sym
				sllk	%r3,%r11,3
				ar	%r3,%r11
				sll	%r3,2
				ar	%r3,%r11
				ark	%r11,%r3,%r1
		.LVL225:
		.L197:
		.L198:
  271       %finishelseif i<6 %start
  272          n2=n2*37+sym
				sllk	%r3,%r8,3
				ar	%r3,%r8
				sll	%r3,2
				ar	%r8,%r3
		.LVL257:
				ar	%r8,%r1
		.LVL258:
				j	.L198
		.LVL259:
		.L242:
  273       %finish
				cijh	%r2,5,.L198
  274       i=i+1; lpos=lpos+1
				ahi	%r2,1
		.LVL226:
		.L180:
				ark	%r7,%r2,%r10
		.LVL227:
  275    %repeat
  276 %end
				ear	%r1,%a0
				sllg	%r1,%r1,32
				ear	%r1,%a1
				clc	2752(8,%r15),40(%r1)
				jne	.L222
				ld	%f8,2760(%r15)
				ld	%f10,2768(%r15)
				ld	%f12,2776(%r15)
				lg	%r4,2896(%r15)
				lmg	%r6,%r15,2832(%r15)
		.LVL150:
				br	%r4
		.LVL151:
		.L226:
				brasl	%r14,__stack_chk_fail@PLT
		.LVL272:
		.LFE187:
				.align	8
		CEXPR.6891:
		.LFB194:
  277
  278 %routine nextatom
				lgr	%r2,%r0
  279    type=atomtype(atompos); val=atomval(atompos)
				l	%r4,3824(%r2)
				lgfr	%r1,%r4
				sllg	%r1,%r1,2
				agr	%r1,%r0
				l	%r3,3620(%r1)
				st	%r3,204(%r2)
  280    atompos=atompos+1 %unless type=sep
				l	%r1,3420(%r1)
				st	%r1,200(%r2)
				cije	%r3,14,.L1
  281 %end
				ahik	%r1,%r4,1
				st	%r1,3824(%r2)
		.L2:
		.L1:
  282
				br	%r14
		.LFE190:
				.align	8
		OPENBRACKET.6874:
		.LFB191:
  283 %predicate open bracket
  284   %falseunless atomtype(atompos)=bracket %and atomval(atompos)='('
				lgr	%r1,%r0
				l	%r2,3824(%r1)
				lgfr	%r1,%r2
				sllg	%r1,%r1,2
				agr	%r1,%r0
				l	%r3,3620(%r1)
				chi	%r3,15
				je	.L9
  285   atompos=atompos+1; %true
				l	%r1,3420(%r1)
				chi	%r1,40
				je	.L10
				lhi	%r2,0
				j	.L5
		.L10:
		.L6:
				lgr	%r1,%r0
				ahi	%r2,1
				st	%r2,3824(%r1)
  286 %end
				lgfr	%r2,%r2
				br	%r14
		.L9:
				lhi	%r2,1
				j	.L5
		.LFE191:
				.align	8
		EQUALSIGN.6884:
		.LFB193:
  287
				lhi	%r2,0
		.L5:
  288 %routine close bracket
				stmg	%r11,%r15,88(%r15)
				lay	%r15,-160(%r15)
				lgr	%r11,%r0
				lgf	%r1,3824(%r11)
				sllg	%r1,%r1,2
				agr	%r1,%r0
  289   fault(form) %unless atomtype(atompos)=bracket %and atomval(atompos)=')'
				l	%r2,3620(%r1)
				chi	%r2,15
				jne	.L281
  290   atompos=atompos+1
				l	%r1,3420(%r1)
				chi	%r1,41
				je	.L282
		.L281:
				asi	3824(%r11),1
  291 %end
  292
				lgr	%r0,%r11
				lghi	%r2,5
				brasl	%r14,FAULT.6724
		.LVL296:
		.L282:
				lg	%r3,272(%r15)
				lmg	%r11,%r15,248(%r15)
				br	%r3
		.LFE192:
				.align	8
		GBYTE.6931:
		.LFB196:
  293 %predicate equal sign
  294   %falseunless atomtype(atompos)=comp %and atomval(atompos)='='
				lgr	%r1,%r0
				l	%r2,3824(%r1)
				lgfr	%r1,%r2
				sllg	%r1,%r1,2
				agr	%r1,%r0
				l	%r3,3620(%r1)
				chi	%r3,12
				je	.L17
  295   atompos=atompos+1; %true
				l	%r1,3420(%r1)
				chi	%r1,61
				je	.L18
				lhi	%r2,0
				j	.L13
		.L18:
		.L14:
				lgr	%r1,%r0
				ahi	%r2,1
				st	%r2,3824(%r1)
  296 %end
				lgfr	%r2,%r2
				br	%r14
		.L17:
				lhi	%r2,1
				j	.L13
		.LFE193:
				.align	8
		SATREFS.6975:
		.LFB202:
  297
				lhi	%r2,0
		.L13:
  298 %routinespec unary
  299
  300 %integerfn cexpr(%integer must)
		.LVL273:
				stmg	%r6,%r15,48(%r15)
				lay	%r15,-1480(%r15)
				lgr	%r6,%r2
				lgr	%r11,%r0
				ear	%r1,%a0
				sllg	%r1,%r1,32
				ear	%r1,%a1
				mvc	1472(8,%r15),40(%r1)
  301 %integer value,oper
  302 %switch s(add:right)
  303    nextatom; unary
				brasl	%r14,NEXTATOM.6870
		.LVL274:
  304    value=val; fault(consterr) %unless type=constant
				lgr	%r0,%r11
				brasl	%r14,UNARY.6889
		.LVL275:
				l	%r10,200(%r11)
		.LVL276:
  305    %cycle
				l	%r1,204(%r11)
				chi	%r1,1
				jne	.L265
		.L246:
		.L247:
  306       %result=value %unless atomtype(atompos)=op
				l	%r2,3824(%r11)
				lgfr	%r1,%r2
				sllg	%r1,%r1,2
				agr	%r1,%r11
				l	%r3,3620(%r1)
				chi	%r3,11
				je	.L266
		.L248:
				lgfr	%r2,%r10
		.LVL277:
		.L245:
				lgr	%r0,%r11
				lghi	%r2,3
				brasl	%r14,FAULT.6724
		.LVL279:
				j	.L247
		.L266:
		.L249:
  307       %if must=0 %start
				cgijlh	%r6,0,.L251
  308          %result=value %unless atomtype(atompos+1)=constant
				l	%r3,3624(%r1)
				chi	%r3,1
				jne	.L248
		.L250:
		.L251:
  309       %finish
  310       oper=atomval(atompos); atompos=atompos+1
				l	%r10,3420(%r1)
		.LVL280:
  311       nextatom; fault(consterr) %unless type=constant
				ahik	%r1,%r2,1
				st	%r1,3824(%r11)
				lgr	%r0,%r11
				brasl	%r14,NEXTATOM.6870
		.LVL281:
  312       ->s(oper)
				l	%r1,204(%r11)
				chi	%r1,1
				jne	.L268
		.L252:
		.LVL282:
		.LDL10:
  313 s(add):  value=value+val; %continue
				lgr	%r0,%r11
				lghi	%r2,3
				brasl	%r14,FAULT.6724
		.LVL288:
				j	.L252
		.LVL289:
		.L254:
		.LBB323:
  314 s(sub):  value=value-val; %continue
  315 s(and):  value=value&val; %continue
  316 s(or):   value=value!val; %continue
  317 s(xor):  value=value!!val; %continue
  318 s(rem):  value=value-value//val*val; %continue
  319 s(div):  value=value//val; %continue
  320 s(mul):  value=value*val; %continue
  321 s(left): value=value<<val; %continue
  322 s(right):value=value>>val
  323    %repeat
  324 %end
  325
  326 %routine unary
				ahik	%r1,%r10,-2
				clijle	%r1,10,.L253
				lgrl	%r1,_imp_current_file@GOTENT
				ltg	%r3,0(%r1)
				je	.L254
				la	%r2,960(%r15)
				brasl	%r14,_imp_c2istr@PLT
		.LVL283:
		.L255:
				lgrl	%r1,_imp_current_line@GOTENT
				lt	%r3,0(%r1)
				ltr	%r3,%r3
				lhi	%r1,326
				locrne	%r1,%r3
				lr	%r3,%r1
				mvc	192(256,%r15),960(%r15)
				lgfr	%r6,%r10
				mvghi	184(%r15),312
				larl	%r1,.LC9
				stg	%r1,176(%r15)
				stg	%r6,168(%r15)
				larl	%r1,.LC10
				stg	%r1,160(%r15)
				lghi	%r5,3
				lghi	%r4,6
				lgfr	%r3,%r3
				la	%r2,192(%r15)
				brasl	%r14,_signal_eventf@PLT
		.LVL284:
		.L253:
		.L257:
				larl	%r1,.LC5
				mvc	1216(256,%r15),0(%r1)
				mvc	448(256,%r15),1216(%r15)
		.LBE323:
				mvc	960(256,%r15),448(%r15)
				j	.L255
		.L258:
		.LBB324:
				stmg	%r11,%r15,88(%r15)
				larl	%r13,.L278
				lay	%r15,-160(%r15)
  327 %integername v
  328   %returnunless type=op %and atomtype(atompos)=constant
				lgr	%r1,%r0
				l	%r1,204(%r1)
				chi	%r1,11
				je	.L277
		.L270:
  329   %returnunless val=sub %or val=xor
				lgrl	%r1,_imp_current_file@GOTENT
				ltg	%r3,0(%r1)
				je	.L258
				la	%r2,1216(%r15)
				brasl	%r14,_imp_c2istr@PLT
		.LVL285:
		.L259:
				lgrl	%r1,_imp_current_line@GOTENT
				lt	%r3,0(%r1)
				ltr	%r3,%r3
				lhi	%r1,329
				locrne	%r1,%r3
				lr	%r3,%r1
				mvc	192(256,%r15),1216(%r15)
				lgfr	%r6,%r10
				mvghi	184(%r15),312
				larl	%r1,.LC9
				stg	%r1,176(%r15)
				stg	%r6,168(%r15)
				larl	%r1,.LC11
				stg	%r1,160(%r15)
				lghi	%r5,2
				lghi	%r4,8
				lgfr	%r3,%r3
				la	%r2,192(%r15)
				brasl	%r14,_signal_eventf@PLT
		.LVL286:
				larl	%r1,.LC5
				mvc	1216(256,%r15),0(%r1)
				mvc	704(256,%r15),1216(%r15)
		.LBE324:
				mvc	1216(256,%r15),704(%r15)
				j	.L259
		.LVL290:
		.L267:
				l	%r2,3620(%r1)
				chi	%r2,1
				jne	.L270
		.L272:
				lgr	%r2,%r0
				l	%r2,200(%r2)
				cije	%r2,3,.L273
  330   v==atomval(atompos)
				ear	%r1,%a0
				sllg	%r1,%r1,32
				ear	%r1,%a1
				clc	1472(8,%r15),40(%r1)
				jne	.L267
				lg	%r4,1592(%r15)
				lmg	%r6,%r15,1528(%r15)
				br	%r4
		.LVL278:
		.L265:
				j	.L245
		.LVL287:
		.L268:
				brasl	%r14,__stack_chk_fail@PLT
		.LVL291:
		.LFE194:
				.align	8
		UNARY.6889:
		.LFB195:
				cijlh	%r2,6,.L270
		.LVL292:
  331   v=\v; v=v+1 %if val=sub
				xc	3420(4,%r1),.L279-.L278(%r13)
				j	.L275
		.LVL293:
		.L273:
  332   val=cexpr(0); type=constant
				lghi	%r2,0
				brasl	%r14,CEXPR.6891
		.LVL295:
				st	%r2,200(%r11)
  333 %end
				l	%r2,3420(%r1)
				lcr	%r2,%r2
				st	%r2,3420(%r1)
		.LVL294:
		.L275:
				lgr	%r11,%r0
				mvhi	204(%r11),1
		.L271:
				j	.L270
				.section	.rodata
				.align	8
		.L278:
		.L279:
				.long	-1
				.align	2
		.text
		.LFE195:
				.align	8
		CLOSEBRACKET.6879:
		.LFB192:
  334
				lg	%r3,272(%r15)
				lmg	%r11,%r15,248(%r15)
				br	%r3
		.L277:
				lgr	%r1,%r0
				lgf	%r1,3824(%r1)
				sllg	%r1,%r1,2
				agr	%r1,%r0
  335 %routine gbyte(%integer b)
		.LVL297:
				stmg	%r10,%r15,80(%r15)
				lay	%r15,-160(%r15)
				lgr	%r10,%r2
				lgr	%r11,%r0
  336   fault(bfull) %if gpos>glamax
				chsi	196(%r11),499
				jh	.L288
		.LVL298:
		.L286:
  337   gla(gpos)=b&255; gpos=gpos+1; gloc=gloc+1
				l	%r1,196(%r11)
				lgfr	%r2,%r1
				stcy	%r10,7588(%r2,%r11)
				lghi	%r2,4
		.LVL300:
				brasl	%r14,FAULT.6724
		.LVL301:
				j	.L286
		.LFE196:
				.align	8
		DUMPSTRING.6950:
		.LFB199:
  338 %end
				ahi	%r1,1
				st	%r1,196(%r11)
  339
				asi	3416(%r11),1
				lg	%r3,272(%r15)
				lmg	%r10,%r15,240(%r15)
				br	%r3
		.LVL299:
		.L288:
  340 %routine gword(%integer x)
  341   gbyte(x); gbyte(x>>8)
				lgdr	%r0,%f8
				lgr	%r2,%r10
				brasl	%r14,GBYTE.6931
		.LVL628:
  342 %end
				risbgn	%r7,%r7,64-24,128+63,32+24
		.LVL622:
				ahik	%r1,%r11,-1
				ltr	%r1,%r1
				lhi	%r1,1
				locrhe	%r1,%r11
				lr	%r6,%r1
				j	.L498
		.LVL623:
		.L589:
		.LBE484:
		.LBE483:
				lgdr	%r0,%f8
				lgr	%r2,%r7
				brasl	%r14,GBYTE.6931
		.LVL629:
		.L500:
		.LBE485:
		.LBE486:
  343
  344 %routine gflush
				stmg	%r6,%r15,48(%r15)
				lay	%r15,-1456(%r15)
				lgr	%r9,%r0
				ear	%r1,%a0
				sllg	%r1,%r1,32
				ear	%r1,%a1
				mvc	1448(8,%r15),40(%r1)
  345 %integer i
  346   %returnif gpos=0
				lt	%r1,196(%r9)
				jne	.L73
		.L60:
  347   selectoutput(object); printsymbol(2); printsymbol(4)
  348   printsymbol(gpos&255); printsymbol(gpos>>8&255)
  349   printsymbol(gla(i)) %for i=0,1,gpos-1
  350   gpos=0
				l	%r11,196(%r9)
		.LVL43:
				mvhi	196(%r9),0
  351 %end
				ahik	%r10,%r11,-1
		.LVL44:
				jl	.L75
		.L63:
		.LVL45:
				j	.L60
		.LVL51:
		.L75:
		.LBB242:
				lgrl	%r1,_imp_current_file@GOTENT
				ltg	%r3,0(%r1)
				je	.L64
				la	%r2,936(%r15)
				brasl	%r14,_imp_c2istr@PLT
		.LVL52:
		.L65:
				lgrl	%r1,_imp_current_line@GOTENT
				lt	%r8,0(%r1)
				ltr	%r8,%r8
				lhi	%r1,351
				locrne	%r1,%r8
				lr	%r8,%r1
				larl	%r3,.LC12
				la	%r2,1192(%r15)
				brasl	%r14,_imp_c2istr@PLT
		.LVL53:
				mvc	424(256,%r15),936(%r15)
				mvc	168(256,%r15),1192(%r15)
				mvghi	160(%r15),0
				lghi	%r6,1
				lghi	%r5,5
				la	%r4,168(%r15)
				lgfr	%r3,%r8
				la	%r2,424(%r15)
				brasl	%r14,_signal_event@PLT
		.LVL54:
				j	.L63
		.L64:
		.LBB241:
				larl	%r1,.LC5
				mvc	1192(256,%r15),0(%r1)
				mvc	680(256,%r15),1192(%r15)
		.LBE241:
				mvc	936(256,%r15),680(%r15)
				j	.L65
		.LVL55:
		.L74:
		.LBE242:
  352
				ear	%r1,%a0
				sllg	%r1,%r1,32
				ear	%r1,%a1
				clc	1448(8,%r15),40(%r1)
				jne	.L74
				lg	%r4,1568(%r15)
				lmg	%r6,%r15,1504(%r15)
				br	%r4
		.L73:
		.L62:
		.LVL37:
		.LBB228:
		.LBB229:
				lgrl	%r1,_imp_OutStream@GOTENT
				mvhi	0(%r1),1
				lgrl	%r1,_imp_OutFile@GOTENT
				lgrl	%r2,_imp_outfile@GOTENT
				lg	%r2,296(%r2)
				stg	%r2,0(%r1)
				larl	%r2,__PRETTY_FUNCTION__.6293
				brasl	%r14,check_outstream@PLT
		.LVL38:
		.LBE229:
		.LBE228:
		.LBB230:
		.LBB231:
				lghi	%r2,2
				brasl	%r14,_imp_printsymbol@PLT
		.LVL39:
		.LBE231:
		.LBE230:
		.LBB232:
		.LBB233:
				lghi	%r2,4
				brasl	%r14,_imp_printsymbol@PLT
		.LVL40:
		.LBE233:
		.LBE232:
		.LBB234:
		.LBB235:
				llgc	%r2,199(%r9)
				brasl	%r14,_imp_printsymbol@PLT
		.LVL41:
		.LBE235:
		.LBE234:
		.LBB236:
		.LBB237:
				llgc	%r2,198(%r9)
				brasl	%r14,_imp_printsymbol@PLT
		.LVL42:
		.LBE237:
		.LBE236:
		.LBB238:
				brasl	%r14,__stack_chk_fail@PLT
		.LVL56:
		.LFE198:
				.section	.rodata.str1.2
				.align	2
		.LC13:
				.string	"Illegal cycle I = 0, 1, CPOS - 1"
		.text
				.align	8
		FLUSH.6962:
		.LFB201:
  353 %routine dumpstring(%integer p)
		.LVL302:
				stmg	%r8,%r15,64(%r15)
				lay	%r15,-160(%r15)
				lgr	%r9,%r0
		.LVL303:
  354 %integer l
				cije	%r10,-1,.L67
				aghik	%r10,%r9,7588
		.LVL46:
				ahi	%r11,-1
		.LVL47:
				llgfr	%r11,%r11
				lay	%r11,7589(%r11,%r9)
		.LVL48:
				sgr	%r11,%r10
		.LVL49:
		.L68:
		.LBB239:
		.LBB240:
				llgc	%r2,0(%r10)
				brasl	%r14,_imp_printsymbol@PLT
		.LVL50:
				aghi	%r10,1
		.LBE240:
		.LBE239:
				brctg	%r11,.L68
		.L67:
		.LBE238:
  355   l=0
				lhi	%r11,0
		.LVL304:
		.L292:
  356   l=l+1 %and p=p+1 %while line(p)#'"'
  357   gbyte(l); p=p-l
				ahik	%r1,%r2,-1
				lgr	%r3,%r0
				agfr	%r3,%r1
				cliy	8088(%r3),34
				je	.L291
				llgc	%r1,8088(%r2,%r9)
				llcr	%r1,%r1
				cijlh	%r1,34,.L292
		.L293:
				lgr	%r0,%r9
				lgfr	%r2,%r11
				brasl	%r14,GBYTE.6931
		.LVL307:
				lghi	%r2,0
		.LVL316:
				brasl	%r14,GBYTE.6931
		.LVL317:
				j	.L290
		.LFE199:
				.align	8
		POPTEXT.6996:
		.LFB205:
  358   gbyte(line(p)) %and p=p+1 %and l=l-1 %while l>0
				ahi	%r11,1
		.LVL305:
				sr	%r10,%r11
		.LVL308:
  359 %end
				ahik	%r10,%r2,1
				lgfr	%r10,%r10
		.LDL11:
		.LVL306:
				lgr	%r2,%r10
				cijle	%r11,0,.L290
				ahik	%r8,%r10,-1
				ahi	%r11,-1
		.LVL309:
				ar	%r11,%r10
		.LVL310:
				sr	%r11,%r8
		.LVL311:
		.L295:
				brct	%r11,.L295
		.LVL314:
		.L290:
  360
				lgfr	%r1,%r8
				lgr	%r0,%r9
				llgc	%r2,8088(%r1,%r9)
				brasl	%r14,GBYTE.6931
		.LVL312:
		.LDL12:
				ahi	%r8,1
		.LVL313:
				lg	%r4,272(%r15)
				lmg	%r8,%r15,224(%r15)
				br	%r4
		.L294:
		.LVL315:
		.L291:
  361 %routine dump(%integer byte)
		.LVL322:
				stmg	%r10,%r15,80(%r15)
				lay	%r15,-160(%r15)
				lgr	%r10,%r2
				lgr	%r11,%r0
  362    fault(bfull) %if cpos>codemax
				chsi	192(%r11),3499
				jh	.L311
		.LVL323:
		.L309:
  363    code(cpos)=byte&255; cpos=cpos+1; cloc=cloc+1
				l	%r1,192(%r11)
				lgfr	%r2,%r1
				stc	%r10,4088(%r2,%r11)
				lghi	%r2,4
		.LVL325:
				brasl	%r14,FAULT.6724
		.LVL326:
				j	.L309
		.LFE200:
				.align	8
		RETURN.7110:
		.LFB211:
  364 %end
				ahi	%r1,1
				st	%r1,192(%r11)
  365
				asi	3420(%r11),1
				lg	%r3,272(%r15)
				lmg	%r10,%r15,240(%r15)
				br	%r3
		.LVL324:
		.L311:
  366 %routine flush
				stmg	%r6,%r15,48(%r15)
				lay	%r15,-1456(%r15)
				lgr	%r9,%r0
				ear	%r1,%a0
				sllg	%r1,%r1,32
				ear	%r1,%a1
				mvc	1448(8,%r15),40(%r1)
  367 %integer i
  368    %returnif cpos=0
				lt	%r1,192(%r9)
				jne	.L90
		.L77:
  369    selectoutput(object); printsymbol(1); printsymbol(4)
  370    printsymbol(cpos&255); printsymbol(cpos>>8&255)
  371    printsymbol(code(i)) %for i=0,1,cpos-1
  372    cpos=0
				l	%r11,192(%r9)
		.LVL63:
				mvhi	192(%r9),0
  373 %end
				ahik	%r10,%r11,-1
		.LVL64:
				jl	.L92
		.L80:
		.LVL65:
				j	.L77
		.LVL71:
		.L92:
		.LBB257:
				lgrl	%r1,_imp_current_file@GOTENT
				ltg	%r3,0(%r1)
				je	.L81
				la	%r2,936(%r15)
				brasl	%r14,_imp_c2istr@PLT
		.LVL72:
		.L82:
				lgrl	%r1,_imp_current_line@GOTENT
				lt	%r8,0(%r1)
				ltr	%r8,%r8
				lhi	%r1,373
				locrne	%r1,%r8
				lr	%r8,%r1
				larl	%r3,.LC13
				la	%r2,1192(%r15)
				brasl	%r14,_imp_c2istr@PLT
		.LVL73:
				mvc	424(256,%r15),936(%r15)
				mvc	168(256,%r15),1192(%r15)
				mvghi	160(%r15),0
				lghi	%r6,1
				lghi	%r5,5
				la	%r4,168(%r15)
				lgfr	%r3,%r8
				la	%r2,424(%r15)
				brasl	%r14,_signal_event@PLT
		.LVL74:
				j	.L80
		.L81:
		.LBB256:
				larl	%r1,.LC5
				mvc	1192(256,%r15),0(%r1)
				mvc	680(256,%r15),1192(%r15)
		.LBE256:
				mvc	936(256,%r15),680(%r15)
				j	.L82
		.LVL75:
		.L91:
		.LBE257:
  374
				ear	%r1,%a0
				sllg	%r1,%r1,32
				ear	%r1,%a1
				clc	1448(8,%r15),40(%r1)
				jne	.L91
				lg	%r4,1568(%r15)
				lmg	%r6,%r15,1504(%r15)
				br	%r4
		.L90:
		.L79:
		.LVL57:
		.LBB243:
		.LBB244:
				lgrl	%r1,_imp_OutStream@GOTENT
				mvhi	0(%r1),1
				lgrl	%r1,_imp_OutFile@GOTENT
				lgrl	%r2,_imp_outfile@GOTENT
				lg	%r2,296(%r2)
				stg	%r2,0(%r1)
				larl	%r2,__PRETTY_FUNCTION__.6293
				brasl	%r14,check_outstream@PLT
		.LVL58:
		.LBE244:
		.LBE243:
		.LBB245:
		.LBB246:
				lghi	%r2,1
				brasl	%r14,_imp_printsymbol@PLT
		.LVL59:
		.LBE246:
		.LBE245:
		.LBB247:
		.LBB248:
				lghi	%r2,4
				brasl	%r14,_imp_printsymbol@PLT
		.LVL60:
		.LBE248:
		.LBE247:
		.LBB249:
		.LBB250:
				llgc	%r2,195(%r9)
				brasl	%r14,_imp_printsymbol@PLT
		.LVL61:
		.LBE250:
		.LBE249:
		.LBB251:
		.LBB252:
				llgc	%r2,194(%r9)
				brasl	%r14,_imp_printsymbol@PLT
		.LVL62:
		.LBE252:
		.LBE251:
		.LBB253:
				brasl	%r14,__stack_chk_fail@PLT
		.LVL76:
		.LFE201:
				.section	.rodata.str1.2
				.align	2
		.LC14:
				.string	""
				.section	.rodata
				.align	2
		.LC8:
				.byte	3
				.string	"** "
				.zero	251
		.text
				.align	8
		FAULT.6724:
		.LFB186:
  375 %routine satrefs(%integer ref,val)
		.LVL0:
				ldgr	%f4,%r9
				ldgr	%f2,%r10
				ldgr	%f0,%r11
				lgr	%r5,%r0
				lgr	%r1,%r2
  376 %integer abs,rel,disp
				cije	%r10,-1,.L84
				aghik	%r10,%r9,4088
		.LVL66:
				ahi	%r11,-1
		.LVL67:
				llgfr	%r11,%r11
				la	%r11,4089(%r11,%r9)
		.LVL68:
				sgr	%r11,%r10
		.LVL69:
		.L85:
		.LBB254:
		.LBB255:
				llgc	%r2,0(%r10)
				brasl	%r14,_imp_printsymbol@PLT
		.LVL70:
				aghi	%r10,1
		.LBE255:
		.LBE254:
				brctg	%r11,.L85
		.L84:
		.LBE253:
  377    %while ref#0 %cycle
  378      rel=ref; abs=rel-cloc+cpos; disp=val-rel-2
				cgije	%r2,0,.L25
				cgijlh	%r1,0,.L22
		.L21:
  379      ref=code(abs+1)<<8+code(abs)
				l	%r11,3420(%r5)
				l	%r0,192(%r5)
		.LVL1:
		.L22:
				srk	%r2,%r1,%r11
				ar	%r2,%r0
		.LVL2:
				ahik	%r4,%r2,1
				lgfr	%r4,%r4
				llc	%r1,4088(%r4,%r5)
				sll	%r1,8
				lgfr	%r2,%r2
				llc	%r9,4088(%r2,%r5)
				ar	%r1,%r9
				lgfr	%r1,%r1
		.LVL5:
				stc	%r10,4088(%r2,%r5)
  380      code(abs)=disp&255; code(abs+1)=disp>>8&255
				srk	%r1,%r3,%r1
		.LVL3:
				ahik	%r10,%r1,-2
		.LVL4:
  381    %repeat
				srl	%r10,8
		.LVL6:
				stc	%r10,4088(%r4,%r5)
		.LDL1:
  382 %end
  383
				lgdr	%r9,%f4
				lgdr	%r10,%f2
				lgdr	%r11,%f0
				br	%r14
		.LVL7:
		.L25:
				br	%r14
		.LFE202:
				.align	8
		GETSTRING.7171:
		.LFB216:
  384 %routine labelref(%integer type,val)
		.LVL339:
				stmg	%r9,%r15,72(%r15)
				lay	%r15,-160(%r15)
				lgr	%r11,%r3
				lgr	%r10,%r0
  385 %integer tvv
  386    %if type=label %start
				cije	%r2,3,.L332
		.L328:
  387       val=val-(cloc+2)
				l	%r1,3420(%r10)
				ahi	%r1,2
				sr	%r11,%r1
		.LVL346:
  388       dump(val); dump(val>>8)
				lgfr	%r2,%r11
		.LVL347:
				brasl	%r14,DUMP.6958
		.LVL348:
  389    %else
				lgr	%r0,%r10
				risbgn	%r2,%r11,64-24,128+63,32+24
				brasl	%r14,DUMP.6958
		.LVL349:
				j	.L327
		.LVL350:
		.L333:
  390       fault(form) %unless type=unknown
				cgijlh	%r2,0,.L333
		.LVL340:
		.L330:
				sllg	%r11,%r11,2
				agr	%r11,%r10
  391       tvv=tagval(val)
				l	%r9,204(%r11)
		.LVL341:
				lghi	%r2,5
		.LVL351:
				brasl	%r14,FAULT.6724
		.LVL352:
				j	.L330
		.LFE203:
				.align	8
		DIRECT.7051:
		.LFB208:
  392       dump(tvv); dump(tvv>>8)
				lgr	%r0,%r10
				lgfr	%r2,%r9
				brasl	%r14,DUMP.6958
		.LVL342:
  393       tagval(val)=cloc-2
				lgr	%r0,%r10
				risbgn	%r2,%r9,64-24,128+63,32+24
				brasl	%r14,DUMP.6958
		.LVL343:
				l	%r1,3420(%r10)
				ahi	%r1,-2
				st	%r1,204(%r11)
		.L329:
		.LVL344:
		.L327:
  394    %finish
  395 %end
  396
				lg	%r4,272(%r15)
				lmg	%r9,%r15,232(%r15)
				br	%r4
		.LVL345:
		.L332:
  397 %routine pushtext(%integer t,v)
		.LVL319:
				stmg	%r9,%r15,72(%r15)
				lay	%r15,-160(%r15)
				lgr	%r9,%r2
				lgr	%r10,%r3
				lgr	%r11,%r0
  398   textlevel=textlevel+1
				l	%r1,188(%r11)
				ahi	%r1,1
				st	%r1,188(%r11)
  399   fault(complex) %if textlevel>textmax
				cijle	%r1,20,.L305
  400   texttype(textlevel)=t; textval(textlevel)=v
				lghi	%r2,1
		.LVL320:
				brasl	%r14,FAULT.6724
		.LVL321:
		.L305:
				lgf	%r1,188(%r11)
				sllg	%r1,%r1,2
				agr	%r11,%r1
				st	%r9,104(%r11)
  401 %end
				st	%r10,24(%r11)
  402
				lg	%r4,272(%r15)
				lmg	%r9,%r15,232(%r15)
				br	%r4
		.LFE204:
				.align	8
		DUMP.6958:
		.LFB200:
  403 %routine poptext
				stmg	%r11,%r15,88(%r15)
				lay	%r15,-160(%r15)
				lgr	%r11,%r0
  404   fault(context) %if textlevel=0
				lt	%r1,188(%r11)
				jne	.L301
  405   type=texttype(textlevel); val=textval(textlevel)
				lghi	%r2,16
				brasl	%r14,FAULT.6724
		.LVL318:
		.L301:
				l	%r2,188(%r11)
				lgfr	%r1,%r2
				sllg	%r1,%r1,2
				agr	%r1,%r11
				l	%r3,104(%r1)
				st	%r3,204(%r11)
				ahik	%r1,%r2,-1
				st	%r1,188(%r11)
  406   textlevel=textlevel-1
				l	%r1,24(%r1)
				st	%r1,200(%r11)
  407 %end
  408
				lg	%r4,272(%r15)
				lmg	%r11,%r15,248(%r15)
				br	%r4
		.LFE205:
				.align	8
		PUSHTEXT.6992:
		.LFB204:
  409 %routinespec expr
  410
  411 %constinteger pushax=16_50,popax=16_58
  412
  413 %routine call(%integer t,v)
		.LVL435:
				stmg	%r9,%r15,72(%r15)
				lay	%r15,-160(%r15)
				lgr	%r10,%r2
				lgr	%r9,%r3
				lgr	%r11,%r0
  414   type=atomtype(atompos)
				l	%r1,3824(%r11)
				ahi	%r1,-1
				lgfr	%r1,%r1
				aghi	%r1,906
				sllg	%r1,%r1,2
				l	%r1,0(%r1,%r11)
				st	%r1,204(%r11)
  415   %if type#op %start
				ahik	%r2,%r1,-11
		.LVL436:
				clijle	%r2,1,.L399
  416     %cycle
  417       %exitif type=sep %or type=comp
				cije	%r1,14,.L399
		.LVL437:
		.L397:
  418       expr; dump(pushax); type=atomtype(atompos)
				lgr	%r0,%r11
				brasl	%r14,EXPR.7000
		.LVL438:
				nill	%r1,65533
				cijlh	%r1,12,.L397
		.L396:
		.L398:
		.L399:
  419     %repeat
				lgr	%r0,%r11
				lghi	%r2,80
				brasl	%r14,DUMP.6958
		.LVL439:
  420   %finish
				l	%r1,3824(%r11)
				ahi	%r1,-1
				lgfr	%r1,%r1
				aghi	%r1,906
				sllg	%r1,%r1,2
				l	%r1,0(%r1,%r11)
				st	%r1,204(%r11)
		.LDL16:
  421   %if t=spec %start
				cije	%r10,10,.L404
		.L400:
  422     dump(16_FF); dump(16_1e); dump(v); dump(v>>8);  !Xcall
				lgr	%r0,%r11
				lghi	%r2,255
				brasl	%r14,DUMP.6958
		.LVL443:
  423   %else
				lgr	%r0,%r11
				lghi	%r2,30
				brasl	%r14,DUMP.6958
		.LVL444:
				j	.L395
		.LFE206:
				.align	8
		COND.7245:
		.LFB218:
  424     dump(16_0e); dump(16_e8); labelref(label,v);    !PushCs, Call
				lgr	%r0,%r11
				lghi	%r2,14
				brasl	%r14,DUMP.6958
		.LVL440:
				lgr	%r0,%r11
				lgr	%r2,%r9
				brasl	%r14,DUMP.6958
		.LVL445:
  425   %finish
				lgr	%r0,%r11
				lghi	%r2,232
				brasl	%r14,DUMP.6958
		.LVL441:
				lgr	%r0,%r11
				risbgn	%r2,%r9,64-24,128+63,32+24
				brasl	%r14,DUMP.6958
		.LVL446:
  426 %end
				lgr	%r0,%r11
				lgr	%r3,%r9
				lghi	%r2,3
				brasl	%r14,LABELREF.6984
		.LVL442:
		.L401:
		.L395:
  427
				lg	%r4,272(%r15)
				lmg	%r9,%r15,232(%r15)
				br	%r4
		.L404:
  428 %routine immediate(%integer op,val)
		.LVL14:
				stmg	%r6,%r15,48(%r15)
				lay	%r15,-1480(%r15)
				lgr	%r11,%r2
				ear	%r1,%a0
				sllg	%r1,%r1,32
				ear	%r1,%a1
				mvc	1472(8,%r15),40(%r1)
		.LVL15:
		.LDL3:
  429 %switch s(load:right)
  430   ->s(op)
  431 s(load): dump(16_b8); ->imm
  432 s(add):  dump(16_05); ->imm
  433 s(sub):  dump(16_2d); ->imm
  434 s(and):  dump(16_25); ->imm
  435 s(or):   dump(16_0d); ->imm
  436 s(xor):  dump(16_35); ->imm
  437 s(cmp):  dump(16_3d)
  438 imm: dump(val); dump(val>>8); %return
  439 s(left):
  440 s(right):
  441   %if val=1 %start
  442     val=16_d1
  443   %else
  444     dump(16_b1); dump(val&15);  !Mov CL,nn
  445     val=16_d3
  446   %finish
  447   dump(val)
  448   %if op=left %then dump(16_e0) %else dump(16_e8)
  449   %return
  450 s(mul):s(div):s(rem):
  451   dump(16_b9); dump(val); dump(val>>8);  !Mov CX,nn
  452   dump(16_99) %unless op=mul;            !Cwd
  453   dump(16_f7)
  454   %if op=mul %then dump(16_e9) %else dump(16_f9)
  455   %returnunless op=rem
  456   dump(16_8b); dump(16_c2);  !Mov ax,dx
  457 %end
  458
  459 %routine direct(%integer op,type,val,index)
		.LVL353:
				stmg	%r6,%r15,48(%r15)
				lay	%r15,-160(%r15)
				lgr	%r10,%r2
				lgr	%r8,%r4
				lgr	%r11,%r0
  460 %ownintegerarray code(load:lea)=
				ahik	%r1,%r2,-1
				clijle	%r1,11,.L38
				lgrl	%r1,_imp_current_file@GOTENT
				ltg	%r3,0(%r1)
		.LVL16:
				je	.L39
				la	%r2,960(%r15)
		.LVL17:
				brasl	%r14,_imp_c2istr@PLT
		.LVL18:
		.L40:
				lgrl	%r1,_imp_current_line@GOTENT
				lt	%r3,0(%r1)
				ltr	%r3,%r3
				lhi	%r1,460
				locrne	%r1,%r3
				lr	%r3,%r1
				mvc	192(256,%r15),960(%r15)
				mvghi	184(%r15),430
				larl	%r1,.LC9
				stg	%r1,176(%r15)
				stg	%r11,168(%r15)
				larl	%r1,.LC10
				stg	%r1,160(%r15)
				lgr	%r6,%r11
				lghi	%r5,3
				lghi	%r4,6
				lgfr	%r3,%r3
				la	%r2,192(%r15)
				brasl	%r14,_signal_eventf@PLT
		.LVL19:
		.L38:
		.L42:
				larl	%r1,.LC5
				mvc	1216(256,%r15),0(%r1)
				mvc	448(256,%r15),1216(%r15)
		.LBE224:
				mvc	960(256,%r15),448(%r15)
				j	.L40
		.LVL23:
		.L43:
		.LBB225:
  461   16_8a, 16_02, 16_2a, 16_22, 16_0a,
  462   16_32, 16_3a, 16_28, 16_38, 16_30,
  463   16_e0, 16_e8, 16_88, 16_8d
				lgrl	%r1,_imp_current_file@GOTENT
				ltg	%r3,0(%r1)
				je	.L43
				la	%r2,1216(%r15)
				brasl	%r14,_imp_c2istr@PLT
		.LVL20:
		.L44:
				lgrl	%r1,_imp_current_line@GOTENT
				lt	%r3,0(%r1)
				ltr	%r3,%r3
				lhi	%r1,463
				locrne	%r1,%r3
				lr	%r3,%r1
				mvc	192(256,%r15),1216(%r15)
				mvghi	184(%r15),430
				larl	%r1,.LC9
				stg	%r1,176(%r15)
				stg	%r11,168(%r15)
				larl	%r1,.LC11
				stg	%r1,160(%r15)
				lgr	%r6,%r11
				lghi	%r5,2
				lghi	%r4,8
				lgfr	%r3,%r3
				la	%r2,192(%r15)
				brasl	%r14,_signal_eventf@PLT
		.LVL21:
				larl	%r1,.LC5
				mvc	1216(256,%r15),0(%r1)
				mvc	704(256,%r15),1216(%r15)
		.LBE225:
				mvc	1216(256,%r15),704(%r15)
				j	.L44
		.L50:
  464 %integer oper,extra
				ear	%r1,%a0
				sllg	%r1,%r1,32
				ear	%r1,%a1
				clc	1472(8,%r15),40(%r1)
				jne	.L50
				lg	%r4,1592(%r15)
				lmg	%r6,%r15,1528(%r15)
				br	%r4
		.LVL22:
		.L39:
		.LBB224:
				brasl	%r14,__stack_chk_fail@PLT
		.LVL24:
		.LFE207:
				.align	8
		PHEX.6752:
		.LFB188:
  465   immediate(op,val) %andreturnif type=constant
				cije	%r3,1,.L365
		.L336:
				lgr	%r9,%r3
				lgr	%r6,%r5
  466   oper=code(op)
				ahik	%r1,%r2,-1
				lgfr	%r1,%r1
				sllg	%r1,%r1,2
				larl	%r2,CODE.7053
		.LVL354:
				l	%r7,0(%r1,%r2)
		.LVL355:
				lr	%r2,%r7
				lgr	%r3,%r4
		.LVL359:
				brasl	%r14,IMMEDIATE.7014
		.LVL360:
  467   ->shift %if op=left %or op=right
				ahik	%r1,%r10,-11
				clijle	%r1,1,.L352
		.L339:
		.LVL356:
				j	.L335
		.LVL361:
		.L366:
		.L342:
  468   extra=0; extra=oper %and oper=16_f6 %if op=mul
				lhi	%r7,0
		.LVL357:
				j	.L340
		.LVL358:
		.L365:
  469   %if op=div %or op=rem %start
				cije	%r10,8,.L358
		.L341:
				ahik	%r1,%r10,-9
				clijle	%r1,1,.L366
  470     %if type&wordbit#0 %then dump(16_99) %else dump(16_98)
  471     extra=oper; oper=16_f6
				lghi	%r2,153
				brasl	%r14,DUMP.6958
		.LVL362:
		.LDL13:
				lhi	%r2,246
				j	.L340
		.LVL369:
		.L367:
  472   %finish
				lhi	%r2,246
		.LVL363:
		.L340:
		.LDL14:
  473   oper=oper+1 %if type&wordbit#0
  474   dump(oper)
				ahi	%r2,1
		.LVL364:
				lgr	%r0,%r11
				lgfr	%r2,%r2
				brasl	%r14,DUMP.6958
		.LVL365:
  475   %if type=bx %then dump(16_c3+extra) %andreturn
				cije	%r9,17,.L367
		.L343:
  476   %if type=unknown %start
				cgije	%r9,0,.L368
		.L344:
				ahik	%r2,%r7,195
				lgr	%r0,%r11
				lgfr	%r2,%r2
				brasl	%r14,DUMP.6958
		.LVL370:
  477     tagtype(val)=var+wordbit
				j	.L335
		.L368:
				sllg	%r1,%r8,2
				agr	%r1,%r11
				mvhi	1004(%r1),5
  478     tagval(val)=-2
				mvhi	204(%r1),-2
  479     fault(varund)
				lgr	%r0,%r11
				lghi	%r2,12
				brasl	%r14,FAULT.6724
		.LVL371:
  480   %finish
  481   fault(form) %unless type&varmask=var
  482   %if type&glabit=0 %start
				lgr	%r0,%r11
				lghi	%r2,5
				brasl	%r14,FAULT.6724
		.LVL366:
		.LDL15:
				tmll	%r9,1
				je	.L345
		.L346:
				lgr	%r0,%r11
				lghi	%r2,5
				brasl	%r14,FAULT.6724
		.LVL372:
		.L345:
		.LBB326:
  483     %if -128<=val<=127 %then oper=16_42 %else oper=16_82
  484     oper=oper+4 %if index=0
				cgijlh	%r6,0,.L349
		.L347:
  485   %else
				ahi	%r2,4
		.LVL374:
		.L349:
  486     %if index=0 %start
				cgije	%r6,0,.L361
		.L351:
		.LVL367:
		.LBB325:
  487       oper=6
				lhi	%r2,6
		.L350:
		.LVL394:
  488     %finishelseif -128<=val<=127 %start
				ahik	%r1,%r8,128
		.LBE326:
  489       oper=16_44
  490     %else
  491       oper=16_84
				clfi	%r1,256
				lhi	%r2,68
				lhi	%r1,132
				locrhe	%r2,%r1
				j	.L350
		.LVL368:
		.L358:
  492     %finish
  493   %finish
				clfi	%r1,256
				lhi	%r2,66
				lhi	%r1,130
				locrhe	%r2,%r1
		.L348:
		.LVL373:
  494   dump(oper+extra); dump(val)
				ar	%r2,%r7
		.LVL375:
				lgr	%r0,%r11
				lgfr	%r2,%r2
				brasl	%r14,DUMP.6958
		.LVL376:
				ar	%r2,%r7
		.LVL395:
				lgr	%r0,%r11
				lgfr	%r2,%r2
				brasl	%r14,DUMP.6958
		.LVL396:
  495   dump(val>>8) %if oper&16_40=0
				ahik	%r1,%r8,128
		.LBE325:
				lgr	%r0,%r11
				lgr	%r2,%r8
				brasl	%r14,DUMP.6958
		.LVL377:
				lgr	%r0,%r11
				lgr	%r2,%r8
				brasl	%r14,DUMP.6958
		.LVL397:
  496   dump(16_8B) %and dump(16_C2) %if op=rem
				lgr	%r0,%r11
				risbgn	%r2,%r8,64-24,128+63,32+24
				brasl	%r14,DUMP.6958
		.LVL378:
				cije	%r10,10,.L357
				lgr	%r0,%r11
				risbgn	%r2,%r8,64-24,128+63,32+24
				brasl	%r14,DUMP.6958
		.LVL398:
				cije	%r10,10,.L357
		.LVL399:
		.L335:
  497   %if type&wordbit=0 %and op=load %then dump(16_32) %and dump(16_e4)
				lgr	%r0,%r11
				lghi	%r2,139
				brasl	%r14,DUMP.6958
		.LVL382:
  498   %return
				cijlh	%r10,1,.L335
				lgr	%r0,%r11
				lghi	%r2,194
				brasl	%r14,DUMP.6958
		.LVL383:
				j	.L335
		.L338:
		.LVL384:
		.L352:
  499 shift: dump(pushax)
				lgr	%r0,%r11
				lghi	%r2,50
				brasl	%r14,DUMP.6958
		.LVL379:
  500   direct(load,type,val,index); dump(16_89); dump(16_c1); !Mov Cx,Ax
				lgr	%r0,%r11
				lghi	%r2,228
				brasl	%r14,DUMP.6958
		.LVL380:
				j	.L335
		.LVL381:
		.L357:
				lghi	%r2,80
				brasl	%r14,DUMP.6958
		.LVL385:
				lgr	%r0,%r11
				lgr	%r5,%r6
				lgr	%r4,%r8
				lgr	%r3,%r9
				lghi	%r2,1
				brasl	%r14,DIRECT.7051
		.LVL386:
  501   dump(popax)
				lgr	%r0,%r11
				lghi	%r2,137
				brasl	%r14,DUMP.6958
		.LVL387:
				lgr	%r0,%r11
				lghi	%r2,88
				brasl	%r14,DUMP.6958
		.LVL389:
  502   %if type&wordbit=0 %then dump(16_d2) %else dump(16_d3)
				lgr	%r0,%r11
				lghi	%r2,193
				brasl	%r14,DUMP.6958
		.LVL388:
				tmll	%r9,1
				jne	.L353
  503   dump(oper)
				lgr	%r0,%r11
				lghi	%r2,210
				brasl	%r14,DUMP.6958
		.LVL390:
		.L354:
				lgr	%r0,%r11
				lgfr	%r2,%r7
				brasl	%r14,DUMP.6958
		.LVL391:
		.L337:
  504 %end
				j	.L335
		.L353:
  505
				lg	%r4,272(%r15)
				lmg	%r6,%r15,208(%r15)
				br	%r4
		.LFE208:
				.align	8
		EXPR.7000:
		.LFB210:
  506 %routine double(%integer t); ! index for word arrays
		.LVL335:
				stmg	%r11,%r15,88(%r15)
				lay	%r15,-160(%r15)
				lgr	%r11,%r0
		.L321:
				lgr	%r0,%r11
				lghi	%r2,211
				brasl	%r14,DUMP.6958
		.LVL392:
				j	.L354
		.LVL393:
		.L361:
  507   %returnif t&wordbit=0
				tml	%r2,1
				ber	%r14
  508   dump(16_03); dump(16_c0); !Add ax,ax
				lghi	%r2,3
		.LVL336:
				brasl	%r14,DUMP.6958
		.LVL337:
  509 %end
				lgr	%r0,%r11
				lghi	%r2,192
				brasl	%r14,DUMP.6958
		.LVL338:
  510
				lg	%r1,272(%r15)
				lmg	%r11,%r15,248(%r15)
				br	%r1
		.LFE209:
				.align	8
		LABELREF.6984:
		.LFB203:
  511 %routine expr
				stmg	%r7,%r15,56(%r15)
				lay	%r15,-160(%r15)
				lgr	%r11,%r0
		.LVL400:
  512 %integer oper,t,v,index
  513   oper=load
				lhi	%r8,1
  514   %cycle
  515     nextatom; unary
				lgr	%r0,%r11
				brasl	%r14,NEXTATOM.6870
		.LVL405:
  516     %if type=constant %start
				lgr	%r0,%r11
				brasl	%r14,UNARY.6889
		.LVL406:
				l	%r10,204(%r11)
				cije	%r10,1,.L388
		.L372:
  517       atompos=atompos-1 %and val=cexpr(0) %if oper=load
				cije	%r8,1,.L387
		.L373:
  518       immediate(oper,val)
				lgr	%r0,%r11
				lgf	%r3,200(%r11)
				lgfr	%r2,%r8
				brasl	%r14,IMMEDIATE.7014
		.LVL402:
		.L374:
		.L383:
				asi	3824(%r11),-1
  519     %finishelseif type&varmask=var %start
				lgr	%r0,%r11
				lghi	%r2,0
				brasl	%r14,CEXPR.6891
		.LVL408:
				st	%r2,200(%r11)
				j	.L373
		.L389:
		.LVL409:
  520       t=type; v=val
  521       %if open bracket %start
				tmll	%r10,1
				je	.L389
		.L375:
				l	%r7,200(%r11)
		.LVL410:
				lgr	%r0,%r11
				brasl	%r14,OPENBRACKET.6874
		.LVL411:
				lr	%r5,%r2
				cijlh	%r2,0,.L391
		.L376:
		.L379:
		.LVL412:
  522         dump(pushax) %unless oper=load
				cijlh	%r8,1,.L392
  523         expr; double(t)
				lgr	%r0,%r11
				brasl	%r14,EXPR.7000
		.LVL414:
				lgr	%r0,%r11
				lghi	%r2,80
				brasl	%r14,DUMP.6958
		.LVL420:
				lgr	%r0,%r11
				brasl	%r14,EXPR.7000
		.LVL421:
  524         dump(16_8b); dump(16_f0);  !Mov si,ax
				lgr	%r0,%r11
				lgfr	%r2,%r10
				brasl	%r14,DOUBLE.7085
		.LVL415:
				lgr	%r0,%r11
				lghi	%r2,139
				brasl	%r14,DUMP.6958
		.LVL416:
				lgr	%r0,%r11
				lgfr	%r2,%r10
				brasl	%r14,DOUBLE.7085
		.LVL422:
				lgr	%r0,%r11
				lghi	%r2,139
				brasl	%r14,DUMP.6958
		.LVL423:
  525         dump(popax) %unless oper=load
				lgr	%r0,%r11
				lghi	%r2,240
				brasl	%r14,DUMP.6958
		.LVL417:
		.L378:
				lgr	%r0,%r11
				lghi	%r2,240
				brasl	%r14,DUMP.6958
		.LVL424:
  526         close bracket
				lgr	%r0,%r11
				brasl	%r14,CLOSEBRACKET.6879
		.LVL418:
				lgr	%r0,%r11
				lghi	%r2,88
				brasl	%r14,DUMP.6958
		.LVL425:
				j	.L378
		.LVL426:
		.L390:
		.L381:
  527         index=1
				lhi	%r9,1
				j	.L371
		.LVL401:
		.L388:
				lr	%r5,%r9
  528       %finishelse index=0
				j	.L379
		.LVL419:
		.L392:
  529       direct(oper,t,v,index)
				lgr	%r0,%r11
				lgfr	%r5,%r5
				lgfr	%r4,%r7
				lgfr	%r3,%r10
				lgfr	%r2,%r8
				brasl	%r14,DIRECT.7051
		.LVL413:
  530     %finishelseif type=proc %or type=xproc %or type=spec %start
				j	.L383
		.L391:
  531       %if oper=load %start
				cije	%r8,1,.L393
		.L382:
  532         call(type,val)
				ahik	%r1,%r10,-8
				clijle	%r1,2,.L390
		.L380:
				lgr	%r0,%r11
				lgf	%r3,200(%r11)
				lgfr	%r2,%r10
				brasl	%r14,CALL.7003
		.LVL433:
  533       %else
				j	.L383
		.L370:
  534         dump(pushax); call(type,val); dump(16_8b); dump(16_d8);!mov bx,ax
				lgr	%r0,%r11
				lghi	%r2,80
				brasl	%r14,DUMP.6958
		.LVL427:
  535         dump(popax); direct(oper,bx,0,0)
				lgr	%r0,%r11
				lgf	%r3,200(%r11)
				lgf	%r2,204(%r11)
				brasl	%r14,CALL.7003
		.LVL428:
				lgr	%r0,%r11
				lghi	%r2,88
				brasl	%r14,DUMP.6958
		.LVL431:
  536       %finish
				lgr	%r0,%r11
				lghi	%r2,139
				brasl	%r14,DUMP.6958
		.LVL429:
				lgr	%r0,%r11
				lghi	%r5,0
				lghi	%r4,0
				lghi	%r3,17
				lgfr	%r2,%r8
				brasl	%r14,DIRECT.7051
		.LVL432:
				j	.L383
		.L393:
  537     %else
				lgr	%r0,%r11
				lghi	%r2,216
				brasl	%r14,DUMP.6958
		.LVL430:
  538       fault(form)
				lgr	%r0,%r11
				lghi	%r2,5
				brasl	%r14,FAULT.6724
		.LVL407:
				j	.L383
		.L387:
  539     %finish
  540     %returnunless atomtype(atompos)=op
				l	%r1,3824(%r11)
				ahi	%r1,-1
				lgfr	%r1,%r1
				aghi	%r1,906
				sllg	%r1,%r1,2
				l	%r1,0(%r1,%r11)
				chi	%r1,11
				jne	.L370
		.L385:
  541     nextatom
				lgr	%r0,%r11
				brasl	%r14,NEXTATOM.6870
		.LVL403:
  542     oper=val
				l	%r8,200(%r11)
		.LVL404:
		.L371:
  543   %repeat
  544 %end
				lg	%r4,272(%r15)
				lmg	%r7,%r15,216(%r15)
		.LVL434:
				br	%r4
		.LFE210:
				.align	8
		CALL.7003:
		.LFB206:
  545
  546 %routine return
				stmg	%r11,%r15,88(%r15)
				lay	%r15,-160(%r15)
				lgr	%r11,%r0
  547   dump(16_8b); dump(16_e5); !Mov sp,bp
				lghi	%r2,139
				brasl	%r14,DUMP.6958
		.LVL327:
  548   dump(16_5d); dump(16_1f); !Pop bp, pop ds
				lgr	%r0,%r11
				lghi	%r2,229
				brasl	%r14,DUMP.6958
		.LVL328:
				lgr	%r0,%r11
				lghi	%r2,93
				brasl	%r14,DUMP.6958
		.LVL329:
  549   %if parms=0 %then dump(16_cb) %elsestart
				lgr	%r0,%r11
				lghi	%r2,31
				brasl	%r14,DUMP.6958
		.LVL330:
				lt	%r1,24(%r11)
				je	.L317
		.L314:
  550     dump(16_ca)
				lgr	%r0,%r11
				lghi	%r2,202
				brasl	%r14,DUMP.6958
		.LVL331:
				lgr	%r0,%r11
				lghi	%r2,203
				brasl	%r14,DUMP.6958
		.LVL334:
  551     dump(parms); dump(parms>>8)
				lgr	%r0,%r11
				lgf	%r2,24(%r11)
				brasl	%r14,DUMP.6958
		.LVL332:
				j	.L315
		.LFE211:
				.align	8
		DOUBLE.7085:
		.LFB209:
  552   %finish
				l	%r2,24(%r11)
				lgr	%r0,%r11
				risbgn	%r2,%r2,64-24,128+63,32+24
				brasl	%r14,DUMP.6958
		.LVL333:
		.L315:
  553   access=0
				mvhi	20(%r11),0
  554 %end
  555
				lg	%r3,272(%r15)
				lmg	%r11,%r15,248(%r15)
				br	%r3
		.L317:
  556 %routine terminate declarations
  557 %integer i
  558   fault(level0) %if level=0
				lt	%r1,9168(%r15)
				je	.L579
		.L544:
  559   %if level=1 %start
				ly	%r1,9168(%r15)
				chi	%r1,1
				je	.L580
		.L545:
		.LBE469:
		.LBE468:
				lgdr	%r0,%f8
				lghi	%r2,11
				brasl	%r14,FAULT.6724
		.LVL734:
				j	.L544
		.L580:
  560     level=2; i=-floc
				lay	%r1,9168(%r15)
				mvhi	0(%r1),2
  561     %if i>127 %start
				ly	%r11,9164(%r15)
				lcr	%r11,%r11
		.LVL735:
				cijle	%r11,127,.L546
  562       dump(16_81); dump(16_ec); dump(i); dump(i>>8); !Sub sp,nn
				lgdr	%r0,%f8
				lghi	%r2,129
				brasl	%r14,DUMP.6958
		.LVL736:
  563     %finishelseunless i=0 %start
				lgdr	%r0,%f8
				lghi	%r2,236
				brasl	%r14,DUMP.6958
		.LVL737:
  564       dump(16_83); dump(16_ec); dump(i); !sub sp,n
				lgdr	%r0,%f8
				lgfr	%r2,%r11
				brasl	%r14,DUMP.6958
		.LVL738:
				lgdr	%r0,%f8
				lghi	%r2,131
				brasl	%r14,DUMP.6958
		.LVL740:
  565     %finish
				lgdr	%r0,%f8
				risbgn	%r2,%r11,64-24,128+63,32+24
				brasl	%r14,DUMP.6958
		.LVL739:
		.L547:
		.L548:
				cije	%r11,0,.L548
				lgdr	%r0,%f8
				lghi	%r2,236
				brasl	%r14,DUMP.6958
		.LVL741:
  566     floc=floc-2
				asi	9164(%r15),-2
				j	.L545
		.L546:
				lgdr	%r0,%f8
				lgfr	%r2,%r11
				brasl	%r14,DUMP.6958
		.LVL742:
				j	.L548
		.LVL743:
		.L581:
		.LBE470:
		.LBE539:
  567   %finish
  568 %end
  569
  570 %routine constdef
  571 %integer c
  572   %cycle
  573     nextatom; %returnif type=sep
				lgdr	%r0,%f8
				brasl	%r14,NEXTATOM.6870
		.LVL580:
  574     fault(ambig) %unless type=unknown; c=val
				ly	%r1,9356(%r15)
				cije	%r1,14,.L554
		.L475:
				cijlh	%r1,0,.L582
		.L476:
  575     fault(form) %unless equal sign
				lgdr	%r0,%f8
				lghi	%r2,6
				brasl	%r14,FAULT.6724
		.LVL575:
				j	.L476
		.LVL576:
		.L477:
				lgdr	%r0,%f8
				brasl	%r14,EQUALSIGN.6884
		.LVL582:
				cijlh	%r2,0,.L477
  576     tagtype(c)=constant; tagval(c)=cexpr(1)
				ahi	%r11,-1
		.LVL577:
				lgfr	%r1,%r11
				aghi	%r1,252
				sllg	%r1,%r1,2
				lay	%r1,9152(%r1,%r15)
				mvhi	0(%r1),1
				lgdr	%r0,%f8
				lghi	%r2,5
				brasl	%r14,FAULT.6724
		.LVL583:
				j	.L477
		.LVL584:
		.L584:
		.LBE489:
		.LBE488:
		.LBB490:
		.LBB487:
  577   %repeat
				lgdr	%r0,%f8
				lghi	%r2,1
				brasl	%r14,CEXPR.6891
		.LVL578:
				lgfr	%r11,%r11
				aghik	%r1,%r11,52
				sllg	%r1,%r1,2
				sty	%r2,9152(%r1,%r15)
		.LVL579:
		.L473:
				ly	%r11,9352(%r15)
		.LVL581:
  578 %end
  579
  580 %routine vardef(%integer key)
  581 %integer t,lb,ub,c,r
  582 %integername v
  583   %cycle
  584     nextatom
				lgdr	%r0,%f8
				brasl	%r14,NEXTATOM.6870
		.LVL635:
				j	.L480
		.LVL636:
		.L591:
  585 next: %returnif type=sep
  586     fault(ambig) %unless type=unknown
				ly	%r1,9356(%r15)
				cije	%r1,14,.L554
		.L481:
				cijlh	%r1,0,.L584
		.L482:
		.LDL21:
  587     t=var
				lgdr	%r0,%f8
				lghi	%r2,6
				brasl	%r14,FAULT.6724
		.LVL585:
				j	.L482
		.L557:
  588     t=t+wordbit %if key=kword
  589     t=t+glabit %if level=0
				lr	%r13,%r1
				lr	%r2,%r13
				j	.L483
		.LVL586:
		.L585:
				lt	%r1,9168(%r15)
				jne	.L557
  590     tagtype(val)=t; v==tagval(val)
				ahi	%r1,2
				st	%r1,164(%r15)
				j	.L479
		.L582:
		.LBE472:
		.LBE471:
		.LBB488:
		.LBB489:
				l	%r2,164(%r15)
		.L483:
		.LVL600:
				ly	%r1,9352(%r15)
				ahik	%r11,%r1,-1
				lgfr	%r1,%r11
				aghi	%r1,252
				sllg	%r1,%r1,2
				sty	%r2,9152(%r1,%r15)
		.LVL601:
  591     %if open bracket %start
				lgdr	%r0,%f8
				brasl	%r14,OPENBRACKET.6874
		.LVL602:
				lr	%r10,%r2
				cijlh	%r2,0,.L585
  592       lb=cexpr(1); nextatom; fault(form) %unless type=colon
				lgdr	%r0,%f8
				lghi	%r2,1
				brasl	%r14,CEXPR.6891
		.LVL587:
				lr	%r10,%r2
		.LVL588:
  593       ub=cexpr(1)+1; close bracket
				lgdr	%r0,%f8
				brasl	%r14,NEXTATOM.6870
		.LVL589:
				lgdr	%r0,%f8
				lghi	%r2,1
				brasl	%r14,CEXPR.6891
		.LVL590:
				ahik	%r7,%r2,1
		.LVL591:
  594     %finishelse lb=0 %and ub=1
				ly	%r1,9356(%r15)
				chi	%r1,13
				jne	.L583
		.L485:
				lgdr	%r0,%f8
				brasl	%r14,CLOSEBRACKET.6879
		.LVL592:
				j	.L486
		.LVL593:
		.L583:
  595     lb=lb+lb %and ub=ub+ub %if key=kword
				lgdr	%r0,%f8
				lghi	%r2,5
				brasl	%r14,FAULT.6724
		.LVL594:
				j	.L485
		.LVL595:
		.L586:
				cije	%r9,18,.L586
		.L487:
  596     %if level=0 %start
				sll	%r10,1
		.LVL596:
				lt	%r1,9168(%r15)
				jne	.L488
  597       v=gloc-lb; t=v+ub
				sll	%r7,1
		.LVL597:
				j	.L487
		.LVL598:
		.L587:
				lhi	%r7,1
		.L484:
		.L486:
		.LVL603:
				ly	%r8,12568(%r15)
				sr	%r8,%r10
				lgfr	%r11,%r11
				aghi	%r11,52
		.LVL604:
				sllg	%r11,%r11,2
		.LVL605:
				sty	%r8,9152(%r11,%r15)
  598       %if equal sign %start
				ar	%r8,%r7
		.LVL606:
				lgdr	%r0,%f8
				brasl	%r14,EQUALSIGN.6884
		.LVL607:
				cijlh	%r2,0,.L490
		.L489:
		.LVL608:
		.LBB473:
		.LBB474:
				lgrl	%r1,_imp_OutStream@GOTENT
				mvhi	0(%r1),1
				lgrl	%r1,_imp_OutFile@GOTENT
				lgrl	%r2,_imp_outfile@GOTENT
				lg	%r2,296(%r2)
				stg	%r2,0(%r1)
				larl	%r2,__PRETTY_FUNCTION__.6293
				brasl	%r14,check_outstream@PLT
		.LVL609:
		.LBE474:
		.LBE473:
		.LBB475:
		.LBB476:
				lghi	%r2,2
				brasl	%r14,_imp_printsymbol@PLT
		.LVL610:
		.LBE476:
		.LBE475:
		.LBB477:
		.LBB478:
				lghi	%r2,3
				brasl	%r14,_imp_printsymbol@PLT
		.LVL611:
		.LBE478:
		.LBE477:
		.LBB479:
		.LBB480:
				llgcr	%r2,%r8
				brasl	%r14,_imp_printsymbol@PLT
		.LVL612:
		.LBE480:
		.LBE479:
		.LBB481:
		.LBB482:
				risbgn	%r2,%r8,64-8,128+63,48+8
				brasl	%r14,_imp_printsymbol@PLT
		.LVL613:
		.LBE482:
		.LBE481:
  599         %cycle
  600           nextatom
				lgdr	%r0,%f8
				brasl	%r14,NEXTATOM.6870
		.LVL616:
  601           %if gloc>=t %start
				cy	%r8,12568(%r15)
				jle	.L587
		.L491:
  602             gflush; ->next
				lgdr	%r0,%f8
				brasl	%r14,GFLUSH.6938
		.LVL599:
		.L480:
  603           %finish
  604           %if type=string %start
				ly	%r1,9356(%r15)
				cije	%r1,2,.L588
		.L492:
  605             dumpstring(val)
				lgdr	%r0,%f8
				lgf	%r2,9352(%r15)
				brasl	%r14,DUMPSTRING.6950
		.LVL615:
		.L490:
  606           %finishelseif type=sep %start
  607             readline
				lgdr	%r0,%f8
				brasl	%r14,READLINE.6740
		.LVL617:
				j	.L490
		.L494:
  608           %finishelsestart
				cijlh	%r1,14,.L494
  609             atompos=atompos-1; c=Cexpr(1); r=1
				asi	12976(%r15),-1
  610             %if open bracket %start
				lgdr	%r0,%f8
				lghi	%r2,1
				brasl	%r14,CEXPR.6891
		.LVL618:
				lgr	%r7,%r2
				lr	%r10,%r2
		.LVL619:
				lgdr	%r0,%f8
				brasl	%r14,OPENBRACKET.6874
		.LVL620:
				cijlh	%r2,0,.L589
  611               r=cexpr(1); close bracket
				lhi	%r11,1
		.LVL621:
		.L495:
				lgdr	%r0,%f8
				lghi	%r2,1
				brasl	%r14,CEXPR.6891
		.LVL624:
				lgr	%r6,%r2
				lr	%r11,%r2
		.LVL625:
  612             %finish
				lgdr	%r0,%f8
				brasl	%r14,CLOSEBRACKET.6879
		.LVL626:
  613             %while r>0 %cycle
  614               r=r-1; %if key=kword %then gword(c) %else gbyte(c)
				cijh	%r6,0,.L495
				j	.L490
		.LVL627:
		.L590:
		.LBB486:
		.LBB485:
				brct	%r6,.L498
				j	.L490
		.LVL630:
		.L498:
				ahi	%r11,-1
		.LVL631:
  615             %repeat
				cije	%r9,18,.L590
		.L499:
  616           %finish
  617         %repeat
  618       %else
  619         selectoutput(object); printsymbol(2); printsymbol(3)
				lgfr	%r10,%r10
		.LBB483:
		.LBB484:
				lgdr	%r0,%f8
				lgr	%r2,%r10
				brasl	%r14,GBYTE.6931
		.LVL632:
				j	.L500
		.LVL633:
		.L488:
  620         printsymbol(t&255); printsymbol(t>>8&255); gloc=t
  621       %finish
  622     %else
				sty	%r8,12568(%r15)
				j	.L479
		.LVL614:
		.L588:
  623       fault(declate) %if level=2
				cije	%r1,2,.L591
		.L502:
  624       floc=floc-ub+lb; v=floc-lb
				ly	%r8,9164(%r15)
				sr	%r8,%r7
				ark	%r1,%r10,%r8
				sty	%r1,9164(%r15)
				lgdr	%r0,%f8
				lghi	%r2,8
				brasl	%r14,FAULT.6724
		.LVL637:
				j	.L502
		.LVL638:
		.L573:
		.L504:
		.LBE487:
		.LBE490:
		.LBB491:
		.LBB492:
  625     %finish
				lgfr	%r11,%r11
				aghik	%r1,%r11,52
				sllg	%r1,%r1,2
				sty	%r8,9152(%r1,%r15)
		.LVL634:
		.L479:
  626   %repeat
  627 %end
  628
  629 %routine procdef(%integer key)
				lay	%r1,17520(%r15)
				stg	%r1,9144(%r15)
				stdy	%f8,8872(%r15)
  630 %integer p,sym
  631 %string(31)s
  632
  633   %routine getstring
				stmg	%r7,%r15,56(%r15)
				lay	%r15,-1192(%r15)
				lgr	%r11,%r0
				ear	%r1,%a0
				sllg	%r1,%r1,32
				ear	%r1,%a1
				mvc	1184(8,%r15),40(%r1)
  634     s=""
  635     %cycle
  636       sym=line(val); %returnif sym='"'; val=val+1; s=s.tostring(sym)
				aghik	%r10,%r0,12
		.LVL8:
				lghi	%r4,31
				la	%r3,160(%r15)
				lgr	%r2,%r10
				brasl	%r14,_imp_strncpy@PLT
		.LVL9:
				lg	%r1,0(%r11)
				l	%r2,200(%r1)
				ahi	%r2,-1
				lgfr	%r2,%r2
				llc	%r2,8088(%r2,%r1)
				st	%r2,8(%r11)
				lg	%r1,0(%r11)
				l	%r2,200(%r1)
				ahi	%r2,-1
				lgfr	%r2,%r2
				llc	%r2,8088(%r2,%r1)
				st	%r2,8(%r11)
  637     %repeat
				cije	%r2,34,.L29
		.LBB220:
		.LBB221:
				cijlh	%r2,34,.L31
		.L29:
  638   %end
				ear	%r1,%a0
				sllg	%r1,%r1,32
				ear	%r1,%a1
				clc	1184(8,%r15),40(%r1)
				jne	.L35
				lg	%r5,1304(%r15)
				lmg	%r7,%r15,1248(%r15)
				br	%r5
		.L35:
				brasl	%r14,__stack_chk_fail@PLT
		.LVL13:
		.LFE216:
				.section	.rodata.str1.2,"aMS",@progbits,1
				.align	2
		.LC9:
				.string	"test-new/lc.imp"
				.align	2
		.LC10:
				.string	"->S(%d) out of bounds at %s line %d"
				.align	2
		.LC11:
				.string	"switch jump to undefined label S(%d): at %s line %d"
				.section	.rodata
				.align	2
		.LC5:
				.byte	15
				.string	"test-new/lc.imp"
				.zero	239
		.text
				.align	8
		IMMEDIATE.7014:
		.LFB207:
  639
  640   nextatom; fault(ambig) %unless type=unknown
				asi	200(%r1),1
		.LVL10:
		.LBB223:
		.LBB222:
				lgr	%r4,%r8
				lgr	%r3,%r10
				lgr	%r2,%r7
				brasl	%r14,_imp_join@PLT
		.LVL11:
		.LBE222:
		.LBE223:
				lghi	%r4,31
				lgr	%r3,%r9
				lgr	%r2,%r10
				brasl	%r14,_imp_strncpy@PLT
		.LVL12:
		.LDL2:
				lgdr	%r0,%f8
				brasl	%r14,NEXTATOM.6870
		.LVL639:
  641   %if key=kspec %start
				lt	%r1,9356(%r15)
				jne	.L592
		.L505:
				cije	%r9,20,.L593
		.L506:
  642     tagtype(val)=spec; tagval(val)=gloc
				lgdr	%r0,%f8
				lghi	%r2,6
				brasl	%r14,FAULT.6724
		.LVL648:
				j	.L505
		.L593:
				ly	%r1,9352(%r15)
				ahi	%r1,-1
				lgfr	%r1,%r1
				aghik	%r2,%r1,252
				sllg	%r2,%r2,2
				lay	%r2,9152(%r2,%r15)
				mvhi	0(%r2),10
  643     nextatom; fault(form) %unless type=string
				aghik	%r7,%r15,672
				aghik	%r8,%r15,928
		.LBE221:
		.LBE220:
				aghik	%r9,%r15,416
		.L31:
				aghi	%r1,52
				sllg	%r1,%r1,2
				ly	%r2,12568(%r15)
				sty	%r2,9152(%r1,%r15)
				lgdr	%r0,%f8
				brasl	%r14,NEXTATOM.6870
		.LVL649:
  644     getstring; p=length(s)
				ly	%r1,9356(%r15)
				chi	%r1,2
				je	.L507
				aghik	%r0,%r15,8872
				brasl	%r14,GETSTRING.7171
		.LVL651:
  645     selectoutput(object); printsymbol(2)
				lgdr	%r0,%f8
				lghi	%r2,5
				brasl	%r14,FAULT.6724
		.LVL650:
		.L507:
				llgc	%r11,8884(%r15)
		.LVL652:
		.LBB493:
		.LBB494:
				lgrl	%r1,_imp_OutStream@GOTENT
				mvhi	0(%r1),1
				lgrl	%r1,_imp_OutFile@GOTENT
				lgrl	%r2,_imp_outfile@GOTENT
				lg	%r2,296(%r2)
				stg	%r2,0(%r1)
				larl	%r2,__PRETTY_FUNCTION__.6293
				brasl	%r14,check_outstream@PLT
		.LVL653:
		.LBE494:
		.LBE493:
		.LBB495:
		.LBB496:
				lghi	%r2,2
				brasl	%r14,_imp_printsymbol@PLT
		.LVL654:
		.LBE496:
		.LBE495:
		.LBB497:
		.LBB498:
				lghi	%r2,8
				brasl	%r14,_imp_printsymbol@PLT
		.LVL655:
		.LBE498:
		.LBE497:
		.LBB499:
		.LBB500:
				lgr	%r2,%r11
				brasl	%r14,_imp_printsymbol@PLT
		.LVL656:
				lay	%r1,7592(%r15)
				lay	%r2,7848(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE500:
		.LBE499:
		.LBB501:
		.LBB502:
				mvc	168(256,%r15),0(%r1)
				aghik	%r2,%r15,168
				brasl	%r14,_imp_printstring@PLT
		.LVL657:
		.LBE502:
		.LBE501:
		.LBB503:
		.LBB504:
				lghi	%r2,7
				brasl	%r14,_imp_printsymbol@PLT
		.LVL658:
		.LBE504:
		.LBE503:
		.LBB505:
		.LBB506:
				lghi	%r2,0
				brasl	%r14,_imp_printsymbol@PLT
		.LVL659:
		.LBE506:
		.LBE505:
  646     printsymbol(8); printsymbol(p); printstring(s)
  647     printsymbol(7); printsymbol(0)
  648     gloc=gloc+4; %return
				asi	12568(%r15),4
				j	.L554
		.LVL660:
		.L594:
  649   %finish
  650   fault(nested) %unless level=0; level=1; access=1; textlevel=0
				lt	%r1,9168(%r15)
				jne	.L594
		.L508:
  651   v=val; t=proc; nextatom
				ly	%r1,9352(%r15)
				sty	%r1,9160(%r15)
				lgdr	%r0,%f8
				lghi	%r2,7
				brasl	%r14,FAULT.6724
		.LVL661:
				j	.L508
		.L595:
  652   %if type=string %start
				lay	%r1,9156(%r15)
				mvhi	0(%r1),8
				ly	%r1,9356(%r15)
				chi	%r1,2
				je	.L595
		.L509:
  653     getstring
				lay	%r1,9168(%r15)
				mvhi	0(%r1),1
				lgdr	%r0,%f8
				brasl	%r14,NEXTATOM.6870
		.LVL640:
				aghik	%r0,%r15,8872
				brasl	%r14,GETSTRING.7171
		.LVL662:
		.LBB507:
		.LBB508:
				lgrl	%r1,_imp_OutStream@GOTENT
				mvhi	0(%r1),1
				lgrl	%r1,_imp_OutFile@GOTENT
				lgrl	%r2,_imp_outfile@GOTENT
				lg	%r2,296(%r2)
				stg	%r2,0(%r1)
				larl	%r2,__PRETTY_FUNCTION__.6293
				brasl	%r14,check_outstream@PLT
		.LVL663:
		.LBE508:
		.LBE507:
		.LBB509:
		.LBB510:
				lghi	%r2,1
				brasl	%r14,_imp_printsymbol@PLT
		.LVL664:
		.LBE510:
		.LBE509:
		.LBB511:
		.LBB512:
				lghi	%r2,6
				brasl	%r14,_imp_printsymbol@PLT
		.LVL665:
		.LBE512:
		.LBE511:
		.LBB513:
		.LBB514:
				llgc	%r2,8884(%r15)
				brasl	%r14,_imp_printsymbol@PLT
		.LVL666:
				lay	%r1,7336(%r15)
				lay	%r2,8104(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE514:
		.LBE513:
		.LBB515:
		.LBB516:
				mvc	168(256,%r15),0(%r1)
				aghik	%r2,%r15,168
				brasl	%r14,_imp_printstring@PLT
		.LVL667:
		.LBE516:
		.LBE515:
  654     selectoutput(object); printsymbol(1); printsymbol(6)
				lay	%r1,9172(%r15)
				mvhi	0(%r1),1
  655     printsymbol(length(s)); printstring(s)
				lay	%r1,9340(%r15)
				mvhi	0(%r1),0
  656     t=xproc; nextatom
				lay	%r1,9156(%r15)
				mvhi	0(%r1),9
  657   %finish
				lgdr	%r0,%f8
				brasl	%r14,NEXTATOM.6870
		.LVL668:
				j	.L509
		.L596:
  658   tagtype(v)=t; tagval(v)=cloc
				ly	%r1,9160(%r15)
				ahi	%r1,-1
				lgfr	%r1,%r1
				aghik	%r2,%r1,252
				sllg	%r2,%r2,2
				ly	%r3,9156(%r15)
				sty	%r3,9152(%r2,%r15)
  659   dump(16_1e); dump(16_55); !Push ds, push bp
				aghi	%r1,52
				sllg	%r1,%r1,2
				ly	%r2,12572(%r15)
				sty	%r2,9152(%r1,%r15)
				lgdr	%r0,%f8
				lghi	%r2,30
				brasl	%r14,DUMP.6958
		.LVL641:
  660   dump(16_8b); dump(16_ec); !Mov BP,SP
				lgdr	%r0,%f8
				lghi	%r2,85
				brasl	%r14,DUMP.6958
		.LVL642:
				lgdr	%r0,%f8
				lghi	%r2,139
				brasl	%r14,DUMP.6958
		.LVL643:
  661   dump(16_33); dump(16_C0); !Xor AX,AX
				lgdr	%r0,%f8
				lghi	%r2,236
				brasl	%r14,DUMP.6958
		.LVL644:
				lgdr	%r0,%f8
				lghi	%r2,51
				brasl	%r14,DUMP.6958
		.LVL645:
  662   dump(pushax);             !For event mechanism
				lgdr	%r0,%f8
				lghi	%r2,192
				brasl	%r14,DUMP.6958
		.LVL646:
				lgdr	%r0,%f8
				lghi	%r2,80
				brasl	%r14,DUMP.6958
		.LVL647:
  663   %if t=xproc %start
				ly	%r1,9156(%r15)
				chi	%r1,9
				je	.L596
		.L510:
  664     fault(labund) %if program=""
  665     dump(16_b8); flush; !Mov ax,nn=dseg
				lgdr	%r0,%f8
				lghi	%r2,184
				brasl	%r14,DUMP.6958
		.LVL670:
  666     printsymbol(7); printsymbol(length(program)); printstring(program)
				aghik	%r3,%r15,8360
				lgdr	%r2,%f10
				brasl	%r14,_imp_strcmp@PLT
		.LVL669:
				cije	%r2,0,.L597
		.L511:
				lgdr	%r0,%f8
				brasl	%r14,FLUSH.6962
		.LVL671:
		.LBB517:
		.LBB518:
				lghi	%r2,7
				brasl	%r14,_imp_printsymbol@PLT
		.LVL672:
		.LBE518:
		.LBE517:
		.LBB519:
		.LBB520:
				llgc	%r2,12984(%r15)
				brasl	%r14,_imp_printsymbol@PLT
		.LVL673:
				lay	%r1,7080(%r15)
				lay	%r2,8616(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE520:
		.LBE519:
		.LBB521:
		.LBB522:
				mvc	168(256,%r15),0(%r1)
				aghik	%r2,%r15,168
				brasl	%r14,_imp_printstring@PLT
		.LVL674:
		.LBE522:
		.LBE521:
  667     cloc=cloc+2; dump(16_8E); dump(16_D8); !Mov ds,ax
				asi	12572(%r15),2
  668   %finish
				lgdr	%r0,%f8
				lghi	%r2,142
				brasl	%r14,DUMP.6958
		.LVL675:
  669   parms=0; oldtpos=v+1
				lay	%r1,9176(%r15)
				mvhi	0(%r1),0
				lgdr	%r0,%f8
				lghi	%r2,216
				brasl	%r14,DUMP.6958
		.LVL676:
				j	.L510
		.L597:
				lgdr	%r0,%f8
				lghi	%r2,10
				brasl	%r14,FAULT.6724
		.LVL677:
				j	.L511
		.L514:
  670   %while type#sep %cycle
				ly	%r1,9160(%r15)
				ahi	%r1,1
				sty	%r1,9152(%r15)
				j	.L512
		.L592:
  671     fault(ambig) %unless type=unknown
				ly	%r1,9356(%r15)
				cije	%r1,14,.L513
				cije	%r1,0,.L514
  672     tagtype(val)=var+wordbit
				ly	%r1,9352(%r15)
				ahi	%r1,-1
				lgfr	%r1,%r1
				aghi	%r1,252
				sllg	%r1,%r1,2
				lay	%r1,9152(%r1,%r15)
				mvhi	0(%r1),5
				lgdr	%r0,%f8
				lghi	%r2,6
				brasl	%r14,FAULT.6724
		.LVL679:
				j	.L514
		.L513:
  673     parms=parms+1; nextatom
				asi	9176(%r15),1
  674   %repeat
				lgdr	%r0,%f8
				brasl	%r14,NEXTATOM.6870
		.LVL678:
		.L512:
  675   p=tagpos-parms; parms=parms+parms; sym=parms+6
				ly	%r11,12560(%r15)
				ly	%r5,9176(%r15)
		.LVL680:
  676   %while p<tagpos %cycle
				sllk	%r2,%r5,1
				sty	%r2,9176(%r15)
  677     tagval(p)=sym; sym=sym-2; p=p+1
				ahi	%r2,6
				sty	%r2,8880(%r15)
				lhi	%r1,0
				lhi	%r0,1
				srk	%r4,%r11,%r5
		.LVL681:
				ahik	%r3,%r5,1
				crjh	%r4,%r11,.L564
				llilh	%r5,32768
				crje	%r11,%r5,.L564
		.LVL682:
		.L515:
				lr	%r5,%r2
		.LVL683:
				ahi	%r2,-2
				brct	%r3,.L563
				j	.L598
		.L563:
				ahik	%r1,%r4,-1
				lgfr	%r1,%r1
				aghi	%r1,52
				sllg	%r1,%r1,2
				sty	%r5,9152(%r1,%r15)
  678   %repeat
  679   floc=0
				ahi	%r4,1
		.LVL684:
				lr	%r1,%r0
				j	.L515
		.L564:
				lhi	%r3,1
				j	.L515
		.L598:
		.L516:
				llcr	%r1,%r1
				cijlh	%r1,0,.L599
		.L517:
				lay	%r1,9164(%r15)
				mvhi	0(%r1),0
		.L474:
		.LVL685:
		.L554:
		.LBE492:
		.LBE491:
  680 %end
  681
  682 %routine instruction
				stmg	%r6,%r15,48(%r15)
				lgr	%r14,%r15
				lay	%r15,-168(%r15)
				aghi	%r14,-8
				std	%f8,0(%r14)
				lgr	%r11,%r0
  683 %integer t,v,i,oper,st,sv,si,dt,dv
  684   nextatom
				brasl	%r14,NEXTATOM.6870
		.LVL458:
  685   %if type=kmove %start
				l	%r10,204(%r11)
				cijlh	%r10,23,.L431
  686     nextatom; oper=16_a4; !Movb
				lgr	%r0,%r11
				brasl	%r14,NEXTATOM.6870
		.LVL459:
  687     %if type=string %start
				l	%r1,204(%r11)
				chi	%r1,2
				jne	.L432
		.LVL460:
				lhi	%r9,164
				j	.L433
		.LVL499:
		.L432:
  688       st=var+glabit; sv=gloc; si=0
				lhi	%r10,6
		.L434:
		.LVL468:
		.L435:
  689       dumpstring(val); val=gloc-sv; gflush
				l	%r6,3416(%r11)
		.LVL461:
				lgr	%r0,%r11
				lgf	%r2,200(%r11)
				brasl	%r14,DUMPSTRING.6950
		.LVL462:
  690       %if val&1=0 %start
				l	%r1,3416(%r11)
				sr	%r1,%r6
				st	%r1,200(%r11)
				l	%r1,200(%r11)
				tmll	%r1,1
				jne	.L455
				lhi	%r7,0
  691         val=val>>1; oper=16_a5; !Movw
				lgr	%r0,%r11
				brasl	%r14,GFLUSH.6938
		.LVL463:
				srl	%r1,1
				st	%r1,200(%r11)
		.LVL464:
  692       %finish
				lhi	%r9,165
		.LVL465:
		.L433:
  693       immediate(load,val); dump(pushax)
				lgr	%r0,%r11
				lgf	%r3,200(%r11)
				lghi	%r2,1
				brasl	%r14,IMMEDIATE.7014
		.LVL466:
  694     %else
				lgr	%r0,%r11
				lghi	%r2,80
				brasl	%r14,DUMP.6958
		.LVL467:
  695       expr; dump(pushax)
				lgr	%r0,%r11
				brasl	%r14,EXPR.7000
		.LVL500:
  696       nextatom; st=type; sv=val; si=0
				lgr	%r0,%r11
				lghi	%r2,80
				brasl	%r14,DUMP.6958
		.LVL501:
				lgr	%r0,%r11
				brasl	%r14,NEXTATOM.6870
		.LVL502:
  697       fault(form) %unless st&varmask=var
				l	%r10,204(%r11)
		.LVL503:
  698       %if openbracket %start
				l	%r6,200(%r11)
		.LVL504:
				lgr	%r0,%r11
				lghi	%r2,5
				brasl	%r14,FAULT.6724
		.LVL505:
		.LDL18:
				lgr	%r0,%r11
				brasl	%r14,OPENBRACKET.6874
		.LVL506:
				lr	%r7,%r2
				cije	%r2,0,.L456
  699         expr; double(st); si=1; dump(pushax)
				lgr	%r0,%r11
				brasl	%r14,EXPR.7000
		.LVL507:
  700         closebracket
				lgr	%r0,%r11
				lgfr	%r2,%r10
				brasl	%r14,DOUBLE.7085
		.LVL508:
				lgr	%r0,%r11
				brasl	%r14,CLOSEBRACKET.6879
		.LVL510:
  701       %finish
				lhi	%r7,1
  702       oper=16_a5 %if st&wordbit#0; !Movw
				lgr	%r0,%r11
				lghi	%r2,80
				brasl	%r14,DUMP.6958
		.LVL509:
  703     %finish
				lhi	%r9,165
				j	.L435
		.LVL511:
		.L456:
				lhi	%r9,165
				j	.L435
		.LVL512:
		.L436:
  704     nextatom; dt=type; dv=val
				lgr	%r0,%r11
				brasl	%r14,NEXTATOM.6870
		.LVL469:
  705     fault(form) %unless dt&varmask=var
				l	%r8,204(%r11)
		.LVL470:
  706     %if openbracket %start
				l	%r13,200(%r11)
		.LVL471:
				lgr	%r0,%r11
				lghi	%r2,5
				brasl	%r14,FAULT.6724
		.LVL472:
		.LDL17:
				lgr	%r0,%r11
				brasl	%r14,OPENBRACKET.6874
		.LVL473:
				cije	%r2,0,.L436
  707       expr; double(dt); dump(16_8b); dump(16_f8); !Mov di,ax
				lgr	%r0,%r11
				brasl	%r14,EXPR.7000
		.LVL474:
  708       direct(lea,dt,dv,0); dump(16_03); dump(16_f8); !add di,ax
				lgfr	%r1,%r8
				lgr	%r0,%r11
				ldgr	%f8,%r1
				lgr	%r2,%r1
				brasl	%r14,DOUBLE.7085
		.LVL475:
				lgr	%r0,%r11
				lghi	%r5,0
				lgfr	%r4,%r13
				lgdr	%r3,%f8
				lghi	%r2,14
				brasl	%r14,DIRECT.7051
		.LVL478:
  709       closebracket
				lgr	%r0,%r11
				lghi	%r2,139
				brasl	%r14,DUMP.6958
		.LVL476:
				lgr	%r0,%r11
				lghi	%r2,3
				brasl	%r14,DUMP.6958
		.LVL479:
				lgr	%r0,%r11
				brasl	%r14,CLOSEBRACKET.6879
		.LVL481:
		.L437:
  710     %else
				lgr	%r0,%r11
				lghi	%r2,248
				brasl	%r14,DUMP.6958
		.LVL477:
				lgr	%r0,%r11
				lghi	%r2,248
				brasl	%r14,DUMP.6958
		.LVL480:
  711       direct(lea,dt,dv,0); dump(16_8b); dump(16_f8); !Mov di,ax
				lgr	%r0,%r11
				lghi	%r5,0
				lgfr	%r4,%r13
				lgfr	%r3,%r8
				lghi	%r2,14
				brasl	%r14,DIRECT.7051
		.LVL513:
  712     %finish
				lgr	%r0,%r11
				lghi	%r2,139
				brasl	%r14,DUMP.6958
		.LVL514:
  713     direct(lea,st,sv,0); dump(16_8b); dump(16_f0); !Mov si,ax
				lgr	%r0,%r11
				lghi	%r5,0
				lgfr	%r4,%r6
				lgfr	%r3,%r10
				lghi	%r2,14
				brasl	%r14,DIRECT.7051
		.LVL482:
				lgr	%r0,%r11
				lghi	%r2,248
				brasl	%r14,DUMP.6958
		.LVL515:
				j	.L437
		.L439:
  714     %if si#0 %Start
				lgr	%r0,%r11
				lghi	%r2,139
				brasl	%r14,DUMP.6958
		.LVL483:
				cije	%r7,0,.L438
  715       dump(popax); dump(16_03); dump(16_f0); !add,si,ax
				lgr	%r0,%r11
				lghi	%r2,240
				brasl	%r14,DUMP.6958
		.LVL484:
				lgr	%r0,%r11
				lghi	%r2,88
				brasl	%r14,DUMP.6958
		.LVL485:
  716     %finish
				lgr	%r0,%r11
				lghi	%r2,3
				brasl	%r14,DUMP.6958
		.LVL486:
  717     %if dt&glabit=0 %then dump(16_16) %else dump(16_1e); !Push SS/DS
				lgr	%r0,%r11
				lghi	%r2,240
				brasl	%r14,DUMP.6958
		.LVL487:
		.L438:
				tmll	%r8,1
				jne	.L439
  718     dump(16_07);  !Pop ES
				lgr	%r0,%r11
				lghi	%r2,22
				brasl	%r14,DUMP.6958
		.LVL488:
		.L440:
				lgr	%r0,%r11
				lghi	%r2,7
				brasl	%r14,DUMP.6958
		.LVL489:
  719     %if st&glabit=0 %start
				nilf	%r10,1
		.LVL490:
				jne	.L441
  720       dump(16_1e); dump(16_16); dump(16_1f); !Push DS,SS, Pop DS
				lgr	%r0,%r11
				lghi	%r2,30
				brasl	%r14,DUMP.6958
		.LVL491:
  721     %finish
				lgr	%r0,%r11
				lghi	%r2,22
				brasl	%r14,DUMP.6958
		.LVL492:
				lgr	%r0,%r11
				lghi	%r2,30
				brasl	%r14,DUMP.6958
		.LVL516:
				j	.L440
		.LVL517:
		.L431:
  722     dump(16_59); dump(16_F2); dump(oper); !Pop cx, rep
				lgr	%r0,%r11
				lghi	%r2,31
				brasl	%r14,DUMP.6958
		.LVL493:
		.L441:
				lgr	%r0,%r11
				lghi	%r2,89
				brasl	%r14,DUMP.6958
		.LVL494:
  723     dump(16_1f) %if st&glabit=0; !Pop DS
				lgr	%r0,%r11
				lghi	%r2,242
				brasl	%r14,DUMP.6958
		.LVL495:
				cijlh	%r10,0,.L430
  724   %finishelseif type=krepeat %start
				lgr	%r0,%r11
				lgfr	%r2,%r9
				brasl	%r14,DUMP.6958
		.LVL496:
				lgr	%r0,%r11
				lghi	%r2,31
				brasl	%r14,DUMP.6958
		.LVL497:
		.L442:
		.L454:
		.L430:
  725     poptext; fault(type) %unless type=repexp
				lgr	%r0,%r11
				brasl	%r14,POPTEXT.6996
		.LVL518:
  726     dump(16_E9); labelref(label,val)
				cijlh	%r10,30,.L443
				l	%r2,204(%r11)
				cije	%r2,14,.L444
				lgr	%r0,%r11
				lghi	%r2,233
				brasl	%r14,DUMP.6958
		.LVL520:
  727   %finishelseif type=kjump %start
				lgr	%r0,%r11
				lgfr	%r2,%r2
				brasl	%r14,FAULT.6724
		.LVL519:
		.L444:
				lgr	%r0,%r11
				lgf	%r3,200(%r11)
				lghi	%r2,3
				brasl	%r14,LABELREF.6984
		.LVL521:
				j	.L430
		.L443:
  728     nextatom; dump(16_e9); labelref(type,val)
				lgr	%r0,%r11
				brasl	%r14,NEXTATOM.6870
		.LVL522:
  729   %finishelseif type=kreturn %start
				cijlh	%r10,24,.L445
				lgr	%r0,%r11
				lghi	%r2,233
				brasl	%r14,DUMP.6958
		.LVL523:
				j	.L430
		.L445:
  730     expr %unless atomtype(atompos)=sep
				lgr	%r0,%r11
				lgf	%r3,200(%r11)
				lgf	%r2,204(%r11)
				brasl	%r14,LABELREF.6984
		.LVL524:
				l	%r1,3824(%r11)
				ahi	%r1,-1
				lgfr	%r1,%r1
				aghi	%r1,906
				sllg	%r1,%r1,2
				l	%r1,0(%r1,%r11)
				chi	%r1,14
				je	.L447
  731     return
				cijlh	%r10,25,.L446
				lgr	%r0,%r11
				brasl	%r14,EXPR.7000
		.LVL525:
		.L447:
				lgr	%r0,%r11
				brasl	%r14,RETURN.7110
		.LVL526:
  732   %finishelseif type&varmask=var %start
				j	.L430
		.L446:
  733     t=type; v=val; i=0
  734     %if open bracket %start
				tmll	%r10,1
				jne	.L448
		.LVL527:
				l	%r8,200(%r11)
		.LVL528:
				lgr	%r0,%r11
				brasl	%r14,OPENBRACKET.6874
		.LVL529:
				lr	%r9,%r2
				cije	%r2,0,.L449
  735       expr; double(t); dump(pushax)
				lgr	%r0,%r11
				brasl	%r14,EXPR.7000
		.LVL530:
  736       close bracket
				lgr	%r0,%r11
				lgfr	%r2,%r10
				brasl	%r14,DOUBLE.7085
		.LVL531:
				lgr	%r0,%r11
				brasl	%r14,CLOSEBRACKET.6879
		.LVL533:
  737       i=1
				lgr	%r0,%r11
				lghi	%r2,80
				brasl	%r14,DUMP.6958
		.LVL532:
				lhi	%r9,1
		.LVL534:
		.L449:
  738     %finish
  739     fault(form) %unless equal sign
				lgr	%r0,%r11
				brasl	%r14,EQUALSIGN.6884
		.LVL535:
				cijlh	%r2,0,.L450
  740     expr; dump(16_5e) %unless i=0; !pop si
				lgr	%r0,%r11
				lghi	%r2,5
				brasl	%r14,FAULT.6724
		.LVL536:
		.L450:
				lgr	%r0,%r11
				brasl	%r14,EXPR.7000
		.LVL537:
  741     direct(store,t,v,i)
				cije	%r9,0,.L451
				lgr	%r0,%r11
				lgfr	%r5,%r9
				lgfr	%r4,%r8
				lgfr	%r3,%r10
				lghi	%r2,13
				brasl	%r14,DIRECT.7051
		.LVL539:
  742   %finishelseif type=proc %or type=xproc %or type=spec %start
				lgr	%r0,%r11
				lghi	%r2,94
				brasl	%r14,DUMP.6958
		.LVL538:
		.L451:
				j	.L430
		.LVL540:
		.L448:
  743     call(type,val)
				lgr	%r0,%r11
				lgf	%r3,200(%r11)
				lgfr	%r2,%r10
				brasl	%r14,CALL.7003
		.LVL541:
  744   %else
				ahik	%r1,%r10,-8
				clijh	%r1,2,.L452
		.L453:
				j	.L430
		.L452:
  745     atompos=atompos-1
				asi	3824(%r11),-1
  746   %finish
  747 %end
				j	.L430
		.LFE217:
				.section	.rodata
				.align	2
		.LC3:
				.byte	45
				.string	"                  LC Cross-compiler  06/01/81"
				.zero	209
		.text
				.align	8
		.globl main
		main:
		.LFB185:
  748
				ld	%f8,160(%r15)
				lg	%r4,280(%r15)
				lmg	%r6,%r15,216(%r15)
				br	%r4
		.LVL498:
		.L455:
  749 %integerfn cond; !Evaluate condition, return value of jump opcode
				stmg	%r11,%r15,88(%r15)
				lay	%r15,-160(%r15)
				lgr	%r11,%r0
  750   expr; nextatom; fault(form) %unless type=comp
				brasl	%r14,EXPR.7000
		.LVL447:
  751   v=val; nextatom; unary
				lgr	%r0,%r11
				brasl	%r14,NEXTATOM.6870
		.LVL448:
				l	%r1,200(%r11)
				st	%r1,8(%r11)
  752   %if atomtype(atompos)#sep %or (type#constant %and type&varmask#var) %start
				l	%r1,204(%r11)
				chi	%r1,12
				je	.L407
				lgr	%r0,%r11
				brasl	%r14,NEXTATOM.6870
		.LVL450:
				lgr	%r0,%r11
				brasl	%r14,UNARY.6889
		.LVL451:
				l	%r1,3824(%r11)
				ahi	%r1,-1
				lgfr	%r1,%r1
				aghi	%r1,906
				sllg	%r1,%r1,2
				l	%r1,0(%r1,%r11)
				chi	%r1,14
				jne	.L408
				l	%r1,204(%r11)
				chi	%r1,1
				je	.L409
		.L408:
				lgr	%r0,%r11
				lghi	%r2,80
				brasl	%r14,DUMP.6958
		.LVL452:
  753     dump(pushax); atompos=atompos-1; expr
				lgr	%r0,%r11
				lghi	%r2,5
				brasl	%r14,FAULT.6724
		.LVL449:
		.L407:
  754     dump(16_8B); dump(16_D8); dump(popax); !Mov bx,ax
				asi	3824(%r11),-1
				lgr	%r0,%r11
				lghi	%r2,139
				brasl	%r14,DUMP.6958
		.LVL454:
				lgr	%r0,%r11
				lghi	%r2,216
				brasl	%r14,DUMP.6958
		.LVL455:
  755     type=bx
				lgr	%r0,%r11
				brasl	%r14,EXPR.7000
		.LVL453:
				mvhi	204(%r11),17
		.L409:
  756   %finish
				lgr	%r0,%r11
				lghi	%r2,88
				brasl	%r14,DUMP.6958
		.LVL456:
  757   direct(cmp,type,val,0)
				lgr	%r0,%r11
				lghi	%r5,0
				lgf	%r4,200(%r11)
				lgf	%r3,204(%r11)
				lghi	%r2,7
				brasl	%r14,DIRECT.7051
		.LVL457:
  758   %result=16_72 %if v=']'+128
				l	%r1,8(%r11)
				lhi	%r2,221
				crje	%r1,%r2,.L419
		.L411:
  759   %result=16_73 %if v='['
				cije	%r1,91,.L420
		.L412:
				lhi	%r2,114
				j	.L410
		.L420:
  760   %result=16_74 %if v='#'
				cije	%r1,35,.L421
		.L413:
				lhi	%r2,115
				j	.L410
		.L421:
  761   %result=16_75 %if v='='
				cije	%r1,61,.L422
		.L414:
				lhi	%r2,116
				j	.L410
		.L422:
  762   %result=16_76 %if v=']'
				cije	%r1,93,.L423
		.L415:
				lhi	%r2,117
				j	.L410
		.L423:
  763   %result=16_77 %if v='['+128
				lhi	%r2,219
				crje	%r1,%r2,.L424
		.L416:
				lhi	%r2,118
				j	.L410
		.L424:
  764   %result=16_7c %if v='>'+128
				lhi	%r2,190
				crje	%r1,%r2,.L425
		.L417:
				lhi	%r2,119
				j	.L410
		.L425:
  765   %result=16_7d %if v='<'
				cije	%r1,60,.L426
		.L418:
				lhi	%r2,124
				j	.L410
		.L426:
  766   %result=16_7e %if v='>'
				lhi	%r2,125
				j	.L410
		.LFE218:
				.align	8
		INSTRUCTION.7206:
		.LFB217:
  767   %result=16_7f; ! %if v='<'+128
				chi	%r1,62
				lhi	%r2,126
				lhi	%r1,127
				locrne	%r2,%r1
		.L410:
  768 %end
				lgfr	%r2,%r2
				lg	%r4,272(%r15)
				lmg	%r11,%r15,248(%r15)
				br	%r4
		.L419:
  769
  770 ! Main Program
  771
  772 %onevent 15 %start
				lghi	%r3,1
				lgrl	%r1,_imp_event@GOTENT
				aghik	%r2,%r1,536
				brasl	%r14,__sigsetjmp@PLT
		.LVL544:
				cijlh	%r2,0,.L461
		.LVL545:
				llill	%r3,32768
				lgrl	%r2,_imp_event@GOTENT
				brasl	%r14,_imp_on_event_enter@PLT
		.LVL546:
		.L461:
  773 %finish
  774
  775 %if tagpos=1 %start; ! (not via event: first time)
				ly	%r1,12560(%r15)
				chi	%r1,1
				je	.L572
		.L462:
  776 program = cliparam
  777 openinput(source,program.".lc")
  778 openoutput(object,program.".iob")
				aghik	%r10,%r15,12984
				lghi	%r4,31
				la	%r3,424(%r15)
				lgr	%r2,%r10
				brasl	%r14,_imp_strncpy@PLT
		.LVL551:
		.LBB445:
		.LBB446:
  779 openoutput(list,program.".lis")
				aghik	%r4,%r15,1192
				lgr	%r3,%r10
				la	%r2,936(%r15)
				brasl	%r14,_imp_join@PLT
		.LVL552:
				lay	%r1,5800(%r15)
				mvc	0(256,%r1),680(%r15)
		.LBE446:
		.LBE445:
		.LBB447:
		.LBB448:
				mvc	168(256,%r15),0(%r1)
				aghik	%r11,%r15,168
				lgr	%r3,%r11
				lghi	%r2,1
				brasl	%r14,_imp_openinput@PLT
		.LVL553:
		.LBE448:
		.LBE447:
		.LBB449:
		.LBB450:
  780 selectoutput(list)
				aghik	%r4,%r15,1960
				lgr	%r3,%r10
				la	%r2,1704(%r15)
				brasl	%r14,_imp_join@PLT
		.LVL554:
				lay	%r1,6056(%r15)
				mvc	0(256,%r1),1448(%r15)
		.LBE450:
		.LBE449:
		.LBB451:
		.LBB452:
				mvc	168(256,%r15),0(%r1)
				lgr	%r3,%r11
				lghi	%r2,1
				brasl	%r14,_imp_openoutput@PLT
		.LVL555:
		.LBE452:
		.LBE451:
		.LBB453:
		.LBB454:
  781 printstring("                  LC Cross-compiler  06/01/81"); newline; newline
				aghik	%r4,%r15,2472
				lgr	%r3,%r10
				la	%r2,2728(%r15)
				brasl	%r14,_imp_join@PLT
		.LVL556:
				lay	%r1,6312(%r15)
				mvc	0(256,%r1),2216(%r15)
		.LBE454:
		.LBE453:
		.LBB455:
		.LBB456:
				mvc	168(256,%r15),0(%r1)
				lgr	%r3,%r11
				lghi	%r2,2
				brasl	%r14,_imp_openoutput@PLT
		.LVL557:
		.LBE456:
		.LBE455:
		.LBB457:
		.LBB458:
				lgrl	%r1,_imp_OutStream@GOTENT
				mvhi	0(%r1),2
				lgrl	%r1,_imp_OutFile@GOTENT
				lgrl	%r2,_imp_outfile@GOTENT
				lg	%r2,584(%r2)
				stg	%r2,0(%r1)
				larl	%r2,__PRETTY_FUNCTION__.6293
				brasl	%r14,check_outstream@PLT
		.LVL558:
		.LBE458:
		.LBE457:
		.LBB459:
				larl	%r1,.LC3
				mvc	2728(256,%r15),0(%r1)
				mvc	2984(256,%r15),2728(%r15)
				lay	%r1,6568(%r15)
				mvc	0(256,%r1),2984(%r15)
		.LBE459:
		.LBB460:
		.LBB461:
				mvc	168(256,%r15),0(%r1)
				lgr	%r2,%r11
				brasl	%r14,_imp_printstring@PLT
		.LVL559:
		.LBE461:
		.LBE460:
		.LBB462:
		.LBB463:
				brasl	%r14,_imp_newline@PLT
		.LVL560:
		.LBE463:
		.LBE462:
		.LBB464:
		.LBB465:
				brasl	%r14,_imp_newline@PLT
		.LVL561:
				ly	%r1,12560(%r15)
				lhi	%r3,17
				lr	%r0,%r1
				ahik	%r2,%r1,-18
		.LBE465:
		.LBE464:
  782   %for type=kconst,1,krepeat %cycle
  783     tag1(tagpos)=n1(type); tag2(tagpos)=n2(type)
				larl	%r10,N1.6721
				lgfr	%r1,%r1
				aghik	%r9,%r1,652
				sllg	%r9,%r9,2
				lgfr	%r4,%r4
				sllg	%r4,%r4,2
				l	%r8,0(%r4,%r10)
				sty	%r8,9152(%r9,%r15)
  784     tagtype(tagpos)=type; tagval(tagpos)=-1
				larl	%r11,N2.6722
				lhi	%r5,14
		.L463:
				ahik	%r4,%r3,-17
				ark	%r1,%r2,%r3
				aghik	%r9,%r1,452
				sllg	%r9,%r9,2
				l	%r4,0(%r4,%r11)
				sty	%r4,9152(%r9,%r15)
				aghik	%r4,%r1,252
				sllg	%r4,%r4,2
				sty	%r3,9152(%r4,%r15)
  785     tagpos=tagpos+1
				aghi	%r1,52
				sllg	%r1,%r1,2
				lay	%r1,9152(%r1,%r15)
				mvhi	0(%r1),-1
		.LDL19:
				ahi	%r3,1
				brct	%r5,.L463
		.LDL20:
				lay	%r1,9356(%r15)
				mvhi	0(%r1),30
				ahik	%r1,%r0,14
				sty	%r1,12560(%r15)
		.LVL562:
		.LBB466:
		.LBB467:
				lgrl	%r1,_imp_InStream@GOTENT
				mvhi	0(%r1),1
				lgrl	%r1,_imp_InFile@GOTENT
				lgrl	%r2,_imp_infile@GOTENT
				lg	%r2,296(%r2)
				stg	%r2,0(%r1)
				larl	%r2,__PRETTY_FUNCTION__.6289
				brasl	%r14,check_instream@PLT
		.LVL563:
		.LBE467:
		.LBE466:
  786   %repeat
  787   selectinput(source); program=""
  788 %finish
  789
  790 %cycle
				lghi	%r4,31
				la	%r3,3240(%r15)
				lay	%r2,12984(%r15)
				brasl	%r14,_imp_strncpy@PLT
		.LVL564:
				j	.L462
		.L466:
		.L469:
  791    readline
				aghik	%r1,%r15,9152
				ldgr	%f8,%r1
				lgdr	%r0,%f8
				brasl	%r14,READLINE.6740
		.LVL547:
		.L465:
  792    %cycle;  !Deal with labels
  793       nextatom
				lgdr	%r0,%f8
				brasl	%r14,NEXTATOM.6870
		.LVL548:
  794       %exitunless type=unknown %and atomtype(atompos)=colon
				lt	%r9,9356(%r15)
				jne	.L469
  795       tagtype(val)=label; satrefs(tagval(val),cloc)
				ly	%r1,12976(%r15)
				ahi	%r1,-1
				lgfr	%r1,%r1
				aghi	%r1,906
				sllg	%r1,%r1,2
				ly	%r1,9152(%r1,%r15)
				chi	%r1,13
				jne	.L467
		.L468:
				ly	%r1,9352(%r15)
				ahi	%r1,-1
				lgfr	%r1,%r1
				aghik	%r2,%r1,252
				sllg	%r2,%r2,2
				lay	%r2,9152(%r2,%r15)
				mvhi	0(%r2),3
  796       tagval(val)=cloc; atompos=atompos+1
				aghi	%r1,52
				sllg	%r1,%r1,2
				lgdr	%r0,%f8
				lgf	%r3,12572(%r15)
				lgf	%r2,9152(%r1,%r15)
				brasl	%r14,SATREFS.6975
		.LVL549:
				ly	%r1,9352(%r15)
				ahi	%r1,-1
				lgfr	%r1,%r1
				aghi	%r1,52
				sllg	%r1,%r1,2
				ly	%r2,12572(%r15)
				sty	%r2,9152(%r1,%r15)
  797       access=1
				asi	12976(%r15),1
				lay	%r1,9172(%r15)
				mvhi	0(%r1),1
  798    %repeat
				j	.L465
		.L572:
		.LBB442:
		.LBB443:
		.LBB444:
				aghik	%r2,%r15,5544
				brasl	%r14,_imp_cliparam@PLT
		.LVL550:
		.LBE444:
		.LBE443:
		.LBE442:
  799    %continueif type=sep %and ifpos=0
				cijlh	%r9,14,.L470
  800    %if type=kconst %start
				lt	%r1,12564(%r15)
				je	.L464
				cije	%r9,17,.L473
		.L467:
  801       constdef
  802    %finishelseif type=kbyte %or type=kword %start
  803       vardef(type)
  804    %finishelseif type=kspec %or type=kproc %start
  805       procdef(type)
				lr	%r1,%r9
		.L478:
				lr	%r1,%r9
				ahik	%r2,%r9,-18
				clijh	%r2,1,.L478
				chi	%r9,18
				lhi	%r1,5
				lhi	%r2,4
				locrne	%r1,%r2
		.LBB471:
		.LBB472:
  806    %finishelseif type=kend %start
				ahi	%r1,-20
				clijle	%r1,1,.L573
		.L503:
  807       %exitif level=0; level=0
				lt	%r1,9168(%r15)
				je	.L519
		.L520:
  808       return %unless access=0; flush
				cije	%r9,22,.L574
		.L518:
				lt	%r1,9172(%r15)
				je	.L521
  809       val=oldtpos; oldtpos=tagpos; tagpos=val; ! Reset tagpos before moaning
				lgdr	%r0,%f8
				brasl	%r14,RETURN.7110
		.LVL690:
		.L521:
				ly	%r1,9152(%r15)
				sty	%r1,9352(%r15)
  810       %while oldtpos>tagpos %cycle
				lay	%r1,9168(%r15)
				mvhi	0(%r1),0
				ly	%r1,12560(%r15)
				sty	%r1,9152(%r15)
  811          oldtpos=oldtpos-1; fault(labund) %if tagtype(oldtpos)=unknown
				lgdr	%r0,%f8
				brasl	%r14,FLUSH.6962
		.LVL691:
				ly	%r1,9352(%r15)
				sty	%r1,12560(%r15)
				lhi	%r10,0
				lhi	%r11,1
		.L522:
		.L523:
				ly	%r3,9152(%r15)
				ly	%r1,12560(%r15)
				lr	%r4,%r10
				srk	%r2,%r3,%r1
				ahi	%r2,1
				crjh	%r1,%r3,.L566
				iilf	%r5,2147483647
				crje	%r1,%r5,.L566
		.L525:
				brct	%r2,.L565
				j	.L600
		.L565:
				ahi	%r3,-1
  812       %repeat
				ahik	%r1,%r3,-1
				lgfr	%r1,%r1
				aghi	%r1,252
				sllg	%r1,%r1,2
				lr	%r4,%r11
				lt	%r1,9152(%r1,%r15)
				jne	.L525
				sty	%r3,9152(%r15)
  813       %unless textlevel=0 %start
				lgdr	%r0,%f8
				lghi	%r2,10
				brasl	%r14,FAULT.6724
		.LVL692:
				j	.L522
		.L566:
				lhi	%r2,1
				j	.L525
		.L600:
		.L524:
				llcr	%r4,%r4
				cijlh	%r4,0,.L601
		.L526:
				lt	%r1,9340(%r15)
				je	.L554
  814          poptext; textlevel=0; fault(type)
				lgdr	%r0,%f8
				brasl	%r14,POPTEXT.6996
		.LVL693:
  815       %finish
				lay	%r1,9340(%r15)
				mvhi	0(%r1),0
  816    %finishelseif type=kprogram %start
				lgdr	%r0,%f8
				lgf	%r2,9356(%r15)
				brasl	%r14,FAULT.6724
		.LVL694:
				j	.L554
		.L601:
				sty	%r3,9152(%r15)
				j	.L526
		.L575:
  817       fault(ambig) %unless program=""
  818       nextatom; fault(form) %unless type=string
				cije	%r9,26,.L575
		.L527:
				lgdr	%r0,%f8
				brasl	%r14,NEXTATOM.6870
		.LVL697:
  819       fault(form) %if val='"'; !Null name not allowed
				aghik	%r1,%r15,3496
				ldgr	%f12,%r1
				aghik	%r1,%r15,12984
				ldgr	%f10,%r1
		.L464:
				lgdr	%r3,%f12
				lgdr	%r2,%f10
				brasl	%r14,_imp_strcmp@PLT
		.LVL695:
				cije	%r2,0,.L528
				ly	%r1,9356(%r15)
				chi	%r1,2
				jne	.L602
		.L529:
				ly	%r1,9352(%r15)
				chi	%r1,34
				je	.L603
		.L530:
  820       v=line(val)
				ly	%r1,9352(%r15)
				ahi	%r1,-1
				lgfr	%r1,%r1
				llc	%r1,17240(%r1,%r15)
				sty	%r1,9160(%r15)
		.LBB523:
		.LBB524:
				lgdr	%r0,%f8
				lghi	%r2,5
				brasl	%r14,FAULT.6724
		.LVL708:
				j	.L529
		.L603:
				lgdr	%r0,%f8
				lghi	%r2,5
				brasl	%r14,FAULT.6724
		.LVL709:
				j	.L530
		.L576:
  821       %cycle
  822          val=val+1; program=program.tostring(v); v=line(val)
				lgdr	%r0,%f8
				lghi	%r2,6
				brasl	%r14,FAULT.6724
		.LVL696:
		.L528:
				asi	9352(%r15),1
		.LVL698:
		.LBB526:
		.LBB525:
  823       %repeatuntil v='"'
				cijlh	%r1,34,.L531
		.L532:
  824       program=program."_" %unless charno(program,length(program))='_'
				llgc	%r1,12984(%r15)
				llc	%r1,12984(%r1,%r15)
				cije	%r1,95,.L533
		.LBB527:
		.LBB528:
  825       selectoutput(object); printsymbol(2); printsymbol(6)
				aghik	%r10,%r15,4008
				aghik	%r11,%r15,4264
		.L531:
		.LBE524:
		.LBE523:
				lgr	%r4,%r11
				lgdr	%r3,%f10
				lgr	%r2,%r10
				brasl	%r14,_imp_join@PLT
		.LVL699:
		.LBE525:
		.LBE526:
				lghi	%r4,31
				la	%r3,3752(%r15)
				lgdr	%r2,%f10
				brasl	%r14,_imp_strncpy@PLT
		.LVL700:
  826       printsymbol(length(program)); printstring(program)
  827    %finishelseif type=kcycle %start
				aghik	%r4,%r15,5032
				lgdr	%r3,%f10
				lay	%r2,4776(%r15)
				brasl	%r14,_imp_join@PLT
		.LVL701:
		.LBE528:
		.LBE527:
				lghi	%r4,31
				lay	%r3,4520(%r15)
				lgdr	%r2,%f10
				brasl	%r14,_imp_strncpy@PLT
		.LVL702:
		.L533:
		.LBB529:
		.LBB530:
				lgrl	%r1,_imp_OutStream@GOTENT
				mvhi	0(%r1),1
				lgrl	%r1,_imp_OutFile@GOTENT
				lgrl	%r2,_imp_outfile@GOTENT
				lg	%r2,296(%r2)
				stg	%r2,0(%r1)
				larl	%r2,__PRETTY_FUNCTION__.6293
				brasl	%r14,check_outstream@PLT
		.LVL703:
		.LBE530:
		.LBE529:
		.LBB531:
		.LBB532:
				lghi	%r2,2
				brasl	%r14,_imp_printsymbol@PLT
		.LVL704:
		.LBE532:
		.LBE531:
		.LBB533:
		.LBB534:
				lghi	%r2,6
				brasl	%r14,_imp_printsymbol@PLT
		.LVL705:
		.LBE534:
		.LBE533:
		.LBB535:
		.LBB536:
				llgc	%r2,12984(%r15)
				brasl	%r14,_imp_printsymbol@PLT
		.LVL706:
				lay	%r1,6824(%r15)
				lay	%r2,5288(%r15)
				mvc	0(256,%r1),0(%r2)
		.LBE536:
		.LBE535:
		.LBB537:
		.LBB538:
				mvc	168(256,%r15),0(%r1)
				aghik	%r2,%r15,168
				brasl	%r14,_imp_printstring@PLT
		.LVL707:
				j	.L554
		.L602:
		.LBE538:
		.LBE537:
  828       pushtext(repexp,cloc)
				ly	%r1,9352(%r15)
				ahi	%r1,-1
				lgfr	%r1,%r1
				llc	%r1,17240(%r1,%r15)
				sty	%r1,9160(%r15)
				lgdr	%r0,%f8
				lgf	%r3,12572(%r15)
				lghi	%r2,14
				brasl	%r14,PUSHTEXT.6992
		.LVL710:
				j	.L554
		.L577:
  829    %finishelseif type=kelse %start
				cije	%r9,29,.L576
		.L534:
  830       poptext; fault(type) %unless type=finexp
				lgdr	%r0,%f8
				brasl	%r14,POPTEXT.6996
		.LVL711:
  831       satrefs(val,cloc+3)
				cije	%r9,27,.L577
		.L535:
				ly	%r2,9356(%r15)
				cije	%r2,15,.L536
				ly	%r1,12572(%r15)
				ahik	%r3,%r1,3
				lgdr	%r0,%f8
				lgfr	%r3,%r3
				lgf	%r2,9352(%r15)
				brasl	%r14,SATREFS.6975
		.LVL713:
  832       poptext;  fault(type) %unless type=finexp
				lgdr	%r0,%f8
				lgfr	%r2,%r2
				brasl	%r14,FAULT.6724
		.LVL712:
		.L536:
				lgdr	%r0,%f8
				brasl	%r14,POPTEXT.6996
		.LVL714:
  833       dump(16_e9); dump(val); dump(val>>8)
				ly	%r2,9356(%r15)
				cije	%r2,15,.L537
				lgdr	%r0,%f8
				lghi	%r2,233
				brasl	%r14,DUMP.6958
		.LVL716:
  834       %if ifpos=0 %start
				lgdr	%r0,%f8
				lgfr	%r2,%r2
				brasl	%r14,FAULT.6724
		.LVL715:
		.L537:
				lgdr	%r0,%f8
				lgf	%r2,9352(%r15)
				brasl	%r14,DUMP.6958
		.LVL717:
				lt	%r1,12564(%r15)
				jne	.L538
  835         pushtext(context,0)
				ly	%r2,9352(%r15)
				lgdr	%r0,%f8
				risbgn	%r2,%r2,64-24,128+63,32+24
				brasl	%r14,DUMP.6958
		.LVL718:
				lgdr	%r0,%f8
				lghi	%r3,0
				lghi	%r2,16
				brasl	%r14,PUSHTEXT.6992
		.LVL719:
		.L539:
  836       %else
  837         pushtext(finexp,cloc-2)
				ly	%r1,12572(%r15)
				ahik	%r3,%r1,-2
				lgdr	%r0,%f8
				lgfr	%r3,%r3
				lghi	%r2,15
				brasl	%r14,PUSHTEXT.6992
		.LVL721:
  838         atompos=ifpos+1; dump(cond!!1); dump(3)
				ly	%r1,12564(%r15)
				ahi	%r1,1
				sty	%r1,12976(%r15)
  839         dump(16_E9); dump(0); dump(0)
				lgdr	%r0,%f8
				brasl	%r14,COND.7245
		.LVL722:
				xilf	%r2,1
				lgdr	%r0,%f8
				lgfr	%r2,%r2
				brasl	%r14,DUMP.6958
		.LVL723:
				lgdr	%r0,%f8
				lghi	%r2,233
				brasl	%r14,DUMP.6958
		.LVL725:
  840         atompos=ifpos %and fault(form) %unless ifpos=2
				lgdr	%r0,%f8
				lghi	%r2,3
				brasl	%r14,DUMP.6958
		.LVL724:
				lgdr	%r0,%f8
				lghi	%r2,0
				brasl	%r14,DUMP.6958
		.LVL726:
				ly	%r1,12564(%r15)
				cijlh	%r1,2,.L604
		.L540:
  841         IFPOS=0
				lgdr	%r0,%f8
				lghi	%r2,0
				brasl	%r14,DUMP.6958
		.LVL727:
				lay	%r1,12564(%r15)
				mvhi	0(%r1),0
				j	.L539
		.L604:
				sty	%r1,12976(%r15)
  842       %finish
				lgdr	%r0,%f8
				lghi	%r2,5
				brasl	%r14,FAULT.6724
		.LVL728:
				j	.L540
		.L578:
  843       pushtext(finexp,cloc-2)
				ly	%r1,12572(%r15)
				ahik	%r3,%r1,-2
				lgdr	%r0,%f8
				lgfr	%r3,%r3
				lghi	%r2,15
				brasl	%r14,PUSHTEXT.6992
		.LVL720:
				j	.L554
		.L538:
  844    %finishelseif type=kfinish %start
  845       poptext; fault(type) %unless type=finexp %or type=context
				lgdr	%r0,%f8
				brasl	%r14,POPTEXT.6996
		.LVL729:
  846       satrefs(val,cloc)
				cije	%r9,28,.L578
		.L541:
				ly	%r2,9356(%r15)
				ahik	%r1,%r2,-15
				clijle	%r1,1,.L542
				lgdr	%r0,%f8
				lgf	%r3,12572(%r15)
				lgf	%r2,9352(%r15)
				brasl	%r14,SATREFS.6975
		.LVL731:
  847       poptext; satrefs(val,cloc); access=1
				lgdr	%r0,%f8
				brasl	%r14,POPTEXT.6996
		.LVL732:
  848    %else
				lgdr	%r0,%f8
				lgfr	%r2,%r2
				brasl	%r14,FAULT.6724
		.LVL730:
		.L542:
				lgdr	%r0,%f8
				lgf	%r3,12572(%r15)
				lgf	%r2,9352(%r15)
				brasl	%r14,SATREFS.6975
		.LVL733:
				j	.L554
		.L579:
		.LBB539:
		.LBB470:
  849       fault(varund) %if type=unknown
				cijlh	%r9,0,.L543
				lay	%r1,9172(%r15)
				mvhi	0(%r1),1
  850       terminate declarations
				lgdr	%r0,%f8
				lghi	%r2,12
				brasl	%r14,FAULT.6724
		.LVL565:
		.L543:
		.LBB468:
		.LBB469:
  851       %if ifpos=0 %start;  !  Statement
				lt	%r1,12564(%r15)
				je	.L581
		.L549:
  852          atompos=atompos-1; instruction
				asi	12976(%r15),-1
  853       %finishelseif type=sep %start;  ! IF condition
				lgdr	%r0,%f8
				brasl	%r14,INSTRUCTION.7206
		.LVL744:
		.L550:
  854          fault(form) %unless ifpos=atompos
				cy	%r1,12976(%r15)
				je	.L552
				lgdr	%r0,%f8
				lghi	%r2,5
				brasl	%r14,FAULT.6724
		.LVL566:
		.L552:
				ly	%r1,12564(%r15)
				ahi	%r1,1
				sty	%r1,12976(%r15)
  855          atompos=ifpos+1
				ly	%r2,9356(%r15)
				chi	%r2,14
				jne	.L551
  856          dump(cond!!1); dump(3); dump(16_E9); dump(0); dump(0)
				lgdr	%r0,%f8
				brasl	%r14,COND.7245
		.LVL567:
				xilf	%r2,1
				lgdr	%r0,%f8
				lgfr	%r2,%r2
				brasl	%r14,DUMP.6958
		.LVL568:
  857          pushtext(finexp,0); pushtext(finexp,cloc-2)
				lgdr	%r0,%f8
				lghi	%r2,3
				brasl	%r14,DUMP.6958
		.LVL569:
				lgdr	%r0,%f8
				lghi	%r3,0
				lghi	%r2,15
				brasl	%r14,PUSHTEXT.6992
		.LVL573:
  858       %else;   ! Statement IF condition
				lgdr	%r0,%f8
				lghi	%r2,233
				brasl	%r14,DUMP.6958
		.LVL570:
				ly	%r1,12572(%r15)
				ahik	%r3,%r1,-2
				lgdr	%r0,%f8
				lgfr	%r3,%r3
				lghi	%r2,15
				brasl	%r14,PUSHTEXT.6992
		.LVL574:
				j	.L550
		.L470:
  859          oldapos=atompos-1; atompos=ifpos+1
				lgdr	%r0,%f8
				lghi	%r2,0
				brasl	%r14,DUMP.6958
		.LVL571:
				ly	%r2,12976(%r15)
				ahik	%r10,%r2,-1
		.LVL745:
  860          dump(cond)
				lgdr	%r0,%f8
				lghi	%r2,0
				brasl	%r14,DUMP.6958
		.LVL572:
				ahi	%r1,1
				sty	%r1,12976(%r15)
				lgdr	%r0,%f8
				brasl	%r14,COND.7245
		.LVL746:
				lgdr	%r0,%f8
				brasl	%r14,DUMP.6958
		.LVL747:
  861          oldcpos=cpos; dump(0)
				ly	%r11,9344(%r15)
		.LVL748:
  862          atompos=oldapos; instruction
				lgdr	%r0,%f8
				lghi	%r2,0
				brasl	%r14,DUMP.6958
		.LVL749:
				sty	%r10,12976(%r15)
  863          v=cpos-oldcpos-1; fault(far) %if v>127
				lgdr	%r0,%f8
				brasl	%r14,INSTRUCTION.7206
		.LVL750:
				ly	%r1,9344(%r15)
				sr	%r1,%r11
				ahi	%r1,-1
				sty	%r1,9160(%r15)
  864          code(oldcpos)=v
				cijle	%r1,127,.L553
				lgfr	%r11,%r11
				icy	%r1,9163(%r15)
				stcy	%r1,13240(%r11,%r15)
  865          access=1
				lgdr	%r0,%f8
				lghi	%r2,9
				brasl	%r14,FAULT.6724
		.LVL751:
		.L553:
				lay	%r1,9172(%r15)
				mvhi	0(%r1),1
				j	.L550
		.LVL752:
		.L519:
		.LBB540:
		.LBB541:
				lgrl	%r9,_imp_OutStream@GOTENT
				mvhi	0(%r9),1
				lgrl	%r11,_imp_OutFile@GOTENT
				lgrl	%r10,_imp_outfile@GOTENT
				lg	%r1,296(%r10)
				stg	%r1,0(%r11)
				larl	%r2,__PRETTY_FUNCTION__.6293
				brasl	%r14,check_outstream@PLT
		.LVL753:
		.LBE541:
		.LBE540:
		.LBB542:
		.LBB543:
				lghi	%r2,10
				brasl	%r14,_imp_printsymbol@PLT
		.LVL754:
		.LBE543:
		.LBE542:
		.LBB544:
		.LBB545:
				mvhi	0(%r9),2
				lg	%r1,584(%r10)
				stg	%r1,0(%r11)
				larl	%r2,__PRETTY_FUNCTION__.6293
				brasl	%r14,check_outstream@PLT
		.LVL755:
		.LBE545:
		.LBE544:
		.LBB546:
		.LBB547:
				brasl	%r14,_imp_newline@PLT
		.LVL756:
		.LBE547:
		.LBE546:
		.LBB548:
		.LBB549:
				lghi	%r2,0
				brasl	%r14,exit@PLT
		.LVL757:
		.LBE549:
		.LBE548:
		.LFE185:
				.section	.rodata
				.align	2
		__PRETTY_FUNCTION__.6293:
				.string	"_imp_SELECTOUTPUT"
				.align	4
		CODE.7053:
				.long	138
				.long	2
				.long	42
				.long	34
				.long	10
				.long	50
				.long	58
				.long	40
				.long	56
				.long	48
				.long	224
				.long	232
				.long	136
				.long	141
				.section	.data.rel.ro.local,"aw",@progbits
				.align	8
		S.7019:
				.quad	.L42
				.quad	.L42
				.quad	.L42
				.quad	.L42
				.quad	.L42
				.quad	.L42
				.quad	.L42
				.quad	.L42
				.quad	.L42
				.quad	.L42
				.quad	.L42
				.quad	.L42
				.align	8
		S.6898:
				.quad	.L257
				.quad	.L257
				.quad	.L257
				.quad	.L257
				.quad	.L257
				.quad	.L257
				.quad	.L257
				.quad	.L257
				.quad	.L257
				.quad	.L257
				.quad	.L257
				.comm	QUOTE.6743,4,4
				.comm	SEMI.6742,4,4
				.section	.rodata
				.align	2
		__PRETTY_FUNCTION__.6289:
				.string	"_imp_SELECTINPUT"
				.align	4
		N2.6722:
				.long	723
				.long	4
				.long	5
				.long	3
				.long	3
				.long	0
				.long	5
				.long	16
				.long	29429
				.long	10250
				.long	5
				.long	13032
				.long	449
				.long	6902
				.align	4
		N1.6721:
				.long	4676
				.long	32060
				.long	3683
				.long	26608
				.long	22585
				.long	7367
				.long	18374
				.long	14480
				.long	24847
				.long	22585
				.long	7308
				.long	8561
				.long	5035
				.long	24843
			.text
		.Letext0:
  866       %finish
  867       ifpos=0
				lay	%r1,12564(%r15)
				mvhi	0(%r1),0
				j	.L554
		.L551:
  868    %finish
  869   nextatom; fault(form) %unless type=sep %and ifpos=0
				lgdr	%r0,%f8
				brasl	%r14,NEXTATOM.6870
		.LVL686:
  870 %repeat
				ly	%r1,9356(%r15)
				chi	%r1,14
				jne	.L555
  871 selectoutput(object); printsymbol(10)
				lt	%r1,12564(%r15)
				je	.L464
		.L555:
  872 selectoutput(list); newline
  873 %endofprogram
				lgdr	%r0,%f8
				lghi	%r2,5
				brasl	%r14,FAULT.6724
		.LVL687:
				j	.L464
		.LVL688:
		.L599:
				sty	%r5,8880(%r15)
				j	.L517
		.LVL689:
		.L574:
 1020 Statements compiled