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 ROUTINE TO SPAWN A TASK ON DEVICE NL0 AND PASS IT A COMMAND LINE C N.B. THIS TASK MUST BE RUNNING ON TI OF NL0 TO SPAWN ON NL0 IMPLICIT INTEGER (A - Z) DIMENSION RECMES(48),TASK(2),IOP(4),COMLIN(40) EQUIVALENCE (TASK,RECMES(3)),(IOP,RECMES(5)),(COMLEN,RECMES(9)), 1 (COMLIN,RECMES(10)) C C RECEIVE MESSAGE OR STOP 10 CONTINUE CALL VRECST(,RECMES,46,TI,,DSW) IF(DSW-1)10,20,10 C C GOT MESSAGE SPAWN REQUESTED TASK AND PASS IT A COMMAND LINE C FIRST MAKE OUR TI PRIVILEDGED AND OF THE REQUESTED UIC 20 CONTINUE UIC = IOP(4) IF(UIC.EQ.0)UIC = "401 CALL TIPRIV(0,UIC) 25 CONTINUE CALL SPAWN(TASK,IOP,1,,COMLIN,COMLEN,,DSW) IF(DSW.GE.0)GOTO 30 CALL WAIT(1,2,DSW) GOTO 25 C C WAIT FOR SPAWNED TASK TO EXIT 30 CONTINUE CALL STOPFR(1) C C SEND COMPLETION MESSAGE TO SENDER AND RESTORE TI STATUS C CALL TIPRIV(1) CALL VSNDRR(RECMES,,0,,1,,TI,DSW) GOTO 10 END