PASCAL-80 Compiler V2.0            :F1:SIX3.PAS                                 Page: 1


ISIS-II PASCAL-80 Compiler V2.0 invoked by:
>[compiler] :F1:SIX3 


  Line Seg Proc Lev Disp

     1   1    1        1  { Program with external linkages - Source on SIX3.PAS }
     2   1    1        1  
     3   1    1        1  program six3;
     4   1    1        3  
     5   1    1        3    public asum;
     6   1    1        3      type range = 0..1000;
     7   1    1        3      var arslt: integer;
     8   1    2        3      function asum(a,b,c: range): integer;
     9   1    1        6    end; { asum }
    10   1    1        5  
    11   1    1        5    public psum;
    12   1    1        5      type range = 0..1000;
    13   1    1        5      var prslt: integer;
    14   1    3        3      function psum(a,b,c: range): integer;
    15   1    1        6    end;
    16   1    1        7  
    17   1    1        7    var i,j,k: range;
    18   1    1       10        result: integer;
    19   1    1   0    0    begin
    20   1    1   1    0      i := 10; j := 12; k := 14;
    21   1    1   1   30      result := asum(i,j,k);
    22   1    1   1   56      writeln(result,arslt);
    23   1    1   1   87      result := psum(i,j,k);
    24   1    1   1  113      writeln(result,prslt);
    25   1    1   0  144    end.
































PASCAL-80 Compiler V2.0            :F1:SIX3.PAS                                 Page: 2



Procedure/Function Statistics:


Name        P/F   Seg   Proc   Lev   Param Size   Local Vars   Total Data   Code Size

ASUM         F      1      2     1        10       External
PSUM         F      1      3     1        10       External
SIX3         P      1      1     0         4           16           32         158



External Symbols:


Name         Class         Size

ARSLT        Variable        2
ASUM         Function        0
PRSLT        Variable        2
PSUM         Function        0



Symbol table space remaining : 14284 bytes
25 lines compiled
No errors detected