{ TUFILES:  File opening for program generation. }

  {*****************}
  function OPENSFILE:  boolean;
    { the sfile is the source file }
  begin
    opensfile:=openfile(sfile, sfilename, false);
    end;

  {*****************}
  function OPENRFILE:  boolean;
    { the gfile is the target assembler file }
  begin
    openrfile:=openfile(rfile, rfilename, true);
    end;

  {*******************}
  procedure CLOSEFILES;
  begin
    close(sfile);
    close(rfile);
    end;