PDP-10 Archive: 10,7/galaxy/mount/mntmac.unv from cuspjul86upd

Trailing-Edge - PDP-10 Archives - cuspjul86upd_bb-jf24a-bb - 10,7/galaxy/mount/mntmac.unv

There are 3 other files named mntmac.unv in the archive. Click here to see a list.

x
,R}@P CYjQQ ?pCYkZQ @CYm:Q F({A  F({F
2A  F
2FMmA  FMmF^
2A  F^
2FlA  FlFA  FFA  FFX{A  FX{F[A  F[F

VA  F

VF[RA  F[RFA  FF
2A  F
2Gx #rGLOB A>G6!l}P G6%I7P KH$wP KH$^RP KH$yP KH%P KH%wP KH%lrP KH&P KH&[RP KH&\rP KK0 5a#P

	XX	(I6DN,Invalid device6  type)
	XX	(NSD,6@No such device)
6`	XX	(UND,Unknown 7device type)
	XX7 	(USD,Unsupported7@ device type)
	X7`X	(EZD,Ersatz dev8ice type)
	XX	(P8 LD,Pathological d8@evice type)		
	X8`X	(ASN,Ambiguous 9structure name)		9 
	XX	(ISN,Invali9@d structure name)9`
	XX	(GDN,Generi:c device name)

evice name)
LPLL
xA  L
xL$[A  L$[L&)6A  L&)6L4:A  L4:L4@A  L4@LL-3A  LL-3LL.:A  LL.:LMiWA  LMiWLM|A  LM|L|-3A  L|-3L|.:A  L|.:L}|A  L}|L|`A  L|`L[A  L[L[@A  L[@L]`A  L]`L)6A  L)6M0t.8Q M0t:Q M0tLuQ  M0t^Q M0tyP$M0uH1Q @M0uLzP @M0u[yP!M0u[zQ M0ui;Q M0ukqQ M0ukzQ  M0v9Q M0vP"M0v)6Q M0v+;Q  M0v8yQ M0vH8Q @M0vLUQ M0vx:Q @M0v{Q M0v|ZQ MRV>9P MS.[yQ MVt=A  MVt=O2|  h0MIRP A,<
hP	IF2,<IFDEF A,<.hpIFN A,EXTERN,<INiTERN A>>
	     i0IFNDEF A,<EXTERNiP A>
	Q SUPPRESQA>>.SUPPRO3F
:A  R/
:RE|zA@RE|zRMj:ARMj:RMmARMmRMm	ARMm	RMm	ARMm	RMySA,RMySRM{@A5RM{@RUSA~RUSRu}`ARu}`RLARLR|AR|R%9AR%9R>K`A&R>K`UVn	@ 4@UVn[ZXRA  XRY&i1 

	  LST(OF. XCREF

	CDOH	OTSINI			
	CDO	h    			
	CDO	.ZPAGA
	CDO	.ZPAGN
	CDO	.ZCHNK
	CDHO	.SAVE1
	CDO	.ShAVE2
	CDO	.SAVE3
	CDO	.SAVE4
	C(DO	.SAVET
	CDO	.HSV13
	CDO	.SV14
	CDO	.SV15
	CDO	.SV16
	NT	.RETT(
	NT	.RETF
	CDOH	.RETE
	CDO	.AOSh		
	CDO	.SOS		
	CDO	.ZERO		
	NT(	.POPJ		
	CDO	.SHTOP		
	CDO	.SAVEh8		
	CDO	.STKST		
	CDO	.TRSET		
	NT	.POPJ1		
	CHDO	.UD2SC		
	CDOh	.SC2UD		
	CDO	.CPUTY		
	CDO
	C(DO
	CDO

	CDO	H		
	CDO	C%RPRM
h	CDO	C%INTR
	CDO	C%SEND
	CDO	C%R(ECV
	CDO	C%BRCV
	CDO	C%REL
	CDOh	C%CPID
	CDO	C%K	PID
	CDO	C%SPID
	CDO	C%MAXP
	CD	HO	C%PIDJ
	CDO	C%	hPIDH
	CDO	C%SIDX

	CDO
	CDO
	CD
(O

	CDO	      	
H		
	CDO	F%IOPN

h	CDO	F%AOPN
	CDO	F%OOPN
	CDO	F%I(BYT
	CDO	F%OBYT
	CDO	F%IBUF
	CDhO	F%OBUF
	CDO	F%

REL
	CDO	F%DREL

(
	CDO	F%RREL
	CD

HO	F%REW
	CDO	F%P

hOS
	CDO	F%CHKP
	CDO	F%INFO
	CDOD
	CDO	F%REN
	CDO	F%DEL
	CD%FCHN
	CDO
	CDO
	CDO
	CDO
(	CDO
	CDO
	CDO
	CDO
	CDO	FUNCTh.			

	CDO	      			
	CDO	M%ACQ(P
	CDO	M%RELP
	HCDO	M%IPSN
	CDO	hM%NXPG
	CDO	M%IPRC
	CDO	M%IPRM
(	CDO	M%AQNP
	CDOH	M%RLNP
	CDO	M%ChLNC
	CDO	M%FPGS
	CDO	M%GMEM
	CD(O	M%RMEM
	CDO
	HCDO
	CDO
	CDO
h	CDO
	CDO
	CDO	M%GPAG
	CDO	M%RP(AG
	CDO
	CDO
	HCDO
	CDO
	CDO
h	CDO
	CDO
	CDO

	CDO	      			(
	CDO	T%TEXT
	CHDO	T%TTY
	CDO
	hCDO
	CDO
	CDO
	CDO
	CDO
	CDO
	CDO
	CDO
	CDOH

	CDO	      		h	
	CDO	L%CLST
	CDO	L%DLST
	CDO	(L%CENT
	CDO	L%CBHFR
	CDO	L%DENT
h	CDO	L%NEXT
	CDO	L%FIRS
	CDO	L%L(AST
	CDO	L%PREV
	CDO	L%PREM
	CDhO	L%CURR
	CDO	L%RENT
	CDO	L%SIZE(
	CDO	L%APOS
	CHDO
	CDO
	CDO
	hCDO
	CDO
	CDO
	CDO
	CDO

	CD(O			
	CDO	I%NOW
	CDO	I%EXIT
	CDhO	I%ION
	CDO	I%IOFF
	CDO	I%SLP
(	CDO	I%INT1
	CDOH	I%INT2
	CDO	I%IhNT3
	CDO	I%TIMR
	CDO
	CDO
	CDO(	I%SOPR
	CDO	I%WHTO
	CDO
	CDO	I%hHOST
	CDO	I%JINF
	CDO
	CDO

	(CDO	S%U2DT		
	CDHO	S%DT2U
	CDO	S%hDATI
	CDO	S%SIXB
	CDO	S%CMND
	C(DO	S%TBLK
	CDO	SH%SCMP
	CDO	S%ERRh
	CDO	S%INTR
	CDO	S%EXIT
	CDO	S(%TBAD
	CDO	S%TBDHL
	CDO	S%NUMI
h

	CDO	K%RCOC			
	CDO	K%WCOC
	C(DO	K%SUET
	CDO	KH%STYP
	CDO	K%TXThI
	CDO	K%SOUT
	CDO	K%BOUT
	CDO	(K%BIN
	CDO	K%BACHK
	CDO	K%TPOS
	hCDO	K%BUFF
	CDO	 K%FLSH
	CDO	K%OP (EN
	CDO	K%ECHO
 H	CDO
	CDO
	CDO
	CDO
	CDO
	CDO!
	CDO
	CDO
	  LSTON.
  
	  YO%GP YO%yG %(4
	IFNDEF %HLSTIN.,LSTIN.==0	%h	
IFE LSTIN.,<
&	IFIDN <XCREF><A&(>,<.XCREF>	
		  &H XLIST>		
	LSTIN.==LSTIN.+1STINYO%{G '>
	IFG LST'(IN.,LSTIN.==LSTIN'H.-1	
	IFLE LSTIN'h.,<.CREF		
		      LIST>
		   Z

<8A  Z

<8ZXA  ZXZKQA  ZKQZ6	yA  Z6	yZ=Y6A  Z=Y6Z>3A  Z>3ZN

QA  ZN

QZN

VA  ZN

VZN

wA  ZN

wZw

A  Zw

Z[A  Z[ZKXA  ZKXZY6A  ZY6Z3A  Z3[F

WP ]P #tCDO A _STA  _ST`P `

8zA  `

8z`k A  `k `{6A  `{6`\YA  `\Y`$]@A  `$]@`%@A  `%@`5A  `5`5IA  `5I`5KzA  `5Kz`>	A  `>	`D[A  `D[`Lj6A  `Lj6`Mj:A  `Mj:`MmA  `Mm`\^;A  `\^;`tSA  `tS`t^A  `t^`tkA  `tk`uyA  `uy`v

WA  `v

W`v[ A  `v[ `|j6A  `|j6`zA  `z`I3A  `I3`\YA  `\Y`nA  `n`);A  `);`=A  `=`irA  `ir`]A  `]`A  ``z:A  `z:`$rA  `$r`$^A  `$^`%2A  `%2`%ZA  `%Z`%z`A  `%z``.zA  `.z`.99A  `.99a^:=P 2a99A  a99a9: 
)~
	EXTERNA
IL	P$GPDB		;GET TH
hE PDB BLOCK
	EXTERNAL	P$PNXT		;GE(T NEXT PDB GIVEN HA PDB BLOCK
	EXThERNAL	P$PERR		;GE

T ERROR BLOCK FRO

(M PDB GIVEN A PDB

H
	EXTERNAL	P$PDE

hF		;GETRDEFAULTGF
	EXTERPACT		;GETIVEN A PDB

	EXT(ERNAL	P$NARG		;NEHXT ARGUMENT TYPE hTO PROCESS
	EXTERNAL	P$SETU		;SET(UP POINTER TO PARHSER BLOCKS
	EXTEhRNAL	P$CURR		;GET THE CURRENT LOCA(TION
	EXTERNAL	PH$PREV		;SET THE PhREVIOUS TO CURRENT
	EXTERNAL	P$FL(OT		;FLOATING POIHNT NUMBER
	EXTERhNAL	P$INIT		;PARSER INIT
	EXTERNA(L	P$INTR		;PARSERH INTERRUPTS
	EXThERNAL	P$TINT		;TIMER INTERRUPTS
	(EXTERNAL	P$NFLD		H;NEXT FIELD TYPE hAND BLOCK ADDRESS
	EXTERNAL	P$DIR(		;DIRECTORY FIELHD
	EXTERNAL	P$NEhXT		;GET NEXT FIELD
	EXTERNAL	P$T(IME		;TIME/DATE CHHECK
	EXTERNAL	Ph$COMMA		;COMMA CHECK
	EXTERNAL	P$(CFM		;CONFIRM CHEHCK
	EXTERNAL	P$KhEYW		;KEYWORD CHECK
	EXTERNAL	P$S(WIT		;SWITCH CHECHK
	EXTERNAL	P$UShER		;USER CHECK
	EXTERNAL	P$NUM		(;NUMBER CHECK
	EHXTERNAL	P$FILE		;hFILE SPEC CHECK
	EXTERNAL	P$IFIL	(	;INPUT FILE SPECH
	EXTERNAL	P$OFIhL		;OUTPUT FILE SPEC
	EXTERNAL	P$(FLD		;FIELD CHECKH
	EXTERNAL	P$TOKh		;TOKEN CHECK
	EXTERNAL	P$NODE		(;NODE CHECK
	EXTHERNAL	P$SIXF		;SIhXBIT FIELD CHECK
	EXTERNAL	P$RNGE(		;RANGE OF NUMBEHRS
	EXTERNAL	P$ThEXT		;TEXT CHECK
	EXTERNAL	P$DEV	(	;DEVICE CHECK
	HEXTERNAL	P$QSTR		h;QUOTED STRING
	EXTERNAL	P$UQST		(;UNQUOTED STRING
	EXTERNAL	P$TAKEh		;Take processing
	EXTERNAL	P$AC(CT		;Account striHng
	EXTERNAL	P$NhPRO		;No process required
cess a+= 5aJ}Ks ^(

	SALL	^H			
	LSTOF. XCRE^hF			

	%%.GLX==_%%.GLX			
	GLXVR_(S==GLXVRS			

	_HIFNB <A>,<%%.MOD_h==SIXBIT/A/> 
	`IFNB <B>,<%%.OTS`(==SIXBIT/B/> 
`H
	GLOB	I%INIT			

	TOPS10	<			
a		SEARCH	UUOSYM		a(
		%%UUOS==%%UUOaHS		
	>				

	TahOPS20	<			
		SEAbRCH	MONSYM		
;		b(%%MONS==%%MONS		
	>				

	IFB <bhB>,<			
		IFN GcLXPUR,<
			.TEXTc(	|,REL:GLXLIB/SEAcHRCH/REQUIRE:I%INIchT/SEGMENT:LOW|
	d	>			
		DEFINE	$d(DATA (NAM,SIZ<1>)dH,< 
			NAM:	BLOCdhK	SIZ
		>			
		eDEFINE	CDO (X),<Ge(LOB X> 
		DEFINEeH	NT(X),<CDO X>	
eh		LIBVEC			
	>		f		

	IFNB <B>,f(<CHKEDT (B)>	
fH
	IFNB <B>,<IFDIfhF <B><INI>,< 
	g	IFN GLXPURE,<.PSg(ECT .HIGH.> 
		IgHFE GLXPURE,<		
	gh		TWOSEG	400000	
			RELOC	0	
			h(RELOC	400000	
		hH>			

		DEFINE hh$DATA(NAM,SIZ<1>)i,< 
			IFN GLXPUi(RE,<.PSECT DATA> iH
			IFE GLXPURE,ih<RELOC> 
			IFNDjEF B%D,<B%D::! j(B%DL==:0>
			NAjHM:	BLOCK	SIZ
			jhB%DL==:B%DL+SIZk 
			IFN GLXPUREk(,<.ENDPS DATA> 
kH			IFE GLXPURE,<RkhELOC> 
		>			
l
		IFDIF <B><OTSl(>,<	
			DEFINE	ClHDO (X),<GLOB X> 
			DEFINE	NT(X),m<CDO X> 
			LIBVm(EC		
		>			

	mH>>				

	IFNB <mhB>,<IFIDN <B><InNI>,< 
		DEFINE	n($DATA (NAM,SIZ<1>nH),< 
			NAM:	BLOnhCK	SIZ
		>			
	o>>				

	LSTON.o(				

	GLOB	<.PoHOPJ, .RETT, .RETFoh>	
	OPDEF	$RET	[pPOPJ	P,]	
	OPDEFp(	$RETT	[PJRST	.REpHTT]	
	OPDEF	$RETphF	[PJRST	.RETF]	
	OPDEF	$RETIT	[Jq(UMPT	.POPJ]	
	OPqHDEF	$RETIF	[JUMPFqh	.POPJ]	
	.NODDTr	$RET,$RETT,$RETFr(,$RETIT,$RETIF
$RETIT,$RETIF
f[RA  f[Rf$A  f$f&DZA  f&DZf.,@A  f.,@f/
:A  f/
:fMmA  fMmfv[4A  fv[4f;8A  f;8fA  ff$(2A  f$(2f$)A  f$)f$+A  f$+f*)A  f*)gg

V p =
	IFNB <B>,<TOPS10<A==B0>>
	IFNB <C>,<TPOPS20<A==C>>
PS20<A==C>>
h$^A  h$^h&N A  h&N i?4( @ DIFN FTUUOS,B			;DEFINE UNi?4H 	 HIFN FTJSYS,	INTERN AEDT	ic  >i#vPOINT 7,[ASCIZ@A@]J, .REq@ ;#[IFB <C>,<;8A==:B> IFNB <C>,<A=:B>B <Cq` :A#T
	ZZ==ZZ+1
	ER$A==ZZZ+uhP 	H  ;#pRP
 A:	BLO>	CK B
	 ..LOC==.OCK	B
		A,E%$1FNDEF 	  ?)$
	LSTOF.
	JSP	TF,ERROR		
	CAI	[ITEXT	(<A>)]		
	LSTON.>	$ A$
	$DATA	(A0<A>,<B>)
	INTERN	A
RETF	J.@ ,~	J.I9 5#*
	PJRST	[5!MOVEI	S1,A
		 $RETF]1,A
		 $	J.I@P`5$J.I@	J.J3P`4@$"B~
@	J.J:P`5@$"B~
@	J.MP`5$J.M
t{P 
u[rQ [?-m
.[yQ <~0A  ~0S@P ]A  ]B~
@A  B~
@B~
HA  B~
HJ.I A  J.I J.I@A  J.I@J.MA  J.MNi(A  Ni(Ni)A  Ni)Ni)A  Ni)Ni*A  Ni*Ni,A  Ni,Ni:A  Ni:N-2A  N-2N~0A  N~0O%<zA  O%<zO%|A  O%|O2`A  O2`O2A  O2O2 A  O2 O2@A  O2@S9:A  S9:V",qA  V",qjUA  jUj.+`A  j.+`kpA  kpkwA  kw>}{woP