Google
 

Trailing-Edge - PDP-10 Archives - BB-H138B-BM - language-sources/pltdeb.bli
There are 13 other files named pltdeb.bli in the archive. Click here to see a list.
!THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
!  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
!
!COPYRIGHT (C) 1979 BY DIGITAL EQUIPMENT CORPORATION


	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;