.TITLE GETSTA - GET STATUS FROM SNDRCV .IDENT /01.2/ .ENABL LC ;+ ; ; Free software BY ; Project Software & Development, Inc. ; ; This software is furnished for free and may be used and copied as ; desired. This software or any other copies thereof may be provided ; or otherwise made available to any other person. No title to and ; ownership of the software is hereby transferred or allowed. ; ; The information in this software is subject to change without notice ; and should not be construed as a commitment by PROJECT SOFTWARE ; AND DEVELOPMENT, INC. ; ; PROJECT SOFTWARE assumes no responsibility for the use or reliability ; of this software on any equipment whatsoever. ; ; Project Software & Development, Inc. ; 14 Story St. ; Cambridge, Ma. 02138 ; 617-661-1444 ; ; ; Title: GETSTA ; Author: Robin Miller ; Date: April 22, 1982 ; ; Description: ; ; This module is used to get the status report output by SNDRCV ; after a transmission. This is only neccessary until the protocol ; is changed at which time, SNDRCV will no longer output a status. ; ; ; Modification History: ; ;- .ENABL AMA .NLIST BEX .MCALL DIR$, MRKT$S, QIO$S, WTSE$S MRKEFN = 12. ; MARK TIME EFN ;+ ; ; GETSTA - Get status report from SNDRCV and outputs it. ; ;- GETSTA:: CALL $SAVAL ; SAVE ALL REGISTERS QIO$S #IO.RAL,#REMOTE,#REMOTE,,#RIOSB,,<#RBUFF,#FILSIZ,#0> MOV #2,R0 ; WAIT 2 SECONDS BAUD > 3600 CMPB RSPEED,#S.3600 ; ARE WE AT A HIGH SPEED ? BGT 10$ ; IF GT, YES MOV #3,R0 ; ELSE WAIT FOR 3 SECONDS 10$: MRKT$S #MRKEFN,R0,#2 ; WAIT UNTIL STATUS IS READ WTSE$S #MRKEFN ; WAIT FOR MARK TIME DIR$ #KILREM ; KILL THE REMOTE QIO MOV #RBUFF,R4 ; ADDRESS OF RECEIVED BUFFER MOV RIOSB+2,R5 ; COPY THE BYTE COUNT ADD R4,R5 ; POINT TO THE LAST BYTE CLRB (R5) ; TERMINATE THE MESSAGE CALL TOTALS ; WRITE RSXNET TOTALS FIRST CALL WRITE ; THEN WRITE SNDRCV TOTALS RETURN .END