PDP-10 Archive: cobol/build/tables.unv from BB-H506D-SM

Trailing-Edge - PDP-10 Archives - BB-H506D-SM_1983 - cobol/build/tables.unv

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

x
,5C@P C,,KQ HC,,M8Q FC,,kQ $DC,tk %Pr-	AK%A==<POINT 1,B-1,C>C,u !r$	AK%A==<P$HOINT D-C+1,B-1,D>D-C+1,B-1C,v;2 &r1	AK%A==AK%B	AK%A==AKC,v|R &Pr5	AK%A==B-1	AK%A==BC/$!1 ;s[
		XLIST
		AKTB.C
		LIST
KTB.C
		LISTC/$#Q 

	RADIX

IFN ANS74,
	D.PNTR	AKTTAB

	AK.ITM	FL
	AK.ITM1,18,35

	(AK.FLG	DUP,2,0
>H

	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 "hr	CD%A==<POINT 1,B-1,C>Gu PqW	CD%A==<PxOINT D-C+1,B-1,D>D-C+1,B-1Gv;2 #(r	CD%A==CD%B	CD%A==CDGv|R #hr	CD%A==B-1	CD%A==BG$!1 :0sU
		XLIST
		CDTB.C
		LIST
DTB.C
		LISTG$#Q 

	RADIX

	D.PNTR	CD

	CD.ITM1,3,17
	CD.M	SNL,1,18,35
W(
	CD.FLG	OUT,2,0
	CD.ITM	INT,2,0
	CD.ITM	LIN,2E NUMB

	CD.ITM	RDL

	CD.IT,6,0,17

IFN ANS74,<
	CD.ITL,9,0,17
	CDITM	DUP,9,18,35
>
	RADIX	8

>
	RADIX	8

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

	RADIX

	D.PNTRCCO

	CO.ITM,1,3,17

	HCO.ITM	DAT,2,0,17
	CO.ITM	NVL,2,1

	RADIX	8



	RADIX	8
	XLIST
{h
	DEFINEDB.ITM,LFTB
		XLT
B.'ITMID::	<TA>B17
		LIST
	>	

xH	DEFINEDB.FLGN(F
		XLIST
		BTM	FLGID,WRDNO,
		LI
	>	

	DEFIN.SME	(ID1,ID2
		XLIST
		BID1==:B.'ID2
zh		LIST
	>	

	DEFINE	B.WRD	(ITM
		XLI
		B.'ITMID==
		LIST
	>	

	LIST
I,SQ $HI,,WQ $HI,-}Q <I,;Q DI,<Q I,HyQ 6$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.
1QI.xQP$HI.(YQ12I.)QDI.)Q2I.)Q.I.)9Q0I.,QAHI.8sQN&I.8zQB,I.9wQ>I.;QI.;VQ HI.;wQ HI.<qQ (I.=1Q :I.>6Q BI.>9Q @I.\sQ $I.h6Q $HI.jQ I/\Q HItk `pF	DA%A==<POINT 1,B-1,C>Iu 
		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
0(	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
IFN ANS68,
	DA.FLG	LRC,5,
>
IFN ANS74,
	DA.FLG	DEB,5,
>
	DA.FLG	SL
	DA.FLG	P
	DA.FLG	27
	DA.FLG5,28
	DA.FLS,5,29
	DA.FDPR,5,30
	DA.M	NDP,5,31,35
5
	DA.ITM	EXS,6,0
	DA.ITM	INS,

	DA.ITC,7,0,14
	DAFLG	OCC,7,15
	DA.ITM	LN,7,16,28
	DA.ITM	CP,7,29,
	DA.ITM	LNC,7

	DA.ITM8,0,17
	DA.M	DEP,8,18,35
7h
	DA.ITM	DCR,9,0
	DA.ITM	KEY,9
	DA.ITM	XB5

	DA.M	FSC,10,6,11

	RADIX	8


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

VQ HItk -Prm	DB%A==<POINT 1,B-1,C>Iu )(r"	DB%A==<P$(OINT D-C+1,B-1,D>D-C+1,B-1Iv;2 .rq	DB%A==DB%B	DB%A==DBIv|R .Pru	DB%A==B-1	DB%A==BI$!1 >ss
		XLIST
		DBTB.C
		LIST
BTB.C
		LISTI$#Q 

	RADIX

IFN ANS74,
	D.PNTR	DEBTAB

	DB.ITM	DA
	DB.FLG1,18
	DB.ITP,1,21,35

h	DB.FLG	IDP,2,0
`	DB.ITM	LN,2,5,17
	DB.ITM	PRM,2,1
>
	RADIX	8

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

K`,[ZQ @K`-Q HK`-RQ DK`-h6Q $<K`-lYQ FK`.
2Q BK`tk Xpu	EX%A==<POINT 1,B-1,C>K`u 
@pR	EX%A==<P
 OINT D-C+1,B-1,D>D-C+1,B-1K`v;2 py	EX%A==EX%B	EX%A==EXK`v|R Xp}	EX%A==B-1	EX%A==BKc$!1 5s+
		XLIST
		EXTB.C
		LIST
XTB.C
		LISTKc$#Q 

	RADIX

	D.PNTR	EX

	EX.ITM,1,3,17

	(EX.FLG	NRS,2,0
	HEX.FLG	IND,2,1
	hEX.FLG	PID,2,2
	EX.FLG	ENT,2,3
	(EX.FLG	CAL,2,4
	HEX.ITM	CNT,2,15,1
	EX.ITM	HLD,2,

	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 hp	FI%A==<POINT 1,B-1,C>M$u p	FI%A==<P(OINT D-C+1,B-1,D>D-C+1,B-1M$v;2 (p
	FI%A==FI%B	FI%A==FIM$v|R hp	FI%A==B-1	FI%A==BM'$!1 3Ps
		XLIST
		FITB.C
		LIST
ITB.C
		LISTM'$#Q 

	RADIX

	D.PNTR	FI

	FI.ITM,1,3,17

	(FI.FLG	MLT,2,0
	HFI.ITM	RCT,2,2,17
	FI.ITM	OFT,2,1

	FI.ITM	F15
	FI.IT,3,16,28
	FIITM	CP,3,29,35
	FI.ITM	LNC,3,16,

	FI.ITM	LRS
	FI.ITM	12,17
	FI.M	VAL,4,18,35
	(
IFN ANS68,<
	FI.ITM	NFL,5,0,4
	h>
IFN ANS74,<
	
FI.ITM	FAM,5,3,4
(
>
	FI.ITM	ERM,5
H,5,7
	FI.ITM	IRM
h,5,8,10
	FI.ITM	12,17
	FI.M	NXT,5,18,35
H
	FI.ITM	LBL,6,2
	FI.FLG	INO,6

,4
	FI.FLG	OUO,6

(,5
	FI.FLG	IOO,6

H,6
	FI.FLG	ADV,6

h,7
	FI.FLG	DSD,6
	FI.FLG	VLR,6
	FI.FLG	RER,6
	FI.FLG	RRC,
	FI.FLG	FDD
	FI.FLG	OP
	FI.FLG	P
	FI.FLG	15
	FI.ITM6,16,17
	FISME	ORG,ACC
	FIITM	ACK,6,18,35

	FI.ITM	NBF,7,
	FI.ITM	MRS,
	FI.ITM	D,35

IFNANS74,<
	FI.ITM8,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

IFN<ANS68

	FI.ITM	BBR
	FI.ITM11,18,35

	FI.ITM	ABR,12,0,
	FI.ITM	ABF,1

	FI.ITR,13,0,17
	FI.ITM	BEF,13,18,3

	FI.ITM	AER,
	FI.ITM	,18,35
>

IFN ANS74,<

(	FI.ITM	LCP,11,18

	FI.ITM	LP7
	FI.ITA,12,18,35
(
	FI.ITM	LAT,13,0
	FI.ITM	LAB,

	FI.IDEB,14,0,17
	(FI.ITM	LCI,14,18,
>

	FI.ITM	,0,17
	FI.M	LRL,15,18,35

	FI.FLG	DRC,16
	FI.FLG	ADR,1
	FI.FLG	RM2,
	FI.ITM	RD,
	FI.ITM	R7
	FI.FLG16,8
	FI.FLR,16,9
	FI.FBM,16,10
	FI.G	CKP,16,11
	FI.FLG	AKS,16,12
	FI.FLG	KYE,16,13
	FI.ITM	LOC,16,

	FI.ITM	,0,17
	FI.M	RKY,17,18,35

IFN ANS74,<
	HFI.FLG	RLC,18,0
h>
	FI.ITM	BLF,18
IFN ANS74,
	FI.ITM	ALN,18
	FI.ITM	A6,35
	FI.M	ACP,18,29,35
>

	FI.ITM	VPP
	FI.ITM19,18,35

 	FI.ITM	OWA,20,0,
	FI.ITM	OTA,20
	FI.ITM	RT35
	FI.SSPT,RTC

	FIITM	PFS,21,0,17
	FI.ITM	PEN,21,1

	FI.ITM	P,17
	FI.IPIV,22,18,35
"H
	FI.ITM	PBN,23,
	FI.ITM	PRN

	FI.M	PFN,24,0,17
#H	FI.ITM	PFT,24,18

IFN ANS74,
	FI.ITM	CKB,25
	FI.ITM	CK35
>

$h	FI.ITM	CRC,26,0,
	FI.ITM	FLN,26
	FI.ITM	F6,35
	FI.M	FCP,26,29,35

	FI.ITM	NUM,27
;	FI.ITM	X,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.

WQ HM0.0Q &M0.)Q $M0.86Q @M0.<Q DM0tk xq_	FL%A==<POINT 1,B-1,C>M0u q/	FL%A==<PpOINT D-C+1,B-1,D>D-C+1,B-1M0v;2 8qc	FL%A==FL%B	FL%A==FLM0v|R xqg	FL%A==B-1	FL%A==BM3$!1 8psI
		XLIST
		FLTB.C
		LIST
LTB.C
		LISTM3$#Q 

	RADIX

	D.PNTR	FL

	FL.FLD,1,0
	FL.FLF,1,1
	FL.FLF,1,2
	FL.FLL,1,3
	FL.FLL,1,4
	FL.FLO,1,5
	FL.FLN,1,6
IFN7AN<
	FL.FLG	DE
>
	FL.FLG1,16
	FL.FLC,1,17
	FL.IPRO,1,18,35
LH
	FL.ITM	NAM,2,1,
	FL.ITM	NLC,2
	FL.ITM	LN
	FL.ITM2,16,35
	FLITM	CP,2,29,35
N	FL.SME	POS,CP

	RADIX	8


Q0,:2QHQ0,;rQ,6$Q0,<Q-Q0,hrQq6$Q0-K@QH4Q0-KQQ%PQ0-KUQHQ0-h6Q%(<Q0.6Q$$Q0.)Q!$DQ0tkHq4	HL%A==<POINT 1,B-1,C>Q0u xo~	HL%A==<P
		XLIST
		HLTB.C
		LIST
LTB.C
		LISTQ3$#Q 

	RADIX

	D.PNTRHHL

	HL.ITM,1,1,15
	HLITM	LNC,1,16,35
	HL.ITM	LN,1,16,
	HL.ITM	CP,1,
	HL.ITM	RD;R[415] R
	HL.ITM	CID,1,]PCID

	HL.ITM	COD,
	HL.ITM	QA
	HL.ITM2,18,35
	HLITM	FCD,2,0,8;	;

	RADIX	8



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

	RADIX

	D.PNTR	LI

	LI.FLR,1,6
	LI.FLL,1,7
	LI.FLT,1,8
	LI.FLC,1,9
	LI.FLT,1,10
	LI.INCH,1,11,17
	hLI.ITM	FCC,1,18,3

	RADIX	8



	RADIX	8

[;$#Q

	RADIX

	D.PNTR	MN

	MN.ITM1,3,17
	MN.M	SNL,1,18,35

	RADIX	8


]2N=LIST1	AdNLIST1	A]2N= 
		DEFINE<
		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 `q~	PR%A==PR%B	PR%A==PRaHv|R   r	PR%A==B-1	PR%A==BaK$!1 9PsO
		XLIST
		PRTB.C
		LIST
RTB.C
		LISTaK$#Q 

	RADIX

	D.PNTR	PR

	PR.ITM,1,3,17
	PRITM	SNL,1,18,35

	PR.ITM	LSC,2,
	PR.ITM	GNW
	PR.ITM	18,35

	PR.ITM	AOB,3,0,17
	PR.ITM	PRI,3,18
	PR.FLG	SEC,
	PR.FLG	EXR
	PR.FLG	DE
	PR.FLG	A
	PR.FLG	29
	PR.FLG3,30
	PR.FLD,3,31
	PR.FDFD,3,32
	PR.G	MDF,3,33
	PRFLG	TUT,3,34

T	PR.ITM	XTW,4,0,1
	PR.ITM	FLO,4,

IFN,ANS7
	PR.WRD	DUP,
	PR.ITM	DEB,5,
	PR.ITM	SFI
>

	RADIX	8



	Re8* Q $He8*e@Q He8tk 0 s	RN%A==<POINT 1,B-1,C>e8u )hrL	RN%A==<P)HOINT D-C+1,B-1,D>D-C+1,B-1e8v;2 0`s	RN%A==RN%B	RN%A==RNe8v|R 1 s
	RN%A==B-1	RN%A==Be;$!1 >psy
		XLIST
		RNTB.C
		LIST
NTB.C
		LISTe;$#Q 
	RADIX	1
	D.PNTR	RENTAB
	RN.ITM	01,1
	RN.ITM	66
	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 $<e\.)2Q $He\.)9Q $He\.)YQ He\.*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 '0r;	RW%A==<POINT 1,B-1,C>e\u  @r9	RW%A==<P'OINT D-C+1,B-1,D>D-C+1,B-1e\v;2 (r@	RW%A==RW%B	RW%A==RWe\v|R (HrD	RW%A==B-1	RW%A==Be_$!0 ;psa
		XLIST
		RWTB.A
		LIST
WTB.A
		LISTe_$!1 <Psg
		XLIST
		RWTB.B
		LIST
WTB.B
		LISTe_$!1 =0sm
		XLIST
		RWTB.C
		LIST
WTB.C
		LISTe$#P 

	RADIX

	D.PNTRRRP


	
c(
	RW.ITM	NAM,1,3,K

	RADIX	8


e$#Q

	RADIX

	D.PNTR	RP

	RW.ITM,1,18,35

e	RW.ITM	BRO,2,0,1
	RW.ITM	LN,2,1
	RW.ITM	CP,
	RW.ITM	16,35

	RW.ITM	FIL,3,0,17
	RW.ITM	FGP,3,18

	RW.ITM	LC
	RW.ITM	8,35

	RWITM	PHL,5,0,8
	hRW.ITM	CFL,5,9,17
	RW.ITM	FDE,5,1
	RW.ITM	LDE

	RW.IPAG,6,0,8
	RWITM	RWT,6,18,35

	RW.ITM	RHR,7,
	RW.ITM	RFR

	RW.IPHR,8,0,17
	RW.ITM	PFR,8,18,35

	RW.ITM	GIR,9
	RW.ITM	CO5

	RW.M	CID,10,0,17
kH	RW.ITM	NCI,10,18

	RW.ITM	BK7
	RW.ITT,11,18,35
lH

	

	RW.ITM	R17
	RW.SMT,SAM

	RW.M	LCD,2,0,1
	RW.ITM	NLC,2,2,3
mh	RW.ITM	SCD,2,4,5
	RW.ITM	TYP,2,6
	RW.ITM	NSI,2

	RW.ITM3,0,8
	RW.ICOL,3,9,17
	RW.ITM	NXT,3,18,26

	RW.SME	RES,L
	RW.SME	SLK,PC

	RW.ITM	UPN,5
	RW.ITM	US5

	RW.M	SUP,6,0,17
q
	;WORDSE7STHRUO2STO
	;3(ALLOWRFORS WITH
	;S(EWP.MAC, SYMBOL

	
s
	RW.ITM	DCI,1,0,
	RW.SME	SAV,S

	RW.ITM	CHG
	RW.FLG	9
	RW.FLG	10
	RW.ITM2,9,10
	RW.G	GPI,2,11
	RWFLG	GEN,2,12
	RW.FLG	FNC,2,13
	HRW.FLG	RSU,2,16
uh	RW.SME	CFG,NSI
v
	RW.SME	REE,FIL

	RADIX	8



	RADIX	8

eo$#Q

	RWTB.A
	RWTB.B

.kL,;ZQ $0kL.

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

	RADIX

	D.PNTR	US

	US.ITP,1,3,11
	USFLG	XTR,1,17
	US.ITM	PRO,1,18,35

	US.ITM	CNT,2

	RADIX	8



	RADIX	8S@P >}{woP