; 07 AUG 85 DG IOFLAG IS PART OF UNIT ; ADDED NO WAIT I/O SUPPORT ; 18 jly 85 esj ;-------------------------------< putlin >------------------------------- E'F A:S(NWLS) E'O PUTLIN.(ALIN,UNIT) ;------------------------------------------------------------------------ ; output a line ot the specific channel ; input I'R ALIN ; line in kermit format to be output I'R UNIT(1) ; UNIT(0) unit we want to send I/O to ; UNIT(1) I/O flag for the unit ; output ; none ; local storage I'R ARGLIST(3) I'R LINE(80) ; temp line storage ; insert files /INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERDEF ;------------------------< start of executable code >----------------------- LINE(0) = 0 E'E PACK.(ALIN, LINE) ARGLIST(0) = 0 ARGLIST(1) = LINE(0) ARGLIST(2) = 0 W'R UNIT(1) .NE. 0 ; non zero means not first time through for this unit W:R TESTIO.(UNIT(1)).E.0 ;I/O IN PROGRESS FROM LAST REQUEST E:E WAITIO.(UNIT(1)) ;WAIT FOR I/O TO FINISH E:L E'L UNIT(1) = CONTROL.( UNIT, ARGLIST, LINE(1), 0 ) F'N E'N