Trailing-Edge
-
PDP-10 Archives
-
BB-L014E-BM
-
autopatch/dbsfg.f05
There are no other files named dbsfg.f05 in the archive.
;******************** START OF DBMS20-V6 EDIT 424 *************************
;
;SYMPTOM
; After successful FIND or STORE, SYSCOM registers AREA-NAME and
; RECORD-NAME are not updated as stated in the DML Reference Manual,
; page 3-5.
;
;DIAGNOSIS
; There is no code in DBLEAV to modify these registers upon exiting
; from a FIND or STORE.
;
;CURE
; Add code to DBLEAV to update these registers, when exiting
; from a successful FIND or STORE.
;
;*************** EDIT THE FOLLOWING INTO FILE 424.FIX *********************
.EDIT 424
.NAME WTK
.DATE 01-JUN-82
.MODULE DBLEAV
ARNAM=0
RECNAM=6
.INSERT DBCS.X+2,BEFORE,<SETZM 37(13)>
MOVE R1,VERBID(X) ;[424] GET VERB ID
CAIN R1,3 ;[424] IF FIND
JRST .+3 ;[424] UPDATE REGS
CAIE R1,^D12 ;[424] ALSO IF STORE
JRST .+21 ;[424] ELSE SKIP THE FOLLOWING
SETZM ARNAM(SCA) ;[424] DO A BLT CLEAR
MOVSI R0,ARNAM(SCA) ;[424] OF AREA-NAME
HRRI R0,ARNAM+1(SCA) ;[424] AND RECORD-NAME
BLT R0,ARNAM+^D11(SCA) ;[424]
MOVSI R0,440700 ;[424] SET UP COMMON ARGS
MOVEI R3,1 ;[424] FOR PUT.7
MOVE R1,LAS.AB(SS) ;[424] UPDATE AREA-NAME
MOVEI R2,AB.NAM(R1) ;[424]
HRRI R0,ARNAM(SCA) ;[424]
MOVEM R0,TMPNAM(X) ;[424]
PUSHJ 17,PUT.7 ;[424]
MOVE R1,TMP.RB(X) ;[424] UPDATE RECORD-NAME
MOVEI R2,RB.NAM(R1) ;[424]
MOVEI R0,RECNAM(SCA) ;[424]
HRRM R0,TMPNAM(X) ;[424]
PUSHJ 17,PUT.7 ;[424]
.ENDI
.ENDE
;***************************** CAUTION *************************************
;
; TO AVOID LOSING ANY PREVIOUS PATCHES BE
; SURE TO USE THE LATEST PATCHED REL FILES
; AS A BASE FOR THIS EDIT.
;
; THIS PATCH AFFECTS THE FOLLOWING DBMS COMPONENTS:
;
; LIBOL
; FORLIB
;
;
; ------------------ TO INSTALL THIS EDIT ------------------
;
; @RUN MAKLIB
; *DBSCOB.REL=DBSCOB.REL,424.FIX/F
; *DBSFG.REL=DBSFG.REL,424.FIX/F
; *^C
; @SUBMIT DBMS20 ;DBMS20.CTL FROM DISTRIBUTION TAPE
;
;************************** END OF EDIT 424 *******************************