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    %for fred = 1, 10, jim %cycle
        PUSH V_0001
        PUSHI #0x0000000a
        PUSH V_0002
        PUSHI #0x00000001
        FOR L_0003
        LINE 4
     4      %if i = 99 %then %exit
        PUSH V_0003
        PUSHI #0x00000063
        JUMPIF # L_0007
        GOTO L_0004
        LOCATE L_0007
        LINE 5
     5    %repeat
        REPEAT L_0003
        LOCATE L_0004
        LINE 6
     6  %endofprogram
        END
        END