Edinburgh IMP77 Compiler - Version 8.4-2024.12.18

     1  %begin
 0000 C8 00 00 01                           ENTER 0000,1
     2    %routinespec jim
     3    %integer i
     4    i = 1
 0004 C7 45 F8 01 00 00 00                  MOV DWORD PTR [%EBP-8],#1
     5    %routine jim
 000B EB 00                                 JMP L1002
 000D                      L1001  EQU $
 000D C8 00 00 02                           ENTER 0000,2
     6      i = 2
 0011 8B 75 FC                              MOV %ESI,[%EBP-4]
 0014 C7 46 F8 02 00 00 00                  MOV DWORD PTR [%ESI-8],#2
     7    %end
 001B C9                                    LEAVE
 001C C3                                    RET
 001D                      L1002  EQU $
     8  %endofprogram
?JIM unused

     8 Statements compiled
 001D C9                                    LEAVE
 001E C3                                    RET