; 16 jly 85 esj converted
;;;;;;;;;;;;;       SBREAK       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
      E'F A:S(NWLS)
      E'O SBREAK.(X)

;     send the break packet to signify the end of transmissions

/INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERCOM
/INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERDEF

      I'R NUM,LEN,STATUS,X,TNUM
      I'R TV1,TV2,TV3

      W'R (NUMTRY.GT.MAXTRY)
         LCLSTATE=BIGA                             ;exceeded max. # of re-
         F'N LCLSTATE                                  ;gives up
      O'E
          NUMTRY=NUMTRY+1                        ;try it again
      E'L

      TNUM=N
      TV1=BIGB
      TV2=0
      TV3=0
      E'E SPACK.(TV1,TNUM,TV2,TV3)
      STATUS=RPACK.(LEN,NUM,RECPKT)

      W'R (STATUS.EQ.BIGN)                     ;we got a NAK packet
         W'R (N.NE.(NUM-1))
            LCLSTATE=STATE
            F'N LCLSTATE
          E'L

      O'R (STATUS.EQ.BIGY)                ;we got a ACK packet
              W'R (N.NE.NUM)
                 LCLSTATE=STATE                    ;but it is out of seque
                 F'N LCLSTATE
              E'L
              NUMTRY=0
              N=(N+1).MOD.64
              LCLSTATE=BIGC                        ;change state to comple
              F'N LCLSTATE                             ;status

      O'R (STATUS.EQ.BAD)
              LCLSTATE=STATE
              F'N LCLSTATE

      O'E
           LCLSTATE=BIGA                           ;receive unknown packet
      E'L                                      ;type or error packet
      F'N LCLSTATE
      E'N