Google
 
Trailing-Edge - PDP-10 Archives - SRI_NIC_PERM_SRC_1_19910112 - 6-1-monitor/scpar.unv
There are 15 other files named scpar.unv in the archive. Click here to see a list.
x,5D@P E>= X#I98
	IFN FTSxHOW,..LOC==.


DEFINE	WORD(NAM,8NUMB<1>),<
	IFN X<..MSK>,<..OFF==.x.OFF+1> 

	..MS	K==0		
	FIELDM(N	8AM,<.FWORD>)	

	X	..MSK==0		
	..O	xFF==..OFF+NUMB	


>

DEFINE	NXT
8WRD(NUMB<1>),<
	
X..MSK==0
	..OFF=
x..OFF+NUMB

>

DEFINE	FILLER(N8UM),<
	..FLG==POXS(..MSK)
	IFE ..xMSK,<..FLG==-1>


	IFG <^D<NUM>-<^D

835-..FLG>>,<PRINT

XX ?FILL TOO BIG I

xN A STRUCTURE>
	...MSK==MASK.(^D
	IFN FTSHO
	  PHASE ..OFF
	  EXP ...MSK8
	>
	..MSK==..MXSK!...MSK
>

x

DEFINE	HWORD(nam),<
	..FLG==0	8	
	IFE ..MSK&.LHXALF,<FIELDM(nam,.xLHALF)
			  ..FLG==1>
	IFE ..FLG8,<..MSK==..MSK!.LXHALF
		   IFE ..xMSK&.RHALF,<FIELDM(nam,.RHALF)
		8		     ..FLG==1>
		   IFE ..FLG,<xNXTWRD
			      FIELDM(nam,.LHALF8) >
		  >
>

X
DEFINE	FIELD(NAxM,SIZ,POS),<
	..FLG==0		

	IFB 8<POS>,<IFB <SIZ>,X<
	  ...MSK==.RTxMSK(<<^-<<..MSK>>>>) 
	  IFE ...M8SK,<..OFF==..OFF+X1 
	    ..MSK==0x		
	    ...MSK==-1
	  >
	  FIEL8DM(NAM,<...MSK>)	X
	x..FLG==-1		
	>>

	IFNB <SIZ>,<.SIZ==^D<SIZ>8> 

	IFNB <POS>X,<		
	  FIELDM(NxAM,MASK.(.SIZ,POS)) 
	  ..FLG==-18		
	  ..BITS==MAXSK.(.SIZ,POS) 
	x>

	IFE ..FLG,<IFGE <^D<.SIZ>-^D836>,< 
	  WORD(NXAM,<^D<.SIZ>/^D36x>) 
	  IFN <<^D<.SIZ>-<^D<.SIZ>/^8D36>*^D36>>,<	
	X    FIELD(...,<<^xD<.SIZ>-<^D<.SIZ>/^D36>*^D36>>) 
8	  >

	  ..FLG=X=-1		
	>>

	IFxE ..FLG,<		
	  ..BITS==MASK.(^D<.8SIZ>,<^D<.SIZ>-1>X) 

	  REPEAT <x^D36-^D<.SIZ>+1>,< 
	    IFE ..FL8G,<	
	      IFE X<..BITS&..MSK>,< x
			..MSK==..MSK!..BITS 
		..FLG8==-1 
	       > X

	    IFE ..FLxG,..BITS==..BITS_<-1> 
	    >
	 8 >

	IFE ..FLG,X<		
	  ..BITS==MxASK.(^D<.SIZ>,<^D<.SIZ>-1>) 
	  .8.OFF==..OFF+1	
	X  ..MSK==..BITS		x
	>

	MSKSTR( A'NAM,\..OFFC,.. 8BITS) 
	A.'NAM= X=..OFF
	IFN FTSH xOW,<
	  PHASE	A!.'NAM
	  EXP	A'!8NAM
	>>

	..OL!XD==..BITS		
	...!xOLD==..BITS		

">

DEFINE	BIT(N"8AM),<
	..BITS==L"XFTBT.(..OLD)	

"x	IFE ..BITS,<PRIN#TX ?NO ROOM FOR B#8IT IN LAST FIELD>#X

	A%'NAM==..B#xITS_<-<^D35-POS(.$..OLD)>> 
	A.'N$8AM==..OFF		

	M$XSKSTR(A'NAM,\..O$xFFC,..BITS) 
	I%FN FTSHOW,<
	  P%8HASE ..OFF
	  EX%XP A'NAM
	>

	%x..OLD==..OLD&<^-<&..BITS>> 

>
&8
DEFINE	FIELDM(NA&XM,MASK),<
	IFN M&xASK&..MSK,<	
	  '..MSK==0		
	  ..'8OFF==..OFF+1
	>X

	..MSK==..MSK!'xMASK	

	MSKSTR((A'NAM,\..OFFC,M(8ASK) 
	A.'NAM==(X..OFF
	IFN FTSHO(xW,<
	  PHASE	A.)'NAM
	  EXP	A'N)8AM
	>
>

DEFI)XNE ENDSTR(LENNAM<)xLEN>,LSTNAM<LST>)*,<

	IFN ..MSK,*8<..OFF==..OFF+1> *X

	A.'LSTNAM==*x..OFF	

	IFN FT+SHOW,DEPHASE

	+8..LOK==..LOK+1
	+XIFN ..LOK,<PRINTX+x ? MISSING BEGSTR,>

	IF2,<
	  I,8FDEF ...MSK,<SUPP,XRESS ...MSK>
	  ,xIFDEF ..BITS,<SUP-PRESS ..BITS>
	 -8 IFDEF .SIZ,<SUPP-XRESS .SIZ>
	  IF-xDEF ..MSK,<SUPPRE.SS ..MSK>
	  IFD.8EF ..OFF,<SUPPRES.XS ..OFF>
	  IFDE.xF ..FLG,<SUPPRESS/ ..FLG>
	  IFDEF/8 ..LOK,<SUPPRESS /X..LOK>
	  IFDEF /x..LOC,<SUPPRESS .0.LOC>
	  IFDEF .08.OLD,<SUPPRESS ..0XOLD>
	  IFDEF ..0x.OLD,<SUPPRESS ..1.OLD>
	>

	IF118,<
	  IFDEF ...M1XSK,<.XCREF ...MSK1x>
	  IFDEF ..BIT2S,<.XCREF ..BITS>28
	  IFDEF .SIZ,<2X.XCREF .SIZ>
	  2xIFDEF ..MSK,<.XCR3EF ..MSK>
	  IFD38EF ..FLG,<.XCREF 3X..FLG>
	  IFDEF 3x..OFF,<.XCREF ..O4FF>
	  IFDEF ..L48OK,<.XCREF ..LOK>4X
	  IFDEF ..LOC,4x<.XCREF ..LOC>
	5  IFDEF ..OLD,<.X58CREF ..OLD>
	  I5XFDEF ...OLD,<.XCR5xEF ...OLD>
	>
6
	PURGE WORD,NXTW68RD,FILLER,HWORD,F6XIELD,BIT,FIELDM
6x
	A.'LENNAM==..7OFF-B
	IFN FTSH78OW,<RELOC ..LOC>>7X



	..MSK==07x		
	..OFF==B		
	A.D==B	

	88IFDEF ..LOK,<IFL 8X..LOK,<PRINTX ? N8xEW BEGSTR WITHOUT9 ENDSTR>>

	..LOK==-1


	..L#L#M0#OBEG
	  Eg$\` 8Yg
	c==0
8y	d==0
	IRP B,<9
		d==<d_^DA>98+<B_<^D36/^DA>>9X
		c==c+1
		I9xFE c-<^D36/^DA>:,<
			EXP d
		Kx	c==0
			d==0
		>>

	IFN c,L8<
		d==d_<<<^DLX36/^DA>-c>*^DALx>
		EXP d
	>

		EXP d
	>
GtqP GtzP Gt)3P Gt8zP Gt:9P GtLzP GuI7P GuLzP Gum6P GvzP Gv

{P Gv<QP GvXzP GvYP GvZ2P 	G

8`Q G

=Q xG
=P'G
@Q G
&=Q G
ak7P G
ak<P G
v[ Q G=P'G=`Q G(`Q G,=Q xG,H Q G-Q K:%yS R%m
	%NEA==%%%CTR
	NSF.A=&h$MXSFA==K:&= bIWi`

	IFN ..MSK,<..OFF==..OFQQF+1> 

	PS.B==OY..OFF	

	IFN FTNISHOW,DEPHASE

	G..LOK==..LOK+1
	FYIFN ..LOK,<PRINTXDa ? MISSING BEGSTR1q>

	IF2,<
	  I))FDEF ...MSK,<SUPPRESS ...MSK>
	  aIFDEF ..BITS,<SUPziPRESS ..BITS>
	 xy IFDEF .SIZ,<SUPPjQRESS .SIZ>
	  IFfyDEF ..MSK,<SUPPREQYSS ..MSK>
	  IFDREF ..OFF,<SUPPRESR0S ..OFF>
	  IFDERPF ..FLG,<SUPPRESSRp ..FLG>
	  IFDEFS ..LOK,<SUPPRESS S0..LOK>
	  IFDEF SP..LOC,<SUPPRESS .Sp.LOC>
	  IFDEF .T.OLD,<SUPPRESS ..T0OLD>
	  IFDEF ..TP.OLD,<SUPPRESS ..Tp.OLD>
	>

	IF1U,<
	  IFDEF ...MU0SK,<.XCREF ...MSKUP>
	  IFDEF ..BITUpS,<.XCREF ..BITS>V
	  IFDEF .SIZ,<V0.XCREF .SIZ>
	  VPIFDEF ..MSK,<.XCRVpEF ..MSK>
	  IFDWEF ..FLG,<.XCREF W0..FLG>
	  IFDEF WP..OFF,<.XCREF ..OWpFF>
	  IFDEF ..LXOK,<.XCREF ..LOK>X0
	  IFDEF ..LOC,XP<.XCREF ..LOC>
	Xp  IFDEF ..OLD,<.XYCREF ..OLD>
	  IY0FDEF ...OLD,<.XCRYPEF ...OLD>
	>
Yp
	PURGE WORD,NXTWZRD,FILLER,HWORD,FZ0IELD,BIT,FIELDM
ZP
	PS.A==..OFF-0Zp
	IFN FTSHOW,<RELOC ..LOC>W,<RE	&O"vLEN&8LSTTS==.KZ-m _!$
  IFB <JYD>,<
	CALL [	SETOEVT(A,B,C)
		^CALLRET NSPEVT]		
  >
  IFNB <D!>,<
	JRST [	SETEAVT(A,B,C)
		CIALL NSPEVT		
		JRST D]
  >
JK[$<rP K[$H:P K[$kP K[%\sP Kc  
ZUT
   IF2,<
Z!
	IRP A,<
	IFN
Z@DEF A,<EXTERN A
	SUPPRE A>>>MJidP MJid P MJid@P MJik<P MR~

hP MS{P S:MyS 2	%a 
	%%%CTR=2)=B-1

DEFINE O2HFFSET(ITEM),<%%%C2hTR==%%%CTR+1
	A3'ITEM==%%%CTR>
@
DEFINE ENDOFF(MA^qXSYM<MX>),<
	A'4YMAXSYM==%%%CTR>
XSYM==%%%CTR>
&
0IFN B&Y$- bp&1_<^D35-^L<A>>1_<^D35-^L[3@ cH&<<<1_<A>>-1>B<B>>_<A>>[F

ZP`p1%#Kp1%]+,[8t)3P [8uI7P [8uLzP [8v,P [8v,{P [8v\yP [8vi9P [; P [;=@P [;.<@P [;4\@P 0[N^= e`&:
	A==C	f	
	IF1,<IFDEF %f A,<PRINTX ?A ALRf@EADY DEFINED>>
	f`DEFINE %A (OP,ACg,Y,MSK)<
	$A==<g Z B>		
	OP (<AC>,B'Y,MSK)><AC],[vP ].x4P ]t)3P ]t[vP ]tkP ]tkQP ]uI7P ]uLzP ]v:=P ]vx4P ]-{ Q  ]5I`Q ~]5h`Q x]@P']< Q @]+,A  ]+,]L,[vP ]L-P ]L-P ]L-iP ]L-iP ]L.x4P ]Lt)3P ]Lt[vP ]LtkP ]LuP ]LuP ]LuI7P ]LuLzP ]LuiP ]LuiP ]Lv=P ]Lv=P ]Lvx4P ]N-{ Q  ]N1hhP ]N1hvP ]N1hyP ]N1k<P ]N5I`Q ~]NLH P$]NLL@P"]NtH P!]NtL@P @]OH P ]OL`P'@]O< Q @_69: Qq$%%%CTR==%%B!%CTR+1
	%NEA==%%%CTR
	NSF.A==at)3P atkyP at|XP auI7P auLzP auh6P auhzP auxUP av:=P av\yP a
5|@P'~a
>,Q xa
ak7P a
ak<P a
t Q a
t=Q xa
|*@P a@Q xa.<@P'a? w'8<^L<<A>&<-<A>>>><<A>&<aL-[yP$aLt)3P aLt:P aLtkP aLuI7P aLuLzP aLu[yP aLv

vP aLv=P aN@P'aN5I`Q xaNm|@Q @aO; P'aOL`Q xaPt)3P aPt+P aPt;wP aPtH:P aPtI;P aPt[4P aPtlUP aPuZP aPu)WP aPuI7P aPuLzP aPuMqP aPulYP aPv

tP aPv=P aPvN8P aPvx5P aRJ`P  aR{@Q ~aR$Q xaR$]@Q aR-Z P"aR6*`P'aRMmQ |aRTk@Q xaRfx`P @aRv,@P aS: P!aSL`Q xaS'P$aS<`P gt)3P gt;ZP gtH:P guI7P guLzP guX<P gvyP g
mQ xg
$Q g
ak7P g
ak<P g<L`P'g

vi9P g.,@ "p
	JRST [M3IOVX T1,A
IFB <QB>,<RET>
IFNB <]QB>,<
   IFIDN <qB><CPOPJ>,<RET>
(a   IFDIF <B><CPO.	PJ>,<JRST B>
   >
		]
B>
  g@P 	g$]Z QA
	SAVEAC Ay<T1,T2,T3,T4,T5,TKY6,P1,P2>
IFN FTTO9RACE,<
	XMOVEI TOY1,.		
IFNB <C>,P<XMOVEI T2,[ASCIZq /C/]>
IFB <C>Ix,<SETZ T2,>
	MOVJX T3,EVTB
	CALL7x EVTTRC		
>
	MO8VX T1,.NCA
	MOVX T2,EVTB
MOVgPt)3P gPuI7P gPuLzP gPulP gPv P gPv@P gPv`P gRvQ gSQ gS Q gS0Q q@ )A==:BI
,=P q pY
	$CBACC=py=<Z 46>		
	A (<B>,46C,D) (<z sa 
	$CBACT=t=<Z 65>		
	A (<B>,65C,D) (<8z tQ'
	$CBCCT=tq=<Z 65>		
	A (<B>,65C,D) (<:9 ki`
	$CBCIR=l	=<Z 1>		
	A (<B>,1C,D)A (<Lz lyi
	$CBDST=m=<Z 2>		
	A (<B>,2C,D)A (<m6 jyY
	$CBNUM=k=<Z 0>		
	A (<B>,0C,D)A (<z ri
	$CBPCT=s	=<Z 64>		
	A (<B>,64C,D) (<

{ oi
	$CBPSW=p	=<Z 34>		
	A (<B>,34C,D) (<<Q mip
	$CBSRC=n	=<Z 12>		
	A (<B>,12C,D) (<Xz lQu
	$CBUCT=nQ=<Z 64>		
	A (<B>,64C,D) (<Y qI
	$CBUDA=qi=<Z 60>		
	A (<B>,60C,D) (<Z2 nyy
	$CBUID=o=<Z 22>		
	A (<B>,22C,D) (<6v, ! 
	$MNRPA==<Z 0>		
	A (<B>,0C,D)A (<6v,{ q 
	$MNRSV=Q=<Z 0>		
	A (<B>,0C,D)A (<6v\y 	 
	$MNUSR=i=<Z 0>		
	A (<B>,0C,D)A (<6vi9 Y 
	$MNVER=9=<Z 0>		
	A (<B>,0C,D)A (<:,RP :,VP :,WP :,yP :,P :,P :,(sP :,(wP :,)ZP :,8VP 	:,9RP :,HWP :,LqP :-P :-VP :-P :-3P :-3P :-SP :-sP :-,<P :-KYP :-L<P :-^P :-hrP :-kP :-m9P :-}P :.VP 
:.
7P :.

[P :.(WP :.)5P :.)9P :.+WP :.+YP :.8VP 
:.=P :.XsP 

:.XvP :.XyP :.X{P :.YP :.YP :.ZwP :.[P 

:.[WP :.[YP :.\WP :.^P :.{PP :.|YP 	:4[v ,Q"g
	$NFEOM=,q=<Z 0>		
	A (<B>,0C,D)A (<:4k +1"]
	$NFFLG=+Q=<Z 0>		
	A (<B>,0C,D)A (<:4kQ /q"}
	$NFFNC=/Q=<Z 0>		
	A (<B>,0C,D)A (<:6:= /"{
	$NFSIZ=/1=<Z 0>		
	A (<B>,0C,D)A (<:6x4 )"a
	$NFWAI=,=<Z 0>		
	A (<B>,0C,D)A (<;[v !Y"
	$NSEOM=!y=<Z 0>		
	A (<B>,0C,D)A (<;k  9"
	$NSFLG= Y=<Z 0>		
	A (<B>,0C,D)A (<; 59""
	$NSIDA=$)=<Z 0>		
	A (<B>,0C,D)A (<; $i"(
	$NSIDR=%	=<Z 0>		
	A (<B>,0C,D)A (<;i &a"8
	$NSNDA='=<Z 0>		
	A (<B>,0C,D)A (<;i 'A">
	$NSNDR='a=<Z 0>		
	A (<B>,0C,D)A (<;= *	"N
	$NSSTA=)i=<Z 0>		
	A (<B>,0C,D)A (<;= #I"
	$NSSTS=#i=<Z 0>		
	A (<B>,0C,D)A (<;x4 q"	
	$NSWAI=!=<Z 0>		
	A(<B>,0C,D)A (<Bky `	
	$PBFOR=aY=<Z 0>		
	A (<B>,0C,D)A (<B|X fY
	$PBGRP=`I=<Z 7>		
	A (<B>,7C,D)A (<Bh6 g!<
	$PBNAM=gA=<Z 2>		
	A (<B>,2C,D)A (<Bhz d9%
	$PBNCT=dY=<Z 1>		
	A (<B>,1C,D)A (<BxU b
	$PBOBJ=b9=<Z 0>		
	A (<B>,0C,D)A (<B:= `q	
	$PBSIZ=a=<Z 0>		
	A (<B>,0C,D)A (<B\y hAF
	$PBUSR=ha=<Z 7>		
	A (<B>,7C,D)A (<C: 7)#<
	$PSCHN=7I=<Z 1>		
	A (<B>,1C,D)A (<Ck 3#
	$PSFLG=39=<Z 0>		
	A (<B>,0C,D)A (<C[y 2Q#
	$PSMOR=3y=<Z 0>		
	A (<B>,0C,D)A (<C

v 5I#.
	$PSPSM=5i=<Z 0>		
	A (<B>,0C,D)A (<C= 69#5
	$PSSTS=6Y=<Z 1>		
	A (<B>,1C,D)A (<C$+ I!
	$PTBLK=	=<Z 0>		
	A (<B>,0C,D)A (<C$;w a &
	$PTCON=i=<Z 0>		
	A (<B>,0C,D)A (<C$H: 	 5
	$PTDAT=Y=<Z 0>		
	A (<B>,0C,D)A (<C$I; !S
	$PTDEV=1=<Z 3>		
	A (<B>,3C,D)A (<C$[4 Y P
	$PTEMI=
	=<Z 0>		
	A (<B>,0C,D)A (<C$lU )!D
	$PTFRK=I=<Z 1>		
	A (<B>,1C,D)A (<C%Z ) ,
	$PTINT=I=<Z 0>		
	A (<B>,0C,D)A (<C%)W 	!2
	$PTJFN=)=<Z 1>		
	A (<B>,1C,D)A (<C%Mq 

I p
	$PTLWC=	=<Z 0>		
	A (<B>,0C,D)A (<C%lY I! 
	$PTNRR=	=<Z 0>		
	A (<B>,0C,D)A (<C&

t 
I `
	$PTPSI=

	=<Z 0>		
	A (<B>,0C,D)A (<C&= !!L
	$PTSTS=A=<Z 2>		
	A (<B>,2C,D)A (<C&N8  A
	$PTTYP==<Z 0>		
	A (<B>,0C,D)A (<C&x5 I!
	$PTWAK=	=<Z 0>		
	A (<B>,0C,D)A (<N;Z w:
	$SBCNT=w!=<Z 0>		
	A (<B>,0C,D)A (<NH: y!L
	$SBDAT=yA=<Z 1>		
	A (<B>,1C,D)A (<Ny wqA
	$SBWDS=x=<Z 0>		
	A (<B>,0C,D)A (<O%l {[
	$STNP=={1<Z 0>		
	A (<B>,0C,D)A (<BO&  |b
	$STP1==|!<Z 1>		
	A (<B>,1C,D)A (<BO&@ |qi
	$STP2==}<Z 2>		
	A (<B>,2C,D)A (<BO&` }ap
	$STP3==~<Z 3>		
	A (<B>,3C,D)A (<B8u\uQ x8u{Q x:Q @:5I`P :ex`P(:ez`P :n:`Q :|i@P :}IQ ?xS@P =|RQ 2DQ x;(P ;)P ;)P ;tP ;WP ;<P ;vP ;zP ;81P ;9P ;;RP ;<P ;<rP ;<}P ;=2P ;=9P ;IVP ;KqP ;LP ;LP ;L}P ;h1P ;h1P ;iP ;iP ;i0P ;i8P ;j9P ;j9P ;jYP 	;jYP 	;k<P 
;lP 
;lQP ;lRP ;lRP ;lTP ;lUP ;lVP ;lXP ;lYP ;lrP ;lxP ;8sP ;8vP ;8yP ;8yP ;8{P ;9P ;9P ;9P ;;P ;;<P ;;YP ;<UP ;<WP JDP'NO P 	>}{woP