Google
 
Trailing-Edge - PDP-10 Archives - ap-c796e-sb - lnkpar.unv
There are 3 other files named lnkpar.unv in the archive. Click here to see a list.
x
,'@P C

P CtYP Ct;yP Ct\YP Ct\zP CtlQP Cu9P 2CuKsP Cu]P Cv:P  Cv8;P Cv9;P Cv<P Cv<P Cv=P Cv>6P Cv\P Cvi9P C2<*:Q C:$;' DCJ,` XB
	XXX	(DYx)	;DYNAMIC DATA
	XXX	(LC)	;LOW SE8G CODE
	XXX	(HC)X	;HIGH SEG CODE
x	XXX	(AS)	;ALGOL SYMBOLS
	XXX	(RT8)	;RELOCATION TABXLE
	XXX	(LS)	;LOxCAL SYMBOLS
	XXX 	(FX)	;FIXUPS
	X 8XX	(BG)	;BOUND GL XOBALS
	XXX	(GS)	 x;GLOBAL SYMBOLS
LOBAL SYMBOLS
CPt;@Q @CPu}@Q  CPv Q CPv+`Q CPv,Q @CPv-`Q DfkP D]@P D4\@P DM4*:Q E*:Q E*:Q E2L*:Q F

,wQ F{6Q @F$YPQ +@F-mQ F=KqQ  FexpQ F[Q F-iQ FT\WQ  F]$*:Q @F]L*:Q  G
d*:QGO
X CR
X 
CL
X CF
X AR
X	( AL
X AF
X RR
X RL
X RF
R
G2,W "B
	SKPINC
	  JFCL
PINC G@u: P G@u;P G@uI7P G@v[UP GB1h3P GB1h6P GB1h9P GB1hsP GB1hvP GB1hyP GB1lSP GB1lVP GB1lYP GC.0 A
X UNKNOW N,UNK
XKA10,KA
X KI10,KI
X KL10,KL
KI
X KL1GO%|R 'hB@
	XWD	CS.(LHS##,CS.RHS##
HS##,CS.RHS##
GPtP GPt\@ GPt$kP GPt(9P GPt(xP GPt+P GPt5jP GPt5lP GPt8VP GPteP GPth4P GPtkyP GPuI7P 	GPuX1P GPuZ2P GPukP GPvP GPv84P GPv:6P GPv[UP GWMYP I

P I=`P I]YP zI]YP Ii9P I.@ /hC
 IFE <B0>-<C>+1,<
	DMOV0(E	A,B
 >
 IFN0H <B>-<C>+1,<
	0hMOVE	A,B
	MOVE	A+1,C
>MOVEI4 Ph=

				ND	MQX.A,B
				ND	AQ(D.A,C
				ND	PD.A,DI6~i  +hBl
  IFL <Z, B>-<@>,<
	MOVE,(	A,B
	MOVE	A+,H1,1+B
  >
  IF,hGE <Z B>-<@>,<
-	MOVEI	A+1,B
	-(MOVE	A,(A+1)
	-HMOVE	A+1,1(A+1)
 >A+1,1(A+1)I6~i6 .Br
	MOVEM	.(A,B
	MOVEM	A+1,1+B
 EM	A+1IO%|R 1(C
 IFE <B1H>-<C>+1,<
	DMOV1hEM	A,B
 >
 IF2N <B>-<C>+1,<
2(	MOVEM	A,B
	MOVEM	A+1,C
>OJ;+ P qKH-P KH-LRP KH-\`P KH.=P KKN8 MDl
 XXX	(MSM()
 XXX	(LRE)
 XMHXX	(I)
 XXX	(ST)
I)
 XXX	(ST)KK]7  KP,qP KP,;yP KP,I1P KP,lxP KP-+8P KP-xzP KP.8\P KP.=P KRN8 NhE
 XXX	(STOR)
 XXX	(SBX)
 O(XXX	(OCT)
 XXX	(OHDEC)
XXX	(FSP)
 XXX	(ASC)
 XXXP	(COR)
 XXX	(JMPP()
IFN .NWBLK,<
PH XXX	(LSP)
> ;END IFN .NWBLK
NL:

)@P L:;@P L:l@P 
L:$]@P:L:%@P L:%VP L:.=P 

L:5K P 

L:d[@P;L:myP;L:myP;L:t2P;L:t6P L:w
L;|P L;4\@P  ML*:Q M

P M0@ M7DkyP M?*:Q  M@teQ M@uHZQ M@vvQ M@v

ZQ M@v9wQ@M@v>6Q OM@vMQ @MLtnQ @MLtnQ MLtnQ MLtnQ MLtnQ MLv)6Q MRe@P MR/	 P MR5|UP MR]wP MRlZP MR~

P Qf@ +Q

PR:)`PR:Y@PR:@PR:$]@PR:&n@PR:-iPR:.=PR:/@P R;i`P R;;@P R;iP 

R;}P R;,iP 

R;4\@P R;T\@P S>$ }(@F


 XXX}h	(ZC,0,.IODPR)		;}HGETSEG AND SCAN/W~ILD ONLY
 XXX	(D~(C,1,.IOBIN)		;REA~HD DATA FILE
 XXX~h	(MC,2,.IOASC)		;MAP CHANNEL (OUTP(UT)
 XXX	(RC,3,.HIOASC)		;RECORD LhOG FILE CHANNEL
 XXX	(OC,4,.IODPR()		;OVERLAY CHANNHEL
 XXX	(LC,5,.IhODPR)		;LOW SEG CODE OVERFLOW 
 X(XX	(HC,6,.IODPR)	H	;HIGH SEG CODE OhVERFLOW
 XXX	(SC,7,.IODPR)		;LOCA(L SYMBOL OVERFLOWH
 XXX	(GC,10,.IOhDPR)		;GLOBAL SYMBOL OVERFLOW
XX(X	(FC,11,.IODPR)	H	;FIXUP OVERFLOW
 XXX	(TC,12,.IODPR)		;TEMP CHAN ((USED TO REPROCESSH FIXUPS ETC)
 XXhX	(AC,13,.IODPR)		;ALGOL SYMBOL OV(ERFLOW



 XXHXX	(%RC,RC,.IOASCh)		;LOG FILE
 XXXX	(%SC,MC,.IODPR()		;SYMBOL FILE
H XXXX	(%VC,DC,.IOhDPR)		;SAVE/SSAVE FILE
 XXXX	(%XC(,LC,.IODPR)		;XPNH FILE
 XXXX	(%OCh,OC,.IODPR)		;OVERLAY FILE
XXXX	((%PC,0,-1)		;PLOTH CHANNEL (WILL BEh 17 AT RUN TIME)
ATRUNTIME)WQ  WN{y uH0
KEYMAC	Cu ON,<DEFAULT,ALL,Nt`ONE,GLOBAL,NOGLOBvAL,LOCALS,NOLOCALv ,ENTRY,NOENTRY,UNu@DEFINED,NOUNDEFINu`ED,RELOCATABLE,NOv@RELOCATABLE,ABSOLv`UTE,NOABSOLUTE,COwMMON,NOCOMMON,ZERw O,NOZERO>
KEYMACw@	CPU,<KA10,KI10,Kw`L10>
IFE FTMANTIxS,<
KEYMAC	DEB,<x ,MACRO,DDT,*FORTRx@AN,FORDDT,*COBOL,x`COBDDT,SAIL,SDDT,yFAIL,SDDT,SIMULA,y SIMDDT,CBL74,COBDy@DT>
>
IFN FTMANy`TIS,<
KEYMAC	DEBz,<,MACRO,DDT,*FORz TRAN,MANTIS,*COBOz@L,COBDDT,SAIL,SDDz`T,FAIL,SDDT,SIMUL{A,SIMDDT,CBL74,CO{ BDDT>
>
KEYMAC	{@DEF,<INPUT,OUTPUT{`>
KEYMAC	HYL,<LO|W,HIGH>
KEYMAC	L| IB,<ANY,F40,COBOL|@,ALGOL,NELIAC,PL1|`,BLISS,SAIL,FORTR}AN,MACRO,FAIL,BCP} L,MIDAS,SIMULA,CB}@L74>
KEYMAC	MAP,}`<END,NOW,ERROR,IN~CREMENTAL>
KEYMA~ C	MPS,<UNSORTED,A~@LPHABETICAL,NUMER~`ICAL>
KEYMAC	MTP,<MTWAT.,MTREW.,M TEOF.,MTSKR.,MTBS@R.,MTEOT.,MTUNL.,`MTBLK.,MTSKF.,MTB	SF.,MTDEC.,MTIND.	 >
KEYMAC	ONL,<BO	@TH,LOW,HIGH>
KEY	`MAC	OTS,<DEFAULT,	NONSHARABLE,SHARA	 BLE,LOW,HIGH>
KE	@YMAC	OVL,<DEFAULT	`,ABSOLUTE,RELOCAT	ABLE,TREE,NETWORK	 ,PURE,WRITABLE,PA	@TH,NOPATH,SINGLE,	`MULTIPLE,LOGFILE,	NOLOGFILE,WARNING	 ,NOWARNING>
KEYM	@AC	PLT,<INCHES,LE	`AVES,STEPS>
KEYM	AC	SEG,<DEFAULT,L	 OW,HIGH,NONE,PSEC	@T>
KEYMAC	SYM,<R	`ADIX50,TRIPLET,AL	GOL>;	
KEYMAC	SY	 S,<UNSORTED,ALPHA	@BETICAL,NUMERICAL	`>
KEYMAC	VER,<SH	ORT,MEDIUM,LONG>
,MEDIUM,LONG>W2Q X0P XHP XJP XJ P XJ0P XJ@P XJPP XJ`P XJpP XlP X8P X:5

`P X:5L`P X:5l`P  X:F;`P X:Mh`P X:N8 P X:e@P X:f;`P @X;	P X; P Y

P Y4[ QDp
 IRPC BN,<
  A%IB==:A%I+B
>B==:AY'' 6(C`
 IF1,<BL6HOCK <B-A+2>/2>	6h;ALLOCATE ENOUGH 7SPACE
 IF2,<
  7(ZZ.==A
  ZZH.==7H<B-A+2>/2	;
87hZZT.==ZZH.+ZZ.	;
8REPEAT ZZH.,<
   PTYPE (\ZZT.,8H\ZZ.)	;
   ZZ.==8hZZ.+1
   ZZT.==Z9ZT.+1	;

 >>
 9(DEFINE PTYPE (X,Y9H)<
  IFDEF T.'X,9h<
   IFDEF T.'Y,:<
    T.'X,,T.'Y:(
   >
   IFNDEF:H T.'Y,<
    T.'X:h,,T.ERR
  >>
  ;IFNDEF T.'X,<
  ;( IFDEF T.'Y,<
  ;H  T.ERR,,T.'Y
  ;h >
   IFNDEF T.'<Y,<
    T.ERR,,T.ERR
>>>ERR,,TY8r@P  Y8tVP Y8t<P $Y8tLQP Y8t\P 
Y8u`P Y8uLP Y8u|P Y8u}VP 
Y8v3P @Y8v	P Y8vP `Y8v

P Y8v*1P Y8v9RP Y8v={P Y8vyP [*:Q [

P [&$*:Q [`tYP#[`t;yP#[`t\YP [`t\zP#[`tlQP#[`u9P 2d[`uKsP [`u]P#[`v:P#[`v8;P#[`v9;P [`v<P#[`v<P#[`v=P#[`v>6P#[`v\P#[`vi9P ] /0}IF2,<IFDEF/P A,<A==A>> IFNDEF A,<A==B>]2L*:Q _

P W&j0 !8B
	PUSHJ	P!X,TTYCHK
	 PUSHJ	P,A

	 PUSHJ	`@ `D@ `H@ `L@ `P@ a&<P  atYP at;yP at\YP at\zP atlQP au9P 2auKsP au]P av:P  av8;P'av9;P av<P av<P av=P#av>6P av\P'avi9P a2L*:Q a<uRQ aJ|99 A$
X UNKNOW@N,UNK
XF40,F40
X COBOL,CBL
X ALGOL,ALG
X NELIA C,NLI
XPLI,PLI
X BLISS,BLI
X S`AIL,SAI
X FORTRAN,FOR
X MACRO,MA C
X FAIL,FAI
X @BCPL,BCP
X MIDAS`,MID
X SIMULA,SIM
X CBL74,C74
X  CBL79,C79
X BLS@36,B36
X BASIC,BAS

X BASIC,BaLt`P aLt)yP"aLt;8P aLt;vQ  aLtIQ aLtK`P aLtLP aLtLP aLt[ZQ @aLt^P$aLtnQ aLt{Q aLuHVP aLuHvQ aLuKsP aLuYQ  aLukrP @aLulXP  aLuxzP aLv(SP!aLv)6Q aLv)8Q aLv<P aLv<P aLvN8P aLvYQ 

aLvYQ aLvYQ aLv[RP aPt+Q  aPt^Q  aPth5Q @aPu\sQ aPu}Q aPv

qQ aPv

xQ aPv+Q aPv9wQ @aPv>6Q aPvMQ dP d:MP @d:$]@P d:-iP d:/

`P d:5L`P d:5l`P  d:F;`P d:Mh`P d:N8 P d:d[@P d:e

@P d:e@P d:eyP"d:f;`P @d:t P d:w|sP$d;T\@P dD@ dH@ dL@ dTtIQ @dTtnQ @dTtnQ dTtnQ  dTtnQ dTt{Q dTuHvQ dTv)8Q  e

P e

tP e

t=@P e

uP e

uQP e

u@P e

uH@P e

uk P e

uy@P e

v	`P e

v9`P e

vyP eexp <HD


IFID<hN	<A><NONE>,<
	=HRLI	WC,400000	
=(	SETZ	RB,		
>
=H

IFDIF	<A><NON=hE>,<
	MOVEI	T1,>A		
	MOVEM	T1,RE>(LSIZ	
	PURGE	SET>HUP		

IFB	<B>,>h<PRINTX ?ERRONEOU?S RELOCATE MACRO>?(
IFNB	<B>,<

?HIFIDN	<B><RIGHT>?h,<OPDEF SETUP[TRZ@ FL,R.LHR]>
IFID@(N	<B><BOTH>,< OP@HDEF SETUP[TRO FL,@hR.LHR]>


IFDEAF	<SETUP>,<	SETUPA(	>
IFNDEF	<SETUPAH>,<PRINTX ?ERRONEAhOUS RELOCATE MACRO>
>>CATE MACRfP f(P 

f0P fHP fJP fJ P fJ0P fJ@P fJPP fJ`P fJpP flP f8P f:]Q f:{ Q @f:) Q  f:$]@Q f:7

Q  f:ek Q f:f=Q  f:n9@P f:n[P f:t Q f;(`Q @f;8`Q f;l`Q f;)`Q f;H`Q f;IP$f;K@P"f;L`P!f;Y`Q f;iQ f;{@Q @f; Q f;&KQ f;4\@Q gL*:Q @g

P g=Y7 AH
	TWOSEG	%HISEG
TWOSEG	gO
(A
X AR
X 
HAL
X AF
X RR
X
h RL
X RF
X TL
 X TB
X SG
X SL;@		;ADD NEW FIXUP `IN SFIXUPS MACRO FOR SG, LEFT HALF
SG, LEFT HALFg&l*:Q g6~i  .hBz
 IFE B,/<
	TDZA	A,A
 /(>
 IFN B,<
	SKIPA	A,[B]
>KgB1h3P gB1h6P gB1h9P gB1lSP gB1lVP gB1lYP gB1lsP gB1lvP gB1mP gB1mP gB~ $B!
 IRP A,<
	POP	P,A
>gC.: #8B
 IRP A,#X<
	PUSH	P,A
>
	PUSH	P,A
>gLv:P g_$: NHG"
SWMAC	SPQ(,ARSIZE,,.SWDEC,AQHRS,3
SWMAC	SP,BAQhCKSPACE,,.SWDEC,MSTP,3,.
SWMAC	SP,S COMMON,,.SWSYM,SYS@M,4,.,,.DECNW
SWS`MAC	SL,CONTENT,,CTONK,1,3
SWMAC	SST ,COUNTER,,0,,3,.
SWMAC	SS,CRLF,,0T`,,3,.
SWMAC	SL,DUDEBUG,,DEBK,1,3
U SWMAC	SL,DEBUG,,DU@EBK,1,3,.,*
SWMAU`C	SL,DEFAULT,,DEFVK,1,3,.
SWMAC	SPV ,DEFINE,,.SWSYM,SV@YM,4,,,.DECNW
SWV`MAC	SS,ENTRY,,0,,W3,.
SWMAC	SP,ERRW ORLEVEL,,.SWDEC,EW@RR,3
SWMAC	SP,EXW`CLUDE,,.SWSYM,SYMX,3,.
SWMAC	SS,EXX ECUTE,,0,,3,,*
SX@WMAC	SP,FRECOR,,.X`SWDEC,FRC,3
SWMAYC	SS,GO,,0,,3,,*
SWMAC	SP,HASHSIZY@E,,.SWDEC,HAS,3
Y`SWMAC	SP,INCLUDE,Z,.SWSYM,SYM,3,.
Z SWMAC	SS,K,,0,,3,Z@,*
SWMAC	SP,LINKZ`,,.SWSIX,SYM,3
S[WMAC	SS,LOCALS,,0[ ,,3,.,*
SWMAC	SS[@,LOG,,0,,3
SWMAC[`	SP,LOGLEVEL,,.SW\DEC,LOG,3
SWMAC	\ SL,MAP,,MAPK,1,3,\@,*
SWMAC	SS,MISS\`ING,,0,,3,.
SWMA]C	SL,MPSORT,,MPSK] ,1,3
SWMAC	SL,MT]@APE,,MTPK,1,3,.
]`SWMAC	SL,NEWPAGE,^,HYLK,1,3,.
SWMA^ C	SP,NODE,,.SWSXD^@,SYM,3
SWMAC	SP,^`NOENTRY,,.SWSYM,S_YM,3,.
SWMAC	SS,_ NOINITIAL,,0,,3
_@SWMAC	SS,NOLOCAL,_`,0,,3,.,*
SWMAC	`SP,NOREQUESTS,,.S` WSIX,SYM,3,.
SWM`@AC	SS,NOSEARCH,,0``,,3,.
SWMAC	SS,NaOSTART,,0,,3,.
Sa WMAC	SS,NOSYMBOL,a@,0,,3
SWMAC	SL,Na`OSYSLIBRARY,,LIBKb,1,3
SWMAC	SL,NOb USERLIBRARY,,LIBKb@,1,3
SWMAC	SL,ONb`LY,,ONLK,1,3,.
ScWMAC	SL,OTSEGMENTc ,,OTSK,1,3
SWMACc@	SL,OVERLAY,,OVLKc`,1,3,.
SWMAC	SP,dPATCHSIZE,,.SWDECd ,PAT,3
SWMAC	SL,d@PLOT,,PLTK,1,4,,,d`.DECNW
SWMAC	SS,eREQUEST,,0,,3,.
e SWMAC	SP,REQUIRE,e@,.SWSYM,SYM,3
SWe`MAC	SS,REWIND,,0,f,3,.
SWMAC	SP,RUf NAME,,.SWSIX,SYM,f@3
SWMAC	SS,SAVE,f`,0,,3
SWMAC	SS,SgEARCH,,0,,3,.,*
g SWMAC	SL,SEGMENT,g@,SEGK,1,3,.
SWMAg`C	SP,SEVERITY,,.ShWOCT,SEV,3
SWMACh 	SP,SET,,.SWSYM,Sh@YM,4,.,,.SYOSW
Sh`WMAC	SP,SKIP,,.SWiDEC,MTP,3,.
SWMAi C	SP,SPACE,,.SWDEi@C,SPA,3
SWMAC	SPi`,START,,.SWSYO,STjA,3,.
SWMAC	SL,Sj YFILE,,SYMK,1,3
j@SWMAC	SL,SYMSEG,,j`SEGK,2,4,.,,.SWSYkM	;[721]
SWMAC	Sk L,SYSLIBRARY,,LIBk@K,1,3,.
SWMAC	SLk`,SYSORT,,SYSK,1,3l
SWMAC	SL,TEST,,l DEBK,1,3,.,*;	;
l@SWMAC	SS,UNDEFINEl`D,,0,,3,.,*
SWMAmC	SS,UNLOAD,,0,,3m 
SWMAC	SP,UPTO,,[email protected],UPT,3	;[72m`3]
SWMAC	SL,USERnLIBRARY,,LIBK,1,3n 
SWMAC	SP,VALUE,n@,.SWSYM,SYM,3,.
n`SWMAC	SL,VERBOSIToY,,VERK,2,3
IFE o TOPS20,<
SWMAC	So@P,CORE,2,.SWDPK,Co`OR,4
SWMAC	SL,CPpU,,CPUK,1,3
SWMAp C	SP,ESTIMATE,,.Sp@WDEC,EST,3
SWMACp`	SS,FOROTS,,0,,3
SWMAC	SS,FORSE,,q 0,,3
SWMAC	SP,MAq@XCOR,2,.SWDPK,CORq`,4
SWMAC	SP,RESErT,,.SWSXD,SYM,3
r SWMAC	SP,RUNCOR,2r@,.SWDPK,COR,4
SWr`MAC	SS,SSAVE,,0,,s3
SWMAC	SS,XPN,,s 0,,3
SWMAC	SS,ZEs@RO,,0,,3
 >
IFNs` FMXFOR,<
SWMAC	tSS,MIXFOR,,0,,3
t SWMAC	SS,NOMIXFOR,,0,,3
 >
FORhD@ hH@ hL@ hP@ i

P i.@ 2hC 
 IFE <B3>-<C>+1,<
	DMOV3(E	A,B
	MOVE	A3H+2,D
 >
 IFN <3hB>-<C>+1,<
	MO4VE	A,B
	DGET	A+1,C
>DGET	i6~i  (hBT
 IFL <Z )B>-<@>,<
	MOVE	)(A,B
	DMOVE	A+)H1,1+B
 >
 IFGE)h <Z B>-<@>,<
	M*OVEI	A+2,B
	DM*(OVE	A,(A+2)
	M*HOVE	A+2,2(A+2)
>A+2,2(A+2)
	MOVEM	+(A,B
	DMOVEM	A+1,1+B
VEM	A+i?4HP iO%|R 4HC.
 IFE <B4h>-<C>+1,<
	DMOV5EM	A,B
	MOVEM	5(A+2,D
 >
 IFN5H <B>-<C>+1,<
	5hMOVEM	A,B
	DSTORE	A+1,C
>Tj 8A_
A=.ZZ
 IFB <B>,<.ZZ==x.ZZ+1>
 IFNB <B>,<.ZZ==.ZZ+B>
8 IFG .ZZ-.TEMP-.TXLEN,<PRINTX Too mxuch TEMP space used>
P space usk:\*:Q @kN-J1 BB
l`P lhP llP lP m:7 (AD
	LOC	137H
.JBVER:	<BYTE(3h)CUSTVR(9)DECVER((6)DECMVR(18)DECEVHR>
	RELOC
	EZCOR=:EZCOR
	EZCOnD@ nH@ nL@ p 	`HD
 IFIDN <	B><UNK>,<
  $LI	

XBDEFAULT==UNKBIT
 >
 $LIBA==BBIT

   $ABuK8 8Ai
	MOVE	T1X,[.TEMP,,.TEMP+1]x
	SETZM	.TEMP
	BLT	T1,.TEMP+.TLEN-1
.TEMP+.TLEu

P 	ZpP 	ZtP 	ZvP 	2L(6Q 	2L(PQ 	2L(QQ 	2L(VQ 	2L(qQ  	2L(wQ 	2L)Q @	2L)JQ  	2L)PQ 	2L)WQ  	2L+0Q 	2L+4Q 	2L+RQ 	2L,Q 	2L,pQ @	2L,tQ 	2L-7Q @	6	7P 	6	9P 	6
7Q 	6WP6	?4YP6	?4I3P6	?5KsP6	?5]6P,	?5i:P,	?5kvP,	?5kxP,	?5k{P,@	?6:P @	?6
]P 
@P 
.[`P v@Q @"N93P$2^Q  >P BP JP J-`Q NP ZP bP 0P +P := "XB
	XLIST
"x ASCIZ	\A\
	LIST
Z	\A\
	LIS

P#~.P S@P PP ?0P @4[P Q Q  (Q Q @#@ B(DJ
IFL L%MBHAX-D,<D=L%MAX>
 %LVL==D-.LVL
C IFGE %LVL,<
  IC(FL V%MAX-C,<C=VCH%MAX>
  IFL S%MAChX-E,<E=S%MAX>
D  IFNB <A>,<
  D( ERRUUO	ER%A
  DH>
DIFNB <F>,<
   IFNB <G>,<
E   EXP <B>+<C>BE(<B%VER>+<E>B<B%SEHEV>+<D>B<B%LVL>+Eh<[.ERF::ASCIZ \FF \
								   AF(SCIZ \G\]>>
   FHIFB <G>,<
    IFhF2,<
    IFNDEF G.ERF,<EXTERN .ERG(F>
    >
   EXGHP <B>+<C>B<B%VEGhR>+<E>B<B%SEV>+<HD>B<B%LVL>+<.ERH(F>>
  >
  IFB <HHF>,<
   EXP <BHh>+<C>B<B%VER>+<IE>B<B%SEV>+<D>B<I(B%LVL>+<[ ASCIZ \G\]>>
  >
 \$3@ IhDd
 IFGE %LJVL,<
  IFNB <F>J(,<
   EXP <B>+<JHET%A>B<B%LVL>+<JhF>
  >
  IFB <KF>,<
   IFNB <GK(>,<
    EXP <B>KH+<ET%A>B<B%LVL>+Kh<[ ASCIZ \G\]>
L   >
   IFB <G>L(,<
    EXP <B>+LH<ET%A>B<B%LVL>
  >>
 >
VL>
D0P F>6P ~+P \xP  DSP 
DwP 
D)YP 	DI;P DJ6P DJ9P D\zP 

D^P DkP DkP EI7P F;QP 	Fi9P 

&)P /&)P .&,hP 2#PP -& P 'PP '0P '4[P '=PP '>0P *i9` /*$M $XB3
 IFE DEB$xSW,<>
 IFN DEBSW%,<
  IRP C,<
	%8C
  >
	PUSHJ	P%X,ENTDDT
	  .JDDT%xX (A,B,\<.-B>)&
	OPDEF	CONTINUE&8 [JRSTF	@.JBOPC]
>STF	@.JBOPC]
 JFCL	[A'SCIZ	\A:	B + C\]
A:	B + C0P 2ex`P"35@P ;-H9P';<+P ?+qP ?6

xP C$hwP C&

P C&=zP JP JI;P J\zP J^P Jh6P J

P J

[P J:=P Ji9P OP O@P O4]QP ~OMJ6P'Z.P >}{woP