Trailing-Edge
-
PDP-10 Archives
-
bb-kl11m-bm
-
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==MA SK.(.SIZ,POS)
(>
IFE ..FLG,< HIFGE <^D<.SIZ>-^D h36>,<
WORD(N AM,<^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 @]O H P ]O L`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'aO L`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!aS L`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 (< C k 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 (<B O& y!
$STP1==<Z 1>
A (<B>,1C,D)A (<B O&@ i(
$STP2== <Z 2>
A (<B>,2C,D)A (<B O&` Y/
$STP3==y<Z 3>
A (<B>,3C,D)A (<B 8u\uQ x 8u{Q x : Q @ :5I`P :ex`P( :ez`P :n:`Q :|i@P :}IQ ?x S@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