Edinburgh IMP77 Compiler - Version 8.4-2024.12.18

     1  %begin
 0000 C8 00 00 01                           ENTER 0000,1
     2    %routine fred(%integer i, j, k)
 0004 EB 00                                 JMP L1001
 0006                      L1002  EQU $
 0006 C8 00 00 02                           ENTER 0000,2
     3      i = j+k
 000A 8B 45 0C                              MOV %EAX,[%EBP+12]
 000D 03 45 08                              ADD %EAX,[%EBP+8]
 0010 89 45 10                              MOV [%EBP+16],%EAX
     4    %end
 0013 C9                                    LEAVE
 0014 C3                                    RET
 0015                      L1001  EQU $
     5    fred(11, 22, 33)
     6  %endofprogram
 0015 6A 0B                                 PUSH #11
 0017 6A 16                                 PUSH #22
 0019 6A 21                                 PUSH #33
 001B E8 00 00                              CALL 'FRED' (INTERNAL L1002 )
 001E 83 C4 0C                              ADD %ESP,#12
 0021 C9                                    LEAVE
 0022 C3                                    RET