home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / computervision / kermit.recsw < prev    next >
Text File  |  2020-01-01  |  1KB  |  50 lines
  1. ; 17 jly 85 esj converted
  2. ;;;;;;;;;;;;;             RECSW            ;;;;;;;;;;;;;;;;;;;;;;;
  3.       E'F A:S(NWLS)
  4.       E'O RECSW.(X)
  5.  
  6. ;     receive a file or a group of file from the other KERMIT
  7.  
  8. /INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERCOM
  9. /INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERDEF
  10.  
  11.       G'L XNEW,XCOUNT
  12.       I'R X,STATUS
  13.       I'R TV1,TV2,TV3,TV4
  14.  
  15.       STATUS=YES
  16.       STATE=BIGR
  17.       XNEW=YES
  18.       XCOUNT=1
  19.       N=0
  20.       NUMTRY=0
  21.       W'E (STATUS.EQ.YES)
  22. #              E'E TYPOUT.(2,'A000'.LOR.STATE)
  23. #              E'E TYPEMSG.($ is current state!$)
  24.  
  25.                W'R (STATE.EQ.BIGD)                ;read a DATA packet
  26.                   STATE=RDATA.(X)
  27.  
  28.                O'R(STATE.EQ.BIGR)           ;read a SINIT packet
  29.                    STATE=RINIT.(X)
  30.  
  31.                O'R(STATE.EQ.BIGF)           ;read a file header
  32.                    STATE=RFILE.(X)
  33.  
  34.                O'R(STATE.EQ.BIGC)           ;file transfer compl
  35.                    LCLSTATE=YES
  36.                    F'N LCLSTATE
  37.  
  38.                O'R(STATE.EQ.BIGA)           ;we got an error
  39.                    LCLSTATE=NO
  40.                    TV1=BIGE
  41.                    TV2=N
  42.                    TV3=0
  43.                    TV4=0
  44.                    E'E SPACK.(TV1,TV2,TV3,TV4)  ;send an ERROR packe
  45.                    F'N LCLSTATE                       ;file channel
  46.                E'L
  47.       E'W
  48.       F'N LCLSTATE
  49.       E'N
  50.