*COMDECK  GETPIDA 
GETPIDA   SPACE  4,20 
          IDENT  GETPIDA
          ENTRY  GETPIDA
*CALL     COMCMAC 
 .NOS     IFEQ   OS$NOS 
          XTEXT  COMSSFM
          XTEXT  COMCCMD
 .NOS     ENDIF 
GETPIDA   SPACE  4,20 
**        GETPIDA - GET PID ATTRIBUTES. 
* 
*         GETPIDA RETURNS THE PID ATTRIBUTES TO THE SPECIFIED BUFFER. 
*         THE FORMAT IS 
* 
*         GETPIDA(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 - 18/PID,24/0,8/RC,9/0,1/C. 
*                W1 - 60/PID ENTRY AS IN LDT WORD 1.
*                W2 - 60/PID ENTRY AS IN LDT WORD 2.
*                W3 - 60/PID ENTRY AS IN LDT WORD 3.
* 
*         USES   B - 1. 
* 
*         MACROS - GETPIDA. 
  
  
 GETPIDA  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     GETPIDA  X1        REQUEST LID TABLE
 .NOS     ENDIF 
          EQ     GETPIDA     RETURN 
  
 .NOS     IFEQ   OS$NOS 
  
          XTEXT  COMCSFM
 .NOS ENDIF 
  
          END 
