Trailing-Edge
-
PDP-10 Archives
-
BB-JF18A-BM
-
sources/mx/tbl.l36
There are 17 other files named tbl.l36 in the archive. Click here to see a list.
'G TOPS-20 Bliss-36 4A(225) 10-Jul-1986 13:20:18 Thurs B
!
" % (
* 0 1 3 5 9 < > @ dENTWORD P ARGS x KEY$ @ ARGABR x)CH$LEN PTBLENTRYEXISTS PTBLINVALIDINDEX PTBLEXACTMATCH P
TBL_LESSTHAN @ ZARG_INV 8 zTBL_KEY @ gENT_KEY @ \ ARG_NOREC x 1TBLFLG x "TBLENT x TBLUK_TABLE P TBL_NOMATCH P TBL_EMPTY @ aARG_FLAG 8 p TBL_ENTRY P SIZ_ 8 uTBL_MAXIMUM_ENTRIES 8 |TBL_DATA P TBL_OK P
TBLAEQUALTO @ iENT DATA ( ~TBL P } DEFTBLSIZ 8 l
ARG_FIELDS 8 wTBL_ACTUAL_ENTRIES PTBL_FULL PTBL_ABREVIATION P
TBL_GREATERTHAN H d
ENT_FIELDS 8 yTBL_WORD Rb))dI'
0
D9&/ Pb)"D9($ R ` R b)# X
%!"@
$ &)$9 @!&$ExX$ $#exR")
&d( b))dI'
0)%Q>`R b)
$ 0*Da6-eh / @
%)ep $@!&$ExX b)#`0
E)&
0D) $q'bH
%!"@
"E PB)$"$ '$q `
$14 @
dI4/ 0
D9&/
R
$ @ PE!&Da@8J)$i +"@
RB))dI4 `R @ V @
$I
@(J'$a@PJ)$i$DI #
0
A
' 0
*Da
'@
%
&$I $D8R b)
$ V b)#`0
E)&
X@(J*) @J$@
$ *E D 0
A
' 0
!%y
+ 0DH b)# 0$!
'I @ 0$E0R")($$p6D/$q, @(J"
@J$@
$I"E!!$`P "`
Dy$@(J*)
$a&" 0$0 B)"$q($d `X d )
0
A
'`0
!%y!@
$))!X 0DH b)
$ 0DH b)# 0
E)&
0D) $q'bH
%!"B`
$1 @1(!1#
0D) $q'bH
$1 h H @ 8 H $ $ 0 $
$'dY6 `
0 D9>#$)"bH
$'dY6 `
0"E!>#$)"bH $ $ $ H $ $ $ ` V @ `
( R ( X @ | R p $#$i
'P @i(!y)ey&d @A)e)"E z @X-`Xe!&dY
, v \ $#$i
'X
%/Da# D b)#`0
E)&
X@(J*) `z @0 D9*&$q(-@I)ey 'D). X
$1@A)e)"E V @ ( 0$0>") *`P bH
%!"@ v b)
$ @0 D9*&$q( p dI
#
0!!
$D!>!@ `X B) R X
$I
`@ @
%!"B`
d)"`V X@J#