Google
 
Trailing-Edge - PDP-10 Archives - BB-Z759A-SM - 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@ 

`aA1	\A,\SA%AA1	\A,\SABD 

`iSTKA==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  

`%
		.XCREF

0
		%%T1==B
		I

PFB	<B>,<%%T1==A

p>
		%%T2==A
		

REPEAT	%%T1-A+1,

0<
			%ALPH1	\%%T

P2
			%%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 ERX1 

pb/

DEFINE

P	ALPSYM(CH)   <A

0B%'CH&777>	;ALPH

PA CONVERSION SYMB

POL

DEFINE	NUMS

pYM(CH)   <AN%'CH

>	;NUMERIC CONVER

0SION SYMBOL

	;

PVALUE MACROS
	DE

pFINE	LEADNG   <LD

GCH.&NUMSYM	(\%CH

0AR)>	;LEADING CHA

PR
	DEFINE	SPECAL

p   <SPCCH.&NUMSYM

	(\%CHAR)>		;SPEC

0IAL
	DEFINE	NEGO

PVP   <IBNCH.&NUMS

pYM	(\%CHAR)>		;NE

GATIVE OVERPUNCH

0
	DEFINE	NUMVAL  

P <VALCH.&NUMSYM	(

p\%CHAR)>		;VALUE



DEFINE	TOKEN%(

0CH)   <ATK'CH>

P
	;VALUES
	TK.N

pUL==0		;NUL
	TK.

TAB==1		;TAB
	TK

0.BLK==2		;BLANK

P	TK.DIG==3		;DIGI

pT
	TK.OVP==4		;O

VERPUNCH DIGIT
	

0TK.SGN==5		;GRAPH

PIC SIGN
	TK.OTH=

p=6		;OTHER

DEF

INE	ALPHAB(CH)   

0<AAL'CH>		;1 IF 

PALPHABETIC

DEF

pINE	IFTRUE   <IFN

 >			;TRUE IS NON

0-ZERO
DEFINE	IFA

PLSE   <IFE >			;F

pALSE IS ZERO

D

EFINE	GPHSGN   <V

0AL==0
		  IFE TO

PKEN%(\%CHAR)-TK.S

pGN,<VAL==1>	;GRAP

HIC SIGN?
		  >

0

DEFINE	BKTAB   

P; BLANK OR TAB
	

p< VAL==0
	   IFE

 TOKEN%(\%CHAR)-T

0K.BLK,<VAL==1>
	

P  IFE TOKEN%(\%CH

pAR)-TK.TAB,<VAL==

1>
	>

DEFINE	

0NULL	;NULL CHARAC

PTER
	< VAL==0
	

p  IFE	TOKEN%(\%CH

AR)-TK.NUL,<VAL==

01>
	>

DEFINE	

PNUMERIC  	;IS IT 

pNUMERIC??
	<VAL=

=0
	   IFE TOKEN

0% (\%CHAR)-TK.DIG

P,<VAL==1>
	   IF

pE TOKEN% (\%CHAR)

-TK.OVP,<VAL==1>

0
	>

DEFINE	ZER

PO  	;IS IT A FORM

p OF ZERO??
;	<^-

<NUMVAL>>
	<VAL=

0=0
	 IFE	NUMVAL,

P<VAL==1>>

p

; TRANSITION 

 TABLE ACTION SETU

 0PS

DEFINE	MSET

 P   <SYM%==SYM%!T.

 pMSET>	;SET M FLAG

!
DEFINE	MCLR   <

!0SYM%==SYM%!T.MCLR

!P>	;CLEAR M FLAG

!pDEFINE	ABORT   <S

"YM%==SYM%!T.ABRT>

"0	;ABORT
DEFINE	S

"PIGSET   <SYM%==SY

"pM%!T.SBIT>	;SET S

#IGNIFICANCE
DEFI

#0NE	ABTSIG   <SYM%

#P==SYM%!T.ABIS>	;A

#pBORT IF SIGNIFICA

$NCE

; SIZE OF 

$0TABLES
DEFINE	TB

$PLSIZ   <
	IFIDN	

$p<A><A>,<VAL==200

%/2>
	IFIDN	<A><

%0S>,<VAL==100/2>

%P	IFIDN	<A><E>,<V

%pAL==400/2>
	>


00/2>
	>
G?T  2REMARKI,k |pq
		DEFINE}	DEFLT <
			.XCR}0EF
			%%T2==0
	}P		REPEAT	A+1,<
}p				%DFLT1	\%%T2
				%%T2==%%T2+1>
			.CREF>2+1IY`P I5M 

	P`?
			.XCRE

	pF
			%%T2==0
		

	REPEAT	377+1,<

p				%DFLT1	\%%T2

p
				%%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>` 

0`E
		.XCREF

P
		IFB	<B>,<%EO

pL1	\A>
		IFNB	<

B>,<
			%%T1==

PA
			REPEAT	B-

A+1,<
				%EOL1	

0\%%T1
				%%T1==

P%%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  

0`+
		.XCREF~0
		%%T1==0
		IF

0IDN	<A> <S>,<%%T

01==77>
		IFIDN	<~PA> <A>,<%%T1==17~p7>
		IFIDN	<A> <E>,<%%T1==377>
0		IFE	%%T1,<
			PPRINTX	?BAD CALL pTO MACRO "SET".

			PASS2
			END>

0
		DDEFLT	\%%T1

P
		DEFINE	%DFLT1 

p(N)<IFNDEF	ATK'N

,<ATK'N==6>>
		

0DEFINE	%TOKE1 (N,

0 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>\[@ 

`]
		.XCREF


		IFB	<C>,<%TO

0KE1	\A,\B>
		I

PFNB	<C>,<
			%%

pT1==A
			REPEAT

	B-A+1,<
				%

0TOKE1	\%%T1,\C

P				%%T1==%%T1+1>>
		.CREFT1+1>md:P 
d+P 
"P u
" P f
 b9EALA==15M 

p`oIFNDEF	ETKA,<ETKA==6>TK}D  `'EELA==1R}9( 

p`ETKA==BIATKA==BS@P >}{woP 
COPYRIGHT (C) 1983 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.