home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / computervision / kermit.sreceive < prev    next >
Text File  |  2020-01-01  |  1KB  |  54 lines
  1. ; 16 jly 84 esj; converted
  2. ;-------------------------------------< sreceive >--------------------------
  3.       E'F A:S(NWLS)
  4.       E'O SRECEIVE.
  5. ;----------------------------------------------------------------------------
  6. ;
  7. ; Purpose
  8. ;  sets up TTY line before calling for RECSW routine
  9.  
  10. ; Input
  11. ;  none
  12.  
  13. ; Output
  14. ;  none
  15.  
  16. ; Inserts
  17. /INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERCOM
  18. /INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERDEF
  19.  
  20. ; Globals
  21. ;  none
  22.  
  23. ; Locals
  24.    I'R LOGTTY(132),STATUS,X,BELL
  25.  
  26. ;---------------------------< start of code >-------------------------------
  27.  
  28.       BELL=7
  29.  
  30.       W'R (HOSTON.EQ.YES)
  31.          E'E SETRAW.(RMTDEV,LOGTTY)    ;put this TTY into RAW mode
  32.  
  33.          STATUS=RECSW.(X)
  34.  
  35.          E'E SETCOOK.(RMTDEV,LOGTTY)   ;put this TTY back into COOK mod
  36.  
  37.       O'E
  38.           E'E SETRAW.(RMTDEV,RMTTTY)   ;put this TTY into RAW mode
  39.  
  40.           STATUS=RECSW.(X)
  41.  
  42.           E'E SETCOOK.(RMTDEV,RMTTTY)  ;put TTY back into COOK mode
  43.  
  44.           E'E TYPE.(0,0)
  45.  
  46.           W'R (STATUS.EQ.YES)
  47.              E:E TYPEMSG.($File transfer COMPLETED!$)
  48.           O'E
  49.              E:E TYPEMSG.($File transfer FAILED!$)
  50.           E'L
  51.       E'L
  52.       F'N
  53.       E'N
  54.