*DECK,GETLIDA 
          IDENT  GETLIDA
 GETLIDA  TITLE  GETLIDA - GET LID ATTRIBUTES.
          ENTRY  GETLIDA
*CALL     COMCMAC 
 .NOS     IFEQ   OS$NOS 
          XTEXT  COMSSFM
 .NOS     ENDIF 
GETLIDA   SPACE  4,20 
**        GETLIDA - GET LID ATTRIBUTES. 
* 
*         GETLIDA RETURNS THE ATTRIBUTES OF A SPECIFIED *LID* TO
*         THE PARAMETER WORD.  THE FORMAT IS
* 
*         I = GETLIDA(PAR)
* 
*         ENTRY  (A1)/(X1) = FWA OF PARAMETER LIST. 
* 
*         EXIT   (I) = 18/LID,12/AT,6/0,12/NW,11/0,1/1. 
*                      AT = 1/H,1/L,1/E,1/V,1/SH,1/SL,1/B,1/N,4/0.
*                      NW = 2/RFI,7/0,1/SSF,1/RHF,1/NHF.
* 
*         USES   X - 0, 1, 6. 
*                A - 1, 6.
*                B - 1. 
* 
*         MACROS - GETLIDA. 
  
  
 GETLIDA  SUBR               ENTRY/EXIT 
 NBE      IFEQ   OS$NOSBE 
          SX6    7000B       ASSUME *H*, *L*, AND *E* 
          LX6    41-11       POSITION ATTRIBUTES
 NBE      ENDIF 
  
 .NOS     IFEQ  OS$NOS
          SB1    1
          SA1    X1          GET LID
          SX6    B1 
          MX0    18 
          BX1    X0*X1
          BX6    X1+X6
          SA6    GETA 
          GETLIDA  GETA      REQUEST LID ATTRIBUTE
          SA1    GETA        EXAMINE ATTRIBUTE
          BX6    X1 
 .NOS     ENDIF 
          EQ     GETLIDA     RETURN 
  
 .NOS     IFEQ   OS$NOS 
 GETA     BSSZ   1           TEMPORARY LOCATION FOR GETLIDA MACRO 
  
          XTEXT  COMCSFM
 .NOS ENDIF 
  
          END 
