
                                                                20-Nov-1990 18:07:44	VAX FORTRAN V5.4-79                 Page   1
                                                                14-Jul-1988 19:37:45	LIB4:[ADDASYS.SOURCE]ADDA_TIMER.FOR;3       

0001    	SUBROUTINE ADDA_TIMER( IDV, IPT, IDAT )
0002    C
0003    C **************************************************************************
0004    C **  PROGRAM AUTHOR:       WILLIAM BAKER
0005    C 
0006    C **  PROGRAM DESCRIPTION:  SET DATA TIME.
0007    C **
0008    C
0009    C **  ADDA_TIMER.FOR DICTIONARY
0010    C     -----------------------
0011    C
0012    C **  DECLARE LOCAL VARIABLE NEEDED BY ROUTINE.
0013    C
0014    	INTEGER*4	DAYS
0015    C
0016    C **  INCLUDE DECLARATION OF DATABASE.
0017    C
0018    	INCLUDE	'LIB4:[ADDASYS.SOURCE]ADDA_DATA_SHR.INC'
0160    C
0161    C **  INITIALIZE VARIABLES USED TO GET TIME OF DAY.
0162    C
0163    	DAYS = 0
0164    	ITIME = 0
0165    C
0166    C **  GET TIME OF DAY FROM SYSTEM LIBRARY CALL.
0167    C
0168    	CALL LIB$DAY( DAYS, , ITIME )
0169    C
0170    C **  SET CURRENT TIME VARIABLE.
0171    C
0172    	CUR_TIME = ITIME
0173    C
0174    C **  CHECK WHICH DEVICE IS BEING REQUESTED.
0175    C
0176    	IF (IDV .EQ. 1) THEN
0177    C
0178    C **  DETERMINE WHICH ARRAY TO UPDATE WITH TIME VALUE.
0179    C
0180    		IF (IPT .EQ. 1) THEN
0181    			AD1_TIME1( IDAT ) = ITIME
0182    		ELSE
0183    			AD1_TIME2( IDAT ) = ITIME
0184    		ENDIF
0185    C
0186    C **  CHECK IF OTHER DEVICE IS ONE BEING USED.
0187    C
0188    	ELSE IF (IDV .EQ. 2) THEN
0189    C
0190    C **  DETERMINE WHICH ARRAY TO UPDATE WITH TIME VALUE.
0191    C
0192    		IF (IPT .EQ. 1) THEN
0193    			AD2_TIME1( IDAT ) = ITIME
0194    		ELSE
0195    			AD2_TIME2( IDAT ) = ITIME
0196    		ENDIF
0197    	ENDIF
0198    C

ADDA_TIMER                                                      20-Nov-1990 18:07:44	VAX FORTRAN V5.4-79                 Page   2
                                                                14-Jul-1988 19:37:45	LIB4:[ADDASYS.SOURCE]ADDA_TIMER.FOR;3       

0199    	RETURN
0200    	END




PROGRAM SECTIONS

    Name				 Bytes   Attributes

  0 $CODE                                  113   PIC CON REL LCL   SHR   EXE   RD NOWRT LONG
  2 $LOCAL                                  32   PIC CON REL LCL NOSHR NOEXE   RD   WRT LONG
  3 ADDA_DATA                            17352   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG
  4 ADDA_STORE                            8656   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG
  5 ADDA_PNTRS                              24   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG
  6 ADDA_LOGIC                              20   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG
  7 ADDA_NMBR                             2924   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

    Total Space Allocated                29121


ENTRY POINTS

    Address  Type  Name          

  0-00000000       ADDA_TIMER    


VARIABLES

    Address  Type  Name              Address  Type  Name              Address  Type  Name              Address  Type  Name          

  5-00000008  I*4  AD1_PNTR        5-00000014  I*4  AD2_PNTR        4-000010E0  I*4  AD8_PNTR        4-000021C8  I*4  AD9_PNTR      
  7-00000000  R*4  CLK_RATE        6-00000010  L*4  CLK_READY       5-00000004  I*4  CUR_PNTR1       5-00000010  I*4  CUR_PNTR2     
  7-00000018  I*4  CUR_TIME        2-00000000  I*4  DAYS           AP-0000000C@ I*4  IDAT           AP-00000004@ I*4  IDV           
 AP-00000008@ I*4  IPT             2-0000000C  I*4  ITIME           7-00000014  I*4  NEWOPT          5-00000000  I*4  PRV_PNTR1     
  5-0000000C  I*4  PRV_PNTR2       6-00000000  L*4  START_STOP1     6-00000008  L*4  START_STOP2     2-00000008  I*4  SYS$BINTIM    
  2-00000004  I*4  SYS$SETIMR      6-00000004  L*4  USE_LOGICAL1    6-0000000C  L*4  USE_LOGICAL2    4-000010E4  L*4  USE_LOGICAL8  
  4-000021CC  L*4  USE_LOGICAL9  


ARRAYS

    Address  Type  Name                Bytes  Dimensions

  3-00001E00  I*2  AD1_BUFFER             32  (16)
  3-00000000  I*2  AD1_DATA1            3840  (120, 16)
  3-00000F00  I*2  AD1_DATA2            3840  (120, 16)
  3-00001E24  I*4  AD1_TIME1             480  (120)
  3-00002004  I*4  AD1_TIME2             480  (120)
  3-00003FE4  I*2  AD2_BUFFER             32  (16)
  3-000021E4  I*2  AD2_DATA1            3840  (120, 16)
  3-000030E4  I*2  AD2_DATA2            3840  (120, 16)
  3-00004008  I*4  AD2_TIME1             480  (120)
  3-000041E8  I*4  AD2_TIME2             480  (120)
  4-00000000  I*2  AD8_DATA1            3840  (120, 16)
  4-00000F00  I*4  AD8_TIME1             480  (120)

ADDA_TIMER                                                      20-Nov-1990 18:07:44	VAX FORTRAN V5.4-79                 Page   3
01                                                              14-Jul-1988 19:37:45	LIB4:[ADDASYS.SOURCE]ADDA_TIMER.FOR;3       

  4-000010E8  I*2  AD9_DATA1            3840  (120, 16)
  4-00001FE8  I*4  AD9_TIME1             480  (120)
  7-00000004  I*4  AD_NUMBR                8  (2)
  3-00001E20  I*2  DA1_BUFFER              4  (2)
  3-00004004  I*2  DA2_BUFFER              4  (2)
  7-0000000C  I*4  DA_NUMBR                8  (2)


RECORD ARRAYS

    Address   Name          Structure           Bytes  Dimensions

  7-0000001C  AD_CHNL       AD_LIST              2560  (2, 16)
  7-00000A1C  DA_CHNL       DA_LIST               336  (2, 2)


FUNCTIONS AND SUBROUTINES REFERENCED

  Type  Name          

        LIB$DAY       


COMMAND QUALIFIERS

  FOR/LIS/NOOPT/EXTEND ADDA_TIMER

  /CHECK=(NOBOUNDS,OVERFLOW,NOUNDERFLOW)
  /DEBUG=(NOSYMBOLS,TRACEBACK)
  /DESIGN=(NOCOMMENTS,NOPLACEHOLDERS)
  /SHOW=(NODICTIONARY,NOINCLUDE,MAP,NOPREPROCESSOR,SINGLE)
  /STANDARD=(NOSEMANTIC,NOSOURCE_FORM,NOSYNTAX)
  /WARNINGS=(NODECLARATIONS,GENERAL,NOULTRIX,NOVAXELN)
  /CONTINUATIONS=19  /NOCROSS_REFERENCE  /NOD_LINES  /EXTEND_SOURCE
  /F77  /NOG_FLOATING  /I4  /NOMACHINE_CODE  /NOOPTIMIZE  /NOPARALLEL
  /NOANALYSIS_DATA
  /NODIAGNOSTICS
  /LIST=LIB4:[ADDASYS.SOURCE]ADDA_TIMER.LIS;22                                                              
  /OBJECT=LIB4:[ADDASYS.SOURCE]ADDA_TIMER.OBJ;1                                                               


COMPILATION STATISTICS

  Run Time:           1.89 seconds
  Elapsed Time:       3.07 seconds
  Page Faults:        648
  Dynamic Memory:     352 pages
