C C C C ******************************************************* C * * C * THIS SOFTWARE WAS DEVELOPED WITH SUPPORT * C * FROM THE NATIONAL INSTITUTES OF HEALTH: * C * NIH CA06927 * C * NIH CA22780 * C * * C * DIRECT INQUIRIES TO: * C * COMPUTER CENTER * C * THE INSTITUTE FOR CANCER RESEARCH * C * 7701 BURHOLME AVENUE * C * PHILADELPHIA, PENNSYLVANIA 19111 * C * * C * NO WARRANTY OR REPRESENTATION, EXPRESS OR * C * IMPLIED, IS MADE WITH RESPECT TO THE * C * CORRECTNESS, COMPLETENESS, OR USEFULNESS * C * OF THIS SOFTWARE, NOR THAT USE OF THIS * C * SOFTWARE MIGHT NOT INFRINGE PRIVATELY * C * OWNED RIGHTS. * C * * C * NO LIABILITY IS ASSUMED WITH RESPECT TO * C * THE USE OF, OR FOR DAMAGES RESULTING FROM * C * THE USE OF THIS SOFTWARE * C * * C ******************************************************* C * * C * THIS SOFTWARE WAS DESIGNED FOR USE ON A * C * PDP-11/70 OPERATING UNDER IAS V3.0 USING * C * THE FORTRAN-IV PLUS COMPILER. * C * * C ******************************************************* C C C C 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 (.NOT.(TLEN .LE. 0 .OR. TLEN .GT. 79)) GOTO 2000 RETURN 2000 CONTINUE DO 2020 I = 1, TLEN CMD(I) = TASK(I) 2020 CONTINUE 2030 CONTINUE CALL SPAWN(MCR, , , 1, , IESB, , CMD, TLEN, , , DSW) IF (.NOT.(DSW .GE. 0)) GOTO 2040 RUNFLG = .TRUE. IER = 0 2040 CONTINUE RETURN END C waitsy - wait for task completion - return exit status INTEGER FUNCTION WAITSY COMMON/RNSYS/RUNFLG, IESB(8) LOGICAL RUNFLG IF (.NOT.(RUNFLG)) GOTO 2060 CALL STOPFR(1) WAITSY = (IESB(1)) RETURN 2060 CONTINUE WAITSY = ( - 1) RETURN 2070 CONTINUE END