Google
 

Trailing-Edge - PDP-10 Archives - AP-4172F-BM - 3a-sources/de0n.bli
There are 18 other files named de0n.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:	LODECL.BLI
!DATE:		18 OCTOBER 73	MGM/FLD


!  REVISION HISTORY :
!   5-9-77     ROUTINE DECSYN IS MODIFIED TO DECALRE FORWARD
!              DECLARATIONS MORE THAN ONCE.IT ACTS LIKE EXTERNAL
!              DECLARATION.
!
%3.2%	GLOBAL BIND LODEV=2;	!MODULE VERSION NUMBER


GLOBAL ROUTINE CHECKEXTER(STE)=
  IF .ST[.STE,0]<TYPEF> EQL UNDEDT
    THEN (IDERROR(0,.STE);
          ST[.STE,0]<TYPEF>_EXTRNT;
          ST[.STE,1]<ADDRESSF>_#777777);






%%
%  "DECSYM" AND "DECSYN" ARE USED TO DECLARE A NEW SYMBOL
IN FUTSYM.  IT IS REJECTED WITH ERROR CODE DMCODE (PASSED
PARAMETER) WHEN:
   1.  IT IS NOT A SYMBOL;
   2.  IT HAS BEEN DECLARED AT THE CURRENT BLOCKLEVEL.
RECOVER IS CALLED IN THE ABOVE TWO CASES; THE RETURNED VALUE
IS 0.
   OTHERWISE, THE SYMBOL IS DELCARED AT THE CURRENT BLOCKLEVEL
WITH THE TYPE PASSED (DMTYPE); THE STE INDEX IS STORED
IN THE LOCATION POINTED TO BY DMWHERE.  THE VALUE RETURNED IS
TRUE.
   DECSYN(DNWHERE:<ADDRESS FOR RETURNED STE INDEX>,
          DNTYPE:<TYPE WHICH THE SYMBOL IS TO BE DECLARED>)
(DECSYM IS THE SAME ONLY THE WINDOW IS MOVED AFTER THE CALL).
%
%%
  FORWARD DECSYQ;
%5.200.41%	EXTERNAL XREFTY;

  GLOBAL  ROUTINE DECSYN(DNWHERE,DNTYPE)=
    BEGIN
            LOCAL DNWORD0,DNSTE;
      IF .REALFS EQL 0
        THEN (RECOVER(.NFUTSYM,ERSYNAME); 0)
        ELSE IF (DNWORD0_.ST[DNSTE_.DNWHERE_.REALFS,0]; .DNWORD0<BLF>