Google
 
Trailing-Edge - PDP-10 Archives - SRI_NIC_PERM_SRC_1_19910112 - 6-1/language-sources/lnkpar.unv
There are 3 other files named lnkpar.unv in the archive. Click here to see a list.
x
,5@P C

( P C
P C
mP C
ej`P C
myP C
t P C
~jP C@P C

P CtYP Ct;yP Ct\YP Ct\zP CtlQP Cu9P 2CuKsP CuX<P Cu]P Cv:P  Cv8;P Cv9;P Cv<P Cv<P Cv=P Cv>6P Cv\P Cvi9P C

*:P  C!` . C&)9 xC2<*:Q C:$;' D CJ,` 1A(
	XXX	(DY1a)	;DYNAMIC DATA
2	XXX	(LC)	;LOW SE2 G CODE
	XXX	(HC)2@	;HIGH SEG CODE
2`	XXX	(AS)	;ALGOL 3SYMBOLS
	XXX	(RT3 )	;RELOCATION TAB3@LE
	XXX	(LS)	;LO3`CAL SYMBOLS
	XXX4	(FX)	;FIXUPS
	X4 XX	(TP)	;[2270] T4@YPECHECKING
	XXX4`	(BG)	;BOUND GLOB5ALS
	XXX	(GS)	;GLOBAL SYMBOLS
CPt;@Q @CPuI Q CPuh`Q CPun@Q CPu}@Q  CPv 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  FYD*:Q F]$*:Q @G
Q HG
6[QQ $HG
N@P G
d*:Q|GO
X CR
X 	CL
X CF
X CE
X( AR
X AL
X AF
IX AE
X RR
XRL
X RF
X RE
LW 6!2
	SKPINC
	  JFCL
PINC G@u: P G@u;P G@u<`P G@u\uP GB1h2Q GB1h3Q 

GB1h6Q 
GB1h9Q GB1hrQ GB1hsQ GB1hvQ GB1hyP GB1lRQ GB1lSQ GB1lVQ GB1lYQ GC.0 %)H
  X KA,KiA
  X KI,KI
  X	 KL,KL
  X KS,KS			

  X KS,KSGO%|R ;ya
	XWD	CS.<LHS##,CS.RHS##
HS##,CS.RHS##
GPtP GPtP GPt\@ GPt$kP GPt(9P GPt(xP GPt+P GPt0P GPt5LP GPt5jP GPt8VP GPteP GPth4P GPtkyP GPu+{P 
GPuI7P 

GPuX1P GPuZ2P GPukP GPv9P 
GPvP GPv84P GPv:6P GPv=P 	GPv[UP GPw	YP 	GWMYP I

P I&3P zI&8 P'pI=`P I]YP uI]YP Ii9P I.@ @y
 IFE <BA>-<C>+1,<
	DMOVA8E	A,B
 >
 IFNAX <B>-<C>+1,<
	AxMOVE	A,B
	MOVE	A+1,C
>MOVEI4 	LhLj
				ND	M	MX.A,B
				ND	A	M(D.A,C
				ND	PD.A,DIO%|R B9
 IFE <BBY>-<C>+1,<
	DMOVBxEM	A,B
 >
 IFCN <B>-<C>+1,<
C8	MOVEM	A,B
	MOVEM	A+1,C
>OJ;+ P qKH-P KH-LRP KH-\`P KH.=P KJt  I		;[2304]
IF1,<IFB <A>,<P`RINTX %Missing JS`(YS name in ERNAM `Hmacro call>>
IF2`h,<IFNDEF E$$UMF,<aEXTERNAL E$$UMF>>a( ;[2304]
	ERCAL	aH[MOVX	P2,SIXBIT\ahA\ ;[2304]
		PJRST	E$$UMF]		PJRKKI7P BKKN8 ei2
 XXX	(MSf	)
 XXX	(LRE)
 Xf(XX	(I)
 XXX	(ST)
I)
 XXX	(ST)KK]7  KP,qP KP,*vP KP,;yP KP,H:P KP,I1P KP,lxP KP-+8P KP-LxP KP-kP KP-kxP KP-xzP KP.-P KP.8\P KP.=P KP/zP KRN8 gIT
 XXX	(STgiR)
 XXX	(SBX)
 hXXX	(OCT)
 XXX	(h(DEC)
XXX	(FSP)
 XXX	(ASC)
 XXXhh	(COR)
 XXX	(JMPi)
 XXX	(RTN)
 Xi(XX	(NLN)
 XXX	(XiHCT)
 XXX	(BKL)
ih XXX	(DAT)
 XXX	j(NOP)
IFN .NWBLKj(,<
 XXX	(LSP)
>jH ;END IFN .NWBLK
NDIFN.NWBLKL]@Q >L4\@Q @L:

)@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 MH`P Md[@P Mv\P M`P MM@P ML@P M'P M=h P Mui;Q M&f:=P M0@ M?*:Q  M@teQ M@uHZQ M@vvQ M@v

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

P OLu|SP$@Qf@ +Q

PQ&=@<R:R:@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>$ Yv


 XXXy	(ZC,0,.IODPR)		;9GETSEG AND SCAN/W)ILD ONLY
 XXX	(DHC,1,.IOBIN)		;REAhD DATA FILE
 XXX	(MC,2,.IOASC)		;(MAP CHANNEL (OUTPHUT)
 XXX	(RC,3,.hIOASC)		;RECORD LOG FILE CHANNEL
( XXX	(OC,4,.IODPRH)		;OVERLAY CHANNhEL
 XXX	(LC,5,.IODPR)		;LOW SEG C(ODE OVERFLOW 
 XHXX	(HC,6,.IODPR)	h	;HIGH SEG CODE OVERFLOW
 XXX	(SC(,7,.IODPR)		;LOCAHL SYMBOL OVERFLOWh
 XXX	(GC,10,.IODPR)		;GLOBAL SYM(BOL OVERFLOW
XXHX	(FC,11,.IODPR)	h	;FIXUP OVERFLOW
 XXX	(TC,12,.IOD	(PR)		;TEMP CHAN (	HUSED TO REPROCESS	h FIXUPS ETC)
 XX
X	(AC,13,.IODPR)	
(	;ALGOL SYMBOL OV
HERFLOW
 XXX	(PC,
h14,.IODPR)		;[2270] ARGUMENT TYPEC(HECKING OVERFLOW



 XXXX	(%RCh,RC,.IOASC)		;LOG

 FILE
 XXXX	(%SC

(,MC,.IODPR)		;SYM

HBOL FILE
 XXXX	(

h%VC,DC,.IODPR)		;
DXXXX	(%XC,LC,.IO
 XXXX	(%OC,OC,.IODPR)		;OVERLAY FI(LE
 XXXX	(%PC,0,H-1)		;PLOT CHANNEhL (WILL BE 17 AT RUN TIME)
 AT S?` G U?4*:P @U_9hwP U_9iVP U_9lP WN{y Q"?
KEYMAC	C1ON,<DEFAULT,ALL,NqONE,GLOBAL,NOGLOBQAL,LOCALS,NOLOCAL,ENTRY,NOENTRY,UNqDEFINED,NOUNDEFIN1ED,RELOCATABLE,NORELOCATABLE,ABSOL0UTE,NOABSOLUTE,COPMMON,NOCOMMON,ZERpO,NOZERO>
KEYMAC	CPU,<KA10,KI10,K0L10,KS10>	;[1236]P ADD KS10
KEYMACp	DEB,<,MACRO,DDT,*FORTRAN,FORDDT,*0COBOL,COBDDT,SAILP,SDDT,FAIL,SDDT,SpIMULA,SIMDDT,ALGOL,ALGDDT,*PASCAL,0PASDDT> ;[2036]
PKEYMAC	DEF,<INPUTp,OUTPUT>
KEYMAC	HYL,<LOW,HIGH>
K0EYMAC	LIB,<ANY,F4P0,COBOL,ALGOL,NELpIAC,PL1,BLISS,SAIL,*FORTRAN,MACRO,0FAIL,BCPL,MIDAS,SPIMULA,CBL74,CBL79p,BLS36,BASIC,SITGO,FORTRAN,*PASCAL0,JOVIAL,ADA,C> 
PKEYMAC	MAP,<END,NpOW,ERROR,INCREMENTAL>
KEYMAC	MPS,0<UNSORTED,ALPHABEPTICAL,NUMERICAL>
KEYMAC	MTP,<MTWAT.,MTREW.,MTEOF.,0MTSKR.,MTBSR.,MTEPOT.,MTUNL.,MTBLK.p,MTSKF.,MTBSF.,MTDEC.,MTIND.>
KEY0MAC	ONL,<BOTH,LOWP,HIGH>
KEYMAC	OTpS,<DEFAULT,NONSHA RABLE,SHARABLE,LO 0W,HIGH>
KEYMAC	O PVL,<DEFAULT,ABSOL pUTE,RELOCATABLE,T!REE,NETWORK,PURE,!0WRITABLE,PATH,NOP!PATH,SINGLE,MULTIP!pLE,LOGFILE,NOLOGF"ILE,WARNING,NOWAR"0NING>
KEYMAC	PLT"P,<INCHES,LEAVES,S"pTEPS>
KEYMAC	PTP#,<DEFAULT,PLOTTER#0,PRINTER>	;[2002]#P
KEYMAC	PDV,<NAM#pE,VERSION,START,M$EMORY,PROGRAM,CBL$0OCK,EXPORT>	;[230$P6]
KEYMAC	SEG,<L$pOW,HIGH,DEFAULT,N%ONE>	;[1201]
KEY%0MAC	SSG,<LOW,HIGH%P,NONE,PSECT,DEFAU%pLT> ;[1201] LOW && HIGH MUST BE FIR&0ST 2
KEYMAC	SYM,&P<RADIX50,TRIPLET,&pALGOL>;	
KEYMAC	'SYS,<UNSORTED,ALP'0HABETICAL,NUMERIC'PAL>
KEYMAC	VER,<'pSHORT,MEDIUM,LONG>
,MEDIUM,LONGW&f:P X P 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 Y

u|SP @Yt}P'~Y4[ k	6
 IRPC Bfi,<
  A%IB==:A%I+B
>B==:AY'' G9i
 IF1,<BLGYOCK <B-A+2>/2>	Gx;ALLOCATE ENOUGH HSPACE
 IF2,<
  H8ZZ.==A
  ZZH.==HX<B-A+2>/2
  ZZHxT.==ZZH.+ZZ.
  RIEPEAT ZZH.,<
   I8PTYPE (\ZZT.,\ZZ.IX)
IxZZ.==ZZ.+1
JZZT.==ZZT.+1

 >>
 DEFINE PJ8TYPE (X,Y)<
  IFJXDEF T.'X,<
   IFJxDEF T.'Y,<
    TK.'X,,T.'Y
   >
K8   IFNDEF T.'Y,<
    T.'X,,E$$IRBKx	
  >>
  IFNDEFL T.'X,<
   IFDEFL8 T.'Y,<
    E$$ILXRB,,T.'Y	
   >
Lx   IFNDEF T.'Y,<
    E$$IRB,,E$$IRB	
>>>B,,E$$IY8r@P  Y8tVP Y8t)@P Y8t<P $Y8tLQP Y8t\P 
Y8tkP Y8u`P Y8uLP Y8u|P Y8u}P PY8u}VP 
Y8v3P @Y8v	P Y8vP `Y8v

P Y8v*1P Y8v9RP Y8v={P Y8vyP YLu|SP"@ZP Z0P ZP [*:Q [F91P [F>6P $[

P [&$*:Q [4v;P [`tYP#[`t;yP#[`t\YP [`t\zP#[`tlQP#[`u9P 2d[`uKsP [`uX<P#[`u]P#[`v:P#[`v8;P#[`v9;P [`v<P#[`v<P#[`v=P#[`v>6P#[`v\P#[`vi9P ] ((

	IFNDEF	A,<A==B>
F	]2L*:Q _

P _W$: )q"S
 IFN A-*11,<
	HRRZ	1,A
 >
	PBOUT%

_W&= *q"W
	HRROI	1,A
	PSOUT%
1_W&j0 5A.
	PUSHJ	P5a,TTYCHK
	 PUSHJ	P,A

	 PUSHJ	`@ `D@ `H@ `L@ `P@ a>91P a*:P!a%|SP'a&<P  a

P a

t;7P a

uKUP a

v

qP a

v:=P atYP at;yP at\YP at\zP atlQP au9P 2auKsP auX<P au]P av:P  av8;P'av9;P av<P av<P av=P#av>6P av\P'avi9P a0tSP a0tTP a0uP'a0uP$a0ui;P%a0uk<P'pa0ul`@ a0ulsP a0ultP a0ulwP%a0ulyP a0uzP (a0u{P  a0v+P a0v+P a0v84P {a0v86P xa0v:P a0v;P `a0v;TP sa0v;VP `a0v<TP a0v<VP |a0v<tP wa0v<vP ta0v>6P a2L*:Q a<uRQ aJ|99 I&
X UNKNOWAN,UNK,<Unknown>,	`	
X F40,F40,<F40>,400000			
X CO BOL,C68,<COBOL-68@>,400000		
X ALG`OL,ALG,<Algol>,400000		
XNELIAC, NLI,<NELIAC>,			
X PLI,PLI,<PL/I>`,			
X BLISS,BLI,<BLISS-10>,			
 X SAIL,SAI,<SAIL>@,			
X FORTRAN,F`OR,<FORTRAN>,500000		
X MACRO,MAC ,<MACRO>,			
X F@AIL,FAI,<FAIL>,		`	
X BCPL,BCP,<BC PL>,			
X MIDAS,  MID,<MIDAS>,			
 @X SIMULA,SIM,<SIM `ULA>,			
X CBL74!,C74,<COBOL-74>,4! 00000		
X COBOL,!@CBL,<COBOL>,40000!`0		
X BLS36,B36,"<BLISS-36>,			
X"  BASIC,BAS,<BASIC"@>,			
X SITGO,ST"`G,<SITGO>,			
X #FORTRAN,XFR,<G-Fl# oating FORTRAN>,5#@00000	
X PASCAL,#`PAS,<PASCAL>,5400$00		
X JOVIAL,JO$ V,<JOVIAL>,			
X$@ ADA,ADA,<ADA>			$`	
XC,C,<C>				
XC,C,<C>				P"aLt;8P aLt;vQ  aLtIQ aLtK`P aLtLP aLtLP aLt[ZQ @aLt^P aLt^P$aLtmsP aLtnQ aLt{Q aLt{P aLuHVP aLuHvQ aLuKsP aLuYQ  aLu\P aLukrP @aLulXP  aLuxzP aLv(SP!aLv)6Q aLv)8Q aLv<P aLv<P aLvN8P aLvYQ 

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

qQ aPv

xQ aPv+Q aPv9wQ @aPv>6Q aPvMQ aXuI7P aXv<P dP d:MP @d:m@P 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:tP d:w P d;&- P d;&|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

uk P e

uy@P e

v	`P e

v9`P e

vyP eexp MY


IFIDMyN	<A><NONE>,<
	NHRLI	WC,400000	
N8	SETZ	RB,		
>
NX

IFDIF	<A><NONNxE>,<
	MOVEI	T1,OA		
	MOVEM	T1,REO8LSIZ	
	PURGE	SETOXUP		

IFB	<B>,Ox<PRINTX ?ERRONEOUPS RELOCATE MACRO>P8
IFNB	<B>,<

PXIFIDN	<B><RIGHT>Px,<OPDEF SETUP[TRZQ FL,R.LHR]>
IFIDQ8N	<B><BOTH>,< OPQXDEF SETUP[TRO FL,QxR.LHR]>


IFDERF	<SETUP>,<	SETUPR8	>
IFNDEF	<SETUPRX>,<PRINTX ?ERRONERxOUS RELOCATE MACRO>
>>CATE MACRfP fP f P f(P 

f0P fHP fJP fJ P fJ0P fJ@P fJPP fJ`P fJpP flP f8P f:

=Q @f:

L@P f:]Q f:{ Q @f:) Q  f:$]@Q f:5Q f:5|@Q f:7

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

P g=Y7 )!J
	TWOSEG	%HISEG
TWOSEG	g,Q g,^Q @gO
X AR
X )AL
X AF
X AE
XI RR
X RL
X RF
hX RE
X TL
XSG
X SL;		;ADD NEW (FIXUP IN SFIXUPS HMACRO FOR SG, LEFT HALF
SG, LEFg&l*:Q g6~i  ?y
 IFE B,@<
	TDZA	A,A
 @8>
 IFN B,<
	SKIPA	A,[B]
>KgB1h2Q gB1h3Q gB1h6Q gB1h9P gB1lRQ gB1lSQ 

gB1lVQ 
gB1lYQ gB1lsQ gB1lvQ gB1mQ gB~ 8!B
 IRP A,<
	POP	P,A
>gC.: 7A>
 IRP A,7a<
	PUSH	P,A
>
	PUSH	P,A
>gLv

`Q @gLv:P gP.N8Q ~gR<*:P$gXuI7P gXv;P g_!lhQ @g_!liQ  g_$: g)!
SWMAC	SPkY,ARSIZE,,.SWDEC,AkyRS,3
SWMAC	SP,BAlCKSPACE,,.SWDEC,MmTP,3,.
SWMAC	SP,m0COMMON,,.SWSYM,SYmPM,4,.,,.DECNW
SWmpMAC	SL,CONTENT,,CnONK,1,3
SWMAC	SSn0,COUNTER,,0,,3,.
SWMAC	SL,CPU,,CPnpUK,1,3
SWMAC	SS,oCRLF,,0,,3,.
SWMo0AC	SL,DDEBUG,,DEBoPK,1,3
SWMAC	SL,DopEBUG,,DEBK,1,3,.,p*
SWMAC	SL,DEFAUp0LT,,DEFK,1,3,.
SpPWMAC	SP,DEFINE,,.ppSWSYM,SYM,4,,,.DEqCNW
SWMAC	SS,ENTq0RY,,0,,3,.
SWMACqP	SP,ERRORLEVEL,,.qpSWDEC,ERR,3
SWMArC	SP,EXCLUDE,,.SWr0SYM,SYM,3,.
SWMArPC	SS,EXECUTE,,0,,rp3,,*
SWMAC	SP,FRsECOR,,.SWDEC,FRC,s03
SWMAC	SS,GO,,0sP,,3,,*
SWMAC	SP,spHASHSIZE,,.SWDEC,tHAS,3
SWMAC	SP,It0NCLUDE,,.SWSYM,SYtPM,3,.
SWMAC	SS,Ktp,,0,,3,,*
SWMAC	uSP,LIMIT,,.SWSYM,u0SYM,4,.,,.SYOSW  uP
SWMAC	SP,LINK,,up.SWSIX,SYM,3
SWMvAC	SS,LOCALS,,0,,v03,.,*
SWMAC	SS,LvPOG,,0,,3
SWMAC	SvpP,LOGLEVEL,,.SWDEwC,LOG,3
SWMAC	SLw0,MAP,,MAPK,1,3,,*wP
SWMAC	SP,MAXNODwpE,,.SWDEC,MAX,3
xSWMAC	SS,MISSING,x0,0,,3,.
SWMAC	SLxP,MPSORT,,MPSK,1,3xp
SWMAC	SL,MTAPE,y,MTPK,1,3,.
SWMAy0C	SL,NEWPAGE,,HYLyPK,1,3,.
SWMAC	SPyp,NODE,,.SWSXD,SYMz,3
SWMAC	SP,NOENz0TRY,,.SWSYM,SYM,3zP,.
SWMAC	SS,NOINzpCLUDE,,0,,3,.
SW{MAC	SS,NOINITIAL,{0,0,,3
SWMAC	SS,N{POJOBDAT,,0,,3	;[2{p211] DON'T LOAD J|OBDAT INTO HI OR |0LOSEG
SWMAC	SS,N|POLOCAL,,0,,3,.,*
SWMAC	SP,NOREQUE}STS,,.SWSYM,SYM,3}0,. 
SWMAC	SS,NOS}PEARCH,,0,,3,.
SW}pMAC	SS,NOSTART,,0~,,3,.
SWMAC	SS,N~0OSYMBOL,,0,,3
SW~PMAC	SL,NOSYSLIBRA~pRY,,LIBK,1,3
SWMAC	SL,NOUSERLIBRA0RY,,LIBK,1,3
SWMPAC	SL,ONLY,,ONLK,p1,3,.
SWMAC	SL,OTSEGMENT,,OTSK,1,03
SWMAC	SL,OVERLPAY,,OVLK,1,3,.
SpWMAC	SP,PATCHSIZE,,.SWDEC,PAT,3
S0WMAC	SL,PLOT,,PLTPK,1,4,,,.DECNW
SpWMAC	SL,PLTTYP,,PTPK,1,3		
SWMAC	0SP,PSCOMMON,,.SWSPYM,SYM,4,.,,.SWSYpM ;[2227]
IFN TOPS20,<
SWMAC	SL,0PVBLOCK,,SSGK,5,4P,,,.SWSYM	;[2220]p
SWMAC	SL,PVDATA,,PDVK,,4,,,.SWPD0V	;[2306]
> ;[14P23]
SWMAC	SP,REDpIRECT,,.SWSYM,SYM,4,.,,.SWSYM ;[22023]
SWMAC	SS,REQPUEST,,0,,3,.
SWMpAC	SP,REQUIRE,,.SWSYM,SYM,3
SWMAC0	SS,REWIND,,0,,3,P.
SWMAC	SP,RUNAMpE,,.SWSIX,SYM,3
SWMAC	SS,SAVE,,0,0,3
SWMAC	SS,SEARPCH,,0,,3,.,*
SWMpAC	SL,SEGMENT,,SEGK,1,3,.
SWMAC	S0P,SEVERITY,,.SWDEPC,SEV,3 
SWMAC	SpP,SET,,.SWSYM,SYM	,4,.,,.SYOSW
SWM	0AC	SP,SKIP,,.SWDE	PC,MTP,3,.
SWMAC		pSP,SPACE,,.SWDEC,
SPA,3
SWMAC	SP,S
0TART,,.SWSYO,STA,
P3,.
SWMAC	SP,SUP
pPRESS,,.SWSYM,SYM,3 
SWMAC	SL,SYF0ILE,,SYMK,1,3
SWPMAC	SL,SYMSEG,,SSpGK,1,4,.,,.SWSYM	

;[1260]
SWMAC	SL

0,SYSLIBRARY,,LIBK

P,1,3,.
SWMAC	SL,

pSYSORT,,SYSK,1,3
SWMAC	SL,TEST,,D
SWMA,UNDEFINED,,0
SWMAC	SS,UNLOAD,,0,,3
SW0MAC	SP,UPTO,,.SYOPSW,UPT,3	;[723]
pSWMAC	SL,USERLIBRARY,,LIBK,1,3
SW0MAC	SP,VALUE,,.SWPSYM,SYM,3,.
SWMApC	SL,VERBOSITY,,VERK,2,3
SWMAC	SP0,VERSION,,.SWVER,PSYM,3,.,*	
IFE TpOPS20,<
SWMAC	SP,CORE,2,.SWDPK,CO0R,4
SWMAC	SP,ESTPIMATE,,.SWDEC,ESTp,3
SWMAC	SP,MAXCOR,2,.SWDPK,COR,40
SWMAC	SP,RESET,P,.SWSXD,SYM,3
SWpMAC	SP,RUNCOR,2,.SWDPK,COR,4
SWMA0C	SS,SSAVE,,0,,3
SWMAC	SS,XPN,,0,p,3
SWMAC	SS,ZERO,,0,,3
 >
EROgfn:=P hD@ hH@ hL@ hP@ i

P i.@ Cy)
 IFE <BD>-<C>+1,<
	DMOVD8E	A,B
	MOVE	ADX+2,D
 >
 IFN <DxB>-<C>+1,<
	MOEVE	A,B
	DGET	A+1,C
>DGET	i6~i  <yu
 IFL <Z =B>-<@>,<
	MOVE	=8A,B
	DMOVE	A+=X1,1+B
 >
 IFGE=x <Z B>-<@>,<
	M>OVEI	A+2,B
	DM>8OVE	A,(A+2)
	M>XOVE	A+2,2(A+2)
>A+2,2(A+2)
	MOVEM	?9A,B
	DMOVEM	A+1,1+B
VEM	A+i?4HP i@u\QP iB

IP iBP iB*`P iBJ`P iBmQ @iBm@Q @iBH`Q iB&8`P iBLP$iBM[ P iBeyQ iBl:Q B

iBl\6P iBl}P iBl}P iBmI8P iBmLyP iBmm6P iBv\Q  iC`Q >

iCvQ iC\`P#~iC@Q iCiQ $iCiP iCy@Q iCL@Q $iCLVQ xiC"5QP iC"tQP iC$P iC$qP iC$}P iC$;8P iC$J7P iC$LVP iC$yVP iC%ZP iC%KsP iC%m6P iC%xYP iC&)6P iC&8YP iC&<VP iC'Q 0iC'Q |iC4Q iC=`Q  iO%|R EY7
 IFE <BEy>-<C>+1,<
	DMOVFEM	A,B
	MOVEM	F8A+2,D
 >
 IFNFX <B>-<C>+1,<
	FxMOVEM	A,B
	DSTORE	A+1,C
>Tj *A`
A=.ZZ
 IFB <B>,<.ZZ==+.ZZ+1>
 IFNB <B+ >,<.ZZ==.ZZ+B>
+@ IFG .ZZ-.TEMP-.T+`LEN,<PRINTX Too m,uch TEMP space used>
P space usjH ,Ar		
 A=.Z,aZ				
 IFB <B>,-<.ZZ==.ZZ+1>		
 - IFNB <B>,<.ZZ==.-@ZZ+B>	
 IFG .ZZ-`-.TEMP2-.TLEN,<PR.INTX Too much TEM. P2 space used> 
 space used> 
k:\*:Q @kN-J1 c
 Pl`P lhP llP lP m:7 %IH
	LOC	137%i
.JBVER:	<BYTE(3&Y)CUSTVR(9)DECVER(&	6)DECMVR(18)DECEV)R>
	RELOC
	EZCOR=:EZCOR
	EZCOnD@ nH@ nL@ p i"G			
 IFID	N <B><UNK>,<
  *Q$LIBDEFAULT==UNKB(qIT
 >
 $LIBB==BBIT
VLT,PLpYh@Q pYi@Q  pYlQ `pYl@Q @pYl`Q ~pYlvQ xq*:P"uK8 .a|
	MOVE	T1/,[.TEMP,,.TEMP+1]/ 
	SETZM	.TEMP
	/@BLT	T1,.TEMP+.TLEN-1
.TEMP+.TLEuL	 0				
	MOV0!E	T1,[.TEMP2,,.TE0@MP2+1]	
	SETZM	.0`TEMP2			
	BLT	T11,.TEMP2+.TLEN-1	
EMP2+.TLEN-1	

P 	ZpP 	ZtP 	ZvP 	ZyP 	2L(2P  	2L(6Q 	2L(IQ 	2L(PQ 	2L(QQ 	2L(VQ 	2L(`P 	2L(kQ 	2L(kQ @	2L(qQ  	2L)Q @	2L)JQ  	2L)PQ 	2L)WQ  	2L*WP @	2L+0Q 	2L+4Q 	2L+VQ 	2L,P!	2L,Q 	2L,pQ @	2L,tQ 	2L,zP$	2L-7Q @	2L.P"	6	7P 	6	9P 	6
7Q 	6WP6	?4YP6	?4I3P6	?5KsP6	?5]6P&	?5i:P&	?5kvP&	?5kxP&	?5k{P&@	?6:P&@	?6	B&mRP 	C&	P 	C&

P 	C&

P 	OyP 	OzP 	O{P 	O{WP 	O|P 	OMX6P 	OM\PQ 	OM]P v@Q @"N93P%*2^Q  >P BP 	JP J-`Q NP ZP bP 0P +P := 6a8
	XLIST
7 ASCIZ	\A\
	LIST
Z	\A\
	LIS

P#~.P S@P PP ?0P @4[P Q  d]@P f	P pQ Q @#@ S9s
  IFL L%SYMAX-D,<D=L%MAX>Sx
  %LVL==D-.LVLT
  IFGE %LVL,<
T8    IFL V%MAX-C,TX<C=V%MAX>
    ITxFL S%MAX-E,<E=SU%MAX>
    IFNB <U8A>,<
      ERRUUXUO ER%A
    >
Ux    IFNB <F>,<
V      ..PTR==1			V8
      IFNB <G>VX,<..PTR==0>	
   Vx   IFN <<B>&.EN>W,<..PTR==0>
    W8  IFE ..PTR,<		
WX        EXP <B>+Wx<C>B<B%VER>+<E>XB<B%SEV>+<D>B<B%X8LVL>+<          [XX
            .ERXxF::ASCIZ \F\	
Y            IFE <Y8<B>&.EN>,<ASCIZ YX\G\>
	    IFN <Yx<B>&.EN>,<0>		
Z          ]      Z8  >
      >
ZxZX   IFN ..PTR,<		
        IF2,<
 [         IFNDEF .[8ERF,<EXTERN .ER[XF>
        >
  [x      EXP <B>+<\C>B<B%VER>+<E>B<\8B%SEV>+<D>B<B%LV\XL>+<.ERF>
     \x >
      PURGE .].PTR		
    >
  ]8  IFB <F>,<
   ]X   EXP <B>+<C>B]x<B%VER>+<E>B<B%S^EV>+<D>B<B%LVL>+^8<[ ASCIZ \G\]>
    >
  >
>
$3@ b)* 
 IFGE %bILVL,<
  IFNB <Fbh>,<
   EXP <B>+c<ET%A>B<B%LVL>+<c(F>
  >
  IFB <cHF>,<
   IFIDN <chA><STR>,<			
  d  EXP <B>+<ET%Ad(>B<B%LVL>+<[ ASCIdHZ \G\]>
   >
 dh  IFDIF <A><STR>e,<			
    EXP <e(B>+<ET%A>B<B%LVL>
  >>
 >
VLD0P F>6P DSP 
DwP 
D)YP 	DI;P DJ6P DJ9P D\zP 

D^P DkP DkP EI7P F;QP 	Fi9P 

#PP -& P 'PP '0P '4[P '=PP '>0P *i9` /*$M 8aT
 IFE DEB9SW,<>
 IFN DEBSW9 ,<
  IRP C,<
	9@C
  >
	PUSHJ	P9`,ENTDDT
	  .JDDT:X (A,B,\<.-B>): 
	OPDEF	CONTINUE:@ [JRSTF	@.JBOPC]
>STF	@.JBOPC]
 JFCL	[A;!SCIZ	\A:	B + C\]
A:	B + C0P 35@P 6lH:P 6m	tP 6mI7P 6mK{P ;-H9P';<+P >.,G ^yw
	HRROI	1,A
	PSOUT%
	?+qP B>:=P C$hwP C&

P C&=zP I*	P I*\zP J^P Jh6P J

P J

[P J:=P Ji9P N4;rP N5I7P N6X(P N6X)P N6YVP N6Z7P N6[YP OP O@P O4]QP ~O6	P ~Z.P b.,G >}{woP