Google
 

Trailing-Edge - PDP-10 Archives - bb-jr93j-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