Google
 

Trailing-Edge - PDP-10 Archives - klad_sources - klad.sources/glxmac.unv
There are 92 other files named glxmac.unv in the archive. Click here to see a list.
x
,rT@P C, 	%@J,LSH A,-^D9LSH A,-^DCR/
	DEFINE		PXTEXT.(OPCODE,NEW	P()<
	OPCODE	<A,<NEW>>>ODE	<A,<E2"@ 	<@Kj
	  IFE 	<`B,<..TA==0>
	  	=IFN B,<EXP ..TA	= 
		    PURGE ..TA>
	PURGE ..TE@tP'E@vyQ ~E@v:=Q |GH 
(Q0
	
	  XL
hIST

	X CRE	
	
X GEN	
	X PRT	

H	X CLS	
	X AUT	
H
	X USW	
	X SPL	
h
	X SIZ   
	X M
OD	

	  LIST

	

	  LIST
G4,YP G4,LQ G4,[qQ G4,\qQ @G4,iVQ xG4,kQQ `G4,m`Q @G4,zQP'G4-
Q  G4- G4-LzP'G4-jSQ G4-kxQ  G4-kyP G4.	RQ G4.`Q @G4.(4Q G4.,Q G4.9Q G4.=zQ G4.lXQ @G4.zsQ  G4/
3Q @G?pP$GHtkP GHtkQP GHv)9P GHv:=P GR/
	DEFINE 	MXTEXT.(OPCODE,NEW	O()<
	OPCODE	<<NEW>>>OPCODE	<<NEWI!k7P I!k<P ImP I$P`Qu*IIY{P`Qw*|I  	(J@.INDR.(A,B,SOS)NDR.(A,I?pP&IR/
	IFN TFL	R(G,<
DEFINE TXT1.	RH(A,B,C,D,E,F,G,H,	RhI,J,K,L,M,N,O,P,Q	S,R,S,T,U,V,W,X,Y,	S(ZZ,A1,B1,C1,D1,E1	SH)<
A+[ASCIZ\A'B	Sh'C'D'E'F'G'H'I'J'	TK'L'M'N'O'P'Q'R'S	T('T'U'V'W'X'Y'ZZ'A	TH1'B1'C1'D1'E1\]
	Th>>
IFE TFLG,<
D	UEFINE TXT1.(A,B,C	U(,D,E,F,G,H,I,J,K,	UHL,M,N,O,P,Q,R,S,T	Uh,U,V,W,X,Y,ZZ,A1,	VB1,C1,D1,E1)<
	I	V(FE ZFLG,<
	OPDEF	VH OPC [A]
OPC A'	VhB'C'D'E'F'G'H'I'J	W'K'L'M'N'O'P'Q'R'	W(S'T'U'V'W'X'Y'ZZ'	WHA1'B1'C1'D1'E1
		Wh>
	IFN ZFLG,<
		XOPDEF OPC [ZFLG+	X(A]
PTEXT.(A'B'C'	XHD'E'F'G'H'I'J'K'L	Xh'M'N'O'P'Q'R'S'T'	YU'V'W'X'Y'ZZ'A1'B	Y(1'C1'D1'E1)
	>
	YH>>

IFE A&TXT.	YhNA,<
	  .CREF
		ZXTEXT. TEXT.
	  	Z(.XCREF
		>
IFN 	ZHA&TXT.NA,<
	EXP	Zh A
		>

IFN 	[A&TXT.S,<
	IFE S	[(CHAR,<SCHAR==" ">	[H
	IFE SSIDE,< IF	[hE TXTF.D-<A&TXT.	\M>,< SSIDE==TXT.S	\(R>>
	IFE SSIDE,<	\H IFE TXTF.O-<A&T	\hXT.M>,< SSIDE==TX	]T.SR>>
	IFE SSID	](E,< SSIDE==TXT.SL	]H>
	EXP <<INSVL.(	]hSCHAR,TXT.SC)>+<I	^NSVL.(SSIDE,TXT.S	^(S)>+<INSVL.(SWIDT	^HH,TXT.SP)>>
	SSI	^hDE==0
	SWIDTH==0	_
	SCHAR==0
>
		_(CTEXT.
	TFLG==0
	ZFLG==0
	PURGE OPC
	
	PURGEKH(Q P KJ{P 	KJ%h"P KJ-yBP KJ-{P 	KJ4"P KJ49BP KJ4I"P KJ4LbP KJ5iP KJ5iBP KJLlP KJLlbP KJt9"P KJuX"P KJv)"P KJv9P KJv<P KK-P KK 
hQ 
	ERA$==
ER%%%
	ER%%%==ER%%%+1
R%%%==ERKK|Y 
HQ
	ERR	EOF
h,<End Of File>
	
	ERR	IFP,<Illegal 
	(file position>
	
	HERR	FDE,<File Dat
	ha Error>
	ERR	FN

D,<File is not on

( disk>
	ERR	NSD,

H<No such device>

h
	ERR	FCF,<File c
heckpoint failed>
(
	ERR	SLE,<A Sys
Htem Limit Was Exc
heeded>
	ERR	IFS,
<Illegal File Spe
(cification>
	ERR
H	FNF,<File Not Fo
hund>
	ERR	PRT,<P
rotection Violati
(on>
	ERR	DNA,<De
Hvice Was Not Avai
hlable>
	ERR	NCE,
<No "current" ent
(ry in list>
	ERR
H	NMA,<No IPCF mes
hsage is available
>
	ERR	FDS,<File
(s are on differen
Ht structures>
	E
hRR	FAE,<File alre
ady exists>
	ERR
(	USE,<Unexpected 
HSystem Error>
	E
hRR	NSP,<No Such P
id>
	ERR	BOL,<Be
(ginning of list r
Heached>
	ERR	EOL
h,<End of list rea
ched>
	ERR	RQF,<
(Receiver's quota 
Hfull>
	ERR	SQF,<
hSender's quota fu
ll>
	ERR	NRE,<No
( Remembered Entry>
mbered EntryKKBP 
KKI"P KKBP 
KK.9"P`KR/
IF1,<
		`(IFN EFLG&1,<PRINT	`HX ?Uknown qualifi	`her in A call of 	aB
		     PRINTX	a(
>
	IFN EFLG&2,	aH<PRINTX ?Bad spac	ahing specification	b in A call of B	b(
		     PRINTX
	bH>
	IFN EFLG&4,<P	bhRINTX ?Premature 	cend of text in A	c( call of B
		  	cH   PRINTX
>
	IF	chN EFLG&10,<PRINTX	d ?Bad address in 	d(A call of B
			dH     PRINTX
>
		dhIFN EFLG&20,<PRIN	eTX ?Variable addr	e(ess too long in 	eHA call of B
		 	eh    PRINTX
>
	I	fFN EFLG&40,<PRINT	f(X ?Spacing on I q	fHualifier in A ca	fhll of B
		     	gPRINTX
>
> ;END OF IF1
> ;ENDMf9 P Mt,}P MuLwP @MuiWP  MuI7P'Mn:=p MF:=p M$pQ"P M$t:P M$t;P M$t<RP M$ty7P M$u[rP M$v
ZP M$v:=P M$v<P M$v\{P M>hrp M>h{p M>iRp M>k=p M>l}p M>m9p MJhrp MJip MJk=p MJlsp MJl}p MJm9p MR/' 	qO*			
     	q(   SFLG==0				
		qHSTYP==0				
	IFI	qhDN <A><^>,<STYP=	r=TXTF.2>	
	IFE S	r(TYP,<IFDEF TXTF.	rHA,<STYP==TXTF.A>	rh>
	IFE STYP,<EFL	sG==EFLG!1>		
	IF	s(N STYP&TXT.NA,<			sH
	     DTEXT.(ST	shYP)		
	     IFLG	t==3			
			>	 	
	t(	IFE STYP&TXT.NA,	tH<		
	    IFLG==1	th			
	    AFLG==1	u			
	    SWIDTH=	u(=0			
			>	 	
	ZFLG==0				
 	MR/G 	uhON			
	IFID	vN <A></>,<			
		v(    AFLG==0			
		vH    IFLG==3			
		vh    DTEXT.(STYP)		w	
		  >         	w( 		
	IFN AFLG,<		wH		
	    XTEXT. A	whTEXT.,<A>
	    	xAFLG==AFLG+1		
		x(    IFE AFLG-^D31	xH,<EFLG==EFLG!20> 	xh
	    IFIDN <A>	y<,>,<		
		IFN ZF	y(LG,<EFLG==EFLG!10	yH> 
		ZFLG==TXT.P	yh
			  >		
		  >			
 		
		  >MR/g 	z(Of			

	IF	zHE IFLG-3, <			
		zh    IFLG==0			
		{	    >			
	IFE I	{(FLG-2,<			
	    	{HIFLG==0			
	    	{hIFDIF<A></>,<FTE	|X4.(<A>)>	
		  	|(>			
	IFE IFLG-1	|H,<			
	    IFLG=	|h=2			
		 >	 		
 	
		/>				}(P@			
    E	}HFLG==EFLG!2			
 	}h    IFE SSIDE,<			~	
    IFLE "0"-"	~(A",<			
	IFGE "	~H9"-"A",<SWIDTH==	~hSWIDTH*^D10+^DA 	
		   IFE STYP-T	(XTF.I<EFLG==EFLG!	H40> 
		   STYP==	hSTYP!TXT.S	
		  
 EFLG==EFLG&<^-2>
(	
		 >			
		  >
H			
	>				
    
hIFIDN <A><R>,< 	
		
	   IFN SWIDT
(H,<			
		SSIDE==
HTXT.SR		
		EFLG=
h=EFLG&<^-2>	
		 
      >		
		    
(>			
    IFIDN <
HA><L>,< 			
	  
h IFN SWIDTH,<			

		SSIDE==TXT.SL	
(	
		EFLG==EFLG&<
H^-2>	
		       >
h		
		    >			
 
   IFIDN <A><C>,
(< 			
	   IFN SW
HIDTH,<			
		SSID
hE==TXT.SM		
		EF
LG==EFLG&<^-2>	

(		       >		
		 
H   >			
    IFN 
hSWIDTH, <			
	IF
N SSIDE,<			
	 I
(FN EFLG&2,<			
	
H   IFE SCHAR,< SC
hHAR=="A"	
			EF
LG==EFLG&<^-2>
	
(	     >			
		  >
H			
		  >			
		
h >			
    IFE EF
LG&2,< IFLG==2>		
IFLG==2>		MR/
	TFLG==0	j	
	AFLG==0	
	SF	j(LG==0	
	IFLG==0		jH
	ZFLG==0	
	EFL	jhG==0
	SCHAR==0
	k	SWIDTH==0
	SSID	k(E==0
	CTEXT.

	kHIRPC A,<	
    I	khFN SFLG,<	
	FTEX	l1.(<A>)	
>		
I	l(FE SFLG+AFLG+IFLG	lH,<	
IFIDN <A>,<	lh^>,<	
IFN TFLG,<	mDTEXT.(TXTF.3)>
	m(SFLG==1	
>	
IFE	mH SFLG,<	
IFE ^D2	mh9-TFLG,<
DTEXT.(	nTXTF.3)
>	
TFLG	n(==TFLG+1	
XTEXT.	nH ATEXT.,<A>	
>		nh
>	
IFE SFLG+IF	oLG+TFLG,<	
FTEX2	o(.(<A>)	
>	
IFN	oH IFLG,<
FTEX3.(<	ohA>)	
>	
>
IFN	p TFLG,<DTEXT.(TXT	p(F.3)>
IFN AFLG+S	pHFLG+IFLG,<EFLG==EFLG!4>
	FLG==EMRV>9P MS.[yQ M^luQ O3DYP O3EZ7P O3Fi9P O3FlYQ O3FzP SuZp Sup Sup Su}:p Sv
2p Sv
Sp Sv>@p SvMp Svi9p S:  	'@J<.INDR.(A,B,AOS)NDR.(A,S;!kP S@t9QQ @S@t9QP S@t9RP `S@t9VP S@t9XP$S@t9ZQ S@t9[P"S@t:Q xS@u-xQ  S@u[XQ xS@v
tQ @S@v,:P S@v,rQ S@v89Q S@v<Q S@v<P S@v<:P'~S@vMQ SBIP SBM"P SBlP SB2P SB
BP SB,BPSB,bP SB."P SB\P SB)iP SB)iP SB)kVP SB)kYP SB)lXP SB)lsP SB)lxP SB)mvP SBal}P SPuxzQ @SR/
	XLIST			gh		
	.XCREF				
	h	FTEXT.(<A>)		
	h(	IFN EFLG,< ETEXT	hH.(ITEXT,<A>)> ;I	hhF ERROR, DESCRIBE	i IT
	EXP	0			
		i(.CREF				
	LIST				
  
	LIST	UVn	@l4@UVnY&i1 	 I~

	  XLI	@ST

	CDO	     		`		
	CDO	.ZPAGA
		CDO	.ZPAGN
	CDO	 	.ZCHNK
	CDO	.SA	@VE1
	CDO	.SAVE2
	CDO	.SAVE3
	CD	O	.SAVE4
	CDO	.S	 AVET
	CDO	.SV13
	CDO	.SV14
	CDO	`	.SV15
	CDO	.SV1	6
	CDO	.RETT
	C	 DO	.RETF
	CDO	.R	@ETE
	CDO	.AOS
		`CDO	.SOS
	CDO	.Z	ERO
	CDO	.POPJ
	 	CDO	.STOP
	CDO
	CDO
	CDO
	CDO	`
	CDO
	CDO
	CD		O
	CDO
	CDO
	C		 DO

	CDO				
			@CDO	C%RPRM
	CDO			`C%INTR
	CDO	C%SE	
ND
	CDO	C%RECV
	
 	CDO	C%BRCV
	CDO	
@	C%REL
	CDO
	CD	
`O
	CDO
	CDO
	C	DO
	CDO
	CDO
		 CDO
	CDO
	CDO
	@
	CDO	      			
	CDO	F%IOPN
	CD	
O	F%AOPN
	CDO	F%	
 OOPN
	CDO	F%IBYT	
@
	CDO	F%OBYT
	C	
`DO	F%IBUF
	CDO	F	
	CDO	F%REL	
	CDO	F%DREL
	C		F%RREL
	CDO	F	
	CDO	F%POS
	CDO	F%CHKP
	CD	 O	F%INFO
	CDO	F%	@FD
	CDO	F%REN
		`CDO	F%DEL
	CDO	F	%FCHN
	CDO
	CDO	 
	CDO
	CDO
	CD	@O
	CDO
	CDO
	C	`DO
	CDO

	CDO		      			
	CDO	M	 %ACQP
	CDO	M%REL	@P
	CDO	M%IPSN
		`CDO	M%NXPG
	CDO		M%IPRC
	CDO	M%IP	 RM
	CDO	M%AQNP
	@	CDO	M%RLNP
	CDO	`	M%CLNC
	CDO	M%F	PGS
	CDO	M%GMEM
	CDO	M%RMEM
	CD	@O	AVBPGS
	CDO	PA	`GSTA
	CDO	SWPSTA	
	CDO	PAGTBL
	C	 DO	INMEMF
	CDO	C	@END
	CDO	M%GPAG
	CDO	M%RPAG
	CD	O
	CDO
	CDO
	C	 DO
	CDO
	CDO
		@CDO
	CDO

	CDO	`	      			
	CDO		T%TEXT
	CDO	T%TT	 Y
	CDO
	CDO
	C	@DO
	CDO
	CDO
		`CDO
	CDO
	CDO
		CDO
	CDO

	CD	 O	      			
	CDO	@	L%CLST
	CDO	L%D	`LST
	CDO	L%CENT
	CDO	L%CBFR
	CD	 O	L%DENT
	CDO	L%	@NEXT
	CDO	L%FIRS	`
	CDO	L%LAST
	C	DO	L%PREV
	CDO	L	 %PREM
	CDO	L%CUR	@R
	CDO	L%RENT
		`CDO	L%SIZE
	CDO
	CDO
	CDO
	CDO	 
	CDO
	CDO
	CD	@O
	CDO
	CDO

	`	CDO	I%INI1			
		CDO	I%NOW
	CDO	I	 %EXIT
	CDO	I%ION	@
	CDO	I%IOFF
	C	`DO	I%SLP
	CDO	I%	INT1
	CDO	I%INT2	 
	CDO	I%INT3
	C	@DO	I%IWTO
	CDO	I	`%SWTO
	CDO	I%WTO	
	CDO	I%SOPR
	C	 DO
	CDO
	CDO
		@CDO
	CDO
	CDO
	`
	CDO				
	CDO
	CDO
	CDO
	CDO	 	S%CMND
	CDO	S%T	@BLK
	CDO	S%SCMP
	CDO	S%ERR
	CDO	
	CDO
	CDO
	CD	 O
	CDO
	

	CD	@O	K%RCOC			
	CDO	`	K%WCOC
	CDO	K%S	UET
	CDO	K%STYP
	CDO	K%TXTI
	CD	@O
	CDO
	CDO
	C	`DO
	CDO
	  LIST
  DO
	  LISTY>
@ 	&J2.LDST.(A,	& B,C,HRRZ,HLRZ,LDB,MOVE),HLRZ,L[@ | Gn
	IFB <B|@>,<MAXSIZ==0
		I|`RP A,<IFG <A-MA}XSIZ>,<MAXSIZ==A} >>>
	IFNB <B>,<}@B==0
		IRP A,<}`IFG <A-B>,<B==A>>>
B>,<B==[tP'[t;ZQ x[v
QP'[v:Q[vxQ [[v[lp [lXp [lrp [ltp [lxp [l}p [n:=P [tuQ @[th:Q [u[yQ [ukvQ  [v=3P'[v|WQ [&p ~ H
	IFB <B~@>,<MINSIZ==377777~`,,777777
		IRP A,<IFG <MINSIZ-A >,<MINSIZ==A>>>
	IFNB <B>,<B==`377777,,777777
			IRP A,<IFG <B-	 A>,<B==A>>>
A>,<B==A>>>
[Lt;ZQ x[LvN8P'[NF:=p [PuySP'[PvNP'] U`%0IF2,<IFDEFV A,<A==A>> IFNDEF A,<A==B>_
QkRp _
Ql}p _
Qmp _
Qm7p _
T= 
XQa
	XLIST
	L@	X(.OTRDR,Reader)
x
	X(.OTNCU,NETCO
N)
	X(.OTLPT,Pri
8nter)
	X(.OTBAT,
XBatch-stream)
	X
x(.OTCDP,Card-punc
h)
	X(.OTPTP,Pap
8ertape-punch)
	X
X(.OTPLT,Plotter)
x
	X(.OTJOB,Job)

	X(.OTTRM,Terminal)
	LIST
mina_Sh6Q O3EJ1_Tu
SQ x_TuLSP'`P `DP `HP `LP `PP a>:=P a 	%J(LSH A,^D9LSH A,^D9aJ}Ks p0GT
	pXSALL
	  XLIST
	  INTqERN %%.GLX			
	 q  SEARCH MACTEN			q@
	  IFN FTJSYS,<q`SEARCH MONSYM>	
r	  IFN FTUUOS,<SEr ARCH UUOSYM>	
	 r@ IFB <B>,<.REQUEr`ST GLXINI
			IF2s,<IFNDEF I%INIT,<s EXTERN I%INIT>>
s@			DEFINE $DATA(Ns`AM,SIZ<1>)<
			 t NAM:	BLOCK	SIZ
t 			>
			IF2,<	DEt@FINE CDO(A),<
		t`		  IFNB <A>,<IFNuDEF A,<  A=ZZ
		u 				  	SUPPRESS Au@>>
				  ZZ==ZZ+u`1 >
				ZZ==VORGv
				.XCREF
			v   	LIBVEC
				.Cv@REF
			     >>
v`	  IFNB <B>,<
	w		TWOSEG
			RELOw C CORG
			DEFINEw@ ASSGN.<
			  .Aw`SSIGN B%D, DLOC,x ..TLOC
			>
		x 	IF2, < DEFINE CDx@O(A)<
				IFNB <x`A>,<IFNDEF A,< EXyTERN A
						   y   SUPPRESS A>>
	y@			>
				.XCREF
				LIBVEC
				z.CREF
				>
			z >
	  %%.MOD==SIXz@BIT /A/	
	  LIST				

	LISaPtP aPtkP aPuTP aPv\rP aPv|UP aR/

	   OPC 	QHA
	   POINTR(0,B)
	POINTR(0,e,(SQe,)6Qe,)RQe,+Q@e,,UQ@e,-Qe,<SQ9e-)WQe-i1Pe.gkp gk9p glp gltp gl}p g4P 	 H.SAVE.(\A).SAVE.(\Ag
,}Q g
-LyQ @g
.=1Q  g"@ 	=`Kv
	  IFB <	>B>,<..TA==..TA	> +<C>>
	  IFNB <	>@B>,<..TA==..TA	>`+<INSVL.(C,B)>>
	VL.(C,B)>>g$tkQ@@g$uP'g.N	@6@g.N gR~)  	&`J8.LDST.(A,	'B,C,HRRM,HRLM,DPB,MOVEM)HRLM,Dgg
V {G^
	IFNB <{ B>,<IFN FTUUOS,<{@A==B>>
	IFNB <{`C>,<IFN FTJSYS,<A==C>>
SYS,<ght-3P ghuWP ghuxSP @ghv5P ghv
2P hDP hHP hLP hPP iFC@ 	PhMTXT1. (A)TXT1. (A)iP i0,YQ i0,1Q  i0,^Q i0-kvQ @iG, 	EL\
	XLIST
	E 	X(T,TXT.A)			
		E@X(O,TXT.A)			
	X	E`(D,TXT.A)			
	X(	FF,TXT.A)			
	X(7	F ,TXT.A)			
	X(6,	[email protected])			
	X(W,T	F`XT.A)			
	X(5,TX	GT.A)			
	X(P,TXT	G .A)			
	X(U,TXT.	G@A)			
	X(H,TXT.A	G`)			
	X(C,TXT.A)	H			
	X(E,TXT.A)		H 		
	X(I,TXT.A)			H@	
	X(M,TXT.NA)			H`	
	X(J,TXT.NA)			I	
	X(L,TXT.NA)			I 	
	X(K,TXT.NA)			I@	
	X(A,TXT.NA)			I`	
	X(0,TXT.NA)			J	
	X(3,TXT.A)				J 
	X(V,TXT.A)			
	X(2,TXT.NA)			
	X(Q,TXT.A)			
	K	X(B,TXT.A)			
		K X(1,TXT.A)			
	X	K@(N,TXT.A)			
	LIST
.A)			
	LIiK,PA ic!h P ic!k Q `ic!kPQ @ic!lQ  ic!l`Q ic!lqQ ic!lvP ic!lvP ic!lxP'ic!lyP ic!lyQ ic$cHQ Eic$cHQ @ic$cIQ E`ic$cIQ  ic$cJQ ic$cKQ @ic$cKQ  ic$cPQ D`ic$cQQ  ic$cQQ ic$cRQ `ic$cRQ  ic$cSQ ic$cTQ `ic$cTQ @ic$cUQ Dic$cUQ D@ic$cVQ D ic$cVQ C`ic$cWQ `ic$cWQ @ic$cXQ  ic$cXQ ic$cZQ  ic$cZQ @ic$c[Q @ic$c[Q `m?pP$mKc@ /(*|BYTE (3)A/HWHO (9)AVER (6)AMIN (18)AEDTp 	K`Q4
	FI.A==
HFI.%%%
	FI.%%%==FI.%%%+1
	ZZ==q@ XCIFB <C>,<X8A==:B> IFNB <C>,<A=:B>B <Cup 	/K
	IFNB	<	/ B>,<..T==0
		IFE	/@	B-777777,<..T==	/`1
			HLLZS	A>
	0		IFE	B-77777700	0 0000,<..T==1
				0@HRRZS	A>
		IFE		0`B-777777777777,<	1..T==1
			SETZM		1 A>
		IFE	..T,<P	1@USHJ  P,.ZERO
			1`	   	XLIST
			  	2   JUMP  [POINTR(	2 A,B)]
			  	LI	2@ST
			>>
	IFB	<	2`B>,<SETZM	A>
B>,<SETZM	A>
uhP 	
=Z 
pQ}
	  IFG 
A-INT.LV,<PRINTX 
0?Level A interru
0pts not supported
P>
	  .BGINT.(\A)
	.BGINT.(\A	- 	3 K*
	  IFDEF	3@ ..BSIZ,<PRINTX ?	3`Missing $EOB afte	4r a $BUILD>
	  .	4 .BSIZ==0			
	  .	[email protected]==.			
	  R	4`EPEAT A,<			
			5BLD0.(\..BSIZ,0)		5 
		..BSIZ==..BSIZ+1>	
	==..BSI	H  	  J
	IF1,< I	 @FNDEF	..TLOC,<..T	 `LOC==0
				..DCT	!R==0
				>
	A=	! ..TLOC
	IFB <B>	!@,<	..TLOC==..TLOC	!`+1>
	IFNB <B>,<	"	..TLOC==..TLOC+	" B>
	..DCTR==..DC	"@TR+1
	> ;END OF 	"`IF1
	IF2,<	..DCT	#R==..DCTR-1
		IF	# E ..DCTR,<	ASSGN.	#@>
		A=DLOC##-<.	#`.TLOC-A>
	    >;END OF IF2
	>	,,U 
 PR	
	  POPJ	
 pP,			;WILL INVOKE
! RIGHT ROUTINE
	IGHT ROUTINE
		|  	8@K`
	  IFNDE	8`F ..BSIZ,<PRINTX 	9?$EOB without pre	9 vious $BUILD>
	 	9@ IFN <.-..BLOC>,<	9`PRINTX ?Address c	:hange between $BU	: ILD and $EOB>
	 	:@ XLIST				
	  ..	:`T==0
	  REPEAT .	;.BSIZ,<
	    BLD	; 0.(\..T,1)		
	  	;@  ..T==..T+1 >
		;`  PURGE ..BSIZ,..	<T,..BLOC	
	  LIST
	OC	
	  LIS	$ 	$ J$
	  INTER	$@N A
	  $DATA(A,<B>)
	ATA(A	J.I  	H
	  JSP	T	 F,.RETE		
		XLIS	@T			
	  JUMP	ER	`A$		
		LIST			
		
		LIST			
	J.I@ 	`H
	  JRST	.RETF			
		ST		J.M 	 H
	  JRST	.RETT			
		ST		N.@ 	5`K@
	  IFNDE	6F ..BSIZ,<PRINTX 	6 ?$SET without pre	6@vious $BUILD>
	 	6` IFGE <<<A>&7777	777>-..BSIZ>,<
			7 PRINTX ?A offset	7@ greater than $BU	7`ILD size paramete	8r>
	  SET0.(\<A>,B,<C>)
	A	O%| 	? L

S..A::		?@PUSHJ	P,.STOP
			?`XLIST
		JUMP [XW	@D 'A',[ASCIZ \B	@ \]
		  IFDEF %%.	@@MOD,<
			EXP %%.	@`MOD]>
		  IFNDEF	A %%.MOD,<
			SIX	A BIT /NONAME/]>
		 LIST
E/]>
		R/	A`L$

	PUSHJ	B	P,T%TEXT		
	XLI	B ST				
	.XCREF			B@		
	JRST	c			
	B`IFNB <A>,<
	EXP	C	<A>		
>
IFB <	C A>,<
	EXP	0			
>
	FTEXT.(<B>)	C`		
	IFN EFLG,<ET	DEXT.($TEXT,<B>)>	D  
c:					
	.CR	D@EF				
	LIST				
		
	LIST				
t{P 
=Z 
 RJSR @I%INTAJSR @I%INTlQP lXP lzP 
l)XP l9VP l;0P l;ZP lH:P lI3P lI;P lJ9P lj6P lkP lkP lkXP lzQP mP mTP mQP mTP muP m9<P mkrP mktP mm6P mm<P 
myTPn n-P n=tP nKuP 	nNP n\9P 	n\yP S@P $^p $j6p %I7p %h6p &:p &
p &=p &tLG 	+`Jt
	IFNB	<	,B>,<..T==0
		IFE	, 	B-777777,<..T==	,@1
			C	A>
		I	,`FE	B-77777777777	-7,<..T==1
			C		- A>
		IFE	..T,<P	-@USHJ  P,.C
					-`  XLIST
			     	.JUMP  [POINTR(A,	. B)]
				  LIST
			   >>
	IFB	<B>,<C	A>
	<'<P '<P '<P '<P '<P *IA  *I*|A  *|2&= 	(@JZ
	IFNB	<	(`C>,<..T==0
		IFE	)	C-777777,<..T==	) 1
			D	A,B>
	)@		IFE	C-77777700	)`0000,<..T==1
				*E	A,B>
		IFE		* C-777777777777,<	*@..T==1
			G	A,	*`B>
		IFE	..T,<	+F	A,[POINTR(B,	+ C)]>>
	IFB	<C>,<G	A,B>
C>,7;rp7H:p7kp7N8p?$(:P?$9P?%+qP?%LP?%hzP?&P?&$kP J%uP J&-P J&:=P Ni' 	`H	    PUSHJ P,.SVA  PUSHJS"4`P S"5 P S"5`P S$^P S%DhP S%DkP S&d
P S&e(P S&e)P >}{woP