From:	CSBVAX::CSBVAX::MRGATE::"SMTP::CRVAX.SRI.COM::RELAY-INFO-VAX" 22-MAR-1989 05:25
To:	MRGATE::"ARISIA::EVERHART"
Subj:	Patch for TUdriver


Received: From KL.SRI.COM by CRVAX.SRI.COM with TCP; Wed, 22 MAR 89 02:01:30 PDT
Received: from NSS.Cs.Ucl.AC.UK by KL.SRI.COM with TCP; Wed, 22 Mar 89 01:40:21 PST
Received: from vaxb.rhbnc.ac.uk by NSS.Cs.Ucl.AC.UK   via Janet with NIFTP
           id aa03751; 22 Mar 89 9:21 GMT
Date:		22-MAR-1989 09:28:26 GMT
From:		UHAC010%vaxb.rhbnc.ac.uk@NSS.Cs.Ucl.AC.UK
To:		Info-Vax <@NSS.Cs.Ucl.AC.UK:Info-Vax@kl.sri.com>
Subject:        Patch for TUdriver
Sender:         "JANET UHAC010@UK.AC.RHBNC.VAXB" <UHAC010%vaxb.rhbnc.ac.uk@NSS.Cs.Ucl.AC.UK>
Message-Id:     <20200615_000931AC.0092220DBED4EBA0$8_1@UK.AC.RHBNC.VAXB>
Originally-to:  $INFO-VAX
Originally-from:UHAC010      "A.JOHNSTONE"
Mailer:         Janet_Mailshr V3.3a (02-Feb-1989)

Following from my message about the TUdriver here is that patch. Please note
that when I applied the patch I was able to build a standalone kit that
successfully backed up my RA70 onto a TK70. However I find that my tape
drives now start losing their way when regular VMS is running, so I have 
restored the original driver for the main operating system. Does anyone 
know what is going on here?


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

Adrian Johnstone, 

Mail:	Royal Holloway & Bedford New College, Egham, Surrey, TW20 0EX, England
Phone:	0784 39025
Fax:	0784 37520
Telex:	935504 RHC
Email:
 Janet:	a.johnstone@uk.ac.rhbnc.vaxa 
 Arpa:	a.johnstone%vaxa.rhbnc.ac.uk@nss.cs.ucl.ac.uk

cut here-------------------------------------------------------------
$ save_dir = F$DIRECTORY()
$ set def sys$common:[sysexe]
$ patch tudriver.exe
!
! This patch can be applied to any
! V4.6 or V4.7 image. It fixes the
! incorrect behavior of TUDRIVER
! which, whenever a bad block is
! encountered on a tape being read
! by a TU81+ or a TK70, issues
! a status of position lost. BACKUP
! which can recover its position if
! just position lost state is reported,
! asks the user to QUIT or CONTINUE,
! but the user is not able to continue
! past this bad block because of this
! error. The position lost error will
! be continuously reported and BACKUP
! will keep prompting with Enter QUIT
! or CONTINUE. It never able to CONTINUE.
! With this fix, no position lost errors
! should be reported (unless position is
! so messed up even BACKUP can't recover!)
! and the user should just get recoverable
! soft media errors reported with no action
! required on the part of the user.
!
! This will be fixed in the first maintenance
! release post V5.0.
!
DEF
TUDRIVER
^X00000084
EXI
DEF
DUTUPATCH
^X00002B38
EXI
SE PAT
^X00002B38
SE EC
^X00000006
V /I
^X00000C09
'BBS #^X00000002,B^^X00000009(R2),^X00000C4F'
EXI
RE /I
^X00000C09
'BBS #^X00000002,B^^X00000009(R2),^X00000C4F'
EXIT
'NOP'
EXI
V /I
^X00000CC6
'BICB2 #^X00000017,B^^X00000046(R3)'
EXI
RE /I
^X00000CC6
'BICB2 #^X00000017,B^^X00000046(R3)'
EXIT
'BICB2 #^X00000007,B^^X00000046(R3)'
EXI
V /I
^X00000CCA
'BBS #^X00000002,B^^X00000009(R2),^X00000D28'
EXI
RE /I
^X00000CCA
'BBS #^X00000002,B^^X00000009(R2),^X00000D28'
EXIT
'NOP'
EXI
V /I
^X00000D5C
'BBS #^X00000002,B^^X00000009(R2),^X00000DB8'
EXI
RE /I
^X00000D5C
'BBS #^X00000002,B^^X00000009(R2),^X00000DB8'
EXIT
'NOP'
EXI
V /I
^X00000E03
'BICB2 #^X00000017,B^^X00000046(R3)'
EXI
RE /I
^X00000E03
'BICB2 #^X00000017,B^^X00000046(R3)'
EXIT
'BICB2 #^X00000007,B^^X00000046(R3)'
EXI
V /I
^X00000E07
'BBS #^X00000002,B^^X00000009(R2),^X00000E63'
EXI
RE /I
^X00000E07
'BBS #^X00000002,B^^X00000009(R2),^X00000E63'
EXIT
'NOP'
EXI
V /I
^X00000E6F
'BISB2 #^X00000001,B^^X00000046(R3)'
EXI
INSE /I
^X00000E6F
'BISB2 #^X00000001,B^^X00000046(R3)'
'BICB2 #^X00000010,B^^X00000046(R3)'
EXI
V /I
^X0000106F
'BICB2 #^X00000017,B^^X00000046(R3)'
EXI
RE /I
^X0000106F
'BICB2 #^X00000017,B^^X00000046(R3)'
EXIT
'BICB2 #^X00000007,B^^X00000046(R3)'
EXI
V /I
^X00001073
'BBS #^X00000002,B^^X00000009(R2),^X000010DF'
EXI
RE /I
^X00001073
'BBS #^X00000002,B^^X00000009(R2),^X000010DF'
EXIT
'NOP'
EXI
V /I
^X000010F3
'BISB2 #^X00000001,B^^X00000046(R3)'
EXI
INSE /I
^X000010F3
'BISB #^X00000001,B^^X00000046(R3)'
'BICB #^X00000010,B^^X00000046(R3)'
EXI
V /I
^X000011B1
'BBC #^X00000002,B^^X00000009(R2),^X000011BB'
EXI
INSE /I
^X000011B1
'BBC #^X00000002,B^^X00000009(R2),^X000011BB'
'BBSS #^X00000014,B^^X00000044(R3),TUDRIVER+1137'
'BLBC R0,TUDRIVER+1137'
EXI
U
EXI
$ SET DEFAULT 'SAVE_DIR'


