#
#
#
#      *******************************************************
#      *                                                     *
#      *      THIS SOFTWARE WAS DEVELOPED WITH SUPPORT       *
#      *      FROM THE NATIONAL INSTITUTES OF HEALTH:        *
#      *         NIH CA06927                                 *
#      *         NIH CA22780                                 *
#      *                                                     *
#      *      DIRECT INQUIRIES TO:                           *
#      *            COMPUTER CENTER                          *
#      *            THE INSTITUTE FOR CANCER RESEARCH        *
#      *            7701 BURHOLME AVENUE                     *
#      *            PHILADELPHIA, PENNSYLVANIA   19111       *
#      *                                                     *
#      *      NO WARRANTY OR REPRESENTATION, EXPRESS OR      *
#      *      IMPLIED, IS MADE WITH RESPECT TO THE           *
#      *      CORRECTNESS, COMPLETENESS, OR USEFULNESS       *
#      *      OF THIS SOFTWARE, NOR THAT USE OF THIS         *
#      *      SOFTWARE MIGHT NOT INFRINGE PRIVATELY          *
#      *      OWNED RIGHTS.                                  *
#      *                                                     *
#      *      NO LIABILITY IS ASSUMED WITH RESPECT TO        *
#      *      THE USE OF, OR FOR DAMAGES RESULTING FROM      *
#      *      THE USE OF THIS SOFTWARE                       *
#      *                                                     *
#      *******************************************************
#      *                                                     *
#      *      THIS SOFTWARE WAS DESIGNED FOR USE ON A        *
#      *      PDP-11/70 OPERATING UNDER IAS V3.0 USING       *
#      *      THE FORTRAN-IV PLUS COMPILER.                  *
#      *                                                     *
#      *******************************************************
#
#
#
define(EFN,1)

# runsys - run a task for RSX
subroutine runsys(task, tlen, ier)
byte task(1), cmd(80)
integer tlen, ier, i, dsw, icmd, mcr(2)
common /rnsys/ runflg, iesb(8)
logical runflg
equivalence (cmd, icmd)
data runflg /.false./
data mcr /3rMCR, 3r.../
 
runflg = .false.
ier = -1
if (tlen <= 0 | tlen > 79)
  return
do i = 1,tlen
  cmd(i) = task(i)
call spawn(mcr, , , EFN, , iesb, , cmd, tlen, , , dsw)
if (dsw >= 0) {
  runflg = .true.
  ier = 0
  }
return
end

# waitsy - wait for task completion - return exit status
integer function waitsy
common /rnsys/ runflg, iesb(8)
logical runflg

if (runflg) {
  call stopfr(EFN)
  return(iesb(1))
  }
else
  return(-1)
end