Edinburgh IMP77 Compiler - Version 8.4-2024.12.18

     1  %begin
 0000 C8 00 00 01                           ENTER 0000,1
     2    %integer fred
     3    %integer %fn matched
 0004 EB 00                                 JMP L1001
 0006                      L1002  EQU $
 0006 C8 00 00 02                           ENTER 0000,2
     4      %result = 1
 000A B8 01 00 00 00                        MOV %EAX,#1
 000F C9                                    LEAVE
 0010 C3                                    RET
     5    %end
 0011                      L1001  EQU $
     6    %if matched = 1 %then fred = 1
     7  %endofprogram
 0011 E8 00 00                              CALL 'MATCHED' (INTERNAL L1002 )
 0014 3D 01 00 00 00                        CMP %EAX,#1
 0019 75 00                                 JNE L1003
 001B C7 45 F8 01 00 00 00                  MOV DWORD PTR [%EBP-8],#1
 0022                      L1003  EQU $
 0022 C9                                    LEAVE
 0023 C3                                    RET