*COMDECK  GETLIDT 
GETLIDT   SPACE  4,20 
          IDENT  GETLIDT
          ENTRY  GETLIDT
*CALL     COMCMAC 
 .NOS     IFEQ   OS$NOS 
          XTEXT  COMSSFM
          XTEXT  COMCCMD
 .NOS     ENDIF 
GETLIDT   SPACE  4,20 
**        GETLIDT - GET LID TABLE.
* 
*         GETLIDT RETURNS THE LID TABLE TO THE SPECIFIED BUFFER.
*         THE FORMAT IS 
* 
*         GETLIDT(BUFFER,BASED);
* 
*         ENTRY  (A1)/(X1) = FWA OF PARAMETER LIST. 
*                (BASED) = 1, IF THE BUFFER IS A BASED ARRAY. 
*                SEE COMCCMD FOR DETAIL DESCRIPTION OF THE PARAMETERS.
* 
*         EXIT   FWA OF BUFFER CONTAIN THE LID TABLE. 
*                12/LDT LENGTH,36/0,12/NUMBER OF PIDS.
* 
*         USES   B - 1. 
* 
*         MACROS - GETLIDT. 
  
  
 GETLIDT  SUBR               ENTRY/EXIT 
 .NOS     IFEQ  OS$NOS
          SB1    1
          SA2    A1+B1
          SA2    X2 
          ZR     X2,GET1     IF THE BUFFER IS NOT A BASED ARRAY 
          SA1    X1 
 GET1     GETLIDT  X1        REQUEST LID TABLE
 .NOS     ENDIF 
          EQ     GETLIDT     RETURN 
  
 .NOS     IFEQ   OS$NOS 
  
          XTEXT  COMCSFM
 .NOS ENDIF 
  
          END 
