Google
 
Trailing-Edge - PDP-10 Archives - BB-4148D-BM_1980 - dbms-v5a/source/gentab.unv
There is 1 other file named gentab.unv in the archive. Click here to see a list.
x
,5

@P C2v[ @ CJM|@  E 2X+
	BYTE (5)A,TB
	TE (5G>mX7@ @G>v=@ G>vcV 08+	
	IF2,<
0X	IFDEF CA,<CA==0xCA+1>
	IFNDEF C1A,<CA==1>
	>
	T2.==CA
	>
I
t2@ @I` 1X+
	M.==B
	T1.==M._-^D3
	2CONV.M	\T1.
	A=M.+T2.
	
	A=K>@ M&eI9@  S-m@ WLS@ WN|R@ Y>=|@ [0 3+
	TA=MAS38K..
	MASK..=MASK3X..+1
	MA==	1B<33x5-TA>
A::	EXP	MA
	A::	EXP	_C@ a&LW 7+C
	STR.ST=78.
	BYTE	(12)B
7X	LEN.==0
	IRP B7x<
	LEN.=LEN.+1
8	>
A:	POINT	^D1882,STR.ST
	XWD	0,LEN.

	XWD	0,aVt=@ ee|@ @g&H1 48++
	  IFG 4XC,<SETCMM	A>
	 4x FUNCT	TABSTR,<LE5XTAB,A,B>
	  I58FG C,<SETCMM	A>
	,<SETCMM	A>gfl+ 5x+5
	GETLEN	6(<B>)
	EXP 0
	68POINT	7,[ASCII/B6X/]
	EXP LEN.
	EXP A
	EN.
	EkN.*2@  S@P >}{woP