From:	CRDGW2::CRDGW2::MRGATE::"SMTP::CRVAX.SRI.COM::RELAY-INFO-VAX"  7-JUN-1989 19:39
To:	MRGATE::"ARISIA::EVERHART"
Subj:	Patch for VMS 5.0 for cloned devices (limit to 999 instead of 9999)

Message-Id:  <8906072327.AA14733@crdgw1.ge.com>
Received: From KL.SRI.COM by CRVAX.SRI.COM with TCP; Wed,  7 JUN 89 14:30:56 PDT
Received: from AAMRL.AF.MIL by KL.SRI.COM with TCP; Wed, 7 Jun 89 14:14:19 PDT
Received: from FALCON by AAMRL.AF.MIL; Wed, 7 Jun 89 17:11 EDT
Date: Wed, 7 Jun 89 17:01 EST
From: Ted Nieland - SRL <@AAMRL.AF.MIL:TNIELAND@FALCON>
Subject: Patch for VMS 5.0 for cloned devices (limit to 999 instead of 9999)
To: info-vax@kl.sri.COM
X-Vms-To: IN%"info-vax@kl.sri.com"

Attached is a patch to VMS (Version 5.x)  to limit the number of cloned 
devices (such as virtual terminals [VTA] and LAT Terminals [LTA]) to VTA999 
and LTA999 instead of the normal VTA9999 and LTA9999.  Some programs (like 
EUNICE) have a problems with such long terminal names.

This patch is based on the original patch from CALTECH, but I disassembled 
(using DISM32 that will be on the SPRING 1989 DECUS Tapes) several of the 
images from SYS$COMMON:[SYS$LDR] until I found the right image and place to 
patch.

I have tested the patch and it does as it advertizes.  I don't know of any 
other side effects (There shouldn't be any, but one doesn't know).

Ted Nieland
TNIELAND@AAMRL.AF.MIL

$!	Patch to VMS to limit numbers on VTA devices (for V5.1 of VMS)
$!
$!	Description: IOC$CLONE_UCB is called to create all template devices.
$!	Normally the sequence counts 0-9999 are used, but MINed dies when run
$!	on a terminal if the sequence count is greater than 999.  This patch
$!	changes IOC$CLONE_UCB so that the device numbers wrap at 999 instead
$!	of 9999.
$!
$!	Caveats: This patch affects ALL template devices.
$!
$!	June 7, 1989  Modified by Ted Nieland, Systems Research Laboratories
$!                    to make the correction on VMS 5
$!                    Image is now SYS$COMMON:[SYS$LDR]IO_ROUTINES.EXE.
$!
$ SET DEFAULT SYS$COMMON:[SYS$LDR]
$ PATCH io_routines.EXE
DEFINE IOC$CLONE_UCB=0000217C
REPLACE/INST IOC$CLONE_UCB+0A
'CMPW B^68(R2),#^D9999'
EXIT
'CMPW B^68(R2),#^D999'
EXIT
UPDATE
EXIT
$!
$!(C) 1989 Ted Nieland, No Rights Reserved
$!(C) 1985 Caltech Oddhack Committee, No Rights Reserved

