Trailing-Edge
-
PDP-10 Archives
-
BB-H138B-BM
-
language-sources/h3lexa.bli
There are 18 other files named h3lexa.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) 1972,1973,1974,1977,1978 DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 01754
!FILENAME: H3LEXA.BLI
!DATE: 7 AUGUST 1973
!AUTHOR: MGM/FLD
GLOBAL BIND H3LEV=2; !MODULE VERSION NUMBER
GLOBAL ROUTINE PURGENSYMS=
!THIS TEMPORARY KLUDGE INTRODUCED TO PURGE GENSYMS LIST AT THE
!END OF A ROUTINE.
BEGIN LOCAL L1;
WHILE .ST[.GENSYMS,0]<BLF> GTR .BLOCKLEVEL AND .GENSYMS NEQ 0 DO
BEGIN
L1_.GENSYMS; GENSYMS_.ST[.L1,0]<LINKF>; RELEASESPACE(.L1,1);
END;
END;
! END OF H3LEXA.BLI