Trailing-Edge
-
PDP-10 Archives
-
bb-bt99h-bb
-
infany.f05
There are 11 other files named infany.f05 in the archive. Click here to see a list.
;VERSION 5A COMMENT
;
; THIS EDIT, WHICH WAS EDIT 412 FOR DBMS-10/20 VERSION 5 DID
; NOT MAKE IT INTO VERSION 5A. THE MAKLIB TEXT OF THE EDIT HAS
; ONE CHANGE FROM THE TEXT OF EDIT 412, AS INDICATED BY THE
; FLAG [V5A] IN THE COMMENTS BELOW.
; THE SYMPTOM, DIAGNOSIS AND CURE FOR EDIT 412 ARE BEING REPRO-
; DUCED HERE FOR YOUR CONVENIENCE.
;
;SYMPTOM
;
; WITH EDIT 524 INSTALLED INTO DBINFO AND USING SCHEMAS
; CONTAINING DDL USING INTERSPERSED "AREA NAME", "RECORD
; NAME" AND "SET NAME" SYNTAX, DBINFO MAY FAIL WITH THE
; MESSAGE "?INFDAF -- DATA BASE ACCESS FAILURE".
;
;DIAGNOSIS
;
; SEE FIRST PARAGRAPH OF THE WARNINGS IN THE WRITE-UP FOR
; EDIT 524.
;
;CURE
;
;
; INSTALL EDIT 525, CAUSING THE DBINFO "MAP" FUNCTION TO
; USE THE ADDRESSING INFORMATION WHICH WAS PUT INTO THE
; IN-CORE RECORD REFERENCE TABLE BY EDIT 524.
;
;WARNING
;
; THIS EDIT MUST NOT BE INSTALLED INTO DBINFO UNLESS YOU
; ARE ALSO INSTALLING EDIT 524.
;
;
;NOTE ***** THIS EDIT APPLIES TO DBMS10 + DBMS20 V5A, AND TO DBINFO ONLY
;
;THE RECOMMENDED FILENAME FOR THIS EDIT IS 525.FIX. THE LINES
;.EDIT THRU .ENDE SHOULD BE TYPED INTO THAT FILE
;
;
; FOR DBINFO APPLY THIS EDIT TO INFANY.REL **********
;
;
;THE EDIT CAN BE INSERTED USING THE FOLLOWING COMMANDS:
;
;FOR DBMS-10
;
; .R MAKLIB
; *INFANY.525=INFANY.REL,525.FIX/F
;
; .R LINK
; *@DBINF1
;
; .SAVE DBINFO
;
;
;FOR DBMS-20
;
; @R MAKLIB
; *INFANY.525=INFANY.REL,525.FIX/F
;
; @R LINK
; *@DBINF2
;
; @SAVE DBINFO
;
;
;THE PATCHED FILE SHOULD BE RENAMED TO .REL TO BE USED AS THE BASE
; FOR ANY FUTURE EDITS.
;
;
;**********************************************************************
;
;
.EDIT 525
.NAME JSM
.MODULE INFIDB
; <ADD RECBLK,TIDVEC(SS)>
.INSERT NLP.LP+12,AFTER,<ADD RECBLK,140(SS)>
PUSH P,PRINLST ;GET 2 AC'S
PUSH P,PERMLH
HLRZ PRINLST,0(RECBLK) ;GET ENTRY IN TABLE WHERE DBINFO
; POINTS
CAIN PRINLST,0 ;IS IT THE SYSTEM RECORD?
JRST .+20 ; YES -- 0 IN L.H. OF TABLE ENTRY
; -- BYPASS SCAN
CAMN PRINLST,RECBLK ;IS IT WHERE WE WANT TO POINT?
JRST .+16 ;YES -- BYPASS
MOVN PRINLST,TIDHIG(SS) ;NO -- GET NEG OF HIGH TID
ADDI PRINLST,40 ;REDUCE IT BY AMT OF SYSTEM TID
; SYSTID = 40
HRLZ PRINLST,PRINLST ;TO BE L.H. OF AOBJN POINTER
HRR PRINLST,RECBLK ;DBINFO'S CURR PLACE IN TABLE
LDB PERMLH,CURN.S+453 ;[V5A] GET CURRENT TID
;[V5A] THE POSITION OF THE BYTE POINTER
;[V5A] CHANGED FROM V5 TO V5A
SUB PRINLST,PERMLH ;BACK IT OUT
ADDI PRINLST,41 ;GET TO FIRST ENTRY PAST SYS REC
; IN TABLE (SYSTID = 40)
HLRZ PERMLH,0(PRINLST) ;GET FIRST/NEXT USER REC ENTRY
CAMN RECBLK,PERMLH ;IS IT THE ONE WE WANT?
JRST .+3 ;YES -- BYPASS
AOBJN PRINLST,.-3 ;NO -- GO TO GET NEXT ENTRY
PUSHJ P,XC.DAT## ;FAILED -- TABLE EXHAUSTED --
; SHOULD NEVER HAPPEN
HRRZM PRINLST,RECBLK ;MOVE ADDR OF OUR TABLE ENTRY TO
; AC11 FOR DBINFO'S PROCESSING
POP P,PERMLH ;RESTORE THE 2 AC'S
POP P,PRINLST
.ENDI
.ENDE
;VERSION 5A COMMENT
;
; THIS WAS EDIT 436 FOR VERSION 5.
;
;SYMPTOM
;
; DBINFO DOES NOT RECOGNIZE A DISPLAY REQUEST WHOSE PAGE
; RANGE LIES OUTSIDE THE AREA SPECIFIED. WHEN THIS OCCURS
; DBINFO RETURNS THE MESSAGE "?INFDAF DATA BASE ACCESS
; FAILURE -- IS DBMS PROBLEM IF IT RECURS."
;
;DIAGNOSIS
;
; INAPPROPRIATE DBINFO ERROR MESSAGE. (UNFORTUNATELY NO
; NEW ERROR MESSAGES CAN BE INTERPOLATED INTO THE DBMS V5
; .REL LIBRARIES.)
;
;CURE
;
;
; SELECT AN ERROR MESSAGE WHICH WILL CAUSE THE USER TO
; LOOK IN THE PROPER PLACE FOR REFERENCE MATERIAL, I.E.
; IN HIS SCHEMA FILE. INSTALL EDIT 527 TO GIVE DBINFO'S
; ?INFSAF MESSAGE IN THIS CASE.
;
;
;
;NOTE ***** THIS EDIT APPLIES TO DBMS-10 V5A ONLY, AND TO DBINFO ONLY
; SEE EDIT 526 FOR DBMS-20 V5A.
;
;THE RECOMMENDED FILENAME FOR THIS EDIT IS 527.FIX. THE LINES
;.EDIT THRU .ENDE SHOULD BE TYPED INTO THAT FILE
;
;
; FOR DBINFO APPLY THIS EDIT TO INFANY.REL **********
;
;
;THE EDIT CAN BE INSERTED USING THE FOLLOWING COMMANDS:
;
;FOR DBMS-10
;
; .R MAKLIB
; *INFANY.527=INFANY.REL,527.FIX/F
;
; .R LINK
; *@DBINF1
;
; .SAVE DBINFO
;
;
;THE PATCHED FILE SHOULD BE RENAMED TO .REL TO BE USED AS THE BASE
; FOR ANY FUTURE EDITS.
;
;
;**********************************************************************
;
;
.EDIT 527
.NAME JSM
.MODULE INFCOM
.INSERT $SS+244,REPLACE:1,<JRST ERRDAF>
CAIE R1,2 ;WAS IT XX02 MSG? -- DBKEY INCONSISTENT ....
JRST ERRDAF ;NO -- THIS IS THE CATCHALL
MOVEI AP,[-1,,0 ;YES -- GIVE 'EM AN ?INFSAF.
INFSAF##]+1
PUSHJ P,TYPOUT
JRST ABORT
.ENDI
.ENDE
;V5A COMMENT
;
; THIS WAS EDIT 446 IN VERSION 5.
;
;SYMPTOM:
;
; DBINFO DOES NOT UNDERSTAND /open all AND /close all, BUT IT WILL
; UNDERSTAND /open ALL AND /close ALL.
;
;DIAGNOSIS:
;
; FOR THE MODIFIERS AFTER THESE VERBS, DBINFO WASN'T CONVERTING
; LOWER CASE TO UPPER CASE PROPERLY CAUSING COMPARISIONS TO FAIL.
;
;CURE:
;
; APPLY EDIT 530 TO DBINFO. EDIT 530 WILL CAUSE LOWER CASE TO BE
; COMPARED PROPERLY TO THE CORRESPONDING UPPER CASE ALPHABETICS
; FOR THESE COMMANDS.
;
;NOTE ***** THIS EDIT APPLIES TO DBMS10 + DBMS20 VERSION 5A
;THE RECOMMENDED FILENAME FOR THIS EDIT IS DIS530.FIX. THE LINES
;.EDIT THRU .ENDE SHOULD BE TYPED INTO THAT FILE
;
; APPLY THIS EDIT TO INFANY.REL
;
;THE EDIT CAN BE INSERTED USING THE FOLLOWING COMMANDS:
;
; FOR A DBMS10 SYSTEM...
;
; R MAKLIB
; *INFANY.REL=INFANY.REL,DIS530.FIX/F
;
; R LINK
; *@DBINF1
;
; .SAVE DBINFO
;
; FOR A DBMS20 SYSTEM...
;
; @LINK
; *@DBINF2
;
; @SAVE DBINFO
;
;
.EDIT 530
.MODULE INFUTL
.NAME JSM
.INSERT DTA.SU+23,REPLACE,<CAIE 3,40(2)>
CAIE 3,-40(2) ;TEST FOR CORRESPONDENCE BETWEEN UPPER
; AND LOWER CASE ALPHABETIC CHARACTERS
.ENDI
.ENDE
;V5A COMMENT
;
; THIS WAS EDIT 447 IN DBMS VERSION 5.
;
;SYMPTOM:
;
; DBINFO-10 DOES NOT UNDERSTAND /schema schnam , BUT IT WILL
; UNDERSTAND /schema SCHNAM.
;
;DIAGNOSIS:
;
; FOR THE MODIFIER AFTER THE VERB, DBINFO-10 WASN'T CONVERTING
; LOWER CASE TO UPPER CASE PROPERLY CAUSING COMPARISIONS TO FAIL.
;
;CURE:
;
; APPLY EDIT 531 TO DBINFO-10. EDIT 531 WILL CAUSE LOWER CASE TO
; BE COMPARED PROPERLY TO THE CORRESPONDING UPPER CASE ALPHABETICS
; FOR THIS COMMAND. NOTE, THE SCHEMA NAME WILL BE OUTPUT IN UPPER
; CASE ON YOUR DBINFO LISTINGS.
;
;NOTE ***** THIS EDIT APPLIES TO DBMS-10 VERSION 5A ONLY
;THE RECOMMENDED FILENAME FOR THIS EDIT IS 531.FIX. THE LINES
;.EDIT THRU .ENDE SHOULD BE TYPED INTO THAT FILE
;
; APPLY THIS EDIT TO INFANY.REL
;
;THE EDIT CAN BE INSERTED USING THE FOLLOWING COMMANDS:
;
; FOR A DBMS-10 SYSTEM...
;
; R MAKLIB
; *INFANY.REL=INFANY.REL,531.FIX/F
;
; R LINK
; *@DBINF1
;
; .SAVE DBINFO
;
;
.EDIT 531
.MODULE INFCOM
.NAME JSM
.INSERT DBINFO+1,REPLACE:1,<MOVE P,$SS+11>
MOVE P,[-STKSIZ+10,,STACK+10] ;GRAB 10 LOCS OFF STACK FOR
; WORK AREA.
.ENDI
.INSERT $SCHEMA+11,AFTER,<MOVEM R0,SCHLEN>
MOVEM R1,1067 ;GRAB 2 AC'S TO WORK WITH; STICK THEIR
MOVEM 2,1070 ; CONTENTS IN OPEN LOCS ON STACK.
; ALSO, CAN USE AC0.
MOVNM R0,2 ;USE SCHEMA NAME LENGTH TO MAKE NEGATIVE POINTER
HRLZ R1,2 ; FOR BYTE PROCESSING BELOW.
MOVE 2,[POINT 7,SCHNAM] ;BYTE POINTER FOR SCHEMA NAME
ILDB R0,2 ;GET A BYTE
CAIGE R0,"a" ;IS IT IN RANGE OF a THRU z?
JRST .+5 ; NO -- TOO LOW
CAILE R0,"z"
JRST .+3 ; NO -- TOO HIGH
SUBI R0,40 ; YES -- MAKE IT UPPER CASE.
DPB R0,2 ;PUT IT BACK INTO SCHEMA NAME
AOBJN R1,.-7 ;FINISHED WITH BYTE STRING?
MOVE 2,1070 ;RESTORE AC'S 0 THU 2
MOVE R1,1067
MOVE R0,SCHLEN
.ENDI
.ENDE
;VERSION 5A COMMENT
;
; THIS IS EDIT 465 FOR DBMS-10/20 VERSION 5.
;
;SYMPTOM:
;
; IF THE DBINFO COMMAND /DISPLAY IS ISSUED WITHOUT AN ARGUMENT
; DBINFO-20 FAILS WITH THE MESSAGE "?PA1050 ILLEGAL INSTRUCTION"
; AND DBINFO-10 FAILS WITH THE MESSAGE "?HALT AT USER PC ...".
;
;DIAGNOSIS:
;
; /DISPLAY IS NOT CHECKING FOR AN ARGUMENT FOLLOWING.
;
;CURE:
;
; INSTALL EDIT 560 TO MAKE /DISPLAY CHECK FOR A FOLLOWING ARGUMENT
; AND IF THE ARGUMENT IS NOT FOUND, CALL SCAN'S ERROR PROCESSING
; PROCEDURE.
;
;NOTE ***** THIS EDIT APPLIES TO DBMS10 + DBMS20 VERSION 5A ONLY
;THE RECOMMENDED FILENAME FOR THIS EDIT IS 560.FIX. THE LINES
;.EDIT THRU .ENDE SHOULD BE TYPED INTO THAT FILE
;
; APPLY THIS EDIT TO INFANY.REL
;
;THE EDIT CAN BE INSERTED USING THE FOLLOWING COMMANDS:
;
;FOR DBMS-10:
;
; .R MAKLIB
; *INFANY.REL=INFANY.REL,560.FIX/FIX
;
; .R LINK
; *@DBINF1
;
; .SAVE DBINFO
;
;FOR DBMS-20:
;
; @R MAKLIB
; *INFANY.REL=INFANY.REL,560.FIX/FIX
;
; @R LINK
; *@DBINF2
;
; @SAVE DBINFO
;
;
;***************************************************************
.EDIT 560
.NAME JSM
.MODULE INFCOM
.INSERT $DISPLAY,AFTER,<PUSHJ P,SC%SAV>
JUMPLE C,E.SVR## ;IS THERE AN ARGUMENT FOLLOWING?
.ENDI
.ENDE