         Edinburgh IMP77 Compiler - Version 8.4-2024.12.18

     1  %begin
 0000 C8 00 00 01                           ENTER 0000,1
     2    %integer i
     3    -> fred
 0004 EB 00                                 JMP L1001
     4  jim:
 0006                      L1002  EQU $
     5    i = 1
 0006 C7 45 F8 01 00 00 00                  MOV DWORD PTR [%EBP-8],#1
     6  fred:
 000D                      L1001  EQU $
     7    i = 2
 000D C7 45 F8 02 00 00 00                  MOV DWORD PTR [%EBP-8],#2
     8    ->fred
 0014 EB 00                                 JMP L1001
     9  %endofprogram
 0016 C9                                    LEAVE
 0017 C3                                    RET
