Edinburgh IMP77 Compiler - Version 8.4-2024.12.18

     1  %begin
 0000 C8 00 00 01                           ENTER 0000,1
     2    %routine zero(%integer i)
 0004 EB 00                                 JMP L1001
 0006                      L1002  EQU $
 0006 C8 00 00 02                           ENTER 0000,2
     3      ! Bug: %end generates a "return(0)" instead of "return"
     4    %end
 000A C9                                    LEAVE
 000B C3                                    RET
 000C                      L1001  EQU $
?I unused
     5  
     6    zero(1)
 000C 6A 01                                 PUSH #1
 000E E8 00 00                              CALL 'ZERO' (INTERNAL L1002 )
 0011 83 C4 04                              ADD %ESP,#4
     7  
     8  %endofprogram
 0014 C9                                    LEAVE
 0015 C3                                    RET