Edinburgh IMP77 Compiler - Version 8.4 1 %begin; ! LC (Low-level compiler) for 8086 .Ltext0: NEXTATOM.6568: .LFB190: .LVL549: pushq %r15 pushq %r14 pushq %r13 pushq %r12 pushq %rbp pushq %rbx subq $16952, %rsp movq %fs:40, %rax movq %rax, 16936(%rsp) xorl %eax, %eax leaq 17008(%rsp), %rax movq %rax, 16920(%rsp) 2 call _imp_initialise@PLT .LVL550: 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 movl $0, 12580(%rsp) 45 46 !Atom types movl $0, 12172(%rsp) 47 %constinteger unknown=0,constant=1,string=2,label=3 48 %constinteger var=4, wordbit=1, glabit=2, varmask=16_fc movl $0, 12168(%rsp) 49 %constinteger proc=8,xproc=9,spec=10 50 %constinteger op=11,comp=12,colon=13,sep=14,bracket=15,bx=16!wordbit movl $0, 8768(%rsp) 51 52 ! Keyword types movl $0, 8948(%rsp) 53 %constinteger kconst=17,kword=18,kbyte=19,kspec=20,kproc=21 54 %constinteger kend=22,kmove=23,kjump=24,kreturn=25,kprogram=26 movl $0, 8944(%rsp) 55 %constinteger kelse=27,kfinish=28,kcycle=29,krepeat=30 56 movl $1, 12160(%rsp) 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) .LVL80: pushq %r14 pushq %r13 pushq %r12 pushq %rbp pushq %rbx subq $2320, %rsp movq %r10, %rbp movq %fs:40, %rax movq %rax, 2312(%rsp) xorl %eax, %eax .LVL81: .LBB258: .LBB259: movl $0, _imp_OutStream(%rip) movq 8+_imp_outfile(%rip), %rax movq %rax, _imp_OutFile(%rip) leaq __PRETTY_FUNCTION__.5991(%rip), %rdi .LVL82: call check_outstream@PLT .LVL83: .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 movl 3828(%rbp), %edi movl $1, %esi call _imp_writeint@PLT .LVL84: .LBB260: .LBB261: call _imp_space@PLT .LVL85: leaq 8088(%rbp), %rbx .LVL86: .L80: .LBE261: .LBE260: 96 %cycle 97 sym=line(i); printsymbol(sym); i=i+1 movzbl (%rbx), %r12d .LVL87: 98 %repeatuntil sym=nl movsbl %r12b, %edi .LBB262: .LBB263: call _imp_printsymbol@PLT .LVL88: addq $1, %rbx .LVL89: .LBE263: .LBE262: cmpb $10, %r12b jne .L80 .L81: movdqa (%rsp), %xmm0 movaps %xmm0, 2048(%rsp) movdqa 16(%rsp), %xmm1 movaps %xmm1, 2064(%rsp) movdqa 32(%rsp), %xmm2 movaps %xmm2, 2080(%rsp) movdqa 48(%rsp), %xmm3 movaps %xmm3, 2096(%rsp) movdqa 64(%rsp), %xmm4 movaps %xmm4, 2112(%rsp) movdqa 80(%rsp), %xmm5 movaps %xmm5, 2128(%rsp) movdqa 96(%rsp), %xmm6 movaps %xmm6, 2144(%rsp) movdqa 112(%rsp), %xmm7 movaps %xmm7, 2160(%rsp) movdqa 128(%rsp), %xmm0 movaps %xmm0, 2176(%rsp) movdqa 144(%rsp), %xmm1 movaps %xmm1, 2192(%rsp) movq 160(%rsp), %r13 movq 168(%rsp), %r14 movq %r13, 2208(%rsp) movq %r14, 2216(%rsp) movq 176(%rsp), %rax movq 184(%rsp), %rdx movq %rax, 2224(%rsp) movq %rdx, 2232(%rsp) movq 192(%rsp), %rsi movq 200(%rsp), %rdi movq %rsi, 2240(%rsp) movq %rdi, 2248(%rsp) movq 208(%rsp), %r9 movq 216(%rsp), %r10 movq %r9, 2256(%rsp) movq %r10, 2264(%rsp) movq 224(%rsp), %rcx movq 232(%rsp), %rbx movq %rcx, 2272(%rsp) movq %rbx, 2280(%rsp) movq 240(%rsp), %r11 movq 248(%rsp), %r12 .LVL90: movq %r11, 2288(%rsp) movq %r12, 2296(%rsp) .LBB264: .LBB265: pushq %r12 pushq %r11 pushq %rbx pushq %rcx pushq %r10 pushq %r9 pushq %rdi pushq %rsi pushq %rdx pushq %rax pushq %r14 pushq %r13 pushq 248(%rsp) pushq 248(%rsp) pushq 248(%rsp) pushq 248(%rsp) pushq 248(%rsp) pushq 248(%rsp) pushq 248(%rsp) pushq 248(%rsp) pushq 248(%rsp) pushq 248(%rsp) pushq 248(%rsp) pushq 248(%rsp) pushq 248(%rsp) pushq 248(%rsp) pushq 248(%rsp) pushq 248(%rsp) pushq 248(%rsp) pushq 248(%rsp) pushq 248(%rsp) pushq 248(%rsp) call _imp_printstring@PLT .LVL91: .LBE265: .LBE264: 99 printstring(s(n)); write(atompos-1,1); newline 100 selectoutput(list) 101 printstring("** "); printstring(s(n)) movq $2107946, 1793(%rsp) movq $0, 1801(%rsp) movb $0, 1809(%rsp) movw $0, 1810(%rsp) movl $0, 1812(%rsp) leaq 1816(%rsp), %rdi movl $29, %ecx movl $0, %eax rep stosq movb $3, 1792(%rsp) movq 1792(%rsp), %rax movq 1800(%rsp), %rdx movq %rax, 256(%rsp) movq %rdx, 264(%rsp) movdqa 1808(%rsp), %xmm2 movaps %xmm2, 272(%rsp) movdqa 1824(%rsp), %xmm3 movaps %xmm3, 288(%rsp) movdqa 1840(%rsp), %xmm4 movaps %xmm4, 304(%rsp) movdqa 1856(%rsp), %xmm5 movaps %xmm5, 320(%rsp) movdqa 1872(%rsp), %xmm6 movaps %xmm6, 336(%rsp) movdqa 1888(%rsp), %xmm7 movaps %xmm7, 352(%rsp) movdqa 1904(%rsp), %xmm0 movaps %xmm0, 368(%rsp) movdqa 1920(%rsp), %xmm1 movaps %xmm1, 384(%rsp) movdqa 1936(%rsp), %xmm2 movaps %xmm2, 400(%rsp) movdqa 1952(%rsp), %xmm3 movaps %xmm3, 416(%rsp) movq 1968(%rsp), %r13 movq 1976(%rsp), %r14 movq %r13, 432(%rsp) movq %r14, 440(%rsp) movq 1984(%rsp), %rcx movq 1992(%rsp), %rbx movq %rcx, 448(%rsp) movq %rbx, 456(%rsp) movq 2000(%rsp), %rsi movq 2008(%rsp), %rdi movq %rsi, 464(%rsp) movq %rdi, 472(%rsp) movq 2016(%rsp), %r9 movq 2024(%rsp), %r10 movq %r9, 480(%rsp) movq %r10, 488(%rsp) movq 2032(%rsp), %r11 movq 2040(%rsp), %r12 movq %r11, 496(%rsp) movq %r12, 504(%rsp) .LVL95: movb $3, 256(%rsp) movq 256(%rsp), %rax movq 264(%rsp), %rdx movq %rax, 1792(%rsp) movq %rdx, 1800(%rsp) .LBE270: .LBB271: .LBB272: pushq %r12 pushq %r11 pushq %r10 pushq %r9 pushq %rdi pushq %rsi pushq %rbx pushq %rcx pushq %r14 pushq %r13 pushq 2040(%rsp) pushq 2040(%rsp) pushq 2040(%rsp) pushq 2040(%rsp) pushq 2040(%rsp) pushq 2040(%rsp) pushq 2040(%rsp) pushq 2040(%rsp) pushq 2040(%rsp) pushq 2040(%rsp) pushq 2040(%rsp) pushq 2040(%rsp) pushq 2040(%rsp) pushq 2040(%rsp) pushq 2040(%rsp) pushq 2040(%rsp) pushq 2040(%rsp) pushq 2040(%rsp) pushq 2040(%rsp) pushq 2040(%rsp) pushq %rdx pushq %rax call _imp_printstring@PLT .LVL96: movdqa 768(%rsp), %xmm4 movaps %xmm4, 1792(%rsp) movdqa 784(%rsp), %xmm5 movaps %xmm5, 1808(%rsp) movdqa 800(%rsp), %xmm6 movaps %xmm6, 1824(%rsp) movdqa 816(%rsp), %xmm7 movaps %xmm7, 1840(%rsp) movdqa 832(%rsp), %xmm0 movaps %xmm0, 1856(%rsp) movdqa 848(%rsp), %xmm1 movaps %xmm1, 1872(%rsp) movdqa 864(%rsp), %xmm2 movaps %xmm2, 1888(%rsp) movdqa 880(%rsp), %xmm3 movaps %xmm3, 1904(%rsp) movdqa 896(%rsp), %xmm4 movaps %xmm4, 1920(%rsp) movdqa 912(%rsp), %xmm5 movaps %xmm5, 1936(%rsp) movq 928(%rsp), %r13 movq 936(%rsp), %r14 movq %r13, 1952(%rsp) movq %r14, 1960(%rsp) movq 944(%rsp), %rax movq 952(%rsp), %rdx movq %rax, 1968(%rsp) movq %rdx, 1976(%rsp) movq 960(%rsp), %rcx movq 968(%rsp), %rbx movq %rcx, 1984(%rsp) movq %rbx, 1992(%rsp) movq 976(%rsp), %rsi movq 984(%rsp), %rdi movq %rsi, 2000(%rsp) movq %rdi, 2008(%rsp) movq 992(%rsp), %r9 movq 1000(%rsp), %r10 movq %r9, 2016(%rsp) movq %r10, 2024(%rsp) movq 1008(%rsp), %r11 movq 1016(%rsp), %r12 movq %r11, 2032(%rsp) movq %r12, 2040(%rsp) .LBE272: .LBE271: .LBB273: .LBB274: addq $256, %rsp pushq %r12 pushq %r11 pushq %r10 pushq %r9 pushq %rdi pushq %rsi pushq %rbx pushq %rcx pushq %rdx pushq %rax pushq %r14 pushq %r13 pushq 760(%rsp) pushq 760(%rsp) pushq 760(%rsp) pushq 760(%rsp) pushq 760(%rsp) pushq 760(%rsp) pushq 760(%rsp) pushq 760(%rsp) pushq 760(%rsp) pushq 760(%rsp) pushq 760(%rsp) pushq 760(%rsp) pushq 760(%rsp) pushq 760(%rsp) pushq 760(%rsp) pushq 760(%rsp) pushq 760(%rsp) pushq 760(%rsp) pushq 760(%rsp) pushq 760(%rsp) call _imp_printstring@PLT .LVL97: .LBE274: .LBE273: 102 write(atompos-1,1); newline addq $256, %rsp movl 3824(%rbp), %edi subl $1, %edi movl $1, %esi call _imp_writeint@PLT .LVL98: .LBB275: .LBB276: call _imp_newline@PLT .LVL99: .LBE276: .LBE275: 103 %signalevent 15 leaq 1024(%rsp), %rdi leaq .LC5(%rip), %rsi call _imp_c2istr@PLT .LVL100: movl _imp_current_line(%rip), %ebx testl %ebx, %ebx movl $103, %eax cmove %eax, %ebx movq _imp_current_file(%rip), %rsi testq %rsi, %rsi jne .L89 .LVL101: .LBB277: movabsq $8603403804667503988, %rax movabsq $31645495908854831, %rdx movq %rax, 1281(%rsp) movq %rdx, 1289(%rsp) movb $0, 1297(%rsp) movw $0, 1298(%rsp) movl $0, 1300(%rsp) leaq 1304(%rsp), %rdi movl $29, %ecx movl $0, %eax rep stosq movb $15, 1280(%rsp) movq 1280(%rsp), %rax movq 1288(%rsp), %rdx movq %rax, 768(%rsp) movq %rdx, 776(%rsp) movq 1296(%rsp), %rax movq 1304(%rsp), %rdx movq %rax, 784(%rsp) movq %rdx, 792(%rsp) movq 1312(%rsp), %rax movq 1320(%rsp), %rdx movq %rax, 800(%rsp) movq %rdx, 808(%rsp) movq 1328(%rsp), %rax movq 1336(%rsp), %rdx movq %rax, 816(%rsp) movq %rdx, 824(%rsp) movq 1344(%rsp), %rax movq 1352(%rsp), %rdx movq %rax, 832(%rsp) movq %rdx, 840(%rsp) movq 1360(%rsp), %rax movq 1368(%rsp), %rdx movq %rax, 848(%rsp) movq %rdx, 856(%rsp) movq 1376(%rsp), %rax movq 1384(%rsp), %rdx movq %rax, 864(%rsp) movq %rdx, 872(%rsp) movq 1392(%rsp), %rax movq 1400(%rsp), %rdx movq %rax, 880(%rsp) movq %rdx, 888(%rsp) movq 1408(%rsp), %rax movq 1416(%rsp), %rdx movq %rax, 896(%rsp) movq %rdx, 904(%rsp) movq 1424(%rsp), %rax movq 1432(%rsp), %rdx movq %rax, 912(%rsp) movq %rdx, 920(%rsp) movq 1440(%rsp), %rax movq 1448(%rsp), %rdx movq %rax, 928(%rsp) movq %rdx, 936(%rsp) movq 1456(%rsp), %rax movq 1464(%rsp), %rdx movq %rax, 944(%rsp) movq %rdx, 952(%rsp) movq 1472(%rsp), %rax movq 1480(%rsp), %rdx movq %rax, 960(%rsp) movq %rdx, 968(%rsp) movq 1488(%rsp), %rax movq 1496(%rsp), %rdx movq %rax, 976(%rsp) movq %rdx, 984(%rsp) movq 1504(%rsp), %rax movq 1512(%rsp), %rdx movq %rax, 992(%rsp) movq %rdx, 1000(%rsp) movq 1520(%rsp), %rax movq 1528(%rsp), %rdx movq %rax, 1008(%rsp) movq %rdx, 1016(%rsp) .LVL102: .LBE277: movb $15, 768(%rsp) movq 768(%rsp), %rax movq 776(%rsp), %rdx movq %rax, 1280(%rsp) movq %rdx, 1288(%rsp) .L84: pushq 1272(%rsp) pushq 1272(%rsp) pushq 1272(%rsp) pushq 1272(%rsp) pushq 1272(%rsp) pushq 1272(%rsp) pushq 1272(%rsp) pushq 1272(%rsp) pushq 1272(%rsp) pushq 1272(%rsp) pushq 1272(%rsp) pushq 1272(%rsp) pushq 1272(%rsp) pushq 1272(%rsp) pushq 1272(%rsp) pushq 1272(%rsp) pushq 1272(%rsp) pushq 1272(%rsp) pushq 1272(%rsp) pushq 1272(%rsp) pushq 1272(%rsp) pushq 1272(%rsp) pushq 1272(%rsp) pushq 1272(%rsp) pushq 1272(%rsp) pushq 1272(%rsp) pushq 1272(%rsp) pushq 1272(%rsp) pushq 1272(%rsp) pushq 1272(%rsp) pushq 1272(%rsp) pushq 1272(%rsp) pushq 1784(%rsp) pushq 1784(%rsp) pushq 1784(%rsp) pushq 1784(%rsp) pushq 1784(%rsp) pushq 1784(%rsp) pushq 1784(%rsp) pushq 1784(%rsp) pushq 1784(%rsp) pushq 1784(%rsp) pushq 1784(%rsp) pushq 1784(%rsp) pushq 1784(%rsp) pushq 1784(%rsp) pushq 1784(%rsp) pushq 1784(%rsp) pushq 1784(%rsp) pushq 1784(%rsp) pushq 1784(%rsp) pushq 1784(%rsp) pushq 1784(%rsp) pushq 1784(%rsp) pushq 1784(%rsp) pushq 1784(%rsp) pushq 1784(%rsp) pushq 1784(%rsp) pushq 1784(%rsp) pushq 1784(%rsp) pushq 1784(%rsp) pushq 1784(%rsp) pushq 1784(%rsp) pushq 1784(%rsp) movl $0, %ecx movl $0, %edx movl $15, %esi movl %ebx, %edi call _signal_event@PLT .LVL103: leaq 1280(%rsp), %rdi call _imp_c2istr@PLT .LVL104: jmp .L84 .L90: 104 %end addq $256, %rsp movl 3824(%rbp), %eax leal -1(%rax), %edi movl $1, %esi call _imp_writeint@PLT .LVL92: .LBB266: .LBB267: call _imp_newline@PLT .LVL93: .LBE267: .LBE266: .LBB268: .LBB269: movl $2, _imp_OutStream(%rip) movq 584+_imp_outfile(%rip), %rax movq %rax, _imp_OutFile(%rip) leaq __PRETTY_FUNCTION__.5991(%rip), %rdi call check_outstream@PLT .LVL94: .LBE269: .LBE268: .LBB270: addq $512, %rsp 105 movq 2312(%rsp), %rax xorq %fs:40, %rax jne .L90 addq $2320, %rsp popq %rbx popq %rbp popq %r12 popq %r13 popq %r14 ret .L89: call __stack_chk_fail@PLT .LVL105: .LFE186: PUTATOM.6459: .LFB189: 106 %routine readline pushq %r15 pushq %r14 pushq %r13 pushq %r12 pushq %rbp pushq %rbx subq $2136, %rsp movq %r10, %r15 movq %fs:40, %rax movq %rax, 2120(%rsp) xorl %eax, %eax leaq 2192(%rsp), %rax movq %rax, 56(%rsp) movq %r10, 48(%rsp) .LVL113: .LBB278: .LBB279: movl $2, _imp_OutStream(%rip) movq 584+_imp_outfile(%rip), %rax movq %rax, _imp_OutFile(%rip) leaq __PRETTY_FUNCTION__.5991(%rip), %rdi call check_outstream@PLT .LVL114: .LBE279: .LBE278: .LBB280: .LBB281: leaq 44(%rsp), %r12 movq %r12, %rbp jmp .L96 .L205: .LBE281: .LBE280: 107 %owninteger semi=0 108 %OWNINTEGER QUOTE=0 109 %integer sym,n1,n2,radix,i,quoted,lpos 110 111 %routine phex(%integer x) .LVL29: pushq %rbp pushq %rbx subq $8, %rsp movl %edi, %ebp .LVL30: 112 %integer k,i 113 %for i=12,-4,0 %cycle 114 k=x>>i&15; k=k+7 %if k>9 movl $16, %ebx .LVL31: .L43: movl %ebp, %eax movl %ebx, %ecx shrl %cl, %eax andl $15, %eax .LVL33: 115 printsymbol(k+'0') leal 48(%rax), %edi .LBB226: .LBB227: call _imp_printsymbol@PLT .LVL35: .LDL4: .LBE227: .LBE226: 116 %repeat leal 7(%rax), %edx cmpl $9, %eax cmovg %edx, %eax .LVL34: .L42: testl %ebx, %ebx jne .L43 117 %end subl $4, %ebx .LVL32: 118 addq $8, %rsp popq %rbx .LVL36: popq %rbp .LVL37: ret .L44: .LFE188: .section .rodata.str1.8 .align 8 .LC3: .string "Illegal cycle I = 0, 1, GPOS - 1" GFLUSH.6636: .LFB198: 119 %routine putatom(%integer t,v) .LVL106: pushq %r12 pushq %rbp pushq %rbx movl %edi, %r12d movl %esi, %ebp movq %r10, %rbx 120 fault(complex) %if atompos>atommax movq (%r10), %r10 cmpl $50, 3824(%r10) jg .L94 .LVL107: .L92: 121 atomtype(atompos)=t; atomval(atompos)=v movq (%rbx), %rdx movl 3824(%rdx), %eax subl $1, %eax cltq movl %r12d, 3624(%rdx,%rax,4) movl $1, %edi .LVL111: call FAULT.6422 .LVL112: jmp .L92 .LFE189: .section .rodata.str1.8 .align 8 .LC6: .string "Illegal cycle I = TAGPOS - 1, -1, 1" READLINE.6438: .LFB187: 122 atompos=atompos+1 movq (%rbx), %rdx movl 3824(%rdx), %eax subl $1, %eax cltq movl %ebp, 3424(%rdx,%rax,4) movq (%rbx), %rax addl $1, 3824(%rax) 123 %end 124 popq %rbx popq %rbp .LVL108: popq %r12 .LVL109: ret .LVL110: .L94: 125 selectoutput(list) 126 %cycle 127 %if semi=0 %start cmpl $0, SEMI.6440(%rip) je .L205 .L97: 128 write(lineno+1,4) movl 3828(%r15), %eax leal 1(%rax), %edi movl $4, %esi call _imp_writeint@PLT .LVL115: .LBB283: 129 printstring(" C"); phex(cloc); printstring(" D"); phex(gloc) movq $17184, 1345(%rsp) movq $0, 1353(%rsp) movb $0, 1361(%rsp) movw $0, 1362(%rsp) movl $0, 1364(%rsp) leaq 1368(%rsp), %rdi movl $29, %ecx movl $0, %eax rep stosq movb $2, 1344(%rsp) movq 1344(%rsp), %rax movq 1352(%rsp), %rdx movq %rax, 64(%rsp) movq %rdx, 72(%rsp) movdqa 1360(%rsp), %xmm0 movaps %xmm0, 80(%rsp) movdqa 1376(%rsp), %xmm1 movaps %xmm1, 96(%rsp) movdqa 1392(%rsp), %xmm2 movaps %xmm2, 112(%rsp) movdqa 1408(%rsp), %xmm3 movaps %xmm3, 128(%rsp) movdqa 1424(%rsp), %xmm4 movaps %xmm4, 144(%rsp) movdqa 1440(%rsp), %xmm5 movaps %xmm5, 160(%rsp) movdqa 1456(%rsp), %xmm6 movaps %xmm6, 176(%rsp) movdqa 1472(%rsp), %xmm7 movaps %xmm7, 192(%rsp) movdqa 1488(%rsp), %xmm0 movaps %xmm0, 208(%rsp) movq 1504(%rsp), %r13 movq 1512(%rsp), %r14 movq %r13, 224(%rsp) movq %r14, 232(%rsp) movq 1520(%rsp), %rax movq 1528(%rsp), %rdx movq %rax, 240(%rsp) movq %rdx, 248(%rsp) movq 1536(%rsp), %rcx movq 1544(%rsp), %rbx movq %rcx, 256(%rsp) movq %rbx, 264(%rsp) movq 1552(%rsp), %rsi movq 1560(%rsp), %rdi movq %rsi, 272(%rsp) movq %rdi, 280(%rsp) movq 1568(%rsp), %r9 movq 1576(%rsp), %r10 movq %r9, 288(%rsp) movq %r10, 296(%rsp) movq 1584(%rsp), %r11 movq 1592(%rsp), %r12 movq %r11, 304(%rsp) movq %r12, 312(%rsp) .LVL116: movb $2, 64(%rsp) movdqa 64(%rsp), %xmm1 movaps %xmm1, 1856(%rsp) movdqa 1360(%rsp), %xmm2 movaps %xmm2, 1872(%rsp) movdqa 1376(%rsp), %xmm3 movaps %xmm3, 1888(%rsp) movdqa 1392(%rsp), %xmm4 movaps %xmm4, 1904(%rsp) movdqa 1408(%rsp), %xmm5 movaps %xmm5, 1920(%rsp) movdqa 1424(%rsp), %xmm6 movaps %xmm6, 1936(%rsp) movdqa 1440(%rsp), %xmm7 movaps %xmm7, 1952(%rsp) movdqa 1456(%rsp), %xmm0 movaps %xmm0, 1968(%rsp) movdqa 1472(%rsp), %xmm1 movaps %xmm1, 1984(%rsp) movdqa 1488(%rsp), %xmm2 movaps %xmm2, 2000(%rsp) movq %r13, 2016(%rsp) movq %r14, 2024(%rsp) movq %rax, 2032(%rsp) movq %rdx, 2040(%rsp) movq %rcx, 2048(%rsp) movq %rbx, 2056(%rsp) movq %rsi, 2064(%rsp) movq %rdi, 2072(%rsp) movq %r9, 2080(%rsp) movq %r10, 2088(%rsp) movq %r11, 2096(%rsp) movq %r12, 2104(%rsp) .LBE283: .LBB284: .LBB285: pushq %r12 pushq %r11 pushq %r10 pushq %r9 pushq %rdi pushq %rsi pushq %rbx pushq %rcx pushq %rdx pushq %rax pushq %r14 pushq %r13 pushq 1592(%rsp) pushq 1592(%rsp) pushq 1592(%rsp) pushq 1592(%rsp) pushq 1592(%rsp) pushq 1592(%rsp) pushq 1592(%rsp) pushq 1592(%rsp) pushq 1592(%rsp) pushq 1592(%rsp) pushq 1592(%rsp) pushq 1592(%rsp) pushq 1592(%rsp) pushq 1592(%rsp) pushq 1592(%rsp) pushq 1592(%rsp) pushq 1592(%rsp) pushq 1592(%rsp) pushq 312(%rsp) pushq 312(%rsp) call _imp_printstring@PLT .LVL117: .LBE285: .LBE284: 130 space addq $256, %rsp movl 3420(%r15), %edi call PHEX.6450 .LVL118: .LBB286: 131 %finish movq $17440, 1345(%rsp) movq $0, 1353(%rsp) movb $0, 1361(%rsp) movw $0, 1362(%rsp) movl $0, 1364(%rsp) leaq 1368(%rsp), %rdi movl $29, %ecx movl $0, %eax rep stosq movb $2, 1344(%rsp) movq 1344(%rsp), %rax movq 1352(%rsp), %rdx movq %rax, 320(%rsp) movq %rdx, 328(%rsp) movdqa 1360(%rsp), %xmm3 movaps %xmm3, 336(%rsp) movdqa 1376(%rsp), %xmm4 movaps %xmm4, 352(%rsp) movdqa 1392(%rsp), %xmm5 movaps %xmm5, 368(%rsp) movdqa 1408(%rsp), %xmm6 movaps %xmm6, 384(%rsp) movdqa 1424(%rsp), %xmm7 movaps %xmm7, 400(%rsp) movdqa 1440(%rsp), %xmm0 movaps %xmm0, 416(%rsp) movdqa 1456(%rsp), %xmm1 movaps %xmm1, 432(%rsp) movdqa 1472(%rsp), %xmm2 movaps %xmm2, 448(%rsp) movdqa 1488(%rsp), %xmm3 movaps %xmm3, 464(%rsp) movq 1504(%rsp), %r13 movq 1512(%rsp), %r14 movq %r13, 480(%rsp) movq %r14, 488(%rsp) movq 1520(%rsp), %rax movq 1528(%rsp), %rdx movq %rax, 496(%rsp) movq %rdx, 504(%rsp) movq 1536(%rsp), %rcx movq 1544(%rsp), %rbx movq %rcx, 512(%rsp) movq %rbx, 520(%rsp) movq 1552(%rsp), %rsi movq 1560(%rsp), %rdi movq %rsi, 528(%rsp) movq %rdi, 536(%rsp) movq 1568(%rsp), %r9 movq 1576(%rsp), %r10 movq %r9, 544(%rsp) movq %r10, 552(%rsp) movq 1584(%rsp), %r11 movq 1592(%rsp), %r12 movq %r11, 560(%rsp) movq %r12, 568(%rsp) .LVL119: movb $2, 320(%rsp) movdqa 320(%rsp), %xmm4 movaps %xmm4, 1600(%rsp) movdqa 1360(%rsp), %xmm5 movaps %xmm5, 1616(%rsp) movdqa 1376(%rsp), %xmm6 movaps %xmm6, 1632(%rsp) movdqa 1392(%rsp), %xmm7 movaps %xmm7, 1648(%rsp) movdqa 1408(%rsp), %xmm0 movaps %xmm0, 1664(%rsp) movdqa 1424(%rsp), %xmm1 movaps %xmm1, 1680(%rsp) movdqa 1440(%rsp), %xmm2 movaps %xmm2, 1696(%rsp) movdqa 1456(%rsp), %xmm3 movaps %xmm3, 1712(%rsp) movdqa 1472(%rsp), %xmm4 movaps %xmm4, 1728(%rsp) movdqa 1488(%rsp), %xmm5 movaps %xmm5, 1744(%rsp) movq %r13, 1760(%rsp) movq %r14, 1768(%rsp) movq %rax, 1776(%rsp) movq %rdx, 1784(%rsp) movq %rcx, 1792(%rsp) movq %rbx, 1800(%rsp) movq %rsi, 1808(%rsp) movq %rdi, 1816(%rsp) movq %r9, 1824(%rsp) movq %r10, 1832(%rsp) movq %r11, 1840(%rsp) movq %r12, 1848(%rsp) .LBE286: .LBB287: .LBB288: pushq %r12 pushq %r11 pushq %r10 pushq %r9 pushq %rdi pushq %rsi pushq %rbx pushq %rcx pushq %rdx pushq %rax pushq %r14 pushq %r13 pushq 1592(%rsp) pushq 1592(%rsp) pushq 1592(%rsp) pushq 1592(%rsp) pushq 1592(%rsp) pushq 1592(%rsp) pushq 1592(%rsp) pushq 1592(%rsp) pushq 1592(%rsp) pushq 1592(%rsp) pushq 1592(%rsp) pushq 1592(%rsp) pushq 1592(%rsp) pushq 1592(%rsp) pushq 1592(%rsp) pushq 1592(%rsp) pushq 1592(%rsp) pushq 1592(%rsp) pushq 568(%rsp) pushq 568(%rsp) call _imp_printstring@PLT .LVL120: .LBE288: .LBE287: 132 lpos=1; quoted=0 addq $256, %rsp movl 3416(%r15), %edi call PHEX.6450 .LVL121: .LBB289: .LBB290: call _imp_space@PLT .LVL122: jmp .L97 .LVL123: .L203: .LBE290: .LBE289: 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 leal (%r12,%rbx), %eax cmpl $80, %eax jne .L99 testl %r12d, %r12d jne .L100 136 %else movl $10, 44(%rsp) .LVL131: .LBB295: .LBB293: movl $10, %edi call _imp_printsymbol@PLT .LVL132: .L101: .LBE293: .LBE295: 137 readsymbol(sym) 138 %finish 139 printsymbol(sym) movl QUOTE.6441(%rip), %edi movl %edi, 44(%rsp) .LVL126: movsbl %dil, %edi .LBB291: .LBB292: call _imp_printsymbol@PLT .LVL127: .L102: .LBE292: .LBE291: movsbl 44(%rsp), %edi .LBB299: .LBB294: call _imp_printsymbol@PLT .LVL138: .LBE294: .LBE299: 140 %if quoted=0 %start testl %r12d, %r12d jne .L102 jmp .L101 .LVL139: .L105: 141 quoted=1 %if sym='''' %or sym='"' movl 44(%rsp), %eax 142 quote=sym %if quoted#0 cmpl $34, %eax je .L105 cmpl $39, %eax je .L105 .L103: 143 %else movl %eax, QUOTE.6441(%rip) jmp .L106 .LVL140: .L109: 144 quoted=0 %if sym=quote movl QUOTE.6441(%rip), %eax cmpl %eax, 44(%rsp) je .L103 .LVL128: .L106: 145 %finish 146 %if quoted=0 %start 147 %if sym='{' %start; ! Comment movl 44(%rsp), %eax cmpl $123, %eax je .L108 .L107: .LVL133: .LBB296: 148 %cycle 149 readsymbol(sym) 150 printsymbol(sym) movsbl 44(%rsp), %edi .LBB301: .LBB302: call _imp_printsymbol@PLT .LVL143: .LBE302: .LBE301: 151 %if sym=nl %start cmpl $10, 44(%rsp) jne .L109 152 lineno=lineno+1; spaces(18) addl $1, 3828(%r15) .LVL144: .LBB303: .LBB304: movl $18, %edi call _imp_spaces@PLT .LVL145: jmp .L109 .LVL146: .L201: .LBE304: .LBE303: 153 %finish 154 %repeatuntil sym='}' cmpl $125, 44(%rsp) je .L203 .L108: .LVL141: .LBB300: .LBB282: movq %rbp, %rdi call _imp_readsymbol@PLT .LVL142: .LBE282: .LBE300: 155 ->next 156 %finish movl $0, %r12d .LVL124: jmp .L98 .LVL125: .L100: movl $1, %r12d .LVL129: .L114: .L117: .L118: movl $1, %ebx movl $0, %r12d jmp .L98 .LVL157: .L204: .L121: 157 sym=sym-32 %if 'a'<=sym<='z'; semi=0 158 %if sym=';' %start movl 44(%rsp), %eax cmpl $59, %eax je .L202 .L112: 159 sym=nl; lineno=lineno-1; semi=1 movl $10, 44(%rsp) 160 %finish subl $1, 3828(%r15) 161 %if sym='|' %start cmpl $124, %eax je .L115 movl $1, SEMI.6440(%rip) movl $0, %r12d .LVL150: .L113: 162 readsymbol(sym) %and printsymbol(sym) %until sym=nl leal -97(%rax), %edx cmpl $25, %edx jbe .L201 .LVL134: .L111: .LBE296: 163 %finish 164 %finish subl $32, %eax .LVL147: movl %eax, 44(%rsp) .LVL148: jmp .L111 .LVL149: .L202: movsbl 44(%rsp), %edi .LBB307: .LBB308: call _imp_printsymbol@PLT .LVL154: .LBE308: .LBE307: 165 lineno=lineno+1 %if sym=nl movl 44(%rsp), %edx cmpl $10, %edx je .L113 cmpl $10, 44(%rsp) jne .L115 166 line(lpos)=sym; lpos=lpos+1 leal -1(%rbx), %eax cltq movb %dl, 8088(%r15,%rax) movl $0, SEMI.6440(%rip) addl $1, 3828(%r15) .LDL7: leal -1(%rbx), %eax cltq movb $10, 8088(%r15,%rax) addl $1, 3828(%r15) leal -1(%rbx), %eax cltq movb $10, 8088(%r15,%rax) 167 %repeatuntil sym=nl %and quoted=0 addl $1, %ebx .LVL130: .L98: movl $0, %r12d .LVL135: jmp .L114 .LVL136: .L99: .LBB297: .LBB298: movq %rbp, %rdi call _imp_readsymbol@PLT .LVL137: .LDL5: .LDL6: .LBE298: .LBE297: addl $1, %ebx .LVL151: addl $1, %ebx .LVL155: .L120: 168 %repeatuntil lpos>2; ! non-empty line testl %r12d, %r12d jne .L98 cmpl $2, %ebx jg .L204 .LVL156: .L96: 169 170 ! Now decompose line into atoms 171 jmp .L120 .LVL152: .L115: .LBB305: .LBB306: movq %rbp, %rdi call _imp_readsymbol@PLT .LVL153: .LBE306: .LBE305: 172 atompos=1; ifpos=0; lpos=1 movl $1, 3824(%r15) 173 nextatom: movl $0, 3412(%r15) .LVL158: 174 %cycle movl $1, %ebp 175 sym=line(lpos); lpos=lpos+1 leal -1(%rbp), %eax cltq movzbl 8088(%r15,%rax), %eax movzbl %al, %ebx movl %ebx, 44(%rsp) 176 ->tag %if 'A'<=sym<='Z' movl %r12d, %ebp movl %r12d, %ebp movl %r12d, %ebp movl %r12d, %ebp movl %r12d, %ebp movl %r12d, %ebp movl %r12d, %ebp movl %r12d, %ebp movl %r12d, %ebp movl %r12d, %ebp movl %r12d, %ebp movl %r12d, %ebp jmp .L152 .L210: movl %r12d, %ebp leal 1(%rbp), %r12d .LVL213: .LBB312: 177 ->num %if '0'<=sym<='9' 178 %if sym=nl %start cmpl $10, %ebx je .L211 .L127: 179 putatom(sep,0); atompos=1; %return leaq 48(%rsp), %r10 movl $0, %esi movl $14, %edi call PUTATOM.6459 .LVL160: 180 %finish movl $1, 3824(%r15) 181 %if sym=':' %start movl %ebx, %ecx leal -65(%rbx), %edx cmpl $25, %edx jbe .L123 .L124: .LVL214: .LBE312: .LBB313: cmpl $58, %ebx je .L212 .L128: 182 putatom(colon,0) movq %r14, %r10 movl $0, %esi movl $13, %edi call PUTATOM.6459 .LVL164: leal -48(%rbx), %edx cmpl $9, %edx jbe .L188 .L126: .LBE313: 183 %finishelseif sym='+' %start jmp .L122 .LVL165: .L213: 184 putatom(op,add) movq %r14, %r10 movl $2, %esi movl $11, %edi call PUTATOM.6459 .LVL166: 185 %finishelseif sym='-' %start jmp .L122 .LVL167: .L214: cmpl $43, %ebx je .L213 .L130: 186 putatom(op,sub) movq %r14, %r10 movl $3, %esi movl $11, %edi call PUTATOM.6459 .LVL168: 187 %finishelseif sym='&' %start jmp .L122 .LVL169: .L215: cmpl $45, %ebx je .L214 .L131: 188 putatom(op,and) movq %r14, %r10 movl $4, %esi movl $11, %edi call PUTATOM.6459 .LVL170: 189 %finishelseif sym='!' %start jmp .L122 .LVL171: .L216: cmpl $38, %ebx je .L215 .L132: 190 putatom(op,or) movq %r14, %r10 movl $5, %esi movl $11, %edi call PUTATOM.6459 .LVL172: 191 %finishelseif sym='\' %start jmp .L122 .LVL173: .L217: cmpl $33, %ebx je .L216 .L133: 192 putatom(op,xor) movq %r14, %r10 movl $6, %esi movl $11, %edi call PUTATOM.6459 .LVL174: 193 %finishelseif sym='*' %start jmp .L122 .LVL175: .L218: cmpl $92, %ebx je .L217 .L134: 194 putatom(op,mul) movq %r14, %r10 movl $8, %esi movl $11, %edi call PUTATOM.6459 .LVL176: 195 %finishelseif sym='%' %start jmp .L122 .LVL177: .L219: cmpl $42, %ebx je .L218 .L135: 196 putatom(op,rem) movq %r14, %r10 movl $10, %esi movl $11, %edi call PUTATOM.6459 .LVL178: 197 %finishelseif sym='/' %start jmp .L122 .LVL179: .L220: cmpl $37, %ebx je .L219 .L136: 198 putatom(op,div) movq %r14, %r10 movl $9, %esi movl $11, %edi call PUTATOM.6459 .LVL180: 199 %finishelseif sym='<' %or sym='>' %start jmp .L122 .LVL181: .L221: cmpl $47, %ebx je .L220 .L137: 200 %if line(lpos)=sym %start; ! '<<', '>>' movslq %ebp, %rax movzbl 8088(%r15,%rax), %eax cmpl %eax, %ebx je .L221 .L140: .L142: .L143: 201 lpos=lpos+1 addl $2, %ebp .LVL182: movl %eax, %edx andl $-3, %edx 202 %if sym='<' %then putatom(op,left) %else putatom(op,right) cmpl $60, %ebx je .L207 .L141: cmpb $60, %dl jne .L138 .L139: 203 %else; ! '<', '>', '<=', '>=' movq %r14, %r10 movl $11, %esi movl $11, %edi call PUTATOM.6459 .LVL185: 204 square: !+'[', ']', '[=', ']=' jmp .L122 .LVL186: .L222: 205 %if line(lpos)='=' %start movslq %ebp, %rax cmpb $61, 8088(%r15,%rax) je .L222 .LVL215: .L144: 206 lpos=lpos+1; sym=sym+128 movq %r14, %r10 movl $12, %esi movl $11, %edi call PUTATOM.6459 .LVL183: jmp .L122 .LVL184: .L207: leal 2(%rbp), %r12d .LVL187: 207 %finish subl $-128, %ebx .LVL188: movl %ebx, 44(%rsp) .LVL189: jmp .L144 .LVL190: .L138: 208 putatom(comp,sym) movq %r14, %r10 movl 44(%rsp), %esi movl $12, %edi call PUTATOM.6459 .LVL216: movl %r12d, %ebp jmp .L122 .LVL217: .L191: movl %esi, %edx .LVL218: 209 %finish 210 %finishelseif sym='(' %or sym=')' %start 211 putatom(bracket,sym) movq %r14, %r10 movl %ebx, %esi movl $15, %edi call PUTATOM.6459 .LVL196: 212 %finishelseif sym='[' %or sym=']' %start jmp .L122 .L150: 213 ->square subl $40, %ecx .LVL191: cmpl $1, %ecx jbe .L208 .L145: 214 %finishelseif sym='=' %or sym='#' %start subl $91, %eax 215 putatom(comp,sym) testb $-3, %al je .L143 .L147: movq %r14, %r10 movl %ebx, %esi movl $12, %edi call PUTATOM.6459 .LVL197: 216 %finishelseif sym='"' %start cmpl $35, %ebx je .L150 cmpl $61, %ebx je .L150 .L148: jmp .L122 .L209: 217 putatom(string,lpos) movq %r14, %r10 movl %r12d, %esi movl $2, %edi call PUTATOM.6459 .LVL198: 218 lpos=lpos+1 %while line(lpos)#'"'; ! we know it's there cmpl $34, %ebx je .L209 .L151: 219 lpos=lpos+1 movslq %ebp, %rbp cmpb $34, 8088(%r15,%rbp) je .L189 .L153: movslq %r12d, %rax cmpb $34, 8088(%r15,%rax) jne .L153 .L152: addl $1, %ebp .LVL200: 220 %finishelseif sym='''' %start leal 1(%r12), %ebp .LDL8: .LVL199: movl %ebp, %r12d jmp .L122 .LVL201: .L189: 221 sym=line(lpos); lpos=lpos+1 %if sym='''' movslq %ebp, %rax movzbl 8088(%r15,%rax), %eax movl %eax, 44(%rsp) 222 fault(atom) %if line(lpos+1)#'''' cmpl $39, %ebx jne .L154 movslq %r12d, %rax cmpb $39, 8088(%r15,%rax) jne .L210 .L156: 223 putatom(constant,sym); lpos=lpos+2 addl $2, %ebp cmpl $39, %eax cmove %ebp, %r12d .LVL192: .L155: movq %r14, %r10 movl 44(%rsp), %esi movl $1, %edi call PUTATOM.6459 .LVL193: movq %r15, %r10 movl $2, %edi call FAULT.6422 .LVL202: jmp .L156 .L154: 224 %else leal 2(%r12), %ebp .LVL194: jmp .L122 .LVL195: .L208: .L146: 225 fault(atom) %unless sym=' ' cmpl $32, %ebx je .L122 .LVL203: 226 %finish movq %r15, %r10 movl $2, %edi call FAULT.6422 .LVL204: jmp .L122 .LVL205: .L188: .LBB311: movl $0, %ecx .LVL206: .LBE311: 227 %repeat 228 num: i=0; radix=10; ! I accumulates number, default radix is ten 229 %cycle movl $0, %esi 230 %if sym='_' %start; ! change radix movl $10, %edx cmpl $95, %ebx je .L191 .L159: .LVL222: .LBB314: 231 radix=i; i=0 232 %finishelseif '9'nextatom 234 %else movq %r14, %r10 movl $1, %edi call PUTATOM.6459 .LVL211: 235 sym=sym-7 %if sym>'9'; sym=sym-'0' leal -1(%r12), %ebp .LVL212: .L122: 236 ->endconst %unless 0<=symnextatom cmpl $1, %ebp jne .L177 .LVL242: .L176: .LBE316: cmpl $1, %ebp je .L176 .L177: movl %r13d, %ebp .LVL257: jmp .L122 .LVL258: .L226: .LBE317: 259 %finish subl $1, %ebp .LVL253: leal -1(%rbp), %eax cltq leaq (%r15,%rax,4), %rax testl %edi, %edi movl %ebp, %esi cmovne 208(%rax), %esi .L180: .LVL255: 260 %repeat 261 ! Not found: enter name and details 262 tag1(tagpos)=n1; tag2(tagpos)=n2 movl 3408(%r15), %esi movslq %esi, %rax leaq (%r15,%rax,4), %rax movl %ebx, 2604(%rax) 263 tagtype(tagpos)=unknown; tagval(tagpos)=0 movl %r12d, 1804(%rax) movl $0, 1004(%rax) 264 putatom(unknown,tagpos) leaq 48(%rsp), %r14 .LBB309: movl $0, 204(%rax) movq %r14, %r10 movl $0, %edi call PUTATOM.6459 .LVL243: 265 %if tagpos>tagmax %then fault(dfull) %else tagpos=tagpos+1 cmpl $200, 3408(%r15) jg .L226 .L181: 266 %finish movq %r15, %r10 movl $13, %edi call FAULT.6422 .LVL259: jmp .L181 .LVL260: .L182: 267 ->nextatom 268 %finish addl $1, 3408(%r15) movl %r13d, %ebp .LVL244: jmp .L122 .LVL245: .L225: .LBB317: 269 %if i<3 %start cmpl $2, %edx jg .L182 270 n1=n1*37+sym leal (%rbx,%rbx,8), %ecx leal (%rbx,%rcx,4), %ebx .LVL268: addl %eax, %ebx .LVL269: 271 %finishelseif i<6 %start jmp .L184 .LVL270: .L206: 272 n2=n2*37+sym leal (%r12,%r12,8), %ecx leal (%r12,%rcx,4), %r12d .LVL261: addl %eax, %r12d .LVL262: .L183: .L184: 273 %finish cmpl $5, %edx jg .L184 274 i=i+1; lpos=lpos+1 addl $1, %edx .LVL263: .L166: leal (%rdx,%rbp), %r13d .LVL264: 275 %repeat 276 %end movq 2120(%rsp), %rax xorq %fs:40, %rax jne .L206 addq $2136, %rsp popq %rbx .LVL161: popq %rbp popq %r12 .LVL162: popq %r13 popq %r14 popq %r15 ret .LVL163: .L212: call __stack_chk_fail@PLT .LVL271: .LFE187: CEXPR.6589: .LFB194: 277 278 %routine nextatom 279 type=atomtype(atompos); val=atomval(atompos) movl 3824(%r10), %eax movslq %eax, %rdx leaq (%r10,%rdx,4), %rcx movl 3620(%rcx), %edx movl %edx, 204(%r10) 280 atompos=atompos+1 %unless type=sep movl 3420(%rcx), %ecx movl %ecx, 200(%r10) cmpl $14, %edx je .L1 281 %end addl $1, %eax movl %eax, 3824(%r10) .L2: .L1: 282 rep ret .LFE190: OPENBRACKET.6572: .LFB191: 283 %predicate open bracket 284 %falseunless atomtype(atompos)=bracket %and atomval(atompos)='(' movl 3824(%r10), %edx movslq %edx, %rax leaq (%r10,%rax,4), %rcx cmpl $15, 3620(%rcx) je .L8 .L3: 285 atompos=atompos+1; %true cmpl $40, 3420(%rcx) jne .L3 .L5: addl $1, %edx movl %edx, 3824(%r10) 286 %end rep ret .L8: .L4: movl $1, %eax jmp .L3 .LFE191: EQUALSIGN.6582: .LFB193: 287 movl $0, %eax 288 %routine close bracket pushq %rbx movq %r10, %rbx movslq 3824(%r10), %rax leaq (%r10,%rax,4), %rax 289 fault(form) %unless atomtype(atompos)=bracket %and atomval(atompos)=')' cmpl $15, 3620(%rax) jne .L265 290 atompos=atompos+1 cmpl $41, 3420(%rax) je .L266 .L265: addl $1, 3824(%rbx) 291 %end 292 movq %rbx, %r10 movl $5, %edi call FAULT.6422 .LVL298: .L266: popq %rbx ret .LFE192: GBYTE.6629: .LFB196: 293 %predicate equal sign 294 %falseunless atomtype(atompos)=comp %and atomval(atompos)='=' movl 3824(%r10), %edx movslq %edx, %rax leaq (%r10,%rax,4), %rcx cmpl $12, 3620(%rcx) je .L14 .L9: 295 atompos=atompos+1; %true cmpl $61, 3420(%rcx) jne .L9 .L11: addl $1, %edx movl %edx, 3824(%r10) 296 %end rep ret .L14: .L10: movl $1, %eax jmp .L9 .LFE193: SATREFS.6673: .LFB202: 297 movl $0, %eax 298 %routinespec unary 299 300 %integerfn cexpr(%integer must) .LVL272: pushq %r14 pushq %r13 pushq %r12 pushq %rbp pushq %rbx subq $1040, %rsp movl %edi, %r12d movq %r10, %rbp movq %fs:40, %rax movq %rax, 1032(%rsp) xorl %eax, %eax 301 %integer value,oper 302 %switch s(add:right) 303 nextatom; unary call NEXTATOM.6568 .LVL273: 304 value=val; fault(consterr) %unless type=constant movq %rbp, %r10 call UNARY.6587 .LVL274: movl 200(%rbp), %ebx .LVL275: 305 %cycle cmpl $1, 204(%rbp) jne .L248 .L229: .L230: 306 %result=value %unless atomtype(atompos)=op movl 3824(%rbp), %eax movslq %eax, %rdx leaq 0(%rbp,%rdx,4), %rdx cmpl $11, 3620(%rdx) je .L249 .LVL276: .L228: movq %rbp, %r10 movl $3, %edi call FAULT.6422 .LVL278: jmp .L230 .L249: .L232: 307 %if must=0 %start testl %r12d, %r12d jne .L234 308 %result=value %unless atomtype(atompos+1)=constant cmpl $1, 3624(%rdx) jne .L228 .L233: .L234: 309 %finish 310 oper=atomval(atompos); atompos=atompos+1 movl 3420(%rdx), %ebx .LVL279: 311 nextatom; fault(consterr) %unless type=constant addl $1, %eax movl %eax, 3824(%rbp) movq %rbp, %r10 call NEXTATOM.6568 .LVL280: 312 ->s(oper) cmpl $1, 204(%rbp) jne .L251 .L235: .LVL281: .LDL10: 313 s(add): value=value+val; %continue movq %rbp, %r10 movl $3, %edi call FAULT.6422 .LVL289: jmp .L235 .LVL290: .L238: .LBB321: 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 323 %repeat 324 %end 325 326 %routine unary leal -2(%rbx), %eax cmpl $10, %eax jbe .L236 movl _imp_current_line(%rip), %ebp testl %ebp, %ebp movl $326, %eax cmove %eax, %ebp movq _imp_current_file(%rip), %rsi testq %rsi, %rsi je .L238 leaq 512(%rsp), %rdi call _imp_c2istr@PLT .LVL282: .L239: pushq $312 leaq .LC1(%rip), %rax pushq %rax pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) movl %ebx, %r9d leaq .LC0(%rip), %r8 movl %ebx, %ecx movl $3, %edx movl $6, %esi movl %ebp, %edi movl $0, %eax call _signal_eventf@PLT .LVL283: addq $272, %rsp .L236: .L240: movabsq $8603403804667503988, %rax movabsq $31645495908854831, %rdx movq %rax, 769(%rsp) movq %rdx, 777(%rsp) movb $0, 785(%rsp) movw $0, 786(%rsp) movl $0, 788(%rsp) leaq 792(%rsp), %rdi movl $29, %ecx movl $0, %eax rep stosq movb $15, 768(%rsp) movq 768(%rsp), %rax movq 776(%rsp), %rdx movq %rax, (%rsp) movq %rdx, 8(%rsp) movdqa 784(%rsp), %xmm11 movaps %xmm11, 16(%rsp) movdqa 800(%rsp), %xmm9 movaps %xmm9, 32(%rsp) movdqa 816(%rsp), %xmm7 movaps %xmm7, 48(%rsp) movdqa 832(%rsp), %xmm5 movaps %xmm5, 64(%rsp) movdqa 848(%rsp), %xmm3 movaps %xmm3, 80(%rsp) movq 864(%rsp), %r13 movq 872(%rsp), %r14 movq %r13, 96(%rsp) movq %r14, 104(%rsp) movdqa 880(%rsp), %xmm0 movaps %xmm0, 112(%rsp) movdqa 896(%rsp), %xmm2 movaps %xmm2, 128(%rsp) movdqa 912(%rsp), %xmm1 movaps %xmm1, 144(%rsp) movq 928(%rsp), %r9 movq 936(%rsp), %r10 movq %r9, 160(%rsp) movq %r10, 168(%rsp) movdqa 944(%rsp), %xmm13 movaps %xmm13, 176(%rsp) movdqa 960(%rsp), %xmm15 movaps %xmm15, 192(%rsp) movq 976(%rsp), %r11 movq 984(%rsp), %r12 .LVL291: movq %r11, 208(%rsp) movq %r12, 216(%rsp) movq 992(%rsp), %rsi movq 1000(%rsp), %rdi movq %rsi, 224(%rsp) movq %rdi, 232(%rsp) movq 1008(%rsp), %rax movq 1016(%rsp), %rdx movq %rax, 240(%rsp) movq %rdx, 248(%rsp) .LVL292: .LBE321: movb $15, (%rsp) movdqa (%rsp), %xmm4 movaps %xmm4, 512(%rsp) movaps %xmm11, 528(%rsp) movaps %xmm9, 544(%rsp) movaps %xmm7, 560(%rsp) movaps %xmm5, 576(%rsp) movaps %xmm3, 592(%rsp) movq %r13, 608(%rsp) movq %r14, 616(%rsp) movaps %xmm0, 624(%rsp) movaps %xmm2, 640(%rsp) movaps %xmm1, 656(%rsp) movq %r9, 672(%rsp) movq %r10, 680(%rsp) movaps %xmm13, 688(%rsp) movaps %xmm15, 704(%rsp) movq %r11, 720(%rsp) movq %r12, 728(%rsp) movq %rsi, 736(%rsp) movq %rdi, 744(%rsp) movq %rax, 752(%rsp) movq %rdx, 760(%rsp) jmp .L239 .L252: pushq %rbx movq %r10, %rbx .LVL296: 327 %integername v 328 %returnunless type=op %and atomtype(atompos)=constant cmpl $11, 204(%r10) je .L263 .L261: rep ret .L263: movslq 3824(%r10), %rax leaq (%r10,%rax,4), %rax 329 %returnunless val=sub %or val=xor movl _imp_current_line(%rip), %ebp testl %ebp, %ebp movl $329, %eax cmove %eax, %ebp movq _imp_current_file(%rip), %rsi testq %rsi, %rsi jne .L252 .LVL284: .LBB320: movabsq $8603403804667503988, %rax movabsq $31645495908854831, %rdx movq %rax, 769(%rsp) movq %rdx, 777(%rsp) movb $0, 785(%rsp) movw $0, 786(%rsp) movl $0, 788(%rsp) leaq 792(%rsp), %rdi movl $29, %ecx movl $0, %eax rep stosq movb $15, 768(%rsp) movq 768(%rsp), %rax movq 776(%rsp), %rdx movq %rax, 256(%rsp) movq %rdx, 264(%rsp) movq 784(%rsp), %rax movq 792(%rsp), %rdx movq %rax, 272(%rsp) movq %rdx, 280(%rsp) movq 800(%rsp), %rax movq 808(%rsp), %rdx movq %rax, 288(%rsp) movq %rdx, 296(%rsp) movq 816(%rsp), %rax movq 824(%rsp), %rdx movq %rax, 304(%rsp) movq %rdx, 312(%rsp) movq 832(%rsp), %rax movq 840(%rsp), %rdx movq %rax, 320(%rsp) movq %rdx, 328(%rsp) movq 848(%rsp), %rax movq 856(%rsp), %rdx movq %rax, 336(%rsp) movq %rdx, 344(%rsp) movq 864(%rsp), %rax movq 872(%rsp), %rdx movq %rax, 352(%rsp) movq %rdx, 360(%rsp) movq 880(%rsp), %rax movq 888(%rsp), %rdx movq %rax, 368(%rsp) movq %rdx, 376(%rsp) movq 896(%rsp), %rax movq 904(%rsp), %rdx movq %rax, 384(%rsp) movq %rdx, 392(%rsp) movq 912(%rsp), %rax movq 920(%rsp), %rdx movq %rax, 400(%rsp) movq %rdx, 408(%rsp) movq 928(%rsp), %rax movq 936(%rsp), %rdx movq %rax, 416(%rsp) movq %rdx, 424(%rsp) movq 944(%rsp), %rax movq 952(%rsp), %rdx movq %rax, 432(%rsp) movq %rdx, 440(%rsp) movq 960(%rsp), %rax movq 968(%rsp), %rdx movq %rax, 448(%rsp) movq %rdx, 456(%rsp) movq 976(%rsp), %rax movq 984(%rsp), %rdx movq %rax, 464(%rsp) movq %rdx, 472(%rsp) movq 992(%rsp), %rax movq 1000(%rsp), %rdx movq %rax, 480(%rsp) movq %rdx, 488(%rsp) movq 1008(%rsp), %rax movq 1016(%rsp), %rdx movq %rax, 496(%rsp) movq %rdx, 504(%rsp) .LVL285: .LBE320: movb $15, 256(%rsp) movq 256(%rsp), %rax movq 264(%rsp), %rdx movq %rax, 768(%rsp) movq %rdx, 776(%rsp) .L243: pushq $312 leaq .LC1(%rip), %rax pushq %rax pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) movl %ebx, %r9d leaq .LC2(%rip), %r8 movl %ebx, %ecx movl $2, %edx movl $8, %esi movl %ebp, %edi movl $0, %eax call _signal_eventf@PLT .LVL286: .LVL287: leaq 768(%rsp), %rdi call _imp_c2istr@PLT .LVL293: jmp .L243 .LVL294: .L250: cmpl $1, 3620(%rax) jne .L261 .L255: movl 200(%r10), %ecx 330 v==atomval(atompos) movl %ebx, %eax movq 1032(%rsp), %rcx xorq %fs:40, %rcx jne .L250 addq $1040, %rsp popq %rbx popq %rbp popq %r12 popq %r13 popq %r14 ret .LVL277: .L248: addq $272, %rsp jmp .L228 .LVL288: .L251: call __stack_chk_fail@PLT .LVL295: .LFE194: UNARY.6587: .LFB195: cmpl $6, %ecx je .L257 cmpl $3, %ecx jne .L261 .L257: 331 v=\v; v=v+1 %if val=sub movl 3420(%rax), %edx movl %edx, %esi negl %esi notl %edx cmpl $3, %ecx cmove %esi, %edx movl %edx, 3420(%rax) .L259: 332 val=cexpr(0); type=constant movl $0, %edi call CEXPR.6589 .LVL297: movl %eax, 200(%rbx) 333 %end movl $1, 204(%rbx) .L254: 334 popq %rbx ret .LFE195: CLOSEBRACKET.6577: .LFB192: 335 %routine gbyte(%integer b) .LVL299: pushq %rbp pushq %rbx subq $8, %rsp movl %edi, %ebp movq %r10, %rbx 336 fault(bfull) %if gpos>glamax cmpl $499, 196(%r10) jg .L271 .LVL300: .L269: 337 gla(gpos)=b&255; gpos=gpos+1; gloc=gloc+1 movl 196(%rbx), %eax movslq %eax, %rdx movb %bpl, 7588(%rbx,%rdx) movl $4, %edi .LVL303: call FAULT.6422 .LVL304: jmp .L269 .LFE196: DUMPSTRING.6648: .LFB199: 338 %end addl $1, %eax movl %eax, 196(%rbx) 339 addl $1, 3416(%rbx) addq $8, %rsp popq %rbx popq %rbp .LVL301: ret .LVL302: .L271: 340 %routine gword(%integer x) 341 gbyte(x); gbyte(x>>8) movq %rbx, %r10 movl %r13d, %edi call GBYTE.6629 .LVL638: 342 %end movl %r13d, %r15d shrl $8, %r15d jmp .L467 .LVL633: .L550: .LBE481: .LBE480: movq %rbx, %r10 movl %r15d, %edi call GBYTE.6629 .LVL639: .L469: .LBE482: .LBE483: 343 344 %routine gflush pushq %r13 pushq %r12 pushq %rbp pushq %rbx subq $792, %rsp movq %fs:40, %rax movq %rax, 776(%rsp) xorl %eax, %eax 345 %integer i 346 %returnif gpos=0 cmpl $0, 196(%r10) jne .L60 .L47: 347 selectoutput(object); printsymbol(2); printsymbol(4) 348 printsymbol(gpos&255); printsymbol(gpos>>8&255) movsbl 196(%rbp), %edi .LBB234: .LBB235: call _imp_printsymbol@PLT .LVL42: .LBE235: .LBE234: 349 printsymbol(gla(i)) %for i=0,1,gpos-1 movsbl 197(%rbp), %edi .LBB236: .LBB237: call _imp_printsymbol@PLT .LVL43: .LBE237: .LBE236: .LBB238: 350 gpos=0 movl 196(%rbp), %r12d .LVL44: movl $0, 196(%rbp) 351 %end movl %r12d, %ebx subl $1, %ebx .LVL45: js .L62 .L50: .LVL46: jmp .L47 .LVL51: .L62: .LBB242: leaq 256(%rsp), %rdi leaq .LC3(%rip), %rsi call _imp_c2istr@PLT .LVL52: movl _imp_current_line(%rip), %r13d testl %r13d, %r13d movl $351, %eax cmove %eax, %r13d movq _imp_current_file(%rip), %rsi testq %rsi, %rsi je .L52 leaq 512(%rsp), %rdi call _imp_c2istr@PLT .LVL53: .L53: pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) movl $0, %ecx movl $1, %edx movl $5, %esi movl %r13d, %edi call _signal_event@PLT .LVL54: addq $512, %rsp jmp .L50 .L52: .LVL55: .LBB241: movabsq $8603403804667503988, %rax movabsq $31645495908854831, %rdx movq %rax, 513(%rsp) movq %rdx, 521(%rsp) movb $0, 529(%rsp) movw $0, 530(%rsp) movl $0, 532(%rsp) leaq 536(%rsp), %rdi movl $29, %ecx movl $0, %eax rep stosq movb $15, 512(%rsp) movq 512(%rsp), %rax movq 520(%rsp), %rdx movq %rax, (%rsp) movq %rdx, 8(%rsp) movq 528(%rsp), %rax movq 536(%rsp), %rdx movq %rax, 16(%rsp) movq %rdx, 24(%rsp) movq 544(%rsp), %rax movq 552(%rsp), %rdx movq %rax, 32(%rsp) movq %rdx, 40(%rsp) movq 560(%rsp), %rax movq 568(%rsp), %rdx movq %rax, 48(%rsp) movq %rdx, 56(%rsp) movq 576(%rsp), %rax movq 584(%rsp), %rdx movq %rax, 64(%rsp) movq %rdx, 72(%rsp) movq 592(%rsp), %rax movq 600(%rsp), %rdx movq %rax, 80(%rsp) movq %rdx, 88(%rsp) movq 608(%rsp), %rax movq 616(%rsp), %rdx movq %rax, 96(%rsp) movq %rdx, 104(%rsp) movq 624(%rsp), %rax movq 632(%rsp), %rdx movq %rax, 112(%rsp) movq %rdx, 120(%rsp) movq 640(%rsp), %rax movq 648(%rsp), %rdx movq %rax, 128(%rsp) movq %rdx, 136(%rsp) movq 656(%rsp), %rax movq 664(%rsp), %rdx movq %rax, 144(%rsp) movq %rdx, 152(%rsp) movq 672(%rsp), %rax movq 680(%rsp), %rdx movq %rax, 160(%rsp) movq %rdx, 168(%rsp) movq 688(%rsp), %rax movq 696(%rsp), %rdx movq %rax, 176(%rsp) movq %rdx, 184(%rsp) movq 704(%rsp), %rax movq 712(%rsp), %rdx movq %rax, 192(%rsp) movq %rdx, 200(%rsp) movq 720(%rsp), %rax movq 728(%rsp), %rdx movq %rax, 208(%rsp) movq %rdx, 216(%rsp) movq 736(%rsp), %rax movq 744(%rsp), %rdx movq %rax, 224(%rsp) movq %rdx, 232(%rsp) movq 752(%rsp), %rax movq 760(%rsp), %rdx movq %rax, 240(%rsp) movq %rdx, 248(%rsp) .LVL56: .LBE241: movb $15, (%rsp) movq (%rsp), %rax movq 8(%rsp), %rdx movq %rax, 512(%rsp) movq %rdx, 520(%rsp) jmp .L53 .LVL57: .L61: .LBE242: 352 movq 776(%rsp), %rax xorq %fs:40, %rax jne .L61 addq $792, %rsp popq %rbx popq %rbp popq %r12 popq %r13 ret .L60: movq %r10, %rbp .L49: .LVL38: .LBB228: .LBB229: movl $1, _imp_OutStream(%rip) movq 296+_imp_outfile(%rip), %rax movq %rax, _imp_OutFile(%rip) leaq __PRETTY_FUNCTION__.5991(%rip), %rdi call check_outstream@PLT .LVL39: .LBE229: .LBE228: .LBB230: .LBB231: movl $2, %edi call _imp_printsymbol@PLT .LVL40: .LBE231: .LBE230: .LBB232: .LBB233: movl $4, %edi call _imp_printsymbol@PLT .LVL41: .LBE233: .LBE232: call __stack_chk_fail@PLT .LVL58: .LFE198: .section .rodata.str1.8 .align 8 .LC4: .string "Illegal cycle I = 0, 1, CPOS - 1" FLUSH.6660: .LFB201: 353 %routine dumpstring(%integer p) .LVL305: pushq %r12 pushq %rbp pushq %rbx movq %r10, %rbp .LVL306: 354 %integer l cmpl $-1, %ebx je .L54 leaq 7588(%rbp), %rbx .LVL47: leal -1(%r12), %eax leaq 7589(%rbp,%rax), %r12 .LVL48: .L55: cmpq %r12, %rbx jne .L55 .L54: .LBE238: 355 l=0 movl $0, %r12d .LVL307: .L274: 356 l=l+1 %and p=p+1 %while line(p)#'"' movsbl (%rbx), %edi .LBB239: .LBB240: call _imp_printsymbol@PLT .LVL49: addq $1, %rbx .LVL50: .LBE240: .LBE239: 357 gbyte(l); p=p-l leal -1(%rdi), %eax cltq cmpb $34, 8088(%r10,%rax) je .L273 movslq %edi, %rax cmpb $34, 8088(%rbp,%rax) jne .L274 .L275: movq %rbp, %r10 movl %r12d, %edi call GBYTE.6629 .LVL310: movl $0, %edi .LVL318: call GBYTE.6629 .LVL319: jmp .L272 .LFE199: POPTEXT.6694: .LFB205: 358 gbyte(line(p)) %and p=p+1 %and l=l-1 %while l>0 addl $1, %r12d .LVL308: movl %ebx, %eax subl %r12d, %eax .LVL311: 359 %end leal 1(%rdi), %ebx .LDL11: .LVL309: movl %ebx, %edi testl %r12d, %r12d jle .L272 leal -1(%rax), %ebx .LVL312: leal -1(%r12,%rax), %r12d .LVL313: .L277: cmpl %ebx, %r12d jne .L277 .LVL316: .L272: 360 movslq %ebx, %rax movzbl 8088(%rbp,%rax), %edi movq %rbp, %r10 call GBYTE.6629 .LVL314: .LDL12: addl $1, %ebx .LVL315: popq %rbx popq %rbp popq %r12 ret .L276: .LVL317: .L273: 361 %routine dump(%integer byte) .LVL326: pushq %rbp pushq %rbx subq $8, %rsp movl %edi, %ebp movq %r10, %rbx 362 fault(bfull) %if cpos>codemax cmpl $3499, 192(%r10) jg .L290 .LVL327: .L288: 363 code(cpos)=byte&255; cpos=cpos+1; cloc=cloc+1 movl 192(%rbx), %eax movslq %eax, %rdx movb %bpl, 4088(%rbx,%rdx) movl $4, %edi .LVL330: call FAULT.6422 .LVL331: jmp .L288 .LFE200: RETURN.6808: .LFB211: 364 %end addl $1, %eax movl %eax, 192(%rbx) 365 addl $1, 3420(%rbx) addq $8, %rsp popq %rbx popq %rbp .LVL328: ret .LVL329: .L290: 366 %routine flush pushq %r13 pushq %r12 pushq %rbp pushq %rbx subq $792, %rsp movq %fs:40, %rax movq %rax, 776(%rsp) xorl %eax, %eax 367 %integer i 368 %returnif cpos=0 cmpl $0, 192(%r10) jne .L76 .L63: 369 selectoutput(object); printsymbol(1); printsymbol(4) 370 printsymbol(cpos&255); printsymbol(cpos>>8&255) movsbl 192(%rbp), %edi .LBB249: .LBB250: call _imp_printsymbol@PLT .LVL63: .LBE250: .LBE249: 371 printsymbol(code(i)) %for i=0,1,cpos-1 movsbl 193(%rbp), %edi .LBB251: .LBB252: call _imp_printsymbol@PLT .LVL64: .LBE252: .LBE251: .LBB253: 372 cpos=0 movl 192(%rbp), %r12d .LVL65: movl $0, 192(%rbp) 373 %end movl %r12d, %ebx subl $1, %ebx .LVL66: js .L78 .L66: .LVL67: jmp .L63 .LVL72: .L78: .LBB257: leaq 256(%rsp), %rdi leaq .LC4(%rip), %rsi call _imp_c2istr@PLT .LVL73: movl _imp_current_line(%rip), %r13d testl %r13d, %r13d movl $373, %eax cmove %eax, %r13d movq _imp_current_file(%rip), %rsi testq %rsi, %rsi je .L68 leaq 512(%rsp), %rdi call _imp_c2istr@PLT .LVL74: .L69: pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 504(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) pushq 1016(%rsp) movl $0, %ecx movl $1, %edx movl $5, %esi movl %r13d, %edi call _signal_event@PLT .LVL75: addq $512, %rsp jmp .L66 .L68: .LVL76: .LBB256: movabsq $8603403804667503988, %rax movabsq $31645495908854831, %rdx movq %rax, 513(%rsp) movq %rdx, 521(%rsp) movb $0, 529(%rsp) movw $0, 530(%rsp) movl $0, 532(%rsp) leaq 536(%rsp), %rdi movl $29, %ecx movl $0, %eax rep stosq movb $15, 512(%rsp) movq 512(%rsp), %rax movq 520(%rsp), %rdx movq %rax, (%rsp) movq %rdx, 8(%rsp) movq 528(%rsp), %rax movq 536(%rsp), %rdx movq %rax, 16(%rsp) movq %rdx, 24(%rsp) movq 544(%rsp), %rax movq 552(%rsp), %rdx movq %rax, 32(%rsp) movq %rdx, 40(%rsp) movq 560(%rsp), %rax movq 568(%rsp), %rdx movq %rax, 48(%rsp) movq %rdx, 56(%rsp) movq 576(%rsp), %rax movq 584(%rsp), %rdx movq %rax, 64(%rsp) movq %rdx, 72(%rsp) movq 592(%rsp), %rax movq 600(%rsp), %rdx movq %rax, 80(%rsp) movq %rdx, 88(%rsp) movq 608(%rsp), %rax movq 616(%rsp), %rdx movq %rax, 96(%rsp) movq %rdx, 104(%rsp) movq 624(%rsp), %rax movq 632(%rsp), %rdx movq %rax, 112(%rsp) movq %rdx, 120(%rsp) movq 640(%rsp), %rax movq 648(%rsp), %rdx movq %rax, 128(%rsp) movq %rdx, 136(%rsp) movq 656(%rsp), %rax movq 664(%rsp), %rdx movq %rax, 144(%rsp) movq %rdx, 152(%rsp) movq 672(%rsp), %rax movq 680(%rsp), %rdx movq %rax, 160(%rsp) movq %rdx, 168(%rsp) movq 688(%rsp), %rax movq 696(%rsp), %rdx movq %rax, 176(%rsp) movq %rdx, 184(%rsp) movq 704(%rsp), %rax movq 712(%rsp), %rdx movq %rax, 192(%rsp) movq %rdx, 200(%rsp) movq 720(%rsp), %rax movq 728(%rsp), %rdx movq %rax, 208(%rsp) movq %rdx, 216(%rsp) movq 736(%rsp), %rax movq 744(%rsp), %rdx movq %rax, 224(%rsp) movq %rdx, 232(%rsp) movq 752(%rsp), %rax movq 760(%rsp), %rdx movq %rax, 240(%rsp) movq %rdx, 248(%rsp) .LVL77: .LBE256: movb $15, (%rsp) movq (%rsp), %rax movq 8(%rsp), %rdx movq %rax, 512(%rsp) movq %rdx, 520(%rsp) jmp .L69 .LVL78: .L77: .LBE257: 374 movq 776(%rsp), %rax xorq %fs:40, %rax jne .L77 addq $792, %rsp popq %rbx popq %rbp popq %r12 popq %r13 ret .L76: movq %r10, %rbp .L65: .LVL59: .LBB243: .LBB244: movl $1, _imp_OutStream(%rip) movq 296+_imp_outfile(%rip), %rax movq %rax, _imp_OutFile(%rip) leaq __PRETTY_FUNCTION__.5991(%rip), %rdi call check_outstream@PLT .LVL60: .LBE244: .LBE243: .LBB245: .LBB246: movl $1, %edi call _imp_printsymbol@PLT .LVL61: .LBE246: .LBE245: .LBB247: .LBB248: movl $4, %edi call _imp_printsymbol@PLT .LVL62: .LBE248: .LBE247: call __stack_chk_fail@PLT .LVL79: .LFE201: .section .rodata.str1.1 .LC5: .string "" FAULT.6422: .LFB186: 375 %routine satrefs(%integer ref,val) .LVL0: 376 %integer abs,rel,disp cmpl $-1, %ebx je .L70 leaq 4088(%rbp), %rbx .LVL68: leal -1(%r12), %eax leaq 4089(%rbp,%rax), %r12 .LVL69: .L71: cmpq %r12, %rbx jne .L71 .L70: .LBE253: 377 %while ref#0 %cycle 378 rel=ref; abs=rel-cloc+cpos; disp=val-rel-2 testl %edi, %edi je .L15 addl %r8d, %edi .LVL7: jne .L17 .L16: .LVL8: .L15: movsbl (%rbx), %edi .LBB254: .LBB255: call _imp_printsymbol@PLT .LVL70: addq $1, %rbx .LVL71: .LBE255: .LBE254: 379 ref=code(abs+1)<<8+code(abs) movl 3420(%r10), %r11d movl 192(%r10), %r9d .LVL1: .L17: movl %edi, %eax subl %r11d, %eax addl %r9d, %eax .LVL2: leal 1(%rax), %edx movslq %edx, %rdx movzbl 4088(%r10,%rdx), %edi .LVL4: sall $8, %edi cltq movzbl 4088(%r10,%rax), %r8d .LVL5: movb %cl, 4088(%r10,%rax) 380 code(abs)=disp&255; code(abs+1)=disp>>8&255 movl %esi, %ecx subl %edi, %ecx subl $2, %ecx .LVL3: 381 %repeat movzbl %ch, %eax .LVL6: movb %al, 4088(%r10,%rdx) .LDL1: 382 %end 383 rep ret .LFE202: GETSTRING.6869: .LFB216: 384 %routine labelref(%integer type,val) .LVL344: pushq %r12 pushq %rbp pushq %rbx movl %esi, %ebp movq %r10, %rbx 385 %integer tvv 386 %if type=label %start cmpl $3, %edi je .L309 .L305: 387 val=val-(cloc+2) movl 3420(%r10), %eax addl $2, %eax subl %eax, %ebp .LVL351: 388 dump(val); dump(val>>8) movl %ebp, %edi .LVL352: call DUMP.6656 .LVL353: 389 %else movl %ebp, %edi shrl $8, %edi movq %rbx, %r10 call DUMP.6656 .LVL354: jmp .L304 .LVL355: .L310: 390 fault(form) %unless type=unknown testl %edi, %edi jne .L310 .LVL345: .L307: movslq %ebp, %rbp leaq (%rbx,%rbp,4), %r12 391 tvv=tagval(val) movl 204(%r12), %ebp .LVL346: movl $5, %edi .LVL356: call FAULT.6422 .LVL357: jmp .L307 .LFE203: DIRECT.6749: .LFB208: 392 dump(tvv); dump(tvv>>8) movq %rbx, %r10 movl %ebp, %edi call DUMP.6656 .LVL347: 393 tagval(val)=cloc-2 movl %ebp, %edi shrl $8, %edi movq %rbx, %r10 call DUMP.6656 .LVL348: movl 3420(%rbx), %eax subl $2, %eax movl %eax, 204(%r12) .L306: .LVL349: .L304: 394 %finish 395 %end 396 popq %rbx popq %rbp popq %r12 ret .LVL350: .L309: 397 %routine pushtext(%integer t,v) .LVL321: pushq %r12 pushq %rbp pushq %rbx movl %edi, %r12d movl %esi, %ebp movq %r10, %rbx 398 textlevel=textlevel+1 movl 188(%r10), %eax incl %eax movl %eax, 188(%r10) 399 fault(complex) %if textlevel>textmax cmpl $20, %eax jle .L285 400 texttype(textlevel)=t; textval(textlevel)=v movl $1, %edi .LVL322: call FAULT.6422 .LVL323: .L285: movslq 188(%rbx), %rax leaq (%rbx,%rax,4), %rax movl %r12d, 104(%rax) 401 %end movl %ebp, 24(%rax) 402 popq %rbx popq %rbp .LVL324: popq %r12 .LVL325: ret .LFE204: DUMP.6656: .LFB200: 403 %routine poptext pushq %rbx movq %r10, %rbx 404 fault(context) %if textlevel=0 cmpl $0, 188(%r10) jne .L282 405 type=texttype(textlevel); val=textval(textlevel) movl $16, %edi call FAULT.6422 .LVL320: .L282: movl 188(%rbx), %eax movslq %eax, %rdx leaq (%rbx,%rdx,4), %rdx movl 104(%rdx), %ecx movl %ecx, 204(%rbx) decl %eax movl %eax, 188(%rbx) 406 textlevel=textlevel-1 movl 24(%rdx), %edx movl %edx, 200(%rbx) 407 %end 408 popq %rbx ret .LFE205: PUSHTEXT.6690: .LFB204: 409 %routinespec expr 410 411 %constinteger pushax=16_50,popax=16_58 412 413 %routine call(%integer t,v) .LVL442: pushq %r12 pushq %rbp pushq %rbx movl %edi, %r12d movl %esi, %ebp movq %r10, %rbx 414 type=atomtype(atompos) movl 3824(%r10), %eax subl $1, %eax cltq movl 3624(%r10,%rax,4), %eax movl %eax, 204(%r10) 415 %if type#op %start leal -11(%rax), %edx cmpl $1, %edx jbe .L371 416 %cycle 417 %exitif type=sep %or type=comp 418 expr; dump(pushax); type=atomtype(atompos) cmpl $14, %eax je .L371 .LVL443: .L369: movq %rbx, %r10 call EXPR.6698 .LVL444: andl $-3, %eax cmpl $12, %eax jne .L369 .L368: .L370: .L371: 419 %repeat movq %rbx, %r10 movl $80, %edi call DUMP.6656 .LVL445: 420 %finish movl 3824(%rbx), %eax subl $1, %eax cltq movl 3624(%rbx,%rax,4), %eax movl %eax, 204(%rbx) .LDL17: 421 %if t=spec %start cmpl $10, %r12d je .L376 .L372: 422 dump(16_FF); dump(16_1e); dump(v); dump(v>>8); !Xcall movq %rbx, %r10 movl $255, %edi call DUMP.6656 .LVL452: 423 %else movq %rbx, %r10 movl $30, %edi call DUMP.6656 .LVL453: jmp .L367 .LFE206: COND.6943: .LFB218: 424 dump(16_0e); dump(16_e8); labelref(label,v); !PushCs, Call movq %rbx, %r10 movl $14, %edi call DUMP.6656 .LVL446: movq %rbx, %r10 movl %ebp, %edi call DUMP.6656 .LVL454: 425 %finish movq %rbx, %r10 movl $232, %edi call DUMP.6656 .LVL447: movl %ebp, %edi shrl $8, %edi movq %rbx, %r10 call DUMP.6656 .LVL455: 426 %end movq %rbx, %r10 movl %ebp, %esi movl $3, %edi call LABELREF.6682 .LVL448: .L373: .L367: 427 popq %rbx popq %rbp .LVL449: popq %r12 .LVL450: ret .LVL451: .L376: 428 %routine immediate(%integer op,val) .LVL15: pushq %r14 pushq %r13 pushq %r12 pushq %rbp pushq %rbx subq $1040, %rsp movl %edi, %ebx movq %fs:40, %rax movq %rax, 1032(%rsp) xorl %eax, %eax .LVL16: .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) .LVL358: pushq %r15 pushq %r14 pushq %r13 pushq %r12 pushq %rbp pushq %rbx subq $8, %rsp movl %edi, %ebp movl %edx, %r12d movq %r10, %rbx 460 %ownintegerarray code(load:lea)= leal -1(%rdi), %eax cmpl $11, %eax jbe .L27 movl _imp_current_line(%rip), %ebp testl %ebp, %ebp movl $460, %eax cmove %eax, %ebp movq _imp_current_file(%rip), %rsi .LVL17: testq %rsi, %rsi je .L29 leaq 512(%rsp), %rdi .LVL18: call _imp_c2istr@PLT .LVL19: .L30: pushq $430 leaq .LC1(%rip), %rax pushq %rax pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) pushq 776(%rsp) movl %ebx, %r9d leaq .LC0(%rip), %r8 movl %ebx, %ecx movl $3, %edx movl $6, %esi movl %ebp, %edi movl $0, %eax call _signal_eventf@PLT .LVL20: addq $272, %rsp .L27: .L31: movabsq $8603403804667503988, %rax movabsq $31645495908854831, %rdx movq %rax, 769(%rsp) movq %rdx, 777(%rsp) movb $0, 785(%rsp) movw $0, 786(%rsp) movl $0, 788(%rsp) leaq 792(%rsp), %rdi movl $29, %ecx movl $0, %eax rep stosq movb $15, 768(%rsp) movq 768(%rsp), %rax movq 776(%rsp), %rdx movq %rax, (%rsp) movq %rdx, 8(%rsp) movdqa 784(%rsp), %xmm11 movaps %xmm11, 16(%rsp) movdqa 800(%rsp), %xmm9 movaps %xmm9, 32(%rsp) movdqa 816(%rsp), %xmm7 movaps %xmm7, 48(%rsp) movdqa 832(%rsp), %xmm13 movaps %xmm13, 64(%rsp) movdqa 848(%rsp), %xmm15 movaps %xmm15, 80(%rsp) movq 864(%rsp), %r13 movq 872(%rsp), %r14 movq %r13, 96(%rsp) movq %r14, 104(%rsp) movdqa 880(%rsp), %xmm0 movaps %xmm0, 112(%rsp) movdqa 896(%rsp), %xmm2 movaps %xmm2, 128(%rsp) movq 912(%rsp), %r11 movq 920(%rsp), %r12 movq %r11, 144(%rsp) movq %r12, 152(%rsp) movdqa 928(%rsp), %xmm5 movaps %xmm5, 160(%rsp) movdqa 944(%rsp), %xmm3 movaps %xmm3, 176(%rsp) movdqa 960(%rsp), %xmm1 movaps %xmm1, 192(%rsp) movq 976(%rsp), %r9 movq 984(%rsp), %r10 movq %r9, 208(%rsp) movq %r10, 216(%rsp) movq 992(%rsp), %rsi movq 1000(%rsp), %rdi movq %rsi, 224(%rsp) movq %rdi, 232(%rsp) movq 1008(%rsp), %rax movq 1016(%rsp), %rdx movq %rax, 240(%rsp) movq %rdx, 248(%rsp) .LVL26: .LBE225: movb $15, (%rsp) movdqa (%rsp), %xmm4 movaps %xmm4, 512(%rsp) movaps %xmm11, 528(%rsp) movaps %xmm9, 544(%rsp) movaps %xmm7, 560(%rsp) movaps %xmm13, 576(%rsp) movaps %xmm15, 592(%rsp) movq %r13, 608(%rsp) movq %r14, 616(%rsp) movaps %xmm0, 624(%rsp) movaps %xmm2, 640(%rsp) movq %r11, 656(%rsp) movq %r12, 664(%rsp) movaps %xmm5, 672(%rsp) movaps %xmm3, 688(%rsp) movaps %xmm1, 704(%rsp) movq %r9, 720(%rsp) movq %r10, 728(%rsp) movq %rsi, 736(%rsp) movq %rdi, 744(%rsp) movq %rax, 752(%rsp) movq %rdx, 760(%rsp) jmp .L30 .L39: 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 movl _imp_current_line(%rip), %ebp testl %ebp, %ebp movl $463, %eax cmove %eax, %ebp movq _imp_current_file(%rip), %rsi testq %rsi, %rsi jne .L39 .LVL21: .LBB224: movabsq $8603403804667503988, %rax movabsq $31645495908854831, %rdx movq %rax, 769(%rsp) movq %rdx, 777(%rsp) movb $0, 785(%rsp) movw $0, 786(%rsp) movl $0, 788(%rsp) leaq 792(%rsp), %rdi movl $29, %ecx movl $0, %eax rep stosq movb $15, 768(%rsp) movq 768(%rsp), %rax movq 776(%rsp), %rdx movq %rax, 256(%rsp) movq %rdx, 264(%rsp) movq 784(%rsp), %rax movq 792(%rsp), %rdx movq %rax, 272(%rsp) movq %rdx, 280(%rsp) movq 800(%rsp), %rax movq 808(%rsp), %rdx movq %rax, 288(%rsp) movq %rdx, 296(%rsp) movq 816(%rsp), %rax movq 824(%rsp), %rdx movq %rax, 304(%rsp) movq %rdx, 312(%rsp) movq 832(%rsp), %rax movq 840(%rsp), %rdx movq %rax, 320(%rsp) movq %rdx, 328(%rsp) movq 848(%rsp), %rax movq 856(%rsp), %rdx movq %rax, 336(%rsp) movq %rdx, 344(%rsp) movq 864(%rsp), %rax movq 872(%rsp), %rdx movq %rax, 352(%rsp) movq %rdx, 360(%rsp) movq 880(%rsp), %rax movq 888(%rsp), %rdx movq %rax, 368(%rsp) movq %rdx, 376(%rsp) movq 896(%rsp), %rax movq 904(%rsp), %rdx movq %rax, 384(%rsp) movq %rdx, 392(%rsp) movq 912(%rsp), %rax movq 920(%rsp), %rdx movq %rax, 400(%rsp) movq %rdx, 408(%rsp) movq 928(%rsp), %rax movq 936(%rsp), %rdx movq %rax, 416(%rsp) movq %rdx, 424(%rsp) movq 944(%rsp), %rax movq 952(%rsp), %rdx movq %rax, 432(%rsp) movq %rdx, 440(%rsp) movq 960(%rsp), %rax movq 968(%rsp), %rdx movq %rax, 448(%rsp) movq %rdx, 456(%rsp) movq 976(%rsp), %rax movq 984(%rsp), %rdx movq %rax, 464(%rsp) movq %rdx, 472(%rsp) movq 992(%rsp), %rax movq 1000(%rsp), %rdx movq %rax, 480(%rsp) movq %rdx, 488(%rsp) movq 1008(%rsp), %rax movq 1016(%rsp), %rdx movq %rax, 496(%rsp) movq %rdx, 504(%rsp) .LVL22: .LBE224: movb $15, 256(%rsp) movq 256(%rsp), %rax movq 264(%rsp), %rdx movq %rax, 768(%rsp) movq %rdx, 776(%rsp) .L34: pushq $430 leaq .LC1(%rip), %rax pushq %rax pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) pushq 1032(%rsp) movl %ebx, %r9d leaq .LC2(%rip), %r8 movl %ebx, %ecx movl $2, %edx movl $8, %esi movl %ebp, %edi movl $0, %eax call _signal_eventf@PLT .LVL23: addq $272, %rsp leaq 768(%rsp), %rdi call _imp_c2istr@PLT .LVL27: jmp .L34 .L40: 464 %integer oper,extra movq 1032(%rsp), %rax xorq %fs:40, %rax jne .L40 addq $1040, %rsp popq %rbx .LVL24: popq %rbp popq %r12 popq %r13 popq %r14 ret .LVL25: .L29: .LBB225: call __stack_chk_fail@PLT .LVL28: .LFE207: PHEX.6450: .LFB188: 465 immediate(op,val) %andreturnif type=constant cmpl $1, %esi je .L341 .L312: movl %esi, %r13d movl %ecx, %r14d 466 oper=code(op) leal -1(%rdi), %eax cltq leaq CODE.6751(%rip), %rdx .LVL359: movl (%rdx,%rax,4), %r15d .LVL360: movl %edx, %esi .LVL378: call IMMEDIATE.6712 .LVL379: movl %r15d, %edi 467 ->shift %if op=left %or op=right jmp .L311 .LVL380: .L336: 468 extra=0; extra=oper %and oper=16_f6 %if op=mul leal -11(%rdi), %eax cmpl $1, %eax jbe .L331 .L315: .LVL361: movl $0, %r15d .LVL381: jmp .L316 .LVL382: .L342: 469 %if op=div %or op=rem %start cmpl $8, %ebp je .L316 .L317: 470 %if type&wordbit#0 %then dump(16_99) %else dump(16_98) leal -9(%rbp), %eax cmpl $1, %eax ja .L336 .L318: 471 extra=oper; oper=16_f6 movl $246, %edi .LVL362: movl $153, %edi call DUMP.6656 .LVL363: .LDL13: 472 %finish movl $246, %edi .LVL364: .L316: .LDL14: 473 oper=oper+1 %if type&wordbit#0 474 dump(oper) addl $1, %edi .LVL365: movq %rbx, %r10 call DUMP.6656 .LVL366: 475 %if type=bx %then dump(16_c3+extra) %andreturn cmpl $17, %r13d je .L342 .L319: 476 %if type=unknown %start testl %r13d, %r13d je .L343 .L320: leal 195(%r15), %edi movq %rbx, %r10 call DUMP.6656 .LVL383: 477 tagtype(val)=var+wordbit jmp .L311 .L343: movslq %r12d, %rax leaq (%rbx,%rax,4), %rax movl $5, 1004(%rax) 478 tagval(val)=-2 movl $-2, 204(%rax) 479 fault(varund) movq %rbx, %r10 movl $12, %edi call FAULT.6422 .LVL384: 480 %finish 481 fault(form) %unless type&varmask=var 482 %if type&glabit=0 %start movq %rbx, %r10 movl $5, %edi call FAULT.6422 .LVL367: .LDL15: testb $1, %r13b je .L321 .L325: .L328: .L323: .L322: movq %rbx, %r10 movl $5, %edi call FAULT.6422 .LVL385: .L321: .LBB323: 483 %if -128<=val<=127 %then oper=16_42 %else oper=16_82 484 oper=oper+4 %if index=0 485 %else leal 4(%rdi), %eax testl %r14d, %r14d cmove %eax, %edi .LVL387: .L329: 486 %if index=0 %start testl %r14d, %r14d je .L326 .L327: .LVL368: .LBB322: 487 oper=6 movl $6, %edi 488 %finishelseif -128<=val<=127 %start leal 128(%r12), %eax .LBE323: 489 oper=16_44 490 %else 491 oper=16_84 cmpl $256, %eax sbbl %edi, %edi andl $-64, %edi addl $132, %edi .LVL369: .L326: 492 %finish 493 %finish cmpl $256, %eax sbbl %edi, %edi andl $-64, %edi addl $130, %edi .L324: .LVL386: 494 dump(oper+extra); dump(val) addl %r15d, %edi .LVL370: movq %rbx, %r10 call DUMP.6656 .LVL371: addl %r15d, %edi .LVL388: movq %rbx, %r10 call DUMP.6656 .LVL389: 495 dump(val>>8) %if oper&16_40=0 leal 128(%r12), %eax .LBE322: movq %rbx, %r10 movl %r12d, %edi call DUMP.6656 .LVL372: movq %rbx, %r10 movl %r12d, %edi call DUMP.6656 .LVL390: 496 dump(16_8B) %and dump(16_C2) %if op=rem movl %r12d, %edi shrl $8, %edi movq %rbx, %r10 call DUMP.6656 .LVL373: cmpl $10, %ebp je .L334 .LVL374: .L311: movl %r12d, %edi shrl $8, %edi movq %rbx, %r10 call DUMP.6656 .LVL391: .LDL16: cmpl $10, %ebp je .L334 .L330: 497 %if type&wordbit=0 %and op=load %then dump(16_32) %and dump(16_e4) movq %rbx, %r10 movl $139, %edi call DUMP.6656 .LVL395: 498 %return cmpl $1, %ebp jne .L311 movq %rbx, %r10 movl $194, %edi call DUMP.6656 .LVL396: jmp .L311 .L314: .LVL397: .L331: 499 shift: dump(pushax) movq %rbx, %r10 movl $50, %edi call DUMP.6656 .LVL392: 500 direct(load,type,val,index); dump(16_89); dump(16_c1); !Mov Cx,Ax movq %rbx, %r10 movl $228, %edi call DUMP.6656 .LVL393: jmp .L311 .LVL394: .L334: movl $80, %edi .LVL398: call DUMP.6656 .LVL399: movq %rbx, %r10 movl %r14d, %ecx movl %r12d, %edx movl %r13d, %esi movl $1, %edi call DIRECT.6749 .LVL400: 501 dump(popax) movq %rbx, %r10 movl $137, %edi call DUMP.6656 .LVL401: movq %rbx, %r10 movl $88, %edi call DUMP.6656 .LVL403: 502 %if type&wordbit=0 %then dump(16_d2) %else dump(16_d3) movq %rbx, %r10 movl $193, %edi call DUMP.6656 .LVL402: testb $1, %r13b jne .L332 503 dump(oper) movq %rbx, %r10 movl $210, %edi call DUMP.6656 .LVL404: .L333: movq %rbx, %r10 movl %r15d, %edi call DUMP.6656 .LVL405: .L313: 504 %end jmp .L311 .L332: 505 addq $8, %rsp popq %rbx popq %rbp .LVL375: popq %r12 .LVL376: popq %r13 popq %r14 popq %r15 ret .LVL377: .L341: 506 %routine double(%integer t); ! index for word arrays .LVL340: pushq %rbx movq %r10, %rbx .L298: movq %rbx, %r10 movl $211, %edi call DUMP.6656 .LVL406: jmp .L333 .LFE208: EXPR.6698: .LFB210: 507 %returnif t&wordbit=0 testb $1, %dil jne .L303 rep ret .L303: 508 dump(16_03); dump(16_c0); !Add ax,ax movl $3, %edi .LVL341: call DUMP.6656 .LVL342: 509 %end movq %rbx, %r10 movl $192, %edi call DUMP.6656 .LVL343: 510 popq %rbx ret .LFE209: LABELREF.6682: .LFB203: 511 %routine expr pushq %r14 pushq %r13 pushq %r12 pushq %rbp pushq %rbx movq %r10, %rbx .LVL407: 512 %integer oper,t,v,index 513 oper=load movl $1, %r12d 514 %cycle 515 nextatom; unary movq %rbx, %r10 call NEXTATOM.6568 .LVL412: 516 %if type=constant %start movq %rbx, %r10 call UNARY.6587 .LVL413: movl 204(%rbx), %ebp cmpl $1, %ebp je .L362 .L346: 517 atompos=atompos-1 %and val=cexpr(0) %if oper=load cmpl $1, %r12d je .L361 .L347: 518 immediate(oper,val) movl 200(%rbx), %esi movq %rbx, %r10 movl %r12d, %edi call IMMEDIATE.6712 .LVL409: .L348: .L357: subl $1, 3824(%rbx) 519 %finishelseif type&varmask=var %start movq %rbx, %r10 movl $0, %edi call CEXPR.6589 .LVL420: movl %eax, 200(%rbx) jmp .L347 .L363: .LVL421: 520 t=type; v=val 521 %if open bracket %start testb $1, %bpl je .L363 .L349: movl 200(%rbx), %r14d .LVL422: movq %rbx, %r10 call OPENBRACKET.6572 .LVL423: testl %eax, %eax jne .L365 .L350: .L353: .LVL424: 522 dump(pushax) %unless oper=load cmpl $1, %r12d jne .L366 523 expr; double(t) movq %rbx, %r10 call EXPR.6698 .LVL426: movq %rbx, %r10 movl $80, %edi call DUMP.6656 .LVL432: movq %rbx, %r10 call EXPR.6698 .LVL433: 524 dump(16_8b); dump(16_f0); !Mov si,ax movq %rbx, %r10 movl %ebp, %edi call DOUBLE.6783 .LVL427: movq %rbx, %r10 movl $139, %edi call DUMP.6656 .LVL428: movq %rbx, %r10 movl %ebp, %edi call DOUBLE.6783 .LVL434: movq %rbx, %r10 movl $139, %edi call DUMP.6656 .LVL435: 525 dump(popax) %unless oper=load movq %rbx, %r10 movl $240, %edi call DUMP.6656 .LVL429: .L352: movq %rbx, %r10 movl $240, %edi call DUMP.6656 .LVL436: 526 close bracket movq %rbx, %r10 call CLOSEBRACKET.6577 .LVL430: movq %rbx, %r10 movl $88, %edi call DUMP.6656 .LVL437: jmp .L352 .LVL438: .L364: 527 index=1 movl $1, %r13d jmp .L345 .LVL408: .L362: movl %r13d, %eax 528 %finishelse index=0 jmp .L353 .LVL431: .L366: 529 direct(oper,t,v,index) movq %rbx, %r10 movl %eax, %ecx movl %r14d, %edx movl %ebp, %esi movl %r12d, %edi call DIRECT.6749 .LVL425: 530 %finishelseif type=proc %or type=xproc %or type=spec %start jmp .L357 .L365: 531 %if oper=load %start cmpl $1, %r12d je .L364 .L356: 532 call(type,val) movl 200(%rbx), %esi movq %rbx, %r10 movl %ebp, %edi call CALL.6701 .LVL439: 533 %else leal -8(%rbp), %eax jmp .L357 .L354: 534 dump(pushax); call(type,val); dump(16_8b); dump(16_d8);!mov bx,ax cmpl $2, %eax ja .L354 .L355: movq %rbx, %r10 movl $80, %edi call DUMP.6656 .LVL414: 535 dump(popax); direct(oper,bx,0,0) movl 200(%rbx), %esi movl 204(%rbx), %edi movq %rbx, %r10 call CALL.6701 .LVL415: movq %rbx, %r10 movl $88, %edi call DUMP.6656 .LVL418: 536 %finish movq %rbx, %r10 movl $139, %edi call DUMP.6656 .LVL416: movq %rbx, %r10 movl $0, %ecx movl $0, %edx movl $17, %esi movl %r12d, %edi call DIRECT.6749 .LVL419: jmp .L357 .L361: 537 %else movq %rbx, %r10 movl $216, %edi call DUMP.6656 .LVL417: 538 fault(form) movq %rbx, %r10 movl $5, %edi call FAULT.6422 .LVL440: jmp .L357 .L344: 539 %finish 540 %returnunless atomtype(atompos)=op movl 3824(%rbx), %eax subl $1, %eax cltq cmpl $11, 3624(%rbx,%rax,4) jne .L344 .L359: 541 nextatom movq %rbx, %r10 call NEXTATOM.6568 .LVL410: 542 oper=val movl 200(%rbx), %r12d .LVL411: .L345: 543 %repeat 544 %end popq %rbx popq %rbp popq %r12 .LVL441: popq %r13 popq %r14 ret .LFE210: CALL.6701: .LFB206: 545 546 %routine return pushq %rbx movq %r10, %rbx 547 dump(16_8b); dump(16_e5); !Mov sp,bp movl $139, %edi call DUMP.6656 .LVL332: 548 dump(16_5d); dump(16_1f); !Pop bp, pop ds movq %rbx, %r10 movl $229, %edi call DUMP.6656 .LVL333: movq %rbx, %r10 movl $93, %edi call DUMP.6656 .LVL334: 549 %if parms=0 %then dump(16_cb) %elsestart movq %rbx, %r10 movl $31, %edi call DUMP.6656 .LVL335: cmpl $0, 24(%rbx) je .L295 .L292: 550 dump(16_ca) movq %rbx, %r10 movl $202, %edi call DUMP.6656 .LVL336: movq %rbx, %r10 movl $203, %edi call DUMP.6656 .LVL339: 551 dump(parms); dump(parms>>8) movl 24(%rbx), %edi movq %rbx, %r10 call DUMP.6656 .LVL337: jmp .L293 .LFE211: DOUBLE.6783: .LFB209: 552 %finish movl 24(%rbx), %edi shrl $8, %edi movq %rbx, %r10 call DUMP.6656 .LVL338: .L293: 553 access=0 movl $0, 20(%rbx) 554 %end 555 popq %rbx ret .L295: 556 %routine terminate declarations 557 %integer i 558 fault(level0) %if level=0 cmpl $0, 8768(%rsp) je .L540 .L513: 559 %if level=1 %start cmpl $1, 8768(%rsp) je .L541 .L514: .LBE466: .LBE465: movq %rbx, %r10 movl $11, %edi call FAULT.6422 .LVL741: jmp .L513 .L541: 560 level=2; i=-floc movl $2, 8768(%rsp) 561 %if i>127 %start movl 8764(%rsp), %ebp negl %ebp .LVL742: cmpl $127, %ebp jle .L515 562 dump(16_81); dump(16_ec); dump(i); dump(i>>8); !Sub sp,nn movq %rbx, %r10 movl $129, %edi call DUMP.6656 .LVL743: 563 %finishelseunless i=0 %start movq %rbx, %r10 movl $236, %edi call DUMP.6656 .LVL744: 564 dump(16_83); dump(16_ec); dump(i); !sub sp,n movq %rbx, %r10 movl %ebp, %edi call DUMP.6656 .LVL745: movq %rbx, %r10 movl $131, %edi call DUMP.6656 .LVL747: 565 %finish movl %ebp, %edi shrl $8, %edi movq %rbx, %r10 call DUMP.6656 .LVL746: .L516: .L517: testl %ebp, %ebp je .L517 movq %rbx, %r10 movl $236, %edi call DUMP.6656 .LVL748: 566 floc=floc-2 subl $2, 8764(%rsp) jmp .L514 .L515: movq %rbx, %r10 movl %ebp, %edi call DUMP.6656 .LVL749: jmp .L517 .LVL750: .L542: .LBE467: .LBE536: 567 %finish 568 %end 569 570 %routine constdef 571 %integer c 572 %cycle 573 nextatom; %returnif type=sep movq %rbx, %r10 call NEXTATOM.6568 .LVL592: 574 fault(ambig) %unless type=unknown; c=val movl 8956(%rsp), %eax cmpl $14, %eax je .L523 .L444: testl %eax, %eax jne .L543 .L445: 575 fault(form) %unless equal sign movq %rbx, %r10 movl $6, %edi call FAULT.6422 .LVL587: jmp .L445 .LVL588: .L446: movq %rbx, %r10 call EQUALSIGN.6582 .LVL594: testl %eax, %eax jne .L446 576 tagtype(c)=constant; tagval(c)=cexpr(1) subl $1, %ebp .LVL589: movslq %ebp, %rax movl $1, 9760(%rsp,%rax,4) movq %rbx, %r10 movl $5, %edi call FAULT.6422 .LVL595: jmp .L446 .LVL596: .L545: .LBE486: .LBE485: .LBB487: .LBB484: 577 %repeat movq %rbx, %r10 movl $1, %edi call CEXPR.6589 .LVL590: movslq %ebp, %rbp movl %eax, 8960(%rsp,%rbp,4) .LVL591: .L442: movl 8952(%rsp), %ebp .LVL593: 578 %end 579 580 %routine vardef(%integer key) 581 %integer t,lb,ub,c,r 582 %integername v 583 %cycle 584 nextatom movq %rbx, %r10 call NEXTATOM.6568 .LVL586: jmp .L449 .L543: .LBE469: .LBE468: .LBB485: .LBB486: 585 next: %returnif type=sep 586 fault(ambig) %unless type=unknown movl 8956(%rsp), %eax cmpl $14, %eax je .L523 .L450: testl %eax, %eax jne .L545 .L451: .LDL22: .LVL612: 587 t=var movq %rbx, %r10 movl $6, %edi call FAULT.6422 .LVL597: jmp .L451 .LVL598: .L546: 588 t=t+wordbit %if key=kword 589 t=t+glabit %if level=0 590 tagtype(val)=t; v==tagval(val) addl $2, %eax movl %eax, 8(%rsp) .L448: cmpl $0, 8768(%rsp) movl 8(%rsp), %edx cmovne 4(%rsp), %edx .L452: .LVL613: movl 8952(%rsp), %eax leal -1(%rax), %ebp movslq %ebp, %rax movl %edx, 9760(%rsp,%rax,4) .LVL614: 591 %if open bracket %start movq %rbx, %r10 call OPENBRACKET.6572 .LVL615: movl %eax, %r13d testl %eax, %eax jne .L546 .L453: .L455: .LVL616: 592 lb=cexpr(1); nextatom; fault(form) %unless type=colon movq %rbx, %r10 movl $1, %edi call CEXPR.6589 .LVL599: movl %eax, %r13d .LVL600: 593 ub=cexpr(1)+1; close bracket movq %rbx, %r10 call NEXTATOM.6568 .LVL601: movq %rbx, %r10 movl $1, %edi call CEXPR.6589 .LVL602: leal 1(%rax), %r14d .LVL603: 594 %finishelse lb=0 %and ub=1 cmpl $13, 8956(%rsp) jne .L544 .L454: movq %rbx, %r10 call CLOSEBRACKET.6577 .LVL604: jmp .L455 .LVL605: .L544: 595 lb=lb+lb %and ub=ub+ub %if key=kword movq %rbx, %r10 movl $5, %edi call FAULT.6422 .LVL606: jmp .L454 .LVL607: .L547: cmpl $18, %r12d je .L547 .L456: 596 %if level=0 %start addl %r13d, %r13d .LVL608: movl 8768(%rsp), %eax testl %eax, %eax jne .L457 597 v=gloc-lb; t=v+ub addl %r14d, %r14d .LVL609: jmp .L456 .LVL610: .L548: movl $1, %r14d movl 12168(%rsp), %eax subl %r13d, %eax movslq %ebp, %rbp movl %eax, 8960(%rsp,%rbp,4) 598 %if equal sign %start addl %eax, %r14d .LVL617: movq %rbx, %r10 call EQUALSIGN.6582 .LVL618: testl %eax, %eax jne .L459 .L458: .LVL619: .LBB470: .LBB471: movl $1, _imp_OutStream(%rip) movq 296+_imp_outfile(%rip), %rax movq %rax, _imp_OutFile(%rip) leaq __PRETTY_FUNCTION__.5991(%rip), %rdi call check_outstream@PLT .LVL620: .LBE471: .LBE470: .LBB472: .LBB473: movl $2, %edi call _imp_printsymbol@PLT .LVL621: .LBE473: .LBE472: .LBB474: .LBB475: movl $3, %edi call _imp_printsymbol@PLT .LVL622: .LBE475: .LBE474: 599 %cycle 600 nextatom movq %rbx, %r10 call NEXTATOM.6568 .LVL627: 601 %if gloc>=t %start cmpl 12168(%rsp), %r14d jle .L548 .L460: 602 gflush; ->next movq %rbx, %r10 call GFLUSH.6636 .LVL611: .L449: 603 %finish 604 %if type=string %start movl 8956(%rsp), %eax cmpl $2, %eax je .L549 .L461: 605 dumpstring(val) movq %rbx, %r10 movl 8952(%rsp), %edi call DUMPSTRING.6648 .LVL626: .L459: 606 %finishelseif type=sep %start 607 readline movq %rbx, %r10 call READLINE.6438 .LVL628: jmp .L459 .L463: 608 %finishelsestart cmpl $14, %eax jne .L463 609 atompos=atompos-1; c=Cexpr(1); r=1 subl $1, 12576(%rsp) 610 %if open bracket %start movq %rbx, %r10 movl $1, %edi call CEXPR.6589 .LVL629: movl %eax, %r13d .LVL630: movq %rbx, %r10 call OPENBRACKET.6572 .LVL631: testl %eax, %eax jne .L550 .LVL632: .L464: .LBB480: .LBB481: 611 r=cexpr(1); close bracket movl $1, %ebp movq %rbx, %r10 movl $1, %edi call CEXPR.6589 .LVL634: movl %eax, %ebp .LVL635: 612 %finish movq %rbx, %r10 call CLOSEBRACKET.6577 .LVL636: 613 %while r>0 %cycle 614 r=r-1; %if key=kword %then gword(c) %else gbyte(c) testl %ebp, %ebp jg .L464 jmp .L459 .L551: .LVL637: .LBB483: .LBB482: testl %ebp, %ebp jle .L459 .LVL640: .L467: subl $1, %ebp .LVL641: 615 %repeat cmpl $18, %r12d je .L551 .L468: 616 %finish 617 %repeat 618 %else 619 selectoutput(object); printsymbol(2); printsymbol(3) movq %rbx, %r10 movl %r13d, %edi call GBYTE.6629 .LVL642: jmp .L469 .LVL643: .L457: 620 printsymbol(t&255); printsymbol(t>>8&255); gloc=t movsbl %r14b, %edi .LBB476: .LBB477: call _imp_printsymbol@PLT .LVL623: .LBE477: .LBE476: 621 %finish movl %r14d, %eax movsbl %ah, %edi .LBB478: .LBB479: call _imp_printsymbol@PLT .LVL624: .LBE479: .LBE478: 622 %else movl %r14d, 12168(%rsp) jmp .L448 .LVL625: .L549: 623 fault(declate) %if level=2 cmpl $2, %eax je .L552 .L471: 624 floc=floc-ub+lb; v=floc-lb movl 8764(%rsp), %eax subl %r14d, %eax addl %eax, %r13d .LVL644: movl %r13d, 8764(%rsp) movq %rbx, %r10 movl $8, %edi call FAULT.6422 .LVL646: jmp .L471 .LVL647: .L534: .L473: .LBE484: .LBE487: .LBB488: .LBB489: 625 %finish movslq %ebp, %rbp movl %eax, 8960(%rsp,%rbp,4) jmp .L448 .LVL645: .L552: 626 %repeat 627 %end 628 629 %routine procdef(%integer key) leaq 17008(%rsp), %rax movq %rax, 8736(%rsp) movq %rbx, 8464(%rsp) 630 %integer p,sym 631 %string(31)s 632 633 %routine getstring pushq %r14 pushq %r13 pushq %r12 pushq %rbp pushq %rbx subq $1040, %rsp movq %r10, %rbx movq %fs:40, %rax movq %rax, 1032(%rsp) xorl %eax, %eax .LVL9: 634 s="" 635 %cycle 636 sym=line(val); %returnif sym='"'; val=val+1; s=s.tostring(sym) leaq 12(%r10), %rbp movq %rsp, %rsi movl $31, %edx movq %rbp, %rdi call _imp_strncpy@PLT .LVL10: movq (%rbx), %rdx movl 200(%rdx), %eax subl $1, %eax cltq movzbl 8088(%rdx,%rax), %eax movl %eax, 8(%rbx) movq (%rbx), %rdx movl 200(%rdx), %eax subl $1, %eax cltq movzbl 8088(%rdx,%rax), %eax movl %eax, 8(%rbx) 637 %repeat cmpl $34, %eax je .L19 .LBB220: .LBB221: cmpl $34, %eax jne .L21 .L19: 638 %end movq 1032(%rsp), %rax xorq %fs:40, %rax jne .L25 addq $1040, %rsp popq %rbx popq %rbp popq %r12 popq %r13 popq %r14 ret .L25: call __stack_chk_fail@PLT .LVL14: .LFE216: .section .rodata.str1.8,"aMS",@progbits,1 .align 8 .LC0: .string "->S(%d) out of bounds at %s line %d" .section .rodata.str1.1,"aMS",@progbits,1 .LC1: .string "test-new/lc.imp" .section .rodata.str1.8 .align 8 .LC2: .string "switch jump to undefined label S(%d): at %s line %d" IMMEDIATE.6712: .LFB207: 639 640 nextatom; fault(ambig) %unless type=unknown addl $1, 200(%rdx) .LVL11: .LBB223: .LBB222: movq %r13, %rdx movq %rbp, %rsi movq %r14, %rdi call _imp_join@PLT .LVL12: .LBE222: .LBE223: movl $31, %edx movq %r12, %rsi movq %rbp, %rdi call _imp_strncpy@PLT .LVL13: .LDL2: movq %rbx, %r10 call NEXTATOM.6568 .LVL648: 641 %if key=kspec %start cmpl $0, 8956(%rsp) jne .L553 .L474: cmpl $20, %r12d je .L554 .L475: 642 tagtype(val)=spec; tagval(val)=gloc movq %rbx, %r10 movl $6, %edi call FAULT.6422 .LVL657: jmp .L474 .L554: movl 8952(%rsp), %eax subl $1, %eax cltq movl $10, 9760(%rsp,%rax,4) 643 nextatom; fault(form) %unless type=string leaq 512(%rsp), %r14 leaq 768(%rsp), %r13 .LBE221: .LBE220: leaq 256(%rsp), %r12 .L21: movl 12168(%rsp), %edx movl %edx, 8960(%rsp,%rax,4) movq %rbx, %r10 call NEXTATOM.6568 .LVL658: 644 getstring; p=length(s) cmpl $2, 8956(%rsp) je .L476 leaq 8464(%rsp), %r10 call GETSTRING.6869 .LVL660: 645 selectoutput(object); printsymbol(2) movq %rbx, %r10 movl $5, %edi call FAULT.6422 .LVL659: .L476: movzbl 8476(%rsp), %ebp .LVL661: .LBB490: .LBB491: movl $1, _imp_OutStream(%rip) movq 296+_imp_outfile(%rip), %rax movq %rax, _imp_OutFile(%rip) leaq __PRETTY_FUNCTION__.5991(%rip), %rdi call check_outstream@PLT .LVL662: .LBE491: .LBE490: .LBB492: .LBB493: movl $2, %edi call _imp_printsymbol@PLT .LVL663: .LBE493: .LBE492: .LBB494: .LBB495: movl $8, %edi call _imp_printsymbol@PLT .LVL664: .LBE495: .LBE494: 646 printsymbol(8); printsymbol(p); printstring(s) 647 printsymbol(7); printsymbol(0) movsbl %bpl, %edi .LBB496: .LBB497: call _imp_printsymbol@PLT .LVL665: leaq 7184(%rsp), %rdi leaq 7440(%rsp), %rsi movl $32, %ecx rep movsq .LBE497: .LBE496: .LBB498: .LBB499: subq $256, %rsp leaq 7440(%rsp), %rsi movl $32, %ecx movq %rsp, %rdi rep movsq call _imp_printstring@PLT .LVL666: addq $256, %rsp .LVL667: .LBE499: .LBE498: .LBB500: .LBB501: movl $7, %edi call _imp_printsymbol@PLT .LVL668: .LBE501: .LBE500: .LBB502: .LBB503: movl $0, %edi call _imp_printsymbol@PLT .LVL669: .LBE503: .LBE502: 648 gloc=gloc+4; %return addl $4, 12168(%rsp) jmp .L523 .LVL670: .L555: 649 %finish 650 fault(nested) %unless level=0; level=1; access=1; textlevel=0 cmpl $0, 8768(%rsp) jne .L555 .L477: 651 v=val; t=proc; nextatom movl 8952(%rsp), %eax movl %eax, 8760(%rsp) movq %rbx, %r10 movl $7, %edi call FAULT.6422 .LVL671: jmp .L477 .L556: 652 %if type=string %start movl $8, 8756(%rsp) cmpl $2, 8956(%rsp) je .L556 .L478: 653 getstring movl $1, 8768(%rsp) movq %rbx, %r10 call NEXTATOM.6568 .LVL649: leaq 8464(%rsp), %r10 call GETSTRING.6869 .LVL672: .LBB504: .LBB505: movl $1, _imp_OutStream(%rip) movq 296+_imp_outfile(%rip), %rax movq %rax, _imp_OutFile(%rip) leaq __PRETTY_FUNCTION__.5991(%rip), %rdi call check_outstream@PLT .LVL673: .LBE505: .LBE504: .LBB506: .LBB507: movl $1, %edi call _imp_printsymbol@PLT .LVL674: .LBE507: .LBE506: .LBB508: .LBB509: movl $6, %edi call _imp_printsymbol@PLT .LVL675: .LBE509: .LBE508: 654 selectoutput(object); printsymbol(1); printsymbol(6) movl $1, 8772(%rsp) 655 printsymbol(length(s)); printstring(s) movl $0, 8940(%rsp) movsbl 8476(%rsp), %edi .LBB510: .LBB511: call _imp_printsymbol@PLT .LVL676: leaq 6928(%rsp), %rdi leaq 7696(%rsp), %rsi movl $32, %ecx rep movsq .LBE511: .LBE510: .LBB512: .LBB513: subq $256, %rsp leaq 7184(%rsp), %rsi movl $32, %ecx movq %rsp, %rdi rep movsq call _imp_printstring@PLT .LVL677: addq $256, %rsp .LBE513: .LBE512: 656 t=xproc; nextatom movl $9, 8756(%rsp) 657 %finish movq %rbx, %r10 call NEXTATOM.6568 .LVL678: jmp .L478 .L557: 658 tagtype(v)=t; tagval(v)=cloc movl 8760(%rsp), %eax subl $1, %eax cltq movl 8756(%rsp), %edx movl %edx, 9760(%rsp,%rax,4) 659 dump(16_1e); dump(16_55); !Push ds, push bp movl 12172(%rsp), %edx movl %edx, 8960(%rsp,%rax,4) movq %rbx, %r10 movl $30, %edi call DUMP.6656 .LVL650: 660 dump(16_8b); dump(16_ec); !Mov BP,SP movq %rbx, %r10 movl $85, %edi call DUMP.6656 .LVL651: movq %rbx, %r10 movl $139, %edi call DUMP.6656 .LVL652: 661 dump(16_33); dump(16_C0); !Xor AX,AX movq %rbx, %r10 movl $236, %edi call DUMP.6656 .LVL653: movq %rbx, %r10 movl $51, %edi call DUMP.6656 .LVL654: 662 dump(pushax); !For event mechanism movq %rbx, %r10 movl $192, %edi call DUMP.6656 .LVL655: movq %rbx, %r10 movl $80, %edi call DUMP.6656 .LVL656: 663 %if t=xproc %start cmpl $9, 8756(%rsp) je .L557 .L479: 664 fault(labund) %if program="" 665 dump(16_b8); flush; !Mov ax,nn=dseg movq %rbx, %r10 movl $184, %edi call DUMP.6656 .LVL680: 666 printsymbol(7); printsymbol(length(program)); printstring(program) leaq 7952(%rsp), %rsi leaq 3832(%rbx), %rdi call _imp_strcmp@PLT .LVL679: testl %eax, %eax je .L558 .L480: movq %rbx, %r10 call FLUSH.6660 .LVL681: .LBB514: .LBB515: movl $7, %edi call _imp_printsymbol@PLT .LVL682: .LBE515: .LBE514: 667 cloc=cloc+2; dump(16_8E); dump(16_D8); !Mov ds,ax movsbl 12584(%rsp), %edi .LBB516: .LBB517: call _imp_printsymbol@PLT .LVL683: leaq 6672(%rsp), %rdi leaq 8208(%rsp), %rsi movl $32, %ecx rep movsq .LBE517: .LBE516: .LBB518: .LBB519: subq $256, %rsp leaq 6928(%rsp), %rsi movl $32, %ecx movq %rsp, %rdi rep movsq call _imp_printstring@PLT .LVL684: addq $256, %rsp .LBE519: .LBE518: addl $2, 12172(%rsp) 668 %finish movq %rbx, %r10 movl $142, %edi call DUMP.6656 .LVL685: 669 parms=0; oldtpos=v+1 movl $0, 8776(%rsp) movq %rbx, %r10 movl $216, %edi call DUMP.6656 .LVL686: jmp .L479 .L558: movq %rbx, %r10 movl $10, %edi call FAULT.6422 .LVL687: jmp .L480 .L483: 670 %while type#sep %cycle movl 8760(%rsp), %eax addl $1, %eax movl %eax, 8752(%rsp) jmp .L481 .L553: 671 fault(ambig) %unless type=unknown movl 8956(%rsp), %eax cmpl $14, %eax je .L482 testl %eax, %eax je .L483 672 tagtype(val)=var+wordbit movl 8952(%rsp), %eax subl $1, %eax cltq movl $5, 9760(%rsp,%rax,4) movq %rbx, %r10 movl $6, %edi call FAULT.6422 .LVL689: jmp .L483 .L482: 673 parms=parms+1; nextatom addl $1, 8776(%rsp) 674 %repeat movq %rbx, %r10 call NEXTATOM.6568 .LVL688: .L481: 675 p=tagpos-parms; parms=parms+parms; sym=parms+6 movl 12160(%rsp), %edi movl 8776(%rsp), %eax movl %edi, %edx subl %eax, %edx .LVL690: 676 %while p>1; oper=16_a5; !Movw movq %rbx, %r10 call GFLUSH.6636 .LVL472: shrl %eax movl %eax, 200(%rbx) .LVL473: 692 %finish movl $165, 12(%rsp) .LVL474: .L403: 693 immediate(load,val); dump(pushax) movl 200(%rbx), %esi movq %rbx, %r10 movl $1, %edi call IMMEDIATE.6712 .LVL475: 694 %else movq %rbx, %r10 movl $80, %edi call DUMP.6656 .LVL476: 695 expr; dump(pushax) movq %rbx, %r10 call EXPR.6698 .LVL508: 696 nextatom; st=type; sv=val; si=0 movq %rbx, %r10 movl $80, %edi call DUMP.6656 .LVL509: movq %rbx, %r10 call NEXTATOM.6568 .LVL510: 697 fault(form) %unless st&varmask=var movl 204(%rbx), %ebp .LVL511: 698 %if openbracket %start movl 200(%rbx), %r14d .LVL512: movq %rbx, %r10 movl $5, %edi call FAULT.6422 .LVL513: .LDL19: movq %rbx, %r10 call OPENBRACKET.6572 .LVL514: movl %eax, %r13d testl %eax, %eax je .L405 699 expr; double(st); si=1; dump(pushax) movq %rbx, %r10 call EXPR.6698 .LVL515: 700 closebracket movq %rbx, %r10 movl %ebp, %edi call DOUBLE.6783 .LVL516: movq %rbx, %r10 call CLOSEBRACKET.6577 .LVL518: 701 %finish movl $1, %r13d 702 oper=16_a5 %if st&wordbit#0; !Movw movq %rbx, %r10 movl $80, %edi call DUMP.6656 .LVL517: 703 %finish movl $165, 12(%rsp) movl $165, 12(%rsp) jmp .L405 .LVL519: .L406: 704 nextatom; dt=type; dv=val movq %rbx, %r10 call NEXTATOM.6568 .LVL478: 705 fault(form) %unless dt&varmask=var movl 204(%rbx), %r12d .LVL479: 706 %if openbracket %start movl 200(%rbx), %r15d .LVL480: movq %rbx, %r10 movl $5, %edi call FAULT.6422 .LVL481: .LDL18: movq %rbx, %r10 call OPENBRACKET.6572 .LVL482: testl %eax, %eax je .L406 707 expr; double(dt); dump(16_8b); dump(16_f8); !Mov di,ax movq %rbx, %r10 call EXPR.6698 .LVL483: 708 direct(lea,dt,dv,0); dump(16_03); dump(16_f8); !add di,ax movq %rbx, %r10 movl %r12d, %edi call DOUBLE.6783 .LVL484: movq %rbx, %r10 movl $0, %ecx movl %r15d, %edx movl %r12d, %esi movl $14, %edi call DIRECT.6749 .LVL487: 709 closebracket movq %rbx, %r10 movl $139, %edi call DUMP.6656 .LVL485: movq %rbx, %r10 movl $3, %edi call DUMP.6656 .LVL488: movq %rbx, %r10 call CLOSEBRACKET.6577 .LVL490: .L407: 710 %else movq %rbx, %r10 movl $248, %edi call DUMP.6656 .LVL486: movq %rbx, %r10 movl $248, %edi call DUMP.6656 .LVL489: 711 direct(lea,dt,dv,0); dump(16_8b); dump(16_f8); !Mov di,ax movq %rbx, %r10 movl $0, %ecx movl %r15d, %edx movl %r12d, %esi movl $14, %edi call DIRECT.6749 .LVL520: 712 %finish movq %rbx, %r10 movl $139, %edi call DUMP.6656 .LVL521: 713 direct(lea,st,sv,0); dump(16_8b); dump(16_f0); !Mov si,ax movq %rbx, %r10 movl $0, %ecx movl %r14d, %edx movl %ebp, %esi movl $14, %edi call DIRECT.6749 .LVL491: movq %rbx, %r10 movl $248, %edi call DUMP.6656 .LVL522: jmp .L407 .L409: 714 %if si#0 %Start movq %rbx, %r10 movl $139, %edi call DUMP.6656 .LVL492: testl %r13d, %r13d je .L408 715 dump(popax); dump(16_03); dump(16_f0); !add,si,ax movq %rbx, %r10 movl $240, %edi call DUMP.6656 .LVL493: movq %rbx, %r10 movl $88, %edi call DUMP.6656 .LVL494: 716 %finish movq %rbx, %r10 movl $3, %edi call DUMP.6656 .LVL495: 717 %if dt&glabit=0 %then dump(16_16) %else dump(16_1e); !Push SS/DS movq %rbx, %r10 movl $240, %edi call DUMP.6656 .LVL496: .L408: testb $1, %r12b jne .L409 718 dump(16_07); !Pop ES movq %rbx, %r10 movl $22, %edi call DUMP.6656 .LVL497: .L410: movq %rbx, %r10 movl $7, %edi call DUMP.6656 .LVL498: 719 %if st&glabit=0 %start andl $1, %ebp .LVL499: jne .L411 720 dump(16_1e); dump(16_16); dump(16_1f); !Push DS,SS, Pop DS movq %rbx, %r10 movl $30, %edi call DUMP.6656 .LVL500: 721 %finish movq %rbx, %r10 movl $22, %edi call DUMP.6656 .LVL501: movq %rbx, %r10 movl $30, %edi call DUMP.6656 .LVL523: jmp .L410 .LVL524: .L401: 722 dump(16_59); dump(16_F2); dump(oper); !Pop cx, rep movq %rbx, %r10 movl $31, %edi call DUMP.6656 .LVL502: .L411: movq %rbx, %r10 movl $89, %edi call DUMP.6656 .LVL503: 723 dump(16_1f) %if st&glabit=0; !Pop DS movq %rbx, %r10 movl $242, %edi call DUMP.6656 .LVL504: testl %ebp, %ebp jne .L400 724 %finishelseif type=krepeat %start movq %rbx, %r10 movl 12(%rsp), %edi call DUMP.6656 .LVL505: movq %rbx, %r10 movl $31, %edi call DUMP.6656 .LVL506: .L412: .L424: .L400: 725 poptext; fault(type) %unless type=repexp movq %rbx, %r10 call POPTEXT.6694 .LVL525: 726 dump(16_E9); labelref(label,val) cmpl $30, %ebp jne .L413 movl 204(%rbx), %edi cmpl $14, %edi je .L414 movq %rbx, %r10 movl $233, %edi call DUMP.6656 .LVL527: 727 %finishelseif type=kjump %start movq %rbx, %r10 call FAULT.6422 .LVL526: .L414: movl 200(%rbx), %esi movq %rbx, %r10 movl $3, %edi call LABELREF.6682 .LVL528: jmp .L400 .L413: 728 nextatom; dump(16_e9); labelref(type,val) movq %rbx, %r10 call NEXTATOM.6568 .LVL529: 729 %finishelseif type=kreturn %start cmpl $24, %ebp jne .L415 movq %rbx, %r10 movl $233, %edi call DUMP.6656 .LVL530: jmp .L400 .L415: 730 expr %unless atomtype(atompos)=sep movl 200(%rbx), %esi movl 204(%rbx), %edi movq %rbx, %r10 call LABELREF.6682 .LVL531: movl 3824(%rbx), %eax decl %eax cltq cmpl $14, 3624(%rbx,%rax,4) je .L417 731 return cmpl $25, %ebp jne .L416 movq %rbx, %r10 call EXPR.6698 .LVL532: .L417: movq %rbx, %r10 call RETURN.6808 .LVL533: 732 %finishelseif type&varmask=var %start jmp .L400 .L416: 733 t=type; v=val; i=0 734 %if open bracket %start testb $1, %bpl jne .L418 .LVL534: movl 200(%rbx), %r13d .LVL535: movq %rbx, %r10 call OPENBRACKET.6572 .LVL536: movl %eax, %r12d testl %eax, %eax je .L419 735 expr; double(t); dump(pushax) movq %rbx, %r10 call EXPR.6698 .LVL537: 736 close bracket movq %rbx, %r10 movl %ebp, %edi call DOUBLE.6783 .LVL538: movq %rbx, %r10 call CLOSEBRACKET.6577 .LVL540: 737 i=1 movq %rbx, %r10 movl $80, %edi call DUMP.6656 .LVL539: movl $1, %r12d .LVL541: .L419: 738 %finish 739 fault(form) %unless equal sign movq %rbx, %r10 call EQUALSIGN.6582 .LVL542: testl %eax, %eax jne .L420 740 expr; dump(16_5e) %unless i=0; !pop si movq %rbx, %r10 movl $5, %edi call FAULT.6422 .LVL543: .L420: movq %rbx, %r10 call EXPR.6698 .LVL544: 741 direct(store,t,v,i) testl %r12d, %r12d je .L421 movq %rbx, %r10 movl %r12d, %ecx movl %r13d, %edx movl %ebp, %esi movl $13, %edi call DIRECT.6749 .LVL546: 742 %finishelseif type=proc %or type=xproc %or type=spec %start movq %rbx, %r10 movl $94, %edi call DUMP.6656 .LVL545: .L421: jmp .L400 .LVL547: .L418: 743 call(type,val) movl 200(%rbx), %esi movq %rbx, %r10 movl %ebp, %edi call CALL.6701 .LVL548: 744 %else jmp .L400 .L422: 745 atompos=atompos-1 leal -8(%rbp), %eax decl 3824(%rbx) 746 %finish cmpl $2, %eax ja .L422 .L423: 747 %end jmp .L400 .LFE217: .section .rodata .align 8 .LC7: .string " LC Cross-compiler 06/01/81" .zero 209 .globl main main: .LFB185: 748 addq $24, %rsp popq %rbx popq %rbp popq %r12 popq %r13 popq %r14 popq %r15 ret .LVL507: .L402: 749 %integerfn cond; !Evaluate condition, return value of jump opcode pushq %rbx movq %r10, %rbx 750 expr; nextatom; fault(form) %unless type=comp call EXPR.6698 .LVL456: 751 v=val; nextatom; unary movq %rbx, %r10 call NEXTATOM.6568 .LVL457: movl 200(%rbx), %eax movl %eax, 8(%rbx) 752 %if atomtype(atompos)#sep %or (type#constant %and type&varmask#var) %start cmpl $12, 204(%rbx) je .L378 movq %rbx, %r10 call NEXTATOM.6568 .LVL459: movq %rbx, %r10 call UNARY.6587 .LVL460: movl 3824(%rbx), %eax decl %eax cltq cmpl $14, 3624(%rbx,%rax,4) jne .L379 cmpl $1, 204(%rbx) je .L380 .L379: movq %rbx, %r10 movl $80, %edi call DUMP.6656 .LVL461: 753 dump(pushax); atompos=atompos-1; expr movq %rbx, %r10 movl $5, %edi call FAULT.6422 .LVL458: .L378: 754 dump(16_8B); dump(16_D8); dump(popax); !Mov bx,ax decl 3824(%rbx) movq %rbx, %r10 movl $139, %edi call DUMP.6656 .LVL463: movq %rbx, %r10 movl $216, %edi call DUMP.6656 .LVL464: 755 type=bx movq %rbx, %r10 call EXPR.6698 .LVL462: movl $17, 204(%rbx) .L380: 756 %finish movq %rbx, %r10 movl $88, %edi call DUMP.6656 .LVL465: 757 direct(cmp,type,val,0) movl 200(%rbx), %edx movl 204(%rbx), %esi movq %rbx, %r10 movl $0, %ecx movl $7, %edi call DIRECT.6749 .LVL466: 758 %result=16_72 %if v=']'+128 movl 8(%rbx), %edx cmpl $221, %edx je .L377 .L382: 759 %result=16_73 %if v='[' movl $114, %eax cmpl $91, %edx je .L377 .L383: 760 %result=16_74 %if v='#' movl $115, %eax cmpl $35, %edx je .L377 .L384: 761 %result=16_75 %if v='=' movl $116, %eax cmpl $61, %edx je .L377 .L385: 762 %result=16_76 %if v=']' movl $117, %eax cmpl $93, %edx je .L377 .L386: 763 %result=16_77 %if v='['+128 movl $118, %eax cmpl $219, %edx je .L377 .L387: 764 %result=16_7c %if v='>'+128 movl $119, %eax cmpl $190, %edx je .L377 .L388: 765 %result=16_7d %if v='<' movl $124, %eax cmpl $60, %edx je .L377 .L389: 766 %result=16_7e %if v='>' movl $125, %eax 767 %result=16_7f; ! %if v='<'+128 cmpl $62, %edx setne %al movzbl %al, %eax addl $126, %eax .L381: .L377: 768 %end popq %rbx ret .LFE218: INSTRUCTION.6904: .LFB217: 769 770 ! Main Program 771 772 %onevent 15 %start movl $1, %esi leaq 536+_imp_event(%rip), %rdi call __sigsetjmp@PLT .LVL551: testl %eax, %eax jne .L430 .LVL552: movl $32768, %esi leaq _imp_event(%rip), %rdi call _imp_on_event_enter@PLT .LVL553: .L430: 773 %finish 774 775 %if tagpos=1 %start; ! (not via event: first time) cmpl $1, 12160(%rsp) je .L533 .L431: 776 program = cliparam 777 openinput(source,program.".lc") 778 openoutput(object,program.".iob") leaq 16(%rsp), %rsi leaq 12584(%rsp), %rbp movl $31, %edx movq %rbp, %rdi call _imp_strncpy@PLT .LVL558: .LBB442: .LBB443: 779 openoutput(list,program.".lis") leaq 528(%rsp), %rdi leaq 784(%rsp), %rdx movq %rbp, %rsi call _imp_join@PLT .LVL559: leaq 5392(%rsp), %rdi leaq 272(%rsp), %rsi movl $32, %ecx rep movsq .LBE443: .LBE442: .LBB444: .LBB445: subq $256, %rsp leaq 5648(%rsp), %rsi movl $32, %ecx movq %rsp, %rdi rep movsq movl $1, %edi call _imp_openinput@PLT .LVL560: addq $256, %rsp .LVL561: .LBE445: .LBE444: .LBB446: .LBB447: 780 selectoutput(list) leaq 1296(%rsp), %rdi leaq 1552(%rsp), %rdx movq %rbp, %rsi call _imp_join@PLT .LVL562: leaq 5648(%rsp), %rdi leaq 1040(%rsp), %rsi movl $32, %ecx rep movsq .LBE447: .LBE446: .LBB448: .LBB449: subq $256, %rsp leaq 5904(%rsp), %rsi movl $32, %ecx movq %rsp, %rdi rep movsq movl $1, %edi call _imp_openoutput@PLT .LVL563: addq $256, %rsp .LVL564: .LBE449: .LBE448: .LBB450: .LBB451: 781 printstring(" LC Cross-compiler 06/01/81"); newline; newline leaq 2320(%rsp), %rbx leaq 2064(%rsp), %rdx movq %rbp, %rsi movq %rbx, %rdi call _imp_join@PLT .LVL565: leaq 5904(%rsp), %rdi leaq 1808(%rsp), %rsi movl $32, %ecx rep movsq .LBE451: .LBE450: .LBB452: .LBB453: subq $256, %rsp leaq 6160(%rsp), %rsi movl $32, %ecx movq %rsp, %rdi rep movsq movl $2, %edi call _imp_openoutput@PLT .LVL566: addq $256, %rsp .LVL567: .LBE453: .LBE452: .LBB454: .LBB455: movl $2, _imp_OutStream(%rip) movq 584+_imp_outfile(%rip), %rax movq %rax, _imp_OutFile(%rip) leaq __PRETTY_FUNCTION__.5991(%rip), %rdi call check_outstream@PLT .LVL568: .LBE455: .LBE454: .LBB456: leaq 2321(%rsp), %rdi leaq .LC7(%rip), %rsi movl $46, %ecx rep movsb leaq 2367(%rsp), %rdi movl $209, %ecx movl $0, %eax rep stosb movb $45, 2320(%rsp) leaq 2576(%rsp), %rdi movl $32, %ecx movq %rbx, %rsi rep movsq .LVL569: movb $45, 2576(%rsp) leaq 6160(%rsp), %rdi leaq 2576(%rsp), %rsi movl $32, %ecx rep movsq .LBE456: .LBB457: .LBB458: subq $256, %rsp leaq 6416(%rsp), %rsi movl $32, %ecx movq %rsp, %rdi rep movsq call _imp_printstring@PLT .LVL570: addq $256, %rsp .LBE458: .LBE457: .LBB459: .LBB460: call _imp_newline@PLT .LVL571: .LBE460: .LBE459: .LBB461: .LBB462: call _imp_newline@PLT .LVL572: movl 12160(%rsp), %eax movl $17, %edx movl %eax, %esi subl $18, %eax .LBE462: .LBE461: 782 %for type=kconst,1,krepeat %cycle 783 tag1(tagpos)=n1(type); tag2(tagpos)=n2(type) leaq N1.6419(%rip), %r9 movslq %ecx, %rcx movslq %edi, %rdi movl (%r9,%rdi,4), %r10d movl %r10d, 11360(%rsp,%rcx,4) 784 tagtype(tagpos)=type; tagval(tagpos)=-1 leaq N2.6420(%rip), %r8 .L432: leal -17(%rdx), %edi leal (%rax,%rdx), %ecx movl (%r8,%rdi,4), %edi movl %edi, 10560(%rsp,%rcx,4) movl %edx, 9760(%rsp,%rcx,4) 785 tagpos=tagpos+1 movl $-1, 8960(%rsp,%rcx,4) .LDL20: addl $1, %edx cmpl $31, %edx jne .L432 .LDL21: addl $14, %esi movl %esi, 12160(%rsp) movl $30, 8956(%rsp) .LVL573: .LBB463: .LBB464: movl $1, _imp_InStream(%rip) movq 296+_imp_infile(%rip), %rax movq %rax, _imp_InFile(%rip) leaq __PRETTY_FUNCTION__.5987(%rip), %rdi call check_instream@PLT .LVL574: .LBE464: .LBE463: 786 %repeat 787 selectinput(source); program="" 788 %finish 789 790 %cycle leaq 2832(%rsp), %rsi leaq 12584(%rsp), %rdi movl $31, %edx call _imp_strncpy@PLT .LVL575: jmp .L431 .L435: .L438: 791 readline leaq 8752(%rsp), %rbx movb $1, 15(%rsp) .L433: movq %rbx, %r10 call READLINE.6438 .LVL554: .L434: 792 %cycle; !Deal with labels 793 nextatom movq %rbx, %r10 call NEXTATOM.6568 .LVL555: 794 %exitunless type=unknown %and atomtype(atompos)=colon movl 8956(%rsp), %r12d testl %r12d, %r12d jne .L438 795 tagtype(val)=label; satrefs(tagval(val),cloc) movl 12576(%rsp), %eax subl $1, %eax cltq cmpl $13, 12376(%rsp,%rax,4) jne .L436 .L437: movl 8952(%rsp), %eax subl $1, %eax cltq movl $3, 9760(%rsp,%rax,4) 796 tagval(val)=cloc; atompos=atompos+1 movl 8960(%rsp,%rax,4), %edi movq %rbx, %r10 movl 12172(%rsp), %esi call SATREFS.6673 .LVL556: movl 8952(%rsp), %eax subl $1, %eax cltq movl 12172(%rsp), %edx movl %edx, 8960(%rsp,%rax,4) 797 access=1 addl $1, 12576(%rsp) movl $1, 8772(%rsp) 798 %repeat jmp .L434 .L533: .LBB439: .LBB440: .LBB441: leaq 5136(%rsp), %rdi call _imp_cliparam@PLT .LVL557: .LBE441: .LBE440: .LBE439: 799 %continueif type=sep %and ifpos=0 cmpl $14, %r12d jne .L439 800 %if type=kconst %start cmpl $0, 12164(%rsp) je .L433 .L447: cmpl $17, %r12d je .L442 .L436: 801 constdef 802 %finishelseif type=kbyte %or type=kword %start 803 vardef(type) 804 %finishelseif type=kspec %or type=kproc %start 805 procdef(type) movl %r12d, %eax movl %r12d, %eax leal -18(%r12), %edx cmpl $1, %edx ja .L447 cmpl $18, %r12d sete %al movzbl %al, %eax addl $4, %eax movl %eax, 4(%rsp) .LBB468: .LBB469: 806 %finishelseif type=kend %start 807 %exitif level=0; level=0 subl $20, %eax cmpl $1, %eax jbe .L534 .L472: cmpl $0, 8768(%rsp) je .L488 .L489: 808 return %unless access=0; flush cmpl $22, %r12d je .L535 .L487: cmpl $0, 8772(%rsp) je .L490 809 val=oldtpos; oldtpos=tagpos; tagpos=val; ! Reset tagpos before moaning movq %rbx, %r10 call RETURN.6808 .LVL697: .L490: movl 8752(%rsp), %eax movl %eax, 8952(%rsp) 810 %while oldtpos>tagpos %cycle movl $0, 8768(%rsp) movl 12160(%rsp), %edx movl %edx, 8752(%rsp) 811 oldtpos=oldtpos-1; fault(labund) %if tagtype(oldtpos)=unknown movq %rbx, %r10 call FLUSH.6660 .LVL698: movl %eax, 12160(%rsp) movl $0, %ebp .L491: .L492: movl 8752(%rsp), %eax movl 12160(%rsp), %esi movl %ebp, %ecx .L494: cmpl %eax, %esi jge .L493 subl $1, %eax 812 %repeat leal -1(%rax), %edx movslq %edx, %rdx movzbl 15(%rsp), %ecx cmpl $0, 9760(%rsp,%rdx,4) jne .L494 movl %eax, 8752(%rsp) 813 %unless textlevel=0 %start movq %rbx, %r10 movl $10, %edi call FAULT.6422 .LVL699: jmp .L491 .L493: testb %cl, %cl jne .L560 .L495: cmpl $0, 8940(%rsp) je .L523 814 poptext; textlevel=0; fault(type) movq %rbx, %r10 call POPTEXT.6694 .LVL700: 815 %finish movl $0, 8940(%rsp) 816 %finishelseif type=kprogram %start movq %rbx, %r10 movl 8956(%rsp), %edi call FAULT.6422 .LVL701: jmp .L523 .L560: movl %eax, 8752(%rsp) jmp .L495 .L536: 817 fault(ambig) %unless program="" 818 nextatom; fault(form) %unless type=string cmpl $26, %r12d je .L536 .L496: movq %rbx, %r10 call NEXTATOM.6568 .LVL704: 819 fault(form) %if val='"'; !Null name not allowed leaq 3088(%rsp), %rsi leaq 3832(%rbx), %rdi call _imp_strcmp@PLT .LVL702: testl %eax, %eax je .L497 cmpl $2, 8956(%rsp) jne .L561 .L498: cmpl $34, 8952(%rsp) je .L562 .L499: 820 v=line(val) movl 8952(%rsp), %eax subl $1, %eax cltq movzbl 16840(%rsp,%rax), %eax movl %eax, 8760(%rsp) .LBB520: .LBB521: movq %rbx, %r10 movl $5, %edi call FAULT.6422 .LVL715: jmp .L498 .L562: movq %rbx, %r10 movl $5, %edi call FAULT.6422 .LVL716: jmp .L499 .L537: 821 %cycle 822 val=val+1; program=program.tostring(v); v=line(val) movq %rbx, %r10 movl $6, %edi call FAULT.6422 .LVL703: .L497: addl $1, 8952(%rsp) .LVL705: .LBB523: .LBB522: 823 %repeatuntil v='"' cmpl $34, %eax jne .L500 .L501: 824 program=program."_" %unless charno(program,length(program))='_' movzbl 12584(%rsp), %eax cmpb $95, 12584(%rsp,%rax) je .L502 .LBB524: .LBB525: 825 selectoutput(object); printsymbol(2); printsymbol(6) leaq 3600(%rsp), %r13 leaq 3856(%rsp), %r12 leaq 3832(%rbx), %rbp .LBE521: .LBE520: leaq 3344(%rsp), %r14 .L500: movq %r12, %rdx movq %rbp, %rsi movq %r13, %rdi call _imp_join@PLT .LVL706: .LBE522: .LBE523: movl $31, %edx movq %r14, %rsi movq %rbp, %rdi call _imp_strncpy@PLT .LVL707: 826 printsymbol(length(program)); printstring(program) movsbl 12584(%rsp), %edi .LBB532: .LBB533: call _imp_printsymbol@PLT .LVL713: leaq 6416(%rsp), %rdi leaq 4880(%rsp), %rsi movl $32, %ecx rep movsq .LBE533: .LBE532: .LBB534: .LBB535: subq $256, %rsp leaq 6672(%rsp), %rsi movl $32, %ecx movq %rsp, %rdi rep movsq call _imp_printstring@PLT .LVL714: addq $256, %rsp jmp .L523 .L561: .LBE535: .LBE534: 827 %finishelseif type=kcycle %start leaq 4368(%rsp), %rdi leaq 4624(%rsp), %rdx leaq 3832(%rbx), %rbp movq %rbp, %rsi call _imp_join@PLT .LVL708: .LBE525: .LBE524: leaq 4112(%rsp), %rsi movl $31, %edx movq %rbp, %rdi call _imp_strncpy@PLT .LVL709: .L502: .LBB526: .LBB527: movl $1, _imp_OutStream(%rip) movq 296+_imp_outfile(%rip), %rax movq %rax, _imp_OutFile(%rip) leaq __PRETTY_FUNCTION__.5991(%rip), %rdi call check_outstream@PLT .LVL710: .LBE527: .LBE526: .LBB528: .LBB529: movl $2, %edi call _imp_printsymbol@PLT .LVL711: .LBE529: .LBE528: .LBB530: .LBB531: movl $6, %edi call _imp_printsymbol@PLT .LVL712: .LBE531: .LBE530: 828 pushtext(repexp,cloc) movl 8952(%rsp), %eax subl $1, %eax cltq movzbl 16840(%rsp,%rax), %eax movl %eax, 8760(%rsp) movq %rbx, %r10 movl 12172(%rsp), %esi movl $14, %edi call PUSHTEXT.6690 .LVL717: jmp .L523 .L538: 829 %finishelseif type=kelse %start cmpl $29, %r12d je .L537 .L503: 830 poptext; fault(type) %unless type=finexp movq %rbx, %r10 call POPTEXT.6694 .LVL718: 831 satrefs(val,cloc+3) cmpl $27, %r12d je .L538 .L504: movl 8956(%rsp), %edi cmpl $15, %edi je .L505 movl 12172(%rsp), %eax leal 3(%rax), %esi movq %rbx, %r10 movl 8952(%rsp), %edi call SATREFS.6673 .LVL720: 832 poptext; fault(type) %unless type=finexp movq %rbx, %r10 call FAULT.6422 .LVL719: .L505: movq %rbx, %r10 call POPTEXT.6694 .LVL721: 833 dump(16_e9); dump(val); dump(val>>8) movl 8956(%rsp), %edi cmpl $15, %edi je .L506 movq %rbx, %r10 movl $233, %edi call DUMP.6656 .LVL723: 834 %if ifpos=0 %start movq %rbx, %r10 call FAULT.6422 .LVL722: .L506: movq %rbx, %r10 movl 8952(%rsp), %edi call DUMP.6656 .LVL724: cmpl $0, 12164(%rsp) jne .L507 835 pushtext(context,0) movl 8952(%rsp), %edi shrl $8, %edi movq %rbx, %r10 call DUMP.6656 .LVL725: movq %rbx, %r10 movl $0, %esi movl $16, %edi call PUSHTEXT.6690 .LVL726: .L508: 836 %else 837 pushtext(finexp,cloc-2) movl 12172(%rsp), %eax leal -2(%rax), %esi movq %rbx, %r10 movl $15, %edi call PUSHTEXT.6690 .LVL728: 838 atompos=ifpos+1; dump(cond!!1); dump(3) movl 12164(%rsp), %eax addl $1, %eax movl %eax, 12576(%rsp) 839 dump(16_E9); dump(0); dump(0) movq %rbx, %r10 call COND.6943 .LVL729: xorl $1, %eax movl %eax, %edi movq %rbx, %r10 call DUMP.6656 .LVL730: movq %rbx, %r10 movl $233, %edi call DUMP.6656 .LVL732: 840 atompos=ifpos %and fault(form) %unless ifpos=2 movq %rbx, %r10 movl $3, %edi call DUMP.6656 .LVL731: movq %rbx, %r10 movl $0, %edi call DUMP.6656 .LVL733: movl 12164(%rsp), %eax cmpl $2, %eax jne .L563 .L509: 841 IFPOS=0 movq %rbx, %r10 movl $0, %edi call DUMP.6656 .LVL734: movl $0, 12164(%rsp) jmp .L508 .L563: movl %eax, 12576(%rsp) 842 %finish movq %rbx, %r10 movl $5, %edi call FAULT.6422 .LVL735: jmp .L509 .L539: 843 pushtext(finexp,cloc-2) movl 12172(%rsp), %eax leal -2(%rax), %esi movq %rbx, %r10 movl $15, %edi call PUSHTEXT.6690 .LVL727: jmp .L523 .L507: 844 %finishelseif type=kfinish %start 845 poptext; fault(type) %unless type=finexp %or type=context movq %rbx, %r10 call POPTEXT.6694 .LVL736: 846 satrefs(val,cloc) cmpl $28, %r12d je .L539 .L510: movl 8956(%rsp), %edi movq %rbx, %r10 movl 12172(%rsp), %esi movl 8952(%rsp), %edi call SATREFS.6673 .LVL738: 847 poptext; satrefs(val,cloc); access=1 leal -15(%rdi), %eax cmpl $1, %eax jbe .L511 movq %rbx, %r10 call POPTEXT.6694 .LVL739: 848 %else movq %rbx, %r10 call FAULT.6422 .LVL737: .L511: movq %rbx, %r10 movl 12172(%rsp), %esi movl 8952(%rsp), %edi call SATREFS.6673 .LVL740: jmp .L523 .L540: .LBB536: .LBB467: 849 fault(varund) %if type=unknown testl %r12d, %r12d jne .L512 movl $1, 8772(%rsp) 850 terminate declarations movq %rbx, %r10 movl $12, %edi call FAULT.6422 .LVL576: .L512: .LBB465: .LBB466: 851 %if ifpos=0 %start; ! Statement movl 12164(%rsp), %eax testl %eax, %eax je .L542 .L518: 852 atompos=atompos-1; instruction subl $1, 12576(%rsp) 853 %finishelseif type=sep %start; ! IF condition movq %rbx, %r10 call INSTRUCTION.6904 .LVL751: .L519: 854 fault(form) %unless ifpos=atompos cmpl 12576(%rsp), %eax je .L521 movq %rbx, %r10 movl $5, %edi call FAULT.6422 .LVL577: .L521: movl 12164(%rsp), %eax addl $1, %eax movl %eax, 12576(%rsp) 855 atompos=ifpos+1 cmpl $14, 8956(%rsp) jne .L520 856 dump(cond!!1); dump(3); dump(16_E9); dump(0); dump(0) movq %rbx, %r10 call COND.6943 .LVL578: xorl $1, %eax movl %eax, %edi movq %rbx, %r10 call DUMP.6656 .LVL579: 857 pushtext(finexp,0); pushtext(finexp,cloc-2) movq %rbx, %r10 movl $3, %edi call DUMP.6656 .LVL580: movq %rbx, %r10 movl $0, %esi movl $15, %edi call PUSHTEXT.6690 .LVL584: 858 %else; ! Statement IF condition movq %rbx, %r10 movl $233, %edi call DUMP.6656 .LVL581: movl 12172(%rsp), %eax leal -2(%rax), %esi movq %rbx, %r10 movl $15, %edi call PUSHTEXT.6690 .LVL585: jmp .L519 .L439: 859 oldapos=atompos-1; atompos=ifpos+1 movq %rbx, %r10 movl $0, %edi call DUMP.6656 .LVL582: movl 12576(%rsp), %ecx leal -1(%rcx), %ebp .LVL752: 860 dump(cond) movq %rbx, %r10 movl $0, %edi call DUMP.6656 .LVL583: addl $1, %eax movl %eax, 12576(%rsp) movq %rbx, %r10 call COND.6943 .LVL753: movq %rbx, %r10 movl %eax, %edi call DUMP.6656 .LVL754: 861 oldcpos=cpos; dump(0) movl 8944(%rsp), %r12d .LVL755: 862 atompos=oldapos; instruction movq %rbx, %r10 movl $0, %edi call DUMP.6656 .LVL756: movl %ebp, 12576(%rsp) 863 v=cpos-oldcpos-1; fault(far) %if v>127 movq %rbx, %r10 call INSTRUCTION.6904 .LVL757: movl %r12d, %eax notl %eax addl 8944(%rsp), %eax movl %eax, 8760(%rsp) 864 code(oldcpos)=v cmpl $127, %eax jle .L522 movslq %r12d, %r12 movl 8760(%rsp), %eax movb %al, 12840(%rsp,%r12) 865 access=1 movq %rbx, %r10 movl $9, %edi call FAULT.6422 .LVL758: .L522: movl $1, 8772(%rsp) jmp .L519 .LVL759: .L488: .LBB537: .LBB538: movl $1, _imp_OutStream(%rip) movq 296+_imp_outfile(%rip), %rax movq %rax, _imp_OutFile(%rip) leaq __PRETTY_FUNCTION__.5991(%rip), %rdi call check_outstream@PLT .LVL760: .LBE538: .LBE537: .LBB539: .LBB540: movl $10, %edi call _imp_printsymbol@PLT .LVL761: .LBE540: .LBE539: .LBB541: .LBB542: movl $2, _imp_OutStream(%rip) movq 584+_imp_outfile(%rip), %rax movq %rax, _imp_OutFile(%rip) leaq __PRETTY_FUNCTION__.5991(%rip), %rdi call check_outstream@PLT .LVL762: .LBE542: .LBE541: .LBB543: .LBB544: call _imp_newline@PLT .LVL763: .LBE544: .LBE543: .LBB545: .LBB546: movl $0, %edi call exit@PLT .LVL764: .LBE546: .LBE545: .LFE185: .section .rodata .align 16 __PRETTY_FUNCTION__.5991: .string "_imp_SELECTOUTPUT" .align 32 CODE.6751: .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 32 S.6717: .quad .L31 .quad .L31 .quad .L31 .quad .L31 .quad .L31 .quad .L31 .quad .L31 .quad .L31 .quad .L31 .quad .L31 .quad .L31 .quad .L31 .align 32 S.6596: .quad .L240 .quad .L240 .quad .L240 .quad .L240 .quad .L240 .quad .L240 .quad .L240 .quad .L240 .quad .L240 .quad .L240 .quad .L240 .comm QUOTE.6441,4,4 .comm SEMI.6440,4,4 .section .rodata .align 16 __PRETTY_FUNCTION__.5987: .string "_imp_SELECTINPUT" .align 32 N2.6420: .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 32 N1.6419: .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 .Letext0: 866 %finish 867 ifpos=0 movl $0, 12164(%rsp) jmp .L523 .L520: 868 %finish 869 nextatom; fault(form) %unless type=sep %and ifpos=0 movq %rbx, %r10 call NEXTATOM.6568 .LVL693: 870 %repeat cmpl $14, 8956(%rsp) jne .L524 871 selectoutput(object); printsymbol(10) cmpl $0, 12164(%rsp) je .L433 .L524: 872 selectoutput(list); newline 873 %endofprogram movq %rbx, %r10 movl $5, %edi call FAULT.6422 .LVL694: jmp .L433 .LVL695: .L559: movl %esi, 8472(%rsp) jmp .L486 .LVL696: .L535: 1020 Statements compiled