C SERIOS SERIAL MUX DRIVER FOR SETA SUBROUTINE SERIO(LUN,IEF,ICHAR,NCHAR,MODE,IERR) C C LUN = A LUN TO BE ASSIGNED TO SEN: C IEF = AN AVAILABLE EVENT FLAG FOR USE ONLY IN THIS ROUTINE C ICHAR = CHAR TO BE SENT OR RECD C NCHAR = # OF CHARS TO BE SENT OR RECD C MODE = 0 TO RECEIVE, ELSE SEND C IERR = 0 IF OK; <0 RETURNS DIR OR QIO ERROR CODE C BYTE ISTB DIMENSION IPM(6),ISB(2) EQUIVALENCE (ISB(1),ISTB) C IERR=0 CALL GETADR(IPM(1),ICHAR) IPM(2)=NCHAR IFN = "400 IF (MODE .EQ. 0) IFN = "1000 CALL WTQIO(IFN,LUN,IEF,,ISB,IPM,IDS) IF (IDS .LT. 0) GO TO 90 IF (ISTB.LT.0) GO TO 91 RETURN C 90 IERR=IDS RETURN C 91 IERR=ISTB RETURN END