; 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