=======================================================================
The section between the =============== lines are the instructions for
DIRSQ1.M68
Unyank this part of the file and delete it from DIRSQ1.M68 before
attempting the patch. This constitutes DIRSQ1.LST refered to in
the .M68 part of the file.
Ultrascience is happy to provide programs and patches to
the AMUS network and
encourages others to do the same. Ultrascience believes that all users will
benefit by sharing programs through AMUS. If anyone has comments regarding
Ultrascience programs, please send them to:
Ultrascience, 1824 Wilmette Ave.,
P.O. Box 558, Wilmette, IL 60091
DIRSQ1.M68 is a patch which eliminates a disk lock-up problem that is present
in DIRSEQ.LIT. The unpatched version of DIRSEQ.LIT will abort when
sequencing a PPN on a write
protected disk, but the disk will remain
locked in such a manner that accessing files on the disk will lock out other
jobs. The only way of unlocking such jobs is to reset the system.
This patch will cause DIRSEQ to unlock the device when an abnormal exit
(i.e., a write protected disk) is encountered.
/LINE 2
/CENTER INSTALLING THE PATCH^^^^^^^
In order for this patch to work, the DIRSEQ.LIT[1,4] which is currently
in use must have a hash total of 144-070-602-227.
To install this patch log into the patch account. If you don't
have one, create it (any PPN will do). Copy the DIRSEQ.LIT
file from DSK0:[1,4]
into the account and copy DIRSQ1.M68 file into the account as well.
After these
to files are in the patch account enter the following line:
/LINE 1
/DI
PATCH DIRSEQ WITH DIRSQ1
/EDI
/LINE 1
The DIRSQ1.M68 file will be automatically assembled.
When the patch is complete the hash total of the resulting DIRSEQ.LIT in the
patch account should be as indicated in the patch .M68.
If the hash total does not match,
there was an error; recheck the hash total of the input DIRSEQ.LIT and the
patch .M68.
If the new hash total is correct, the DIRSEQ.LIT in SYS: should be
renamed to DIRSEQ.OLD and the new
DIRSEQ.LIT copied into SYS: and erased from the patch account.
The DIRSEQ.LIT in SYS: will now run as described above.
If any other patches become available from Alpha Micro, these patches
must be made on the DIRSEQ.OLD.
Ultrascience will make an effort to keep an updated version of this
patch on the AMUS network
in the event the DIRSEQ program will be further modified by Alpha Micro.
========================================================================
; Patch #1 to SYS:DIRSEQ.LIT AMOS/L 1.1 & 1.1A
; Patch for disk lockup occuring when sequencing directories on protected
; disks.
;
; Refer to DIRSQ1.LST for installation instructions.
;
; Developed by Ultrascience (REV. 4.3)
COPY PATCH
OVER 1,0,0,103.,0
NVER 1,0,0,103.,1
OHASH 144,070,602,227
NHASH 601,645,501,607
DEFINE OP TYP,ADDR,FLG
TYP ADDR
BNE P7
IF NB,FLG,RTN
ENDM
NP=47161
=666
WORD ^H4EBA,P1-.,NP
=700
WORD ^H4EBA,P2-.,NP
=720
WORD ^H4EBA,P3-.,NP,NP
=1324
WORD ^H4EBA,P4-.
BYTE 1342-.,140
=1406
WORD ^H4EBA,P5-.
BYTE 1422-.,140
=1474
WORD ^H4EBA,P6-.,NP
=2300
P1: ORB #1,321(A5)
OP DSKDRL,320(A5),1
P2: OP READ,320(A5),1
P3: OP CHGMEM,470(A5),1
P4: OP DSKDEA,@A5
OP DSKBMW,@A5
CLRW @A4
OP WRITE,150(A5),1
P5: OP DSKDEA,@A5
OP DSKBMW,@A5,1
P6: OP WRITE,320(A5),1
P7: POP
DSKDRU 320(A5)
EXIT
END
