Edinburgh IMP77 Compiler - Version 8.4 1 %BEGIN; !HAL-7502 .Ltext0: _imp_OUTDEV: .LFB86: pushl %ebp movl %esp, %ebp pushl %ebx subl $4, %esp call __x86.get_pc_thunk.bx addl $_GLOBAL_OFFSET_TABLE_, %ebx subl $12, %esp leal __PRETTY_FUNCTION__.5593@GOTOFF(%ebx), %eax pushl %eax call check_outstream@PLT addl $16, %esp movl _imp_OutStream@GOT(%ebx), %eax movl (%eax), %eax movl -4(%ebp), %ebx leave ret .LFE86: _imp_SELECTINPUT: .LFB93: pushl %ebp movl %esp, %ebp pushl %ebx subl $4, %esp call __x86.get_pc_thunk.ax addl $_GLOBAL_OFFSET_TABLE_, %eax cmpl $0, 8(%ebp) js .L6 movl _imp_InStream@GOT(%eax), %edx movl 8(%ebp), %ecx movl %ecx, (%edx) movl _imp_infile@GOT(%eax), %ecx movl 8(%ebp), %edx imull $276, %edx, %edx addl %ecx, %edx addl $4, %edx movl (%edx), %ecx movl _imp_InFile@GOT(%eax), %edx movl %ecx, (%edx) subl $12, %esp leal __PRETTY_FUNCTION__.5621@GOTOFF(%eax), %edx pushl %edx movl %eax, %ebx call check_instream@PLT addl $16, %esp jmp .L3 .L6: nop .L3: movl -4(%ebp), %ebx leave ret .LFE93: _imp_SELECTOUTPUT: .LFB94: pushl %ebp movl %esp, %ebp pushl %ebx subl $4, %esp call __x86.get_pc_thunk.ax addl $_GLOBAL_OFFSET_TABLE_, %eax cmpl $0, 8(%ebp) js .L10 movl _imp_OutStream@GOT(%eax), %edx movl 8(%ebp), %ecx movl %ecx, (%edx) movl _imp_outfile@GOT(%eax), %ecx movl 8(%ebp), %edx imull $276, %edx, %edx addl %ecx, %edx addl $4, %edx movl (%edx), %ecx movl _imp_OutFile@GOT(%eax), %edx movl %ecx, (%edx) subl $12, %esp leal __PRETTY_FUNCTION__.5625@GOTOFF(%eax), %edx pushl %edx movl %eax, %ebx call check_outstream@PLT addl $16, %esp jmp .L7 .L10: nop .L7: movl -4(%ebp), %ebx leave ret .LFE94: CHAR.6091: .LFB190: leal 4(%esp), %ecx andl $-16, %esp pushl -4(%ecx) pushl %ebp movl %esp, %ebp pushl %edi pushl %esi pushl %ebx pushl %ecx subl $1096, %esp call __x86.get_pc_thunk.bx addl $_GLOBAL_OFFSET_TABLE_, %ebx movl %ecx, %eax movl 4(%eax), %edx movl %edx, -1100(%ebp) movl %gs:20, %esi movl %esi, -28(%ebp) xorl %esi, %esi leal 8(%ebp), %edx movl %edx, -868(%ebp) subl $8, %esp pushl -1100(%ebp) pushl (%eax) call _imp_initialise@PLT addl $16, %esp .LBB233: .LBB234: movl $32768, %eax .LBE234: .LBE233: 2 ! INPUT/OUTPUT STREAMS 3 %OWNINTEGER MAIN=1, PRE=2; !INPUT 4 %OWNINTEGER BIN=1, LIS=2; !OUTPUT 5 ! OPERAND TYPES 6 %OWNINTEGER OPMASK=16_F000; !MACHINE INSTRUCTION OR MACRO 7 %OWNINTEGER MACRO=16_A000 8 %OWNINTEGER FMASK=16_0800; !FORWARD REF 9 %OWNINTEGER UMASK=16_0200; !UNDEF (FORWARD REF) 10 %OWNINTEGER REG=16_0080; !REGISTER 11 %OWNINTEGER MEMMASK=16_0040; !MEM REF 12 %OWNINTEGER RELMASK=16_0020; !RELOCATABLE 13 %OWNINTEGER XMASK=16_0010; !INDEXED 14 %OWNINTEGER REGXMASK=16_0090; !=REG+XMASK 15 %OWNINTEGER RELUXMASK=16_0230; !=RELMASK+UMASK+XMASK 16 ! TEXT POINTERS (BYTE ADDRESSES) 17 %OWNINTEGER CODEPOS; !(NOT ACTUALLY BYTE) 18 %OWNINTEGER STARTPOS; !START OF CURRENT LINE 19 %OWNINTEGER GETPOS; !INPUT POINTER (NEXT) 20 %OWNINTEGER PUTPOS 21 %OWNINTEGER PSEUDOLIM 22 %OWNINTEGER PRINTPOS; !START OF PRINT LINE 23 %OWNINTEGER FAULTPOS 24 %OWNINTEGER MACLIM; !MACRO DEF LIMIT 25 ! OTHER POINTERS (WORD ADDRESSES) 26 %OWNINTEGER MP; !MACRO-CALL PARAMETERS 27 %OWNINTEGER QBASE,QSTART,QLIM,TRANSF; !OPERAND QUEUE 28 %OWNINTEGER DEFMIN; !TAG MIN (DOWN - RESET) 29 %OWNINTEGER DEFLIM; !TAG LIM (FIXED) 30 %OWNINTEGER ALMAX; !ASSEMBLER LAB MAX (UP - RESET) 31 %OWNINTEGER LABMIN; !USER LAB MIN (DOWN - RESET) 32 %OWNINTEGER LABLIM; !USER LAB LIM (FIXED) 33 %OWNINTEGER BP; !BLOCK POINTER (UP - DOWN) 34 %OWNINTEGER NP; !NEST POINTER (DOWN - UP) 35 %OWNINTEGER STORELIM; !(FIXED) 36 37 %INTEGER SYM; !CURRENT SYMBOL 38 %INTEGER TERM; !TAG TERMINATOR 39 %INTEGER FSYM; !FAULT FLAG SYMBOL 40 %OWNINTEGER CHARS=0; !PRINT CHAR COUNT 41 %OWNINTEGER LINES=0; !PRINT LINE COUNT 42 %OWNINTEGER PASS=-1; !CURRENT PASS (-1,0,1) 43 %OWNINTEGER LIST=-1; !LISTING CONTROL 44 %INTEGER ASSCOND,SKIP; !ASSEMBLY CONDITIONS (BIT NEST) 45 %OWNINTEGER SAVE=1; !REG SAVE DISPLACEMENT 46 %OWNINTEGER TEMPS=12; !TEMPORARY REGISTER SET 47 %OWNINTEGER CONTROL=16_40; !OBJECT CODE CONTROL FIELD 48 %OWNINTEGER CHECK=0; !BINARY CHECKSUM 49 %INTEGER LOCTYPE,LOC; !LOCATION COUNTER 50 %INTEGER ACC,ATYPE,AVAL; !MAIN TEMP REGISTER 51 %INTEGER CREG; !CONDITION CODE 52 %INTEGER COND; !CONDITION CODE MASK 53 %INTEGER DREG,DUSE; !DESTINATION REGISTER 54 %INTEGER TYPE,VAL; !CURRENT TYPE,VALUE 55 %INTEGER TAG1,TAG2; !TAG (CHARS 1:3, 4:6) 56 %INTEGER MODE; !ASSEMBLY MODE 57 %INTEGER PEND; !TAG ALREADY RECOGNISED 58 %INTEGER FLAG; !JUMPS 59 60 61 %INTEGER SBOUND 62 SBOUND = FREESTORE-260; !ALLOW FOR INPUT BUFFER subl $260, %eax movl %eax, -1076(%ebp) 63 SBOUND = SBOUND-256 %IF OUTDEV = 2 call _imp_OUTDEV cmpl $2, %eax jne .L357 subl $256, -1076(%ebp) jmp .L17 .L357: nop .L17: 64 SELECT OUTPUT(LIS) movl LIS.6024@GOTOFF(%ebx), %eax subl $12, %esp pushl %eax call _imp_SELECTOUTPUT addl $16, %esp 65 SBOUND = SBOUND-256 %IF OUTDEV = 2 call _imp_OUTDEV cmpl $2, %eax jne .L358 subl $256, -1076(%ebp) jmp .L19 .L358: nop .L19: 66 %INTEGERARRAY STORE(1:SBOUND) movl -1076(%ebp), %eax leal -1(%eax), %edx movl %edx, -1064(%ebp) sall $2, %eax leal 3(%eax), %edx movl $16, %eax subl $1, %eax addl %edx, %eax movl $16, %esi movl $0, %edx divl %esi imull $16, %eax, %eax subl %eax, %esp movl %esp, %eax addl $3, %eax shrl $2, %eax sall $2, %eax movl %eax, -1060(%ebp) leal -864(%ebp), %edx movl $0, %eax movl $17, %ecx movl %edx, %edi rep stosl movl -1060(%ebp), %eax movl %eax, -864(%ebp) movl $4, -860(%ebp) .LBB235: 67 68 %INTEGERFN CHAR(%INTEGER P) pushl %ebp movl %esp, %ebp subl $20, %esp call __x86.get_pc_thunk.ax addl $_GLOBAL_OFFSET_TABLE_, %eax movl %ecx, -20(%ebp) 69 !BYTE FETCH 70 %result = byteinteger(P) movl 8(%ebp), %eax movl %eax, -4(%ebp) .LBB231: .LBB232: movl -4(%ebp), %eax .LBE232: .LBE231: movzbl (%eax), %eax movzbl %al, %eax 71 %END leave ret .LFE190: .section .rodata .align 4 .LC1: .string "Illegal cycle I = 1, 1, SBOUND" .align 32 .LC0: .byte 19 .string "test-in/hal7502.imp" .zero 235 .globl main main: .LFB189: 72 73 %ROUTINE PUT CHAR(%INTEGER K) pushl %ebp movl %esp, %ebp subl $20, %esp call __x86.get_pc_thunk.ax addl $_GLOBAL_OFFSET_TABLE_, %eax movl %ecx, -20(%ebp) 74 !AT PUTPOS WITH POST-INCREMENT 75 byteinteger(putpos) = k movl PUTPOS.6038@GOTOFF(%eax), %edx movl %edx, -4(%ebp) .LBB286: .LBB287: movl -4(%ebp), %edx .LBE287: .LBE286: movl 8(%ebp), %ecx movb %cl, (%edx) 76 putpos = putpos + 1 movl PUTPOS.6038@GOTOFF(%eax), %edx addl $1, %edx movl %edx, PUTPOS.6038@GOTOFF(%eax) 77 %END nop leave ret .LFE191: FAULT.6097: .LFB192: 78 79 %ROUTINE FAULT(%INTEGER K) pushl %ebp movl %esp, %ebp subl $4, %esp call __x86.get_pc_thunk.ax addl $_GLOBAL_OFFSET_TABLE_, %eax movl %ecx, %eax movl %ecx, -4(%ebp) 80 !RECORD (FIRST) FAULT 81 !NOT NECESSARILY CULPABLE IN PASS 0 82 FSYM = K %IF FSYM = ' ' movl 72(%eax), %edx cmpl $32, %edx jne .L485 movl 8(%ebp), %edx movl %edx, 72(%eax) nop .L483: 83 %END jmp .L483 .L485: nop leave ret .LFE192: PRINT.6101: .LFB193: 84 85 %ROUTINE PRINT(%INTEGER K) pushl %ebp movl %esp, %ebp subl $20, %esp call __x86.get_pc_thunk.ax addl $_GLOBAL_OFFSET_TABLE_, %eax movl %ecx, -20(%ebp) 86 INTEGER(CODEPOS+CHARS) = K movl CODEPOS.6035@GOTOFF(%eax), %ecx movl CHARS.6059@GOTOFF(%eax), %edx addl %ecx, %edx movl %edx, -4(%ebp) .LBB288: .LBB289: movl -4(%ebp), %edx .LBE289: .LBE288: movl 8(%ebp), %ecx movl %ecx, (%edx) 87 CHARS = CHARS+1 movl CHARS.6059@GOTOFF(%eax), %edx addl $1, %edx movl %edx, CHARS.6059@GOTOFF(%eax) 88 %END nop leave ret .LFE193: PRINTHIT.6107: .LFB195: 89 90 %ROUTINE PRINT WORD(%INTEGER V) pushl %ebp movl %esp, %ebp subl $40, %esp call __x86.get_pc_thunk.ax addl $_GLOBAL_OFFSET_TABLE_, %eax movl %ecx, %eax movl %ecx, -28(%ebp) movl %gs:20, %edx movl %edx, -12(%ebp) xorl %edx, %edx leal 8(%ebp), %edx movl %edx, -16(%ebp) movl %eax, -20(%ebp) 91 %ROUTINE PRINT HIT(%INTEGER V) pushl %ebp movl %esp, %ebp subl $4, %esp call __x86.get_pc_thunk.ax addl $_GLOBAL_OFFSET_TABLE_, %eax movl %ecx, %edx movl %ecx, -4(%ebp) 92 V = V&15+'0'; V = V+7 %IF V > '9' movl 8(%ebp), %eax andl $15, %eax addl $48, %eax movl %eax, 8(%ebp) cmpl $57, 8(%ebp) jle .L493 addl $7, 8(%ebp) jmp .L491 .L493: nop .L491: 93 PRINT(V) movl (%edx), %eax pushl 8(%ebp) movl %eax, %ecx call PRINT.6101 addl $4, %esp 94 %END nop leave ret .LFE195: PRINTWORD.6104: .LFB194: 95 %ROUTINE PRINT1(%INTEGER V) pushl %ebp movl %esp, %ebp pushl %ebx subl $4, %esp call __x86.get_pc_thunk.ax addl $_GLOBAL_OFFSET_TABLE_, %eax movl %ecx, %ebx movl %ecx, -8(%ebp) 96 PRINT HIT(V>>4); PRINT HIT(V) movl 8(%ebp), %eax shrl $4, %eax pushl %eax movl %ebx, %ecx call PRINTHIT.6107 addl $4, %esp pushl 8(%ebp) movl %ebx, %ecx call PRINTHIT.6107 addl $4, %esp 97 %END nop movl -4(%ebp), %ebx leave ret .LFE196: PRINTLOC.6114: .LFB197: 98 PRINT1(V>>8); PRINT1(V) movl 8(%ebp), %eax shrl $8, %eax movl %eax, %edx subl $12, %esp leal -20(%ebp), %eax pushl %edx movl %eax, %ecx call PRINT1.6111 addl $16, %esp subl $12, %esp leal -20(%ebp), %eax pushl 8(%ebp) movl %eax, %ecx call PRINT1.6111 addl $16, %esp 99 %END nop movl -12(%ebp), %eax xorl %gs:20, %eax je .L496 call __stack_chk_fail_local .L496: leave ret .LFE194: PRINT1.6111: .LFB196: 100 101 %ROUTINE PRINT LOC pushl %ebp movl %esp, %ebp pushl %esi pushl %ebx subl $16, %esp call __x86.get_pc_thunk.si addl $_GLOBAL_OFFSET_TABLE_, %esi movl %ecx, %ebx movl %ecx, -12(%ebp) 102 PRINT WORD(LOC) movl 68(%ebx), %eax subl $12, %esp pushl %eax movl %ebx, %ecx call PRINTWORD.6104 addl $16, %esp 103 %IF LOCTYPE&RELMASK # 0 %THEN PRINT('''') %ELSE PRINT(' ') movl RELMASK.6031@GOTOFF(%esi), %eax testl %eax, %eax sete %al movzbl %al, %eax movl 64(%ebx), %edx andl %edx, %eax testl %eax, %eax jne .L505 subl $12, %esp pushl $39 movl %ebx, %ecx call PRINT.6101 addl $16, %esp jmp .L502 .L505: nop .L501: subl $12, %esp pushl $32 movl %ebx, %ecx call PRINT.6101 addl $16, %esp .L502: 104 PRINT(' ') subl $12, %esp pushl $32 movl %ebx, %ecx call PRINT.6101 addl $16, %esp 105 %END nop leal -8(%ebp), %esp popl %ebx popl %esi popl %ebp ret .LFE197: DONEWLINE.6119: .LFB198: 106 107 %ROUTINE DO NEWLINE pushl %ebp movl %esp, %ebp pushl %ebx subl $36, %esp call __x86.get_pc_thunk.bx addl $_GLOBAL_OFFSET_TABLE_, %ebx movl %ecx, -28(%ebp) .LBB290: .LBB291: call _imp_newline@PLT .LBE291: .LBE290: 108 NEWLINE; LINES = LINES+1 movl LINES.6060@GOTOFF(%ebx), %eax addl $1, %eax movl %eax, LINES.6060@GOTOFF(%ebx) 109 NEWLINES(2) %AND LINES = 0 %IF LINES = 61 movl LINES.6060@GOTOFF(%ebx), %eax cmpl $61, %eax jne .L510 movl $2, -12(%ebp) .LBB292: .LBB293: subl $12, %esp pushl -12(%ebp) call _imp_newlines@PLT addl $16, %esp .LBE293: .LBE292: movl $0, LINES.6060@GOTOFF(%ebx) nop .L508: 110 %END jmp .L508 .L510: nop movl -4(%ebp), %ebx leave ret .LFE198: PRINTIT.6126: .LFB200: 111 112 %ROUTINE PRINT LINE pushl %ebp movl %esp, %ebp pushl %esi pushl %ebx subl $32, %esp call __x86.get_pc_thunk.bx addl $_GLOBAL_OFFSET_TABLE_, %ebx movl %ecx, %esi movl %ecx, -28(%ebp) movl %gs:20, %eax movl %eax, -12(%ebp) xorl %eax, %eax leal 8(%ebp), %eax movl %eax, -16(%ebp) movl %esi, -20(%ebp) 113 %ROUTINE PRINTIT(%INTEGER SUB) pushl %ebp movl %esp, %ebp pushl %esi pushl %ebx subl $48, %esp call __x86.get_pc_thunk.bx addl $_GLOBAL_OFFSET_TABLE_, %ebx movl %ecx, %esi movl %ecx, -44(%ebp) 114 %OWNINTEGER MARKER=124; !VERTICAL BAR 115 %INTEGER P,Q,K 116 %RETURN %IF CHARS = 0 %AND CHAR(PRINTPOS) = NL movl CHARS.6059@GOTOFF(%ebx), %eax testl %eax, %eax jne .L532 movl PRINTPOS.6040@GOTOFF(%ebx), %edx movl (%esi), %eax pushl %edx movl %eax, %ecx call CHAR.6091 addl $4, %esp cmpl $10, %eax je .L533 jmp .L513 .L532: nop .L513: nop jmp .L511 .L535: 117 PRINT SYMBOL(FSYM); SPACE movl (%esi), %eax movl 72(%eax), %eax movsbl %al, %eax movb %al, -33(%ebp) .LBB294: .LBB295: movsbl -33(%ebp), %eax subl $12, %esp pushl %eax call _imp_printsymbol@PLT addl $16, %esp .LBE295: .LBE294: .LBB296: .LBB297: call _imp_space@PLT .LBE297: .LBE296: 118 P = CODEPOS; Q = P+CHARS movl CODEPOS.6035@GOTOFF(%ebx), %eax movl %eax, -28(%ebp) movl CHARS.6059@GOTOFF(%ebx), %edx movl -28(%ebp), %eax addl %edx, %eax movl %eax, -20(%ebp) .L516: 119 PRINT SYMBOL(INTEGER(P)) %AND P=P+1 %WHILE P # Q movl -28(%ebp), %eax cmpl -20(%ebp), %eax je .L534 movl -28(%ebp), %eax movl %eax, -16(%ebp) .LBB298: .LBB299: movl -16(%ebp), %eax .LBE299: .LBE298: movl (%eax), %eax movsbl %al, %eax movb %al, -32(%ebp) .LBB300: .LBB301: movsbl -32(%ebp), %eax subl $12, %esp pushl %eax call _imp_printsymbol@PLT addl $16, %esp .LBE301: .LBE300: addl $1, -28(%ebp) jmp .L516 .L534: nop .L518: 120 %RETURN %IF PRINTPOS = 0 movl PRINTPOS.6040@GOTOFF(%ebx), %eax testl %eax, %eax je .L535 nop .L521: nop jmp .L511 .L538: 121 SPACES(17-CHARS) movl CHARS.6059@GOTOFF(%ebx), %eax movl $17, %edx subl %eax, %edx movl %edx, %eax movl %eax, -12(%ebp) .LBB302: .LBB303: subl $12, %esp pushl -12(%ebp) call _imp_spaces@PLT addl $16, %esp .LBE303: .LBE302: 122 P = PRINTPOS; Q = 0 movl PRINTPOS.6040@GOTOFF(%ebx), %eax movl %eax, -28(%ebp) movl $0, -20(%ebp) .L522: 123 %CYCLE 124 PRINT SYMBOL(MARKER) %IF P = FAULTPOS movl FAULTPOS.6041@GOTOFF(%ebx), %eax cmpl %eax, -28(%ebp) jne .L536 movl MARKER.6128@GOTOFF(%ebx), %eax movsbl %al, %eax movb %al, -31(%ebp) .LBB304: .LBB305: movsbl -31(%ebp), %eax subl $12, %esp pushl %eax call _imp_printsymbol@PLT addl $16, %esp jmp .L524 .L536: .LBE305: .LBE304: nop .L524: 125 K = CHAR(P); K = SUB %IF P = PSEUDOLIM movl (%esi), %eax subl $12, %esp pushl -28(%ebp) movl %eax, %ecx call CHAR.6091 addl $16, %esp movl %eax, -24(%ebp) movl PSEUDOLIM.6039@GOTOFF(%ebx), %eax cmpl %eax, -28(%ebp) jne .L537 movl 8(%ebp), %eax movl %eax, -24(%ebp) jmp .L530 .L526: .L537: nop .L530: movb $39, -30(%ebp) .LBB306: .LBB307: movsbl -30(%ebp), %eax subl $12, %esp pushl %eax call _imp_printsymbol@PLT addl $16, %esp .L527: .LBE307: .LBE306: 126 PRINT SYMBOL('''') %IF (K!!Q)&128 # 0 127 %RETURN %IF K = NL cmpl $10, -24(%ebp) je .L538 nop .L529: nop .L511: 128 PRINT SYMBOL(K&127) movl -24(%ebp), %eax movsbl %al, %eax andl $127, %eax movb %al, -29(%ebp) .LBB308: .LBB309: movsbl -29(%ebp), %eax subl $12, %esp pushl %eax call _imp_printsymbol@PLT addl $16, %esp .LBE309: .LBE308: 129 P = P+1; Q = K addl $1, -28(%ebp) movl -24(%ebp), %eax movl %eax, -20(%ebp) 130 %REPEAT jmp .L522 .L533: 131 %END leal -8(%ebp), %esp popl %ebx popl %esi popl %ebp ret .LFE200: PRINTLINE.6123: .LFB199: 132 %RETURN %IF PASS = 0 movl PASS.6061@GOTOFF(%ebx), %eax testl %eax, %eax je .L558 nop .L541: nop .L539: 133 134 %UNLESS LIST < 0 %OR (PRINTPOS=0 %AND FSYM=' ' %AND LIST&1=0) %START movl LIST.6062@GOTOFF(%ebx), %eax testl %eax, %eax js .L559 movl PRINTPOS.6040@GOTOFF(%ebx), %eax testl %eax, %eax jne .L560 movl 72(%esi), %eax cmpl $32, %eax jmp .L546 .L560: nop .L546: nop .L544: 135 NEWLINES(3) %IF LINES = 0 movl LINES.6060@GOTOFF(%ebx), %eax testl %eax, %eax jne .L561 movl $3, -24(%ebp) .LBB310: .LBB311: subl $12, %esp pushl -24(%ebp) call _imp_newlines@PLT addl $16, %esp jmp .L549 .L561: .LBE311: .LBE310: nop .L549: 136 PRINTIT(' ') subl $12, %esp leal -20(%ebp), %eax pushl $32 movl %eax, %ecx call PRINTIT.6126 addl $16, %esp 137 DO NEWLINE movl %esi, %ecx call DONEWLINE.6119 jmp .L544 .L559: 138 %FINISH 139 %IF FSYM # ' ' %AND OUTDEV # 1 %START movl 72(%esi), %eax cmpl $32, %eax je .L562 call _imp_OUTDEV cmpl $1, %eax je .L563 nop jmp .L551 .L563: nop .L551: 140 SELECT OUTPUT(0) subl $12, %esp pushl $0 call _imp_SELECTOUTPUT addl $16, %esp 141 PRINTPOS = STARTPOS %IF PRINTPOS = 0 movl PRINTPOS.6040@GOTOFF(%ebx), %eax testl %eax, %eax jne .L564 movl STARTPOS.6036@GOTOFF(%ebx), %eax movl %eax, PRINTPOS.6040@GOTOFF(%ebx) jmp .L554 .L564: nop .L554: 142 PRINT LOC %IF CHARS = 0 movl CHARS.6059@GOTOFF(%ebx), %eax testl %eax, %eax jne .L565 movl %esi, %ecx call PRINTLOC.6114 jmp .L556 .L565: nop .L556: 143 PRINTIT(NL) subl $12, %esp leal -20(%ebp), %eax pushl $10 movl %eax, %ecx call PRINTIT.6126 addl $16, %esp .LBB312: .LBB313: call _imp_newline@PLT .LBE313: .LBE312: 144 NEWLINE 145 SELECT OUTPUT(LIS) movl LIS.6024@GOTOFF(%ebx), %eax subl $12, %esp pushl %eax call _imp_SELECTOUTPUT addl $16, %esp jmp .L551 .L562: 146 %FINISH 147 FSYM = ' '; PRINTPOS = 0; CHARS = 0 movl $32, %eax movl %eax, 72(%esi) movl $0, PRINTPOS.6040@GOTOFF(%ebx) movl $0, CHARS.6059@GOTOFF(%ebx) 148 %END nop jmp .L539 .L558: movl -12(%ebp), %eax xorl %gs:20, %eax je .L557 call __stack_chk_fail_local .L557: leal -8(%ebp), %esp popl %ebx popl %esi popl %ebp ret .LFE199: PUTWORD.6149: .LFB201: 149 150 %ROUTINE PUT WORD(%INTEGER V) pushl %ebp movl %esp, %ebp pushl %ebx subl $36, %esp call __x86.get_pc_thunk.bx addl $_GLOBAL_OFFSET_TABLE_, %ebx movl %ecx, -28(%ebp) 151 CHECK = CHECK!!V movl CHECK.6068@GOTOFF(%ebx), %eax xorl 8(%ebp), %eax movl %eax, CHECK.6068@GOTOFF(%ebx) 152 SELECT OUTPUT(BIN) movl BIN.6023@GOTOFF(%ebx), %eax subl $12, %esp pushl %eax call _imp_SELECTOUTPUT addl $16, %esp 153 PRINT CH(V>>12&15+CONTROL) movl 8(%ebp), %eax shrl $12, %eax andl $15, %eax movl %eax, %edx movl CONTROL.6067@GOTOFF(%ebx), %eax addl %edx, %eax movsbl %al, %eax movb %al, -9(%ebp) .LBB314: .LBB315: movsbl -9(%ebp), %eax subl $12, %esp pushl %eax call _imp_printch@PLT addl $16, %esp .LBE315: .LBE314: 154 PRINT CH(V>>8&15+16_40) movl 8(%ebp), %eax shrl $8, %eax andl $15, %eax addl $64, %eax movsbl %al, %eax movb %al, -10(%ebp) .LBB316: .LBB317: movsbl -10(%ebp), %eax subl $12, %esp pushl %eax call _imp_printch@PLT addl $16, %esp .LBE317: .LBE316: 155 PRINT CH(V>>4&15+16_40) movl 8(%ebp), %eax shrl $4, %eax andl $15, %eax addl $64, %eax movsbl %al, %eax movb %al, -11(%ebp) .LBB318: .LBB319: movsbl -11(%ebp), %eax subl $12, %esp pushl %eax call _imp_printch@PLT addl $16, %esp .LBE319: .LBE318: 156 PRINT CH(V&15+16_40) movl 8(%ebp), %eax andl $15, %eax addl $64, %eax movsbl %al, %eax movb %al, -12(%ebp) .LBB320: .LBB321: movsbl -12(%ebp), %eax subl $12, %esp pushl %eax call _imp_printch@PLT addl $16, %esp .LBE321: .LBE320: 157 CONTROL = 16_50 movl $80, CONTROL.6067@GOTOFF(%ebx) 158 SELECT OUTPUT(LIS) movl LIS.6024@GOTOFF(%ebx), %eax subl $12, %esp pushl %eax call _imp_SELECTOUTPUT addl $16, %esp 159 %END nop movl -4(%ebp), %ebx leave ret .LFE201: PLANTVAL.6152: .LFB202: 160 161 %ROUTINE PLANT VAL pushl %ebp movl %esp, %ebp pushl %esi pushl %ebx subl $16, %esp call __x86.get_pc_thunk.si addl $_GLOBAL_OFFSET_TABLE_, %esi movl %ecx, %ebx movl %ecx, -12(%ebp) 162 %IF PASS > 0 %START movl PASS.6061@GOTOFF(%esi), %eax testl %eax, %eax jle .L584 nop jmp .L581 .L589: 163 %IF CHARS = 0 %START movl CHARS.6059@GOTOFF(%esi), %eax testl %eax, %eax jne .L585 nop .L575: 164 %IF PRINTPOS#0 %THEN PRINT LOC %ELSE %START movl PRINTPOS.6040@GOTOFF(%esi), %eax testl %eax, %eax je .L586 movl %ebx, %ecx call PRINTLOC.6114 jmp .L575 .L586: nop .L574: 165 PRINT(' '); PRINT(' '); PRINT(' ') subl $12, %esp pushl $32 movl %ebx, %ecx call PRINT.6101 addl $16, %esp subl $12, %esp pushl $32 movl %ebx, %ecx call PRINT.6101 addl $16, %esp subl $12, %esp pushl $32 movl %ebx, %ecx call PRINT.6101 addl $16, %esp 166 PRINT(' '); PRINT(' '); PRINT(' ') subl $12, %esp pushl $32 movl %ebx, %ecx call PRINT.6101 addl $16, %esp subl $12, %esp pushl $32 movl %ebx, %ecx call PRINT.6101 addl $16, %esp subl $12, %esp pushl $32 movl %ebx, %ecx call PRINT.6101 addl $16, %esp jmp .L575 .L572: .L585: 167 %FINISH 168 %FINISH 169 PRINT(' ') %IF CHARS = 10 movl CHARS.6059@GOTOFF(%esi), %eax cmpl $10, %eax jne .L587 subl $12, %esp pushl $32 movl %ebx, %ecx call PRINT.6101 addl $16, %esp jmp .L577 .L587: nop .L577: 170 PRINT WORD(VAL); PUT WORD(VAL) movl 60(%ebx), %eax subl $12, %esp pushl %eax movl %ebx, %ecx call PRINTWORD.6104 addl $16, %esp movl 60(%ebx), %eax subl $12, %esp pushl %eax movl %ebx, %ecx call PUTWORD.6149 addl $16, %esp 171 PRINT('''') %IF TYPE&RELMASK # 0 movl RELMASK.6031@GOTOFF(%esi), %eax testl %eax, %eax sete %al movzbl %al, %eax movl 56(%ebx), %edx andl %edx, %eax testl %eax, %eax jne .L588 subl $12, %esp pushl $39 movl %ebx, %ecx call PRINT.6101 addl $16, %esp jmp .L579 .L588: nop .L579: 172 PRINT LINE %IF CHARS >= 15 movl CHARS.6059@GOTOFF(%esi), %eax cmpl $14, %eax jle .L589 movl %ebx, %ecx call PRINTLINE.6123 jmp .L581 .L570: .L584: nop .L581: 173 %FINISH 174 LOC = LOC+1 movl 68(%ebx), %eax addl $1, %eax movl %eax, 68(%ebx) 175 %END nop leal -8(%ebp), %esp popl %ebx popl %esi popl %ebp ret .LFE202: PLANT.6162: .LFB203: 176 177 %ROUTINE PLANT(%INTEGER V) pushl %ebp movl %esp, %ebp pushl %ebx subl $36, %esp call __x86.get_pc_thunk.ax addl $_GLOBAL_OFFSET_TABLE_, %eax movl %ecx, %ebx movl %ecx, -28(%ebp) 178 %INTEGER THOLD,VHOLD 179 THOLD = TYPE; VHOLD = VAL movl 56(%ebx), %eax movl %eax, -16(%ebp) movl 60(%ebx), %eax movl %eax, -12(%ebp) 180 TYPE = 0; VAL = V movl $0, %eax movl %eax, 56(%ebx) movl 8(%ebp), %eax movl %eax, 60(%ebx) 181 PLANT VAL movl %ebx, %ecx call PLANTVAL.6152 182 TYPE = THOLD; VAL = THOLD movl -16(%ebp), %eax movl %eax, 56(%ebx) movl -16(%ebp), %eax movl %eax, 60(%ebx) 183 %END nop addl $36, %esp popl %ebx popl %ebp ret .LFE203: NEST.6167: .LFB204: 184 185 %ROUTINE NEST(%INTEGER K) pushl %ebp movl %esp, %ebp subl $20, %esp call __x86.get_pc_thunk.ax addl $_GLOBAL_OFFSET_TABLE_, %eax movl %ecx, -20(%ebp) 186 NP = NP-1; !!%MONITOR 23 %IF NP = BP movl NP.6054@GOTOFF(%eax), %edx subl $1, %edx movl %edx, NP.6054@GOTOFF(%eax) 187 INTEGER(NP) = K movl NP.6054@GOTOFF(%eax), %eax movl %eax, -4(%ebp) .LBB322: .LBB323: movl -4(%ebp), %eax .LBE323: .LBE322: movl 8(%ebp), %edx movl %edx, (%eax) 188 %END nop leave ret .LFE204: SETLAB.6170: .LFB205: 189 190 %ROUTINE SET LAB(%INTEGER DEST) pushl %ebp movl %esp, %ebp pushl %esi pushl %ebx subl $52, %esp call __x86.get_pc_thunk.si addl $_GLOBAL_OFFSET_TABLE_, %esi movl %ecx, %ebx movl %ecx, -60(%ebp) 191 %INTEGER P,Q 192 Q = 0 movl $0, -44(%ebp) .L596: 193 %CYCLE 194 TYPE = INTEGER(NP); P = TYPE&16_3FF+DEFLIM; !DEST SLOT movl NP.6054@GOTOFF(%esi), %eax movl %eax, -36(%ebp) .LBB324: .LBB325: movl -36(%ebp), %eax .LBE325: .LBE324: movl (%eax), %eax movl %eax, 56(%ebx) movl 56(%ebx), %eax andl $1023, %eax movl %eax, %edx movl DEFLIM.6049@GOTOFF(%esi), %eax addl %edx, %eax movl %eax, -48(%ebp) 195 NP = NP+1 movl NP.6054@GOTOFF(%esi), %eax addl $1, %eax movl %eax, NP.6054@GOTOFF(%esi) 196 VAL = INTEGER(NP); !LOC OF JUMP movl NP.6054@GOTOFF(%esi), %eax movl %eax, -40(%ebp) .LBB326: .LBB327: movl -40(%ebp), %eax .LBE327: .LBE326: movl (%eax), %eax movl %eax, 60(%ebx) 197 NP = NP+1 movl NP.6054@GOTOFF(%esi), %eax addl $1, %eax movl %eax, NP.6054@GOTOFF(%esi) 198 ATYPE = -1; CREG = -1 movl $-1, %eax movl %eax, 52(%ebx) movl $-1, %eax movl %eax, 48(%ebx) 199 FLAG = 0; movl $0, %eax movl %eax, 44(%ebx) 200 %IF TYPE&16_800 = 0 %START movl 56(%ebx), %eax andl $1, %eax testl %eax, %eax jne .L634 nop 201 FLAG = 1 %IF DEST-VAL+PASS <= 128 movl 60(%ebx), %eax movl 8(%ebp), %edx subl %eax, %edx movl PASS.6061@GOTOFF(%esi), %eax addl %edx, %eax cmpl $128, %eax jg .L635 movl $1, %eax movl %eax, 44(%ebx) nop .L602: 202 %finish %ELSE %IF TYPE&16_400 # 0 %START jmp .L606 .L635: jmp .L606 .L600: .L634: 203 FLAG = 2 %IF DEST-VAL+PASS+PASS = 1 movl 60(%ebx), %eax movl 8(%ebp), %edx subl %eax, %edx movl PASS.6061@GOTOFF(%esi), %eax addl %eax, %edx movl PASS.6061@GOTOFF(%esi), %eax addl %edx, %eax cmpl $1, %eax jne .L636 movl $2, %eax movl %eax, 44(%ebx) jmp .L606 .L603: .L605: .L636: nop .L606: 204 %FINISH 205 %IF PASS = 0 %START movl PASS.6061@GOTOFF(%esi), %eax testl %eax, %eax jne .L637 nop .L608: 206 DEST = DEST-FLAG; INTEGER(P) = DEST movl 44(%ebx), %eax subl %eax, 8(%ebp) movl -48(%ebp), %eax movl %eax, -32(%ebp) .LBB328: .LBB329: movl -32(%ebp), %eax .LBE329: .LBE328: movl 8(%ebp), %edx movl %edx, (%eax) 207 %IF FLAG # 0 %START movl 44(%ebx), %eax testl %eax, %eax je .L638 nop jmp .L620 .L639: 208 LOC = LOC-FLAG movl 68(%ebx), %edx movl 44(%ebx), %eax subl %eax, %edx movl %edx, %eax movl %eax, 68(%ebx) .L612: 209 %WHILE P # ALMAX %CYCLE movl ALMAX.6050@GOTOFF(%esi), %eax cmpl %eax, -48(%ebp) je .L639 nop .L616: 210 P = P+1; INTEGER(P) = INTEGER(P)-FLAG addl $1, -48(%ebp) movl -48(%ebp), %eax movl %eax, -24(%ebp) .LBB330: .LBB331: movl -24(%ebp), %eax .LBE331: .LBE330: movl (%eax), %ecx movl -48(%ebp), %eax movl %eax, -28(%ebp) .LBB332: .LBB333: movl -28(%ebp), %eax .LBE333: .LBE332: movl 44(%ebx), %edx subl %edx, %ecx movl %ecx, %edx movl %edx, (%eax) 211 %REPEAT jmp .L612 .L611: .L638: 212 %FINISH 213 %finish %ELSE %START jmp .L620 .L637: 214 FAULT('P') %IF INTEGER(P) # DEST movl -48(%ebp), %eax movl %eax, -20(%ebp) .LBB334: .LBB335: movl -20(%ebp), %eax .LBE335: .LBE334: movl (%eax), %eax cmpl %eax, 8(%ebp) je .L640 pushl $80 movl %ebx, %ecx call FAULT.6097 addl $4, %esp jmp .L620 .L617: .L640: nop .L620: 215 %FINISH 216 %RETURN %IF INTEGER(NP)&16_1000 = 0 movl NP.6054@GOTOFF(%esi), %eax movl %eax, -16(%ebp) .LBB336: .LBB337: movl -16(%ebp), %eax .LBE337: .LBE336: movl (%eax), %eax andl $1, %eax testl %eax, %eax je .L641 nop .L623: nop 217 %IF INTEGER(NP)&16_2000 # 0 %AND Q = 0 %START; !OR movl NP.6054@GOTOFF(%esi), %eax movl %eax, -12(%ebp) cmpl $0, -44(%ebp) jne .L642 nop .L627: 218 DEST = VAL+1 movl 60(%ebx), %eax addl $1, %eax movl %eax, 8(%ebp) 219 DEST = VAL+2-FLAG %UNLESS TYPE&16_C00 = 16_C00 movl 56(%ebx), %eax andl $1, %eax testl %eax, %eax jne .L643 movl 60(%ebx), %eax leal 2(%eax), %edx movl 44(%ebx), %eax subl %eax, %edx movl %edx, %eax movl %eax, 8(%ebp) jmp .L629 .L643: nop .L629: 220 Q = 1 movl $1, -44(%ebp) jmp .L596 .L642: 221 %FINISH 222 %REPEAT jmp .L596 .L641: 223 %END leal -8(%ebp), %esp popl %ebx popl %esi popl %ebp ret .LFE205: COMBINE.6248: .LFB207: 224 225 %ROUTINE ASSEMBLE pushl %ebp movl %esp, %ebp pushl %edi pushl %esi pushl %ebx subl $1164, %esp call __x86.get_pc_thunk.bx addl $_GLOBAL_OFFSET_TABLE_, %ebx movl %ecx, %edi movl %edi, -1168(%ebp) movl %ecx, -1164(%ebp) movl %gs:20, %eax movl %eax, -28(%ebp) xorl %eax, %eax leal 8(%ebp), %eax movl %eax, -1056(%ebp) movl %edi, -1068(%ebp) 226 ! 7502 OP-CODES 227 %OWNINTEGER ADD=16_F400, SUB=16_F500, AND=16_F100 228 %OWNINTEGER OR=16_F000, XOR=16_F700, COMP=16_F200 229 %OWNINTEGER COPY=16_F300 230 %OWNINTEGER LOADI=16_6000, SKIDI=16_7000, ADDI=16_8000 231 %OWNINTEGER ANDI=16_9000 232 %OWNINTEGER BOC=16_5800, BOCR=16_5000, JUM=16_4000 233 %OWNINTEGER SKIP=16_4002, LOADC=16_20F2, ROT=16_3000 234 %OWNINTEGER LOAD=16_2000, STORE=16_2008 235 236 %INTEGER Q,NQ,OP,K,LITVAL,TYPE1,VAL1,FREE 237 %SWITCH ASS(-30:-1) 238 239 %ROUTINE COMBINE pushl %ebp movl %esp, %ebp pushl %ebx subl $20, %esp call __x86.get_pc_thunk.ax addl $_GLOBAL_OFFSET_TABLE_, %eax movl %ecx, %eax movl %ecx, -24(%ebp) 240 %INTEGER I,J,K 241 I = 11; K = 2048 movl $11, -16(%ebp) movl $2048, -8(%ebp) .L645: 242 I=I-1 %AND K=K>>1 %WHILE K&TYPE1 = 0 %AND I # 0 movl 12(%eax), %edx testl %edx, %edx setne %dl movzbl %dl, %edx andl -8(%ebp), %edx testl %edx, %edx jne .L654 cmpl $0, -16(%ebp) je .L655 subl $1, -16(%ebp) movl -8(%ebp), %edx shrl %edx movl %edx, -8(%ebp) jmp .L645 .L654: nop jmp .L647 .L655: nop .L647: 243 J = K movl -8(%ebp), %edx movl %edx, -12(%ebp) .L649: 244 I =I-1 %AND J=J>>1 %WHILE J&VAL1 = 0 %AND I # 0 movl 8(%eax), %edx testl %edx, %edx setne %dl movzbl %dl, %edx andl -12(%ebp), %edx testl %edx, %edx jne .L656 cmpl $0, -16(%ebp) je .L657 subl $1, -16(%ebp) movl -12(%ebp), %edx shrl %edx movl %edx, -12(%ebp) jmp .L649 .L656: nop jmp .L651 .L657: nop .L651: 245 VAL = VAL<ASS(%d) out of bounds at %s line %d" .align 4 .LC4: .string "switch jump to undefined label ASS(%d): at %s line %d" ASSEMBLE.6190: .LFB206: 249 250 %ROUTINE PLANT JUMP pushl %ebp movl %esp, %ebp pushl %esi pushl %ebx subl $32, %esp call __x86.get_pc_thunk.si addl $_GLOBAL_OFFSET_TABLE_, %esi movl %ecx, %ebx movl %ecx, -28(%ebp) 251 %INTEGER I,V 252 I = VAL-LOC movl 4(%ebx), %eax movl 60(%eax), %edx movl 4(%ebx), %eax movl 68(%eax), %eax subl %eax, %edx movl %edx, %eax movl %eax, -20(%ebp) 253 %IF COND&6 = 0 %START movl 4(%ebx), %eax movl 40(%eax), %eax andl $1, %eax testl %eax, %eax jne .L959 nop .L937: 254 %IF COND = 8 %START movl 4(%ebx), %eax movl 40(%eax), %eax cmpl $8, %eax jne .L960 nop .L939: 255 %RETURN %IF I=1 cmpl $1, -20(%ebp) je .L961 nop .L941: nop .L935: 256 PLANT(SKIP) movl SKIP.6206@GOTOFF(%esi), %edx movl 4(%ebx), %eax subl $12, %esp pushl %edx movl %eax, %ecx call PLANT.6162 addl $16, %esp 257 %FINISH 258 %finish %ELSE %START jmp .L943 .L960: jmp .L943 .L959: 259 FAULT('J') %AND I=0 %IF FLAG # 0 %AND |I| > 127 movl 4(%ebx), %eax movl 44(%eax), %eax testl %eax, %eax je .L962 movl -20(%ebp), %eax movl %eax, -16(%ebp) .LBB365: .LBB366: movl -16(%ebp), %eax cltd movl %edx, %eax xorl -16(%ebp), %eax subl %edx, %eax .LBE366: .LBE365: cmpl $127, %eax jle .L963 movl 4(%ebx), %eax subl $12, %esp pushl $74 movl %eax, %ecx call FAULT.6097 addl $16, %esp movl $0, -20(%ebp) jmp .L945 .L962: nop jmp .L945 .L963: nop .L945: movl -20(%ebp), %eax movl %eax, -12(%ebp) .LBB367: .LBB368: movl -12(%ebp), %eax cltd movl %edx, %eax xorl -12(%ebp), %eax subl %edx, %eax .LBE368: .LBE367: 260 %IF |I| <= 127 %START cmpl $127, %eax jg .L964 nop jmp .L955 .L967: 261 %IF TYPE&UMASK = 0 %OR FLAG # 0 %START movl UMASK.6028@GOTOFF(%esi), %eax testl %eax, %eax sete %al movzbl %al, %edx movl 4(%ebx), %eax movl 56(%eax), %eax andl %edx, %eax testl %eax, %eax jne .L965 movl 4(%ebx), %eax movl 44(%eax), %eax testl %eax, %eax je .L966 jmp .L952 .L965: nop .L952: nop .L953: 262 PLANT(BOC+(COND!!1)<<8+I&255) movl 4(%ebx), %eax movl 40(%eax), %eax sall $8, %eax xorb $1, %ah movl %eax, %edx movl BOC.6203@GOTOFF(%esi), %eax addl %eax, %edx movl -20(%ebp), %eax movzbl %al, %eax addl %eax, %edx movl 4(%ebx), %eax subl $12, %esp pushl %edx movl %eax, %ecx call PLANT.6162 addl $16, %esp 263 %RETURN jmp .L935 .L966: 264 %FINISH 265 FAULT('S') %IF LIST >= 0 %AND LIST&8 # 0 movl LIST.6062@GOTOFF(%esi), %eax testl %eax, %eax js .L967 movl 4(%ebx), %eax subl $12, %esp pushl $83 movl %eax, %ecx call FAULT.6097 addl $16, %esp jmp .L955 .L950: .L964: nop .L955: 266 %FINISH 267 PLANT(BOC+COND<<8+2) movl 4(%ebx), %eax movl 40(%eax), %eax sall $8, %eax movl %eax, %edx movl BOC.6203@GOTOFF(%esi), %eax addl %edx, %eax leal 2(%eax), %edx movl 4(%ebx), %eax subl $12, %esp pushl %edx movl %eax, %ecx call PLANT.6162 addl $16, %esp .L943: 268 %FINISH 269 PLANT(JUM+(VAL-LOC)&4095) movl 4(%ebx), %eax movl 60(%eax), %edx movl 4(%ebx), %eax movl 68(%eax), %eax subl %eax, %edx movl %edx, %eax andl $4095, %eax movl %eax, %edx movl JUM.6205@GOTOFF(%esi), %eax addl %eax, %edx movl 4(%ebx), %eax subl $12, %esp pushl %edx movl %eax, %ecx call PLANT.6162 addl $16, %esp 270 %END nop jmp .L935 .L961: leal -8(%ebp), %esp popl %ebx popl %esi popl %ebp ret .LFE208: SETJUMP.6272: .LFB209: ?V unused 271 272 %ROUTINE SET JUMP(%INTEGER CASE) pushl %ebp movl %esp, %ebp pushl %esi pushl %ebx subl $32, %esp call __x86.get_pc_thunk.si addl $_GLOBAL_OFFSET_TABLE_, %esi movl %ecx, %ebx movl %ecx, -28(%ebp) 273 %INTEGER THOLD,VHOLD,FHOLD 274 CASE = CASE+16_0800 %IF COND&6 = 0 movl 4(%ebx), %eax movl 40(%eax), %eax andl $1, %eax testl %eax, %eax jne .L977 addl $2048, 8(%ebp) jmp .L976 .L970: .L977: nop .L976: 275 CASE = CASE+16_0400 %IF COND&1 # 0 addl $1024, 8(%ebp) .L971: 276 ALMAX = ALMAX+1; !!%MONITOR 22 %IF ALMAX = LABMIN movl ALMAX.6050@GOTOFF(%esi), %eax addl $1, %eax movl %eax, ALMAX.6050@GOTOFF(%esi) 277 NEST(LOC); NEST(ALMAX-DEFLIM+CASE) movl 4(%ebx), %eax movl 68(%eax), %edx movl 4(%ebx), %eax pushl %edx movl %eax, %ecx call NEST.6167 addl $4, %esp movl ALMAX.6050@GOTOFF(%esi), %edx movl DEFLIM.6049@GOTOFF(%esi), %eax subl %eax, %edx movl 8(%ebp), %eax addl %eax, %edx movl 4(%ebx), %eax pushl %edx movl %eax, %ecx call NEST.6167 addl $4, %esp 278 THOLD = TYPE; VHOLD = VAL; FHOLD = FLAG movl 4(%ebx), %eax movl 56(%eax), %eax movl %eax, -24(%ebp) movl 4(%ebx), %eax movl 60(%eax), %eax movl %eax, -20(%ebp) movl 4(%ebx), %eax movl 44(%eax), %eax movl %eax, -16(%ebp) 279 TYPE = LOCTYPE; VAL = INTEGER(ALMAX); FLAG = 0 movl 4(%ebx), %edx movl 4(%ebx), %eax movl 64(%edx), %edx movl %edx, 56(%eax) movl ALMAX.6050@GOTOFF(%esi), %eax movl %eax, -12(%ebp) .LBB369: .LBB370: movl -12(%ebp), %edx .LBE370: .LBE369: movl 4(%ebx), %eax movl (%edx), %edx movl %edx, 60(%eax) movl 4(%ebx), %eax movl $0, %edx movl %edx, 44(%eax) 280 TYPE = TYPE+UMASK %IF PASS = 0 movl PASS.6061@GOTOFF(%esi), %eax testl %eax, %eax jne .L978 movl UMASK.6028@GOTOFF(%esi), %edx movl 4(%ebx), %eax movl 56(%eax), %ecx movl 4(%ebx), %eax addl %ecx, %edx movl %edx, 56(%eax) jmp .L974 .L978: nop .L974: 281 COND = COND!!1 movl 4(%ebx), %eax movl 40(%eax), %edx movl 4(%ebx), %eax xorl $1, %edx movl %edx, 40(%eax) 282 PLANT JUMP; COND = 0 movl %ebx, %ecx call PLANTJUMP.6258 movl 4(%ebx), %eax movl $0, %edx movl %edx, 40(%eax) 283 TYPE = THOLD; VAL = VHOLD; FLAG = FHOLD movl 4(%ebx), %eax movl -24(%ebp), %edx movl %edx, 56(%eax) movl 4(%ebx), %eax movl -20(%ebp), %edx movl %edx, 60(%eax) movl 4(%ebx), %eax movl -16(%ebp), %edx movl %edx, 44(%eax) 284 %END nop leal -8(%ebp), %esp popl %ebx popl %esi popl %ebp ret .LFE209: PLANTINST.6281: .LFB210: 285 286 %ROUTINE PLANT INST(%INTEGER CODE) pushl %ebp movl %esp, %ebp pushl %ebx subl $20, %esp call __x86.get_pc_thunk.ax addl $_GLOBAL_OFFSET_TABLE_, %eax movl %ecx, %ebx movl %ecx, -12(%ebp) 287 SET JUMP(16_1000) %IF COND # 0 movl 4(%ebx), %eax movl 40(%eax), %eax testl %eax, %eax je .L983 subl $12, %esp pushl $4096 movl %ebx, %ecx call SETJUMP.6272 addl $16, %esp jmp .L981 .L983: nop .L981: 288 PLANT(CODE) movl 4(%ebx), %eax subl $12, %esp pushl 8(%ebp) movl %eax, %ecx call PLANT.6162 addl $16, %esp 289 %END nop movl -4(%ebp), %ebx leave ret .LFE210: RELEASE.6285: .LFB211: 290 291 %ROUTINE RELEASE pushl %ebp movl %esp, %ebp pushl %ebx subl $20, %esp call __x86.get_pc_thunk.dx addl $_GLOBAL_OFFSET_TABLE_, %edx movl %ecx, %eax movl %ecx, -24(%ebp) 292 %INTEGER I 293 %RETURN %IF TYPE®XMASK = 0 movl REGXMASK.6033@GOTOFF(%edx), %ecx testl %ecx, %ecx setne %cl movzbl %cl, %ebx movl 4(%eax), %ecx movl 56(%ecx), %ecx andl %ebx, %ecx testl %ecx, %ecx je .L996 nop .L986: nop .L984: 294 I = TYPE&15; I = VAL %IF TYPE = REG movl 4(%eax), %ecx movl 56(%ecx), %ecx andl $15, %ecx movl %ecx, -8(%ebp) movl REG.6029@GOTOFF(%edx), %ebx movl 4(%eax), %ecx movl 56(%ecx), %ecx cmpl %ebx, %ecx jne .L997 movl 4(%eax), %ecx movl 60(%ecx), %ecx movl %ecx, -8(%ebp) jmp .L989 .L997: nop .L989: 295 %IF I = DREG %START movl 4(%eax), %ecx movl 36(%ecx), %ecx cmpl %ecx, -8(%ebp) jne .L998 nop .L991: 296 DUSE = DUSE-1 movl 4(%eax), %edx movl 32(%edx), %edx movl 4(%eax), %eax subl $1, %edx movl %edx, 32(%eax) 297 %finish %ELSE %START jmp .L994 .L998: 298 I = 1<= 0 %AND DUSE = 0 %START movl 4(%ebx), %eax movl 36(%eax), %eax testl %eax, %eax js .L1013 movl 4(%ebx), %eax movl 32(%eax), %eax testl %eax, %eax jne .L1014 nop jmp .L1002 .L1014: nop .L1002: 306 DUSE = 1 movl 4(%ebx), %eax movl $1, %edx movl %edx, 32(%eax) 307 %RESULT = DREG movl 4(%ebx), %eax movl 36(%eax), %eax jmp .L1004 .L1013: 308 %FINISH 309 J = 1 movl $1, -8(%ebp) 310 %CYCLE I = 0,1,15 movl $-1, -12(%ebp) .L1005: cmpl $15, -12(%ebp) je .L1015 addl $1, -12(%ebp) nop .L1007: 311 ->OK %IF FREE&J # 0 %AND I # DREG cmpl $0, -8(%ebp) sete %al movzbl %al, %eax movl (%ebx), %edx andl %edx, %eax testl %eax, %eax jne .L1016 movl 4(%ebx), %eax movl 36(%eax), %eax cmpl %eax, -12(%ebp) jne .L1017 jmp .L1009 .L1016: nop .L1009: nop .L1011: 312 J = J<<1 sall -8(%ebp) 313 %REPEAT jmp .L1005 .L1015: 314 FAULT('R') movl 4(%ebx), %eax pushl $82 movl %eax, %ecx call FAULT.6097 addl $4, %esp jmp .L1011 .L1017: 315 OK: FREE = FREE-J movl (%ebx), %eax subl -8(%ebp), %eax movl %eax, (%ebx) 316 %RESULT = I movl -12(%ebp), %eax .L1004: 317 %END movl -4(%ebp), %ebx leave ret .LFE212: LOADCONST.6304: .LFB213: 318 319 %ROUTINE LOAD CONST(%INTEGER R) pushl %ebp movl %esp, %ebp pushl %esi pushl %ebx subl $32, %esp call __x86.get_pc_thunk.si addl $_GLOBAL_OFFSET_TABLE_, %esi movl %ecx, %ebx movl %ecx, -28(%ebp) 320 %INTEGER I,J 321 I = LOADI+R<<8 movl 8(%ebp), %eax sall $8, %eax movl %eax, %edx movl LOADI.6199@GOTOFF(%esi), %eax addl %edx, %eax movl %eax, -16(%ebp) 322 %IF VAL&(\255) = 0 %AND TYPE&UMASK = 0 %START movl 4(%ebx), %eax movl 60(%eax), %eax andl $1, %eax testl %eax, %eax jne .L1029 movl UMASK.6028@GOTOFF(%esi), %eax testl %eax, %eax setne %al movzbl %al, %edx movl 4(%ebx), %eax movl 56(%eax), %eax andl %edx, %eax testl %eax, %eax jne .L1030 nop jmp .L1020 .L1030: nop .L1020: 323 PLANT INST(I+VAL) movl 4(%ebx), %eax movl 60(%eax), %edx movl -16(%ebp), %eax addl %edx, %eax subl $12, %esp pushl %eax movl %ebx, %ecx call PLANTINST.6281 addl $16, %esp 324 %finish %ELSE %IF \VAL&(\255) = 0 %AND TYPE&UMASK = 0 %START jmp .L1027 .L1029: movl 4(%ebx), %eax movl 60(%eax), %eax andl $1, %eax testl %eax, %eax je .L1031 movl UMASK.6028@GOTOFF(%esi), %eax testl %eax, %eax setne %al movzbl %al, %edx movl 4(%ebx), %eax movl 56(%eax), %eax andl %edx, %eax testl %eax, %eax jne .L1032 nop jmp .L1024 .L1032: nop .L1024: 325 PLANT INST(I+(\VAL)) movl 4(%ebx), %eax movl 60(%eax), %eax notl %eax movl %eax, %edx movl -16(%ebp), %eax addl %edx, %eax subl $12, %esp pushl %eax movl %ebx, %ecx call PLANTINST.6281 addl $16, %esp 326 PLANT INST(COMP+R<<4+R) movl 8(%ebp), %eax sall $4, %eax movl %eax, %edx movl COMP.6197@GOTOFF(%esi), %eax addl %eax, %edx movl 8(%ebp), %eax addl %edx, %eax subl $12, %esp pushl %eax movl %ebx, %ecx call PLANTINST.6281 addl $16, %esp 327 CREG = R movl 4(%ebx), %eax movl 8(%ebp), %edx movl %edx, 48(%eax) 328 %finish %ELSE %START jmp .L1027 .L1031: 329 ! PLANT INST(LOADC+R<<8) 330 ! PLANT INST(SKIP) 331 ! PLANT VAL 332 J = VAL>>8&255 movl 4(%ebx), %eax movl 60(%eax), %eax shrl $8, %eax andl $255, %eax movl %eax, -12(%ebp) 333 J = J+1 %IF VAL&128 # 0 addl $1, -12(%ebp) .L1026: 334 PLANT INST(I+J) movl -16(%ebp), %edx movl -12(%ebp), %eax addl %edx, %eax subl $12, %esp pushl %eax movl %ebx, %ecx call PLANTINST.6281 addl $16, %esp 335 PLANT INST(ROT+R<<8+7<<4+R) movl 8(%ebp), %eax sall $8, %eax movl %eax, %edx movl ROT.6208@GOTOFF(%esi), %eax addl %edx, %eax leal 112(%eax), %edx movl 8(%ebp), %eax addl %edx, %eax subl $12, %esp pushl %eax movl %ebx, %ecx call PLANTINST.6281 addl $16, %esp 336 PLANT INST(ADDI+R<<8+VAL&255) %IF VAL&255 # 0 movl 8(%ebp), %eax sall $8, %eax movl %eax, %edx movl ADDI.6201@GOTOFF(%esi), %eax addl %eax, %edx movl 4(%ebx), %eax movl 60(%eax), %eax movzbl %al, %eax addl %edx, %eax subl $12, %esp pushl %eax movl %ebx, %ecx call PLANTINST.6281 addl $16, %esp .L1022: .L1027: 337 %FINISH 338 %END nop leal -8(%ebp), %esp popl %ebx popl %esi popl %ebp ret .LFE213: LOADREG.6314: .LFB214: 339 340 %ROUTINE LOAD REG(%INTEGER R) pushl %ebp movl %esp, %ebp pushl %esi pushl %ebx subl $32, %esp call __x86.get_pc_thunk.si addl $_GLOBAL_OFFSET_TABLE_, %esi movl %ecx, %ebx movl %ecx, -28(%ebp) 341 %INTEGER OP 342 %IF ATYPE = TYPE %AND AVAL = VAL %START movl 4(%ebx), %eax movl 52(%eax), %edx movl 4(%ebx), %eax movl 56(%eax), %eax cmpl %eax, %edx jne .L1085 movl 4(%ebx), %eax movl 28(%eax), %edx movl 4(%ebx), %eax movl 60(%eax), %eax cmpl %eax, %edx jne .L1086 nop jmp .L1039 .L1086: nop .L1039: 343 TYPE = REG; VAL = ACC movl 4(%ebx), %eax movl REG.6029@GOTOFF(%esi), %edx movl %edx, 56(%eax) movl 4(%ebx), %edx movl 4(%ebx), %eax movl 24(%edx), %edx movl %edx, 60(%eax) 344 %RETURN %IF R = ACC movl 4(%ebx), %eax movl 24(%eax), %eax cmpl %eax, 8(%ebp) je .L1087 jmp .L1039 .L1035: .L1085: nop .L1033: 345 %FINISH 346 ATYPE = TYPE %AND AVAL = VAL %IF R = ACC movl 4(%ebx), %eax movl 24(%eax), %eax cmpl %eax, 8(%ebp) jne .L1088 movl 4(%ebx), %edx movl 4(%ebx), %eax movl 56(%edx), %edx movl %edx, 52(%eax) movl 4(%ebx), %edx movl 4(%ebx), %eax movl 60(%edx), %edx movl %edx, 28(%eax) jmp .L1041 .L1088: nop .L1041: 347 ATYPE = -1 %IF (ATYPE=REG %AND AVAL=R) movl REG.6029@GOTOFF(%esi), %edx movl 4(%ebx), %eax movl 52(%eax), %eax cmpl %edx, %eax jne .L1089 movl 4(%ebx), %eax movl 28(%eax), %eax cmpl 8(%ebp), %eax jne .L1090 movl 4(%ebx), %eax movl $-1, %edx movl %edx, 52(%eax) jmp .L1043 .L1089: nop jmp .L1043 .L1090: nop .L1043: 348 ATYPE = -1 %IF ATYPE&XMASK # 0 %AND ATYPE&15 = R movl XMASK.6032@GOTOFF(%esi), %eax testl %eax, %eax sete %al movzbl %al, %edx movl 4(%ebx), %eax movl 52(%eax), %eax andl %edx, %eax testl %eax, %eax jne .L1091 cmpl $15, 8(%ebp) setne %al movzbl %al, %edx movl 4(%ebx), %eax movl 52(%eax), %eax andl %edx, %eax testl %eax, %eax jne .L1092 movl 4(%ebx), %eax movl $-1, %edx movl %edx, 52(%eax) jmp .L1046 .L1091: nop jmp .L1046 .L1092: nop .L1046: 349 %IF TYPE = REG %START movl REG.6029@GOTOFF(%esi), %edx movl 4(%ebx), %eax movl 56(%eax), %eax cmpl %edx, %eax jne .L1093 nop .L1049: 350 PLANT INST(COPY+R<<4+VAL) movl 8(%ebp), %eax sall $4, %eax movl %eax, %edx movl COPY.6198@GOTOFF(%esi), %eax addl %eax, %edx movl 4(%ebx), %eax movl 60(%eax), %eax addl %edx, %eax subl $12, %esp pushl %eax movl %ebx, %ecx call PLANTINST.6281 addl $16, %esp 351 CREG = R movl 4(%ebx), %eax movl 8(%ebp), %edx movl %edx, 48(%eax) 352 %finish %ELSE %IF TYPE&XMASK = 0 %START jmp .L1075 .L1093: movl XMASK.6032@GOTOFF(%esi), %eax testl %eax, %eax setne %al movzbl %al, %edx movl 4(%ebx), %eax movl 56(%eax), %eax andl %edx, %eax testl %eax, %eax jne .L1094 nop .L1052: 353 LOAD CONST(R) subl $12, %esp pushl 8(%ebp) movl %ebx, %ecx call LOADCONST.6304 addl $16, %esp 354 PLANT INST(LOAD+R<<8+R<<4) %IF TYPE&MEMMASK # 0 movl MEMMASK.6030@GOTOFF(%esi), %eax testl %eax, %eax sete %al movzbl %al, %edx movl 4(%ebx), %eax movl 56(%eax), %eax andl %edx, %eax testl %eax, %eax jne .L1095 movl 8(%ebp), %eax sall $8, %eax movl %eax, %edx movl LOAD.6209@GOTOFF(%esi), %eax addl %eax, %edx movl 8(%ebp), %eax sall $4, %eax addl %edx, %eax subl $12, %esp pushl %eax movl %ebx, %ecx call PLANTINST.6281 addl $16, %esp nop .L1054: 355 %finish %ELSE %START jmp .L1075 .L1095: jmp .L1075 .L1094: 356 %IF VAL&(\3) # 0 %OR TYPE&MEMMASK = 0 %START movl 4(%ebx), %eax movl 60(%eax), %eax andl $1, %eax testl %eax, %eax jne .L1096 movl MEMMASK.6030@GOTOFF(%esi), %eax testl %eax, %eax setne %al movzbl %al, %edx movl 4(%ebx), %eax movl 56(%eax), %eax andl %edx, %eax testl %eax, %eax jne .L1097 jmp .L1056 .L1096: nop .L1056: nop .L1057: 357 %IF TYPE&15 # R %START cmpl $15, 8(%ebp) sete %al movzbl %al, %edx movl 4(%ebx), %eax movl 56(%eax), %eax andl %edx, %eax testl %eax, %eax jne .L1098 nop .L1059: 358 %IF |VAL| <= 127 %START movl 4(%ebx), %eax movl 60(%eax), %eax movl %eax, -16(%ebp) .LBB371: .LBB372: movl -16(%ebp), %eax cltd movl %edx, %eax xorl -16(%ebp), %eax subl %edx, %eax .LBE372: .LBE371: cmpl $127, %eax jg .L1099 nop .L1062: 359 PLANT INST(COPY+R<<4+TYPE&15) movl 8(%ebp), %eax sall $4, %eax movl %eax, %edx movl COPY.6198@GOTOFF(%esi), %eax addl %eax, %edx movl 4(%ebx), %eax movl 56(%eax), %eax andl $15, %eax addl %edx, %eax subl $12, %esp pushl %eax movl %ebx, %ecx call PLANTINST.6281 addl $16, %esp 360 PLANT INST(ADDI+R<<8+VAL&255) %IF VAL # 0 movl 4(%ebx), %eax movl 60(%eax), %eax testl %eax, %eax je .L1100 movl 8(%ebp), %eax sall $8, %eax movl %eax, %edx movl ADDI.6201@GOTOFF(%esi), %eax addl %eax, %edx movl 4(%ebx), %eax movl 60(%eax), %eax movzbl %al, %eax addl %edx, %eax subl $12, %esp pushl %eax movl %ebx, %ecx call PLANTINST.6281 addl $16, %esp nop .L1064: 361 %finish %ELSE %START jmp .L1065 .L1100: jmp .L1065 .L1099: 362 LOAD CONST(R) subl $12, %esp pushl 8(%ebp) movl %ebx, %ecx call LOADCONST.6304 addl $16, %esp 363 PLANT INST(ADD+R<<4+TYPE&15) movl 8(%ebp), %eax sall $4, %eax movl %eax, %edx movl ADD.6192@GOTOFF(%esi), %eax addl %eax, %edx movl 4(%ebx), %eax movl 56(%eax), %eax andl $15, %eax addl %edx, %eax subl $12, %esp pushl %eax movl %ebx, %ecx call PLANTINST.6281 addl $16, %esp .L1065: 364 %FINISH 365 CREG = R movl 4(%ebx), %eax movl 8(%ebp), %edx movl %edx, 48(%eax) 366 %finish %ELSE %START jmp .L1072 .L1098: 367 %IF |VAL| <= 127 %START movl 4(%ebx), %eax movl 60(%eax), %eax movl %eax, -12(%ebp) .LBB373: .LBB374: movl -12(%ebp), %eax cltd movl %edx, %eax xorl -12(%ebp), %eax subl %edx, %eax .LBE374: .LBE373: cmpl $127, %eax jg .L1101 nop .L1069: 368 %IF VAL # 0 %START movl 4(%ebx), %eax movl 60(%eax), %eax testl %eax, %eax je .L1102 nop .L1071: 369 PLANT INST(ADDI+R<<8+VAL&255) movl 8(%ebp), %eax sall $8, %eax movl %eax, %edx movl ADDI.6201@GOTOFF(%esi), %eax addl %eax, %edx movl 4(%ebx), %eax movl 60(%eax), %eax movzbl %al, %eax addl %edx, %eax subl $12, %esp pushl %eax movl %ebx, %ecx call PLANTINST.6281 addl $16, %esp 370 CREG = R movl 4(%ebx), %eax movl 8(%ebp), %edx movl %edx, 48(%eax) 371 %FINISH 372 %finish %ELSE %START jmp .L1072 .L1102: jmp .L1072 .L1101: 373 OP = TREG movl %ebx, %ecx call TREG.6294 movl %eax, -20(%ebp) 374 LOAD CONST(OP) subl $12, %esp pushl -20(%ebp) movl %ebx, %ecx call LOADCONST.6304 addl $16, %esp 375 TYPE = REG; VAL = OP movl 4(%ebx), %eax movl REG.6029@GOTOFF(%esi), %edx movl %edx, 56(%eax) movl 4(%ebx), %eax movl -20(%ebp), %edx movl %edx, 60(%eax) 376 RELEASE movl %ebx, %ecx call RELEASE.6285 377 PLANT INST(ADD+R<<4+OP) movl 8(%ebp), %eax sall $4, %eax movl %eax, %edx movl ADD.6192@GOTOFF(%esi), %eax addl %eax, %edx movl -20(%ebp), %eax addl %edx, %eax subl $12, %esp pushl %eax movl %ebx, %ecx call PLANTINST.6281 addl $16, %esp 378 CREG = R movl 4(%ebx), %eax movl 8(%ebp), %edx movl %edx, 48(%eax) .L1066: .L1072: 379 %FINISH 380 %FINISH 381 TYPE = TYPE&MEMMASK+XMASK+R; VAL = 0 movl MEMMASK.6030@GOTOFF(%esi), %edx movl 4(%ebx), %eax movl 56(%eax), %eax andl %eax, %edx movl XMASK.6032@GOTOFF(%esi), %eax leal (%edx,%eax), %ecx movl 4(%ebx), %eax movl 8(%ebp), %edx addl %ecx, %edx movl %edx, 56(%eax) movl 4(%ebx), %eax movl $0, %edx movl %edx, 60(%eax) jmp .L1057 .L1097: 382 %FINISH 383 %IF TYPE&MEMMASK # 0 %START movl MEMMASK.6030@GOTOFF(%esi), %eax testl %eax, %eax sete %al movzbl %al, %edx movl 4(%ebx), %eax movl 56(%eax), %eax andl %edx, %eax testl %eax, %eax jne .L1103 nop .L1074: 384 PLANT INST(LOAD+R<<8+(TYPE&15)<<4+VAL) movl 8(%ebp), %eax sall $8, %eax movl %eax, %edx movl LOAD.6209@GOTOFF(%esi), %eax addl %eax, %edx movl 4(%ebx), %eax movl 56(%eax), %eax sall $4, %eax movzbl %al, %eax addl %eax, %edx movl 4(%ebx), %eax movl 60(%eax), %eax addl %edx, %eax subl $12, %esp pushl %eax movl %ebx, %ecx call PLANTINST.6281 addl $16, %esp 385 CREG = -1 movl 4(%ebx), %eax movl $-1, %edx movl %edx, 48(%eax) 386 ! %FINISH -- commenting out this line allows the program to compile 387 %finish %ELSE %START jmp .L1075 .L1103: 388 LOAD CONST(R) subl $12, %esp pushl 8(%ebp) movl %ebx, %ecx call LOADCONST.6304 addl $16, %esp 389 PLANT INST(LOAD+R<<8+R<<4) movl 8(%ebp), %eax sall $8, %eax movl %eax, %edx movl LOAD.6209@GOTOFF(%esi), %eax addl %eax, %edx movl 8(%ebp), %eax sall $4, %eax addl %edx, %eax subl $12, %esp pushl %eax movl %ebx, %ecx call PLANTINST.6281 addl $16, %esp .L1050: .L1075: 390 %FINISH 391 %FINISH 392 TYPE = REG; VAL = R movl 4(%ebx), %eax movl REG.6029@GOTOFF(%esi), %edx movl %edx, 56(%eax) movl 4(%ebx), %eax movl 8(%ebp), %edx movl %edx, 60(%eax) 393 %END nop jmp .L1033 .L1087: leal -8(%ebp), %esp popl %ebx popl %esi popl %ebp ret .LFE214: LOADTEMP.6339: .LFB215: 394 395 %ROUTINE LOAD TEMP pushl %ebp movl %esp, %ebp pushl %ebx subl $20, %esp call __x86.get_pc_thunk.ax addl $_GLOBAL_OFFSET_TABLE_, %eax movl %ecx, %ebx movl %ecx, -12(%ebp) 396 RELEASE movl %ebx, %ecx call RELEASE.6285 397 LOAD REG(TREG) movl %ebx, %ecx call TREG.6294 subl $12, %esp pushl %eax movl %ebx, %ecx call LOADREG.6314 addl $16, %esp 398 %END nop movl -4(%ebp), %ebx leave ret .LFE215: SWOP.6342: .LFB216: 399 400 %ROUTINE SWOP pushl %ebp movl %esp, %ebp subl $20, %esp call __x86.get_pc_thunk.ax addl $_GLOBAL_OFFSET_TABLE_, %eax movl %ecx, %eax movl %ecx, -20(%ebp) 401 %INTEGER K 402 K = TYPE1; TYPE1 = TYPE; TYPE = K movl 12(%eax), %edx movl %edx, -4(%ebp) movl 4(%eax), %edx movl 56(%edx), %edx movl %edx, 12(%eax) movl 4(%eax), %edx movl -4(%ebp), %ecx movl %ecx, 56(%edx) 403 K = VAL1; VAL1 = VAL; VAL = K movl 8(%eax), %edx movl %edx, -4(%ebp) movl 4(%eax), %edx movl 60(%edx), %edx movl %edx, 8(%eax) movl 4(%eax), %eax movl -4(%ebp), %edx movl %edx, 60(%eax) 404 %END nop leave ret .LFE216: TEMP.6352: .LFB217: 405 406 Q = QSTART movl QSTART.6045@GOTOFF(%ebx), %eax movl %eax, -1152(%ebp) .L659: 407 NEW:NQ = QSTART; FREE = TEMPS movl QSTART.6045@GOTOFF(%ebx), %eax movl %eax, -1148(%ebp) movl TEMPS.6066@GOTOFF(%ebx), %eax movl %eax, -1072(%ebp) 408 TYPE = INTEGER(Q); Q = Q+1 movl -1152(%ebp), %eax movl %eax, -1108(%ebp) .LBB338: .LBB339: movl -1108(%ebp), %eax .LBE339: .LBE338: movl (%eax), %eax movl -1168(%ebp), %ecx movl %eax, 56(%ecx) addl $1, -1152(%ebp) 409 VAL = INTEGER(Q); Q = Q+1 movl -1152(%ebp), %eax movl %eax, -1112(%ebp) .LBB340: .LBB341: movl -1112(%ebp), %eax .LBE341: .LBE340: movl (%eax), %eax movl %eax, 60(%ecx) addl $1, -1152(%ebp) .L662: .L663: 410 411 GET:%CYCLE 412 %RETURN %IF Q = QLIM movl QLIM.6046@GOTOFF(%ebx), %eax cmpl %eax, -1152(%ebp) je .L865 nop .L665: nop jmp .L658 .L913: 413 K = INTEGER(Q); Q = Q+1 movl -1152(%ebp), %eax movl %eax, -1104(%ebp) .LBB342: .LBB343: movl -1104(%ebp), %eax .LBE343: .LBE342: movl (%eax), %eax movl %eax, -1140(%ebp) addl $1, -1152(%ebp) 414 ->ASS(K) %IF K < 0 cmpl $0, -1140(%ebp) jns .L866 movl $414, -1132(%ebp) leal .LC2@GOTOFF(%ebx), %eax movl %eax, -1128(%ebp) movl -1140(%ebp), %eax movl %eax, -1124(%ebp) nop .L670: nop .L669: 415 INTEGER(NQ) = TYPE1; INTEGER(NQ+1) = VAL1 movl -1148(%ebp), %eax movl %eax, -1092(%ebp) .LBB344: .LBB345: movl -1092(%ebp), %eax .LBE345: .LBE344: movl -1060(%ebp), %edx movl %edx, (%eax) movl -1148(%ebp), %eax addl $1, %eax movl %eax, -1096(%ebp) .LBB346: .LBB347: movl -1096(%ebp), %eax .LBE347: .LBE346: movl -1064(%ebp), %edx movl %edx, (%eax) 416 NQ = NQ+2 addl $2, -1148(%ebp) 417 TYPE1 = TYPE; VAL1 = VAL movl -1168(%ebp), %esi movl 56(%esi), %eax movl %eax, -1060(%ebp) movl 60(%esi), %eax movl %eax, -1064(%ebp) 418 TYPE = K; VAL = INTEGER(Q); Q = Q+1 movl -1140(%ebp), %eax movl %eax, 56(%esi) movl -1152(%ebp), %eax movl %eax, -1100(%ebp) .LBB348: .LBB349: movl -1100(%ebp), %eax .LBE349: .LBE348: movl (%eax), %eax movl %eax, 60(%esi) addl $1, -1152(%ebp) 419 %REPEAT jmp .L662 .L888: 420 421 %PREDICATE TEMP pushl %ebp movl %esp, %ebp pushl %ebx subl $4, %esp call __x86.get_pc_thunk.dx addl $_GLOBAL_OFFSET_TABLE_, %edx movl %ecx, %eax movl %ecx, -8(%ebp) 422 %FALSE %IF TYPE1 # REG movl REG.6029@GOTOFF(%edx), %ecx movl 12(%eax), %ebx cmpl %ecx, %ebx je .L1122 movl $0, %eax jmp .L1111 .L1122: nop .L1110: 423 %IF VAL1 = DREG %START movl 8(%eax), %ebx movl 4(%eax), %ecx movl 36(%ecx), %ecx cmpl %ecx, %ebx jne .L1123 nop .L1113: 424 %FALSE %IF DUSE # 1 movl 4(%eax), %eax movl 32(%eax), %eax cmpl $1, %eax je .L1124 movl $0, %eax jmp .L1111 .L1124: nop .L1115: 425 %finish %ELSE %START jmp .L1118 .L1123: 426 %FALSE %IF 1<GET jmp .L662 .L710: 459 460 ASS(-2): 461 OP = SUB movl SUB.6193@GOTOFF(%ebx), %eax movl %eax, -1144(%ebp) 462 ->NOP %IF MODE > 0 %AND TYPE # 0 nop .L674: movl -1168(%ebp), %eax movl 20(%eax), %eax testl %eax, %eax jle .L887 movl -1168(%ebp), %eax movl 56(%eax), %eax testl %eax, %eax jne .L888 jmp .L713 .L887: nop .L713: 463 TYPE1 = 0 %AND TYPE = 0 %IF MODE <= 0 %AND TYPE1 = TYPE movl -1168(%ebp), %eax movl 20(%eax), %eax testl %eax, %eax jg .L889 movl -1168(%ebp), %eax movl 56(%eax), %eax movl -1060(%ebp), %edx cmpl %eax, %edx jne .L890 movl $0, %eax movl %eax, -1060(%ebp) movl $0, %eax movl -1168(%ebp), %ecx movl %eax, 56(%ecx) jmp .L716 .L889: nop jmp .L716 .L890: nop .L716: 464 VAL = -VAL movl -1168(%ebp), %ecx movl 60(%ecx), %eax negl %eax movl %eax, 60(%ecx) .L718: 465 ASS(-1): 466 OP = ADD; LITVAL = VAL1+VAL movl ADD.6192@GOTOFF(%ebx), %eax movl %eax, -1144(%ebp) movl -1168(%ebp), %esi movl 60(%esi), %eax movl -1064(%ebp), %edx addl %edx, %eax movl %eax, -1136(%ebp) 467 ->BOP %UNLESS TYPE = 0 nop .L675: movl 56(%esi), %eax testl %eax, %eax jne .L891 nop .L720: 468 %IF TYPE1&MEMMASK # 0 %AND MODE > 0 %START movl MEMMASK.6030@GOTOFF(%ebx), %eax testl %eax, %eax sete %al movzbl %al, %eax movl -1060(%ebp), %edx andl %edx, %eax testl %eax, %eax jne .L892 movl -1168(%ebp), %eax movl 20(%eax), %eax testl %eax, %eax jle .L893 nop jmp .L722 .L893: nop .L722: 469 SWOP; LOAD TEMP; SWOP leal -1072(%ebp), %eax movl %eax, %ecx call SWOP.6342 leal -1072(%ebp), %eax movl %eax, %ecx call LOADTEMP.6339 leal -1072(%ebp), %eax movl %eax, %ecx call SWOP.6342 jmp .L722 .L892: 470 %FINISH 471 %IF TYPE1 = REG %AND %NOT TYPE=VAL=0 %START movl REG.6029@GOTOFF(%ebx), %eax movl -1060(%ebp), %edx cmpl %eax, %edx jne .L894 .LBB354: movl -1168(%ebp), %edi movl 60(%edi), %eax movl %eax, -1116(%ebp) movl 56(%edi), %eax cmpl %eax, -1116(%ebp) jne .L895 cmpl $0, -1116(%ebp) je .L896 .LBE354: jmp .L727 .L895: .LBB355: nop .L727: .LBE355: nop jmp .L725 .L896: .LBB356: nop .L725: .LBE356: 472 TYPE1 = XMASK+VAL1; LITVAL = VAL movl XMASK.6032@GOTOFF(%ebx), %eax movl -1064(%ebp), %edx addl %edx, %eax movl %eax, -1060(%ebp) movl -1168(%ebp), %eax movl 60(%eax), %eax movl %eax, -1136(%ebp) jmp .L725 .L894: 473 %FINISH 474 TYPE = TYPE1; VAL = LITVAL movl -1060(%ebp), %eax movl -1168(%ebp), %ecx movl %eax, 56(%ecx) movl -1136(%ebp), %eax movl %eax, 60(%ecx) 475 ->POP jmp .L707 .L728: 476 ASS(-6): 477 LITVAL = VAL1<AS7 jmp .L729 .L730: 480 ASS(-7): 481 LITVAL = VAL1>>VAL; K = (16_FFFF)>>VAL movl -1064(%ebp), %eax movl %eax, %edx movl -1168(%ebp), %esi movl 60(%esi), %eax movl %eax, %ecx shrl %cl, %edx movl %edx, %eax movl %eax, -1136(%ebp) movl 60(%esi), %eax movl $65535, %edx movl %eax, %ecx shrl %cl, %edx movl %edx, %eax movl %eax, -1140(%ebp) .L729: 482 AS7:K=0 %AND ->BOP %IF MODE <= 0 movl -1168(%ebp), %eax movl 20(%eax), %eax testl %eax, %eax jg .L897 movl $0, -1140(%ebp) jmp .L675 .L897: nop .L732: 483 FAULT('I') %IF TYPE # 0 %OR VAL&(\15) # 0 movl -1168(%ebp), %ecx movl 56(%ecx), %eax testl %eax, %eax nop .L734: subl $12, %esp pushl $73 call FAULT.6097 addl $16, %esp .L735: 484 %IF %NOT TEMP %START leal -1072(%ebp), %eax movl %eax, %ecx call TEMP.6352 testl %eax, %eax jne .L898 nop .L737: 485 SWOP; LOAD TEMP; SWOP leal -1072(%ebp), %eax movl %eax, %ecx call SWOP.6342 leal -1072(%ebp), %eax movl %eax, %ecx call LOADTEMP.6339 leal -1072(%ebp), %eax movl %eax, %ecx call SWOP.6342 jmp .L737 .L898: 486 %FINISH 487 OP = ROT+VAL1<<8+VAL1 movl -1064(%ebp), %eax sall $8, %eax movl %eax, %edx movl ROT.6208@GOTOFF(%ebx), %eax addl %eax, %edx movl -1064(%ebp), %eax addl %edx, %eax movl %eax, -1144(%ebp) 488 PLANT INST(OP+16_0070) %IF VAL > 8 movl -1168(%ebp), %eax movl 60(%eax), %eax cmpl $8, %eax jle .L899 movl -1144(%ebp), %eax leal 112(%eax), %edx subl $12, %esp leal -1072(%ebp), %eax pushl %edx movl %eax, %ecx call PLANTINST.6281 addl $16, %esp jmp .L739 .L899: nop .L739: 489 PLANT INST(OP+(VAL-1)<<4) %IF VAL # 0 movl -1168(%ebp), %eax movl 60(%eax), %eax testl %eax, %eax je .L900 movl -1168(%ebp), %eax movl 60(%eax), %eax subl $1, %eax sall $4, %eax movl %eax, %edx movl -1144(%ebp), %eax addl %eax, %edx subl $12, %esp leal -1072(%ebp), %eax pushl %edx movl %eax, %ecx call PLANTINST.6281 addl $16, %esp jmp .L741 .L900: nop .L741: 490 TYPE = 0; VAL = K; K = -3 movl $0, %eax movl -1168(%ebp), %edi movl %eax, 56(%edi) movl -1140(%ebp), %eax movl %eax, 60(%edi) movl $-3, -1140(%ebp) .L742: 491 ASS(-3): 492 OP = AND; LITVAL = VAL1&VAL movl AND.6194@GOTOFF(%ebx), %eax movl %eax, -1144(%ebp) movl -1168(%ebp), %eax movl 60(%eax), %eax movl -1064(%ebp), %edx andl %edx, %eax movl %eax, -1136(%ebp) 493 ->BOP jmp .L675 .L743: 494 ASS(-4): 495 OP = OR; LITVAL = VAL1!VAL movl OR.6195@GOTOFF(%ebx), %eax movl %eax, -1144(%ebp) movl -1168(%ebp), %eax movl 60(%eax), %eax movl -1064(%ebp), %edx orl %edx, %eax movl %eax, -1136(%ebp) 496 ->BOP jmp .L675 .L744: 497 ASS(-5): 498 OP = XOR; LITVAL = VAL1!!VAL movl XOR.6196@GOTOFF(%ebx), %eax movl %eax, -1144(%ebp) movl -1168(%ebp), %eax movl 60(%eax), %eax movl -1064(%ebp), %edx xorl %edx, %eax movl %eax, -1136(%ebp) 499 ->BOP jmp .L675 .L745: 500 501 ASS(-8): !TYPE_VAL 502 TYPE = VAL1 movl -1064(%ebp), %eax movl -1168(%ebp), %esi movl %eax, 56(%esi) 503 TYPE = 0 %IF TYPE&OPMASK = MACRO; !SAFETY movl OPMASK.6025@GOTOFF(%ebx), %edx movl MACRO.6026@GOTOFF(%ebx), %eax cmpl %eax, %edx setne %al movzbl %al, %eax movl 56(%esi), %edx andl %edx, %eax testl %eax, %eax jne .L901 movl $0, %eax movl -1168(%ebp), %esi movl %eax, 56(%esi) jmp .L747 .L901: nop .L747: 504 TYPE = 0 %IF TYPE&(OPMASK+FMASK) = FMASK movl OPMASK.6025@GOTOFF(%ebx), %edx movl FMASK.6027@GOTOFF(%ebx), %eax addl %eax, %edx movl FMASK.6027@GOTOFF(%ebx), %eax cmpl %eax, %edx setne %al movzbl %al, %eax movl -1168(%ebp), %edi movl 56(%edi), %edx andl %edx, %eax testl %eax, %eax jne .L902 movl $0, %eax movl -1168(%ebp), %ecx movl %eax, 56(%ecx) nop .L749: 505 ->POP jmp .L707 .L902: jmp .L707 .L750: 506 507 ASS(-11): !COMPARE 508 K = INTEGER(Q); Q = Q+1 movl -1152(%ebp), %eax movl %eax, -1080(%ebp) .LBB357: .LBB358: movl -1080(%ebp), %eax .LBE358: .LBE357: movl (%eax), %eax movl %eax, -1140(%ebp) addl $1, -1152(%ebp) 509 %IF MODE <= 0 %START movl -1168(%ebp), %eax movl 20(%eax), %eax testl %eax, %eax jg .L903 nop .L753: 510 LITVAL = 2_01011000 movl $88, -1136(%ebp) 511 LITVAL = 2_01100100 %IF VAL < 0 movl -1168(%ebp), %eax movl 60(%eax), %eax testl %eax, %eax jns .L904 movl $100, -1136(%ebp) jmp .L755 .L904: nop .L755: 512 LITVAL = 2_10101000 %IF VAL1 > VAL movl -1168(%ebp), %eax movl 60(%eax), %eax movl -1064(%ebp), %edx cmpl %eax, %edx jle .L905 movl $168, -1136(%ebp) jmp .L757 .L905: nop .L757: 513 K = LITVAL>>K&1; movl -1136(%ebp), %edx movl -1140(%ebp), %eax movl %eax, %ecx shrl %cl, %edx movl %edx, %eax andl $1, %eax movl %eax, -1140(%ebp) 514 %finish %ELSE %START jmp .L768 .L903: 515 %UNLESS K&6=4 %AND -256GET jmp .L662 .L769: 526 527 ASS(-12): !TEST CC 528 COND = VAL!!1 movl -1168(%ebp), %ecx movl 60(%ecx), %eax xorl $1, %eax movl %eax, 40(%ecx) 529 ->GET jmp .L662 .L770: 530 531 ASS(-13): !AND 532 %IF MODE > 0 %START movl -1168(%ebp), %eax movl 20(%eax), %eax testl %eax, %eax jle .L912 nop .L772: 533 SET JUMP(16_1000) subl $12, %esp leal -1072(%ebp), %eax pushl $4096 movl %eax, %ecx call SETJUMP.6272 addl $16, %esp 534 %finish %ELSE %START jmp .L775 .L912: 535 %RETURN %IF COND = 0 movl -1168(%ebp), %eax movl 40(%eax), %eax testl %eax, %eax je .L913 .L773: nop .L775: nop jmp .L658 .L914: 536 %FINISH 537 %RETURN %IF Q = QLIM movl QLIM.6046@GOTOFF(%ebx), %eax cmpl %eax, -1152(%ebp) je .L914 nop .L777: nop jmp .L658 .L916: 538 ->NEW jmp .L659 .L778: 539 540 ASS(-14): !OR 541 %IF MODE > 0 %START movl -1168(%ebp), %eax movl 20(%eax), %eax testl %eax, %eax jle .L915 nop .L780: 542 COND = COND!!1 movl -1168(%ebp), %edi movl 40(%edi), %eax xorl $1, %eax movl %eax, 40(%edi) 543 SET JUMP(16_3000) subl $12, %esp leal -1072(%ebp), %eax pushl $12288 movl %eax, %ecx call SETJUMP.6272 addl $16, %esp 544 %finish %ELSE %START jmp .L783 .L915: 545 %RETURN %IF COND # 0 movl -1168(%ebp), %eax movl 40(%eax), %eax testl %eax, %eax jne .L916 .L781: nop .L783: nop .L658: 546 %FINISH 547 ->NEW jmp .L659 .L784: 548 549 ASS(-15): !IF 550 SET JUMP(16_2000) subl $12, %esp leal -1072(%ebp), %eax pushl $8192 movl %eax, %ecx call SETJUMP.6272 addl $16, %esp 551 %RETURN jmp .L658 .L785: 552 553 ASS(-16): !ELSE 554 COND = 1 movl $1, %eax movl -1168(%ebp), %ebx movl %eax, 40(%ebx) 555 SET JUMP(16_4000) subl $12, %esp leal -1072(%ebp), %eax pushl $16384 movl %eax, %ecx call SETJUMP.6272 addl $16, %esp 556 %RETURN jmp .L658 .L786: 557 558 ASS(-17): !IF AFTER ELSE 559 SET JUMP(16_6000) subl $12, %esp leal -1072(%ebp), %eax pushl $24576 movl %eax, %ecx call SETJUMP.6272 addl $16, %esp 560 %RETURN jmp .L658 .L787: 561 562 ASS(-18): !MACCALL IF 563 SET JUMP(16_8000) subl $12, %esp leal -1072(%ebp), %eax pushl $32768 movl %eax, %ecx call SETJUMP.6272 addl $16, %esp 564 %RETURN jmp .L658 .L788: 565 566 ASS(-20): !HASH 567 TYPE = TYPE&(UMASK+63) movl UMASK.6028@GOTOFF(%ebx), %eax leal 63(%eax), %edx movl -1168(%ebp), %esi movl 56(%esi), %eax andl %edx, %eax movl %eax, 56(%esi) 568 ->GET jmp .L662 .L789: 569 570 ASS(-21): !INDEX 571 FAULT('I') %IF TYPE1®XMASK # 0 movl REGXMASK.6033@GOTOFF(%ebx), %eax testl %eax, %eax sete %al movzbl %al, %eax movl -1060(%ebp), %edx andl %edx, %eax testl %eax, %eax jne .L917 subl $12, %esp pushl $73 movl -1168(%ebp), %ecx call FAULT.6097 addl $16, %esp jmp .L791 .L917: nop .L791: 572 %IF TYPE&MEMMASK # 0 %START movl MEMMASK.6030@GOTOFF(%ebx), %eax testl %eax, %eax sete %al movzbl %al, %eax movl -1168(%ebp), %esi movl 56(%esi), %edx andl %edx, %eax testl %eax, %eax jne .L918 nop .L796: 573 %IF MODE > 0 %THEN LOAD TEMP %ELSE FAULT('A') movl -1168(%ebp), %eax movl 20(%eax), %eax testl %eax, %eax jle .L919 leal -1072(%ebp), %eax movl %eax, %ecx call LOADTEMP.6339 jmp .L796 .L919: nop .L795: subl $12, %esp pushl $65 movl -1168(%ebp), %ecx call FAULT.6097 addl $16, %esp jmp .L796 .L793: .L918: 574 %FINISH 575 %IF TYPE = REG %START movl REG.6029@GOTOFF(%ebx), %eax movl -1168(%ebp), %edi movl 56(%edi), %edx cmpl %eax, %edx jne .L920 nop .L798: 576 TYPE = XMASK+VAL; VAL = 0 movl XMASK.6032@GOTOFF(%ebx), %eax movl -1168(%ebp), %esi movl 60(%esi), %edx addl %edx, %eax movl %eax, 56(%esi) movl $0, %eax movl %eax, 60(%esi) jmp .L798 .L920: 577 %FINISH 578 FAULT('I') %IF TYPE1&TYPE&RELMASK # 0 movl -1168(%ebp), %eax movl 56(%eax), %eax movl -1060(%ebp), %edx andl %eax, %edx movl RELMASK.6031@GOTOFF(%ebx), %eax testl %eax, %eax sete %al movzbl %al, %eax andl %edx, %eax testl %eax, %eax jne .L921 subl $12, %esp pushl $73 movl -1168(%ebp), %ecx call FAULT.6097 addl $16, %esp jmp .L800 .L921: nop .L800: 579 TYPE = TYPE1!TYPE!MEMMASK; VAL = VAL1+VAL movl -1168(%ebp), %esi movl 56(%esi), %eax movl -1060(%ebp), %edx orl %eax, %edx movl MEMMASK.6030@GOTOFF(%ebx), %eax orl %edx, %eax movl %eax, 56(%esi) movl 60(%esi), %eax movl -1064(%ebp), %edx addl %edx, %eax movl %eax, 60(%esi) 580 ->POP jmp .L707 .L801: 581 582 ASS(-22): !MINST SEPARATOR 583 COMBINE leal -1072(%ebp), %eax movl %eax, %ecx call COMBINE.6248 584 ->POP jmp .L707 .L802: 585 586 ASS(-23): !PLANT INST 587 MODE = 1 movl $1, %eax movl -1168(%ebp), %edi movl %eax, 20(%edi) 588 PLANT INST(VAL) movl 60(%edi), %edx subl $12, %esp leal -1072(%ebp), %eax pushl %edx movl %eax, %ecx call PLANTINST.6281 addl $16, %esp 589 CREG = -1; ATYPE = -1 movl $-1, %eax movl %eax, 48(%edi) movl $-1, %eax movl %eax, 52(%edi) 590 %RETURN jmp .L658 .L803: 591 592 ASS(-24): !LOAD 593 LOAD TEMP %IF TYPE # REG movl REG.6029@GOTOFF(%ebx), %eax movl -1168(%ebp), %ecx movl 56(%ecx), %edx cmpl %eax, %edx je .L922 leal -1072(%ebp), %eax movl %eax, %ecx call LOADTEMP.6339 jmp .L805 .L922: nop .L805: 594 Q = QBASE movl QBASE.6044@GOTOFF(%ebx), %eax movl %eax, -1152(%ebp) 595 ->GET jmp .L662 .L806: 596 597 ASS(-25): !STORE (TYPE1,VAL1 -> TYPE,VAL) 598 %IF TYPE = REG %START movl REG.6029@GOTOFF(%ebx), %eax movl -1168(%ebp), %esi movl 56(%esi), %edx cmpl %eax, %edx jne .L923 nop .L808: 599 SWOP %AND LOAD REG(VAL1) %IF VAL1 # VAL movl -1168(%ebp), %eax movl 60(%eax), %eax movl -1064(%ebp), %edx cmpl %eax, %edx je .L924 leal -1072(%ebp), %eax movl %eax, %ecx call SWOP.6342 movl -1064(%ebp), %edx subl $12, %esp leal -1072(%ebp), %eax pushl %edx movl %eax, %ecx call LOADREG.6314 addl $16, %esp nop .L810: 600 %finish %ELSE %START jmp .L811 .L924: jmp .L811 .L923: 601 ATYPE = -1 %IF ATYPE&MEMMASK # 0 movl MEMMASK.6030@GOTOFF(%ebx), %eax testl %eax, %eax sete %al movzbl %al, %eax movl -1168(%ebp), %edi movl 52(%edi), %edx andl %edx, %eax testl %eax, %eax jne .L925 movl $-1, %eax movl -1168(%ebp), %ecx movl %eax, 52(%ecx) jmp .L813 .L925: nop .L813: 602 %IF VAL1 = ACC %AND ATYPE < 0 %START movl -1168(%ebp), %eax movl 24(%eax), %eax movl -1064(%ebp), %edx cmpl %eax, %edx jne .L926 movl -1168(%ebp), %eax movl 52(%eax), %eax testl %eax, %eax jns .L927 nop jmp .L819 .L927: nop jmp .L819 .L929: 603 K = TYPE&15 movl -1168(%ebp), %ecx movl 56(%ecx), %eax andl $15, %eax movl %eax, -1140(%ebp) 604 ATYPE = TYPE %AND AVAL = VAL %IF TYPE&XMASK = 0 %OR 1<= 0 %START movl 4(%ebx), %eax testl %eax, %eax js .L1161 nop jmp .L1158 .L1163: 659 TERM = -1 %AND %RETURN %IF K < 10 movl 4(%ebx), %eax cmpl $9, %eax jg .L1162 movl 8(%ebx), %eax movl $-1, %edx movl %edx, 12(%eax) jmp .L1149 .L1162: nop .L1153: 660 K = SYM-'A' movl 8(%ebx), %eax movl 16(%eax), %eax subl $65, %eax movl %eax, 4(%ebx) 661 %RETURN %IF K >= 0 %AND K < 26 %AND TERM = 0 movl 4(%ebx), %eax testl %eax, %eax js .L1163 movl 4(%ebx), %eax cmpl $25, %eax jg .L1164 movl 8(%ebx), %eax movl 12(%eax), %eax testl %eax, %eax je .L1165 jmp .L1158 .L1151: .L1161: nop jmp .L1158 .L1164: nop .L1158: nop .L1149: 662 %FINISH 663 TERM = SYM movl 8(%ebx), %edx movl 8(%ebx), %eax movl 16(%edx), %edx movl %edx, 12(%eax) 664 %END nop jmp .L1149 .L1165: movl -12(%ebp), %eax xorl %gs:20, %eax je .L1159 call __stack_chk_fail_local .L1159: leal -8(%ebp), %esp popl %ebx popl %esi popl %ebp ret .LFE222: TAG.6454: .LFB221: 665 %ROUTINE PACK TRIPLE pushl %ebp movl %esp, %ebp pushl %ebx subl $20, %esp call __x86.get_pc_thunk.ax addl $_GLOBAL_OFFSET_TABLE_, %eax movl %ecx, %ebx movl %ecx, -12(%ebp) 666 ->T1 %IF TERM < 0 movl 8(%ebx), %eax movl 12(%eax), %eax testl %eax, %eax js .L1205 nop .L1192: nop .L1193: 667 J = ((K<<5+K)<<1+K)<<4+K+1111; !K*1073+1111 movl 4(%ebx), %eax sall $5, %eax movl %eax, %edx movl 4(%ebx), %eax addl %edx, %eax leal (%eax,%eax), %edx movl 4(%ebx), %eax addl %edx, %eax sall $4, %eax movl %eax, %edx movl 4(%ebx), %eax addl %edx, %eax addl $1111, %eax movl %eax, (%ebx) 668 CODE SYM movl %ebx, %ecx call CODESYM.6459 669 ->T2 %IF TERM # 0 movl 8(%ebx), %eax movl 12(%eax), %eax testl %eax, %eax jne .L1206 nop .L1195: nop .L1196: 670 J = (K<<3+K)<<2+K+111+J; !J+K*37+111 movl 4(%ebx), %eax leal 0(,%eax,8), %edx movl 4(%ebx), %eax addl %edx, %eax leal 0(,%eax,4), %edx movl 4(%ebx), %eax addl %edx, %eax leal 111(%eax), %edx movl (%ebx), %eax addl %edx, %eax movl %eax, (%ebx) 671 CODE SYM movl %ebx, %ecx call CODESYM.6459 672 ->T3 %IF TERM # 0 movl 8(%ebx), %eax movl 12(%eax), %eax testl %eax, %eax jne .L1207 nop .L1198: nop .L1199: 673 J = J+K+11 movl (%ebx), %edx movl 4(%ebx), %eax addl %edx, %eax addl $11, %eax movl %eax, (%ebx) 674 CODE SYM movl %ebx, %ecx call CODESYM.6459 675 %RETURN jmp .L1190 .L1205: 676 T1: J = ((K<<1+K)<<1+K)<<4-K+1; !K*111+1 movl 4(%ebx), %eax leal (%eax,%eax), %edx movl 4(%ebx), %eax addl %edx, %eax leal (%eax,%eax), %edx movl 4(%ebx), %eax addl %edx, %eax sall $4, %eax movl %eax, %edx movl 4(%ebx), %eax subl %eax, %edx movl %edx, %eax addl $1, %eax movl %eax, (%ebx) 677 CODE SYM movl %ebx, %ecx call CODESYM.6459 jmp .L1196 .L1206: 678 T2: %RETURN %IF TERM > 0 movl 8(%ebx), %eax movl 12(%eax), %eax testl %eax, %eax jg .L1208 nop .L1202: nop jmp .L1190 .L1209: 679 J = (K<<2+K)<<1+K+1+J; !J+K*11+1 movl 4(%ebx), %eax leal 0(,%eax,4), %edx movl 4(%ebx), %eax addl %edx, %eax leal (%eax,%eax), %edx movl 4(%ebx), %eax addl %edx, %eax leal 1(%eax), %edx movl (%ebx), %eax addl %edx, %eax movl %eax, (%ebx) 680 CODE SYM movl %ebx, %ecx call CODESYM.6459 jmp .L1199 .L1207: 681 T3: %RETURN %IF TERM > 0 movl 8(%ebx), %eax movl 12(%eax), %eax testl %eax, %eax jg .L1209 nop .L1204: nop .L1190: 682 J = J+K+1 movl (%ebx), %edx movl 4(%ebx), %eax addl %edx, %eax addl $1, %eax movl %eax, (%ebx) 683 CODE SYM movl %ebx, %ecx call CODESYM.6459 684 %END nop jmp .L1190 .L1208: addl $20, %esp popl %ebx popl %ebp ret .LFE223: TAGIF.6483: .LFB224: 685 K = SYM-'A' movl 16(%ebx), %edx subl $65, %edx movl %edx, -24(%ebp) 686 %FALSE %UNLESS K >= 0 %AND K < 26 movl -24(%ebp), %edx testl %edx, %edx js .L1184 movl -24(%ebp), %edx cmpl $25, %edx jle .L1185 jmp .L1168 .L1184: nop .L1168: movl $0, %eax jmp .L1170 .L1185: nop .L1169: 687 %FALSE %IF SYM = 'X' %AND CHAR(GETPOS)&128 # 0 movl 16(%ebx), %edx cmpl $88, %edx jne .L1186 movl GETPOS.6037@GOTOFF(%eax), %eax pushl %eax movl %ebx, %ecx call CHAR.6091 addl $4, %esp movl $0, %eax jmp .L1170 .L1186: nop .L1172: 688 TERM = 0 movl $0, %eax movl %eax, 12(%ebx) 689 PACK TRIPLE leal -28(%ebp), %eax movl %eax, %ecx call PACKTRIPLE.6465 690 TAG1 = J; J = 0 movl -28(%ebp), %eax movl %eax, 8(%ebx) movl $0, %eax movl %eax, -28(%ebp) 691 PACK TRIPLE %IF TERM <= 0 movl 12(%ebx), %eax testl %eax, %eax jg .L1187 leal -28(%ebp), %eax movl %eax, %ecx call PACKTRIPLE.6465 jmp .L1174 .L1187: nop .L1174: 692 TAG2 = J movl -28(%ebp), %eax movl %eax, 4(%ebx) .L1175: 693 CODE SYM %WHILE TERM <= 0 movl 12(%ebx), %eax testl %eax, %eax jg .L1188 leal -28(%ebp), %eax movl %eax, %ecx call CODESYM.6459 jmp .L1175 .L1188: nop .L1177: 694 GET SYM %IF TERM = ' ' movl 12(%ebx), %eax cmpl $32, %eax jne .L1189 movl %ebx, %ecx call GETSYM.6439 jmp .L1179 .L1189: nop .L1179: 695 %TRUE movl $1, %eax .L1170: 696 %END movl -12(%ebp), %ecx xorl %gs:20, %ecx je .L1180 call __stack_chk_fail_local .L1180: movl -4(%ebp), %ebx leave ret .LFE221: PACKTRIPLE.6465: .LFB223: 697 698 %PREDICATE TAGIF pushl %ebp movl %esp, %ebp pushl %esi pushl %ebx subl $32, %esp call __x86.get_pc_thunk.bx addl $_GLOBAL_OFFSET_TABLE_, %ebx movl %ecx, %esi movl %ecx, -28(%ebp) movl %gs:20, %eax movl %eax, -12(%ebp) xorl %eax, %eax 699 %FALSE %UNLESS SYM='I' %AND CHAR(GETPOS)='F' %AND CHAR(GETPOS+1)=' ' movl 16(%esi), %eax cmpl $73, %eax jne .L1218 movl GETPOS.6037@GOTOFF(%ebx), %eax pushl %eax movl %esi, %ecx call CHAR.6091 addl $4, %esp cmpl $70, %eax jne .L1219 movl GETPOS.6037@GOTOFF(%ebx), %eax addl $1, %eax pushl %eax movl %esi, %ecx call CHAR.6091 addl $4, %esp cmpl $32, %eax je .L1220 jmp .L1212 .L1218: nop jmp .L1212 .L1219: nop .L1212: movl $0, %eax jmp .L1215 .L1220: nop .L1214: 700 GETPOS = GETPOS+2 movl GETPOS.6037@GOTOFF(%ebx), %eax addl $2, %eax movl %eax, GETPOS.6037@GOTOFF(%ebx) 701 GET SYM movl %esi, %ecx call GETSYM.6439 702 %TRUE movl $1, %eax .L1215: 703 %END movl -12(%ebp), %edx xorl %gs:20, %edx je .L1216 call __stack_chk_fail_local .L1216: leal -8(%ebp), %esp popl %ebx popl %esi popl %ebp ret .LFE224: LOOKUP.6488: .LFB225: 704 705 %ROUTINE LOOKUP(%INTEGER CONTROL) pushl %ebp movl %esp, %ebp pushl %esi pushl %ebx subl $84, %esp call __x86.get_pc_thunk.si addl $_GLOBAL_OFFSET_TABLE_, %esi movl %ecx, %ebx movl %ecx, -92(%ebp) 706 !ALL DICT OPERATIONS LOCALISED HERE 707 !CONTROL = 0 (LOOKUP ONLY), 1 (FORWARD OK), 708 ! 2 (REDEF), 3 (DEF), 709 ! 4 (MACPARM), 7 (LABEL) 710 %INTEGER DP 711 DP = DEFMIN; DP = MP+5 %IF CONTROL = 4 movl DEFMIN.6048@GOTOFF(%esi), %eax movl %eax, -80(%ebp) cmpl $4, 8(%ebp) jne .L1284 movl MP.6043@GOTOFF(%esi), %eax addl $5, %eax movl %eax, -80(%ebp) jmp .L1234 .L1223: .L1284: nop .L1224: .L1234: 712 %WHILE INTEGER(DP) # 0 %CYCLE movl -80(%ebp), %eax movl %eax, -76(%ebp) .LBB378: .LBB379: movl -76(%ebp), %eax .LBE379: .LBE378: movl (%eax), %eax testl %eax, %eax je .L1285 nop .L1235: 713 ->YES %IF INTEGER(DP) = TAG1 %AND INTEGER(DP+1) = TAG2 movl -80(%ebp), %eax movl %eax, -72(%ebp) .LBB380: .LBB381: movl -72(%ebp), %eax .LBE381: .LBE380: movl (%eax), %eax movl 8(%ebx), %edx cmpl %eax, %edx jne .L1286 movl -80(%ebp), %eax addl $1, %eax movl %eax, -68(%ebp) .LBB382: .LBB383: movl -68(%ebp), %eax .LBE383: .LBE382: movl (%eax), %eax movl 4(%ebx), %edx cmpl %eax, %edx je .L1287 jmp .L1230 .L1286: nop .L1230: nop .L1233: 714 DP = DP+4 addl $4, -80(%ebp) 715 %REPEAT jmp .L1234 .L1227: .L1285: 716 !!%OWNINTEGER P 717 !! DP = DP-4 718 !!REP:DP = DP+4 719 !! %LAC* DP; %OPR 640;!SNA; %JMP NO 720 !! %SAD TAG1; %OPR 512; %JMP REP 721 !! %LAC DP; %TAD #1; %DAC P 722 !! %LAC* P; %SAD TAG2; %JMP YES 723 !! ->REP 724 NO: 725 %RETURN %IF CONTROL&1 = 0; !NO CREATION movl 8(%ebp), %eax andl $1, %eax testl %eax, %eax je .L1288 .L1237: nop jmp .L1239 .L1290: nop .L1221: 726 NEW:DEFMIN = DEFMIN-4; DP = DEFMIN movl DEFMIN.6048@GOTOFF(%esi), %eax subl $4, %eax movl %eax, DEFMIN.6048@GOTOFF(%esi) movl DEFMIN.6048@GOTOFF(%esi), %eax movl %eax, -80(%ebp) 727 !!%MONITOR 21 %IF DP-QLIM <= 0 728 INTEGER(DP) = TAG1; INTEGER(DP+1) = TAG2 movl -80(%ebp), %eax movl %eax, -60(%ebp) .LBB384: .LBB385: movl -60(%ebp), %eax .LBE385: .LBE384: movl 8(%ebx), %edx movl %edx, (%eax) movl -80(%ebp), %eax addl $1, %eax movl %eax, -64(%ebp) .LBB386: .LBB387: movl -64(%ebp), %eax .LBE387: .LBE386: movl 4(%ebx), %edx movl %edx, (%eax) jmp .L1242 .L1295: 729 SET:INTEGER(DP+2) = TYPE; INTEGER(DP+3) = VAL movl -80(%ebp), %eax addl $2, %eax movl %eax, -52(%ebp) .LBB388: .LBB389: movl -52(%ebp), %eax .LBE389: .LBE388: movl 56(%ebx), %edx movl %edx, (%eax) movl -80(%ebp), %eax addl $3, %eax movl %eax, -56(%ebp) .LBB390: .LBB391: movl -56(%ebp), %eax .LBE391: .LBE390: movl 60(%ebx), %edx movl %edx, (%eax) 730 %RETURN jmp .L1221 .L1287: 731 YES:->NEW %IF CONTROL = 3 %AND DP-INTEGER(BP) >= 0 nop jmp .L1239 .L1299: cmpl $3, 8(%ebp) jne .L1289 movl BP.6053@GOTOFF(%esi), %eax movl %eax, -48(%ebp) .LBB392: .LBB393: movl -48(%ebp), %eax .LBE393: .LBE392: movl (%eax), %eax movl -80(%ebp), %edx subl %eax, %edx movl %edx, %eax testl %eax, %eax jns .L1290 jmp .L1246 .L1289: nop .L1246: 732 %IF CONTROL&2 = 0 %START; !NOT DEF CLASS movl 8(%ebp), %eax andl $1, %eax testl %eax, %eax jne .L1291 nop .L1250: 733 TYPE = INTEGER(DP+2); VAL = INTEGER(DP+3) movl -80(%ebp), %eax addl $2, %eax movl %eax, -40(%ebp) .LBB394: .LBB395: movl -40(%ebp), %eax .LBE395: .LBE394: movl (%eax), %eax movl %eax, 56(%ebx) movl -80(%ebp), %eax addl $3, %eax movl %eax, -44(%ebp) .LBB396: .LBB397: movl -44(%ebp), %eax .LBE397: .LBE396: movl (%eax), %eax movl %eax, 60(%ebx) 734 %RETURN %UNLESS TYPE&OPMASK = MACRO %AND CONTROL = 0 movl OPMASK.6025@GOTOFF(%esi), %edx movl MACRO.6026@GOTOFF(%esi), %eax cmpl %eax, %edx setne %al movzbl %al, %eax movl 56(%ebx), %edx andl %edx, %eax testl %eax, %eax jne .L1292 cmpl $0, 8(%ebp) je .L1293 jmp .L1254 .L1292: nop .L1254: jmp .L1221 .L1255: .L1293: nop 735 %IF TYPE&31#25 %THEN INTEGER(DP+2)=TYPE+1 %ELSE INTEGER(DP+2) = TYPE+7 movl -80(%ebp), %eax addl $2, %eax movl %eax, -36(%ebp) .LBB398: .LBB399: movl -36(%ebp), %eax .LBE399: .LBE398: movl 56(%ebx), %edx addl $1, %edx movl %edx, (%eax) nop .L1257: 736 %RETURN jmp .L1221 .L1291: 737 %FINISH 738 FAULT('D') %IF CONTROL = 3 cmpl $3, 8(%ebp) jne .L1294 pushl $68 movl %ebx, %ecx call FAULT.6097 addl $4, %esp jmp .L1259 .L1294: nop .L1259: 739 ->SET %IF CONTROL # 7 nop .L1242: cmpl $7, 8(%ebp) jne .L1295 nop .L1261: 740 %IF INTEGER(DP+2)&(OPMASK+FMASK) = FMASK %START movl -80(%ebp), %eax addl $2, %eax movl %eax, -32(%ebp) .LBB400: .LBB401: movl -32(%ebp), %eax .LBE401: .LBE400: movl (%eax), %edx movl OPMASK.6025@GOTOFF(%esi), %ecx movl FMASK.6027@GOTOFF(%esi), %eax addl %eax, %ecx movl FMASK.6027@GOTOFF(%esi), %eax cmpl %eax, %ecx setne %al movzbl %al, %eax andl %edx, %eax testl %eax, %eax jne .L1296 nop .L1264: 741 VAL = INTEGER(DP+3) movl -80(%ebp), %eax addl $3, %eax movl %eax, -28(%ebp) .LBB402: .LBB403: movl -28(%ebp), %eax .LBE403: .LBE402: movl (%eax), %eax movl %eax, 60(%ebx) 742 %IF PASS = 0 %START movl PASS.6061@GOTOFF(%esi), %eax testl %eax, %eax jne .L1297 nop .L1267: 743 INTEGER(VAL) = LOC movl 60(%ebx), %eax movl %eax, -24(%ebp) .LBB404: .LBB405: movl -24(%ebp), %eax .LBE405: .LBE404: movl 68(%ebx), %edx movl %edx, (%eax) 744 %finish %ELSE %START jmp .L1273 .L1297: 745 FAULT('P') %AND LOC=INTEGER(VAL) %IF INTEGER(VAL) # LOC movl 60(%ebx), %eax movl %eax, -20(%ebp) .LBB406: .LBB407: movl -20(%ebp), %eax .LBE407: .LBE406: movl (%eax), %eax movl 68(%ebx), %edx cmpl %eax, %edx je .L1298 pushl $80 movl %ebx, %ecx call FAULT.6097 addl $4, %esp movl 60(%ebx), %eax movl %eax, -16(%ebp) .LBB408: .LBB409: movl -16(%ebp), %eax .LBE409: .LBE408: movl (%eax), %eax movl %eax, 68(%ebx) jmp .L1273 .L1269: .L1298: nop .L1273: 746 %FINISH 747 VAL = LOC movl 68(%ebx), %eax movl %eax, 60(%ebx) 748 %finish %ELSE %START nop .L1274: 749 ->NEW %IF DP-INTEGER(BP) >= 0 nop .L1239: movl BP.6053@GOTOFF(%esi), %eax movl %eax, -12(%ebp) .LBB410: .LBB411: movl -12(%ebp), %eax .LBE411: .LBE410: movl (%eax), %eax movl -80(%ebp), %edx subl %eax, %edx movl %edx, %eax testl %eax, %eax jns .L1299 nop .L1277: 750 FAULT('D') pushl $68 movl %ebx, %ecx call FAULT.6097 addl $4, %esp 751 %FINISH 752 ->SET jmp .L1242 .L1296: jmp .L1242 .L1288: 753 %END leal -8(%ebp), %esp popl %ebx popl %esi popl %ebp ret .LFE225: QUEUE.6515: .LFB226: ?NO unused 754 755 %ROUTINE QUEUE(%INTEGER K) pushl %ebp movl %esp, %ebp subl $20, %esp call __x86.get_pc_thunk.ax addl $_GLOBAL_OFFSET_TABLE_, %eax movl %ecx, -20(%ebp) 756 INTEGER(QLIM) = K movl QLIM.6046@GOTOFF(%eax), %edx movl %edx, -4(%ebp) .LBB412: .LBB413: movl -4(%ebp), %edx .LBE413: .LBE412: movl 8(%ebp), %ecx movl %ecx, (%edx) 757 QLIM = QLIM+1; !!%MONITOR 21 %IF QLIM = DEFMIN movl QLIM.6046@GOTOFF(%eax), %edx addl $1, %edx movl %edx, QLIM.6046@GOTOFF(%eax) 758 %END nop leave ret .LFE226: GETEXP.6518: .LFB227: 759 760 %ROUTINE GET EXP pushl %ebp movl %esp, %ebp pushl %esi pushl %ebx subl $64, %esp call __x86.get_pc_thunk.si addl $_GLOBAL_OFFSET_TABLE_, %esi movl %ecx, %ebx movl %ecx, -60(%ebp) movl %gs:20, %eax movl %eax, -12(%ebp) xorl %eax, %eax 761 %OWNINTEGER W=24717 762 %INTEGER I,NBASE 763 764 NBASE = NP movl NP.6054@GOTOFF(%esi), %eax movl %eax, -44(%ebp) 765 ->E3 %IF PEND # 0 movl (%ebx), %eax testl %eax, %eax jne .L1423 .L1305: .L1307: nop .L1308: .L1311: nop .L1306: 766 E1: NEST(0) %WHILE S('(') subl $12, %esp pushl $40 movl %ebx, %ecx call S.6444 addl $16, %esp testl %eax, %eax je .L1424 subl $12, %esp pushl $0 movl %ebx, %ecx call NEST.6167 addl $16, %esp jmp .L1311 .L1424: nop .L1310: 767 NEST(-20) %IF S('#') subl $12, %esp pushl $35 movl %ebx, %ecx call S.6444 addl $16, %esp testl %eax, %eax je .L1425 subl $12, %esp pushl $-20 movl %ebx, %ecx call NEST.6167 addl $16, %esp jmp .L1313 .L1425: nop .L1313: 768 %IF TAG %START movl %ebx, %ecx call TAG.6454 testl %eax, %eax je .L1426 nop .L1314: .LBB416: 769 E3: %IF TAG1 = W %START; !W jmp .L1306 .L1423: movl W.6520@GOTOFF(%esi), %eax movl 8(%ebx), %edx cmpl %eax, %edx jne .L1427 nop .L1316: 770 TYPE = 0; VAL = 0 movl $0, %eax movl %eax, 56(%ebx) movl $0, %eax movl %eax, 60(%ebx) 771 %finish %ELSE %START jmp .L1326 .L1427: 772 %IF PEND >= 0 %START movl (%ebx), %eax testl %eax, %eax js .L1428 nop jmp .L1326 .L1429: 773 TYPE = LOCTYPE+FMASK+UMASK; VAL = LABMIN-1 movl FMASK.6027@GOTOFF(%esi), %eax movl 64(%ebx), %edx addl %eax, %edx movl UMASK.6028@GOTOFF(%esi), %eax addl %edx, %eax movl %eax, 56(%ebx) movl LABMIN.6051@GOTOFF(%esi), %eax subl $1, %eax movl %eax, 60(%ebx) 774 LOOKUP(1) subl $12, %esp pushl $1 movl %ebx, %ecx call LOOKUP.6488 addl $16, %esp 775 %IF TYPE&(OPMASK+FMASK) = FMASK %START movl OPMASK.6025@GOTOFF(%esi), %edx movl FMASK.6027@GOTOFF(%esi), %eax addl %eax, %edx movl FMASK.6027@GOTOFF(%esi), %eax cmpl %eax, %edx setne %al movzbl %al, %eax movl 56(%ebx), %edx andl %edx, %eax testl %eax, %eax jne .L1429 nop .L1326: 776 %IF VAL = LABMIN-1 %START movl LABMIN.6051@GOTOFF(%esi), %eax leal -1(%eax), %edx movl 60(%ebx), %eax cmpl %edx, %eax jne .L1430 nop .L1321: 777 LABMIN = VAL; !!%MONITOR 22 %IF LABMIN = ALMAX movl 60(%ebx), %eax movl %eax, LABMIN.6051@GOTOFF(%esi) jmp .L1321 .L1430: 778 %FINISH 779 VAL = INTEGER(VAL) movl 60(%ebx), %eax movl %eax, -24(%ebp) .LBB414: .LBB415: movl -24(%ebp), %eax .LBE415: .LBE414: movl (%eax), %eax movl %eax, 60(%ebx) 780 FAULT('U') %IF VAL = 0 movl 60(%ebx), %eax testl %eax, %eax jne .L1431 subl $12, %esp pushl $85 movl %ebx, %ecx call FAULT.6097 addl $16, %esp jmp .L1324 .L1431: nop .L1324: 781 TYPE = TYPE-FMASK movl FMASK.6027@GOTOFF(%esi), %eax movl 56(%ebx), %edx subl %eax, %edx movl %edx, %eax movl %eax, 56(%ebx) jmp .L1326 .L1317: .L1325: .L1428: 782 %FINISH 783 %FINISH 784 %FINISH 785 PEND = 0 movl $0, %eax movl %eax, (%ebx) 786 %IF TYPE = REG %AND TERM = '(' %START movl REG.6029@GOTOFF(%esi), %eax movl 56(%ebx), %edx cmpl %eax, %edx jne .L1432 movl 12(%ebx), %eax cmpl $40, %eax jne .L1433 nop jmp .L1328 .L1433: nop .L1328: 787 TYPE = 0 %IF SAVE&1 = 0; VAL = VAL+SAVE; !? movl SAVE.6065@GOTOFF(%esi), %eax andl $1, %eax testl %eax, %eax jne .L1434 movl $0, %eax movl %eax, 56(%ebx) jmp .L1331 .L1434: nop .L1331: movl SAVE.6065@GOTOFF(%esi), %eax movl 60(%ebx), %edx addl %edx, %eax movl %eax, 60(%ebx) jmp .L1328 .L1432: 788 %FINISH 789 %IF MODE # 0 %START movl 20(%ebx), %eax testl %eax, %eax je .L1435 nop jmp .L1341 .L1437: 790 FAULT('I') %AND TYPE=0 %IF TYPE&OPMASK # 0 movl OPMASK.6025@GOTOFF(%esi), %eax testl %eax, %eax sete %al movzbl %al, %eax movl 56(%ebx), %edx andl %edx, %eax testl %eax, %eax jne .L1436 subl $12, %esp pushl $73 movl %ebx, %ecx call FAULT.6097 addl $16, %esp movl $0, %eax movl %eax, 56(%ebx) jmp .L1335 .L1436: nop .L1335: 791 %IF TYPE®XMASK # 0 %START movl REGXMASK.6033@GOTOFF(%esi), %eax testl %eax, %eax sete %al movzbl %al, %eax movl 56(%ebx), %edx andl %edx, %eax testl %eax, %eax jne .L1437 nop jmp .L1341 .L1439: 792 I = TYPE&15; I = VAL %IF I = 0 movl 56(%ebx), %eax andl $15, %eax movl %eax, -48(%ebp) cmpl $0, -48(%ebp) jne .L1438 movl 60(%ebx), %eax movl %eax, -48(%ebp) jmp .L1338 .L1438: nop .L1338: 793 DUSE = DUSE+1 %IF I = DREG movl 36(%ebx), %eax cmpl %eax, -48(%ebp) jne .L1439 movl 32(%ebx), %eax addl $1, %eax movl %eax, 32(%ebx) jmp .L1341 .L1333: .L1340: .L1435: nop .L1341: 794 %FINISH 795 %FINISH 796 %IF TERM = '(' %START movl 12(%ebx), %eax cmpl $40, %eax jne .L1440 nop .L1343: 797 GET SYM movl %ebx, %ecx call GETSYM.6439 798 I = TYPE&31 movl 56(%ebx), %eax andl $31, %eax movl %eax, -48(%ebp) 799 QUEUE(TYPE-I); QUEUE(VAL) movl 56(%ebx), %eax subl -48(%ebp), %eax subl $12, %esp pushl %eax movl %ebx, %ecx call QUEUE.6515 addl $16, %esp movl 60(%ebx), %eax subl $12, %esp pushl %eax movl %ebx, %ecx call QUEUE.6515 addl $16, %esp 800 NEST(-21); NEST(0) subl $12, %esp pushl $-21 movl %ebx, %ecx call NEST.6167 addl $16, %esp subl $12, %esp pushl $0 movl %ebx, %ecx call NEST.6167 addl $16, %esp 801 %IF I # 0 %START cmpl $0, -48(%ebp) je .L1441 nop .L1345: 802 QUEUE(REG); QUEUE(I&15) movl REG.6029@GOTOFF(%esi), %eax subl $12, %esp pushl %eax movl %ebx, %ecx call QUEUE.6515 addl $16, %esp movl -48(%ebp), %eax andl $15, %eax subl $12, %esp pushl %eax movl %ebx, %ecx call QUEUE.6515 addl $16, %esp 803 NEST(-1) subl $12, %esp pushl $-1 movl %ebx, %ecx call NEST.6167 addl $16, %esp 804 %FINISH 805 ->E1 jmp .L1311 .L1441: jmp .L1311 .L1440: 806 %FINISH 807 %finish %ELSE %IF '0' <= SYM <= '9' %START jmp .L1346 .L1426: movl 16(%ebx), %eax movl %eax, -40(%ebp) cmpl $47, -40(%ebp) jle .L1442 cmpl $57, -40(%ebp) jg .L1443 .LBE416: nop jmp .L1348 .L1443: nop .L1348: .LBE420: 808 TYPE = 0; VAL = SYM-'0' movl $0, %eax movl %eax, 56(%ebx) movl 16(%ebx), %eax subl $48, %eax movl %eax, 60(%ebx) .L1350: 809 %CYCLE 810 SYM = CHAR(GETPOS)-'0' movl GETPOS.6037@GOTOFF(%esi), %eax subl $12, %esp pushl %eax movl %ebx, %ecx call CHAR.6091 addl $16, %esp subl $48, %eax movl %eax, 16(%ebx) .LBB417: 811 %EXIT %UNLESS 0 <= SYM <= 9 movl 16(%ebx), %eax movl %eax, -36(%ebp) cmpl $0, -36(%ebp) js .L1444 cmpl $9, -36(%ebp) jle .L1445 .LBE417: jmp .L1352 .L1444: .LBB418: nop .L1352: .LBE418: nop .L1354: nop .L1353: .LBE419: 812 VAL = (VAL<<2+VAL)<<1+SYM movl 60(%ebx), %eax leal 0(,%eax,4), %edx movl 60(%ebx), %eax addl %edx, %eax leal (%eax,%eax), %edx movl 16(%ebx), %eax addl %edx, %eax movl %eax, 60(%ebx) 813 GETPOS = GETPOS+1 movl GETPOS.6037@GOTOFF(%esi), %eax addl $1, %eax movl %eax, GETPOS.6037@GOTOFF(%esi) 814 %REPEAT jmp .L1350 .L1442: .LBB420: 815 GET SYM movl %ebx, %ecx call GETSYM.6439 816 %finish %ELSE %IF SYM = 'X' %START jmp .L1346 .L1445: .LBB419: movl 16(%ebx), %eax cmpl $88, %eax jne .L1446 nop 817 TYPE = 0; VAL = 0 movl $0, %eax movl %eax, 56(%ebx) movl $0, %eax movl %eax, 60(%ebx) .L1357: 818 %CYCLE 819 SYM = CHAR(GETPOS)-128 movl GETPOS.6037@GOTOFF(%esi), %eax subl $12, %esp pushl %eax movl %ebx, %ecx call CHAR.6091 addl $16, %esp addl $-128, %eax movl %eax, 16(%ebx) 820 %EXIT %IF SYM < 0 movl 16(%ebx), %eax testl %eax, %eax js .L1447 nop .L1359: nop .L1360: 821 SYM = SYM-32 %IF SYM >= 96; !ENSURE UPPER-CASE movl 16(%ebx), %eax cmpl $95, %eax jle .L1448 movl 16(%ebx), %eax subl $32, %eax movl %eax, 16(%ebx) jmp .L1362 .L1448: nop .L1362: .LBB421: 822 %IF '0' <= SYM <= '9' %OR 'A' <= SYM <= 'F' %START movl 16(%ebx), %eax movl %eax, -32(%ebp) cmpl $47, -32(%ebp) jle .L1449 cmpl $57, -32(%ebp) jle .L1450 .LBE421: jmp .L1364 .L1449: .LBB422: nop .L1364: .LBE422: .LBB423: movl 16(%ebx), %eax movl %eax, -28(%ebp) cmpl $64, -28(%ebp) jle .L1451 cmpl $70, -28(%ebp) jg .L1452 .LBE423: jmp .L1365 .L1450: .LBB424: nop .L1365: .LBE424: nop jmp .L1367 .L1452: nop .L1367: .LBE425: 823 VAL = VAL<<4+SYM-'0' movl 60(%ebx), %eax sall $4, %eax movl %eax, %edx movl 16(%ebx), %eax addl %edx, %eax subl $48, %eax movl %eax, 60(%ebx) 824 VAL = VAL-7 %IF SYM >= 'A' movl 16(%ebx), %eax cmpl $64, %eax jle .L1453 movl 60(%ebx), %eax subl $7, %eax movl %eax, 60(%ebx) nop .L1369: 825 %finish %ELSE FAULT('H') jmp .L1370 .L1453: jmp .L1370 .L1451: .LBB425: subl $12, %esp pushl $72 movl %ebx, %ecx call FAULT.6097 addl $16, %esp .L1370: 826 GETPOS = GETPOS+1 movl GETPOS.6037@GOTOFF(%esi), %eax addl $1, %eax movl %eax, GETPOS.6037@GOTOFF(%esi) 827 %REPEAT jmp .L1357 .L1447: 828 GET SYM movl %ebx, %ecx call GETSYM.6439 829 %finish %ELSE %IF SYM&128 # 0 %START jmp .L1346 .L1356: .L1446: 830 TYPE = 0; VAL = SYM-128 movl $0, %eax movl %eax, 56(%ebx) movl 16(%ebx), %eax addl $-128, %eax movl %eax, 60(%ebx) 831 GET SYM movl %ebx, %ecx call GETSYM.6439 832 %IF MODE >= 0 %AND SYM&128 # 0 %START movl 20(%ebx), %eax testl %eax, %eax js .L1454 nop .L1372: .L1455: 833 VAL = VAL<<8+SYM-128; GET SYM movl 60(%ebx), %eax sall $8, %eax movl %eax, %edx movl 16(%ebx), %eax addl %edx, %eax addl $-128, %eax movl %eax, 60(%ebx) movl %ebx, %ecx call GETSYM.6439 834 %FINISH 835 %finish %ELSE %IF S('.') %START jmp .L1455 .L1454: nop .L1346: 836 ->ERR %IF %NOT TAG 837 TYPE = 0; VAL = TAG1 838 %finish %ELSE %IF S('*') %START 839 TYPE = LOCTYPE&63; VAL = LOC 840 %IF SYM = 'L' %START; !FOR NOW 841 TYPE = 0; VAL = LIST %IF TAG 842 %FINISH 843 %finish %ELSE %IF SYM = '-' %START 844 TYPE = 0; VAL = 0 845 %finish %ELSE %IF SYM = '\' %START 846 TYPE = 0; VAL = \0 847 %finish %ELSE ->ERR 848 QUEUE(TYPE); QUEUE(VAL) movl 56(%ebx), %eax subl $12, %esp pushl %eax movl %ebx, %ecx call QUEUE.6515 addl $16, %esp movl 60(%ebx), %eax subl $12, %esp pushl %eax movl %ebx, %ecx call QUEUE.6515 addl $16, %esp .L1373: 849 850 %WHILE NP # NBASE %CYCLE movl NP.6054@GOTOFF(%esi), %eax cmpl %eax, -44(%ebp) je .L1456 nop jmp .L1375 .L1458: 851 %IF INTEGER(NP) < 0 %START movl NP.6054@GOTOFF(%esi), %eax movl %eax, -20(%ebp) .LBB426: .LBB427: movl -20(%ebp), %eax .LBE427: .LBE426: movl (%eax), %eax testl %eax, %eax jns .L1457 nop .L1378: 852 QUEUE(INTEGER(NP)) movl NP.6054@GOTOFF(%esi), %eax movl %eax, -16(%ebp) .LBB428: .LBB429: movl -16(%ebp), %eax .LBE429: .LBE428: movl (%eax), %eax subl $12, %esp pushl %eax movl %ebx, %ecx call QUEUE.6515 addl $16, %esp 853 %finish %ELSE %START jmp .L1382 .L1457: 854 %EXIT %IF %NOT S(')') subl $12, %esp pushl $41 movl %ebx, %ecx call S.6444 addl $16, %esp testl %eax, %eax je .L1458 .L1380: nop .L1382: nop .L1375: 855 %FINISH 856 NP = NP+1 movl NP.6054@GOTOFF(%esi), %eax addl $1, %eax movl %eax, NP.6054@GOTOFF(%esi) 857 %REPEAT jmp .L1373 .L1456: 858 859 NEST(-1) %AND ->E1 %IF S('+') subl $12, %esp pushl $43 movl %ebx, %ecx call S.6444 addl $16, %esp testl %eax, %eax je .L1459 subl $12, %esp pushl $-1 movl %ebx, %ecx call NEST.6167 addl $16, %esp jmp .L1311 .L1459: nop .L1384: 860 NEST(-2) %AND ->E1 %IF S('-') subl $12, %esp pushl $45 movl %ebx, %ecx call S.6444 addl $16, %esp testl %eax, %eax je .L1460 subl $12, %esp pushl $-2 movl %ebx, %ecx call NEST.6167 addl $16, %esp jmp .L1311 .L1460: nop .L1386: 861 NEST(-3) %AND ->E1 %IF S('&') subl $12, %esp pushl $38 movl %ebx, %ecx call S.6444 addl $16, %esp testl %eax, %eax je .L1461 subl $12, %esp pushl $-3 movl %ebx, %ecx call NEST.6167 addl $16, %esp jmp .L1311 .L1461: nop .L1388: 862 NEST(-4) %AND ->E1 %IF S('!') subl $12, %esp pushl $33 movl %ebx, %ecx call S.6444 addl $16, %esp testl %eax, %eax je .L1462 subl $12, %esp pushl $-4 movl %ebx, %ecx call NEST.6167 addl $16, %esp jmp .L1311 .L1462: nop .L1390: 863 NEST(-5) %AND ->E1 %IF S('\') subl $12, %esp pushl $92 movl %ebx, %ecx call S.6444 addl $16, %esp testl %eax, %eax je .L1463 subl $12, %esp pushl $-5 movl %ebx, %ecx call NEST.6167 addl $16, %esp jmp .L1311 .L1463: nop .L1392: 864 NEST(-6) %AND ->E1 %IF SS('<') subl $12, %esp pushl $60 movl %ebx, %ecx call SS.6448 addl $16, %esp testl %eax, %eax je .L1464 subl $12, %esp pushl $-6 movl %ebx, %ecx call NEST.6167 addl $16, %esp jmp .L1311 .L1464: nop .L1394: 865 NEST(-7) %AND ->E1 %IF SS('>') subl $12, %esp pushl $62 movl %ebx, %ecx call SS.6448 addl $16, %esp testl %eax, %eax je .L1465 subl $12, %esp pushl $-7 movl %ebx, %ecx call NEST.6167 addl $16, %esp jmp .L1311 .L1465: nop .L1396: 866 NEST(-8) %AND ->E1 %IF S('_') subl $12, %esp pushl $95 movl %ebx, %ecx call S.6444 addl $16, %esp testl %eax, %eax je .L1466 subl $12, %esp pushl $-8 movl %ebx, %ecx call NEST.6167 addl $16, %esp jmp .L1311 .L1466: nop .L1398: 867 %RETURN %IF NP = NBASE movl NP.6054@GOTOFF(%esi), %eax cmpl %eax, -44(%ebp) je .L1467 nop .L1400: .L1402: nop .L1303: 868 ERR:NP = NBASE movl -44(%ebp), %eax movl %eax, NP.6054@GOTOFF(%esi) 869 !!%MONITOR 19 870 %END nop jmp .L1303 .L1467: movl -12(%ebp), %eax xorl %gs:20, %eax je .L1403 call __stack_chk_fail_local .L1403: leal -8(%ebp), %esp popl %ebx popl %esi popl %ebp ret .LFE227: GETCOND.6590: .LFB228: 871 872 %ROUTINE GET COND pushl %ebp movl %esp, %ebp pushl %esi pushl %ebx subl $32, %esp call __x86.get_pc_thunk.si addl $_GLOBAL_OFFSET_TABLE_, %esi movl %ecx, %ebx movl %ecx, -28(%ebp) 873 %OWNINTEGER AND=1717, OR=16873 874 %INTEGER J,K 875 TRANSF = QSTART; QSTART = QLIM movl QSTART.6045@GOTOFF(%esi), %eax movl %eax, TRANSF.6047@GOTOFF(%esi) movl QLIM.6046@GOTOFF(%esi), %eax movl %eax, QSTART.6045@GOTOFF(%esi) 876 J = 0 movl $0, -12(%ebp) .L1469: 877 %CYCLE 878 GET EXP movl %ebx, %ecx call GETEXP.6518 879 %IF S('=') %START subl $12, %esp pushl $61 movl %ebx, %ecx call S.6444 addl $16, %esp testl %eax, %eax je .L1496 nop .L1471: 880 K = 5 movl $5, -16(%ebp) 881 %finish %ELSE %IF S('#') %START jmp .L1472 .L1496: subl $12, %esp pushl $35 movl %ebx, %ecx call S.6444 addl $16, %esp testl %eax, %eax je .L1497 nop .L1474: 882 K = 4 movl $4, -16(%ebp) 883 %finish %ELSE %IF S('<') %START jmp .L1472 .L1497: subl $12, %esp pushl $60 movl %ebx, %ecx call S.6444 addl $16, %esp testl %eax, %eax je .L1498 nop .L1476: 884 K = 3; K = 7 %IF S('=') movl $3, -16(%ebp) subl $12, %esp pushl $61 movl %ebx, %ecx call S.6444 addl $16, %esp testl %eax, %eax je .L1499 movl $7, -16(%ebp) nop .L1478: 885 %finish %ELSE %IF S('>') %START jmp .L1472 .L1499: jmp .L1472 .L1498: subl $12, %esp pushl $62 movl %ebx, %ecx call S.6444 addl $16, %esp testl %eax, %eax je .L1500 nop .L1480: 886 K = 6; K = 2 %IF S('=') movl $6, -16(%ebp) subl $12, %esp pushl $61 movl %ebx, %ecx call S.6444 addl $16, %esp testl %eax, %eax je .L1501 movl $2, -16(%ebp) nop .L1482: 887 %finish %ELSE %START jmp .L1472 .L1501: jmp .L1472 .L1500: 888 QUEUE(-12) subl $12, %esp pushl $-12 movl %ebx, %ecx call QUEUE.6515 addl $16, %esp 889 %RETURN jmp .L1468 .L1472: 890 %FINISH 891 GET EXP movl %ebx, %ecx call GETEXP.6518 892 QUEUE(-2); !SUBTRACT subl $12, %esp pushl $-2 movl %ebx, %ecx call QUEUE.6515 addl $16, %esp 893 QUEUE(-11); QUEUE(K) subl $12, %esp pushl $-11 movl %ebx, %ecx call QUEUE.6515 addl $16, %esp subl $12, %esp pushl -16(%ebp) movl %ebx, %ecx call QUEUE.6515 addl $16, %esp 894 %RETURN %IF %NOT TAG movl %ebx, %ecx call TAG.6454 testl %eax, %eax je .L1502 nop .L1485: nop .L1468: 895 %IF TAG1 = AND %AND TAG2 = 0 %START movl AND.6592@GOTOFF(%esi), %eax movl 8(%ebx), %edx cmpl %eax, %edx jne .L1503 movl 4(%ebx), %eax testl %eax, %eax jne .L1504 nop jmp .L1487 .L1504: nop .L1487: 896 !!%MONITOR 19 %IF J < 0 897 J = 1; QUEUE(-13) movl $1, -12(%ebp) subl $12, %esp pushl $-13 movl %ebx, %ecx call QUEUE.6515 addl $16, %esp 898 %finish %ELSE %START jmp .L1489 .L1503: 899 !!%MONITOR 19 %IF TAG1 # OR %OR J > 0 900 J = -1; QUEUE(-14) movl $-1, -12(%ebp) subl $12, %esp pushl $-14 movl %ebx, %ecx call QUEUE.6515 addl $16, %esp .L1489: 901 %FINISH 902 %REPEAT jmp .L1469 .L1502: 903 %END leal -8(%ebp), %esp popl %ebx popl %esi popl %ebp ret .LFE228: GETINST.6608: .LFB229: ?OR unused 904 905 %ROUTINE GET INST pushl %ebp movl %esp, %ebp pushl %ebx subl $20, %esp call __x86.get_pc_thunk.ax addl $_GLOBAL_OFFSET_TABLE_, %eax movl %ecx, %ebx movl %ecx, -12(%ebp) 906 %INTEGER I 907 QUEUE(TYPE); QUEUE(VAL) movl 56(%ebx), %eax pushl %eax movl %ebx, %ecx call QUEUE.6515 addl $4, %esp movl 60(%ebx), %eax pushl %eax movl %ebx, %ecx call QUEUE.6515 addl $4, %esp 908 %RETURN %IF TERM # ' '; !NO OPERAND FOLLOWING => movl 12(%ebx), %eax cmpl $32, %eax jne .L1512 nop .L1507: .L1509: nop jmp .L1505 .L1513: 909 %CYCLE 910 GET EXP movl %ebx, %ecx call GETEXP.6518 911 QUEUE(-22) subl $12, %esp pushl $-22 movl %ebx, %ecx call QUEUE.6515 addl $16, %esp 912 %RETURN %IF %NOT S(',') subl $12, %esp pushl $44 movl %ebx, %ecx call S.6444 addl $16, %esp testl %eax, %eax je .L1513 nop .L1511: nop .L1505: 913 %REPEAT jmp .L1507 .L1512: 914 %END movl -4(%ebp), %ebx leave ret .LFE229: READLINE.6615: .LFB230: ?I unused 915 916 %ROUTINE READ LINE pushl %ebp movl %esp, %ebp pushl %esi pushl %ebx subl $80, %esp call __x86.get_pc_thunk.bx addl $_GLOBAL_OFFSET_TABLE_, %ebx movl %ecx, %esi movl %ecx, -76(%ebp) movl %gs:20, %eax movl %eax, -12(%ebp) xorl %eax, %eax 917 %INTEGER Q 918 PUTPOS = STARTPOS movl STARTPOS.6036@GOTOFF(%ebx), %eax movl %eax, PUTPOS.6038@GOTOFF(%ebx) 919 %IF MP = 0 %START movl MP.6043@GOTOFF(%ebx), %eax testl %eax, %eax jne .L1583 nop .L1516: 920 Q = 0; PSEUDOLIM = 0 movl $0, -68(%ebp) movl $0, PSEUDOLIM.6039@GOTOFF(%ebx) .L1517: 921 %CYCLE 922 READ SYMBOL(SYM) leal 16(%esi), %eax movl %eax, -64(%ebp) .LBB430: .LBB431: subl $12, %esp pushl -64(%ebp) call _imp_readsymbol@PLT addl $16, %esp .LBE431: .LBE430: 923 READ SYMBOL(SYM) %AND Q=Q!!128 %IF SYM = '''' movl 16(%esi), %eax cmpl $39, %eax jne .L1584 leal 16(%esi), %eax movl %eax, -60(%ebp) .LBB432: .LBB433: subl $12, %esp pushl -60(%ebp) call _imp_readsymbol@PLT addl $16, %esp .LBE433: .LBE432: xorl $128, -68(%ebp) jmp .L1519 .L1584: nop .L1519: 924 %EXIT %IF SYM = NL movl 16(%esi), %eax cmpl $10, %eax je .L1585 nop .L1521: nop jmp .L1522 .L1588: 925 SYM = SYM-32 %IF SYM-Q >= 96; !LOWER-CASE -> UPPER-CASE movl 16(%esi), %eax subl -68(%ebp), %eax cmpl $95, %eax jle .L1586 movl 16(%esi), %eax subl $32, %eax movl %eax, 16(%esi) jmp .L1524 .L1586: nop .L1524: 926 SYM = SYM+Q movl 16(%esi), %edx movl -68(%ebp), %eax addl %edx, %eax movl %eax, 16(%esi) 927 %EXIT %IF SYM = '/' %AND PSEUDOLIM # 0 movl 16(%esi), %eax cmpl $47, %eax jne .L1587 movl PSEUDOLIM.6039@GOTOFF(%ebx), %eax testl %eax, %eax jne .L1588 jmp .L1526 .L1587: nop .L1526: nop .L1522: 928 %IF SYM = ' ' %START movl 16(%esi), %eax cmpl $32, %eax jne .L1589 nop .L1529: 929 PSEUDOLIM = PUTPOS %IF PSEUDOLIM = 0 movl PSEUDOLIM.6039@GOTOFF(%ebx), %eax testl %eax, %eax jne .L1590 movl PUTPOS.6038@GOTOFF(%ebx), %eax movl %eax, PSEUDOLIM.6039@GOTOFF(%ebx) nop .L1531: 930 %finish %ELSE PSEUDOLIM = 0 jmp .L1532 .L1590: jmp .L1532 .L1589: movl $0, PSEUDOLIM.6039@GOTOFF(%ebx) .L1532: 931 PUT CHAR(SYM) movl 16(%esi), %eax subl $12, %esp pushl %eax movl %esi, %ecx call PUTCHAR.6094 addl $16, %esp 932 %REPEAT jmp .L1517 .L1585: 933 %IF PSEUDOLIM # 0 %START movl PSEUDOLIM.6039@GOTOFF(%ebx), %eax testl %eax, %eax je .L1591 nop .L1535: .L1539: 934 Q = PUTPOS; PUTPOS = PSEUDOLIM movl PUTPOS.6038@GOTOFF(%ebx), %eax movl %eax, -68(%ebp) movl PSEUDOLIM.6039@GOTOFF(%ebx), %eax movl %eax, PUTPOS.6038@GOTOFF(%ebx) 935 PUT CHAR(NL) subl $12, %esp pushl $10 movl %esi, %ecx call PUTCHAR.6094 addl $16, %esp 936 PUTPOS = Q movl -68(%ebp), %eax movl %eax, PUTPOS.6038@GOTOFF(%ebx) jmp .L1539 .L1534: .L1591: 937 %FINISH 938 %CYCLE 939 PUT CHAR(SYM) movl 16(%esi), %eax subl $12, %esp pushl %eax movl %esi, %ecx call PUTCHAR.6094 addl $16, %esp 940 %EXIT %IF SYM = NL movl 16(%esi), %eax cmpl $10, %eax je .L1592 nop .L1537: nop .L1538: 941 READ SYMBOL(SYM) leal 16(%esi), %eax movl %eax, -56(%ebp) .LBB434: .LBB435: subl $12, %esp pushl -56(%ebp) call _imp_readsymbol@PLT addl $16, %esp .LBE435: .LBE434: 942 %REPEAT jmp .L1539 .L1592: 943 PRINTPOS = STARTPOS movl STARTPOS.6036@GOTOFF(%ebx), %eax movl %eax, PRINTPOS.6040@GOTOFF(%ebx) 944 %finish %ELSE %START jmp .L1574 .L1583: 945 GETPOS = INTEGER(MP) movl MP.6043@GOTOFF(%ebx), %eax movl %eax, -52(%ebp) .LBB436: .LBB437: movl -52(%ebp), %eax .LBE437: .LBE436: movl (%eax), %eax movl %eax, GETPOS.6037@GOTOFF(%ebx) 946 %IF CHAR(GETPOS) = 0 %START movl GETPOS.6037@GOTOFF(%ebx), %eax subl $12, %esp pushl %eax movl %esi, %ecx call CHAR.6091 addl $16, %esp testl %eax, %eax jne .L1593 nop 947 QBASE = MP movl MP.6043@GOTOFF(%ebx), %eax movl %eax, QBASE.6044@GOTOFF(%ebx) 948 %IF INTEGER(MP+1)&16_8000 # 0 %START movl MP.6043@GOTOFF(%ebx), %eax addl $1, %eax movl %eax, -48(%ebp) 949 %WHILE INTEGER(NP)&16_8000 = 0 %CYCLE nop .L1545: movl NP.6054@GOTOFF(%ebx), %eax movl %eax, -44(%ebp) .LBB438: .LBB439: movl -44(%ebp), %eax .LBE439: .LBE438: movl (%eax), %eax andl $1, %eax testl %eax, %eax jne .L1594 nop .L1548: 950 FAULT('C'); NP = NP+2 subl $12, %esp pushl $67 movl %esi, %ecx call FAULT.6097 addl $16, %esp movl NP.6054@GOTOFF(%ebx), %eax addl $2, %eax movl %eax, NP.6054@GOTOFF(%ebx) 951 %REPEAT jmp .L1545 .L1594: 952 SET LAB(LOC) movl 68(%esi), %eax subl $12, %esp pushl %eax movl %esi, %ecx call SETLAB.6170 addl $16, %esp .L1549: 953 %FINISH 954 GETPOS = INTEGER(MP+2) movl MP.6043@GOTOFF(%ebx), %eax addl $2, %eax movl %eax, -32(%ebp) .LBB440: .LBB441: movl -32(%ebp), %eax .LBE441: .LBE440: movl (%eax), %eax movl %eax, GETPOS.6037@GOTOFF(%ebx) 955 STARTPOS = INTEGER(MP+3) movl MP.6043@GOTOFF(%ebx), %eax addl $3, %eax movl %eax, -36(%ebp) .LBB442: .LBB443: movl -36(%ebp), %eax .LBE443: .LBE442: movl (%eax), %eax movl %eax, STARTPOS.6036@GOTOFF(%ebx) 956 MP = INTEGER(MP+4) movl MP.6043@GOTOFF(%ebx), %eax addl $4, %eax movl %eax, -40(%ebp) .LBB444: .LBB445: movl -40(%ebp), %eax .LBE445: .LBE444: movl (%eax), %eax movl %eax, MP.6043@GOTOFF(%ebx) 957 PRINTPOS = 0 %IF LIST&2 # 0 movl $0, PRINTPOS.6040@GOTOFF(%ebx) .L1553: 958 GET SYM; !TERMINATOR movl %esi, %ecx call GETSYM.6439 959 GET SYM %IF SYM = ';' movl 16(%esi), %eax cmpl $59, %eax jne .L1595 movl %esi, %ecx call GETSYM.6439 nop .L1555: 960 %RETURN jmp .L1514 .L1595: jmp .L1514 .L1543: .L1593: 961 %FINISH 962 PRINTPOS = STARTPOS %IF LIST&2 # 0 movl STARTPOS.6036@GOTOFF(%ebx), %eax movl %eax, PRINTPOS.6040@GOTOFF(%ebx) .L1557: .L1558: 963 %CYCLE 964 SYM = CHAR(GETPOS); GETPOS = GETPOS+1 movl GETPOS.6037@GOTOFF(%ebx), %eax subl $12, %esp pushl %eax movl %esi, %ecx call CHAR.6091 addl $16, %esp movl %eax, 16(%esi) movl GETPOS.6037@GOTOFF(%ebx), %eax addl $1, %eax movl %eax, GETPOS.6037@GOTOFF(%ebx) 965 %IF TAG %START movl %esi, %ecx call TAG.6454 testl %eax, %eax je .L1596 nop jmp .L1566 .L1598: 966 SYM=TERM %AND GETPOS=GETPOS-1 %IF TERM = ' ' movl 12(%esi), %eax cmpl $32, %eax jne .L1597 movl 12(%esi), %eax movl %eax, 16(%esi) movl GETPOS.6037@GOTOFF(%ebx), %eax subl $1, %eax movl %eax, GETPOS.6037@GOTOFF(%ebx) jmp .L1562 .L1597: nop .L1562: 967 TYPE = INTEGER(MP); VAL = GETPOS-1 movl MP.6043@GOTOFF(%ebx), %eax movl %eax, -28(%ebp) .LBB446: .LBB447: movl -28(%ebp), %eax .LBE447: .LBE446: movl (%eax), %eax movl %eax, 56(%esi) movl GETPOS.6037@GOTOFF(%ebx), %eax subl $1, %eax movl %eax, 60(%esi) 968 LOOKUP(4) subl $12, %esp pushl $4 movl %esi, %ecx call LOOKUP.6488 addl $16, %esp .L1564: 969 %WHILE TYPE # VAL %CYCLE movl 56(%esi), %edx movl 60(%esi), %eax cmpl %eax, %edx je .L1598 nop .L1566: 970 PUT CHAR(CHAR(TYPE)) movl 56(%esi), %eax subl $12, %esp pushl %eax movl %esi, %ecx call CHAR.6091 addl $16, %esp subl $12, %esp pushl %eax movl %esi, %ecx call PUTCHAR.6094 addl $16, %esp 971 TYPE = TYPE+1 movl 56(%esi), %eax addl $1, %eax movl %eax, 56(%esi) 972 %REPEAT jmp .L1564 .L1560: .L1596: 973 %FINISH 974 %IF SYM = '?' %START movl 16(%esi), %eax cmpl $63, %eax jne .L1599 nop .L1568: 975 PUT CHAR(INTEGER(MP+1)>>5&31+'A') movl MP.6043@GOTOFF(%ebx), %eax addl $1, %eax movl %eax, -20(%ebp) .LBB448: .LBB449: movl -20(%ebp), %eax .LBE449: .LBE448: movl (%eax), %eax shrl $5, %eax andl $31, %eax addl $65, %eax subl $12, %esp pushl %eax movl %esi, %ecx call PUTCHAR.6094 addl $16, %esp 976 SYM = INTEGER(MP+1)&31+'A' movl MP.6043@GOTOFF(%ebx), %eax addl $1, %eax movl %eax, -24(%ebp) .LBB450: .LBB451: movl -24(%ebp), %eax .LBE451: .LBE450: movl (%eax), %eax andl $31, %eax addl $65, %eax movl %eax, 16(%esi) jmp .L1568 .L1599: 977 %FINISH 978 PUT CHAR(SYM) movl 16(%esi), %eax subl $12, %esp pushl %eax movl %esi, %ecx call PUTCHAR.6094 addl $16, %esp 979 INTEGER(MP) = GETPOS movl MP.6043@GOTOFF(%ebx), %eax movl %eax, -16(%ebp) .LBB452: .LBB453: movl -16(%ebp), %eax .LBE453: .LBE452: movl GETPOS.6037@GOTOFF(%ebx), %edx movl %edx, (%eax) 980 %EXIT %IF SYM = NL movl 16(%esi), %eax cmpl $10, %eax je .L1600 nop .L1573: nop .L1574: 981 %REPEAT jmp .L1557 .L1540: .L1600: 982 %FINISH 983 QBASE = (PUTPOS+1)>>1 movl PUTPOS.6038@GOTOFF(%ebx), %eax addl $1, %eax shrl %eax movl %eax, QBASE.6044@GOTOFF(%ebx) 984 GETPOS = STARTPOS; GET SYM movl STARTPOS.6036@GOTOFF(%ebx), %eax movl %eax, GETPOS.6037@GOTOFF(%ebx) movl %esi, %ecx call GETSYM.6439 985 %END nop .L1514: movl -12(%ebp), %eax xorl %gs:20, %eax je .L1575 call __stack_chk_fail_local .L1575: leal -8(%ebp), %esp popl %ebx popl %esi popl %ebp ret .LFE230: SCANARG.6649: .LFB231: 986 987 %ROUTINE SCAN ARG pushl %ebp movl %esp, %ebp pushl %esi pushl %ebx subl $32, %esp call __x86.get_pc_thunk.si addl $_GLOBAL_OFFSET_TABLE_, %esi movl %ecx, %ebx movl %ecx, -28(%ebp) movl %gs:20, %eax movl %eax, -12(%ebp) xorl %eax, %eax 988 ! SET TYPE,VAL TO START,LIM OF ARG IF NOT NULL 989 %INTEGER I,J 990 %RETURN %IF SYM='I' %AND CHAR(GETPOS)='F' %AND CHAR(GETPOS+1)=' ' movl 16(%ebx), %eax cmpl $73, %eax jne .L1629 movl GETPOS.6037@GOTOFF(%esi), %eax pushl %eax movl %ebx, %ecx call CHAR.6091 addl $4, %esp cmpl $70, %eax jne .L1630 movl GETPOS.6037@GOTOFF(%esi), %eax addl $1, %eax pushl %eax movl %ebx, %ecx call CHAR.6091 addl $4, %esp cmpl $32, %eax je .L1631 jmp .L1603 .L1629: nop jmp .L1603 .L1630: nop .L1603: nop .L1601: 991 I = GETPOS-1; I = GETPOS %IF SYM = '[' movl GETPOS.6037@GOTOFF(%esi), %eax subl $1, %eax movl %eax, -20(%ebp) movl 16(%ebx), %eax cmpl $91, %eax jne .L1632 movl GETPOS.6037@GOTOFF(%esi), %eax movl %eax, -20(%ebp) jmp .L1608 .L1632: nop .L1608: 992 J = 0 movl $0, -16(%ebp) .L1609: 993 %CYCLE 994 %EXIT %IF SYM = NL movl 16(%ebx), %eax cmpl $10, %eax je .L1633 nop .L1611: nop jmp .L1612 .L1637: 995 %EXIT %IF (SYM=' ' %OR SYM=',' %OR SYM=';') %AND J<=0 movl 16(%ebx), %eax cmpl $32, %eax je .L1634 movl 16(%ebx), %eax cmpl $44, %eax je .L1635 movl 16(%ebx), %eax cmpl $59, %eax jne .L1636 jmp .L1614 .L1634: nop jmp .L1614 .L1635: nop .L1614: cmpl $0, -16(%ebp) jle .L1637 jmp .L1616 .L1636: nop .L1616: nop jmp .L1612 .L1640: 996 J = J+1 %IF SYM = '[' movl 16(%ebx), %eax cmpl $91, %eax jne .L1638 addl $1, -16(%ebp) jmp .L1619 .L1638: nop .L1619: 997 %IF SYM = ']' %START movl 16(%ebx), %eax cmpl $93, %eax jne .L1639 nop .L1623: 998 J = J-1; %EXIT %IF J = 0 subl $1, -16(%ebp) cmpl $0, -16(%ebp) je .L1640 jmp .L1623 .L1621: .L1639: nop .L1612: 999 %FINISH 1000 SYM = CHAR(GETPOS); GETPOS = GETPOS+1 movl GETPOS.6037@GOTOFF(%esi), %eax pushl %eax movl %ebx, %ecx call CHAR.6091 addl $4, %esp movl %eax, 16(%ebx) movl GETPOS.6037@GOTOFF(%esi), %eax addl $1, %eax movl %eax, GETPOS.6037@GOTOFF(%esi) 1001 %REPEAT jmp .L1609 .L1633: 1002 %IF GETPOS-1 # I %START movl GETPOS.6037@GOTOFF(%esi), %eax subl $1, %eax cmpl %eax, -20(%ebp) je .L1641 nop .L1625: 1003 TYPE = I; VAL = GETPOS-1 movl -20(%ebp), %eax movl %eax, 56(%ebx) movl GETPOS.6037@GOTOFF(%esi), %eax subl $1, %eax movl %eax, 60(%ebx) jmp .L1625 .L1641: 1004 %FINISH 1005 GET SYM %IF SYM = ']' movl 16(%ebx), %eax cmpl $93, %eax jne .L1642 movl %ebx, %ecx call GETSYM.6439 nop .L1627: 1006 %END jmp .L1627 .L1642: nop jmp .L1601 .L1631: movl -12(%ebp), %eax xorl %gs:20, %eax je .L1628 call __stack_chk_fail_local .L1628: leal -8(%ebp), %esp popl %ebx popl %esi popl %ebp ret .LFE231: SETACC.6666: .LFB232: 1007 1008 %ROUTINE SET ACC pushl %ebp movl %esp, %ebp subl $20, %esp call __x86.get_pc_thunk.dx addl $_GLOBAL_OFFSET_TABLE_, %edx movl %ecx, %eax movl %ecx, -20(%ebp) 1009 %INTEGER I 1010 ACC = -1; ATYPE = -1; CREG = -1 movl $-1, %ecx movl %ecx, 24(%eax) movl $-1, %ecx movl %ecx, 52(%eax) movl $-1, %ecx movl %ecx, 48(%eax) 1011 I = TEMPS movl TEMPS.6066@GOTOFF(%edx), %edx movl %edx, -4(%ebp) 1012 %RETURN %IF I = 0 cmpl $0, -4(%ebp) je .L1648 nop .L1645: .L1647: nop .L1643: 1013 %CYCLE 1014 ACC = ACC+1 movl 24(%eax), %edx addl $1, %edx movl %edx, 24(%eax) 1015 %RETURN %IF I&1 # 0 nop jmp .L1643 .L1648: 1016 I = I>>1 1017 %REPEAT 1018 %END leave ret .LFE232: BNEST.6853: .LFB233: 1019 1020 !MAIN PROGRAM 1021 1022 !RADIX 36 CONSTANTS 1023 %OWNINTEGER B=2184, IF=9991, ELS=5950, E=5403, FIN=6907, ISH=10490 1024 %OWNINTEGER JUM=11642, P=17206, PS=17983, DEF=4605, END=6009 1025 1026 %INTEGER I,J,K 1027 !!%FAULT 19 ->ERR; !RECOGNITION ERROR 1028 !!%FAULT 9 ->BEND; !INPUT ENDED 1029 1030 %CYCLE I = 1,1,SBOUND movl -1076(%ebp), %eax movl %eax, -1056(%ebp) .LBB236: movl -1056(%ebp), %eax subl $1, %eax movl %eax, -1052(%ebp) movl -1052(%ebp), %eax xorl $1, %eax shrl $31, %eax movzbl %al, %eax .LBE236: testl %eax, %eax je .L20 leal -540(%ebp), %eax subl $8, %esp leal .LC1@GOTOFF(%ebx), %edx pushl %edx pushl %eax call _imp_c2istr@PLT addl $12, %esp movl _imp_current_line@GOT(%ebx), %eax movl (%eax), %eax testl %eax, %eax je .L21 movl _imp_current_line@GOT(%ebx), %eax movl (%eax), %eax movl %eax, -1104(%ebp) jmp .L22 .L21: movl $1030, -1104(%ebp) .L22: movl _imp_current_file@GOT(%ebx), %eax movl (%eax), %eax testl %eax, %eax je .L23 movl _imp_current_file@GOT(%ebx), %eax movl (%eax), %edx leal -284(%ebp), %eax subl $8, %esp pushl %edx pushl %eax call _imp_c2istr@PLT addl $12, %esp jmp .L24 .L23: .LBB237: leal -284(%ebp), %eax leal .LC0@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -796(%ebp), %eax leal -284(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE237: leal -284(%ebp), %eax leal -796(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .L24: pushl $0 pushl $1 pushl $5 subl $256, %esp movl %esp, %eax movl %eax, %edi leal -540(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl pushl -1104(%ebp) subl $256, %esp movl %esp, %eax movl %eax, %edi leal -284(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl call _signal_event@PLT addl $528, %esp .L20: movl $0, -1072(%ebp) .L25: movl -1072(%ebp), %eax cmpl -1056(%ebp), %eax je .L359 addl $1, -1072(%ebp) nop .L27: .LBE235: 1031 STORE(I) = 0 movl -1072(%ebp), %eax leal -1(%eax), %edx movl -1060(%ebp), %eax movl $0, (%eax,%edx,4) 1032 %REPEAT jmp .L25 .L359: 1033 CODEPOS = ADDR(STORE(1)) movl -1060(%ebp), %eax movl %eax, -1036(%ebp) .LBB238: .LBB239: movl -1036(%ebp), %eax .LBE239: .LBE238: movl %eax, CODEPOS.6035@GOTOFF(%ebx) 1034 MACLIM = (CODEPOS+20)<<1 movl CODEPOS.6035@GOTOFF(%ebx), %eax addl $20, %eax addl %eax, %eax movl %eax, MACLIM.6042@GOTOFF(%ebx) 1035 STORELIM = ADDR(STORE(SBOUND)) movl -1076(%ebp), %eax subl $1, %eax leal 0(,%eax,4), %edx movl -1060(%ebp), %eax addl %edx, %eax movl %eax, -1040(%ebp) .LBB240: .LBB241: movl -1040(%ebp), %eax .LBE241: .LBE240: movl %eax, STORELIM.6055@GOTOFF(%ebx) 1036 NP = STORELIM movl STORELIM.6055@GOTOFF(%ebx), %eax movl %eax, NP.6054@GOTOFF(%ebx) 1037 LABLIM = NP-60 movl NP.6054@GOTOFF(%ebx), %eax subl $60, %eax movl %eax, LABLIM.6052@GOTOFF(%ebx) 1038 BP = LABLIM movl LABLIM.6052@GOTOFF(%ebx), %eax movl %eax, BP.6053@GOTOFF(%ebx) 1039 DEFLIM = STORELIM-(SBOUND>>2) movl STORELIM.6055@GOTOFF(%ebx), %eax movl %eax, %edx movl -1076(%ebp), %eax shrl $2, %eax subl %eax, %edx movl %edx, %eax movl %eax, DEFLIM.6049@GOTOFF(%ebx) 1040 DEFMIN = DEFLIM movl DEFLIM.6049@GOTOFF(%ebx), %eax movl %eax, DEFMIN.6048@GOTOFF(%ebx) 1041 INTEGER(BP) = DEFLIM movl BP.6053@GOTOFF(%ebx), %eax movl %eax, -1044(%ebp) .LBB242: .LBB243: movl -1044(%ebp), %eax .LBE243: .LBE242: movl DEFLIM.6049@GOTOFF(%ebx), %edx movl %edx, (%eax) 1042 SELECT INPUT(PRE) movl PRE.6022@GOTOFF(%ebx), %eax subl $12, %esp pushl %eax call _imp_SELECTINPUT addl $16, %esp .L31: 1043 DO PASS: 1044 PUT WORD(0) %AND CONTROL=16_20 %IF PASS > 0 movl PASS.6061@GOTOFF(%ebx), %eax testl %eax, %eax jle .L360 subl $12, %esp leal -944(%ebp), %eax pushl $0 movl %eax, %ecx call PUTWORD.6149 addl $16, %esp movl $32, CONTROL.6067@GOTOFF(%ebx) jmp .L33 .L360: nop .L33: 1045 STARTPOS = MACLIM movl MACLIM.6042@GOTOFF(%ebx), %eax movl %eax, STARTPOS.6036@GOTOFF(%ebx) 1046 MP = 0 movl $0, MP.6043@GOTOFF(%ebx) 1047 ALMAX = DEFLIM movl DEFLIM.6049@GOTOFF(%ebx), %eax movl %eax, ALMAX.6050@GOTOFF(%ebx) 1048 LABMIN = LABLIM movl LABLIM.6052@GOTOFF(%ebx), %eax movl %eax, LABMIN.6051@GOTOFF(%ebx) 1049 ASSCOND = 1; SKIP = 0 movl $1, -1080(%ebp) movl $0, -1084(%ebp) 1050 LOCTYPE = MEMMASK+RELMASK; LOC = 0 movl MEMMASK.6030@GOTOFF(%ebx), %edx movl RELMASK.6031@GOTOFF(%ebx), %eax addl %edx, %eax movl %eax, -880(%ebp) movl $0, %eax movl %eax, -876(%ebp) 1051 SET ACC leal -944(%ebp), %eax movl %eax, %ecx call SETACC.6666 .L34: 1052 READ: FSYM = ' '; FAULTPOS = 0 movl $32, %eax movl %eax, -872(%ebp) movl $0, FAULTPOS.6041@GOTOFF(%ebx) 1053 READ LINE leal -944(%ebp), %eax movl %eax, %ecx call READLINE.6615 .L35: 1054 NEXT: 1055 DREG = -1 movl $-1, %eax movl %eax, -908(%ebp) 1056 MODE = 0 movl $0, %eax movl %eax, -924(%ebp) 1057 PEND = 0; COND = 0 movl $0, %eax movl %eax, -944(%ebp) movl $0, %eax movl %eax, -904(%ebp) 1058 QSTART = QBASE; QLIM = QSTART movl QBASE.6044@GOTOFF(%ebx), %eax movl %eax, QSTART.6045@GOTOFF(%ebx) movl QSTART.6045@GOTOFF(%ebx), %eax movl %eax, QLIM.6046@GOTOFF(%ebx) 1059 FLAG = 0 movl $0, %eax movl %eax, -900(%ebp) 1060 %IF S('$') %START subl $12, %esp leal -944(%ebp), %eax pushl $36 movl %eax, %ecx call S.6444 addl $16, %esp testl %eax, %eax je .L361 nop .L37: 1061 ->NEWPAGE %IF SYM = '/' movl -928(%ebp), %eax cmpl $47, %eax je .L362 nop .L39: nop jmp .L276 .L470: 1062 ->ERR %IF %NOT TAG leal -944(%ebp), %eax movl %eax, %ecx call TAG.6454 testl %eax, %eax je .L363 nop .L42: nop jmp .L227 .L387: 1063 ->ASSIF %IF TAG1 = IF movl IF.6673@GOTOFF(%ebx), %eax movl -936(%ebp), %edx cmpl %eax, %edx je .L364 nop .L45: nop .L46: 1064 ->ASSELSE %IF TAG1 = ELS movl ELS.6674@GOTOFF(%ebx), %eax movl -936(%ebp), %edx cmpl %eax, %edx je .L365 nop .L48: nop .L49: 1065 ->ASSFIN %IF TAG1 = FIN movl FIN.6676@GOTOFF(%ebx), %eax movl -936(%ebp), %edx cmpl %eax, %edx je .L366 nop .L51: nop .L52: 1066 ->LEND %IF SKIP # 0 cmpl $0, -1084(%ebp) jne .L367 nop .L54: nop jmp .L55 .L381: 1067 ->DEFINE %IF TAG1 = DEF movl DEF.6681@GOTOFF(%ebx), %eax movl -936(%ebp), %edx cmpl %eax, %edx je .L368 nop .L57: nop jmp .L58 .L369: 1068 ->DEFINE %IF TAG1 = 19625; !RED movl -936(%ebp), %eax cmpl $19625, %eax je .L369 nop .L60: nop .L58: 1069 ->LISTC %IF TAG1 = 13350; !LIS movl -936(%ebp), %eax cmpl $13350, %eax je .L370 nop .L62: nop .L63: 1070 ->TEMP %IF TAG1 = 21780; !TEM movl -936(%ebp), %eax cmpl $21780, %eax je .L371 nop .L65: nop .L66: 1071 ->LOCC %IF TAG1 = 13556; !LOC movl -936(%ebp), %eax cmpl $13556, %eax je .L372 nop .L68: nop jmp .L69 .L373: 1072 ->LOCC %IF TAG1 = 1917; !ASS movl -936(%ebp), %eax cmpl $1917, %eax je .L373 nop .L71: nop .L69: 1073 ->SAVC %IF TAG1 = 20568; !SAV movl -936(%ebp), %eax cmpl $20568, %eax je .L374 nop .L73: nop .L74: 1074 ->MACDEF %IF TAG1 = 14111; !MAC movl -936(%ebp), %eax cmpl $14111, %eax je .L375 nop .L76: nop .L77: 1075 ->BEGIN %IF TAG1 = 2460; !BEG movl -936(%ebp), %eax cmpl $2460, %eax je .L376 nop .L79: nop .L80: 1076 ->BEND %IF TAG1 = END movl END.6682@GOTOFF(%ebx), %eax movl -936(%ebp), %edx cmpl %eax, %edx je .L377 nop .L82: nop .L83: 1077 FAULT('U') subl $12, %esp leal -944(%ebp), %eax pushl $85 movl %eax, %ecx call FAULT.6097 addl $16, %esp 1078 ->LEND jmp .L55 .L361: 1079 %FINISH 1080 ->LEND %IF SKIP # 0 %OR SYM = '/' cmpl $0, -1084(%ebp) jne .L378 movl -928(%ebp), %eax cmpl $47, %eax jne .L379 jmp .L85 .L378: nop .L85: jmp .L55 .L379: nop .L86: 1081 %IF SYM = NL %START movl -928(%ebp), %eax cmpl $10, %eax jne .L380 nop .L88: 1082 ->LEND %IF LINES < 54 movl LINES.6060@GOTOFF(%ebx), %eax cmpl $53, %eax jle .L381 nop .L90: .L91: nop jmp .L55 .L430: 1083 DO NEWLINE %WHILE LINES # 0 movl LINES.6060@GOTOFF(%ebx), %eax testl %eax, %eax je .L382 leal -944(%ebp), %eax movl %eax, %ecx call DONEWLINE.6119 jmp .L90 .L382: nop .L93: 1084 ->READ jmp .L34 .L380: 1085 %FINISH 1086 %IF TAG %START leal -944(%ebp), %eax movl %eax, %ecx call TAG.6454 testl %eax, %eax je .L383 nop .L95: 1087 ->LABDEF %IF TERM = ':' movl -932(%ebp), %eax cmpl $58, %eax je .L384 nop .L97: nop .L98: 1088 MODE = 1 movl $1, %eax movl %eax, -924(%ebp) 1089 ->ASSIGN %IF TERM = '(' %OR SYM = '=' movl -932(%ebp), %eax cmpl $40, %eax je .L385 movl -928(%ebp), %eax cmpl $61, %eax jne .L386 jmp .L100 .L385: nop .L100: nop .L102: nop .L101: 1090 ->JUMP %IF TAG1 = JUM %AND (TAG2=P %OR TAG2=PS) movl JUM.6678@GOTOFF(%ebx), %eax movl -936(%ebp), %edx cmpl %eax, %edx jne .L388 movl P.6679@GOTOFF(%ebx), %eax movl -940(%ebp), %edx cmpl %eax, %edx je .L389 movl PS.6680@GOTOFF(%ebx), %eax movl -940(%ebp), %edx cmpl %eax, %edx jne .L390 jmp .L106 .L389: nop .L106: nop .L107: nop jmp .L104 .L390: nop .L104: 1091 ->IFC %IF TAG1 = IF movl IF.6673@GOTOFF(%ebx), %eax movl -936(%ebp), %edx cmpl %eax, %edx je .L391 nop .L109: nop .L110: 1092 ->ELSE %IF TAG1 = ELS %AND TAG2 = E movl ELS.6674@GOTOFF(%ebx), %eax movl -936(%ebp), %edx cmpl %eax, %edx jne .L392 movl E.6675@GOTOFF(%ebx), %eax movl -940(%ebp), %edx cmpl %eax, %edx je .L393 jmp .L112 .L392: nop .L112: nop .L114: 1093 ->FINISH %IF TAG1 = FIN %AND TAG2 = ISH movl FIN.6676@GOTOFF(%ebx), %eax movl -936(%ebp), %edx cmpl %eax, %edx jne .L394 movl ISH.6677@GOTOFF(%ebx), %eax movl -940(%ebp), %edx cmpl %eax, %edx je .L395 jmp .L116 .L394: nop .L116: nop .L118: 1094 ->WHILE %IF TAG1 = 25106 %AND TAG2 = 13173 movl -936(%ebp), %eax cmpl $25106, %eax jne .L396 movl -940(%ebp), %eax cmpl $13173, %eax je .L397 jmp .L120 .L396: nop .L120: nop .L122: 1095 ->CYCLE %IF TAG1 = 4269 %AND TAG2 = 13173 movl -936(%ebp), %eax cmpl $4269, %eax jne .L398 movl -940(%ebp), %eax cmpl $13173, %eax je .L399 jmp .L124 .L398: nop .L124: nop .L126: 1096 ->REPEAT %IF TAG1 = 19637 %AND TAG2 = 5544 movl -936(%ebp), %eax cmpl $19637, %eax jne .L400 movl -940(%ebp), %eax cmpl $5544, %eax je .L401 jmp .L128 .L400: nop .L128: nop .L130: 1097 MODE=-2 %AND ->DATA %IF TAG1 = B movl B.6672@GOTOFF(%ebx), %eax movl -936(%ebp), %edx cmpl %eax, %edx jne .L402 movl $-2, %eax movl %eax, -924(%ebp) jmp .L168 .L402: nop .L132: 1098 TYPE = UMASK; LOOKUP(0) movl UMASK.6028@GOTOFF(%ebx), %eax movl %eax, -888(%ebp) subl $12, %esp leal -944(%ebp), %eax pushl $0 movl %eax, %ecx call LOOKUP.6488 addl $16, %esp 1099 ->MACCALL %IF TYPE&OPMASK = MACRO movl OPMASK.6025@GOTOFF(%ebx), %edx movl MACRO.6026@GOTOFF(%ebx), %eax cmpl %eax, %edx setne %al movzbl %al, %eax movl -888(%ebp), %edx andl %edx, %eax testl %eax, %eax je .L403 nop .L135: nop .L136: 1100 ->MINST %IF TYPE&OPMASK # 0 movl OPMASK.6025@GOTOFF(%ebx), %eax testl %eax, %eax sete %al movzbl %al, %eax movl -888(%ebp), %edx andl %edx, %eax testl %eax, %eax je .L404 nop .L138: nop .L139: 1101 FAULT('U') %AND ->LEND %IF TYPE&UMASK # 0 movl UMASK.6028@GOTOFF(%ebx), %eax testl %eax, %eax sete %al movzbl %al, %eax movl -888(%ebp), %edx andl %edx, %eax testl %eax, %eax jne .L405 subl $12, %esp leal -944(%ebp), %eax pushl $85 movl %eax, %ecx call FAULT.6097 addl $16, %esp jmp .L55 .L405: nop .L141: 1102 PEND = -1 movl $-1, %eax movl %eax, -944(%ebp) jmp .L95 .L383: 1103 %FINISH 1104 MODE = -1 movl $-1, %eax movl %eax, -924(%ebp) .L133: .L142: .L168: 1105 DATA: 1106 %CYCLE 1107 GET EXP; ASSEMBLE leal -944(%ebp), %eax movl %eax, %ecx call GETEXP.6518 leal -944(%ebp), %eax movl %eax, %ecx call ASSEMBLE.6190 1108 FAULT('I') %IF TYPE®XMASK # 0 movl REGXMASK.6033@GOTOFF(%ebx), %eax testl %eax, %eax sete %al movzbl %al, %eax movl -888(%ebp), %edx andl %edx, %eax testl %eax, %eax jne .L406 subl $12, %esp leal -944(%ebp), %eax pushl $73 movl %eax, %ecx call FAULT.6097 addl $16, %esp jmp .L144 .L406: nop .L144: 1109 I = 1 movl $1, -1072(%ebp) 1110 %IF S('$') %START subl $12, %esp leal -944(%ebp), %eax pushl $36 movl %eax, %ecx call S.6444 addl $16, %esp testl %eax, %eax je .L407 nop .L149: .L159: 1111 I = VAL %IF VAL < 1000 movl -884(%ebp), %eax cmpl $999, %eax jg .L408 movl -884(%ebp), %eax movl %eax, -1072(%ebp) jmp .L148 .L408: nop .L148: 1112 QLIM = QSTART movl QSTART.6045@GOTOFF(%ebx), %eax movl %eax, QLIM.6046@GOTOFF(%ebx) 1113 GET EXP; ASSEMBLE leal -944(%ebp), %eax movl %eax, %ecx call GETEXP.6518 leal -944(%ebp), %eax movl %eax, %ecx call ASSEMBLE.6190 jmp .L159 .L146: .L407: 1114 %FINISH 1115 %WHILE I > 0 %CYCLE cmpl $0, -1072(%ebp) jle .L409 nop .L151: 1116 %IF MODE # -1 %START movl -924(%ebp), %eax cmpl $-1, %eax je .L410 nop .L153: 1117 FAULT('T') %IF VAL&16_FF00 # 0 subl $12, %esp leal -944(%ebp), %eax pushl $84 movl %eax, %ecx call FAULT.6097 addl $16, %esp .L154: 1118 %IF MODE = -2 %START movl -924(%ebp), %eax cmpl $-2, %eax jne .L411 nop .L156: 1119 J = VAL<<8; MODE = -3 movl -884(%ebp), %eax sall $8, %eax movl %eax, -1068(%ebp) movl $-3, %eax movl %eax, -924(%ebp) 1120 %finish %ELSE %START nop .L157: 1121 VAL = VAL+J; MODE = -2 movl -884(%ebp), %edx movl -1068(%ebp), %eax addl %edx, %eax movl %eax, -884(%ebp) movl $-2, %eax movl %eax, -924(%ebp) 1122 PLANT VAL leal -944(%ebp), %eax movl %eax, %ecx call PLANTVAL.6152 1123 %FINISH 1124 %finish %ELSE %START jmp .L158 .L411: jmp .L158 .L410: 1125 PLANT VAL; VAL = VAL&255 leal -944(%ebp), %eax movl %eax, %ecx call PLANTVAL.6152 movl -884(%ebp), %eax movzbl %al, %eax movl %eax, -884(%ebp) .L158: 1126 %FINISH 1127 I = I-1 subl $1, -1072(%ebp) 1128 %REPEAT jmp .L159 .L409: 1129 %EXIT %UNLESS S(',') %OR SYM&128 # 0 subl $12, %esp leal -944(%ebp), %eax pushl $44 movl %eax, %ecx call S.6444 addl $16, %esp testl %eax, %eax jne .L412 movl -928(%ebp), %eax andl $1, %eax testl %eax, %eax je .L413 jmp .L161 .L412: nop .L161: nop .L163: 1130 %IF SYM = NL %START movl -928(%ebp), %eax cmpl $10, %eax jne .L414 nop .L165: 1131 PRINT LINE %IF PRINTPOS # 0; READ LINE movl PRINTPOS.6040@GOTOFF(%ebx), %eax testl %eax, %eax je .L415 leal -944(%ebp), %eax movl %eax, %ecx call PRINTLINE.6123 jmp .L167 .L415: nop .L167: leal -944(%ebp), %eax movl %eax, %ecx call READLINE.6615 1132 QSTART = QBASE movl QBASE.6044@GOTOFF(%ebx), %eax movl %eax, QSTART.6045@GOTOFF(%ebx) jmp .L165 .L414: 1133 %FINISH 1134 QLIM = QSTART movl QSTART.6045@GOTOFF(%ebx), %eax movl %eax, QLIM.6046@GOTOFF(%ebx) 1135 %REPEAT jmp .L168 .L413: 1136 VAL=J %AND PLANT VAL %IF MODE = -3 movl -924(%ebp), %eax cmpl $-3, %eax jne .L416 movl -1068(%ebp), %eax movl %eax, -884(%ebp) leal -944(%ebp), %eax movl %eax, %ecx call PLANTVAL.6152 nop .L170: 1137 ->SEND jmp .L171 .L416: jmp .L171 .L384: 1138 1139 LABDEF: 1140 CREG = -1; ATYPE = -1 movl $-1, %eax movl %eax, -896(%ebp) movl $-1, %eax movl %eax, -892(%ebp) 1141 GET SYM leal -944(%ebp), %eax movl %eax, %ecx call GETSYM.6439 1142 FAULT('C') %AND NP=STORELIM %IF NP # STORELIM movl NP.6054@GOTOFF(%ebx), %edx movl STORELIM.6055@GOTOFF(%ebx), %eax cmpl %eax, %edx je .L417 subl $12, %esp leal -944(%ebp), %eax pushl $67 movl %eax, %ecx call FAULT.6097 addl $16, %esp movl STORELIM.6055@GOTOFF(%ebx), %eax movl %eax, NP.6054@GOTOFF(%ebx) jmp .L173 .L417: nop .L173: 1143 TYPE = LOCTYPE; VAL = LOC movl -880(%ebp), %eax movl %eax, -888(%ebp) movl -876(%ebp), %eax movl %eax, -884(%ebp) 1144 LOOKUP(7) subl $12, %esp leal -944(%ebp), %eax pushl $7 movl %eax, %ecx call LOOKUP.6488 addl $16, %esp 1145 ->NEXT jmp .L35 .L338: 1146 1147 ASSIGN: 1148 PEND = 1 movl $1, %eax movl %eax, -944(%ebp) 1149 GET EXP leal -944(%ebp), %eax movl %eax, %ecx call GETEXP.6518 1150 ->ERR %IF %NOT S('=') subl $12, %esp leal -944(%ebp), %eax pushl $61 movl %eax, %ecx call S.6444 addl $16, %esp testl %eax, %eax je .L387 jmp .L338 .L386: nop .L175: nop jmp .L227 .L431: 1151 QUEUE(-25); !'STORE' subl $12, %esp leal -944(%ebp), %eax pushl $-25 movl %eax, %ecx call QUEUE.6515 addl $16, %esp 1152 %IF INTEGER(QBASE) = REG %START movl QBASE.6044@GOTOFF(%ebx), %eax movl %eax, -1032(%ebp) .LBB244: .LBB245: movl -1032(%ebp), %eax .LBE245: .LBE244: movl (%eax), %edx movl REG.6029@GOTOFF(%ebx), %eax cmpl %eax, %edx jne .L418 nop .L178: 1153 DREG = INTEGER(QBASE+1) movl QBASE.6044@GOTOFF(%ebx), %eax addl $1, %eax movl %eax, -1028(%ebp) .LBB246: .LBB247: movl -1028(%ebp), %eax .LBE247: .LBE246: movl (%eax), %eax movl %eax, -908(%ebp) 1154 DUSE = 0 movl $0, %eax movl %eax, -912(%ebp) jmp .L178 .L418: 1155 %FINISH 1156 QSTART = QLIM; MODE = 2 movl QLIM.6046@GOTOFF(%ebx), %eax movl %eax, QSTART.6045@GOTOFF(%ebx) movl $2, %eax movl %eax, -924(%ebp) 1157 GET EXP leal -944(%ebp), %eax movl %eax, %ecx call GETEXP.6518 1158 QUEUE(-24); !'LOAD' subl $12, %esp leal -944(%ebp), %eax pushl $-24 movl %eax, %ecx call QUEUE.6515 addl $16, %esp .L180: 1159 1160 CONDQ: 1161 %IF TAGIF %START leal -944(%ebp), %eax movl %eax, %ecx call TAGIF.6483 testl %eax, %eax je .L419 nop .L182: 1162 MODE = MODE+4; DREG = DREG-16; !SCARIFY movl -924(%ebp), %eax addl $4, %eax movl %eax, -924(%ebp) movl -908(%ebp), %eax subl $16, %eax movl %eax, -908(%ebp) 1163 GET COND; ASSEMBLE leal -944(%ebp), %eax movl %eax, %ecx call GETCOND.6590 leal -944(%ebp), %eax movl %eax, %ecx call ASSEMBLE.6190 1164 MODE = MODE-4; DREG = DREG+16; !RESTORE movl -924(%ebp), %eax subl $4, %eax movl %eax, -924(%ebp) movl -908(%ebp), %eax addl $16, %eax movl %eax, -908(%ebp) 1165 QLIM = QSTART; QSTART = TRANSF movl QSTART.6045@GOTOFF(%ebx), %eax movl %eax, QLIM.6046@GOTOFF(%ebx) movl TRANSF.6047@GOTOFF(%ebx), %eax movl %eax, QSTART.6045@GOTOFF(%ebx) jmp .L182 .L419: 1166 %FINISH 1167 ASSEMBLE leal -944(%ebp), %eax movl %eax, %ecx call ASSEMBLE.6190 1168 ->SEND jmp .L171 .L404: 1169 1170 JUMP: 1171 FLAG = TAG2-P; !POSITIVE IF SHORT movl P.6679@GOTOFF(%ebx), %eax movl -940(%ebp), %edx subl %eax, %edx movl %edx, %eax movl %eax, -900(%ebp) 1172 GET EXP leal -944(%ebp), %eax movl %eax, %ecx call GETEXP.6518 1173 QUEUE(-26); !'JUMP' subl $12, %esp leal -944(%ebp), %eax pushl $-26 movl %eax, %ecx call QUEUE.6515 addl $16, %esp 1174 ->CONDQ jmp .L180 .L388: 1175 1176 MINST: 1177 MODE = -1 movl $-1, %eax movl %eax, -924(%ebp) 1178 GET INST leal -944(%ebp), %eax movl %eax, %ecx call GETINST.6608 1179 QUEUE(-23); !'PLANT' subl $12, %esp leal -944(%ebp), %eax pushl $-23 movl %eax, %ecx call QUEUE.6515 addl $16, %esp 1180 ->CONDQ jmp .L180 .L403: 1181 1182 MACCALL: 1183 QUEUE(VAL); !DEFPOS movl -884(%ebp), %edx subl $12, %esp leal -944(%ebp), %eax pushl %edx movl %eax, %ecx call QUEUE.6515 addl $16, %esp 1184 QUEUE(TYPE&1023); !JOKER movl -888(%ebp), %eax andl $1023, %eax movl %eax, %edx subl $12, %esp leal -944(%ebp), %eax pushl %edx movl %eax, %ecx call QUEUE.6515 addl $16, %esp 1185 QUEUE(0); !(CALLPOS) subl $12, %esp leal -944(%ebp), %eax pushl $0 movl %eax, %ecx call QUEUE.6515 addl $16, %esp 1186 QUEUE(STARTPOS) movl STARTPOS.6036@GOTOFF(%ebx), %edx subl $12, %esp leal -944(%ebp), %eax pushl %edx movl %eax, %ecx call QUEUE.6515 addl $16, %esp 1187 QUEUE(MP) movl MP.6043@GOTOFF(%ebx), %edx subl $12, %esp leal -944(%ebp), %eax pushl %edx movl %eax, %ecx call QUEUE.6515 addl $16, %esp .L183: 1188 %CYCLE 1189 %EXIT %IF CHAR(INTEGER(QBASE)) = NL; !END OF MAC DEF movl QBASE.6044@GOTOFF(%ebx), %eax movl %eax, -1024(%ebp) .LBB248: .LBB249: movl -1024(%ebp), %eax .LBE249: .LBE248: movl (%eax), %edx subl $12, %esp leal -944(%ebp), %eax pushl %edx movl %eax, %ecx call CHAR.6091 addl $16, %esp cmpl $10, %eax je .L420 nop .L186: nop .L187: 1190 I = GETPOS-1; !SAVE CALLPOS movl GETPOS.6037@GOTOFF(%ebx), %eax subl $1, %eax movl %eax, -1072(%ebp) 1191 GETPOS = INTEGER(QBASE); GET SYM movl QBASE.6044@GOTOFF(%ebx), %eax movl %eax, -1020(%ebp) .LBB250: .LBB251: movl -1020(%ebp), %eax .LBE251: .LBE250: movl (%eax), %eax movl %eax, GETPOS.6037@GOTOFF(%ebx) leal -944(%ebp), %eax movl %eax, %ecx call GETSYM.6439 1192 !!%MONITOR 24 %IF %NOT TAG 1193 TYPE = 0; VAL = 0 movl $0, %eax movl %eax, -888(%ebp) movl $0, %eax movl %eax, -884(%ebp) 1194 SCAN ARG leal -944(%ebp), %eax movl %eax, %ecx call SCANARG.6649 1195 GET SYM %IF SYM = ',' movl -928(%ebp), %eax cmpl $44, %eax jne .L421 leal -944(%ebp), %eax movl %eax, %ecx call GETSYM.6439 jmp .L190 .L421: nop .L190: 1196 INTEGER(QBASE) = GETPOS-1; !UPDATE DEFPOS movl GETPOS.6037@GOTOFF(%ebx), %edx movl QBASE.6044@GOTOFF(%ebx), %eax movl %eax, -1016(%ebp) .LBB252: .LBB253: movl -1016(%ebp), %eax .LBE253: .LBE252: subl $1, %edx movl %edx, (%eax) 1197 GETPOS = I; GET SYM; !RESTORE CALLPOS movl -1072(%ebp), %eax movl %eax, GETPOS.6037@GOTOFF(%ebx) leal -944(%ebp), %eax movl %eax, %ecx call GETSYM.6439 1198 SCAN ARG leal -944(%ebp), %eax movl %eax, %ecx call SCANARG.6649 1199 GET SYM %IF SYM = ',' movl -928(%ebp), %eax cmpl $44, %eax jne .L422 leal -944(%ebp), %eax movl %eax, %ecx call GETSYM.6439 jmp .L193 .L422: nop .L193: 1200 QUEUE(TAG1); QUEUE(TAG2) movl -936(%ebp), %edx subl $12, %esp leal -944(%ebp), %eax pushl %edx movl %eax, %ecx call QUEUE.6515 addl $16, %esp movl -940(%ebp), %edx subl $12, %esp leal -944(%ebp), %eax pushl %edx movl %eax, %ecx call QUEUE.6515 addl $16, %esp 1201 QUEUE(TYPE); QUEUE(VAL) movl -888(%ebp), %edx subl $12, %esp leal -944(%ebp), %eax pushl %edx movl %eax, %ecx call QUEUE.6515 addl $16, %esp movl -884(%ebp), %edx subl $12, %esp leal -944(%ebp), %eax pushl %edx movl %eax, %ecx call QUEUE.6515 addl $16, %esp 1202 %REPEAT jmp .L183 .L420: 1203 GET SYM %IF SYM = ' ' movl -928(%ebp), %eax cmpl $32, %eax jne .L423 leal -944(%ebp), %eax movl %eax, %ecx call GETSYM.6439 jmp .L195 .L423: nop .L195: 1204 %IF TAGIF %START leal -944(%ebp), %eax movl %eax, %ecx call TAGIF.6483 testl %eax, %eax je .L424 nop .L197: 1205 GET COND; QUEUE(-18); ASSEMBLE leal -944(%ebp), %eax movl %eax, %ecx call GETCOND.6590 subl $12, %esp leal -944(%ebp), %eax pushl $-18 movl %eax, %ecx call QUEUE.6515 addl $16, %esp leal -944(%ebp), %eax movl %eax, %ecx call ASSEMBLE.6190 1206 QLIM = QSTART movl QSTART.6045@GOTOFF(%ebx), %eax movl %eax, QLIM.6046@GOTOFF(%ebx) 1207 INTEGER(QBASE+1) = INTEGER(QBASE+1)+16_8000 movl QBASE.6044@GOTOFF(%ebx), %eax addl $1, %eax movl %eax, -1008(%ebp) .LBB254: .LBB255: movl -1008(%ebp), %eax .LBE255: .LBE254: movl (%eax), %edx movl QBASE.6044@GOTOFF(%ebx), %eax addl $1, %eax movl %eax, -1012(%ebp) .LBB256: .LBB257: movl -1012(%ebp), %eax .LBE257: .LBE256: addl $32768, %edx movl %edx, (%eax) jmp .L197 .L424: 1208 %FINISH 1209 QUEUE(0) subl $12, %esp leal -944(%ebp), %eax pushl $0 movl %eax, %ecx call QUEUE.6515 addl $16, %esp 1210 MP = QBASE; STARTPOS = QLIM<<1 movl QBASE.6044@GOTOFF(%ebx), %eax movl %eax, MP.6043@GOTOFF(%ebx) movl QLIM.6046@GOTOFF(%ebx), %eax addl %eax, %eax movl %eax, STARTPOS.6036@GOTOFF(%ebx) 1211 INTEGER(MP) = INTEGER(MP)+1 movl MP.6043@GOTOFF(%ebx), %eax movl %eax, -996(%ebp) .LBB258: .LBB259: movl -996(%ebp), %eax .LBE259: .LBE258: movl (%eax), %edx movl MP.6043@GOTOFF(%ebx), %eax movl %eax, -1000(%ebp) .LBB260: .LBB261: movl -1000(%ebp), %eax .LBE261: .LBE260: addl $1, %edx movl %edx, (%eax) 1212 INTEGER(MP+2) = GETPOS-1 movl GETPOS.6037@GOTOFF(%ebx), %edx movl MP.6043@GOTOFF(%ebx), %eax addl $2, %eax movl %eax, -1004(%ebp) .LBB262: .LBB263: movl -1004(%ebp), %eax .LBE263: .LBE262: subl $1, %edx movl %edx, (%eax) 1213 PRINT LINE %IF PRINTPOS # 0 %AND LIST&2 # 0 movl PRINTPOS.6040@GOTOFF(%ebx), %eax testl %eax, %eax je .L425 leal -944(%ebp), %eax movl %eax, %ecx call PRINTLINE.6123 jmp .L34 .L425: nop .L204: 1214 ->READ jmp .L34 .L391: 1215 1216 !CODING OF JUMPS: 1000 (SINGLE INST), 2000 (MAIN IF) 1217 ! 4000 (ELSE), 6000 (IF AFTER ELSE) 1218 1219 IFC: 1220 GET COND; QUEUE(-15); ASSEMBLE leal -944(%ebp), %eax movl %eax, %ecx call GETCOND.6590 subl $12, %esp leal -944(%ebp), %eax pushl $-15 movl %eax, %ecx call QUEUE.6515 addl $16, %esp leal -944(%ebp), %eax movl %eax, %ecx call ASSEMBLE.6190 1221 ->SEND jmp .L171 .L393: 1222 1223 ELSE: 1224 ->CERR %IF INTEGER(NP)&16_2000 = 0 movl NP.6054@GOTOFF(%ebx), %eax movl %eax, -992(%ebp) .LBB264: .LBB265: movl -992(%ebp), %eax .LBE265: .LBE264: movl (%eax), %eax andl $1, %eax testl %eax, %eax je .L426 nop .L207: nop jmp .L208 .L428: 1225 QUEUE(0); QUEUE(0) subl $12, %esp leal -944(%ebp), %eax pushl $0 movl %eax, %ecx call QUEUE.6515 addl $16, %esp subl $12, %esp leal -944(%ebp), %eax pushl $0 movl %eax, %ecx call QUEUE.6515 addl $16, %esp 1226 QUEUE(-16); ASSEMBLE subl $12, %esp leal -944(%ebp), %eax pushl $-16 movl %eax, %ecx call QUEUE.6515 addl $16, %esp leal -944(%ebp), %eax movl %eax, %ecx call ASSEMBLE.6190 1227 ATYPE = -1; CREG = -1 movl $-1, %eax movl %eax, -892(%ebp) movl $-1, %eax movl %eax, -896(%ebp) 1228 %IF TAGIF %START leal -944(%ebp), %eax movl %eax, %ecx call TAGIF.6483 testl %eax, %eax je .L427 nop .L210: jmp .L171 .L395: 1229 GET COND; QUEUE(-17); ASSEMBLE leal -944(%ebp), %eax movl %eax, %ecx call GETCOND.6590 subl $12, %esp leal -944(%ebp), %eax pushl $-17 movl %eax, %ecx call QUEUE.6515 addl $16, %esp leal -944(%ebp), %eax movl %eax, %ecx call ASSEMBLE.6190 1230 %FINISH 1231 ->SEND jmp .L171 .L427: 1232 1233 FINISH: 1234 ->CERR %IF INTEGER(NP)&16_6000 = 0 movl NP.6054@GOTOFF(%ebx), %eax movl %eax, -988(%ebp) .LBB266: .LBB267: movl -988(%ebp), %eax .LBE267: .LBE266: movl (%eax), %eax andl $1, %eax testl %eax, %eax je .L428 nop .L213: nop jmp .L208 .L429: 1235 I = LOC movl -876(%ebp), %eax movl %eax, -1072(%ebp) .L214: 1236 %WHILE INTEGER(NP)&16_4000 # 0 %CYCLE movl NP.6054@GOTOFF(%ebx), %eax movl %eax, -984(%ebp) 1237 %IF INTEGER(NP)&16_2000 # 0 %START; !IF AFTER ELSE movl NP.6054@GOTOFF(%ebx), %eax movl %eax, -980(%ebp) 1238 SET LAB(I) subl $12, %esp leal -944(%ebp), %eax pushl -1072(%ebp) movl %eax, %ecx call SETLAB.6170 addl $16, %esp 1239 %finish %ELSE %START nop .L217: 1240 SET LAB(LOC) 1241 I = VAL+1 1242 %FINISH 1243 %REPEAT jmp .L214 .L397: 1244 SET LAB(I) 1245 ->SEND 1246 1247 WHILE: 1248 I = LOC; ATYPE = -1; CREG = -1 movl -876(%ebp), %eax movl %eax, -1072(%ebp) movl $-1, %eax movl %eax, -892(%ebp) movl $-1, %eax movl %eax, -896(%ebp) 1249 GET COND; QUEUE(-13); ASSEMBLE leal -944(%ebp), %eax movl %eax, %ecx call GETCOND.6590 subl $12, %esp leal -944(%ebp), %eax pushl $-13 movl %eax, %ecx call QUEUE.6515 addl $16, %esp leal -944(%ebp), %eax movl %eax, %ecx call ASSEMBLE.6190 1250 NEST(I); NEST(1) subl $12, %esp leal -944(%ebp), %eax pushl -1072(%ebp) movl %eax, %ecx call NEST.6167 addl $16, %esp subl $12, %esp leal -944(%ebp), %eax pushl $1 movl %eax, %ecx call NEST.6167 addl $16, %esp 1251 ->SEND jmp .L171 .L399: 1252 1253 CYCLE: 1254 NEST(LOC); NEST(1) movl -876(%ebp), %edx subl $12, %esp leal -944(%ebp), %eax pushl %edx movl %eax, %ecx call NEST.6167 addl $16, %esp subl $12, %esp leal -944(%ebp), %eax pushl $1 movl %eax, %ecx call NEST.6167 addl $16, %esp 1255 ->SEND jmp .L171 .L401: 1256 1257 REPEAT: 1258 ->CERR %IF INTEGER(NP) # 1 movl NP.6054@GOTOFF(%ebx), %eax movl %eax, -976(%ebp) .LBB268: .LBB269: movl -976(%ebp), %eax .LBE269: .LBE268: movl (%eax), %eax cmpl $1, %eax jne .L429 nop .L220: nop jmp .L208 .L442: 1259 QUEUE(LOCTYPE); QUEUE(INTEGER(NP+1)) movl -880(%ebp), %edx subl $12, %esp leal -944(%ebp), %eax pushl %edx movl %eax, %ecx call QUEUE.6515 addl $16, %esp movl NP.6054@GOTOFF(%ebx), %eax addl $1, %eax movl %eax, -972(%ebp) .LBB270: .LBB271: movl -972(%ebp), %eax .LBE271: .LBE270: movl (%eax), %edx subl $12, %esp leal -944(%ebp), %eax pushl %edx movl %eax, %ecx call QUEUE.6515 addl $16, %esp 1260 NP = NP+2 movl NP.6054@GOTOFF(%ebx), %eax addl $2, %eax movl %eax, NP.6054@GOTOFF(%ebx) 1261 QUEUE(-26); !'JUMP' subl $12, %esp leal -944(%ebp), %eax pushl $-26 movl %eax, %ecx call QUEUE.6515 addl $16, %esp 1262 FLAG = -1 movl $-1, %eax movl %eax, -900(%ebp) 1263 ->CONDQ jmp .L180 .L426: 1264 1265 CERR: 1266 FAULT('C') subl $12, %esp leal -944(%ebp), %eax pushl $67 movl %eax, %ecx call FAULT.6097 addl $16, %esp 1267 ->LEND jmp .L55 .L171: 1268 1269 SEND: 1270 SET LAB(LOC) %IF INTEGER(NP)&16_1000 # 0 movl NP.6054@GOTOFF(%ebx), %eax movl %eax, -968(%ebp) movl -876(%ebp), %edx subl $12, %esp leal -944(%ebp), %eax pushl %edx movl %eax, %ecx call SETLAB.6170 addl $16, %esp .L223: 1271 ->LEND %IF SYM = NL movl -928(%ebp), %eax cmpl $10, %eax je .L430 nop .L225: nop jmp .L55 .L439: 1272 ->NEXT %IF S(';') subl $12, %esp leal -944(%ebp), %eax pushl $59 movl %eax, %ecx call S.6444 addl $16, %esp testl %eax, %eax je .L431 jmp .L35 .L43: .L363: nop jmp .L227 .L461: 1273 1274 ERR:FSYM = 'F'; FAULTPOS = GETPOS-1 movl $70, %eax movl %eax, -872(%ebp) movl GETPOS.6037@GOTOFF(%ebx), %eax subl $1, %eax movl %eax, FAULTPOS.6041@GOTOFF(%ebx) 1275 PRINTPOS = STARTPOS movl STARTPOS.6036@GOTOFF(%ebx), %eax movl %eax, PRINTPOS.6040@GOTOFF(%ebx) jmp .L55 .L367: 1276 1277 LEND: 1278 ->READ %IF SKIP # 0 %AND LIST&4 = 0 cmpl $0, -1084(%ebp) je .L432 movl LIST.6062@GOTOFF(%ebx), %eax andl $1, %eax testl %eax, %eax jne .L433 jmp .L34 .L432: nop jmp .L229 .L433: nop .L229: 1279 ->READ %IF FSYM = ' ' %AND CHARS = 0 %AND %C movl -872(%ebp), %eax cmpl $32, %eax jne .L434 movl CHARS.6059@GOTOFF(%ebx), %eax testl %eax, %eax jne .L435 movl PRINTPOS.6040@GOTOFF(%ebx), %eax testl %eax, %eax je .L436 movl MP.6043@GOTOFF(%ebx), %eax testl %eax, %eax je .L437 movl LIST.6062@GOTOFF(%ebx), %eax andl $1, %eax testl %eax, %eax jne .L438 jmp .L235 .L436: nop .L235: jmp .L34 .L434: nop jmp .L232 .L435: nop jmp .L232 .L437: nop jmp .L232 .L438: nop .L232: 1280 (PRINTPOS = 0 %OR (MP#0 %AND LIST&2=0)) 1281 PRINT LINE leal -944(%ebp), %eax movl %eax, %ecx call PRINTLINE.6123 1282 ->READ jmp .L34 .L364: 1283 1284 ASSIF: 1285 ASSCOND = ASSCOND<<1 sall -1080(%ebp) 1286 ->LEND %IF SKIP # 0 nop jmp .L55 .L443: cmpl $0, -1084(%ebp) jne .L439 .L238: nop jmp .L239 .L444: 1287 A1: GET COND; ASSEMBLE leal -944(%ebp), %eax movl %eax, %ecx call GETCOND.6590 leal -944(%ebp), %eax movl %eax, %ecx call ASSEMBLE.6190 1288 SKIP = ASSCOND %IF COND # 0 movl -904(%ebp), %eax testl %eax, %eax je .L440 movl -1080(%ebp), %eax movl %eax, -1084(%ebp) jmp .L241 .L440: nop .L241: 1289 PRINT LINE %IF PRINTPOS # 0 movl PRINTPOS.6040@GOTOFF(%ebx), %eax testl %eax, %eax je .L441 leal -944(%ebp), %eax movl %eax, %ecx call PRINTLINE.6123 nop .L243: 1290 ->LEND jmp .L55 .L441: jmp .L55 .L365: 1291 1292 ASSELSE: 1293 %IF SKIP = 0 %START cmpl $0, -1084(%ebp) je .L442 nop .L245: 1294 ->CERR %IF ASSCOND&1 # 0 nop jmp .L208 .L445: 1295 SKIP = ASSCOND 1296 %finish %ELSE %START 1297 ->LEND %IF SKIP # ASSCOND nop jmp .L55 .L474: movl -1084(%ebp), %eax cmpl -1080(%ebp), %eax jne .L443 nop .L247: 1298 SKIP = 0 movl $0, -1084(%ebp) 1299 ->A1 %IF TAGIF nop .L239: leal -944(%ebp), %eax movl %eax, %ecx call TAGIF.6483 testl %eax, %eax jne .L444 nop .L249: .L250: 1300 %FINISH 1301 ASSCOND = ASSCOND+1 addl $1, -1080(%ebp) 1302 ->LEND jmp .L55 .L366: 1303 1304 ASSFIN: 1305 ->CERR %IF ASSCOND = 1 nop jmp .L208 .L460: cmpl $1, -1080(%ebp) je .L445 nop .L252: 1306 ASSCOND = ASSCOND>>1 movl -1080(%ebp), %eax shrl %eax movl %eax, -1080(%ebp) 1307 SKIP = 0 %IF SKIP>>1 = ASSCOND movl -1084(%ebp), %eax shrl %eax movl %eax, %edx movl -1080(%ebp), %eax cmpl %eax, %edx jne .L446 movl $0, -1084(%ebp) nop .L254: 1308 ->LEND jmp .L55 .L446: jmp .L55 .L368: 1309 1310 DEFINE: 1311 FAULT('C') %IF NP # STORELIM movl NP.6054@GOTOFF(%ebx), %edx movl STORELIM.6055@GOTOFF(%ebx), %eax cmpl %eax, %edx je .L447 subl $12, %esp leal -944(%ebp), %eax pushl $67 movl %eax, %ecx call FAULT.6097 addl $16, %esp jmp .L256 .L447: nop .L256: 1312 I = TAG1 movl -936(%ebp), %eax movl %eax, -1072(%ebp) .L257: 1313 %CYCLE 1314 ->ERR %IF %NOT (TAG %AND S('=')) leal -944(%ebp), %eax movl %eax, %ecx call TAG.6454 testl %eax, %eax je .L448 subl $12, %esp leal -944(%ebp), %eax pushl $61 movl %eax, %ecx call S.6444 addl $16, %esp testl %eax, %eax jne .L449 jmp .L259 .L448: nop .L259: jmp .L227 .L449: nop .L260: 1315 J = TAG1; K = TAG2 movl -936(%ebp), %eax movl %eax, -1068(%ebp) movl -940(%ebp), %eax movl %eax, -1048(%ebp) 1316 %IF TAG %START leal -944(%ebp), %eax movl %eax, %ecx call TAG.6454 testl %eax, %eax je .L450 nop .L262: 1317 TYPE = UMASK; LOOKUP(0) movl UMASK.6028@GOTOFF(%ebx), %eax movl %eax, -888(%ebp) subl $12, %esp leal -944(%ebp), %eax pushl $0 movl %eax, %ecx call LOOKUP.6488 addl $16, %esp 1318 %IF TYPE&OPMASK # 0 %START movl OPMASK.6025@GOTOFF(%ebx), %eax testl %eax, %eax sete %al movzbl %al, %eax movl -888(%ebp), %edx andl %edx, %eax testl %eax, %eax jne .L451 nop .L264: 1319 GET INST leal -944(%ebp), %eax movl %eax, %ecx call GETINST.6608 1320 %finish %ELSE %START nop .L265: 1321 PEND = -1; GET EXP movl $-1, %eax movl %eax, -944(%ebp) leal -944(%ebp), %eax movl %eax, %ecx call GETEXP.6518 1322 %FINISH 1323 %finish %ELSE GET EXP jmp .L266 .L451: jmp .L266 .L450: leal -944(%ebp), %eax movl %eax, %ecx call GETEXP.6518 .L266: 1324 ASSEMBLE leal -944(%ebp), %eax movl %eax, %ecx call ASSEMBLE.6190 1325 TAG1 = J; TAG2 = K movl -1068(%ebp), %eax movl %eax, -936(%ebp) movl -1048(%ebp), %eax movl %eax, -940(%ebp) 1326 %IF I=DEF %THEN LOOKUP(3) %ELSE LOOKUP(2) movl DEF.6681@GOTOFF(%ebx), %eax cmpl %eax, -1072(%ebp) jne .L452 subl $12, %esp leal -944(%ebp), %eax pushl $3 movl %eax, %ecx call LOOKUP.6488 addl $16, %esp jmp .L269 .L452: nop .L268: subl $12, %esp leal -944(%ebp), %eax pushl $2 movl %eax, %ecx call LOOKUP.6488 addl $16, %esp .L269: 1327 %EXIT %UNLESS S(',') subl $12, %esp leal -944(%ebp), %eax pushl $44 movl %eax, %ecx call S.6444 addl $16, %esp testl %eax, %eax je .L453 nop .L271: nop .L272: 1328 QLIM = QSTART movl QSTART.6045@GOTOFF(%ebx), %eax movl %eax, QLIM.6046@GOTOFF(%ebx) 1329 %REPEAT jmp .L257 .L453: 1330 ->SEND jmp .L171 .L40: .L362: 1331 1332 NEWPAGE: 1333 DO NEWLINE %WHILE LINES # 0 movl LINES.6060@GOTOFF(%ebx), %eax testl %eax, %eax je .L454 leal -944(%ebp), %eax movl %eax, %ecx call DONEWLINE.6119 jmp .L276 .L454: nop .L275: 1334 ->LEND jmp .L55 .L370: 1335 1336 LISTC: 1337 GET EXP; ASSEMBLE leal -944(%ebp), %eax movl %eax, %ecx call GETEXP.6518 leal -944(%ebp), %eax movl %eax, %ecx call ASSEMBLE.6190 1338 LIST = VAL movl -884(%ebp), %eax movl %eax, LIST.6062@GOTOFF(%ebx) 1339 ->SEND jmp .L171 .L371: 1340 1341 TEMP: 1342 I = 0 movl $0, -1072(%ebp) 1343 %IF SYM # NL %START movl -928(%ebp), %eax cmpl $10, %eax je .L455 nop jmp .L283 .L457: 1344 %CYCLE nop .L277: 1345 GET EXP leal -944(%ebp), %eax movl %eax, %ecx call GETEXP.6518 1346 FAULT('I') %IF TYPE # REG movl REG.6029@GOTOFF(%ebx), %eax movl -888(%ebp), %edx cmpl %eax, %edx je .L456 subl $12, %esp leal -944(%ebp), %eax pushl $73 movl %eax, %ecx call FAULT.6097 addl $16, %esp jmp .L280 .L456: nop .L280: 1347 I = I!1<SEND jmp .L171 .L372: 1354 1355 LOCC: 1356 I = TAG1 movl -936(%ebp), %eax movl %eax, -1072(%ebp) 1357 GET EXP; ASSEMBLE leal -944(%ebp), %eax movl %eax, %ecx call GETEXP.6518 leal -944(%ebp), %eax movl %eax, %ecx call ASSEMBLE.6190 1358 %IF TYPE&16_FF9F = 0 %START movl -888(%ebp), %eax andl $1, %eax testl %eax, %eax jne .L458 nop .L285: 1359 LOCTYPE = TYPE&RELMASK+MEMMASK; LOC = VAL movl RELMASK.6031@GOTOFF(%ebx), %eax movl -888(%ebp), %edx andl %eax, %edx movl MEMMASK.6030@GOTOFF(%ebx), %eax addl %edx, %eax movl %eax, -880(%ebp) movl -884(%ebp), %eax movl %eax, -876(%ebp) 1360 PUT WORD(VAL-1) %AND CONTROL=16_30 %IF PASS > 0 movl PASS.6061@GOTOFF(%ebx), %eax testl %eax, %eax jle .L459 movl -884(%ebp), %eax leal -1(%eax), %edx subl $12, %esp leal -944(%ebp), %eax pushl %edx movl %eax, %ecx call PUTWORD.6149 addl $16, %esp movl $48, CONTROL.6067@GOTOFF(%ebx) nop .L287: 1361 %finish %ELSE FAULT('I') jmp .L288 .L459: jmp .L288 .L458: subl $12, %esp leal -944(%ebp), %eax pushl $73 movl %eax, %ecx call FAULT.6097 addl $16, %esp 1362 ->SEND jmp .L171 .L288: jmp .L171 .L374: 1363 1364 SAVC: 1365 GET EXP; ASSEMBLE leal -944(%ebp), %eax movl %eax, %ecx call GETEXP.6518 leal -944(%ebp), %eax movl %eax, %ecx call ASSEMBLE.6190 1366 SAVE = VAL movl -884(%ebp), %eax movl %eax, SAVE.6065@GOTOFF(%ebx) 1367 ->SEND jmp .L171 .L375: 1368 1369 MACDEF: 1370 ->CERR %IF MP # 0 nop .L208: movl MP.6043@GOTOFF(%ebx), %eax testl %eax, %eax jne .L460 nop .L290: 1371 ->ERR %IF %NOT TAG nop jmp .L227 .L463: leal -944(%ebp), %eax movl %eax, %ecx call TAG.6454 testl %eax, %eax je .L461 nop .L292: 1372 J = TAG1; K = TAG2 movl -936(%ebp), %eax movl %eax, -1068(%ebp) movl -940(%ebp), %eax movl %eax, -1048(%ebp) 1373 I = GETPOS-1 movl GETPOS.6037@GOTOFF(%ebx), %eax subl $1, %eax movl %eax, -1072(%ebp) 1374 %IF SYM # NL %START movl -928(%ebp), %eax cmpl $10, %eax je .L462 nop jmp .L299 .L464: 1375 %CYCLE nop .L293: 1376 ->ERR %IF %NOT TAG nop jmp .L227 .L465: leal -944(%ebp), %eax movl %eax, %ecx call TAG.6454 testl %eax, %eax je .L463 nop .L296: 1377 SCAN ARG leal -944(%ebp), %eax movl %eax, %ecx call SCANARG.6649 1378 %EXIT %IF %NOT S(',') subl $12, %esp leal -944(%ebp), %eax pushl $44 movl %eax, %ecx call S.6444 addl $16, %esp testl %eax, %eax je .L464 nop .L298: nop .L299: 1379 %REPEAT jmp .L293 .L294: .L462: 1380 %FINISH 1381 ->ERR %IF SYM # NL nop .L227: movl -928(%ebp), %eax cmpl $10, %eax jne .L465 nop .L301: 1382 TAG1 = J; TAG2 = K movl -1068(%ebp), %eax movl %eax, -936(%ebp) movl -1048(%ebp), %eax movl %eax, -940(%ebp) 1383 TYPE = MACRO; VAL = I movl MACRO.6026@GOTOFF(%ebx), %eax movl %eax, -888(%ebp) movl -1072(%ebp), %eax movl %eax, -884(%ebp) 1384 LOOKUP(3) subl $12, %esp leal -944(%ebp), %eax pushl $3 movl %eax, %ecx call LOOKUP.6488 addl $16, %esp .L302: 1385 %CYCLE 1386 PRINT LINE leal -944(%ebp), %eax movl %eax, %ecx call PRINTLINE.6123 1387 %EXIT %IF S('$') %AND TAG %AND TAG1 = END subl $12, %esp leal -944(%ebp), %eax pushl $36 movl %eax, %ecx call S.6444 addl $16, %esp testl %eax, %eax je .L466 leal -944(%ebp), %eax movl %eax, %ecx call TAG.6454 testl %eax, %eax je .L467 movl END.6682@GOTOFF(%ebx), %eax movl -936(%ebp), %edx cmpl %eax, %edx je .L468 jmp .L304 .L466: nop jmp .L304 .L467: nop .L304: nop .L307: 1388 STARTPOS = PUTPOS movl PUTPOS.6038@GOTOFF(%ebx), %eax movl %eax, STARTPOS.6036@GOTOFF(%ebx) 1389 STARTPOS = PSEUDOLIM+1 %IF PSEUDOLIM # 0 movl PSEUDOLIM.6039@GOTOFF(%ebx), %eax testl %eax, %eax je .L469 movl PSEUDOLIM.6039@GOTOFF(%ebx), %eax addl $1, %eax movl %eax, STARTPOS.6036@GOTOFF(%ebx) jmp .L309 .L469: nop .L309: 1390 READ LINE leal -944(%ebp), %eax movl %eax, %ecx call READLINE.6615 1391 %REPEAT jmp .L302 .L468: 1392 PUTPOS = STARTPOS; PUT CHAR(0) movl STARTPOS.6036@GOTOFF(%ebx), %eax movl %eax, PUTPOS.6038@GOTOFF(%ebx) subl $12, %esp leal -944(%ebp), %eax pushl $0 movl %eax, %ecx call PUTCHAR.6094 addl $16, %esp 1393 STARTPOS = PUTPOS movl PUTPOS.6038@GOTOFF(%ebx), %eax movl %eax, STARTPOS.6036@GOTOFF(%ebx) 1394 MACLIM = STARTPOS movl STARTPOS.6036@GOTOFF(%ebx), %eax movl %eax, MACLIM.6042@GOTOFF(%ebx) 1395 ->LEND jmp .L55 .L376: 1396 1397 %ROUTINE BNEST pushl %ebp movl %esp, %ebp subl $20, %esp call __x86.get_pc_thunk.ax addl $_GLOBAL_OFFSET_TABLE_, %eax movl %ecx, -20(%ebp) 1398 BP = BP+4; !!%MONITOR 23 %IF BP-NP >= 0 movl BP.6053@GOTOFF(%eax), %edx addl $4, %edx movl %edx, BP.6053@GOTOFF(%eax) 1399 INTEGER(BP-3) = SAVE; INTEGER(BP-2) = TEMPS movl BP.6053@GOTOFF(%eax), %edx subl $3, %edx movl %edx, -4(%ebp) .LBB454: .LBB455: movl -4(%ebp), %edx .LBE455: .LBE454: movl SAVE.6065@GOTOFF(%eax), %ecx movl %ecx, (%edx) movl BP.6053@GOTOFF(%eax), %edx subl $2, %edx movl %edx, -8(%ebp) .LBB456: .LBB457: movl -8(%ebp), %edx .LBE457: .LBE456: movl TEMPS.6066@GOTOFF(%eax), %ecx movl %ecx, (%edx) 1400 INTEGER(BP-1) = MACLIM; INTEGER(BP) = DEFMIN movl BP.6053@GOTOFF(%eax), %edx subl $1, %edx movl %edx, -12(%ebp) .LBB458: .LBB459: movl -12(%ebp), %edx .LBE459: .LBE458: movl MACLIM.6042@GOTOFF(%eax), %ecx movl %ecx, (%edx) movl BP.6053@GOTOFF(%eax), %edx movl %edx, -16(%ebp) .LBB460: .LBB461: movl -16(%ebp), %edx .LBE461: .LBE460: movl DEFMIN.6048@GOTOFF(%eax), %eax movl %eax, (%edx) 1401 %END nop leave ret .LFE233: .data .align 4 LIS.6024: .long 2 .comm CODEPOS.6035,4,4 .comm MACLIM.6042,4,4 .comm STORELIM.6055,4,4 .comm NP.6054,4,4 .comm LABLIM.6052,4,4 .comm BP.6053,4,4 .comm DEFLIM.6049,4,4 .comm DEFMIN.6048,4,4 .align 4 PRE.6022: .long 2 .align 4 PASS.6061: .long -1 .align 4 CONTROL.6067: .long 64 .comm STARTPOS.6036,4,4 .comm MP.6043,4,4 .comm ALMAX.6050,4,4 .comm LABMIN.6051,4,4 .align 4 MEMMASK.6030: .long 64 .align 4 RELMASK.6031: .long 32 .comm FAULTPOS.6041,4,4 .comm QBASE.6044,4,4 .comm QSTART.6045,4,4 .comm QLIM.6046,4,4 .align 4 IF.6673: .long 9991 .align 4 ELS.6674: .long 5950 .align 4 FIN.6676: .long 6907 .align 4 DEF.6681: .long 4605 .align 4 END.6682: .long 6009 .comm LINES.6060,4,4 .align 4 JUM.6678: .long 11642 .align 4 P.6679: .long 17206 .align 4 PS.6680: .long 17983 .align 4 E.6675: .long 5403 .align 4 ISH.6677: .long 10490 .align 4 B.6672: .long 2184 .align 4 UMASK.6028: .long 512 .align 4 OPMASK.6025: .long 61440 .align 4 MACRO.6026: .long 40960 .align 4 REGXMASK.6033: .long 144 .comm PRINTPOS.6040,4,4 .align 4 REG.6029: .long 128 .comm TRANSF.6047,4,4 .comm GETPOS.6037,4,4 .align 4 LIST.6062: .long -1 .comm CHARS.6059,4,4 .align 4 TEMPS.6066: .long 12 .align 4 SAVE.6065: .long 1 .comm PUTPOS.6038,4,4 .comm PSEUDOLIM.6039,4,4 .align 4 MAIN.6021: .long 1 .comm CHECK.6068,4,4 .align 4 BIN.6023: .long 1 .align 4 RELUXMASK.6034: .long 560 .align 4 XMASK.6032: .long 16 .align 4 FMASK.6027: .long 2048 .align 4 AND.6592: .long 1717 .align 4 OR.6593: .long 16873 .align 4 W.6520: .long 24717 .align 4 AND.6194: .long 61696 .align 4 ANDI.6202: .long 36864 .align 4 SUB.6193: .long 62720 .align 4 ADD.6192: .long 62464 .align 4 ROT.6208: .long 12288 .align 4 OR.6195: .long 61440 .align 4 XOR.6196: .long 63232 .align 4 COPY.6198: .long 62208 .align 4 SKIDI.6200: .long 28672 .align 4 STORE.6210: .long 8200 .align 4 SKIP.6206: .long 16386 .align 4 BOCR.6204: .long 20480 .section .data.rel.local,"aw",@progbits .align 32 ASS.6222: .long .L847 .long .L847 .long .L847 .long .L847 .long .L823 .long .L806 .long .L803 .long .L802 .long .L801 .long .L789 .long .L788 .long .L847 .long .L787 .long .L786 .long .L785 .long .L784 .long .L778 .long .L770 .long .L769 .long .L750 .long .L847 .long .L847 .long .L745 .long .L730 .long .L728 .long .L744 .long .L743 .long .L742 .long .L710 .long .L718 .data .align 4 LOAD.6209: .long 8192 .align 4 LOADC.6207: .long 8434 .align 4 JUM.6205: .long 16384 .align 4 BOC.6203: .long 22528 .align 4 ADDI.6201: .long 32768 .align 4 LOADI.6199: .long 24576 .align 4 COMP.6197: .long 61952 .section .rodata .align 4 __PRETTY_FUNCTION__.5621: .string "_imp_SELECTINPUT" .align 4 __PRETTY_FUNCTION__.5625: .string "_imp_SELECTOUTPUT" .data .align 4 MARKER.6128: .long 124 .section .rodata .align 4 __PRETTY_FUNCTION__.5593: .string "_imp_OUTDEV" .section .text.__x86.get_pc_thunk.ax,"axG",@progbits,__x86.get_pc_thunk.ax,comdat .globl __x86.get_pc_thunk.ax .hidden __x86.get_pc_thunk.ax __x86.get_pc_thunk.ax: .LFB234: movl (%esp), %eax ret .LFE234: .section .text.__x86.get_pc_thunk.dx,"axG",@progbits,__x86.get_pc_thunk.dx,comdat .globl __x86.get_pc_thunk.dx .hidden __x86.get_pc_thunk.dx __x86.get_pc_thunk.dx: .LFB235: movl (%esp), %edx ret .LFE235: .section .text.__x86.get_pc_thunk.bx,"axG",@progbits,__x86.get_pc_thunk.bx,comdat .globl __x86.get_pc_thunk.bx .hidden __x86.get_pc_thunk.bx __x86.get_pc_thunk.bx: .LFB236: movl (%esp), %ebx ret .LFE236: .section .text.__x86.get_pc_thunk.si,"axG",@progbits,__x86.get_pc_thunk.si,comdat .globl __x86.get_pc_thunk.si .hidden __x86.get_pc_thunk.si __x86.get_pc_thunk.si: .LFB237: movl (%esp), %esi ret .LFE237: .Letext0: 1402 1403 BEGIN: 1404 BNEST leal -944(%ebp), %eax movl %eax, %ecx call BNEST.6853 1405 ->NEWPAGE %IF SYM # NL nop .L273: .L276: movl -928(%ebp), %eax cmpl $10, %eax jne .L470 nop .L311: 1406 ->LEND jmp .L55 .L377: 1407 1408 BEND: 1409 FAULT('C') %IF NP # STORELIM %OR MP # 0 movl NP.6054@GOTOFF(%ebx), %edx movl STORELIM.6055@GOTOFF(%ebx), %eax cmpl %eax, %edx jne .L471 movl MP.6043@GOTOFF(%ebx), %eax testl %eax, %eax je .L472 jmp .L313 .L471: nop .L313: subl $12, %esp leal -944(%ebp), %eax pushl $67 movl %eax, %ecx call FAULT.6097 addl $16, %esp jmp .L314 .L472: nop .L314: 1410 MP = 0; NP = STORELIM movl $0, MP.6043@GOTOFF(%ebx) movl STORELIM.6055@GOTOFF(%ebx), %eax movl %eax, NP.6054@GOTOFF(%ebx) 1411 %IF BP # LABLIM %START movl BP.6053@GOTOFF(%ebx), %edx movl LABLIM.6052@GOTOFF(%ebx), %eax cmpl %eax, %edx je .L473 nop .L322: .LBB280: .LBB281: call _imp_closeinput@PLT .LBE281: .LBE280: 1412 SAVE = INTEGER(BP-3); TEMPS = INTEGER(BP-2) movl BP.6053@GOTOFF(%ebx), %eax subl $3, %eax movl %eax, -952(%ebp) .LBB272: .LBB273: movl -952(%ebp), %eax .LBE273: .LBE272: movl (%eax), %eax movl %eax, SAVE.6065@GOTOFF(%ebx) movl BP.6053@GOTOFF(%ebx), %eax subl $2, %eax movl %eax, -956(%ebp) .LBB274: .LBB275: movl -956(%ebp), %eax .LBE275: .LBE274: movl (%eax), %eax movl %eax, TEMPS.6066@GOTOFF(%ebx) 1413 MACLIM = INTEGER(BP-1); STARTPOS = MACLIM movl BP.6053@GOTOFF(%ebx), %eax subl $1, %eax movl %eax, -960(%ebp) .LBB276: .LBB277: movl -960(%ebp), %eax .LBE277: .LBE276: movl (%eax), %eax movl %eax, MACLIM.6042@GOTOFF(%ebx) movl MACLIM.6042@GOTOFF(%ebx), %eax movl %eax, STARTPOS.6036@GOTOFF(%ebx) 1414 DEFMIN = INTEGER(BP) movl BP.6053@GOTOFF(%ebx), %eax movl %eax, -964(%ebp) .LBB278: .LBB279: movl -964(%ebp), %eax .LBE279: .LBE278: movl (%eax), %eax movl %eax, DEFMIN.6048@GOTOFF(%ebx) 1415 SET ACC leal -944(%ebp), %eax movl %eax, %ecx call SETACC.6666 1416 BP = BP-4 movl BP.6053@GOTOFF(%ebx), %eax subl $4, %eax movl %eax, BP.6053@GOTOFF(%ebx) movl BP.6053@GOTOFF(%ebx), %edx movl LABLIM.6052@GOTOFF(%ebx), %eax cmpl %eax, %edx jne .L474 jmp .L322 .L316: .L473: 1417 ->LEND %IF BP # LABLIM nop .L55: 1418 %FINISH 1419 CLOSE INPUT; SELECT INPUT(MAIN) movl MAIN.6021@GOTOFF(%ebx), %eax subl $12, %esp pushl %eax call _imp_SELECTINPUT addl $16, %esp 1420 BNEST leal -944(%ebp), %eax movl %eax, %ecx call BNEST.6853 1421 LIST = 5 movl $5, LIST.6062@GOTOFF(%ebx) 1422 PASS = PASS+1 movl PASS.6061@GOTOFF(%ebx), %eax addl $1, %eax movl %eax, PASS.6061@GOTOFF(%ebx) 1423 ->DO PASS %IF PASS # 2 movl PASS.6061@GOTOFF(%ebx), %eax cmpl $2, %eax je .L475 jmp .L31 .L475: nop .L324: 1424 1425 PUT WORD(CHECK!!16_0100); CONTROL = 16_30 movl CHECK.6068@GOTOFF(%ebx), %eax xorb $1, %ah movl %eax, %edx subl $12, %esp leal -944(%ebp), %eax pushl %edx movl %eax, %ecx call PUTWORD.6149 addl $16, %esp movl $48, CONTROL.6067@GOTOFF(%ebx) 1426 PUT WORD(16_0100) subl $12, %esp leal -944(%ebp), %eax pushl $256 movl %eax, %ecx call PUTWORD.6149 addl $16, %esp 1427 SELECT OUTPUT(BIN); PRINT CH(16_60); SELECT OUTPUT(LIS) movl BIN.6023@GOTOFF(%ebx), %eax subl $12, %esp pushl %eax call _imp_SELECTOUTPUT addl $16, %esp movb $96, -1085(%ebp) .LBB282: .LBB283: movsbl -1085(%ebp), %eax subl $12, %esp pushl %eax call _imp_printch@PLT addl $16, %esp .LBE283: .LBE282: movl LIS.6024@GOTOFF(%ebx), %eax subl $12, %esp pushl %eax call _imp_SELECTOUTPUT addl $16, %esp 1428 FAULT('$') subl $12, %esp leal -944(%ebp), %eax pushl $36 movl %eax, %ecx call FAULT.6097 addl $16, %esp 1429 PRINT LOC; PRINT LINE leal -944(%ebp), %eax movl %eax, %ecx call PRINTLOC.6114 leal -944(%ebp), %eax movl %eax, %ecx call PRINTLINE.6123 1430 LINES = 60 %IF OUTDEV = 1 call _imp_OUTDEV cmpl $1, %eax jne .L476 movl $60, LINES.6060@GOTOFF(%ebx) jmp .L330 .L326: .L476: nop .L327: .L330: 1431 DO NEWLINE %WHILE LINES # 0 movl LINES.6060@GOTOFF(%ebx), %eax testl %eax, %eax je .L477 leal -944(%ebp), %eax movl %eax, %ecx call DONEWLINE.6119 jmp .L330 .L477: nop .L329: movl $0, -948(%ebp) .LBB284: .LBB285: subl $12, %esp pushl -948(%ebp) call exit@PLT .LBE285: .LBE284: .LFE189: PUTCHAR.6094: .LFB191: 1432 1433 %ENDOFPROGRAM ?RELUXMASK unused 1419 Statements compiled