Edinburgh IMP77 Compiler - Version 8.4-2024.12.18

     1  %begin
 0000 C8 00 00 01                           ENTER 0000,1
     2    %integermap fred
 0004 EB 00                                 JMP L1001
 0006                      L1002  EQU $
 0006 C8 00 00 02                           ENTER 0000,2
     3      %owninteger jim = 1
     4      %result == jim
 000A B8 00 00 00 00                        MOV %EAX,DATA+#0
 000F C9                                    LEAVE
 0010 C3                                    RET
     5    %end
 0011                      L1001  EQU $
     6    %if fred = 1 %then %stop
     7  %endofprogram
 0011 E8 00 00                              CALL 'FRED' (INTERNAL L1002 )
 0014 8B 00                                 MOV %EAX,[%EAX]
 0016 3D 01 00 00 00                        CMP %EAX,#1
 001B 75 00                                 JNE L1003
 001D B8 06 00 00 00                        MOV %EAX,#6
 0022 50                                    PUSH %EAX
 0023 31 C0                                 XOR %EAX,%EAX
 0025 50                                    PUSH %EAX
 0026 31 C0                                 XOR %EAX,%EAX
 0028 50                                    PUSH %EAX
 0029 31 C0                                 XOR %EAX,%EAX
 002B 50                                    PUSH %EAX
 002C E8 0B 00                              CALL '_IMPSIGNAL' (EXTERN 11)
 002F 83 C4 10                              ADD %ESP,#16
 0032                      L1003  EQU $
 0032 C9                                    LEAVE
 0033 C3                                    RET