From:	CSBVAX::MRGATE!RELAY-INFO-VAX@CRVAX.SRI.COM@SMTP 14-SEP-1988 08:49
To:	ARISIA::EVERHART
Subj:	A small fix for SNAP, LAT server and port info


Received: From KL.SRI.COM by CRVAX.SRI.COM with TCP; Wed, 14 SEP 88 05:07:05 PDT
Received: from drcvax.arpa by KL.SRI.COM with TCP; Wed, 14 Sep 88 04:54:22 PDT
Date: 13 Sep 88 12:59:00 EDT
From: "Daniel J. Graham" <graham@drcvax.arpa>
Subject: A small fix for SNAP, LAT server and port info
To: "info-vax" <info-vax@kl.sri.com>
Greetings those using (or trying to use) SNAP,

One person who received SNAP mentioned an error in the 'Stats' routine that 
gives funny server information if you are using LAT terminals.  What I 
found was that old DECSAs produce a string of varying lengths, unlike the 
DECserver 100's and 200's.  To accomodate that difference, I have modified 
the code a bit.  Find the following QIO call and the following two 
statements:
                STATUS = SYS$QIOW(,%VAL(LT_CHAN),
        1            %VAL(IO$_TTY_PORT.OR.IO$M_LT_READPORT),
        1            IOSB,,,%REF(READ_BUF),%VAL(READ_BUF_LEN),,,,)
                PORT = READ_BUF(2:7)
                SERVER = READ_BUF(9:14)
and replace them with
                STATUS = SYS$QIOW(,%VAL(LT_CHAN),
        1            %VAL(IO$_TTY_PORT.OR.IO$M_LT_READPORT),
        1            IOSB,,,%REF(READ_BUF),%VAL(READ_BUF_LEN),,,,)
                IDX = 2
                DO WHILE (ICHAR(READ_BUF(IDX:IDX)) .GT. 32 .AND.
        1            ICHAR(READ_BUF(IDX:IDX)) .LT. 126)
                    PORT(IDX-1:IDX-1) = READ_BUF(IDX:IDX)
                    IDX = IDX + 1
                ENDDO
                SERVER = READ_BUF(IDX+1:IDX+6)


Note the QIO call does not change, I'm just using it as a marker.  
Recompile SNAP and relink using the link statement in BUILD.COM.

I hope this solves the poblems some have had.

Dan Graham


