Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - glxipc.c08
There are 2 other files named glxipc.c08 in the archive. Click here to see a list.
 REP 36/1	;08C1
		IPCEDT==64			;VERSION NUMBER
 WIT
		IPCEDT==66			;VERSION NUMBER
 INS 122/3	;08C2
	0065	8-Feb-84 /DPM
			Increased monitor free core usage could be attributed to
			the fact that GLXIPC always sends 510 word packets to the
			GOPHER.  Make it send exact length packets instead.

	0066	10055	26-Mar-84 /DPM
			Add support for flag word in the SAB ad return useful
			priv bits.
 REP 19/13	;08C3
	C%SEND:	CAXGE	S1,SAB.SZ		;PROPER SAB?
		 $RETE(ARG)			;NO -- RETURN ERROR
 WIT
	C%SEND:	CAXGE	S1,SAB.MZ		;PROPER SAB?
		 $RETE(ARG)			;NO -- RETURN ERROR
		$SAVE	<T1>			;SAVE T1
		MOVE	T1,S1			;COPY SAB LENGTH
 INS 5/15	;08C4
	;		T1/ SAB LENGTH
 INS 49/15	;08C5
		CAIG	T1,SAB.FL		;SAB INCLUDE A FLAG WORD?
		TDZA	T1,T1			;NO
		LOAD	T1,SAB.FL(P1),SF.ECD	;GET ERROR CODE TO RETURN
		STORE	T1,S2,IP.CFE		;SET

 REP 57/15	;08C6
		SETO	P1,			;NOTE THAT WE FAKED A PAGE TO GOPHER
		IORX	S2,IP.CFL		;YES, SET LARGE PACKET BIT
		HRRZ	TF,P2			;GOPHER DOESN'T LIKE PAGES
		PG2ADR	TF			;SO MAKE IT A LARGE PACKET
		HRLI	TF,PAGSIZ-2		;AND LOSE 2 WORDS OF CALLER'S MESSAGE
		MOVEM	TF,SNDBLK+.IPCFP	;SEND LARGE PACKET INSTEAD
 WIT
	;**;[65] Replace 6 lines after SNDM.3+10L. /DPM
		IORX	S2,IP.CFL		;[65] YES, SET LARGE PACKET BIT
		HRRZ	P1,P2			;[65] GOPHER DOESN'T LIKE PAGES
		PG2ADR	P1			;[65] SO MAKE IT A LARGE PACKET
		LOAD	TF,.MSTYP(P1),MS.CNT	;[65] GET MESSAGE LENGTH
		HRL	P1,TF			;[65] MAKE IT LEN,,ADDR
		MOVEM	P1,SNDBLK+.IPCFP	;[65] SAVE IT AWAY
		MOVNI	P1,1			;[65] NOTE THAT WE FAKED A PAGE TO GOPHER
 INS 75/18	;08C7
		TXNE	S2,IP.IPC		;IPCF PRIVS?
		TXO	P1,MD.PIP		;YES
		TXNE	S2,IP.POK		;POKE PRIVS?
		TXO	P1,MD.POK		;YES
		TXNE	S2,IP.JLG		;LOGGED IN?
		TXO	P1,MD.PLG		;YES
		TXNE	S2,IP.SXO		;SENDER EXECUTE-ONLY?
		TXO	P1,MD.PXO		;YES
 SUM 127574