PDP-10 Archive: flgdf.unv from BB-H580C-SB

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 pqSTKA==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  	pp[
		.XCREF

		%%T1==B
		I
0FB	<B>,<%%T1==A
P>
		%%T2==A
		
pREPEAT	%%T1-A+1,<
			%ALPH1	\%%T02
			%%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

Pre

DEFINE0	ALPSYM(CH)   <AB%'CH&777>	;ALPH

0A CONVERSION SYMB0OL

DEFINE	NUMSPYM(CH)   <AN%'CHp>	;NUMERIC CONVERSION SYMBOL

	;0VALUE MACROS
	DEPFINE	LEADNG   <LDpGCH.&NUMSYM	(\%CHAR)>	;LEADING CHA0R
	DEFINE	SPECALP   <SPCCH.&NUMSYMp	(\%CHAR)>		;SPECIAL
	DEFINE	NEGO0VP   <IBNCH.&NUMSPYM	(\%CHAR)>		;NEpGATIVE OVERPUNCH
	DEFINE	NUMVAL  0 <VALCH.&NUMSYM	(P\%CHAR)>		;VALUE

DEFINE	TOKEN%(CH)   <ATK'CH>
0
	;VALUES
	TK.NPUL==0		;NUL
	TK.pTAB==1		;TAB
	TK.BLK==2		;BLANK
0	TK.DIG==3		;DIGIPT
	TK.OVP==4		;OpVERPUNCH DIGIT
	TK.SGN==5		;GRAPH0IC SIGN
	TK.OTH=P=6		;OTHER

DEFpINE	ALPHAB(CH)   <AAL'CH>		;1 IF 0ALPHABETIC

DEFPINE	IFTRUE   <IFNp >			;TRUE IS NON-ZERO
DEFINE	IFA0LSE   <IFE >			;FPALSE IS ZERO

DpEFINE	GPHSGN   <VAL==0
		  IFE TO0KEN%(\%CHAR)-TK.SPGN,<VAL==1>	;GRAPpHIC SIGN?
		 >

DEFINE	BKTAB    0; BLANK OR TAB
	 P< VAL==0
	   IFE p TOKEN%(\%CHAR)-T!K.BLK,<VAL==1>
	!0  IFE TOKEN%(\%CH!PAR)-TK.TAB,<VAL==!p1>
	>

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

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

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



&P

; TRANSITION &pTABLE ACTION SETU'PS

DEFINE	MSET'0   <SYM%==SYM%!T.'PMSET>	;SET M FLAG'p
DEFINE	MCLR   <(SYM%==SYM%!T.MCLR(0>	;CLEAR M FLAG
(PDEFINE	ABORT   <S(pYM%==SYM%!T.ABRT>)	;ABORT
DEFINE	S)0IGSET   <SYM%==SY)PM%!T.SBIT>	;SET S)pIGNIFICANCE
DEFI*NE	ABTSIG   <SYM%*0==SYM%!T.ABIS>	;A*PBORT IF SIGNIFICA*pNCE

; SIZE OF +TABLES
DEFINE	TB+0LSIZ   <
	IFIDN	+P<A><A>,<VAL==200+p/2>
	IFIDN	<A><,S>,<VAL==100/2>
,0	IFIDN	<A><E>,<V,PAL==400/2>
	>


00/2>
	>
I,k Pp'
		DEFINEp	DEFLT <
			.XCREF
			%%T2==0
	0		REPEAT	A+1,<
P				%DFLT1	\%%T2
				%%T2==%%T2+1>
			.CREF>2+1IY`P I5M 0pu
			.XCREPF
			%%T2==0
		p	REPEAT	377+1,<
				%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>` 	p{
		.XCREF	0
		IFB	<B>,<%EO	PL1	\A>
		IFNB	<
			%%T1==
			REPEAT	B-pA+1,<
				%EOL1	\%%T1
				%%T1==0%%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  pa
		.XCREF
		%%T1==0
		IF<A> <S>,<%%T1==77>
		IFIDN	<0A> <A>,<%%T1==17P7>
		IFIDN	<A> p<E>,<%%T1==377>
		IFE	%%T1,<
			0PRINTX	?BAD CALL PTO MACRO "SET".
p			PASS2
			END>
		DDEFLT	\%%T1
		DEFINE	%DFLT1 P(N)<IFNDEF	ATK'Np,<ATK'N==6>>
		DEFINE	%TOKE1 (N,

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

pq
		.XCREFp
		IFB	<C>,<%TOKE1	\A,\B>
		I0FNB	<C>,<
			%%PT1==A
			REPEATp	B-A+1,<
				%TOKE1	\%%T1,\C
0				%%T1==%%T1+1>>
		.CREFT1+1>md:P 
d+P 
"P u
" P f
 roEALA==15M Pq%IFNDEF	ETKA,<ETKA==6>TK}D  p]EELA==1R}9( PpEETKA==BATKA==BS@P >}{woP