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
,5D@P C,,KQ HC,,M8Q FC,,kQ $DC,tk 19	AK%A==<POINT 1,B-1,C>C,u ,i	AK%A==<P01OINT D-C+1,B-1,D>D-C+1,B-1C,v;2 1y	AK%A==AK%B	AK%A==AKC,v|R 29	AK%A==B-1	AK%A==BC/$!1 G:
		XLIST
		AKTB.C
		LIST
KTB.C
		LISTC/$#Q g1I

	RADIXgQ	10

IFN ANS74,gp<
	D.PNTR	AKTTABh,AK

	AK.ITM	FLh0K,1,1,17
	AK.ITMhP	DLK,1,18,35

	hpAK.FLG	DUP,2,0
>i

	RADIX	8



	RADIX	8

C;fP C;uP G,H`Q $HG,M8Q HG,iQ $HG-ZQ DG-J7Q 4G-h6Q $<G-}:Q FG.)Q $HG.;VQ HGtk .Qu	CD%A==<POINT 1,B-1,C>Gu !96	CD%A==<P&aOINT D-C+1,B-1,D>D-C+1,B-1Gv;2 /y	CD%A==CD%B	CD%A==CDGv|R /Q}	CD%A==B-1	CD%A==BG$!1 F!4
		XLIST
		CDTB.C
		LIST
DTB.C
		LISTG$#Q aQ+

	RADIXaq	10

	D.PNTR	CDbTAB,CD

	CD.ITMb0	NAM,1,3,17
	CD.bPITM	SNL,1,18,35
bp
	CD.FLG	OUT,2,0c
	CD.ITM	INT,2,0c0,1
	CD.ITM	LIN,2cP,16,28	;LINE NUMBcpER

	CD.ITM	RDLd,3,0,17

	CD.ITd0M	DC,6,0,17

IFdPN ANS74,<
	CD.ITdpM	FDL,9,0,17
	CDe.ITM	DUP,9,18,35
>
	RADIX	8

>
	RADIX	8

G<,H:Q $HG<-h6Q $<G<-mVQ HG<tk y	CO%A==<POINT 1,B-1,C>G<u z	CO%A==<P)OINT D-C+1,B-1,D>D-C+1,B-1G<v;2  9	CO%A==CO%B	CO%A==COG<v|R  y	CO%A==B-1	CO%A==BG?$!1 BA
		XLIST
		COTB.C
		LIST
OTB.C
		LISTG?$#Q K

e

	RADIXK1	10

	D.PNTR COKPNTAB,CO

	CO.ITKpM	NAM,1,3,17

	LCO.ITM	DAT,2,0,17L0
	CO.ITM	NVL,2,1LP8,35

	RADIX	8



	RADIX	8qO
	XLIST
Q
	DEFINE B.ITM (ITMID,WRDNO,LFTB1IT,RTBIT),<
		XLPIST
B.'ITMID::	pB%'ITMID+<TA>B17
		LIST
	>	

0	DEFINE B.FLG (FPLGID,WRDNO,BITNO)p,<
		XLIST
		B.ITM	FLGID,WRDNO,0BITNO,BITNO
		LIPST
	>	

	DEFINpE	B.SME	(ID1,ID2)<
		XLIST
		B0.'ID1==:B.'ID2
P		LIST
	>	

	DpEFINE	B.WRD	(ITM0ID,WRDNO)<
		XLI	PST
		B.'ITMID==	q:WRDNO-1
		LIST
	>	

	LIST
I,SQ $HI,,WQ $HI,-}Q <I,;Q DI,<Q I,HyQ 4(I,I1Q 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-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 I$	DA%A==<POINT 1,B-1,C>Iu 1q	DA%A==<POINT D-C+1,B-1,D>D-C+1,B-1Iv;2 	(	DA%A==DA%B	DA%A==DAIv|R I,	DA%A==B-1	DA%A==BI$!1 @!
		XLIST
		DATB.C
		LIST
ATB.C
		LISTI$#Q 11

#

	RADIX1Q	10

	D.PNTR	DA1pTTAB,DA

	DA.IT2M	NAM,1,3,17
	DA20.ITM	SNL,1,18,35

	DA.ITM	VAL,2,2p0,17
	DA.SME	ARG3,VAL
	DA.ITM	LOC30,2,18,35

	DA.I3PTM	POP,3,0,17
	D3pA.SME	BRO,POP
	D4A.ITM	SON,3,18,3540

	DA.ITM	LVL,44P,0,5
	DA.ITM	RES4p,4,6,11
	DA.FLG	5LPC,4,12
	DA.FLG50	RBE,4,13
	DA.IT5PM	USG,4,14,17
	D5pA.ITM	RPW,4,18,356

	DA.ITM	CLA,560,0,1
	DA.FLG	SYL6P,5,2
	DA.FLG	SYR6p,5,3
	DA.FLG	SGN7,5,4
	DA.FLG	BWZ70,5,5
	DA.FLG	SUB7P,5,6
	DA.FLG	EDT7p,5,7
	DA.FLG	FAL8,5,8
	DA.FLG	DEF80,5,9
	DA.FLG	RBS8P,5,10
	DA.FLG	FA8pK,5,11
	DA.FLG	R9DS,5,12
	DA.FLG	90SCT,5,13
	DA.FLG9P	JST,5,14
	DA.FL9pG	SSC,5,15
	DA.F:LG	LSC,5,16
	DA.:0ITM	SCF,5,15,16
:P	DA.FLG	DLL,5,17
	DA.FLG	ERR,5,18;
	DA.FLG	IDX,5,1;09
	DA.FLG	RDF,5,;P20
	DA.FLG	PIC,5;p,21
	DA.FLG	DFS,<5,22
	DA.FLG	DRC<0,5,23
IFN ANS68,<P<
	DA.FLG	LRC,5,<p24
>
IFN ANS74,=<
	DA.FLG	DEB,5,=024
>
	DA.FLG	SL=PL,5,25
	DA.FLG	P=pWA,5,26
	DA.FLG	>VHL,5,27
	DA.FLG>0	RDH,5,28
	DA.FL>PG	LKS,5,29
	DA.F>pLG	DPR,5,30
	DA.?ITM	NDP,5,31,35
?0
	DA.ITM	EXS,6,0?P,17
	DA.ITM	INS,?p6,18,35

	DA.IT@M	NOC,7,0,14
	DA@0.FLG	OCC,7,15
	D@PA.ITM	LN,7,16,28
	DA.ITM	CP,7,29,A35
	DA.ITM	LNC,7A0,16,35

	DA.ITMAP	OCH,8,0,17
	DA.ApITM	DEP,8,18,35
BIFE ANS74,<
	DA.B0ITM	DCR,9,0,8
	DBPA.ITM	KEY,9,9,17
>;[1346]
IFN ANCS74,<
	DA.ITM	DCC0R,9,0,9
	DA.ITM	CPKEY,9,10,17
>;[1Cp346]
	DA.ITM	XBYD,9,18,35

	DA.ID0TM	FSC,10,6,11

	RADIX	8


I,WQ "I,H:Q $DI,M8Q <I-Q FI-K@Q $4I.

VQ HItk 9AL	DB%A==<POINT 1,B-1,C>Iu 51	DB%A==<P0OINT D-C+1,B-1,D>D-C+1,B-1Iv;2 :P	DB%A==DB%B	DB%A==DBIv|R :AT	DB%A==B-1	DB%A==BI$!1 JR
		XLIST
		DBTB.C
		LIST
BTB.C
		LISTI$#Q iQa

	RADIXiq	10

IFN ANS74,j<
	D.PNTR	DEBTABj0,DB

	DB.ITM	DAjPT,1,1,17
	DB.FLGjp	ARO,1,18
	DB.ITkM	DUP,1,21,35

k0	DB.FLG	IDP,2,0
kP	DB.ITM	LN,2,5,17kp
	DB.ITM	PRM,2,1l8,35
>
	RADIX	8

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

K`,[ZQ @K`-Q HK`-RQ DK`-h6Q $<K`-lYQ FK`.
2Q BK`tk AT	EX%A==<POINT 1,B-1,C>K`u )0	EX%A==<P	OINT D-C+1,B-1,D>D-C+1,B-1K`v;2 X	EX%A==EX%B	EX%A==EXK`v|R A\	EX%A==B-1	EX%A==BKc$!1 A

		XLIST
		EXTB.C
		LIST
XTB.C
		LISTKc$#Q Dq

=

	RADIXE	10

	D.PNTR	EXE0TTAB,EX

	EX.ITEPM	NAM,1,3,17

	EpEX.FLG	NRS,2,0
	FEX.FLG	IND,2,1
	F0EX.FLG	PID,2,2
	FPEX.FLG	ENT,2,3
	FpEX.FLG	CAL,2,4
	GEX.ITM	CNT,2,15,1G07
	EX.ITM	HLD,2,GP18,35

	RADIX	8



	RADIX	8M$,qQ $M$,uQ HM$,xQ M$,Q DM$,Q 8M$,yQ .M$,Q PM$,Q $HM$,Q 4M$,+Q (0M$,+ Q 2M$,:pQ H

M$,:qQ $H

M$,:xQ 0M$,<Q M$,<QQ 8

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

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

M$,iQ .M$,kQ P

M$,kQ 4

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

M$->2Q,M$-H1QHM$-H:Q,$HM$-HVQ$@M$-HtQ$HM$-HxQ<HM$-K@Q64M$-KQQ$PM$-KqQ HM$-LQ $HM$-LVQ HM$-LYQ 00M$-[Q FM$-\YQ $0M$-h6Q $<M$-hSQ <M$-iQ $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 FM$.+)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$.yPQ HM$tk

Qe	FI%A==<POINT 1,B-1,C>M$u qa	FI%A==<P

OINTD-C+1,B-1,D>D-C+1,B-1M$v;2 ?A~
		XLIST
		FITB.C
		LIST
ITB.C
		LISTM'$#Q Q

	RADIXq	10

	D.PNTR	FILTAB,FI

	FI.IT0M	NAM,1,3,17

	PFI.FLG	MLT,2,0
	pFI.ITM	RCT,2,2,17
	FI.ITM	OFT,2,108,35

	FI.ITM	FPBS,3,0,15
	FI.ITpM	LN,3,16,28
	FI.ITM	CP,3,29,35
0	FI.ITM	LNC,3,16,P35

	FI.ITM	LRSp,4,0,11
	FI.ITM	NDV,4,12,17
	FI.0ITM	VAL,4,18,35
P
IFN ANS68,<
	FpI.ITM	NFL,5,0,4
>
IFN ANS74,<
	0FI.ITM	FAM,5,3,4
>
	FI.ITM	ERM,5p,5,7
	FI.ITM	IRM,5,8,10
	FI.ITM	0POS,5,12,17
	FI.PITM	NXT,5,18,35
p
	FI.ITM	LBL,6,2,3
	FI.FLG	INO,60,4
	FI.FLG	OUO,6P,5
	FI.FLG	IOO,6p,6
	FI.FLG	ADV,6,7
	FI.FLG	DSD,60,8
	FI.FLG	VLR,6P,9
	FI.FLG	RER,6p,10
	FI.FLG	RRC,6,11
	FI.FLG	FDD0,6,12
	FI.FLG	OPPT,6,13
	FI.FLG	PpSN,6,14
	FI.FLG	RMS,6,15
	FI.ITM0	ACC,6,16,17
	FIP.SME	ORG,ACC
	FIp.ITM	ACK,6,18,35

	FI.ITM	NBF,7,00,5
	FI.ITM	MRS,P7,6,17
	FI.ITM	DpRL,7,18,35

IFN ANS74,<
	FI.ITM0	ALK,8,0,17
>
	PFI.ITM	SDL,8,18,3p5

	FI.ITM	VID,9,0,17
	FI.ITM	V0DW,9,18,35

	FIP.ITM	SAL,10,0,17
	FI.SME	SBA,SAL
	FI.ITM	ERR,10,108,35

IFN ANS68P,<

	FI.ITM	BBRp,11,0,17
	FI.ITM	BBF,11,18,35

0	FI.ITM	ABR,12,0,P17
	FI.ITM	ABF,1p2,18,35

	FI.ITM	BER,13,0,17
	F0I.ITM	BEF,13,18,3P5

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

 P	FI.ITM	LCP,11,18 p,35

	FI.ITM	LP!P,12,0,17
	FI.IT!0M	WFA,12,18,35
!P
	FI.ITM	LAT,13,0!p,17
	FI.ITM	LAB,"13,18,35

	FI.I"0TM	DEB,14,0,17
	"PFI.ITM	LCI,14,18,"p35
>

	FI.ITM	#SRA,15,0,17
	FI.#0ITM	LRL,15,18,35

	FI.FLG	DRC,16#p,0
	FI.FLG	ADR,1$6,1
	FI.FLG	RM2,$016,2
	FI.ITM	RD,$P16,3,5
	FI.ITM	R$pP,16,6,7
	FI.FLG%	ENT,16,8
	FI.FL%0G	DFR,16,9
	FI.F%PLG	BM,16,10
	FI.%pFLG	CKP,16,11
	F&I.FLG	AKS,16,12
&0	FI.FLG	KYE,16,13&P
	FI.ITM	LOC,16,&p18,35

	FI.ITM	'SKY,17,0,17
	FI.'0ITM	RKY,17,18,35

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

	FI.ITM	VPP)p,19,0,17
	FI.ITM*	RPG,19,18,35

*0	FI.ITM	OWA,20,0,*P8
	FI.ITM	OTA,20*p,9,17
	FI.ITM	RT+C,20,18,35
	FI.S+0ME	SPT,RTC

	FI+P.ITM	PFS,21,0,17
	FI.ITM	PEN,21,1,8,35

	FI.ITM	P,0AC,22,0,17
	FI.I,PTM	PIV,22,18,35
,p
	FI.ITM	PBN,23,-0,17
	FI.ITM	PRN-0,23,18,35

	FI.-PITM	PFN,24,0,17
-p	FI.ITM	PFT,24,18.,35

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

/	FI.ITM	CRC,26,0,/07
	FI.ITM	FLN,26/P,16,28
	FI.ITM	F/pLC,26,16,35
	FI.0ITM	FCP,26,29,35

	FI.ITM	NUM,270P,0,17
;	FI.ITM	X0pXX,27,18,35

	RADIX	8



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

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

WQHM0.0QO&M0.)Q-$M0.86Q+@M0.<QDM0tk%'a>	FL%A==<POINT|1,B-1,C>M0u%'-1	FL%A==BM3$!1 Da(
		XLIST
		FLTB.C
		LIST
LTB.C
		LISTM3$#Q T1

	RADIXTQ	10

	D.PNTR	FLTpOTAB,FL

	FL.FLUG	PND,1,0
	FL.FLU0G	SPF,1,1
	FL.FLUPG	OPF,1,2
	FL.FLUpG	SAL,1,3
	FL.FLVG	OAL,1,4
	FL.FLV0G	OGO,1,5
	FL.FLVPG	OEN,1,6
IFN ANVpS74,<
	FL.FLG	DEWB,1,7
>
	FL.FLGW0	QUA,1,16
	FL.FLWPG	RDC,1,17
	FL.IWpTM	PRO,1,18,35
X
	FL.ITM	NAM,2,1,X015
	FL.ITM	NLC,2XP,1,35
	FL.ITM	LNXp,2,16,28
	FL.ITMY	LNC,2,16,35
	FLY0.ITM	CP,2,29,35
YP	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 "1	HL%A==<POINT 1,B-1,C>Q0u a]	HL%A==<PQOINT D-C+1,B-1,D>D-C+1,B-1Q0v;2 "q	HL%A==HL%B	HL%A==HLQ0v|R #1	HL%A==B-1	HL%A==BQ3$!1 C!
		XLIST
		HLTB.C
		LIST
LTB.C
		LISTQ3$#Q M

	RADIXM1	10

	D.PNTR HLMPDTAB,HL

	HL.ITMpM	NAM,1,1,15
	HLN.ITM	LNC,1,16,35
	HL.ITM	LN,1,16,NP28
	HL.ITM	CP,1,Np29,35
	HL.ITM	RDO,1,1,17	; [415] RO0D LINK FOR TYPE 1OP4
	HL.ITM	CID,1,Op18,35	; [415] CIDP LEVEL FOR TYPE 1P04

	HL.ITM	COD,PP2,0,8
	HL.ITM	QAPpL,2,9,17
	HL.ITMQ	LNK,2,18,35
	HLQ0.ITM	FCD,2,0,8;	;QPFULL 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 an	LI%A==LI%B	LI%A==LIY$v|R !r	LI%A==B-1	LI%A==BY'$!1 Aa
		XLIST
		LITB.C
		LIST
ITB.C
		LISTY'$#Q H

U

	RADIXH1	10

	D.PNTR	LIHPTTAB,LI

	LI.FLHpG	PUR,1,6
	LI.FLIG	ALL,1,7
	LI.FLI0G	NLT,1,8
	LI.FLIPG	FGC,1,9
	LI.FLIpG	INT,1,10
	LI.IJTM	NCH,1,11,17
	J0LI.ITM	FCC,1,18,3JP5

	RADIX	8



	RADIX	8

[;$#Q eq7

	RADIXf	10

	D.PNTR	MNf0TAB,MN

	MN.ITMfP	NAM,1,3,17
	MN.fpITM	SNL,1,18,35

	RADIX	8


]2N= ANLIST1	ACNLIST1	A]2N= QK
		DEFINEq	A%B<
		XLIST
		A.B
		LIST
>	;END OF DEFINE A%'TPE.
FINEaH,Q aH,YQ 
aH,qQ $HaH,YQ

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

SQ HaH.

TQ aH.)RQ aH.91QRaH.9TQ HaH.;VQuHaH.M:QaH/<P*OINT D-C+1,B-1,D>D-C+1,B-1aHv;2 +I\	PR%A==PR%B	PR%A==PRaHv|R ,	`	PR%A==B-1	PR%A==BaK$!1 EA.
		XLIST
		PRTB.C
		LIST
RTB.C
		LISTaK$#Q Z	

	RADIXZ1	10

	D.PNTR	PRZPOTAB,PR

	PR.ITZpM	NAM,1,3,17
	PR[.ITM	SNL,1,18,35

	PR.ITM	LSC,2,[P0,17
	PR.ITM	GNW[p,2,0,17
	PR.ITM	\PRF,2,18,35

	P\0R.ITM	AOB,3,0,17
	PR.ITM	PRI,3,18\p,24
	PR.FLG	SEC,]3,25
	PR.FLG	EXR]0,3,26
	PR.FLG	DE]PF,3,27
	PR.FLG	A]pLT,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	SFIa,5,18,35
>

	RADIX	8



	Re8* Q $He8*e@Q He8tk <a	RN%A==<POINT 1,B-1,C>e8u 5Q)	RN%A==<P5OINT D-C+1,B-1,D>D-C+1,B-1e8v;2 <Qe	RN%A==RN%B	RN%A==RNe8v|R =i	RN%A==B-1	RN%A==Be;$!1 JaX
		XLIST
		RNTB.C
		LIST
NTB.C
		LISTe;$#Q lQm
	RADIX	1lq0
	D.PNTR	RENTABm,RN
	RN.ITM	01,1m0,0,17
	RN.ITM	66mP,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 3	RW%A==<POINT 1,B-1,C>e\u ,)	RW%A==<P2yOINT D-C+1,B-1,D>D-C+1,B-1e\v;2 3q	RW%A==RW%B	RW%A==RWe\v|R 41#	RW%A==B-1	RW%A==Be_$!0 Ga@
		XLIST
		RWTB.A
		LIST
WTB.A
		LISTe_$!1 HAF
		XLIST
		RWTB.B
		LIST
WTB.B
		LISTe_$!1 I!L
		XLIST
		RWTB.C
		LIST
WTB.C
		LISTe_$#P ny

	RADIXn1	10

	D.PNTR RPnPWTAB,RW


	
np
	RW.ITM	NAM,1,3,o17;	NAMTAB LINK

	RADIX	8


e_$#Q oQ

	RADIXoq	10

	D.PNTR	RPpWTAB,RW

	RW.ITp0M	SAM,1,18,35

pP	RW.ITM	BRO,2,0,1pp5
	RW.ITM	LN,2,1q6,28
	RW.ITM	CP,q02,29,35
	RW.ITM	qPLNC,2,16,35

	RqpW.ITM	FIL,3,0,17
	RW.ITM	FGP,3,18r0,35

	RW.ITM	LCrP,4,0,17
	RW.ITM	rpPC,4,18,35

	RWs.ITM	PHL,5,0,8
	s0RW.ITM	CFL,5,9,17sP
	RW.ITM	FDE,5,1sp8,26
	RW.ITM	LDEt,5,27,35

	RW.It0TM	PAG,6,0,8
	RWtP.FLG	RHL,6,10
	RtpW.ITM	RWT,6,18,35u

	RW.ITM	RHR,7u0,0,17
	RW.ITM	RFuPR,7,18,35

	RW.upITM	PHR,8,0,17
	vRW.ITM	PFR,8,18,3v05

	RW.ITM	GIR,vP9,0,17
	RW.ITM	CvpOD,9,18,35

	RWw.ITM	CID,10,0,17
	RW.ITM	NCI,10,1wP8,35

	RW.ITM	BwpKT,11,0,17
	RW.IxTM	FBT,11,18,35
x0

	

	RW.ITM	xPRDL,1,1,17
	RW.SxpME	DAT,SAM

	RWy.ITM	LCD,2,0,1
	y0RW.ITM	NLC,2,2,3
	RW.ITM	SCD,2,4,yp5
	RW.ITM	TYP,2,z6,8
	RW.ITM	NSI,z02,18,35

	RW.ITzPM	LIN,3,0,8
	RW.zpITM	COL,3,9,17
	{RW.ITM	NXT,3,18,2{06

	RW.SME	RES,{PLC
	RW.SME	SLK,P{pC

	RW.ITM	UPN,|5,0,17
	RW.ITM	U|0SE,5,18,35

	RW|P.ITM	SUP,6,0,17
|p
	;WORDS 7 THRU }25 ARE USED TO ST}0ORE THE SOURCE IT}PEM
	; (ALLOW FOR}p 3 SUBSCRIPTS WIT~H ADDITIVES)
	; ~0(SEE P.MAC, SYMBO~PL .RWSRC )

	
~p
	RW.ITM	DCI,1,0,17
	RW.SME	SAV,0SAM

	RW.ITM	CHPG,2,0,17
	RW.FLGp	RSF,2,9
	RW.FLG	RSI,2,10
	RW.IT0M	RST,2,9,10
	RWP.FLG	GPI,2,11
	RpW.FLG	GEN,2,12
	RW.FLG	FNC,2,13
0	RW.FLG	RSU,2,16
	RW.SME	CFG,NSI

	RW.SME	REE,FIL

	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 #q!	US%A==<P$OINT D-C+1,B-1,D>D-C+1,B-1kLv;2 %a.	US%A==US%B	US%A==USkLv|R &!2	US%A==B-1	US%A==BkO$!1 D"
		XLIST
		USTB.C
		LIST
STB.C
		LISTkO$#Q R

	RADIXR1	10

	D.PNTR	USRPETAB,US

	US.ITRpM	TYP,1,3,11
	USS.FLG	XTR,1,17
	US0S.ITM	PRO,1,18,35SP

	US.ITM	CNT,2Sp,6,17

	RADIX	8



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