         Edinburgh IMP77 Compiler - Version 8.4

    1  %begin
    2    %integerfn sigval
    3      %result = 8
    4    %end
    5    
    6    %routine report(%integer a, b, c)
    7    %end
?C unused
?B unused
?A unused
    8    
    9    %constinteger internerr = 23, fail = 7
   10    %integer item = 43
   11    
   12    report(internerr,0,6) %and %signal fail %if item <= 0
   13  
   14    %signal 9, sigval
   15    
   16  %endofprogram

   11 Statements compiled
