From:	CSBVAX::CSBVAX::MRGATE::"SMTP::CRVAX.SRI.COM::RELAY-INFO-VAX" 11-FEB-1989 03:50
To:	MRGATE::"ARISIA::EVERHART"
Subj:	Ammendments to CLUSTER_WHO distribution


Received: From KL.SRI.COM by CRVAX.SRI.COM with TCP; Fri, 10 FEB 89 10:51:45 PDT
Received: from ucbvax.Berkeley.EDU by KL.SRI.COM with TCP; Fri, 10 Feb 89 10:49:29 PST
Received: by ucbvax.Berkeley.EDU (5.61/1.33)
	id AA03447; Fri, 10 Feb 89 10:39:52 -0800
Received: from USENET by ucbvax.Berkeley.EDU with netnews
	for info-vax@kl.sri.com (info-vax@kl.sri.com)
	(contact usenet@ucbvax.Berkeley.EDU if you have questions)
Date: 10 Feb 89 18:26:13 GMT
From: quanta.eng.ohio-state.edu!kcgl1.eng.ohio-state.edu!JONESD@tut.cis.ohio-state.edu  (David Jones)
Organization: Ohio State University
Subject: Ammendments to CLUSTER_WHO distribution
Message-Id: <1755@quanta.eng.ohio-state.edu>
Sender: info-vax-request@kl.sri.com
To: info-vax@kl.sri.com

I have 2 ammendments to the CLUSTER_WHO distribution.  The first
validates that the characters used in the encoding were not mistranslated
as they went through any BITNET gateways.  The second speeds up the decoding
process by a couple of orders of magnitude.

-------------------------
Before the first line of part 1, insert the following lines:

$!	validate character set.
$	cset = "()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ"
$	cset = cset + "[\]^_`abcdefghijklmnopqrstuvwxyz"
$	pos = 0
$ VALIDATION_LOOP:
$	IF F$CVUI(pos*8,8,cset)-40 .NE. pos THEN WRITE SYS$OUTPUT -
	   "Character set validation error: '",F$EXTRACT(pos,1,cset), -
	   "' should be ASCII ", pos+40
$	pos = pos + 1
$  	IF pos .LT. 83 THEN GOTO VALIDATION_LOOP

-----------------------
Replace the lines following "$       TYPE SYS$INPUT" at the end of part
3 with the lines:

$	TYPE SYS$INPUT

    Now converting CWHO.CODED into a text library CWHO.TLB

$ MACRO SYS$INPUT/OBJECT=DECODE.OBJ
	.title <decoder>
	.PSECT DATA,LONG,WRT
INDX:	.LONG	512
	.ADDRESS INREC
OUTDX:	.LONG	512
	.ADDRESS OUTREC
LENGTH:	.LONG	0
GETARG:	.LONG 3
	.ADDRESS INDX
	.LONG	0
	.ADDRESS LENGTH
INREC:	.BLKB 512
OUTREC:	.BLKB 512
	.PSECT CODE,LONG,NOWRT,EXE
	.ENTRY DECODE, ^M<R2,R3,R4,R5,R6>
	CLRL	R5
	MOVAL	OUTREC, R3
10$:	CALLG	GETARG, G^LIB$GET_INPUT
	BLBC	R0, 50$
	MOVZWL	LENGTH, R6
	BEQL	10$
	MOVAL	INREC, R2
20$:	SUBB3	#58, (R2)+, R4
	BLSS	30$
	INSV	R4, R5, #6, (R3)
	ADDL	#6, R5
25$:	SOBGTR	R6, 20$
	BRB	10$
30$:	ADDB	#18, R4
	INSV	R4, R5, #4, (R3)
	ADDL	#4, R5
	DIVL3	#8, R5, OUTDX
	PUSHAL	OUTDX
	CALLS	#1, G^LIB$PUT_OUTPUT
	CLRL	R5
	BRB	25$
50$:	MOVL	#1, R0
	RET
	.END DECODE
$	LINK DECODE
$	CREATE/FDL=SYS$INPUT CWHO.TLB
RECORD
    CARRIAGE_CONTROL none
    FORMAT fixed
    SIZE 512
$	DEFINE/USER SYS$INPUT CWHO.CODED
$	DEFINE/USER SYS$OUTPUT CWHO.TLB
$	RUN DECODE
$!
$	LIBR/TEXT/EXTRACT=BUILD/OUT=BUILD.COM CWHO
$	TYPE SYS$INPUT

The procedure BUILD.COM will generate the CLUSTER_WHO image and give further
installation instructions.
$EXIT

-----------------------

David L. Jones               |      Phone:    (614) 292-6929
Ohio State Unviversity       |      Internet:
1971 Neil Ave. Rm. 406       |               jonesd@kcgl1.eng.ohio-state.edu
Columbus, OH 43210           |               jones-d@eng.ohio-state.edu

Disclaimer: A repudiation of a claim.