
                               					 8-Dec-1982 17:55:48	VAX-11 FORTRAN V3.0-2               Page   1
								 8-Dec-1982 17:55:40	[GARY.STATS.SOURCE]MOUSESUBS.FOR;53         

0001    !++
0002    ! interval that mouse is to run in seconds
0003    !--
0004     
0005              character * (*) ascii_delta_time
0006              parameter ( ascii_delta_time = '0 00:00:10.00' ) ! 5 minutes
0007     
0008    !++ 
0009    ! sub for the name that MOUSE and STATS use for their performance file
0010    !--
0011     
0012              character * (*) standard_nest_file
0013              parameter ( standard_nest_file = 'RATSNEST.NST' )
0014     
0015    !++
0016    ! sub for the key size
0017    !--
0018     
0019              parameter key_size = 4
0020    !++
0021    ! subs for job counts and cpu modes
0022    !--
0023              parameter kernel =    1
0024              parameter super  =    2
0025              parameter exec   =    3
0026              parameter user   =    4
0027              parameter int    =    5
0028              parameter compat =    6
0029              parameter bjobcnt =   7
0030              parameter ijobcnt =   8
0031              parameter njobcnt =   9
0032     
0033              parameter cpu_size =  9
0034              parameter num_modes = 6
0035     
0036    !++
0037    ! subs for file control primitives
0038    !--
0039              parameter fcp_calls = 1
0040              parameter fcp_cache = 2
0041              parameter fcp_cpu   = 3
0042              parameter fcp_read  = 4
0043              parameter fcp_write = 5
0044     
0045              parameter fcp_size =  5
0046     
0047    !++
0048    ! subs for miscellaneous statistics
0049    !--
0050              parameter dirio     = 1
0051              parameter bufio     = 2
0052              parameter lognam    = 3
0053              parameter mbreads   = 4
0054              parameter mbwrites  = 5
0055              parameter turn      = 6
0056              parameter split     = 7
0057              parameter hit       = 8

MOUSESUBS$MAIN                 					 8-Dec-1982 17:55:48	VAX-11 FORTRAN V3.0-2               Page   2
								 8-Dec-1982 17:55:40	[GARY.STATS.SOURCE]MOUSESUBS.FOR;53         

0058              parameter opens     = 9
0059              parameter quomiss   = 10
0060              parameter dirhit    = 11
0061              parameter dirmiss   = 12
0062              parameter exthit    = 13
0063              parameter extmiss   = 14
0064              parameter fidhit    = 15
0065              parameter fidmiss   = 16
0066              parameter quohit    = 17
0067              parameter open      = 18
0068     
0069              parameter  misc_size = 18
0070     
0071    !++
0072    ! subs for memory
0073    !__
0074              parameter freecnt=1
0075              parameter mfycnt=2
0076     
0077              parameter mem_size = 2
0078     
0079    !++
0080    ! subs for page faults
0081    !--
0082              parameter dzroflts = 1
0083              parameter faults   = 2
0084              parameter preadio  = 3
0085              parameter pwritio  = 4
0086              parameter preads   = 5
0087              parameter pwrites  = 6
0088              parameter rdflts   = 7
0089     
0090              parameter pgflt_size = 7
0091     
0092    !++
0093    ! subs for scheduler states
0094    !--
0095              parameter colpg   = 1
0096              parameter mwait   = 2
0097              parameter cef     = 3
0098              parameter pfw     = 4
0099              parameter lef     = 5
0100              parameter lefo    = 6
0101              parameter hib     = 7
0102              parameter hibo    = 8
0103              parameter susp    = 9
0104              parameter suspo   = 10
0105              parameter fpg     = 11
0106              parameter com     = 12
0107              parameter como    = 13
0108              parameter cur     = 14
0109     
0110              parameter sch_size = 14
0111     
0112    !++
0113    ! subs for swapping
0114    !--

MOUSESUBS$MAIN                 					 8-Dec-1982 17:55:48	VAX-11 FORTRAN V3.0-2               Page   3
								 8-Dec-1982 17:55:40	[GARY.STATS.SOURCE]MOUSESUBS.FOR;53         

0115              parameter ispagcnt = 1
0116              parameter iswpcnt  = 2
0117              parameter proccnt  = 3
0118              parameter oswpcnt  = 4
0119              parameter hoswpcnt = 5
0120              parameter hiswpcnt = 6
0121              parameter swtime   = 7
0122              parameter balcnt   = 8
0123              parameter swpfcnt  = 9
0124     
0125              parameter swap_size = 9
0126     
0127    !++
0128    ! size for the uptime in longwords
0129    !--
0130              parameter time_size = 2
0131     
0132    !++
0133    ! size for "system response"
0134    !--
0135              
0136              parameter response_size = 1
0137              parameter res           = 1
0138     
0139    !++
0140    ! subs for DECnet
0141    !--
0142              parameter arrlocpk = 1
0143              parameter arrtrapk = 2
0144              parameter deplocpk = 3
0145              parameter rcvbuffl = 4
0146              parameter trcnglos = 5
0147     
0148    !++
0149    ! size for DECnet stats
0150    !--
0151              parameter net_size = 5
0152     
0153    !++
0154    ! subs for ENQ/DEQ
0155    !--
0156              parameter enqnew   = 1
0157              parameter enqwait  = 2
0158              parameter deq      = 3
0159              parameter dlckfnd  = 4
0160              parameter dlcksrch = 5
0161              parameter enqcvt   = 6
0162              parameter enqnotqd = 7
0163     
0164    !++
0165    ! size of lock_modes
0166    !--
0167              parameter lock_size = 7
0168     
0169     
0170    !++
0171    ! subs for the non-paged pool stats

MOUSESUBS$MAIN                 					 8-Dec-1982 17:55:48	VAX-11 FORTRAN V3.0-2               Page   4
								 8-Dec-1982 17:55:40	[GARY.STATS.SOURCE]MOUSESUBS.FOR;53         

0172    !__
0173     
0174              parameter irpcnt    = 1          ! number of packets in IRP list
0175              parameter holecnt   = 2          ! number of memory blocks in pool
0176              parameter bighole   = 3          ! largest memory block
0177              parameter smallhole = 4          ! smallest memory block
0178              parameter smallcnt  = 5          ! number of 32 byte or smaller blocks
0179              parameter holesum   = 6          ! total space in non-paged pool
0180              parameter lrpcnt    = 7          ! number of LRPs
0181              parameter srpcnt    = 8          ! number of SRPs
0182     
0183    !++
0184    ! size of pool modes
0185    !--
0186     
0187              parameter pool_size = 8
0188     
0189    !++
0190    ! total size of the MOUSE record
0191    !--
0192              parameter rec_size = cpu_size + fcp_size + misc_size +
0193         .                         mem_size + pgflt_size +
0194         .                         sch_size + swap_size + time_size +
0195         .                         response_size + net_size + lock_size +
0196         .                         pool_size
0197     
Missing END statement, END is assumed 
 	in module MOUSESUBS$MAIN at line 192


MOUSESUBS$MAIN                 					 8-Dec-1982 17:55:48	VAX-11 FORTRAN V3.0-2               Page   5
								 8-Dec-1982 17:55:40	[GARY.STATS.SOURCE]MOUSESUBS.FOR;53         

PROGRAM SECTIONS

    Name				 Bytes   Attributes

  0 $CODE                                    6   PIC CON REL LCL   SHR   EXE   RD NOWRT LONG

    Total Space Allocated                    6


ENTRY POINTS

    Address  Type  Name                                        References

  0-00000000       MOUSESUBS$MAIN                              


PARAMETER CONSTANTS

  Type  Name                                                   References

   I*2  ARRLOCPK                                                 142#    
   I*2  ARRTRAPK                                                 143#    
   CHAR ASCII_DELTA_TIME                                           5         6#    
   I*2  BALCNT                                                   122#    
   I*2  BIGHOLE                                                  176#    

   I*2  BJOBCNT                                                   29#    
   I*2  BUFIO                                                     51#    
   I*2  CEF                                                       97#    
   I*2  COLPG                                                     95#    
   I*2  COM                                                      106#    

   I*2  COMO                                                     107#    
   I*2  COMPAT                                                    28#    
   I*2  CPU_SIZE                                                  33#      192     
   I*2  CUR                                                      108#    
   I*2  DEPLOCPK                                                 144#    

   I*2  DEQ                                                      158#    
   I*2  DIRHIT                                                    60#    
   I*2  DIRIO                                                     50#    
   I*2  DIRMISS                                                   61#    
   I*2  DLCKFND                                                  159#    

   I*2  DLCKSRCH                                                 160#    
   I*2  DZROFLTS                                                  82#    
   I*2  ENQCVT                                                   161#    
   I*2  ENQNEW                                                   156#    
   I*2  ENQNOTQD                                                 162#    

   I*2  ENQWAIT                                                  157#    
   I*2  EXEC                                                      25#    
   I*2  EXTHIT                                                    62#    
   I*2  EXTMISS                                                   63#    
   I*2  FAULTS                                                    83#    

   I*2  FCP_CACHE                                                 40#    

MOUSESUBS$MAIN                 					 8-Dec-1982 17:55:48	VAX-11 FORTRAN V3.0-2               Page   6
								 8-Dec-1982 17:55:40	[GARY.STATS.SOURCE]MOUSESUBS.FOR;53         

   I*2  FCP_CALLS                                                 39#    
   I*2  FCP_CPU                                                   41#    
   I*2  FCP_READ                                                  42#    
   I*2  FCP_SIZE                                                  45#      192     

   I*2  FCP_WRITE                                                 43#    
   I*2  FIDHIT                                                    64#    
   I*2  FIDMISS                                                   65#    
   I*2  FPG                                                      105#    
   I*2  FREECNT                                                   74#    

   I*2  HIB                                                      101#    
   I*2  HIBO                                                     102#    
   I*2  HISWPCNT                                                 120#    
   I*2  HIT                                                       57#    
   I*2  HOLECNT                                                  175#    

   I*2  HOLESUM                                                  179#    
   I*2  HOSWPCNT                                                 119#    
   I*2  IJOBCNT                                                   30#    
   I*2  INT                                                       27#    
   I*2  IRPCNT                                                   174#    

   I*2  ISPAGCNT                                                 115#    
   I*2  ISWPCNT                                                  116#    
   I*2  KERNEL                                                    23#    
   I*2  KEY_SIZE                                                  19#    
   I*2  LEF                                                       99#    

   I*2  LEFO                                                     100#    
   I*2  LOCK_SIZE                                                167#      192     
   I*2  LOGNAM                                                    52#    
   I*2  LRPCNT                                                   180#    
   I*2  MBREADS                                                   53#    

   I*2  MBWRITES                                                  54#    
   I*2  MEM_SIZE                                                  77#      192     
   I*2  MFYCNT                                                    75#    
   I*2  MISC_SIZE                                                 69#      192     
   I*2  MWAIT                                                     96#    

   I*2  NET_SIZE                                                 151#      192     
   I*2  NJOBCNT                                                   31#    
   I*2  NUM_MODES                                                 34#    
   I*2  OPEN                                                      67#    
   I*2  OPENS                                                     58#    

   I*2  OSWPCNT                                                  118#    
   I*2  PFW                                                       98#    
   I*2  PGFLT_SIZE                                                90#      192     
   I*2  POOL_SIZE                                                187#      192     
   I*2  PREADIO                                                   84#    

   I*2  PREADS                                                    86#    
   I*2  PROCCNT                                                  117#    
   I*2  PWRITES                                                   87#    
   I*2  PWRITIO                                                   85#    

MOUSESUBS$MAIN                 					 8-Dec-1982 17:55:48	VAX-11 FORTRAN V3.0-2               Page   7
								 8-Dec-1982 17:55:40	[GARY.STATS.SOURCE]MOUSESUBS.FOR;53         

   I*2  QUOHIT                                                    66#    

   I*2  QUOMISS                                                   59#    
   I*2  RCVBUFFL                                                 145#    
   I*2  RDFLTS                                                    88#    
   I*2  REC_SIZE                                                 192#    
   I*2  RES                                                      137#    

   I*2  RESPONSE_SIZE                                            136#      192     
   I*2  SCH_SIZE                                                 110#      192     
   I*2  SMALLCNT                                                 178#    
   I*2  SMALLHOLE                                                177#    
   I*2  SPLIT                                                     56#    

   I*2  SRPCNT                                                   181#    
   CHAR STANDARD_NEST_FILE                                        12        13#    
   I*2  SUPER                                                     24#    
   I*2  SUSP                                                     103#    
   I*2  SUSPO                                                    104#    

   I*2  SWAP_SIZE                                                125#      192     
   I*2  SWPFCNT                                                  123#    
   I*2  SWTIME                                                   121#    
   I*2  TIME_SIZE                                                130#      192     
   I*2  TRCNGLOS                                                 146#    

   I*2  TURN                                                      55#    
   I*2  USER                                                      26#    


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

  /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

MOUSESUBS$MAIN                 					 8-Dec-1982 17:55:48	VAX-11 FORTRAN V3.0-2               Page   8
								 8-Dec-1982 17:55:40	[GARY.STATS.SOURCE]MOUSESUBS.FOR;53         

COMPILATION STATISTICS

  Run Time:           1.36 seconds
  Elapsed Time:       3.42 seconds
  Page Faults:        250
  Dynamic Memory:     806 pages
