{

 History
 -------

 04/11/85 - Delete outdated documentation. First 
            implementation. (agh)

                                                                     }
{

                          Module 25


                      Program Parameters



                                                                     }

program ProgParams;
  
#include "globals.x"
#include "varref.pf"
#include "codeutils.pf"
#include "eput.pf"

  procedure OpenProgParameterList;
    visible;
    
    begin  end { openprogparameterlist };
  
  procedure AcceptProgParameter(ParamId: IdEntry);
    visible;

    var ParamEntry: StackEntry;
    
    begin
      if CodeIsToBeGenerated
      then
        with ParamId^ do
          begin
            StartCall(p_bindf);
            StackReference(false, VarAddress);
            Pop(ParamEntry);
            PushAddress(ParamEntry);
            CallStdrd(p_bindf)
          end
    end { acceptprogparameter };
  
  procedure ReturnProgParameter(ParamId: IdEntry);
    visible;
    
    begin  end;
  
  procedure ClsProgParameterList;
    visible;
    
    begin  end;
  
  begin 
  { end of module }
  end.