Google
 
Trailing-Edge - PDP-10 Archives - BB-4157F-BM_1983 - build/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

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!` . C2<*:Q C:$;' D C@@ CJ,` 
$@R>
	XXX	(DY
$`)	;DYNAMIC DATA

%	XXX	(LC)	;LOW SE
% G CODE
	XXX	(HC)
%@	;HIGH SEG CODE

%`	XXX	(AS)	;ALGOL 
&SYMBOLS
	XXX	(RT
& )	;RELOCATION TAB
&@LE
	XXX	(LS)	;LO
&`CAL SYMBOLS
	XXX
'	(FX)	;FIXUPS
	X
' XX	(BG)	;BOUND GL
'@OBALS
	XXX	(GS)	
'`;GLOBAL SYMBOLS
LOBAL 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
d*:Q GO
P,
X CR
X 
 CL
X CF
X AR
X
@ AL
X AF
X RR
X RL
X RF
R
G~*` 5G' 0G2,W 
)RH
	SKPINC
	  JFCL
PINC G@u: P G@u;P G@u<`P G@u\uP GB1h3P GB1h6P GB1h9P GB1hsP GB1hvP GB1hyP GB1lSP GB1lVP GB1lYP GC.0 
8Pq
  X KA,K
pA
  X KI,KI
  X
 KL,KL
  X KS,KS			

  X KS,KSGO%|R 
.XRw
	XWD	CS.
.xLHS##,CS.RHS##
HS##,CS.RHS##
GPtP GPt\@ GPt$kP GPt(9P GPt(xP GPt+P 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=`P I]YP I]YP Ii9P I.@ 
3XS%
 IFE <B
3x>-<C>+1,<
	DMOV
4E	A,B
 >
 IFN
48 <B>-<C>+1,<
	
4XMOVE	A,B
	MOVE	A+1,C
>MOVEI' ,I4 	LhLj
				ND	M	MX.A,B
				ND	A	M(D.A,C
				ND	PD.A,DIO%|R 
5S1
 IFE <B
58>-<C>+1,<
	DMOV
5XEM	A,B
 >
 IF
5xN <B>-<C>+1,<

6	MOVEM	A,B
	MOVEM	A+1,C
>OJ;+ P qKH-P KH-LRP KH-\`P KH.=P KKN8 
UXU1
 XXX	(MS
Ux)
 XXX	(LRE)
 X
VXX	(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 
W8US
 XXX	(ST
WXR)
 XXX	(SBX)
 
WxXXX	(OCT)
 XXX	(
XDEC)
 XXX	(FSP)
X8
 XXX	(ASC)
 XXX
XX	(COR)
 XXX	(JMP
Xx)
 XXX	(RTN)
 X
YXX	(NLN)
 XXX	(X
Y8CT)
 XXX	(BKL)

YX XXX	(DAT)
 XXX	
Yx(NOP)
IFN .NWBLK
Z,<
 XXX	(LSP)
>
Z8;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 M'P M=h 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 MR6*iP MR]wP MRlZP MR~

P O  @O!dT @Z
	PUSHJ	P`,D.GET1		
	  JRS`T	T1072C		
	HLRZ!	T1,W1		
	HRRZ	T2,W1		
	HRRZ	TO4X` BOLu|SP$@ORTk@ 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;4Q x{S>$ 	zP(


 XXX	y`	(ZC,0,.IODPR)		;	y@GETSEG AND SCAN/W	z ILD ONLY
 XXX	(D	z@C,1,.IOBIN)		;REA	z`D DATA FILE
 XXX	{	(MC,2,.IOASC)		;	{ MAP CHANNEL (OUTP	{@UT)
 XXX	(RC,3,.	{`IOASC)		;RECORD L	|OG FILE CHANNEL
	|  XXX	(OC,4,.IODPR	|@)		;OVERLAY CHANN	|`EL
 XXX	(LC,5,.I	}ODPR)		;LOW SEG C	} ODE OVERFLOW 
 X	}@XX	(HC,6,.IODPR)		}`	;HIGH SEG CODE O	~VERFLOW
 XXX	(SC	~ ,7,.IODPR)		;LOCA	~@L SYMBOL OVERFLOW	~`
 XXX	(GC,10,.IO	DPR)		;GLOBAL SYM	 BOL OVERFLOW
 XX	@X	(FC,11,.IODPR)		`	;FIXUP OVERFLOW

 XXX	(TC,12,.IOD
 PR)		;TEMP CHAN (
@USED TO REPROCESS
` FIXUPS ETC)
 XX
X	(AC,13,.IODPR)	
 	;ALGOL SYMBOL OV
@ERFLOW



 XX
`XX	(%RC,RC,.IOASC
)		;LOG FILE
 XX
 XX	(%SC,MC,.IODPR
@)		;SYMBOL FILE

` XXXX	(%VC,DC,.IO
DPR)		;SAVE/SSAVE
  FILE
 XXXX	(%XC
@,LC,.IODPR)		;XPN
` FILE
 XXXX	(%OC
,OC,.IODPR)		;OVE
 RLAY FILE
 XXXX	
@(%PC,0,-1)		;PLOT
` CHANNEL (WILL BE
17 AT RUN TIME)
ATRUNTIME)U7dT `Yd
	GET.2H	@		
	JRST	A		;THEN JUMP 
		;THU7j7 @Z=(

IFN E,< PUSH	P,A		
	TRZ#@	A,777000>	
	CA# IL	A,B		
	CAIL E	A,C		
IFE E! ,<SKIPA			
	JRST`	D>		
IFN E,<J@RST	.+3		
	POP	P#`,A		
	JRST	D		 
	POP	P,A>		
		POP	P,A>		
	[kZ0	,MULU?4*:P @UON0 U_9hwP U_9iVP U_9lP WN{y YX
KEYMAC	C`ON,<DEFAULT,ALL,N ONE,GLOBAL,NOGLOBAL,LOCALS,NOLOCAL@,ENTRY,NOENTRY,UN DEFINED,NOUNDEFIN`ED,RELOCATABLE,NO@RELOCATABLE,ABSOL`UTE,NOABSOLUTE,COMMON,NOCOMMON,ZER O,NOZERO>
KEYMAC@	CPU,<KA10,KI10,K`L10,KS10>	;[1236] ADD KS10
IFE FT MANTIS,<
KEYMAC	@DEB,<,MACRO,DDT,*`FORTRAN,FORDDT,*COBOL,COBDDT,SAIL, SDDT,FAIL,SDDT,SI@MULA,SIMDDT,ALGOL`,ALGDDT,*PASCAL,PASDDT,JOVIAL,DDT> 		;[1267] ADD ALG@OL AND ALGDDT
>	`;[1422] ADD PASDD	T AND PASCAL
	;[	 1466] ADD JOVIAL 	@AND DDT
IFN FTMA	`NTIS,<
KEYMAC	DE
B,<,MACRO,DDT,*FO
 RTRAN,MANTIS,*COB
@OL,COBDDT,SAIL,SD
`DT,FAIL,SDDT,SIMULA,SIMDDT,ALGOL,A LGDDT,*PASCAL,PAS@DDT,JOVIAL,DDT>		`;[1267] ADD ALGOL

 AND ALGDDT
>	;[

 1422] ADD PASDDT 

@AND PASCAL
	;[14

`66]DADD JOVIAL AN
KEYMAC	DEFTPUT>
KEYMAC	HYL,<LOW,H
KEYMAC	LIB,<ANY,F40,COBOL,AL GOL,NELIAC,PL1,BL@ISS,SAIL,*FORTRAN`,MACRO,FAIL,BCPL,MIDAS,SIMULA,CBL7 4,CBL79,BLS36,BAS@IC,SITGO,FORTRAN,`*PASCAL>
KEYMAC	MAP,<END,NOW,ERRO R,INCREMENTAL>
K@EYMAC	MPS,<UNSORT`ED,ALPHABETICAL,NUMERICAL>
KEYMAC 	MTP,<MTWAT.,MTRE@W.,MTEOF.,MTSKR.,`MTBSR.,MTEOT.,MTUNL.,MTBLK.,MTSKF. ,MTBSF.,MTDEC.,MT@IND.>
KEYMAC	ONL`,<BOTH,LOW,HIGH>
KEYMAC	OTS,<DEFA ULT,NONSHARABLE,S@HARABLE,LOW,HIGH>`
KEYMAC	OVL,<DEFAULT,ABSOLUTE,REL OCATABLE,TREE,NET@WORK,PURE,WRITABL`E,PATH,NOPATH,SINGLE,MULTIPLE,LOGF ILE,NOLOGFILE,WAR@NING,NOWARNING>
`KEYMAC	PLT,<INCHES,LEAVES,STEPS>
 KEYMAC	PTP,<DEFAU@LT,PLOTTER,PRINTE`R>	;[2002]
KEYMAC	PDV,<NAME,VERSI ON,START,MEMORY,P@ROGRAM,CBLOCK>	;[`1423]
KEYMAC	SEG,<LOW,HIGH,DEFAUL T,NONE>	;[1201]
@KEYMAC	SSG,<LOW,H`IGH,NONE,PSECT,DEFAULT> ;[1201] LO W & HIGH MUST BE @FIRST 2
KEYMAC	S`YM,<RADIX50,TRIPLET,ALGOL>;	
KEYM AC	SYS,<UNSORTED,@ALPHABETICAL,NUME`RICAL>
KEYMAC	VER,<SHORT,MEDIUM,LONG>
,MEDIUM,LW&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[ 
ZxU5
 IRPC B
VX,<
  A%IB==:A%I+B
>B==:AY'' 
:S
 IF1,<BL
:8OCK <B-A+2>/2>	
:X;ALLOCATE ENOUGH 
:xSPACE
 IF2,<
  
;ZZ.==A
  ZZH.==
;8<B-A+2>/2
  ZZ
;XT.==ZZH.+ZZ.
  R
;xEPEAT ZZH.,<
   
<PTYPE (\ZZT.,\ZZ.
<8)
   ZZ.==ZZ.+1
<X
   ZZT.==ZZT.+1
<x

 >>
 DEFINE P
=TYPE (X,Y)<
  IF
=8DEF T.'X,<
   IF
=XDEF T.'Y,<
    T
=x.'X,,T.'Y
   >

>   IFNDEF T.'Y,<
>8
    T.'X,,E$$IRB
>X	
  >>
  IFNDEF
>x T.'X,<
   IFDEF
? T.'Y,<
    E$$I
?8RB,,T.'Y	
   >

?X   IFNDEF T.'Y,<
?x
    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 [

P [&$*:Q [`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 _B.(:P  _W$: Yl
 IFN A-@1,<
	HRRZ	1,A
 >
	PBOUT
A
_W&= Yp
	HRROI	1,A
	PSOUT
	1_W&j0 
( RD
	PUSHJ	P
(@,TTYCHK
	 PUSHJ	P,A

	 PUSHJ	`@ `D@ `H@ `L@ `P@ a*:P!a%|SP'a&<P  a
~] 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 a5| Aa0uP'a0uP$a0uzP (a0u{P  a0v84P {a0v86P xa0v:P a0v;P `a0v;TP sa0v;VP `a0v<TP a0v<VP |a0v<tP wa0v<vP ta2L*:Q a6 a<uRQ aJ<lUP$aJ|99 
PQ?
X UNKNOW
N,UNK,<Unknown>,	
0	
X F40,F40,<F40
P>,400000			
X CO
pBOL,C68,<COBOL-68
>,400000		
X ALG
0OL,ALG,<Algol>,40
P0000		
X NELIAC,
pNLI,<NELIAC>,			

X PLI,PLI,<PL/I>
0,			
X BLISS,BLI
P,<BLISS-10>,			

pX SAIL,SAI,<SAIL>
,			
X FORTRAN,F
0OR,<FORTRAN>,5000
P00		
X MACRO,MAC
p,<MACRO>,			
X F
AIL,FAI,<FAIL>,		
0	
X BCPL,BCP,<BC
PPL>,			
X MIDAS,
pMID,<MIDAS>,			

X SIMULA,SIM,<SIM
0ULA>,			
X CBL74
P,C74,<COBOL-74>,4
p00000		
X COBOL,
CBL,<COBOL>,40000
00		
X BLS36,B36,
P<BLISS-36>,			
X
p BASIC,BAS,<BASIC
>,			
X SITGO,ST
0G,<SITGO>,			
X 
PFORTRAN,XFR,<G-Fl
poating FORTRAN>,5
00000	
X PASCAL,
0PAS,<PASCAL>,5400
P00		
X JOVIAL,JO
pV,<JOVIAL>,			
,<JOVIAL>,			
aLt`P aLt)yP"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:t P d:w- 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 eex`P eexp 
@8T-


IFID
@XN	<A><NONE>,<
	
@xHRLI	WC,400000	

A	SETZ	RB,		
>

A8

IFDIF	<A><NON
AXE>,<
	MOVEI	T1,
AxA		
	MOVEM	T1,RE
BLSIZ	
	PURGE	SET
B8UP		

IFB	<B>,
BX<PRINTX ?ERRONEOU
BxS RELOCATE MACRO>
C
IFNB	<B>,<


C8IFIDN	<B><RIGHT>
CX,<OPDEF SETUP[TRZ
Cx FL,R.LHR]>
IFID
DN	<B><BOTH>,< OP
D8DEF SETUP[TRO FL,
DXR.LHR]>


IFDE
DxF	<SETUP>,<	SETUP
E	>
IFNDEF	<SETUP
E8>,<PRINTX ?ERRONE
EXOUS 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: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;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;&KQ f;4\@Q gL*:Q @g

P g=Y7 
0Qc
	TWOSEG	%HISEG
TWOSEG	g4X` BgO
@Pm
X AR
X 
`AL
X AF
X RR
X
 RL
X RF
X TL

pX TB
X SG
X SL;
		;ADD NEW FIXUP 
0IN SFIXUPS MACRO 
PFOR SG, LEFT HALF
SG, LEFT HALFg&l*:Q g6~i  
2XS
 IFE B,
2x<
	TDZA	A,A
 
3>
 IFN B,<
	SKIPA	A,[B]
>KgB1h3P gB1h6P gB1h9P gB1lSP gB1lVP gB1lYP gB1lsP gB1lvP gB1mP gB1mP gB~ 
+RX
 IRP A,<
	POP	P,A
>gC.: 
* RT
 IRP A,
*@<
	PUSH	P,A
>
	PUSH	P,A
>gLv:P gR<*:P$gR~+xP `g_$: 
WX
SWMAC	SP
[H,ARSIZE,,.SWDEC,A
[hRS,3
SWMAC	SP,BA
\CKSPACE,,.SWDEC,M
]TP,3,.
SWMAC	SP,
] COMMON,,.SWSYM,SY
]@M,4,.,,.DECNW
SW
]`MAC	SL,CONTENT,,C
^ONK,1,3
SWMAC	SS
^ ,COUNTER,,0,,3,.
^@
SWMAC	SL,CPU,,CP
^`UK,1,3
SWMAC	SS,
_CRLF,,0,,3,.
SWM
_ AC	SL,DDEBUG,,DEB
_@K,1,3
SWMAC	SL,D
_`EBUG,,DEBK,1,3,.,
`*
SWMAC	SL,DEFAU
` LT,,DEFK,1,3,.
S
`@WMAC	SP,DEFINE,,.
``SWSYM,SYM,4,,,.DE
aCNW
SWMAC	SS,ENT
a RY,,0,,3,.
SWMAC
a@	SP,ERRORLEVEL,,.
a`SWDEC,ERR,3
SWMA
bC	SP,EXCLUDE,,.SW
b SYM,SYM,3,.
SWMA
b@C	SS,EXECUTE,,0,,
b`3,,*
;[1450] Rem
cove /EXTEND.
SWM
c AC	SP,FRECOR,,.SW
c@DEC,FRC,3
SWMAC	
c`SS,GO,,0,,3,,*
S
dWMAC	SP,HASHSIZE,
d ,.SWDEC,HAS,3
SW
d@MAC	SP,INCLUDE,,.
d`SWSYM,SYM,3,.
SW
eMAC	SS,K,,0,,3,,*
e 
SWMAC	SP,LIMIT,
e@,.SWSYM,SYM,4,.,,
e`.SYOSW  
SWMAC	S
fP,LINK,,.SWSIX,SY
f M,3
SWMAC	SS,LOC
f@ALS,,0,,3,.,*
SW
f`MAC	SS,LOG,,0,,3
g
SWMAC	SP,LOGLEVE
g L,,.SWDEC,LOG,3

g@SWMAC	SL,MAP,,MAP
g`K,1,3,,*
SWMAC	S
hP,MAXNODE,,.SWDEC
h ,MAX,3
SWMAC	SS,
h@MISSING,,0,,3,.

h`SWMAC	SL,MPSORT,,
iMPSK,1,3
SWMAC	S
i L,MTAPE,,MTPK,1,3
i@,.
SWMAC	SL,NEWP
i`AGE,,HYLK,1,3,.

jSWMAC	SP,NODE,,.S
j WSXD,SYM,3
SWMAC
j@	SP,NOENTRY,,.SWS
j`YM,SYM,3,.
SWMAC
k	SS,NOINCLUDE,,0,
k ,3,.
SWMAC	SS,NO
k@INITIAL,,0,,3
SW
k`MAC	SS,NOLOCAL,,0
l,,3,.,*
SWMAC	SP
l ,NOREQUESTS,,.SWS
l@YM,SYM,3,. 
SWMA
l`C	SS,NOSEARCH,,0,
m,3,.
SWMAC	SS,NO
m START,,0,,3,.
SW
m@MAC	SS,NOSYMBOL,,
m`0,,3
SWMAC	SL,NO
nSYSLIBRARY,,LIBK,
n 1,3
SWMAC	SL,NOU
n@SERLIBRARY,,LIBK,
n`1,3
SWMAC	SL,ONL
oY,,ONLK,1,3,.
SW
o MAC	SL,OTSEGMENT,
o@,OTSK,1,3
SWMAC	
o`SL,OVERLAY,,OVLK,
p1,3,.
SWMAC	SP,P
p ATCHSIZE,,.SWDEC,
p@PAT,3
SWMAC	SL,P
p`LOT,,PLTK,1,4,,,.
qDECNW
SWMAC	SL,P
q LTTYP,,PTPK,1,3		
q@
IFN TOPS20,<
S
q`WMAC	SL,PVBLOCK,,
rSSGK,5,4,,,.SYOSW
r 	;[1423]
SWMAC	S
r@L,PVDATA,,PDVK,,4
r`,,,.SYOSW	;[1423]
s
> ;[1423]
SWMA
s C	SS,REQUEST,,0,,
s@3,.
SWMAC	SP,REQ
s`UIRE,,.SWSYM,SYM,
t3
SWMAC	SS,REWIN
t D,,0,,3,.
SWMAC	
t@SP,RUNAME,,.SWSIX
t`,SYM,3
SWMAC	SS,
uSAVE,,0,,3
SWMAC
u 	SS,SEARCH,,0,,3,
u@.,*
SWMAC	SL,SEG
u`MENT,,SEGK,1,3,.
v
SWMAC	SP,SEVERIT
v Y,,.SWDEC,SEV,3 
v@
SWMAC	SP,SET,,.S
v`WSYM,SYM,4,.,,.SY
wOSW
SWMAC	SP,SKI
w P,,.SWDEC,MTP,3,.
w@
SWMAC	SP,SPACE,
w`,.SWDEC,SPA,3
SW
xMAC	SP,START,,.SW
x SYO,STA,3,.
SWMA
x@C	SP,SUPPRESS,,.S
x`WSYM,SYM,3 
SWMA
yC	SL,SYFILE,,SYMK
y ,1,3
SWMAC	SL,SY
y@MSEG,,SSGK,1,4,.,
y`,.SWSYM	;[1260]

zSWMAC	SL,SYSLIBRA
z RY,,LIBK,1,3,.
S
z@WMAC	SL,SYSORT,,S
z`YSK,1,3
SWMAC	SL
{,TEST,,DEBK,1,3,.
{ ,*
SWMAC	SS,UNDE
{@FINED,,0,,3,.,*

{`SWMAC	SS,UNLOAD,,
|0,,3
SWMAC	SP,UP
| TO,,.SYOSW,UPT,3	
|@;[723]
SWMAC	SL,
|`USERLIBRARY,,LIBK
},1,3
SWMAC	SP,VA
} LUE,,.SWSYM,SYM,3
}@,.
SWMAC	SL,VERB
}`OSITY,,VERK,2,3

~SWMAC	SP,VERSION,
~ ,.SWVER,SYM,3,.,*
~@	
IFE TOPS20,<

~`SWMAC	SP,CORE,2,.
SWDPK,COR,4
SWMA
 C	SP,ESTIMATE,,.S
@WDEC,EST,3
SWMAC
`	SS,FOROTS,,0,,3
SWMAC	SS,FORSE,, 0,,3
SWMAC	SP,MA@XCOR,2,.SWDPK,COR`,4
SWMAC	SP,RESET,,.SWSXD,SYM,3
 SWMAC	SP,RUNCOR,2@,.SWDPK,COR,4
SW`MAC	SS,SSAVE,,0,,3
SWMAC	SS,XPN,, 0,,3
SWMAC	SS,ZERO,,0,,3
 >
Egfl+vP hD@ hH@ hL@ hP@ i

P i.@ 
6XS?
 IFE <B
6x>-<C>+1,<
	DMOV
7E	A,B
	MOVE	A
78+2,D
 >
 IFN <
7XB>-<C>+1,<
	MO
7xVE	A,B
	DGET	A+1,C
>DGET	i6~i  
/XS
 IFL <Z 
/xB>-<@>,<
	MOVE	
0A,B
	DMOVE	A+
081,1+B
 >
 IFGE
0X <Z B>-<@>,<
	M
0xOVEI	A+2,B
	DM
1OVE	A,(A+2)
	M
18OVE	A+2,2(A+2)
>A+2,2(A+2)
1xS
	MOVEM	
2A,B
	DMOVEM	A+1,1+B
VEM	A+i?4HP iB

IP 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 iC"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 
88SM
 IFE <B
8X>-<C>+1,<
	DMOV
8xEM	A,B
	MOVEM	
9A+2,D
 >
 IFN
98 <B>-<C>+1,<
	
9XMOVEM	A,B
	DSTORE	A+1,C
>Tj 
@Qx
 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 
@R
		
 A=.Z
`Z				
 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 Ry
QPNl`P lhP llP lP m:7 
XQa
	LOC	137
x
.JBVER:	<BYTE(3
h)CUSTVR(9)DECVER(
6)DECMVR(18)DECEV
R>
	RELOC
	EZCOR=:EZCOR
	EZCOnD@ nH@ nL@ o@Po:	
 IFID
 N <B><UNK>,<
  30$LIBDEFAULT==UNKB4PIT
 >
 $LIBB==BBIT
		
   %q*:P"qO4Xb CuK8 
!`R
	MOVE	T1
",[.TEMP,,.TEMP+1]
" 
	SETZM	.TEMP
	
"@BLT	T1,.TEMP+.TLEN-1
.TEMP+.TLEuL	 
#R 				
	MOV
# E	T1,[.TEMP2,,.TE
#@MP2+1]	
	SETZM	.
#`TEMP2			
	BLT	T1
$,.TEMP2+.TLEN-1	
EMP2+.TLEN-1	

P 	ZpP 	ZtP 	ZvP 	ZyP 	2L(6Q 	2L(IQ 	2L(PQ 	2L(QQ 	2L(VQ 	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	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 := 
)@RN
	XLIST

)` ASCIZ	\A\
	LIST
Z	\A\
	LIS

P#~.P S@P PP ?0P @4[P Q  d]@P f	P pQ Q @#@ 
FU	
  IFL L%
F8MAX-D,<D=L%MAX>
FX
  %LVL==D-.LVL
Fx
  IFGE %LVL,<

G    IFL V%MAX-C,
G8<C=V%MAX>
    I
GXFL S%MAX-E,<E=S
Gx%MAX>
    IFNB <
HA>,<
      ERRU
H8UO ER%A
    >

HX    IFNB <F>,<

Hx      ..PTR==1			
I
      IFNB <G>
I8,<..PTR==0>	
   
IX   IFN <<B>&.EN>
Ix,<..PTR==0>
    
J  IFE ..PTR,<		

J8        EXP <B>+
JX<C>B<B%VER>+<E>
JxB<B%SEV>+<D>B<B%
KLVL>+<          [
K8
            .ER
KXF::ASCIZ \F\	

Kx            IFE <
L<B>&.EN>,<ASCIZ 
L8\G\>
	    IFN <
LX<B>&.EN>,<0>		

Lx          ]      
M  >
      >
   
M8   IFN ..PTR,<		
MX
        IF2,<
 
Mx         IFNDEF .
NERF,<EXTERN .ER
N8F>
        >
  
NX      EXP <B>+<
NxC>B<B%VER>+<E>B<
OB%SEV>+<D>B<B%LV
O8L>+<.ERF>
     
OX >
      PURGE .
Ox.PTR		
    >
  
P  IFB <F>,<
   
P8   EXP <B>+<C>B
PX<B%VER>+<E>B<B%S
PxEV>+<D>B<B%LVL>+
Q<[ ASCIZ \G\]>
    >
  >
>
$3@ 
RU) 
 IFGE %
R8LVL,<
  IFNB <F
RX>,<
   EXP <B>+
Rx<ET%A>B<B%LVL>+<
SF>
  >
  IFB <
S8F>,<
   IFIDN <
SXA><STR>,<			
  
Sx  EXP <B>+<ET%A
T>B<B%LVL>+<[ ASCI
T8Z \G\]>
   >
 
TX  IFDIF <A><STR>
Tx,<			
    EXP <
UB>+<ET%A>B<B%LVL>
  >>
 >
VLD0P F>6P ~+P 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 
+@Rj
 IFE DEB
+`SW,<>
 IFN DEBSW
,,<
  IRP C,<
	
, C
  >
	PUSHJ	P
,@,ENTDDT
	  .JDDT
,`X (A,B,\<.-B>)
-
	OPDEF	CONTINUE
-[JRSTF	@.JBOPC]
>STF	@.JBOPC]
-`Rp
 JFCL	[A
.SCIZ	\A:	B + C\]
A:	B + C0P 35@P ;-H9P';<+P >.,G 
QXU
	HRROI	1,A
	PSOUT
	1?+qP B>:=P B|P B~)6P C$hwP C&

P C&=zP C4;ZP C4<zP C4=P C4=YP C5MP C5MYP C5Y6P C5[wP C5h6P C6

SP C6)2P C6=P C6>6P C6i9P JP JI;P J\zP J^P Jh6P J

P J

[P J:=P Ji9P OP O@P O4]QP ~O6	P ~Z.P b.,G >}{woP