Trailing-Edge
-
PDP-10 Archives
-
bb-jr93d-bb
-
ddlany.f05
There are 11 other files named ddlany.f05 in the archive. Click here to see a list.
;VERSION 5A COMMENT
;
; THIS EDIT CORRESPONDS TO EDIT 443 FOR VERSION 5. SINCE EDIT
; 417 HAS BEEN INTEGRATED INTO THE VERSION 5A SOURCES AND THIS
; EFFORT WAS DONE PROPERLY, THERE IS NO NEED TO REMOVE IT OR
; UNDO IT. ACCORDINGLY, THIS EDIT WILL BE CONCERNED PRINCIPALLY
; WITH THE NEW CODE WHICH WAS CREATED FOR EDIT 443.
; ALSO, THERE WAS A TYPOGRAPHICAL ERROR IN EDIT 417 AS IT APPLIED
; TO SCHEMA FOR DBMS-10. THIS IS OF NO CONCERN HERE FOR THE SAME
; REASON. HOWEVER, THE SYMPTOM AND DIAGNOSIS FOR EDIT 443
; WILL BE PRESENTED AS IS.
;
;SYMPTOM:
;
; (1) MAKLIB WILL NOT INSTALL EDIT 417 INTO DDLANY.REL FOR
; THE DBMS-10 SCHEMA PROCESSOR.
;
; (2) THE SUB-SCHEMA SET SECTION IS STILL NOT FULLY OPTIONAL
;
;DIAGNOSIS:
;
; (1) EXISTING CODE DOES NOT MATCH ORIGINAL CODE AT THREE
; LOCATIONS -- TCO.DA+13, TCO.TX+21, AND R01END+5
;
; (2) TYPOGRAPHICAL ERROR FOLLOWING .INSERT TCO.DA+13.
; WITHIN THE LITERAL THE TEXT "AOJA 13,SETSEC" OCCURS TWICE
; BUT IT SHOULD OCCUR ONLY ONCE.
;
;CURE:
;
; INSTALL EDIT 546 TO MAKE THE SUB-SCHEMA SET SECTION FULLY
; OPTIONAL.
;
;NOTE ***** THIS EDIT APPLIES TO DBMS10 V5A ONLY
; THE CORRESPONDING V5A EDIT NUMBER FOR DBMS20 IS 547.
;THE RECOMMENDED FILENAME FOR THIS EDIT IS 546.FIX. THE LINES
;.EDIT THRU .ENDE SHOULD BE TYPED INTO THAT FILE
;
; APPLY THIS EDIT TO DDLANY.REL
;
;THE EDIT CAN BE INSERTED USING THE FOLLOWING COMMANDS:
;
; FOR DBMS10:
;
; .R MAKLIB
; *DDLANY.REL=DDLANY.REL,546.FIX/F
;
; .R LINK
; *@SCHEM1
;
; .SAVE SCHEMA
;
.EDIT 546
.NAME JSM
.MODULE DDLSUB
.INSERT SS.MOR+5,REPLACE:3,<MOVEI R1,3>
MOVEI R1,4 ;ADD A NEW CASE, AS NOTED ABOVE
CAME [0
$SUBSC
$ENDSC
$EOF
$NAME](R1) ;$NAME IS THE NEW CASE
SOJG R1,.-1
.ENDI
.INSERT SS.MOR+10,REPLACE:1,<JRST PT.1ST+546(R1)>
JRST [JRST SS.MOR+11 ;FAILURE RETURN
AOJA 13,SS.LP
AOJA 13,SS.EX
AOJA 13,SS.SIM
AOJA 13,SS.LP](R1) ;GO TO FOR NAME
.ENDI
.INSERT PT.1ST+325,REPLACE:1,<AOJA 13,SS.LP>
;RE-DIRECT TXT.LP TO GO TO SS.MORE RATHER THAN SS.LP WHEN
;TOKCNT = 5. SS.MORE WILL RESTORE THE PROPER CONTEXT WHEN
;"SUB-SCHEMA" IS SEEN IMMEDIATELY FOLLOWING RECORD DATA-NAME
;TEXT.
;ONLY SETALL AND NOW TXT.LP CAN GO THRU SS.MORE.
;FORTUNATELY, SETALL DOES NOT SWALLOW THE NEXT TOKEN
;BEFORE IT GOES TO SS.MORE, SO THE USAGE OF $NAME
;WILL BE UNAMBIGUOUS THERE, SINCE IT WILL BE OBVIOUS
;THAT IT WAS TXT.LP THAT HAS NAME AS ITS CURRENT TOKEN.
AOJA 13,SS.MOR
.ENDI
.ENDE
;SYMPTOM:
;
; FORTRAN SPEUDONYMS DO NOT WORK ON ALIASES, DIRECT IDENTIFIERS,
; OR AREA-IDS.
;
;DIAGNOSIS:
;
; THE ROUTINE WHICH COPIED THE PSEUDONYM INTO THE ITEM LINE FOR
; THE SCHEMA FILE WAS BEING CALLED INCORRECTLY, CAUSING THE LENGTH OF
; THE PSEUDONYM TO BE SET TO ZERO, THE ACTUAL LENGTH TO APPEAR WHERE
; THE ASCII CHARACTERS OF THE PSEUDONYM SHOULD BE, AND THE ASCII
; CHARACTERS TO BE LOST.
;
;CURE:
;
; INSTALL EDIT 556 TO DO THE APPROPRIATE CALL TO COPSTR.
;
;NOTE ***** THIS EDIT APPLIES TO DBMS10 + DBMS20 VERSION 5A
;THE RECOMMENDED FILENAME FOR THIS EDIT IS 556.FIX. THE LINES
;.EDIT THRU .ENDE SHOULD BE TYPED INTO THAT FILE
;
; APPLY THIS EDIT TO DDLSKE.REL
;
;THE EDIT CAN BE INSERTED USING THE FOLLOWING COMMANDS:
;
;FOR DBMS-10:
;
; .R MAKLIB
; *DDLANY.REL=DDLANY.REL,556.FIX/FIX
;
; .R LINK
; *@SCHEM1
;
; .SAVE SCHEMA
;
;FOR DBMS-20:
;
; @R MAKLIB
; *DDLANY.REL=DDLANY.REL,556.FIX/FIX
;
; @R LINK
; *@SCHEM2
;
; @SAVE SCHEMA
;
;
;***************************************************************
.EDIT 556
.NAME CLH
.MODULE DDLSKE
.INSERT PSUCHK+7,REPLACE:1,<MOVEI R0,@0(AP)>
MOVEI R0,@0(16) ;[556] GET STRING ADDRESS PASSED US
HRLI R0,440700 ;[556] CONVERT IT TO BYTE POINTER
MOVEM R0,TEMPBP ;[556] STORE IN TEMPORARY BYTE POINTER AREA
MOVEI R0,TEMPBP ;[556] GET ADDRESS
.ENDI
.INSERT PS.NEW+5,BEFORE,<MOVEI R0,$PSUNY>
HRRZ R0,TEMPBP ;[556] CONSTRUCT ADDRESS OF IL.SLEN
SOS R0,R0 ;[556] ... FROM STRING ADDRESS PASSED US
MOVEM R0,TEMPBP ;[556] TEMPORARILY STORE IT
MOVE R0,TEMPBP+1 ;[556] AND GET STRING LENGTH
MOVEM R0,@TEMPBP ;[556] AND STORE IT AT THE CALCULATED ADDRESS
.ENDI
.ENDE