PDP-10 Archive: tables.unv from cobol12c

Trailing-Edge - PDP-10 Archives - cobol12c - tables.unv

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

x
,55@P C/$!1 ?A~
		XLIST
		AKTB.C
		LIST
KTB.C
		LISTC/$#Q eQ;

	RADIXeq	10

IFN ANS74,f<
	D.PNTR	AKTTABf0,AK

	AK.ITM	FLfPK,1,1,17
	AK.ITMfp	DLK,1,18,35

	gAK.FLG	DUP,2,0
>g0

	RADIX	8



	RADIX	8

C;fP C;uP G,H`Q $HG-ZQ DG-J7Q 4G-h6Q $<G-}:Q FG.)Q $HG.;VQ HGtk ,)b	CD%A==<POINT 1,B-1,C>Gu )9	CD%A==<P'OINT D-C+1,B-1,D>D-C+1,B-1Gv;2 ,if	CD%A==CD%B	CD%A==CDGv|R -)j	CD%A==B-1	CD%A==BG$!1 >ax
		XLIST
		CDTB.C
		LIST
DTB.C
		LISTG$#Q _q

	RADIX`	10

	D.PNTR	CD`0TAB,CD

	CD.ITM`P	NAM,1,3,17
	CD.`pITM	SNL,1,18,35
a
	CD.FLG	OUT,2,0a0
	CD.ITM	INT,2,0aP,1
	CD.ITM	LIN,2ap,16,28	;LINE NUMBbER

	CD.ITM	RDLb0,3,0,17

	CD.ITbPM	DC,6,0,17

IFbpN ANS74,<
	CD.ITcM	FDL,9,0,17
	CDc0.ITM	DUP,9,18,35
>
	RADIX	8

>
	RADIX	8

G<,H:Q $HG<-h6Q $<G<-mVQ HG<tk in	CO%A==<POINT 1,B-1,C>G<u qi	CO%A==<POINT D-C+1,B-1,D>D-C+1,B-1G<v;2 )r	CO%A==CO%B	CO%A==COG<v|R iv	CO%A==B-1	CO%A==BG?$!1 ;Z
		XLIST
		COTB.C
		LIST
OTB.C
		LISTG?$#Q I1

W

	RADIXIQ	10

	D.PNTR COIpNTAB,CO

	CO.ITJM	NAM,1,3,17

	J0CO.ITM	DAT,2,0,17JP
	CO.ITM	NVL,2,1Jp8,35

	RADIX	8



	RADIX	8A
	XLIST
q
	DEFINE B.ITM 1(ITMID,WRDNO,LFTBQIT,RTBIT),<
		XLpIST
B.'ITMID::	B%'ITMID+<TA>B170
		LIST
	>	

P	DEFINE B.FLG (FpLGID,WRDNO,BITNO),<
		XLIST
		B0.ITM	FLGID,WRDNO,PBITNO,BITNO
		LIpST
	>	

	DEFINE	B.SME	(ID1,ID20)<
		XLIST
		BP.'ID1==:B.'ID2
p		LIST
	>	

	DEFINE	B.WRD	(ITMPID,WRDNO)<
		XLIpST
		B.'ITMID==:WRDNO-1
		LIST
	>	

	LIST
I,SQ $HI,,WQ $HI,-}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 $HI.(YQ 2I.)Q I.)Q I.)Q .I.)9Q 0I.,Q HI.8sQ &I.8zQ ,I.9wQ >I.;Q I.;VQ HI.;wQ HI.<qQ (I.=1Q :I.>6Q BI.>9Q @I.\sQ $I.h6Q $HI.jQ I/\Q HItk 9	DA%A==<POINT 1,B-1,C>Iu 	QO	DA%A==<P	qOINT D-C+1,B-1,D>D-C+1,B-1Iv;2 y	DA%A==DA%B	DA%A==DAIv|R 9	DA%A==B-1	DA%A==BI$!1 8aH
		XLIST
		DATB.C
		LIST
ATB.C
		LISTI$#Q /Q



	RADIX/q	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
@0IFE ANS74,<
	DA.@PITM	DCR,9,0,8
	D@pA.ITM	KEY,9,9,17
>;[1346]
IFN ANA0S74,<
	DA.ITM	DCAPR,9,0,9
	DA.ITM	ApKEY,9,10,17
>;[1B346]
	DA.ITM	XBYB0,9,18,35

	DA.IBPTM	FSC,10,6,11

	RADIX	8


I$!1 BA
		XLIST
		DBTB.C
		LIST
BTB.C
		LISTI$#Q gqS

	RADIXh	10

IFN ANS74,h0<
	D.PNTR	DEBTABhP,DB

	DB.ITM	DAhpT,1,1,17
	DB.FLGi	ARO,1,18
	DB.ITi0M	DUP,1,21,35

iP	DB.FLG	IDP,2,0
ip	DB.ITM	LN,2,5,17j
	DB.ITM	PRM,2,1j08,35
>
	RADIX	8

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

K`,[ZQ @K`-Q HK`-RQ DK`-h6Q $<K`-lYQ FK`.
2Q BK`tk 1C	EX%A==<POINT 1,B-1,C>K`u 	EX%A==<PyOINT D-C+1,B-1,D>D-C+1,B-1K`v;2 qG	EX%A==EX%B	EX%A==EXK`v|R 1K	EX%A==B-1	EX%A==BKc$!1 9AN
		XLIST
		EXTB.C
		LIST
XTB.C
		LISTKc$#Q C

/

	RADIXC1	10

	D.PNTR	EXCPTTAB,EX

	EX.ITCpM	NAM,1,3,17

	DEX.FLG	NRS,2,0
	D0EX.FLG	IND,2,1
	DPEX.FLG	PID,2,2
	DpEX.FLG	ENT,2,3
	EEX.FLG	CAL,2,4
	E0EX.ITM	CNT,2,15,1EP7
	EX.ITM	HLD,2,Ep18,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,4M$-KQQ$PM$-KqQ$HM$-LVQ<HM$-LYQ600M$-[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 HM$.iQ HM$.j2Q $HM$.kQ 4M$.lQ $H	M$tk 
qW	FI%A==<POINT 1,B-1,C>M$u 
S	FI%A==<P
1OINT D-C+1,B-1,D>D-C+1,B-1M$v;2 1[	FI%A==FI%B	FI%A==FIM$v|R q_	FI%A==B-1	FI%A==BM'$!1 8B
		XLIST
		FITB.C
		LIST
ITB.C
		LISTM'$#Q 
y

	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 %Q-	FL%A==<POINT 1,B-1,C>M0u $q|	FL%A==<PIOINT D-C+1,B-1,D>D-C+1,B-1M0v;2 &1	FL%A==FL%B	FL%A==FLM0v|R &Q5	FL%A==B-1	FL%A==BM3$!1 =!l
		XLIST
		FLTB.C
		LIST
LTB.C
		LISTM3$#Q RQ

	RADIXRq	10

	D.PNTR	FLSOTAB,FL

	FL.FLS0G	PND,1,0
	FL.FLSPG	SPF,1,1
	FL.FLSpG	OPF,1,2
	FL.FLTG	SAL,1,3
	FL.FLT0G	OAL,1,4
	FL.FLTPG	OGO,1,5
	FL.FLTpG	OEN,1,6
IFN ANUS74,<
	FL.FLG	DEU0B,1,7
>
	FL.FLGUP	QUA,1,16
	FL.FLUpG	RDC,1,17
	FL.IVTM	PRO,1,18,35
V0
	FL.ITM	NAM,2,1,VP15
	FL.ITM	NLC,2Vp,1,35
	FL.ITM	LNW,2,16,28
	FL.ITMW0	LNC,2,16,35
	FLWP.ITM	CP,2,29,35
Wp	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  !	HL%A==<POINT 1,B-1,C>Q0u Qc	HL%A==<P

1OINT D-C+1,B-1,D>D-C+1,B-1Q0v;2  a	HL%A==HL%B	HL%A==HLQ0v|R !!
	HL%A==B-1	HL%A==BQ3$!1 ;a`
		XLIST
		HLTB.C
		LIST
LTB.C
		LISTQ3$#Q K1



	RADIXKQ	10

	D.PNTR HLKpDTAB,HL

	HL.ITLM	NAM,1,1,15
	HLL0.ITM	LNC,1,16,35
	HL.ITM	LN,1,16,Lp28
	HL.ITM	CP,1,M29,35
	HL.ITM	RDM0,1,1,17	; [415] RMPD LINK FOR TYPE 1Mp4
	HL.ITM	CID,1,N18,35	; [415] CIDN0 LEVEL FOR TYPE 1NP4

	HL.ITM	COD,Np2,0,8
	HL.ITM	QAOL,2,9,17
	HL.ITMO0	LNK,2,18,35
	HLOP.ITM	FCD,2,0,8;	;OpFULL CODE

	RADIX	8



	RADY$,QY8Y$,hqQHY$,iqQ4Y$-ZQ2Y$-htQ$Y$-kQA6Y$.

QOINT D-C+1,B-1,D>D-C+1,B-1Y$v;2 Q]	LI%A==LI%B	LI%A==LIY$v|R a	LI%A==B-1	LI%A==BY'$!1 :!T
		XLIST
		LITB.C
		LIST
ITB.C
		LISTY'$#Q F1

G

	RADIXFQ	10

	D.PNTR	LIFpTTAB,LI

	LI.FLGG	PUR,1,6
	LI.FLG0G	ALL,1,7
	LI.FLGPG	NLT,1,8
	LI.FLGpG	FGC,1,9
	LI.FLHG	INT,1,10
	LI.IH0TM	NCH,1,11,17
	HPLI.ITM	FCC,1,18,3Hp5

	RADIX	8



	RADIX	8

[;$#Q d)

	RADIXd1	10

	D.PNTR	MNdPTAB,MN

	MN.ITMdp	NAM,1,3,17
	MN.eITM	SNL,1,18,35

	RADIX	8


]2N= 13NLIST1	A5NLIST1	A]2N= q=
		DEFINE	A%B<
		XLIST
		A.B
		LIST
>	;END OF DEFINE A%'TPE.
FINEaH,Q aH,YQ 
aH,qQ $HaH,YQ

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

SQ HaH.

TQ aH.)RQ aH.91QRaH.;VQ HaH.M:QuaH/?	PR%A==<P'yOINT D-C+1,B-1,D>D-C+1,B-1aHv;2 )1K	PR%A==PR%B	PR%A==PRaHv|R )qO	PR%A==B-1	PR%A==BaK$!1 >r
		XLIST
		PRTB.C
		LIST
RTB.C
		LISTaK$#Q X1

	RADIXXQ	10

	D.PNTR	PRXpOTAB,PR

	PR.ITYM	NAM,1,3,17
	PRY0.ITM	SNL,1,18,35

	PR.ITM	LSC,2,Yp0,17
	PR.ITM	GNWZ,2,0,17
	PR.ITM	Z0PRF,2,18,35

	PZPR.ITM	AOB,3,0,17
	PR.ITM	PRI,3,18[,24
	PR.FLG	SEC,[03,25
	PR.FLG	EXR[P,3,26
	PR.FLG	DE[pF,3,27
	PR.FLG	A\LT,3,28
	PR.FLG	\0ARS,3,29
	PR.FLG\P	ANR,3,30
	PR.FL\pG	RFD,3,31
	PR.F]LG	DFD,3,32
	PR.]0FLG	MDF,3,33
	PR]P.FLG	TUT,3,34

]p	PR.ITM	XTW,4,0,1^7
	PR.ITM	FLO,4,^018,35

IFN ANS7^P4,<
	PR.WRD	DUP,^p5
	PR.ITM	DEB,5,_0,17
	PR.ITM	SFI_0,5,18,35
>

	RADIX	8



	Re8* Q $He8*e@Q He8tk 4Q%	RN%A==<POINT 1,B-1,C>e8u 0AU	RN%A==<P*QOINT D-C+1,B-1,D>D-C+1,B-1e8v;2 5)	RN%A==RN%B	RN%A==RNe8v|R 5Q-	RN%A==B-1	RN%A==Be;$!1 C!
		XLIST
		RNTB.C
		LIST
NTB.C
		LISTe;$#Q jq_
	RADIX	1k0
	D.PNTR	RENTABk0,RN
	RN.ITM	01,1kP,0,17
	RN.ITM	66kp,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 He\,j6Q $He\,kQQ ,e\,y7Q .e\,z9Q $He\,|Q 0e\-H`Q $He\-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 He\.	YQ He\.
Q 6$e\.
Q $He\.)Q $De\.)2Q $He\.)9Q $He\.)YQ He\.*Q 2e\.*Q $He\.,sQ 4e\.,tQ 2e\.,zQ 2e\.,zQ &e\.-zQ He\.86Q He\.8;Q He\.8rQ <e\.;Q He\.=8Q $He\.N8Q 6

e\.\Q $He\.\rQ He\tk .	p	RW%A==<POINT 1,B-1,C>e\u *n	RW%A==<P-iOINT D-C+1,B-1,D>D-C+1,B-1e\v;2 /x	RW%A==RW%B	RW%A==RWe\v|R /A|	RW%A==B-1	RW%A==Be_$!0 @!
		XLIST
		RWTB.A
		LIST
WTB.A
		LISTe_$!1 A

		XLIST
		RWTB.B
		LIST
WTB.B
		LISTe_$!1 Aa
		XLIST
		RWTB.C
		LIST
WTB.C
		LISTe_$#P l1k

	RADIXlQ	10

	D.PNTR RPlpWTAB,RW


	
m
	RW.ITM	NAM,1,3,m017;	NAMTAB LINK

	RADIX	8


e_$#Q mq

	RADIXn	10

	D.PNTR	RPn0WTAB,RW

	RW.ITnPM	SAM,1,18,35

np	RW.ITM	BRO,2,0,1o5
	RW.ITM	LN,2,1o06,28
	RW.ITM	CP,oP2,29,35
	RW.ITM	opLNC,2,16,35

	RpW.ITM	FIL,3,0,17
	RW.ITM	FGP,3,18pP,35

	RW.ITM	LCpp,4,0,17
	RW.ITM	qPC,4,18,35

	RWq0.ITM	PHL,5,0,8
	qPRW.ITM	CFL,5,9,17qp
	RW.ITM	FDE,5,1r8,26
	RW.ITM	LDEr0,5,27,35

	RW.IrPTM	PAG,6,0,8
	RWrp.FLG	RHL,6,10
	RsW.ITM	RWT,6,18,35s0

	RW.ITM	RHR,7sP,0,17
	RW.ITM	RFspR,7,18,35

	RW.tITM	PHR,8,0,17
	t0RW.ITM	PFR,8,18,3tP5

	RW.ITM	GIR,tp9,0,17
	RW.ITM	CuOD,9,18,35

	RWu0.ITM	CID,10,0,17
	RW.ITM	NCI,10,1up8,35

	RW.ITM	BvKT,11,0,17
	RW.Iv0TM	FBT,11,18,35
vP

	

	RW.ITM	vpRDL,1,1,17
	RW.SwME	DAT,SAM

	RWw0.ITM	LCD,2,0,1
	wPRW.ITM	NLC,2,2,3
	RW.ITM	SCD,2,4,x5
	RW.ITM	TYP,2,x06,8
	RW.ITM	NSI,xP2,18,35

	RW.ITxpM	LIN,3,0,8
	RW.yITM	COL,3,9,17
	y0RW.ITM	NXT,3,18,2yP6

	RW.SME	RES,ypLC
	RW.SME	SLK,PzC

	RW.ITM	UPN,z05,0,17
	RW.ITM	UzPSE,5,18,35

	RWzp.ITM	SUP,6,0,17
{
	;WORDS 7 THRU {025 ARE USED TO ST{PORE THE SOURCE IT{pEM
	; (ALLOW FOR| 3 SUBSCRIPTS WIT|0H ADDITIVES)
	; |P(SEE P.MAC, SYMBO|pL .RWSRC )

	
}
	RW.ITM	DCI,1,0}0,17
	RW.SME	SAV,}PSAM

	RW.ITM	CH}pG,2,0,17
	RW.FLG~	RSF,2,9
	RW.FLG~0	RSI,2,10
	RW.IT~PM	RST,2,9,10
	RW~p.FLG	GPI,2,11
	RW.FLG	GEN,2,12
	0RW.FLG	FNC,2,13
P	RW.FLG	RSU,2,16
	RW.SME	CFG,NSI

	RW.SME	REE,FI0L

	RADIX	8



	RADIX	8

e_$#Q q

	RWTB.A
	RWTB.B

.kL,;ZQ $0kL.

WQ HkL.N8Q 0$kL/	US%A==<POINT 1,B-1,C>kLu !a	US%A==<P"OINT D-C+1,B-1,D>D-C+1,B-1kLv;2 #Q	US%A==US%B	US%A==USkLv|R $!	US%A==B-1	US%A==BkO$!1 <Af
		XLIST
		USTB.C
		LIST
STB.C
		LISTkO$#Q P1

	RADIXPQ	10

	D.PNTR	USPpETAB,US

	US.ITQM	TYP,1,3,11
	USQ0.FLG	XTR,1,17
	UQPS.ITM	PRO,1,18,35Qp

	US.ITM	CNT,2R,6,17

	RADIX	8



	RADIX	8S@P >}{woP 
COPYRIGHT (C) 1985 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
ALL RIGHTS RESERVED.