Edinburgh IMP77 Compiler - Version 8.4 1 !!! %option stack=40 .Ltext0: _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 .L4 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 .L1 .L4: nop .L1: 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 .L8 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 .L5 .L8: nop .L5: movl -4(%ebp), %ebx leave ret .LFE94: .globl PERMS .section .rodata .align 32 PERMS: .long 55 .long 398 .long 410 .long 420 .long 440 .long 587 .long 494 .long 507 .long 463 .long 0 .long 132 .long 163 .long 198 .long 70 .long 219 .long 0 .long 0 .long 708 .long 693 .long 678 .long 670 .long 664 .long 658 .long 642 .long 528 .long 60 .long 94 .long 89 .long 536 .long 321 .long 388 .long 80 .long 75 .long 119 .long 112 .long 105 .long 99 .long 127 .long 65 .long 361 .long 544 .long 549 .long 554 .long 559 .long 590 .long 85 .long 87 .long 565 .long 570 .long 575 .long 581 .long 366 .long 378 .long 623 .long 4 .long 9280 .long 22589 .long 4 .long 771 .long 4 .long 9281 .long 22589 .long 4 .long 771 .long 4 .long 9285 .long 22589 .long 4 .long 771 .long 4 .long 9282 .long 22589 .long 4 .long 771 .long 4 .long 9283 .long 22589 .long 4 .long 771 .long 4 .long 9284 .long 22589 .long 4 .long 771 .long 1 .long 0 .long 1 .long 0 .long 4 .long 9289 .long 22589 .long 4 .long 771 .long 4 .long 9290 .long 22589 .long 4 .long 771 .long 5 .long 9322 .long 9285 .long 22589 .long 4 .long 771 .long 6 .long 2134 .long 9322 .long 9287 .long 22589 .long 4 .long 771 .long 6 .long 51296 .long 32 .long 9285 .long 22589 .long 4 .long 771 .long 7 .long 2134 .long 51296 .long 32 .long 9287 .long 22589 .long 4 .long 771 .long 4 .long 9286 .long 22589 .long 4 .long 771 .long 30 .long 18433 .long 0 .long 50432 .long 32896 .long 8501 .long 9217 .long 9232 .long 34952 .long 1 .long 37888 .long 37680 .long 4097 .long 8584 .long 54017 .long 17152 .long 0 .long 53762 .long 17152 .long 0 .long 8968 .long 10033 .long 18433 .long 17152 .long 0 .long 16386 .long 17152 .long 0 .long 10034 .long 8727 .long 776 .long 34 .long 18433 .long 0 .long 50432 .long 32896 .long 8501 .long 9217 .long 9232 .long 34952 .long 1 .long 37888 .long 37632 .long 54098 .long 0 .long 2149 .long 2658 .long 2640 .long 50512 .long 255 .long 8997 .long 9221 .long 9244 .long 34952 .long 1 .long 53842 .long 0 .long 9985 .long 536 .long 9825 .long 9745 .long 54065 .long 0 .long 53814 .long 0 .long 8712 .long 20 .long 2146 .long 54017 .long 0 .long 54098 .long 0 .long 2896 .long 8984 .long 2565 .long 8966 .long 54070 .long 0 .long 54321 .long 0 .long 568 .long 9745 .long 9825 .long 9985 .long 8728 .long 2133 .long 776 .long 93 .long 53431 .long 256 .long 2226 .long 18641 .long 0 .long 50640 .long 32896 .long 9016 .long 38109 .long 37853 .long 18434 .long 0 .long 50432 .long 32896 .long 8501 .long 9217 .long 9232 .long 34952 .long 1 .long 37888 .long 37632 .long 2829 .long 16912 .long 32802 .long 2251 .long 2273 .long 2301 .long 10225 .long 16912 .long 32798 .long 9921 .long 9953 .long 54076 .long 0 .long 54334 .long 0 .long 8761 .long 9905 .long 9985 .long 17152 .long 65498 .long 53687 .long 256 .long 2049 .long 776 .long 2150 .long 8501 .long 1458 .long 8247 .long 17152 .long 32796 .long 2107 .long 2866 .long 53814 .long 0 .long 2252 .long 1468 .long 9016 .long 9825 .long 9921 .long 54070 .long 0 .long 53820 .long 0 .long 8712 .long 2133 .long 8502 .long 2048 .long 16944 .long 65478 .long 17152 .long 32802 .long 2749 .long 54018 .long 0 .long 2562 .long 2096 .long 2875 .long 53813 .long 0 .long 1456 .long 9016 .long 9905 .long 9809 .long 54069 .long 0 .long 53819 .long 0 .long 8712 .long 53687 .long 0 .long 1501 .long 776 .long 7 .long 2087 .long 51216 .long 256 .long 37473 .long 16402 .long 0 .long 776 .long 39 .long 18486 .long 0 .long 50480 .long 32896 .long 8501 .long 9217 .long 9232 .long 34952 .long 1 .long 37939 .long 37683 .long 2133 .long 9000 .long 22535 .long 44 .long 1283 .long 8484 .long 2821 .long 9729 .long 8981 .long 9221 .long 9241 .long 34952 .long 1 .long 51255 .long 44 .long 2067 .long 53763 .long 0 .long 2661 .long 9985 .long 536 .long 9777 .long 54054 .long 0 .long 53795 .long 0 .long 9825 .long 8712 .long 4 .long 9288 .long 22589 .long 4 .long 771 .long 11 .long 26663 .long 44 .long 22631 .long 48 .long 22615 .long 52 .long 51264 .long 22 .long 22589 .long 4 .long 771 .long 9 .long 26663 .long 44 .long 22631 .long 48 .long 51264 .long 23 .long 22589 .long 4 .long 771 .long 9 .long 22631 .long 44 .long 22615 .long 48 .long 51264 .long 21 .long 22589 .long 4 .long 771 .long 11 .long 2096 .long 2611 .long 10036 .long 536 .long 22529 .long 17152 .long 0 .long 20482 .long 17152 .long 0 .long 8712 .long 9 .long 2096 .long 2611 .long 9216 .long 10036 .long 536 .long 20482 .long 17152 .long 0 .long 8709 .long 19 .long 2097 .long 18738 .long 2 .long 8491 .long 19250 .long 0 .long 8472 .long 2611 .long 29491 .long 16896 .long 4 .long 9011 .long 2622 .long 563 .long 2081 .long 9221 .long 9236 .long 34952 .long 1 .long 22 .long 20502 .long 8 .long 20534 .long 4 .long 20566 .long 0 .long 52021 .long 65535 .long 8485 .long 9221 .long 9238 .long 34952 .long 1 .long 7201 .long 7173 .long 9216 .long 2817 .long 51219 .long 3 .long 50192 .long 65532 .long 776 .long 30 .long 20595 .long 0 .long 20739 .long 0 .long 20579 .long 4 .long 2087 .long 2673 .long 22589 .long 0 .long 51571 .long 65024 .long 8999 .long 2929 .long 2081 .long 9218 .long 9232 .long 34952 .long 1 .long 22622 .long 16 .long 62800 .long 32896 .long 32896 .long 568 .long 20561 .long 17151 .long 65532 .long 10004 .long 8245 .long 12 .long 2099 .long 8982 .long 2083 .long 9221 .long 9242 .long 34952 .long 1 .long 9233 .long 10033 .long 536 .long 7170 .long 8707 .long 13 .long 9217 .long 12032 .long 2049 .long 8982 .long 11522 .long 10272 .long 9216 .long 51969 .long 1 .long 824 .long 11266 .long 9985 .long 8707 .long 2 .long 2070 .long 776 .long 3 .long 2070 .long 2581 .long 776 .long 7 .long 51223 .long 44 .long 51264 .long 17 .long 22589 .long 4 .long 771 .long 7 .long 51223 .long 44 .long 51264 .long 18 .long 22589 .long 4 .long 771 .long 4 .long 9293 .long 22589 .long 4 .long 771 .long 4 .long 9294 .long 22589 .long 4 .long 771 .long 4 .long 9295 .long 22589 .long 4 .long 771 .long 5 .long 51264 .long 16 .long 22589 .long 4 .long 771 .long 4 .long 9291 .long 22589 .long 4 .long 771 .long 4 .long 9292 .long 22589 .long 4 .long 771 .long 5 .long 51264 .long 19 .long 22589 .long 4 .long 771 .long 5 .long 51264 .long 20 .long 22589 .long 4 .long 771 .long 2 .long 12033 .long 776 .long 8 .long 22557 .long 0 .long 2839 .long 792 .long 9218 .long 9232 .long 34952 .long 1 .long 11 .long 26631 .long 44 .long 63504 .long 16512 .long 0 .long 20503 .long 44 .long 27143 .long 44 .long 11792 .long 776 .long 4 .long 26631 .long 44 .long 11792 .long 776 .long 6 .long 26631 .long 44 .long 11792 .long 12065 .long 11010 .long 776 .long 18 .long 22551 .long 44 .long 50272 .long 15 .long 4452 .long 50784 .long 57601 .long 16487 .long 0 .long 9312 .long 16487 .long 2 .long 51296 .long 776 .long 16487 .long 4 .long 17159 .long 0 .long 15 .long 2082 .long 9018 .long 2832 .long 2049 .long 60928 .long 31 .long 7426 .long 9745 .long 8467 .long 2048 .long 824 .long 9221 .long 9233 .long 34952 .long 1 .long 5 .long 824 .long 9222 .long 9233 .long 34952 .long 1 .long 5 .long 840 .long 9222 .long 9233 .long 34952 .long 1 .long 7 .long 54273 .long 0 .long 904 .long 9222 .long 9233 .long 34952 .long 1 .long 14 .long 22802 .long 0 .long 8471 .long 22802 .long 4 .long 8484 .long 23554 .long 8 .long 776 .long 2081 .long 9222 .long 9234 .long 34952 .long 1 .long 14 .long 19064 .long 0 .long 22541 .long 0 .long 50439 .long 512 .long 17288 .long 2 .long 19320 .long 0 .long 9218 .long 9232 .long 34952 .long 1 .long 25 .long 2119 .long 19016 .long 0 .long 19064 .long 2 .long 22541 .long 0 .long 50439 .long 512 .long 9095 .long 19320 .long 2 .long 9218 .long 9232 .long 34952 .long 1 .long 22542 .long 16 .long 20484 .long 0 .long 9796 .long 1351 .long 8740 .long 17160 .long 4 .globl PERMS_dv .section .data.rel.local,"aw",@progbits .align 32 PERMS_dv: .long PERMS .long 4 .zero 60 .globl NOT .section .rodata .align 32 NOT: .long 1 .long 0 .long 5 .long 4 .long 3 .long 2 .long 7 .long 6 .long 11 .long 10 .long 9 .long 8 .long 12 .globl NOT_dv .section .data.rel.local .align 32 NOT_dv: .long NOT .long 4 .zero 60 .globl SB .section .rodata .align 32 SB: .long 8752 .long 8240 .long 8208 .long 8224 .long 8736 .long 8720 .long 8752 .long 8240 .long 8224 .long 8208 .long 8720 .long 8736 .long 8704 .globl SB_dv .section .data.rel.local .align 32 SB_dv: .long SB .long 4 .zero 60 .globl SF .section .rodata .align 32 SF: .long 9008 .long 8496 .long 8464 .long 8480 .long 8992 .long 8976 .long 9008 .long 8496 .long 8480 .long 8464 .long 8976 .long 8992 .long 8960 .globl SF_dv .section .data.rel.local .align 32 SF_dv: .long SF .long 4 .zero 60 .globl LJ .section .rodata .align 32 LJ: .long 17214 .long 16958 .long 16926 .long 16942 .long 17198 .long 17182 .long 17214 .long 16958 .long 16942 .long 16926 .long 17182 .long 17198 .long 17166 .globl LJ_dv .section .data.rel.local .align 32 LJ_dv: .long LJ .long 4 .zero 60 GET.6148: .LFB190: 2 !! 17/1/78 3 {Modified 25-Feb-82 to run on new subsystem} 4 5 !!!! %CONTROL 1; ! CHECK SWITCHES ONLY 6 7 ! PASS 3 OF 7/32 IMP COMPILER - VERSION FOR MOUSES AND OS-32MT SUBSYSTEM 8 9 %CONSTINTEGER MAX PERM = 54 10 %CONSTINTEGERARRAY PERMS(1: 733) = %C 11 X'0037',X'018E',X'019A',X'01A4',X'01B8',X'024B',X'01EE',X'01FB',X'01CF', 12 X'0000',X'0084',X'00A3',X'00C6',X'0046',X'00DB',X'0000',X'0000',X'02C4', 13 X'02B5',X'02A6',X'029E',X'0298',X'0292',X'0282',X'0210',X'003C',X'005E', 14 X'0059',X'0218',X'0141',X'0184',X'0050',X'004B',X'0077',X'0070',X'0069', 15 X'0063',X'007F',X'0041',X'0169',X'0220',X'0225',X'022A',X'022F',X'024E', 16 X'0055',X'0057',X'0235',X'023A',X'023F',X'0245',X'016E',X'017A',X'026F', 17 X'0004',X'2440',X'583D',X'0004',X'0303',X'0004',X'2441',X'583D',X'0004', 18 X'0303',X'0004',X'2445',X'583D',X'0004',X'0303',X'0004',X'2442',X'583D', 19 X'0004',X'0303',X'0004',X'2443',X'583D',X'0004',X'0303',X'0004',X'2444', 20 X'583D',X'0004',X'0303',X'0001',X'0000',X'0001',X'0000',X'0004',X'2449', 21 X'583D',X'0004',X'0303',X'0004',X'244A',X'583D',X'0004',X'0303',X'0005', 22 X'246A',X'2445',X'583D',X'0004',X'0303',X'0006',X'0856',X'246A',X'2447', 23 X'583D',X'0004',X'0303',X'0006',X'C860',X'0020',X'2445',X'583D',X'0004', 24 X'0303',X'0007',X'0856',X'C860',X'0020',X'2447',X'583D',X'0004',X'0303', 25 X'0004',X'2446',X'583D',X'0004',X'0303',X'001E',X'4801',X'0000',X'C500', 26 X'8080',X'2135',X'2401',X'2410',X'8888',X'0001',X'9400',X'9330',X'1001', 27 X'2188',X'D301',X'4300',X'0000',X'D202',X'4300',X'0000',X'2308',X'2731', 28 X'4801',X'4300',X'0000',X'4002',X'4300',X'0000',X'2732',X'2217',X'0308', 29 X'0022',X'4801',X'0000',X'C500',X'8080',X'2135',X'2401',X'2410',X'8888', 30 X'0001',X'9400',X'9300',X'D352',X'0000',X'0865',X'0A62',X'0A50',X'C550', 31 X'00FF',X'2325',X'2405',X'241C',X'8888',X'0001',X'D252',X'0000',X'2701', 32 X'0218',X'2661',X'2611',X'D331',X'0000',X'D236',X'0000',X'2208',X'0014', 33 X'0862',X'D301',X'0000',X'D352',X'0000',X'0B50',X'2318',X'0A05',X'2306', 34 X'D336',X'0000',X'D431',X'0000',X'0238',X'2611',X'2661',X'2701',X'2218', 35 X'0855',X'0308',X'005D',X'D0B7',X'0100',X'08B2',X'48D1',X'0000',X'C5D0', 36 X'8080',X'2338',X'94DD',X'93DD',X'4802',X'0000',X'C500',X'8080',X'2135', 37 X'2401',X'2410',X'8888',X'0001',X'9400',X'9300',X'0B0D',X'4210',X'8022', 38 X'08CB',X'08E1',X'08FD',X'27F1',X'4210',X'801E',X'26C1',X'26E1',X'D33C', 39 X'0000',X'D43E',X'0000',X'2239',X'26B1',X'2701',X'4300',X'FFDA',X'D1B7', 40 X'0100',X'0801',X'0308',X'0866',X'2135',X'05B2',X'2037',X'4300',X'801C', 41 X'083B',X'0B32',X'D236',X'0000',X'08CC',X'05BC',X'2338',X'2661',X'26C1', 42 X'D336',X'0000',X'D23C',X'0000',X'2208',X'0855',X'2136',X'0800',X'4230', 43 X'FFC6',X'4300',X'8022',X'0ABD',X'D302',X'0000',X'0A02',X'0830',X'0B3B', 44 X'D235',X'0000',X'05B0',X'2338',X'26B1',X'2651',X'D335',X'0000',X'D23B', 45 X'0000',X'2208',X'D1B7',X'0000',X'05DD',X'0308',X'0007',X'0827',X'C810', 46 X'0100',X'9261',X'4012',X'0000',X'0308',X'0027',X'4836',X'0000',X'C530', 47 X'8080',X'2135',X'2401',X'2410',X'8888',X'0001',X'9433',X'9333',X'0855', 48 X'2328',X'5807',X'002C',X'0503',X'2124',X'0B05',X'2601',X'2315',X'2405', 49 X'2419',X'8888',X'0001',X'C837',X'002C',X'0813',X'D203',X'0000',X'0A65', 50 X'2701',X'0218',X'2631',X'D326',X'0000',X'D223',X'0000',X'2661',X'2208', 51 X'0004',X'2448',X'583D',X'0004',X'0303',X'000B',X'6827',X'002C',X'5867', 52 X'0030',X'5857',X'0034',X'C840',X'0016',X'583D',X'0004',X'0303',X'0009', 53 X'6827',X'002C',X'5867',X'0030',X'C840',X'0017',X'583D',X'0004',X'0303', 54 X'0009',X'5867',X'002C',X'5857',X'0030',X'C840',X'0015',X'583D',X'0004', 55 X'0303',X'000B',X'0830',X'0A33',X'2734',X'0218',X'5801',X'4300',X'0000', 56 X'5002',X'4300',X'0000',X'2208',X'0009',X'0830',X'0A33',X'2400',X'2734', 57 X'0218',X'5002',X'4300',X'0000',X'2205',X'0013',X'0831',X'4932',X'0002', 58 X'212B',X'4B32',X'0000',X'2118',X'0A33',X'7333',X'4200',X'0004',X'2333', 59 X'0A3E',X'0233',X'0821',X'2405',X'2414',X'8888',X'0001',X'0016',X'5016', 60 X'0008',X'5036',X'0004',X'5056',X'0000',X'CB35',X'FFFF',X'2125',X'2405', 61 X'2416',X'8888',X'0001',X'1C21',X'1C05',X'2400',X'0B01',X'C813',X'0003', 62 X'C410',X'FFFC',X'0308',X'001E',X'5073',X'0000',X'5103',X'0000',X'5063', 63 X'0004',X'0827',X'0A71',X'583D',X'0000',X'C973',X'FE00',X'2327',X'0B71', 64 X'0821',X'2402',X'2410',X'8888',X'0001',X'585E',X'0010',X'F550',X'8080', 65 X'8080',X'0238',X'5051',X'42FF',X'FFFC',X'2714',X'2035',X'000C',X'0833', 66 X'2316',X'0823',X'2405',X'241A',X'8888',X'0001',X'2411',X'2731',X'0218', 67 X'1C02',X'2203',X'000D',X'2401',X'2F00',X'0801',X'2316',X'2D02',X'2820', 68 X'2400',X'CB01',X'0001',X'0338',X'2C02',X'2701',X'2203',X'0002',X'0816', 69 X'0308',X'0003',X'0816',X'0A15',X'0308',X'0007',X'C817',X'002C',X'C840', 70 X'0011',X'583D',X'0004',X'0303',X'0007',X'C817',X'002C',X'C840',X'0012', 71 X'583D',X'0004',X'0303',X'0004',X'244D',X'583D',X'0004',X'0303',X'0004', 72 X'244E',X'583D',X'0004',X'0303',X'0004',X'244F',X'583D',X'0004',X'0303', 73 X'0005',X'C840',X'0010',X'583D',X'0004',X'0303',X'0004',X'244B',X'583D', 74 X'0004',X'0303',X'0004',X'244C',X'583D',X'0004',X'0303',X'0005',X'C840', 75 X'0013',X'583D',X'0004',X'0303',X'0005',X'C840',X'0014',X'583D',X'0004', 76 X'0303',X'0002',X'2F01',X'0308',X'0008',X'581D',X'0000',X'0B17',X'0318', 77 X'2402',X'2410',X'8888',X'0001',X'000B',X'6807',X'002C',X'F810',X'4080', 78 X'0000',X'5017',X'002C',X'6A07',X'002C',X'2E10',X'0308',X'0004',X'6807', 79 X'002C',X'2E10',X'0308',X'0006',X'6807',X'002C',X'2E10',X'2F21',X'2B02', 80 X'0308',X'0012',X'5817',X'002C',X'C460',X'000F',X'1164',X'C660',X'E101', 81 X'4067',X'0000',X'2460',X'4067',X'0002',X'C860',X'0308',X'4067',X'0004', 82 X'4307',X'0000',X'000F',X'0822',X'233A',X'0B10',X'0801',X'EE00',X'001F', 83 X'1D02',X'2611',X'2113',X'0800',X'0338',X'2405',X'2411',X'8888',X'0001', 84 X'0005',X'0338',X'2406',X'2411',X'8888',X'0001',X'0005',X'0348',X'2406', 85 X'2411',X'8888',X'0001',X'0007',X'D401',X'0000',X'0388',X'2406',X'2411', 86 X'8888',X'0001',X'000E',X'5912',X'0000',X'2117',X'5912',X'0004',X'2124', 87 X'5C02',X'0008',X'0308',X'0821',X'2406',X'2412',X'8888',X'0001',X'000E', 88 X'4A78',X'0000',X'580D',X'0000',X'C507',X'0200',X'4388',X'0002',X'4B78', 89 X'0000',X'2402',X'2410',X'8888',X'0001',X'0019',X'0847',X'4A48',X'0000', 90 X'4A78',X'0002',X'580D',X'0000',X'C507',X'0200',X'2387',X'4B78',X'0002', 91 X'2402',X'2410',X'8888',X'0001',X'580E',X'0010',X'5004',X'0000',X'2644', 92 X'0547',X'2224',X'4308',X'0004' 93 ! 94 ! FAULT MESSAGES 95 ! 1 - NO CODE REFS LEFT 96 ! 2 - TOO MANY LABELS 97 ! 3 - SPURIOUS PERM CALL 98 ! 4 - TOO MANY PATCHES 99 ! 5 - CORRUPT JUMP 100 ! 6 - CORRUPT PERM ROUTINE 101 ! 7 - PHASE ERROR 102 ! 8 - CORRUPT PERM ADDRESS 103 ! 9 - CODE INCOMPLETE 104 ! 10 - GLAP INCOMPLETE 105 ! 106 %CONSTINTEGER PSEUDO OBJ = 2, DIRECT = 3;! INPUT STREAMS 107 %CONSTINTEGER REPORT = 0, OBJECT = 2; ! OUTPUT 108 109 %CONSTINTEGERARRAY NOT(0:12) = 1,0,5,4,3,2,7,6,11,10,9,8,12 110 %CONSTINTEGERARRAY SB(0:12) = 111 X'2230', X'2030', X'2010', X'2020', X'2220', X'2210', 112 X'2230', X'2030', X'2020', X'2010', X'2210', X'2220', X'2200' 113 %CONSTINTEGERARRAY SF(0:12) = 114 X'2330', X'2130', X'2110', X'2120', X'2320', X'2310', 115 X'2330', X'2130', X'2120', X'2110', X'2310', X'2320', X'2300' 116 %CONSTINTEGERARRAY LJ(0:12) = 117 X'433E', X'423E', X'421E', X'422E', X'432E', X'431E', 118 X'433E', X'423E', X'422E', X'421E', X'431E', X'432E', X'430E' 119 %CONSTINTEGER MAX PATCH = 450 120 %CONSTINTEGER MAX JUMPS = 3000 121 %CONSTINTEGER MAX LABELS= 2000 122 %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 $52040, %esp call __x86.get_pc_thunk.bx addl $_GLOBAL_OFFSET_TABLE_, %ebx movl %ecx, %eax movl 4(%eax), %edx movl %edx, -52044(%ebp) movl %gs:20, %esi movl %esi, -28(%ebp) xorl %esi, %esi leal 8(%ebp), %edx movl %edx, -32(%ebp) subl $8, %esp pushl -52044(%ebp) pushl (%eax) call _imp_initialise@PLT addl $16, %esp 123 124 %RECORDFORMAT PFM(%INTEGER WHAT, WHERE) 125 %RECORDFORMAT LFM(%INTEGER LAB, CA) 126 ! LAB = MODE(3)+LABEL(12) 127 ! MODE= LONG+CONDITIONAL+PERM+RT 128 %RECORD(LFM)%ARRAY JUMP(1 : MAXJUMPS+1) leal -51800(%ebp), %edx movl $0, %eax movl $17, %ecx movl %edx, %edi rep stosl leal -30288(%ebp), %eax addl $264, %eax movl %eax, -51800(%ebp) movl $8, -51796(%ebp) 129 %RECORD(PFM)%ARRAY PATCH(1 : MAX PATCH) leal -51732(%ebp), %edx movl $0, %eax movl $17, %ecx movl %edx, %edi rep stosl leal -30288(%ebp), %eax addl $24280, %eax movl %eax, -51732(%ebp) movl $8, -51728(%ebp) 130 %INTEGERARRAY LAB(0 : MAXLABELS) leal -51664(%ebp), %edx movl $0, %eax movl $17, %ecx movl %edx, %edi rep stosl leal -38292(%ebp), %eax movl %eax, -51664(%ebp) movl $4, -51660(%ebp) 131 %INTEGERARRAY LTEMP(0:9) leal -51596(%ebp), %edx movl $0, %eax movl $17, %ecx movl %edx, %edi rep stosl leal -51840(%ebp), %eax movl %eax, -51596(%ebp) movl $4, -51592(%ebp) 132 %INTEGERARRAY PEP, PADDR(1:MAX PERM) leal -51528(%ebp), %edx movl $0, %eax movl $17, %ecx movl %edx, %edi rep stosl leal -30288(%ebp), %eax addl $20, %eax movl %eax, -51528(%ebp) movl $4, -51524(%ebp) leal -51460(%ebp), %edx movl $0, %eax movl $17, %ecx movl %edx, %edi rep stosl leal -51052(%ebp), %eax movl %eax, -51460(%ebp) movl $4, -51456(%ebp) 133 %INTEGER CA, GA, LA, DA 134 %INTEGER LINE SIZE 135 %INTEGER CODE SIZE, GLA SIZE, LOAD SIZE, PERM SIZE, DIAG SIZE 136 %CONSTINTEGER EMARK = X'8888' 137 %CONSTINTEGER NEVER = X'7FFF' 138 %CONSTINTEGER LONG = X'800000' 139 %CONSTINTEGER COND = X'400000' 140 %CONSTINTEGER PERM = X'200000' 141 %CONSTINTEGER RT = X'100000' 142 %CONSTINTEGER VERY = X'080000' 143 %CONSTINTEGER LABEL= X'FFFF' 144 %OWNINTEGER MAX LABEL = 1 145 %OWNINTEGER INIT GLA = 0 146 %INTEGER REF EXTRA, IGNORE, FLAG 147 %INTEGER REFS, CURRENT LINE 148 %INTEGER J,K,L,z 149 %INTEGER CP, GP, CODE, TAG, EXTRA 150 %RECORD(PFM)%NAME PAT 151 %INTEGER CTAG, CCA, UCA, DEFMOD, LAST 152 %INTEGER MODE, CADDR, CVAL, GADDR, GVAL 153 %SWITCH D(1:8), C(2:11) 154 %RECORD(LFM)%NAME UREF, CREF 155 %RECORD(LFM)%NAME R,B 156 %INTEGERNAME V 157 %INTEGER PHASE 158 %INTEGER RX1,RX2,RX3,SJ; RX1=0; RX2=0; RX3=0; SJ=0 movl $0, %eax movl %eax, -30284(%ebp) movl $0, %eax movl %eax, -30280(%ebp) movl $0, %eax movl %eax, -30288(%ebp) movl $0, -51952(%ebp) 159 %INTEGER RTNCALLS, PERMCALLS; RTNCALLS=0; PERMCALLS=0 movl $0, -51980(%ebp) movl $0, -51976(%ebp) 160 ! 161 ! 162 ! 163 %SHORTINTEGER CBP, GBP, LBP, DBP, TBP 164 165 ! N.B. 'GLABUFFSIZE' MUST BE A POWER OF 2 -- SEE LINE 562 ISH 166 %CONSTINTEGER CODEBUFFSIZE=200, GLABUFFSIZE=256, LD BUFF SIZE=200 167 %CONSTINTEGER DIAG BUFF SIZE = 256 168 %SHORTINTEGERARRAY TBUFF,DBUFF(1:DIAG BUFF SIZE) leal -51392(%ebp), %edx movl $0, %eax movl $17, %ecx movl %edx, %edi rep stosl leal -30288(%ebp), %eax addl $27908, %eax movl %eax, -51392(%ebp) movl $2, -51388(%ebp) leal -51324(%ebp), %edx movl $0, %eax movl $17, %ecx movl %edx, %edi rep stosl leal -30288(%ebp), %eax addl $28422, %eax movl %eax, -51324(%ebp) movl $2, -51320(%ebp) 169 %SHORTINTEGERARRAY CBUFF(1:CODE BUFFSIZE), GBUFF(1:GLA BUFFSIZE) leal -51256(%ebp), %edx movl $0, %eax movl $17, %ecx movl %edx, %edi rep stosl leal -30288(%ebp), %eax addl $29852, %eax movl %eax, -51256(%ebp) movl $2, -51252(%ebp) leal -51188(%ebp), %edx movl $0, %eax movl $17, %ecx movl %edx, %edi rep stosl leal -30288(%ebp), %eax addl $29338, %eax movl %eax, -51188(%ebp) movl $2, -51184(%ebp) 170 %SHORTINTEGERARRAY LBUFF(1:LD BUFFSIZE); ! ... LD = 'LOADER DATA' leal -51120(%ebp), %edx movl $0, %eax movl $17, %ecx movl %edx, %edi rep stosl leal -30288(%ebp), %eax addl $28936, %eax movl %eax, -51120(%ebp) movl $2, -51116(%ebp) 171 ! 172 ! -------OBJECT BLOCK TYPE CODES------- 173 %CONSTINTEGER END OF FILE BLOCK = 0 174 %CONSTINTEGER NONDIAG CODE BLOCK = 1 175 %CONSTINTEGER DIAG CODE BLOCK = 2 176 %CONSTINTEGER STATIC DATA BLOCK = 3; ! ...'GLA' IN IMP CONTEXT 177 %CONSTINTEGER DIAGS DATA BLOCK = 4 178 %CONSTINTEGER DIAG TABLE = 5 179 %CONSTINTEGER ENTRY POINT BLOCK = 6 180 %CONSTINTEGER EXTERNAL REF BLOCK = 7 181 %CONSTINTEGER SEGMENT SIZE BLOCK = 15 182 ! 183 %ROUTINE GET(%INTEGERNAME N) pushl %ebp movl %esp, %ebp pushl %ebx subl $36, %esp call __x86.get_pc_thunk.bx addl $_GLOBAL_OFFSET_TABLE_, %ebx movl 8(%ebp), %eax movl %eax, -28(%ebp) movl %ecx, -32(%ebp) movl %gs:20, %eax movl %eax, -12(%ebp) xorl %eax, %eax movl -28(%ebp), %eax movl %eax, -16(%ebp) .LBB138: .LBB139: subl $12, %esp pushl -16(%ebp) call _imp_readsymbol@PLT addl $16, %esp leal -24(%ebp), %eax movl %eax, -20(%ebp) .LBE139: .LBE138: .LBB140: .LBB141: subl $12, %esp pushl -20(%ebp) call _imp_readsymbol@PLT addl $16, %esp .LBE141: .LBE140: 184 %INTEGER S 185 READSYMBOL(N); READSYMBOL(S) 186 N = N<<8!S movl -28(%ebp), %eax movl (%eax), %eax sall $8, %eax movl %eax, %edx movl -24(%ebp), %eax orl %eax, %edx movl -28(%ebp), %eax movl %edx, (%eax) 187 %END nop movl -12(%ebp), %eax xorl %gs:20, %eax je .L11 call __stack_chk_fail_local .L11: movl -4(%ebp), %ebx leave ret .LFE190: .section .rodata .LC21: .string "test-in/gens400.imp" .align 4 .LC22: .string "Illegal cycle L = 1, 1, REFS - 1" .LC23: .string "Illegal cycle K = 1, 1, CP" .LC24: .string "Illegal cycle K = GP, 1, 450" .align 4 .LC25: .string "Illegal cycle K = 1, 1, MAXLABEL" .align 4 .LC26: .string "->D(%d) out of bounds at %s line %d" .align 4 .LC27: .string "->C(%d) out of bounds at %s line %d" .align 32 .LC0: .byte 7 .string "NO PERM" .zero 247 .align 32 .LC1: .byte 19 .string "test-in/gens400.imp" .zero 235 .align 32 .LC2: .byte 4 .string "CODE" .zero 250 .align 32 .LC3: .byte 6 .string " + GLA" .zero 248 .align 32 .LC4: .byte 7 .string " + PERM" .zero 247 .align 32 .LC5: .byte 8 .string " + DIAGS" .zero 246 .align 32 .LC6: .byte 2 .string " =" .zero 252 .align 32 .LC7: .byte 6 .string " BYTES" .zero 248 .align 32 .LC8: .byte 6 .string "JUMPS:" .zero 248 .align 32 .LC9: .byte 7 .string " SHORT," .zero 247 .align 32 .LC10: .byte 5 .string " RX1," .zero 249 .align 32 .LC11: .byte 5 .string " RX2," .zero 249 .align 32 .LC12: .byte 4 .string " RX3" .zero 250 .align 32 .LC13: .byte 12 .string "...INCLUDING" .zero 242 .align 32 .LC14: .byte 14 .string " PERMCALLS AND" .zero 240 .align 32 .LC15: .byte 31 .string " CALLS ON USER-DEFINED ROUTINES" .zero 223 .globl main main: .LFB189: 188 ! 189 %ROUTINE PUT HALF(%SHORTINTEGER N) pushl %ebp movl %esp, %ebp pushl %ebx subl $36, %esp call __x86.get_pc_thunk.bx addl $_GLOBAL_OFFSET_TABLE_, %ebx movl 8(%ebp), %eax movw %ax, -28(%ebp) movl %ecx, -32(%ebp) 190 PRINT SYMBOL((N>>8)&255) movswl -28(%ebp), %eax shrl $8, %eax movsbl %al, %eax movb %al, -9(%ebp) .LBB231: .LBB232: movsbl -9(%ebp), %eax subl $12, %esp pushl %eax call _imp_printsymbol@PLT addl $16, %esp .LBE232: .LBE231: 191 PRINT SYMBOL(N&255) movzwl -28(%ebp), %eax movsbl %al, %eax movb %al, -10(%ebp) .LBB233: .LBB234: movsbl -10(%ebp), %eax subl $12, %esp pushl %eax call _imp_printsymbol@PLT addl $16, %esp .LBE234: .LBE233: 192 %END nop movl -4(%ebp), %ebx leave ret .LFE191: .section .rodata .align 4 .LC28: .string "Illegal cycle I = 1, 1, (unsigned int)HEADER >> 4 & 4095" PUTBLOCK.6156: .LFB192: 193 ! 194 %ROUTINE PUT BLOCK(%SHORTINTEGER HEADER, %SHORTINTEGERARRAYNAME BLOCK) pushl %ebp movl %esp, %ebp pushl %edi pushl %esi pushl %ebx subl $828, %esp call __x86.get_pc_thunk.bx addl $_GLOBAL_OFFSET_TABLE_, %ebx movl 8(%ebp), %eax movw %ax, -812(%ebp) movl 12(%ebp), %eax movl %eax, -816(%ebp) movl %ecx, %esi movl %esi, -828(%ebp) movl %ecx, -820(%ebp) movl %gs:20, %eax movl %eax, -28(%ebp) xorl %eax, %eax 195 %SHORTINTEGER I,J 196 PUT HALF(HEADER) movswl -812(%ebp), %eax subl $12, %esp pushl %eax movl %esi, %ecx call PUTHALF.6152 addl $16, %esp .LBB235: 197 %CYCLE I = 1,1,(HEADER>>4)&X'0FFF'; ! ...EXTRACT LENGTH movswl -812(%ebp), %eax shrl $4, %eax andl $4095, %eax movl %eax, -804(%ebp) .LBB236: movl -804(%ebp), %eax subl $1, %eax movl %eax, -800(%ebp) movl -800(%ebp), %eax xorl $1, %eax shrl $31, %eax movzbl %al, %eax .LBE236: testl %eax, %eax je .L277 leal -540(%ebp), %eax subl $8, %esp leal .LC28@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 .L278 movl _imp_current_line@GOT(%ebx), %eax movl (%eax), %eax movl %eax, -824(%ebp) jmp .L279 .L278: movl $197, -824(%ebp) .L279: movl _imp_current_file@GOT(%ebx), %eax movl (%eax), %eax testl %eax, %eax je .L280 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 .L281 .L280: .LBB237: leal -284(%ebp), %eax leal .LC1@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 .L281: 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 -824(%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 .L277: movw $0, -808(%ebp) .L282: movswl -808(%ebp), %eax cmpl %eax, -804(%ebp) je .L288 movzwl -808(%ebp), %eax addl $1, %eax movw %ax, -808(%ebp) nop .L284: .LBE235: 198 J = BLOCK(I) movswl -808(%ebp), %eax leal (%eax,%eax), %edx movl -816(%ebp), %eax addl %edx, %eax movzwl (%eax), %eax movw %ax, -806(%ebp) 199 HEADER = HEADER+J; ! ...ACCUMULATE CHECKSUM movzwl -812(%ebp), %edx movzwl -806(%ebp), %eax addl %edx, %eax movw %ax, -812(%ebp) 200 PUT HALF(J) movswl -806(%ebp), %eax subl $12, %esp pushl %eax movl -828(%ebp), %ecx call PUTHALF.6152 addl $16, %esp 201 %REPEAT jmp .L282 .L288: 202 PUT HALF(-HEADER-1); ! ...CHECKSUM movzwl -812(%ebp), %eax notl %eax cwtl subl $12, %esp pushl %eax movl -828(%ebp), %ecx call PUTHALF.6152 addl $16, %esp 203 %END nop movl -28(%ebp), %eax xorl %gs:20, %eax je .L286 call __stack_chk_fail_local .L286: leal -12(%ebp), %esp popl %ebx popl %esi popl %edi popl %ebp ret .LFE192: CFLUSH.6180: .LFB194: 204 ! 205 %ROUTINE COPY BLOCK(%SHORTINTEGER HEADER) 206 %SHORTINTEGER I; %INTEGER N 207 PUT HALF(HEADER) 208 %CYCLE I = 1,1,(HEADER>>4)&X'0FFF' 209 GET(N); HEADER = HEADER+N 210 PUT HALF(N) 211 %REPEAT 212 PUT HALF(-HEADER-1) 213 %END 214 %ROUTINE CFLUSH 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) movl %gs:20, %eax movl %eax, -12(%ebp) xorl %eax, %eax 215 ! OUTPUT BUFFER IF THERE IS ANYTHING IN IT -- OTHERWISE JUST 216 ! INITIALISE. BUFFER IS EMPTY IF CBP=1 217 PUT BLOCK( (CBP<<4)!DIAG CODE BLOCK, CBUFF ) %IF CBP # 1 movzwl 30252(%ebx), %eax cmpw $1, %ax je .L294 leal 29852(%ebx), %edx movzwl 30252(%ebx), %eax cwtl sall $4, %eax orl $2, %eax cwtl subl $8, %esp pushl %edx pushl %eax movl %ebx, %ecx call PUTBLOCK.6156 addl $16, %esp jmp .L291 .L294: nop .L291: 218 CBP = 1; CBUFF(1) = CURRENT LINE movl $1, %eax movw %ax, 30252(%ebx) movl 27904(%ebx), %eax movw %ax, 29852(%ebx) 219 %END nop movl -12(%ebp), %eax xorl %gs:20, %eax je .L293 call __stack_chk_fail_local .L293: movl -4(%ebp), %ebx leave ret .LFE194: GFLUSH.6184: .LFB195: 220 ! 221 %ROUTINE GFLUSH 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) movl %gs:20, %eax movl %eax, -12(%ebp) xorl %eax, %eax 222 PUT BLOCK( (GBP<<4)!STATIC DATA BLOCK, GBUFF) %UNLESS GBP = 0 movzwl 29850(%ebx), %eax testw %ax, %ax je .L300 leal 29338(%ebx), %edx movzwl 29850(%ebx), %eax cwtl sall $4, %eax orl $3, %eax cwtl subl $8, %esp pushl %edx pushl %eax movl %ebx, %ecx call PUTBLOCK.6156 addl $16, %esp jmp .L297 .L300: nop .L297: 223 GBP = 0 movl $0, %eax movw %ax, 29850(%ebx) 224 %END nop movl -12(%ebp), %eax xorl %gs:20, %eax je .L299 call __stack_chk_fail_local .L299: movl -4(%ebp), %ebx leave ret .LFE195: LFLUSH.6188: .LFB196: 225 ! 226 %ROUTINE LFLUSH 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) movl %gs:20, %eax movl %eax, -12(%ebp) xorl %eax, %eax 227 PUT BLOCK( (LBP<<4)!EXTERNAL REF BLOCK, LBUFF) %IF LBP # 0 movzwl 29336(%ebx), %eax testw %ax, %ax je .L306 leal 28936(%ebx), %edx movzwl 29336(%ebx), %eax cwtl sall $4, %eax orl $7, %eax cwtl subl $8, %esp pushl %edx pushl %eax movl %ebx, %ecx call PUTBLOCK.6156 addl $16, %esp jmp .L303 .L306: nop .L303: 228 LBP = 0 movl $0, %eax movw %ax, 29336(%ebx) 229 %END nop movl -12(%ebp), %eax xorl %gs:20, %eax je .L305 call __stack_chk_fail_local .L305: movl -4(%ebp), %ebx leave ret .LFE196: DFLUSH.6192: .LFB197: 230 ! 231 %ROUTINE DFLUSH 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) movl %gs:20, %eax movl %eax, -12(%ebp) xorl %eax, %eax 232 %RETURN %IF DBP = 0 movzwl 28934(%ebx), %eax testw %ax, %ax je .L312 nop .L309: nop .L307: 233 PUT BLOCK(DBP<<4+DIAGS DATA BLOCK, DBUFF) leal 28422(%ebx), %edx movzwl 28934(%ebx), %eax sall $4, %eax addl $4, %eax cwtl subl $8, %esp pushl %edx pushl %eax movl %ebx, %ecx call PUTBLOCK.6156 addl $16, %esp 234 DBP = 0 movl $0, %eax movw %ax, 28934(%ebx) 235 %END nop jmp .L307 .L312: movl -12(%ebp), %eax xorl %gs:20, %eax je .L311 call __stack_chk_fail_local .L311: movl -4(%ebp), %ebx leave ret .LFE197: TFLUSH.6196: .LFB198: 236 %ROUTINE T FLUSH 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) movl %gs:20, %eax movl %eax, -12(%ebp) xorl %eax, %eax 237 PUT BLOCK((TBP<<4)!DIAG TABLE, T BUFF) %UNLESS TBP = 0 movzwl 28420(%ebx), %eax testw %ax, %ax je .L318 leal 27908(%ebx), %edx movzwl 28420(%ebx), %eax cwtl sall $4, %eax orl $5, %eax cwtl subl $8, %esp pushl %edx pushl %eax movl %ebx, %ecx call PUTBLOCK.6156 addl $16, %esp jmp .L315 .L318: nop .L315: 238 TBP = 0 movl $0, %eax movw %ax, 28420(%ebx) 239 %END nop movl -12(%ebp), %eax xorl %gs:20, %eax je .L317 call __stack_chk_fail_local .L317: movl -4(%ebp), %ebx leave ret .LFE198: CPUT.6200: .LFB199: 240 %ROUTINE CPUT(%SHORTINTEGER N) pushl %ebp movl %esp, %ebp subl $40, %esp call __x86.get_pc_thunk.ax addl $_GLOBAL_OFFSET_TABLE_, %eax movl 8(%ebp), %eax movw %ax, -28(%ebp) movl %ecx, %eax movl %ecx, -32(%ebp) movl %gs:20, %ecx movl %ecx, -12(%ebp) xorl %ecx, %ecx 241 CBP = CBP+1; CBUFF(CBP) = N movzwl 30252(%eax), %edx addl $1, %edx movw %dx, 30252(%eax) movzwl 30252(%eax), %edx movswl %dx, %edx subl $1, %edx leal 14920(%edx), %ecx movzwl -28(%ebp), %edx movw %dx, 12(%eax,%ecx,2) 242 CA = CA+2 movl 27900(%eax), %edx addl $2, %edx movl %edx, 27900(%eax) 243 %END nop movl -12(%ebp), %eax xorl %gs:20, %eax je .L321 call __stack_chk_fail_local .L321: leave ret .LFE199: GPUT.6203: .LFB200: 244 ! 245 %ROUTINE GPUT(%SHORTINTEGER N) 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 movw %ax, -28(%ebp) movl %ecx, %ebx movl %ecx, -32(%ebp) movl %gs:20, %eax movl %eax, -12(%ebp) xorl %eax, %eax 246 GFLUSH %IF GBP = GLA BUFF SIZE movzwl 29850(%ebx), %eax cmpw $256, %ax jne .L327 movl %ebx, %ecx call GFLUSH.6184 jmp .L324 .L327: nop .L324: 247 GBP = GBP+1; GBUFF(GBP) = N movzwl 29850(%ebx), %eax addl $1, %eax movw %ax, 29850(%ebx) movzwl 29850(%ebx), %eax cwtl subl $1, %eax leal 14664(%eax), %edx movzwl -28(%ebp), %eax movw %ax, 10(%ebx,%edx,2) 248 GA = GA+2 movl 27896(%ebx), %eax addl $2, %eax movl %eax, 27896(%ebx) 249 %END nop movl -12(%ebp), %eax xorl %gs:20, %eax je .L326 call __stack_chk_fail_local .L326: addl $36, %esp popl %ebx popl %ebp ret .LFE200: LPUT.6207: .LFB201: 250 ! 251 %ROUTINE LPUT(%SHORTINTEGER N) 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 movw %ax, -28(%ebp) movl %ecx, %ebx movl %ecx, -32(%ebp) movl %gs:20, %eax movl %eax, -12(%ebp) xorl %eax, %eax 252 LFLUSH %IF LBP = LD BUFFSIZE movzwl 29336(%ebx), %eax cmpw $200, %ax jne .L333 movl %ebx, %ecx call LFLUSH.6188 jmp .L330 .L333: nop .L330: 253 LBP = LBP+1; LBUFF(LBP) = N movzwl 29336(%ebx), %eax addl $1, %eax movw %ax, 29336(%ebx) movzwl 29336(%ebx), %eax cwtl subl $1, %eax leal 14464(%eax), %edx movzwl -28(%ebp), %eax movw %ax, 8(%ebx,%edx,2) 254 LA = LA+2 movl 27892(%ebx), %eax addl $2, %eax movl %eax, 27892(%ebx) 255 %END nop movl -12(%ebp), %eax xorl %gs:20, %eax je .L332 call __stack_chk_fail_local .L332: addl $36, %esp popl %ebx popl %ebp ret .LFE201: LSYM.6211: .LFB202: 256 ! 257 %ROUTINE LSYM(%SHORTINTEGER N) 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 movw %dx, -12(%ebp) movl %ecx, %ebx movl %ecx, -16(%ebp) 258 %OWNINTEGER FLAG,V 259 FLAG = \FLAG movl FLAG.6213@GOTOFF(%eax), %edx notl %edx movl %edx, FLAG.6213@GOTOFF(%eax) 260 %IF FLAG = 0 %START movl FLAG.6213@GOTOFF(%eax), %edx testl %edx, %edx jne .L340 nop .L336: 261 LPUT(N<<8+V) movzwl -12(%ebp), %edx sall $8, %edx movl V.6214@GOTOFF(%eax), %eax addl %edx, %eax cwtl subl $12, %esp pushl %eax movl %ebx, %ecx call LPUT.6207 addl $16, %esp 262 %ELSE jmp .L337 .L340: 263 V = N movswl -12(%ebp), %edx movl %edx, V.6214@GOTOFF(%eax) .L337: 264 %FINISH 265 %END nop movl -4(%ebp), %ebx leave ret .LFE202: DPUT.6218: .LFB203: 266 ! 267 %ROUTINE DPUT(%SHORTINTEGER N) 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 movw %ax, -28(%ebp) movl %ecx, %ebx movl %ecx, -32(%ebp) movl %gs:20, %eax movl %eax, -12(%ebp) xorl %eax, %eax 268 DBP = DBP+1; DBUFF(DBP) = N movzwl 28934(%ebx), %eax addl $1, %eax movw %ax, 28934(%ebx) movzwl 28934(%ebx), %eax cwtl subl $1, %eax leal 14208(%eax), %edx movzwl -28(%ebp), %eax movw %ax, 6(%ebx,%edx,2) 269 DFLUSH %IF DBP = DIAG BUFF SIZE movzwl 28934(%ebx), %eax cmpw $256, %ax jne .L346 movl %ebx, %ecx call DFLUSH.6192 jmp .L343 .L346: nop .L343: 270 DA = DA+2 movl 27888(%ebx), %eax addl $2, %eax movl %eax, 27888(%ebx) 271 %END nop movl -12(%ebp), %eax xorl %gs:20, %eax je .L345 call __stack_chk_fail_local .L345: addl $36, %esp popl %ebx popl %ebp ret .LFE203: DIAGLINE.6222: .LFB204: 272 %ROUTINE DIAG LINE 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) movl %gs:20, %edx movl %edx, -12(%ebp) xorl %edx, %edx 273 %OWNINTEGER HERE = 0 274 %RETURN %IF HERE = CURRENT LINE movl HERE.6224@GOTOFF(%eax), %edx movl 27904(%ebx), %ecx cmpl %edx, %ecx je .L352 nop .L349: nop .L347: 275 HERE = CURRENT LINE movl 27904(%ebx), %edx movl %edx, HERE.6224@GOTOFF(%eax) 276 DPUT(CURRENT LINE); DPUT(CA) movl 27904(%ebx), %eax cwtl subl $12, %esp pushl %eax movl %ebx, %ecx call DPUT.6218 addl $16, %esp movl 27900(%ebx), %eax cwtl subl $12, %esp pushl %eax movl %ebx, %ecx call DPUT.6218 addl $16, %esp 277 %END nop jmp .L347 .L352: movl -12(%ebp), %eax xorl %gs:20, %eax je .L351 call __stack_chk_fail_local .L351: movl -4(%ebp), %ebx leave ret .LFE204: TPUT.6227: .LFB205: 278 %ROUTINE T PUT(%SHORTINTEGER V) pushl %ebp movl %esp, %ebp subl $40, %esp call __x86.get_pc_thunk.ax addl $_GLOBAL_OFFSET_TABLE_, %eax movl 8(%ebp), %eax movw %ax, -28(%ebp) movl %ecx, %eax movl %ecx, -32(%ebp) movl %gs:20, %ecx movl %ecx, -12(%ebp) xorl %ecx, %ecx 279 TBP = TBP+1; TBUFF(TBP) = V movzwl 28420(%eax), %edx addl $1, %edx movw %dx, 28420(%eax) movzwl 28420(%eax), %edx movswl %dx, %edx subl $1, %edx leal 13952(%edx), %ecx movzwl -28(%ebp), %edx movw %dx, 4(%eax,%ecx,2) 280 T FLUSH %IF TBP = DIAG BUFF SIZE movzwl 28420(%eax), %edx cmpw $256, %dx jne .L358 movl %eax, %ecx call TFLUSH.6196 nop .L355: 281 %END jmp .L355 .L358: nop movl -12(%ebp), %eax xorl %gs:20, %eax je .L357 call __stack_chk_fail_local .L357: leave ret .LFE205: CLOSEOBJECTFILE.6231: .LFB206: 282 %ROUTINE CLOSE OBJECT FILE 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) movl %gs:20, %eax movl %eax, -12(%ebp) xorl %eax, %eax 283 CFLUSH; GFLUSH; LFLUSH movl %ebx, %ecx call CFLUSH.6180 movl %ebx, %ecx call GFLUSH.6184 movl %ebx, %ecx call LFLUSH.6188 284 DPUT(0); DPUT(0); D FLUSH ; ! ... MARK END OF TABLE THEN FLUSH subl $12, %esp pushl $0 movl %ebx, %ecx call DPUT.6218 addl $16, %esp subl $12, %esp pushl $0 movl %ebx, %ecx call DPUT.6218 addl $16, %esp movl %ebx, %ecx call DFLUSH.6192 285 TPUT(X'8800'); TPUT(CA+2) subl $12, %esp pushl $-30720 movl %ebx, %ecx call TPUT.6227 addl $16, %esp movl 27900(%ebx), %eax addl $2, %eax cwtl subl $12, %esp pushl %eax movl %ebx, %ecx call TPUT.6227 addl $16, %esp 286 TPUT(0); TPUT(0) subl $12, %esp pushl $0 movl %ebx, %ecx call TPUT.6227 addl $16, %esp subl $12, %esp pushl $0 movl %ebx, %ecx call TPUT.6227 addl $16, %esp 287 TPUT(0); TPUT(0) subl $12, %esp pushl $0 movl %ebx, %ecx call TPUT.6227 addl $16, %esp subl $12, %esp pushl $0 movl %ebx, %ecx call TPUT.6227 addl $16, %esp 288 TPUT(0); TPUT(0); T FLUSH; ! .... DITTO .... subl $12, %esp pushl $0 movl %ebx, %ecx call TPUT.6227 addl $16, %esp subl $12, %esp pushl $0 movl %ebx, %ecx call TPUT.6227 addl $16, %esp movl %ebx, %ecx call TFLUSH.6196 289 PUT HALF( (0<<4)!END OF FILE BLOCK ); ! ...ZERO DATA CONTENT subl $12, %esp pushl $0 movl %ebx, %ecx call PUTHALF.6152 addl $16, %esp 290 PUT HALF(-END OF FILE BLOCK-1); ! ...CHECK SUM subl $12, %esp pushl $-1 movl %ebx, %ecx call PUTHALF.6152 addl $16, %esp 291 %END nop movl -12(%ebp), %eax xorl %gs:20, %eax je .L361 call __stack_chk_fail_local .L361: movl -4(%ebp), %ebx leave ret .LFE206: .section .rodata .LC29: .string "" .align 32 .LC17: .byte 5 .string "FAULT" .zero 249 .align 32 .LC18: .byte 8 .string " PHASE" .zero 246 .align 32 .LC19: .byte 5 .string " REFS" .zero 249 .align 32 .LC20: .byte 9 .string "MAX LABEL" .zero 245 MONITOR.6234: .LFB207: 292 ! 293 ! 294 ! 295 ! 296 ! 297 %ROUTINE MONITOR(%INTEGER N) pushl %ebp movl %esp, %ebp pushl %edi pushl %esi pushl %ebx subl $2860, %esp call __x86.get_pc_thunk.bx addl $_GLOBAL_OFFSET_TABLE_, %ebx movl %ecx, -2864(%ebp) movl %ecx, -2860(%ebp) movl %gs:20, %eax movl %eax, -28(%ebp) xorl %eax, %eax 298 SELECTOUTPUT(REPORT) subl $12, %esp pushl $0 call _imp_SELECTOUTPUT addl $16, %esp .LBB238: 299 PRINTSTRING("FAULT"); WRITE(N, 1) leal -284(%ebp), %eax leal .LC17@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -2844(%ebp), %eax leal -284(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -1052(%ebp), %eax leal -2844(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE238: .LBB239: .LBB240: subl $256, %esp movl %esp, %eax movl %eax, %edi leal -1052(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl call _imp_printstring@PLT addl $256, %esp .LBE240: .LBE239: subl $8, %esp pushl $1 pushl 8(%ebp) call _imp_writeint@PLT addl $16, %esp .LBB241: 300 PRINTSTRING(" PHASE"); WRITE(PHASE, 1); NEWLINE leal -284(%ebp), %eax leal .LC18@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -2588(%ebp), %eax leal -284(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -796(%ebp), %eax leal -2588(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE241: .LBB242: .LBB243: subl $256, %esp movl %esp, %eax movl %eax, %edi leal -796(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl call _imp_printstring@PLT addl $256, %esp .LBE243: .LBE242: movl -2864(%ebp), %esi movl 27884(%esi), %eax subl $8, %esp pushl $1 pushl %eax call _imp_writeint@PLT addl $16, %esp .LBB244: .LBB245: call _imp_newline@PLT .LBE245: .LBE244: 301 WRITE(REFS, 1); PRINTSTRING(" REFS"); NEWLINE movl 27880(%esi), %eax subl $8, %esp pushl $1 pushl %eax call _imp_writeint@PLT addl $16, %esp .LBB246: leal -284(%ebp), %eax leal .LC19@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -2332(%ebp), %eax leal -284(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -284(%ebp), %eax leal -2332(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE246: .LBB247: .LBB248: 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 _imp_printstring@PLT addl $256, %esp .LBE248: .LBE247: .LBB249: .LBB250: call _imp_newline@PLT .LBE250: .LBE249: .LBB251: 302 PRINTSTRING("MAX LABEL"); WRITE(MAX LABEL, 1); NEWLINE leal -540(%ebp), %eax leal .LC20@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -2076(%ebp), %eax leal -540(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -540(%ebp), %eax leal -2076(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE251: .LBB252: .LBB253: subl $256, %esp movl %esp, %eax movl %eax, %edi leal -540(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl call _imp_printstring@PLT addl $256, %esp .LBE253: .LBE252: movl MAXLABEL.6067@GOTOFF(%ebx), %eax subl $8, %esp pushl $1 pushl %eax call _imp_writeint@PLT addl $16, %esp .LBB254: .LBB255: call _imp_newline@PLT .LBE255: .LBE254: 303 %SIGNAL 15,15 leal -1564(%ebp), %eax subl $8, %esp leal .LC29@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 .L363 movl _imp_current_line@GOT(%ebx), %eax movl (%eax), %eax movl %eax, -2864(%ebp) jmp .L364 .L363: movl $303, -2864(%ebp) .L364: movl _imp_current_file@GOT(%ebx), %eax movl (%eax), %eax testl %eax, %eax je .L365 movl _imp_current_file@GOT(%ebx), %eax movl (%eax), %edx leal -1308(%ebp), %eax subl $8, %esp pushl %edx pushl %eax call _imp_c2istr@PLT addl $12, %esp jmp .L366 .L365: .LBB256: leal -1308(%ebp), %eax leal .LC1@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -1820(%ebp), %eax leal -1308(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE256: leal -1308(%ebp), %eax leal -1820(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .L366: pushl $0 pushl $15 pushl $15 subl $256, %esp movl %esp, %eax movl %eax, %edi leal -1564(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl pushl -2864(%ebp) subl $256, %esp movl %esp, %eax movl %eax, %edi leal -1308(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl call _signal_event@PLT addl $528, %esp 304 %END nop movl -28(%ebp), %eax xorl %gs:20, %eax je .L368 call __stack_chk_fail_local .L368: leal -12(%ebp), %esp popl %ebx popl %esi popl %edi popl %ebp ret .LFE207: .section .rodata .align 4 .LC30: .string "Illegal cycle J = FROM + 1, 1, TO" SORT.6248: .LFB208: 305 ! 306 %ROUTINE SORT(%INTEGER FROM, TO) pushl %ebp movl %esp, %ebp pushl %edi pushl %esi pushl %ebx subl $1100, %esp call __x86.get_pc_thunk.bx addl $_GLOBAL_OFFSET_TABLE_, %ebx movl %ecx, -1108(%ebp) movl %ecx, -1100(%ebp) movl %gs:20, %eax movl %eax, -28(%ebp) xorl %eax, %eax .L370: 307 %INTEGER FLAG, J, T 308 %RECORD(PFM)%NAME A, B 309 %WHILE TO > FROM %CYCLE movl 12(%ebp), %eax cmpl 8(%ebp), %eax jle .L392 nop jmp .L372 .L396: 310 FLAG = 0 movl $0, -1084(%ebp) 311 A == PATCH(FROM) movl 8(%ebp), %eax subl $1, %eax addl $3034, %eax sall $3, %eax addl -1108(%ebp), %eax addl $8, %eax movl %eax, -1076(%ebp) .LBB257: 312 %CYCLE J = FROM+1, 1, TO movl 8(%ebp), %eax addl $1, %eax movl %eax, -1072(%ebp) movl 12(%ebp), %eax movl %eax, -1068(%ebp) .LBB258: movl -1068(%ebp), %eax subl -1072(%ebp), %eax movl %eax, -1064(%ebp) movl -1064(%ebp), %eax xorl $1, %eax shrl $31, %eax movzbl %al, %eax .LBE258: testl %eax, %eax je .L373 leal -540(%ebp), %eax subl $8, %esp leal .LC30@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 .L374 movl _imp_current_line@GOT(%ebx), %eax movl (%eax), %eax movl %eax, -1104(%ebp) jmp .L375 .L374: movl $312, -1104(%ebp) .L375: movl _imp_current_file@GOT(%ebx), %eax movl (%eax), %eax testl %eax, %eax je .L376 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 .L377 .L376: .LBB259: leal -1052(%ebp), %eax leal .LC1@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -796(%ebp), %eax leal -1052(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE259: leal -284(%ebp), %eax leal -796(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .L377: 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 .L373: movl -1072(%ebp), %eax subl $1, %eax movl %eax, -1080(%ebp) .L378: movl -1080(%ebp), %eax cmpl -1068(%ebp), %eax je .L393 addl $1, -1080(%ebp) nop .L380: .LBE257: 313 B == PATCH(J) movl -1080(%ebp), %eax subl $1, %eax addl $3034, %eax sall $3, %eax addl -1108(%ebp), %eax addl $8, %eax movl %eax, -1060(%ebp) 314 %IF A_WHERE > B_WHERE %START movl -1076(%ebp), %eax movl 4(%eax), %edx movl -1060(%ebp), %eax movl 4(%eax), %eax cmpl %eax, %edx jle .L394 nop .L382: 315 T = A_WHERE; A_WHERE = B_WHERE; B_WHERE = T movl -1076(%ebp), %eax movl 4(%eax), %eax movl %eax, -1056(%ebp) movl -1060(%ebp), %eax movl 4(%eax), %edx movl -1076(%ebp), %eax movl %edx, 4(%eax) movl -1060(%ebp), %eax movl -1056(%ebp), %edx movl %edx, 4(%eax) 316 T = B_WHAT; B_WHAT = A_WHAT; A_WHAT = T movl -1060(%ebp), %eax movl (%eax), %eax movl %eax, -1056(%ebp) movl -1076(%ebp), %eax movl (%eax), %edx movl -1060(%ebp), %eax movl %edx, (%eax) movl -1076(%ebp), %eax movl -1056(%ebp), %edx movl %edx, (%eax) 317 FLAG = 1 movl $1, -1084(%ebp) 318 %ELSE %IF A_WHERE = B_WHERE jmp .L385 .L394: movl -1076(%ebp), %eax movl 4(%eax), %edx movl -1060(%ebp), %eax movl 4(%eax), %eax cmpl %eax, %edx jne .L395 nop .L385: 319 FLAG = 1 movl $1, -1084(%ebp) 320 A_WHERE = -10 movl -1076(%ebp), %eax movl $-10, 4(%eax) jmp .L385 .L383: .L395: 321 %FINISH 322 A == B movl -1060(%ebp), %eax movl %eax, -1076(%ebp) 323 %REPEAT jmp .L378 .L393: 324 %EXIT %IF FLAG = 0 cmpl $0, -1084(%ebp) je .L396 nop .L387: nop .L372: 325 TO = TO-1 subl $1, 12(%ebp) 326 %REPEAT jmp .L370 .L392: 327 %END nop movl -28(%ebp), %eax xorl %gs:20, %eax je .L389 call __stack_chk_fail_local .L389: leal -12(%ebp), %esp popl %ebx popl %esi popl %edi popl %ebp ret .LFE208: NEXTCODE.6270: .LFB209: 328 %ROUTINE NEXT CODE pushl %ebp movl %esp, %ebp pushl %ebx subl $52, %esp call __x86.get_pc_thunk.dx addl $_GLOBAL_OFFSET_TABLE_, %edx movl %ecx, %eax movl %ecx, -44(%ebp) movl %gs:20, %ebx movl %ebx, -12(%ebp) xorl %ebx, %ebx 329 %OWNINTEGER P = 1, J = 1 330 %INTEGER C, BV 331 %RECORD(PFM)%NAME PP 332 C = NEVER; BV = NEVER; MODE = NEVER movl $32767, -28(%ebp) movl $32767, -24(%ebp) movl $32767, %ecx movl %ecx, 24276(%eax) 333 %IF P <= CP %START;! CODE PATCHES LEFT movl P.6272@GOTOFF(%edx), %ecx movl 24272(%eax), %ebx cmpl %ecx, %ebx jl .L416 nop .L399: 334 %CYCLE nop .L398: 335 PP == PATCH(P) movl P.6272@GOTOFF(%edx), %ecx subl $1, %ecx addl $3034, %ecx sall $3, %ecx addl %eax, %ecx addl $8, %ecx movl %ecx, -20(%ebp) 336 %EXIT %IF PP_WHERE # -10 movl -20(%ebp), %ecx movl 4(%ecx), %ecx cmpl $-10, %ecx jne .L417 nop .L401: nop .L402: 337 P = P+1 movl P.6272@GOTOFF(%edx), %ecx addl $1, %ecx movl %ecx, P.6272@GOTOFF(%edx) 338 %REPEAT jmp .L398 .L417: 339 C = PP_WHERE>>1 movl -20(%ebp), %ecx movl 4(%ecx), %ecx shrl %ecx movl %ecx, -28(%ebp) jmp .L399 .L416: 340 %FINISH 341 %IF J < REFS %START;! JUMPS LEFT movl J.6273@GOTOFF(%edx), %ecx movl 27880(%eax), %ebx cmpl %ecx, %ebx jle .L418 nop .L404: 342 B == JUMP(J) movl J.6273@GOTOFF(%edx), %ecx subl $1, %ecx addl $32, %ecx sall $3, %ecx addl %eax, %ecx addl $8, %ecx movl %ecx, 260(%eax) 343 BV = B_CA>>1 movl 260(%eax), %ecx movl 4(%ecx), %ecx shrl %ecx movl %ecx, -24(%ebp) jmp .L404 .L418: 344 %FINISH 345 CADDR = NEVER movl $32767, %ecx movl %ecx, 256(%eax) .LBB260: 346 %RETURN %IF BV = NEVER = C movl $32767, -16(%ebp) movl -16(%ebp), %ecx cmpl -24(%ebp), %ecx jne .L419 movl -16(%ebp), %ecx cmpl -28(%ebp), %ecx je .L420 jmp .L406 .L419: nop .L406: .LBE260: nop .L397: 347 %IF BV > C %START movl -24(%ebp), %ecx cmpl -28(%ebp), %ecx jle .L421 nop .L410: 348 P = P+1 movl P.6272@GOTOFF(%edx), %ecx addl $1, %ecx movl %ecx, P.6272@GOTOFF(%edx) 349 CADDR = PP_WHERE; CVAL = PP_WHAT movl -20(%ebp), %edx movl 4(%edx), %edx movl %edx, 256(%eax) movl -20(%ebp), %edx movl (%edx), %edx movl %edx, 252(%eax) 350 %RETURN jmp .L397 .L421: 351 %FINISH 352 %IF C > BV %START movl -28(%ebp), %ecx cmpl -24(%ebp), %ecx jle .L422 nop .L412: 353 J = J+1 movl J.6273@GOTOFF(%edx), %ecx addl $1, %ecx movl %ecx, J.6273@GOTOFF(%edx) 354 MODE = 0; CADDR = B_CA movl $0, %edx movl %edx, 24276(%eax) movl 260(%eax), %edx movl 4(%edx), %edx movl %edx, 256(%eax) 355 %RETURN jmp .L397 .L422: 356 %FINISH 357 MONITOR(1) subl $12, %esp pushl $1 movl %eax, %ecx call MONITOR.6234 addl $16, %esp 358 %END nop jmp .L397 .L420: movl -12(%ebp), %eax xorl %gs:20, %eax je .L413 call __stack_chk_fail_local .L413: movl -4(%ebp), %ebx leave ret .LFE209: NEXTGLA.6287: .LFB210: 359 %ROUTINE NEXT GLA 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, %ecx movl %ecx, -12(%ebp) xorl %ecx, %ecx 360 GADDR = NEVER %AND %RETURN %IF GP > MAX PATCH movl 248(%eax), %edx cmpl $450, %edx jg .L424 jmp .L425 .L424: movl $32767, %edx movl %edx, 244(%eax) jmp .L423 .L425: .L427: 361 PAT == PATCH(GP) %AND GP = GP+1 %UNTIL PAT_WHERE >= 0 movl 248(%eax), %edx subl $1, %edx addl $3034, %edx sall $3, %edx addl %eax, %edx addl $8, %edx movl %edx, 240(%eax) movl 248(%eax), %edx addl $1, %edx movl %edx, 248(%eax) movl 240(%eax), %edx movl 4(%edx), %edx testl %edx, %edx jns .L432 jmp .L425 .L432: nop .L429: 362 GADDR = PAT_WHERE; GVAL = PAT_WHAT movl 240(%eax), %edx movl 4(%edx), %edx movl %edx, 244(%eax) movl 240(%eax), %edx movl (%edx), %edx movl %edx, 236(%eax) 363 %END nop .L423: movl -12(%ebp), %eax xorl %gs:20, %eax je .L430 call __stack_chk_fail_local .L430: leave ret .LFE210: .section .rodata .align 4 .LC31: .string "Illegal cycle J = 1, 1, PERMS[K - 1]" .align 32 .LC16: .byte 17 .string "NO ENTRY FOR PERM" .zero 237 SETPERM.6293: .LFB211: 364 %ROUTINE SET PERM(%INTEGER N) pushl %ebp movl %esp, %ebp pushl %edi pushl %esi pushl %ebx subl $1340, %esp call __x86.get_pc_thunk.bx addl $_GLOBAL_OFFSET_TABLE_, %ebx movl %ecx, %esi movl %esi, -1344(%ebp) movl %ecx, -1340(%ebp) movl %gs:20, %eax movl %eax, -28(%ebp) xorl %eax, %eax 365 %INTEGER J,K 366 %RETURN %UNLESS PEP(N) = 1 movl 8(%ebp), %eax subl $1, %eax addl $4, %eax movl 4(%esi,%eax,4), %eax cmpl $1, %eax jne .L454 nop .L435: nop .L433: 367 PEP(N) = 2 movl 8(%ebp), %eax subl $1, %eax addl $4, %eax movl -1344(%ebp), %ecx movl $2, 4(%ecx,%eax,4) 368 K = PERMS(N) movl 8(%ebp), %eax subl $1, %eax movl PERMS@GOTOFF(%ebx,%eax,4), %eax movl %eax, -1320(%ebp) 369 %IF K = 0 %START cmpl $0, -1320(%ebp) jne .L455 nop .L438: .LBB266: 370 SELECTOUTPUT(REPORT) subl $12, %esp pushl $0 call _imp_SELECTOUTPUT addl $16, %esp .LBB261: 371 PRINTSTRING("NO ENTRY FOR PERM"); WRITE(N, 1); NEWLINE leal -284(%ebp), %eax leal .LC16@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -1308(%ebp), %eax leal -284(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -284(%ebp), %eax leal -1308(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE261: .LBB262: .LBB263: 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 _imp_printstring@PLT addl $256, %esp .LBE263: .LBE262: subl $8, %esp pushl $1 pushl 8(%ebp) call _imp_writeint@PLT addl $16, %esp .LBB264: .LBB265: call _imp_newline@PLT .LBE265: .LBE264: 372 PEP(N) = 0 movl 8(%ebp), %eax subl $1, %eax addl $4, %eax movl -1344(%ebp), %edx movl $0, 4(%edx,%eax,4) 373 SELECTOUTPUT(OBJECT) subl $12, %esp pushl $2 call _imp_SELECTOUTPUT addl $16, %esp 374 %RETURN jmp .L433 .L455: 375 %FINISH 376 %CYCLE J = 1, 1, PERMS(K) movl -1320(%ebp), %eax subl $1, %eax movl PERMS@GOTOFF(%ebx,%eax,4), %eax movl %eax, -1316(%ebp) .LBB267: movl -1316(%ebp), %eax subl $1, %eax movl %eax, -1312(%ebp) movl -1312(%ebp), %eax xorl $1, %eax shrl $31, %eax movzbl %al, %eax .LBE267: testl %eax, %eax je .L439 leal -796(%ebp), %eax subl $8, %esp leal .LC31@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 .L440 movl _imp_current_line@GOT(%ebx), %eax movl (%eax), %eax movl %eax, -1348(%ebp) jmp .L441 .L440: movl $376, -1348(%ebp) .L441: movl _imp_current_file@GOT(%ebx), %eax movl (%eax), %eax testl %eax, %eax je .L442 movl _imp_current_file@GOT(%ebx), %eax movl (%eax), %edx leal -540(%ebp), %eax subl $8, %esp pushl %edx pushl %eax call _imp_c2istr@PLT addl $12, %esp jmp .L443 .L442: .LBB268: leal -284(%ebp), %eax leal .LC1@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -1052(%ebp), %eax leal -284(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE268: leal -540(%ebp), %eax leal -1052(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .L443: pushl $0 pushl $1 pushl $5 subl $256, %esp movl %esp, %eax movl %eax, %edi leal -796(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl pushl -1348(%ebp) subl $256, %esp movl %esp, %eax movl %eax, %edi leal -540(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl call _signal_event@PLT addl $528, %esp .L439: movl $0, -1324(%ebp) .L444: movl -1324(%ebp), %eax cmpl -1316(%ebp), %eax je .L456 addl $1, -1324(%ebp) nop .L446: .LBE266: 377 K = K+1 addl $1, -1320(%ebp) 378 %IF PERMS(K) = EMARK %START movl -1320(%ebp), %eax subl $1, %eax movl PERMS@GOTOFF(%ebx,%eax,4), %eax cmpl $34952, %eax jne .L457 nop jmp .L444 .L458: 379 N = PERMS(K+1) movl -1320(%ebp), %eax movl PERMS@GOTOFF(%ebx,%eax,4), %eax movl %eax, 8(%ebp) 380 %IF PEP(N) # 2 %START movl 8(%ebp), %eax subl $1, %eax addl $4, %eax movl -1344(%ebp), %ecx movl 4(%ecx,%eax,4), %eax cmpl $2, %eax je .L458 nop .L450: 381 PEP(N) = 1; SET PERM(N) movl 8(%ebp), %eax subl $1, %eax addl $4, %eax movl -1344(%ebp), %edi movl $1, 4(%edi,%eax,4) subl $12, %esp pushl 8(%ebp) movl %edi, %ecx call SETPERM.6293 addl $16, %esp jmp .L444 .L448: .L457: 382 %FINISH 383 %FINISH 384 %REPEAT jmp .L444 .L456: 385 %END nop jmp .L433 .L454: movl -28(%ebp), %eax xorl %gs:20, %eax je .L451 call __stack_chk_fail_local .L451: leal -12(%ebp), %esp popl %ebx popl %esi popl %edi popl %ebp ret .LFE211: .comm INITGLA.6068,4,4 .data .align 4 MAXLABEL.6067: .long 1 .section .data.rel.local .align 32 D.6097: .long .L21 .long .L33 .long .L35 .long .L36 .long .L37 .long .L50 .long .L52 .long .L55 .align 32 C.6109: .long .L131 .long .L164 .long .L148 .long .L167 .long .L151 .long .L150 .long .L163 .long .L149 .long .L147 .long .L143 .section .rodata .align 4 __PRETTY_FUNCTION__.5621: .string "_imp_SELECTINPUT" .data .align 4 P.6272: .long 1 .align 4 J.6273: .long 1 .comm HERE.6224,4,4 .comm FLAG.6213,4,4 .comm V.6214,4,4 .section .rodata .align 4 __PRETTY_FUNCTION__.5625: .string "_imp_SELECTOUTPUT" .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: .LFB213: movl (%esp), %eax ret .LFE213: .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: .LFB214: movl (%esp), %edx ret .LFE214: .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: .LFB215: movl (%esp), %ebx ret .LFE215: .Letext0: 386 387 %ROUTINE PLANT LONG JUMP 388 %INTEGER N 389 ! PLANT A BRANCH OR BAL INSTRUCTION WHICH IS ASSUMED TO BE DESCRIBED 390 ! BY 'L'(OP CODE + BASE REG), 'TAG'(DESTINATION ADDRESS), 391 ! 'B'(NAME OF RECORD CONTAINING FLAG BITS) AND 'CA'(CURRENT CODE 392 ! ADDRESS). 393 %IF B_LAB&VERY = 0 %START; ! ...CAN USE A 32 BIT FORM 394 N = TAG-(CA+4) 395 %IF -16*1024 <= N < 16*1024 %START; ! USE PC RELATIVE 396 L = L&X'FFF0'; ! STRIP OFF BASE REGISTER 397 CPUT(L); CPUT(N!X'8000' ) 398 RX2 = RX2+1 399 %ELSE; !USE BASE+DISP 400 CPUT(L); CPUT(TAG) 401 RX1 = RX1+1 402 %FINISH 403 %ELSE; ! ...48 BIT ADDRESS REQ'D 404 CPUT(L) 405 CPUT((TAG>>16&X'FF')+X'4000') 406 CPUT(TAG); ! ...N.B. 'CPUT' ONLY PUTS 16 BITS 407 RX3 = RX3+1 408 %FINISH 409 %END 410 411 412 413 ! 414 ! PHASE 1 - INPUT PROGRAM & GENERATE JUMP TABLES + PATCH TABLES 415 ! 416 PHASE = 1 movl $1, %eax movl %eax, -2404(%ebp) 417 PEP(J) = 0 %AND PADDR(J) = 0 %FOR J = 1, 1, MAX PERM movl $0, -52016(%ebp) .L13: movl -52016(%ebp), %eax cmpl $54, %eax je .L226 movl -52016(%ebp), %eax addl $1, %eax movl %eax, -52016(%ebp) movl -52016(%ebp), %eax subl $1, %eax addl $4, %eax movl $0, -30284(%ebp,%eax,4) movl -52016(%ebp), %eax subl $1, %eax movl $0, -51052(%ebp,%eax,4) jmp .L13 .L226: nop .L15: 418 CP = 0; GP = MAX PATCH+1 movl $0, %eax movl %eax, -6016(%ebp) movl $451, %eax movl %eax, -30040(%ebp) 419 REFS = 0; DEFMOD = 0; UCA = 0; CCA = 0; CTAG = 0 movl $0, %eax movl %eax, -2408(%ebp) movl $0, -51996(%ebp) movl $0, -52000(%ebp) movl $0, -52004(%ebp) movl $0, -51972(%ebp) 420 LAB(J) = 0 %FOR J = 1,1,MAX LABELS movl $0, -52016(%ebp) .L16: movl -52016(%ebp), %eax cmpl $2000, %eax je .L227 movl -52016(%ebp), %eax addl $1, %eax movl %eax, -52016(%ebp) movl -52016(%ebp), %eax movl $0, -38292(%ebp,%eax,4) jmp .L16 .L227: nop .L18: 421 SELECTINPUT(DIRECT) subl $12, %esp pushl $3 call _imp_SELECTINPUT addl $16, %esp leal INITGLA.6068@GOTOFF(%ebx), %eax movl %eax, -51876(%ebp) .LBB142: .LBB143: subl $12, %esp pushl -51876(%ebp) call _imp_readsymbol@PLT addl $16, %esp .L19: leal -52008(%ebp), %eax movl %eax, -51872(%ebp) .LBE143: .LBE142: .LBB144: .LBB145: subl $12, %esp pushl -51872(%ebp) call _imp_readsymbol@PLT addl $16, %esp .LBE145: .LBE144: 422 READ SYMBOL(INIT GLA); ! MINIMUM POSSIBLE SIZE OF GLA - FROM PASS 2 423 %CYCLE 424 READSYMBOL(CODE); ->D(CODE) movl $424, -51948(%ebp) leal .LC21@GOTOFF(%ebx), %eax movl %eax, -51944(%ebp) movl -52008(%ebp), %eax movl %eax, -51940(%ebp) nop .L20: 425 D(1):! TAG DEF , 426 GET(TAG); GET(CA) subl $12, %esp leal -30288(%ebp), %eax leal -30288(%ebp), %edx addl $16, %edx pushl %edx movl %eax, %ecx call GET.6148 addl $16, %esp subl $12, %esp leal -30288(%ebp), %eax leal -30288(%ebp), %edx addl $27900, %edx pushl %edx movl %eax, %ecx call GET.6148 addl $16, %esp 427 MONITOR(2) %IF TAG > MAX LABELS movl -30272(%ebp), %eax cmpl $2000, %eax jle .L228 jmp .L208 .L195: jmp *%eax .L208: subl $12, %esp leal -30288(%ebp), %eax pushl $2 movl %eax, %ecx call MONITOR.6234 addl $16, %esp jmp .L24 .L228: nop .L24: 428 MAX LABEL = TAG %IF TAG > MAX LABEL movl -30272(%ebp), %edx movl MAXLABEL.6067@GOTOFF(%ebx), %eax cmpl %eax, %edx jle .L229 movl -30272(%ebp), %eax movl %eax, MAXLABEL.6067@GOTOFF(%ebx) jmp .L26 .L229: nop .L26: 429 %IF TAG = CTAG %AND CCA = CA %AND UCA = CA %START movl -30272(%ebp), %eax cmpl %eax, -51972(%ebp) jne .L230 movl -2388(%ebp), %eax cmpl %eax, -52004(%ebp) jne .L231 movl -2388(%ebp), %eax cmpl %eax, -52000(%ebp) jne .L232 nop jmp .L28 .L231: nop jmp .L28 .L232: nop .L28: 430 DEFMOD = DEFMOD+2 addl $2, -51996(%ebp) 431 UREF_LAB = UREF_LAB!PERM!COND movl -51988(%ebp), %eax movl (%eax), %eax orl $6291456, %eax movl %eax, %edx movl -51988(%ebp), %eax movl %edx, (%eax) 432 CREF_LAB = CREF_LAB!VERY!RT movl -51984(%ebp), %eax movl (%eax), %eax orl $1572864, %eax movl %eax, %edx movl -51984(%ebp), %eax movl %edx, (%eax) 433 CTAG = UREF_LAB&LABEL movl -51988(%ebp), %eax movl (%eax), %eax andl $65535, %eax movl %eax, -51972(%ebp) 434 CREF == UREF movl -51988(%ebp), %eax movl %eax, -51984(%ebp) 435 CCA = CA+2 movl -2388(%ebp), %eax addl $2, %eax movl %eax, -52004(%ebp) 436 %ELSE jmp .L31 .L230: 437 CTAG = 0 movl $0, -51972(%ebp) .L31: 438 %FINISH 439 LAB(TAG) = CA movl -30272(%ebp), %eax movl -2388(%ebp), %edx movl %edx, -38292(%ebp,%eax,4) 440 %CONTINUE jmp .L54 .L33: 441 D(2):! CREF , 442 FLAG = COND; ->CURP movl $4194304, -51964(%ebp) jmp .L34 .L35: 443 D(3):! UREF , 444 FLAG = 0; ->CURP movl $0, -51964(%ebp) jmp .L34 .L36: 445 D(4):! RREF , 446 FLAG = RT+LONG movl $9437184, -51964(%ebp) 447 RTNCALLS = RTNCALLS+1 addl $1, -51980(%ebp) 448 -> CURP jmp .L34 .L37: 449 450 D(5):! PREF , 451 FLAG = PERM+LONG movl $10485760, -51964(%ebp) 452 PERMCALLS = PERMCALLS+1 addl $1, -51976(%ebp) .L34: 453 454 CURP: GET(TAG); GET(CA) subl $12, %esp leal -30288(%ebp), %eax leal -30288(%ebp), %edx addl $16, %edx pushl %edx movl %eax, %ecx call GET.6148 addl $16, %esp subl $12, %esp leal -30288(%ebp), %eax leal -30288(%ebp), %edx addl $27900, %edx pushl %edx movl %eax, %ecx call GET.6148 addl $16, %esp 455 REFS = REFS+1; R == JUMP(REFS) movl -2408(%ebp), %eax addl $1, %eax movl %eax, -2408(%ebp) movl -2408(%ebp), %eax leal -1(%eax), %edx leal -30288(%ebp), %eax addl $32, %edx sall $3, %edx addl %edx, %eax addl $8, %eax movl %eax, -51924(%ebp) 456 MONITOR(1) %IF REFS > MAX JUMPS movl -2408(%ebp), %eax cmpl $3000, %eax jle .L233 subl $12, %esp leal -30288(%ebp), %eax pushl $1 movl %eax, %ecx call MONITOR.6234 addl $16, %esp jmp .L39 .L233: nop .L39: 457 R_LAB = TAG+FLAG movl -30272(%ebp), %edx movl -51964(%ebp), %eax addl %eax, %edx movl -51924(%ebp), %eax movl %edx, (%eax) 458 R_CA = CA movl -2388(%ebp), %edx movl -51924(%ebp), %eax movl %edx, 4(%eax) 459 %IF FLAG = 0 %START; ! UNCONDITIONAL cmpl $0, -51964(%ebp) jne .L234 nop .L41: 460 UCA = CA+2; UREF == R movl -2388(%ebp), %eax addl $2, %eax movl %eax, -52000(%ebp) movl -51924(%ebp), %eax movl %eax, -51988(%ebp) 461 %ELSE %IF FLAG = COND; ! CONDITIONAL jmp .L203 .L234: cmpl $4194304, -51964(%ebp) jne .L235 nop .L203: 462 CCA = CA+4; CTAG = TAG; CREF == R movl -2388(%ebp), %eax addl $4, %eax movl %eax, -52004(%ebp) movl -30272(%ebp), %eax movl %eax, -51972(%ebp) movl -51924(%ebp), %eax movl %eax, -51984(%ebp) jmp .L203 .L42: .L44: .L235: 463 %FINISH 464 %IF FLAG&PERM # 0 %START 465 %IF TAG > MAX PERM %OR PERMS(TAG) = 0 %START movl -30272(%ebp), %eax cmpl $54, %eax jg .L236 movl -30272(%ebp), %eax subl $1, %eax movl PERMS@GOTOFF(%ebx,%eax,4), %eax testl %eax, %eax jne .L237 jmp .L46 .L236: nop .L46: nop .L47: 466 SELECTOUTPUT(REPORT) subl $12, %esp pushl $0 call _imp_SELECTOUTPUT addl $16, %esp .LBB146: 467 PRINTSTRING("NO PERM"); WRITE(TAG, 1); NEWLINE leal -38548(%ebp), %eax leal .LC0@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -50836(%ebp), %eax leal -38548(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -42132(%ebp), %eax leal -50836(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE146: .LBB147: .LBB148: subl $256, %esp movl %esp, %eax movl %eax, %edi leal -42132(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl call _imp_printstring@PLT addl $256, %esp .LBE148: .LBE147: movl -30272(%ebp), %eax subl $8, %esp pushl $1 pushl %eax call _imp_writeint@PLT addl $16, %esp .LBB149: .LBB150: call _imp_newline@PLT .LBE150: .LBE149: 468 SELECTOUTPUT(OBJECT) subl $12, %esp pushl $2 call _imp_SELECTOUTPUT addl $16, %esp 469 %ELSE nop .L49: 470 PEP(TAG) = 1 movl -30272(%ebp), %eax subl $1, %eax addl $4, %eax movl $1, -30284(%ebp,%eax,4) 471 %FINISH 472 %FINISH 473 %CONTINUE jmp .L54 .L48: .L237: jmp .L54 .L50: 474 D(6):! GPATCH , 475 GP = GP-1; PAT == PATCH(GP); ->PWW movl -30040(%ebp), %eax subl $1, %eax movl %eax, -30040(%ebp) movl -30040(%ebp), %eax leal -1(%eax), %edx leal -30288(%ebp), %eax addl $3034, %edx sall $3, %edx addl %edx, %eax addl $8, %eax movl %eax, -30048(%ebp) jmp .L51 .L52: 476 D(7):! CPATCH , 477 CP = CP+1; PAT == PATCH(CP) movl -6016(%ebp), %eax addl $1, %eax movl %eax, -6016(%ebp) movl -6016(%ebp), %eax leal -1(%eax), %edx leal -30288(%ebp), %eax addl $3034, %edx sall $3, %edx addl %edx, %eax addl $8, %eax movl %eax, -30048(%ebp) .L51: 478 PWW: GET(TAG); GET(CA) subl $12, %esp leal -30288(%ebp), %eax leal -30288(%ebp), %edx addl $16, %edx pushl %edx movl %eax, %ecx call GET.6148 addl $16, %esp subl $12, %esp leal -30288(%ebp), %eax leal -30288(%ebp), %edx addl $27900, %edx pushl %edx movl %eax, %ecx call GET.6148 addl $16, %esp 479 PAT_WHAT = TAG; PAT_WHERE = CA movl -30272(%ebp), %edx movl -30048(%ebp), %eax movl %edx, (%eax) movl -2388(%ebp), %edx movl -30048(%ebp), %eax movl %edx, 4(%eax) 480 MONITOR(4) %IF CP = GP movl -6016(%ebp), %edx movl -30040(%ebp), %eax cmpl %eax, %edx jne .L238 subl $12, %esp leal -30288(%ebp), %eax pushl $4 movl %eax, %ecx call MONITOR.6234 addl $16, %esp jmp .L19 .L32: .L238: nop .L54: 481 %REPEAT jmp .L19 .L55: 482 D(8):! END MARKER 483 GET(CODE SIZE); GET(GLA SIZE); GET(LINE SIZE); GET(DIAG SIZE) subl $12, %esp leal -30288(%ebp), %eax leal -52028(%ebp), %edx pushl %edx movl %eax, %ecx call GET.6148 addl $16, %esp subl $12, %esp leal -30288(%ebp), %eax leal -52024(%ebp), %edx pushl %edx movl %eax, %ecx call GET.6148 addl $16, %esp subl $12, %esp leal -30288(%ebp), %eax leal -52032(%ebp), %edx pushl %edx movl %eax, %ecx call GET.6148 addl $16, %esp subl $12, %esp leal -30288(%ebp), %eax leal -52020(%ebp), %edx pushl %edx movl %eax, %ecx call GET.6148 addl $16, %esp 484 CODE SIZE = CODE SIZE-DEF MOD movl -52028(%ebp), %eax subl -51996(%ebp), %eax movl %eax, -52028(%ebp) 485 REFS = REFS+1; JUMP(REFS) = 0 movl -2408(%ebp), %eax addl $1, %eax movl %eax, -2408(%ebp) movl -2408(%ebp), %eax subl $1, %eax addl $32, %eax movl $0, -30280(%ebp,%eax,8) movl $0, -30276(%ebp,%eax,8) 486 %IF DEF MOD # 0 %START cmpl $0, -51996(%ebp) je .L239 nop jmp .L102 .L249: 487 REF EXTRA = 0 movl $0, -51960(%ebp) .LBB151: 488 %CYCLE L = 1, 1, REFS-1 movl -2408(%ebp), %eax subl $1, %eax movl %eax, -51932(%ebp) .LBB152: movl -51932(%ebp), %eax subl $1, %eax movl %eax, -51928(%ebp) movl -51928(%ebp), %eax xorl $1, %eax shrl $31, %eax movzbl %al, %eax .LBE152: testl %eax, %eax je .L58 leal -45204(%ebp), %eax subl $8, %esp leal .LC22@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 .L59 movl _imp_current_line@GOT(%ebx), %eax movl (%eax), %eax movl %eax, -52048(%ebp) jmp .L60 .L59: movl $488, -52048(%ebp) .L60: movl _imp_current_file@GOT(%ebx), %eax movl (%eax), %eax testl %eax, %eax je .L61 movl _imp_current_file@GOT(%ebx), %eax movl (%eax), %edx leal -44948(%ebp), %eax subl $8, %esp pushl %edx pushl %eax call _imp_c2istr@PLT addl $12, %esp jmp .L62 .L61: .LBB153: leal -38548(%ebp), %eax leal .LC1@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -50580(%ebp), %eax leal -38548(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE153: leal -44948(%ebp), %eax leal -50580(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .L62: pushl $0 pushl $1 pushl $5 subl $256, %esp movl %esp, %eax movl %eax, %edi leal -45204(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl pushl -52048(%ebp) subl $256, %esp movl %esp, %eax movl %eax, %edi leal -44948(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl call _signal_event@PLT addl $528, %esp .L58: movl $0, %eax movl %eax, -30276(%ebp) .L63: movl -30276(%ebp), %eax cmpl %eax, -51932(%ebp) je .L240 movl -30276(%ebp), %eax addl $1, %eax movl %eax, -30276(%ebp) nop .L65: .LBE151: 489 R == JUMP (L) movl -30276(%ebp), %eax leal -1(%eax), %edx leal -30288(%ebp), %eax addl $32, %edx sall $3, %edx addl %edx, %eax addl $8, %eax movl %eax, -51924(%ebp) 490 R_CA = R_CA-REF EXTRA movl -51924(%ebp), %eax movl 4(%eax), %eax subl -51960(%ebp), %eax movl %eax, %edx movl -51924(%ebp), %eax movl %edx, 4(%eax) 491 %IF R_LAB&COND # 0 %AND R_LAB&RT # 0 %START 492 REF EXTRA = REF EXTRA+2 addl $2, -51960(%ebp) .LBB154: 493 %CYCLE K = 1, 1, CP movl -6016(%ebp), %eax movl %eax, -51920(%ebp) .LBB155: movl -51920(%ebp), %eax subl $1, %eax movl %eax, -51916(%ebp) movl -51916(%ebp), %eax xorl $1, %eax shrl $31, %eax movzbl %al, %eax .LBE155: testl %eax, %eax je .L66 leal -44692(%ebp), %eax subl $8, %esp leal .LC23@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 .L67 movl _imp_current_line@GOT(%ebx), %eax movl (%eax), %eax movl %eax, -52048(%ebp) jmp .L68 .L67: movl $493, -52048(%ebp) .L68: movl _imp_current_file@GOT(%ebx), %eax movl (%eax), %eax testl %eax, %eax je .L69 movl _imp_current_file@GOT(%ebx), %eax movl (%eax), %edx leal -44436(%ebp), %eax subl $8, %esp pushl %edx pushl %eax call _imp_c2istr@PLT addl $12, %esp jmp .L70 .L69: .LBB156: leal -38548(%ebp), %eax leal .LC1@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -50324(%ebp), %eax leal -38548(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE156: leal -44436(%ebp), %eax leal -50324(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .L70: pushl $0 pushl $1 pushl $5 subl $256, %esp movl %esp, %eax movl %eax, %edi leal -44692(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl pushl -52048(%ebp) subl $256, %esp movl %esp, %eax movl %eax, %edi leal -44436(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl call _signal_event@PLT addl $528, %esp .L66: movl $0, -52012(%ebp) .L71: movl -52012(%ebp), %eax cmpl %eax, -51920(%ebp) je .L241 movl -52012(%ebp), %eax addl $1, %eax movl %eax, -52012(%ebp) nop .L73: .LBE154: 494 PAT == PATCH(K) movl -52012(%ebp), %eax leal -1(%eax), %edx leal -30288(%ebp), %eax addl $3034, %edx sall $3, %edx addl %edx, %eax addl $8, %eax movl %eax, -30048(%ebp) 495 PAT_WHERE = PAT_WHERE-2 %IF PAT_WHERE > R_CA movl -30048(%ebp), %eax movl 4(%eax), %edx movl -51924(%ebp), %eax movl 4(%eax), %eax cmpl %eax, %edx jle .L242 movl -30048(%ebp), %eax movl 4(%eax), %eax leal -2(%eax), %edx movl -30048(%ebp), %eax movl %edx, 4(%eax) jmp .L71 .L242: nop .L75: 496 %REPEAT jmp .L71 .L241: 497 %IF GP <= MAX PATCH %START movl -30040(%ebp), %eax cmpl $450, %eax jg .L243 .LBB157: nop jmp .L89 .L244: .LBB160: 498 %CYCLE K = GP, 1, MAX PATCH movl -30040(%ebp), %eax movl %eax, -51912(%ebp) .LBB158: movl $450, %eax subl -51912(%ebp), %eax movl %eax, -51908(%ebp) movl -51908(%ebp), %eax xorl $1, %eax shrl $31, %eax movzbl %al, %eax .LBE158: testl %eax, %eax je .L78 leal -44180(%ebp), %eax subl $8, %esp leal .LC24@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 .L79 movl _imp_current_line@GOT(%ebx), %eax movl (%eax), %eax movl %eax, -52048(%ebp) jmp .L80 .L79: movl $498, -52048(%ebp) .L80: movl _imp_current_file@GOT(%ebx), %eax movl (%eax), %eax testl %eax, %eax je .L81 movl _imp_current_file@GOT(%ebx), %eax movl (%eax), %edx leal -43924(%ebp), %eax subl $8, %esp pushl %edx pushl %eax call _imp_c2istr@PLT addl $12, %esp jmp .L82 .L81: .LBB159: leal -38548(%ebp), %eax leal .LC1@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -50068(%ebp), %eax leal -38548(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE159: leal -43924(%ebp), %eax leal -50068(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .L82: pushl $0 pushl $1 pushl $5 subl $256, %esp movl %esp, %eax movl %eax, %edi leal -44180(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl pushl -52048(%ebp) subl $256, %esp movl %esp, %eax movl %eax, %edi leal -43924(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl call _signal_event@PLT addl $528, %esp .L78: movl -51912(%ebp), %eax subl $1, %eax movl %eax, -52012(%ebp) .L83: movl -52012(%ebp), %eax cmpl $450, %eax je .L244 movl -52012(%ebp), %eax addl $1, %eax movl %eax, -52012(%ebp) nop .L89: .LBE160: .LBB161: 499 PAT == PATCH(K) movl -52012(%ebp), %eax leal -1(%eax), %edx leal -30288(%ebp), %eax addl $3034, %edx sall $3, %edx addl %edx, %eax addl $8, %eax movl %eax, -30048(%ebp) 500 PAT_WHAT = PAT_WHAT-2 %IF PAT_WHAT > R_CA movl -30048(%ebp), %eax movl (%eax), %edx movl -51924(%ebp), %eax movl 4(%eax), %eax cmpl %eax, %edx jle .L245 movl -30048(%ebp), %eax movl (%eax), %eax leal -2(%eax), %edx movl -30048(%ebp), %eax movl %edx, (%eax) jmp .L204 .L86: .L245: nop .L204: 501 PAT_WHERE = PAT_WHERE-2 %IF PAT_WHERE&1 # 0 %AND %C movl -30048(%ebp), %eax movl 4(%eax), %edx movl -51924(%ebp), %eax movl 4(%eax), %eax cmpl %eax, %edx jle .L246 movl -30048(%ebp), %eax movl 4(%eax), %eax leal -2(%eax), %edx movl -30048(%ebp), %eax movl %edx, 4(%eax) jmp .L83 .L246: nop .L88: 502 PAT_WHERE > R_CA 503 %REPEAT jmp .L83 .L77: .L243: .LBE157: 504 %FINISH 505 %CYCLE K = 1, 1, MAX LABEL movl MAXLABEL.6067@GOTOFF(%ebx), %eax movl %eax, -51904(%ebp) .LBB162: movl -51904(%ebp), %eax subl $1, %eax movl %eax, -51900(%ebp) movl -51900(%ebp), %eax xorl $1, %eax shrl $31, %eax movzbl %al, %eax .LBE162: testl %eax, %eax je .L90 leal -43668(%ebp), %eax subl $8, %esp leal .LC25@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 .L91 movl _imp_current_line@GOT(%ebx), %eax movl (%eax), %eax movl %eax, -52048(%ebp) jmp .L92 .L91: movl $505, -52048(%ebp) .L92: movl _imp_current_file@GOT(%ebx), %eax movl (%eax), %eax testl %eax, %eax je .L93 movl _imp_current_file@GOT(%ebx), %eax movl (%eax), %edx leal -43412(%ebp), %eax subl $8, %esp pushl %edx pushl %eax call _imp_c2istr@PLT addl $12, %esp jmp .L94 .L93: .LBB163: leal -38548(%ebp), %eax leal .LC1@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -49812(%ebp), %eax leal -38548(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE163: leal -43412(%ebp), %eax leal -49812(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .L94: pushl $0 pushl $1 pushl $5 subl $256, %esp movl %esp, %eax movl %eax, %edi leal -43668(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl pushl -52048(%ebp) subl $256, %esp movl %esp, %eax movl %eax, %edi leal -43412(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl call _signal_event@PLT addl $528, %esp .L90: movl $0, -52012(%ebp) .L95: movl -52012(%ebp), %eax cmpl %eax, -51904(%ebp) je .L247 movl -52012(%ebp), %eax addl $1, %eax movl %eax, -52012(%ebp) nop .L97: .LBE161: 506 LAB(K) = LAB(K)-2 %IF LAB(K) > R_CA movl -52012(%ebp), %eax movl -38292(%ebp,%eax,4), %edx movl -51924(%ebp), %eax movl 4(%eax), %eax cmpl %eax, %edx jle .L248 movl -52012(%ebp), %eax movl -38292(%ebp,%eax,4), %edx movl -52012(%ebp), %eax subl $2, %edx movl %edx, -38292(%ebp,%eax,4) jmp .L95 .L248: nop .L99: 507 %REPEAT jmp .L95 .L247: 508 DEFMOD = DEFMOD-2 subl $2, -51996(%ebp) .L100: 509 %FINISH 510 %REPEAT jmp .L63 .L240: 511 MONITOR(5) %IF DEFMOD # 0 cmpl $0, -51996(%ebp) je .L249 subl $12, %esp leal -30288(%ebp), %eax pushl $5 movl %eax, %ecx call MONITOR.6234 addl $16, %esp jmp .L102 .L57: .L239: nop .L102: 512 %FINISH 513 514 515 ! IDENTIFY THOSE PERM ROUTINES WHICH ARE REQUIRED. 516 PERM SIZE = 0 movl $0, -51956(%ebp) 517 SET PERM(J) %FOR J = 1,1,MAX PERM movl $0, -52016(%ebp) .L103: movl -52016(%ebp), %eax cmpl $54, %eax je .L250 movl -52016(%ebp), %eax addl $1, %eax movl %eax, -52016(%ebp) movl -52016(%ebp), %edx subl $12, %esp leal -30288(%ebp), %eax pushl %edx movl %eax, %ecx call SETPERM.6293 addl $16, %esp jmp .L103 .L250: nop .L105: 518 %CYCLE J = 1,1,MAX PERM movl $0, -52016(%ebp) .L106: movl -52016(%ebp), %eax cmpl $54, %eax je .L251 movl -52016(%ebp), %eax addl $1, %eax movl %eax, -52016(%ebp) nop .L108: 519 %IF PEP(J) # 0 %START movl -52016(%ebp), %eax subl $1, %eax addl $4, %eax movl -30284(%ebp,%eax,4), %eax testl %eax, %eax je .L252 nop .L110: 520 PADDR(J) = CODE SIZE movl -52016(%ebp), %eax leal -1(%eax), %edx movl -52028(%ebp), %eax movl %eax, -51052(%ebp,%edx,4) 521 L = PERMS(PERMS(J))*2 movl -52016(%ebp), %eax subl $1, %eax movl PERMS@GOTOFF(%ebx,%eax,4), %eax subl $1, %eax movl PERMS@GOTOFF(%ebx,%eax,4), %eax addl %eax, %eax movl %eax, -30276(%ebp) 522 CODE SIZE = CODE SIZE + L movl -52028(%ebp), %edx movl -30276(%ebp), %eax addl %edx, %eax movl %eax, -52028(%ebp) 523 PERM SIZE = PERM SIZE + L movl -30276(%ebp), %eax addl %eax, -51956(%ebp) jmp .L106 .L252: 524 %FINISH 525 %REPEAT jmp .L106 .L251: 526 527 528 ! PHASE 2 - IDENTIFY LONG JUMPS 529 ! 530 PHASE = 2 movl $2, %eax movl %eax, -2404(%ebp) 531 %IF REFS > 1 %START movl -2408(%ebp), %eax cmpl $1, %eax jle .L253 nop jmp .L124 .L255: 532 %CYCLE nop .L111: 533 FLAG = 0; REF EXTRA = 0 movl $0, -51964(%ebp) movl $0, -51960(%ebp) .LBB164: 534 %CYCLE L = 1, 1, REFS-1 movl -2408(%ebp), %eax subl $1, %eax movl %eax, -51896(%ebp) .LBB165: movl -51896(%ebp), %eax subl $1, %eax movl %eax, -51892(%ebp) movl -51892(%ebp), %eax xorl $1, %eax shrl $31, %eax movzbl %al, %eax .LBE165: testl %eax, %eax je .L113 leal -43156(%ebp), %eax subl $8, %esp leal .LC22@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 .L114 movl _imp_current_line@GOT(%ebx), %eax movl (%eax), %eax movl %eax, -52048(%ebp) jmp .L115 .L114: movl $534, -52048(%ebp) .L115: movl _imp_current_file@GOT(%ebx), %eax movl (%eax), %eax testl %eax, %eax je .L116 movl _imp_current_file@GOT(%ebx), %eax movl (%eax), %edx leal -42900(%ebp), %eax subl $8, %esp pushl %edx pushl %eax call _imp_c2istr@PLT addl $12, %esp jmp .L117 .L116: .LBB166: leal -38548(%ebp), %eax leal .LC1@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -49556(%ebp), %eax leal -38548(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE166: leal -42900(%ebp), %eax leal -49556(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .L117: pushl $0 pushl $1 pushl $5 subl $256, %esp movl %esp, %eax movl %eax, %edi leal -43156(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl pushl -52048(%ebp) subl $256, %esp movl %esp, %eax movl %eax, %edi leal -42900(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl call _signal_event@PLT addl $528, %esp .L113: movl $0, %eax movl %eax, -30276(%ebp) .L118: movl -30276(%ebp), %eax cmpl %eax, -51896(%ebp) je .L254 movl -30276(%ebp), %eax addl $1, %eax movl %eax, -30276(%ebp) nop .L120: .LBE164: 535 R == JUMP(L);! JUMP REFERENCE movl -30276(%ebp), %eax leal -1(%eax), %edx leal -30288(%ebp), %eax addl $32, %edx sall $3, %edx addl %edx, %eax addl $8, %eax movl %eax, -51924(%ebp) 536 R_CA = R_CA+REF EXTRA movl -51924(%ebp), %eax movl 4(%eax), %edx movl -51960(%ebp), %eax addl %eax, %edx movl -51924(%ebp), %eax movl %edx, 4(%eax) 537 %CONTINUE %IF R_LAB&VERY # 0;! ALREADY VERY LONG nop .L121: .L122: 538 EXTRA = 0 539 J = R_LAB&LABEL 540 %IF R_LAB&PERM = 0 %OR R_LAB&COND # 0 %C 541 %THEN K = LAB(J) %ELSE K = PADDR(J) 542 %UNLESS -30 <= K-R_CA <= 30 %START; ! ...CAN'T BE SHORT 543 %IF R_LAB&LONG=0 %START; ! ...BUT IT IS... 544 %IF K < 16*1024 %OR -16*1024<=K-(R_CA+4)<16*1024 %START 545 ! 32 BIT FORM: BASE+DISPLACEMENT OR PC RELATIVE 546 EXTRA = 2; R_LAB = R_LAB!LONG; ! SHORT -> LONG 547 %ELSE 548 ! 48 BIT FORM REQ'D: BASE+DISP 549 EXTRA = 4; R_LAB = R_LAB!VERY; ! SHORT -> VERY 550 %FINISH 551 %ELSE 552 %UNLESS K<16*1024 %OR -16*1024<=K-(R_CA+4)<16*1024 %START 553 EXTRA = 2; R_LAB = R_LAB!!(LONG!VERY); ! LONG -> VERY 554 %FINISH 555 %FINISH 556 %CONTINUE %IF EXTRA = 0; ! ...NO CHANGES REQ'D 557 FLAG = 1 558 ! ADJUST PATCHES 559 %IF CP > 0 %START 560 %CYCLE K = 1, 1, CP 561 PAT == PATCH(K) 562 PAT_WHERE = PAT_WHERE+EXTRA %IF PAT_WHERE > R_CA 563 %REPEAT 564 %FINISH 565 %IF GP <= MAX PATCH %START 566 %CYCLE K = GP, 1, MAX PATCH 567 PAT == PATCH(K) 568 PAT_WHAT = PAT_WHAT+EXTRA %IF PAT_WHAT > R_CA 569 %REPEAT 570 %FINISH 571 ! ADJUST REMAINING REFS 572 %CYCLE K = 1, 1, MAX LABEL 573 V == LAB(K) 574 V = V+EXTRA %IF V > R_CA 575 %REPEAT 576 %CYCLE K = 1, 1, MAX PERM 577 PADDR(K) = PADDR(K)+EXTRA %IF PADDR(K) # 0 578 %REPEAT 579 REF EXTRA = REF EXTRA+EXTRA 580 CODE SIZE = CODE SIZE+EXTRA 581 %FINISH 582 %REPEAT jmp .L118 .L254: 583 %REPEAT %until flag = 0 cmpl $0, -51964(%ebp) je .L255 jmp .L111 .L112: .L253: nop .L124: 584 %FINISH 585 ! 586 ! PHASE 3 - GENERATE OBJECT FILE 587 ! 588 PHASE = 3 movl $3, %eax movl %eax, -2404(%ebp) 589 J = MAX PATCH+1; K = J movl $451, -52016(%ebp) movl -52016(%ebp), %eax movl %eax, -52012(%ebp) .L125: 590 %WHILE J > GP %CYCLE movl -52016(%ebp), %eax movl -30040(%ebp), %edx cmpl %eax, %edx jge .L256 nop .L127: 591 J = J-1 movl -52016(%ebp), %eax subl $1, %eax movl %eax, -52016(%ebp) 592 PAT == PATCH(J) movl -52016(%ebp), %eax leal -1(%eax), %edx leal -30288(%ebp), %eax addl $3034, %edx sall $3, %edx addl %edx, %eax addl $8, %eax movl %eax, -30048(%ebp) 593 %IF PAT_WHERE&1 # 0 %START 594 PAT_WHERE = PAT_WHERE&(\1) movl -30048(%ebp), %eax movl 4(%eax), %eax andl $-2, %eax movl %eax, %edx movl -30048(%ebp), %eax movl %edx, 4(%eax) 595 CP = CP+1; PATCH(CP) = PAT movl -6016(%ebp), %eax addl $1, %eax movl %eax, -6016(%ebp) movl -6016(%ebp), %eax leal -1(%eax), %edx movl -30048(%ebp), %eax leal 3034(%edx), %ecx movl 4(%eax), %edx movl (%eax), %eax movl %eax, -30280(%ebp,%ecx,8) movl %edx, -30276(%ebp,%ecx,8) 596 %ELSE nop .L128: 597 K = K-1; PATCH(K) = PAT 598 %FINISH 599 %REPEAT jmp .L125 .L256: 600 GP = K movl -52012(%ebp), %eax movl %eax, -30040(%ebp) 601 SORT(1, CP) movl -6016(%ebp), %edx subl $8, %esp leal -30288(%ebp), %eax pushl %edx pushl $1 movl %eax, %ecx call SORT.6248 addl $16, %esp 602 SORT(GP, MAX PATCH) movl -30040(%ebp), %edx subl $8, %esp leal -30288(%ebp), %eax pushl $450 pushl %edx movl %eax, %ecx call SORT.6248 addl $16, %esp 603 ! 604 ! 605 SELECT OUTPUT(OBJECT); PUT HALF(X'8282') subl $12, %esp pushl $2 call _imp_SELECTOUTPUT addl $16, %esp subl $12, %esp leal -30288(%ebp), %eax pushl $-32126 movl %eax, %ecx call PUTHALF.6152 addl $16, %esp 606 ! 607 ! OUTPUT A CONTROL BLOCK GIVING CODE AND GLA SEGMENT SIZES(IN 608 ! HALF-WORDS). OTHER PARAMETERS MAY BE ADDED AS REQ'D. 609 ! USES 'GBUFF' AS WORKSPACE. 610 GBUFF(1) = (CODE SIZE + 1)>>1 movl -52028(%ebp), %eax addl $1, %eax shrl %eax movw %ax, -950(%ebp) 611 GBUFF(2) = (GLA SIZE + 1)>>1 movl -52024(%ebp), %eax addl $1, %eax shrl %eax movw %ax, -948(%ebp) 612 GBUFF(3) = (DIAG SIZE+16)>>1; ! ... +16 FOR EXTRA WORD AS TERMINATOR movl -52020(%ebp), %eax addl $16, %eax shrl %eax movw %ax, -946(%ebp) 613 GBUFF(4) = (LINE SIZE+16)>>1 movl -52032(%ebp), %eax addl $16, %eax shrl %eax movw %ax, -944(%ebp) 614 ! -------REQUIRES LOADER DATA SIZE----------- 615 PUT BLOCK((4<<4)!SEGMENT SIZE BLOCK,GBUFF) subl $8, %esp leal -30288(%ebp), %eax leal -30288(%ebp), %edx addl $29338, %edx pushl %edx pushl $79 movl %eax, %ecx call PUTBLOCK.6156 addl $16, %esp 616 ! 617 SELECT INPUT(PSEUDO OBJ) subl $12, %esp pushl $2 call _imp_SELECTINPUT addl $16, %esp 618 CA = 0; GA = INITGLA; LA = 0; DA = 0 movl $0, %eax movl %eax, -2388(%ebp) movl INITGLA.6068@GOTOFF(%ebx), %eax movl %eax, -2392(%ebp) movl $0, %eax movl %eax, -2396(%ebp) movl $0, %eax movl %eax, -2400(%ebp) 619 CURRENT LINE = 0; CBP = 1; CFLUSH movl $0, %eax movl %eax, -2384(%ebp) movl $1, %eax movw %ax, -36(%ebp) leal -30288(%ebp), %eax movl %eax, %ecx call CFLUSH.6180 620 GBP = INIT GLA>>1; LBP = 0; DBP = 0; TBP = 0 movl INITGLA.6068@GOTOFF(%ebx), %eax shrl %eax movw %ax, -438(%ebp) movl $0, %eax movw %ax, -952(%ebp) movl $0, %eax movw %ax, -1354(%ebp) movl $0, %eax movw %ax, -1868(%ebp) 621 NEXT CODE; NEXT GLA leal -30288(%ebp), %eax movl %eax, %ecx call NEXTCODE.6270 leal -30288(%ebp), %eax movl %eax, %ecx call NEXTGLA.6287 leal -52008(%ebp), %eax movl %eax, -51868(%ebp) .LBB167: .LBB168: subl $12, %esp pushl -51868(%ebp) call _imp_readsymbol@PLT addl $16, %esp .LBE168: .LBE167: 622 623 READSYMBOL(CODE);! = 1 624 IGNORE = 0; LAST = 0 movl $0, -51968(%ebp) movl $0, -51992(%ebp) .L129: leal -52008(%ebp), %eax movl %eax, -51864(%ebp) .LBB169: .LBB170: subl $12, %esp pushl -51864(%ebp) call _imp_readsymbol@PLT addl $16, %esp .LBE170: .LBE169: 625 %CYCLE 626 READ SYMBOL(CODE); -> C(CODE+IGNORE) movl $626, -51888(%ebp) leal .LC21@GOTOFF(%ebx), %eax movl %eax, -51884(%ebp) movl -52008(%ebp), %edx movl -51968(%ebp), %eax addl %edx, %eax movl %eax, -51880(%ebp) nop .L130: cmpl $1, -51880(%ebp) jle .L196 jmp .L218 .L131: 627 C(2):! CODE 628 GET(L) subl $12, %esp leal -30288(%ebp), %eax leal -30288(%ebp), %edx addl $12, %edx pushl %edx movl %eax, %ecx call GET.6148 addl $16, %esp 629 %IF CA = CADDR %START movl -2388(%ebp), %eax movl -30032(%ebp), %edx cmpl %eax, %edx jne .L257 nop .L133: 630 %IF MODE # 0 %START;! CODE PATCH movl -6012(%ebp), %eax testl %eax, %eax je .L258 nop .L135: 631 CPUT(CVAL) movl -30036(%ebp), %eax movswl %ax, %edx subl $12, %esp leal -30288(%ebp), %eax pushl %edx movl %eax, %ecx call CPUT.6200 addl $16, %esp 632 %ELSE;! JUMP+PERM+RT nop .L141: 633 TAG = LAB(B_LAB&LABEL) movl -30028(%ebp), %eax movl (%eax), %eax movzwl %ax, %eax movl -38292(%ebp,%eax,4), %eax movl %eax, -30272(%ebp) 634 %IF B_LAB&(PERM!RT) = 0 %OR B_LAB&COND # 0 %START;! JUMP nop .L137: 635 %IF B_LAB&(PERM!RT) # 0 %START 636 %IF B_LAB&RT # 0 %START 637 LAST = L %IF LAST = 0 cmpl $0, -51992(%ebp) jne .L259 movl -30276(%ebp), %eax movl %eax, -51992(%ebp) jmp .L139 .L259: nop .L139: 638 LAST = NOT(LAST&15)!X'8000' movl -51992(%ebp), %eax andl $15, %eax movl NOT@GOTOFF(%ebx,%eax,4), %eax orb $-128, %ah movl %eax, -51992(%ebp) 639 NEXT CODE leal -30288(%ebp), %eax movl %eax, %ecx call NEXTCODE.6270 640 %CONTINUE jmp .L140 .L257: 641 %FINISH 642 L = LAST; LAST = 0 643 %FINISH 644 L = L&15 645 %IF B_LAB&(LONG!VERY) = 0 %START;! LEAVE IT SHORT 646 J = (TAG-CA)//2 647 MONITOR(5) %UNLESS -15 <= J <= 15 648 %IF J < 0 %THEN CPUT(SB(L)-J) %C 649 %ELSE CPUT(SF(L)+J) 650 SJ = SJ+1 651 %ELSE; ! MAKE IT LONG 652 L = LJ(L); PLANT LONG JUMP 653 %FINISH 654 %ELSE;! PERM OR ROUTINE 655 DIAG LINE 656 IGNORE = 5 657 TAG = PADDR(B_LAB&LABEL) %IF B_LAB&PERM # 0 658 PLANT LONG JUMP 659 %FINISH 660 %FINISH 661 NEXT CODE leal -30288(%ebp), %eax movl %eax, %ecx call NEXTCODE.6270 662 %FINISH %ELSE CPUT(L) nop .L142: movl -30276(%ebp), %eax movswl %ax, %edx subl $12, %esp leal -30288(%ebp), %eax pushl %edx movl %eax, %ecx call CPUT.6200 addl $16, %esp 663 %CONTINUE jmp .L140 .L136: .L258: jmp .L140 .L143: 664 C(11):GET(J) subl $12, %esp leal -30288(%ebp), %eax leal -52016(%ebp), %edx pushl %edx movl %eax, %ecx call GET.6148 addl $16, %esp 665 %IF J = X'FFFF' %START movl -52016(%ebp), %eax cmpl $65535, %eax jne .L260 nop .L145: 666 GET(J) subl $12, %esp leal -30288(%ebp), %eax leal -52016(%ebp), %edx pushl %edx movl %eax, %ecx call GET.6148 addl $16, %esp 667 TPUT(X'4000'); TPUT(CA) subl $12, %esp leal -30288(%ebp), %eax pushl $16384 movl %eax, %ecx call TPUT.6227 addl $16, %esp movl -2388(%ebp), %eax movswl %ax, %edx subl $12, %esp leal -30288(%ebp), %eax pushl %edx movl %eax, %ecx call TPUT.6227 addl $16, %esp 668 %CONTINUE jmp .L140 .L260: 669 %FINISH 670 TPUT(J) movl -52016(%ebp), %eax movswl %ax, %edx subl $12, %esp leal -30288(%ebp), %eax pushl %edx movl %eax, %ecx call TPUT.6227 addl $16, %esp 671 GET(K) subl $12, %esp leal -30288(%ebp), %eax leal -52012(%ebp), %edx pushl %edx movl %eax, %ecx call GET.6148 addl $16, %esp 672 K = CA %IF J&X'8000' # 0 movl -2388(%ebp), %eax movl %eax, -52012(%ebp) .L146: 673 TPUT(K) movl -52012(%ebp), %eax movswl %ax, %edx subl $12, %esp leal -30288(%ebp), %eax pushl %edx movl %eax, %ecx call TPUT.6227 addl $16, %esp 674 GET(K); TPUT(K) subl $12, %esp leal -30288(%ebp), %eax leal -52012(%ebp), %edx pushl %edx movl %eax, %ecx call GET.6148 addl $16, %esp movl -52012(%ebp), %eax movswl %ax, %edx subl $12, %esp leal -30288(%ebp), %eax pushl %edx movl %eax, %ecx call TPUT.6227 addl $16, %esp 675 GET(K); TPUT(K) subl $12, %esp leal -30288(%ebp), %eax leal -52012(%ebp), %edx pushl %edx movl %eax, %ecx call GET.6148 addl $16, %esp movl -52012(%ebp), %eax movswl %ax, %edx subl $12, %esp leal -30288(%ebp), %eax pushl %edx movl %eax, %ecx call TPUT.6227 addl $16, %esp 676 GET(K); TPUT(K) subl $12, %esp leal -30288(%ebp), %eax leal -52012(%ebp), %edx pushl %edx movl %eax, %ecx call GET.6148 addl $16, %esp movl -52012(%ebp), %eax movswl %ax, %edx subl $12, %esp leal -30288(%ebp), %eax pushl %edx movl %eax, %ecx call TPUT.6227 addl $16, %esp 677 GET(K); TPUT(K) subl $12, %esp leal -30288(%ebp), %eax leal -52012(%ebp), %edx pushl %edx movl %eax, %ecx call GET.6148 addl $16, %esp movl -52012(%ebp), %eax movswl %ax, %edx subl $12, %esp leal -30288(%ebp), %eax pushl %edx movl %eax, %ecx call TPUT.6227 addl $16, %esp 678 %CONTINUE jmp .L140 .L147: 679 C(10): DIAG LINE; %CONTINUE leal -30288(%ebp), %eax movl %eax, %ecx call DIAGLINE.6222 jmp .L140 .L148: .L149: 680 C(4): 681 C(9):CURRENT LINE = CURRENT LINE+1; CFLUSH movl -2384(%ebp), %eax addl $1, %eax movl %eax, -2384(%ebp) leal -30288(%ebp), %eax movl %eax, %ecx call CFLUSH.6180 682 %CONTINUE;! LINE FLAG jmp .L140 .L150: 683 C(7):IGNORE = 0; GET(L); %CONTINUE movl $0, -51968(%ebp) subl $12, %esp leal -30288(%ebp), %eax leal -30288(%ebp), %edx addl $12, %edx pushl %edx movl %eax, %ecx call GET.6148 addl $16, %esp jmp .L140 .L151: 684 C(6):L = NL movl $10, %eax movl %eax, -30276(%ebp) 685 J = 0 movl $0, -52016(%ebp) 686 %CYCLE K = 1, 1, 9 movl $0, -52012(%ebp) .L152: movl -52012(%ebp), %eax cmpl $9, %eax jne .L153 jmp .L154 .L153: movl -52012(%ebp), %eax addl $1, %eax movl %eax, -52012(%ebp) 687 %IF L # 0 %START movl -30276(%ebp), %eax testl %eax, %eax je .L261 leal -30288(%ebp), %eax addl $12, %eax movl %eax, -51860(%ebp) .LBB171: .LBB172: subl $12, %esp pushl -51860(%ebp) call _imp_readsymbol@PLT addl $16, %esp .LBE172: .LBE171: nop .L156: 688 READSYMBOL(L) 689 J = J+1; LTEMP(J) = L movl -52016(%ebp), %eax addl $1, %eax movl %eax, -52016(%ebp) movl -52016(%ebp), %eax movl -30276(%ebp), %edx movl %edx, -51840(%ebp,%eax,4) jmp .L152 .L261: 690 %FINISH 691 %REPEAT jmp .L152 .L154: .L157: 692 READSYMBOL(L) %WHILE L # 0 movl -30276(%ebp), %eax testl %eax, %eax je .L262 leal -30288(%ebp), %eax addl $12, %eax movl %eax, -51856(%ebp) .LBB173: .LBB174: subl $12, %esp pushl -51856(%ebp) call _imp_readsymbol@PLT addl $16, %esp .LBE174: .LBE173: jmp .L154 .L262: nop .L159: 693 J = J-1; LTEMP(0) = J movl -52016(%ebp), %eax subl $1, %eax movl %eax, -52016(%ebp) movl -52016(%ebp), %eax movl %eax, -51840(%ebp) 694 LSYM(LTEMP(J)) %FOR J = 0, 1, 8 movl $-1, -52016(%ebp) .L160: movl -52016(%ebp), %eax cmpl $8, %eax je .L263 movl -52016(%ebp), %eax addl $1, %eax movl %eax, -52016(%ebp) movl -52016(%ebp), %eax movl -51840(%ebp,%eax,4), %eax movswl %ax, %edx subl $12, %esp leal -30288(%ebp), %eax pushl %edx movl %eax, %ecx call LSYM.6211 addl $16, %esp jmp .L160 .L263: nop .L162: 695 GET(K); READSYMBOL(L) subl $12, %esp leal -30288(%ebp), %eax leal -52012(%ebp), %edx pushl %edx movl %eax, %ecx call GET.6148 addl $16, %esp leal -30288(%ebp), %eax addl $12, %eax movl %eax, -51852(%ebp) .LBB175: .LBB176: subl $12, %esp pushl -51852(%ebp) call _imp_readsymbol@PLT addl $16, %esp .LBE176: .LBE175: 696 LSYM(L); LPUT(K) movl -30276(%ebp), %eax movswl %ax, %edx subl $12, %esp leal -30288(%ebp), %eax pushl %edx movl %eax, %ecx call LSYM.6211 addl $16, %esp movl -52012(%ebp), %eax movswl %ax, %edx subl $12, %esp leal -30288(%ebp), %eax pushl %edx movl %eax, %ecx call LPUT.6207 addl $16, %esp 697 %CONTINUE jmp .L140 .L163: .L164: 698 C(8): 699 C(3):! GLA -- SWITCH VECTOR ELEMENT 700 GET(L) subl $12, %esp leal -30288(%ebp), %eax leal -30288(%ebp), %edx addl $12, %edx pushl %edx movl %eax, %ecx call GET.6148 addl $16, %esp 701 %IF GA = GADDR %START movl -2392(%ebp), %edx movl -30044(%ebp), %eax cmpl %eax, %edx jne .L264 nop .L166: 702 L = GVAL movl -30052(%ebp), %eax movl %eax, -30276(%ebp) 703 NEXT GLA leal -30288(%ebp), %eax movl %eax, %ecx call NEXTGLA.6287 jmp .L166 .L264: 704 %FINISH 705 GPUT(L) movl -30276(%ebp), %eax movswl %ax, %edx subl $12, %esp leal -30288(%ebp), %eax pushl %edx movl %eax, %ecx call GPUT.6203 addl $16, %esp 706 %REPEAT jmp .L129 .L140: jmp .L129 .L167: 707 C(5):! END 708 %CYCLE J = 1, 1, MAX PERM movl $0, -52016(%ebp) .L168: movl -52016(%ebp), %eax cmpl $54, %eax je .L265 movl -52016(%ebp), %eax addl $1, %eax movl %eax, -52016(%ebp) nop .L170: 709 %IF PEP(J) # 0 %START movl -52016(%ebp), %eax subl $1, %eax addl $4, %eax movl -30284(%ebp,%eax,4), %eax testl %eax, %eax je .L266 nop jmp .L168 .L270: 710 K = PERMS(J); MONITOR(6) %IF K = 0 movl -52016(%ebp), %eax subl $1, %eax movl PERMS@GOTOFF(%ebx,%eax,4), %eax movl %eax, -52012(%ebp) movl -52012(%ebp), %eax testl %eax, %eax jne .L267 subl $12, %esp leal -30288(%ebp), %eax pushl $6 movl %eax, %ecx call MONITOR.6234 addl $16, %esp jmp .L174 .L267: nop .L174: 711 L = PADDR(J) movl -52016(%ebp), %eax subl $1, %eax movl -51052(%ebp,%eax,4), %eax movl %eax, -30276(%ebp) 712 MONITOR(7) %IF CA # L movl -2388(%ebp), %edx movl -30276(%ebp), %eax cmpl %eax, %edx je .L268 subl $12, %esp leal -30288(%ebp), %eax pushl $7 movl %eax, %ecx call MONITOR.6234 addl $16, %esp jmp .L176 .L268: nop .L176: 713 CFLUSH %IF CBP+PERMS(K) > CODE BUFF SIZE movzwl -36(%ebp), %eax movswl %ax, %edx movl -52012(%ebp), %eax subl $1, %eax movl PERMS@GOTOFF(%ebx,%eax,4), %eax addl %edx, %eax cmpl $200, %eax jle .L269 leal -30288(%ebp), %eax movl %eax, %ecx call CFLUSH.6180 jmp .L178 .L269: nop .L178: 714 { %CYCLE L = K+1, 1, K+PERMS(K) L is corrupted below!! } 715 l = k; z = k + perms(k) movl -52012(%ebp), %eax movl %eax, -30276(%ebp) movl -52012(%ebp), %eax subl $1, %eax movl PERMS@GOTOFF(%ebx,%eax,4), %edx movl -52012(%ebp), %eax addl %edx, %eax movl %eax, -51936(%ebp) .L179: 716 %while l # z %cycle movl -30276(%ebp), %eax cmpl %eax, -51936(%ebp) je .L270 nop .L184: 717 l = l+1 movl -30276(%ebp), %eax addl $1, %eax movl %eax, -30276(%ebp) 718 TAG = PERMS(L) movl -30276(%ebp), %eax subl $1, %eax movl PERMS@GOTOFF(%ebx,%eax,4), %eax movl %eax, -30272(%ebp) 719 %IF TAG = EMARK %START movl -30272(%ebp), %eax cmpl $34952, %eax jne .L271 nop .L182: 720 ! USE PC RELATIVE UNCONDITIONAL BRANCH FOR INTERNAL 721 ! LINKING BETWEEN PERM ROUTINES. 722 CPUT(X'4300') subl $12, %esp leal -30288(%ebp), %eax pushl $17152 movl %eax, %ecx call CPUT.6200 addl $16, %esp 723 L = L+1; CPUT((PADDR(PERMS(L))-CA-2)!X'8000') movl -30276(%ebp), %eax addl $1, %eax movl %eax, -30276(%ebp) movl -30276(%ebp), %eax subl $1, %eax movl PERMS@GOTOFF(%ebx,%eax,4), %eax subl $1, %eax movl -51052(%ebp,%eax,4), %eax movl %eax, %edx movl -2388(%ebp), %eax subl %eax, %edx movl %edx, %eax subl $2, %eax orw $-32768, %ax movswl %ax, %edx subl $12, %esp leal -30288(%ebp), %eax pushl %edx movl %eax, %ecx call CPUT.6200 addl $16, %esp 724 %ELSE jmp .L183 .L271: 725 CPUT(TAG) movl -30272(%ebp), %eax movswl %ax, %edx subl $12, %esp leal -30288(%ebp), %eax pushl %edx movl %eax, %ecx call CPUT.6200 addl $16, %esp .L183: 726 %FINISH 727 %REPEAT jmp .L179 .L172: .L266: 728 %FINISH 729 %REPEAT jmp .L168 .L265: 730 ! 731 CLOSE OBJECT FILE leal -30288(%ebp), %eax movl %eax, %ecx call CLOSEOBJECTFILE.6231 732 ! 733 MONITOR(9) %UNLESS CADDR = NEVER movl -30032(%ebp), %eax cmpl $32767, %eax je .L272 subl $12, %esp leal -30288(%ebp), %eax pushl $9 movl %eax, %ecx call MONITOR.6234 addl $16, %esp jmp .L186 .L272: nop .L186: 734 MONITOR(10) %UNLESS GADDR = NEVER movl -30044(%ebp), %eax cmpl $32767, %eax je .L273 subl $12, %esp leal -30288(%ebp), %eax pushl $10 movl %eax, %ecx call MONITOR.6234 addl $16, %esp jmp .L188 .L273: nop .L188: 735 SELECTOUTPUT(REPORT) subl $12, %esp pushl $0 call _imp_SELECTOUTPUT addl $16, %esp 736 DA = DA+DIAG SIZE movl -52020(%ebp), %eax movl -2400(%ebp), %edx addl %edx, %eax movl %eax, -2400(%ebp) .LBB177: 737 PRINTSTRING("CODE"); WRITE(CODE SIZE-PERM SIZE, 1) leal -38548(%ebp), %eax leal .LC2@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -49300(%ebp), %eax leal -38548(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -41876(%ebp), %eax leal -49300(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE177: .LBB178: .LBB179: subl $256, %esp movl %esp, %eax movl %eax, %edi leal -41876(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl call _imp_printstring@PLT addl $256, %esp .LBE179: .LBE178: movl -52028(%ebp), %eax subl -51956(%ebp), %eax subl $8, %esp pushl $1 pushl %eax call _imp_writeint@PLT addl $16, %esp .LBB180: 738 PRINTSTRING(" + GLA"); WRITE(GLA SIZE, 1) leal -38548(%ebp), %eax leal .LC3@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -49044(%ebp), %eax leal -38548(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -41620(%ebp), %eax leal -49044(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE180: .LBB181: .LBB182: subl $256, %esp movl %esp, %eax movl %eax, %edi leal -41620(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl call _imp_printstring@PLT addl $256, %esp .LBE182: .LBE181: movl -52024(%ebp), %eax subl $8, %esp pushl $1 pushl %eax call _imp_writeint@PLT addl $16, %esp .LBB183: 739 PRINTSTRING(" + PERM"); WRITE(PERM SIZE, 1) leal -38548(%ebp), %eax leal .LC4@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -48788(%ebp), %eax leal -38548(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -41364(%ebp), %eax leal -48788(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE183: .LBB184: .LBB185: subl $256, %esp movl %esp, %eax movl %eax, %edi leal -41364(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl call _imp_printstring@PLT addl $256, %esp .LBE185: .LBE184: subl $8, %esp pushl $1 pushl -51956(%ebp) call _imp_writeint@PLT addl $16, %esp .LBB186: 740 PRINTSTRING(" + DIAGS"); WRITE(DA, 1) leal -38548(%ebp), %eax leal .LC5@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -48532(%ebp), %eax leal -38548(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -41108(%ebp), %eax leal -48532(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE186: .LBB187: .LBB188: subl $256, %esp movl %esp, %eax movl %eax, %edi leal -41108(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl call _imp_printstring@PLT addl $256, %esp .LBE188: .LBE187: movl -2400(%ebp), %eax subl $8, %esp pushl $1 pushl %eax call _imp_writeint@PLT addl $16, %esp .LBB189: 741 PRINTSTRING(" =") leal -38548(%ebp), %eax leal .LC6@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -48276(%ebp), %eax leal -38548(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -40852(%ebp), %eax leal -48276(%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 -40852(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl call _imp_printstring@PLT addl $256, %esp .LBE191: .LBE190: 742 WRITE(CODE SIZE+GLA SIZE+DA, 1) movl -52028(%ebp), %edx movl -52024(%ebp), %eax addl %eax, %edx movl -2400(%ebp), %eax addl %edx, %eax subl $8, %esp pushl $1 pushl %eax call _imp_writeint@PLT addl $16, %esp .LBB192: 743 PRINTSTRING(" BYTES") leal -38548(%ebp), %eax leal .LC7@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -48020(%ebp), %eax leal -38548(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -40340(%ebp), %eax leal -48020(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE192: .LBB193: .LBB194: subl $256, %esp movl %esp, %eax movl %eax, %edi leal -40340(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl call _imp_printstring@PLT addl $256, %esp .LBE194: .LBE193: .LBB195: .LBB196: call _imp_newline@PLT .LBE196: .LBE195: .LBB197: .LBB198: call _imp_newline@PLT .LBE198: .LBE197: .LBB199: 744 NEWLINE 745 746 747 !%ENDOFPROGRAM; !**REMOVE FOR EXTRA MONITORING** 748 749 ! ------TEMPORARY EXTRA MONITORING------- 750 NEWLINE 751 PRINT STRING("JUMPS:") leal -38548(%ebp), %eax leal .LC8@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -47764(%ebp), %eax leal -38548(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -40596(%ebp), %eax leal -47764(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE199: .LBB200: .LBB201: subl $256, %esp movl %esp, %eax movl %eax, %edi leal -40596(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl call _imp_printstring@PLT addl $256, %esp .LBE201: .LBE200: 752 WRITE(SJ,1); PRINT STRING(" SHORT,") subl $8, %esp pushl $1 pushl -51952(%ebp) call _imp_writeint@PLT addl $16, %esp .LBB202: leal -38548(%ebp), %eax leal .LC9@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -47508(%ebp), %eax leal -38548(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -40084(%ebp), %eax leal -47508(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE202: .LBB203: .LBB204: subl $256, %esp movl %esp, %eax movl %eax, %edi leal -40084(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl call _imp_printstring@PLT addl $256, %esp .LBE204: .LBE203: 753 WRITE(RX1,1); PRINT STRING(" RX1,") movl -30284(%ebp), %eax subl $8, %esp pushl $1 pushl %eax call _imp_writeint@PLT addl $16, %esp .LBB205: leal -38548(%ebp), %eax leal .LC10@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -47252(%ebp), %eax leal -38548(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -39828(%ebp), %eax leal -47252(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE205: .LBB206: .LBB207: subl $256, %esp movl %esp, %eax movl %eax, %edi leal -39828(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl call _imp_printstring@PLT addl $256, %esp .LBE207: .LBE206: 754 WRITE(RX2,1); PRINT STRING(" RX2,") movl -30280(%ebp), %eax subl $8, %esp pushl $1 pushl %eax call _imp_writeint@PLT addl $16, %esp .LBB208: leal -38548(%ebp), %eax leal .LC11@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -46996(%ebp), %eax leal -38548(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -39572(%ebp), %eax leal -46996(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE208: .LBB209: .LBB210: subl $256, %esp movl %esp, %eax movl %eax, %edi leal -39572(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl call _imp_printstring@PLT addl $256, %esp .LBE210: .LBE209: 755 WRITE(RX3,1); PRINT STRING(" RX3") movl -30288(%ebp), %eax subl $8, %esp pushl $1 pushl %eax call _imp_writeint@PLT addl $16, %esp .LBB211: leal -38548(%ebp), %eax leal .LC12@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -46740(%ebp), %eax leal -38548(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -39060(%ebp), %eax leal -46740(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE211: .LBB212: .LBB213: subl $256, %esp movl %esp, %eax movl %eax, %edi leal -39060(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl call _imp_printstring@PLT addl $256, %esp .LBE213: .LBE212: .LBB214: .LBB215: call _imp_newline@PLT .LBE215: .LBE214: .LBB216: 756 NEWLINE 757 PRINT STRING("...INCLUDING") leal -38548(%ebp), %eax leal .LC13@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -46484(%ebp), %eax leal -38548(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -39316(%ebp), %eax leal -46484(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE216: .LBB217: .LBB218: subl $256, %esp movl %esp, %eax movl %eax, %edi leal -39316(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl call _imp_printstring@PLT addl $256, %esp .LBE218: .LBE217: 758 WRITE(PERMCALLS,1); PRINT STRING(" PERMCALLS AND") subl $8, %esp pushl $1 pushl -51976(%ebp) call _imp_writeint@PLT addl $16, %esp .LBB219: leal -38548(%ebp), %eax leal .LC14@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -46228(%ebp), %eax leal -38548(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -38804(%ebp), %eax leal -46228(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE219: .LBB220: .LBB221: subl $256, %esp movl %esp, %eax movl %eax, %edi leal -38804(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl call _imp_printstring@PLT addl $256, %esp .LBE221: .LBE220: 759 WRITE(RTNCALLS,1); PRINT STRING(" CALLS ON USER-DEFINED ROUTINES") subl $8, %esp pushl $1 pushl -51980(%ebp) call _imp_writeint@PLT addl $16, %esp .LBB222: leal -38548(%ebp), %eax leal .LC15@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -45972(%ebp), %eax leal -38548(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -38548(%ebp), %eax leal -45972(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE222: .LBB223: .LBB224: subl $256, %esp movl %esp, %eax movl %eax, %edi leal -38548(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl call _imp_printstring@PLT addl $256, %esp movl $2, -51844(%ebp) .LBE224: .LBE223: .LBB225: .LBB226: subl $12, %esp pushl -51844(%ebp) call _imp_newlines@PLT addl $16, %esp movl $0, -51848(%ebp) .LBE226: .LBE225: .LBB227: .LBB228: subl $12, %esp pushl -51848(%ebp) call exit@PLT .L207: .LBE228: .LBE227: cmpl $8, -51940(%ebp) jle .L190 .L189: movl _imp_current_line@GOT(%ebx), %eax movl (%eax), %eax testl %eax, %eax je .L191 movl _imp_current_line@GOT(%ebx), %eax movl (%eax), %eax movl %eax, -52048(%ebp) jmp .L192 .L191: movl $761, -52048(%ebp) .L192: movl _imp_current_file@GOT(%ebx), %eax movl (%eax), %eax testl %eax, %eax je .L193 movl _imp_current_file@GOT(%ebx), %eax movl (%eax), %edx leal -42644(%ebp), %eax subl $8, %esp pushl %edx pushl %eax call _imp_c2istr@PLT addl $12, %esp jmp .L194 .L193: .LBB229: leal -38548(%ebp), %eax leal .LC1@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -45716(%ebp), %eax leal -38548(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE229: leal -42644(%ebp), %eax leal -45716(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .L194: pushl -51948(%ebp) pushl -51944(%ebp) pushl -51940(%ebp) leal .LC26@GOTOFF(%ebx), %eax pushl %eax pushl -51940(%ebp) pushl $3 pushl $6 pushl -52048(%ebp) subl $256, %esp movl %esp, %eax movl %eax, %edi leal -42644(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl call _signal_eventf@PLT addl $288, %esp .L190: movl -51940(%ebp), %eax subl $1, %eax movl D.6097@GOTOFF(%ebx,%eax,4), %eax jmp .L195 .L218: cmpl $11, -51880(%ebp) jle .L197 .L196: movl _imp_current_line@GOT(%ebx), %eax movl (%eax), %eax testl %eax, %eax je .L198 movl _imp_current_line@GOT(%ebx), %eax movl (%eax), %eax movl %eax, -52048(%ebp) jmp .L199 .L198: movl $761, -52048(%ebp) .L199: movl _imp_current_file@GOT(%ebx), %eax movl (%eax), %eax testl %eax, %eax je .L200 movl _imp_current_file@GOT(%ebx), %eax movl (%eax), %edx leal -42388(%ebp), %eax subl $8, %esp pushl %edx pushl %eax call _imp_c2istr@PLT addl $12, %esp jmp .L201 .L200: .LBB230: leal -38548(%ebp), %eax leal .LC1@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -45460(%ebp), %eax leal -38548(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE230: leal -42388(%ebp), %eax leal -45460(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .L201: pushl -51888(%ebp) pushl -51884(%ebp) pushl -51880(%ebp) leal .LC27@GOTOFF(%ebx), %eax pushl %eax pushl -51880(%ebp) pushl $3 pushl $6 pushl -52048(%ebp) subl $256, %esp movl %esp, %eax movl %eax, %edi leal -42388(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl call _signal_eventf@PLT addl $288, %esp .L197: movl -51880(%ebp), %eax subl $2, %eax movl C.6109@GOTOFF(%ebx,%eax,4), %eax jmp .L195 .LFE189: PUTHALF.6152: .LFB191: 760 NEWLINES(2) 761 %ENDOFPROGRAM cmpl $0, -51940(%ebp) jle .L189 jmp .L207 .L21: ?COPYBLOCK unused ?ENTRYPOINTBLOCK unused ?NONDIAGCODEBLOCK unused ?LOADSIZE unused 678 Statements compiled