BYTE BUFFER,BPARAM,TTNO,FLGS 00044 REAL TLK 00045 DIMENSION BUFFER(80),BPARAM(2),ITNAME(2),IPRM(5),ISTAT(2) 00047 EQUIVALENCE (BPARAM(1),IPARAM),(TTNO,BPARAM(1)),(FLGS,BPARAM(2)) 00049 EQUIVALENCE (ITNAME(1),TNAME) 00050 DATA TLK /6R...TLK/ 00052 DATA IORVB /"010400/ 00053 WRITE(2,2000) 00063 2000 FORMAT(' ENTER DESTINATION TASK NAME ( FOR DEFAULT)') 00064 READ(1,1000) IQ,BUFFER 00065 1000 FORMAT(Q,80A1) 00066 IF (IQ.GT.6) IQ=6 00067 IF(.NOT.(IQ.EQ.0)) GO TO 32757 00068 TNAME=TLK 00068 GO TO 32758 00068 32757 TNAME=IRAD50(IQ,BUFFER,TNAME) 00069 32758 WRITE(2,2001) 00073 2001 FORMAT(' ENTER TT NUMBER OF DESTINATION TASK ( IF NONE)') 00074 READ(1,1001) IQ,TTNO 00075 1001 FORMAT(Q,I2) 00076 IF(.NOT.(IQ.EQ.0)) GO TO 32755 00077 TTNO=0 00077 GO TO 32756 00077 32755 TTNO=TTNO+1 00078 32756 WRITE(2,2002) 00082 2002 FORMAT(' ENTER FLAG BYTE:'/' BIT 0 SET IF DESTINATION TASK', 00083 1 ' MUST BE INSTALLED'/' BIT 1 SET IF COMPLIMENTARY QIO', 00084 2 ' MUST HAVE BEEN ISSUED') 00085 READ(1,1002) IQ,FLGS 00086 1002 FORMAT(Q,I3) 00087 IF (IQ.EQ.0) FLGS=0 00088 1 CONTINUE 00096 WRITE(2,2003) 00097 2003 FORMAT(' WAITING FOR MESSAGE . . .') 00098 CALL GETADR(IPRM(1),BUFFER) 00099 IPRM(2)=60 00100 IPRM(3)=ITNAME(1) 00101 IPRM(4)=ITNAME(2) 00102 IPRM(5)=IPARAM 00103 CALL WTQIO(IORVB,3,1,,ISTAT,IPRM) 00104 WRITE(2,2004) ISTAT 00105 2004 FORMAT(' I/O STATUS DOUBLE WORD = 'O6,1X,O6) 00106 IF (ISTAT(1).EQ.1) WRITE(2,2005) (BUFFER(I),I=1,ISTAT(2)) 00107 2005 FORMAT(1X,80A1) 00108 GO TO 1 00109 END 00110