Trailing-Edge
-
PDP-10 Archives
-
BB-L014E-BM
-
autopatch/dbscob.f05
There are 11 other files named dbscob.f05 in the archive. Click here to see a list.
;******************** START OF DBMS20-V6 EDIT 416 *************************
;
;SYMPTOM
; ERROR-STATUS typeout yields bad status after ?DBSXWX message.
;
;DIAGNOSIS
; THe binary value in ERROR-STATUS is correct, but it has not yet been
; translated into ASCII. Since the declared usage of ERROR-STATUS is
; DISPLAY-7, LIBOL attempts to interpret the binary value as ASCII
; bytes, thus the garbage being typed out.
;
;CURE
; Add a small routine in DBLEAV to translate the number to ASCII.
;
;
;*************** EDIT THE FOLLOWING INTO FILE 416.FIX *********************
.EDIT 416
.NAME WTK
.DATE 08-APR-82
.MODULE DBLEAV
.INSERT DX.ACT+16,BEFORE,<MOVE 6,446(15)>
TLNN 14,400 ;[416] IF NOT IN MIDDLE OF XWX
JRST .+21 ;[416] DON'T BOTHER WITH THIS
PUSH 17,0 ;[416] SAVE SOME ACS
PUSH 17,1 ;[416]
PUSH 17,2 ;[416]
PUSH 17,3 ;[416]
MOVE 0,14(SCA) ;[416] GET ERROR-STATUS BINARY VALUE
HRROI 3,-5 ;[416] CHARACTER COUNT
SETZ 2, ;[416] NO JUNK IN FINAL PRODUCT
IDIVI 0,12 ;[416] GET A DECIMAL DIGIT (RIGHT TO LEFT)
ADDI 1,60 ;[416] CONVERT TO ASCII
LSHC 1,-7 ;[416] SHIFT RIGHT INTO DEST
AOJL 3,.-3 ;[416] FIVE TIMES
MOVEM 2,14(SCA) ;[416] RESULTS INTO ERROR-SATUS
POP 17,3 ;[416] CLEAN UP
POP 17,2 ;[416]
POP 17,1 ;[416]
POP 17,0 ;[416]
.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
;
;
; ------------------ TO INSTALL THIS EDIT ------------------
;
; @RUN MAKLIB
; *DBSCOB.REL=DBSCOB.REL,416.FIX/F
; *^C
; @SUBMIT DBMS20 ;DBMS20.CTL FROM DISTRIBUTION TAPE
;
;************************** END OF EDIT 416 *******************************
;******************** START OF DBMS20-V6 EDIT 421 *************************
;
;SYMPTOM
; ERROR-STATUS typeout yields bad status after ?DBSXWX message.
;
;DIAGNOSIS
; The binary value in ERROR-STATUS is correct, but it has not yet been
; translated into ASCII. Since the declared usage of ERROR-STATUS is
; DISPLAY-7, LIBOL attempts to interpret the binary value as ASCII
; bytes, thus the garbage being typed out.
;
;CURE
; Add a small routine in DBLEAV to translate the number to ASCII,
; and make it unique to the DBSXWX situation.
;
;NOTE:
; THIS EDIT REMOVES EDIT 416 TO DBMS V.6.
;
;*************** EDIT THE FOLLOWING INTO FILE 421.FIX *********************
.EDIT 421
.NAME WTK
.DATE 06-MAY-82
.MODULE DBLEAV
;FOLLOWING LINE MAY BE COMMENTED OUT IF EDIT 416 WAS NOT INSTALLED
.REMOVE 416
.INSERT XCXWX+1,BEFORE,<TLNE 14,20>
SETOM .+2 ;[421] SET UNIQUE FLAG FOR XWX CONDITION
JRST .+2 ;[421] AND SKIP OVER IT
BLOCK 1 ;[421] THIS IS THE FLAG
.ENDI
.INSERT DX.ACT+16,BEFORE,<MOVE 6,446(15)>
SKIPN %421A+2 ;[421] IF NOT IN MIDDLE OF REAL XWX
JRST .+22 ;[421] DON'T BOTHER WITH THIS
SETZM %421A+2 ;[421] CLEAR FLAG
PUSH 17,0 ;[421] SAVE SOME ACS
PUSH 17,1 ;[421]
PUSH 17,2 ;[421]
PUSH 17,3 ;[421]
MOVE 0,14(SCA) ;[421] GET ERROR-STATUS BINARY VALUE
HRROI 3,-5 ;[421] CHARACTER COUNT
SETZ 2, ;[421] NO JUNK IN FINAL PRODUCT
IDIVI 0,12 ;[421] GET A DECIMAL DIGIT (RIGHT TO LEFT)
ADDI 1,60 ;[421] CONVERT TO ASCII
LSHC 1,-7 ;[421] SHIFT RIGHT INTO DEST
AOJL 3,.-3 ;[421] FIVE TIMES
MOVEM 2,14(SCA) ;[421] RESULTS INTO ERROR-STATUS
POP 17,3 ;[421] CLEAN UP
POP 17,2 ;[421]
POP 17,1 ;[421]
POP 17,0 ;[421]
.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
;
;
; ------------------ TO INSTALL THIS EDIT ------------------
;
; @RUN MAKLIB
; *DBSCOB.REL=DBSCOB.REL,421.FIX/F
; *^C
; @SUBMIT DBMS20 ;DBMS20.CTL FROM DISTRIBUTION TAPE
;
;************************** END OF EDIT 421 *******************************
;******************** 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 *******************************