Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - glxfil.c08
There are 2 other files named glxfil.c08 in the archive. Click here to see a list.
 REP 2/1	;08C1
	SUBTTL	Irwin L. Goverman - Larry Samberg/MLB/DC/PW/AWC	1-Jan-82
 WIT
	SUBTTL	Irwin L. Goverman - Larry Samberg/MLB/DC/PW/AWC/LWS/CTK 10-May-84
 REP 6/1	;08C2
	;        COPYRIGHT (c) 1975,1976,1977,1978,1979,1980,1981,1982,
	;			       1983, 1984
 WIT
	;        COPYRIGHT (c) 1975,1976,1977,1978,1979,1980,1981,1982
 REP 28/1	;08C3
		FILEDT==102			;EDIT LEVEL
 WIT
		FILEDT==110			;EDIT LEVEL
 INS 158/3	;08C4

	;**;Begin Galaxy 4.1 code maintenance

	0103		Fix illegal memory reference problem when using
			F%xOPN routines.
			SPR 10-33434,10-34187	25-SEP-83/CTK

	104		Make F%IBYT handle page marks in LSN file correctly.
			7-Nov-83 /LWS

	105		In OPNCOM the FILOP. uuo returns a 0 in the path
			block when the structure is NUL. This caused the SETFD
			routine to create FD blocks with 0 as the structure
			name. The final result was BATCON passing QUASAR
			bad information, leading to QUASAR CRL then RRF
			stopcodes.
			1-Mar-84/CTK	SPR 10-34431

	106		The F%REN routine always resets the file IO
			mode to zero/ASCII mode. This causes problems
			for /DISP:RENAME on plotter files because the
			file IO mode is used by SPROUT to control
			the plotter.
			15-Mar-84/CTK	SPR 10-34531

	107		Add code and revamp the F%REN routine so we
			do the FILOP RENAME correctly. Edit 106
			introduced a DATE-75 bug.
			17-Apr-84	SPR 10-34531

	110		Fix problem with F%REN found by the VEREDT tool.
			We could not rename from an SFD to an SFD and
			release channels after use.
			10-May-84/CTK	SPR 10-34690

 REP 50/14	;08C5
	OPNC.2:	MOVE	T1,FB$BUF(FB)		;GET ADDRESS OF BUFFER
 WIT
	OPNC.2:
	;**;[105]ADD 2 LINES AT OPNC.2:+0L	1-MAR-84/CTK
		MOVE	S1,FB$FUB+.FODEV(FB)	;[105]GET DEVICE, SETUP FILOP. 0 RETURN
		MOVEM	S1,FB$PTH+.PTFCN(FB)	;[105]STORE STRUCTURE NAME
		MOVE	T1,FB$BUF(FB)		;GET ADDRESS OF BUFFER
 REP 19/16	;08C6
		MOVEM	S2,FB$LEB+.RBEXT(FB)	;STORE IT
 WIT
	;**;[107]CHANGE 1 LINE AT LDLEB:+6L	10-APR-84/CTK
		HLLM	S2,FB$LEB+.RBEXT(FB)	;[107]STORE IT
 REP 27/17	;08C7
		CAILE	.FIMAX			; IT
 WIT
	;**;[103]CHANGE 1 LINE AT ATTR.1:+4L	25-SEP-83/CTK
		CAILE	S2,.FIMAX		;[103] IT
 REP 33/22	;08C8
	IBYT.4:	MOVE	S1,FB$BBP(FB)		;GET THE BUFFER BYTE POINTER
		IBP	S1			;NORMALIZE IT
		MOVE	S1,(S1)			;GET THE WORD
		TRNN	S1,1			;IS LSN BIT SET?
 WIT
	;**;[104] Redo code from IBYT.4 to end of F%IBYT. 3-Nov-83 /LWS
	;[104] Here to handle LSN strangeness.

	IBYT.4:	$SAVE	<T1>			;[104] SAVE T1
		MOVE	S1,FB$BBP(FB)		;GET THE BUFFER BYTE POINTER
		IBP	S1			;NORMALIZE IT
		MOVE	T1,(S1)			;[104] GET THE WORD
		TRNN	T1,1			;[104] IS LSN BIT SET?
 REP 40/22	;08C9
		AOS	FB$BBP(FB)		;INCREMENT BYTE-POINT BY ONE WORD
		MOVNI	S1,5-1			;ACCOUNT FOR BYTES BYPASSED BY AOS
						;FB$BIB WAS SOSGE'D ABOVE
		ADDM	S1,FB$BIB(FB)		;DECREMENT BYTES-IN-BUFFER
						;EVEN IF FB$BIB GOES NEGATIVE HERE
						;THE NEXT SOSGE IN IBYT WILL CATCH IT
		SETZM	FB$LSN(FB)		;CLEAR FLAG TO AVOID RECURSION
 WIT
		PUSHJ	P,IBYT.8		;[104] GO ADJUST BYTE COUNT AND POINTER
		CAME	T1,[EXP <<"     ">_1>!1];[104] BEGINNING OF LSN PAGE MARK?
		JRST	IBYT.7			;[104] NO,,MUST JUST BE LINE NUMBER
	IBYT.5:	SOSGE	FB$BIB(FB)		;[104] COULD BE,,BUFFER HAVE ANY MORE?
		JRST	IBYT.6			;[104] NO,,GO GET ANOTHER BUFFER

		MOVE	S1,FB$BBP(FB)		;[104] GET BYTE POINTER
		IBP	S1			;[104] NORMALIZE IT
		MOVE	T1,(S1)			;[104] GET WHOLE WORD
		CAME	T1,[BYTE (7) .CHCRT,.CHFFD,0,0,0] ;[104] SECOND WORD OF PAGE MARK?
		 JRST	IBYT.2			;[104] NO,,GIVE THE GUY THE NEXT BYTE
		PUSHJ	P,IBYT.8		;[104] YES,,GO ADJUST BYTE COUNT AND POINTER
		JRST	IBYT.1			;[104] GO GET THE NEXT BYTE

	IBYT.6:	PUSHJ	P,GETBUF		;[104] GET NEXT BUFFER
		JUMPF	.RETF			;[104] RETURN IF NO MORE
		JRST	IBYT.5			;[104] GO BACK AND GET NEXT BYTE

	IBYT.7:	SETZM	FB$LSN(FB)		;[104] CLEAR FLAG TO AVOID RECURSION
 REP 50/22	;08C10
		JRST	IBYT.1			;ELSE, GET NEXT BYTE
 WIT
		CAIN	S2,.CHTAB		;[104] WAS IT REALLY A TAB?
		JRST	IBYT.1			;[104] YES,,GET NEXT BYTE
		$RETT				;[104] NO,,DON'T KEEP IT FROM CALLER

	IBYT.8:	AOS	FB$BBP(FB)		;[104] INCREMENT BYTE-POINT BY ONE WORD
		MOVNI	S1,5-1			;[104] ACCOUNT FOR BYTES BYPASSED BY AOS
						;[104] FB$BIB WAS SOSGE'D ABOVE
		ADDM	S1,FB$BIB(FB)		;[104] DECREMENT BYTES-IN-BUFFER
						;[104] EVEN IF FB$BIB GOES NEGATIVE HERE
						;[104] THE NEXT SOSGE IN IBYT WILL CATCH IT
		POPJ	P,			;[104] RETURN
 REP 18/36	;08C11
	F%REN:	$SAVE	FB			;SAVE THE FB ADDRESS RESGISTER
 WIT
	F%REN:
	;**;[107]ADD AND REVAMP CODE AT F%REN:+0L	12-APR-84/CTK
		$SAVE	FB			;SAVE THE FB ADDRESS RESGISTER
 REP 45/36	;08C12
		MOVE	T2,.FDSTR(S1)		;GET SOURCE STRUCTURE
		MOVE	S2,FRB.DF(T1)		;GET FD FOR DESTINATION
		PUSHJ	P,LDLEB			;LOAD THE LOOKUP/ENTER BLOCK FROM FD
		PUSHJ	P,ALCIFN		;ALLOCATE ANOTHER IFN
		JUMPF	REN.21			;PASS ERROR AFTER RELEASING FIRST IFN

		JUMPE	P1,REN.X		;ANY ATTRIBUTES?
		MOVEM	P1,FB$PTR(FB)		;SET ATTRIBUTE BLOCK ADDR IN NEW FB
		HRRZ	P1,(P1)			;GET WORD COUNT
		MOVEM	P1,FB$CNT(FB)		;SET ATTRIBUTE BLOCK COUNT IN NEW FB

	REN.X:	MOVEI	S2,FB$LEB(FB)		;GET ADDRESS OF 2ND LEB
		HRLM	S2,FB$FUB+.FOLEB(T3)	;STORE AS LH OF 1ST .FOLEB POINTER
		MOVE	S1,FRB.DF(T1)		;NOW GET 2ND FD ADDRESS
		PUSHJ	P,LDLEB			;LOAD THE LOOKUP/ENTER AREA
		PUSHJ	P,ATTRIB		;SET FILE ATTRIBUTES
 WIT
	;**;[110]DELETE 2 LINES AT REN.1:+3L	10-MAY-84/CTK
		PUSHJ	P,LDLEB			;LOAD THE LOOKUP/ENTER BLOCK FROM FD
		PUSHJ	P,ALCIFN		;ALLOCATE ANOTHER IFN
		JUMPF	REN.5			;[107]PASS ERROR, RELEASING FIRST IFN
 REP 3/37	;08C13
		MOVX	S1,FO.ASC		;ASSIGN CHANNEL NUMBER
		IOR	S1,[FO.PRV+.FORNM]	;PRIVELEGES+ RENAME FUNCTION
 WIT
	;**;[110]ADD 1 LINES AT REN.1:+7	10-MAY-84/CTK
		MOVE	S2,FB$LEB+.RBPPN(T3)	;[110]SAVE THE PATH POINTER
		MOVE	S1,[FO.ASC+FO.PRV+.FORED] ;[107]PRIV'S, CHANNEL, READ-IN
		MOVEM	S1,FB$FUB+.FOFNC(T3)	;[107]STORE INTO FUNCTION WORD
		HRLI	S1,.FOMAX		;[107]SET LENGTH OF BLOCK
		HRRI	S1,FB$FUB(T3)		;[107]AND ITS ADDRESS
		FILOP.	S1,			;[107]DO THE LOOKUP
		  JRST	REN.4			;[107]PASS ERROR, RELEASING FIRST IFN
	;**;[110]ADD 7 LINES AT REN.1:+15	10-MAY-84/CTK
		MOVEM	S2,FB$LEB+.RBPPN(T3)	;[110]RESTORE THE PATH POINTER
		LOAD	S1,FB$FUB+.FOFNC(T3),FO.CHN	;[110]GET THE CHANNEL
		HRL	S2,S1			;[110]LOAD THE CHANNEL NUMBER
		HRRI	S2,.FOREL		;[110]GET RELEASE FUNCTION
		MOVE	S1,[1,,S2]		;[110]GET ARG POINTER
		FILOP.	S1,			;[110]RELEASE THE CHANNEL
		  JFCL				;[110]CAN'T CARE ABOUT ERRORS
		HRLI	S1,FB$LEB(T3)		;[107]POINT TO THE LOOKUP/ENTER BLOCK
		HRRI	S1,FB$LEB(FB)		;[107]POINT TO THE RENAME BLOCK
		MOVEI	S2,FB$LEB+.RBMAX-1(FB)	;[107]LET'S GET THE ENDING ADDRESS
		BLT	S1,(S2)			;[107]NOW FILL IN THE RENAME BLOCK
		JUMPE	P1,REN.2		;ANY ATTRIBUTES?
		MOVEM	P1,FB$PTR(FB)		;SET ATTRIBUTE BLOCK ADDR IN NEW FB
		HRRZ	P1,(P1)			;GET WORD COUNT
		MOVEM	P1,FB$CNT(FB)		;SET ATTRIBUTE BLOCK COUNT IN NEW FB
	REN.2:	MOVEI	S2,FB$LEB(FB)		;GET ADDRESS OF 2ND LEB
		HRLM	S2,FB$FUB+.FOLEB(T3)	;STORE AS LH OF 1ST .FOLEB POINTER
		MOVE	S1,FRB.DF(T1)		;NOW GET 2ND FD ADDRESS
		PUSHJ	P,LDLEB			;LOAD THE LOOKUP/ENTER AREA
		PUSHJ	P,ATTRIB		;SET FILE ATTRIBUTES
		MOVE	S1,[FO.ASC+FO.PRV+.FORNM] ;[107]PRIV'S, CHANNEL, RENAME FUNCTION
 REP 9/37	;08C14
		  JRST	REN.3			;FAILED...
	REN.2:	LOAD	S1,FB$FUB+.FOFNC(T3),FO.CHN ;GET THE CHANNEL
 WIT
		  JRST	REN.4			;FAILED...
	REN.3:	LOAD	S1,FB$FUB+.FOFNC(T3),FO.CHN ;GET THE CHANNEL
 REP 18/37	;08C15
	REN.3:	PUSH	P,S1			;SAVE ERROR CODE
		PUSHJ	P,REN.2			;RELEASE THE IFNS
 WIT
	REN.4:	PUSH	P,S1			;SAVE ERROR CODE
		PUSHJ	P,REN.3			;RELEASE THE IFNS
 REP 23/37	;08C16
	REN.21:	PUSH	P,S1                    ;SAVE ERROR CODE
 WIT
	REN.5:	PUSH	P,S1                    ;SAVE ERROR CODE
 SUM 31054