Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99h-bb - fmlany.f05
There are 11 other files named fmlany.f05 in the archive. Click here to see a list.
;VERSION 5A COMMENT
;
;	THIS EDIT WAS EDITS 433 AND 452 IN VERSION 5.
;
;SYMPTOM
;
;	WHEN USING FORDML IN /UNFLAGGED MODE, LOWER-CASE STRINGS
;	ARE REPLACED BY UPPER-CASE STRINGS EVEN IN FORMAT AND DATA
;	STATEMENTS.
;
;DIAGNOSIS
;
;	WITH UNFLAGGED MODE, FORDML MUST CHECK EVERY LINE OF THE
;	INPUT TEXT TO SEE IF IT TERMINATES WITH A PERIOD (.), AND
;	IS THUS A DML STATEMENT. WHEN DOING SO, IT ALTERS
;	LOWER-CASE INPUT ALPHABETICS TO UPPER-CASE BEFORE IT 
;	SCANS ITS TABLE OF LEXICAL ITEMS FOR A MATCH. AS A RESULT
;	ALL LOWER-CASE ALPHABETICS ARE CHANGED TO UPPER-CASE
;	BEFORE FORDML GOES ON TO BUILD ITS OUTPUT TEXTS.
;
;CURE
;
;	INSTALL EDIT 542 TO GIVE FORDML AN EXTRA WORK AREA IN
;	WHICH TO SAVE INPUT TEXT ASIDE AS IS WHEN IT IS WORKING IN
;	UNFLAGGED MODE.
;
;WARNING
;
;	IN UNFLAGGED MODE, WHEN A LINE OF DML IS SPLIT ACROSS TWO
;	BUFFERS, PART OR ALL OF THE LINE MAY APPEAR IN LOWER-CASE
;	IN THE OUTPUT TEXT. THIS IS BECAUSE A GREAT DEAL OF TEXT
;	MAY BE INTERPOLATED IN ORDER TO CREATE THE EXTERNAL CALLS.
;	AS A RESULT, THE INPUT AND OUTPUT BUFFERS ARE NOT IN SYNC
;	AND TEXT WHICH WE MAY WISH TO CHANGE FROM LOWER-CASE TO
;	UPPER-CASE IN THE OUTPUT BUFFER MAY HAVE ALREADY BEEN
;	WRITTEN OUT TO DISK. SINCE THE ONLY TEXT IN THIS CATEGORY
;	ERRONEOUSLY IS DML WHICH HAS BEEN COMMENTED OUT WITH AN 
;	ASTERISK (*) IN THE OUTPUT TEXT, WE FELT THAT THIS CONSTI-
;	TUTED NO PROBLEM WHATEVER.
;
;
;NOTE ***** THIS EDIT APPLIES TO DBMS-10 V5A ONLY
;SEE EDIT NUMBER 541 FOR DBMS-20 V5A FIX.
;THE RECOMMENDED FILENAME FOR THIS EDIT IS 542.FIX.    THE LINES
;.EDIT THRU .ENDE SHOULD BE TYPED INTO THAT FILE
;
;	APPLY THIS EDIT TO FMLANY.REL
;
;THE EDIT CAN BE INSERTED USING THE FOLLOWING COMMANDS:
;
;
;FOR DBMS-10:
;
;	.R MAKLIB
;	*FMLANY.542=FMLANY.REL,542.FIX/FIX
;
;	.R LINK
;	*FORDML/MAP=DEC:SCAN,DEC:WILD,DEC:HELPER,-
;	*DSK:GENME2,SCHIO2,FMLANY,FML20,STRHI/S/GO
;
;	.SAVE FORDML
;
;THE PATCHED FILE SOULD BE RENAMED TO .REL TO BE USED AS THE 
;BASE FOR ANY FUTURE EDITS.
;
;**********************************************************************
;
;
.EDIT 542
.NAME JSM
.MODULE DMLVER
	;IN THE FOLLOWING CODE, 'RELBLK-320' IS THE EQUIVALENT
	;  OF 'STACK'. THIS IS NECESSARY BECAUSE THE SYMBOL 'STACK'
	;  IS NOT AVAILABLE TO ALL MODULES INVOLVED.
.INSERT FORDML,REPLACE:1,<MOVE P,EOF.NW+53>
	MOVE P,[-STKSIZ+10,,RELBLK##-320+10] ;GRAB 10 WORDS OFF
		; BOTTOM OF STACK 
.ENDI
.INSERT PRGUNIT+6,AFTER,<SETZM WARNCNT>
	SETZM	RELBLK-320+5  ;INIT WORK AREA DUMP FLAG
.ENDI
.INSERT EOF.NW+107,REPLACE:2,<MOVEI AP,EOF.NW+103>
	;COME THRU HERE WHEN GETLIN HAS FOUND A LINE WHICH IS NOT
	;  IMMEDIATELY IDENTIFIABLE AS DML. DUMP FLAG SET IN THIS
	;  CASE
	;NOTE: $END IS DEFINED IN DMLTAB, WHICH IS NOT SEARCHED
	; BY DMLVER
	CAIE	R0,6204  ;AT "END" STMT? (6204 = $END)
	SETOM	RELBLK-320+5  ;NO -- SET WORK AREA DUMP FLAG
	MOVEI	AP,EOF.NW+103  ; IN ORIG CODE
	PUSHJ	P,CWRITE       ; IN ORIG CODE
	SETZM	RELBLK-320+5  ;RESET WORK AREA DUMP FLAG
.ENDI
.MODULE DMLOPN
STACK==1360
.INSERT COMND+33,AFTER,<MOVEM INCHAN##+7>
	;COME HERE TO OPEN INPUT AND OUTPUT FILES AND CREATE TOPS-10
	;  STYLE BUFFER RINGS -- HAVE TO TELL FORDML HOW TO SET UP
	;  AND IDENTIFY OUR NEW WORK AREA
	MOVEM	R1,RELBLK-320+4  ;GET AN AC TO WORK WITH
	MOVEM	R0,R1  ;GET ADDR OF CURR (TOP) BUFF HDR WORD
	HLRZ	R0,0(R1)  ;GET LENGTH OF BUFFER
	MOVEM	R0,RELBLK-320+1  ;SAVE LENGTH OF BUFFER
	MOVE	R1,RELBLK-320+4  ;RESTORE AC1
	MOVE	R0,.JBFF##  ;GET ADDR OF FIRST FREE WORD IN CORE
	MOVEM	R0,RELBLK-320+2  ;SAVE ADDR OF OUR WORK AREA
	ADD	R0,RELBLK-320+1  ;ADD BUFFER LENGTH TO IT
	ADDI	R0,2  ;TWO MORE WORDS FOR BUFFER HEADER
	MOVEM	R0,.JBFF##  ;TELL SYSTEM WE ARE GRABBING THIS MUCH
		; CORE (TO USE FOR INPUT BUFFER WORK AREA)
	SUBI	R0,1  ;LET NEW BLT AT GETACT KNOW WHERE TO STOP
	MOVEM	R0,RELBLK-320+3  ;SAVE ADDR OF END OF WORK AREA
.ENDI
.MODULE DMLLEX
STACK==1360
.INSERT GETACT+7,BEFORE,<MOVEI R1,@1(AP)>
	;AFTER "IN" UUO, MOVE DATA FROM CURRENT BUFFER TO WORK AREA
	MOVEM	R2,RELBLK##-320+4  ;GET AN AC TO WORK WITH
	HRRZ	R2,@1(AP)   ;GET ADDR OF TOP OF CURR BUFFER (IN INHDR##)
	HRLZ	R1,R2	;IS BLT START-FROM ADDR
	HRR	R1,RELBLK-320+2  ;ADDR OF TOP OF WORK AREA -- IS BLT
				; START-TO ADDR
	MOVE	R2,RELBLK-320+3  ;ADDR OF END OF WORK AREA -- IS BLT
				; END-TO ADDR
	BLT	R1,@R2  ;MOVE CURR BUFFER CONTENTS TO WORK AREA
	MOVE	R2,RELBLK-320+4  ;RESTORE AC2
.ENDI
.INSERT GETBUF+5,REPLACE:2,<MOVEI AP,GETBUF+53>
	;WHEN A LINE IS SPLIT ACROSS TWO BUFFERS, COME HERE TO PUT
	;  FIRST CHUNK OF LINE INTO "LINAREA" BEFORE GOING TO
	;  ROUTINE "GETACT" TO GET NEXT BLOCK OF INPUT FILE DATA,
	;  WHICH WILL CONTAIN THE REMAINDER OF THE LINE. HERE WE
	;  WE HAVE TO TELL "APPSTR" TO TAKE FIRST CHUNK FROM OUR
	;  WORK AREA.	NOTE: WE AREN'T GOING TO WORRY WHETHER IT
	;  IS DML OR NOT. THUS, SOME COMMENTED DML MAY BE OUTPUT
	;  IN LOWER CASE
	MOVE 	AP,LINEBP  ;GET CURR LINE BYTE PTR TO INPUT BUFFER
			   ; (AP TO BE RE-FILLED FOR CALL BELOW)
	MOVEM	AP,RELBLK-320+4  ;SAVE IT ASIDE
	SUB	AP,INHDR##  ;SUBTR ADDR OF CURR BUFFER HDR ADDR
	ADD	AP,RELBLK-320+2 ;ADD ADDR OF TOP OF WORK AREA
	MOVEM	AP,LINEBP  ;SET IT UP FOR CALL TO APPSTR
	MOVEI	AP,GETBUF+53  ;IN ORIG CODE
	PUSHJ	P,APPSTR      ;IN ORIG CODE
	MOVE	AP,RELBLK-320+4  ;GET IT BACK (AP TO BE RESET FOR CALLS
				;  BELOW)
	MOVEM	AP,LINEBP  ;PUT BACK WHERE IT BELONGS
.ENDI
.INSERT GETBUF+147,REPLACE:2,<MOVEI AP,GETBUF+53>
	;COME HERE TO MOVE LAST CHUNK OF NON-DML LINE TO OUTPUT
	;  BUFFER. IT HAS TO COME IN ITS ORIGINAL FORM, WHICH IS
	;  FOUND ONLY IN OUR WORK AREA AT THIS POINT
	MOVE 	AP,LINEBP  ;GET CURR LINE BYTE PTR TO INPUT BUFFER
			   ; (AP TO BE RE-FILLED FOR CALL BELOW)
	MOVEM	AP,RELBLK-320+4  ;SAVE IT ASIDE
	SUB	AP,INHDR##  ;SUBTR ADDR OF CURR BUFFER HDR ADDR
	ADD	AP,RELBLK-320+2 ;ADD ADDR OF TOP OF WORK AREA
	MOVEM	AP,LINEBP  ;SET IT UP FOR CALL TO APPSTR
	MOVEI	AP,GETBUF+53  ;IN ORIG CODE
	PUSHJ	P,APPSTR      ;IN ORIG CODE
	MOVE	R0,RELBLK-320+4  ;GET IT BACK (R0 TO BE RESET BELOW)
	MOVEM	R0,LINEBP  ;PUT BACK WHERE IT BELONGS
.ENDI
.MODULE DMLIO
STACK==1360
.INSERT OUTSTR,AFTER,<MOVE R0,0(R1)>
	;COME HERE TO PUT THE LINE INTO THE OUTPUT BUFFER. WE TAKE
	;  THE LINE FROM OUR WORK AREA ONLY IF IT IS A SPLIT LINE
	;  IN UNFLAGGED MODE AND IF OUR WORK AREA CONTAINS VALID
	;  INPUT DATA
	;IN THE SAME MANNER AS 'RELBLK-320' IS TO 'STACK', 'RELBLK+1641'
	;  IS THE EQUIVALENT TO 'LBPLEN' IN THE FOLLOWING CODE.
	SKIPE	R0,RELBLK##+1641  ;SPLIT LINE IN EFFECT?
	JRST	OUTSTR+1   ; YES -- LIN1BP IS IT
	SKIPLE	R0,SW.UNFL##  ;UNFLAGGED MODE NOT SET?
	SKIPN	R0,RELBLK-320+5  ;WORK AREA DUMP FLAG SET?
	JRST	OUTSTR+1  ;EITHER UNFLAGGED OR NO W.A. DUMP ---
	SUB	R0,INHDR##  ;SUBTR ADDR OF CURR BUFFER FROM LIN1BP ADDR
	ADD	R0,RELBLK-320+2  ;ADD ADDR OF TOP OF WORK AREA
.ENDI
.ENDE
;SYMPTOM
;
;	FORDML MAY NOT ACCEPT PRIVACY KEYS FOR INVOKE AND ACCESS
;	STATEMENTS WHICH ARE LESS THAN FIVE CHARACTERS LONG.
;
;DIAGNOSIS
;
;	THE CODE CHECKS THE ENTIRE SECOND WORD OF THE STRING ARGUMENT
;	TO SEE IF THE LENGTH EXCEEDS FIVE AND SETS IT TO FIVE IF IT
;	DOES.  HOWEVER, THE LEFT HALF OF THE WORD IS USED TO KEEP TRACK
;	OF OTHER ATTRIBUTES, SUCH AS WHETHER OR NOT THE STRING IS NUMERIC.
;	THE LENGTH OF THE STRING IS STORED IN THE RIGHT HALF ONLY.
;
;CURE
;
;	INSTALL EDIT 572 TO FORDML TO CAUSE ONLY THE RIGHT HALF TO BE USED.
;
;
;THE RECOMMENDED FILENAME FOR THIS EDIT IS 572.FIX.    THE LINES
;.EDIT THRU .ENDE SHOULD BE TYPED INTO THAT FILE
;
;	APPLY THIS EDIT TO FMLANY.REL
;
;THE EDIT CAN BE INSERTED USING THE FOLLOWING COMMANDS:
;
;
;FOR DBMS-10:
;
;	.R MAKLIB
;	*FMLANY.572=FMLANY.REL,572.FIX/FIX
;
;	.R LINK
;	*FORDML/MAP=DEC:SCAN,DEC:WILD,DEC:HELPER,-
;	*DSK:GENME2,SCHIO2,FMLANY.572,FML10,STRHI/S/GO
;
;	.SAVE FORDML
;
;FOR DBMS-20:
;
;	@MAKLIB
;	*FMLANY.572=FMLANY.REL,572.FIX/FIX
;
;	@LINK
;	*FORDML/MAP=DEC:SCAN,DEC:WILD,DEC:HELPER,-
;	*DSK:GENME2,SCHIO2,FMLANY.572,FML20,STRHI/S/GO
;
;	@SAVE FORDML
;
;THE PATCHED FILE SOULD BE RENAMED TO .REL TO BE USED AS THE 
;BASE FOR ANY FUTURE EDITS.
;
;**********************************************************************
;
;
.EDIT 572
.NAME CLR
.MODULE DMLVOK
.INSERT DISPSI+222,REPLACE:2,<SKIPN R1,KEY.PT+1>
	HRRZ	R1,KEY.PT+1	;[572] GET STRING LENGTH ONLY
	 JUMPE	R1,INVPRI	;[572] IF NONE, ERROR
.ENDI
.ENDE