20-Nov-1990 18:09:52 VAX FORTRAN V5.4-79 Page 1 14-Jul-1988 19:37:36 LIB4:[ADDASYS.SOURCE]ADDA_PLOT.FOR;3 0001 PROGRAM ADDA_PLOT 0002 C 0003 C 0004 C ************************************************************************** 0005 C ** PROGRAM AUTHOR: WILLIAM BAKER 0006 C 0007 C ** PROGRAM DESCRIPTION: DEFINES AN AREA OF SHARED COMMON FOR USE BY 0008 C ** A/D AND D/A DATA ACQUISITION PROGRAMS. 0009 C 0010 C ** ADDA_SHR.FOR DICTIONARY 0011 C ----------------------- 0012 C 0013 C ** DEFINE VARIABLES NEEDED BY LOCAL PROGRAM. 0014 C 0015 INTEGER*2 AD_DATA(16) 0016 C 0017 INTEGER*4 SYS$TRNLNM 0018 INTEGER*2 DAR(240), NAME_LEN, NAME_CODE 0019 INTEGER*4 NAME_ADDR, RET_ADDR, END_LIST /0/ 0020 INTEGER*4 LOGSTOP_LEN, CURTIME, PRVTIME, GPID, STATUS_L 0021 CHARACTER*72 DESCRIPT, LOGSTOP 0022 C 0023 C ** DEFINE LOGICAL FOR CONTROLLING ACTIVITY OF PROGRAM. 0024 C 0025 LOGICAL FINPLOT 0026 C 0027 C ** DEFINE THE DATABASE. 0028 C 0029 INCLUDE 'LIB4:[ADDASYS.SOURCE]ADDA_DATA_SHR.INC' 0171 C 0172 C ** DEFINE COMMON FOR TRANSLATING THE LOGICAL THAT CONTROLS THE PROGRAM. 0173 C 0174 COMMON /LIST/ NAME_LEN, NAME_CODE, NAME_ADDR, RET_ADDR, END_LIST 0175 C 0176 C ** DEFINE PARAMETERS NEEDED BY LOGICAL TRANSLATION ROUTINE. 0177 C 0178 NAME_LEN = 3 0179 NAME_CODE = (LNM$_STRING) 0180 NAME_ADDR = %LOC(LOGSTOP) 0181 RET_ADDR = %LOC(LOGSTOP_LEN) 0182 0183 C 0184 C ** DEFINE INITIAL VALUES FOR CONTROL LOOP STRINGS. 0185 C 0186 LOGSTOP = 'GO' 0187 LOGSTOP_LEN = 2 0188 C 0189 C ** FIND THE CHANNEL TO PLOT AND THE DEVICE. 0190 C 0191 OPEN( UNIT = 11, FILE='PLOT_CONFIG', FORM='FORMATTED', 0192 & STATUS = 'OLD', CARRIAGECONTROL = 'LIST' ) 0193 C 0194 READ(11,200) IDEV, ICHN 0195 200 FORMAT(I1,I2) 0196 C 0197 CLOSE(11) 0198 C ADDA_PLOT 20-Nov-1990 18:09:52 VAX FORTRAN V5.4-79 Page 2 14-Jul-1988 19:37:36 LIB4:[ADDASYS.SOURCE]ADDA_PLOT.FOR;3 0199 C ** ASSOCIATE THE PROGRAM WITH THE EVENT FLAG CLUSTER. 0200 C 0201 CALL ASOC_EF 0202 C 0203 C ** GET THE CHANNEL DESCRIPTOR FOR OUR SCREEN PLOT. 0204 C 0205 DESCRIPT = AD_CHNL(IDEV,ICHN).CHAN_DSCR 0206 C 0207 C ** TRIM THE DESCRIPTOR AND GET ITS LENGTH. 0208 C 0209 CALL STR$TRIM(DESCRIPT, DESCRIPT, LEN_DSCR) 0210 C 0211 C ** START THE PLOT AND GET THE CHANNEL ID FOR THE PLOT SCREEN. 0212 C 0213 CALL AXPLOT_START( DESCRIPT, GPID ) 0214 C 0215 C ** GET CURRENT SET OF DATA TO DISPLAY. 0216 C 0217 CALL GETCURDATA( IDEV, DAR, NMBR, ICHN, PRVTIME ) 0218 C 0219 C ** POP THE NEXT DATA POINT OFF THE CURRENT DATA STACK. 0220 C 0221 CALL POPAD( IDEV, AD_DATA, CURTIME ) 0222 C 0223 C ** PASS THE CURRENT DATA TO BE PLOTTED. 0224 C 0225 CALL PLOTDATA( DAR, NMBR, GPID ) 0226 C 0227 C ** IF TIME IS NOT THE SAME, THEN PLOT THE NEW DATA POINT. 0228 C 0229 IF (CURTIME .NE. PRVTIME) THEN 0230 DAR(1) = AD_DATA(ICHN) 0231 CALL PLOTDATA( DAR, 1, GPID ) 0232 PRVTIME = CURTIME 0233 ENDIF 0234 C 0235 C ** INITIALIZE THE VALUE OF THE LOGICAL FOR CONTROLLING THE LOOP. 0236 C 0237 FINPLOT = .FALSE. 0238 C 0239 DO WHILE ((CURTIME .EQ. PRVTIME) .AND. (.NOT. FINPLOT) .AND. 0240 & (LOGSTOP(1:LOGSTOP_LEN) .EQ. 'GO')) 0241 C 0242 C ** GET ANOTHER DATA POINT. 0243 C 0244 CALL POPAD( IDEV, AD_DATA, CURTIME ) 0245 C 0246 C ** CHECK FOR END OF PLOT CONDITION. 0247 C 0248 STATUS_L = SYS$TRNLNM(, 'LNM$GROUP_000100', 'PLOT_CONTINUE',, NAME_LEN ) 0249 IF (.NOT. STATUS_L) CALL LIB$SIGNAL(%VAL(STATUS_L)) 0250 C 0251 C ** IF TIME NOT THE SAME, THEN PASS THE DATA TO BE PLOTTED. 0252 C 0253 IF (CURTIME .NE. PRVTIME) THEN 0254 DAR(1) = AD_DATA(ICHN) 0255 CALL PLOTDATA( DAR, 1, GPID ) ADDA_PLOT 20-Nov-1990 18:09:52 VAX FORTRAN V5.4-79 Page 3 14-Jul-1988 19:37:36 LIB4:[ADDASYS.SOURCE]ADDA_PLOT.FOR;3 0256 C 0257 C ** SET THE PREVIOUS TIME VARIABLE, AND WAIT FOR NEXT DATA POINT. 0258 C 0259 PRVTIME = CURTIME 0260 CALL WAITFLAG( IDEV ) 0261 ENDIF 0262 C 0263 C ** CHECK IF DEVICE HAS BEEN STOPPED BY THE ADDASYS SYSTEM. 0264 C 0265 IF (IDEV .EQ. 1) THEN 0266 IF (START_STOP1) FINPLOT = .TRUE. 0267 ELSE IF (IDEV .EQ. 2) THEN 0268 IF (START_STOP2) FINPLOT = .TRUE. 0269 ENDIF 0270 C 0271 ENDDO 0272 C 0273 C ** FINISH THE PLOT OFF AND EXIT THE PROGRAM. 0274 C 0275 CALL AXPLOT_STOP( GPID ) 0276 C 0277 C ** DEASSOCIATE PROGRAM FROM THE EVENT FLAG CLUSTER. 0278 C 0279 CALL DASOC_EF 0280 C 0281 END PROGRAM SECTIONS Name Bytes Attributes 0 $CODE 388 PIC CON REL LCL SHR EXE RD NOWRT LONG 1 $PDATA 54 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 2 $LOCAL 944 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 8 LIST 16 PIC OVR REL GBL SHR NOEXE RD WRT LONG Total Space Allocated 30378 ENTRY POINTS Address Type Name 0-00000000 ADDA_PLOT ADDA_PLOT 20-Nov-1990 18:09:52 VAX FORTRAN V5.4-79 Page 4 01 14-Jul-1988 19:37:36 LIB4:[ADDASYS.SOURCE]ADDA_PLOT.FOR;3 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 2-00000294 I*4 CURTIME 5-00000004 I*4 CUR_PNTR1 5-00000010 I*4 CUR_PNTR2 7-00000018 I*4 CUR_TIME 2-00000200 CHAR DESCRIPT 8-0000000C I*4 END_LIST ** L*4 FINPLOT 2-0000029C I*4 GPID 2-000002A8 I*4 ICHN 2-000002A4 I*4 IDEV 2-000002AC I*4 LEN_DSCR 2-000002A0 I*4 LNM$_STRING 2-00000248 CHAR LOGSTOP 2-00000290 I*4 LOGSTOP_LEN 8-00000004 I*4 NAME_ADDR 8-00000002 I*2 NAME_CODE 8-00000000 I*2 NAME_LEN 7-00000014 I*4 NEWOPT 2-000002B0 I*4 NMBR 2-00000298 I*4 PRVTIME 5-00000000 I*4 PRV_PNTR1 5-0000000C I*4 PRV_PNTR2 8-00000008 I*4 RET_ADDR 6-00000000 L*4 START_STOP1 6-00000008 L*4 START_STOP2 ** I*4 STATUS_L ** 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) 2-00000000 I*2 AD_DATA 32 (16) 7-00000004 I*4 AD_NUMBR 8 (2) 3-00001E20 I*2 DA1_BUFFER 4 (2) 3-00004004 I*2 DA2_BUFFER 4 (2) 2-00000020 I*2 DAR 480 (240) 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) LABELS Address Label 1-0000002F 200' ADDA_PLOT 20-Nov-1990 18:09:52 VAX FORTRAN V5.4-79 Page 5 01 14-Jul-1988 19:37:36 LIB4:[ADDASYS.SOURCE]ADDA_PLOT.FOR;3 FUNCTIONS AND SUBROUTINES REFERENCED Type Name Type Name Type Name Type Name Type Name Type Name ASOC_EF AXPLOT_START AXPLOT_STOP DASOC_EF FOR$CLOSE FOR$OPEN GETCURDATA LIB$SIGNAL PLOTDATA POPAD STR$TRIM I*4 SYS$TRNLNM WAITFLAG 20-Nov-1990 18:09:52 VAX FORTRAN V5.4-79 Page 6 14-Jul-1988 19:37:36 LIB4:[ADDASYS.SOURCE]ADDA_PLOT.FOR;3 0002 SUBROUTINE AXPLOT_START( descript, graphics_id ) 0003 C 0004 C****************************************** 0005 C 0006 C PURPOSE: TO START UP THE PLOT DEVICE, AND SET ITS CONDITIONS. 0007 C 0008 C 0009 INTEGER*4 GRAPHICS_ID, STATUS_P 0010 C 0011 CHARACTER*72 DESCRIPT 0012 C 0013 INCLUDE 'SYS$LIBRARY:LIOSET.FOR' !get LIO symbol definitions 0702 C 0703 !-------------> go <-------------- 0704 0705 C Set up graphics device 0706 0707 STATUS_P = lio$attach(graphics_id, 'POA0',) 0708 if(.NOT.(STATUS_P)) call lib$signal( %val(STATUS_P)) 0709 0710 C Plotting one channels, 0 0711 0712 STATUS_P = lio$set_i(graphics_id,LIO$K_PO_CHAN, 1, 0) 0713 if(.NOT.(STATUS_P)) call lib$signal( %val(STATUS_P)) 0714 0715 C Display 240 points along x axis, and shift in 40 points at a time. 0716 0717 STATUS_P = lio$set_r(graphics_id,LIO$K_X_RANGE, 2,240.0,40.0) 0718 if(.NOT.(STATUS_P)) call lib$signal( %val(STATUS_P)) 0719 0720 C Set y min for both channels 0721 0722 STATUS_P = lio$set_r(graphics_id,LIO$K_Y_MIN,1,-10.0) 0723 if(.NOT.(STATUS_P)) call lib$signal( %val(STATUS_P)) 0724 0725 C Set y max for both channels 0726 0727 STATUS_P = lio$set_r(graphics_id,LIO$K_Y_MAX,1,10.0) 0728 if(.NOT.(STATUS_P)) call lib$signal( %val(STATUS_P)) 0729 0730 C Set up channel labels 0731 STATUS_P = lio$set_s(graphics_id,LIO$K_TITLE_0, 1, descript ) 0732 if(.NOT.(STATUS_P)) call lib$signal( %val(STATUS_P)) 0733 0734 C Tell device the number of channels in the data buffer 0735 0736 STATUS_P = lio$set_i(graphics_id,LIO$K_N_BUFFS,1,1) 0737 if(.NOT.(STATUS_P)) call lib$signal( %val(STATUS_P)) 0738 0739 C Start the plotting 0740 0741 STATUS_P = lio$set_r(graphics_id,LIO$K_START,0,) 0742 if(.NOT.(STATUS_P)) call lib$signal( %val(STATUS_P)) 0743 C 0744 RETURN 0745 END AXPLOT_START 20-Nov-1990 18:09:52 VAX FORTRAN V5.4-79 Page 7 01 14-Jul-1988 19:37:36 LIB4:[ADDASYS.SOURCE]ADDA_PLOT.FOR;3 PROGRAM SECTIONS Name Bytes Attributes 0 $CODE 258 PIC CON REL LCL SHR EXE RD NOWRT LONG 1 $PDATA 61 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 2 $LOCAL 240 PIC CON REL LCL NOSHR NOEXE RD WRT LONG Total Space Allocated 559 ENTRY POINTS Address Type Name 0-00000000 AXPLOT_START VARIABLES Address Type Name Address Type Name Address Type Name AP-00000004@ CHAR DESCRIPT AP-00000008@ I*4 GRAPHICS_ID ** I*4 STATUS_P FUNCTIONS AND SUBROUTINES REFERENCED Type Name Type Name Type Name Type Name Type Name LIB$SIGNAL I*4 LIO$ATTACH I*4 LIO$SET_I I*4 LIO$SET_R I*4 LIO$SET_S 20-Nov-1990 18:09:52 VAX FORTRAN V5.4-79 Page 8 14-Jul-1988 19:37:36 LIB4:[ADDASYS.SOURCE]ADDA_PLOT.FOR;3 0002 SUBROUTINE PLOTDATA( DAR, NUM, GRAPHICS_ID ) 0003 C 0004 C *********************************** 0005 C 0006 C PURPOSE: TO SEND DATA TO GRAPHICS DEVICE. 0007 C 0008 C 0009 INTEGER*4 GRAPHICS_ID, STATUS_P, GRPH_SIZE 0010 INTEGER*2 DAR(NUM) 0011 REAL*4 GRPH(240) 0012 C 0013 INCLUDE 'SYS$LIBRARY:LIOSET.FOR' !get LIO symbol definitions 0702 0703 C Translate buffer to floating point format 0704 0705 STATUS_P = lsp$format_translate_adc(dar,grph,num) 0706 if(.NOT.(STATUS_P)) call lib$signal( %val(STATUS_P)) 0707 0708 C Write buffer to graphics device 0709 C 0710 grph_size = num * 4 0711 C 0712 STATUS_P = lio$write(graphics_id, grph, grph_size,) 0713 if(.NOT.(STATUS_P)) call lib$signal( %val(STATUS_P)) 0714 C 0715 RETURN 0716 END PLOTDATA 20-Nov-1990 18:09:52 VAX FORTRAN V5.4-79 Page 9 01 14-Jul-1988 19:37:36 LIB4:[ADDASYS.SOURCE]ADDA_PLOT.FOR;3 PROGRAM SECTIONS Name Bytes Attributes 0 $CODE 96 PIC CON REL LCL SHR EXE RD NOWRT LONG 2 $LOCAL 1056 PIC CON REL LCL NOSHR NOEXE RD WRT LONG Total Space Allocated 1152 ENTRY POINTS Address Type Name 0-00000000 PLOTDATA VARIABLES Address Type Name Address Type Name Address Type Name Address Type Name AP-0000000C@ I*4 GRAPHICS_ID 2-000003C0 I*4 GRPH_SIZE AP-00000008@ I*4 NUM ** I*4 STATUS_P ARRAYS Address Type Name Bytes Dimensions AP-00000004@ I*2 DAR ** (*) 2-00000000 R*4 GRPH 960 (240) FUNCTIONS AND SUBROUTINES REFERENCED Type Name Type Name Type Name LIB$SIGNAL I*4 LIO$WRITE I*4 LSP$FORMAT_TRANSLATE_ADC 20-Nov-1990 18:09:52 VAX FORTRAN V5.4-79 Page 10 14-Jul-1988 19:37:36 LIB4:[ADDASYS.SOURCE]ADDA_PLOT.FOR;3 0002 SUBROUTINE AXPLOT_STOP( graphics_id ) 0003 C 0004 C****************************************** 0005 C 0006 C PURPOSE: TO DETACH GRAPHICS DEVICE FROM PROGRAM. 0007 C 0008 C 0009 INTEGER*4 GRAPHICS_ID, STATUS_P 0010 C 0011 INCLUDE 'SYS$LIBRARY:LIOSET.FOR' !get LIO symbol definitions 0700 C 0701 STATUS_P = lio$detach(graphics_id, ) 0702 if(.NOT.(STATUS_P)) call lib$signal( %val(STATUS_P)) 0703 C 0704 RETURN 0705 END PROGRAM SECTIONS Name Bytes Attributes 0 $CODE 37 PIC CON REL LCL SHR EXE RD NOWRT LONG 2 $LOCAL 20 PIC CON REL LCL NOSHR NOEXE RD WRT LONG Total Space Allocated 57 ENTRY POINTS Address Type Name 0-00000000 AXPLOT_STOP VARIABLES Address Type Name Address Type Name AP-00000004@ I*4 GRAPHICS_ID ** I*4 STATUS_P FUNCTIONS AND SUBROUTINES REFERENCED Type Name Type Name LIB$SIGNAL I*4 LIO$DETACH 20-Nov-1990 18:09:52 VAX FORTRAN V5.4-79 Page 11 14-Jul-1988 19:37:36 LIB4:[ADDASYS.SOURCE]ADDA_PLOT.FOR;3 0002 SUBROUTINE GETCURDATA( IDV, DAR, NUM, ICHN, TIME ) 0003 C 0004 C********************************************** 0005 C 0006 C PURPOSE: TO OBTAIN AN INITIAL SET OF DATA POINTS TO PLOT. 0007 C 0008 C 0009 INTEGER*4 NUM, IDV, ICHN, TIME 0010 INTEGER*2 DAR(240) 0011 C 0012 C ** INCLUDE THE DATABASE DEFINITION. 0013 C 0014 INCLUDE 'LIB4:[ADDASYS.SOURCE]ADDA_DATA_SHR.INC' 0156 C 0157 NUM = 0 0158 C 0159 C ** CHECK WHICH DEVICE WE ARE USING FOR THIS TEST. 0160 C 0161 IF (IDV .EQ. 1) THEN 0162 C 0163 C ** FIND THE CURRENT POSITION OF THE DATA POINTERS 0164 C 0165 LOC_PNTR = AD1_PNTR 0166 LOC_ARRY = CUR_PNTR1 0167 C 0168 C ** IF IN THE FIRST ARRAY, THEN GET ITS CONTENTS AND PASS IT BACK 0169 C 0170 IF ((LOC_ARRY .EQ. 1) .AND. (LOC_PNTR .NE. 0)) THEN 0171 DO II = 1,LOC_PNTR 0172 DAR(II) = AD1_DATA1(II,ICHN) 0173 NUM = NUM + 1 0174 ENDDO 0175 TIME = AD1_TIME1(LOC_PNTR) 0176 C 0177 C ** IF IN THE SECOND ARRAY, THEN GET ITS CONTENTS AND PASS IT BACK 0178 C 0179 ELSE IF ((LOC_ARRY .EQ. 2) .AND. (LOC_PNTR .NE. 0)) THEN 0180 DO II = 1,LOC_PNTR 0181 DAR(II) = AD1_DATA2(II,ICHN) 0182 NUM = NUM + 1 0183 ENDDO 0184 TIME = AD1_TIME2(LOC_PNTR) 0185 ENDIF 0186 C 0187 C ** ASSUME ITS THE OTHER DEVICE. 0188 C 0189 ELSE 0190 C 0191 C ** GET THE CURRENT POINTERS FOR THIS DEVICE. 0192 C 0193 LOC_PNTR = AD2_PNTR 0194 LOC_ARRY = CUR_PNTR2 0195 C 0196 C ** IF IN THE FIRST ARRAY, THEN GET ITS CONTENTS AND PASS IT BACK 0197 C 0198 IF ((LOC_ARRY .EQ. 1) .AND. (LOC_PNTR .NE. 0)) THEN GETCURDATA 20-Nov-1990 18:09:52 VAX FORTRAN V5.4-79 Page 12 14-Jul-1988 19:37:36 LIB4:[ADDASYS.SOURCE]ADDA_PLOT.FOR;3 0199 DO II = 1,LOC_PNTR 0200 DAR(II) = AD2_DATA1(II,ICHN) 0201 NUM = NUM + 1 0202 ENDDO 0203 TIME = AD2_TIME1(LOC_PNTR) 0204 C 0205 C ** IF IN THE SECOND ARRAY, THEN GET ITS CONTENTS AND PASS IT BACK 0206 C 0207 ELSE IF ((LOC_ARRY .EQ. 2) .AND. (LOC_PNTR .NE. 0)) THEN 0208 DO II = 1,LOC_PNTR 0209 DAR(II) = AD2_DATA2(II,ICHN) 0210 NUM = NUM + 1 0211 ENDDO 0212 TIME = AD2_TIME2(LOC_PNTR) 0213 ENDIF 0214 C 0215 ENDIF 0216 C 0217 RETURN 0218 END PROGRAM SECTIONS Name Bytes Attributes 0 $CODE 329 PIC CON REL LCL SHR EXE RD NOWRT LONG 2 $LOCAL 36 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 29341 ENTRY POINTS Address Type Name 0-00000000 GETCURDATA 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 AP-00000010@ I*4 ICHN AP-00000004@ I*4 IDV ** I*4 II ** I*4 LOC_ARRY ** I*4 LOC_PNTR 7-00000014 I*4 NEWOPT AP-0000000C@ I*4 NUM 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 AP-00000014@ I*4 TIME 6-00000004 L*4 USE_LOGICAL1 6-0000000C L*4 USE_LOGICAL2 4-000010E4 L*4 USE_LOGICAL8 4-000021CC L*4 USE_LOGICAL9 GETCURDATA 20-Nov-1990 18:09:52 VAX FORTRAN V5.4-79 Page 13 01 14-Jul-1988 19:37:36 LIB4:[ADDASYS.SOURCE]ADDA_PLOT.FOR;3 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) AP-00000008@ I*2 DAR 480 (240) 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) COMMAND QUALIFIERS FOR/LIS/EXTEND ADDA_PLOT /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_PLOT.LIS;22 /OBJECT=LIB4:[ADDASYS.SOURCE]ADDA_PLOT.OBJ;1 COMPILATION STATISTICS Run Time: 17.22 seconds Elapsed Time: 19.58 seconds Page Faults: 1165 Dynamic Memory: 540 pages