Google
 
Trailing-Edge - PDP-10 Archives - ap-c796e-sb - lgnunv.unv
There are no other files named lgnunv.unv in the archive.
xH@P C

+P C

kyP CTP CdP Cd	P E%X<P F@ G @ G>&|RP GJ>|RP IZL99P JD@ K@ Kt\YQ KuSQ Kv)8Q Kv>9Q  Kv|WQ K;

3@ 	`5KKiZP KKkSP KKlXP KKlsP KKlyP KbeI7P L@ ML{P MMKsP MKP M$ 0)S
	.ERR.	EF.ERR,A,<B>
M
nL\P M P M0tqP @M0tP!M0t(:P M0t,uP M0t\YP M0tiP M0v(9P M0vzrP M0v{P"MS$uP O2|,` P*g
GLOB <.PpOPJ,.POPJ1,.TNEWL ,ACCT,AD.YN,ALAST 0,CLRRIB>	;[613]
 PGLOB <W.ACCT,W.AU pX,W.SCED>		;[540]!
GLOB <BADFOR,BA!0DFRA,BADNAM,BDFRM!PS>
GLOB <DAYMES,!pDECPR2,DSKFER,DSK"FPA,ENTPTH>
GLOB"0 <ERRLIN,ERRMSG,E"PTOLO,FLUSH,FRUN,G"pET2WD,GETCOD>
GL#OB <GETNAM,GIVNBR#0,HELPR,ISBATC,LAS#PT>
GLOB <LOKBLK,#pLOKBLN,LOGBLN,LOG$BLK,MSG,NOATT,NOM$0FDP>
GLOB <NOREM$PT,NOSYS,NOSYS1,NE$pWLIN,DIEMSG>
GLO%B <NOTSMS,NOTSAT,%0NOTSM1,NOTSM2,NOT%PSM3,NOTSM4,NOTSM5%p,NOTSM6>
GLOB <P&PERR,PPERR1,PRVSE&0T,PSWOK,PTHERR,RD&PACCT,RDUFD>
	IFN&p	PSWCHG,<
GLOB <'WTUFD>
	>;END	PS'0WCHG
GLOB <SNOOZ'PE,SPACE,SPLBTS,ST'pYO,TOLO>
GLOB <T(OLO1,TRANSZ,TRYAG(0N,TTYGET,TTYGO,TY(PI,TYO>
GLOB <USR(pSET,POSTMS,WATBTS),WTCHDA>	;[472]
)0GLOB <ACCTA,CODGE)PT,FLUSHX,LOGIN3,C)pRLFPD,A2MANY>	;[5*17]
GLOB <SCDTBL*0,SCDBLT,BLDSCD,LO*PK,UNLOCK>		;[425]*p SCHED STUFF
IFN+ FASTLG,<GLOB <EN+0TSIZ,DACCFL,DLOCK+P,DAUXFL,DACCL,PDA+pCC,NEWACT,EQACT>>,

;STUFF IN LGN,0LOW
GLOB <PDPLST,P,LGIARG,FCTAHD,FC,pTHED,FCTFMD,FCTWD,FCTFWD>
	S:5p p)_
	.ERR.	EF.INF,A,<B>
X:l\P X:t<@P X:~

@P  X;[RP X;|P @X;>-P Y
exu R0-	EXTERNAL AYtHv 8)G
	.XCREF
	LALL
;
;(C) Cxopyright 1969,1970,1971,1972,1973,81974,1975 DigitalX Equipment Corp.
;						Maynard, Mass.
	TWOSEG
	8RELOC	400000
	IFXNDEF	BIGLST,<SALLx>
	LOWVAR
	GLOBS
	.CREF
 Y?>h9 -0-
LBLOCK	L-PASTX,10	
LBLOCK	-pINTBLK,4	
LWORD	.CCWAIT,		
			
L.0WORD	CCTYPE,		
L.PWORD	SAVERG,		
L.pWORD	HELP,		
LWO/RD	HPOS,		
LBLOC/0K	WILDBK,.FXLEN	
LBLOCK	JUNK,4		
LBLOCK	UFDBUF,2000	
LBLOCK	PTHBUF00,11	
LBLOCK	CHRB0PUF,.DCSAJ+1	
LBL0pOCK	SRCBUF,EXLLEN1	
LBLOCK	SECBUF,10.RBTIM+1	
LWORD	1PUFDFSN,		
LWORD	1pUFDMTP,		
LWORD	2UFDDMJ,		
LWORD	20UFDDMP,		
LBLOCK2P	UFDDMF,MAXFS*3+12p
LBLOCK	DATEMP,23	
LBLOCK	FCTDAT,30TRANSZ	
LBLOCK	R3PDHED,2		
IFN PSW3pCHG,<		
LBLOCK	W4THED,2		
LWORD	S40AVBLK,		
LWORD	S4PAVPOS,		
>			
L4pWORD	FL2741,		
L5BLOCK	TOB,3		
LB50LOCK	TIB,3		
LBL5POCK	PDL,PDLSIZ+1	5p
LWORD	MFDPPN,		6
LWORD	ALPPPN,		60
LWORD	UFDPRT,		6P
LBLOCK	ENTRY,MA6pXENT	
LWORD	LOGT7RY,		
LWORD	TTBI70TS,		
LWORD	STAT7PES,		
LWORD	STAT7pS2,		

IFN FTTA8SK,<		
LBLOCK	BU80FBEG,^D20	
LBLOC8PK	TTY.IB,^D30	
L8pBLOCK	IBUFH,3		
9LWORD	TTY.IC,		
90LWORD	BUFEND,		
9PLWORD	PSAVE,		
>9p;[436] END IFN FT:TASK


IFE FAS:0TLG,<
LWORD	NEWA:PCT,		
> ;END FAS:pTLG

LWORD	NOWB;IT,		

IFE FAST;0LG,<
LWORD	ENTSI;PZ,		
>

LWORD	;pACCTLN,		
LWORD	<ACCKNT,		
LWORD	<0SAVEDA,		
LWORD	<PSYSPPN,		
LWORD	<pMYTTY,		
LWORD	T=TYUDX,		
LWORD	R=0ECFLG,		
LWORD	U=PFDDAT,		
LWORD	U=pFDTIM,		
LWORD	U>FDNDL,		
LWORD	T>0HSJOB,		
LBLOCK	>PDEVTAB,DVICES*2	
LWORD	DEVPTR,		
LWORD	WLDPNT,		
LBLOCK	NOTSPC,.F?PXLEN	
LBLOCK	LIB?pSPC,.FXLEN	
LBLO@CK	TYPSPC,.FXLEN	@0
LBLOCK	U.PATH,.@PFXLEN	
LBLOCK	PT@pHSPC,.FXLEN	
LWOARD	U.SPL,		
LWORA0D	U.WAT,		
;***SAPTART OF BLOCK SETAp TO -1 ON CALLS TBO SCAN
LWORD	U.TB0IME,		
LWORD	U.CBPORE,		
LBLOCK	U.BpNAME,2,	
LWORD	UC.NEW,		
LWORD	U.C0NOTC,		
LWORD	U.CPNWAT,		
LWORD	U.CpDFER,		
LWORD	U.DSYS,		
LWORD	U.DD0FUL,		
LWORD	U.LDPIMI,		
LWORD	U.GDpUID,		
LWORD	U.CEPPL,		
LWORD	U.CE0VPL,		
LWORD	U.SEPFDP,		
LWORD	U.UEpFDP,		
LWORD	U.DFFPR,		
IFN PSWCHF0G,<		
LWORD	U.NPFPSW,		
>			


Fp

IFN	SETTTY,<
GLWORD	U.ALTM,		
G0LWORD	U.BLNK,		
GPLWORD	U.CRLF,		
GpLWORD	U.DBRK,		
HLWORD	U.ECHO,		
H0LWORD	U.FILL,		
HPLWORD	U.FORM,		
HpLWORD	U.GAG,		
LIWORD	U.LC,		
LWOI0RD	U.PAGE,		
LWOIPRD	U.PGSZ,		
LWOIpRD	U.RSPD,		
LWOJRD	U.RTC,		
LWORJ0D	U.SETT,		
LWORJPD	U.SPED,		
LWORJpD	U.TABS,		
LWORKD	U.TAPE,		
LWORK0D	U.WDTH,		
LWORKPD	U.XSPD,		
	>		Kp

LWORD	U.SCAN,L		
LWORD	U.STR,	L0	
LWORD	U.QTA,		LP
LWORD	U.STA,		
;***END OF BLOCKM SET TO -1 ON CALM0LS TO SCAN
LWORDMP	U.DPRI,		
LWORDMp	RPERCT,		
LWORDN	SAVKNT,		
LWORDN0	CODE,		
LWORD	TNPDATE,		
LWORD	SANpVOPR,		
LWORD	SAOOFST,		
LWORD	SVO0PROT,		
LWORD	CNOPTLJT,
LWORD	CNTLOpJP,		
LWORD	ATTJPOB,

LWORD	PPN,P0		
LWORD	PRIVWD,PP		
LWORD	NAME,		Pp
LWORD	NAME2,		
LWORD	CHGNO,		
Q0
LBLOCK	ZZMAX,0		
Y^~) Qp-	EXTERNAL AZ@ [D[ZP [Dl`P \@ ]P ] U`
	IFNDEF	A,<A==B>
F	]5|RP ]5|RP `@ `:dxYP `:dxZP `:dyP @`:d{P `:d|VP  `:d|WP `:uXZP `:u]P `;xZP `;}P `;xP `;yP `;P `;

P `;]P  `;>i9P @`D@ `H@ af:=P a@@ aC>)P aJ~|RP aK6|RP aO<:P d9[\P d:

<RP d:=P d:{0P d:$-3P d:-{P  d:5]P d:w

{P d;N5P d;-@P @d;-VP e&|RP ev|RP e|RP eY  0)[
	.ERR.	EF.REQ,A,<B>
e@ul1P g&:=P gDY 	`4g&MP g"6x:P gP,{P gP.8rP @gPv

ZP gR~ p)O
	.ERR.	EF.SYS,A,<B>
gWkzPHhD@NhH@ hL@NhP@ i&n|RP iJ

SP'k:N>6P kMP kOP m%P Lm2|z7P m6MkyP m7|RP m^EpP m^~)Q @Lo` p)W
	.ERR.	EF.WRN,A,<B>
o@ qB&|RP S@P #@ 0)y
LGNB:	MPOVEI	E1,'B'	;LOApD UP SIXBIT PREFIX
;**	MOVE	EF,[0A![ASCIZ \C\]]	;PLOAD TEXT POINTERp AND FLAGS
	MOVEI	EF,[ASCIZ \C\]0 ;POINTER TO TEXTP
	TXO	EF,A		;TUpRN OF FLAGS
	PUSHJ	P,ERRMSG	;PRINT THE MESSAGE
JJ6P J\rP 
OP O$I3P 

>}{woP