BYTE BUFFER,BPARAM,TTNO,FLGS 00044 REAL LSN 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 LSN /6R...LSN/ 00052 DATA IOWVB /"011000/ 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=LSN 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(' ENTER MESSAGE:') 00098 READ(1,1000) IQ,BUFFER 00099 CALL GETADR(IPRM(1),BUFFER) 00100 IPRM(2)=IQ 00101 IPRM(3)=ITNAME(1) 00102 IPRM(4)=ITNAME(2) 00103 IPRM(5)=IPARAM 00104 CALL WTQIO(IOWVB,3,1,,ISTAT,IPRM) 00105 WRITE(2,2004) ISTAT 00106 2004 FORMAT(' I/O STATUS DOUBLE WORD = 'O6,1X,O6) 00107 GO TO 1 00108 END 00109