Edinburgh IMP77 Compiler - Version 8.4 1 !!%CONTROL 0 .Ltext0: _imp_IEXP: .LFB60: pushl %ebp movl %esp, %ebp subl $16, %esp call __x86.get_pc_thunk.ax addl $_GLOBAL_OFFSET_TABLE_, %eax movl $1, -8(%ebp) movl 12(%ebp), %eax movl %eax, -4(%ebp) jmp .L2 .L3: movl -8(%ebp), %eax imull 8(%ebp), %eax movl %eax, -8(%ebp) .L2: movl -4(%ebp), %eax leal -1(%eax), %edx movl %edx, -4(%ebp) testl %eax, %eax jg .L3 movl -8(%ebp), %eax cltd leave ret .LFE60: _imp_REXP: .LFB61: pushl %ebp movl %esp, %ebp pushl %ebx subl $20, %esp call __x86.get_pc_thunk.ax addl $_GLOBAL_OFFSET_TABLE_, %eax movl 8(%ebp), %edx movl %edx, -16(%ebp) movl 12(%ebp), %edx movl %edx, -12(%ebp) movl 16(%ebp), %edx movl %edx, -24(%ebp) movl 20(%ebp), %edx movl %edx, -20(%ebp) fldl -24(%ebp) fldl .LC3@GOTOFF(%eax) fucomip %st(1), %st fstp %st(0) jp .L6 fldl -24(%ebp) fldl .LC3@GOTOFF(%eax) fucomip %st(1), %st fstp %st(0) jne .L6 fldl -16(%ebp) fmull -16(%ebp) jmp .L9 .L6: pushl -20(%ebp) pushl -24(%ebp) pushl -12(%ebp) pushl -16(%ebp) movl %eax, %ebx call pow@PLT addl $16, %esp .L9: movl -4(%ebp), %ebx leave ret .LFE61: _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 .L14 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 .L11 .L14: nop .L11: movl -4(%ebp), %ebx leave ret .LFE93: NEWPAGE.6022: .LFB190: 2 %BEGIN leal 4(%esp), %ecx andl $-16, %esp pushl -4(%ecx) pushl %ebp movl %esp, %ebp pushl %edi pushl %esi pushl %ebx pushl %ecx subl $85080, %esp call __x86.get_pc_thunk.si addl $_GLOBAL_OFFSET_TABLE_, %esi movl %esi, %edi movl %edi, -85076(%ebp) movl %ecx, %eax movl 4(%eax), %edx movl %edx, -85068(%ebp) movl %gs:20, %esi movl %esi, -28(%ebp) xorl %esi, %esi leal 8(%ebp), %edx movl %edx, -32(%ebp) subl $8, %esp pushl -85068(%ebp) pushl (%eax) movl %edi, %esi movl %esi, %ebx call _imp_initialise@PLT addl $16, %esp 3 4 %routine newpage pushl %ebp movl %esp, %ebp pushl %ebx subl $36, %esp call __x86.get_pc_thunk.ax addl $_GLOBAL_OFFSET_TABLE_, %eax movl %ecx, -28(%ebp) movb $12, -9(%ebp) .LBB182: .LBB183: movsbl -9(%ebp), %edx subl $12, %esp pushl %edx movl %eax, %ebx call _imp_printsymbol@PLT addl $16, %esp .LBE183: .LBE182: 5 printsymbol('L'&31) 6 %end nop movl -4(%ebp), %ebx leave ret .LFE190: .section .rodata .LC4: .string "test-in/skimpais.imp" .align 4 .LC5: .string "->INS(%d) out of bounds at %s line %d" .align 4 .LC6: .string "->IOR(%d) out of bounds at %s line %d" .align 32 .LC0: .byte 11 .string "skimp77.asm" .zero 243 .align 32 .LC1: .byte 58 .string "End of file reading skimp77.asm, not while executing it..." .zero 196 .align 32 .LC2: .byte 20 .string "test-in/skimpais.imp" .zero 234 .globl main main: .LFB189: 7 8 %routine xreadsym(%integername sym) 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) movl 8(%ebp), %eax movl %eax, -12(%ebp) .LBB336: .LBB337: subl $12, %esp pushl -12(%ebp) call _imp_readsymbol@PLT addl $16, %esp .LBE337: .LBE336: 9 readsymbol(sym) ; printsymbol(sym) movl 8(%ebp), %eax movl (%eax), %eax movsbl %al, %eax movb %al, -13(%ebp) .LBB338: .LBB339: movsbl -13(%ebp), %eax subl $12, %esp pushl %eax call _imp_printsymbol@PLT addl $16, %esp .LBE339: .LBE338: 10 %end nop movl -4(%ebp), %ebx leave ret .LFE191: READSYMBOL.6028: .LFB192: 11 12 %routine readsymbol(%integername sym) pushl %ebp movl %esp, %ebp subl $24, %esp call __x86.get_pc_thunk.ax addl $_GLOBAL_OFFSET_TABLE_, %eax movl %ecx, %eax movl %ecx, -12(%ebp) 13 xreadsym(sym) subl $12, %esp pushl 8(%ebp) movl %eax, %ecx call XREADSYM.6025 addl $16, %esp 14 %end nop leave ret .LFE192: XREAD.6031: .LFB193: 15 16 %routine xread(%integername num) pushl %ebp movl %esp, %ebp pushl %ebx subl $292, %esp call __x86.get_pc_thunk.bx addl $_GLOBAL_OFFSET_TABLE_, %ebx movl 8(%ebp), %eax movl %eax, -284(%ebp) movl %ecx, -288(%ebp) movl %gs:20, %eax movl %eax, -12(%ebp) xorl %eax, %eax 17 read(num) ; write(num,0) subl $12, %esp pushl -284(%ebp) call _imp_readint@PLT addl $16, %esp movl -284(%ebp), %eax movl (%eax), %eax subl $8, %esp pushl $0 pushl %eax call _imp_writeint@PLT addl $16, %esp 18 %end nop movl -12(%ebp), %eax xorl %gs:20, %eax je .L527 call __stack_chk_fail_local .L527: movl -4(%ebp), %ebx leave ret .LFE193: READ.6036: .LFB194: 19 20 %routine read(%integername num) pushl %ebp movl %esp, %ebp subl $24, %esp call __x86.get_pc_thunk.ax addl $_GLOBAL_OFFSET_TABLE_, %eax movl %ecx, %eax movl %ecx, -12(%ebp) 21 xread(num) subl $12, %esp pushl 8(%ebp) movl %eax, %ecx call XREAD.6031 addl $16, %esp 22 %end nop leave ret .LFE194: READMN.6068: .LFB195: 23 24 %INTEGERARRAY RMN,REG(0:15) leal -84772(%ebp), %edx movl $0, %eax movl $17, %ecx movl %edx, %edi rep stosl leal -65708(%ebp), %eax addl $65604, %eax movl %eax, -84772(%ebp) movl $4, -84768(%ebp) leal -84704(%ebp), %edx movl $0, %eax movl $17, %ecx movl %edx, %edi rep stosl leal -65708(%ebp), %eax addl $65540, %eax movl %eax, -84704(%ebp) movl $4, -84700(%ebp) 25 %INTEGERARRAY IMN(1:31) leal -84636(%ebp), %edx movl $0, %eax movl $17, %ecx movl %edx, %edi rep stosl leal -84136(%ebp), %eax movl %eax, -84636(%ebp) movl $4, -84632(%ebp) 26 %INTEGERARRAY LMN,LAD(1:20) leal -84568(%ebp), %edx movl $0, %eax movl $17, %ecx movl %edx, %edi rep stosl leal -84296(%ebp), %eax movl %eax, -84568(%ebp) movl $4, -84564(%ebp) leal -84500(%ebp), %edx movl $0, %eax movl $17, %ecx movl %edx, %edi rep stosl leal -84216(%ebp), %eax movl %eax, -84500(%ebp) movl $4, -84496(%ebp) 27 %INTEGERARRAY R(1:4000) leal -84432(%ebp), %edx movl $0, %eax movl $17, %ecx movl %edx, %edi rep stosl leal -81708(%ebp), %eax movl %eax, -84432(%ebp) movl $4, -84428(%ebp) 28 %INTEGERARRAY S(0:16383) leal -84364(%ebp), %edx movl $0, %eax movl $17, %ecx movl %edx, %edi rep stosl leal -65708(%ebp), %eax movl %eax, -84364(%ebp) movl $4, -84360(%ebp) 29 %INTEGER LP,RP,SP,I,J,K,L,M,N,F,MR,TR,ST,CT 30 %ROUTINESPEC READMN(%INTEGERNAME MN,NEXT) 31 %ROUTINESPEC FAULT(%INTEGER I,J,K,L) 32 %ROUTINESPEC OUT(%INTEGER I) 33 %ROUTINESPEC DUMP 34 %SWITCH INS(1:31) 35 %SWITCH IOR(0:10) 36 !!%EXTERNALROUTINESPEC DEFINE(%STRING(63) S) 37 RMN(0)=M'BR0' ; RMN(1)=M'BR1' ; RMN(2)=M'BR2' movl $4346416, -104(%ebp) movl $4346417, -100(%ebp) movl $4346418, -96(%ebp) 38 RMN(3)=M'BR3' ; RMN(4)=M'BR4' ; RMN(5)=M'BR5' movl $4346419, -92(%ebp) movl $4346420, -88(%ebp) movl $4346421, -84(%ebp) 39 RMN(6)=M'BR6' ; RMN(7)=M'BR7' ; RMN(8)=M'BR8' movl $4346422, -80(%ebp) movl $4346423, -76(%ebp) movl $4346424, -72(%ebp) 40 RMN(9)=M'BR9' ; RMN(10)=M'BR10'; RMN(11)=M'BR11' movl $4346425, -68(%ebp) movl $1112682800, -64(%ebp) movl $1112682801, -60(%ebp) 41 RMN(12)=M'BR12'; RMN(13)=M'WK' ; RMN(14)=M'STP' movl $1112682802, -56(%ebp) movl $22347, -52(%ebp) movl $5461072, -48(%ebp) 42 RMN(15)=M'ACC' movl $4277059, -44(%ebp) 43 IMN(1)=M'LOAD' ; IMN(2)=M'LDA' ; IMN(3)=M'ADD' movl $1280262468, -84136(%ebp) movl $4998209, -84132(%ebp) movl $4277316, -84128(%ebp) 44 IMN(4)=M'SUB' ; IMN(5)=M'MLT' ; IMN(6)=M'DIV' movl $5461314, -84124(%ebp) movl $5065812, -84120(%ebp) movl $4475222, -84116(%ebp) 45 IMN(7)=M'EXP' ; IMN(8)=M'STR' ; IMN(9)=M'NEG' movl $4544592, -84112(%ebp) movl $5461074, -84108(%ebp) movl $5129543, -84104(%ebp) 46 IMN(10)=M'NOT' ; IMN(11)=M'SHL' ; IMN(12)=M'SHR' movl $5132116, -84100(%ebp) movl $5457996, -84096(%ebp) movl $5458002, -84092(%ebp) 47 IMN(13)=M'AND' ; IMN(14)=M'OR' ; IMN(15)=M'XOR' movl $4279876, -84088(%ebp) movl $20306, -84084(%ebp) movl $5787474, -84080(%ebp) 48 IMN(16)=M'BAL' ; IMN(17)=M'B' ; IMN(18)=M'BZ' movl $4342092, -84076(%ebp) movl $66, -84072(%ebp) movl $16986, -84068(%ebp) 49 IMN(19)=M'BNZ' ; IMN(20)=M'BG' ; IMN(21)=M'BNG' movl $4345434, -84064(%ebp) movl $16967, -84060(%ebp) movl $4345415, -84056(%ebp) 50 IMN(22)=M'BL' ; IMN(23)=M'BNL' ; IMN(24)=M'STOP' movl $16972, -84052(%ebp) movl $4345420, -84048(%ebp) movl $1398034256, -84044(%ebp) 51 IMN(25)=M'ADDF'; IMN(26)=M'SUBF'; IMN(27)=M'MLTF' movl $1094992966, -84040(%ebp) movl $1398096454, -84036(%ebp) movl $1296847942, -84032(%ebp) 52 IMN(28)=M'DIVF'; IMN(29)=M'EXPF'; IMN(30)=M'NEGF' movl $1145656902, -84028(%ebp) movl $1163415622, -84024(%ebp) movl $1313163078, -84020(%ebp) 53 IMN(31)=M'FLT' movl $4607060, -84016(%ebp) 54 LP=1 movl $1, -85028(%ebp) 55 RP=1 movl $1, -85032(%ebp) 56 SP=0 movl $0, %eax movl %eax, -36(%ebp) 57 F=0 movl $0, %eax movl %eax, -40(%ebp) 58 MR=0 movl $0, -85040(%ebp) 59 TR=0 movl $0, -85024(%ebp) .LBB184: 60 !! DEFINE('STREAM01,SKIMPO') 61 open input(1, "skimp77.asm") leal -81964(%ebp), %eax movl %esi, %ebx movl %ebx, %esi leal .LC0@GOTOFF(%esi), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -84012(%ebp), %eax leal -81964(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl movl $1, -84984(%ebp) leal -82220(%ebp), %eax leal -84012(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE184: .LBB185: .LBB186: subl $12, %esp subl $256, %esp movl %esp, %eax movl %eax, %edi leal -82220(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl pushl -84984(%ebp) call _imp_openinput@PLT addl $272, %esp .LBE186: .LBE185: 62 SELECT INPUT(1) subl $12, %esp pushl $1 call _imp_SELECTINPUT addl $16, %esp jmp .L18 .L411: 63 !!L1: READ SYMBOL(I) 64 L1: %begin 65 %on %event 9 %start subl $8, %esp pushl $1 movl -85076(%ebp), %ebx movl _imp_event@GOT(%ebx), %eax leal 532(%eax), %eax pushl %eax call __sigsetjmp@PLT addl $16, %esp testl %eax, %eax jne .L20 .LBB187: movl $9, -83244(%ebp) movl $0, -85016(%ebp) .LBB188: movl $0, -85012(%ebp) jmp .L21 .L22: movl -85012(%ebp), %eax movl -83244(%ebp,%eax,4), %eax movl $1, %edx movl %eax, %ecx sall %cl, %edx movl %edx, %eax orl %eax, -85016(%ebp) addl $1, -85012(%ebp) .L21: cmpl $0, -85012(%ebp) je .L22 .LBE188: movl -85016(%ebp), %eax .LBE187: subl $8, %esp pushl %eax movl -85076(%ebp), %ebx movl _imp_event@GOT(%ebx), %eax pushl %eax call _imp_on_event_enter@PLT addl $16, %esp testl %eax, %eax jne .L406 .L20: .LBB189: nop .L23: 66 print string("End of file reading skimp77.asm, not while executing it..."); newline leal -83244(%ebp), %eax movl -85076(%ebp), %ebx leal .LC1@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -83756(%ebp), %eax leal -83244(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -81964(%ebp), %eax leal -83756(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE189: .LBB190: .LBB191: subl $256, %esp movl %esp, %eax movl %eax, %edi leal -81964(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl movl %ebx, %esi movl %esi, %ebx call _imp_printstring@PLT addl $256, %esp .LBE191: .LBE190: .LBB192: .LBB193: movl %esi, %ebx call _imp_newline@PLT movl $0, -84980(%ebp) .LBE193: .LBE192: .LBB194: .LBB195: subl $12, %esp pushl -84980(%ebp) movl %esi, %ebx call exit@PLT .L406: .LBE195: .LBE194: 67 ! So what is supposed to signify end of the skimp assembly code? 68 %stop 69 %finish 70 READ SYMBOL(I) subl $12, %esp leal -65708(%ebp), %eax leal -85060(%ebp), %edx pushl %edx movl %eax, %ecx call READSYMBOL.6028 addl $16, %esp 71 %end nop .L24: 72 %if i = ';' %then %start movl -85060(%ebp), %eax cmpl $59, %eax jne .L407 nop .L26: 73 %cycle ;! skip comments. comments with a '.' in them were causing errors. nop .L25: 74 read symbol(i) subl $12, %esp leal -65708(%ebp), %eax leal -85060(%ebp), %edx pushl %edx movl %eax, %ecx call READSYMBOL.6028 addl $16, %esp 75 %repeat %until i = NL movl -85060(%ebp), %eax cmpl $10, %eax je .L408 jmp .L25 .L408: nop .L28: 76 ->L1 jmp .L18 .L407: 77 %finish 78 %IF I='''' %THEN %START movl -85060(%ebp), %eax cmpl $39, %eax jne .L409 nop .L30: movl -85060(%ebp), %eax cmpl $46, %eax jne .L411 nop .L34: 79 L10: READ SYMBOL(I) nop .L29: subl $12, %esp leal -65708(%ebp), %eax leal -85060(%ebp), %edx pushl %edx movl %eax, %ecx call READSYMBOL.6028 addl $16, %esp 80 %IF I\='''' %THEN ->L10 movl -85060(%ebp), %eax cmpl $39, %eax je .L410 jmp .L29 .L410: nop .L32: 81 ->L1 ; %FINISH jmp .L18 .L409: 82 %IF I\='.' %THEN ->L1 nop .L18: 83 READMN(I,J) subl $8, %esp leal -65708(%ebp), %eax leal -85056(%ebp), %edx pushl %edx leal -85060(%ebp), %edx pushl %edx movl %eax, %ecx call READMN.6068 addl $16, %esp 84 %IF J=':' %THEN %START movl -85056(%ebp), %eax cmpl $58, %eax jne .L412 nop .L36: 85 %IF LP=1 %THEN ->L2 cmpl $1, -85028(%ebp) je .L413 nop .L38: nop jmp .L50 .L417: 86 K=1 movl $1, -85052(%ebp) .L40: 87 L4: %IF I=LMN(K) %THEN %START movl -85052(%ebp), %eax subl $1, %eax movl -84296(%ebp,%eax,4), %edx movl -85060(%ebp), %eax cmpl %eax, %edx jne .L414 nop .L42: 88 %IF LAD(K)>=0 %THEN FAULT(M'LABE',M'L SE',M'T TW',M'ICE ') movl -85052(%ebp), %eax subl $1, %eax movl -84216(%ebp,%eax,4), %eax testl %eax, %eax js .L415 leal -65708(%ebp), %eax pushl $1229145376 pushl $1411404887 pushl $1277186885 pushl $1279345221 movl %eax, %ecx call FAULT.6073 addl $16, %esp nop .L44: jmp .L45 .L414: 89 ->L3 ; %FINISH jmp .L45 .L415: 90 K=K+1 movl -85052(%ebp), %eax addl $1, %eax movl %eax, -85052(%ebp) 91 %IF KL4 movl -85052(%ebp), %eax cmpl %eax, -85028(%ebp) jle .L416 jmp .L40 .L416: nop .L47: 92 %IF LP>20 %THEN %START cmpl $20, -85028(%ebp) jle .L417 nop .L50: 93 FAULT(M'TOO ',M'MANY',M' LAB',M'ELS ') leal -65708(%ebp), %eax pushl $1162629920 pushl $541868354 pushl $1296125529 pushl $1414483744 movl %eax, %ecx call FAULT.6073 addl $16, %esp 94 ->L25 ; %FINISH jmp .L49 .L39: .L413: 95 L2: LMN(LP)=I movl -85028(%ebp), %eax leal -1(%eax), %edx movl -85060(%ebp), %eax movl %eax, -84296(%ebp,%edx,4) 96 K=LP movl -85028(%ebp), %eax movl %eax, -85052(%ebp) 97 LP=LP+1 addl $1, -85028(%ebp) .L45: 98 L3: LAD(K)=SP movl -85052(%ebp), %eax leal -1(%eax), %edx movl -36(%ebp), %eax movl %eax, -84216(%ebp,%edx,4) .L49: 99 L25: %IF I=M'ST' %THEN %START movl -85060(%ebp), %eax cmpl $21332, %eax jne .L418 nop .L52: 100 ST=SP movl -36(%ebp), %eax movl %eax, -172(%ebp) 101 ->L18 ; %FINISH nop .L53: 102 ->L1 ; %FINISH jmp .L18 .L412: 103 %IF J='=' %THEN %START movl -85056(%ebp), %eax cmpl $61, %eax jne .L419 nop .L55: 104 READ(K) subl $12, %esp leal -65708(%ebp), %eax leal -85052(%ebp), %edx pushl %edx movl %eax, %ecx call READ.6036 addl $16, %esp 105 %IF K<0 %OR K>15 %THEN %START movl -85052(%ebp), %eax testl %eax, %eax js .L420 movl -85052(%ebp), %eax cmpl $15, %eax jle .L421 jmp .L57 .L420: nop .L57: nop .L58: 106 FAULT(M'EQUA',M'TE N',M'UMBE',M'R ? ') leal -65708(%ebp), %eax pushl $1377845024 pushl $1431126597 pushl $1413816398 pushl $1162958145 movl %eax, %ecx call FAULT.6073 addl $16, %esp 107 ->L1 ; %FINISH jmp .L18 .L421: 108 RMN(K)=I movl -85052(%ebp), %edx movl -85060(%ebp), %eax addl $16400, %edx movl %eax, -65704(%ebp,%edx,4) 109 ->L1 ; %FINISH jmp .L18 .L419: 110 %IF I=M'REGS' %AND J=10 %THEN %START movl -85060(%ebp), %eax cmpl $1380271955, %eax jne .L422 movl -85056(%ebp), %eax cmpl $10, %eax jne .L423 nop jmp .L60 .L423: nop .L60: 111 MR=MR!128 orl $128, -85040(%ebp) 112 ->L1 ; %FINISH jmp .L18 .L422: 113 %IF I=M'TON' %AND J=10 %THEN %START movl -85060(%ebp), %eax cmpl $5525326, %eax jne .L424 movl -85056(%ebp), %eax cmpl $10, %eax jne .L425 nop jmp .L63 .L425: nop .L63: 114 MR=MR!64 orl $64, -85040(%ebp) 115 ->L1 ; %FINISH jmp .L18 .L424: 116 %IF I=M'TOFF' %AND J=10 %THEN %START movl -85060(%ebp), %eax cmpl $1414481478, %eax jne .L426 movl -85056(%ebp), %eax cmpl $10, %eax jne .L427 nop jmp .L66 .L427: nop .L66: 117 MR=MR!32 orl $32, -85040(%ebp) 118 ->L1 ; %FINISH jmp .L18 .L426: 119 %IF J\=',' %THEN FAULT(M'SYNT',M'AX ?',0,0) movl -85056(%ebp), %eax cmpl $44, %eax je .L428 leal -65708(%ebp), %eax pushl $0 pushl $0 pushl $1096294463 pushl $1398361684 movl %eax, %ecx call FAULT.6073 addl $16, %esp jmp .L69 .L428: nop .L69: 120 %IF I=0 %THEN %START movl -85060(%ebp), %eax testl %eax, %eax jne .L429 nop .L71: 121 READMN(I,J) subl $8, %esp leal -65708(%ebp), %eax leal -85056(%ebp), %edx pushl %edx leal -85060(%ebp), %edx pushl %edx movl %eax, %ecx call READMN.6068 addl $16, %esp 122 %IF I\=0 %OR J\=',' %THEN FAULT(M'SYNT',M'AX ?',0,0) movl -85060(%ebp), %eax testl %eax, %eax jne .L430 movl -85056(%ebp), %eax cmpl $44, %eax je .L431 jmp .L73 .L430: nop .L73: leal -65708(%ebp), %eax pushl $0 pushl $0 pushl $1096294463 pushl $1398361684 movl %eax, %ecx call FAULT.6073 addl $16, %esp jmp .L74 .L431: nop .L74: 123 READMN(I,J) subl $8, %esp leal -65708(%ebp), %eax leal -85056(%ebp), %edx pushl %edx leal -85060(%ebp), %edx pushl %edx movl %eax, %ecx call READMN.6068 addl $16, %esp 124 %IF I\=0 %OR J\=',' %THEN FAULT(M'SYNT',M'AX ?',0,0) movl -85060(%ebp), %eax testl %eax, %eax jne .L432 movl -85056(%ebp), %eax cmpl $44, %eax je .L433 jmp .L76 .L432: nop .L76: leal -65708(%ebp), %eax pushl $0 pushl $0 pushl $1096294463 pushl $1398361684 movl %eax, %ecx call FAULT.6073 addl $16, %esp jmp .L77 .L433: nop .L77: 125 %IF SP>=16384 %THEN %START movl -36(%ebp), %eax cmpl $16383, %eax jle .L434 nop .L79: 126 FAULT(M'PROG',M'RAM ',M'TOO ',M'BIG ') leal -65708(%ebp), %eax pushl $1112098592 pushl $1414483744 pushl $1380011296 pushl $1347571527 movl %eax, %ecx call FAULT.6073 addl $16, %esp movl $0, -84976(%ebp) .LBB196: .LBB197: subl $12, %esp pushl -84976(%ebp) movl -85076(%ebp), %ebx call exit@PLT .L434: .LBE197: .LBE196: 127 %STOP ; %FINISH 128 READ(S(SP)) movl -36(%ebp), %edx leal -65708(%ebp), %eax sall $2, %edx addl %eax, %edx subl $12, %esp leal -65708(%ebp), %eax pushl %edx movl %eax, %ecx call READ.6036 addl $16, %esp 129 SP=SP+1 movl -36(%ebp), %eax addl $1, %eax movl %eax, -36(%ebp) 130 MR=0 movl $0, -85040(%ebp) 131 ->L1 ; %FINISH jmp .L18 .L429: 132 K=1 movl $1, -85052(%ebp) .L80: 133 L6: %IF I=IMN(K) %THEN ->L5 movl -85052(%ebp), %eax subl $1, %eax movl -84136(%ebp,%eax,4), %edx movl -85060(%ebp), %eax cmpl %eax, %edx je .L435 nop .L82: nop .L83: 134 K=K+1 movl -85052(%ebp), %eax addl $1, %eax movl %eax, -85052(%ebp) 135 %IF K<=31 %THEN ->L6 movl -85052(%ebp), %eax cmpl $31, %eax jg .L436 jmp .L80 .L436: nop .L85: 136 FAULT(M'INST',M'RUCT',M'ION ',M'? ') leal -65708(%ebp), %eax pushl $1059069984 pushl $1229934112 pushl $1381319508 pushl $1229869908 movl %eax, %ecx call FAULT.6073 addl $16, %esp jmp .L83 .L435: 137 L5: READMN(I,J) subl $8, %esp leal -65708(%ebp), %eax leal -85056(%ebp), %edx pushl %edx leal -85060(%ebp), %edx pushl %edx movl %eax, %ecx call READMN.6068 addl $16, %esp 138 %IF J\=',' %THEN FAULT(M'SYNT',M'AX ?',0,0) movl -85056(%ebp), %eax cmpl $44, %eax je .L437 leal -65708(%ebp), %eax pushl $0 pushl $0 pushl $1096294463 pushl $1398361684 movl %eax, %ecx call FAULT.6073 addl $16, %esp jmp .L87 .L437: nop .L87: 139 %IF I=0 %THEN L=0 %ELSE %START movl -85060(%ebp), %eax testl %eax, %eax jne .L438 movl $0, -85036(%ebp) jmp .L96 .L438: nop .L89: 140 L=0 movl $0, -85036(%ebp) .L91: 141 L8: %IF I=RMN(L) %THEN ->L7 movl -85036(%ebp), %eax addl $16400, %eax movl -65704(%ebp,%eax,4), %edx movl -85060(%ebp), %eax cmpl %eax, %edx je .L439 nop .L93: nop .L96: 142 L=L+1 addl $1, -85036(%ebp) 143 %IF L<=15 %THEN ->L8 cmpl $15, -85036(%ebp) jg .L440 jmp .L91 .L440: nop .L95: 144 FAULT(M'REGI',M'STER',M' ? ',0) leal -65708(%ebp), %eax pushl $0 pushl $541007904 pushl $1398031698 pushl $1380271945 movl %eax, %ecx call FAULT.6073 addl $16, %esp jmp .L96 .L90: .L439: 145 %FINISH 146 L7: K=K<<4!L movl -85052(%ebp), %eax sall $4, %eax orl -85036(%ebp), %eax movl %eax, -85052(%ebp) 147 READMN(I,J) subl $8, %esp leal -65708(%ebp), %eax leal -85056(%ebp), %edx pushl %edx leal -85060(%ebp), %edx pushl %edx movl %eax, %ecx call READMN.6068 addl $16, %esp 148 %IF J='+' %THEN %START movl -85056(%ebp), %eax cmpl $43, %eax jne .L441 nop .L98: 149 READ(M) subl $12, %esp leal -65708(%ebp), %eax leal -85048(%ebp), %edx pushl %edx movl %eax, %ecx call READ.6036 addl $16, %esp 150 %IF M>=65536 %THEN FAULT(M'DISP',M'. TO',M'O BI',M'G ') movl -85048(%ebp), %eax cmpl $65535, %eax jle .L442 leal -65708(%ebp), %eax pushl $1193287712 pushl $1327514185 pushl $773870671 pushl $1145656144 movl %eax, %ecx call FAULT.6073 addl $16, %esp jmp .L100 .L442: nop .L100: 151 %IF LP=1 %THEN ->L9 cmpl $1, -85028(%ebp) je .L443 nop .L102: nop jmp .L114 .L447: 152 L=1 movl $1, -85036(%ebp) .L104: 153 L12: %IF I=LMN(L) %THEN %START movl -85036(%ebp), %eax subl $1, %eax movl -84296(%ebp,%eax,4), %edx movl -85060(%ebp), %eax cmpl %eax, %edx jne .L444 nop .L106: 154 %IF LAD(L)<0 %THEN ->L11 movl -85036(%ebp), %eax subl $1, %eax movl -84216(%ebp,%eax,4), %eax testl %eax, %eax js .L445 nop .L108: nop .L109: 155 K=K<<20!(LAD(L)+M) movl -85052(%ebp), %eax sall $20, %eax movl %eax, %ecx movl -85036(%ebp), %eax subl $1, %eax movl -84216(%ebp,%eax,4), %edx movl -85048(%ebp), %eax addl %edx, %eax orl %ecx, %eax movl %eax, -85052(%ebp) 156 ->L13 ; %FINISH jmp .L110 .L444: 157 L=L+1 addl $1, -85036(%ebp) 158 %IF LL12 movl -85036(%ebp), %eax cmpl -85028(%ebp), %eax jge .L446 jmp .L104 .L446: nop .L112: 159 %IF LP>20 %THEN %START cmpl $20, -85028(%ebp) jle .L447 nop .L114: 160 FAULT(M'TOO ',M'MANY',M' LAB',M'ELS ') leal -65708(%ebp), %eax pushl $1162629920 pushl $541868354 pushl $1296125529 pushl $1414483744 movl %eax, %ecx call FAULT.6073 addl $16, %esp 161 ->L11 ; %FINISH jmp .L109 .L103: .L443: 162 L9: LMN(LP)=I movl -85028(%ebp), %eax leal -1(%eax), %edx movl -85060(%ebp), %eax movl %eax, -84296(%ebp,%edx,4) 163 LAD(LP)=-1 movl -85028(%ebp), %eax subl $1, %eax movl $-1, -84216(%ebp,%eax,4) 164 L=LP movl -85028(%ebp), %eax movl %eax, -85036(%ebp) 165 LP=LP+1 addl $1, -85028(%ebp) jmp .L109 .L445: 166 L11: %IF RP>4000 %THEN %START cmpl $4000, -85032(%ebp) jle .L448 nop .L116: 167 FAULT(M'TOO ',M'MANY',M' REL',M'OCS.') leal -65708(%ebp), %eax pushl $1329812270 pushl $542262604 pushl $1296125529 pushl $1414483744 movl %eax, %ecx call FAULT.6073 addl $16, %esp movl $0, -84972(%ebp) .LBB198: .LBB199: subl $12, %esp pushl -84972(%ebp) movl -85076(%ebp), %ebx call exit@PLT .L448: .LBE199: .LBE198: 168 %STOP ; %FINISH 169 R(RP)=L<<16!SP movl -85036(%ebp), %eax sall $16, %eax movl %eax, %ecx movl -85032(%ebp), %eax subl $1, %eax movl -36(%ebp), %edx orl %ecx, %edx movl %edx, -81708(%ebp,%eax,4) 170 RP=RP+1 addl $1, -85032(%ebp) .L117: 171 L14: K=K<<20!M movl -85052(%ebp), %eax sall $20, %eax movl %eax, %edx movl -85048(%ebp), %eax orl %edx, %eax movl %eax, -85052(%ebp) .L110: 172 L13: %IF SP>=16384 %THEN %START movl -36(%ebp), %eax cmpl $16383, %eax jle .L449 nop .L119: 173 FAULT(M'PROG',M'RAM ',M'TOO ',M'BIG ') leal -65708(%ebp), %eax pushl $1112098592 pushl $1414483744 pushl $1380011296 pushl $1347571527 movl %eax, %ecx call FAULT.6073 addl $16, %esp movl $0, -84968(%ebp) .LBB200: .LBB201: subl $12, %esp pushl -84968(%ebp) movl -85076(%ebp), %ebx call exit@PLT .L449: .LBE201: .LBE200: 174 %STOP ; %FINISH 175 S(SP)=K!MR<<24 movl -85040(%ebp), %eax sall $24, %eax movl %eax, %edx movl -85052(%ebp), %eax orl %eax, %edx movl -36(%ebp), %eax movl %edx, -65708(%ebp,%eax,4) 176 SP=SP+1 movl -36(%ebp), %eax addl $1, %eax movl %eax, -36(%ebp) 177 MR=0 movl $0, -85040(%ebp) 178 ->L1 ; %FINISH jmp .L18 .L441: 179 %IF ('A'<=J %AND J<='Z') %OR J=10 %THEN %START movl -85056(%ebp), %eax cmpl $64, %eax jle .L450 movl -85056(%ebp), %eax cmpl $90, %eax jle .L451 jmp .L121 .L450: nop .L121: movl -85056(%ebp), %eax cmpl $10, %eax jne .L452 jmp .L122 .L451: nop .L122: nop .L123: 180 %IF I=M'READ' %AND J='S' %THEN %START movl -85060(%ebp), %eax cmpl $1380270404, %eax jne .L453 movl -85056(%ebp), %eax cmpl $83, %eax jne .L454 nop jmp .L125 .L454: nop .L125: 181 M=16384 movl $16384, -85048(%ebp) .L127: 182 L15: READMN(I,J) subl $8, %esp leal -65708(%ebp), %eax leal -85056(%ebp), %edx pushl %edx leal -85060(%ebp), %edx pushl %edx movl %eax, %ecx call READMN.6068 addl $16, %esp 183 %IF I\=M'YMBO' %OR J\='L' %THEN ->L26 movl -85060(%ebp), %eax cmpl $1498235471, %eax jne .L455 movl -85056(%ebp), %eax cmpl $76, %eax je .L456 jmp .L129 .L455: nop .L129: jmp .L176 .L456: nop .L130: 184 READ SYMBOL(I) subl $12, %esp leal -65708(%ebp), %eax leal -85060(%ebp), %edx pushl %edx movl %eax, %ecx call READSYMBOL.6028 addl $16, %esp 185 %IF I\=10 %THEN ->L26 movl -85060(%ebp), %eax cmpl $10, %eax jne .L457 nop .L133: nop jmp .L176 .L464: 186 ->L14 ; %FINISH jmp .L117 .L453: 187 %IF I=M'NEXT' %AND J='S' %THEN %START movl -85060(%ebp), %eax cmpl $1313167444, %eax jne .L458 movl -85056(%ebp), %eax cmpl $83, %eax jne .L459 nop jmp .L135 .L459: nop .L135: 188 M=16385 movl $16385, -85048(%ebp) 189 ->L15 ; %FINISH jmp .L127 .L458: 190 %IF I=M'SKIP' %AND J='S' %THEN %START movl -85060(%ebp), %eax cmpl $1397442896, %eax jne .L460 movl -85056(%ebp), %eax cmpl $83, %eax jne .L461 nop jmp .L138 .L461: nop .L138: 191 M=16386 movl $16386, -85048(%ebp) 192 ->L15 ; %FINISH jmp .L127 .L460: 193 %IF I=M'PRIN' %AND J='T' %THEN %START movl -85060(%ebp), %eax cmpl $1347569998, %eax jne .L462 movl -85056(%ebp), %eax cmpl $84, %eax jne .L463 nop jmp .L141 .L463: nop .L141: 194 READ SYMBOL(I) subl $12, %esp leal -65708(%ebp), %eax leal -85060(%ebp), %edx pushl %edx movl %eax, %ecx call READSYMBOL.6028 addl $16, %esp 195 %IF I\='S' %THEN ->L26 movl -85060(%ebp), %eax cmpl $83, %eax jne .L464 nop .L144: nop jmp .L176 .L483: 196 M=16387 movl $16387, -85048(%ebp) 197 ->L15 ; %FINISH jmp .L127 .L462: 198 %IF I=M'SPAC' %AND J='E' %THEN %START movl -85060(%ebp), %eax cmpl $1397768515, %eax jne .L465 movl -85056(%ebp), %eax cmpl $69, %eax jne .L466 nop jmp .L146 .L466: nop .L146: 199 READMN(I,J) subl $8, %esp leal -65708(%ebp), %eax leal -85056(%ebp), %edx pushl %edx leal -85060(%ebp), %edx pushl %edx movl %eax, %ecx call READMN.6068 addl $16, %esp 200 %IF I=0 %AND J=10 %THEN %START movl -85060(%ebp), %eax testl %eax, %eax jne .L467 movl -85056(%ebp), %eax cmpl $10, %eax jne .L468 nop jmp .L149 .L468: nop .L149: 201 M=16388 movl $16388, -85048(%ebp) 202 ->L14 ; %FINISH jmp .L117 .L467: 203 %IF I='S' %AND J=10 %THEN %START movl -85060(%ebp), %eax cmpl $83, %eax jne .L469 movl -85056(%ebp), %eax cmpl $10, %eax jne .L470 nop jmp .L176 .L470: nop .L152: 204 M=16389 movl $16389, -85048(%ebp) 205 ->L14 ; %FINISH jmp .L117 .L469: 206 ->L26 jmp .L176 .L465: 207 %FINISH 208 %IF I=M'NEWL' %AND J='I' %THEN %START movl -85060(%ebp), %eax cmpl $1313167180, %eax jne .L471 movl -85056(%ebp), %eax cmpl $73, %eax jne .L472 nop jmp .L155 .L472: nop .L155: 209 READMN(I,J) subl $8, %esp leal -65708(%ebp), %eax leal -85056(%ebp), %edx pushl %edx leal -85060(%ebp), %edx pushl %edx movl %eax, %ecx call READMN.6068 addl $16, %esp 210 %IF I=M'NE' %AND J=10 %THEN %START movl -85060(%ebp), %eax cmpl $20037, %eax jne .L473 movl -85056(%ebp), %eax cmpl $10, %eax jne .L474 nop jmp .L158 .L474: nop .L158: 211 M=16390 movl $16390, -85048(%ebp) 212 ->L14 ; %FINISH jmp .L117 .L473: 213 %IF I=M'NES' %AND J=10 %THEN %START movl -85060(%ebp), %eax cmpl $5129555, %eax jne .L475 movl -85056(%ebp), %eax cmpl $10, %eax jne .L476 nop jmp .L176 .L476: nop .L161: 214 M=16391 movl $16391, -85048(%ebp) 215 ->L14 ; %FINISH jmp .L117 .L475: 216 ->L26 jmp .L176 .L471: 217 %FINISH 218 %IF I=M'NEWP' %AND J='A' %THEN %START movl -85060(%ebp), %eax cmpl $1313167184, %eax jne .L477 movl -85056(%ebp), %eax cmpl $65, %eax jne .L478 nop jmp .L164 .L478: nop .L164: 219 READMN(I,J) subl $8, %esp leal -65708(%ebp), %eax leal -85056(%ebp), %edx pushl %edx leal -85060(%ebp), %edx pushl %edx movl %eax, %ecx call READMN.6068 addl $16, %esp 220 %IF I\=M'GE' %OR J\=10 %THEN ->L26 movl -85060(%ebp), %eax cmpl $18245, %eax jne .L479 movl -85056(%ebp), %eax cmpl $10, %eax je .L480 jmp .L167 .L479: nop .L167: jmp .L176 .L480: nop .L168: 221 M=16392 movl $16392, -85048(%ebp) 222 ->L14 ; %FINISH jmp .L117 .L477: 223 %IF I=M'READ' %AND J=10 %THEN %START movl -85060(%ebp), %eax cmpl $1380270404, %eax jne .L481 movl -85056(%ebp), %eax cmpl $10, %eax jne .L482 nop jmp .L170 .L482: nop .L170: 224 M=16393 movl $16393, -85048(%ebp) 225 ->L14 ; %FINISH jmp .L117 .L481: 226 %IF I=M'WRIT' %AND J='E' %THEN %START movl -85060(%ebp), %eax cmpl $1465010516, %eax jne .L483 movl -85056(%ebp), %eax cmpl $69, %eax jne .L484 nop jmp .L176 .L484: nop jmp .L176 .L485: 227 READ SYMBOL(I) subl $12, %esp leal -65708(%ebp), %eax leal -85060(%ebp), %edx pushl %edx movl %eax, %ecx call READSYMBOL.6028 addl $16, %esp 228 %IF I\=10 %THEN ->L26 movl -85060(%ebp), %eax cmpl $10, %eax jne .L485 nop .L175: nop .L176: 229 M=16394 movl $16394, -85048(%ebp) 230 ->L14 ; %FINISH jmp .L117 .L131: .L457: 231 L26: FAULT(M'I-O ',M'NAME',M' ? ',0) leal -65708(%ebp), %eax pushl $0 pushl $541007904 pushl $1312902469 pushl $1227706144 movl %eax, %ecx call FAULT.6073 addl $16, %esp 232 ->L13 jmp .L110 .L452: 233 %FINISH 234 %IF J\=',' %THEN FAULT(M'SYNT',M'AX ?',0,0) movl -85056(%ebp), %eax cmpl $44, %eax je .L486 leal -65708(%ebp), %eax pushl $0 pushl $0 pushl $1096294463 pushl $1398361684 movl %eax, %ecx call FAULT.6073 addl $16, %esp jmp .L178 .L486: nop .L178: 235 %IF I=0 %THEN L=0 %ELSE %START movl -85060(%ebp), %eax testl %eax, %eax jne .L487 movl $0, -85036(%ebp) jmp .L187 .L487: nop .L180: 236 L=0 movl $0, -85036(%ebp) .L182: 237 L17: %IF I=RMN(L) %THEN ->L16 movl -85036(%ebp), %eax addl $16400, %eax movl -65704(%ebp,%eax,4), %edx movl -85060(%ebp), %eax cmpl %eax, %edx je .L488 nop .L184: nop .L187: 238 L=L+1 addl $1, -85036(%ebp) 239 %IF L<=15 %THEN ->L17 cmpl $15, -85036(%ebp) jg .L489 jmp .L182 .L489: nop .L186: 240 FAULT(M'BASE',M' REG',M'ISTE',M'R ? ') leal -65708(%ebp), %eax pushl $1377845024 pushl $1230197829 pushl $542262599 pushl $1111577413 movl %eax, %ecx call FAULT.6073 addl $16, %esp jmp .L187 .L181: .L488: 241 %FINISH 242 L16: K=K<<4!L movl -85052(%ebp), %eax sall $4, %eax orl -85036(%ebp), %eax movl %eax, -85052(%ebp) 243 READ(M) subl $12, %esp leal -65708(%ebp), %eax leal -85048(%ebp), %edx pushl %edx movl %eax, %ecx call READ.6036 addl $16, %esp 244 %IF M>=65536 %THEN FAULT(M'DISP',M'. TO',M'O BI',M'G ') movl -85048(%ebp), %eax cmpl $65535, %eax jle .L490 leal -65708(%ebp), %eax pushl $1193287712 pushl $1327514185 pushl $773870671 pushl $1145656144 movl %eax, %ecx call FAULT.6073 addl $16, %esp jmp .L189 .L490: nop .L189: 245 K=K<<16!M movl -85052(%ebp), %eax sall $16, %eax movl %eax, %edx movl -85048(%ebp), %eax orl %edx, %eax movl %eax, -85052(%ebp) 246 ->L13 jmp .L110 .L190: .LBB202: .LBB203: movl -85076(%ebp), %edi movl %edi, %ebx call _imp_newline@PLT .LBE203: .LBE202: 247 L18: READ(I) subl $12, %esp leal -65708(%ebp), %eax leal -85060(%ebp), %edx pushl %edx movl %eax, %ecx call READ.6036 addl $16, %esp 248 %IF I\=0 %THEN %START movl -85060(%ebp), %eax testl %eax, %eax jne .L190 jmp .L191 .L418: 249 NEWLINE 250 OUT(M'PROG') ; OUT(M'RAM ') ; OUT(M'FAUL') ; OUT(M'TY !') subl $12, %esp leal -65708(%ebp), %eax pushl $1347571527 movl %eax, %ecx call OUT.6075 addl $16, %esp subl $12, %esp leal -65708(%ebp), %eax pushl $1380011296 movl %eax, %ecx call OUT.6075 addl $16, %esp subl $12, %esp leal -65708(%ebp), %eax pushl $1178686796 movl %eax, %ecx call OUT.6075 addl $16, %esp subl $12, %esp leal -65708(%ebp), %eax pushl $1415127073 movl %eax, %ecx call OUT.6075 addl $16, %esp .LBB204: .LBB205: movl %edi, %ebx call _imp_newline@PLT movl $0, -84964(%ebp) .LBE205: .LBE204: .LBB206: .LBB207: subl $12, %esp pushl -84964(%ebp) movl %edi, %ebx call exit@PLT .L191: .L192: .LBE207: .LBE206: 251 NEWLINE 252 %STOP ; %FINISH 253 L38: READ SYMBOL(I) subl $12, %esp leal -65708(%ebp), %eax leal -85060(%ebp), %edx pushl %edx movl %eax, %ecx call READSYMBOL.6028 addl $16, %esp 254 %IF I\='.' %THEN ->L38 movl -85060(%ebp), %eax cmpl $46, %eax je .L491 jmp .L191 .L491: nop .L194: 255 SELECT INPUT(0) subl $12, %esp pushl $0 call _imp_SELECTINPUT addl $16, %esp 256 I=ST movl -172(%ebp), %eax movl %eax, -85060(%ebp) .L195: 257 L28: %IF I>16383 %THEN ->L29 movl -85060(%ebp), %eax cmpl $16383, %eax jg .L492 nop .L197: nop .L198: .LBB208: .LBB209: movl -85076(%ebp), %edi movl %edi, %ebx call _imp_newline@PLT .LBE209: .LBE208: 258 S(I)=999999 movl -85060(%ebp), %eax movl $999999, -65708(%ebp,%eax,4) 259 I=I+1 movl -85060(%ebp), %eax addl $1, %eax movl %eax, -85060(%ebp) 260 ->L28 jmp .L195 .L492: 261 L29: NEWLINE 262 OUT(M'LABE') ; OUT(M'LS ') subl $12, %esp leal -65708(%ebp), %eax pushl $1279345221 movl %eax, %ecx call OUT.6075 addl $16, %esp subl $12, %esp leal -65708(%ebp), %eax pushl $1280516128 movl %eax, %ecx call OUT.6075 addl $16, %esp .LBB210: .LBB211: movl %edi, %ebx call _imp_newline@PLT .LBE211: .LBE210: 263 NEWLINE 264 I=0 movl $0, -85060(%ebp) 265 J=1 movl $1, -85056(%ebp) .L199: 266 L20: OUT(LMN(J)) ; OUT(M' : ') movl -85056(%ebp), %eax subl $1, %eax movl -84296(%ebp,%eax,4), %edx subl $12, %esp leal -65708(%ebp), %eax pushl %edx movl %eax, %ecx call OUT.6075 addl $16, %esp subl $12, %esp leal -65708(%ebp), %eax pushl $538982944 movl %eax, %ecx call OUT.6075 addl $16, %esp 267 %IF LAD(J)<0 %THEN %START movl -85056(%ebp), %eax subl $1, %eax movl -84216(%ebp,%eax,4), %eax testl %eax, %eax jns .L493 nop movl -85056(%ebp), %eax subl $1, %eax movl -84216(%ebp,%eax,4), %eax subl $8, %esp pushl $1 pushl %eax movl -85076(%ebp), %ebx call _imp_writeint@PLT addl $16, %esp .L202: .LBB212: .LBB213: movl -85076(%ebp), %ebx call _imp_newline@PLT .LBE213: .LBE212: 268 OUT(M'NOT ') ; OUT(M'SET ') subl $12, %esp leal -65708(%ebp), %eax pushl $1313821728 movl %eax, %ecx call OUT.6075 addl $16, %esp subl $12, %esp leal -65708(%ebp), %eax pushl $1397052448 movl %eax, %ecx call OUT.6075 addl $16, %esp 269 I=1 movl $1, -85060(%ebp) 270 %FINISH %ELSE WRITE(LAD(J),1) jmp .L202 .L201: .L493: 271 NEWLINE 272 %IF LMN(J)=M'CT' %THEN CT=LAD(J) movl -85056(%ebp), %eax subl $1, %eax movl -84296(%ebp,%eax,4), %eax cmpl $17236, %eax jne .L494 movl -85056(%ebp), %eax subl $1, %eax movl -84216(%ebp,%eax,4), %eax movl %eax, -85020(%ebp) jmp .L204 .L494: nop .L204: 273 J=J+1 movl -85056(%ebp), %eax addl $1, %eax movl %eax, -85056(%ebp) 274 %IF JL20 movl -85056(%ebp), %eax cmpl %eax, -85028(%ebp) jle .L495 jmp .L199 .L495: nop .L206: 275 %IF I\=0 %OR F\=0 %THEN %STOP movl -85060(%ebp), %eax testl %eax, %eax jne .L496 movl -40(%ebp), %eax testl %eax, %eax je .L497 jmp .L208 .L496: nop .L208: movl $0, -84960(%ebp) .LBB214: .LBB215: subl $12, %esp pushl -84960(%ebp) movl -85076(%ebp), %ebx call exit@PLT .L497: .LBE215: .LBE214: nop .L209: 276 %IF RP=1 %THEN ->L21 cmpl $1, -85032(%ebp) je .L498 nop .L211: nop jmp .L217 .L500: nop .L217: 277 M=1 movl $1, -85048(%ebp) .L213: 278 L22: I=R(M)>>16 movl -85048(%ebp), %eax subl $1, %eax movl -81708(%ebp,%eax,4), %eax shrl $16, %eax movl %eax, -85060(%ebp) 279 J=R(M)&65535 movl -85048(%ebp), %eax subl $1, %eax movl -81708(%ebp,%eax,4), %eax movzwl %ax, %eax movl %eax, -85056(%ebp) 280 K=S(J)&65535 movl -85056(%ebp), %eax movl -65708(%ebp,%eax,4), %eax movzwl %ax, %eax movl %eax, -85052(%ebp) 281 L=LAD(I)+K movl -85060(%ebp), %eax subl $1, %eax movl -84216(%ebp,%eax,4), %edx movl -85052(%ebp), %eax addl %edx, %eax movl %eax, -85036(%ebp) 282 %IF L>=65536 %THEN %START cmpl $65535, -85036(%ebp) jle .L499 nop .L215: 283 OUT(M'ADDR') ; OUT(M' TRU') ; OUT(M'NCAT') ; OUT(M'ED ') subl $12, %esp leal -65708(%ebp), %eax pushl $1094992978 movl %eax, %ecx call OUT.6075 addl $16, %esp subl $12, %esp leal -65708(%ebp), %eax pushl $542397013 movl %eax, %ecx call OUT.6075 addl $16, %esp subl $12, %esp leal -65708(%ebp), %eax pushl $1313030484 movl %eax, %ecx call OUT.6075 addl $16, %esp subl $12, %esp leal -65708(%ebp), %eax pushl $1162092576 movl %eax, %ecx call OUT.6075 addl $16, %esp 284 WRITE(J,1) movl -85056(%ebp), %eax subl $8, %esp pushl $1 pushl %eax movl -85076(%ebp), %edi movl %edi, %ebx call _imp_writeint@PLT addl $16, %esp .LBB216: .LBB217: movl %edi, %ebx call _imp_newline@PLT .LBE217: .LBE216: 285 NEWLINE 286 L=L&65535 andl $65535, -85036(%ebp) jmp .L215 .L499: 287 %FINISH 288 S(J)=S(J)>>16<<16!L movl -85056(%ebp), %eax movl -65708(%ebp,%eax,4), %eax movw $0, %ax movl %eax, %edx movl -85036(%ebp), %eax orl %eax, %edx movl -85056(%ebp), %eax movl %edx, -65708(%ebp,%eax,4) 289 M=M+1 movl -85048(%ebp), %eax addl $1, %eax movl %eax, -85048(%ebp) 290 %IF ML22 movl -85048(%ebp), %eax cmpl %eax, -85032(%ebp) jle .L500 jmp .L213 .L212: .L498: 291 L21: I=0 movl $0, -85060(%ebp) .L218: 292 L23: REG(I)=0 movl -85060(%ebp), %eax addl $16384, %eax movl $0, -65704(%ebp,%eax,4) 293 I=I+1 movl -85060(%ebp), %eax addl $1, %eax movl %eax, -85060(%ebp) 294 %IF I<=15 %THEN ->L23 movl -85060(%ebp), %eax cmpl $15, %eax jg .L501 jmp .L218 .L501: nop .L220: 295 SP=0 movl $0, %eax movl %eax, -36(%ebp) .L221: 296 L24: %IF SP<0 %OR SP>=CT %THEN %START movl -36(%ebp), %eax testl %eax, %eax js .L502 movl -36(%ebp), %eax cmpl -85020(%ebp), %eax jl .L503 jmp .L223 .L502: nop .L223: nop .L224: 297 %IF SP>=16384 %AND SP<=16394 %THEN ->IOR(SP-16384) movl -36(%ebp), %eax cmpl $16383, %eax jle .L504 movl -36(%ebp), %eax cmpl $16394, %eax jg .L505 movl $297, -85008(%ebp) movl -85076(%ebp), %eax leal .LC4@GOTOFF(%eax), %eax movl %eax, -85004(%ebp) movl -36(%ebp), %eax subl $16384, %eax movl %eax, -85000(%ebp) nop .L228: nop jmp .L226 .L505: nop .L226: .LBB218: .LBB219: movl -85076(%ebp), %edi movl %edi, %ebx call _imp_newline@PLT .LBE219: .LBE218: 298 NEWLINE 299 OUT(M'** ') subl $12, %esp leal -65708(%ebp), %eax pushl $707403808 movl %eax, %ecx call OUT.6075 addl $16, %esp 300 WRITE(SP,1) movl -36(%ebp), %eax subl $8, %esp pushl $1 pushl %eax movl %edi, %ebx call _imp_writeint@PLT addl $16, %esp movl $4, -84956(%ebp) .LBB220: .LBB221: subl $12, %esp pushl -84956(%ebp) movl %edi, %ebx call _imp_spaces@PLT addl $16, %esp .LBE221: .LBE220: 301 SPACES(4) 302 OUT(M'INST') ; OUT(M'R AD') ; OUT(M'DR ?') subl $12, %esp leal -65708(%ebp), %eax pushl $1229869908 movl %eax, %ecx call OUT.6075 addl $16, %esp subl $12, %esp leal -65708(%ebp), %eax pushl $1377845572 movl %eax, %ecx call OUT.6075 addl $16, %esp subl $12, %esp leal -65708(%ebp), %eax pushl $1146232895 movl %eax, %ecx call OUT.6075 addl $16, %esp movl $0, -84952(%ebp) .LBB222: .LBB223: subl $12, %esp pushl -84952(%ebp) movl %edi, %ebx call exit@PLT .L503: .LBE223: .LBE222: 303 %STOP ; %FINISH 304 I=S(SP) movl -36(%ebp), %eax movl -65708(%ebp,%eax,4), %eax movl %eax, -85060(%ebp) 305 J=I>>20&15 movl -85060(%ebp), %eax shrl $20, %eax andl $15, %eax movl %eax, -85056(%ebp) 306 K=I>>16&15 movl -85060(%ebp), %eax shrl $16, %eax andl $15, %eax movl %eax, -85052(%ebp) 307 L=I&65535 movl -85060(%ebp), %eax andl $65535, %eax movl %eax, -85036(%ebp) 308 %IF K=0 %THEN M=L %ELSE M=REG(K)+L movl -85052(%ebp), %eax testl %eax, %eax jne .L506 movl -85036(%ebp), %eax movl %eax, -85048(%ebp) jmp .L231 .L506: nop .L230: movl -85052(%ebp), %eax addl $16384, %eax movl -65704(%ebp,%eax,4), %edx movl -85036(%ebp), %eax addl %edx, %eax movl %eax, -85048(%ebp) .L231: 309 I=I>>24 movl -85060(%ebp), %eax shrl $24, %eax movl %eax, -85060(%ebp) 310 %IF I>128 %THEN %START movl -85060(%ebp), %eax cmpl $128, %eax jle .L507 .LBB224: .LBB225: movl -85076(%ebp), %ebx call _imp_newline@PLT .LBE225: .LBE224: nop .L233: 311 NEWLINE 312 N=0 movl $0, -85044(%ebp) .L234: 313 L27: OUT(RMN(N)) movl -85044(%ebp), %eax addl $16400, %eax movl -65704(%ebp,%eax,4), %edx subl $12, %esp leal -65708(%ebp), %eax pushl %edx movl %eax, %ecx call OUT.6075 addl $16, %esp 314 OUT(M' : ') subl $12, %esp leal -65708(%ebp), %eax pushl $538982944 movl %eax, %ecx call OUT.6075 addl $16, %esp 315 WRITE(REG(N),1) movl -85044(%ebp), %eax addl $16384, %eax movl -65704(%ebp,%eax,4), %eax subl $8, %esp pushl $1 pushl %eax movl -85076(%ebp), %esi movl %esi, %ebx call _imp_writeint@PLT addl $16, %esp .LBB226: .LBB227: movl %esi, %ebx call _imp_newline@PLT .LBE227: .LBE226: 316 NEWLINE 317 N=N+1 addl $1, -85044(%ebp) 318 %IF N<=15 %THEN ->L27 cmpl $15, -85044(%ebp) jg .L508 jmp .L234 .L508: nop .L236: 319 I=I-128 movl -85060(%ebp), %eax addl $-128, %eax movl %eax, -85060(%ebp) jmp .L233 .L507: 320 %FINISH 321 %IF I>64 %THEN %START movl -85060(%ebp), %eax cmpl $64, %eax jle .L509 nop .L238: 322 TR=1 movl $1, -85024(%ebp) 323 I=I-64 movl -85060(%ebp), %eax subl $64, %eax movl %eax, -85060(%ebp) jmp .L238 .L509: 324 %FINISH 325 %IF I>32 %THEN %START movl -85060(%ebp), %eax cmpl $32, %eax jle .L510 nop .L359: 326 TR=0 movl $0, -85024(%ebp) 327 I=I-32 movl -85060(%ebp), %eax subl $32, %eax movl %eax, -85060(%ebp) jmp .L359 .L240: .L510: 328 %FINISH 329 %IF X'3E00F9FA'>>I&1\=0 %AND (M=16384) %THEN %START movl -85048(%ebp), %eax cmpl %eax, -85020(%ebp) jg .L511 movl -85048(%ebp), %eax cmpl $16383, %eax jle .L512 jmp .L242 .L511: nop .L242: .LBB228: .LBB229: movl -85076(%ebp), %edi movl %edi, %ebx call _imp_newline@PLT .LBE229: .LBE228: nop .L243: 330 NEWLINE 331 OUT(M'** ') subl $12, %esp leal -65708(%ebp), %eax pushl $707403808 movl %eax, %ecx call OUT.6075 addl $16, %esp 332 WRITE(SP,1) movl -36(%ebp), %eax subl $8, %esp pushl $1 pushl %eax movl %edi, %ebx call _imp_writeint@PLT addl $16, %esp movl $4, -84948(%ebp) .LBB230: .LBB231: subl $12, %esp pushl -84948(%ebp) movl %edi, %ebx call _imp_spaces@PLT addl $16, %esp .LBE231: .LBE230: 333 SPACES(4) 334 OUT(M'EFFE') ; OUT(M'CTIV') ; OUT(M'E AD') ; OUT(M'DR ?') subl $12, %esp leal -65708(%ebp), %eax pushl $1162233413 movl %eax, %ecx call OUT.6075 addl $16, %esp subl $12, %esp leal -65708(%ebp), %eax pushl $1129597270 movl %eax, %ecx call OUT.6075 addl $16, %esp subl $12, %esp leal -65708(%ebp), %eax pushl $1159741764 movl %eax, %ecx call OUT.6075 addl $16, %esp subl $12, %esp leal -65708(%ebp), %eax pushl $1146232895 movl %eax, %ecx call OUT.6075 addl $16, %esp 335 WRITE(M,1) movl -85048(%ebp), %eax subl $8, %esp pushl $1 pushl %eax movl %edi, %ebx call _imp_writeint@PLT addl $16, %esp 336 DUMP leal -65708(%ebp), %eax movl %eax, %ecx call DUMP.6077 movl $0, -84944(%ebp) .LBB232: .LBB233: subl $12, %esp pushl -84944(%ebp) movl %edi, %ebx call exit@PLT .L512: .LBE233: .LBE232: 337 %STOP ; %FINISH 338 %IF I=0 %THEN %START movl -85060(%ebp), %eax testl %eax, %eax jne .L513 .LBB234: .LBB235: movl -85076(%ebp), %esi movl %esi, %ebx call _imp_newline@PLT .LBE235: .LBE234: nop .L245: 339 NEWLINE 340 OUT(M'** ') subl $12, %esp leal -65708(%ebp), %eax pushl $707403808 movl %eax, %ecx call OUT.6075 addl $16, %esp 341 WRITE(SP,1) movl -36(%ebp), %eax subl $8, %esp pushl $1 pushl %eax movl %esi, %ebx call _imp_writeint@PLT addl $16, %esp movl $4, -84940(%ebp) .LBB236: .LBB237: subl $12, %esp pushl -84940(%ebp) movl %esi, %ebx call _imp_spaces@PLT addl $16, %esp .LBE237: .LBE236: 342 SPACES(4) 343 OUT(M'INST') ; OUT(M'RUCT') ; OUT(M'ION?') subl $12, %esp leal -65708(%ebp), %eax pushl $1229869908 movl %eax, %ecx call OUT.6075 addl $16, %esp subl $12, %esp leal -65708(%ebp), %eax pushl $1381319508 movl %eax, %ecx call OUT.6075 addl $16, %esp subl $12, %esp leal -65708(%ebp), %eax pushl $1229934143 movl %eax, %ecx call OUT.6075 addl $16, %esp 344 DUMP leal -65708(%ebp), %eax movl %eax, %ecx call DUMP.6077 movl $0, -84936(%ebp) .LBB238: .LBB239: subl $12, %esp pushl -84936(%ebp) movl %esi, %ebx call exit@PLT .L513: .LBE239: .LBE238: 345 %STOP ; %FINISH 346 %IF TR#0 %THEN %START cmpl $0, -85024(%ebp) je .L514 .LBB240: .LBB241: movl -85076(%ebp), %esi movl %esi, %ebx call _imp_newline@PLT .LBE241: .LBE240: nop .L247: 347 NEWLINE 348 WRITE(SP,3) movl -36(%ebp), %eax subl $8, %esp pushl $3 pushl %eax movl %esi, %ebx call _imp_writeint@PLT addl $16, %esp movl $2, -84932(%ebp) .LBB242: .LBB243: subl $12, %esp pushl -84932(%ebp) movl %esi, %ebx call _imp_spaces@PLT addl $16, %esp .LBE243: .LBE242: 349 SPACES(2) 350 OUT(IMN(I)) movl -85060(%ebp), %eax subl $1, %eax movl -84136(%ebp,%eax,4), %edx subl $12, %esp leal -65708(%ebp), %eax pushl %edx movl %eax, %ecx call OUT.6075 addl $16, %esp movl $2, -84928(%ebp) .LBB244: .LBB245: subl $12, %esp pushl -84928(%ebp) movl %esi, %ebx call _imp_spaces@PLT addl $16, %esp .LBE245: .LBE244: 351 SPACES(2) 352 OUT(RMN(J)) movl -85056(%ebp), %eax addl $16400, %eax movl -65704(%ebp,%eax,4), %edx subl $12, %esp leal -65708(%ebp), %eax pushl %edx movl %eax, %ecx call OUT.6075 addl $16, %esp 353 WRITE(M,4) movl -85048(%ebp), %eax subl $8, %esp pushl $4 pushl %eax movl %esi, %ebx call _imp_writeint@PLT addl $16, %esp movl $6, -84924(%ebp) .LBB246: .LBB247: subl $12, %esp pushl -84924(%ebp) movl %esi, %ebx call _imp_spaces@PLT addl $16, %esp jmp .L247 .L514: .LBE247: .LBE246: 354 SPACES(6) 355 %FINISH 356 ->INS(I) movl $356, -84996(%ebp) movl -85076(%ebp), %eax leal .LC4@GOTOFF(%eax), %eax movl %eax, -84992(%ebp) movl -85060(%ebp), %eax movl %eax, -84988(%ebp) nop .L248: cmpl $0, -84988(%ebp) jle .L344 jmp .L399 .L249: 357 INS(1):! LOAD 358 REG(J)=S(M) movl -85048(%ebp), %eax movl -85056(%ebp), %edx movl -65708(%ebp,%eax,4), %eax addl $16384, %edx movl %eax, -65704(%ebp,%edx,4) 359 SP=SP+1 movl -36(%ebp), %eax addl $1, %eax movl %eax, -36(%ebp) 360 ->L24 jmp .L221 .L350: jmp *%eax .L250: 361 INS(2):! LDA 362 REG(J)=M movl -85056(%ebp), %edx movl -85048(%ebp), %eax addl $16384, %edx movl %eax, -65704(%ebp,%edx,4) 363 SP=SP+1 movl -36(%ebp), %eax addl $1, %eax movl %eax, -36(%ebp) 364 ->L24 jmp .L221 .L251: 365 INS(3):! ADD 366 REG(J)=REG(J)+S(M) movl -85056(%ebp), %eax addl $16384, %eax movl -65704(%ebp,%eax,4), %ecx movl -85048(%ebp), %eax movl -65708(%ebp,%eax,4), %edx movl -85056(%ebp), %eax addl %ecx, %edx addl $16384, %eax movl %edx, -65704(%ebp,%eax,4) 367 SP=SP+1 movl -36(%ebp), %eax addl $1, %eax movl %eax, -36(%ebp) 368 ->L24 jmp .L221 .L252: 369 INS(4):! SUB 370 REG(J)=REG(J)-S(M) movl -85056(%ebp), %eax addl $16384, %eax movl -65704(%ebp,%eax,4), %ecx movl -85048(%ebp), %eax movl -65708(%ebp,%eax,4), %edx movl -85056(%ebp), %eax subl %edx, %ecx movl %ecx, %edx addl $16384, %eax movl %edx, -65704(%ebp,%eax,4) 371 SP=SP+1 movl -36(%ebp), %eax addl $1, %eax movl %eax, -36(%ebp) 372 ->L24 jmp .L221 .L253: 373 INS(5):! MLT 374 REG(J)=REG(J)*S(M) movl -85056(%ebp), %eax addl $16384, %eax movl -65704(%ebp,%eax,4), %ecx movl -85048(%ebp), %eax movl -65708(%ebp,%eax,4), %eax movl -85056(%ebp), %edx imull %ecx, %eax addl $16384, %edx movl %eax, -65704(%ebp,%edx,4) 375 SP=SP+1 movl -36(%ebp), %eax addl $1, %eax movl %eax, -36(%ebp) 376 ->L24 jmp .L221 .L254: 377 INS(6):! DIV 378 REG(J)=REG(J)//S(M) movl -85056(%ebp), %eax addl $16384, %eax movl -65704(%ebp,%eax,4), %eax movl -85048(%ebp), %edx movl -65708(%ebp,%edx,4), %esi movl -85056(%ebp), %ecx cltd idivl %esi movl %eax, %edx leal 16384(%ecx), %eax movl %edx, -65704(%ebp,%eax,4) 379 SP=SP+1 movl -36(%ebp), %eax addl $1, %eax movl %eax, -36(%ebp) 380 ->L24 jmp .L221 .L255: 381 INS(7):! EXP 382 REG(J)=REG(J)^^S(M) movl -85048(%ebp), %eax movl -65708(%ebp,%eax,4), %edx movl -85056(%ebp), %eax addl $16384, %eax movl -65704(%ebp,%eax,4), %eax subl $8, %esp pushl %edx pushl %eax call _imp_IEXP addl $16, %esp movl -85056(%ebp), %ecx movl %eax, %edx leal 16384(%ecx), %eax movl %edx, -65704(%ebp,%eax,4) 383 !! REG(J)=REG(J)**S(M) 384 SP=SP+1 movl -36(%ebp), %eax addl $1, %eax movl %eax, -36(%ebp) 385 ->L24 jmp .L221 .L256: 386 INS(8):! STR 387 S(M)=REG(J) movl -85056(%ebp), %edx movl -85048(%ebp), %eax addl $16384, %edx movl -65704(%ebp,%edx,4), %edx movl %edx, -65708(%ebp,%eax,4) 388 SP=SP+1 movl -36(%ebp), %eax addl $1, %eax movl %eax, -36(%ebp) 389 ->L24 jmp .L221 .L257: 390 INS(9):! NEG 391 REG(J)=-REG(J) movl -85056(%ebp), %eax addl $16384, %eax movl -65704(%ebp,%eax,4), %edx movl -85056(%ebp), %eax negl %edx addl $16384, %eax movl %edx, -65704(%ebp,%eax,4) 392 SP=SP+1 movl -36(%ebp), %eax addl $1, %eax movl %eax, -36(%ebp) 393 ->L24 jmp .L221 .L258: 394 INS(10):! NOT 395 REG(J)=\REG(J) movl -85056(%ebp), %eax addl $16384, %eax movl -65704(%ebp,%eax,4), %edx movl -85056(%ebp), %eax notl %edx addl $16384, %eax movl %edx, -65704(%ebp,%eax,4) 396 SP=SP+1 movl -36(%ebp), %eax addl $1, %eax movl %eax, -36(%ebp) 397 ->L24 jmp .L221 .L259: 398 INS(11):! SHL 399 REG(J)=REG(J)<L24 jmp .L221 .L260: 402 INS(12):! SHR 403 REG(J)=REG(J)>>S(M) movl -85056(%ebp), %eax addl $16384, %eax movl -65704(%ebp,%eax,4), %eax movl %eax, %edx movl -85048(%ebp), %eax movl -65708(%ebp,%eax,4), %eax movl %eax, %ecx shrl %cl, %edx movl -85056(%ebp), %eax addl $16384, %eax movl %edx, -65704(%ebp,%eax,4) 404 SP=SP+1 movl -36(%ebp), %eax addl $1, %eax movl %eax, -36(%ebp) 405 ->L24 jmp .L221 .L261: 406 INS(13):! AND 407 REG(J)=REG(J)&S(M) movl -85056(%ebp), %eax addl $16384, %eax movl -65704(%ebp,%eax,4), %ecx movl -85048(%ebp), %eax movl -65708(%ebp,%eax,4), %edx movl -85056(%ebp), %eax andl %ecx, %edx addl $16384, %eax movl %edx, -65704(%ebp,%eax,4) 408 SP=SP+1 movl -36(%ebp), %eax addl $1, %eax movl %eax, -36(%ebp) 409 ->L24 jmp .L221 .L262: 410 INS(14):! OR 411 REG(J)=REG(J)!S(M) movl -85056(%ebp), %eax addl $16384, %eax movl -65704(%ebp,%eax,4), %ecx movl -85048(%ebp), %eax movl -65708(%ebp,%eax,4), %edx movl -85056(%ebp), %eax orl %ecx, %edx addl $16384, %eax movl %edx, -65704(%ebp,%eax,4) 412 SP=SP+1 movl -36(%ebp), %eax addl $1, %eax movl %eax, -36(%ebp) 413 ->L24 jmp .L221 .L263: 414 INS(15):! XOR 415 REG(J)=REG(J)!!S(M) movl -85056(%ebp), %eax addl $16384, %eax movl -65704(%ebp,%eax,4), %ecx movl -85048(%ebp), %eax movl -65708(%ebp,%eax,4), %edx movl -85056(%ebp), %eax xorl %ecx, %edx addl $16384, %eax movl %edx, -65704(%ebp,%eax,4) 416 SP=SP+1 movl -36(%ebp), %eax addl $1, %eax movl %eax, -36(%ebp) 417 ->L24 jmp .L221 .L264: 418 INS(16):! BAL 419 REG(J)=SP+1 movl -85056(%ebp), %eax movl -36(%ebp), %edx addl $1, %edx addl $16384, %eax movl %edx, -65704(%ebp,%eax,4) 420 SP=M movl -85048(%ebp), %eax movl %eax, -36(%ebp) 421 ->L24 jmp .L221 .L265: 422 INS(17):! B 423 SP=M movl -85048(%ebp), %eax movl %eax, -36(%ebp) 424 ->L24 jmp .L221 .L266: 425 INS(18):! BZ 426 %IF REG(J)=0 %THEN SP=M %ELSE SP=SP+1 movl -85056(%ebp), %eax addl $16384, %eax movl -65704(%ebp,%eax,4), %eax testl %eax, %eax jne .L515 movl -85048(%ebp), %eax movl %eax, -36(%ebp) jmp .L269 .L515: nop .L268: movl -36(%ebp), %eax addl $1, %eax movl %eax, -36(%ebp) .L269: 427 ->L24 jmp .L221 .L270: 428 INS(19):! BNZ 429 %IF REG(J)\=0 %THEN SP=M %ELSE SP=SP+1 movl -85056(%ebp), %eax addl $16384, %eax movl -65704(%ebp,%eax,4), %eax testl %eax, %eax je .L516 movl -85048(%ebp), %eax movl %eax, -36(%ebp) jmp .L273 .L516: nop .L272: movl -36(%ebp), %eax addl $1, %eax movl %eax, -36(%ebp) .L273: 430 ->L24 jmp .L221 .L274: 431 INS(20):! BG 432 %IF REG(J)>0 %THEN SP=M %ELSE SP=SP+1 movl -85056(%ebp), %eax addl $16384, %eax movl -65704(%ebp,%eax,4), %eax testl %eax, %eax jle .L517 movl -85048(%ebp), %eax movl %eax, -36(%ebp) jmp .L277 .L517: nop .L276: movl -36(%ebp), %eax addl $1, %eax movl %eax, -36(%ebp) .L277: 433 ->L24 jmp .L221 .L278: 434 INS(21):! BNG 435 %IF REG(J)<=0 %THEN SP=M %ELSE SP=SP+1 movl -85056(%ebp), %eax addl $16384, %eax movl -65704(%ebp,%eax,4), %eax testl %eax, %eax jg .L518 movl -85048(%ebp), %eax movl %eax, -36(%ebp) jmp .L281 .L518: nop .L280: movl -36(%ebp), %eax addl $1, %eax movl %eax, -36(%ebp) .L281: 436 ->L24 jmp .L221 .L282: 437 INS(22):! BL 438 %IF REG(J)<0 %THEN SP=M %ELSE SP=SP+1 movl -85056(%ebp), %eax addl $16384, %eax movl -65704(%ebp,%eax,4), %eax testl %eax, %eax jns .L519 movl -85048(%ebp), %eax movl %eax, -36(%ebp) jmp .L285 .L519: nop .L284: movl -36(%ebp), %eax addl $1, %eax movl %eax, -36(%ebp) .L285: 439 ->L24 jmp .L221 .L286: 440 INS(23):! BNL 441 %IF REG(J)>=0 %THEN SP=M %ELSE SP=SP+1 movl -85056(%ebp), %eax addl $16384, %eax movl -65704(%ebp,%eax,4), %eax testl %eax, %eax js .L520 movl -85048(%ebp), %eax movl %eax, -36(%ebp) jmp .L289 .L520: nop .L288: movl -36(%ebp), %eax addl $1, %eax movl %eax, -36(%ebp) .L289: 442 ->L24 jmp .L221 .L290: .LBB248: .LBB249: movl -85076(%ebp), %esi movl %esi, %ebx call _imp_newline@PLT .LBE249: .LBE248: 443 INS(24):! STOP 444 NEWLINE 445 OUT(M'STOP') ; OUT(M'PED ') ; OUT(M'AT ') subl $12, %esp leal -65708(%ebp), %eax pushl $1398034256 movl %eax, %ecx call OUT.6075 addl $16, %esp subl $12, %esp leal -65708(%ebp), %eax pushl $1346716704 movl %eax, %ecx call OUT.6075 addl $16, %esp subl $12, %esp leal -65708(%ebp), %eax pushl $1096032288 movl %eax, %ecx call OUT.6075 addl $16, %esp 446 WRITE(SP,1) movl -36(%ebp), %eax subl $8, %esp pushl $1 pushl %eax movl %esi, %ebx call _imp_writeint@PLT addl $16, %esp movl $0, -84920(%ebp) .LBB250: .LBB251: subl $12, %esp pushl -84920(%ebp) movl %esi, %ebx call exit@PLT .L291: .LBE251: .LBE250: 447 %STOP 448 INS(25):! ADDF 449 REAL(ADDR(REG(J)))=REAL(ADDR(REG(J)))+REAL(ADDR(S(M))) movl -85056(%ebp), %edx leal -65708(%ebp), %eax addl $16384, %edx sall $2, %edx addl %edx, %eax addl $4, %eax movl %eax, -84916(%ebp) .LBB252: .LBB253: movl -84916(%ebp), %eax movl %eax, -84912(%ebp) .LBE253: .LBE252: .LBB254: .LBB255: movl -84912(%ebp), %eax .LBE255: .LBE254: flds (%eax) movl -85048(%ebp), %edx leal -65708(%ebp), %eax sall $2, %edx addl %edx, %eax movl %eax, -84908(%ebp) .LBB256: .LBB257: movl -84908(%ebp), %eax movl %eax, -84904(%ebp) .LBE257: .LBE256: .LBB258: .LBB259: movl -84904(%ebp), %eax .LBE259: .LBE258: flds (%eax) movl -85056(%ebp), %edx leal -65708(%ebp), %eax addl $16384, %edx sall $2, %edx addl %edx, %eax addl $4, %eax movl %eax, -84900(%ebp) .LBB260: .LBB261: movl -84900(%ebp), %eax movl %eax, -84896(%ebp) .LBE261: .LBE260: .LBB262: .LBB263: movl -84896(%ebp), %eax .LBE263: .LBE262: faddp %st, %st(1) fstps (%eax) 450 SP=SP+1 movl -36(%ebp), %eax addl $1, %eax movl %eax, -36(%ebp) 451 ->L24 jmp .L221 .L298: 452 INS(26):! SUBF 453 REAL(ADDR(REG(J)))=REAL(ADDR(REG(J)))-REAL(ADDR(S(M))) movl -85056(%ebp), %edx leal -65708(%ebp), %eax addl $16384, %edx sall $2, %edx addl %edx, %eax addl $4, %eax movl %eax, -84892(%ebp) .LBB264: .LBB265: movl -84892(%ebp), %eax movl %eax, -84888(%ebp) .LBE265: .LBE264: .LBB266: .LBB267: movl -84888(%ebp), %eax .LBE267: .LBE266: flds (%eax) movl -85048(%ebp), %edx leal -65708(%ebp), %eax sall $2, %edx addl %edx, %eax movl %eax, -84884(%ebp) .LBB268: .LBB269: movl -84884(%ebp), %eax movl %eax, -84880(%ebp) .LBE269: .LBE268: .LBB270: .LBB271: movl -84880(%ebp), %eax .LBE271: .LBE270: flds (%eax) movl -85056(%ebp), %edx leal -65708(%ebp), %eax addl $16384, %edx sall $2, %edx addl %edx, %eax addl $4, %eax movl %eax, -84876(%ebp) .LBB272: .LBB273: movl -84876(%ebp), %eax movl %eax, -84872(%ebp) .LBE273: .LBE272: .LBB274: .LBB275: movl -84872(%ebp), %eax .LBE275: .LBE274: fsubrp %st, %st(1) fstps (%eax) 454 SP=SP+1 movl -36(%ebp), %eax addl $1, %eax movl %eax, -36(%ebp) 455 ->L24 jmp .L221 .L305: 456 INS(27):! MLTF 457 REAL(ADDR(REG(J)))=REAL(ADDR(REG(J)))*REAL(ADDR(S(M))) movl -85056(%ebp), %edx leal -65708(%ebp), %eax addl $16384, %edx sall $2, %edx addl %edx, %eax addl $4, %eax movl %eax, -84868(%ebp) .LBB276: .LBB277: movl -84868(%ebp), %eax movl %eax, -84864(%ebp) .LBE277: .LBE276: .LBB278: .LBB279: movl -84864(%ebp), %eax .LBE279: .LBE278: flds (%eax) movl -85048(%ebp), %edx leal -65708(%ebp), %eax sall $2, %edx addl %edx, %eax movl %eax, -84860(%ebp) .LBB280: .LBB281: movl -84860(%ebp), %eax movl %eax, -84856(%ebp) .LBE281: .LBE280: .LBB282: .LBB283: movl -84856(%ebp), %eax .LBE283: .LBE282: flds (%eax) movl -85056(%ebp), %edx leal -65708(%ebp), %eax addl $16384, %edx sall $2, %edx addl %edx, %eax addl $4, %eax movl %eax, -84852(%ebp) .LBB284: .LBB285: movl -84852(%ebp), %eax movl %eax, -84848(%ebp) .LBE285: .LBE284: .LBB286: .LBB287: movl -84848(%ebp), %eax .LBE287: .LBE286: fmulp %st, %st(1) fstps (%eax) 458 SP=SP+1 movl -36(%ebp), %eax addl $1, %eax movl %eax, -36(%ebp) 459 ->L24 jmp .L221 .L312: 460 INS(28):! DIVF 461 REAL(ADDR(REG(J)))=REAL(ADDR(REG(J)))/REAL(ADDR(S(M))) movl -85056(%ebp), %edx leal -65708(%ebp), %eax addl $16384, %edx sall $2, %edx addl %edx, %eax addl $4, %eax movl %eax, -84844(%ebp) .LBB288: .LBB289: movl -84844(%ebp), %eax movl %eax, -84840(%ebp) .LBE289: .LBE288: .LBB290: .LBB291: movl -84840(%ebp), %eax .LBE291: .LBE290: flds (%eax) movl -85048(%ebp), %edx leal -65708(%ebp), %eax sall $2, %edx addl %edx, %eax movl %eax, -84836(%ebp) .LBB292: .LBB293: movl -84836(%ebp), %eax movl %eax, -84832(%ebp) .LBE293: .LBE292: .LBB294: .LBB295: movl -84832(%ebp), %eax .LBE295: .LBE294: flds (%eax) movl -85056(%ebp), %edx leal -65708(%ebp), %eax addl $16384, %edx sall $2, %edx addl %edx, %eax addl $4, %eax movl %eax, -84828(%ebp) .LBB296: .LBB297: movl -84828(%ebp), %eax movl %eax, -84824(%ebp) .LBE297: .LBE296: .LBB298: .LBB299: movl -84824(%ebp), %eax .LBE299: .LBE298: fdivrp %st, %st(1) fstps (%eax) 462 SP=SP+1 movl -36(%ebp), %eax addl $1, %eax movl %eax, -36(%ebp) 463 ->L24 jmp .L221 .L319: 464 INS(29):! EXPF 465 REAL(ADDR(REG(J)))=REAL(ADDR(REG(J)))^S(M) movl -85048(%ebp), %eax movl -65708(%ebp,%eax,4), %eax movl %eax, -85088(%ebp) fildl -85088(%ebp) movl -85056(%ebp), %edx leal -65708(%ebp), %eax addl $16384, %edx sall $2, %edx addl %edx, %eax addl $4, %eax movl %eax, -84820(%ebp) .LBB300: .LBB301: movl -84820(%ebp), %eax movl %eax, -84816(%ebp) .LBE301: .LBE300: .LBB302: .LBB303: movl -84816(%ebp), %eax .LBE303: .LBE302: flds (%eax) fxch %st(1) leal -8(%esp), %esp fstpl (%esp) leal -8(%esp), %esp fstpl (%esp) call _imp_REXP addl $16, %esp movl -85056(%ebp), %edx leal -65708(%ebp), %eax addl $16384, %edx sall $2, %edx addl %edx, %eax addl $4, %eax movl %eax, -84812(%ebp) .LBB304: .LBB305: movl -84812(%ebp), %eax movl %eax, -84808(%ebp) .LBE305: .LBE304: .LBB306: .LBB307: movl -84808(%ebp), %eax .LBE307: .LBE306: fstps -85072(%ebp) flds -85072(%ebp) fstps (%eax) 466 !! REAL(ADDR(REG(J)))=REAL(ADDR(REG(J)))**S(M) 467 SP=SP+1 movl -36(%ebp), %eax addl $1, %eax movl %eax, -36(%ebp) 468 ->L24 jmp .L221 .L324: 469 INS(30):! NEGF 470 REAL(ADDR(REG(J)))=-REAL(ADDR(REG(J))) movl -85056(%ebp), %edx leal -65708(%ebp), %eax addl $16384, %edx sall $2, %edx addl %edx, %eax addl $4, %eax movl %eax, -84804(%ebp) .LBB308: .LBB309: movl -84804(%ebp), %eax movl %eax, -84800(%ebp) .LBE309: .LBE308: .LBB310: .LBB311: movl -84800(%ebp), %eax .LBE311: .LBE310: flds (%eax) movl -85056(%ebp), %edx leal -65708(%ebp), %eax addl $16384, %edx sall $2, %edx addl %edx, %eax addl $4, %eax movl %eax, -84796(%ebp) .LBB312: .LBB313: movl -84796(%ebp), %eax movl %eax, -84792(%ebp) .LBE313: .LBE312: .LBB314: .LBB315: movl -84792(%ebp), %eax .LBE315: .LBE314: fchs fstps (%eax) 471 SP=SP+1 movl -36(%ebp), %eax addl $1, %eax movl %eax, -36(%ebp) 472 ->L24 jmp .L221 .L329: 473 INS(31):! FLT 474 REAL(ADDR(REG(J)))=REG(J) movl -85056(%ebp), %eax addl $16384, %eax movl -65704(%ebp,%eax,4), %ecx movl -85056(%ebp), %edx leal -65708(%ebp), %eax addl $16384, %edx sall $2, %edx addl %edx, %eax addl $4, %eax movl %eax, -84788(%ebp) .LBB316: .LBB317: movl -84788(%ebp), %eax movl %eax, -84784(%ebp) .LBE317: .LBE316: .LBB318: .LBB319: movl -84784(%ebp), %eax .LBE319: .LBE318: movl %ecx, -85092(%ebp) fildl -85092(%ebp) fstps (%eax) 475 SP=SP+1 movl -36(%ebp), %eax addl $1, %eax movl %eax, -36(%ebp) 476 ->L24 jmp .L221 .L332: 477 IOR(0):! READ SYMBOL 478 READ SYMBOL(S(S(REG(14)+10))) movl -112(%ebp), %eax addl $10, %eax movl -65708(%ebp,%eax,4), %edx leal -65708(%ebp), %eax sall $2, %edx addl %eax, %edx subl $12, %esp leal -65708(%ebp), %eax pushl %edx movl %eax, %ecx call READSYMBOL.6028 addl $16, %esp 479 SP=REG(13) movl -116(%ebp), %eax movl %eax, -36(%ebp) 480 ->L24 jmp .L221 .L333: .LBB320: .LBB321: movl -85076(%ebp), %ebx call _imp_nextsymbol@PLT .LBE321: .LBE320: 481 IOR(1):! NEXT SYMBOL 482 REG(15)=NEXT SYMBOL movl %eax, -108(%ebp) 483 SP=REG(13) movl -116(%ebp), %eax movl %eax, -36(%ebp) 484 ->L24 jmp .L221 .L335: .LBB322: .LBB323: movl -85076(%ebp), %ebx call _imp_skipsymbol@PLT .LBE323: .LBE322: 485 IOR(2):! SKIP SYMBOL 486 SKIP SYMBOL 487 SP=REG(13) movl -116(%ebp), %eax movl %eax, -36(%ebp) 488 ->L24 jmp .L221 .L336: 489 IOR(3):! PRINT SYMBOL 490 PRINT SYMBOL(S(REG(14)+10)) movl -112(%ebp), %eax addl $10, %eax movl -65708(%ebp,%eax,4), %eax movsbl %al, %eax movb %al, -85061(%ebp) .LBB324: .LBB325: movsbl -85061(%ebp), %eax subl $12, %esp pushl %eax movl -85076(%ebp), %ebx call _imp_printsymbol@PLT addl $16, %esp .LBE325: .LBE324: 491 SP=REG(13) movl -116(%ebp), %eax movl %eax, -36(%ebp) 492 ->L24 jmp .L221 .L337: .LBB326: .LBB327: movl -85076(%ebp), %ebx call _imp_space@PLT .LBE327: .LBE326: 493 IOR(4):! SPACE 494 SPACE 495 SP=REG(13) movl -116(%ebp), %eax movl %eax, -36(%ebp) 496 ->L24 jmp .L221 .L338: 497 IOR(5):! SPACES 498 SPACES(S(REG(14)+10)) movl -112(%ebp), %eax addl $10, %eax movl -65708(%ebp,%eax,4), %eax movl %eax, -84780(%ebp) .LBB328: .LBB329: subl $12, %esp pushl -84780(%ebp) movl -85076(%ebp), %ebx call _imp_spaces@PLT addl $16, %esp .LBE329: .LBE328: 499 SP=REG(13) movl -116(%ebp), %eax movl %eax, -36(%ebp) 500 ->L24 jmp .L221 .L339: .LBB330: .LBB331: movl -85076(%ebp), %ebx call _imp_newline@PLT .LBE331: .LBE330: 501 IOR(6):! NEWLINE 502 NEWLINE 503 SP=REG(13) movl -116(%ebp), %eax movl %eax, -36(%ebp) 504 ->L24 jmp .L221 .L340: 505 IOR(7):! NEWLINES 506 NEWLINES(S(REG(14)+10)) movl -112(%ebp), %eax addl $10, %eax movl -65708(%ebp,%eax,4), %eax movl %eax, -84776(%ebp) .LBB332: .LBB333: subl $12, %esp pushl -84776(%ebp) movl -85076(%ebp), %ebx call _imp_newlines@PLT addl $16, %esp .LBE333: .LBE332: 507 SP=REG(13) movl -116(%ebp), %eax movl %eax, -36(%ebp) 508 ->L24 jmp .L221 .L341: 509 IOR(8):! NEWPAGE 510 NEWPAGE leal -65708(%ebp), %eax movl %eax, %ecx call NEWPAGE.6022 511 SP=REG(13) movl -116(%ebp), %eax movl %eax, -36(%ebp) 512 ->L24 jmp .L221 .L342: 513 IOR(9):! READ 514 READ(S(S(REG(14)+10))) movl -112(%ebp), %eax addl $10, %eax movl -65708(%ebp,%eax,4), %edx leal -65708(%ebp), %eax sall $2, %edx addl %eax, %edx subl $12, %esp leal -65708(%ebp), %eax pushl %edx movl %eax, %ecx call READ.6036 addl $16, %esp 515 SP=REG(13) movl -116(%ebp), %eax movl %eax, -36(%ebp) 516 ->L24 jmp .L221 .L343: 517 IOR(10):! WRITE 518 WRITE(S(REG(14)+10),S(REG(14)+11)) movl -112(%ebp), %eax addl $11, %eax movl -65708(%ebp,%eax,4), %edx movl -112(%ebp), %eax addl $10, %eax movl -65708(%ebp,%eax,4), %eax subl $8, %esp pushl %edx pushl %eax movl -85076(%ebp), %ebx call _imp_writeint@PLT addl $16, %esp 519 SP=REG(13) movl -116(%ebp), %eax movl %eax, -36(%ebp) 520 ->L24 jmp .L221 .L399: cmpl $31, -84988(%ebp) jle .L345 .L344: movl -85076(%ebp), %eax movl _imp_current_line@GOT(%eax), %eax movl (%eax), %eax testl %eax, %eax je .L346 movl -85076(%ebp), %eax movl _imp_current_line@GOT(%eax), %eax movl (%eax), %eax movl %eax, -85080(%ebp) jmp .L347 .L346: movl $584, -85080(%ebp) .L347: movl -85076(%ebp), %eax movl _imp_current_file@GOT(%eax), %eax movl (%eax), %eax testl %eax, %eax je .L348 movl -85076(%ebp), %ebx movl _imp_current_file@GOT(%ebx), %eax movl (%eax), %edx leal -82732(%ebp), %eax subl $8, %esp pushl %edx pushl %eax call _imp_c2istr@PLT addl $12, %esp jmp .L349 .L348: .LBB334: leal -83244(%ebp), %eax movl -85076(%ebp), %esi leal .LC2@GOTOFF(%esi), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -83500(%ebp), %eax leal -83244(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE334: leal -82732(%ebp), %eax leal -83500(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .L349: pushl -84996(%ebp) pushl -84992(%ebp) pushl -84988(%ebp) movl -85076(%ebp), %ebx leal .LC5@GOTOFF(%ebx), %eax pushl %eax pushl -84988(%ebp) pushl $3 pushl $6 pushl -85080(%ebp) subl $256, %esp movl %esp, %eax movl %eax, %edi leal -82732(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl call _signal_eventf@PLT addl $288, %esp .L345: movl -84988(%ebp), %eax subl $1, %eax movl -85076(%ebp), %edi movl INS.6081@GOTOFF(%edi,%eax,4), %eax jmp .L350 .L394: cmpl $10, -85000(%ebp) jle .L352 .L351: movl -85076(%ebp), %eax movl _imp_current_line@GOT(%eax), %eax movl (%eax), %eax testl %eax, %eax je .L353 movl -85076(%ebp), %eax movl _imp_current_line@GOT(%eax), %eax movl (%eax), %eax movl %eax, -85084(%ebp) jmp .L354 .L353: movl $584, -85084(%ebp) .L354: movl -85076(%ebp), %eax movl _imp_current_file@GOT(%eax), %eax movl (%eax), %eax testl %eax, %eax je .L355 movl -85076(%ebp), %ebx movl _imp_current_file@GOT(%ebx), %eax movl (%eax), %edx leal -82476(%ebp), %eax subl $8, %esp pushl %edx pushl %eax call _imp_c2istr@PLT addl $12, %esp jmp .L356 .L355: .LBB335: leal -83244(%ebp), %eax movl -85076(%ebp), %esi leal .LC2@GOTOFF(%esi), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -82988(%ebp), %eax leal -83244(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE335: leal -82476(%ebp), %eax leal -82988(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .L356: pushl -85008(%ebp) pushl -85004(%ebp) pushl -85000(%ebp) movl -85076(%ebp), %ebx leal .LC6@GOTOFF(%ebx), %eax pushl %eax pushl -85000(%ebp) pushl $3 pushl $6 pushl -85084(%ebp) subl $256, %esp movl %esp, %eax movl %eax, %edi leal -82476(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl call _signal_eventf@PLT addl $288, %esp .L352: movl -85000(%ebp), %eax movl -85076(%ebp), %edi movl IOR.6116@GOTOFF(%edi,%eax,4), %eax jmp .L350 .LFE189: XREADSYM.6025: .LFB191: 521 %ROUTINE READMN(%INTEGERNAME MN,NEXT) pushl %ebp movl %esp, %ebp pushl %ebx subl $36, %esp call __x86.get_pc_thunk.ax addl $_GLOBAL_OFFSET_TABLE_, %eax movl 8(%ebp), %eax movl %eax, -28(%ebp) movl 12(%ebp), %eax movl %eax, -32(%ebp) movl %ecx, %ebx movl %ecx, -36(%ebp) movl %gs:20, %eax movl %eax, -12(%ebp) xorl %eax, %eax .L531: 522 %INTEGER I,J,K 523 L1: READ SYMBOL(I) subl $12, %esp leal -24(%ebp), %eax pushl %eax movl %ebx, %ecx call READSYMBOL.6028 addl $16, %esp 524 %IF I=' ' %THEN ->L1 movl -24(%ebp), %eax cmpl $32, %eax jne .L550 jmp .L531 .L550: nop .L533: 525 %IF I<'A' %OR I>'Z' %THEN %START movl -24(%ebp), %eax cmpl $64, %eax jle .L551 movl -24(%ebp), %eax cmpl $90, %eax jle .L552 jmp .L535 .L551: nop .L535: nop .L536: 526 MN=0 movl -28(%ebp), %eax movl $0, (%eax) 527 NEXT=I movl -24(%ebp), %edx movl -32(%ebp), %eax movl %edx, (%eax) 528 %RETURN ; %FINISH jmp .L530 .L552: 529 J=1 movl $1, -16(%ebp) .L538: 530 L2: READ SYMBOL(K) subl $12, %esp leal -20(%ebp), %eax pushl %eax movl %ebx, %ecx call READSYMBOL.6028 addl $16, %esp 531 %IF J=4 %OR K<'0' %OR (K>'9' %AND K<'A') %OR K>'Z' %THEN %START cmpl $4, -16(%ebp) je .L553 movl -20(%ebp), %eax cmpl $47, %eax jle .L554 movl -20(%ebp), %eax cmpl $57, %eax jle .L555 movl -20(%ebp), %eax cmpl $64, %eax jle .L556 jmp .L543 .L555: nop .L543: movl -20(%ebp), %eax cmpl $90, %eax jle .L557 jmp .L540 .L553: nop jmp .L540 .L554: nop jmp .L540 .L556: nop .L540: nop .L544: 532 MN=I movl -24(%ebp), %edx movl -28(%ebp), %eax movl %edx, (%eax) 533 NEXT=K movl -20(%ebp), %edx movl -32(%ebp), %eax movl %edx, (%eax) 534 %RETURN ; %FINISH jmp .L530 .L557: 535 I=I<<8!K movl -24(%ebp), %eax sall $8, %eax movl %eax, %edx movl -20(%ebp), %eax orl %edx, %eax movl %eax, -24(%ebp) 536 J=J+1 addl $1, -16(%ebp) 537 ->L2 jmp .L538 .L530: 538 %END movl -12(%ebp), %eax xorl %gs:20, %eax je .L546 call __stack_chk_fail_local .L546: movl -4(%ebp), %ebx leave ret .LFE195: FAULT.6073: .LFB196: 539 %ROUTINE FAULT(%INTEGER I,J,K,L) 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) 540 OUT(M'*** ') subl $12, %esp pushl $707406368 movl %esi, %ecx call OUT.6075 addl $16, %esp 541 WRITE(SP,4) movl 65672(%esi), %eax subl $8, %esp pushl $4 pushl %eax call _imp_writeint@PLT addl $16, %esp movl $6, -12(%ebp) .LBB340: .LBB341: subl $12, %esp pushl -12(%ebp) call _imp_spaces@PLT addl $16, %esp .LBE341: .LBE340: 542 SPACES(6) 543 OUT(I) subl $12, %esp pushl 8(%ebp) movl %esi, %ecx call OUT.6075 addl $16, %esp 544 OUT(J) subl $12, %esp pushl 12(%ebp) movl %esi, %ecx call OUT.6075 addl $16, %esp 545 OUT(K) subl $12, %esp pushl 16(%ebp) movl %esi, %ecx call OUT.6075 addl $16, %esp 546 OUT(L) subl $12, %esp pushl 20(%ebp) movl %esi, %ecx call OUT.6075 addl $16, %esp .LBB342: .LBB343: call _imp_newline@PLT .LBE343: .LBE342: 547 NEWLINE 548 F=F+1 movl 65668(%esi), %eax addl $1, %eax movl %eax, 65668(%esi) 549 %END nop leal -8(%ebp), %esp popl %ebx popl %esi popl %ebp ret .LFE196: OUT.6075: .LFB197: 550 %ROUTINE OUT(%INTEGER I) 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) 551 PRINT SYMBOL(I>>24) %if I>>24 # 0 movl 8(%ebp), %eax shrl $24, %eax testl %eax, %eax je .L568 movl 8(%ebp), %eax shrl $24, %eax movsbl %al, %eax movb %al, -12(%ebp) .LBB344: .LBB345: movsbl -12(%ebp), %eax subl $12, %esp pushl %eax call _imp_printsymbol@PLT addl $16, %esp jmp .L567 .L562: .L568: .LBE345: .LBE344: nop .L567: 552 PRINT SYMBOL(I>>16&255) %if I>>16&255 # 0 movl 8(%ebp), %eax shrl $16, %eax movsbl %al, %eax movb %al, -11(%ebp) .LBB346: .LBB347: movsbl -11(%ebp), %eax subl $12, %esp pushl %eax call _imp_printsymbol@PLT addl $16, %esp .L563: .LBE347: .LBE346: 553 PRINT SYMBOL(I>>8&255) %if I>>8&255 # 0 movl 8(%ebp), %eax shrl $8, %eax movsbl %al, %eax movb %al, -10(%ebp) .LBB348: .LBB349: movsbl -10(%ebp), %eax subl $12, %esp pushl %eax call _imp_printsymbol@PLT addl $16, %esp .L564: .LBE349: .LBE348: 554 PRINT SYMBOL(I&255) %if I&255 # 0 movl 8(%ebp), %eax movsbl %al, %eax movb %al, -9(%ebp) .LBB350: .LBB351: movsbl -9(%ebp), %eax subl $12, %esp pushl %eax call _imp_printsymbol@PLT addl $16, %esp .LBE351: .LBE350: 555 %END nop movl -4(%ebp), %ebx leave ret .L565: .LFE197: DUMP.6077: .LFB198: 556 %ROUTINE DUMP 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 .LBB352: .LBB353: call _imp_newline@PLT .LBE353: .LBE352: 557 %INTEGER I,J 558 NEWLINE 559 I=0 movl $0, -20(%ebp) .L570: 560 L1: OUT(RMN(I)) movl -20(%ebp), %eax addl $16400, %eax movl 4(%esi,%eax,4), %eax subl $12, %esp pushl %eax movl %esi, %ecx call OUT.6075 addl $16, %esp 561 OUT(M' : ') subl $12, %esp pushl $538982944 movl %esi, %ecx call OUT.6075 addl $16, %esp 562 WRITE(REG(I),1) movl -20(%ebp), %eax addl $16384, %eax movl 4(%esi,%eax,4), %eax subl $8, %esp pushl $1 pushl %eax call _imp_writeint@PLT addl $16, %esp .LBB354: .LBB355: call _imp_newline@PLT .LBE355: .LBE354: 563 NEWLINE 564 I=I+1 addl $1, -20(%ebp) 565 %IF I<=15 %THEN ->L1 cmpl $15, -20(%ebp) jg .L588 jmp .L570 .L588: nop .L572: 566 %IF REG(14)L2 movl 65596(%esi), %eax cmpl %eax, -20(%ebp) jg .L592 jmp .L576 .L592: nop .L582: 583 %END nop .L569: movl -12(%ebp), %eax xorl %gs:20, %eax je .L583 call __stack_chk_fail_local .L583: leal -8(%ebp), %esp popl %ebx popl %esi popl %ebp ret .LFE198: .section .data.rel.local,"aw",@progbits .align 32 INS.6081: .long .L249 .long .L250 .long .L251 .long .L252 .long .L253 .long .L254 .long .L255 .long .L256 .long .L257 .long .L258 .long .L259 .long .L260 .long .L261 .long .L262 .long .L263 .long .L264 .long .L265 .long .L266 .long .L270 .long .L274 .long .L278 .long .L282 .long .L286 .long .L290 .long .L291 .long .L298 .long .L305 .long .L312 .long .L319 .long .L324 .long .L329 .align 32 IOR.6116: .long .L332 .long .L333 .long .L335 .long .L336 .long .L337 .long .L338 .long .L339 .long .L340 .long .L341 .long .L342 .long .L343 .section .rodata .align 4 __PRETTY_FUNCTION__.5621: .string "_imp_SELECTINPUT" .align 8 .LC3: .long 0 .long 1073741824 .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: .LFB199: movl (%esp), %eax ret .LFE199: .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: .LFB200: movl (%esp), %ebx ret .LFE200: .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: .LFB201: movl (%esp), %esi ret .LFE201: .Letext0: 584 %ENDOFPROGRAM cmpl $0, -85000(%ebp) js .L351 jmp .L394 .L504: 615 Statements compiled