; 18 jly 85 esj removed send @filename support
; 16 jly 85 esj converted
;;;;;;;;;;;           SINIT          ;;;;;;;;;;;;;;;;;;;;;;;;;;
      E'F A:S(NWLS)
      E'O SINIT.(X)

;     send an initial packet for the first connection
;     state what my parameters are

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

      I'R NUM,LEN,STATUS,LCLSTATE,TNUM
      I'R AONE,BONE,TV1,TV2


      W'R (NUMTRY.GT.MAXTRY)
         LCLSTATE=BIGA        ;exceeded max # of re-try , give up

      O'E
         NUMTRY=NUMTRY+1     ;try it again


         AONE=1
         BONE=1
         E'E SPAR.(PACKET)                   ;get my requirement parameters
#        E'E HEXDMP.(1,11,1,PACKET)
         TNUM=N
         TV1=BIGS
         TV2=6
         E'E SPACK.(TV1,TNUM,TV2,PACKET)     ;send my parameters requiremen
         STATUS=RPACK.(LEN,NUM,RECPKT)        ;what was the reply ??

#        E'E TYPOUT.(2,'A000'.LOR.STATUS)
#        E'E TYPEMSG.($  got dis status!$)

         W'R (STATUS.EQ.BIGN)              ;NAK it
               LCLSTATE=STATE                   ;try it again

         O'R (STATUS.EQ.BIGY)         ;ACK it
            W'R (N.NE.NUM)            ;but it was for the previous p
               LCLSTATE=STATE              ;re-try it again

            O'E
               E'E RPAR.(RECPKT)           ;get the packet reqirement of
                                           ;other KERMIT if provided
               NUMTRY=0
               N=((N+1).MOD.64)
               LCLSTATE = BIGF
            E'L

         O'R (STATUS.EQ.BAD)   ;checksum error detected
            LCLSTATE=STATE          ;try it again

         O'E
            LCLSTATE=BIGA

         E'L
      E'L

      F'N LCLSTATE
      E'N