Trailing-Edge
-
PDP-10 Archives
-
ap-c796e-sb
-
pltdeb.bli
There are 13 other files named pltdeb.bli in the archive. Click here to see a list.
EXTERNAL K;
MACRO ALLOC(WHERE,AMOUNT)=
WHERE_SPACE[.K]<ZZ>;
K_.K+AMOUNT;
$;
MACRO DEALLOC(WHERE,AMOUNT)=0;$;
OWN SPACE[2000];
ROUTINE GETSON(WHERE,SELF,IDX)=
BEGIN
MAP BASE WHERE;
OWN II;
BIND A=PLIT(3:1,4:(0,1),8:(0,1,1,0,1,0),0,6:(1,1,0,1,0,0),0,5*0);
BIND B=PLIT(1,2,3,0,4,5,6,7,0,8,9,0,10,11,12,40:(14,15,16,17));
BIND C=PLIT(12:(SIXBIT 'LINKA1LINKA2LINKA3LINKA4LINKA5LINKA6LINKA7LINKA8LINKA9'));
IF .SELF EQL 0
THEN II_0;
WHERE[LNKNODE]_5;
WHERE[LNUM]_.B[.II];
WHERE[NAMLEN]_6;
WHERE[LNAME]_SIXBIT 'LINKA' + (#20 + .II MOD 10);
II_.II+1;
RETURN(.A[.II-1]);
END;