From:	CRDGW2::CRDGW2::MRGATE::"SMTP::FALCON::TNIELAND" 18-JUL-1989 17:01
To:	MRGATE::"ARISIA::EVERHART"
Subj:	DCL Patch for VMS 5

Message-Id:  <8907182100.AA05291@crdgw1.ge.com>
Received: from FALCON by AAMRL.AF.MIL; Tue, 18 Jul 89 10:54 EDT
Date: Tue, 18 Jul 89 10:57 EST
From: Ted Nieland <@AAMRL.AF.MIL:TNIELAND@FALCON>
Subject: DCL Patch for VMS 5
To: everhart@arisia.decnet
X-Vms-To: IN%"everhart%arisia.decnet@crd.ge.com"

! Update to DCL RECALL patches for VMS V5.0
!
! 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 generated and no patch is
! made.
!
! This file can be used by entering the DCL command:
!
!    $ PATCH @DCL.PATCH
!
DCL.EXE
REPL/INST 65ED+8
'CMPB B^0C5(R10),#15'
EXIT
'CMPB B^0C5(R10),#3F'
EXIT
REPL/INST 6618
'CMPB B^0C5(R10),#15'
EXIT
'CMPB B^0C5(R10),#3F'
EXIT
REPL/INST 6662+4
'CMPB B^0C5(R10),#15'
EXIT
'CMPB B^0C5(R10),#3F'
EXIT
REPL/INST 6AFA
'CMPL R1,#14'
EXIT
'CMPL R1,#3E'
EXIT
REPL/INST 6B20
'MOVL #14,R6'
EXIT
'MOVL #3E,R6'
EXIT
REPL/INST 6B38
'MOVL #14,R9'
EXIT
'MOVL #3E,R9'
EXIT
REPL/INST 6BE7     !Replace counter instructions
'CMPB (R2),#31'
'BNEQ 6BF3'
'MOVW #2F32,(R2)'
'BRB 6BF8'
'MOVW #2F31,(R2)'
EXIT
'CMPB (R2),#20'
'BNEQ 6BEF'
'MOVB #30,(R2)'
'INCB (R2)'
'MOVB #2F,B^01(R2)'
EXIT 
UPDATE 
EXIT
