home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
computervision.zip
/
kermit.tputch
< prev
next >
Wrap
Text File
|
1987-02-19
|
1KB
|
48 lines
; 15-AUG-85 MVI: CHANGED NO IOFLAG VALUE FROM 0 TO -1.
; 07 AUG 85 DG IOFLAG IS PART OF UNIT
; 06 AUG 85 DG ADDED NO WAIT I/O SUPPORT
; 17 jly 85 esj converted
;;;;;;;;;;;;;; TPUTCH ;;;;;;;;;;;;;;;;;;;;;;;;
E'F A:S(NWLS)
E'O TPUTCH.(XCHAR, UNIT)
; PURPOSE
; output a char to the TTY line
; INPUT
I'R XCHAR ; char output- char in lo byte
I'R UNIT(1) ; UNIT(0) unit we want to send char to
; UNIT(1) I/O flag for the unit
; OUTPUT
; none
; LOCAL STORAGE
I'R ARGLIST(2)
I'R CHAR ; local char temp
;------------------------< start of executable code >-----------------------
# E'E TYPE.(2,UNIT)
# E'E HEXDMP.(0,0,0,XCHAR)
ARGLIST(0) = 0
ARGLIST(1) = 1
ARGLIST(2) = 0
CHAR = XCHAR .LSH. 8
W'R UNIT(1) .NE. -1
; -1 means 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, CHAR, '0001') ;NO WAIT I/O
F'N
E'N