home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / computervision / kermit.putlin < prev    next >
Text File  |  2020-01-01  |  1KB  |  47 lines
  1. ; 07 AUG 85 DG IOFLAG IS PART OF UNIT
  2. ;              ADDED NO WAIT I/O SUPPORT
  3. ; 18 jly 85 esj
  4. ;-------------------------------< putlin >-------------------------------
  5.    E'F A:S(NWLS)
  6.    E'O PUTLIN.(ALIN,UNIT)
  7. ;------------------------------------------------------------------------
  8. ;     output a line ot the specific channel
  9.  
  10. ; input
  11.    I'R ALIN       ; line in kermit format to be output
  12.    I'R UNIT(1)    ; UNIT(0) unit we want to send I/O to
  13.                   ; UNIT(1) I/O flag for the unit
  14.  
  15. ; output
  16. ;  none
  17.  
  18. ; local storage
  19.    I'R ARGLIST(3)
  20.    I'R LINE(80)               ; temp line storage
  21.  
  22. ; insert files
  23. /INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERDEF
  24.  
  25.  
  26. ;------------------------< start of executable code >-----------------------
  27.  
  28.    LINE(0) = 0
  29.    E'E PACK.(ALIN, LINE)
  30.  
  31.    ARGLIST(0) = 0
  32.    ARGLIST(1) = LINE(0)
  33.    ARGLIST(2) = 0
  34.  
  35.    W'R UNIT(1) .NE. 0
  36. ;     non zero means not first time through for this unit
  37.  
  38.       W:R TESTIO.(UNIT(1)).E.0     ;I/O IN PROGRESS FROM LAST REQUEST
  39.          E:E WAITIO.(UNIT(1))      ;WAIT FOR I/O TO FINISH
  40.       E:L
  41.    E'L
  42.  
  43.    UNIT(1) = CONTROL.( UNIT, ARGLIST, LINE(1), 0 )
  44.  
  45.    F'N
  46.    E'N
  47.