

                22-Aug-1978 02:33:55	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 1   

					SYNTX.FOR.2         



        C

        C

        C	SYNTX  --   SYNTAX ANALYZER FOR FILE NAMES

        C

        C

        C

        C	COPYRIGHT (C) 1976,1977

        C	DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

        C

        C	THIS SOFTWARE IS FURNISHED UNDER  A LICENSE FOR USE ONLY  ON  A

        C	SINGLE COMPUTER SYSTEM AND MAY BE  COPIED ONLY WITH  THE INCLU-

        C	SION OF  THE  ABOVE  COPYRIGHT NOTICE.  THIS SOFTWARE,  OR  ANY

        C	OTHER COPIES THEREOF, MAY NOT BE  PROVIDED  OR  OTHERWISE  MADE

        C	AVAILABLE TO ANY OTHER PERSON EXCEPT  FOR  USE  ON  SUCH SYSTEM

        C	AND TO  ONE WHO AGREES  TO  THESE LICENSE  TERMS.  TITLE TO AND

        C	OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC.

        C

        C	THE INFORMATION IN THIS SOFTWARE  IS  SUBJECT TO CHANGE WITHOUT

        C	NOTICE AND SHOULD NOT BE CONSTRUED  AS  A COMMITMENT BY DIGITAL

        C	EQUIPMENT CORPORATION.

        C

        C	DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS

        C	SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.

        C

        C

        C	K.D. MORSE  26-SEP-1977

        C

        C

        C

        C	THIS SUBROUTINE ANALYSES THE SYNTX OF A FILE SPECIFICATION.

        C			T.B.S.

        C

        C

        C  MODIFICATIONS:

        C

        C

        C NO.		DATE		PROGRAMMER		PURPOSE

        C ---		----		----------		-------

        C

0001    	SUBROUTINE SYNTX(NAME,LENGTH,ERRCOD)

0002    	INTEGER ERRCOD

0003    	BYTE NAME(1)

0004    	LENGTH=1

0005    	RETURN

0006    	END



SYNTX           22-Aug-1978 02:33:55	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 2   

					SYNTX.FOR.2         



PROGRAM SECTIONS



    Name                 Bytes   Attributes



  0 $CODE                   25   PIC CON REL LCL   SHR   EXE   RD NOWRT LONG

  2 $LOCAL                  20   PIC CON REL LCL NOSHR NOEXE   RD   WRT LONG





ENTRY POINTS



    Address  Type Name           



  0-00000000      SYNTX          





VARIABLES



    Address  Type Name               Address  Type Name           



 AP-0000000C@ I*2 ERRCOD          AP-00000008@ I*2 LENGTH         





ARRAYS



    Address  Type Name		       Bytes  Dimensions



 AP-00000004@ L*1 NAME                     1  (1)





Total Space Allocated = 45 Bytes





COMPILER OPTIONS



/CHECK=(NOBOUNDS,OVERFLOW)

/DEBUG=(NOSYMBOLS,TRACEBACK)

/OPTIMIZE  /WARNINGS  /NOI4  /NOD_LINES  

