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