PDP-10 Archive: 5,17/mntmac.unv from BB-T573C-DD

Trailing-Edge - PDP-10 Archives - BB-T573C-DD_1986 - 5,17/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 ";GLOB 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 i"

	XX	(I	DN,Invalid device( type)
	XX	(NSD,HNo such device)
h	XX	(UND,Unknown  device type)
	XX (	(USD,Unsupported H device type)
	X hX	(EZD,Ersatz dev!ice type)
	XX	(P!(LD,Pathological d!Hevice type)		
	X!hX	(ASN,Ambiguous "structure name)		"(
	XX	(ISN,Invali"Hd structure name)"h
	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 "=CDO 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: D
	EXTERNA!L	P$GPDB		;GET TH@E PDB BLOCK
	EXT`ERNAL	P$PNXT		;GET NEXT PDB GIVEN  A PDB BLOCK
	EXT@ERNAL	P$PERR		;GE`T ERROR BLOCK FROM PDB GIVEN A PDB 
	EXTERNAL	P$PDE@F		;GET DEFAULT F`ILLING ROUTINE GIVEN A PDB
	EXTER NAL	P$PACT		;GET @ACTION ROUTINE GI`VEN A PDB

	EXTERNAL	P$NARG		;NE XT ARGUMENT TYPE @TO PROCESS
	EXTE`RNAL	P$SETU		;SETUP POINTER TO PAR SER BLOCKS
	EXTE@RNAL	P$CURR		;GET` THE CURRENT LOCA	TION
	EXTERNAL	P	 $PREV		;SET THE P	@REVIOUS TO CURREN	`T
	EXTERNAL	P$FL
OT		;FLOATING POI
 NT NUMBER
	EXTER
@NAL	P$INIT		;PARS
`ER INIT
	EXTERNAL	P$INTR		;PARSER  INTERRUPTS
	EXT@ERNAL	P$TINT		;TI`MER INTERRUPTS

EXTERNAL	P$NFLD

 ;NEXT FIELD TYPE

@AND BLOCK ADDRESS

`
	EXTERNAL	P$DIREL
	EXTERNAL	P$NEFIE
	EXTERNAL	P$TIME		;TIME/DATE C HECK
	EXTERNAL	P@$COMMA		;COMMA CH`ECK
	EXTERNAL	P$CFM		;CONFIRM CHE CK
	EXTERNAL	P$K@EYW		;KEYWORD CHE`CK
	EXTERNAL	P$SWIT		;SWITCH CHEC K
	EXTERNAL	P$US@ER		;USER CHECK
`	EXTERNAL	P$NUM		;NUMBER CHECK
	E XTERNAL	P$FILE		;@FILE SPEC CHECK
`	EXTERNAL	P$IFIL		;INPUT FILE SPEC 
	EXTERNAL	P$OFI@L		;OUTPUT FILE S`PEC
	EXTERNAL	P$FLD		;FIELD CHECK 
	EXTERNAL	P$TOK@		;TOKEN CHECK
	`EXTERNAL	P$NODE		;NODE CHECK
	EXT ERNAL	P$SIXF		;SI@XBIT FIELD CHECK
	EXTERNAL	P$RNGE		;RANGE OF NUMBE RS
	EXTERNAL	P$T@EXT		;TEXT CHECK
	EXTERNAL	P$DEV		;DEVICE CHECK
	 EXTERNAL	P$QSTR		@;QUOTED STRING
	`EXTERNAL	P$UQST		;UNQUOTED STRING
	EXTERNAL	P$TAKE@		;Take processin`g
	EXTERNAL	P$ACCT		;Account stri ng
	EXTERNAL	P$N@PRO		;No process required
cess a+= 5aJ}Ks ]h

	SALL	^			
	LSTOF. XCRE^(F			

	%%.GLX==^H%%.GLX			
	GLXVR^hS==GLXVRS			

	_IFNB <A>,<%%.MOD_(==SIXBIT/A/> 
	_HIFNB <B>,<%%.OTS_h==SIXBIT/B/> 
`
	GLOB	I%INIT			

	TOPS10	<			
`H		SEARCH	UUOSYM		`h
		%%UUOS==%%UUOaS		
	>				

	Ta(OPS20	<			
		SEAaHRCH	MONSYM		
;		ah%%MONS==%%MONS		
	>				

	IFB <b(B>,<			
		IFN GbHLXPUR,<
			.TEXTbh	|,REL:GLXLIB/SEAcRCH/REQUIRE:I%INIc(T/SEGMENT:LOW|
	cH	>			
		DEFINE	$chDATA (NAM,SIZ<1>)d,< 
			NAM:	BLOCd(K	SIZ
		>			
		dHDEFINE	CDO (X),<GdhLOB X> 
		DEFINEe	NT(X),<CDO X>	
e(		LIBVEC			
	>		eH		

	IFNB <B>,eh<CHKEDT (B)>	
f
	IFNB <B>,<IFDIf(F <B><INI>,< 
	fH	IFN GLXPURE,<.PSfhECT .HIGH.> 
		IgFE GLXPURE,<		
	g(		TWOSEG	400000	
			RELOC	0	
			ghRELOC	400000	
		h>			

		DEFINE h($DATA(NAM,SIZ<1>)hH,< 
			IFN GLXPUhhRE,<.PSECT DATA> i
			IFE GLXPURE,i(<RELOC> 
			IFNDiHEF B%D,<B%D::! ihB%DL==:0>
			NAjM:	BLOCK	SIZ
			j(B%DL==:B%DL+SIZjH 
			IFN GLXPUREjh,<.ENDPS DATA> 
k			IFE GLXPURE,<Rk(ELOC> 
		>			
kH
		IFDIF <B><OTSkh>,<	
			DEFINE	ClDO (X),<GLOB X> 
			DEFINE	NT(X),lH<CDO X> 
			LIBVlhEC		
		>			

	m>>				

	IFNB <m(B>,<IFIDN <B><ImHNI>,< 
		DEFINE	mh$DATA (NAM,SIZ<1>n),< 
			NAM:	BLOn(CK	SIZ
		>			
	nH>>				

	LSTON.nh				

	GLOB	<.PoOPJ, .RETT, .RETFo(>	
	OPDEF	$RET	[oHPOPJ	P,]	
	OPDEFoh	$RETT	[PJRST	.REpTT]	
	OPDEF	$RETp(F	[PJRST	.RETF]	
	OPDEF	$RETIT	[JphUMPT	.POPJ]	
	OPqDEF	$RETIF	[JUMPFq(	.POPJ]	
	.NODDTqH	$RET,$RETT,$RETFqh,$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  7
	IFNB <0B>,<TOPS10<A==BP>>
	IFNB <C>,<TpOPS20<A==C>>
PS20<A==C>>
h$^A  h$^h&N A  h&N i?4( X =IFN FTUUOS,B			;DEFINE UNi?4H  AIFN FTJSYS,	INTERN AEDT	ic  'q"?POINT 7,[ASCIZ@A@]J, .REq@ :0#UIFB <C>,<:PA==:B> IFNB <C>,<A=:B>B <Cq` #I"
	ZZ==ZZ+1
	ER$A==ZZZ+uhP 	H  $	"9;X
 A:	BLO'CK B
	 ..LOC==.OCK	B
		A,E#^"K1FNDEF 	  (1"I
	LSTOF.
	JSP	TF,ERROR		
	CAI	[ITEXT	(<A>)]		
	LSTON.>	$ *"S
	$DATA	(*8<A>,<B>)
	INTERN	A
RETF	J.@ ,~	J.I9 	!r
	PJRST	[)MOVEI	S1,A
		 $RETF]1,A
		 $	J.I@P`5"eJ.I@	J.J3P`4@"jB~
@	J.J:P`5@"jB~
@	J.MP`5"dJ.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