         Edinburgh IMP77 Compiler - Version 8.4-2024.12.18

     1  %begin
 0000 C8 00 00 01                           ENTER 0000,1
     2    %integerfn fred(%integer i, j, k)
 0004 EB 00                                 JMP L1001
 0006                      L1002  EQU $
 0006 C8 00 00 02                           ENTER 0000,2
     3      %result = i+j+k
 000A 8B 45 10                              MOV %EAX,[%EBP+16]
 000D 03 45 0C                              ADD %EAX,[%EBP+12]
 0010 03 45 08                              ADD %EAX,[%EBP+8]
 0013 C9                                    LEAVE
 0014 C3                                    RET
     4    %end
 0015                      L1001  EQU $
     5    %integer q
     6    q = fred (1, 2, 3)
 0015 6A 01                                 PUSH #1
 0017 6A 02                                 PUSH #2
 0019 6A 03                                 PUSH #3
 001B E8 00 00                              CALL 'FRED' (INTERNAL L1002 )
 001E 83 C4 0C                              ADD %ESP,#12
 0021 89 45 F8                              MOV [%EBP-8],%EAX
     7    q = fred (fred(1, 2, 3), 4, 5)
 0024 6A 01                                 PUSH #1
 0026 6A 02                                 PUSH #2
 0028 6A 03                                 PUSH #3
 002A E8 00 00                              CALL 'FRED' (INTERNAL L1002 )
 002D 83 C4 0C                              ADD %ESP,#12
 0030 50                                    PUSH %EAX
 0031 6A 04                                 PUSH #4
 0033 6A 05                                 PUSH #5
 0035 E8 00 00                              CALL 'FRED' (INTERNAL L1002 )
 0038 83 C4 0C                              ADD %ESP,#12
 003B 89 45 F8                              MOV [%EBP-8],%EAX
     8    q = fred (1, fred(2,3,4), 5)
 003E 6A 01                                 PUSH #1
 0040 6A 02                                 PUSH #2
 0042 6A 03                                 PUSH #3
 0044 6A 04                                 PUSH #4
 0046 E8 00 00                              CALL 'FRED' (INTERNAL L1002 )
 0049 83 C4 0C                              ADD %ESP,#12
 004C 50                                    PUSH %EAX
 004D 6A 05                                 PUSH #5
 004F E8 00 00                              CALL 'FRED' (INTERNAL L1002 )
 0052 83 C4 0C                              ADD %ESP,#12
 0055 89 45 F8                              MOV [%EBP-8],%EAX
     9    q = fred (1, 2, fred(3,4,5))
 0058 6A 01                                 PUSH #1
 005A 6A 02                                 PUSH #2
 005C 6A 03                                 PUSH #3
 005E 6A 04                                 PUSH #4
 0060 6A 05                                 PUSH #5
 0062 E8 00 00                              CALL 'FRED' (INTERNAL L1002 )
 0065 83 C4 0C                              ADD %ESP,#12
 0068 50                                    PUSH %EAX
 0069 E8 00 00                              CALL 'FRED' (INTERNAL L1002 )
 006C 83 C4 0C                              ADD %ESP,#12
 006F 89 45 F8                              MOV [%EBP-8],%EAX
    10    q = fred (fred(1,2,3), fred(4,5,6), 7)
 0072 6A 01                                 PUSH #1
 0074 6A 02                                 PUSH #2
 0076 6A 03                                 PUSH #3
 0078 E8 00 00                              CALL 'FRED' (INTERNAL L1002 )
 007B 83 C4 0C                              ADD %ESP,#12
 007E 50                                    PUSH %EAX
 007F 6A 04                                 PUSH #4
 0081 6A 05                                 PUSH #5
 0083 6A 06                                 PUSH #6
 0085 E8 00 00                              CALL 'FRED' (INTERNAL L1002 )
 0088 83 C4 0C                              ADD %ESP,#12
 008B 50                                    PUSH %EAX
 008C 6A 07                                 PUSH #7
 008E E8 00 00                              CALL 'FRED' (INTERNAL L1002 )
 0091 83 C4 0C                              ADD %ESP,#12
 0094 89 45 F8                              MOV [%EBP-8],%EAX
    11    q = fred (fred(1,2,3), 4, fred(5,6,7))
 0097 6A 01                                 PUSH #1
 0099 6A 02                                 PUSH #2
 009B 6A 03                                 PUSH #3
 009D E8 00 00                              CALL 'FRED' (INTERNAL L1002 )
 00A0 83 C4 0C                              ADD %ESP,#12
 00A3 50                                    PUSH %EAX
 00A4 6A 04                                 PUSH #4
 00A6 6A 05                                 PUSH #5
 00A8 6A 06                                 PUSH #6
 00AA 6A 07                                 PUSH #7
 00AC E8 00 00                              CALL 'FRED' (INTERNAL L1002 )
 00AF 83 C4 0C                              ADD %ESP,#12
 00B2 50                                    PUSH %EAX
 00B3 E8 00 00                              CALL 'FRED' (INTERNAL L1002 )
 00B6 83 C4 0C                              ADD %ESP,#12
 00B9 89 45 F8                              MOV [%EBP-8],%EAX
    12    q = fred (1, fred(2,3,4), fred(5,6,7))
 00BC 6A 01                                 PUSH #1
 00BE 6A 02                                 PUSH #2
 00C0 6A 03                                 PUSH #3
 00C2 6A 04                                 PUSH #4
 00C4 E8 00 00                              CALL 'FRED' (INTERNAL L1002 )
 00C7 83 C4 0C                              ADD %ESP,#12
 00CA 50                                    PUSH %EAX
 00CB 6A 05                                 PUSH #5
 00CD 6A 06                                 PUSH #6
 00CF 6A 07                                 PUSH #7
 00D1 E8 00 00                              CALL 'FRED' (INTERNAL L1002 )
 00D4 83 C4 0C                              ADD %ESP,#12
 00D7 50                                    PUSH %EAX
 00D8 E8 00 00                              CALL 'FRED' (INTERNAL L1002 )
 00DB 83 C4 0C                              ADD %ESP,#12
 00DE 89 45 F8                              MOV [%EBP-8],%EAX
    13    q = fred (fred(1,2,3), fred(4,5,6), fred(7,8,9))
 00E1 6A 01                                 PUSH #1
 00E3 6A 02                                 PUSH #2
 00E5 6A 03                                 PUSH #3
 00E7 E8 00 00                              CALL 'FRED' (INTERNAL L1002 )
 00EA 83 C4 0C                              ADD %ESP,#12
 00ED 50                                    PUSH %EAX
 00EE 6A 04                                 PUSH #4
 00F0 6A 05                                 PUSH #5
 00F2 6A 06                                 PUSH #6
 00F4 E8 00 00                              CALL 'FRED' (INTERNAL L1002 )
 00F7 83 C4 0C                              ADD %ESP,#12
 00FA 50                                    PUSH %EAX
 00FB 6A 07                                 PUSH #7
 00FD 6A 08                                 PUSH #8
 00FF 6A 09                                 PUSH #9
 0101 E8 00 00                              CALL 'FRED' (INTERNAL L1002 )
 0104 83 C4 0C                              ADD %ESP,#12
 0107 50                                    PUSH %EAX
 0108 E8 00 00                              CALL 'FRED' (INTERNAL L1002 )
 010B 83 C4 0C                              ADD %ESP,#12
 010E 89 45 F8                              MOV [%EBP-8],%EAX
    14  %endofprogram
 0111 C9                                    LEAVE
 0112 C3                                    RET
