Edinburgh IMP77 Compiler - Version 8.4


        LANG 0000
        LINE 1
     1  %endofperm; %begin
        LINE 0
        BEGIN
        LINE 1
        DEF V_0001 INTVAR
        +   0x0011
        +   0x0001
        +   0x0000
        LINE 2
     2    %integer int var
        PUSH V_0001
        PUSHI #0x00000001
        ASSVAL
        LINE 3
     3    int var = 1
        LOCATE L_0003
        PUSH V_0001
        PUSHI #0x0000000a
        JUMPIF >= L_0004
        LINE 4
     4    %while int var < 10 %cycle
        PUSH V_0001
        PUSH V_0001
        PUSHI #0x00000001
        ADD
        ASSVAL
        LINE 5
     5       int var = int var + 1
        REPEAT L_0003
        LOCATE L_0004
        LINE 6
     6    %repeat
        END
        END