Trailing-Edge
-
PDP-10 Archives
-
BB-KL11M-BM_1990
-
t20sub/scapar.unv
There are 23 other files named scapar.unv in the archive. Click here to see a list.
x
,UL@P CN #t*`
..CNT#tJ.==3 ;Init the c#thounter
..STR.==#u0 ;Init the stri#u(ng
IRPC A,<
#uH
..CHR.=="A" #uh;Get the current #vcharacter
..CHR#v(.==..CHR._<^D8*..#vHCNT.+4> ;Shift it#vh into the right p#wlace
..STR.==..#w(STR.!..CHR. ;Add #wHit to the current#wh
..CNT.==..CNT.#x-1 ;Decrement the#x( four word block #xHcounter
IFL ..#xhCNT.,<
EXP ..ST#yR. ;Generate a w#y(ord of what is le#yHft
..CNT.==3 ;#yhInit the four cha#zr chunk counter
#z( ..STR.==0 ;Init#zH the string
>;En#zhd IFL ..CNT.
>#{;End IPRC A
I#{(FN ..STR., EXP ..#{HSTR. ;If there ar#{he characters left#| over, output them
output theE
wQ E.h Q E4iQ E5IQ E5Y`Q EdiQ EeIQ EeY`Q Ew
RP E vh6P E v|ZP E"%m6P 0E"&:P E#P E#9<P E#P E#9<P E2"@ $*J"Z
IFE $*jB,<..TA==0>
$+IFN B,<EXP ..TA$+(
PURGE ..TA>
PURGE..TELtvQ@ELt9Q @ELu QELuvP EO[rP EO[rP EV5X7P F$,P F$|P F$|}P OF$}P F&H6P F&KP F5IvQ pFMiQ FTIvP Fd;P Fd|XP Fl(yP Fl,P FlHvP Fl|P Fl|}P Fl}P Fn(VP Fn8vP FnYP FoSP 2Fo P 3Fo8P Ft,rP Ft;vP Ft\P Fv
tP'F|,@ F~9P F~jP F~jP F(vP F2Q F=Q |FkP Fk7P F P FP 'FP FXZP F+P FMP FJ6P PFLVP F<P F%YzP DF48vP F=|RP OF=|VP G
, Q G
L Q G
\ Q G
<zQ xG
\ Q G
Q G
IQ G
lzP'G
$:2Q G
$LRQ xG
$z@Q G
%krQ xG
/
P'G
4ZQ G
4=QQ @G
4HvQ G
4I3Q G
4J9Q G
4LXQ G
4\YQ G
5,|Q G
5:6Q G
5YQ G
5kQQ @G
5|UP'G
6Q G
6(8Q G
6;VQ G
6;qQ G
LH@P'G
MX@Q xG
Ux@Q xG
lz@Q G
mlQP'G
mlqQ xG
v`Q xGH Q xGI`P'G]@P'GY`Q xG;ZP'G:2Q GLRP'G$, Q G$L Q G$\ Q G%\ Q G'
`Q G=QxG$: Q G&)0P'GuyQ Gv
TP G&&
TP G&|i@ #-*jCALL SC.PFFCALL SC.PFG&}` #5Z-CALL SC.PONCALL SC.POG,t<zQ G,uLQ G,uLzQ @G,v0Q G,vPQ G,v rQ G3.
TPlG4,;:PlG4,;VPhG4-iPGBV@Q I6= gPK
A==<-1gpB<C>+1B<C-D>> h
IF1,<IFDEF %Ah0,<PRINTX ?A ALREhPADY DEFINED>>
DhpEFINE %A (OP,AC,iY,MSK)<
$A==<Zi0 B>
OP (<AC>,B'Y,MSK)><AC>Id[@P 0JBYQ @JB5J Q JBl.@Q |JCY Q 0JC\`Q K
yP'K
d[@Q xK8,:P K8,;P L;<Q L;H@Q @L; Q M2 $
!x<<<A>B<POS(<B>)>>&<B>>M^luQ Qv
qP Su-8P Su;P S`Q S+`Q S:$^P xS;%KuP SB
TP U ,IqQ @W:2P WIP W1P W3:P W3LSP W3
JPW3K{PW3Y2PX: P?X:9PX;8@P Z
ZP [F2P [,HrP [,JP [,J1P [,K2P [,kP [-P [Q [5I`Q x[6*`P'[d[@Q x['P'[ $9Q x[ $HtQ [ %XyP'[ %\sP'[ &
vQ [ &8tQ [ &;1Q [ &=Q x[ &N8Q [N
TP [N^= HX$Q
A==C Hx
IF1,<IFDEF %IA,<PRINTX ?A ALRI8EADY DEFINED>>
IXDEFINE %A (OP,ACIx,Y,MSK)<
$A==<JZ B>
OP (<AC>,B'Y,MSK)><AC[[
TP [blzPvat<Q atLpQatk:Q&atlQQ av P a/;RP a/MP a/kP a/P a/krP a/|P a/
P a/
zP a/)3P a/+RP xa/,zP pa/=P a/YP"a/8 Q a/;RP a/MP a/kP a/P a/YQ a/krP a/|P a/
P a/
zP a/(@Q ~a/)3P a/=P a/$]ZP a/'P xa/6-Q a;%\uQ xa?L:P a@tuP a@tI`P a@t\XP a@uX<P a@u\sP a@v:P a@v=P a@v=P aK%^P
aLtpQ aLtqQ aLt;Q aLt[QP aLt\YQ @aLuWP aLujpQ aLujqQ aLukpQ aLukqQ @aLulPP baLulQP RaLulRP raLv2Q aLvRQ aLv[9P c2-`P c?*P c?<SP c?QP c?I7P c?KUP c?[TP e
5I7Pe,k3Qe%e&=@Q elI`Q em\`Q e|ZP'e4<zQ xe&vKQ e:8ZQ |`e:<]QQ xe:= 2Q e:=I7P'eB
:zQ eBNLWQ eC
kQ @eC
k3Q eCL:Q eN|Q eON8pQ @g
@Q xg
& P'g
&
`P pg
&,P xg
&,4Q g
&JQ g
&L{Q g
&jQ g
&l{Q g
5I`Q g
5yVQ g
5}QQ g
6K3Q @g
eXTQ g
o P'g
o3Q xg
vH`Q @g
|(@Q g
};`Q g=Q g4<zP'g<j Q g>9P gi9P g
TP g\uQ ~g"@ $+j"n
IFN <<.$,
.TA>&B>,<PRINTX$,( ?Initial field n$,Hot zero in $SET>
-..TVAL==<C>
-(..TMSK==<B>
..TA==..TA!$-H<FLD(..TVAL,..TMS$-hK)>
PURGE ..TVAL,..TMSK
.Tg& Q ~gD,yP gD,85P gD,;P gD,<RP gD,<rP gD,H5P gD,HrP gD,JP gD,J1P gD,K1P gD,K2P gD,LRP gD,LrP gD-
9P gD-P gD-J9P gD-|P gD.*YP gHtP gHuI7P gJl.@Q @gJlI`Q xgJmY`Q `gK6,`Q ?`gg8pP k
NL`Q`q$$++^q:tQq:w $J"
IFDEF$j ..BSIZ,<PRINTX ?$ Missing $EOB afte$ (r a $BUILD>
.$ H.BSIZ==0
.$ h.BLOC==.
R$!EPEAT A,<
$!(BLD0.(\..BSIZ,0) $!H
..BSIZ==..BSIZ+1>
==..BSI
!
$BUIL$*D (.SSAFT+1) ;Siz$He of the block
$h
$SET (.SSDGR,,<$XCDSEC,,SINDGR>) $(;[7.1043]Datagram$H received
$SET $h(.SSMGR,,<XCDSEC,$,SINMGR>) ;[7.104$(3]Message receive$Hd
$SET (.SSPBC,$h,<XCDSEC,,SINPBC>$) ;[7.1043]Port b$(roke connection
$H $SET (.SSCTL,,<X$hCDSEC,,SINCTL>) ;$[7.1043]Connect t$(o listen
$SET ($H.SSCRA,,<XCDSEC,,$hSINCRA>) ;[7.1043$ ]Connect response$ ( available
$SET$ H (.SSMSC,,<XCDSEC$ h,,SINPSC>) ;[7.10$
43]Message/datagr$
(am send complete
H
$SET (.SSDDG,,<$
hMSEC1,,R>) ;Data$gram dropped
$S$(ET (.SSLCL,,<XCDS$HEC,,SINLCL>) ;[7.$h1043]Little credi$
t left
$SET (.S$
(SNCO,,<MSEC1,,R>)$
H ;Node came onlin$
he
$SETD(.SSOSD,$SD>$
$SETR$D,,<XCDSEC,$,SINRID>) ;[7.104$(3]Remote initiate$Hd disconnect
$S$hET (.SSCIA,,<XCDS$EC,,SINCIA>) ;[7.$(1043]Credit is av$Hailable
$SET (.$hSSDMA,,<XCDSEC,,S$INDMA>) ;[7.1043]$(DMA complete
$EOB
te
N< $j!D
...FO$
O==0 ;Init the o$(rder checker vari$Hable
$ENT (.S$hTORQ,SC.ORQ) ;Con$nect request
$E$(NT (.STORS,SC.ORS$H) ;Connect respon$hse
$ENT (.STARQ$,SC.ARQ) ;Accept $(request
$ENT (.$HSTARS,SC.ARS) ;Ac$hcept response
$$ENT (.STRRQ,SC.RR$(Q) ;Reject reques$Ht
$ENT (.STRRS,$hSC.RRS) ;Reject r$esonse
$ENT (.S$(TDRQ,SC.DRQ) ;Dis$Hconnect request
$h $ENT (.STDRS,SC.$DRS) ;Disconnect $(response
$ENT ($H.STCRQ,SC.CRQ) ;C$hredit request
$$ENT (.STCRS,SC.CR$(S) ;Credit respon$Hse
$ENT (.STAMG$h,SC.AMG) ;Applica$tion message
$E$(NT (.STADG,SC.ADG$H) ;Application datagram
on da v@ $
!`
IFN ..$*.FOO,<
IFN <A-.$H..FOO-1>,<IF2 <PR$hINTX Dispatch tab$le out of order! $((A)>>
>;End IFN$H ...FOO
...FO$hO==A ;Get the c$urrent value of $(A
XWD XCDSEC,$HB ;[7.1037]Sect$hion six address o$f a handler routine
ler routi | $&J"P
IFNDE$&jF ..BSIZ,<PRINTX $'?$EOB without pre$'(vious $BUILD>
$'H IFN <.-..BLOC>,<$'hPRINTX ?Address c$(hange between $BU$((ILD and $EOB>
; $(H XLIST
..$(hT==0
REPEAT .$).BSIZ,<
BLD$)(0.(\..T,1)
$)H ..T==..T+1 >
$)h PURGE ..BSIZ,..$*T,..BLOC
; LIST
C
; LI 2$:2 #o:
LOAD #oZA,INDEX,B ;Get #ozthe index from th#r*e CID source
AD#rHD A,CIDTAB ;Add#rh the base address#s of the CB addres#s(s table
MOVE A#sH,(A) ;Now get t#shhe address of the CB
s of the NyS #|Jh
; CALL S#|jC.OFF ;Turn off #}disconnect processing
ct proces N{@ #}Jp
; CALL S#}jC.ON ;Release th#~e disconnect interlock
ect inte N9Q $.*$
$BUIL$.JD (.SSLST+1)
$.h$SET (.SSCON,<>,<$/XCDSEC,,SCSCON>) $/(;[7.1043]
$SET $/H(.SSLIS,<>,<XCDSE$/hC,,SCSLIS>) ;[7.1$0043]
$SET (.SSD$0(IS,<>,<XCDSEC,,SC$0HSDIS>) ;[7.1043]
$SET (.SSREJ,<>$1,<XCDSEC,,SCSREJ>$1() ;[7.1043]
$SE$1HT (.SSSDG,<>,<XCD$1hSEC,,SCSSDG>) ;[7$2.1043]
$SET (.S$2(SQRD,<>,<XCDSEC,,$2HSCSQRD>) ;[7.1043$2h]
$SET (.SSSMG,$3<>,<XCDSEC,,SCSSM$3(G>) ;[7.1043]
$$3HSET (.SSQRM,<>,<X$3hCDSEC,,SCSQRM>) ;$4[7.1043]
$SET ($4(.SSCSP,<>,<XCDSEC$4H,,SCSCSP>) ;[7.10$4h43]
$SET (.SSRC$5D,<>,<XCDSEC,,SCS$5(RCD>) ;[7.1043]
$5H $SET (.SSSTS,<>,$5h<XCDSEC,,SCSSTS>)$6 ;[7.1043]
$SET$6( (.SSRMG,<>,<XCDS$6HEC,,SCSRMG>) ;[7.$6h1043]
$SET (.SS$7MAP,<>,<XCDSEC,,S$7(CSMAP>) ;[7.1043]$7H
$SET (.SSUMP,<$7h>,<XCDSEC,,SCSUMP$8>) ;[7.1043]
$S$8(ET (.SSSND,<>,<XC$8HDSEC,,SCSSND>) ;[$8h7.1043]
$SET (.$9SSREQ,<>,<XCDSEC,$9(,SCSREQ>) ;[7.104$9H3]
$SET (.SSAIC$9h,<>,<XCDSEC,,SCSA$:IC>) ;[7.1043]
$:($SET (.SSRPC,<>,<$:HXCDSEC,,SCSRPC>) $:h;[7.1043]
$SET $;(.SSRDG,<>,<XCDSE$;(C,,SCSRDG>) ;[7.1$;H043]
$SET (.SSC$;hRD,<>,<XCDSEC,,SC$<SCRD>) ;[7.1043]
$SET (.SSCRM,<>$<H,<XCDSEC,,SCSCRM>$<h) ;[7.1043]
$SE$=T (.SSACC,<>,<XCD$=(SEC,,SCSACC>) ;[7$=H.1043]
$SET (.S$=hSGDE,<>,<XCDSEC,,$>SCSGDE>) ;[7.1043$>(]
$SET (.SSEVT,$>H<>,<XCDSEC,,SCSEV$>hT>) ;[7.1043]
$$?SET (.SSGLN,<>,<X$?(CDSEC,,SCSGLN>) ;$?H[7.1043]
$SET ($?h.SSRBS,<>,<XCDSEC$@,,SCSRBS>) ;[7.10$@(43]
$SET (.SSRP$@HS,<>,<XCDSEC,,SCS$@hRPS>) ;[7.1043]
$A
$SET (.SSMDR,<$A(>,<MSEC1,,UJSYS>)$AH
$SET (.SSMDS,<$Ah>,<MSEC1,,UJSYS>)$B
$SET (.SSSRS,<$B(>,<MSEC1,,UJSYS>)$BH
$SET (.SSRRS,<$Bh>,<MSEC1,,UJSYS>)
$EOB
>) N.@ $"
"
IFNDE$"*F ..BSIZ,<PRINTX $"H?$SET without pre$"hvious $BUILD>
$# IFNB <B>,<..STR$#(0 (..SET,<C>,B,$#HA)>
IFB <B$#h>,<..STR0 (..SET,$$<C>,FWMASK,A)>
,FWMASK,A)>CAIA,,0 ON88 #~J
XWD M#~jSEC1,CFSINI## ;In#it the Common fil#(e system
XWD MS#HEC1,MSCINI## ;Ini#ht MSCP
XWD MSEC$1,MSSINI ;Init th$(e MSCP server
X$HWD XCDSEC,SCSINI $h;[7.1043]Init the$ SCS% JSYS SYSAP
XWD XCDSEC,CLUI$HNI ;[7.1076] Init$h CLUDGR SYSYAP
$ IFN CLEQIN,< $(;[7.1072] If clus$Hter ENQ code pres$hent
XWD XCDSEC,$EQSINI ;[7.1072] $(Init the ENQSRV S$HYSAP
> ;[7.1072]
;[7
;<s $HR$I
$.PKSFD$Hr==<Z .PKSTS>
$IA (<B>,.PKSTSC,D)B>,.PKSTSC
n #RR
$BBNXT=#Rr=<Z .BBNXT>
#SA (<B>,.BBNXTC,D)B>,.BBNXTC,
]P #SZ!
$BBUVA=#Sz=<Z .BBUVA>
#TA (<B>,.BBUVAC,D)B>,.BBUVAC,
$iR #L"f
$BDFFD=#LB=<Z .BDFFD>
#L`A (<B>,.BDFFDC,D)B>,.BDFFDC,
$k #PB
$BDFLD=#Pb=<Z .BDFLD>
#QA (<B>,.BDFLDC,D)B>,.BDFLDC,
$k3 #N2w
$BDFMG=#NR=<Z .BDFMG>
#NpA (<B>,.BDFMGC,D)B>,.BDFMGC,
%IR #M*n
$BDLFD=#MJ=<Z .BDFFD>
#MhA (<B>,.BDFFDC,D)B>,.BDFFDC,
%K #QJ
$BDLLD=#Qj=<Z .BDLLD>
#RA (<B>,.BDLLDC,D)B>,.BDLLDC,
%K3 #O:
$BDLMG=#OZ=<Z .BDLMG>
#OxA (<B>,.BDLMGC,D)B>,.BDLMGC,
%n "dU
$BDNXT=#J2=<Z .BDNXT>
#JPA (<B>,.BDNXTC,D)B>,.BDNXTC,
&
R #K]
$BDPRE=#K:=<Z .BDPRE>
#KXA (<B>,.BDPREC,D)B>,.BDPREC,(X #BP
$CBBBQ=#b=<Z .CBBBQ>
#A (<B>,.CBBBQC,D)B>,.CBBBQC,) #
$CBBDQ=#2=<Z .CBBDQ>
#PA (<B>,.CBBDQC,D)B>,.CBBDQC,)8 #2?
$CBBEQ=#R=<Z .CBBEQ>
#pA (<B>,.CBBEQC,D)B>,.CBBEQC,*y "le
$CBBKST"l:==<Z .CBSTS>
"lXA (<B>,.CBSTSC,D)B>,.CBSTSC+8 #
$CBBMQ=#"=<Z .CBBMQ>
#@A (<B>,.CBBMQC,D)B>,.CBBMQC,. #".
$CBBXQ=#B=<Z .CBBXQ>
#`A (<B>,.CBBXQC,D)B>,.CBBXQC,9 #JH
$CBCDD=#j=<Z .CBCDD>
# A (<B>,.CBCDDC,D)B>,.CBCDDC,;Y "mm
$CBCNST"m:==<Z .CBSTS>
"mXA (<B>,.CBSTSC,D)B>,.CBSTSCHt ""~
$CBDCID"B==<Z .CBDCI>
"`A (<B>,.CBDCIC,D)B>,.CBDCICI #2
$CBDDRE#R==<Z .CBREA>
#pA (<B>,.CBREAC,D)B>,.CBREACIu #
jj
$CBDGJ=#
=<Z .CBDGJ>
#(<B>,.CBDGJC,D)B>,.CBDGJC,KW "jU
$CBDNOD"j2==<Z .CBSBI>
"jPA (<B>,.CBSBIC,D)B>,.CBSBIC^ "k]
$CBEXPR"k2==<Z .CBSBI>
"kPA (<B>,.CBSBIC,D)B>,.CBSBICh1 "pR
$CBFABT"pr==<Z .CBFLG>
"qA (<B>,.CBFLGC,D)B>,.CBFLGCh{ "uz3
$CBFCVC"v==<Z .CBFLG>
"v8A (<B>,.CBFLGC,D)B>,.CBFLGCi "rb
$CBFDCL"s==<Z .CBFLG>
"s A (<B>,.CBFLGC,D)B>,.CBFLGCi "}2o
$CBFDEF"}R==<Z .CBFLG>
"}pA (<B>,.CBFLGC,D)B>,.CBFLGCi "zU
$CBFDIS"z:==<Z .CBFLG>
"zXA (<B>,.CBFLGC,D)B>,.CBFLGCi "{"^
$CBFDRQ"{B==<Z .CBFLG>
"{`A (<B>,.CBFLGC,D)B>,.CBFLGCi9 "yM
$CBFERR"y2==<Z .CBFLG>
"yPA (<B>,.CBFLGC,D)B>,.CBFLGCjY "oJ
$CBFJSY"oj==<Z .CBFLG>
"pA (<B>,.CBFLGC,D)B>,.CBFLGCjt "sj"
$CBFKIL"t
==<Z .CBFLG>
"t(A (<B>,.CBFLGC,D)B>,.CBFLGCk2 "tr+
$CBFMDC"u==<Z .CBFLG>
"u0A (<B>,.CBFLGC,D)B>,.CBFLGCkW "nBx
$CBFNNC"nb==<Z .CBFLG>
"oA(<B>,.CBFLGC,D)B>,.CBFLGCky #
$CBFORK#
==<Z .CBFRK>
#(A (<B>,.CBFRKC,D)B>,.CBFRKCl "x
D
$CBFPTC"x*==<Z .CBFLG>
"xHA (<B>,.CBFLGC,D)B>,.CBFLGClP "qZ
$CBFRAP"qz==<Z .CBFLG>
"rA (<B>,.CBFLGC,D)B>,.CBFLGClw "|*f
$CBFSNM"|J==<Z .CBFLG>
"|hA (<B>,.CBFLGC,D)B>,.CBFLGClw "w<
$CBFSOB"w"==<Z .CBFLG>
"w@A (<B>,.CBFLGC,D)B>,.CBFLGC #*
$CBIDB=#J=<Z .CBBUF>
#hA (<B>,.CBBUFC,D)B>,.CBBUFC,1 #*
$CBIMB=#J=<Z .CBBUF>
#hA (<B>,.CBBUFC,D)B>,.CBBUFC,+q #r{
$CBJOB=#=<Z .CBFRK>
#0A (<B>,.CBFRKC,D)B>,.CBFRKC,Yu #bb
$CBMGJ=#
=<Z .CBMGJ>
#
A (<B>,.CBMGJC,D)B>,.CBMGJC,[Y #:/
$CBMNRC#Z==<Z .CBMCD>
#xA (<B>,.CBMCDC,D)B>,.CBMCDC[Y #:'
$CBMNSC#Z==<Z .CBMCD>
#xA (<B>,.CBMCDC,D)B>,.CBMCDCl #B8
$CBNPO=#b=<Z .CBNPO>
#A (<B>,.CBNPOC,D)B>,.CBNPOC, #Ri
$CBPDA=#r=<Z .CBPS1>
#A (<B>,.CBPS1C,D)B>,.CBPS1C, #J`
$CBPDG=#j=<Z .CBPS0>
#A (<B>,.CBPS0C,D)B>,.CBPS0C, ; #Rq
$CBPEV=#r=<Z .CBPS1>
#A (<B>,.CBPS1C,D)B>,.CBPS1C,3 #JX
$CBPMG=#j=<Z .CBPS0>
#A (<B>,.CBPS0C,D)B>,.CBPS0C,(w #B@
$CBRCNT#b==<Z .CBNPO>
#A (<B>,.CBNPOC,D)B>,.CBNPOC8t "cbu
$CBSCID"~:==<Z .CBSCI>
"~XA (<B>,.CBSCIC,D)B>,.CBSCIC9 #2
$CBSDRE#R==<Z .CBREA>
#pA (<B>,.CBREAC,D)B>,.CBREACHX #:G
$CBTBQ=#Z=<Z .CBTBQ>
#xA (<B>,.CBTBQC,D)B>,.CBTBQC,I #
$CBTDQ=#*=<Z .CBTDQ>
#HA (<B>,.CBTDQC,D)B>,.CBTDQC,I8 #*6
$CBTEQ=#J=<Z .CBTEQ>
#hA (<B>,.CBTEQC,D)B>,.CBTEQC,K8 #z
$CBTMQ=#=<Z .CBTMQ>
#8A (<B>,.CBTMQC,D)B>,.CBTMQC,N #%
$CBTXQ=#:=<Z .CBTXQ>
#XA (<B>,.CBTXQC,D)B>,.CBTXQC,$<z #CZ!
$CDCST=#Cz=<Z .CDCST>
#DA (<B>,.CDCSTC,D)B>,.CDCSTC,$Ht #Db*
$CDDCI=#E=<Z .CDDCI>
#E A (<B>,.CDDCIC,D)B>,.CDDCIC,$LR #GrC
$CDDREA#H==<Z .CDREA>
#H0A (<B>,.CDREAC,D)B>,.CDREAC%kr #Ej2
$CDNOD=#F
=<Z .CDNOD>
#F(A (<B>,.CDNODC,D)B>,.CDNODC,&<R #Fr;
$CDSREA#G==<Z .CDREA>
#G0A (<B>,.CDREAC,D)B>,.CDREAC+Q # RQ
$CPJNB=# r=<Z .CBJNB>
#
A (<B>,.CBJNBC,D)B>,.CBJNBC,, #
ZY
$CPJPB=#
z=<Z .CBJPB>
#A (<B>,.CBJPBC,D)B>,.CBJPBC,;2 #64
$E0CMD=#6"=<Z .PBER0>
#6@A (<B>,.PBER0C,D)B>,.PBER0C,k #:"V
$E0FLI=#:B=<Z .PBER0>
#:`A (<B>,.PBER0C,D)B>,.PBER0C,X] #9M
$E0MBZ=#9:=<Z .PBER0>
#9XA (<B>,.PBER0C,D)B>,.PBER0C,2 #7
<
$E0QUE=#7*=<Z .PBER0>
#7HA (<B>,.PBER0C,D)B>,.PBER0C,)9 #8E
$E0RES=#82=<Z .PBER0>
#8PA (<B>,.PBER0C,D)B>,.PBER0C,;r #`b
$EBCOD=#a=<Z .EBCOD>
#a A (<B>,.EBCODC,D)B>,.EBCODC,I7 #_b
$EBLEN=#`=<Z .EBCOD>
#` A (<B>,.EBCODC,D)B>,.EBCODC,&&7 #p"
$IDPAO=#pB=<Z RIDSTS>
#p`A (<B>,RIDSTSC,D)B>,RIDSTSC,&&W #q*
$IDPBO=#qJ=<Z RIDSTS>
#qhA (<B>,RIDSTSC,D)B>,RIDSTSC,&tI< "d"3
$INDEX="f2=<Z >
A (<B>,C,D)A (<B*@Y #I*N
$JH%DGB#IJ==<Z .JHFLG>
#IhA (<B>,.JHFLGC,D)B>,.JHFLGC4, "gZ?
$M%ALII"gz==<Z >
A (<B>,C,D)A (<4,4 "fr9
$M%AMII"g==<Z >
A (<B>,C,D)A (<4,+ "i*L
$M%BLII"iJ==<Z >
A (<B>,C,D)A (<4,+4 "hBF
$M%BMII"hb==<Z >
A (<B>,C,D)A (<6 Y #YbP
$MD%DMD#Z==<Z >
A (<B>,C,D)A (<6 YV #YJ
$MD%FLG#Y"==<Z >
A (<B>,C,D)A (<6,:2 #^Zy
$MECID=#^z=<Z .MECID>
#_A (<B>,.MECIDC,D)B>,.MECIDC,6,k #\Ri
$MEFLG=#\r=<Z .METYP>
#]A (<B>,.METYPC,D)B>,.METYPC,6,lU #ZBX
$MEFRK=#Zb=<Z .MEFRK>
#[A (<B>,.MEFRKC,D)B>,.MEFRKC,6-I7 #[J`
$MELEN=#[j=<Z .MEFRK>
#\A (<B>,.MEFRKC,D)B>,.MEFRKC,6.N8 #]Rq
$METYP=#]r=<Z .METYP>
#^A (<B>,.METYPC,D)B>,.METYPC,6@Hr $C*%
$MH$CDT$SR==<Z .MHTYP>
$SpA (<B>,.MHTYPC,D)B>,.MHTYPC6@I $VB%8
$MH$DCI$Vb==<Z .MHDCI>
$WA (<B>,.MHDCIC,D)B>,.MHDCIC6@K1 $YR%Q
$MH$MCR$Yr==<Z .MHSTS>
$ZA (<B>,.MHSTSC,D)B>,.MHSTSC6@K9 $T2%'
$MH$MSG$TR==<Z .MHTYP>
$TpA (<B>,.MHTYPC,D)B>,.MHTYPC6@L $[b%b
$MH$PKL$\==<Z .MHPKL>
$\ A (<B>,.MHPKLC,D)B>,.MHPKLC6@Lq $WJ%@
$MH$SCI$Wj==<Z .MHSCI>
$XA (<B>,.MHSCIC,D)B>,.MHSCIC6@Lv $ZZ%Y
$MH$SMC$Zz==<Z .MHSTS>
$[A (<B>,.MHSTSC,D)B>,.MHSTSC6@Lz $XR%I
$MH$STS$Xr==<Z .MHSTS>
$YA (<B>,.MHSTSC,D)B>,.MHSTSC6@M $U:%/
$MH$TYP$UZ==<Z .MHTYP>
$UxA (<B>,.MHTYPC,D)B>,.MHTYPCB\L[ $E:$/
$PKDRV=$EZ=<Z .PKRSV>
$ExA (<B>,.PKRSVC,D)B>,.PKRSVC,B]X4 $Lj$j
$PKMAI=$M
=<Z .PKPST>
$M(A (<B>,.PKPSTC,D)B>,.PKPSTC,B^
W $Mj$r
$PKPRND$N
==<Z .PKPST>
$N(A (<B>,.PKPSTC,D)B>,.PKPSTCB^
Y $Kj$b
$PKPRST$L
==<Z .PKPST>
$L(A (<B>,.PKPSTC,D)B>,.PKPSTCB^8p $FB$8
$PKSCA=$Fb=<Z .PKRSV>
$GA (<B>,.PKRSVC,D)B>,.PKRSVC,B^<Q $D2$'
$PKSRB=$DR=<Z .PKRSV>
$DpA (<B>,.PKRSVC,D)B>,.PKRSVC,B^N8 $Jj$Z
$PKTYP=$K
=<Z .PKTYP>
$K(A (<B>,.PKTYPC,D)B>,.PKTYPC,B^lZ $GJ$@
$PKVRT=$Gj=<Z .PKRSV>
$HA (<B>,.PKRSVC,D)B>,.PKRSVC,JYV #g=
$RBUFMG#g:==<Z RNGSW>
#gXA (<B>,RNGSWC,D)B>,RNGSWC,J$J #AJ
$RDDHT=#Aj=<Z .RDDHT>
#BA (<B>,.RDDHTC,D)B>,.RDDHTC,J$J #BR
$RDDHV=#Br=<Z .RDDHV>
#CA (<B>,.RDDHVC,D)B>,.RDDHVC,J$Lz #?:
$RDDST=#?Z=<Z .RDDST>
#?xA (<B>,.RDDSTC,D)B>,.RDDSTC,J$L{ #@B
$RDDSV=#@b=<Z .RDDSV>
#AA (<B>,.RDDSVC,D)B>,.RDDSVC,J%Y #=*n
$RDMDG=#=J=<Z .RDMDG>
#=hA (<B>,.RDMDGC,D)B>,.RDMDGC,J%[9 #>2w
$RDMMS=#>R=<Z .RDMMS>
#>pA (<B>,.RDMMSC,D)B>,.RDMMSC,J&y #<"f
$RDPORT#<B==<Z .RDSTS>
#<`A (<B>,.RDSTSC,D)B>,.RDSTSCJ&hy #02^
$RDVCST#;B==<Z .RDSTS>
#;`A (<B>,.RDSTSC,D)B>,.RDSTSCJMm #k:_
$RINTLK#kZ==<Z RNGSW>
#kxA (<B>,RNGSWC,D)B>,RNGSWC,Jty; #bz
$RNGEVC#c==<Z .REECL>
#c8A (<B>,.REECLC,D)B>,.REECLCJtz #aj
$RNGHED#b
==<Z .REHED>
#b(A (<B>,.REHEDC,D)B>,.REHEDCJt{ #cz#
$RNGLEN#d==<Z .REECL>
#d8A (<B>,.REECLC,D)B>,.REECLCKu #h"F
$RPACKT#hB==<Z RNGSW>
#h`A (<B>,RNGSWC,D)B>,RNGSWC,K #i*N
$RPITRN#iJ==<Z RNGSW>
#ihA (<B>,RNGSWC,D)B>,RNGSWC,KV #lbj
$RPQFLK#m==<Z .REPQF>
#m A (<B>,.REPQFC,D)B>,.REPQFCKV #mjr
$RPQFMG#n
==<Z .REPQF>
#n(A (<B>,.REPQFC,D)B>,.REPQFCK- #j2W
$RPRTQU#jR==<Z RNGSW>
#jpA (<B>,RNGSWC,D)B>,RNGSWC,K89 #f5
$RSCASY#f2==<Z RNGSW>
#fPA (<B>,RNGSWC,D)B>,RNGSWC,Kq #e
,
$RSYSCA#e*==<Z RNGSW>
#eHA (<B>,RNGSWC,D)B>,RNGSWC,N: #"r
$SBCHN=##=<Z .SBDSP>
##0A (<B>,.SBDSPC,D)B>,.SBDSPC,NL ##r#
$SBDPA=#$=<Z .SBDSP>
#$0A (<B>,.SBDSPC,D)B>,.SBDSPC,NL #-Jp
$SBDPS=#-j=<Z .SBDPS>
#.A (<B>,.SBDPSC,D)B>,.SBDPSC,NLX #.Jx
$SBDRP=#.j=<Z .SBDPS>
#/A (<B>,.SBDPSC,D)B>,.SBDPSC,NLX #$z+
$SBDRQH#%==<Z .SBDRQ>
#%8A (<B>,.SBDRQC,D)B>,.SBDRQCNM #+"^
$SBDTHW#+B==<Z .SBDHT>
#+`A (<B>,.SBDHTC,D)B>,.SBDHTCNM #)M
$SBDTSW#)2==<Z .SBDST>
#)PA (<B>,.SBDSTC,D)B>,.SBDSTCNMT #,*f
$SBDVHW#,J==<Z .SBDHV>
#,hA (<B>,.SBDHVC,D)B>,.SBDHVCNMY #*U
$SBDVSW#*:==<Z .SBDSV>
#*XA (<B>,.SBDSVC,D)B>,.SBDSVCNk "n
$SBFLG=#/R=<Z .SBFLG>
#/pA (<B>,.SBFLGC,D)B>,.SBFLGC,Nks #2j
$SBFOFL#3
==<Z .SBFLG>
#3(A (<B>,.SBFLGC,D)B>,.SBFLGCNk{ #1b
$SBFOVC#2==<Z .SBFLG>
#2 A (<B>,.SBFLGC,D)B>,.SBFLGCNm #0Z
$SBFTMG#0z==<Z .SBFLG>
#1A (<B>,.SBFLGC,D)B>,.SBFLGCNK1 #&4
$SBLMBH#&"==<Z .SBLMB>
#&@A (<B>,.SBLMBC,D)B>,.SBLMBCN^ #(
D
$SBMXDG#(*==<Z .SBMMS>
#(HA (<B>,.SBMMSC,D)B>,.SBMMSCN^ #'
<
$SBMXMG#'*==<Z .SBMMS>
#'HA (<B>,.SBMMSC,D)B>,.SBMMSCNm #Zy
$SBNTC=#z=<Z .SBVCS>
#A (<B>,.SBVCSC,D)B>,.SBVCSC,NxQ #4Z)
$SBOBB=#4z=<Z .SBOBB>
#5A (<B>,.SBOBBC,D)B>,.SBOBBC,Nzw #b
$SBOKO=# =<Z .SBVCS>
# A (<B>,.SBVCSC,D)B>,.SBVCSC,N<z "dB!
$SBSST=#3r=<Z .SBSST>
#4A (<B>,.SBSSTC,D)B>,.SBSSTC,Nhy #!j
$SBVCST#"
==<Z .SBVCS>
#"(A (<B>,.SBVCSC,D)B>,.SBVCSCNyT # j
$SBWFI=#!
=<Z .SBVCS>
#!(A (<B>,.SBVCSC,D)B>,.SBVCSC,NL@ "dj(
$SID==<"e
Z >
A (<B>,C,D)A (<B>,OX] $Nz${
$SRMBZ=$O=<Z .SRRSV>
$O8A (<B>,.SRRSVC,D)B>,.SRRSVC,OY $R%
$SRMDG=$R2=<Z .SRMMS>
$RPA (<B>,.SRMMSC,D)B>,.SRMMSC,O[3 $Q
%
$SRMMG=$Q*=<Z .SRMMS>
$QHA (<B>,.SRMMSC,D)B>,.SRMMSC,OlY $P%
$SRVRS=$P"=<Z .SRRSV>
$P@A (<B>,.SRRSVC,D)B>,.SRRSVC,V "eR/
$UBITS="er=<Z >
A (<B>,C,D)A (<Bbuh6 #Vz;
$XNNAM=#W=<Z .XNNAM>
#W8A (<B>,.XNNAMC,D)B>,.XNNAMC,bun #Tj*
$XNNXT=#U
=<Z .XNNXT>
#U(A (<B>,.XNNXTC,D)B>,.XNNXTC,bv
[ #Ur3
$XNPRV=#V=<Z .XNPRV>
#V0A (<B>,.XNPRVC,D)B>,.XNPRVC,bv= #XD
$XNSTK=#X"=<Z .XNSTK>
#X@A (<B>,.XNSTKC,D)B>,.XNSTKC,;] $$J"0
IFGE $$j<<<B>&777777>-..$%BSIZ>,<
PRINTX$%( ?WORD offset gre$%Hater than $BUILD $%hsize parameter>
$& SET0. (\<B>,C,<A>)
B>,;LH $J!t
IFNDEF $jC,<PRINTX C IS $NOT DEFINED
$(A (<B>,D,FWMASK$H)>
IFDEF C,<
IFNDEF %C,<
$ A (<B>,D,C)$(>
IFDEF %C,<
%C (A,<B>,D,C)>>A,<B>,
I7P
nP
]PP
$)P
$dQP
$iP
$iRP
$k3P
%IP
%IRP
%K3P
%nP
&
RP
D,pP
E9<P
EI7P
~HxP
~IXP xP P P ;XP <XP LP lRP I7P nP ,P P QP P (XP )P )8P +8P -3P .P 9P HtP IuP IyP LP MP kP lUP +QP ,P HuP I7P XrP
YuP lP mxP RP
QP
hP
hP)(rP,P -P 8PP 8TP 8rP
8tP <P =P HXP IP I8P K8P NP $<zP $HtP $LP %I7P %krP &)0P l;:P l;VP miP ;rP H:P $I`P $K0P $]ZP %\sP &LzP *YSP *D1Q *DkQ 2tXP 2tYP 2t<XP 2t<YP 2tLXP 2tLYP 2u|XP 2u|YP 2v,XP 2v,YP 6$P 6$kP 6%I7P 6%LrP 6%nP 6&<rP 6,QP 6,SP 6,P 6,P 6,:2P 6,lUP 6.N8P 6<LP 6>9P 6><P 6DHtP 6EI7P 6EKQP 6EK[P 6F
vP 6F8tP 6F=P 6FN8P 6FYP 7
-3P 7
8PP 7<XP
B)P B+P B8{P BIQP
BISP BITP BL2P B\HP B\HP B\IP B\IP B\JP BkP BrP BYQP
BYSP
BYTP B\2P BPP B
0P BP BP BP B1P B3P B4P BQP BSP BTP BqP BsP BtP BRP
B,1P B,3P B,4P B,jP B\YP B\+P B\+VP B\+YP B\:zP B\;rP B\<QP B\IrP B\LP B\]hP B\]iP B\]iP
B\]jP
B\]jP B\]kP B\kP B\m7P B]I7P B]Z2P B]\uP B^0P B^7P B^PP B^WP B^ P B^ P B^RP B^
QP B^
zP B^P B^)3P B^+VP B^+sP B^,{P B^82P B^9RQ ?@B^;VP B^;sP B^=P B^IzP B^N8P B^XrP B^lZP B_
2P B_P J$JP J$JP J$LtP J$LzP J$L{P J%I7P J%YP J%[9P J%kVP J&tP J& QP J&
VP J&
zP J&=P J&>9P J,(2P J,(zP J,)P J,)P J,)P J,+1P J,+1P J,+:P J,8qP J,8yP J,;WP J,XvP J,i0P J,lVP J- 2P J-qP J-vP J-VP J-vP J-,VP J.2P J.qP J.qP J. P J. VP J.
1P J.
3P J.8P J.WP J.
1P J.
3P J.
7P J.
tP J.8qP J.9P J.9VP J.;WP J.<tP J.<zP J.=Q J.KrPJ=krPNrPNQPNPN-xPN;PNHyP!NJPNJPNLPwNLP!NLP"NLXPNLrP$NLxP$NLyP$NLzP$NL{P$NhqP$NkP$#NHqP$NI7P%$NK1P%N[9P%NkVP&NxQP&$NyP~N<zP~#NJ6Pu"NMxPuNhyPuObv
[P bv=P >}{woP