20-Nov-1990 18:08:31 VAX FORTRAN V5.4-79 Page 1 14-Jul-1988 19:37:00 LIB4:[ADDASYS.SOURCE]ADDA_CNFIG.FOR;4 0001 SUBROUTINE WRITE_CONFIG( MYDEV ) 0002 C 0003 C **************************************** 0004 C ** PROGRAM AUTHOR: WILLIAM BAKER 0005 C 0006 C ** PROGRAM DESCRIPTION: WRITES A DATA CONFIGURATION FILE. 0007 C ** 0008 C 0009 C ** WRITE_CONFIG 0010 C ------------ 0011 C 0012 C ** THE OUTPUT CONFIGURATION FILE IS OPENED BY THE CALLING PROGRAM. 0013 C 0014 C ** INCLUDE THE DATABASE DECLARATIONS. 0015 C 0016 INCLUDE 'LIB4:[ADDASYS.SOURCE]ADDA_DATA_SHR.INC' 0158 C 0159 C ** WRITE THE CLOCK RATE OF THE TEST OUT TO THE CONFIGURATION FILE 0160 C 0161 WRITE(11,200) CLK_RATE 0162 200 FORMAT('%RT=',F12.2) 0163 C 0164 C ** WRITE THE NUMBER OF CHANNELS USED BY THE DEVICE, A/D AND D/A. 0165 C 0166 WRITE(11,400) AD_NUMBR(MYDEV), DA_NUMBR(MYDEV) 0167 400 FORMAT('%AN=',I2,2X,'%DN=',I1) 0168 C 0169 C ** WRITE OUT THE CHANNEL DEFINITIONS IF A/D CHANNELS ARE DEFINED. 0170 C 0171 IF (AD_NUMBR(MYDEV) .NE. 0) WRITE(11,500) ( AD_CHNL(MYDEV,II).CHAN_NUM, 0172 & AD_CHNL(MYDEV,II).CHAN_GAIN, 0173 & AD_CHNL(MYDEV,II).CHAN_DSCR, II=1,AD_NUMBR(MYDEV)) 0174 500 FORMAT('%AD=',I2,2X,'%GA=',I6,2X,'%DE=',A72) 0175 C 0176 C ** WRITE OUT THE CHANNEL DEFINITIONS IF D/A CHANNELS ARE DEFINED. 0177 C 0178 IF (DA_NUMBR(MYDEV) .NE. 0) WRITE(11,600) ( DA_CHNL(MYDEV,II).CHAN_NUM, 0179 & DA_CHNL(MYDEV,II).CHAN_DEVICE, 0180 & DA_CHNL(MYDEV,II).CHAN_FROM, 0181 & DA_CHNL(MYDEV,II).CHAN_DSCR, II=1,2) 0182 600 FORMAT('%DA=',I2,2X,'%DV=',I1,2X,'%FM=',I2,2X,'%DE=',A72) 0183 C 0184 C ** RETURN TO CALLING PROGRAM. 0185 C 0186 RETURN 0187 END WRITE_CONFIG 20-Nov-1990 18:08:31 VAX FORTRAN V5.4-79 Page 2 01 14-Jul-1988 19:37:00 LIB4:[ADDASYS.SOURCE]ADDA_CNFIG.FOR;4 PROGRAM SECTIONS Name Bytes Attributes 0 $CODE 343 PIC CON REL LCL SHR EXE RD NOWRT LONG 1 $PDATA 97 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 2 $LOCAL 20 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 29436 ENTRY POINTS Address Type Name 0-00000000 WRITE_CONFIG 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 ** I*4 II AP-00000004@ I*4 MYDEV 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) WRITE_CONFIG 20-Nov-1990 18:08:31 VAX FORTRAN V5.4-79 Page 3 01 14-Jul-1988 19:37:00 LIB4:[ADDASYS.SOURCE]ADDA_CNFIG.FOR;4 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 Address Label Address Label Address Label 1-00000000 200' 1-0000000A 400' 1-0000001D 500' 1-0000003A 600' COMMAND QUALIFIERS FOR/LIS/EXTEND ADDA_CNFIG /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_CNFIG.LIS;22 /OBJECT=LIB4:[ADDASYS.SOURCE]ADDA_CNFIG.OBJ;1 COMPILATION STATISTICS Run Time: 2.43 seconds Elapsed Time: 4.20 seconds Page Faults: 710 Dynamic Memory: 372 pages