# sbreak - send the break packet to signify the end of the transmission # integer function sbreak(x) include ratdef include kerdef include kercom # integer num,len,rpack,status,x,tnum # if(numtry>MAXTRY){ sbreak=BIGA return } else numtry=numtry+1 # tnum=n call spack(BIGB,tnum,0,packet) status=rpack(len,num,recpkt) if(status==BIGN){ if(n!=(num-1)){ sbreak=state return } } else if(status==BIGY){ if(n!=num){ sbreak=state return } numtry=0 n=mod((n+1),64) sbreak=BIGC return } else if(status==FALSE){ sbreak=state return } else sbreak=BIGA return end