
                               					20-May-1983 12:51:47	VAX-11 FORTRAN V3.2-37              Page   1
								 4-May-1983 15:58:00	[GARY.STATS.SOURCE]STATPOOL.FOR;24          

0001    !
0002    !			  COPYRIGHT (c) 1982 BY
0003    !	      MOSTEK CORPORATION, CARROLLTON TX
0004    !
0005    ! This software is furnished under a license and may be used and  copied
0006    ! only  in  accordance  with  the  terms  of  such  license and with the
0007    ! inclusion of the above copyright notice.  This software or  any  other
0008    ! copies  thereof may not be provided or otherwise made available to any
0009    ! other person.  No title to and ownership of  the  software  is  hereby
0010    ! transferred.
0011    !
0012    ! The information in this software is subject to change  without  notice
0013    ! and  should  not  be  construed  as  a commitment by MOSTEK
0014    ! CORPORATION.
0015    !
0016    ! MOSTEK assumes no responsibility for the use or  reliability  of  its
0017    ! software on equipment which is not supplied by MOSTEK.
0018    !
0019     
0020    !++
0021    ! FACILITY:
0022    !   MOSTEK CORPORATION
0023    !
0024    ! ABSTRACT:
0025    !   STATPOOL functions like STATFCP does, it is a front for another
0026    !   subroutine that does all the work.
0027    !
0028    ! ENVIRONMENT:
0029    !   VAX11 VMS, Kernel mode with interrupts disabled in the call routine
0030    !
0031    ! AUTHOR: Gary Smith, CREATION DATE: 6/24/82
0032    !
0033    ! MODIFIED BY:
0034    !
0035    !--
0036    !
0037    ! TABLE OF CONTENTS:
0038    !
0039    !
0040    ! INCLUDE FILES:
0041    !   mousesubs.for
0042    !   defrec.for
0043    !
0044    ! MACROS:
0045    !   none
0046    !
0047    ! EQUATED SYMBOLS:
0048    !   none
0049    !
0050    ! EXTERNAL REFERENCES:
0051    !   GETPOOL
0052    !
0053    !++
0054    ! FUNCTIONAL DESCRIPTION:
0055    !   To gather the non paged pool statistics, it is necessary to go into
0056    !   kernel mode. Then once in kernel mode, disable interrupts for a 
0057    !   short period of time in which you quickly get all the facts about 

                               					20-May-1983 12:51:47	VAX-11 FORTRAN V3.2-37              Page   2
								 4-May-1983 15:58:00	[GARY.STATS.SOURCE]STATPOOL.FOR;24          

0058    !   the non-paged pool. Then enable interrupts and return by a RET
0059    !   and in so doing, leave kernel mode intact.
0060    !
0061    !
0062    ! FORMAL PARAMETERS:
0063    !   none
0064    !
0065    !
0066    ! IMPLICIT INPUTS:
0067    !   pool
0068    !
0069    !
0070    ! IMPLICIT OUTPUTS:
0071    !   pool
0072    !
0073    !
0074    ! ROUTINE VALUE and
0075    ! COMPLETION CODES:
0076    !   none
0077    !
0078    !
0079    ! SIDE EFFECTS:
0080    !   During development, the beastie had a tendency to crash the
0081    !   system and make its creator unpopular.
0082    !
0083    !
0084    !--
0085              SUBROUTINE STATPOOL !! collect non-paged pool information
0086     
0087              include 'mousesubs.for'
0290              include 'defrec.for'
0392     
0393              call GETPOOL( rec_pool_modes(holecnt),
0394         .                  rec_pool_modes(holesum),
0395         .                  rec_pool_modes(bighole),
0396         .                  rec_pool_modes(smallcnt),
0397         .                  rec_pool_modes(smallhole),
0398         .                  rec_pool_modes(irpcnt),
0399         .                  rec_pool_modes(lrpcnt),
0400         .                  rec_pool_modes(srpcnt) )
0401     
0402     
0403              return
0404              end

STATPOOL                       					20-May-1983 12:51:47	VAX-11 FORTRAN V3.2-37              Page   3
								 4-May-1983 15:58:00	[GARY.STATS.SOURCE]STATPOOL.FOR;24          

PROGRAM SECTIONS

    Name				 Bytes   Attributes

  0 $CODE                                   17   PIC CON REL LCL   SHR   EXE   RD NOWRT LONG
  2 $LOCAL                                  36   PIC CON REL LCL NOSHR NOEXE   RD   WRT LONG
  3 REC_COMMON                             348   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

    Total Space Allocated                  401


ENTRY POINTS

    Address  Type  Name                                        References

  0-00000000       STATPOOL                                       85     


VARIABLES

    Address  Type  Name                            Attributes  References

  3-00000108  I*4  REC_RESPONSE                    COMM EQUIV    293       350     


ARRAYS

    Address  Type  Name                            Attributes        Bytes  Dimensions       References

  3-00000000  I*4  REC_CPU_MODES                   COMM EQUIV          36  (9)                 295       307     
  3-00000024  I*4  REC_FCP                         COMM EQUIV          20  (5)                 301       314     
  3-00000120  I*4  REC_LOCK_MODES                  COMM EQUIV          28  (7)                 303       369     
  3-00000080  I*4  REC_MEM_MODES                   COMM EQUIV           8  (2)                 296       319     
  3-00000038  I*4  REC_MISC                        COMM EQUIV          72  (18)                298       316     

  3-0000010C  I*4  REC_NET_MODES                   COMM EQUIV          20  (5)                 302       359     
  3-00000088  I*4  REC_PGFLT                       COMM EQUIV          28  (7)                 300       323     
  3-0000013C  I*4  REC_POOL_MODES                  COMM EQUIV          32  (8)                 304       380       393(8)A 
  3-000000A4  I*4  REC_SCH_STATE                   COMM EQUIV          56  (14)                299       328     
  3-000000DC  I*4  REC_SWAP                        COMM EQUIV          36  (9)                 297       334     

  3-00000100  I*4  REC_TIME                        COMM EQUIV           8  (2)                 294       341     
  3-00000000  I*4  STATS_REC                       COMM EQUIV         348  (87)                291       305       307     
											       314       316       319     
											       323       328       334     
											       341       350       359     
											       369       380     


PARAMETER CONSTANTS

  Type  Name                                                   References

   I*2  ARRLOCPK                                                 234#    
   I*2  ARRTRAPK                                                 235#    
   CHAR ASCII_DELTA_TIME                                          92        93#    
   I*2  BIGHOLE                                                  268#      393     

STATPOOL                       					20-May-1983 12:51:47	VAX-11 FORTRAN V3.2-37              Page   4
								 4-May-1983 15:58:00	[GARY.STATS.SOURCE]STATPOOL.FOR;24          

   I*2  BJOBCNT                                                  124#    

   I*2  BUFIO                                                    145#    
   I*2  CEF                                                      191#    
   I*2  COLPG                                                    189#    
   I*2  COM                                                      200#    
   I*2  COMO                                                     201#    

   I*2  COMPAT                                                   122#    
   I*2  CPU_SIZE                                                 127#      284       295       314       316       319     
							         323       328       334       341       350       359     
							         369       380     
   I*2  CUR                                                      202#    
   I*2  DEPLOCPK                                                 236#    
   I*2  DEQ                                                      250#    

   I*2  DIRHIT                                                   154#    
   I*2  DIRIO                                                    144#    
   I*2  DIRMISS                                                  155#    
   I*2  DLCKFND                                                  251#    
   I*2  DLCKSRCH                                                 252#    

   I*2  DZROFLTS                                                 176#    
   I*2  ENQCVT                                                   253#    
   I*2  ENQNEW                                                   248#    
   I*2  ENQNOTQD                                                 254#    
   I*2  ENQWAIT                                                  249#    

   I*2  EXEC                                                     119#    
   I*2  EXTHIT                                                   156#    
   I*2  EXTMISS                                                  157#    
   I*2  FAULTS                                                   177#    
   I*2  FCP_CACHE                                                134#    

   I*2  FCP_CALLS                                                133#    
   I*2  FCP_CPU                                                  135#    
   I*2  FCP_READ                                                 136#    
   I*2  FCP_SIZE                                                 139#      284       301       316       319       323     
							         328       334       341       350       359       369     
							         380     
   I*2  FCP_WRITE                                                137#    

   I*2  FIDHIT                                                   158#    
   I*2  FIDMISS                                                  159#    
   I*2  FPG                                                      199#    
   I*2  FREECNT                                                  168#    
   I*2  GETDVI_EF                                                107#    

   I*2  HIB                                                      195#    
   I*2  HIBO                                                     196#    
   I*2  HISWPCNT                                                 214#    
   I*2  HIT                                                      151#    
   I*2  HOLECNT                                                  267#      393     

   I*2  HOLESUM                                                  271#      393     
   I*2  HOSWPCNT                                                 213#    
   I*2  IDLE                                                     123#    

STATPOOL                       					20-May-1983 12:51:47	VAX-11 FORTRAN V3.2-37              Page   5
								 4-May-1983 15:58:00	[GARY.STATS.SOURCE]STATPOOL.FOR;24          

   I*2  IJOBCNT                                                  125#    
   I*2  INT                                                      121#    

   I*2  IRPCNT                                                   266#      393     
   I*2  ISPAGCNT                                                 209#    
   I*2  ISWPCNT                                                  210#    
   I*2  KERNEL                                                   117#    
   I*2  KEY_SIZE                                                 113#    

   I*2  LEF                                                      193#    
   I*2  LEFO                                                     194#    
   I*2  LOCK_SIZE                                                259#      284       303       380     
   I*2  LOGNAM                                                   146#    
   I*2  LRPCNT                                                   272#      393     

   I*2  MBREADS                                                  147#    
   I*2  MBWRITES                                                 148#    
   I*2  MEM_SIZE                                                 171#      284       296       323       328       334     
							         341       350       359       369       380     
   I*2  MFYCNT                                                   169#    
   I*2  MISC_SIZE                                                163#      284       298       319       323       328     
							         334       341       350       359       369       380     

   I*2  MWAIT                                                    190#    
   I*2  NET_SIZE                                                 243#      284       302       369       380     
   I*2  NUM_MODES                                                128#    
   I*2  OPEN                                                     153#    
   I*2  OPENS                                                    152#    

   I*2  OSWPCNT                                                  212#    
   I*2  PFW                                                      192#    
   I*2  PGFLT_SIZE                                               184#      284       300       328       334       341     
							         350       359       369       380     
   I*2  POOL_SIZE                                                279#      284       304     
   I*2  PREADIO                                                  178#    

   I*2  PREADS                                                   180#    
   I*2  PROCCNT                                                  211#    
   I*2  PWRITES                                                  181#    
   I*2  PWRITIO                                                  179#    
   I*2  QUOHIT                                                   160#    

   I*2  QUOMISS                                                  161#    
   I*2  RCVBUFFL                                                 237#    
   I*2  RDFLTS                                                   182#    
   I*2  REC_SIZE                                                 284#      305     
   I*2  RES                                                      229#    

   I*2  RESPONSE_SIZE                                            228#      284       359       369       380     
   I*2  SCH_SIZE                                                 204#      284       299       334       341       350     
							         359       369       380     
   I*2  SMALLCNT                                                 270#      393     
   I*2  SMALLHOLE                                                269#      393     
   I*2  SPLIT                                                    150#    

   I*2  SRPCNT                                                   273#      393     
   CHAR STANDARD_NEST_FILE                                        99       100#    

STATPOOL                       					20-May-1983 12:51:47	VAX-11 FORTRAN V3.2-37              Page   6
								 4-May-1983 15:58:00	[GARY.STATS.SOURCE]STATPOOL.FOR;24          

   I*2  SUPER                                                    118#    
   I*2  SUSP                                                     197#    
   I*2  SUSPO                                                    198#    

   I*2  SWAP_SIZE                                                216#      284       297       341       350       359     
							         369       380     
   I*2  SWAP_SPARES                                              217#    
   I*2  TIME_SIZE                                                222#      284       294       350       359       369     
							         380     
   I*2  TRCNGLOS                                                 238#    
   I*2  TURN                                                     149#    

   I*2  USER                                                     120#    
   I*2  WAIT_EF                                                  106#    


FUNCTIONS AND SUBROUTINES REFERENCED

  Type  Name                                                   References

        GETPOOL                                                  393     


  +----------------------------------------------+
  |           KEY TO REFERENCE FLAGS             |
  |   =   - Value Modified                       |
  |   #   - Defining Reference                   |
  |   A   - Actual Argument, possibly modified   |
  |   D   - Data Initialization                  |
  |  (n)  - Number of occurrences on line        |
  +----------------------------------------------+



COMMAND QUALIFIERS

  FORTRAN /DEBUG/OBJECT=OBJ:STATPOOL/LIST=LIS:STATPOOL/CONT=99/CROSS/NOOPT SRC:STATPOOL

  /CHECK=(NOBOUNDS,OVERFLOW,NOUNDERFLOW)
  /DEBUG=(SYMBOLS,TRACEBACK)
  /STANDARD=(NOSYNTAX,NOSOURCE_FORM)
  /SHOW=(NOPREPROCESSOR,NOINCLUDE,MAP)
  /F77  /NOG_FLOATING  /I4  /NOOPTIMIZE  /WARNINGS  /NOD_LINES  /CROSS_REFERENCE  /NOMACHINE_CODE  /CONTINUATIONS=99


COMPILATION STATISTICS

  Run Time:           2.12 seconds
  Elapsed Time:       9.76 seconds
  Page Faults:        290
  Dynamic Memory:     842 pages
