20-Nov-1990 18:09:46 VAX FORTRAN V5.4-79 Page 1 14-Jul-1988 19:37:02 LIB4:[ADDASYS.SOURCE]ADDA_CTRL.FOR;3 0001 PROGRAM ADDA_CTRL 0002 C 0003 C ************************************************************************** 0004 C ** PROGRAM AUTHOR: WILLIAM BAKER 0005 C 0006 C ** PROGRAM DESCRIPTION: CONTROLS OPERATION OF DATA IO PROGRAMS. 0007 C ** 0008 C 0009 C ** SLEEP 0010 C ----------------------- 0011 C 0012 C ** DELCLARE LOCAL PROGRAM VARIABLES. 0013 C 0014 CHARACTER*4 AD_IN 0015 C 0016 C ** INCLUDE THE DATABASE DECLARATIONS. 0017 C 0018 INCLUDE 'LIB4:[ADDASYS.SOURCE]ADDA_DATA_SHR.INC' 0160 C 0161 C ** GET THE DEVICE INFORMATION FROM THE COMMAND LINE. 0162 C 0163 CALL LIB$GET_FOREIGN(AD_IN,'Control Option: ',LEN_AD) 0164 C 0165 C ** TRIM THE STRING DOWN TO SIZE. 0166 C 0167 CALL STR$TRIM(AD_IN, AD_IN(1:LEN_AD), LEN_AD) 0168 C 0169 C ** DECODE THE STRING TO INTEGER VERSIONS OF THE PASSED OPTIONS. 0170 C 0171 DECODE(LEN_AD,750,AD_IN) IOPT, IDV 0172 750 FORMAT(2I1) 0173 C 0174 C ** PASS THE INFORMATION TO THE IO CONTROL SUBROUTIN OF THE USER LIBRARY. 0175 C 0176 CALL IO_CONTROL( IOPT, IDV ) 0177 C 0178 END ADDA_CTRL 20-Nov-1990 18:09:46 VAX FORTRAN V5.4-79 Page 2 01 14-Jul-1988 19:37:02 LIB4:[ADDASYS.SOURCE]ADDA_CTRL.FOR;3 PROGRAM SECTIONS Name Bytes Attributes 0 $CODE 91 PIC CON REL LCL SHR EXE RD NOWRT LONG 1 $PDATA 23 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 2 $LOCAL 84 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 29174 ENTRY POINTS Address Type Name 0-00000000 ADDA_CTRL 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 2-00000000 CHAR AD_IN 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-0000000C I*4 IDV 2-00000008 I*4 IOPT 2-00000004 I*4 LEN_AD 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 ** I*4 SYS$BINTIM ** 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) 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) ADDA_CTRL 20-Nov-1990 18:09:46 VAX FORTRAN V5.4-79 Page 3 01 14-Jul-1988 19:37:02 LIB4:[ADDASYS.SOURCE]ADDA_CTRL.FOR;3 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) LABELS Address Label 1-00000012 750' FUNCTIONS AND SUBROUTINES REFERENCED Type Name Type Name Type Name IO_CONTROL LIB$GET_FOREIGN STR$TRIM COMMAND QUALIFIERS FOR/LIS/EXTEND ADDA_CTRL /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 /OPTIMIZE /NOPARALLEL /NOANALYSIS_DATA /NODIAGNOSTICS /LIST=LIB4:[ADDASYS.SOURCE]ADDA_CTRL.LIS;22 /OBJECT=LIB4:[ADDASYS.SOURCE]ADDA_CTRL.OBJ;1 COMPILATION STATISTICS Run Time: 1.83 seconds Elapsed Time: 4.86 seconds Page Faults: 697 Dynamic Memory: 356 pages