Google
 

Trailing-Edge - PDP-10 Archives - BB-PENEA-BM_1990 - t20sub/scpar.unv
There are 15 other files named scpar.unv in the archive. Click here to see a list.
x,UD@P E>= 
l=h
	IFN FTS
(HOW,..LOC==.


H
DEFINE	WORD(NAM,
hNUMB<1>),<
	IFNMK>,<..OFF==.

	..MS	
	FIELDM(ND>)	

	..MSK==0		
	..O(FF==..OFF+NUMB	
H
>

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

>
H
DEFINE	FILLER(NhUM),<
	..FLG==POS(..MSK)
	IFE ..(MSK,<..FLG==-1>
H	IFG <^D<NUM>-<^Dh35-..FLG>>,<PRINTX ?FILL TOO BIG I(N A STRUCTURE>
H	...MSK==MASK.(^Dh<NUM>,<..FLG+^D<NUM>>)
	IFN FTSHO(W,<
	  PHASE ..OHFF
	  EXP ...MSKh
	>
	..MSK==..MSK!...MSK
>

(

DEFINE	HWORD(nHam),<
	..FLG==0	h	
	IFE ..MSK&.LHALF,<FIELDM(nam,.(LHALF)
			  ..FLHG==1>
	IFE ..FLGh,<..MSK==..MSK!.LHALF
		   IFE ..(MSK&.RHALF,<FIELDHM(nam,.RHALF)
		h		     ..FLG==1>
		   IFE ..FLG,<(NXTWRD
			      HFIELDM(nam,.LHALFh) >
		  >
>


DEFINE	FIELD(NA(M,SIZ,POS),<
	..HFLG==0		

	IFB h<POS>,<IFB <SIZ>,<
	  ...MSK==.RT(MSK(<<^-<<..MSK>>H>>) 
	  IFE ...MhSK,<..OFF==..OFF+1 
	    ..MSK==0(		
	    ...MSK==H-1
	  >
	  FIELhDM(NAM,<...MSK>)	
	(..FLG==-1		
	>>

	IFNB <SIHZ>,<.SIZ==^D<SIZ>h> 

	IFNB <POS>,<		
	  FIELDM(N(AM,MASK.(.SIZ,POSH)) 
	  ..FLG==-1h		
	  ..BITS==MASK.(.SIZ,POS) 
	(>

	IFE ..FLG,<HIFGE <^D<.SIZ>-^Dh36>,< 
	  WORD(NAM,<^D<.SIZ>/^D36(>) 
	  IFN <<^D<H.SIZ>-<^D<.SIZ>/^hD36>*^D36>>,<	
	    FIELD(...,<<^(D<.SIZ>-<^D<.SIZ>H/^D36>*^D36>>) 
h	  >

	  ..FLG==-1		
	>>

	IF(E ..FLG,<		
	  .H.BITS==MASK.(^D<.hSIZ>,<^D<.SIZ>-1> ) 

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

	    IFE ..FL"(G,..BITS==..BITS_"H<-1> 
	    >
	 "h >

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

	MSKSTR($HA'NAM,\..OFFC,..$hBITS) 
	A.'NAM=%=..OFF
	IFN FTSH%(OW,<
	  PHASE	A%H.'NAM
	  EXP	A'%hNAM
	>>

	..OL&D==..BITS		
	...&(OLD==..BITS		

&H>

DEFINE	BIT(N&hAM),<
	..BITS==L'FTBT.(..OLD)	

'(	IFE ..BITS,<PRIN'HTX ?NO ROOM FOR B'hIT IN LAST FIELD>(

	A%'NAM==..B((ITS_<-<^D35-POS(.(H..OLD)>> 
	A.'N(hAM==..OFF		

	M)SKSTR(A'NAM,\..O)(FFC,..BITS) 
	I)HFN FTSHOW,<
	  P)hHASE ..OFF
	  EX*P A'NAM
	>

	*(..OLD==..OLD&<^-<*H..BITS>> 

>
*h
DEFINE	FIELDM(NA+M,MASK),<
	IFN M+(ASK&..MSK,<	
	  +H..MSK==0		
	  ..+hOFF==..OFF+1
	>

	..MSK==..MSK!,(MASK	

	MSKSTR(,HA'NAM,\..OFFC,M,hASK) 
	A.'NAM==-..OFF
	IFN FTSHO-(W,<
	  PHASE	A.-H'NAM
	  EXP	A'N-hAM
	>
>

DEFI.NE ENDSTR(LENNAM<.(LEN>,LSTNAM<LST>).H,<

	IFN ..MSK,.h<..OFF==..OFF+1> /

	A.'LSTNAM==/(..OFF	

	IFN FT/HSHOW,DEPHASE

	/h..LOK==..LOK+1
	0IFN ..LOK,<PRINTX0( ? MISSING BEGSTR0H>

	IF2,<
	  I0hFDEF ...MSK,<SUPP1RESS ...MSK>
	  1(IFDEF ..BITS,<SUP1HPRESS ..BITS>
	 1h IFDEF .SIZ,<SUPP2RESS .SIZ>
	  IF2(DEF ..MSK,<SUPPRE2HSS ..MSK>
	  IFD2hEF ..OFF,<SUPPRES3S ..OFF>
	  IFDE3(F ..FLG,<SUPPRESS3H ..FLG>
	  IFDEF3h ..LOK,<SUPPRESS 4..LOK>
	  IFDEF 4(..LOC,<SUPPRESS .4H.LOC>
	  IFDEF .4h.OLD,<SUPPRESS ..5OLD>
	  IFDEF ..5(.OLD,<SUPPRESS ..5H.OLD>
	>

	IF15h,<
	  IFDEF ...M6SK,<.XCREF ...MSK6(>
	  IFDEF ..BIT6HS,<.XCREF ..BITS>6h
	  IFDEF .SIZ,<7.XCREF .SIZ>
	  7(IFDEF ..MSK,<.XCR7HEF ..MSK>
	  IFD7hEF ..FLG,<.XCREF 8..FLG>
	  IFDEF 8(..OFF,<.XCREF ..O8HFF>
	  IFDEF ..L8hOK,<.XCREF ..LOK>9
	  IFDEF ..LOC,9(<.XCREF ..LOC>
	9H  IFDEF ..OLD,<.X9hCREF ..OLD>
	  I:FDEF ...OLD,<.XCR:(EF ...OLD>
	>
:H
	PURGE WORD,NXTW:hRD,FILLER,HWORD,F;IELD,BIT,FIELDM
;(
	A.'LENNAM==..;HOFF-B
	IFN FTSH;hOW,<RELOC ..LOC>><



	..MSK==0<(		
	..OFF==B		
	A.D==B	

	<hIFDEF ..LOK,<IFL =..LOK,<PRINTX ? N=(EW BEGSTR WITHOUT=H ENDSTR>>

	..LOK==-1


	..Lop0rBEG
	  Eg$\` PQ'
	c==0
Pq	d==0
	IRP B,<Q
		d==<d_^DA>Q0+<B_<^D36/^DA>>QP
		c==c+1
		IQpFE c-<^D36/^DA>R,<
			EXP d
		cp	c==0
			d==0
		>>

	IFN c,d0<
		d==d_<<<^DdP36/^DA>-c>*^DAdp>
		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 j	Px
	%NEA==%%%CTR
	NSF.A=(YMXSFA==K:&= zAX

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

	PS.B==gQ..OFF	

	IFN FTfASHOW,DEPHASE

	_..LOK==..LOK+1
	^QIFN ..LOK,<PRINTX\Y ? MISSING BEGSTRIi>

	IF2,<
	  IA!FDEF ...MSK,<SUPP7	RESS ...MSK>
	  YIFDEF ..BITS,<SUPaPRESS ..BITS>
	 q IFDEF .SIZ,<SUPPIRESS .SIZ>
	  IF~qDEF ..MSK,<SUPPREiQSS ..MSK>
	  IFDj	EF ..OFF,<SUPPRESj(S ..OFF>
	  IFDEjHF ..FLG,<SUPPRESSjh ..FLG>
	  IFDEFk ..LOK,<SUPPRESS k(..LOK>
	  IFDEF kH..LOC,<SUPPRESS .kh.LOC>
	  IFDEF .l.OLD,<SUPPRESS ..l(OLD>
	  IFDEF ..lH.OLD,<SUPPRESS ..lh.OLD>
	>

	IF1m,<
	  IFDEF ...Mm(SK,<.XCREF ...MSKmH>
	  IFDEF ..BITmhS,<.XCREF ..BITS>n
	  IFDEF .SIZ,<n(.XCREF .SIZ>
	  nHIFDEF ..MSK,<.XCRnhEF ..MSK>
	  IFDoEF ..FLG,<.XCREF o(..FLG>
	  IFDEF oH..OFF,<.XCREF ..OohFF>
	  IFDEF ..LpOK,<.XCREF ..LOK>p(
	  IFDEF ..LOC,pH<.XCREF ..LOC>
	ph  IFDEF ..OLD,<.XqCREF ..OLD>
	  Iq(FDEF ...OLD,<.XCRqHEF ...OLD>
	>
qh
	PURGE WORD,NXTWrRD,FILLER,HWORD,Fr(IELD,BIT,FIELDM
rH
	PS.A==..OFF-0rh
	IFN FTSHOW,<RELOC ..LOC>W,<RE	6LENwLSTTS==.KZ-m w	d
  IFB <bQD>,<
	CALL [	SETgEVT(A,B,C)
		v	CALLRET NSPEVT]		y
  >
  IFNB <D>,<
	JRST [	SETE9VT(A,B,C)
		C,AALL NSPEVT		
		JRST D]
  >
JK[$<rP K[$H:P K[$kP K[%\sP Kc  _pF
   IF2,<`
	IRP A,<
	IFN`0DEF A,<EXTERN A
	SUPPRE A>>>MJidP MJid P MJid@P MJik<P MR~
hP MS{P S:MyS J
ey
	%%%CTR=J!=B-1

DEFINE OJ@FFSET(ITEM),<%%%CJ`TR==%%%CTR+1
	AK'ITEM==%%%CTR>
w8
DEFINE ENDOFF(MAviXSYM<MX>),<
	A'LQMAXSYM==%%%CTR>
XSYM==%%%CTR>
JB&Y$- g :1<^D35-^L<A>>1<^D35-^L[3@ gx?<<<1<A>>-1>B<B>><A>>[F
ZP`p1\
p1\]+,[8t)3P [8uI7P [8uLzP [8v,P [8v,{P [8v\yP [8vi9P [; P [;=@P [;.<@P [;4\@P 0[N^= j]
	A==C	j0	
	IF1,<IFDEF %jPA,<PRINTX ?A ALRjpEADY DEFINED>>
	kDEFINE %A (OP,ACk0,Y,MSK)<
	$A==<kPZ 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: iiQ%%%CTR==%%Z%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? yXM<^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.,@ 5	0
	JRST [MKAOVX T1,A
IFB <5IB>,<RET>
IFNB <uIB>,<
   IFIDN <3iB><CPOPJ>,<RET>
@Y   IFDIF <B><CPOFPJ>,<JRST B>
   >
		]
B>
g@P 	g$]Z 3I
	SAVEAC Yq<T1,T2,T3,T4,T5,TcQ6,P1,P2>
IFN FTTg1RACE,<
	XMOVEI TgQ1,.		
IFNB <C>,4H<XMOVEI T2,[ASCIZ4i /C/]>
IFB <C>ap,<SETZ T2,>
	MOVbX T3,EVTB
	CALLOp EVTTRC		
>
	MOPVX 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 QG
	$CBACC=q=<Z 46>		
	A (<B>,46C,D) (<z Y_
	$CBACT=y=<Z 65>		
	A (<B>,65C,D) (<8z 
If
	$CBCCT=
i=<Z 65>		
	A (<B>,65C,D) (<:9 a 
	$CBCIR==<Z 1>		
	A (<B>,1C,D)A (<Lz q)
	$CBDST==<Z 2>		
	A (<B>,2C,D)A (<m6 q
	$CBNUM==<Z 0>		
	A (<B>,0C,D)A (<z 
aX
	$CBPCT==<Z 64>		
	A (<B>,64C,D) (<
{ a@
	$CBPSW==<Z 34>		
	A (<B>,34C,D) (<<Q a0
	$CBSRC==<Z 12>		
	A (<B>,12C,D) (<Xz I4
	$CBUCT=I=<Z 64>		
	A (<B>,64C,D) (<Y 	AN
	$CBUDA=	a=<Z 60>		
	A (<B>,60C,D) (<Z2 q9
	$CBUID==<Z 22>		
	A (<B>,22C,D) (<6v, G
	$MNRPA=y=<Z 0>		
	A (<B>,0C,D)A (<6v,{ iT
	$MNRSV=I=<Z 0>		
	A (<B>,0C,D)A (<6v\y N
	$MNUSR=a=<Z 0>		
	A (<B>,0C,D)A (<6vi9 Q[
	$MNVER=1=<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 DI&
	$NFEOM=Di=<Z 0>		
	A (<B>,0C,D)A (<:4k C)
	$NFFLG=CI=<Z 0>		
	A (<B>,0C,D)A (<:4kQ Gi<
	$NFFNC=GI=<Z 0>		
	A (<B>,0C,D)A (<:6:= G	:
	$NFSIZ=G)=<Z 0>		
	A (<B>,0C,D)A (<:6x4 @y 
	$NFWAI=D	=<Z 0>		
	A (<B>,0C,D)A (<;[v 9QO
	$NSEOM=9q=<Z 0>		
	A (<B>,0C,D)A (<;k 81E
	$NSFLG=8Q=<Z 0>		
	A (<B>,0C,D)A (<; M1b
	$NSIDA=<!=<Z 0>		
	A (<B>,0C,D)A (<; <ah
	$NSIDR===<Z 0>		
	A (<B>,0C,D)A (<;i >Yw
	$NSNDA=>y=<Z 0>		
	A (<B>,0C,D)A (<;i ?9}
	$NSNDR=?Y=<Z 0>		
	A (<B>,0C,D)A (<;= B
	$NSSTA=Aa=<Z 0>		
	A (<B>,0C,D)A (<;= ;A^
	$NSSTS=;a=<Z 0>		
	A (<B>,0C,D)A (<;x4 7iI
	$NSWAI=9=<Z 0>		
	A (<B>,0C,D)A (<Bky xM
	$PBFOR=yQ=<Z 0>		
	A (<B>,0C,D)A (<B|X ~QD
	$PBGRP=xA=<Z 7>		
	A (<B>,7C,D)A (<Bh6 {
	$PBNAM=9=<Z 2>		
	A (<B>,2C,D)A (<Bhz |1e
	$PBNCT=|Q=<Z 1>		
	A (<B>,1C,D)A (<BxU zS
	$PBOBJ=z1=<Z 0>		
	A (<B>,0C,D)A (<B:= xiH
	$PBSIZ=y	=<Z 0>		
	A (<B>,0C,D)A (<B\y 9
	$PBUSR=Y=<Z 7>		
	A (<B>,7C,D)A (<C: O!|
	$PSCHN=OA=<Z 1>		
	A (<B>,1C,D)A (<Ck K[
	$PSFLG=K1=<Z 0>		
	A (<B>,0C,D)A (<C[y JI_
	$PSMOR=Kq=<Z 0>		
	A (<B>,0C,D)A (<C
v MAn
	$PSPSM=Ma=<Z 0>		
	A (<B>,0C,D)A (<C= N1u
	$PSSTS=NQ=<Z 1>		
	A (<B>,1C,D)A (<C$+ &A@
	$PTBLK=(=<Z 0>		
	A (<B>,0C,D)A (<C$;w Yf
	$PTCON=a=<Z 0>		
	A (<B>,0C,D)A (<C$H: u
	$PTDAT=Q=<Z 0>		
	A (<B>,0C,D)A (<C$I; 2	
	$PTDEV=2)=<Z 3>		
	A (<B>,3C,D)A (<C$[4  Q
	$PTEMI="=<Z 0>		
	A (<B>,0C,D)A (<C$lU 0!
	$PTFRK=0A=<Z 1>		
	A (<B>,1C,D)A (<C%Z !l
	$PTINT=A=<Z 0>		
	A (<B>,0C,D)A (<C%)W .r
	$PTJFN=.!=<Z 1>		
	A (<B>,1C,D)A (<C%Mq $A0
	$PTLWC=&=<Z 0>		
	A (<B>,0C,D)A (<C%lY *A`
	$PTNRR=,=<Z 0>		
	A (<B>,0C,D)A (<C&
t "A 
	$PTPSI=$=<Z 0>		
	A (<B>,0C,D)A (<C&= 1
	$PTSTS=19=<Z 2>		
	A (<B>,2C,D)A (<C&N8 
	$PTTYP= =<Z 0>		
	A (<B>,0C,D)A (<C&x5 (AP
	$PTWAK=*=<Z 0>		
	A (<B>,0C,D)A (<N;Z yy
	$SBCNT==<Z 0>		
	A (<B>,0C,D)A (<NH: 
	$SBDAT=9=<Z 1>		
	A (<B>,1C,D)A (<Ny i
	$SBWDS=	=<Z 0>		
	A (<B>,0C,D)A (<O%l 	
	$STNP==)<Z 0>		
	A (<B>,0C,D)A (<BO&  y!
	$STP1==<Z 1>		
	A (<B>,1C,D)A (<BO&@ i(
	$STP2==	<Z 2>		
	A (<B>,2C,D)A (<BO&` Y/
	$STP3==y<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