         Edinburgh IMP77 Compiler - Version 8.4

    1  %begin
    2    %integer I, X
    3    %integername PTI
    4    PTI == X
    5    I = PTI >> 2 & 7
    6  %endofprogram

    6 Statements compiled
