Google
 
Trailing-Edge - PDP-10 Archives - BB-Z759A-SM - cobol-build/tables.unv
There are 15 other files named tables.unv in the archive. Click here to see a list.
x
,5#@P C,,KQ HC,,M8Q FC,,kQ $DC,tk yy	AK%A==<POINT 1,B-1,C>C,u 0yp	AK%A==<POINT D-C+1,B-1,D>D-C+1,B-1C,v;2 Py}	AK%A==AK%B	AK%A==AKC,v|R  z	AK%A==B-1	AK%A==BC/$!1 R}
		XLIST
		AKTB.C
		LIST
KTB.C
		LISTC/$#Q -(rv

	RADIX-H	10

	D.PNTR	AK-hTTAB,AK

	AK.IT.M	FLK,1,1,17
	AK.(.ITM	DLK,1,18,35

	AK.FLG	DUP,2,.h0

	RADIX	8



	RADIX	8

C0,Q <C0.H3Q FC0tk 1`{	AL%A==<POINT 1,B-1,C>C0u +h{		AL%A==<P1OINT D-C+1,B-1,D>D-C+1,B-1C0v;2 2 {	AL%A==AL%B	AL%A==ALC0v|R 2`{	AL%A==B-1	AL%A==BC3$!1 W`}@
		XLIST
		ALTB.C
		LIST
LTB.C
		LISTC3$#Q 6Hs<

	RADIX6h	10

	D.PNTR	AL7TAB,AL

	AL.FLG7(	TAG,1,0
	AL.ITM7H	ADD,1,21,35

	RADIX 8



	G,:Q G,;vQ HG,H`Q $HG,M8Q HG,iQ $HG-ZQ DG->6Q HG-J7Q 4G-YQ HG-h6Q HG-h6Q $<G-}:Q FG.6Q $HG.VQ HG.vQ $HG.VQ HG.)Q $HG.:vQ $HG.;VQ HG.KQ $HGtk hyF	CD%A==<POINT 1,B-1,C>Gu xy	CD%A==<P(OINT D-C+1,B-1,D>D-C+1,B-1Gv;2 (yJ	CD%A==CD%B	CD%A==CDGv|R hyN	CD%A==B-1	CD%A==BG$!1 P }
		XLIST
		CDTB.C
		LIST
DTB.C
		LISTG$#Q "(rH

	RADIX"H	10

	D.PNTR	CD"hTAB,CD

	CD.ITM#	NAM,1,3,17
	CD.#(ITM	SNL,1,18,35
#H
	CD.FLG	OUT,2,0#h
	CD.ITM	INT,2,0$,1
	CD.ITM	LIN,2$(,16,28	;LINE NUMB$HER
	CD.ITM	CHR,2$h,29,35
	CD.ITM	R%DL,3,0,17
	CD.IT%(M	QNL,3,18,35
	C%HD.ITM	Q1L,4,0,17
	CD.ITM	Q2L,4,18&,35
	CD.ITM	Q3L,&(5,0,17
	CD.ITM	M&HDL,5,18,35
	CD.I&hTM	DC,6,0,17
	CD'.ITM	NAL,6,18,35
	CD.ITM	TLL,7,0,'H17
	CD.ITM	KYL,7'h,18,35
	CD.ITM	S(KL,8,0,17
	CD.IT((M	COL,8,18,35
	C(HD.ITM	FDL,9,0,17
	CD.ITM	DUP,9,18),35

	RADIX	8



	RADIX	8
G<,QBG<,H:Q$HG<,j3Q<DG<- HG<.Q <G<.86Q HG<.<Q @G<.H3Q $<G</,WQ >G<tk 	(xJ	CO%A==<POINT 1,B-1,C>G<u x,	CO%A==<PHOINT D-C+1,B-1,D>D-C+1,B-1G<v;2 	hxN	CO%A==CO%B	CO%A==COG<v|R 
(xR	CO%A==B-1	CO%A==BG?T  2REMARKG?$!1 L@|f
		XLIST
		COTB.C
		LIST
OTB.C
		LISTG?$#Q 	pf

	RADIX	(	10

	D.PNTR CO	HNTAB,CO

	CO.IT	hM	NAM,1,3,17
	CO
.ITM	SAM,1,18,35
(
	
	CO.ITM	DAT,2
H,0,17
	CO.ITM	NV
hL,2,18,35

	CO.FLG	FIG,3,1
	CO.(FLG	ALL,3,2
	CO.HFLG	SP,3,3
	CO.FhLG	ZRO,3,4
	CO.F

LG	QT,3,5
	CO.FL

(G	HV,3,6
	CO.FLG

H	LV,3,7
	CO.ITM	

hTAG,3,3,17

	RADIX	8



	RAG@tk =P{m	CP%A==<POINT 1,B-1,C>G@u 5P{C	CP%A==<P80OINT D-C+1,B-1,D>D-C+1,B-1G@v;2 >{q	CP%A==CP%B	CP%A==CPG@v|R >P{u	CP%A==B-1	CP%A==BGC$!1 [}Z
		XLIST
		CPTB.C
		LIST
PTB.C
		LISTGC$#Q G(t>

	RADIXGH	10

	D.PNTR	CPGhYTAB,CP

	RADIX 8



	RADIXH;m ghvv
	XLIST
lH
	DEFINE B.ITM h(ITMID,WRDNO,LFTBh(IT,RTBIT),<
		XLhHIST
B.'ITMID::	hhB%'ITMID+<TA>B17i
		LIST
	>	

i(	DEFINE B.FLG (FiHLGID,WRDNO,BITNO)ih,<
		XLIST
		Bj.ITM	FLGID,WRDNO,j(BITNO,BITNO
		LIjHST
	>	

	DEFINjhE	B.SME	(ID1,ID2k)<
		XLIST
		Bk(.'ID1==:B.'ID2
kH		LIST
	>	

	DkhEFINE	B.WRD	(ITMl(ID,WRDNO)<
		XLInHST
		B.'ITMID==nh: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 {(wZ	DA%A==<POINT 1,B-1,C>Iu qHw$	DA%A==<PtHOINT D-C+1,B-1,D>D-C+1,B-1Iv;2 {hw^	DA%A==DA%B	DA%A==DAIv|R |(wb	DA%A==B-1	DA%A==BI$!1 I@|N
		XLIST
		DATB.C
		LIST
ATB.C
		LISTI$#Q 

	RADIX

	D.PNTR	DA

	DA.ITM,1,3,17
	DAITM	SNL,1,18,35

	DA.ITM	VAL,2,
	DA.SME	ARG
	DA.ITM	LOC

	DA.IPOP,3,0,17
	DA.SME	BRO,POP
	DA.ITM	SON,3,18,35

	DA.ITM	LVL,4
	DA.ITM	RES
	DA.FLG	12
	DA.FLG4,13
	DA.ITG,4,14,17
	DA.ITM	RPW,4,18,35

	DA.ITM	CLA,5
	DA.FLG	SYL
	DA.FLG	SYR
	DA.FLG	SGN
	DA.FLG	BWZ
	DA.FLG	SUB
	DA.FLG	EDT
	DA.FLG	FAL
	DA.FLG	DEF
	DA.FLG	RBS
	DA.FLG	FA
	DA.FLG	R
	DA.FLG	13
	DA.FLG5,14
	DA.FLC,5,15
	DA.FLSC,5,16
	DA.M	SCF,5,15,16
wH	DA.FLG	DLL,5,17
	DA.FLG	ERR,5,18
	DA.FLG	IDX,5,1
	DA.FLG	RDF,5,
	DA.FLG	PIC,5
	DA.FLG	DFS,
	DA.FLG	DRC
	DA.FLG	DE
	DA.FLG	S
	DA.FLG	26
	DA.FLG5,27
	DA.FLH,5,28
	DA.FLKS,5,29
	DA.G	DPR,5,30
	DAITM	NDP,5,31,35

	DA.ITM	EXS,6,
	DA.ITM	INS

	DA.INOC,7,0,14
	DA.FLG	OCC,7,15
	hDA.ITM	LN,7,16,28
	DA.ITM	CP,7,29
	DA.ITM	LNC,

	DA.ITH,8,0,17
	DAITM	DEP,8,18,35

	DA.ITM	DCR,9,
	DA.ITM	KEY,
	DA.ITM	18,35

	DA.ITM	FSC,10,6,11

	RADIX	8



	RADIX	8

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

VQ HItk *zP	DB%A==<POINT 1,B-1,C>Iu &z	DB%A==<P#(OINT D-C+1,B-1,D>D-C+1,B-1Iv;2 *HzT	DB%A==DB%B	DB%A==DBIv|R +zX	DB%A==B-1	DB%A==BI$!1 U@}.
		XLIST
		DBTB.C
		LIST
BTB.C
		LISTI$#Q /(s



	RADIX/H	10

	D.PNTR	DE/hBTAB,DB

	DB.IT0M	DAT,1,1,17
	DB0(.FLG	ARO,1,18
	D0HB.ITM	DUP,1,21,350h

	DB.FLG	IDP,21,0
	DB.ITM	LN,2,1(5,17
	DB.ITM	PRM1H,2,18,35

	RADIX	8



	RADIItk ?p{	DD%A==<POINT 1,B-1,C>Iu ?{{	DD%A==<P?0OINT D-C+1,B-1,D>D-C+1,B-1Iv;2 @0|	DD%A==DD%B	DD%A==DDIv|R @p|	DD%A==B-1	DD%A==BI$!1 Q`}^
		XLIST
		DDTB.C
		LIST
DTB.C
		LISTI$#Q H(tF

	RADIXHH	10

	D.PNTR	DBHhDTAB,DD

	RADIX 8



	RADIXK<,Q <K<,Q (K<,qQ @K<,9Q  K<,;rQ 6 K<,<Q K<,j3Q @K<,kQ (K<-
3Q ,K<-Q DK<-Q FK<--9Q 6K<-J:Q >K<-K@Q 4K<-KUQ 4K<-K{Q *K<-j1Q BK<-kZQ 8K<-m6Q $K<.7Q .K<.)3Q BK<.+zQ DK<.:=Q $HK<.<Q 2K<.>6Q <K<.>9Q :K<.H6Q 4K<.K8Q <K<.KrQ 6K<.LZQ FK<.N8Q 

K<.\sQ >

K<.h6Q HK</,WQ 0K<tk 6H{4	EO%A==<POINT 1,B-1,C>K<u 3Hzt	EO%A==<P.@OINT D-C+1,B-1,D>D-C+1,B-1K<v;2 7{8	EO%A==EO%B	EO%A==EOK<v|R 7H{<	EO%A==B-1	EO%A==BK?$!1 Y }L
		XLIST
		EOTB.C
		LIST
OTB.C
		LISTK?$#Q :t

	RADIX:(	10

	D.PNTR	EO:HPTAB,EO

	EO.FL:hG	IDO,1,0
	EO.IT;M	COD,1,1,8
	EO.;(ITM	FLG,1,9,15
	;HEO.ITM	LN,1,16,28;h
	EO.ITM	CP,1,29<,35

	EO.ITM	CD<(1,2,28,35

	EO.<HFLG	IDL,1,1
	EO.<hITM	USG,1,2,4
	E=O.FLG	SYL,1,5
	E=(O.FLG	SYR,1,6
	E=HO.FLG	NNU,1,7
	E=hO.FLG	JUS,1,8
	E>O.FLG	LNK,1,9

>(	EO.FLG	TRU,2,0
>H	EO.FLG	ROU,2,1
>h	EO.FLG	REF,2,2
?	EO.FLG	ASC,2,3
?(	EO.FLG	TMP,2,5
?H	EO.ITM	NUM,2,12,?h17
	EO.ITM	TYP,2@,18,20
	EO.ITM	A@(DR,2,21,35

	EO@H.FLG	NIC,1,2
	EO@h.FLG	FIG,1,3
	EOA.FLG	LIT,1,4
	EOA(.FLG	TOD,1,8
	EOAH.FLG	TAL,1,9
	EOAh.FLG	SPC,1,10
	EBO.FLG	ZRO,1,11
	B(EO.FLG	QUO,1,12
BH	EO.FLG	HIG,1,13
	EO.FLG	LOW,1,14C
	EO.FLG	ALL,1,1C(5

	EO.ITM	SIZ,CH2,0,17
	EO.ITM	VChAL,2,18,35

	RADIX 8



	RAK`,86Q >K`,;ZQ $

K`,[ZQ @K`-Q HK`-RQ DK`-h6Q $<K`-lYQ FK`.
2Q BK`.86Q HK`tk  x
	EX%A==<POINT 1,B-1,C>K`u }wf	EX%A==<P|hOINT D-C+1,B-1,D>D-C+1,B-1K`v;2 `x	EX%A==EX%B	EX%A==EXK`v|R  x	EX%A==B-1	EX%A==BKc$!1 J |T
		XLIST
		EXTB.C
		LIST
XTB.C
		LISTKc$#Q p

	RADIX(	10

	D.PNTR	EXHTTAB,EX

	EX.IThM	NAM,1,3,17
	EX.ITM	SAM,1,18,35
	EX.FLG	NRS,2,0
	EX.FLG	IND,2,1
	EX.FLG	PID,2,2
	EX.FLG	ENT,2,3
	EX.FLG	CAL,2,4
	EX.ITM	CNT,2,15h,17
	EX.ITM	HLD,2,18,35

	RADIX	8



	RADIXM$,VQ 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$,;rQ 0M$,<Q M$,<QQ 8 

M$,I1Q $HM$,I8Q $HM$,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:QD$HM$-HVQ,@M$-HtQ$HM$-HxQ$HM$-K@Q<4M$-KQQ6PM$-KqQ$HM$-LQ $HM$-LYQ $HM$-\RQ BM$-\YQ HM$-h6Q $<M$-hSQ <M$-iQ $M$-kyQ M$-m6Q $H
M$.2Q HM$.	7Q H
M$.	WQ $HM$.	YQ $H
M$.	ZQ HM$.
;Q H
M$.yQ $M$.

WQ HM$.

ZQ H

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

M$.)9Q 2M$.*vQ $HM$.*|Q HM$.+Q FM$.+)Q BM$.+9Q (M$.,Q 8M$.,Q H	M$.,QQ 0M$.-Q H	M$.86Q $HM$.86Q HM$.8PQ $HM$.9Q HM$.:2Q ( 

M$.:|Q $HM$.<Q H	M$.<PQ $HM$.h6Q HM$.iQ HM$.j2Q $HM$.kQ 4M$.lQ $H	M$.lYQ *M$.yPQ HM$tk rhw	FI%A==<POINT 1,B-1,C>M$u rw	FI%A==<Pr(OINT D-C+1,B-1,D>D-C+1,B-1M$v;2 s(w	FI%A==FI%B	FI%A==FIM$v|R shw	FI%A==B-1	FI%A==BM'$!1 H`|H
		XLIST
		FITB.C
		LIST
ITB.C
		LISTM'$#Q 

	RADIX

	D.PNTR	FI

	FI.ITM,1,3,17
	FIITM	SAM,1,18,35

	FI.ITM	RCT,2,
	FI.ITM	OFT

	FI.IFBS,3,0,15
	FI.ITM	LN,3,16,28
	FI.ITM	CP,3,29,
	FI.ITM	LNC,3

	FI.ITM4,12,17
	FIITM	VAL,4,18,35

	FI.FLG	ONE,5,
	FI.FLG	MRE,5,
	FI.ITM	FAM,5,
	FI.ITM	ERM,
	FI.ITM	IR
	FI.FLG5,11
	FI.ITS,5,12,17
	FI.ITM	NXT,5,18,35

	FI.ITM	LBL,6
	FI.FLG	INO
	FI.FLG	OUO
	FI.FLG	IOO
	FI.FLG	ADV
	FI.FLG	DSD
	FI.FLG	VLR
	FI.FLG	RER
	FI.FLG	RR
	FI.FLG	F
	FI.FLG	13
	FI.FLG6,14
	FI.FLS,6,15
	FI.IORG,6,16,17
	hFI.ITM	ACK,6,18,3

	FI.ITM	NBF,
	FI.ITM	DR5

	FI.M	ALK,8,0,17
	FI.ITM	SDL,8,18,3

	FI.ITM	VID,
	FI.ITM	V,35

	FIITM	SAL,10,0,17
	FI.SME	SBA,SAL
	FI.ITM	ERR,10,1

	FI.ITM	S,17
	FI.ILCP,11,18,35
[H
	FI.ITM	LPP,12,
	FI.ITM	WFA

	FI.M	LAT,13,0,17
\H	FI.ITM	LAB,13,18

	FI.ITM	DE7
	FI.ITI,14,18,35
]H
	FI.ITM	LRS,15,0
	FI.ITM	MRS,

	FI.FDRC,16,0
	FI.G	ADR,16,1
	FIFLG	RM2,16,2
	FI.ITM	RD,16,3,5
(	FI.ITM	RP,16,6,7
	FI.FLG	ENT,16,
	FI.FLG	DFR,16
	FI.FLG	BM,16
	FI.FLG	CKP,
	FI.FLG	AK
	FI.FLG	,13
	FI.FLS,16,14
	FI.M	LOC,16,18,35

	FI.ITM	SKY,17
	FI.ITM	RK35

	FIFLG	RLC,18,0
	FI.ITM	BLF,18,4,15
	FI.ITM	ALN,18,
	FI.ITM	AL35
	FI.IACP,18,29,35
d
	FI.ITM	VPP,19,
	FI.ITM	RPG

	FI.M	OWA,20,0,8
	FI.ITM	OTA,20,9,1
	FI.ITM	RTC,20
	FI.SME	S

	FI.ITM21,0,17
	FIITM	PEN,21,18,35

	FI.ITM	PAC,2
	FI.ITM	P8,35

	FI.ITM	PBN,23,0,17
	FI.ITM	PRN,23,

	FI.ITM	,0,17
	FI.M	PFT,24,18,35

	FI.ITM	CKB,25
	FI.ITM	CK35

	FIITM	CRC,26,0,7
iH	FI.ITM	SID,26,8,
	FI.ITM	FLN,2
	FI.ITM	,16,35
	FIITM	FCP,26,29,35

	FI.ITM	NUM,2
	FI.ITM	P8,35

	FI.ITM	DEP,28,0,17
	FI.ITM	PAD,28,

	FI.ITM	,0,17
	FI.G	NOR,29,34
				;THEOPRIMARYFPU
				;VRETHE BIT
	FI.FLG	ABL,29,35

	RADIX	8


M0,<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.

WQ HM0.0Q &M0.)Q $M0.86Q @M0.<Q DM0.H3Q 6M0tk hy	FL%A==<POINT 1,B-1,C>M0u xX	FL%A==<POINT D-C+1,B-1,D>D-C+1,B-1M0v;2 (y	FL%A==FL%B	FL%A==FLM0v|R hy	FL%A==B-1	FL%A==BM3$!1 N`|x
		XLIST
		FLTB.C
		LIST
LTB.C
		LISTM3$#Q qR

	RADIX(	10

	D.PNTR	FLHOTAB,FL

	FL.FLhG	PND,1,0
	FL.FLG	SPF,1,1
	FL.FL(G	OPF,1,2
	FL.FLHG	SAL,1,3
	FL.FLhG	OAL,1,4
	FL.FLG	OGO,1,5
	FL.FL(G	OEN,1,6
	FL.FLHG	DEB,1,7
	FL.FLhG	TAG,1,8
	FL.FLG	QUA,1,16
	FL.F(LG	RDC,1,17
	FL.HITM	PRO,1,18,35
h
	FL.ITM	NAM,2,1,15
	FL.ITM	NLC,(2,1,35
	FL.ITM	LHN,2,16,28
	FL.IThM	LNC,2,16,35
	FL.ITM	CP,2,29,35
	FL.SME	POS,CP

	RADIX	8


Q0,:2Q HQ0,;rQ 6$Q0,<Q Q0,hrQ 6$Q0,kQ $HQ0-K@Q 4Q0-KQQ PQ0-KUQ HQ0-h6Q (<Q0.6Q $$Q0.VQ HQ0.)Q $DQ0tk 

(xb	HL%A==<POINT 1,B-1,C>Q0u PxV	HL%A==<P
hOINT D-C+1,B-1,D>D-C+1,B-1Q0v;2 

hxf	HL%A==HL%B	HL%A==HLQ0v|R M@|n
		XLIST
		HLTB.C
		LIST
LTB.C
		LISTQ3$#Q 

	RADIX

	D.PNTRLHL

	HL.ITM	NAM,1,1,15
	HL(.ITM	FLG,1,0,17
H	HL.ITM	LNC,1,16,h35
	HL.ITM	LN,1,16,28
	HL.ITM	CP(,1,29,35
	HL.ITMH	RD,1,1,17	; [415h] RD LINK FOR TYPE 14
	HL.ITM	CID(,1,18,35	; [415] HCID LEVEL FOR TYPhE 14

	HL.ITM	COD,2,0,8
	HL.ITM(	QAL,2,9,17
	HL.HITM	LNK,2,18,35
h	HL.ITM	FCD,2,0,8;	;FULL CODE
	HL(.ITM	QNM,3,18,35
	RADIX	8

5Q<Y$,XQQH@Y$,hqQHY$,iqQ=8Y$-ZQB6Y$-htQ$$Y$-kQL:Y$.OINT D-C+1,B-1,D>D-C+1,B-1Y$v;2 Hx$	LI%A==LI%B	LI%A==LIY$v|R x(	LI%A==B-1	LI%A==BY'$!1 K|Z
		XLIST
		LITB.C
		LIST
ITB.C
		LISTY'$#Q Hp4

	RADIXh	10

	D.PNTR	LITTAB,LI

	LI.FL(G	EBC,1,3
	LI.FLHG	PUR,1,4
	LI.FLhG	ALL,1,5
	LI.FLG	NLT,1,6
	LI.FL(G	FGC,1,7
	LI.FLHG	INT,1,8
	LI.IThM	TYP,1,0,17
	LI.ITM	NCH,1,9,17
(	LI.ITM	FCC,1,18,H35

	RADIX	8



	RADIX	8
[8,\qQ "[8-KQQ P[8-h6Q $<[8.({Q H[8.8{Q $[8.;VQ H[8.=wQ [8.=zQ F[8.>1Q 8[8tk (yb	MN%A==<POINT 1,B-1,C>[8u XyR	MN%A==<P(OINT D-C+1,B-1,D>D-C+1,B-1[8v;2 hyf	MN%A==MN%B	MN%A==MN[8v|R (yj	MN%A==B-1	MN%A==B[;$!1 Q}

		XLIST
		MNTB.C
		LIST
NTB.C
		LIST[;$#Q )Hrf

	RADIX)h	10

	D.PNTR	MN*TAB,MN

	MN.ITM*(	NAM,1,3,17
	MN.*HITM	SNL,1,18,35
*h
	MN.FLG	SWT,2,0+
	MN.FLG	SYC,2,7+(
	MN.ITM	SWN,2,3+H0,35
	MN.ITM	RCV+h,2,18,35
	MN.FLG,	ESC,2,18
	MN.IT,(M	SCV,2,27,35
	M,HN.ITM	LNC,3,16,35,h

	RADIX	8



	RADIX	8

]2N= mvhNLIST1	AjNLIST1	A]2N= mHvr
		DEFINEmh	A%B<
		XLIST
		A.B
		LIST
>	;END OF DEFINE A%'TPE.
FINEa,,WQ $Ha,;vQ a,h6Q 

a-TQ a-MVQ $a-h6Q $<a.xQ $Ha.;wQ Ha.H3Q Hatk !Hz

	PG%A==<POINT 1,B-1,C>au Hz	PG%A==<P pOINT D-C+1,B-1,D>D-C+1,B-1av;2 "z	PG%A==PG%B	PG%A==PGav|R "Hz	PG%A==B-1	PG%A==Ba$!1 H }
		XLIST
		PGTB.C
		LIST
GTB.C
		LISTa$#Q Jhtp

	RADIXK	10

	D.PNTR	PRK(GTAB,PG

	PG.ITKHM	NAM,1,3,17
	PGKh.ITM	LVL,1,18,26
	PG.FLG	COM,1,27L(
	PG.FLG	INI,1,2LH8
	PG.FLG	FAL,1,Lh29

	PG.ITM	POPM,2,0,17
	PG.SME	M(BRO,POP
	PG.ITM	MHSON,2,18,35

	PMhG.ITM	TAG,3,18,35N

	RADIX	8



	RADIX	8

aH,Q aH,YQ 
aH,qQ $HaH,Q aH,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 Xy-	PR%A==PR%B	PR%A==PRaHv|R y1	PR%A==B-1	PR%A==BaK$!1 O@|~
		XLIST
		PRTB.C
		LIST
RTB.C
		LISTaK$#Q hr

	RADIX	10

	D.PNTR	PR(OTAB,PR

	PR.ITHM	NAM,1,3,17
	PRh.ITM	SNL,1,18,35

	PR.ITM	LSC,2,(0,17
	PR.ITM	GNWH,2,0,17
	PR.ITM	hPRF,2,18,35

	PR.ITM	AOB,3,0,17
	PR.ITM	PRI,3,18H,24
	PR.FLG	SEC,h3,25
	PR.FLG	EXR,3,26
	PR.FLG	DE(F,3,27
	PR.FLG	AHLT,3,28
	PR.FLG	hARS,3,29
	PR.FLG	ANR,3,30
	PR.FL(G	RFD,3,31
	PR.FHLG	DFD,3,32
	PR.hFLG	MDF,3,33
	PR .FLG	TUT,3,34
	P (R.FLG	APP,3,35
 H
	PR.ITM	XTW,4,0, h17
	PR.ITM	FLO,4!,18,35

	PR.WRD!(	DUP,5
	PR.ITM	D!HEB,5,0,17
	PR.IT!hM	SFI,5,18,35

	RADIX	8



e

,,HQ $He

,,WQ He

,9SQ He

,:Q $He

,HtQ $He

,h6Q He

.)2Q $He

.8;Q He

tk D@|$	RC%A==<POINT 1,B-1,C>e

u CP|	RC%A==<PCpOINT D-C+1,B-1,D>D-C+1,B-1e

v;2 E|(	RC%A==RC%B	RC%A==RCe

v|R E@|,	RC%A==B-1	RC%A==Be$!1 ]}j
		XLIST
		RCTB.C
		LIST
CTB.C
		LISTe$#Q d(v<

	RADIXdH	10

	D.PNTR	RCdhOTAB,RC

	RC.ITeM	DCI,1,0,17
	RCe(.ITM	SAV,1,18,35

	RC.ITM	CHG,2,eh0,17	;LINK TO CH fGROUP
	RC.ITM	CFf(G,2,18,35

	RC.fHITM	REE,3,0,17
	fhRC.ITM	BRO,3,18,3g5

	RC.ITM	BR1,g(4,0,17
	RC.ITM	FgHAL,4,18,35

	RADIX	8



	RAe,[xQ He-iQ He-j8Q $He.+zQ Fetk ,Xze	RE%A==<POINT 1,B-1,C>eu %Pz/	RE%A==<P%pOINT D-C+1,B-1,D>D-C+1,B-1ev;2 -zi	RE%A==RE%B	RE%A==REev|R -Xzm	RE%A==B-1	RE%A==Be$!1 V@}6
		XLIST
		RETB.C
		LIST
ETB.C
		LISTe$#Q 2s

	RADIX2(	10

	D.PNTR	RE2HSTAB,RE

	RE.FL2hG	ROU,1,0
	RE.IT3M	EOP,1,18,35
	3(
	RE.ITM	NIP,2,0,3H17
	RE.ITM	NDP,23h,18,35

	RADIX 8



	RADIXRe8*=QP$He8*e@Q1He8tkDB|	RN%A==<POINT1,B-1,C>e8uA0|==RNe8v|R C|	RN%A==B-1	RN%A==Be;$!1 \ }d
		XLIST
		RNTB.C
		LIST
NTB.C
		LISTe;$#Q I(tR

	RADIXIH	10

	D.PNTR	REIhNTAB,RN

	RN.ITJM	01,1,0,17
	RN.J(ITM	66,1,18,35

	RADIX 8


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

e\.\Q He\.\Q $He\.\rQ He\tk #z	RW%A==<POINT 1,B-1,C>e\u  0yn	RW%A==<PhOINT D-C+1,B-1,D>D-C+1,B-1e\v;2 $0z#	RW%A==RW%B	RW%A==RWe\v|R $pz'	RW%A==B-1	RW%A==Be_$!0 S }
		XLIST
		RWTB.A
		LIST
WTB.A
		LISTe_$!1 T}"
		XLIST
		RWTB.B
		LIST
WTB.B
		LISTe_$!1 T`}(
		XLIST
		RWTB.C
		LIST
WTB.C
		LISTe_$#P NHt|

	RADIXNh	10

	D.PNTR RPOWTAB,RW


	
O(
	RW.ITM	NAM,1,3,OH17;	NAMTAB LINK

	RADIX	8


e_$#Q Pv

	RADIXP(	10

	D.PNTR	RPPHWTAB,RW

	RW.FLPhG	DEF,1,2
	RW.ITQM	SAM,1,18,35

Q(	RW.ITM	BRO,2,0,1QH5
	RW.ITM	LN,2,1Qh6,28
	RW.ITM	CP,R2,29,35
	RW.ITM	R(LNC,2,16,35

	RRHW.ITM	FIL,3,0,17
	RW.ITM	FGP,3,18S,35

	RW.ITM	LCS(,4,0,17
	RW.ITM	SHPC,4,18,35

	RWSh.ITM	PHL,5,0,8
	TRW.ITM	CFL,5,9,17T(
	RW.ITM	FDE,5,1TH8,26
	RW.ITM	LDETh,5,27,35

	RW.IUTM	PAG,6,0,8
	RWU(.FLG	INI,6,9
	RWUH.FLG	RHL,6,10
	RUhW.ITM	RWT,6,18,35V

	RW.ITM	RHR,7V(,0,17
	RW.ITM	RFVHR,7,18,35

	RW.VhITM	PHR,8,0,17
	WRW.ITM	PFR,8,18,3W(5

	RW.ITM	GIR,WH9,0,17
	RW.ITM	CWhOD,9,18,35

	RWX.ITM	CID,10,0,17
	RW.ITM	NCI,10,1XH8,35

	RW.ITM	BXhKT,11,0,17
	RW.IYTM	FBT,11,18,35
Y(
	RW.ITM	FCI,12,YH0,17

	

	RW.YhITM	RDL,1,1,17
Z
	RW.SME	DAT,SAM

	RW.ITM	LCD,2,ZH0,1
	RW.ITM	NLC,Zh2,2,3
	RW.ITM	SC[D,2,4,5
	RW.ITM	[(TYP,2,6,8
	RW.FL[HG	RSF,2,9
	RW.FL[hG	RSI,2,10
	RW.I\TM	RST,2,9,10
	R\(W.FLG	GPI,2,11
	\HRW.FLG	GEN,2,12
\h	RW.FLG	FNC,2,13
	RW.FLG	RLS,2,15](
	RW.FLG	RSU,2,1]H6
	RW.ITM	NSI,2,]h18,35

	RW.ITM	^LIN,3,0,8
	RW.IT^(M	COL,3,9,17
	RW^H.ITM	NXT,3,18,26

	RW.SME	RES,LC_
	RW.SME	SLK,PC

	RW.ITM	UPN,5,_H0,17
	RW.ITM	USE_h,5,18,35

	RW.I`TM	SUP,6,0,17
	R`(W.ITM	NUP,6,18,35`H

	;WORDS 7 THR`hU 25 ARE USED TO aSTORE THE SOURCE a(ITEM
	; (ALLOW FaHOR 3 SUBSCRIPTS WahITH ADDITIVES)
	b; (SEE P.MAC, SYMb(BOL .RWSRC )

bH
;DEFINITIONS USEbhD FOR UPON TABLE

	RW.ITM	UP1,1,c(18,35

	RADIX	8



	RADIX	8e_$#Q chv

	RWTB.A
	RWTB.B

.g-J:Q $Hg-h9Q $Hg.80Q Hgtk 4{!	SE%A==<POINT 1,B-1,C>gu 0X{	SE%A==<P3 OINT D-C+1,B-1,D>D-C+1,B-1gv;2 4P{%	SE%A==SE%B	SE%A==SEgv|R 5{)	SE%A==B-1	SE%A==Bg$!1 X@}F
		XLIST
		SETB.C
		LIST
ETB.C
		LISTg$#Q 8sL

	RADIX8(	10

	D.PNTR	SE8HCTAB,SE

	SE.IT8hM	LIT,1,0,17

	9SE.ITM	NAS,2,0,179(
	SE.ITM	SAA,2,19H8,35

	RADIX 8



	RADIX8Bi,<Q Di-RQ Fi.`Q Hi.)3Q $<itk /zy	TA%A==<POINT 1,B-1,C>iu +Hzq	TA%A==<P.OINT D-C+1,B-1,D>D-C+1,B-1iv;2 /Xz}	TA%A==TA%B	TA%A==TAiv|R 0{	TA%A==B-1	TA%A==Bi$!1 M }:
		XLIST
		TATB.C
		LIST
ATB.C
		LISTi$#Q 4(s0

	RADIX4H	10

	D.PNTR	TA4hB,TA

	TA.FLG	I5ND,1,0
	TA.FLG	C5(PO,1,1
	TA.FLG	A5HNO,1,2
	TA.ITM	R5hEF,1,3,17
	TA.IT6M	PC,1,18,35

	RADIX 8



	i4,,WQ Hi4,;rQ Hi4-KUQ Hi4-MVQ $Hi4-m6Q $Hi4.)Q $Hi4.IwQ $<i4tk :x{W	TM%A==<POINT 1,B-1,C>i4u 5p{@	TM%A==<P8OINT D-C+1,B-1,D>D-C+1,B-1i4v;2 ;8{[	TM%A==TM%B	TM%A==TMi4v|R ;x{_	TM%A==B-1	TM%A==Bi7$!1 Z}R
		XLIST
		TMTB.C
		LIST
MTB.C
		LISTi7$#Q D(t6

	RADIXDH	10

	D.PNTR	TEDhMTAB,TM

	TM.ITEM	RD,1,0,17
	TM.E(ITM	LNK,1,18,35
EH	TM.ITM	NUM,2,0,1Eh7
	TM.ITM	BRO,2,F18,35
	TM.SME	LVF(L,RD
	TM.ITM	TGNFH,1,3,17
	TM.SME	FhCOD,LNK

	RADIX 8



	RADIXkL,;ZQ $0kL.

WQHkL.N8Q0$kL/	US%A==<POINT-1,B-1,C>kLu~	US%A==US%B	US%A==USkLv|R (y	US%A==B-1	US%A==BkO$!1 H@|r
		XLIST
		USTB.C
		LIST
STB.C
		LISTkO$#Q hq$

	RADIX	10

	D.PNTR	US(ETAB,US

	US.ITHM	TYP,1,3,11
	USh.FLG	XTR,1,17
	US.ITM	PRO,1,18,35(

	US.ITM	CNT,2H,6,17

	RADIX	8



	RADIX	8m,)QQ ,m-IQQ m.:=Q ,$mtk px7	VA%A==<POINT 1,B-1,C>mu `w"	VA%A==<Pt(OINT D-C+1,B-1,D>D-C+1,B-1mv;2 0x;	VA%A==VA%B	VA%A==VAmv|R px?	VA%A==B-1	VA%A==Bm$!1 K`|`
		XLIST
		VATB.C
		LIST
ATB.C
		LISTm$#Q pD

	RADIX(	10

	D.PNTR VAHLTAB,VA

	VA.IThM	SIZ,1,5,13
	VA.ITM	BFC,1,7,13
(	VA.ITM	LFC,1,14,H20

	RADIX	8



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