Google
 

Trailing-Edge - PDP-10 Archives - BB-H506D-SM_1983 - cobol/build/flgdf.unv
There are 10 other files named flgdf.unv in the archive. Click here to see a list.
x
,5-@P B@ ~h_vA1	\A,\SA%AA1	\A,\SABD h_~STKA==ATKBSTKA==ATKCbP CbP CbP CbP CbP Cb	P Cb	P Cb
P Cb
P CbP CbP Cb P Cb(P Cb(P Cb)P Cb)P Cb*P Cb*P Cb+P Cb+P Cb@P CbHP CbHP CbIP CbIP CbJP CbJP CbKP CbKP Cb`P CbhP CbhP CbiP CbiP CbjP CbjP CbkP CbkP CbP CbP CbP Cb	P Cb	P Cb
P Cb
P CbP CbP Cb P Cb(P Cb(P Cb)P Cb)P Cb*P Cb*P Cb+P Cb+P Cb@P CbHP CbHP CbIP CbIP CbJP CbJP CbKP CbKP Cb`P CbhP CbhP CbiP CbiP CbjP CbjP CbkP CbkP Cb P Cb$P Cb$ P Cb$@P Cb$`P Cb%P Cb% P Cb%@P Cb%`P Cb0P Cb4P Cb4 P Cb4@P Cb4`P Cb5P Cb5 P Cb5@P Cb5`P Cb@P CbDP CbD P CbD@P CbD`P CbEP CbE P CbE@P CbE`P CbPP CbTP CbT P CbT@P CbT`P CbUP CbU P CbU@P CbU`P Cb`P CbdP Cbd P Cbd@P Cbd`P CbeP Cbe P Cbe@P Cbe`P CbpP CbtP Cbt P Cbt@P Cbt`P CbuP Cbu P Cbu@P Cbu`P CbP CbP CbP CbP CbP Cb	P Cb	P Cb
P Cb
P CbP CbP Cb P Cb(P Cb(P Cb)P Cb)P Cb*P Cb*P Cb+P Cb+P Cb@P CbHP CbHP CbIP CbIP CbJP CbJP CbKP CbKP Cb`P CbhP CbhP CbiP CbiP CbjP CbjP CbkP CbkP CbP CbP CbP Cb	P Cb	P Cb
P Cb
P CbP CbP Cb P Cb(P Cb(P Cb)P Cb)P Cb*P Cb*P Cb+P Cb+P Cb@P CbHP CbHP CbIP CbIP CbJP CbJP CbKP CbKP Cb`P CbhP CbhP CbiP CbiP CbjP CbjP CbkP CbkP Cb P Cb$P Cb$ P Cb$@P Cb$`P Cb%P Cb% P Cb%@P Cb%`P Cb0P Cb4P Cb4 P Cb4@P Cb4`P Cb5P Cb5 P Cb5@P Cb5`P Cb@P CbDP CbD P CbD@P CbD`P CbEP CbE P CbE@P CbE`P CbPP CbTP CbT P CbT@P CbT`P CbUP CbU P CbU@P CbU`P Cb`P CbdP Cbd P Cbd@P Cbd`P CbeP Cbe P Cbe@P Cbe`P CbpP CbtP Cbt P Cbt@P Cbt`P CbuP Cbu P Cbu@P Cbu`P C3  uh_:
		.XCREFv
		%%T1==B
		Iv(FB	<B>,<%%T1==AvH>
		%%T2==A
		vhREPEAT	%%T1-A+1,w<
			%ALPH1	\%%Tw(2
			%%T2==%%T2+1>
		.CREF%T2+CRZP CRZP CRZP CRZP CRZP CRZ	P CRZ	P CRZ
P CRZ
P CRZP CRZP CRZ P CRZ(P CRZ(P CRZ)P CRZ)P CRZ*P CRZ*P CRZ+P CRZ+P CRZ@P CRZHP CRZHP CRZIP CRZIP CRZJP CRZJP CRZKP CRZKP CRZ`P CRZhP CRZhP CRZiP CRZiP CRZjP CRZjP CRZkP CRZkP CRZP CRZP CRZP CRZ	P CRZ	P CRZ
P CRZ
P CRZP CRZP CRZ P CRZ(P CRZ(P CRZ)P CRZ)P CRZ*P CRZ*P CRZ+P CRZ+P CRZ@P CRZHP CRZHP CRZIP CRZIP CRZJP CRZJP CRZKP CRZKP CRZ`P CRZhP CRZhP CRZiP CRZiP CRZjP CRZjP CRZkP CRZkP CRZ P CRZ$P CRZ$ P CRZ$@P CRZ$`P CRZ%P CRZ% P CRZ%@P CRZ%`P CRZ0P CRZ4P CRZ4 P CRZ4@P CRZ4`P CRZ5P CRZ5 P CRZ5@P CRZ5`P CRZ@P CRZDP CRZD P CRZD@P CRZD`P CRZEP CRZE P CRZE@P CRZE`P CRZPP CRZTP CRZT P CRZT@P CRZT`P CRZUP CRZU P CRZU@P CRZU`P CRZ`P CRZdP CRZd P CRZd@P CRZd`P CRZeP CRZe P CRZe@P CRZe`P CRZpP CRZtP CRZt P CRZt@P CRZt`P CRZuP CRZu P CRZu@P CRZu`P E'P ERX1 xHaD

DEFINE
(	ALPSYM(CH)   <A
B%'CH&777>	;ALPHx(A CONVERSION SYMB
(OL

DEFINE	NUMS
HYM(CH)   <AN%'CH
h>	;NUMERIC CONVER
SION SYMBOL

	;
(VALUE MACROS
	DE
HFINE	LEADNG   <LD
hGCH.&NUMSYM	(\%CH
AR)>	;LEADING CHA
(R
	DEFINE	SPECAL
H   <SPCCH.&NUMSYM
h	(\%CHAR)>		;SPEC
IAL
	DEFINE	NEGO
(VP   <IBNCH.&NUMS
HYM	(\%CHAR)>		;NE
hGATIVE OVERPUNCH

	DEFINE	NUMVAL  
( <VALCH.&NUMSYM	(
H\%CHAR)>		;VALUE
h

DEFINE	TOKEN%(
CH)   <ATK'CH>
(
	;VALUES
	TK.N
HUL==0		;NUL
	TK.
hTAB==1		;TAB
	TK
.BLK==2		;BLANK
(	TK.DIG==3		;DIGI
HT
	TK.OVP==4		;O
hVERPUNCH DIGIT
	
TK.SGN==5		;GRAPH
(IC SIGN
	TK.OTH=
H=6		;OTHER

DEF
hINE	ALPHAB(CH)   
	<AAL'CH>		;1 IF 
	(ALPHABETIC

DEF
	HINE	IFTRUE   <IFN
	h >			;TRUE IS NON
-ZERO
DEFINE	IFA
(LSE   <IFE >			;F
HALSE IS ZERO

D
hEFINE	GPHSGN   <V
AL==0
		  IFE TO
(KEN%(\%CHAR)-TK.S
HGN,<VAL==1>	;GRAP
hHIC SIGN?
		  >

DEFINE	BKTAB   
(; BLANK OR TAB
	
H< VAL==0
	   IFE
h TOKEN%(\%CHAR)-T
K.BLK,<VAL==1>
	
(  IFE TOKEN%(\%CH
HAR)-TK.TAB,<VAL==
h1>
	>

DEFINE	
NULL	;NULL CHARAC
(TER
	< VAL==0
	
H  IFE	TOKEN%(\%CH
hAR)-TK.NUL,<VAL==
1>
	>

DEFINE	
(NUMERIC  	;IS IT 
HNUMERIC??
	<VAL=
h=0
	   IFE TOKEN
% (\%CHAR)-TK.DIG
(,<VAL==1>
	   IF
HE TOKEN% (\%CHAR)
h-TK.OVP,<VAL==1>

	>

DEFINE	ZER
(O  	;IS IT A FORM
H OF ZERO??
;	<^-
h<NUMVAL>>
	<VAL=
=0
	 IFE	NUMVAL,
(<VAL==1>>
H

; TRANSITION 
hTABLE ACTION SETU
PS

DEFINE	MSET
(   <SYM%==SYM%!T.
HMSET>	;SET M FLAG
h
DEFINE	MCLR   <
SYM%==SYM%!T.MCLR
(>	;CLEAR M FLAG
HDEFINE	ABORT   <S
hYM%==SYM%!T.ABRT>
	;ABORT
DEFINE	S
(IGSET   <SYM%==SY
HM%!T.SBIT>	;SET S
hIGNIFICANCE
DEFI
NE	ABTSIG   <SYM%
(==SYM%!T.ABIS>	;A
HBORT IF SIGNIFICA
hNCE

; SIZE OF 
TABLES
DEFINE	TB
(LSIZ   <
	IFIDN	
H<A><A>,<VAL==200
h/2>
	IFIDN	<A><
S>,<VAL==100/2>
(	IFIDN	<A><E>,<V
HAL==400/2>
	>


00/2>
	>
I,k oH
		DEFINEoh	DEFLT <
			.XCRpEF
			%%T2==0
	p(		REPEAT	A+1,<
pH				%DFLT1	\%%T2
				%%T2==%%T2+1>
			.CREF>2+1IY`P I5M |(_T
			.XCRE|HF
			%%T2==0
		th	REPEAT	377+1,<
yH				%DFLT1	\%%T2
				%%T2==%%T2+1>
			.CREFT2+1KbP KbP KbP KbP KbP Kb	P Kb	P Kb
P Kb
P KbP KbP Kb P Kb(P Kb(P Kb)P Kb)P Kb*P Kb*P Kb+P Kb+P Kb@P KbHP KbHP KbIP KbIP KbJP KbJP KbKP KbKP Kb`P KbhP KbhP KbiP KbiP KbjP KbjP KbkP KbkP KbP KbP KbP Kb	P Kb	P Kb
P Kb
P KbP KbP Kb P Kb(P Kb(P Kb)P Kb)P Kb*P Kb*P Kb+P Kb+P Kb@P KbHP KbHP KbIP KbIP KbJP KbJP KbKP KbKP Kb`P KbhP KbhP KbiP KbiP KbjP KbjP KbkP KbkP Kb P Kb$P Kb$P Kb$P Kb$	P Kb$	P Kb$
P Kb$
P Kb$P Kb$P Kb$ P Kb$(P Kb$(P Kb$)P Kb$)P Kb$*P Kb$*P Kb$+P Kb$+P Kb$@P Kb$HP Kb$HP Kb$IP Kb$IP Kb$JP Kb$JP Kb$KP Kb$KP Kb$`P Kb$hP Kb$hP Kb$iP Kb$iP Kb$jP Kb$jP Kb$kP Kb$kP Kb%P Kb%P Kb%P Kb%	P Kb%	P Kb%
P Kb%
P Kb%P Kb%P Kb% P Kb%(P Kb%(P Kb%)P Kb%)P Kb%*P Kb%*P Kb%+P Kb%+P Kb%@P Kb%HP Kb%HP Kb%IP Kb%IP Kb%JP Kb%JP Kb%KP Kb%KP Kb%`P Kb%hP Kb%hP Kb%iP Kb%iP Kb%jP Kb%jP Kb%kP Kb%kP Kb0P Kb4P Kb4P Kb4P Kb4	P Kb4	P Kb4
P Kb4
P Kb4P Kb4P Kb4 P Kb4(P Kb4(P Kb4)P Kb4)P Kb4*P Kb4*P Kb4+P Kb4+P Kb4@P Kb4HP Kb4HP Kb4IP Kb4IP Kb4JP Kb4JP Kb4KP Kb4KP Kb4`P Kb4hP Kb4hP Kb4iP Kb4iP Kb4jP Kb4jP Kb4kP Kb4kP Kb5P Kb5P Kb5P Kb5	P Kb5	P Kb5
P Kb5
P Kb5P Kb5P Kb5 P Kb5(P Kb5(P Kb5)P Kb5)P Kb5*P Kb5*P Kb5+P Kb5+P Kb5@P Kb5HP Kb5HP Kb5IP Kb5IP Kb5JP Kb5JP Kb5KP Kb5KP Kb5`P Kb5hP Kb5hP Kb5iP Kb5iP Kb5jP Kb5jP Kb5kP Kb5kP Kb@P KbDP KbD P KbD@P KbD`P KbEP KbE P KbE@P KbE`P KbPP KbTP KbT P KbT@P KbT`P KbUP KbU P KbU@P KbU`P Kb`P KbdP Kbd P Kbd@P Kbd`P KbeP Kbe P Kbe@P Kbe`P KbpP KbtP Kbt P Kbt@P Kbt`P KbuP Kbu P Kbu@P Kbu`P KbP KbP KbP KbP KbP Kb	P Kb	P Kb
P Kb
P KbP KbP Kb P Kb(P Kb(P Kb)P Kb)P Kb*P Kb*P Kb+P Kb+P Kb@P KbHP KbHP KbIP KbIP KbJP KbJP KbKP KbKP Kb`P KbhP KbhP KbiP KbiP KbjP KbjP KbkP KbkP KbP KbP KbP Kb	P Kb	P Kb
P Kb
P KbP KbP Kb P Kb(P Kb(P Kb)P Kb)P Kb*P Kb*P Kb+P Kb+P Kb@P KbHP KbHP KbIP KbIP KbJP KbJP KbKP KbKP Kb`P KbhP KbhP KbiP KbiP KbjP KbjP KbkP KbkP Kb P Kb$P Kb$P Kb$P Kb$	P Kb$	P Kb$
P Kb$
P Kb$P Kb$P Kb$ P Kb$(P Kb$(P Kb$)P Kb$)P Kb$*P Kb$*P Kb$+P Kb$+P Kb$@P Kb$HP Kb$HP Kb$IP Kb$IP Kb$JP Kb$JP Kb$KP Kb$KP Kb$`P Kb$hP Kb$hP Kb$iP Kb$iP Kb$jP Kb$jP Kb$kP Kb$kP Kb%P Kb%P Kb%P Kb%	P Kb%	P Kb%
P Kb%
P Kb%P Kb%P Kb% P Kb%(P Kb%(P Kb%)P Kb%)P Kb%*P Kb%*P Kb%+P Kb%+P Kb%@P Kb%HP Kb%HP Kb%IP Kb%IP Kb%JP Kb%JP Kb%KP Kb%KP Kb%`P Kb%hP Kb%hP Kb%iP Kb%iP Kb%jP Kb%jP Kb%kP Kb%kP Kb0P Kb4P Kb4P Kb4P Kb4	P Kb4	P Kb4
P Kb4
P Kb4P Kb4P Kb4 P Kb4(P Kb4(P Kb4)P Kb4)P Kb4*P Kb4*P Kb4+P Kb4+P Kb4@P Kb4HP Kb4HP Kb4IP Kb4IP Kb4JP Kb4JP Kb4KP Kb4KP Kb4`P Kb4hP Kb4hP Kb4iP Kb4iP Kb4jP Kb4jP Kb4kP Kb4kP Kb5P Kb5P Kb5P Kb5	P Kb5	P Kb5
P Kb5
P Kb5P Kb5P Kb5 P Kb5(P Kb5(P Kb5)P Kb5)P Kb5*P Kb5*P Kb5+P Kb5+P Kb5@P Kb5HP Kb5HP Kb5IP Kb5IP Kb5JP Kb5JP Kb5KP Kb5KP Kb5`P Kb5hP Kb5hP Kb5iP Kb5iP Kb5jP Kb5jP Kb5kP Kb5kP Kb@P KbDP KbD P KbD@P KbD`P KbEP KbE P KbE@P KbE`P KbPP KbTP KbT P KbT@P KbT`P KbUP KbU P KbU@P KbU`P Kb`P KbdP Kbd P Kbd@P Kbd`P KbeP Kbe P Kbe@P Kbe`P KbpP KbtP Kbt P Kbt@P Kbt`P KbuP Kbu P Kbu@P Kbu`P K>` u_Z
		.XCREFu(
		IFB	<B>,<%EOuHL1	\A>
		IFNB	<yhB>,<
			%%T1==y(A
			REPEAT	B-zhA+1,<
				%EOL1	{\%%T1
				%%T1=={(%%T1+1>>
		.CREFT1+1>>
		.CREFKRZP KRZP KRZP KRZP KRZP KRZ	P KRZ	P KRZ
P KRZ
P KRZP KRZP KRZ P KRZ(P KRZ(P KRZ)P KRZ)P KRZ*P KRZ*P KRZ+P KRZ+P KRZ@P KRZHP KRZHP KRZIP KRZIP KRZJP KRZJP KRZKP KRZKP KRZ`P KRZhP KRZhP KRZiP KRZiP KRZjP KRZjP KRZkP KRZkP KRZP KRZP KRZP KRZ	P KRZ	P KRZ
P KRZ
P KRZP KRZP KRZ P KRZ(P KRZ(P KRZ)P KRZ)P KRZ*P KRZ*P KRZ+P KRZ+P KRZ@P KRZHP KRZHP KRZIP KRZIP KRZJP KRZJP KRZKP KRZKP KRZ`P KRZhP KRZhP KRZiP KRZiP KRZjP KRZjP KRZkP KRZkP KRZ P KRZ$P KRZ$P KRZ$P KRZ$	P KRZ$	P KRZ$
P KRZ$
P KRZ$P KRZ$P KRZ$ P KRZ$(P KRZ$(P KRZ$)P KRZ$)P KRZ$*P KRZ$*P KRZ$+P KRZ$+P KRZ$@P KRZ$HP KRZ$HP KRZ$IP KRZ$IP KRZ$JP KRZ$JP KRZ$KP KRZ$KP KRZ$`P KRZ$hP KRZ$hP KRZ$iP KRZ$iP KRZ$jP KRZ$jP KRZ$kP KRZ$kP KRZ%P KRZ%P KRZ%P KRZ%	P KRZ%	P KRZ%
P KRZ%
P KRZ%P KRZ%P KRZ% P KRZ%(P KRZ%(P KRZ%)P KRZ%)P KRZ%*P KRZ%*P KRZ%+P KRZ%+P KRZ%@P KRZ%HP KRZ%HP KRZ%IP KRZ%IP KRZ%JP KRZ%JP KRZ%KP KRZ%KP KRZ%`P KRZ%hP KRZ%hP KRZ%iP KRZ%iP KRZ%jP KRZ%jP KRZ%kP KRZ%kP KRZ0P KRZ4P KRZ4P KRZ4P KRZ4	P KRZ4	P KRZ4
P KRZ4
P KRZ4P KRZ4P KRZ4 P KRZ4(P KRZ4(P KRZ4)P KRZ4)P KRZ4*P KRZ4*P KRZ4+P KRZ4+P KRZ4@P KRZ4HP KRZ4HP KRZ4IP KRZ4IP KRZ4JP KRZ4JP KRZ4KP KRZ4KP KRZ4`P KRZ4hP KRZ4hP KRZ4iP KRZ4iP KRZ4jP KRZ4jP KRZ4kP KRZ4kP KRZ5P KRZ5P KRZ5P KRZ5	P KRZ5	P KRZ5
P KRZ5
P KRZ5P KRZ5P KRZ5 P KRZ5(P KRZ5(P KRZ5)P KRZ5)P KRZ5*P KRZ5*P KRZ5+P KRZ5+P KRZ5@P KRZ5HP KRZ5HP KRZ5IP KRZ5IP KRZ5JP KRZ5JP KRZ5KP KRZ5KP KRZ5`P KRZ5hP KRZ5hP KRZ5iP KRZ5iP KRZ5jP KRZ5jP KRZ5kP KRZ5kP KRZ@P KRZDP KRZD P KRZD@P KRZD`P KRZEP KRZE P KRZE@P KRZE`P KRZPP KRZTP KRZT P KRZT@P KRZT`P KRZUP KRZU P KRZU@P KRZU`P KRZ`P KRZdP KRZd P KRZd@P KRZd`P KRZeP KRZe P KRZe@P KRZe`P KRZpP KRZtP KRZt P KRZt@P KRZt`P KRZuP KRZu P KRZu@P KRZu`P S
t:P @Y<:P g*P g*P g*P g* P g*@P g*`P g*P g* P g*@P g*`P g* P g*$P g*$ P g*$@P g*$`P g*%P g*% P g*%@P g*%`P g*0P g*4P g*4 P g*4@P g*4`P g*5P g*5 P g*5@P g*5`P g*@P g*DP  g*D P  g*D@P !g*D`P !g*EP "g*E P "g*E@P #g*E`P #g*PP g*TP $g*T P $g*T@P %g*T`P %g*UP &g*U P &g*U@P 'g*U`P 'g*`P g*dP (g*d P (g*d@P )g*d`P )g*eP *g*e P *g*e@P +g*e`P +g*pP g*tP ,g*t P ,g*t@P -g*t`P -g*uP .g*u P .g*u@P /g*u`P /gbP gbP gbP gb P gb@P gb`P gbP gb P gb@P gb`P gb P gb$P gb$ P gb$@P gb$`P gb%P gb% P gb%@P gb%`P gb0P gb4P gb4 P gb4@P gb4`P gb5P gb5 P gb5@P gb5`P gb@P gbDP gbD P gbD@P gbD`P gbEP gbE P gbE@P gbE`P gbPP gbTP gbT P gbT@P gbT`P gbUP gbU P gbU@P gbU`P gb`P gbdP gbd P gbd@P gbd`P gbeP gbe P gbe@P gbe`P gbpP gbtP gbt P gbt@P gbt`P gbuP gbu P gbu@P gbu`P g  _@
		.XCREFq
		%%T1==0
		IFyIDN	<A> <S>,<%%Tz1==77>
		IFIDN	<q(A> <A>,<%%T1==17qH7>
		IFIDN	<A> qh<E>,<%%T1==377>
r		IFE	%%T1,<
			r(PRINTX	?BAD CALL rHTO MACRO "SET".
rh			PASS2
			END>s
		DDEFLT	\%%T1
		DEFINE	%DFLT1 sH(N)<IFNDEF	ATK'Nsh,<ATK'N==6>>
		tDEFINE	%TOKE1 (N,x V)<ATK'N==V>
		.CREF
				%%TgB:P gRZP gRZP gRZP gRZ P gRZ@P gRZ`P gRZP gRZ P gRZ@P gRZ`P gRZ P gRZ$P gRZ$ P gRZ$@P gRZ$`P gRZ%P gRZ% P gRZ%@P gRZ%`P gRZ0P gRZ4P gRZ4 P gRZ4@P gRZ4`P gRZ5P gRZ5 P gRZ5@P gRZ5`P gRZ@P gRZDP gRZD P gRZD@P gRZD`P gRZEP gRZE P gRZE@P gRZE`P gRZPP gRZTP gRZT P gRZT@P gRZT`P gRZUP gRZU P gRZU@P gRZU`P gRZ`P gRZdP gRZd P gRZd@P gRZd`P gRZeP gRZe P gRZe@P gRZe`P gRZpP gRZtP gRZt P gRZt@P gRZt`P gRZuP gRZu P gRZu@P gRZu`P gfhPP i>\[@ xh_r
		.XCREF|h
		IFB	<C>,<%TO}KE1	\A,\B>
		I}(FNB	<C>,<
			%%}HT1==A
			REPEAT}h	B-A+1,<
				%~TOKE1	\%%T1,\C
~(				%%T1==%%T1+1>>
		.CREFT1+1>md:P 
d+P 
"P u
" P f
 aNEALA==15M 
H`IFNDEF	ETKA,<ETKA==6>TK}D  _<EELA==1R}9( tH_$ETKA==B^ATKA==BS@P >}{woP