Google
 
Trailing-Edge - PDP-10 Archives - k20v7c - subsys/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$\` KI~
	c==0
Ki	d==0
	IRP B,<L
		d==<d_^DA>L(+<B_<^D36/^DA>>LH
		c==c+1
		ILhFE c-<^D36/^DA>M,<
			EXP d
		^h	c==0
			d==0
		>>

	IFN c,_(<
		d==d_<<<^D_H36/^DA>-c>*^DA_h>
		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 e&(p
	%NEA==%%%CTR
	NSF.A='%1MXSFA==K:&= u9n|P

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

	PS.B==bI..OFF	

	IFN FTa9SHOW,DEPHASE

	Z	..LOK==..LOK+1
	YIIFN ..LOK,<PRINTXWQ ? MISSING BEGSTRDa>

	IF2,<
	  I<FDEF ...MSK,<SUPP2RESS ...MSK>
	PRQIFDEFT..BITS,<SUP
	 i IFDEF .SIZ,<SUPP}ARESS .SIZ>
	  IFyiDEF ..MSK,<SUPPREdISS ..MSK>
	  IFDeEF ..OFF,<SUPPRESe S ..OFF>
	  IFDEe@F ..FLG,<SUPPRESSe` ..FLG>
	  IFDEFf ..LOK,<SUPPRESS f ..LOK>
	  IFDEF f@..LOC,<SUPPRESS .f`.LOC>
	  IFDEF .g.OLD,<SUPPRESS ..g OLD>
	  IFDEF ..g@.OLD,<SUPPRESS ..g`.OLD>
	>

	IF1h,<
	  IFDEF ...Mh SK,<.XCREF ...MSKh@>
	  IFDEF ..BITh`S,<.XCREF ..BITS>i
	  IFDEF .SIZ,<i .XCREF .SIZ>
	  i@IFDEF ..MSK,<.XCRi`EF ..MSK>
	  IFDjEF ..FLG,<.XCREF j ..FLG>
	  IFDEF j@..OFF,<.XCREF ..Oj`FF>
	  IFDEF ..LkOK,<.XCREF ..LOK>k 
	  IFDEF ..LOC,k@<.XCREF ..LOC>
	k`  IFDEF ..OLD,<.XlCREF ..OLD>
	  Il FDEF ...OLD,<.XCRl@EF ...OLD>
	>
l`
	PURGE WORD,NXTWmRD,FILLER,HWORD,Fm IELD,BIT,FIELDM
m@
	PS.A==..OFF-0m`
	IFNFTSHOW,<RELOC..LOC>W,<RE	'f$r";
  IFB <]ID>,<
	CALL [	SETb	EVT(A,B,C)
		qCALLRET NSPEVT]		q
  >
  IFNB <D>,<
	JRST [	SETE1VT(A,B,C)
		C'9ALL 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 Dy<t
	%%%CTR=E=B-1

DEFINE OE8FFSET(ITEM),<%%%CEXTR==%%%CTR+1
	AEx'ITEM==%%%CTR>
r0
DEFINE ENDOFF(MAqaXSYM<MX>),<
	A'GIMAXSYM==%%%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&4$bp1&4]+,[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: da%)%%%CTR==%%U%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.,@ 0$
	JRST [MF9OVX T1,A
IFB <0AB>,<RET>
IFNB <pAB>,<
   IFIDN <.aB><CPOPJ>,<RET>
;Q   IFDIF <B><CPO@yPJ>,<JRST B>
   >
		]
B>
  g@P 	g$]Z .AX
	SAVEAC Ti<T1,T2,T3,T4,T5,T^I6,P1,P2>
IFN FTTb)RACE,<
	XMOVEI TbI1,.		
IFNB <C>,/@<XMOVEI T2,[ASCIZ/a /C/]>
IFB <C>\h,<SETZ T2,>
	MOV]	X T3,EVTB
	CALLJh EVTTRC		
>
	MOK	VX 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 I 
	$CBACC=i=<Z 46>		
	A (<B>,46C,D) (<z Q 7
	$CBACT=q=<Z 65>		
	A (<B>,65C,D) (<8z A >
	$CBCCT=a=<Z 65>		
	A (<B>,65C,D) (<:9 ~Yw
	$CBCIR=~y=<Z 1>		
	A (<B>,1C,D)A (<Lz i 
	$CBDST=	=<Z 2>		
	A (<B>,2C,D)A (<m6 }ip
	$CBNUM=~	=<Z 0>		
	A (<B>,0C,D)A (<z Y /
	$CBPCT=y=<Z 64>		
	A (<B>,64C,D) (<

{ Y 
	$CBPSW=y=<Z 34>		
	A (<B>,34C,D) (<<Q Y 
	$CBSRC=y=<Z 12>		
	A (<B>,12C,D) (<Xz A 


	$CBUCT=A=<Z 64>		
	A (<B>,64C,D) (<Y 9 %
	$CBUDA=Y=<Z 60>		
	A (<B>,60C,D) (<Z2 i 
	$CBUID=	=<Z 22>		
	A (<B>,22C,D) (<6v, !
	$MNRPA=q=<Z 0>		
	A (<B>,0C,D)A (<6v,{ a!,
	$MNRSV=A=<Z 0>		
	A (<B>,0C,D)A (<6v\y y!%
	$MNUSR=Y=<Z 0>		
	A (<B>,0C,D)A (<6vi9 I!2
	$MNVER=)=<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 ?A#~
	$NFEOM=?a=<Z 0>		
	A (<B>,0C,D)A (<:4k >!#t
	$NFFLG=>A=<Z 0>		
	A (<B>,0C,D)A (<:4kQ Ba$
	$NFFNC=BA=<Z 0>		
	A (<B>,0C,D)A (<:6:= B$
	$NFSIZ=B!=<Z 0>		
	A (<B>,0C,D)A (<:6x4 ;q#x
	$NFWAI=?=<Z 0>		
	A (<B>,0C,D)A (<;[v 4I#&
	$NSEOM=4i=<Z 0>		
	A (<B>,0C,D)A (<;k 3)#
	$NSFLG=3I=<Z 0>		
	A (<B>,0C,D)A (<; H)#9
	$NSIDA=7=<Z 0>		
	A (<B>,0C,D)A (<; 7Y#?
	$NSIDR=7y=<Z 0>		
	A (<B>,0C,D)A (<;i 9Q#O
	$NSNDA=9q=<Z 0>		
	A (<B>,0C,D)A (<;i :1#U
	$NSNDR=:Q=<Z 0>		
	A (<B>,0C,D)A (<;= <y#e
	$NSSTA=<Y=<Z 0>		
	A (<B>,0C,D)A (<;= 69#5
	$NSSTS=6Y=<Z 0>		
	A (<B>,0C,D)A (<;x4 2a# 
	$NSWAI=4	=<Z 0>		
	A (<B>,0C,D)A (<Bky ry$
	$PBFOR=tI=<Z 0>		
	A (<B>,0C,D)A (<B|X yI
	$PBGRP=s9=<Z 7>		
	A (<B>,7C,D)A (<Bh6 zS
	$PBNAM=z1=<Z 2>		
	A (<B>,2C,D)A (<Bhz w)<
	$PBNCT=wI=<Z 1>		
	A (<B>,1C,D)A (<BxU u	*
	$PBOBJ=u)=<Z 0>		
	A (<B>,0C,D)A (<B:= sa 
	$PBSIZ=t=<Z 0>		
	A (<B>,0C,D)A (<B\y {1]
	$PBUSR={Q=<Z 7>		
	A (<B>,7C,D)A (<C: J$S
	$PSCHN=J9=<Z 1>		
	A (<B>,1C,D)A (<Ck F	$2
	$PSFLG=F)=<Z 0>		
	A (<B>,0C,D)A (<C[y EA$6
	$PSMOR=Fi=<Z 0>		
	A (<B>,0C,D)A (<C

v H9$E
	$PSPSM=HY=<Z 0>		
	A (<B>,0C,D)A (<C= I)$L
	$PSSTS=II=<Z 1>		
	A (<B>,1C,D)A (<C$+ !9"
	$PTBLK="y=<Z 0>		
	A (<B>,0C,D)A (<C$;w Q!=
	$PTCON=Y=<Z 0>		
	A (<B>,0C,D)A (<C$H: y!L
	$PTDAT=I=<Z 0>		
	A (<B>,0C,D)A (<C$I; -"j
	$PTDEV=-!=<Z 3>		
	A (<B>,3C,D)A (<C$[4 I!g
	$PTEMI=y=<Z 0>		
	A (<B>,0C,D)A (<C$lU +"[
	$PTFRK=+9=<Z 1>		
	A (<B>,1C,D)A (<C%Z !C
	$PTINT=9=<Z 0>		
	A (<B>,0C,D)A (<C%)W (y"I
	$PTJFN=)=<Z 1>		
	A (<B>,1C,D)A (<C%Mq 9"
	$PTLWC= y=<Z 0>		
	A (<B>,0C,D)A (<C%lY %9"7
	$PTNRR=&y=<Z 0>		
	A (<B>,0C,D)A (<C&

t 9!w
	$PTPSI=y=<Z 0>		
	A (<B>,0C,D)A (<C&= ,"c
	$PTSTS=,1=<Z 2>		
	A (<B>,2C,D)A (<C&N8 	!X
	$PTTYP=	=<Z 0>		
	A (<B>,0C,D)A (<C&x5 #9"'
	$PTWAK=$y=<Z 0>		
	A (<B>,0C,D)A (<N;Z 	q Q
	$SBCNT=
=<Z 0>		
	A (<B>,0C,D)A (<NH: 

 c
	$SBDAT=

1=<Z 1>		
	A (<B>,1C,D)A (<Ny 
a X
	$SBWDS==<Z 0>		
	A (<B>,0C,D)A (<O%l  r
	$STNP==!<Z 0>		
	A (<B>,0C,D)A (<BO&  q y
	$STP1==<Z 1>		
	A (<B>,1C,D)A (<BO&@ a!
	$STP2==<Z 2>		
	A (<B>,2C,D)A (<BO&` Q!
	$STP3==q<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