home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
computervision.zip
/
kermit.sinit
< prev
next >
Wrap
Text File
|
1987-02-19
|
2KB
|
63 lines
; 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