
                                                                20-Nov-1990 18:10:26	VAX FORTRAN V5.4-79                 Page   1
                                                                14-Jul-1988 19:37:39	LIB4:[ADDASYS.SOURCE]ADDA_PUSHDA.FOR;3      

0001    	PROGRAM    ADDA_PUSHDA
0002    C
0003    C **************************************************************************
0004    C **  PROGRAM AUTHOR:       WILLIAM BAKER
0005    C 
0006    C **  PROGRAM DESCRIPTION:  PLACES A DATA POINT INTO THE ARRAY FOR THE
0007    C **                        D/A OUTPUT CHANNELS.
0008    C
0009    C **  ADDA_PUSHDA
0010    C     -----------------------
0011    C
0012    C **  DEFINE VARIABLES NEEDED BY LOCAL PROGRAM.
0013    C
0014    	INTEGER*2	IVALUE
0015    	CHARACTER*5	AD_IN
0016    	INTEGER*4	LEN_AD, IDEV, ICHN
0017    C
0018    C **  GETS THE DEVICE NUMBER TO PLACE IN THE D/A CHANNEL BUFFER.
0019    C
0020    	CALL LIB$GET_FOREIGN(AD_IN,'Value to Send?  ',LEN_AD)
0021    	CALL STR$TRIM(AD_IN, AD_IN(1:LEN_AD), LEN_AD)
0022    C
0023    C **  DECODES THE INTEGER STRING TO AN INTEGER VARIABLE.
0024    C
0025    	DECODE(LEN_AD,250,AD_IN) IVALUE
0026    250	FORMAT(I<LEN_AD>)
0027    C
0028    C **  OPENS A TEMPORARY FILE WHICH CONTAINS INFORMATION ON WHERE
0029    C **  DATA INPUT WILL BE PLACED FOR D/A OUTPUT.
0030    C
0031    	OPEN( UNIT = 11, FILE='DA_CONFIG', FORM='FORMATTED',
0032         &		STATUS = 'OLD', CARRIAGECONTROL = 'LIST' )
0033    C
0034    C **  READS DATA NEEDED TO POST INTEGER VOLTAGE INPUT ON COMMAND LINE.
0035    C
0036    	READ(11,200) IDEV, ICHN
0037    200	FORMAT(I1,I2)
0038    C
0039    C **  CLOSES THE DATA FILE.
0040    C
0041    	CLOSE(11)
0042    C
0043    C **  TELLS USER WHAT IT IS DOING WITH DATA PROVIDED.
0044    C
0045    	TYPE *, '  '
0046    	TYPE *, '  '
0047    	TYPE *, '		PLACING A VALUE OF:  ',IVALUE
0048    	TYPE *, '  '
0049    	TYPE *, '		ONTO DEVICE NUMBER:  ',IDV
0050    	TYPE *, '  '
0051    	TYPE *, '		AND CHANNEL NUMBER:  ',ICHN
0052    	TYPE *, '  '
0053    	TYPE *, '  '
0054    	TYPE *, '  '
0055    	TYPE *, '  '
0056    C
0057    C **  CALLS USER LIBRARY ROUTINE TO PLACE DATA ON PROPER BUFFER.

ADDA_PUSHDA                                                     20-Nov-1990 18:10:26	VAX FORTRAN V5.4-79                 Page   2
                                                                14-Jul-1988 19:37:39	LIB4:[ADDASYS.SOURCE]ADDA_PUSHDA.FOR;3      

0058    C
0059    	CALL PUSHDA( IDEV, ICHN, IVALUE )
0060    C
0061    	END




PROGRAM SECTIONS

    Name				 Bytes   Attributes

  0 $CODE                                  488   PIC CON REL LCL   SHR   EXE   RD NOWRT LONG
  1 $PDATA                                 110   PIC CON REL LCL   SHR NOEXE   RD NOWRT LONG
  2 $LOCAL                                 232   PIC CON REL LCL NOSHR NOEXE   RD   WRT LONG

    Total Space Allocated                  830


ENTRY POINTS

    Address  Type  Name          

  0-00000000       ADDA_PUSHDA   


VARIABLES

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

  2-00000000  CHAR AD_IN           2-00000010  I*4  ICHN            2-0000000C  I*4  IDEV            2-00000014  I*4  IDV           
  2-00000006  I*2  IVALUE          2-00000008  I*4  LEN_AD        


LABELS

    Address   Label       Address   Label   

  1-00000069  200'      1-00000062  250'    


FUNCTIONS AND SUBROUTINES REFERENCED

  Type  Name                              Type  Name                              Type  Name                            

        FOR$CLOSE                               FOR$OPEN                                LIB$GET_FOREIGN                 
        PUSHDA                                  STR$TRIM                        

ADDA_PUSHDA                                                     20-Nov-1990 18:10:26	VAX FORTRAN V5.4-79                 Page   3
01                                                              14-Jul-1988 19:37:39	LIB4:[ADDASYS.SOURCE]ADDA_PUSHDA.FOR;3      

COMMAND QUALIFIERS

  FOR/LIS/EXTEND ADDA_PUSHDA

  /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_PUSHDA.LIS;22                                                             
  /OBJECT=LIB4:[ADDASYS.SOURCE]ADDA_PUSHDA.OBJ;1                                                              


COMPILATION STATISTICS

  Run Time:           1.63 seconds
  Elapsed Time:       2.78 seconds
  Page Faults:        655
  Dynamic Memory:     472 pages
