
                               					 4-May-1983 08:52:48	VAX-11 FORTRAN V3.2-37              Page   1
								 3-May-1983 17:55:11	CAD$VOLSET:[GARY.STATS.SOURCE]BREAKREC.FOR;3

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: Turn a system stats record into its component parts
0025    !   
0026    !
0027    ! ENVIRONMENT: VAX/VMS unpriv
0028    !   
0029    !
0030    ! AUTHOR: Gary Smith, CREATION DATE: 4/04/83
0031    !
0032    ! MODIFIED BY:
0033    !
0034    !--
0035    !
0036    ! TABLE OF CONTENTS:
0037    !
0038    !
0039    ! INCLUDE FILES: mousesubs.for
0040    !                defrec.for
0041    !
0042    !
0043    ! MACROS: none
0044    !
0045    !
0046    ! EQUATED SYMBOLS: see above
0047    !
0048    !
0049    ! EXTERNAL REFERENCES: none
0050    !
0051     
0052    !++
0053    ! FUNCTIONAL DESCRIPTION: The following code at one time was part of the
0054    !                         subroutine READ_NEST. The author decided that this
0055    !                         function did not properly belong in a subroutine
0056    !                         whose avowed purpose was to do only I/O on the
0057    !                         performance file. Thus, it was split out to be

                               					 4-May-1983 08:52:48	VAX-11 FORTRAN V3.2-37              Page   2
								 3-May-1983 17:55:11	CAD$VOLSET:[GARY.STATS.SOURCE]BREAKREC.FOR;3

0058    !                         logically consistent with function. Things are split
0059    !                         into different commons to make things more com-
0060    !                         prehensible for the workings of DISPLAY.
0061    !
0062    !
0063    !
0064    ! FORMAL PARAMETERS: none
0065    !
0066    !
0067    !
0068    ! IMPLICIT INPUTS: the performance record read by READ_NEST
0069    !
0070    !
0071    !
0072    ! IMPLICIT OUTPUTS: all information broken up into commons
0073    !
0074    !
0075    !
0076    ! ROUTINE VALUE and
0077    ! COMPLETION CODES: none
0078    !
0079    !
0080    !
0081    ! SIDE EFFECTS: none to date
0082    !
0083    !
0084    !
0085    !--
0086              SUBROUTINE BREAK_REC
0087     
0088              include 'mousesubs.for'
0291              include 'defrec.for'
0416     
0417              do i = 1, pool_size
0418                 pool_modes(i) = rec_pool_modes(i)  !! non-paged pool
0419              end do
0420     
0421              do i = 1, cpu_size
0422                 cpu_modes(i) = rec_cpu_modes(i)  !! cpu stats
0423              end do
0424     
0425              do i = 1, fcp_size
0426                 fcp(i) = rec_fcp(i)   !! fcp stats
0427              end do
0428     
0429              do i = 1, misc_size
0430                 misc(i) = rec_misc(i)  !! misc stats
0431              end do
0432     
0433              do i = 1, mem_size
0434                 mem_modes(i) = rec_mem_modes(i)  !! memory stats
0435              end do
0436     
0437              do i = 1, pgflt_size
0438                 pgflt(i) = rec_pgflt(i)  !! page fault stats
0439              end do
0440     

BREAK_REC                      					 4-May-1983 08:52:48	VAX-11 FORTRAN V3.2-37              Page   3
								 3-May-1983 17:55:11	CAD$VOLSET:[GARY.STATS.SOURCE]BREAKREC.FOR;3

0441              do i = 1, sch_size
0442                 sch_state(i) = rec_sch_state(i) !! scheduler states
0443              end do
0444     
0445              do i = 1, swap_size
0446                 swap(i) = rec_swap(i)  !! swapping stats
0447              end do
0448     
0449              i_time(1) = rec_time(1) 
0450              i_time(2) = rec_time(2) !! up time            
0451     
0452              i_response = rec_response  !! response of system
0453     
0454              do i = 1, net_size
0455                 net_modes(i) = rec_net_modes(i)  !! network stats
0456              end do
0457     
0458              do i = 1, lock_size
0459                 lock_modes(i) = rec_lock_modes(i) !! ENQ/DEQ stats
0460              end do
0461     
0462              return
0463              end




PROGRAM SECTIONS

    Name				 Bytes   Attributes

  0 $CODE                                  273   PIC CON REL LCL   SHR   EXE   RD NOWRT LONG
  2 $LOCAL                                  20   PIC CON REL LCL NOSHR NOEXE   RD   WRT QUAD
  3 CPU_COMMON                              36   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG
  4 MEM_COMMON                               8   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG
  5 SWAP_COMMON                             36   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG
  6 MISC_COMMON                             72   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG
  7 SCH_COMMON                              56   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG
  8 PGFLT_COMMON                            28   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG
  9 FCP_COMMON                              20   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG
 10 UPTIME_COMMON                            8   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG
 11 RESP_COMMON                              4   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG
 12 NET_COMMON                              20   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG
 13 LOCK_COMMON                             28   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG
 14 POOL_COMMON                             32   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG
 15 REC_COMMON                             348   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

    Total Space Allocated                  989


ENTRY POINTS

    Address  Type  Name                                        References

  0-00000000       BREAK_REC                                      86     

BREAK_REC                      					 4-May-1983 08:52:48	VAX-11 FORTRAN V3.2-37              Page   4
								 3-May-1983 17:55:11	CAD$VOLSET:[GARY.STATS.SOURCE]BREAKREC.FOR;3

VARIABLES

    Address  Type  Name                            Attributes  References

  2-00000000  R*8  CURRENT_TIME                         EQUIV    321       327     
  2-00000000  CHAR C_CURRENT_TIME                       EQUIV    325       328     
  2-00000010  I*4  I                                             417=      418(2)    421=      422(2)    425=      426(2)  
							         429=      430(2)    433=      434(2)    437=      438(2)  
							         441=      442(2)    445=      446(2)    454=      455(2)  
							         458=      459(2)  
 11-00000000  I*4  I_RESPONSE                      COMM EQUIV    316       330       452=    
 15-00000108  I*4  REC_RESPONSE                    COMM EQUIV    316       374       452     

 11-00000000  R*4  RESPONSE                        COMM EQUIV    300       330     
 10-00000000  R*8  TIME                            COMM EQUIV    299       321       329     


ARRAYS

    Address  Type  Name                            Attributes        Bytes  Dimensions       References

  2-00000000  L*1  B_CURRENT_TIME                       EQUIV           8  (8)                 323       327       328     
  3-00000000  I*4  CPU_MODES                       COMM                36  (9)                 292       308       422=    
  9-00000000  I*4  FCP                             COMM                20  (5)                 298       314       426=    
 10-00000000  I*4  I_TIME                          COMM EQUIV           8  (2)                 315       329       449=    
											       450=    
 13-00000000  I*4  LOCK_MODES                      COMM                28  (7)                 302       318       459=    

  4-00000000  I*4  MEM_MODES                       COMM                 8  (2)                 293       309       434=    
  6-00000000  I*4  MISC                            COMM                72  (18)                295       311       430=    
 12-00000000  I*4  NET_MODES                       COMM                20  (5)                 301       317       455=    
  8-00000000  I*4  PGFLT                           COMM                28  (7)                 297       313       438=    
 14-00000000  I*4  POOL_MODES                      COMM                32  (8)                 303       319       418=    

 15-00000000  I*4  REC_CPU_MODES                   COMM EQUIV          36  (9)                 308       331       422     
 15-00000024  I*4  REC_FCP                         COMM EQUIV          20  (5)                 314       338       426     
 15-00000120  I*4  REC_LOCK_MODES                  COMM EQUIV          28  (7)                 318       393       459     
 15-00000080  I*4  REC_MEM_MODES                   COMM EQUIV           8  (2)                 309       343       434     
 15-00000038  I*4  REC_MISC                        COMM EQUIV          72  (18)                311       340       430     

 15-0000010C  I*4  REC_NET_MODES                   COMM EQUIV          20  (5)                 317       383       455     
 15-00000088  I*4  REC_PGFLT                       COMM EQUIV          28  (7)                 313       347       438     
 15-0000013C  I*4  REC_POOL_MODES                  COMM EQUIV          32  (8)                 319       404       418     
 15-000000A4  I*4  REC_SCH_STATE                   COMM EQUIV          56  (14)                312       352       442     
 15-000000DC  I*4  REC_SWAP                        COMM EQUIV          36  (9)                 310       358       446     

 15-00000100  I*4  REC_TIME                        COMM EQUIV           8  (2)                 307       365       449     
											       450     
  7-00000000  I*4  SCH_STATE                       COMM                56  (14)                296       312       442=    
 15-00000000  I*4  STATS_REC                       COMM EQUIV         348  (87)                304       315       331     
											       338       340       343     
											       347       352       358     
											       365       374       383     
											       393       404     
  5-00000000  I*4  SWAP                            COMM                36  (9)                 294       310       446=    
  2-00000008  I*4  TIMDEL                                               8  (2)                 307     


BREAK_REC                      					 4-May-1983 08:52:48	VAX-11 FORTRAN V3.2-37              Page   5
								 3-May-1983 17:55:11	CAD$VOLSET:[GARY.STATS.SOURCE]BREAKREC.FOR;3

PARAMETER CONSTANTS

  Type  Name                                                   References

   I*2  ARRLOCPK                                                 235#    
   I*2  ARRTRAPK                                                 236#    
   CHAR ASCII_DELTA_TIME                                          93        94#    
   I*2  BIGHOLE                                                  269#    
   I*2  BJOBCNT                                                  125#    

   I*2  BUFIO                                                    146#    
   I*2  CEF                                                      192#    
   I*2  COLPG                                                    190#    
   I*2  COM                                                      201#    
   I*2  COMO                                                     202#    

   I*2  COMPAT                                                   123#    
   I*2  CPU_SIZE                                                 128#      285       308(2)    338       340       343     
							         347       352       358       365       374       383     
							         393       404       421     
   I*2  CUR                                                      203#    
   I*2  DEPLOCPK                                                 237#    
   I*2  DEQ                                                      251#    

   I*2  DIRHIT                                                   155#    
   I*2  DIRIO                                                    145#    
   I*2  DIRMISS                                                  156#    
   I*2  DLCKFND                                                  252#    
   I*2  DLCKSRCH                                                 253#    

   I*2  DZROFLTS                                                 177#    
   I*2  ENQCVT                                                   254#    
   I*2  ENQNEW                                                   249#    
   I*2  ENQNOTQD                                                 255#    
   I*2  ENQWAIT                                                  250#    

   I*2  EXEC                                                     120#    
   I*2  EXTHIT                                                   157#    
   I*2  EXTMISS                                                  158#    
   I*2  FAULTS                                                   178#    
   I*2  FCP_CACHE                                                135#    

   I*2  FCP_CALLS                                                134#    
   I*2  FCP_CPU                                                  136#    
   I*2  FCP_READ                                                 137#    
   I*2  FCP_SIZE                                                 140#      285       314(2)    340       343       347     
							         352       358       365       374       383       393     
							         404       425     
   I*2  FCP_WRITE                                                138#    

   I*2  FIDHIT                                                   159#    
   I*2  FIDMISS                                                  160#    
   I*2  FPG                                                      200#    
   I*2  FREECNT                                                  169#    
   I*2  GETDVI_EF                                                108#    

   I*2  HIB                                                      196#    

BREAK_REC                      					 4-May-1983 08:52:48	VAX-11 FORTRAN V3.2-37              Page   6
								 3-May-1983 17:55:11	CAD$VOLSET:[GARY.STATS.SOURCE]BREAKREC.FOR;3

   I*2  HIBO                                                     197#    
   I*2  HISWPCNT                                                 215#    
   I*2  HIT                                                      152#    
   I*2  HOLECNT                                                  268#    

   I*2  HOLESUM                                                  272#    
   I*2  HOSWPCNT                                                 214#    
   I*2  IDLE                                                     124#    
   I*2  IJOBCNT                                                  126#    
   I*2  INT                                                      122#    

   I*2  IRPCNT                                                   267#    
   I*2  ISPAGCNT                                                 210#    
   I*2  ISWPCNT                                                  211#    
   I*2  KERNEL                                                   118#    
   I*2  KEY_SIZE                                                 114#    

   I*2  LEF                                                      194#    
   I*2  LEFO                                                     195#    
   I*2  LOCK_SIZE                                                260#      285       318(2)    404       458     
   I*2  LOGNAM                                                   147#    
   I*2  LRPCNT                                                   273#    

   I*2  MBREADS                                                  148#    
   I*2  MBWRITES                                                 149#    
   I*2  MEM_SIZE                                                 172#      285       309(2)    347       352       358     
							         365       374       383       393       404       433     
   I*2  MFYCNT                                                   170#    
   I*2  MISC_SIZE                                                164#      285       311(2)    343       347       352     
							         358       365       374       383       393       404     
							         429     

   I*2  MWAIT                                                    191#    
   I*2  NET_SIZE                                                 244#      285       317(2)    393       404       454     
   I*2  NUM_MODES                                                129#    
   I*2  OPEN                                                     154#    
   I*2  OPENS                                                    153#    

   I*2  OSWPCNT                                                  213#    
   I*2  PFW                                                      193#    
   I*2  PGFLT_SIZE                                               185#      285       313(2)    352       358       365     
							         374       383       393       404       437     
   I*2  POOL_SIZE                                                280#      285       319(2)    417     
   I*2  PREADIO                                                  179#    

   I*2  PREADS                                                   181#    
   I*2  PROCCNT                                                  212#    
   I*2  PWRITES                                                  182#    
   I*2  PWRITIO                                                  180#    
   I*2  QUOHIT                                                   161#    

   I*2  QUOMISS                                                  162#    
   I*2  RCVBUFFL                                                 238#    
   I*2  RDFLTS                                                   183#    
   I*2  REC_SIZE                                                 285#      315     
   I*2  RES                                                      230#    


BREAK_REC                      					 4-May-1983 08:52:48	VAX-11 FORTRAN V3.2-37              Page   7
								 3-May-1983 17:55:11	CAD$VOLSET:[GARY.STATS.SOURCE]BREAKREC.FOR;3

   I*2  RESPONSE_SIZE                                            229#      285       383       393       404     
   I*2  SCH_SIZE                                                 205#      285       312(2)    358       365       374     
							         383       393       404       441     
   I*2  SMALLCNT                                                 271#    
   I*2  SMALLHOLE                                                270#    
   I*2  SPLIT                                                    151#    

   I*2  SRPCNT                                                   274#    
   CHAR STANDARD_NEST_FILE                                       100       101#    
   I*2  SUPER                                                    119#    
   I*2  SUSP                                                     198#    
   I*2  SUSPO                                                    199#    

   I*2  SWAP_SIZE                                                217#      285       310(2)    365       374       383     
							         393       404       445     
   I*2  SWAP_SPARES                                              218#    
   I*2  TIME_SIZE                                                223#      285       307(2)    315       374       383     
							         393       404     
   I*2  TRCNGLOS                                                 239#    
   I*2  TURN                                                     150#    

   I*2  USER                                                     121#    
   I*2  WAIT_EF                                                  107#    


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

  /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:           3.38 seconds
  Elapsed Time:       11.56 seconds
  Page Faults:        455
  Dynamic Memory:     841 pages
