home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
computervision.tar.gz
/
computervision.tar
/
kermit.sreceive
< prev
next >
Wrap
Text File
|
1987-02-19
|
1KB
|
54 lines
; 16 jly 84 esj; converted
;-------------------------------------< sreceive >--------------------------
E'F A:S(NWLS)
E'O SRECEIVE.
;----------------------------------------------------------------------------
;
; Purpose
; sets up TTY line before calling for RECSW routine
; Input
; none
; Output
; none
; Inserts
/INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERCOM
/INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERDEF
; Globals
; none
; Locals
I'R LOGTTY(132),STATUS,X,BELL
;---------------------------< start of code >-------------------------------
BELL=7
W'R (HOSTON.EQ.YES)
E'E SETRAW.(RMTDEV,LOGTTY) ;put this TTY into RAW mode
STATUS=RECSW.(X)
E'E SETCOOK.(RMTDEV,LOGTTY) ;put this TTY back into COOK mod
O'E
E'E SETRAW.(RMTDEV,RMTTTY) ;put this TTY into RAW mode
STATUS=RECSW.(X)
E'E SETCOOK.(RMTDEV,RMTTTY) ;put TTY back into COOK mode
E'E TYPE.(0,0)
W'R (STATUS.EQ.YES)
E:E TYPEMSG.($File transfer COMPLETED!$)
O'E
E:E TYPEMSG.($File transfer FAILED!$)
E'L
E'L
F'N
E'N