home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
computervision.tar.gz
/
computervision.tar
/
kermit.putlin
< prev
next >
Wrap
Text File
|
1987-02-19
|
1KB
|
47 lines
; 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