home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / computervision / kermit.sendsw < prev    next >
Text File  |  2020-01-01  |  2KB  |  63 lines
  1. ; 16 jly 5 esj converted
  2. ;;;;;;;;;;;       SENDSW          ;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3.       E'F A:S(NWLS)
  4.       E'O SENDSW.(X)
  5.  
  6. ;     send this group of files
  7.  
  8. /INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERCOM
  9. /INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERDEF
  10.  
  11.       G'L XNEW,XCOUNT,XEOF
  12.  
  13.       I'R SDATA,SFILE,SEOF,SINIT,SBREAK
  14.       I'R TV1,TV2,TV3,TV4
  15.  
  16.       STATE=BIGS
  17.       XNEW=YES
  18.       XCOUNT=1
  19.       XEOF=NO
  20.       N=0
  21.       NUMTRY=0
  22.       STATUS=YES
  23.  
  24.       W'E (STATUS.EQ.YES)
  25. #              E'E TYPOUT.(2,'A000'.LOR.STATE)
  26. #              E'E TYPEMSG.($ is current state!$)
  27.  
  28.                W'R (STATE.EQ.BIGD)                 ;send a data packet
  29.                   STATE=SDATA.(X)
  30.  
  31.                O'R (STATE.EQ.BIGF)            ;send a file header
  32.                        STATE=SFILE.(X)
  33.  
  34.                O'R (STATE.EQ.BIGZ)            ;send a EOF header
  35.                        STATE=SEOF.(X)
  36.  
  37.                O'R (STATE.EQ.BIGS)            ;send a SINIT packe
  38.                        STATE=SINIT.(X)
  39.  
  40.                O'R (STATE.EQ.BIGB)            ;send a BREAK packe
  41.                        STATE=SBREAK.(X)
  42.  
  43.                O'R (STATE.EQ.BIGC)
  44.                        LCLSTAT=YES                    ;file transfer comp
  45.                        B'K
  46.  
  47.                O'R (STATE.EQ.BIGA)            ;file transfer fail
  48.                        LCLSTAT=NO
  49.                        TV1=BIGE
  50.                        TV2=N
  51.                        TV3=0
  52.                        TV4=0
  53.                        E'E SPACK.(TV1,TV2,TV3,TV4)  ;send a ERROR packet
  54.                        B'K
  55.  
  56.                 O'E
  57.                      STATUS=NO
  58.                      LCLSTAT=NO                      ;file transfer failu
  59.                 E'L
  60.       E'W
  61.       F'N LCLSTAT
  62.       E'N
  63.