*COMDECK  GETLIDC 
GETLIDC   SPACE  4,20 
          IDENT  GETLIDC
          ENTRY  GETLIDC
*CALL     COMCMAC 
 .NOS     IFEQ   OS$NOS 
          XTEXT  COMCCMD
          XTEXT  COMSSFM
 .NOS     ENDIF 
GETLIDC   SPACE  4,20 
**        GETLIDC - GET LID TABLE.
* 
*         GETLIDC RETURNS THE LID CONFIGURATION TO THE SPECIFIED BUFFER.
*         THE FORMAT IS 
* 
*         GETLIDC(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   W0 - 12/WC,30/0,8/RC,9/0,1/1.
*                W1 - 18/LID,30/0,12/NP.
*                W2 - 18/PID1,1/S,1/E,6/0,10/RFI,12/0,4/SSF,4/RHF,4/NHP.
*                :  
*                :  
*                WN - 18/PIDI, .....
* 
*         USES   B - 1. 
* 
*         MACROS - GETLIDC. 
  
  
 GETLIDC  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     GETLIDC  X1        REQUEST LID TABLE
 .NOS     ENDIF 
          EQ     GETLIDC     RETURN 
  
 .NOS     IFEQ   OS$NOS 
  
          XTEXT  COMCSFM
 .NOS ENDIF 
  
          END 
