Received: from acf3.NYU.EDU by ACF1.NYU.EDU with SMTP; 
          Sat, 2 Mar 1991 15:08:04 EST
Received: by acf3.NYU.EDU (5.61/1.34)
	id AA22297; Sat, 2 Mar 91 15:05:50 -0500
Date: Sat, 2 Mar 91 15:05:50 -0500
From: tihor@acf3.NYU.EDU (Stephen Tihor)
Message-Id: <9103022005.AA22297@acf3.NYU.EDU>
To: tihor@acf3.NYU.EDU
Subject: Re: Extended DCL RECALL for VMS v5.4 and v5.4-1
Newsgroups: comp.os.vms
In-Reply-To: article <9102201737.AA22574@ucbvax.Berkeley.EDU> of 20 Feb 91 09:52 EST

/* acf3:comp.os.vms / GOATHUNTER@WKUVX1.BITNET ("Hunter Goatley, Western Ky. University") /  9:52 am  Feb 20, 1991 */

                                    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
/* ---------- */