PDP-10 Archive: monitor/scpar.unv from SRI_NIC_PERM_SRC_3

Trailing-Edge - PDP-10 Archives - SRI_NIC_PERM_SRC_3_19910112 - monitor/scpar.unv

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

x,SD@P E>= ($&E
	IFN FTSHHOW,..LOC==.

h
DEFINE	WORD(NAM,NUMB<1>),<
	IFN (<..MSK>,<..OFF==.H.OFF+1> 

	..MShK==0		
	FIELDM(NAM,<.FWORD>)	

(	..MSK==0		
	..OHFF==..OFF+NUMB	
h
>

DEFINE	NXTWRD(NUMB<1>),<
	(..MSK==0
	..OFF=H..OFF+NUMB

>
h
DEFINE	FILLER(NUM),<
	..FLG==PO(S(..MSK)
	IFE ..HMSK,<..FLG==-1>
h	IFG <^D<NUM>-<^D35-..FLG>>,<PRINT(X ?FILL TOO BIG IHN A STRUCTURE>
h	...MSK==MASK.(^D<NUM>,<..FLG+^D<N(UM>>)
	IFN FTSHOHW,<
	  PHASE ..OhFF
	  EXP ...MSK
	>
	..MSK==..M(SK!...MSK
>

H

DEFINE	HWORD(nham),<
	..FLG==0		
	IFE ..MSK&.LH(ALF,<FIELDM(nam,.HLHALF)
			  ..FLhG==1>
	IFE ..FLG,<..MSK==..MSK!.L(HALF
		   IFE ..HMSK&.RHALF,<FIELDhM(nam,.RHALF)
				     ..FLG==1>
		   IFE ..FLG,<HNXTWRD
			      hFIELDM(nam,.LHALF) >
		  >
>

(
DEFINE	FIELD(NAHM,SIZ,POS),<
	..hFLG==0		

	IFB <POS>,<IFB <SIZ>,(<
	  ...MSK==.RTHMSK(<<^-<<..MSK>>h>>) 
	  IFE ...M SK,<..OFF==..OFF+ (1 
	    ..MSK==0 H		
	    ...MSK== h-1
	  >
	  FIEL!DM(NAM,<...MSK>)	!(
	!H..FLG==-1		
	>>

	IFNB <SI!hZ>,<.SIZ==^D<SIZ>"> 

	IFNB <POS>"(,<		
	  FIELDM(N"HAM,MASK.(.SIZ,POS"h)) 
	  ..FLG==-1#		
	  ..BITS==MA#(SK.(.SIZ,POS) 
	#H>

	IFE ..FLG,<#hIFGE <^D<.SIZ>-^D$36>,< 
	  WORD(N$(AM,<^D<.SIZ>/^D36$H>) 
	  IFN <<^D<$h.SIZ>-<^D<.SIZ>/^%D36>*^D36>>,<	
	%(    FIELD(...,<<^%HD<.SIZ>-<^D<.SIZ>%h/^D36>*^D36>>) 
&	  >

	  ..FLG=&(=-1		
	>>

	IF&HE ..FLG,<		
	  .&h.BITS==MASK.(^D<.'SIZ>,<^D<.SIZ>-1>'() 

	  REPEAT <'H^D36-^D<.SIZ>+1>,'h< 
	    IFE ..FL(G,<	
	      IFE ((<..BITS&..MSK>,< (H
			..MSK==..MSK(h!..BITS 
		..FLG)==-1 
	       > )(

	    IFE ..FL)HG,..BITS==..BITS_)h<-1> 
	    >
	 * >

	IFE ..FLG,*(<		
	  ..BITS==M*HASK.(^D<.SIZ>,<^D*h<.SIZ>-1>) 
	  .+.OFF==..OFF+1	
	+(  ..MSK==..BITS		+H
	>

	MSKSTR(+hA'NAM,\..OFFC,..,BITS) 
	A.'NAM=,(=..OFF
	IFN FTSH,HOW,<
	  PHASE	A,h.'NAM
	  EXP	A'-NAM
	>>

	..OL-(D==..BITS		
	...-HOLD==..BITS		

-h>

DEFINE	BIT(N.AM),<
	..BITS==L.(FTBT.(..OLD)	

.H	IFE ..BITS,<PRIN.hTX ?NO ROOM FOR B/IT IN LAST FIELD>/(

	A%'NAM==..B/HITS_<-<^D35-POS(./h..OLD)>> 
	A.'N0AM==..OFF		

	M0(SKSTR(A'NAM,\..O0HFFC,..BITS) 
	I0hFN FTSHOW,<
	  P1HASE ..OFF
	  EX1(P A'NAM
	>

	1H..OLD==..OLD&<^-<1h..BITS>> 

>
2
DEFINE	FIELDM(NA2(M,MASK),<
	IFN M2HASK&..MSK,<	
	  2h..MSK==0		
	  ..3OFF==..OFF+1
	>(

	..MSK==..MSK!3HMASK	

	MSKSTR(3hA'NAM,\..OFFC,M4ASK) 
	A.'NAM==4(..OFF
	IFN FTSHO4HW,<
	  PHASE	A.4h'NAM
	  EXP	A'N5AM
	>
>

DEFI5(NE ENDSTR(LENNAM<5HLEN>,LSTNAM<LST>)5h,<

	IFN ..MSK,6<..OFF==..OFF+1> 6(

	A.'LSTNAM==6H..OFF	

	IFN FT6hSHOW,DEPHASE

	7..LOK==..LOK+1
	7(IFN ..LOK,<PRINTX7H ? MISSING BEGSTR7h>

	IF2,<
	  I8FDEF ...MSK,<SUPP8(RESS ...MSK>
	  8HIFDEF ..BITS,<SUP8hPRESS ..BITS>
	 9 IFDEF .SIZ,<SUPP9(RESS .SIZ>
	  IF9HDEF ..MSK,<SUPPRE9hSS ..MSK>
	  IFD:EF ..OFF,<SUPPRES:(S ..OFF>
	  IFDE:HF ..FLG,<SUPPRESS:h ..FLG>
	  IFDEF; ..LOK,<SUPPRESS ;(..LOK>
	  IFDEF ;H..LOC,<SUPPRESS .;h.LOC>
	  IFDEF .<.OLD,<SUPPRESS ..<(OLD>
	  IFDEF ..<H.OLD,<SUPPRESS ..<h.OLD>
	>

	IF1=,<
	  IFDEF ...M=(SK,<.XCREF ...MSK=H>
	  IFDEF ..BIT=hS,<.XCREF ..BITS>>
	  IFDEF .SIZ,<>(.XCREF .SIZ>
	  >HIFDEF ..MSK,<.XCR>hEF ..MSK>
	  IFD?EF ..FLG,<.XCREF ?(..FLG>
	  IFDEF ?H..OFF,<.XCREF ..O?hFF>
	  IFDEF ..L@OK,<.XCREF ..LOK>@(
	  IFDEF ..LOC,@H<.XCREF ..LOC>
	@h  IFDEF ..OLD,<.XACREF ..OLD>
	  IA(FDEF ...OLD,<.XCRAHEF ...OLD>
	>
Ah
	PURGE WORD,NXTWBRD,FILLER,HWORD,FB(IELD,BIT,FIELDM
BH
	A.'LENNAM==..BhOFF-B
	IFN FTSHCOW,<RELOC ..LOC>>C(



	..MSK==0CH		
	..OFF==B		
	A.D==B	

	DIFDEF ..LOK,<IFL D(..LOK,<PRINTX ? NDHEW BEGSTR WITHOUTDh ENDSTR>>

	..LOK==-1


	..L$)$*0$,BEG
	  Eg$\` Ky
	c==0
L	d==0
	IRP B,<L8
		d==<d_^DA>LX+<B_<^D36/^DA>>Lx
		c==c+1
		IMFE c-<^D36/^DA>M8,<
			EXP d
		_	c==0
			d==0
		>>

	IFN c,_X<
		d==d_<<<^D_x36/^DA>-c>*^DA`>
		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 e1&+ 
	%NEA==%%%CTR
	NSF.A=(%4MXSFA==K:&= uiq}

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

	PS.B==by..OFF	

	IFN FTaiSHOW,DEPHASE

	Z9..LOK==..LOK+1
	YyIFN ..LOK,<PRINTXX ? MISSING BEGSTRE>

	IF2,<
	  I<IFDEF ...MSK,<SUPP21RESS ...MSK>
	  IFDEF ..BITS,<SUP	PRESS ..BITS>

 IFDEF .SIZ,<SUPP}qRESS .SIZ>
	  IFzDEF ..MSK,<SUPPREdySS ..MSK>
	  IFDe1EF ..OFF,<SUPPRESePS ..OFF>
	  IFDEepF ..FLG,<SUPPRESSf ..FLG>
	  IFDEFf0 ..LOK,<SUPPRESS fP..LOK>
	  IFDEF fp..LOC,<SUPPRESS .g.LOC>
	  IFDEF .g0.OLD,<SUPPRESS ..gPOLD>
	  IFDEF ..gp.OLD,<SUPPRESS ..h.OLD>
	>

	IF1h0,<
	  IFDEF ...MhPSK,<.XCREF ...MSKhp>
	  IFDEF ..BITiS,<.XCREF ..BITS>i0
	  IFDEF .SIZ,<iP.XCREF .SIZ>
	  ipIFDEF ..MSK,<.XCRjEF ..MSK>
	  IFDj0EF ..FLG,<.XCREF jP..FLG>
	  IFDEF jp..OFF,<.XCREF ..OkFF>
	  IFDEF ..Lk0OK,<.XCREF ..LOK>kP
	  IFDEF ..LOC,kp<.XCREF ..LOC>
	l  IFDEF ..OLD,<.Xl0CREF ..OLD>
	  IlPFDEF ...OLD,<.XCRlpEF ...OLD>
	>
m
	PURGE WORD,NXTWm0RD,FILLER,HWORD,FmPIELD,BIT,FIELDM
mp
	PS.A==..OFF-0n
	IFN FTSHOW,<RELOC ..LOC>W,<RE	'i$LEN'RLSTTS==.KZ-m r1">
  IFB <]yD>,<
	CALL [	SETb9EVT(A,B,C)
		q1CALLRET NSPEVT]		!
  >
  IFNB <DA>,<
	JRST [	SETEaVT(A,B,C)
		C'iALL NSPEVT		
		JRST D]
  >
JK[$<rP K[$H:P K[$kP K[%\sP Kc  
fxV;
   IF2,<
g
	IRP A,<
	IFN
g8DEF A,<EXTERN A
	SUPPRE A>>>MJidP MJid P MJid@P MJik<P MR~

hP MS{P S:MyS E)?t@
	%%%CTR=EI=B-1

DEFINE OEhFFSET(ITEM),<%%%CFTR==%%%CTR+1
	AF('ITEM==%%%CTR>
r`
DEFINE ENDOFF(MArXSYM<MX>),<
	A'GyMAXSYM==%%%CTR>
XSYM==%%%CTR>
'$0IFN B&Y$- n@&t1_<^D35-^L<A>>1_<^D35-^L[3@ o&y<<<1_<A>>-1>B<B>>_<A>>[F

ZP`p1&7$ep1&7]+,[8t)3P [8uI7P [8uLzP [8v,P [8v,{P [8v\yP [8vi9P [; P [;=@P [;.<@P [;4\@P 0[N^= q0'
	A==C	qP	
	IF1,<IFDEF %qpA,<PRINTX ?A ALRrEADY DEFINED>>
	r0DEFINE %A (OP,ACrP,Y,MSK)<
	$A==<rpZ 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: e%,%%%CTR==%%UA%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? x(<^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.,@ 01$

	JRST [MFiOVX T1,A
IFB <0qB>,<RET>
IFNB <pqB>,<
   IFIDN </B><CPOPJ>,<RET>
<   IFDIF <B><CPOA)PJ>,<JRST B>
   >
		]
B>
  g@P 	g$]Z .q[
	SAVEAC U<T1,T2,T3,T4,T5,T^y6,P1,P2>
IFN FTTbYRACE,<
	XMOVEI Tby1,.		
IFNB <C>,/p<XMOVEI T2,[ASCIZ0 /C/]>
IFB <C>],<SETZ T2,>
	MOV]9X T3,EVTB
	CALLK EVTTRC		
>
	MOK9VX T1,.NCA
	MOVX T2,EVTB
MOVgPt)3P gPuI7P gPuLzP gPulP gPv P gPv@P gPv`P gRvQ gSQ gS Q gS0Q q@ )fA==:BI
,=P q y !
	$CBACC==<Z 46>		
	A (<B>,46C,D) (<z  :
	$CBACT=!=<Z 65>		
	A (<B>,65C,D) (<8z q A
	$CBCCT==<Z 65>		
	A (<B>,65C,D) (<:9 	z
	$CBCIR=)=<Z 1>		
	A (<B>,1C,D)A (<Lz  
	$CBDST=9=<Z 2>		
	A (<B>,2C,D)A (<m6 ~s
	$CBNUM=~9=<Z 0>		
	A (<B>,0C,D)A (<z 	 2
	$CBPCT=)=<Z 64>		
	A (<B>,64C,D) (<

{ 	 
	$CBPSW=)=<Z 34>		
	A (<B>,34C,D) (<<Q 	 

	$CBSRC=)=<Z 12>		
	A (<B>,12C,D) (<Xz q 
	$CBUCT=q=<Z 64>		
	A (<B>,64C,D) (<Y i (
	$CBUDA=	=<Z 60>		
	A (<B>,60C,D) (<Z2  
	$CBUID=9=<Z 22>		
	A (<B>,22C,D) (<6v, A!"
	$MNRPA=!=<Z 0>		
	A (<B>,0C,D)A (<6v,{ !/
	$MNRSV=q=<Z 0>		
	A (<B>,0C,D)A (<6v\y )!(
	$MNUSR=	=<Z 0>		
	A (<B>,0C,D)A (<6vi9 y!5
	$MNVER=Y=<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$
	$NFEOM=@=<Z 0>		
	A (<B>,0C,D)A (<:4k >Q#w
	$NFFLG=>q=<Z 0>		
	A (<B>,0C,D)A (<:4kQ C$
	$NFFNC=Bq=<Z 0>		
	A (<B>,0C,D)A (<:6:= B1$
	$NFSIZ=BQ=<Z 0>		
	A (<B>,0C,D)A (<:6x4 <!#{
	$NFWAI=?1=<Z 0>		
	A (<B>,0C,D)A (<;[v 4y#)
	$NSEOM=5=<Z 0>		
	A (<B>,0C,D)A (<;k 3Y#
	$NSFLG=3y=<Z 0>		
	A (<B>,0C,D)A (<; HY#<
	$NSIDA=7I=<Z 0>		
	A (<B>,0C,D)A (<; 8	#B
	$NSIDR=8)=<Z 0>		
	A (<B>,0C,D)A (<;i :#R
	$NSNDA=:!=<Z 0>		
	A (<B>,0C,D)A (<;i :a#X
	$NSNDR=;=<Z 0>		
	A (<B>,0C,D)A (<;= =)#h
	$NSSTA==	=<Z 0>		
	A (<B>,0C,D)A (<;= 6i#8
	$NSSTS=7	=<Z 0>		
	A (<B>,0C,D)A (<;x4 3##
	$NSWAI=49=<Z 0>		
	A (<B>,0C,D)A (<Bky s)'
	$PBFOR=ty=<Z 0>		
	A (<B>,0C,D)A (<B|X yy
	$PBGRP=si=<Z 7>		
	A (<B>,7C,D)A (<Bh6 zAV
	$PBNAM=za=<Z 2>		
	A (<B>,2C,D)A (<Bhz wY?
	$PBNCT=wy=<Z 1>		
	A (<B>,1C,D)A (<BxU u9-
	$PBOBJ=uY=<Z 0>		
	A (<B>,0C,D)A (<B:= t#
	$PBSIZ=t1=<Z 0>		
	A (<B>,0C,D)A (<B\y {a`
	$PBUSR=|=<Z 7>		
	A (<B>,7C,D)A (<C: JI$V
	$PSCHN=Ji=<Z 1>		
	A (<B>,1C,D)A (<Ck F9$5
	$PSFLG=FY=<Z 0>		
	A (<B>,0C,D)A (<C[y Eq$9
	$PSMOR=G=<Z 0>		
	A (<B>,0C,D)A (<C

v Hi$H
	$PSPSM=I	=<Z 0>		
	A (<B>,0C,D)A (<C= IY$O
	$PSSTS=Iy=<Z 1>		
	A (<B>,1C,D)A (<C$+ !i"
	$PTBLK=#)=<Z 0>		
	A (<B>,0C,D)A (<C$;w !@
	$PTCON=	=<Z 0>		
	A (<B>,0C,D)A (<C$H: )!O
	$PTDAT=y=<Z 0>		
	A (<B>,0C,D)A (<C$I; -1"m
	$PTDEV=-Q=<Z 3>		
	A (<B>,3C,D)A (<C$[4 y!j
	$PTEMI=)=<Z 0>		
	A (<B>,0C,D)A (<C$lU +I"^
	$PTFRK=+i=<Z 1>		
	A (<B>,1C,D)A (<C%Z I!F
	$PTINT=i=<Z 0>		
	A (<B>,0C,D)A (<C%)W ))"L
	$PTJFN=)I=<Z 1>		
	A (<B>,1C,D)A (<C%Mq i"

	$PTLWC=!)=<Z 0>		
	A (<B>,0C,D)A (<C%lY %i":
	$PTNRR=')=<Z 0>		
	A (<B>,0C,D)A (<C&

t i!z
	$PTPSI=)=<Z 0>		
	A (<B>,0C,D)A (<C&= ,A"f
	$PTSTS=,a=<Z 2>		
	A (<B>,2C,D)A (<C&N8 9![
	$PTTYP=9=<Z 0>		
	A (<B>,0C,D)A (<C&x5 #i"*
	$PTWAK=%)=<Z 0>		
	A (<B>,0C,D)A (<N;Z 
! T
	$SBCNT=
A=<Z 0>		
	A (<B>,0C,D)A (<NH:

A f
	$SBDAT=

a=<Z 1>		
	A (<B>,1C,D)A (<Ny  [
	$SBWDS=1=<Z 0>		
	A (<B>,0C,D)A (<O%l 1 u
	$STNP==Q<Z 0>		
	A (<B>,0C,D)A (<BO&  ! |
	$STP1==A<Z 1>		
	A (<B>,1C,D)A (<BO&@ !
	$STP2==1<Z 2>		
	A (<B>,2C,D)A (<BO&` !

	$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