
                                                                28-May-1991 22:23:08	VAX FORTRAN V5.4-79                 Page   1
                                                                28-May-1991 22:20:16	DEPT:[EDMUNDS.SPARE_2]SECOND_1.FOR;2        

0001          PROGRAM Test_Call
0002     
0003    C       *****   Program to Test Calling a Macro Routine   *****
0004    C       *****                         Rev.  27-MAY-1991   *****
0005     
0006    C     *****************************************
0007    C          DEFINE ALL VARIABLES AND ARRAYS
0008    C     *****************************************
0009     
0010          IMPLICIT NONE
0011     
0012          INTEGER*4  TestInteger,ReturnInteger
0013     
0014     
0015    C     **********************************************************************
0016    C        Advertize what this program is and get an "integer" to work with.
0017    C     **********************************************************************
0018     
0019          WRITE ( 6, 30 )
0020       30 FORMAT (                                             /////
0021         &           '  ****************************************** '/
0022         &           '  *                                        * '/
0023         &           '  *    This program is the framework to    * '/
0024         &           '  *      test calling a MACRO routine      * '/
0025         &           '  *              from FORTRAN              * '/
0026         &           '  *                                        * '/
0027         &           '  *    Revision              27-MAY-1991   * '/
0028         &           '  ****************************************** '// )
0029     
0030       40 WRITE ( 6, 50 )
0031       50 FORMAT ( //
0032         &   '  To QUIT this program Enter a negative number      ', /
0033         &   '  or else,                                          ', /
0034         &   '  Enter  a decimal number between 0 and 127.        ', $ )
0035     
0036          READ ( 5, 55 ) TestInteger
0037       55 FORMAT ( I4 )
0038     
0039          IF ( TestInteger .LT. 0 )     THEN
0040            GOTO 998
0041          END IF
0042     
0043          WRITE ( 6, 60 ) TestInteger
0044       60 FORMAT ( //  '  The input integer is:  ', I4 )
0045     
0046     
0047    C     **********************************************************************
0048    C        Now call the SubRoutine
0049    C     **********************************************************************
0050     
0051          CALL  TestRoutine (TestInteger,ReturnInteger)
0052     
0053    C     **********************************************************************
0054    C        Now show the result of the SubRoutine
0055    C     **********************************************************************
0056     
0057          WRITE ( 6, 80 ) ReturnInteger

TEST_CALL                                                       28-May-1991 22:23:08	VAX FORTRAN V5.4-79                 Page   2
                                                                28-May-1991 22:20:16	DEPT:[EDMUNDS.SPARE_2]SECOND_1.FOR;2        

0058       80 FORMAT ( //  '  The Returned Integer is:  ', I4 )
0059     
0060          GOTO  40
0061     
0062      998 STOP '  '
0063     
0064          END

TEST_CALL                                                       28-May-1991 22:23:08	VAX FORTRAN V5.4-79                 Page   3
01                                                              28-May-1991 22:20:16	DEPT:[EDMUNDS.SPARE_2]SECOND_1.FOR;2        

		.TITLE	TEST_CALL
		.IDENT	01

    0000	.PSECT	$PDATA
    0000	.XBYTE	20,20
    0002  .30:
    0002	.XBYTE	05,05,05,05,05,0F,2D,20,20,2A,2A,2A,2A,2A,2A,2A
    0012	.XBYTE	2A,2A,2A,2A,2A,2A,2A,2A,2A,2A,2A,2A,2A,2A,2A,2A
    0022	.XBYTE	2A,2A,2A,2A,2A,2A,2A,2A,2A,2A,2A,2A,2A,2A,2A,2A
    0032	.XBYTE	2A,2A,2A,20,05,0F,2D,20,20,2A,20,20,20,20,20,20
    0042	.XBYTE	20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20
    0052	.XBYTE	20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20
    0062	.XBYTE	20,20,2A,20,05,0F,2D,20,20,2A,20,20,20,20,54,68
    0072	.XBYTE	69,73,20,70,72,6F,67,72,61,6D,20,69,73,20,74,68
    0082	.XBYTE	65,20,66,72,61,6D,65,77,6F,72,6B,20,74,6F,20,20
    0092	.XBYTE	20,20,2A,20,05,0F,2D,20,20,2A,20,20,20,20,20,20
    00A2	.XBYTE	74,65,73,74,20,63,61,6C,6C,69,6E,67,20,61,20,4D
    00B2	.XBYTE	41,43,52,4F,20,72,6F,75,74,69,6E,65,20,20,20,20
    00C2	.XBYTE	20,20,2A,20,05,0F,2D,20,20,2A,20,20,20,20,20,20
    00D2	.XBYTE	20,20,20,20,20,20,20,20,66,72,6F,6D,20,46,4F,52
    00E2	.XBYTE	54,52,41,4E,20,20,20,20,20,20,20,20,20,20,20,20
    00F2	.XBYTE	20,20,2A,20,05,0F,2D,20,20,2A,20,20,20,20,20,20
    0102	.XBYTE	20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20
    0112	.XBYTE	20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20
    0122	.XBYTE	20,20,2A,20,05,0F,2D,20,20,2A,20,20,20,20,52,65
    0132	.XBYTE	76,69,73,69,6F,6E,20,20,20,20,20,20,20,20,20,20
    0142	.XBYTE	20,20,20,20,32,37,2D,4D,41,59,2D,31,39,39,31,20
    0152	.XBYTE	20,20,2A,20,05,0F,2D,20,20,2A,2A,2A,2A,2A,2A,2A
    0162	.XBYTE	2A,2A,2A,2A,2A,2A,2A,2A,2A,2A,2A,2A,2A,2A,2A,2A
    0172	.XBYTE	2A,2A,2A,2A,2A,2A,2A,2A,2A,2A,2A,2A,2A,2A,2A,2A
    0182	.XBYTE	2A,2A,2A,20,05,05,04
    0189  .50:
    0189	.XBYTE	05,05,0F,34,20,20,54,6F,20,51,55,49,54,20,74,68
    0199	.XBYTE	69,73,20,70,72,6F,67,72,61,6D,20,45,6E,74,65,72
    01A9	.XBYTE	20,61,20,6E,65,67,61,74,69,76,65,20,6E,75,6D,62
    01B9	.XBYTE	65,72,20,20,20,20,20,20,05,0F,34,20,20,6F,72,20
    01C9	.XBYTE	65,6C,73,65,2C,20,20,20,20,20,20,20,20,20,20,20
    01D9	.XBYTE	20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20
    01E9	.XBYTE	20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,05
    01F9	.XBYTE	0F,34,20,20,45,6E,74,65,72,20,20,61,20,64,65,63
    0209	.XBYTE	69,6D,61,6C,20,6E,75,6D,62,65,72,20,62,65,74,77
    0219	.XBYTE	65,65,6E,20,30,20,61,6E,64,20,31,32,37,2E,20,20
    0229	.XBYTE	20,20,20,20,20,20,06,04
    0231  .55:
    0231	.XBYTE	18,04,04
    0234  .60:
    0234	.XBYTE	05,05,0F,19,20,20,54,68,65,20,69,6E,70,75,74,20
    0244	.XBYTE	69,6E,74,65,67,65,72,20,69,73,3A,20,20,18,04,04
    0254  .80:
    0254	.XBYTE	05,05,0F,1C,20,20,54,68,65,20,52,65,74,75,72,6E
    0264	.XBYTE	65,64,20,49,6E,74,65,67,65,72,20,69,73,3A,20,20
    0274	.XBYTE	18,04,04

    0008	.PSECT	$LOCAL
    0008	.LONG	^X00000002
    000C	.ADDR	TESTINTEGER
    0010	.ADDR	RETURNINTEGER

TEST_CALL                                                       28-May-1991 22:23:08	VAX FORTRAN V5.4-79                 Page   4
01                                                              28-May-1991 22:20:16	DEPT:[EDMUNDS.SPARE_2]SECOND_1.FOR;2        

    0014	.LONG	^X010E0002
    0018	.ADDR	$PDATA

    0000	.PSECT	$CODE
									    ; 0001
    0000  TEST_CALL::
    0000	.WORD	^M<IV,R11>
    0002	MOVAL	$LOCAL, R11
									    ; 0019
    0009	PUSHAL	.30
    000F	PUSHL	#6
    0011	CALLS	#2, FOR$WRITE_SF
    0018	CALLS	#0, FOR$IO_END
    001F	NOP
    0020  .40:
									    ; 0030
    0020	PUSHAL	.50
    0026	PUSHL	#6
    0028	CALLS	#2, FOR$WRITE_SF
    002F	CALLS	#0, FOR$IO_END
									    ; 0036
    0036	PUSHAL	.55
    003C	PUSHL	#5
    003E	CALLS	#2, FOR$READ_SF
    0045	PUSHAL	TESTINTEGER(R11)
    0047	CALLS	#1, FOR$IO_L_R
    004E	CALLS	#0, FOR$IO_END
									    ; 0039
    0055	TSTL	TESTINTEGER(R11)
    0057	BGEQ	L$1
									    ; 0062
    0059	PUSHAL	$LOCAL+^X14(R11)
    005C	CALLS	#1, FOR$STOP
									    ; 0041
    0063	NOP
    0064  L$1:
									    ; 0043
    0064	PUSHAL	.60
    006A	PUSHL	#6
    006C	CALLS	#2, FOR$WRITE_SF
    0073	PUSHL	TESTINTEGER(R11)
    0075	CALLS	#1, FOR$IO_L_V
    007C	CALLS	#0, FOR$IO_END
									    ; 0051
    0083	CALLG	$LOCAL+^X8(R11), TESTROUTINE
									    ; 0057
    008B	PUSHAL	.80
    0091	PUSHL	#6
    0093	CALLS	#2, FOR$WRITE_SF
    009A	PUSHL	RETURNINTEGER(R11)
    009D	CALLS	#1, FOR$IO_L_V
    00A4	CALLS	#0, FOR$IO_END
									    ; 0060
    00AB	BRW	.40
		.END

TEST_CALL                                                       28-May-1991 22:23:08	VAX FORTRAN V5.4-79                 Page   5
01                                                              28-May-1991 22:20:16	DEPT:[EDMUNDS.SPARE_2]SECOND_1.FOR;2        

PROGRAM SECTIONS

    Name				 Bytes   Attributes

  0 $CODE                                  174   PIC CON REL LCL   SHR   EXE   RD NOWRT LONG
  1 $PDATA                                 631   PIC CON REL LCL   SHR NOEXE   RD NOWRT LONG
  2 $LOCAL                                  28   PIC CON REL LCL NOSHR NOEXE   RD   WRT LONG

    Total Space Allocated                  833


ENTRY POINTS

    Address  Type  Name          

  0-00000000       TEST_CALL     


VARIABLES

    Address  Type  Name              Address  Type  Name          

  2-00000004  I*4  RETURNINTEGER   2-00000000  I*4  TESTINTEGER   


LABELS

    Address   Label       Address   Label       Address   Label       Address   Label       Address   Label       Address   Label   

  1-00000002  30'       0-00000020  40        1-00000189  50'       1-00000231  55'       1-00000234  60'       1-00000254  80'     
      **      998     


FUNCTIONS AND SUBROUTINES REFERENCED

  Type  Name          

        TESTROUTINE   

                                                                28-May-1991 22:23:08	VAX FORTRAN V5.4-79                 Page   6
                                                                28-May-1991 22:20:16	DEPT:[EDMUNDS.SPARE_2]SECOND_1.FOR;2        

0001     


COMMAND QUALIFIERS

  FORTRAN/LIST/MACHINE_CODE SECOND_1

  /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  /NOEXTEND_SOURCE
  /F77  /NOG_FLOATING  /I4  /MACHINE_CODE  /OPTIMIZE  /NOPARALLEL
  /NOANALYSIS_DATA
  /NODIAGNOSTICS
  /LIST=DEPT:[EDMUNDS.SPARE_2]SECOND_1.LIS;1                                                                
  /OBJECT=DEPT:[EDMUNDS.SPARE_2]SECOND_1.OBJ;1                                                                


COMPILATION STATISTICS

  Run Time:           0.22 seconds
  Elapsed Time:       0.88 seconds
  Page Faults:        206
  Dynamic Memory:     472 pages
