Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

x

,5
5@P C/$!1 =yq
		XLIST
		AKTB.C
		LIST

KTB.C
		LISTC/$#Q d0~1

	RADIXdP	10

IFN ANS74,dp<
	D.PNTR	AKTTABe,AK

	AK.ITM	FLe0K,1,1,17
	AK.ITMeP	DLK,1,18,35

	epAK.FLG	DUP,2,0
>f

	RADIX	8




	RADIX	8

C;fP C;uP G,H`Q $HG-ZQ DG-J7Q 4G-h6Q $<G-}:Q FG.)Q $H
G.;VQ HGtk *iV	CD%A==<P
OINT 1,B-1,C>
Gu i-	CD%A==<P%QOINT D-C+1,B-1
,D>
D-C+1,B-1Gv;2 +)Z	CD%A==CD
%B
	CD%A==CDGv|R +i^	CD%A==B
-1
	CD%A==BG$!1 =k
		XLIST
		CDTB.C
		LIST

DTB.C
		LISTG$#Q ^P~

	RADIX^p	10

	D.PNTR	CD_TAB,CD

	CD.ITM_0	NAM,1,3,17
	CD._PITM	SNL,1,18,35
_p
	CD.FLG	OUT,2,0`
	CD.ITM	INT,2,0`0,1
	CD.ITM	LIN,2`P,16,28	;LINE NUMB`pER

	CD.ITM	RDLa,3,0,17

	CD.ITa0M	DC,6,0,17

IFaPN ANS74,<
	CD.ITapM	FDL,9,0,17
	CDb.ITM	DUP,9,18,35
>
	RADIX	8


>
	RADIX	8

G<,H:Q $HG<-h6Q $<G<-mVQ HG<tk )
b	CO%A==<P
OINT 1,B-1,C>
G<u 1
]	CO%A==<PYOINT D-C+1,B-1
,D>
D-C+1,B-1G<v;2 i
f	CO%A==CO
%B
	CO%A==COG<v|R )
j	CO%A==B
-1
	CO%A==BG?$!1 99M
		XLIST
		COTB.C
		LIST

OTB.C
		LISTG?$#Q H|M

	RADIXH0	10

	D.PNTR COHPNTAB,CO

	CO.ITHpM	NAM,1,3,17

	ICO.ITM	DAT,2,0,17I0
	CO.ITM	NVL,2,1IP8,35

	RADIX	8




	RADIX	8Q5
	XLIST
1
	DEFINE B.ITM q(ITMID,WRDNO,LFTBIT,RTBIT),<
		XL0IST
B.'ITMID::	PB%'ITMID+<TA>B17p
		LIST
	>	


	DEFINE B.FLG (F
0LGID,WRDNO,BITNO)
P,<
		XLIST
		B
p.ITM	FLGID,WRDNO,BITNO,BITNO
		LI0ST
	>	

	DEFINPE	B.SME	(ID1,ID2p)<
		XLIST
		B.'ID1==:B.'ID2
0		LIST
	>	

	DPEFINE	B.WRD	(ITMID,WRDNO)<
		XLI0ST
		B.'ITMID==Q:WRDNO-1
		LIST
	>	

	LIST

I,SQ $HI,,WQ $H
I,-}Q <I,;Q DI,<Q I,HyQ 6$I,I3Q 4I,I8Q HI,IYQ I,KQ $I,LQ 
I,LQQ I,YQ 8I,\YQ "I,^Q $HI,h5Q 0I,h6Q 6I,lqQ 0I-Q  I-YQ HI-,zQ *I-9<Q $$I-JyQ 

I-K@Q 4I-KQQ PI-KqQ HI-LQ .
I-LQQ I-LqQ &I-MVQ <
I-h6Q $<I-iQ I-kqQ *<I-xqQ (I-xtQ $HI.
1Q I.xQ $H
I.(YQ 2I.)Q I.)Q I.)Q .I.)9Q 0
I.,Q H
I.8sQ &I.8zQ ,I.9wQ >I.;Q I.;VQ HI.;wQ H
I.<qQ (I.=1Q :I.>6Q BI.>9Q @I.\sQ $
I.h6Q $HI.jQ I/\Q HItk y
	DA%A==<P
OINT 1,B-1,C>
Iu C	DA%A==<P1OINT D-C+1,B-1
,D>
D-C+1,B-1Iv;2 9
	DA%A==DA
%B
	DA%A==DAIv|R y
	DA%A==B
-1
	DA%A==BI$!1 7;
		XLIST
		DATB.C
		LIST

ATB.C
		LISTI$#Q /P|

	RADIX/p	10

	D.PNTR	DA0TTAB,DA

	DA.IT00M	NAM,1,3,17
	DA0P.ITM	SNL,1,18,35

	DA.ITM	VAL,2,10,17
	DA.SME	ARG10,VAL
	DA.ITM	LOC1P,2,18,35

	DA.I1pTM	POP,3,0,17
	D2A.SME	BRO,POP
	D20A.ITM	SON,3,18,352P

	DA.ITM	LVL,42p,0,5
	DA.ITM	RES3,4,6,11
	DA.FLG	30LPC,4,12
	DA.FLG3P	RBE,4,13
	DA.IT3pM	USG,4,14,17
	D4A.ITM	RPW,4,18,3540

	DA.ITM	CLA,54P,0,1
	DA.FLG	SYL4p,5,2
	DA.FLG	SYR5,5,3
	DA.FLG	SGN50,5,4
	DA.FLG	BWZ5P,5,5
	DA.FLG	SUB5p,5,6
	DA.FLG	EDT6,5,7
	DA.FLG	FAL60,5,8
	DA.FLG	DEF6P,5,9
	DA.FLG	RBS6p,5,10
	DA.FLG	FA7K,5,11
	DA.FLG	R70DS,5,12
	DA.FLG	7PSCT,5,13
	DA.FLG7p	JST,5,14
	DA.FL8G	SSC,5,15
	DA.F80LG	LSC,5,16
	DA.8PITM	SCF,5,15,16
8p	DA.FLG	DLL,5,17
	DA.FLG	ERR,5,1890
	DA.FLG	IDX,5,19P9
	DA.FLG	RDF,5,9p20
	DA.FLG	PIC,5:,21
	DA.FLG	DFS,:05,22
	DA.FLG	DRC:P,5,23
IFN ANS68,:p<
	DA.FLG	LRC,5,;24
>
IFN ANS74,;0<
	DA.FLG	DEB,5,;P24
>
	DA.FLG	SL;pL,5,25
	DA.FLG	P<WA,5,26
	DA.FLG	<0VHL,5,27
	DA.FLG<P	RDH,5,28
	DA.FL<pG	LKS,5,29
	DA.F=LG	DPR,5,30
	DA.=0ITM	NDP,5,31,35
=P
	DA.ITM	EXS,6,0=p,17
	DA.ITM	INS,>6,18,35

	DA.IT>0M	NOC,7,0,14
	DA>P.FLG	OCC,7,15
	D>pA.ITM	LN,7,16,28
	DA.ITM	CP,7,29,?035
	DA.ITM	LNC,7?P,16,35

	DA.ITM?p	OCH,8,0,17
	DA.@ITM	DEP,8,18,35
@0
	DA.ITM	DCR,9,0@P,8
	DA.ITM	KEY,9@p,9,17
	DA.ITM	XBAY,9,18,35

	DA.A0ITM	FSC,10,6,11

	RADIX	8



I$!1 @y	
		XLIST
		DBTB.C
		LIST

BTB.C
		LISTI$#Q fP~I

	RADIXfp	10

IFN ANS74,g<
	D.PNTR	DEBTABg0,DB

	DB.ITM	DAgPT,1,1,17
	DB.FLGgp	ARO,1,18
	DB.IThM	DUP,1,21,35

h0	DB.FLG	IDP,2,0
hP	DB.ITM	LN,2,5,17hp
	DB.ITM	PRM,2,1i8,35
>
	RADIX	8


>
	RADIX	8K`,86Q >K`,;ZQ $

K`,[ZQ @K`-Q HK`-RQ DK`-h6Q $<K`-lYQ FK`.
2Q BK`tk q
7	EX%A==<P
OINT 1,B-1,C>
K`u Y
	EX%A==<P9OINT D-C+1,B-1
,D>
D-C+1,B-1K`v;2 1
;	EX%A==EX
%B
	EX%A==EXK`v|R q
?	EX%A==B
-1
	EX%A==BKc$!1 7yA
		XLIST
		EXTB.C
		LIST

XTB.C
		LISTKc$#Q Ap|%

	RADIXB	10

	D.PNTR	EXB0TTAB,EX

	EX.ITBPM	NAM,1,3,17

	BpEX.FLG	NRS,2,0
	CEX.FLG	IND,2,1
	C0EX.FLG	PID,2,2
	CPEX.FLG	ENT,2,3
	CpEX.FLG	CAL,2,4
	DEX.ITM	CNT,2,15,1D07
	EX.ITM	HLD,2,DP18,35

	RADIX	8




	RADIX	8M$,SQ HM$,YQ $HM$,qQ $M$,uQ HM$,Q DM$,Q 8M$,3Q HM$,9Q $HM$,yQ .M$,(SQ HM$,(YQ $HM$,)3Q HM$,)9Q $HM$,+Q (0M$,+ Q 2M$,:xQ 0M$,<Q 
M$,<QQ 8 

M$,IYQ 4M$,LQQ FM$,LVQ HM$,LrQ 6M$,[ZQ 6M$,\VQ 8

M$,\YQ HM$,hYQ (@
M$,hxQ 

M$,iQ .M$,kQ P

M$,kQ 4

M$-WQ >M$-wQ :M$-VQ 2

M$->2Q,M$-HVQ@M$-K@Q,4
M$-KQQ$P
M$-KqQ$HM$-LVQ<HM$-LYQ600
M$-[Q$FM$-\YQ $0M$-h6Q $<M$-hSQ <M$-iQ $
M$-iVQ >M$-m6Q $H
M$.WQ $HM$.	7Q H
M$.	WQ $HM$.	YQ $H
M$.	ZQ HM$.
;Q H
M$.yQ $M$.

WQ HM$.

wQ *M$.(zQ $@M$.)Q <

M$.)9Q 2M$.*|Q HM$.+)Q BM$.+9Q (M$.,Q 8M$.,Q H	M$.,QQ 0M$.-Q H	M$.86Q $HM$.8PQ $HM$.9Q HM$.:|Q $HM$.<Q H	M$.<PQ $HM$.h6Q H
M$.iQ HM$.j2Q $HM$.kQ 4M$.lQ $H	M$tk 	1K	FI%A==<P
OINT 1,B-1,C>
M$u QG	FI%A==<PqOINT D-C+1,B-1,D>
D-C+1,B-1M$v;2 	qO	FI%A==FI
%B
	FI%A==FIM$v|R 
1S	FI%A==B
-1
	FI%A==BM'$!1 695
		XLIST
		FITB.C
		LIST

ITB.C
		LISTM'$#Q 

	RADIX	10

	D.PNTR	FI0LTAB,FI

	FI.ITPM	NAM,1,3,17

	pFI.FLG	MLT,2,0
	FI.ITM	RCT,2,2,170
	FI.ITM	OFT,2,1P8,35

	FI.ITM	FpBS,3,0,15
	FI.ITM	LN,3,16,28
	FI0.ITM	CP,3,29,35
P	FI.ITM	LNC,3,16,p35

	FI.ITM	LRS,4,0,11
	FI.ITM	0NDV,4,12,17
	FI.PITM	VAL,4,18,35
p
IFN ANS68,<
	FI.ITM	NFL,5,0,4
0>
IFN ANS74,<
	PFI.ITM	FAM,5,3,4
>
	FI.ITM	ERM,5,5,7
	FI.ITM	IRM0,5,8,10
	FI.ITM	PPOS,5,12,17
	FI.pITM	NXT,5,18,35

	FI.ITM	LBL,6,20,3
	FI.FLG	INO,6P,4
	FI.FLG	OUO,6p,5
	FI.FLG	IOO,6,6
	FI.FLG	ADV,60,7
	FI.FLG	DSD,6P,8
	FI.FLG	VLR,6p,9
	FI.FLG	RER,6,10
	FI.FLG	RRC,06,11
	FI.FLG	FDDP,6,12
	FI.FLG	OPpT,6,13
	FI.FLG	PSN,6,14
	FI.FLG	0RMS,6,15
	FI.ITMP	ACC,6,16,17
	FIp.SME	ORG,ACC
	FI.ITM	ACK,6,18,35

	FI.ITM	NBF,7,P0,5
	FI.ITM	MRS,p7,6,17
	FI.ITM	DRL,7,18,35

IFN0 ANS74,<
	FI.ITMP	ALK,8,0,17
>
	pFI.ITM	SDL,8,18,35

	FI.ITM	VID,09,0,17
	FI.ITM	VPDW,9,18,35

	FIp.ITM	SAL,10,0,17
	FI.SME	SBA,SAL
	FI.ITM	ERR,10,1P8,35

IFN ANS68p,<

	FI.ITM	BBR,11,0,17
	FI.ITM0	BBF,11,18,35

P	FI.ITM	ABR,12,0,p17
	FI.ITM	ABF,12,18,35

	FI.IT0M	BER,13,0,17
	FPI.ITM	BEF,13,18,3p5

	FI.ITM	AER,14,0,17
	FI.ITM	0AEF,14,18,35
>
P
IFN ANS74,<

p	FI.ITM	LCP,11,18,35

	FI.ITM	LP0P,12,0,17
	FI.ITPM	WFA,12,18,35
p
	FI.ITM	LAT,13,0 ,17
	FI.ITM	LAB, 013,18,35

	FI.I PTM	DEB,14,0,17
	 pFI.ITM	LCI,14,18,!35
>

	FI.ITM	!0SRA,15,0,17
	FI.!PITM	LRL,15,18,35

	FI.FLG	DRC,16",0
	FI.FLG	ADR,1"06,1
	FI.FLG	RM2,"P16,2
	FI.ITM	RD,"p16,3,5
	FI.ITM	R#P,16,6,7
	FI.FLG#0	ENT,16,8
	FI.FL#PG	DFR,16,9
	FI.F#pLG	BM,16,10
	FI.$FLG	CKP,16,11
	F$0I.FLG	AKS,16,12
$P	FI.FLG	KYE,16,13$p
	FI.ITM	LOC,16,%18,35

	FI.ITM	%0SKY,17,0,17
	FI.%PITM	RKY,17,18,35

IFN ANS74,<
	&FI.FLG	RLC,18,0
&0>
	FI.ITM	BLF,18&P,4,15
IFN ANS74,&p<
	FI.ITM	ALN,18',16,28
	FI.ITM	A'0LC,18,16,35
	FI.'PITM	ACP,18,29,35
>

	FI.ITM	VPP(,19,0,17
	FI.ITM(0	RPG,19,18,35

(P	FI.ITM	OWA,20,0,(p8
	FI.ITM	OTA,20),9,17
	FI.ITM	RT)0C,20,18,35
	FI.S)PME	SPT,RTC

	FI)p.ITM	PFS,21,0,17
	FI.ITM	PEN,21,1*08,35

	FI.ITM	P*PAC,22,0,17
	FI.I*pTM	PIV,22,18,35
+
	FI.ITM	PBN,23,+00,17
	FI.ITM	PRN+P,23,18,35

	FI.+pITM	PFN,24,0,17
,	FI.ITM	PFT,24,18,0,35

IFN ANS74,,P<
	FI.ITM	CKB,25,p,0,17
	FI.ITM	CK-A,25,18,35
>

-0	FI.ITM	CRC,26,0,-P7
	FI.ITM	FLN,26-p,16,28
	FI.ITM	F.LC,26,16,35
	FI..0ITM	FCP,26,29,35

	FI.ITM	NUM,27.p,0,17
;	FI.ITM	X/XX,27,18,35

	RADIX	8




	RM0,<Q M0-K@Q 4M0-KQQ PM0-h6Q (<M0-kQ 

M0-x6Q >M0-y7Q :M0-ywQ <M0-|Q BM0.RQ FM0.yQ M0.

WQ HM0.0Q &M0.)Q $M0.86Q @M0.<Q DM0tk $!	FL%A==<P
OINT 1,B-1,C>
M0u #1
p	FL%A==<P	OINT D-C+1,B-1
,D>
D-C+1,B-1M0v;2 $Q%	FL%A==FL
%B
	FL%A==FLM0v|R %)	FL%A==B
-1
	FL%A==BM3$!1 ;Y_
		XLIST
		FLTB.C
		LIST

LTB.C
		LISTM3$#Q Q0}5

	RADIXQP	10

	D.PNTR	FLQpOTAB,FL

	FL.FLRG	PND,1,0
	FL.FLR0G	SPF,1,1
	FL.FLRPG	OPF,1,2
	FL.FLRpG	SAL,1,3
	FL.FLSG	OAL,1,4
	FL.FLS0G	OGO,1,5
	FL.FLSPG	OEN,1,6
IFN ANSpS74,<
	FL.FLG	DETB,1,7
>
	FL.FLGT0	QUA,1,16
	FL.FLTPG	RDC,1,17
	FL.ITpTM	PRO,1,18,35
U
	FL.ITM	NAM,2,1,U015
	FL.ITM	NLC,2UP,1,35
	FL.ITM	LNUp,2,16,28
	FL.ITMV	LNC,2,16,35
	FLV0.ITM	CP,2,29,35
VP	FL.SME	POS,CP

	RADIX	8



Q0,:2Q HQ0,;rQ 6$Q0,<Q Q0,hrQ 6$Q0-K@Q 4Q0-KQQ PQ0-KUQ HQ0-h6Q (<Q0.6Q $$Q0.)Q $DQ0tk a
v	HL%A==<P
OINT 1,B-1,C>
Q0u W	HL%A==<P
qOINT D-C+1,B-1
,D>
D-C+1,B-1Q0v;2 !
z	HL%A==HL
%B
	HL%A==HLQ0v|R a
~	HL%A==B
-1
	HL%A==BQ3$!1 :S
		XLIST
		HLTB.C
		LIST

LTB.C
		LISTQ3$#Q J|u

	RADIXJ0	10

	D.PNTR HLJPDTAB,HL

	HL.ITJpM	NAM,1,1,15
	HLK.ITM	LNC,1,16,35
	HL.ITM	LN,1,16,KP28
	HL.ITM	CP,1,Kp29,35
	HL.ITM	RDL,1,1,17	; [415] RL0D LINK FOR TYPE 1LP4
	HL.ITM	CID,1,Lp18,35	; [415] CIDM LEVEL FOR TYPE 1M04

	HL.ITM	COD,MP2,0,8
	HL.ITM	QAMpL,2,9,17
	HL.ITMN	LNK,2,18,35
	HLN0.ITM	FCD,2,0,8;	;NPFULL CODE

	RADIX	8




	RADY$,QY8Y$,hqQHY$,iqQ4Y$-ZQ2Y$-htQ$Y$-kQA6Y$.T D-C+1,B-1
,D>
D-C+1,B-1Y$v;2 
Q	LI%A==LI
%B
	LI%A==LIY$v|R Q
U	LI%A==B
-1
	LI%A==BY'$!1 8YG
		XLIST
		LITB.C
		LIST

ITB.C
		LISTY'$#Q E|=

	RADIXE0	10

	D.PNTR	LIEPTTAB,LI

	LI.FLEpG	PUR,1,6
	LI.FLFG	ALL,1,7
	LI.FLF0G	NLT,1,8
	LI.FLFPG	FGC,1,9
	LI.FLFpG	INT,1,10
	LI.IGTM	NCH,1,11,17
	G0LI.ITM	FCC,1,18,3GP5

	RADIX	8




	RADIX	8

[;$#Q bp~

	RADIXc	10

	D.PNTR	MNc0TAB,MN

	MN.ITMcP	NAM,1,3,17
	MN.cpITM	SNL,1,18,35

	RADIX	8



]2N= q'NLIST1	A

)NLIST1	A]2N= 11
		DEFINEQ	A%B<
		XLIST
		A.B
		LIST
>	;END OF DEFINE A%'TPE.

FINEaH,Q 
aH,YQ 

aH,qQ $H
aH,YQ 


aH,I3Q 
aH,IRQ 
aH,^Q 
aH,kQ H
aH,{[Q $HaH-LqQ $HaH-YQ 
aH-h6Q $<aH.

SQ HaH.

TQ 
aH.)RQ 
aH.91QR
aH.;VQ HaH.M:Qu
aH/3	PR%A==<P&9OINT D-C+1,B-1
,D>
D-C+1,B-1aHv;2 'q?	PR%A==PR
%B
	PR%A==PRaHv|R (1C	PR%A==B
-1
	PR%A==BaK$!1 <9e
		XLIST
		PRTB.C
		LIST

RTB.C
		LISTaK$#Q W}q

	RADIXW0	10

	D.PNTR	PRWPOTAB,PR

	PR.ITWpM	NAM,1,3,17
	PRX.ITM	SNL,1,18,35

	PR.ITM	LSC,2,XP0,17
	PR.ITM	GNWXp,2,0,17
	PR.ITM	YPRF,2,18,35

	PY0R.ITM	AOB,3,0,17
	PR.ITM	PRI,3,18Yp,24
	PR.FLG	SEC,Z3,25
	PR.FLG	EXRZ0,3,26
	PR.FLG	DEZPF,3,27
	PR.FLG	AZpLT,3,28
	PR.FLG	[ARS,3,29
	PR.FLG[0	ANR,3,30
	PR.FL[PG	RFD,3,31
	PR.F[pLG	DFD,3,32
	PR.\FLG	MDF,3,33
	PR\0.FLG	TUT,3,34

\P	PR.ITM	XTW,4,0,1\p7
	PR.ITM	FLO,4,]18,35

IFN ANS7]04,<
	PR.WRD	DUP,]P5
	PR.ITM	DEB,5,]p0,17
	PR.ITM	SFI^,5,18,35
>

	RADIX	8




	Re8* Q $He8*e@Q He8tk 3		RN%A==<P
OINT 1,B-1,C>
e8u .aI	RN%A==<P)OINT D-C+1,B-1
,D>
D-C+1,B-1e8v;2 3I	RN%A==RN
%B
	RN%A==RNe8v|R 4	 	RN%A==B
-1
	RN%A==Be;$!1 AY
		XLIST
		RNTB.C
		LIST

NTB.C
		LISTe;$#Q iP~U
	RADIX	1ip0
	D.PNTR	RENTABj,RN
	RN.ITM	01,1j0,0,17
	RN.ITM	66jP,1,18,35
	RADIX 8

,35
	RADIX e\,*zQ $He\,,WQ (@e\,9SQ He\,9VQ $$e\,:Q $He\,:2Q $He\,;rQ He\,;vQ $$
e\,<Q e\,H:Q He\,HtQ $He\,hZQ He\,iQ $e\,ixQ H
e\,j6Q $H
e\,kQQ ,e\,y7Q .e\,z9Q $He\,|Q 0e\-H`Q $H
e\-HrQ De\-IQ $e\-J7Q 6$
e\-K@Q 4e\-KQQ Pe\-h6Q $<e\-htQ He\-kQ @e\-ltQ He\-nQ $
e\.3Q 6$e\.`Q H
e\.	YQ He\.
Q 6$e\.
Q $He\.)Q $<e\.)2Q $H
e\.)9Q $H
e\.)YQ He\.*Q $He\.,sQ 4e\.,tQ 2e\.,zQ 2e\.,zQ &e\.-zQ He\.86Q He\.8;Q He\.8rQ <e\.;Q H
e\.=8Q $He\.N8Q 6

e\.\Q $He\.\rQ He\tk ,Id	RW%A==<P
OINT 1,B-1,C>
e\u (Qb	RW%A==<P,)OINT D-C+1,B-1
,D>
D-C+1,B-1e\v;2 -Al	RW%A==RW
%B
	RW%A==RWe\v|R .
p	RW%A==B
-1
	RW%A==Be_$!0 >Yw
		XLIST
		RWTB.A
		LIST

WTB.A
		LISTe_$!1 ?9}
		XLIST
		RWTB.B
		LIST

WTB.B
		LISTe_$!1 @
		XLIST
		RWTB.C
		LIST

WTB.C
		LISTe_$#P k~a

	RADIXk0	10

	D.PNTR RPkPWTAB,RW


	
kp
	RW.ITM	NAM,1,3,l17;	NAMTAB LINK

	RADIX	8



e_$#Q lPw

	RADIXlp	10

	D.PNTR	RPmWTAB,RW

	RW.ITm0M	SAM,1,18,35

mP	RW.ITM	BRO,2,0,1mp5
	RW.ITM	LN,2,1n6,28
	RW.ITM	CP,n02,29,35
	RW.ITM	nPLNC,2,16,35

	RnpW.ITM	FIL,3,0,17
	RW.ITM	FGP,3,18o0,35

	RW.ITM	LCoP,4,0,17
	RW.ITM	opPC,4,18,35

	RWp.ITM	PHL,5,0,8
	p0RW.ITM	CFL,5,9,17pP
	RW.ITM	FDE,5,1pp8,26
	RW.ITM	LDEq,5,27,35

	RW.Iq0TM	PAG,6,0,8
	RWqP.ITM	RWT,6,18,35

	RW.ITM	RHR,7,r0,17
	RW.ITM	RFRr0,7,18,35

	RW.IrPTM	PHR,8,0,17
	RrpW.ITM	PFR,8,18,35s

	RW.ITM	GIR,9s0,0,17
	RW.ITM	COsPD,9,18,35

	RW.spITM	CID,10,0,17
t	RW.ITM	NCI,10,18t0,35

	RW.ITM	BKtPT,11,0,17
	RW.ITtpM	FBT,11,18,35
u

	

	RW.ITM	Ru0DL,1,3,17
	RW.SMuPE	DAT,SAM

	RW.upITM	LCD,2,0,1
	RvW.ITM	NLC,2,2,3
v0	RW.ITM	SCD,2,4,5vP
	RW.ITM	TYP,2,6vp,8
	RW.ITM	NSI,2w,18,35

	RW.ITMw0	LIN,3,0,8
	RW.IwPTM	COL,3,9,17
	RwpW.ITM	NXT,3,18,26x

	RW.SME	RES,Lx0C
	RW.SME	SLK,PCxP

	RW.ITM	UPN,5xp,0,17
	RW.ITM	USyE,5,18,35

	RW.y0ITM	SUP,6,0,17
yP
	;WORDS 7 THRU 2yp5 ARE USED TO STOzRE THE SOURCE ITEz0M
	; (ALLOW FOR zP3 SUBSCRIPTS WITHzp ADDITIVES)
	; ({SEE P.MAC, SYMBOL{0 .RWSRC )

	
{P
	RW.ITM	DCI,1,0,{p17
	RW.SME	SAV,S|AM

	RW.ITM	CHG|0,2,0,17
	RW.FLG	|PRSF,2,9
	RW.FLG	|pRSI,2,10
	RW.ITM}	RST,2,9,10
	RW.}0FLG	GPI,2,11
	RW}P.FLG	GEN,2,12
	R}pW.FLG	FNC,2,13
	~RW.FLG	RSU,2,16
~0	RW.SME	CFG,NSI
~P
	RW.SME	REE,FIL~p

	RADIX	8




	RADIX	8

e_$#Q 0{

	RWTB.A
	RWTB.B


.kL,;ZQ $0kL.

WQHkL.N8QO0$kL/,C>
kLu  !	US%A==<P AOINT D-C+1,B-1
,D>
D-C+1,B-1kLv;2 "	US%A==US
%B
	US%A==USkLv|R "Q	US%A==B
-1
	US%A==BkO$!1 :yY
		XLIST
		USTB.C
		LIST

STB.C
		LISTkO$#Q O}

	RADIXO0	10

	D.PNTR	USOPETAB,US

	US.ITOpM	TYP,1,3,11
	USP.FLG	XTR,1,17
	UP0S.ITM	PRO,1,18,35PP

	US.ITM	CNT,2Pp,6,17

	RADIX	8




	RADIX	8S@P >}{woP