From:	CRDGW2::CRDGW2::MRGATE::"SMTP::CRVAX.SRI.COM::RELAY-INFO-VAX" 20-FEB-1991 13:00:28.41
To:	ARISIA::EVERHART
CC:	
Subj:	Extended DCL RECALL for VMS v5.4 and v5.4-1

From:	RELAY-INFO-VAX@CRVAX.SRI.COM@SMTP@CRDGW2
To:	Everhart@Arisia@MRGATE

Received:  by crdgw1.ge.com (5.57/GE 1.83)
	 id AA02082; Wed, 20 Feb 91 12:30:42 EST
Message-Id:  <9102201730.AA02082@crdgw1.ge.com>
Received: From CUNYVM.CUNY.EDU by CRVAX.SRI.COM with TCP; Wed, 20 FEB 91 06:51:27 PST
Received: from WKUVX1.BITNET by CUNYVM.CUNY.EDU (IBM VM SMTP R1.2.2MX) with BSMTP id 5516; Wed, 20 Feb 91 09:51:46 EST
Date: Wed, 20 Feb 91 08:52 CST
From: "Hunter Goatley, Western Ky. University" <GOATHUNTER%WKUVX1.BITNET@CUNYVM.CUNY.EDU>
Subject: Extended DCL RECALL for VMS v5.4 and v5.4-1
To: INFO-VAX@SRI.COM
X-Vms-To: IN%"INFO-VAX@SRI.COM"

                                    Date sent: 20-FEB-1991 08:31 CST

I've included below the latest patches for my extended DCL command recall.
These patches (there's one for VMS v5.4 and one for VMS v5.4-1) will let
you recall as many as 62 commands, instead of the normal limit of 20.
These procedures originally accompanied my VAX PROFESSIONAL article entitled
"Extending DCL RECALL" (original, huh?), which appeared in the December 1988
issue.  For details on how it works, please refer to the article.

Disclaimer: Naturally, you install these at your own risk.  I've never heard
of them causing problems, but....

Enjoy!
Hunter
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Hunter Goatley, VAX Systems Programmer          E-mail: GOATHUNTER@WKUVX1.bitnet
ACRS, Western Kentucky University               Voice:  502-745-5251
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
-------- Cut here -----------
! Update to DCL RECALL patches for VMS V5.4
!
!       Hunter Goatley, February 18, 1991
!       Academic Computing, STH 226
!       Western Kentucky University
!       Bowling Green, KY 42101
!       Voice:  502-745-5251
!       E-mail: GOATHUNTER@WKUVX1.bitnet
!
! This patch uses the REPLACE command instead of DEPOSIT.  The REPLACE
! command automatically prevents you from making a mistake by forcing you
! to enter the instruction(s) you intend to replace.  If what you enter does
! not match the code that is there, an error is enerated and no patch is made.
!
! Usage:
!
!       $ copy sys$system:dcl.exe []
!       $ patch @this.patch
!       $ copy dcl.exe sys$common:[sysexe]
!       $ install replace dcl.exe
!       $ rename sys$system:dcl.exe;1 dcl_orig.exe
!
DCL.EXE
REPL/INST 672F
'CMPB B^0C3(R10),#15'
EXIT
'CMPB B^0C3(R10),#3F'
EXIT
REPLA/INST 6752
'CMPB B^0C3(R10),#15'
EXIT
'CMPB B^0C3(R10),#3F'
EXIT
REPL/INST 67A0
'CMPB B^0C3(R10),#15'
EXIT
'CMPB B^0C3(R10),#3F'
EXIT
REPL/INST 6C3D
'CMPL R1,#14'
EXIT
'CMPL R1,#3E'
EXIT
REPL/INST 6C63
'MOVL #14,R6'
EXIT
'MOVL #3E,R6'
EXIT
REPL/INS 6C7B
'MOVL #14,R9'
EXIT
'MOVL #3E,R9'
EXIT
REPL/INST 6D2A
'CMPB (R2),#31'
'BNEQ 6D36'
'MOVW #2F32,(R2)'
'BRB 6D3B'
'MOVW #2F31,(R2)'
EXIT
'CMPB (R2),#20'
'BNEQ .+3'
'MOVB #30,(R2)'
'INCB (R2)'
'MOVB #2F,B^01(R2)'
EXIT
UPDATE
EXIT
------- Cut here ------
! Update to DCL RECALL patches for VMS V5.4-1
!
!       Hunter Goatley, February 18, 1991
!       Academic Computing, STH 226
!       Western Kentucky University
!       Bowling Green, KY 42101
!       Voice:  502-745-5251
!       E-mail: GOATHUNTER@WKUVX1.bitnet
!
! This patch uses the REPLACE command instead of DEPOSIT.  The REPLACE
! command automatically prevents you from making a mistake by forcing you
! to enter the instruction(s) you intend to replace.  If what you enter does
! not match the code that is there, an error is enerated and no patch is made.
!
! Usage:
!
!       $ copy sys$system:dcl.exe []
!       $ patch @this.patch
!       $ copy dcl.exe sys$common:[sysexe]
!       $ install replace dcl.exe
!       $ rename sys$system:dcl.exe;1 dcl_orig.exe
!
DCL.EXE
REPL/INST 6773
'CMPB B^0C3(R10),#15'
EXIT
'CMPB B^0C3(R10),#3F'
EXIT
REPLA/INST 6796
'CMPB B^0C3(R10),#15'
EXIT
'CMPB B^0C3(R10),#3F'
EXIT
REPL/INST 67E4
'CMPB B^0C3(R10),#15'
EXIT
'CMPB B^0C3(R10),#3F'
EXIT
REPL/INST 6C81
'CMPL R1,#14'
EXIT
'CMPL R1,#3E'
EXIT
REPL/INST 6CA7
'MOVL #14,R6'
EXIT
'MOVL #3E,R6'
EXIT
REPL/INS 6CBF
'MOVL #14,R9'
EXIT
'MOVL #3E,R9'
EXIT
REPL/INST 6D6E
'CMPB (R2),#31'
'BNEQ 6D7A'
'MOVW #2F32,(R2)'
'BRB 6D7F'
'MOVW #2F31,(R2)'
EXIT
'CMPB (R2),#20'
'BNEQ .+3'
'MOVB #30,(R2)'
'INCB (R2)'
'MOVB #2F,B^01(R2)'
EXIT
UPDATE
EXIT


