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