<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">
                               					20-May-1983 10:17:22	VAX-11 FORTRAN V3.2-37              Page   1
								10-May-1983 10:14:49	CAD$VOLSET:[GARY.STATS.SOURCE]STATMEM.FOR;21

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    !   STATMEM gathers the information VMS keeps on itself about memory usage
0026    !
0027    ! ENVIRONMENT:
0028    !   VAX11 VMS   
0029    !
0030    ! AUTHOR: Gary Smith, CREATION DATE: 6/24/82
0031    !
0032    ! MODIFIED BY:
0033    !
0034    !--
0035    !
0036    ! TABLE OF CONTENTS:
0037    !
0038    !
0039    ! INCLUDE FILES:
0040    !   mousesubs.for
0041    !
0042    ! MACROS:
0043    !   none
0044    !
0045    ! EQUATED SYMBOLS:
0046    !   see mousesubs.for
0047    !
0048    ! EXTERNAL REFERENCES:
0049    !   SCH$GL_FREECNT          # of Pages on free list
0050    !   SCH$GL_MFYCNT           # of Pages on modify list
0051    !   ML$L_PEEK
0052    !++
0053    ! FUNCTIONAL DESCRIPTION:
0054    !   VMS keeps several locations for its own purposes to do with memory
0055    !   management. STATMEM gathers up those locations and puts them into
0056    !   mem_modes.
0057    !

                               					20-May-1983 10:17:22	VAX-11 FORTRAN V3.2-37              Page   2
								10-May-1983 10:14:49	CAD$VOLSET:[GARY.STATS.SOURCE]STATMEM.FOR;21

0058    !
0059    ! FORMAL PARAMETERS:
0060    !   none
0061    !
0062    !
0063    ! IMPLICIT INPUTS:
0064    !   mem_modes
0065    !
0066    !
0067    ! IMPLICIT OUTPUTS:
0068    !   mem_modes
0069    !
0070    !
0071    ! ROUTINE VALUE and
0072    ! COMPLETION CODES:
0073    !   none
0074    !
0075    !
0076    ! SIDE EFFECTS:
0077    !   none to date
0078    !
0079    !
0080    !--
0081            SUBROUTINE STATMEM            !! Memory
0082     
0083              external SCH$GL_FREECNT         !! # of Pages on free list
0084              external SCH$GL_MFYCNT          !! # of Pages on modify list
0085     
0086              include  'mousesubs.for'
0289              include  'defrec.for'
0391     
0392    !++
0393    ! grab the memory modes 
0394    !--
0395              rec_mem_modes(freecnt)  = ML$L_PEEK(%LOC(SCH$GL_FREECNT))
0396              rec_mem_modes(mfycnt)   = ML$L_PEEK(%LOC(SCH$GL_MFYCNT))
0397     
0398              return
0399              end

STATMEM                        					20-May-1983 10:17:22	VAX-11 FORTRAN V3.2-37              Page   3
								10-May-1983 10:14:49	CAD$VOLSET:[GARY.STATS.SOURCE]STATMEM.FOR;21

PROGRAM SECTIONS

    Name				 Bytes   Attributes

  0 $CODE                                   64   PIC CON REL LCL   SHR   EXE   RD NOWRT LONG
  2 $LOCAL                                   8   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                  420


ENTRY POINTS

    Address  Type  Name                                        References

  0-00000000       STATMEM                                        81     


VARIABLES

    Address  Type  Name                            Attributes  References

  3-00000108  I*4  REC_RESPONSE                    COMM EQUIV    292       349     


ARRAYS

    Address  Type  Name                            Attributes        Bytes  Dimensions       References

  3-00000000  I*4  REC_CPU_MODES                   COMM EQUIV          36  (9)                 294       306     
  3-00000024  I*4  REC_FCP                         COMM EQUIV          20  (5)                 300       313     
  3-00000120  I*4  REC_LOCK_MODES                  COMM EQUIV          28  (7)                 302       368     
  3-00000080  I*4  REC_MEM_MODES                   COMM EQUIV           8  (2)                 295       318       395=    
											       396=    
  3-00000038  I*4  REC_MISC                        COMM EQUIV          72  (18)                297       315     

  3-0000010C  I*4  REC_NET_MODES                   COMM EQUIV          20  (5)                 301       358     
  3-00000088  I*4  REC_PGFLT                       COMM EQUIV          28  (7)                 299       322     
  3-0000013C  I*4  REC_POOL_MODES                  COMM EQUIV          32  (8)                 303       379     
  3-000000A4  I*4  REC_SCH_STATE                   COMM EQUIV          56  (14)                298       327     
  3-000000DC  I*4  REC_SWAP                        COMM EQUIV          36  (9)                 296       333     

  3-00000100  I*4  REC_TIME                        COMM EQUIV           8  (2)                 293       340     
  3-00000000  I*4  STATS_REC                       COMM EQUIV         348  (87)                290       304       306     
											       313       315       318     
											       322       327       333     
											       340       349       358     
											       368       379     


PARAMETER CONSTANTS

  Type  Name                                                   References

   I*2  ARRLOCPK                                                 233#    
   I*2  ARRTRAPK                                                 234#    
   CHAR ASCII_DELTA_TIME                                          91        92#    

STATMEM                        					20-May-1983 10:17:22	VAX-11 FORTRAN V3.2-37              Page   4
								10-May-1983 10:14:49	CAD$VOLSET:[GARY.STATS.SOURCE]STATMEM.FOR;21

   I*2  BIGHOLE                                                  267#    
   I*2  BJOBCNT                                                  123#    

   I*2  BUFIO                                                    144#    
   I*2  CEF                                                      190#    
   I*2  COLPG                                                    188#    
   I*2  COM                                                      199#    
   I*2  COMO                                                     200#    

   I*2  COMPAT                                                   121#    
   I*2  CPU_SIZE                                                 126#      283       294       313       315       318     
							         322       327       333       340       349       358     
							         368       379     
   I*2  CUR                                                      201#    
   I*2  DEPLOCPK                                                 235#    
   I*2  DEQ                                                      249#    

   I*2  DIRHIT                                                   153#    
   I*2  DIRIO                                                    143#    
   I*2  DIRMISS                                                  154#    
   I*2  DLCKFND                                                  250#    
   I*2  DLCKSRCH                                                 251#    

   I*2  DZROFLTS                                                 175#    
   I*2  ENQCVT                                                   252#    
   I*2  ENQNEW                                                   247#    
   I*2  ENQNOTQD                                                 253#    
   I*2  ENQWAIT                                                  248#    

   I*2  EXEC                                                     118#    
   I*2  EXTHIT                                                   155#    
   I*2  EXTMISS                                                  156#    
   I*2  FAULTS                                                   176#    
   I*2  FCP_CACHE                                                133#    

   I*2  FCP_CALLS                                                132#    
   I*2  FCP_CPU                                                  134#    
   I*2  FCP_READ                                                 135#    
   I*2  FCP_SIZE                                                 138#      283       300       315       318       322     
							         327       333       340       349       358       368     
							         379     
   I*2  FCP_WRITE                                                136#    

   I*2  FIDHIT                                                   157#    
   I*2  FIDMISS                                                  158#    
   I*2  FPG                                                      198#    
   I*2  FREECNT                                                  167#      395     
   I*2  GETDVI_EF                                                106#    

   I*2  HIB                                                      194#    
   I*2  HIBO                                                     195#    
   I*2  HISWPCNT                                                 213#    
   I*2  HIT                                                      150#    
   I*2  HOLECNT                                                  266#    

   I*2  HOLESUM                                                  270#    
   I*2  HOSWPCNT                                                 212#    

STATMEM                        					20-May-1983 10:17:22	VAX-11 FORTRAN V3.2-37              Page   5
								10-May-1983 10:14:49	CAD$VOLSET:[GARY.STATS.SOURCE]STATMEM.FOR;21

   I*2  IDLE                                                     122#    
   I*2  IJOBCNT                                                  124#    
   I*2  INT                                                      120#    

   I*2  IRPCNT                                                   265#    
   I*2  ISPAGCNT                                                 208#    
   I*2  ISWPCNT                                                  209#    
   I*2  KERNEL                                                   116#    
   I*2  KEY_SIZE                                                 112#    

   I*2  LEF                                                      192#    
   I*2  LEFO                                                     193#    
   I*2  LOCK_SIZE                                                258#      283       302       379     
   I*2  LOGNAM                                                   145#    
   I*2  LRPCNT                                                   271#    

   I*2  MBREADS                                                  146#    
   I*2  MBWRITES                                                 147#    
   I*2  MEM_SIZE                                                 170#      283       295       322       327       333     
							         340       349       358       368       379     
   I*2  MFYCNT                                                   168#      396     
   I*2  MISC_SIZE                                                162#      283       297       318       322       327     
							         333       340       349       358       368       379     

   I*2  MWAIT                                                    189#    
   I*2  NET_SIZE                                                 242#      283       301       368       379     
   I*2  NUM_MODES                                                127#    
   I*2  OPEN                                                     152#    
   I*2  OPENS                                                    151#    

   I*2  OSWPCNT                                                  211#    
   I*2  PFW                                                      191#    
   I*2  PGFLT_SIZE                                               183#      283       299       327       333       340     
							         349       358       368       379     
   I*2  POOL_SIZE                                                278#      283       303     
   I*2  PREADIO                                                  177#    

   I*2  PREADS                                                   179#    
   I*2  PROCCNT                                                  210#    
   I*2  PWRITES                                                  180#    
   I*2  PWRITIO                                                  178#    
   I*2  QUOHIT                                                   159#    

   I*2  QUOMISS                                                  160#    
   I*2  RCVBUFFL                                                 236#    
   I*2  RDFLTS                                                   181#    
   I*2  REC_SIZE                                                 283#      304     
   I*2  RES                                                      228#    

   I*2  RESPONSE_SIZE                                            227#      283       358       368       379     
   I*2  SCH_SIZE                                                 203#      283       298       333       340       349     
							         358       368       379     
   I*2  SMALLCNT                                                 269#    
   I*2  SMALLHOLE                                                268#    
   I*2  SPLIT                                                    149#    

   I*2  SRPCNT                                                   272#    

STATMEM                        					20-May-1983 10:17:22	VAX-11 FORTRAN V3.2-37              Page   6
								10-May-1983 10:14:49	CAD$VOLSET:[GARY.STATS.SOURCE]STATMEM.FOR;21

   CHAR STANDARD_NEST_FILE                                        98        99#    
   I*2  SUPER                                                    117#    
   I*2  SUSP                                                     196#    
   I*2  SUSPO                                                    197#    

   I*2  SWAP_SIZE                                                215#      283       296       340       349       358     
							         368       379     
   I*2  SWAP_SPARES                                              216#    
   I*2  TIME_SIZE                                                221#      283       293       349       358       368     
							         379     
   I*2  TRCNGLOS                                                 237#    
   I*2  TURN                                                     148#    

   I*2  USER                                                     119#    
   I*2  WAIT_EF                                                  105#    


FUNCTIONS AND SUBROUTINES REFERENCED

  Type  Name                                                   References

   I*4  ML$L_PEEK                                                395       396     
        SCH$GL_FREECNT                                            83       395     
        SCH$GL_MFYCNT                                             84       396     


  +----------------------------------------------+
  |           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:STATMEM/LIST=LIS:STATMEM/CONT=99/CROSS/NOOPT SRC:STATMEM

  /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:           1.96 seconds
  Elapsed Time:       6.97 seconds
  Page Faults:        418
  Dynamic Memory:     842 pages
</pre></body></html>