*DECK PRUCNT
          IDENT  PRUCNT 
          ENTRY  PRUCNT 
*CALL COMCMAC 
 PRUCNT   SPACE  4,10 
**    PRUCNT - RETURN PRU COUNT OF FILE.
* 
*         I = PRUCNT(LFN)          SYMPL CALL.
* 
*         ENTRY  X1 = ADDR OF LFN (FILE NAME).
* 
*         EXIT   X6 = PRU COUNT.
* 
*         CALLS  STATUS.
* 
*         USES   A1/X1, A6/X6.
  
  
 PRUCNT   SUBR
  
          SA1    X1                GET FILE NAME
          MX6    42 
 NOS      IFEQ   OS$NOS 
          SX2    5S12+1      SET LENGTH AND INTERLOCK BIT 
 NOS      ELSE
          SX2    5S12        SET LENGTH AND INTERLOCK BIT 
 NOS      ENDIF 
          BX6    X1*X6
          BX6    X2+X6
          SB1    1
          SA6    PRUA        SET RETURN AREA FIRST WORD 
  
          FILINFO  A6        GET FILE SIZE
  
          SA1    PRUA+3      WORD 3 = 24/PRUCOUNT, 36/XX. 
          MX6    24 
          BX6    X1*X6
          LX6    0-36 
          EQ     PRUCNT 
  
 PRUA     BSS    5           RETURN INFORMATION 
  
          END 
