home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / computervision / kermit.tputch < prev    next >
Text File  |  2020-01-01  |  1KB  |  48 lines
  1. ; 15-AUG-85 MVI: CHANGED NO IOFLAG VALUE FROM 0 TO -1.
  2. ; 07 AUG 85 DG IOFLAG IS PART OF UNIT
  3. ; 06 AUG 85 DG ADDED NO WAIT I/O SUPPORT
  4. ; 17 jly 85 esj converted
  5. ;;;;;;;;;;;;;;          TPUTCH          ;;;;;;;;;;;;;;;;;;;;;;;;
  6.       E'F A:S(NWLS)
  7.       E'O TPUTCH.(XCHAR, UNIT)
  8.  
  9. ;  PURPOSE
  10. ;     output a char to the TTY line
  11.  
  12. ; INPUT
  13.    I'R XCHAR   ; char output- char in lo byte
  14.    I'R UNIT(1) ; UNIT(0) unit we want to send char to
  15.                ; UNIT(1) I/O flag for the unit
  16.  
  17. ; OUTPUT
  18. ;  none
  19.  
  20.  
  21. ; LOCAL STORAGE
  22.    I'R ARGLIST(2)
  23.    I'R CHAR          ; local char temp
  24.  
  25. ;------------------------< start of executable code >-----------------------
  26.  
  27. #   E'E TYPE.(2,UNIT)
  28. #   E'E HEXDMP.(0,0,0,XCHAR)
  29.  
  30.    ARGLIST(0) = 0
  31.    ARGLIST(1) = 1
  32.    ARGLIST(2) = 0
  33.  
  34.    CHAR = XCHAR .LSH. 8
  35.  
  36.    W'R UNIT(1) .NE. -1
  37. ;     -1 means first time through for this unit
  38.  
  39.      W:R TESTIO.(UNIT(1)).E.0     ;I/O IN PROGRESS FROM LAST REQUEST
  40.         E:E WAITIO.(UNIT(1))      ;WAIT FOR I/O TO FINISH
  41.      E:L
  42.    E'L
  43.  
  44.    UNIT(1) = CONTROL.( UNIT, ARGLIST, CHAR, '0001')  ;NO WAIT I/O
  45.  
  46.    F'N
  47.    E'N
  48.