//
//  Module:       pumad.slt
//  Version:      1.0
//  Description:  PUMA protocol upload script for Telix
//                Includes appropriate port, speed, and file names in the PUMA
//                command-line.
//  Author:       Paul Roub
//

//<f>
main()
{
  str     CmdLine[128];
  str     BaudStr[7];
  str     PortStr[2];

  itos(get_baud(), BaudStr);
  itos(get_port(), PortStr);

  CmdLine = "P";
  strcat(CmdLine, PortStr);

  strcat(CmdLine, " S");
  strcat(CmdLine, BaudStr);

  strcat(CmdLine, " S ");
  strcat(CmdLine, _ext_filespec);

  run("puma", CmdLine, 0);

  return;
}