Google
 
Trailing-Edge - PDP-10 Archives - bb-4157h-bm_fortran20_v10_16mt9 - link/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
~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,` g9.W
	XXX	(DYgY)	;DYNAMIC DATA
gx	XXX	(LC)	;LOW SEhG CODE
	XXX	(HC)h8	;HIGH SEG CODE
hX	XXX	(AS)	;ALGOL hxSYMBOLS
	XXX	(RTi)	;RELOCATION TABi8LE
	XXX	(LS)	;LOiXCAL SYMBOLS
	XXXix	(FX)	;FIXUPS
	XjXX	(TP)	;[2270] Tj8YPECHECKING
	XXXjX	(BG)	;BOUND GLOBjxALS
	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 FCL
X CF
X CE
XE  AR
X AL
X AF
EAX AE
X RR
XRL
X RF
X RE
LW l.a
	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 [!,x
  X KA,KOaA
  X KI,KI
  XO KL,KL
  X KS,KS			

  X KS,KSGO%|R qq/
	XWD	CS.rLHS##,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.@ vq/?
 IFE <Bw>-<C>+1,<
	DMOVw0E	A,B
 >
 IFNwP <B>-<C>+1,<
	wpMOVE	A,B
	MOVE	A+1,C
>MOVEI4 	LhLj
				ND	M	MX.A,B
				ND	A	M(D.A,C
				ND	PD.A,DIO%|R x1/K
 IFE <BxQ>-<C>+1,<
	DMOVxpEM	A,B
 >
 IFyN <B>-<C>+1,<
y0	MOVEM	A,B
	MOVEM	A+1,C
>OJ;+ P qKH-P KH-LRP KH-\`P KH.=P KJt  A1>		;[2304]
IF1,<IFB <A>,<PRINTX %Missing JS YS name in ERNAM @macro call>>
IF2`,<IFNDEF E$$UMF,<EXTERNAL E$$UMF>>  ;[2304]
	ERCAL	@[MOVX	P2,SIXBIT\`A\ ;[2304]
		PJRST	E$$UMF]		PJRKKI7P BKKN8 a1b
 XXX	(MS)
 XXX	(LRE)
 X 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 A2
 XXX	(STaR)
 XXX	(SBX)
 XXX	(OCT)
 XXX	( DEC)
XXX	(FSP)
 XXX	(ASC)
 XXX`	(COR)
 XXX	(JMP)
 XXX	(RTN)
 X XX	(NLN)
 XXX	(X@CT)
 XXX	(BKL)
` XXX	(DAT)
 XXX	 (NOP)
IFN .NWBLK  ,<
 XXX	(LSP)
>@ ;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>$ 8Q,&


 XXX8q	(ZC,0,.IODPR)		;81GETSEG AND SCAN/W9!ILD ONLY
 XXX	(D9@C,1,.IOBIN)		;REA9`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
XXX	(PC,@`14,.IODPR)		;[227A0] ARGUMENT TYPECA HECKING OVERFLOW



 XXXX	(%RCA`,RC,.IOASC)		;LOGB FILE
 XXXX	(%SCB ,MC,.IODPR)		;SYMB@BOL FILE
 XXXX	(B`%VC,DC,.IODPR)		;CSAVE/SSAVE FILE
C  XXXX	(%XC,LC,.IOC@DPR)		;XPN FILE
C` XXXX	(%OC,OC,.IODDPR)		;OVERLAY FID LE
 XXXX	(%PC,0,D@-1)		;PLOT CHANNED`L (WILL BE 17 AT RUN TIME)
 AT S?` G U?4*:P @U_9hwP U_9iVP U_9lP WN{y KI5n
KEYMAC	CJ)ON,<DEFAULT,ALL,NJiONE,GLOBAL,NOGLOBJIAL,LOCALS,NOLOCALK	,ENTRY,NOENTRY,UNKiDEFINED,NOUNDEFINK)ED,RELOCATABLE,NOL	RELOCATABLE,ABSOLL(UTE,NOABSOLUTE,COLHMMON,NOCOMMON,ZERLhO,NOZERO>
KEYMACM	CPU,<KA10,KI10,KM(L10,KS10>	;[1236]MH ADD KS10
KEYMACMh	DEB,<,MACRO,DDT,N*FORTRAN,FORDDT,*N(COBOL,COBDDT,SAILNH,SDDT,FAIL,SDDT,SNhIMULA,SIMDDT,ALGOOL,ALGDDT,*PASCAL,O(PASDDT> ;[2036]
OHKEYMAC	DEF,<INPUTOh,OUTPUT>
KEYMAC	PHYL,<LOW,HIGH>
KP(EYMAC	LIB,<ANY,F4PH0,COBOL,ALGOL,NELPhIAC,PL1,BLISS,SAIQL,*FORTRAN,MACRO,Q(FAIL,BCPL,MIDAS,SQHIMULA,CBL74,CBL79Qh,BLS36,BASIC,SITGRO,FORTRAN,*PASCALR(,JOVIAL,ADA,C> 
RHKEYMAC	MAP,<END,NRhOW,ERROR,INCREMENSTAL>
KEYMAC	MPS,S(<UNSORTED,ALPHABESHTICAL,NUMERICAL>
KEYMAC	MTP,<MTWATT.,MTREW.,MTEOF.,T(MTSKR.,MTBSR.,MTETHOT.,MTUNL.,MTBLK.Th,MTSKF.,MTBSF.,MTUDEC.,MTIND.>
KEYU(MAC	ONL,<BOTH,LOWUH,HIGH>
KEYMAC	OTUhS,<DEFAULT,NONSHAVRABLE,SHARABLE,LOV(W,HIGH>
KEYMAC	OVHVL,<DEFAULT,ABSOLVhUTE,RELOCATABLE,TWREE,NETWORK,PURE,W(WRITABLE,PATH,NOPWHATH,SINGLE,MULTIPWhLE,LOGFILE,NOLOGFXILE,WARNING,NOWARX(NING>
KEYMAC	PLTXH,<INCHES,LEAVES,SXhTEPS>
KEYMAC	PTPY,<DEFAULT,PLOTTERY(,PRINTER>	;[2002]YH
KEYMAC	PDV,<NAMYhE,VERSION,START,MZEMORY,PROGRAM,CBLZ(OCK,EXPORT>	;[230ZH6]
KEYMAC	SEG,<LZhOW,HIGH,DEFAULT,N[ONE>	;[1201]
KEY[(MAC	SSG,<LOW,HIGH[H,NONE,PSECT,DEFAU[hLT> ;[1201] LOW &\ HIGH MUST BE FIR\(ST 2
KEYMAC	SYM,\H<RADIX50,TRIPLET,\hALGOL>;	
KEYMAC	]SYS,<UNSORTED,ALP](HABETICAL,NUMERIC]HAL>
KEYMAC	VER,<]hSHORT,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[ !1f
 IRPC Ba,<
  A%IB==:A%I+B
>B==:AY'' }10
 IF1,<BL}QOCK <B-A+2>/2>	}p;ALLOCATE ENOUGH ~SPACE
 IF2,<
  ~0ZZ.==A
  ZZH.==~P<B-A+2>/2
  ZZ~pT.==ZZH.+ZZ.
  REPEAT ZZH.,<
   0PTYPE (\ZZT.,\ZZ.P)
pZZ.==ZZ.+1
ZZT.==ZZT.+1

 >>
 DEFINE P0TYPE (X,Y)<
  IFPDEF T.'X,<
   IFpDEF T.'Y,<
    T.'X,,T.'Y
   >
0   IFNDEF T.'Y,<
    T.'X,,E$$IRBp	
  >>
  IFNDEF T.'X,<
   IFDEF0 T.'Y,<
    E$$IPRB,,T.'Y	
   >
p   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$: _i6
 IFN A-`)1,<
	HRRZ	1,A
 >
	PBOUT%

_W&= `i6
	HRROI	1,A
	PSOUT%
1_W&j0 k9.]
	PUSHJ	PkY,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 OA-U
X UNKNOWQ9N,UNK,<Unknown>,	QX	
X F40,F40,<F40Qx>,400000			
X CORBOL,C68,<COBOL-68R8>,400000		
X ALGRXOL,ALG,<Algol>,40Rx0000		
XSNELIAC,SNLI,<NELIAC>,			
X PLI,PLI,<PL/I>SX,			
X BLISS,BLISx,<BLISS-10>,			
TX SAIL,SAI,<SAIL>T8,			
X FORTRAN,FTXOR,<FORTRAN>,5000Tx00		
X MACRO,MACU,<MACRO>,			
X FU8AIL,FAI,<FAIL>,		UX	
X BCPL,BCP,<BCUxPL>,			
X MIDAS,VMID,<MIDAS>,			
V8X SIMULA,SIM,<SIMVXULA>,			
X CBL74Vx,C74,<COBOL-74>,4W00000		
X COBOL,W8CBL,<COBOL>,40000WX0		
X BLS36,B36,Wx<BLISS-36>,			
XX BASIC,BAS,<BASICX8>,			
X SITGO,STXXG,<SITGO>,			
X XxFORTRAN,XFR,<G-FlYoating FORTRAN>,5Y800000	
X PASCAL,YXPAS,<PASCAL>,5400Yx00		
X JOVIAL,JOZV,<JOVIAL>,			
XZ8 ADA,ADA,<ADA>			ZX	
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 Q0G


IFIDqN	<A><NONE>,<
	HRLI	WC,400000	
0	SETZ	RB,		
>
P

IFDIF	<A><NONpE>,<
	MOVEI	T1,A		
	MOVEM	T1,RE0LSIZ	
	PURGE	SETPUP		

IFB	<B>,p<PRINTX ?ERRONEOUS RELOCATE MACRO>0
IFNB	<B>,<

PIFIDN	<B><RIGHT>p,<OPDEF SETUP[TRZ FL,R.LHR]>
IFID0N	<B><BOTH>,< OPPDEF SETUP[TRO FL,pR.LHR]>


IFDEF	<SETUP>,<	SETUP0	>
IFNDEF	<SETUPP>,<PRINTX ?ERRONEpOUS 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 _-y
	TWOSEG	%HISEG
TWOSEG	g,Q g,^Q @gO
X AR
X F!AL
X AF
X AE
XMA RR
X RL
X RF
M`X RE
X TL
XNSG
X SL;		;ADD NEW N FIXUP IN SFIXUPS N@MACRO FOR SG, LEFT HALF
SG, LEFg&l*:Q g6~i  uq/3
 IFE B,v<
	TDZA	A,A
 v0>
 IFN B,<
	SKIPA	A,[B]
>KgB1h2Q gB1h3Q gB1h6Q gB1h9P gB1lRQ gB1lSQ 

gB1lVQ 
gB1lYQ gB1lsQ gB1lvQ gB1mQ gB~ n.q
 IRP A,<
	POP	P,A
>gC.: m9.m
 IRP A,mY<
	PUSH	P,A
>
	PUSH	P,A
>gLv

`Q @gLv:P gP.N8Q ~gR<*:P$gXuI7P gXv;P g_!lhQ @g_!liQ  g_$: !4N
SWMAC	SP!Q,ARSIZE,,.SWDEC,A!qRS,3
SWMAC	SP,BA"CKSPACE,,.SWDEC,M#TP,3,.
SWMAC	SP,#(COMMON,,.SWSYM,SY#HM,4,.,,.DECNW
SW#hMAC	SL,CONTENT,,C$ONK,1,3
SWMAC	SS$(,COUNTER,,0,,3,.
SWMAC	SL,CPU,,CP$hUK,1,3
SWMAC	SS,%CRLF,,0,,3,.
SWM%(AC	SL,DDEBUG,,DEB%HK,1,3
SWMAC	SL,D%hEBUG,,DEBK,1,3,.,&*
SWMAC	SL,DEFAU&(LT,,DEFK,1,3,.
S&HWMAC	SP,DEFINE,,.&hSWSYM,SYM,4,,,.DE'CNW
SWMAC	SS,ENT'(RY,,0,,3,.
SWMAC'H	SP,ERRORLEVEL,,.'hSWDEC,ERR,3
SWMA(C	SP,EXCLUDE,,.SW((SYM,SYM,3,.
SWMA(HC	SS,EXECUTE,,0,,(h3,,*
SWMAC	SP,FR)ECOR,,.SWDEC,FRC,)(3
SWMAC	SS,GO,,0)H,,3,,*
SWMAC	SP,)hHASHSIZE,,.SWDEC,*HAS,3
SWMAC	SP,I*(NCLUDE,,.SWSYM,SY*HM,3,.
SWMAC	SS,K*h,,0,,3,,*
SWMAC	+SP,LIMIT,,.SWSYM,+(SYM,4,.,,.SYOSW  +H
SWMAC	SP,LINK,,+h.SWSIX,SYM,3
SWM,AC	SS,LOCALS,,0,,,(3,.,*
SWMAC	SS,L,HOG,,0,,3
SWMAC	S,hP,LOGLEVEL,,.SWDE-C,LOG,3
SWMAC	SL-(,MAP,,MAPK,1,3,,*-H
SWMAC	SP,MAXNOD-hE,,.SWDEC,MAX,3
.SWMAC	SS,MISSING,.(,0,,3,.
SWMAC	SL.H,MPSORT,,MPSK,1,3.h
SWMAC	SL,MTAPE,/,MTPK,1,3,.
SWMA/(C	SL,NEWPAGE,,HYL/HK,1,3,.
SWMAC	SP/h,NODE,,.SWSXD,SYM0,3
SWMAC	SP,NOEN0(TRY,,.SWSYM,SYM,30H,.
SWMAC	SS,NOIN0hCLUDE,,0,,3,.
SW1MAC	SS,NOINITIAL,1(,0,,3
SWMAC	SS,N1HOJOBDAT,,0,,3	;[21h211] DON'T LOAD J2OBDAT INTO HI OR 2(LOSEG
SWMAC	SS,N2HOLOCAL,,0,,3,.,*
SWMAC	SP,NOREQUE3STS,,.SWSYM,SYM,33(,. 
SWMAC	SS,NOS3HEARCH,,0,,3,.
SW3hMAC	SS,NOSTART,,04,,3,.
SWMAC	SS,N4(OSYMBOL,,0,,3
SW4HMAC	SL,NOSYSLIBRA4hRY,,LIBK,1,3
SWM5AC	SL,NOUSERLIBRA5(RY,,LIBK,1,3
SWM5HAC	SL,ONLY,,ONLK,5h1,3,.
SWMAC	SL,O6TSEGMENT,,OTSK,1,6(3
SWMAC	SL,OVERL6HAY,,OVLK,1,3,.
S6hWMAC	SP,PATCHSIZE7,,.SWDEC,PAT,3
S7(WMAC	SL,PLOT,,PLT7HK,1,4,,,.DECNW
S7hWMAC	SL,PLTTYP,,P8TPK,1,3		
SWMAC	8(SP,PSCOMMON,,.SWS8HYM,SYM,4,.,,.SWSY8hM ;[2227]
IFN TO9PS20,<
SWMAC	SL,9(PVBLOCK,,SSGK,5,49H,,,.SWSYM	;[2220]9h
SWMAC	SL,PVDATA:,,PDVK,,4,,,.SWPD:(V	;[2306]
> ;[14:H23]
SWMAC	SP,RED:hIRECT,,.SWSYM,SYM;,4,.,,.SWSYM ;[22;(23]
SWMAC	SS,REQ;HUEST,,0,,3,.
SWM;hAC	SP,REQUIRE,,.S<WSYM,SYM,3
SWMAC<(	SS,REWIND,,0,,3,<H.
SWMAC	SP,RUNAM<hE,,.SWSIX,SYM,3
=SWMAC	SS,SAVE,,0,=(,3
SWMAC	SS,SEAR=HCH,,0,,3,.,*
SWM=hAC	SL,SEGMENT,,SE>GK,1,3,.
SWMAC	S>(P,SEVERITY,,.SWDE>HC,SEV,3 
SWMAC	S>hP,SET,,.SWSYM,SYM?,4,.,,.SYOSW
SWM?(AC	SP,SKIP,,.SWDE?HC,MTP,3,.
SWMAC	?hSP,SPACE,,.SWDEC,@SPA,3
SWMAC	SP,S@(TART,,.SWSYO,STA,@H3,.
SWMAC	SP,SUP@hPRESS,,.SWSYM,SYMA,3 
SWMAC	SL,SYFA(ILE,,SYMK,1,3
SWAHMAC	SL,SYMSEG,,SSAhGK,1,4,.,,.SWSYM	B;[1260]
SWMAC	SLB(,SYSLIBRARY,,LIBKBH,1,3,.
SWMAC	SL,BhSYSORT,,SYSK,1,3
SWMAC	SL,TEST,,DC(EBK,1,3,.,*
SWMACHC	SS,UNDEFINED,,0Ch,,3,.,*
SWMAC	SSD,UNLOAD,,0,,3
SWD(MAC	SP,UPTO,,.SYODHSW,UPT,3	;[723]
DhSWMAC	SL,USERLIBREARY,,LIBK,1,3
SWE(MAC	SP,VALUE,,.SWEHSYM,SYM,3,.
SWMAEhC	SL,VERBOSITY,,VFERK,2,3
SWMAC	SPF(,VERSION,,.SWVER,FHSYM,3,.,*	
IFE TFhOPS20,<
SWMAC	SPG,CORE,2,.SWDPK,COG(R,4
SWMAC	SP,ESTGHIMATE,,.SWDEC,ESTGh,3
SWMAC	SP,MAXCHOR,2,.SWDPK,COR,4H(
SWMAC	SP,RESET,HH,.SWSXD,SYM,3
SWHhMAC	SP,RUNCOR,2,.ISWDPK,COR,4
SWMAI(C	SS,SSAVE,,0,,3
SWMAC	SS,XPN,,0,Ih,3
SWMAC	SS,ZERO,,0,,3
 >
EROgfn:=P hD@ hH@ hL@ hP@ i

P i.@ yq/Y
 IFE <Bz>-<C>+1,<
	DMOVz0E	A,B
	MOVE	AzP+2,D
 >
 IFN <zpB>-<C>+1,<
	MO{VE	A,B
	DGET	A+1,C
>DGET	i6~i  rq/%
 IFL <Z sB>-<@>,<
	MOVE	s0A,B
	DMOVE	A+sP1,1+B
 >
 IFGEsp <Z B>-<@>,<
	MtOVEI	A+2,B
	DMt0OVE	A,(A+2)
	MtPOVE	A+2,2(A+2)
>A+2,2(A+2)
	MOVEM	u1A,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 {Q/g
 IFE <B{q>-<C>+1,<
	DMOV|EM	A,B
	MOVEM	|0A+2,D
 >
 IFN|P <B>-<C>+1,<
	|pMOVEM	A,B
	DSTORE	A+1,C
>Tj `9.
A=.ZZ
 IFB <B>,<.ZZ==`x.ZZ+1>
 IFNB <Ba>,<.ZZ==.ZZ+B>
a8 IFG .ZZ-.TEMP-.TaXLEN,<PRINTX Too maxuch TEMP space used>
P space usjH b9.!		
 A=.ZbYZ				
 IFB <B>,bx<.ZZ==.ZZ+1>		
 cIFNB <B>,<.ZZ==.c8ZZ+B>	
 IFG .ZZcX-.TEMP2-.TLEN,<PRcxINTX Too much TEMdP2 space used> 
 space used> 
k:\*:Q @kN-J1 /
hHl`P lhP llP lP m:7 [A-w
	LOC	137[a
.JBVER:	<BYTE(3\Q)CUSTVR(9)DECVER(\6)DECMVR(18)DECEV^yR>
	RELOC
	EZCOR=:EZCOR
	EZCOnD@ nH@ nL@ p Na5v			
 IFIDEN <B><UNK>,<
  `I$LIBDEFAULT==UNKB^iIT
 >
 $LIBB==BBIT
VLT,PLpYh@Q pYi@Q  pYlQ `pYl@Q @pYl`Q ~pYlvQ xq*:P"uK8 dY.+
	MOVE	T1dy,[.TEMP,,.TEMP+1]e
	SETZM	.TEMP
	e8BLT	T1,.TEMP+.TLEN-1
.TEMP+.TLEuL	 ey.7				
	MOVfE	T1,[.TEMP2,,.TEf8MP2+1]	
	SETZM	.fXTEMP2			
	BLT	T1fx,.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 := lY.g
	XLIST
ly ASCIZ	\A\
	LIST
Z	\A\
	LIS

P#~.P S@P PP ?0P @4[P Q  d]@P f	P pQ Q @#@ 	11#
  IFL L%	QMAX-D,<D=L%MAX>	p
  %LVL==D-.LVL

  IFGE %LVL,<

0    IFL V%MAX-C,
P<C=V%MAX>
    I
pFL S%MAX-E,<E=S%MAX>
    IFNB <0A>,<
      ERRUPUO ER%A
    >
p    IFNB <F>,<


      ..PTR==1			

0
      IFNB <G>

P,<..PTR==0>	
   

p,<.IFNR<<B>&.EN>
0  IE ..PTR,<		
<C>B<B%EXP><B>+B<B%SEV>+<D>B<B%0LVL>+<          [P
            .ERpF::ASCIZ \F\	
            IFE <0<B>&.EN>,<ASCIZ P\G\>
	    IFN <p<B>&.EN>,<0>		
          ]      0  >
      >
pP   IFN ..PTR,<		
        IF2,<
          IFNDEF .0ERF,<EXTERN .ERPF>
        >
  p      EXP <B>+<C>B<B%VER>+<E>B<0B%SEV>+<D>B<B%LVPL>+<.ERF>
     p >
      PURGE ..PTR		
    >
  0  IFB <F>,<
   P   EXP <B>+<C>Bp<B%VER>+<E>B<B%SEV>+<D>B<B%LVL>+0<[ ASCIZ \G\]>
    >
  >
>
$3@ !1Z 
 IFGE %ALVL,<
  IFNB <F`>,<
   EXP <B>+<ET%A>B<B%LVL>+< F>
  >
  IFB <@F>,<
   IFIDN <`A><STR>,<			
    EXP <B>+<ET%A >B<B%LVL>+<[ ASCI@Z \G\]>
   >
 `  IFDIF <A><STR>,<			
    EXP < 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 nY/
 IFE DEBnySW,<>
 IFN DEBSWo,<
  IRP C,<
	o8C
  >
	PUSHJ	PoX,ENTDDT
	  .JDDToxX (A,B,\<.-B>)p
	OPDEF	CONTINUEp8 [JRSTF	@.JBOPC]
>STF	@.JBOPC]
 JFCL	[AqSCIZ	\A:	B + C\]
A:	B + C0P 35@P 6lH:P 6m	tP 6mI7P 6mK{P ;-H9P';<+P >.,G q1'
	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