Edinburgh IMP77 Compiler - Version 8.4


        LANG 0000
        LINE 1
     1  %begin
        BEGIN
        LINE 2
     2    %integer fred, jim, i
        DEF V_0001 FRED
        +   0x0011
        +   0x0001
        +   0x0000
        DEF V_0002 JIM
        +   0x0011
        +   0x0001
        +   0x0000
        DEF V_0003 I
        +   0x0011
        +   0x0001
        +   0x0000
        LINE 3
     3    %while fred < jim %cycle
        LOCATE L_0003
        PUSH V_0001
        PUSH V_0002
        JUMPIF >= L_0004
        LINE 4
     4      %if i = 55 %then %continue
        PUSH V_0003
        PUSHI #0x00000037
        JUMPIF # L_0007
        GOTO L_0005
        LOCATE L_0007
        LINE 5
     5      %if i = 99 %then %exit
        PUSH V_0003
        PUSHI #0x00000063
        JUMPIF # L_0007
        GOTO L_0004
        LOCATE L_0007
        LINE 6
     6      i = i+1
        PUSH V_0003
        PUSH V_0003
        PUSHI #0x00000001
        ADD
        ASSVAL
        LINE 7
     7    %repeat
        LOCATE L_0005
        REPEAT L_0003
        LOCATE L_0004
        LINE 8
     8  %endofprogram
        END
        END