Google
 

Trailing-Edge - PDP-10 Archives - BB-H580C-SB_1981 - flgdf.unv
There are 10 other files named flgdf.unv in the archive. Click here to see a list.
x
,5-@P B@ PqA1	\A,\SA%AA1	\A,\SABD Pq%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  
Ppa
		.XCREF
p
		%%T1==B
		IFB	<B>,<%%T1==A0>
		%%T2==A
		PREPEAT	%%T1-A+1,p<
			%ALPH1	\%%T
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
PkCRZP 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 

DEFINE	ALPSYM(CH)OL<ApB%'CH&777>	;ALPH

DEFINE	NUMS0YM(CH)   <AN%'CHP>	;NUMERIC CONVERpSION SYMBOL

	;VALUE MACROS
	DE0FINE	LEADNG   <LDPGCH.&NUMSYM	(\%CHpAR)>	;LEADING CHAR
	DEFINE	SPECAL0   <SPCCH.&NUMSYMP	(\%CHAR)>		;SPECpIAL
	DEFINE	NEGOVP   <IBNCH.&NUMS0YM	(\%CHAR)>		;NEPGATIVE OVERPUNCH
	DEFINE	NUMVAL   <VALCH.&NUMSYM	(0\%CHAR)>		;VALUE

DEFINE	TOKEN%(pCH)   <ATK'CH>

	;VALUES
	TK.N0UL==0		;NUL
	TK.PTAB==1		;TAB
	TKp.BLK==2		;BLANK
	TK.DIG==3		;DIGI0T
	TK.OVP==4		;OPVERPUNCH DIGIT
	pTK.SGN==5		;GRAPHIC SIGN
	TK.OTH=0=6		;OTHER

DEFPINE	ALPHAB(CH)   p<AAL'CH>		;1 IF ALPHABETIC

DEF0INE	IFTRUE   <IFNP >			;TRUE IS NONp-ZERO
DEFINE	IFALSE   <IFE >			;F0ALSE IS ZERO

DPEFINE	GPHSGN   <VpAL==0
		  IFE TO KEN%(\%CHAR)-TK.S 0GN,<VAL==1>	;GRAP PHIC SIGN?
		p >
DEFINE	BKTAB   !; BLANK OR TAB
	!0< VAL==0
	   IFE!P TOKEN%(\%CHAR)-T!pK.BLK,<VAL==1>
	"  IFE TOKEN%(\%CH"0AR)-TK.TAB,<VAL=="P1>
	>

DEFINE	"pNULL	;NULL CHARAC#TER
	< VAL==0
	#0  IFE	TOKEN%(\%CH#PAR)-TK.NUL,<VAL==#p1>
	>

DEFINE	$NUMERIC  	;IS IT $0NUMERIC??
	<VAL=$P=0
	   IFE TOKEN$p% (\%CHAR)-TK.DIG%,<VAL==1>
	%p IF%0E TOKEN% (\%CHAR)%P-TK.OVP,<VAL==1>
	>

DEFINE	ZER&O  	;IS IT A FORM&0 OF ZERO??
;	<^-&P<NUMVAL>>
	<VAL=&p=0
	 IFE	NUMVAL,'<VAL==1>>



'0

; TRANSITION 'PTABLE ACTION SETU'pPS

DEFINE	MSET(   <SYM%==SYM%!T.(0MSET>	;SET M FLAG(P
DEFINE	MCLR   <(pSYM%==SYM%!T.MCLR)>	;CLEAR M FLAG
)0DEFINE	ABORT   <S)PYM%==SYM%!T.ABRT>)p	;ABORT
DEFINE	S*IGSET   <SYM%==SY*0M%!T.SBIT>	;SET S*PIGNIFICANCE
DEFI*pNE	ABTSIG   <SYM%+==SYM%!T.ABIS>	;A+0BORT IF SIGNIFICA+PNCE

; SIZE OF +pTABLES
DEFINE	TB,LSIZ   <
	IFIDN	,0<A><A>,<VAL==200,P/2>
	IFIDN	<A><,pS>,<VAL==100/2>
-	IFIDN	<A><E>,<V-0AL==400/2>
	>


00/2>
	>
I,k 0p-
		DEFINEP	DEFLT <
			.XCRpEF
			%%T2==0
			REPEAT	A+1,<
0				%DFLT1	\%%T2
				%%T2==%%T2+1>
			.CREF>2+1IY`P I5M p{
			.XCRE0F
			%%T2==0
			P	REPEAT	377+1,<
0				%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>` 	pq
		.XCREF

		IFB	<B>,<%EO
0L1	\A>
		IFNB	<PB>,<
			%%T1==A
			REPEAT	B-PA+1,<
				%EOL1	p\%%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  ppg
		.XCREFp
		%%T1==0
		IF<A> <S>,<%%Tp1==77>
		IFIDN	<A> <A>,<%%T1==1707>
		IFIDN	<A> P<E>,<%%T1==377>
p		IFE	%%T1,<
			PRINTX	?BAD CALL 0TO MACRO "SET".
P			PASS2
			END>p
		DDEFLT	\%%T1
		DEFINE	%DFLT1 0(N)<IFNDEF	ATK'NP,<ATK'N==6>>
		pDEFINE	%TOKE1 (N,
p 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>\[@ 
		.XCREFP
		IFB	<C>,<%TOpKE1	\A,\B>
		IFNB	<C>,<
			%%0T1==A
			REPEATP	B-A+1,<
				%pTOKE1	\%%T1,\C
				%%T1==%%T1+1>>
		.CREFT1+1>md:P 
d+P 
"P u
" P f
 ruEALA==15M 0q+IFNDEF	ETKA,<ETKA==6>TK}D  pcEELA==1R}9( 	0pKETKA==BATKA==BS@P >}{woP