Google
 
Trailing-Edge - PDP-10 Archives - bb-kl11l-bm_tops20_v7_0_tsu03_2_of_3 - 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$\` JQ
	c==0
Jq	d==0
	IRP B,<K
		d==<d_^DA>K0+<B_<^D36/^DA>>KP
		c==c+1
		IKpFE c-<^D36/^DA>L,<
			EXP d
		]p	c==0
			d==0
		>>

	IFN c,^0<
		d==d_<<<^D^P36/^DA>-c>*^DA^p>
		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 d	 ~x
	%NEA==%%%CTR
	NSF.A=x)MXSFA==K:&= tAf{X

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

	PS.B==aQ..OFF	

	IFN FT`ASHOW,DEPHASE

	Y..LOK==..LOK+1
	XQIFN ..LOK,<PRINTXVY ? MISSING BEGSTRCi>

	IF2,<
	  I;!FDEF ...MSK,<SUPP1	RESS ...MSK>
	  YIFDEF ..BITS,<SUP

aPRESS ..BITS>
	 
q IFDEF .SIZ,<SUPP|IRESS .SIZ>
	  IFxqDEF ..MSK,<SUPPREcQSS ..MSK>
	  IFDd	EF ..OFF,<SUPPRESd(S ..OFF>
	  IFDEdHF ..FLG,<SUPPRESSdh ..FLG>
	  IFDEFe ..LOK,<SUPPRESS e(..LOK>
	  IFDEF eH..LOC,<SUPPRESS .eh.LOC>
	  IFDEF .f.OLD,<SUPPRESS ..f(OLD>
	  IFDEF ..fH.OLD,<SUPPRESS ..fh.OLD>
	>

	IF1g,<
	  IFDEF ...Mg(SK,<.XCREF ...MSKgH>
	  IFDEF ..BITghS,<.XCREF ..BITS>h
	  IFDEF .SIZ,<h(.XCREF .SIZ>
	  hHIFDEF ..MSK,<.XCRhhEF ..MSK>
	  IFDiEF ..FLG,<.XCREF i(..FLG>
	  IFDEF iH..OFF,<.XCREF ..OihFF>
	  IFDEF ..LjOK,<.XCREF ..LOK>j(
	  IFDEF ..LOC,jH<.XCREF ..LOC>
	jh  IFDEF ..OLD,<.XkCREF ..OLD>
	  Ik(FDEF ...OLD,<.XCRkHEF ...OLD>
	>
kh
	PURGE WORD,NXTWlRD,FILLER,HWORD,Fl(IELD,BIT,FIELDM
lH
	PS.A==..OFF-0lh
	IFN FTSHOW,<RELOC ..LOC>W,<RE	^LENGLSTTS==.KZ-m q	4
  IFB <\QD>,<
	CALL [	SETaEVT(A,B,C)
		p	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 D

5s
	%%%CTR=D!=B-1

DEFINE OD@FFSET(ITEM),<%%%CD`TR==%%%CTR+1
	AE'ITEM==%%%CTR>
q8
DEFINE ENDOFF(MApiXSYM<MX>),<
	A'FQMAXSYM==%%%CTR>
XSYM==%%%CTR>
B&Y$- g :1<^D35-^L<A>>1<^D35-^L[3@ gx?<<<1<A>>-1>B<B>><A>>[F

ZP`p1,Zp1,]+,[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: ci!%%%CTR==%%T%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.,@ /	
	JRST [MEAOVX T1,A
IFB </IB>,<RET>
IFNB <oIB>,<
   IFIDN <-iB><CPOPJ>,<RET>
:Y   IFDIF <B><CPO@PJ>,<JRST B>
   >
		]
B>
  g@P 	g$]Z -I

Q
	SAVEAC Sq<T1,T2,T3,T4,T5,T]Q6,P1,P2>
IFN FTTa1RACE,<
	XMOVEI TaQ1,.		
IFNB <C>,.H<XMOVEI T2,[ASCIZ.i /C/]>
IFB <C>[p,<SETZ T2,>
	MOV\X T3,EVTB
	CALLIp EVTTRC		
>
	MOJVX 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 Q
	$CBACC=q=<Z 46>		
	A (<B>,46C,D) (<z Y/
	$CBACT=y=<Z 65>		
	A (<B>,65C,D) (<8z I6
	$CBCCT=i=<Z 65>		
	A (<B>,65C,D) (<:9 }ap
	$CBCIR=~=<Z 1>		
	A (<B>,1C,D)A (<Lz ~qy
	$CBDST==<Z 2>		
	A (<B>,2C,D)A (<m6 |qi
	$CBNUM=}=<Z 0>		
	A (<B>,0C,D)A (<z a(
	$CBPCT==<Z 64>		
	A (<B>,64C,D) (<

{ a
	$CBPSW==<Z 34>		
	A (<B>,34C,D) (<<Q a
	$CBSRC==<Z 12>		
	A (<B>,12C,D) (<Xz ~I
	$CBUCT=I=<Z 64>		
	A (<B>,64C,D) (<Y A
	$CBUDA=a=<Z 60>		
	A (<B>,60C,D) (<Z2 q	
	$CBUID==<Z 22>		
	A (<B>,22C,D) (<6v, 
	$MNRPA=y=<Z 0>		
	A (<B>,0C,D)A (<6v,{ i$
	$MNRSV=I=<Z 0>		
	A (<B>,0C,D)A (<6v\y 
	$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 >Iv
	$NFEOM=>i=<Z 0>		
	A (<B>,0C,D)A (<:4k =)l
	$NFFLG==I=<Z 0>		
	A (<B>,0C,D)A (<:4kQ Ai


	$NFFNC=AI=<Z 0>		
	A (<B>,0C,D)A (<:6:= A	

	$NFSIZ=A)=<Z 0>		
	A (<B>,0C,D)A (<:6x4 :yp
	$NFWAI=>	=<Z 0>		
	A (<B>,0C,D)A (<;[v 3Q
	$NSEOM=3q=<Z 0>		
	A (<B>,0C,D)A (<;k 21
	$NSFLG=2Q=<Z 0>		
	A (<B>,0C,D)A (<; G12
	$NSIDA=6!=<Z 0>		
	A (<B>,0C,D)A (<; 6a8
	$NSIDR=7=<Z 0>		
	A (<B>,0C,D)A (<;i 8YG
	$NSNDA=8y=<Z 0>		
	A (<B>,0C,D)A (<;i 99M
	$NSNDR=9Y=<Z 0>		
	A (<B>,0C,D)A (<;= <^
	$NSSTA=;a=<Z 0>		
	A (<B>,0C,D)A (<;= 5A.
	$NSSTS=5a=<Z 0>		
	A (<B>,0C,D)A (<;x4 1i
	$NSWAI=3=<Z 0>		
	A (<B>,0C,D)A (<Bky r
	$PBFOR=sQ=<Z 0>		
	A (<B>,0C,D)A (<B|X xQ
	$PBGRP=rA=<Z 7>		
	A (<B>,7C,D)A (<Bh6 yK
	$PBNAM=y9=<Z 2>		
	A (<B>,2C,D)A (<Bhz v15
	$PBNCT=vQ=<Z 1>		
	A (<B>,1C,D)A (<BxU t#
	$PBOBJ=t1=<Z 0>		
	A (<B>,0C,D)A (<B:= ri
	$PBSIZ=s	=<Z 0>		
	A (<B>,0C,D)A (<B\y z9U
	$PBUSR=zY=<Z 7>		
	A (<B>,7C,D)A (<C: I!L
	$PSCHN=IA=<Z 1>		
	A (<B>,1C,D)A (<Ck E+
	$PSFLG=E1=<Z 0>		
	A (<B>,0C,D)A (<C[y DI/
	$PSMOR=Eq=<Z 0>		
	A (<B>,0C,D)A (<C

v GA>
	$PSPSM=Ga=<Z 0>		
	A (<B>,0C,D)A (<C= H1E
	$PSSTS=HQ=<Z 1>		
	A (<B>,1C,D)A (<C$+  A
	$PTBLK="=<Z 0>		
	A (<B>,0C,D)A (<C$;w Y6
	$PTCON=a=<Z 0>		
	A (<B>,0C,D)A (<C$H: E
	$PTDAT=Q=<Z 0>		
	A (<B>,0C,D)A (<C$I; ,	b
	$PTDEV=,)=<Z 3>		
	A (<B>,3C,D)A (<C$[4 Q`
	$PTEMI==<Z 0>		
	A (<B>,0C,D)A (<C$lU *!T
	$PTFRK=*A=<Z 1>		
	A (<B>,1C,D)A (<C%Z !<
	$PTINT=A=<Z 0>		
	A (<B>,0C,D)A (<C%)W (B
	$PTJFN=(!=<Z 1>		
	A (<B>,1C,D)A (<C%Mq A
	$PTLWC= =<Z 0>		
	A (<B>,0C,D)A (<C%lY $A0
	$PTNRR=&=<Z 0>		
	A (<B>,0C,D)A (<C&

t Ap
	$PTPSI==<Z 0>		
	A (<B>,0C,D)A (<C&= +[
	$PTSTS=+9=<Z 2>		
	A (<B>,2C,D)A (<C&N8 Q
	$PTTYP==<Z 0>		
	A (<B>,0C,D)A (<C&x5 "A 
	$PTWAK=$=<Z 0>		
	A (<B>,0C,D)A (<N;Z yI
	$SBCNT=	=<Z 0>		
	A (<B>,0C,D)A (<NH: [
	$SBDAT=9=<Z 1>		
	A (<B>,1C,D)A (<Ny 	iP
	$SBWDS=
	=<Z 0>		
	A(<B>,0C,D)A (<O%l 
	$STNP==
	A(<B>,0C,D)A (<BO&  
	$STP1==<Z 1>		
	A (<B>,1C,D)A (<BO&@ ix
	$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