home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
computervision.tar.gz
/
computervision.tar
/
kermit.rinit
< prev
next >
Wrap
Text File
|
1987-02-19
|
2KB
|
52 lines
; 17 jly 85 esj converted
;;;;; RINIT ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
E'F A:S(NWLS)
E'O RINIT.(X)
; receive the initial packet from the remote KERIT
/INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERCOM
/INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERDEF
I'R LEN,NUM,STATUS,LCLSTATE,X,TNUM
I'R TV1,TV2,TV3
W'R (NUMTRY.GT.MAXTRY)
LCLSTATE=BIGA ;exceeded max. # of re-try
F'N LCLSTATE ;gives up
O'E
NUMTRY=NUMTRY+1 ;try-it again
E'L
E'E FILL.(40,0,PACKET)
STATUS=RPACK.(LEN,NUM,PACKET) ;read a packet
W'R (STATUS.EQ.BIGS) ;we got a SINIT packet
E'E RPAR.(PACKET) ;store other KERMIT's requ
E'E SPAR.(PACKET) ;get our parameters/requir
TNUM=N
TV1=BIGY
TV2=6
E'E SPACK.(TV1,TNUM,TV2,PACKET) ;send out requirement and
OLDTRY=NUMTRY ;ACK it on one shot
NUMTRY=0
N=((N+1).MOD.64)
LCLSTATE=BIGF ;change state to look for
F'N LCLSTATE ;the file header packet
O'R(STATUS.EQ.BAD) ;we got a checksum error
LCLSTATE=STATE
TNUM=N
TV1=BIGN
TV2=0
TV3=0
E'E SPACK.(TV1,TNUM,TV2,TV3) ;NAK it
F'N LCLSTATE
O'E
LCLSTATE=BIGA ;we got an unexpected pack
E'L ;type, gives up
F'N LCLSTATE
E'N