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      ! This is actually a Robertson pass1 bug: if (&i != &0) ...
     4      ! == should not be allowed against simple integers
     5      %if i==0 %start
     6      %finish
     7    %end
 000A                      L138081664  EQU $
     8  
     9    zero(1)
    10  
    11  %endofprogram