PDP-10 Archive: 10,5676/teco/newsrc/tecunv.unv from steco_19840320_1er

Trailing-Edge - PDP-10 Archives - steco_19840320_1er_E35 - 10,5676/teco/newsrc/tecunv.unv

There are 5 other files named tecunv.unv in the archive. Click here to see a list.

x,E@P BD@ BH@ C&)9 YdHALF(A)C2

q { w\
	$ADJSP	z XS,$XSB	
	STORI{@.	$XEA,T1,XSBTYP,(XS) 
,XSBTYPC2L{G z V<^D35-<^L<z@RGHBT.(A)>>+<^D3z`7*<<^L<RGHBT.(A)>>/^D36>>>.(A)CR/
	DEFINE	(OPCODE,TEX
	OPCODE	<A,<TEXT>>>DE	<ACW%yYPvE>3Pv@EuLzQE' AQ(E'%[P E,tP'E,t;vQ `E,t[RQ E,tiP'E,tiQ xE,tkQ `E,tlRQ E,tl[Q xE,tlzQ E,uLzQ E,unQ xE,uy2Q E,vP'E,v
    IFE HFTXADR,<
	IDIVI	hA,5		
	HLL	A,BTAB-1(A+1) 
	AD(DI	A,.BKTLNB	
H    >
    IFN FThXADR,<
	PRINTX ?Write BLDBPT
    >
BLDBPT
'8jE2\ 
		A	(BKADR,BK.ADR
	KADR,0,<D>)E2\;v 
		A	(BKCOL,BK.COL
	KCOL,0,<D>)E2\[R 
		A	(BKEND,BK.END00000,<D>)
	0E2\i 
		A	(BKFDI,BK.FDI
	KFDI,0,<D>)E2\i 
		A	(BKFDO,BK.FDO
	KFDO,0,<D>)E2\k 
		A	(BKFLG,BK.FLG
	KFLG,0,<D>)E2\lR 
		A	(BKFRE,BK.FRE00000,<D>)
	0E2\l[ 
		A	(BKFRW,BK.FRW
	KFRW,0,<D>)E2\lz 
		A	(BKFST,BK.FST00000,<D>)
	0E2]Lz 
		A	(BKLST,BK.LST00000,<D>)
	0E2]n 
		A	(BKNXT,BK.NXT
	KNXT,0,<D>)E2]y2 
		A	(BKOED,BK.OED00000,<D>)
	0E2^

Ejw
		A	(BKPLN,BK.PLN
	KPLN,0,<D>)E2^
		A	(BKPT,BK.PT,100,<D>)
	0000E2^
		A	(BKPTR,BK.PTR00000,<D>)
	0E2^:=

E(j"
		A	(BKSIZ,BK.SIZ
	KSIZ,0,<D>)E2^IV 
		A	(BKTFL,BK.TFL
	KTFL,0,<D>)E2^K8 
		A	(BKTMP,BK.TMP
	KTMP,0,<D>)E2^N8 
		A	(BKTYP,BK.TYP
	KTYP,0,<D>)EVMI HZ
 
;+.PAhRA -8
;XXXTTL	Macro to generate a( TITLE statement Hof the form:
;.BhREAK
;-TITLE A COMMENT VERSION
(	DEFINE ITTL,<IFHG G,<
	TITLE	Ah - H  %BDE(F)-G
>IFE G,<
(	TITLE	A - H  %HBDE(F)
>>
 h
;+.PARA -8
;XXX137	Macro to set(up location 137 wHith the specifiedh
;-version number. Note: the macr(o does its own "LHOC" and "RELOC".
	DEFINE I137,<IFG G,<
	IF2,<LA(LL>
	LOC	137
	BHYTE (3)IWHO(9)IhVER(6)IMIN(18)IEDT	; A %BDE((F)-G
	RELOC
	HSALL
>	IFE G,<
	IF2,<LALL>
	LOC	137
	BYTE (3)(IWHO(9)IVER(6)IHMIN(18)IEDT	; Ah %BDE(F)
	RELOC
	SALL
>>
 (
; Macro to defiHne version # at churrent location
;+.PARA -8
;XXXV(RS	Macro to definHe the version numhber at an
;-arbitrary user locati(on.
	DEFINE IVRHS,<IFG G,<
	IF2h,<LALL>
	BYTE (3 )IWHO(9)IVER(6) (IMIN(18)IEDT	;  HA %BDE(F)-G h
	SALL
>	IFE G!,<
	IF2,<LALL>
!(	BYTE (3)IWHO(9)!HIVER(6)IMIN(18)!hIEDT	; A %BD"E(F)
	SALL
>>(
 
; Generate a "HPASS2 PRINTX stat"hement
;+.PARA -8#
;-XXXPTX	Genera#(tes a pass 2 PRIN#HTX statement.
	D#hEFINE IPTX,<
	I$F2,<
	IFG G,<PR$(INTX A %BDE($HF)-G	H
>	IFE $hG,<PRINTX A %B%DE(F)	H
>>>
%( 
;+.PARA -8
;X%HXXUNV	Macro to ge%hnerate a UNIVERSA&L statement. The &(macro in
;effect&H is an exact copy&h of the XXXTTL ma'cro except that t'(he
;-word "UNIVE'HRSAL" replaces th'he word "TITLE".
(	DEFINE IUNV,<IF((G G,<
	UNIVERSA(HL A - H  %BD(hE(F)-G
>IFE G),<
	UNIVERSAL A)( - H  %BDE(F)H)
>>

;+.PAR)hA -8
;XXXERR	Mac*ro to type a fata*(l error message o*Hn the
;user's te*hrminal. The call +is of the form:
+(;.BREAK
;XXXERR +H(ZZZ,Error messag+he,<PDP-10 instruc,tion>)
;.BREAK
,(;ZZZ is the 3-cha,Hracter error code,h, error message i-s the ASCIZ
;str-(ing to be typed o-Hn the terminal an-hd PDP-10 instruct.ion is
;an optio.(nal argument indi.Hcating what the u.hser wants to do
/;about the error /(just typed. If th/He argument is nul/hl an
;-EXIT is e0xecuted.
	DEFINE0( IERR (COD,MSG,I0HNSTR),<
I'COD:	0hJRST	[
	OUTSTR	[1ASCIZ \
? I'COD1( MSG\]
	IFNB <IN1HSTR>,<INSTR>
	IF1hB <INSTR>,<EXIT>
]>
 
;+.PARA -2(8
;XXXWRN	Macro 2Hsimilar to the XX2hXERR macro except3 that a
;warning3( message is issue3Hd rather than a f3hatal and
;-the d4efault PDP-10 ins4(truction to be ex4Hecuted is "JRST .4h+1".
	DEFINE IW5RN (COD,MSG,INSTR5(),<
I'COD:	JRST5H	[
	OUTSTR	[ASCI5hZ \
% I'COD MSG6\]
	IFNB <INSTR>6(,<INSTR>
	IFB <I6HNSTR>,<JRST .+1>
]>
 
;+.PARA -78
;XXXNME	Macro 7(to call another m7Hacro with the ver7hsion number as an8 argument.
;This8( macro is given t8Hhe name of anothe8hr macro to call w9ith the ASCII ver9(sion
;number as 9Hthe only macro ar9hgument.
;-
 
	:DEFINE	INME(MCRN:(ME)<
IFG G,<
	:HMCRNME'(<%BDE(:hF)-G>)
>
IFE ;G,<
	MCRNME'(<%;(BDE(F)>)
>>
 

F)>)
>>

DZe
		..FLG=
		IFB <C>,B<IFB <B>,<
			.MSK==RGTMSK(<<^B(-<<..MSK>>>>)	
	BH		IFEF...MSK,<..O
			..MSK==0		
				.MSK==-1		
			 
			BYTM(A,<.

Eh
			..FLG==-1			(
		>> 
		IFNB <XB>,<.SIZ==^D<B>x>	
 
		IFNB <C >,<		
			BYTM	( 8A,MASK.(.SIZ,C)) X 
			..FLG==-1		 x
		> 
 
		IFE !..FLG,<IFGE <^D<.!8SIZ>-^D36>,<	
		!X	WORD(A,<^D<.SIZ!x>/^D36>) 
			IFN" <<^D<.SIZ>-<^D<."8SIZ>/^D36>*^D36>>"X,<	
				BYT(...,"x<<^D<.SIZ>-<^D<.S#IZ>/^D36>*^D36>>)#8 
				PURGE $XS.#X..,XS$...,XSB...
			> 
 
			..F$LG==-1	
		>> 
 $8
		IFE ..FLG,<IF$XE <^D<.SIZ>-^D18>$x,<	
			HALF(A)	%
			..FLG==-1	
%8		>> 
 
		IFE .%X.FLG,<		
			..BI%xTS==MASK.(^D<.SIZ&>,<^D<.SIZ>-1>) 
 
			REPEAT <^D&X36-^D<.SIZ>+1>,<	&x
				IFE ..FLG,<'	
					IFE <..BI'8TS&..MSK>,<	
			'X			..MSK==..MSK!.'x.BITS 
						..F(LG==-1	
					> ;(8 End of IFE <..BI(XTS&..MSK>
 
			(x	IFE ..FLG,..BITS)==..BITS_<-1> 
	)8			> 
			> 
 
)X			IFE ..FLG,<	
)x				..BITS==MASK.*(^D<.SIZ>,<^D<.SI*8Z>-1>) 
				..OF*XF==..OFF+1	
				*x..MSK==..BITS	
	+		> 
 
			DEFSM+8.(XS$A,..BITS) 
			DEFSM.($XSA,+x..OFF)	
			DEFST,.(XSBA,$XSA,XS$,8A) 
			SHOW.	$X,XSA	
			SHOW.	XS$A	
		> 
	VIEg%P -Z}
		IFN B-8&..MSK,<	
			..M-XSK==0	
			..OFF=-x=..OFF+1	
		> 
. 
		..MSK==..MSK.8!B	
 
		DEFSM..X($XSA,..OFF)	
	.x	DEFSM.(XS$A,B)/	
		DEFST.(XSBA/8,$XSA,XS$A) 
	/X	SHOW.	$XSA	
		SHOW.	XS$A	
	G$I3P @G%P ?G&LWP G'zP @GthP `GtiP Gt;2P'GtkQ Gv

zQkxGvTP'pGvYQ xG$h 
		A	(BDAG1,CD.AG1
	TAG1,0,<D>)G$i 
		A	(BDAG2,CD.AG2
	TAG2,0,<D>)G$;2 
		A	(BDCMD,CD.CMD
	TCMD,0,<D>)G$k 
		A	(BDFLG,CD.FLG
	TFLG,0,<D>)G&

z^
		A	(BDPST,CD.PST
	TPST,0,<D>)G&T 
		A	(BDQRI,CD.QRI
	TQRI,0,<D>)G&Y 
		A	(BDUDC,CD.UDC
	TUDC,0,<D>)GrzQ GtQ GtQ Gt;Q GtXpQ @Gt[vQ GuH`Q  Gum6Q Gv9Q @GvSQ Gv,zQ Gv>6Q  G @ G"\[` uX_1
	XCT	EOXuxCTS+A-1	
	 TRNAv			
	  JRST	B		

	`mJRST	B		G$$82Q G$$;P'G$$=Q xG$&LWQ G&t82 
		A	(BICAD,CI$CAD00000,<D>)
	0G&t; 
		A	(BICLN,CI$CLN
	NCLN,0,<D>)G&t= 
		A	(BICTY,CI$CTY
	NCTY,0,<D>)G&vLW 
		A	(BITRN,CI$TRN00000,<D>)
	)G8$-Q G8$.:Q G8$;RQ G8$[RP'G8$kQ xG8%SQ G8%KxQ 0G8%\UQ @G8&Q G8&=Q  G:$- 
		A	(BNBTS,CN$BTS
	DBTS,0,<D>)G:$.: 
		A	(BNBYT,CN$BYT)
	DBYT,0,<D>G:$;R 
		A	(BNCND,CN$CND
	DCND,0,<D>)G:$[R 
		A	(BNEND,CN$END
	DEND,0,<D>)G:$k 
		A	(BNFLG,CN$FLG
	DFLG,0,<D>)G:%S 
		A	(BNINF,CN$INF
	DINF,0,<D>)G>qcG T("...CON A ...CON A G>tCG Th&..COND A ..COND A GH$8tQ @GH$<ZQ  GH$=Q GH$J1Q  GH$J6Q GH$KQ GH%hyQ GH%lVQ @GH%mxQ GH&+Q GH&-1Q GH&8yQ GH&H1Q GH&MQ @GH&x8Q GK @ GK$[Z

[(e\
	...A==

[H-1		
	TABENT	A,<B>	
BENT	A,GK%T

CeV
    .XCR

BhEF			
    DEFINE

BH ..CRT(LIST),<

FHIRP <LIST>,<

Fh  ...'LIST==0

G   .XCREF ...'LIS

G(T
	>
    >

GH  ..CRT(<INT,WVT,

GhWFF,BCK,SPC,DBS,D

HLF,DVT,DFF,DCR,CR

H(B,CBS,CTU,FIN,ERS

HH,DEL,DSP,XYP,DLL,

HhINL,ICH,DCH,TCH,S

ICR,LIN,WID,CIN,CP

I(P,CDC,CIC,CDL,CIL

IH,CRP,CDE,SDN,SUP>

Ih)
    PURGE ..CR

JT			
    .CREF

J(	
    INTERN AT

JHBL		
    TABDEF

Jh(A,$CR,0)

K

DEFINE	CRTEND<

K(


	AFLG==:IF

KHN <...CTU><CR$CTU

Kh>!IFN <...DLF><CR

L$DLF>

    DEFI

L(NE ...CRT(NAME,DE

LHFAULT),<
	IFE ..

Lh.'NAME,<
	    TA

MBENT (NAME,<DEFAU

M(LT>)
	> 
    >

MH



	LSTOF.

Mh		
	...CRT(INT,<

NJFCL>)		
	...CRT

N((CTU,<PUSHJ P,.TC

NHRLF>)	
	...CRT(C

NhIN,<SETZ T1,>)

O
	...CRT(CDE,<MOV

O(E T1,T1>)	
	...C

OHRT(CRP,<MOVX T1,.

OhINFIN>)	
	...CRT

P(CIL,<MOVX T1,.IN

P(FIN>)	
	...CRT(C

PHDL,<MOVX T1,.INFI

PhN>)	
	...CRT(CIC

Q,<MOVX T1,.INFIN>

Q()	
	...CRT(CDC,<

QHMOVX T1,.INFIN>)

Qh
	...CRT(CPP,<MO

RVX T1,.INFIN>)

R(	...CRT(DEL,<PUSH

RHJ P,SC$DEL>)	
	.

Rh..CRT(XYP,<JFCL>)

S		
IFE ...SDN,	.

S(..CRT(DLL,<JFCL>)

SH		
IFE ...SUP,	.

Sh..CRT(INL,<JFCL>)

T		
	...CRT(ICH,<

T(JFCL>)		
	...CRT

TH(DCH,<JFCL>)

Th...CRT(TCH,<PUSHJ

U P,SC$CHR>)	
	..

U(.CRT(DLF,<JFCL>)

UH	
	...CRT(DVT,<J

UhFCL>)		
	...CRT(

VDFF,<JFCL>)		
	.

V(..CRT(FIN,<JFCL>)

VH		
	LSTON.

Vh


    DEFINE

W...CRT(LIST),<

W(.XCREF		
	IRP <L

WHIST>,<IF2, PURGE

Wh...'LIST>
	.CREF

X		
    > 
    .

X(..CRT(<INT,WVT,WF

XHF,BCK,SPC,DBS,DLF

Xh,DVT,DFF,DCR,CRB,

YCBS,CTU,FIN,ERS,D

Y(EL,DSP,XYP,DLL,IN

YHL,ICH,DCH,TCH,SCR

Yh,LIN,WID,CIN,CPP,

ZCDC,CIC,CDL,CIL,C

Z(RP,CDE,SDN,SUP>)

ZH
    PURGE ...CRT

Zh		
 TABEND		
>
$<TABEND		$I8Q @GL%|Q pGL&,Q xGO$<z 
		A	(BSCST,CS$CST
	TCST,0,<D>)GO$I8 
		A	(BSDEP,CS$DEP
	TDEP,0,<D>)GO%| 
		A	(BSOPR,CS$OPR
	TOPR,0,<D>)GO&, 
		A	(BSRPT,CS$RPT
	TRPT,0,<D>)GP$Q @GP$Q xGP$Q GP$P'GP$;2Q GP$;RQ GP$=Q GP$kQ `GP%{P'GP%}Q  GP%}Q GP%}Q xGP&=Q GP&LQ GR 
		A	(BTALN,CT$ALN
	BALN,0,<D>)GR 
		A	(BTALW,CT$ALW00000,<D>)
	0GR 
		A	(BTATY,CT$ATY
	BATY,0,<D>)GR;2 
		A	(BTCMD,CT$CMD00000,<D>)
	)GR;R 
		A	(BTCND,CT$CND
	BCND,0,<D>)GR= 
		A	(BTCTB,CT$CTB
	BCTB,0,<D>)GRk Ahnr
		A	(BTFLG,CT$FLG
	BFLG,0,<D>)GR{ 
		A	(BTOLN,CT$OLN
	BOLN,0,<D>)GR} 
		A	(BTOTH,CT$OTH00000,<D>)
	0GR} 
		A	(BTOTY,CT$OTY
	BOTY,0,<D>)GR= 
		A	(BTSTK,CT$STK
	BSTK,0,<D>)GRL 
		A	(BTTPT,CT$TPT00000,<D>)
	)GR/
	DEFINE.(OPCODE,TEX
	OPCODE	<<TEXT>>>PCODE	<<TH
9P }H:DtP H:mQP tH:o	YP PH:o	[P H:t-3P H;KP HH;&

WP $H;'	P @I$P`X%*II46 Mx\oSTORE(T1,B,,A)TORE(T1,I5MY 8Y
	EXTERN %LVINI, %LVTRM, %XLVVID, %LVMEM, %LxVSYM, %LVUUO
	EXTERN %LVPRS, %LVC8MD, %LVSRH, %LVECXM, %LVFIL, %LVCOMx
	EXTERN %LVUPD,	 %LVMVM
	EXTERN 	8%LVMSC, %LVACT, %	XLVADM, %LVADS, %L	xVBEE, %LVCDC
	EX
TERN %LVDEC, %LVD
8TM, %LVDTP, %LVHE
XA, %LVHZL, %LVHP
x
	EXTERN %LVTVI, %LVRAY, %LVTEK
8
%TECV1==:%LVINI+X%LVTRM+%LVVID+%LVxMEM+%LVSYM+%LVUUO


%TECV2==:%LVPRS

8+%LVCMD+%LVSRH+%L

XVECM+%LVFIL+%LVCO

xM
%TECV3==:%LVMV

;mTergdependenttlversion
;number 8is generated for Xthese modules. Thxis is because there
;is no storag8e in these moduleXs that needs to bxe saved in the EE file.

%TECT1=8=:%LVMSC+%LVACT+%XLVADM+%LVADS+%LVBxEE+%LVCDC
%TECT2==:%LVDEC+%LVDTM+8%LVDTP+%LVHEA+%LVXHZL+%LVHP
%TECT3x==:%LVTVI+%LVRAY+%LVTEK
%LVRAY+I63G Up5

	DEFINE	VA(MACRO,AC,Y,LISV0T),<
		MACRO	(ACVP,Y,B,C,D,A,E,<LIST>)
	> 
I6;' WM
	IF1,<IFW0DEF A,<
		.IF WPA,LOCAL,<
			IFNWp <A-B>,<
			PRXINTX ? A is multX0iply defined>>
	XP	.IFN A,LOCAL,<PXpRINTX ? A is mulYtiply defined>>
Y0	     IFNDEF A,<YPA==B>>
	IF2,<A==B>
	IF2,<I6= Zq

	..NUM==Z01
	..SGN==0
	.XZPCREF ..NUM,..SGN	Zp
	IFNB <D>,<..N[UM==D> 
	IFNB <[0E>,<		
		.COND([P<<<..IFIDN(SINGFL[p,SIGNED)&..IFE(C\+1)>,<..SGN==D%.S\0GN>>,			<<..IFIDN\P(SINGFL,UNSIGNED)\p>,<>>,			<<0>,<PR]INTX ? E should ]0be either SIGNED ]Por UNSIGNED>>>)
]p	> 
	DEFS..(A,<^B>,<C>,\..NUM,\..SGN)
..NUM,\I.@ K\e
 IFN <<K8B>-<C>+1>,<
	MOKxVE	A,B		
	MOVEKX	A+1,C		
 >
 L0IFE <<B>-<C>+1>LP,<
	DMOVE	A,B		
 >
E	A,B	I?L@ (\E
ATBL:
H
    DEFINE STR(STRING,ARG),<
	.DXCREF		
	%%..=0
	.CREF		
	.XCREDXF	%%..	
	IRPC <SETRING>,<%%..==%%.Dx.+1>
	[POINT	7,[E8ASCIZ |STRING|]
EX	EXP	%%..
	STRSUFB	(ARG)
	]
	IF2Ex, PURGE	%%..
   H8 >

	STRTBL		
HXALEN==.-ATBL
ALEN==.-ATBL
I?}

=(d

    DE

=HFINE SW(NAME,PTR,

=hRTN,VALUE,FLAGS)<

>EXP SIXBIT /NAME/

>(>

AN:	B

>H
  AL==.-AN

>h
DEFINE SW(NAME,P

?TR,RTN,VALUE,FLAG

?(S)<
	PTR
>

?HAP:	B		

DEFIN

?hE	SW(NAME,PTR,RTN

@,VALUE,FLAGS),<EX

@(P VALUE>

AV:

@HB		

DEFINE	SW

@h(NAME,PTR,RTN,VAL

AUE,FLAGS<0>),<

A(   IFNB <RTN>,<XW

AHD RTN,FLAGS>

Ah IFB  <RTN>,<XWD

B0,FLAGS>
>
AR:	B		

>
AR:IC.@ I\U
 IFN <<I8B>-<C>+1>,<
	MOIXVEM	A,B		
	MOVIxEM	A+1,C		
>
 IFE <<B>-<C>+JX1>,<
	DMOVEM	A,B		
 >
M	A,IR/
IFN$A&T<
	DEFINE	(A,B,C,D,E,
	.CREF
	EXP'<<Z'A'B'H'I'J'
	.XCREF			
	> 
	XTEXT.	TEXT.
	CTE.
> 
IFE$A&T<
	.EWRD.
> 
	..TYPE==0
	..FRST==0
0
IVnLV

_Hf
	PROLOG

_h(A,<Dummy table

`defs for A termi

`(nals>)

	LOWVER

`H(A,0)		; Define

`hto indicate the l

aow segment is

a(		; not included.

aH

	IRP B,<

ahENTRY	VBTBL	; De

bfine the entry na

b(me for this termi

bHnal
		VBTBL==VC

bhRTTBL##	; Define

cthe table name

c(	VBFLG==:VCRTFLG

cH##	; Define the f

chlags
	> ; End of IRP
 ; End ofK:&3P @K:&= }sM`
 
		IFN`0 ..MSK,<..OFF==..oPOFF+1>	
						
R(		DEFSM.($XSA,..NOFF)	
 
		SHOW.$x	$XSA	
		IF2,<
			IFDEFE...MSK,SK>C(
			IFDEF ..BITSp,<SUPPRESS ..BITS
			IFDEFE.SIZ,IZ>
X8			IFDEF ..MSK,<S

EHUPPRESS ..MSK>
	<(		IFDEF ..OFF,<SU>@PPRESS ..OFF>
		Q(	IFDEF ..FLG,<SUP=(PRESS ..FLG>
		>?`; End of IF2
		I#F1,<
			IFDEF...REF ...M=@SK>
			IFDEF ..B$pITS,<.XCREF ..BIT_ S>
			IFDEF .SIZeP,<.XCREF .SIZ>
	TH		IFDEF ..MSK,<.XFHCREF ..MSK>
			IRhFDEF ..FLG,<.XCREFhF ..FLG>
			IFDEFF ..OFF,<.XCREF .9X.OFF>
		>; End of IF1
	; End oFZLEN
	K;  hy^.TSA==CM.TSA==CK=
%PK=P K=P K>$X`P K?4P KH$;wQ KH$LhQ KH$LqQ @KH$kQ xKH$lzQ KH%MVQ ~KH&	\P'KK;w 
		A	(BRCON,ER$CON00000,<D>)
	0KKk 
		A	(BRFLG,ER$FLG
	RFLG,0,<D>)KKlz 
		A	(BRFST,ER$FST00000,<D>)
	0KKMV 
		A	(BRLVL,ER$LVL
	RLVL,0,<D>)KK|@ vh_6
	.ERR	A##
	
	.ERR	AKK	\ 
		A	(BRPFX,ER$PFX
	RPFX,0,<D>)KKN wh_\


	PRINTX	xB		

	$TXTPT		x(		
	E.B==:.-PTRxHBEG		
	$BUILD(ERxhR,$ERLEN)		
	$SEyT	FLG,0			
	$SETy(	LVL,A		
	$SET	yHPFX,<SIXBIT |   yhB|>	
	$SET	FST,ze			
	$SET	CON,z(f			
	$EOB				
zH	$TEXT				
e:!	zh$STRING(<C>)			
f:!	$STRING(<D{(>)		

	.XCREF	{He,f
	SUPPRESS e,f

	RESS L@ L:

;Q L:)`Q  L:)iQ @L:;Q kpL:{Q L:)1P$L:%{RQ L:&Z@P"L:, P!L:,:Q L:,;2P @L:4;wP L:5<tQ L:=xvQ L:d[Q L:l8vQ @L:v<TQ L:~Q  L;X:Q  L;[@Q L;iTQ L;LvQ L;(tQ L;LHP  L;LIP L;&(1Q @L;'sQ Mt+Q Mt,TQ Mt-3P'Mt:Q `Mt=Q MtI3Q MtI;Q MtX@Q Mt[XP$Mt[sQ @Mt[vQ  Mt\YQ xMt^Q xMtiQP'MtkQ Mu	<Q  Mu

Q Mu@Q MuXQ MuyQ MuLwQ Mu[rP Muh6Q MuiQ MuiP"MukP!MukrQ MuktQ @MukvQ  MukwQ MumP  Mu|Q @Mu}:Q Mv3Q Mv

Q Mv

WP'~MvMv(wQ Mv8wQ Mv9IQ Mv9IQ Mv9JQ Mv9JQ Mv9RQ Mv:=Q MvK2P @MvK8Q Mvi9Q M+ #r
		A	(B"x,C,.FDBLK,FD.BLK#H,1,FDBBLK,400000000000,<D>)
	0M,T `qg
		A	(BX,C,.FDBRH,FD.BRHx,1,FDBBRH,400000000000,<D>)
	0M-3 @q;
		A	(B,C,.FDBUF,FD.BUF0,1,FDBBUF,0,<D>)
	BBUF,0,<D>)M: @q'
		A	(B ,C,.FDCHN,FD.CHNp,1,FDBCHN,0,<D>)
	BCHN,0,<D>)M= 8qw
		A	(BX,C,.FDCTR,FD.CTRx,1,FDBCTR,400000000000,<D>)
	0MI; 
		A	(BDDEV,FD.DEV00000,<D>)
	0M\Y Pq0
		A	(B0,C,.FDERR,FD.ERR,1,FDBERR,0,<D>)
	BERR,0,<D>)M^ 
		A	(B8,C,.FDEXT,FD.EXTX,1,FDBEXT,0,<D>)
	BEXT,0,<D>)MiQ !Hr
		A	(B",C,.FDFFC,FD.FFC!h,1,FDBFFC,0,<D>)
	BFFC,0,<D>)Mk 0q
		A	(B,C,.FDFLG,FD.FLG`,1,FDBFLG,400000000000,<D>)
	0My  p}
		A	(B@,C,.FDIOS,FD.IOSP,1,FDBIOS,400000000000,<D>)
	0MLw Xr
		A	(Bx,C,.FDLSN,FD.LSN ,1,FDBLSN,400000000000,<D>)
	0M[r (p 
		A	(BH,C,.FDMOD,FD.MOD,1,FDBMOD,0,<D>)
	BMOD,0,<D>)Mh6 (p
		A	(BH,C,.FDNAM,FD.NAM,1,FDBNAM,400000000000,<D>)
	0Mkr 
		A	(BDNOD,FD.NOD00000,<D>)
	0M

 Hp.
		A	(Bx,C,.FDPPN,FD.PPNh,1,FDBPPN,400000000000,<D>)
	0M

W
		A	(B,C,.FDPRO,FD.PROh,1,FDBPRO,0,<D>)
	BPRO,0,<D>)M
		A	(BX,C,.FDPTR,FD.PTRx,1,FDBPTR,400000000000,<D>)
	0M(w 
		A	(BDRCN,FD.RCN
	BRCN,0,<D>)M9I Hpz
		A	(Bh,C,.FDSF2,FD.SF2(,1,FDBSF2,400000000000,<D>)
	0M9I pq
		A	(B,C,.FDSF3,FD.SF30,1,FDBSF3,400000000000,<D>)
	0M9J q


		A	(Bp,C,.FDSF4,FD.SF4@,1,FDBSF4,400000000000,<D>)
	0M9J  q
		A	(B,C,.FDSF5,FD.SF5P,1,FDBSF5,400000000000,<D>)
	0M9R 
		A	(BFD,FD.SFD(,1,FDBSFD,400000000000,<D>)
	0M:= $(r%
		A	(B$,C,.FDSIZ,FD.SIZ$X,1,FDBSIZ,400000000000,<D>)
	0Mi9 8p)
		A	(BX,C,.FDVER,FD.VER,1,FDBVER,400000000000,<D>)
	0M

NUM	(A)M+y y"
FER	(NAD)		; File not on (a disk
FER	(REA)H		; Attempt to reHad from a file not opern for readi(ng
FER	(WRI)		; HSave as REA, excexpt for writting
FER	(MON,R)		; Mo8nitor error
FER	X(NNS)		; No netwoxrk support in this monitor
FER	(O8PN)		; This file Xis not open
FER	x(PRO)		; Protection is out of rang8e
FER	(IVN)		; Ixllegal version nuHmber
FER	(IPS)		h; Illegal path spHecification
FER	((DNN)		; Double n(ode name is illeghal
FER	(DDN)		; Double device nam(e is illegal
FERH	(SNT)		; SFDs nehsted too deeply
	FER	(ELS)		; Exte	(nsion longer than	H six characters
	hFER	(DEI)		; Doub
le extension ille
(gal
FER	(NSS)		;
H Null SFD specifi
hed
FER	(DFN)		; Double file name (illegal
FER	(SRVH)		; Switch requihres a value
FER

(AMS)		; Ambigiou

(s switch name
FE

HR	(UNS)		; Unknow

hn switch name
FE(UKW)		; Unknow
FER	(AdAmbigious 
FER	(IMD)		; Illegal mode( for device
FER	H(NXD)		; Non-exishtent device
FER	(ITS)		; Illegal (TMP: file specifiHcation
FER	(ITF)h		; Illegal TMP: function
FER	(EO(F)		; End of fileH encountered on ihnput
FER	(CRS)		; Can not rename (across structuresH
FER	(IVC)		; Ilhlegal character in file specificat(ion
FER	(DIP)		;H Device implies phath, but a path was given
FER	(FA(E)		; File alreadHy being edited
FhER	(IOD)		; Illegal operation for (dump mode file
ump mode file
M&dI6 ,0rg
		A	(B,P,C,$FLDEL,FL$DEL,p,1,FILDEL,0,<D>)
	LDEL,0,<D>)M&dK )`rU
		A	(B)@,C,$FLDLC,FL$DLC*X,1,FILDLC,0,<D>)
	LDLC,0,<D>)M&dK 'PrA
		A	(B'p,C,$FLDLL,FL$DLL(,1,FILDLL,0,<D>)
	LDLL,0,<D>)M&d\Y -@rp
		A	(B-`,C,$FLERS,FL$ERS.,1,FILERS,0,<D>)
	LERS,0,<D>)M&eQ (0rJ
		A	(B),C,$FLINC,FL$INC) ,1,FILINC,0,<D>)
	LINC,0,<D>)M&eV &0r7
		A	(B&P,C,$FLINL,FL$INL&p,1,FILINL,0,<D>)
	LINL,0,<D>)M&fy +(r^
		A	(B+H,C,$FLPOS,FL$POS+h,1,FILPOS,0,<D>)
	LPOS,0,<D>)M&fHV 

	$BUIL XD	FIL,$FLLEN	
	IPFNB <A>,<$SET(IN	HL,^D<A>)> 
	IFN"XB <B>,<$SET(DLL,@h^D<B>)> 
	IFNB &<C>,<$SET(INC,^D%p<C>)> 
	IFNB <%D>,<$SET(DLC,^D<%8D>)> 
	IFNB <E>8,<$SET(POS,^D<E>.@)> 
	IFNB <F>,<.`$SET(EOL,^D<F>)>/ 
	IFNB <G>,<$S/ ET(ERS,^D<G>)> 
	$EOB			
)> pfNUM (A)M0$I6P'M0$KP'M0$KP'M0$\YQ xM0%QQ xM0%VQ xM0&yQ xM2

p /@f(	DEFSM.(QReX$A,<.BIT.>)
	SUPRES	BIT$$$
	SHW.	<<QR$A>>
2QRIFN&QR$FLG+1,IF1>, PRINTX ? Flag>` mask for QR$A e
   IFE Q

FR$FLG+1, IFE QR$= A, PRINTX ? Flag

emask for QR$A exceeded
q AexM4%9< 
		FK	DFT

D(,.ASCII,^D7	
		F	ASC,ASCII,^D7	
h
		FK	SXB,SIXBIT,^D6	
		FK	LSA,LS(A,^D7	
		FK	TRM,H.TRM,^D7	
		FK	EhRR,.ERR,^D7	
		F

K	BIN,.BIN,^D36

(
		FK	PIM,.PIM,^D

H8	
		FK	DMP,DUMP,^D36	
		,DUMPMQ
Q MQP MR$XZP MR]P MR]@Q MS8wP MSDP M\u|RQ O2|,` |cf


GLOB|( <	TECO,	I$JOB,	P|HDLSAV,	PDL,	QRGST|hK,	PFL,	SIXJOB,	C}PFLAG,	AUTOF>
GL}(OB <	CCLSW,	IMPBE}HG,	CODBEG,	TXTBEG}h,	PTRBEG,	ONCBEG,~	JIFSEC,	PHYSON,	~(FSTCMD>


GLOB~H <	F$INIT,	F$OPEN~h,	F$PARS,	F$READ,	F$WRIT,	F$CLOS,	(F$RENM,	F$USET>
HGLOB <	F$ERR,	MYPhATH,	MYJOB,	MYNOD

E,	MYPPN,	F$SETI,

(	F$SXBT,	F$CHKP>

H
GLOB <	F$RSET,	F

h$DFLT,	LASFDB,	LA

SSXB,	LASOCT,	LAS

(SWT,	SWTIMD,	SWTO

HMD>
GLOB <	F$EB,

h	F$KEY,	F$CORE,	F

$COPY,	RTN,	FPTH,

(	DEFPTR,	LASSWP>

H
GLOB <	FFIFDB,	F

hFIPTH,	F$ENQ,	F$D

EQ,	F$RBUF,	F$WBU

(F,	GNBCHR>


G

HLOB <	.SAVE1,	.SA

hVE2,	.SAVE3,	.SAV

E4,	.SAVET,	.SAVE

(A,	.SVCH,	.SV11>

H
GLOB <	.POPJ,	.P

hOPJ1,	.T1PJ,	.T1P

J1,	DISPAT,	DISP1

(,	NDISPT,	.T2PJ>

H
GLOB <	NDISP1,	.

hT2PJ1,	CKSYM,	LOK

NAM,	LASNAM,	.RET

(0,	.RET1,	.RET2>

H
GLOB <	FNDSTR,	F

hNDKWD,	.SAVT3,	.S

AVT2,	.SAVT1,	.IN

(SRT,	INSCHR,	INSQ

HRG>
GLOB <	SCNKE

hY,	SCNKWD,	LASSPT

,	.IDECW,	.IOCTW,

(	.ZCHNK,	.SKTPT>

H


GLOB <	S$INI

hT,	S$CINI,	S$LABL

	,	S$QREG,	S$CMPS,

	(	S$QRGC,	S$TAGC,

	HQRGLNK>


GLOB

	h <	CHRLEN,	P$INIT

,	C$INIT,	CB$INI,

(	CB$MOV,	CB$STO,

HC$XCT,	SAVEP>
GL

hOB <	CMDSTA,	RCH,

	SKRCH,	REE,	VALR

(ET,	COMND,	RETZER

H,	RTONES>
GLOB <

h	SKAN,	REEAT,	XCT

BUF,	CMDSVP,	CMDS

(TR,	LSTCMD,	BACKU

HP,	C$BLIN>
GLOB

h<	XCTING,	SYL,	NU

MB,	DLIM,	EQM,	ET

(VAL,	PASRET,	XSPD

HL>
GLOB <	ALTMOD

h,	CAND,	CDNUM,	CL

OSEP,	COMMA,	COR,

(	MINUS,	OCTIN>
G

HLOB <	OPENP,	PLUS

h,	SLASH,	STOP,	TI

MES,	UAR,	AUTBUF,

(	AUTCNT>
GLOB <

HC$SCMD,	SKANST,	V

hALRT2,	STRRET,	ST

RARG,	GETSTR,	SAR

(G$1,	SARG$2>
GLO

HB <	CPYAG1,	CPYAG

h2,	C$XCTI,	CLNXS>




GLOB <	T$IN

(IT,	T$CINI,	T$SRT

HN,	T$IBUF,	T$OCHR

h,	T$TCHR,	T$ACHR>


GLOB <	T$TYPE,

(T$ERTY,	TYPEAC,	T

HTYOUT,	T$SECH,	T$

hCECH,	TRMTYP>
GL

OB <	.TCRLF,	ALTE

(O,	ALTCNV,	ECHOFF

H,	TRMSOP,	TRMOCH,

h	TRMTOC>
GLOB <

TTYFDB,	TRMUDX,	T

(RMSPD,	TYCASF,	TY

H.OBY,	TY.IBY,	TY.

hOST,	TY.IST>
GLO

B <	TRMWID,	TRMLE

(N>


GLOB <	AC

HMD,	ATSIGN,	BAKSL

h,	BELDMP,	CASE,	C

KNCC,	CVTSPC,	WRT

(BUF>
GLOB <	CHAR

HAC,	CLOSEB,	CMNT,

h	CNTRUP,	COLON,	D

ELETE,	LASQRG,	RQ

(RGTB>
GLOB <	END

H1,	EOF,	EXCLAM,	F

hFEED,	KILL,	GETFD

O,	GETCMD,	GETTXT

(>
GLOB <	GETFDI,

H	GRTH,	GTIME,	HOL

hE,	INSERT,	INSE.0

,	INSE.I,	IUSET,

(JMP>
GLOB <	LAT,

H	LINE,	LOWCAS,	LS

hSTH,	MAC,	MJRST,

OG,	OPENB,	PCNT>

(
GLOB <	PNT,	PRNT

H,	PUNCHA,	QGET,	Q

hPAGE,	QREG,	QUEST

N,	QYANK,	REVERS>

(
GLOB <	SEMICL,

HSETMCH,	SPTYI,	SQ

hUOTE,	STDCAS,	TAB

,	TYPE,	TYPE.1,	U

(SE>
GLOB <	VCMD,

H	XCMD,	YANKER,	PU

hNSCH,	YANK,	FFDCM

D,	LASLBL,	QTXTST

(>
GLOB <	BTAB,	C

HKEOL,	SCNQRG,	QRE

hGV2,	QTXTEI,	C.W,

	C.V,	QTAB>
GLOB

( <	SETINC,	PUTINC

H,	GETINC,	MAC.0,

hREDQRG,	JMP1,	QNM

LEN,	QNMTBL>
GLO

(B <	QRNTPT,	DQ.A,

H	DQ.C,	DQ.D,	DQ.E

h,	DQ.F,	DQ.G,	DQ.

 G>
GLOB <	DQ.L,

 (DQ.N,	DQ.S,	DQ.T,

 H	DQ.U,	DQ.V,	DQ.W

 h>


GLOB <	E$I

!NIT,	E$RANG,	E$LA

!(NG,	MODKEY,	DECDM

!HP,	LOGCHR,	SWTBUF

!h,	CUREDT,	CURQRG>

"
GLOB <	OPNWRA,

"(EBCMD,	ECCMD,	EDC

"HMD,	EECMD,	CLOSEF

"h,	EGCMD,	ERRSET>

#
GLOB <	EICMD,	EK

#(ILL,	MAKLOG,	EMTA

#HPE,	ENCMD,	OLDMOD

#h,	EPCMD,	CRTGEN>

$
GLOB <	EQCMD,	OP

$(NRD,	AUTOTY,	TYOC

$HTL,	TYCASE,	OPNWR

$h,	FINISH,	CLSFIL>

%
GLOB <	ZERDIR,

%(CRTPTR,	PARPTR,	E

%HOMAX,	MODPTR,	PRM

%hERR,	EJCMD,	LOGC.

&0>
GLOB <	RUNDEV

&(,	RUNNAM,	RUNPTH,

&H	RST,	EOXCTS,	EQU

&hEST>

GLOB <	ER

'RQUE,	ERRIDX,	ERF

'(CNT,	ERRSLH,	ERRD

'HTM,	ONCFLG>
GLOB

'h <	U$INIT,	U$CINI

(,	U$PDLO,	CEO,	ER

((RFDB,	U$STOP>
GL

(HOB <	ERRLEN,	ERRS

(hTS,	ERRPT,	EOFLAG

),	ERRCH,	TRPPDL>

)(

GLOB <	M$INIT,

)H	M$XPND,	M$GBLK,

)hM$GTXT,	M$RBLK,	M

*$USEB,	M$RELB,	M$

*(INSS>
GLOB <	M$S

*HRNK,	M$MSTR,	M$GC

*h,	M$ZBLK,	M$ACHR,

+	M$XMOV,	M$RTPT,

+(CPYCTB>
GLOB <	E

+HRRQRG,	CMDBUF,	TX

+hTBUF,	FSTBLK,	DEL

,TXT,	M$DCTB,	DELC

,(ND,	M$CPCN>
GLOB

,H <	M$LINK,	M$ULNK

,h,	M$APPD,	M$MLNK,

-	M$MCOR,	M$CPGS>

-(

GLOB <	SR$INI,

-H	SERCH,	N$CMD,	FN

-hD2,	SERCHJ,	LARR>

.
GLOB <	SRHMOD,

.(STAB,	SRHCTR,	SRH

.HARG,	VVAL,	SFINDF

.h>
GLOB <	FDSRCH,

/	FKSRCH,	FNSRCH,

/(FSSRCH,	FW$CMD,	S

/HRHLEN>

GLOB <

/hSC$RVD,	SC$RTM,	S

0C$RST,	SC$FIN,	SC

0($POS,	SC$STR,	SC$

0HPT,	SC$UPD>
GLOB

0h <	SC$BEG,	VIDEO,

1	SETWIN,	CRTFNC,

1(SC$CHR,	SCRNAD,	S

1HC$GSC,	SC$ERS>
G

1hLOB <	SC$MES,	CRT

2TYP,	MESFLG,	CURP

2(OS,	SC$DEL,	SC$CL

2HR,	SC$UPS,	SC$CLS

2h>
GLOB <	V$ICHR,

3	V$OCHR,	V$ECHO,

3(V$CINI,	SETCRT,	C

3HMDPOS,	SC$SCR,	CL

3hRLDB>
GLOB <	OLD

4CRT,	CRTSAV,	SC$R

4(EF,	SC$CIL,	SC$CD

4HL,	SC$FIL,	SC$CFL

4h,	V$DELC>
GLOB <

5	V$UPCM,	V$CTRG,

5(GETVID,	SC$IMG,	S

5HC$IM0,	SETLIN,	RT

5hNLIN,	CKTRM>
GLO

6B <	ASKPOS,	OUTFL

6(G,	TYIFLG,	FLSLDB

6H,	FNDLDB,	SC$WLN,

6h	SC$WRT,	VIDPOS,

7FNDCHP>
GLOB <	F

7(NCLST,	CSTLST,	FN

7HCBLK,	SUPDAD,	PTP

7hOS,	LINWDS,	CPSTB

8L,	CLRL.0,	VIDP.0

8(>
GLOB <	CHKTYI,

8H	CHKTY0,	NOTYIA,

8hVINADR,	SC$SSR,	C

9RTWID,	CRTLEN,	SC

9(RWID,	SCRNLN>

9HGLOB <	CHRTBL,	CH

9hRFLG,	ECMTBL,	ECM

:FLG,	FCMTBL,	FCMF

:(LG>
GLOB <	CRTTA

:HB,	NUMCRT,	CRTDSP

:h>

GLOB <	I$INI

;T,	I$SIMG,	I$CIMG

;(,	IMGFLG,	CDCMD,

;HFCCMD,	UPDBND,	I$

;hPRSC>
GLOB <	KEY

<LEN,	KEYTBL,	CTYL

<(EN,	CTYTBL,	TRMLE

<HN,	TRMTBL,	VV$CMD

<h>

GLOB <	IMPEND>
LOB <	IMPENQd` Ps
		.COND(P(<<<..MSK&LH.ALF>,

oX<DEFSM.(XS$A,LH.#PALF)>>,		<.<<..MS?@K&RH.ALF>,<DEFSM.
			..M

C(SK==LH.ALF		
			T(DEFSM.(XS$A,LH.A?HLF)>>>) 
 
		DEPhFSM.($XSA,..OFF)P(	
		DEFST.(XSBAE`,$XSA,XS$A) 
 2H
		..MSK==..MSK!0 XS$A	
		SHOW.	$0`XSA	
		SHOW.	XS$A	
	SHOW.	VIS; AP S;$k |@`	.BIT. <==|`LFTBT.(B)>
	DEF}INE	FLAG (NAM)
 } <	DEFSM.(AC'NAM}@,<.BIT.>)
	SUPPR}`ES	BIT$$$
	SHOW.~	<<AC'NAM>>
  ~  IFN B+1, IFN A~@C'NAM&<-B-1>, P~`RINTX ? Flag mask for AC'NAM exc eeded
   IFE B+@1, IFE AC'NAM, `PRINTX ? Flag mask for AC'NAM ex ceeded
  >
	.XC@REF	.BIT.,BIT$$$
	.BIT.,BIT$$$-1	$NAME,Y,S;%m6 X98	.INT. <==xB>
	DEFINE	NUM (NAM,SIZ<1>)
  <8	DEFSM.(DA'NAM,X<.INT. (,SIZ)>)
x	SHOW.	<<DA'NAM>>
   IFN C+1, 8IFN DA'NAM&<-<XC_-<ALIGN. (C)>>x-1>, PRINTX ? NUM field for DAxx8x symbols exceedeXd with symbol DxA'NAM
	SUPPRES	INT$$$			
 > 
	.8XCREF	.INT.,INT$$X$		
	DEFINE	ENDNxUM(NAM<MAX>)<
	    DEFSM.(DA'NA8M,<.INT.(,0)>)
	X    DA'NAM==DxA'NAM-1
	    PURGE NUM,ENDNUM
	>
UM,ENDNUM
	>==0?-1UE,A,A$FINE CFS;&= X28
 
	DEFIxNE	SYNSTR(OLD,NEW	),<
		SYN	CB'O	8LD,CB'NEW	
		S	XYN	BC'OLD,BC'	xNEW	
		DEFST.(A
'NEW,CB'NEW,B
8C'NEW) 
	> 

	
XDEFINE	WORD(NAM,N
xUMB<1>),<
		IFN <..MSK>,<..OFF==.8.OFF+1> 
		DEFSMX.(CB'NAM,..OFF)x	
		DEFSM.(BC'

NAM,FW.ORD) 
		I

8FE <NUMB-1>,DEFST

X.(A'NAM,CB'NAM

x,BC'NAM,NUMB,SI
		IFN><NUST.(A'N
 
		..MSK==0		
		..O8FF==..OFF+NUMB	
X		SHOW.	CB'NAM	x
		SHOW.	BC'NAM	
	> 
 
 
	D8EFINE	HALF(NAM),<X
		.COND(<<<..MSxK&LH.ALF>,<DEFSM.(BC'NAM,LH.ALF)8>>,		  <<..MSK&RHX.ALF>,<DEFSM.(BxC'NAM,RH.ALF)>>,		  <<0>,<..OFF==.8.OFF+1		
			..MSXK==LH.ALF		
			DxEFSM.(BC'NAM,LH.ALF)>>>) 
 
		8DEFSM.(CB'NAM,.X.OFF)	
		DEFST.(xA'NAM,CB'NAM,BC'NAM) 
 
		.8.MSK==..MSK!BC'XNAM	
		SHOW.	CxB'NAM	
		SHOW.	BC'NAM	
	> 
8
 
	DEFINE BYT(NXAM,SIZ,POS),<
		x..FLG==0		
		IFB <POS>,<IFB <SIZ>8,<
			...MSK==RGXTMSK(<<^-<<..MSK>x>>>)	
			IFE ...MSK,<..OFF==..OFF8+1	
				..MSK==0X		
				...MSK==-x1		
			> 
			BYTM(NAM,<...MSK>) 8
							
			..FXLG==-1			
		>> 
		IFNB <SIZ>,<.SIZ==^D<SIZ>>	
8
		IFNB <POS>,<		X
			BYTM	(NAM,MAxSK.(.SIZ,POS)) 
			..FLG==-1		
	8	> 
 
		IFE ..FXLG,<IFGE <^D<.SIZx>-^D36>,<	
			WORD(NAM,<^D<.SIZ>/8^D36>) 
			IFN <X<^D<.SIZ>-<^D<.SIxZ>/^D36>*^D36>>,<	
				BYT(...,<<8^D<.SIZ>-<^D<.SIZX>/^D36>*^D36>>) 
				PURGE CB...,BC...,A...
8			> 
 
			..FLXG==-1	
		>> 
x
		IFE ..FLG,<IFE <^D<.SIZ>-^D18>,8<	
			HALF(NAM)	X
			..FLG==-1	
x		>> 
 
		IFE ..FLG,<		
			..BI8TS==MASK.(^D<.SIZX>,<^D<.SIZ>-1>) 
 
			REPEAT <^D36-^D<.SIZ>+1>,<	8
				IFE ..FLG,<X	
					IFE <..BIxTS&..MSK>,<	
			 			..MSK==..MSK!. 8.BITS 
						..F XLG==-1	
					> ; x End of IFE <..BI!TS&..MSK>
 
			!8	IFE ..FLG,..BITS!X==..BITS_<-1> 
	!x			> 
			> 
 
"			IFE ..FLG,<	
"8				..BITS==MASK."X(^D<.SIZ>,<^D<.SI"xZ>-1>) 
				..OF#F==..OFF+1	
				#8..MSK==..BITS	
	#X		> 
 
			DEFSM#x.(BC'NAM,..BITS$) 
			DEFSM.(C$8B'NAM,..OFF)	
		$X	DEFST.(A'NAM,C$xB'NAM,BC'NAM) %
			SHOW.	CB'N%8AM	
			SHOW.	B%XC'NAM	
		> 
	> %x
	DEFINE	BYTM(NA&M,MASK),<
		IFN &8MASK&..MSK,<	
		&X	..MSK==0	
			..&xOFF==..OFF+1	
		'> 
 
		..MSK==.'8.MSK!MASK	
 
		'XDEFSM.(CB'NAM,.'x.OFF)	
		DEFSM.((BC'NAM,MASK)	
(8		DEFST.(A'NAM,(XCB'NAM,BC'NAM)(x 
		SHOW.	CB'N)AM	
		SHOW.	BC)8'NAM	
	> 
 
)X
	DEFINE ENDSTR(N)xAM<LEN>),<
 
		*IFN ..MSK,<..OFF=*8=..OFF+1>	
					*X	
		DEFSM.(CB'*xNAM,..OFF)	
 
	+	SHOW.	CB'NAM	
		IF2,<
			IFDE+XF ...MSK,<SUPPRES+xS ...MSK>
			IFD,EF ..BITS,<SUPPRE,8SS ..BITS>
			IF,XDEF .SIZ,<SUPPRES,xS .SIZ>
			IFDEF- ..MSK,<SUPPRESS -8..MSK>
			IFDEF -X..OFF,<SUPPRESS .-x.OFF>
			IFDEF ...FLG,<SUPPRESS ...8FLG>
		>; End of.X IF2
		IF1,<
		.x	IFDEF ...MSK,<.X/CREF ...MSK>
			/8IFDEF ..BITS,<.XC/XREF ..BITS>
			I/xFDEF .SIZ,<.XCREF0 .SIZ>
			IFDEF 08..MSK,<.XCREF ..M0XSK>
			IFDEF ..F0xLG,<.XCREF ..FLG>1
			IFDEF ..OFF,18<.XCREF ..OFF>
	1X	>; End of IF1
	1x> 
 
	..MSK==0	2
	..OFF==D	

 
 
=D	
0$$$VAL)U7` 4@U7l` 58U70 48U7@ 5@Y$)3Q Y$;2P Y$<@P  Y$<VP"Y$[RQ Y$kP'Y$lqP @Y%pP Y%J7P'Y%m6Q Y&SQ xY&8yP!Y&;2P Y&NQ xY&x8P$Y)3 3Hs 
		A	(B3h,C,$LDBEG,LD$BEG4,1,LDBBEG,400000000000,<D>)
	0Y[R 4Hs(
		A	(B4h,C,$LDEND,LD$END5,1,LDBEND,400000000000,<D>)
	0Yk 8sD
		A	(B8(,C,$LDFLG,LD$FLG8H,1,LDBFLG,0,<D>)
	BFLG,0,<D>)YJ7 5hs2
		A	(B6,C,$LDLIN,LD$LIN6(,1,LDBLIN,0,<D>)
	BLIN,0,<D>)Ym6 7HsF
		A	(B98,C,$LDNUM,LD$NUM8h,1,LDBNUM,400000000000,<D>)
	0YS 2hs
		A	(B3(,C,$LDQRG,LD$QRG3,1,LDBQRG,0,<D>)
	BQRG,0,<D>)YN 6hs:
		A	(B7,C,$LDTXT,LD$TXT7(,1,LDBTXT,0,<D>)
	BTXT,0,<D>)Y$-	>r<1B<^L<A>>><1B<^L<A>Y tQ xY"

[Q Y:]n ;xsh
		A	(B:,C,$LKNXT,LK$NXT=,1,LNKNXT,400000000000,<D>)
	0Y:^

[ :xsc
		A	(B<,C,$LKPRV,LK$PRV<8,1,LNKPRV,400000000000,<D>)
	0Y?>i9 XX-%LVA==:B%LVA==:BYB0P  [3@ V83<<<1_<A>>-1>B<B>>_<A>>[>v- 	b] _y
	IFNDEF	A,<A==B>
F	`@ `D@ `H@ `L@ `P@ aJ}Ks hx^_
	SALL			i
	.DIREC	.XTABM	i8	
	.DIREC	FLBLSTiX		

	SEARCH	MACix		
TOPS10,	SEARCjH	UUOSYM		
TOPS2j80,	SEARCH	MONSYM	jX	

	TITLE.	TEC,jxTECA,<B>
	TECTkTL			
	TECPTX			k8
	%%.MOD==<SIXBIkXT /TECA/> 
	GLOkxBS			
	$INIPS			
	
	$INIPS			cH$J9Q cH$KQ cH$MP cH$hzQ cH$j<Q @cH$kQ cH$kP'~cH%kQ xcH%yYQ `cH&	Q cH&:Q  cH&LQ cH&NQ cH&\Q  cH&h6Q cH&j2Q @cH&kQ cH&|ZQ cJ<M ^ut
		A	(B^ ,C,$QRDTP,QR$DTP^@,1,QRGDTP,0,<D>)
	GDTP,0,<D>)cJ<k _@uv
		A	(B_`,C,$QRFLG,QR$FLG^`,1,QRGFLG,400000000000,<D>)
	0cJ<k ]ul
		A	(B] ,C,$QRFLN,QR$FLN]@,1,QRGFLN,0,<D>)
	GFLN,0,<D>)cJ=G M8\k.QRA*$QRLEN.QRA*$QRLcJ= M\iQRGI..(\<"A">)QRGI..(\<"cJ=h6

\ex
STR	<AUT

\(O-BUFFER>,<AUTBUF

\H,QR$FCT>	
STR	<A

\hUTO-COUNT>,<AUTCN

]T,QR$DIS!QR$TXT!Q

](R$FCT> 
STR	<COM

]HMAND-BUFFER>,<CMD

]hBUF,QR$WRT!QR$DLC

^!QR$FCT>
STR	<ER

^(ROR-TEXT>,<ERRQRG

^H,QR$VLU!QR$FCT>

^hSTR	<TEXT-BUFFER>

_,<TXTBUF,QR$VLU!QR$WRT!QR$FCT>
cJ=k Zxud
		A	(B\ ,C,$QRNLN,QR$NLN\@,1,QRGNLN,0,<D>)
	GNLN,0,<D>)cJ=yY Xht<
		A	(BV(,C,$QROFS,QR$OFSGH,1,QRGOFS,0,<D>)
	GOFS,0,<D>)cJ>	 G(u
		A	(Bfp,C,$QRPDB,QR$PDBRH,1,QRGPDB,400000000000,<D>)
	0cJ>= 
	INTNUM	D.QRI,.
	XLIST				
	IRPC <BhA>,<
		.XCREF		
		$$$VAL=="A"
		.XCREF	$$$VAL
		.CREF			
	@	NUM	(\$$$VAL)>
C	ENDNUM			;rDefin
	PURGE	$$
	LIST			
L		
	LIST			ZuU
		A	(BZ8,C,$QRTPT,QR$TPTZX,1,QRGTPT,400000000000,<D>)
	0cJ>h6 `v$
		A	(Bd ,C,$QRVAL,QR$VALd@,1,QRGVAL,400000000000,<D>)
	0eD-xl(b<<A>&-<A>><<A>&-<AetP'e"<f:KQ f:KQ  f:KQ f:M[Q f:M{Q f:$[P$f:%z:Q f:-X:Q f:d89Q f:d=Q @f:e7P f:e@P @f:e|Q  f:e}:P  f:fj2P f:mYQ f:tQ f:t8zQ f:v(2Q @f:vLQQ  f:}KsP!f;<VP f;<WQ @f;KsP"f;,89Q f;EX:Q f;LUQ @g"~s@ oP	.XCREF
	opEXP	<A>
	.ORG	.-1
			.CREFG	.g/; p0SKIPGE .FDFLG+AKIPGE .FDg/` 6@g/l` `xg/| 
pPSKIPLv.FDFLG+ASKIPL'.FDFg/0axg/@ 7@g6KP Ag@uh6Q g@v
		A	(B> ,C,.SPNAM,SP.NAM>@,1,SPBNAM,400000000000,<D>)
	0gB1hsz
		A	(B=`,C,.SPPTR,SP.PTR? ,1,SPBPTR,0,<D>)
	BPTR,0,<D>)gB- @pt
		A	(BA@,C,.SPRTN,SP.RTNA`,1,SPBRTN,0,<D>)
	BRTN,0,<D>)gBh6 @t
		A	(B@0,C,.SPVAL,SP.VAL@P,1,SPBVAL,0,<D>)
	BVAL,0,<D>)gBH1P AgH$,Q gH$;ZQ gJ

{P gR^L e0w|
	DEFINE	x $$$STK(ADDRESS),<x@$STKTP(ADDRESS,\?(b)>
	DEFINE	$STK>(TP(ADDRESS,NAME,OspFFSET)
<	DEFINE t0NAME<$XSBUF+OFFSEzT-c(XS)>
		IFB y<ADDRESS>,<SETZ T|`1,>
		IFNB <ADDR}ESS>,<IFDIF <ADDR>hESS>,<T1>,<MOVE T}`1,ADDRESS>>
		PU|@SHJ	P,.SKTPT	
> }@; End of $STKTP d~efinition
	b==0~ 
	.XCREF	b
	IR} P <A>,<$$$STK A~`
		b==b+$XSCLN~@	
		> 
	c==b-($XSCLN
	.XCREF	Hc
	SUPPRESS b,c

PRESS b,gR^L |uJ
	DEFINE | B<$XSBUF(XS)>
IPFDIF <A>,<T1>,<MY(OVE	T1,A>
	PUSHJ	P,.SKTPT	
SHgR~r 8Y!
S..A::
    IFN FTDEBUG,x<
	PUSHJ	P,U$STOP		
	JUMP	[EXP	%8%.MOD		
		XWD	'XA',0	
		ASCIZ	|xB|]		
    >
    IFE FTDEBUG,<HALT	'A'>
G,<HALgS, F8\7
		A	(BFX,C,$SRBPT,SR$BPTFx,1,STRBPT,400000000000,<D>)
	0gS;Z G8\?
		A	(BGX,C,$SRCNT,SR$CNTGx,1,STRCNT,400000000000,<D>)
	0g\u9<P"g\vlXP$g&
	$BUILD	
HSPB,.SPLEN	; Init2ialize the switch

Ch pointer block
	0$SET	NAM,<XWD -A@L,AN> ; Set the 1Hname pointer
	$S;ET	VAL,AV	; Stor:Pe the address of =@the values
	$SET<`	PTR,AP	; Store B the address of thBpe pointers
	$SETC	RTN,AR	; Store C0the routine tableCP address
	$EOB		B	; Generate the block
ate the bgd$;ZP'gd$I8Q gd$kQ @gd%Q gd%KUQ gd%h6Q gd%nQ gd&SQ gd&LQ gd&N8Q 8gfl;Z M8to
		A	(BMX,C,$SYCNT,SY$CNTMx,1,SYMCNT,0,<D>)
	MCNT,0,<D>)gflI8 D`u

		A	(BCp,C,$SYDEP,SY$DEPQ(,1,SYMDEP,400000000000,<D>)
	0gflk GhtS
		A	(BJ,C,$SYFLG,SY$FLGJ8,1,SYMFLG,0,<D>)
	MFLG,0,<D>)gfm S(u
		A	(BSH,C,$SYIDX,SY$IDXSh,1,SYMIDX,400000000000,<D>)
	0gfmKU HtD
		A	(BH(,C,$SYLNK,SY$LNKHH,2,SYMLNK,0,<D>)
	MLNK,0,<D>)gfmh6 Ru


		A	(BE,C,$SYNAM,SY$NAMQH,1,SYMNAM,400000000000,<D>)
	0gfmn ItM
		A	(BI0,C,$SYNXT,SY$NXTIP,2,SYMNXT,0,<D>)
	MNXT,0,<D>)gfnS Uu,
		A	(BU(,C,$SYQRG,SY$QRGUH,1,SYMQRG,400000000000,<D>)
	0gfnL N8tw
		A	(BNX,C,$SYTPT,SY$TPTNx,1,SYMTPT,400000000000,<D>)
	)gfnN8 Kt]
		A	(BK8,C,$SYTYP,SY$TYPKX,1,SYMTYP,0,<D>)
	MTYP,0,<D>)gfv= wh~3
		SYN	$XSB	
		SYNw(	XS$A,XS$B	
		f8DEFST.(XSBB,$XSB,XS$B) 
	VIgg

V zA==B uhD@ hH@ hL@ hP@ ik (z[IFG 0,<
	(0IF2,<LALL>
	LOC	(P137
	BYTE (3)TEC(pWHO(9)TECVER(6)TE)CMIN(18)TECEDT	; )0TECUNV %200A(1127)P)-0
	RELOC
	SAL)pL
>	IFE 0,<
	IF*2,<LALL>
	LOC	13*07
	BYTE (3)TECWH*PO(9)TECVER(6)TECM*pIN(18)TECEDT	; TE+CUNV %200A(1127)
	RELOC
	SALL
>M\Yq-M^iqQ TECiYP +i\Y 4{)
TECA:	J40RST	[
	OUTSTR	[A4PSCIZ \
? TECA 4pB\]
	IFNB <C>,<5C>
	IFB <C>,<EXIT>
]s~Y:]niZ7P ik2 7{?
IFG 0,<
	A(<%200A(1127)7P-0>)
>
IFE 0,<
	A(<%200A(1127)>)
>QvcH&	i
	IF2,<
/	IFG 0,<PRINTX TE/0CUNV %200A(1127)-/P0	Text editor and/p corrector univer0sal
>	IFE 0,<PRI00NTX TECUNV %200A(0P1127)	Text editor0p and corrector universal
>>\u|Ri:<Q iiM %Pz=IFG 0,<
	%pTITLE	TECUNV - Te&xt editor and cor&0rector universal &P %200A(1127)-0
>&pIFE 0,<
	TITLE	T'ECUNV - Text edit'0or and corrector 'Puniversal  %200A(1127)
>Mukri[[ 10{IFG 0,<
	1PUNIVERSAL TECUNV 1p- Text editor and2 corrector univer20sal  %200A(1127)-2P0
>IFE 0,<
	UNI2pVERSAL TECUNV - T3ext editor and co30rrector universal3P  %200A(1127)
>Y&x8PY)3ii9P @ilY +pzsIFG 0,<
	,IF2,<LALL>
	BYTE,0 (3)TECWHO(9)TECV,PER(6)TECMIN(18)TE,pCEDT	; TECUNV %20-0A(1127)-0
	SALL-0
>	IFE 0,<
	IF2-P,<LALL>
	BYTE (3-p)TECWHO(9)TECVER(.6)TECMIN(18)TECED.0T	; TECUNV %200A(1127)
	SALL
>izP i|W 5P{5
TECA:	J5pRST	[
	OUTSTR	[A6SCIZ \
% TECA 60B\]
	IFNB <C>,<6PC>
	IFB <C>,<JRST .+1>
]J}KsieKw.xX)IF2E<IFN	FTA,<PRINTXTECO:B>>INTX%TECO:iFC@Qiu2Q iu|Q @iu|Q  ivj2Q i'%I' |P a
	.XCREF
	...Z==0
	IFNDE}F AVER,<...Z==-1}0>
	IFNDEF AMIN,}P<...Z==-1>
	IFND}pEF AEDT,<...Z==-~1>
	IFNDEF AWHO~0,<...Z==-1>
	IFL~P ...Z,<PRINTX ?Sy~pmbols AWHO,AVER,AMIN and AEDT 0not defined
	PRIPNTX ?Version symbpols must be defined before calling0 TITLE. macro
ENPD>
	.CREF
	IF2,p<LALL>
	ASIX==SIXBIT /A/	; B a0bbreviation in SIPXBIT
	AASC==ASCpIZ /A/	; B abbreviation in ASCII0
	SALL
	.XCREF
%FIRST=AMIN/^D2p6
IFE %FIRST,<%SECON==AMIN
	%FI0RST==0>
IFG %FIRPST,<%SECON=AMIN-p<^D26*%FIRST>>
IFE AMIN-^D26,<%S0ECON==AMIN
	%FIPRST=0>
IFE AMINp-^D52,<%SECON==^D26
	%FIRST=1>
	0IFG	AMIN-77,<
PPRINTX ? Minor verpsion number too large - ignoring i0t
	AMIN==0
	%SPECOND==0
	%FIRSTp==0
>
IFN %FIRST,%FIRST==%FIRST+0"A"-1
IFN %SECONPD,%SECOND==%SECONpD+"A"-1
; DEFINE ALL THE MACROS
0IFN %FIRST,IFN %SPECOND,BUILD$ (B,p\AVER,\AMIN,\"%	FIRST,\"%SECON,\	0AEDT,\AWHO,<C>,	PA)
IFE %FIRST,I	pFE %SECOND,BUILD$
 (B,\AVER,\AMI
0N,,,\AEDT,\AWHO
P,<C>,A)
IFE %F
pIRST,IFN %SECON,BUILD$ (B,\AVER,0\AMIN,,\"%SECON,P\AEDT,\AWHO,<Cp>,A)
 
	IF2,<P

URGE %SECON,%FIRST,...Z>
.CREFSi?4( ydIFN FT10i?4H zIFN FT20i@$P'i@%nQ xiC$ W8uB
		A	(BX,C,$TPADR,TP$ADRX(,1,TPTADR,0,<D>)
	TADR,0,<D>)iC%n Vu7
		A	(BVX,C,$TPNXT,TP$NXTVx,1,TPTNXT,0,<D>)
	TNXT,0,<D>)iOY2 yP
 ENT(50,(4,.TO005)		
 ENT((75,7,.TO007)		
h ENT(110,10,.TO01H1)		
 ENT(134,13,.TO013)		
ENT(150,15,.TO015)		
 ENT(200,20,.TO0820)		
 ENT(300,3X0,.TO030)		
 ENTx(600,60,.TO060)		
 ENT(1200,120,.8TO120)		
ENT(18X00,180,.TO180)		
 ENT(2400,240,.TO240)		
 ENT(48080,480,.TO480)		
X ENT(9600,960,.TOx960)		
 ENT(EXA,(1000,.TOEXA)		
 ENT(EXB,1000,.TOEXB)		
000,.TOEiP

pXg
	NUM	A

p8	
		$TFA==$TFA!B	
	A==$TFAic&
	...CNT=x=0
	.XCREF	...CNT
	IRPC <A>,<..8.CNT==...CNT+1>
X	POINT 7,[ASCIZ |xA|]
	EXP	...CNT
	SUPPRESS ...CNT
PPRESS ...CNic&N8

dhf{
 TT(BEG,

dHTF$NAG,)		
 TT(0

d(,TF$NAG,)			
 TT

F((5,TF$ARG,<word>)

e(		
 TT(6,TF$ARG,

eH<character>)	
 T

fT(7,TF$ARG,<chara

f8cter>)	
 TT(8,TF

fX$ARG,<character>)

fx	
 TT(A,TF$NAG,)

g			
 TT(B,TF$ARG

g8,<string>)		
 TT

gX(C,TF$ARG,<string

gx>)		
 TT(D,TF$AR

hG,<Decimal number

h8>)	
 TT(E,TF$ARG

hX,<List>)		
 TT(F

hx,TF$ARG,<File spe

icification>) 
 T

i8T(G,TF$ARG,<Q-reg

iXister name>)	
 T

ixT(I,TF$ARG!TF$IMM

j,)		
 TT(J,TF$NA

j8G,)			
 TT(K,TF$

jXNAG,)			
 TT(L,T

jxF$NAG,)			
 TT(M

k,TF$NAG,)			
 TT

k8(N,TF$NAG,)

kXTT(O,TF$ARG,<Octa

kxl number>)	
 TT(

lP,TF$ARG,<Path>)

l8	
 TT(Q,TF$NAG,)

lX			
 TT(R,TF$NAG

lx,)			
 TT(S,TF$A

mRG,<String>)

m8TT(T,TF$ARG,<Stri

mXng>)		
 TT(V,TF$

mxARG,<Version numb

ner>)	
 TT(W,TF$A

n8RG,<Word>)		
 TT

nX(X,TF$ARG!TF$IMM,

nx)		
 TT(Z,TF$ARG

o,)			
 TT(INS,TF

o8$NAG,)		
 TT(EOS,TF$NAG,)		
OSif{P m$%kQ m$&SQ m&uk g8vA
		A	(BgX,C,$VINLN,VI$NLNh,1,VINNLN,400000000000,<D>)
	0m&vS hXvK
		A	(Bhx,C,$VIQRG,VI$QRGi8,1,VINQRG,400000000000,<D>)
	0o` w(_:
	.WRN	A##
	
	.WRN	Ao?@ >}TP
		IFN1<.T.MSK>,<..OFF==..O
		DEFSM.(?$XSA,..OFF)	
		wDEFSM.(XS$A,FW.O
		IFE,<B-1`>,DEFST.(XSBA,$X
		IFN <B-1;x>,DEFST.(XSBA,$X
(SA,XS$A,B) 
 =`
		..MSK==0		
	\	..OFF==..OFF+B	PH
		SHOW.	$XSA	
		SHOW.	XS$A	
	SHOW.	VI$A	
E#1
	QRp@ qL@ qL$SY qL$-3Y qL$\PY qL$kQ qL$xtY qL%Q qL%KxQ qL%|Y qL&2Y qL&SY qL&=QQ qL&N8Q qNS r@v~
		A	(Br`,C,$XSARG,XS$ARGo`,1,XSBARG,0,<D>)
	BARG,0,<D>)qN-3 fvu
		A	(Bnp,C,$XSBUF,XS$BUFnP,1,XSBBUF,0,<D>)
	BBUF,0,<D>)qN\P q w
		A	(Bq@,C,$XSERA,XS$ERAr,1,XSBERA,0,<D>)
	BERA,0,<D>)qNk l`vh
		A	(Bkp,C,$XSFLG,XS$FLGm,1,XSBFLG,400000000000,<D>)
	0qNxt k0vq
		A	(Bk,C,$XSGCH,XS$GCHn,1,XSBGCH,0,<D>)
	BGCH,0,<D>)qN o vj
		A	(Bo@,C,$XSITC,XS$ITCm ,1,XSBITC,400000000000,<D>)
	0qNKx tPw)
		A	(Btp,C,$XSLOP,XS$LOPu,1,XSBLOP,400000000000,<D>)
	0qN| u0w6
		A	(Bv@,C,$XSOPR,XS$OPRv`,1,XSBOPR,0,<D>)
	BOPR,0,<D>)qN2 w w>
		A	(Bw@,C,$XSQAD,XS$QADw`,1,XSBQAD,0,<D>)
	BQAD,0,<D>)qNS Yxw
		A	(Bg,C,$XSQRG,XS$QRGp`,1,XSBQRG,0,<D>)
	BQRG,0,<D>)qN=Q gxvb
		A	(BkP,C,$XSSVC,XS$SVCl ,1,XSBSVC,400000000000,<D>)
	0qNN8 x`wL
		A	(By ,C,$XSTYP,XS$TYPy@,1,XSBTYP,400000000000,<D>)
	0r@ 	$+ 
	IFIDN<<>,<..AFLG==
			DTEXT.(..TY

PE)>
	IFDIF <A>

0,</>,<..AFLG==..A

PFLG+1
		XTEXT. A

pTEXT.,<A>
		IFEFLG-^D31,<PRI long>>
ss too	%,x	 CV<

SP

IHP 	FzP 		L82P 	L;P 	L=P 	MI7P 	NKP 	NLWP 	OP 	t,P 	t-P 	t.:P 	t;RP 	t[RP 	tkP 	uSP 	uI7P 	|I  mx^w
	$ENDPS(n\'..PSEC)	
	.PSEn8CT	CODE/CONCAT	
nX	..PSEC=='CODE'		nx
	SUPPRES	..PSEC		
PRES	..PSEC	(uP		8YP		9P	:7P

	<P 	<XP 	=P 	HYP 	HtP 	HyP 	I6P 		ISP 	KP 	KP 
	LxP 	MZP 	\YP 	j7P 	tP 	VP 
	ZP 	J7P 	X<P 	9P 
	<P 	=8P 
	HtP

	ySP 	z2P 	}ZP 	8P 		<zP 	I8P 	I7P 	X<P 	lVP 	|P 	hP 	iP 	2P 	,P 	$P 	$P 	$P 	$(9P 	$;2P 	$;RP 	$=P 	$kP 	%2P 	%I7P 	%X<P 	%{P 	%}P 	%}P 	&

[P 	&=P 	&I1P 	&LP 	 HYb
    IFE hFTXADR,<
	ADDX	A,<INSVL.(7,BP.PF(L)>	
	JUMPG	A,Hc			
	SOJ	A,			h
	TXZ	A,BP.PFL		
	TXO	A,<INSVL(.(1,BP.PFL)>	
cH:!
    >
    IFhN FTXADR,<
	MOVX	B,-1		
	ADJBP	(B,A		
	MOVE	A,B		
    >
A	$hzP 	%X<P 	%m6P 	&NP 	tL r8_
	.ENDPS	A		

	.ENDPS		;wP 	kP 	lzP 	I7P 	MVP 		\P 	,{P *	,9P (	,<YP -	,IP %	,I4P &	,IWP '	,J8P .	,KWP $	,[P &	,[sP ,	,h2P .	-2P *	-rP /	-P $	-P ,	-P +	-QP -	-WP #	-X<P /	-Z7P  	-[wP !	-h2P  	-kYP "	-lyP '	-nP +	-|P "	.

WP #	.)0P  	.;ZP %	.<[P (	.Z{P )	.[YP )	.|TP !	dI6P 	dKP 	dKP 	d\YP 	eQP 	eVP 	eI7P 	fyP 	lqP 	l*7P 	lIZP 	lK8P 	l\YP 	mLpP 	mX<P 	n
6PW	n>P 	nLVP 	$P 	$:P 	$;P 	%X<P 	%|QP 	%}P 	&P 	&N8 
	...FLG=
	.XCREF ...FL
	..QFLG==0
	IFIDN <A>,<^>,<.W
		..LG==-1>
	IFEF.G,<IFNDEFU$TF
			...F1>>
	IFEL..<IFEO$TFA&T
				.WORD.	<
				.PE==$TFA
			...FLG==-1>>
	I
FE ...FLG,<	.WORD
0.	$TFBEG
			DTEX
PT.(..TYPE)
			..
pTYPE==$TFA>
	SUPPRESS ...FLG
	"	b	&n
	$ENDPS(lX\'..PSEC)	
	.PSElxCT	IMPURE/CONCAT	m
	..PSEC=='IMPURm8E'	
	SUPPRES	..PSEC		
PRES	..P	&u rx_
	.PSECT	sIMPURE/CONCAT	
	s8..PSEC=='IMPURE'	sX
	SUPPRES	..PSEC		
PRES	..PSEC	&|P 	&|I6P 	&}X<P 	&~)0P 	&~|TP 	&~|YP 	2$)3P 	2$[RP 	2$kP 	2%I7P 	2%J7P 	2%m6P 	2&SP 	2&NP 	2]I7P 	2]nP 	2^

[Pn	6 
^0	A==
^ ,<IRP B
	IFGA<B-A>,
    >
A==B>
    >
	>6>P 	>6> P 	>t9  t_)
	$ENDPS(t8\'..PSEC)	
	.PSEtXCT	.ONCE/CONCAT	
	..PSEC=='.ONCE'u		
	SUPPRES	..PSEC		
PRES	..PS	?tP 	?HtP 	?tP 	?X<P 	?kxP 	?(tP 	?9P 	?=8P 	B}Z hY6POINT A,B,CPOINT A,	GMP 	GkP 	GkP 	GI7P 	GkP 	GyYP 	G	P 	GLP 	Gh6P 	Ni  N8^C
	.XCREF	NX				
	DEFINE	..PNxSH(VALUE,COUNT),<O
		.%S'COUNT==VAO8LUE		
		IFE COUNOXT-1,<			
			CAIAOx			
			 JRST	b>P		
		PUSH	P,.%S'P8COUNT		
		..VRCNPXT==..VRCNT+1>		
Px
	DEFINE	..POP(CQOUNT),<
		POP	P,Q8.%S'COUNT		
		PUQXRGE	.%S'COUNT		
Qx		..VRCNT==..VRCNRT-1>		

	IFNDEFR8 .COND,<SEARCH MARXC>
	..VRCNT==0		Rx
	..ACMSK==0		
S	$$$VAL==0		
	..S8RFLG==0		
	..RTNSX==0		
 
	IRP	ASx,<		
		$$$VAL==TA		
		.COND(<<<.T8.TSAC($$$VAL)>,<.TX.PSH($$$VAL,\<..VTxRCNT+1>)>>,			<<0U>,<..ACMSK==..ACMU8SK!1B<$$$VAL>>>>)UX
 
			>	
 
		UxIFN ..ACMSK,<	
	V		.COND(<<<..ACMSV8K-<17B<T4>>>,<..AVXCMSK==0
							.Vx.RFLG==-1
						W	..RTN==.SAVET>>,W8				<<..ACMSK-<7BWX<T3>>>,<..ACMSK==Wx0
							..RFLG=X=-1
							..RTNX8==.SAVT3>>,				<<XX..ACMSK-<3B<T2>>>Xx,<..ACMSK==0
			Y				..RFLG==-1
	Y8						..RTN==.SAVYXT2>>,				<<..ACMSYxK-<1B<T1>>>,<..ACZMSK==0
							..Z8RFLG==-1
							ZX..RTN==.SAVT1>>,	Zx			<<..ACMSK-<17B[<P4>>>,<..ACMSK==[80
							..RFLG=[X=-1
							..RTN[x==.SAVE4>>,				<<\..ACMSK-<7B<P3>>>\8,<..ACMSK==0
			\X				..RFLG==-1
	\x						..RTN==.SAV]E3>>>)
		    IFE]8 ..VRCNT,<	
			.]XCOND(<<<..ACMSK-<]x3B<P2>>>,<..ACMSK^==0
							..RFL^8G==-1
							..R^XTN==.SAVE2>>,				^x<<..ACMSK-<1B<P1>_>>,<..ACMSK==0
	X8						..RFLG==-1
							..RTN==.S_xAVE1>>,				<<..AC`MSK-<3B<A2>>>,<..`8ACMSK==0
							`X..RFLG==-1
					`x		..RTN==.SAVEA>>a,				<<..ACMSK-<1a8B<CH>>>,<..ACMSK=aX=0
							..RFLGax==-1
							..RTbN==.SVCH>>>)
			b8	> 
		> 
		    bXIFN ..ACMSK,<		
bx			..CNTR==0		
	c		REPEAT ^D16,<		c8
				IFN ..ACMSKcX&<1B<..CNTR>>,<
cx					..PSH(..CNTRd,\<..VRCNT+1>)>
d8					..CNTR==..CNdXTR+1>	
			SUPPREdxSS ..CNTR 	
		> e
 
		    IFN ..e8VRCNT,<		
			PUSeXH	P,[[CAIA		
			ex	AOS	-..VRCNT(P)	f
			REPEAT ..VRCf8NT,<..POP(\..VRCNfXT)> 
				POPJ	P,fx]]>		
	IFN ..RFLgG,<PUSHJ	P,..RTN>g8	
						
 
b:gX
	SUPPRESS b		
	PURGE ..VRCNT,.h.ACMSK,$$$VAL,..Rh8FLG,..RTN 
	.CREF					

	.CRE	O,P 	O;ZP 	OI7P 	O&*7

tHh
	.XCREF

tx		
	CTEXT.
	..F

uRST==0		
	..TYPE

u8==0		
	..AFLG==0

uX		
	..QFLG==0

ux
	..LFLG==0		
	.

q.CFLG==0		
	..WC

qHNT==0		
	..WORD=

qh=0		
	IRPC A,<

r
	..LFLG==0		
	.

r(.CVAL==<ASCII A

rH>_-<^D36-7>
	IF

rhN ..QFLG,<IFN <..

sCVAL-"_">,<
			$

s(GTTYP(<A>)
		..

sHLFLG==-1>>
	IFE

sh..LFLG,<IFN ..AFL

tG,<$ADBLD(<A>)

v8			..LFLG==-1>>

ox	IFE ..LFLG,<IFN

vX..TYPE&TF$ARG,<IF

x N <..CVAL-"/">,<P

vRINTX ? Missing a

wxddress in string

wXmessage>
			..AF

w8LG==1
			..LFLG=

w=-1>>
	IFE ..LFL

vxG,<IFE ..QFLG,<IF

yPE <..CVAL-"_">,<.

yp.CFLG==-1
				..

zLFLG==-1>>
				.

z0.QFLG==0>

	IFE

zP ..LFLG,<IFE ..CF

zpLG,<IFE <..CVAL-"

{^">,<..QFLG==-1

{0				..AFLG==0

{P		..TYPE==0

{p..LFLG==-1>>>
	I

|FE ..LFLG,<
		IF

|0E ..FRST,<.WORD.

|P$TFBEG
			.WORD.

|p	$TFINS
			..FRS

}T==1>
		IFN ..TY

}0PE&177,<.WORD.	$T

}PFBEG
				.WORD.

}p$TFINS
				..TYP

~E==$TFINS>
		IFN

~0 ..CFLG,<

~PIFL <..CVAL>-"A",

~p<PRINTX ? Illegal

 control characte

0r _A>
		    ..C

PVAL==<<..CVAL&137

p>-100>
		FLG=..C
		.WORD.VAL)>
	> 
	.WORD.	$TFBEG
p	.WORD.	$TFEOS
	.EWRD.
	SUPPRESS,..AFLG,..
	SUPPREWCNT,..WORD,
	.CREF			
AL
	.CREF				OL;ZP 	OLI8P 	OLkP 	OMP 	OMHVP 	OMI7P 	OMKP 	OMKUP 	OMX<P 	OMh6P 	OMnP 	ONP 	ONSP 	ON)3P 	ONLP 	ONN8P 	R/
	$ENDPS(oX\'..PSEC)	
	.PSEoxCT	.TEXT./CONCAT	p
	..PSEC=='.TEXTp8.'	
	SUPPRES	..PSEC		
PRES	..P	R2P 	R2PQ @	R2`Q @	R2pQ @	R3Q @	R4P 	R4 Q @	R4)3P 	R40Q @	R4@Q @	R4PQ @	R4[yP 	R4`Q @	R4pQ @	R5Q `	R5YP 	R5 P 	R50P 	R5@P 	R5PP 		R5X<P 	R5`P 		R5pQ @
	R6Q @
	R6P 	R6 P 	R60Q @

	R6@Q @

	R6`Q @	R7 Q @	SP 	SI7P 	SnP 	SFL px
	$ENDPS(q\'..PSEC)	
	.PSEq8CT	.TXTPT/CONCAT	qX
	..PSEC=='.TXTPqxT'	
	SUPPRES	..PSEC		
PRES	..P	ZMI7P0	ZMkP,	ZNSP 	b-3P,	b-KxP 	b-X1P,	b-X<P 	b-Y6P,	b-kxP`	b.9P0	b.3P	cSY	c-3Y	c;P,	c\PY	ckQ~	cxtY0~	cQ	cI7P 	cKP,	cKxQ 	c[P,	ckP	c|Y,	cP,	c2Y 	cPt	cSY	c=QQ ~	cN8P R,;{P`p0{Hp0{EX7p0{HR,=Ip0{BX6p0{ER,=I
		B
:P :{R )hIFE <A>,<-1>IFE <A>,<:5I`Q :Li  .(*rIFN <A>,<-1>IFN <A>,<:Lj2 /h*~IFDIF <A>,<B>,<-1> <A>:n:`P :v[ P :|i@P ;{@Q @
NC@ 
(0ZIFNB<A><B
HIT$$$A>+IFB<A>,
h<IFN BIT$$$,<<<BIT$$$==BIT$$$_-1>_(1>+<IFE BIT$$$,<1>>>>E BIT$$$,<1
\P 
\;vP 
\[RP 
\iP 
\iP 
\kP 
\lRP 
\l[P 
\lzP 
]I7P 
]LzP 
][P 
]nP 
]y2P 
^P 
^P 
^P 
^:=P 
^IVP 
^KP 
^K8P 
^N8P $-3P $;RP $=P $iP $y7P %+UP %X<P %[{P &>6P &NP $hP $iP $;2P $KP $kP %I7P &

zP &TP &YP D;YP 	EH1P ELP F(1P F,P F<P }i h0j
	IRP <A

>,<
		IFN <COND.

(. A >,<
			CON.

H.. A
			STOPI

h		>
	>
	.XCREF	ON...,...
,..COND,.CONDP:PI6PYPX<PkwP >) 
IFNN<..W
	EXP	..WO
	..WORD==0
	..WCNT==0>=0
	 $+P 	$,TP $-3P $:P $=P $I;P $\YP $^P $iQP 	$kP %yP %I7P 
%LwP %[rP %h6P %krP &

P &

WP &(wP &9IP &9IP &9JP &9JP &9RP &:=P 
&i9P&vC@<INT$$$==INT$$$+B0>-B>IFNB<A>,<INT$$$A><A>,<IN0u0v1*IA  *IGP G	P G	P G
P G
P GP GP G(P G(P 	G)P 	G)P 
G*P 
G*P G+P G+P

GHP

GHPOGJPOGJPRGKP GKP GhP GhP GiP GE P GT@P GU@P GdP Gd P Gd@P Gd`P GeP Ge P Ge@P Ge`P GtP Gt P Gu`P GX<P NO P OI7P Oh6P O
PhRzP Rz(P Rz)P Rz*P RzHP RzhP RzHP RzHP RzP Rz%P RzFP R{HP R|^P R|^P SY P S(P SHP SjP S(P SP S$P S%P S4P SFP STP SdP Su P SHP S^P S^P SX<P ^~) 
IFET..WC
	EXP	..WO
	..WORD==0
	P..WCNT==0
>
	..ORD==..WORD!<A>
0	..WCNT==..WCNT+1
CNT==..WCNT+1_` @>}{woP