home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / computervision / kermit.tgetch < prev    next >
Text File  |  2020-01-01  |  1KB  |  50 lines
  1. ; 29 jly 85 esj added timeout support
  2. ; 17 jly 85 esj converted
  3. ;;;;;;;;;;;         TGETCH                 ;;;;;;;;;;;;
  4.       E'F A:S(NWLS)
  5.       E'O TGETCH.(XCHAR,UNIT)
  6.  
  7. ;  PURPOSE
  8. ;     get a CHAR from the TTY without echoing it
  9.  
  10. ; INPUT
  11. ;  none
  12.  
  13. ; OUTPUT
  14.    I'R XCHAR   ; char output- char in lo byte
  15.    I'R UNIT    ; unit we expect input from
  16.  
  17. ; LOCAL STORAGE
  18.    I'R TYPE    ; type of input from tis
  19.    I'R COUNT   ; count of char input from tis
  20.    I'R CHBUF   ; buffer of char input from tis
  21.    I'R TISUNIT ; unit the input came from
  22.  
  23. ; global
  24.    G'L TIMEOUT(1)
  25.    G'L LOCALDEV
  26.    G'L HOSTON
  27.  
  28. /INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERDEF
  29.  
  30. #  E'E TYPOUT.( 2,UNIT )
  31. #  E'E TYPEMSG.($ <--- UNIT TO GET INPUT FROM!$ )
  32.  
  33.    R'T
  34.  
  35.       E'E INPUT.(TISUNIT, TYPE, COUNT, CHBUF)
  36.  
  37.       W'R HOSTON .E. NO .AND. TISUNIT .E. LOCALDEV
  38. ;     we probably hung, so abort to rpack as a bad packet
  39.          E'E LBLGO.(TIMEOUT)
  40.       E'L
  41.  
  42.    U'L UNIT .E. TISUNIT
  43.  
  44. #  E'E TYPEHEX.(CHBUF)
  45.  
  46.    XCHAR = CHBUF .LAND. '7F'X
  47.  
  48.    F'N OK
  49.    E'N
  50.