

                21-Aug-1978 21:29:33	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 1   

					SYSMSG.FOR.49       



0001    	PROGRAM SYSMSG

        C MAIN PROGRAM FOR MESSAGE UTILITY

        C

        C THIS PROGRAM BUILDS THE FILE MESSAGES.SYS FOR USE BY THE

        C $GETMSG SYSTEM SERVICE AND THE OBJECT FILES CONTAINING

        C THE GLOBAL DEFINITIONS OF THE MESSAGE IDENTIFIERS.

        C

        C THIS PROGRAM ACCEPTS ITS INPUT IN AN MDL LIKE LANGUAGE

        C AND CAN EXPAND THE MDL C CONSTRUCT TO SIMPLIFY PROVIDING

        C THE APPROPRIATE INPUT TO MAKE THE $GETMSG SYSTEM

        C SERVICE WORK AND PROVIDE THE GLOBAL DEFINITIONS FOR THE

        C MESSAGE CODES (ID'S).

         

0002    	INCLUDE 'SRC$:NDATACOM.FOR'

0003 *  	IMPLICIT INTEGER*4 (A-Z)

0004 *  	PARAMETER FILSIZ=204800

0005 *  	LOGICAL*1 LINE(132),NAME(17),DEFAULT(17),PREFIX(17),IDNSTR(17)

0006 *  	LOGICAL*1 FSPEC(80)

0007 *  	INTEGER*4 IDS(20000)

0008 *  	INTEGER*4 LWORDS(FILSIZ/4)

0009 *  	INTEGER*2 WORDS(FILSIZ/2)

0010 *  	LOGICAL*1 BYTES(FILSIZ)

0011 *  	LOGICAL*1 IDFLAG,OUTFLAG

0012 *  	INTEGER*4 INDEX2(128,50)

0013 *  	INTEGER*4 INDEX1(125)

0014 *  	COMMON /TEXT/ LINE,PREFIX,DEFAULT,NAME,IDNSTR,FSPEC

0015 *  	COMMON /VARS/ NUM,COL,INDEX,PASS,TPTR,CODE,ERRCNT,BINVAL,

     *  	1 SIZIDX,SIZSUBS

0016 *  	COMMON /LOGVAR/ IDFLAG,OUTFLAG

0017 *  	COMMON /IDS/ IDS

0018 *  	COMMON /MAPPED/ LWORDS

0019 *  	EQUIVALENCE (LWORDS,WORDS,BYTES)

0020 *  	EQUIVALENCE (LANGTAB,LWORDS(1))

0021 *  	EQUIVALENCE (SUBPTR,LWORDS(2))

0022 *  	EQUIVALENCE (INDEX1,LWORDS(3))

0023 *  	EQUIVALENCE (INDEX2,LWORDS(129))

0024    	LOGICAL*1 GETNUM,GETIDENT,IDENT,UNBLNK,GETLIN,NEXTFILE

         

        C START BY PROCESSING THE SYSTEM WIDE MESSAGES AND CODES

        C THIS INCLUDES ALL THE SS$_ CODES AND THEIR MESSAGES AND

        C WHATEVER OTHER 'SYSTEM WIDE' ERRORS THAT ARE PROVIDED.

        C THE INPUT FILE IS SYSMSG.MSG AND ITS CORRESPONDING OUTPUT

        C IS SYSMSG.OBJ.

         

        C THIS OPENS THE NAMED FILE AS SEQUENTIAL INPUT ON UNIT 1

         

0025    	PASS=1

0026    	INDEX=0

0027    	LANGTAB=0

0028    	IDFLAG=.TRUE.

0029    50	CALL SETUPFILE

0030    	ERRCNT=0

         

0031    60	IF (NEXTFILE().EQ..FALSE.) GOTO 2000

0032    70	DEFAULT(1)=0

0033    	GOTO 100



SYSMSG          21-Aug-1978 21:29:33	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 2   

					SYSMSG.FOR.49       



         

0034    90	CALL ERROR(1,SYNTAX)

0035    100	IF (GETLIN().EQ..FALSE.) GOTO 60

0036    	IF (UNBLNK().EQ.';') GOTO 100

0037    	IF (GETIDENT().EQ..FALSE.) GOTO 90

0038    	IF (IDENT(%REF('$STRUCT'),NAME)) GOTO 200

0039    	IF (IDENT(%REF('C'),NAME)) GOTO 300

0040    	IF (IDENT(%REF('K'),NAME)) GOTO 300

0041    	IF (IDENT(%REF('V'),NAME)) GOTO 400

0042    	IF (IDENT(%REF('F'),NAME)) GOTO 100

0043    	IF (IDENT(%REF('S'),NAME)) GOTO 100

0044    	IF (IDENT(%REF('L'),NAME)) GOTO 100

0045    	IF (IDENT(%REF('M'),NAME)) GOTO 100

0046    	IF (IDENT(%REF('P'),NAME)) GOTO 100

0047    	GOTO 90

         

0048    200	CALL STRUCT

0049    	GOTO 70

         

0050    300	CALL EVALC

0051    	GOTO 100

         

0052    400	CALL SKIPV

0053    	GOTO 100

         

0054    2000	PASS=PASS+1

0055    	IF (PASS.EQ.3) GOTO 2100

0056    	CLOSE (UNIT=3)

0057    	TYPE 99,INDEX

0058    99	FORMAT(' %SYSMSG-I-number of messages in message file:',I5)

0059    	IDS(INDEX+1)=0

0060    	CALL SHELLSORT

        C	TYPE 98,(IDS(K),K=1,INDEX)

        C98	FORMAT(1X,I10)

0061    	CALL MAKINDX

0062    	SUBPTR=(SIZIDX+1)*512

0063    	CALL MAKSUBS

0064    	TPTR=(SIZIDX+1+SIZSUBS)*512+1

0065    	GOTO 50

0066    2100	OPEN (UNIT=1,NAME='EXE$:SYSMSG.MPF',TYPE='NEW',ACCESS='DIRECT',

        	1 RECORDSIZE=128)

0067    	SIZSUBS=SIZSUBS+SIZIDX

0068    	DO 2200 I=1,(TPTR+511)/512

        C	TYPE 97,I,TPTR

        C97	FORMAT(' BLOCK= ',I5,'  TOTAL BYTES =',I7)

0069    2200	WRITE(1'I) (LWORDS((I-1)*128+J),J=1,128)

0070    	TYPE 2299,ERRCNT

0071    2299	FORMAT(' %SYSMSG-I-errors detected:',I5)

0072    	CALL EXIT

0073    	END



SYSMSG          21-Aug-1978 21:29:33	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 3   

					SYSMSG.FOR.49       



PROGRAM SECTIONS



    Name                 Bytes   Attributes



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

  1 $PDATA                 127   PIC CON REL LCL   SHR NOEXE   RD NOWRT LONG

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

  3 TEXT                   280   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  4 VARS                    40   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  5 LOGVAR                   2   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  6 IDS                  80000   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  7 MAPPED              204800   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG





ENTRY POINTS



    Address  Type Name           



  0-00000000      SYSMSG         





VARIABLES



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



  4-0000001C  I*4 BINVAL           4-00000014  I*4 CODE             4-00000004  I*4 COL              4-00000018  I*4 ERRCNT         

  2-00000000  L*1 GETNUM           2-00000008  I*4 I                5-00000000  L*1 IDFLAG           4-00000008  I*4 INDEX          

  2-0000000C  I*4 J                7-00000000  I*4 LANGTAB          4-00000000  I*4 NUM              5-00000001  L*1 OUTFLAG        

  4-0000000C  I*4 PASS             4-00000020  I*4 SIZIDX           4-00000024  I*4 SIZSUBS          7-00000004  I*4 SUBPTR         

  2-00000004  I*4 SYNTAX           4-00000010  I*4 TPTR           





ARRAYS



    Address  Type Name		       Bytes  Dimensions



  7-00000000  L*1 BYTES               204800  (204800)

  3-00000095  L*1 DEFAULT                 17  (17)

  3-000000C8  L*1 FSPEC                   80  (80)

  3-000000B7  L*1 IDNSTR                  17  (17)

  6-00000000  I*4 IDS                  80000  (20000)

  7-00000008  I*4 INDEX1                 500  (125)

  7-00000200  I*4 INDEX2               25600  (128,50)

  3-00000000  L*1 LINE                   132  (132)

  7-00000000  I*4 LWORDS              204800  (51200)

  3-000000A6  L*1 NAME                    17  (17)

  3-00000084  L*1 PREFIX                  17  (17)

  7-00000000  I*2 WORDS               204800  (102400)





LABELS



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



  0-00000023  50        0-00000030  60        0-0000003F  70        0-00000047  90        1-0000002C  99'       0-0000004F  100     

  0-000000DE  200       0-000000E8  300       0-000000F2  400       0-000000FC  2000      0-00000178  2100          **      2200    



SYSMSG          21-Aug-1978 21:29:33	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 4   

					SYSMSG.FOR.49       



  1-0000005F  2299'   





FUNCTIONS AND SUBROUTINES REFERENCED



ERROR             EVALC             FOR$CLOSE         FOR$EXIT          FOR$OPEN          GETIDENT          GETLIN         

IDENT             MAKINDX           MAKSUBS           NEXTFILE          SETUPFILE         SHELLSORT         SKIPV          

STRUCT            UNBLNK         





Total Space Allocated = 285958 Bytes



                21-Aug-1978 21:29:40	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 5   

					SYSMSG.FOR.49       



         

0001    	SUBROUTINE CONCAT(STRNG1,STRNG2,STRNG3)

0002    	INCLUDE 'SRC$:NDATACOM.FOR'

0003 *  	IMPLICIT INTEGER*4 (A-Z)

0004 *  	PARAMETER FILSIZ=204800

0005 *  	LOGICAL*1 LINE(132),NAME(17),DEFAULT(17),PREFIX(17),IDNSTR(17)

0006 *  	LOGICAL*1 FSPEC(80)

0007 *  	INTEGER*4 IDS(20000)

0008 *  	INTEGER*4 LWORDS(FILSIZ/4)

0009 *  	INTEGER*2 WORDS(FILSIZ/2)

0010 *  	LOGICAL*1 BYTES(FILSIZ)

0011 *  	LOGICAL*1 IDFLAG,OUTFLAG

0012 *  	INTEGER*4 INDEX2(128,50)

0013 *  	INTEGER*4 INDEX1(125)

0014 *  	COMMON /TEXT/ LINE,PREFIX,DEFAULT,NAME,IDNSTR,FSPEC

0015 *  	COMMON /VARS/ NUM,COL,INDEX,PASS,TPTR,CODE,ERRCNT,BINVAL,

     *  	1 SIZIDX,SIZSUBS

0016 *  	COMMON /LOGVAR/ IDFLAG,OUTFLAG

0017 *  	COMMON /IDS/ IDS

0018 *  	COMMON /MAPPED/ LWORDS

0019 *  	EQUIVALENCE (LWORDS,WORDS,BYTES)

0020 *  	EQUIVALENCE (LANGTAB,LWORDS(1))

0021 *  	EQUIVALENCE (SUBPTR,LWORDS(2))

0022 *  	EQUIVALENCE (INDEX1,LWORDS(3))

0023 *  	EQUIVALENCE (INDEX2,LWORDS(129))

0024    	LOGICAL*1 STRNG1(100),STRNG2(100),STRNG3(100),STRNG4(100)

0025    	DO 100 I=1,99

0026    	STRNG4(I)=STRNG2(I)

0027    	IF (STRNG4(I).EQ.0) GOTO 200

0028    100	CONTINUE

0029    	CALL ERROR(2,TOOLONG)

0030    	GOTO 600

0031    200	DO 300 I=1,99

0032    	STRNG3(I)=STRNG1(I)

0033    	IF (STRNG3(I).EQ.0) GOTO 400

0034    300	CONTINUE

0035    	CALL ERROR(2,TOOLONG)

0036    	GOTO 600

0037    400	DO 500 J=1,99

0038    	STRNG3(I-1+J)=STRNG4(J)

0039    	IF (STRNG3(I-1+J).EQ.0) GOTO 600

0040    500	CONTINUE

0041    	CALL ERROR(2,TOOLONG)

0042    600	RETURN

0043    	END



CONCAT          21-Aug-1978 21:29:40	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 6   

					SYSMSG.FOR.49       



PROGRAM SECTIONS



    Name                 Bytes   Attributes



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

  1 $PDATA                   4   PIC CON REL LCL   SHR NOEXE   RD NOWRT LONG

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

  3 TEXT                   280   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  4 VARS                    40   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  5 LOGVAR                   2   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  6 IDS                  80000   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  7 MAPPED              204800   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG





ENTRY POINTS



    Address  Type Name           



  0-00000000      CONCAT         





VARIABLES



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



  4-0000001C  I*4 BINVAL           4-00000014  I*4 CODE             4-00000004  I*4 COL              4-00000018  I*4 ERRCNT         

  2-00000064  I*4 I                5-00000000  L*1 IDFLAG           4-00000008  I*4 INDEX            2-0000006C  I*4 J              

  7-00000000  I*4 LANGTAB          4-00000000  I*4 NUM              5-00000001  L*1 OUTFLAG          4-0000000C  I*4 PASS           

  4-00000020  I*4 SIZIDX           4-00000024  I*4 SIZSUBS          7-00000004  I*4 SUBPTR           2-00000068  I*4 TOOLONG        

  4-00000010  I*4 TPTR           





ARRAYS



    Address  Type Name		       Bytes  Dimensions



  7-00000000  L*1 BYTES               204800  (204800)

  3-00000095  L*1 DEFAULT                 17  (17)

  3-000000C8  L*1 FSPEC                   80  (80)

  3-000000B7  L*1 IDNSTR                  17  (17)

  6-00000000  I*4 IDS                  80000  (20000)

  7-00000008  I*4 INDEX1                 500  (125)

  7-00000200  I*4 INDEX2               25600  (128,50)

  3-00000000  L*1 LINE                   132  (132)

  7-00000000  I*4 LWORDS              204800  (51200)

  3-000000A6  L*1 NAME                    17  (17)

  3-00000084  L*1 PREFIX                  17  (17)

 AP-00000004@ L*1 STRNG1                 100  (100)

 AP-00000008@ L*1 STRNG2                 100  (100)

 AP-0000000C@ L*1 STRNG3                 100  (100)

  2-00000000  L*1 STRNG4                 100  (100)

  7-00000000  I*2 WORDS               204800  (102400)





LABELS





CONCAT          21-Aug-1978 21:29:40	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 7   

					SYSMSG.FOR.49       



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



      **      100       0-0000004E  200           **      300       0-00000075  400           **      500       0-000000A3  600     





FUNCTIONS AND SUBROUTINES REFERENCED



ERROR          





Total Space Allocated = 285474 Bytes



                21-Aug-1978 21:29:43	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 8   

					SYSMSG.FOR.49       



         

0001    	INTEGER FUNCTION LENGTH(STRNG)

0002    	INCLUDE 'SRC$:NDATACOM.FOR'

0003 *  	IMPLICIT INTEGER*4 (A-Z)

0004 *  	PARAMETER FILSIZ=204800

0005 *  	LOGICAL*1 LINE(132),NAME(17),DEFAULT(17),PREFIX(17),IDNSTR(17)

0006 *  	LOGICAL*1 FSPEC(80)

0007 *  	INTEGER*4 IDS(20000)

0008 *  	INTEGER*4 LWORDS(FILSIZ/4)

0009 *  	INTEGER*2 WORDS(FILSIZ/2)

0010 *  	LOGICAL*1 BYTES(FILSIZ)

0011 *  	LOGICAL*1 IDFLAG,OUTFLAG

0012 *  	INTEGER*4 INDEX2(128,50)

0013 *  	INTEGER*4 INDEX1(125)

0014 *  	COMMON /TEXT/ LINE,PREFIX,DEFAULT,NAME,IDNSTR,FSPEC

0015 *  	COMMON /VARS/ NUM,COL,INDEX,PASS,TPTR,CODE,ERRCNT,BINVAL,

     *  	1 SIZIDX,SIZSUBS

0016 *  	COMMON /LOGVAR/ IDFLAG,OUTFLAG

0017 *  	COMMON /IDS/ IDS

0018 *  	COMMON /MAPPED/ LWORDS

0019 *  	EQUIVALENCE (LWORDS,WORDS,BYTES)

0020 *  	EQUIVALENCE (LANGTAB,LWORDS(1))

0021 *  	EQUIVALENCE (SUBPTR,LWORDS(2))

0022 *  	EQUIVALENCE (INDEX1,LWORDS(3))

0023 *  	EQUIVALENCE (INDEX2,LWORDS(129))

0024    	LOGICAL*1 STRNG(100)

0025    	DO 100 LENGTH=1,100

0026    	IF (STRNG(LENGTH).EQ.0) GOTO 200

0027    100	CONTINUE

0028    	CALL ERROR(2,TOOLONG)

0029    200	LENGTH=LENGTH-1

0030    	RETURN

0031    	END



LENGTH          21-Aug-1978 21:29:43	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 9   

					SYSMSG.FOR.49       



PROGRAM SECTIONS



    Name                 Bytes   Attributes



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

  1 $PDATA                   4   PIC CON REL LCL   SHR NOEXE   RD NOWRT LONG

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

  3 TEXT                   280   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  4 VARS                    40   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  5 LOGVAR                   2   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  6 IDS                  80000   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  7 MAPPED              204800   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG





ENTRY POINTS



    Address  Type Name           



  0-00000000  I*4 LENGTH         





VARIABLES



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



  4-0000001C  I*4 BINVAL           4-00000014  I*4 CODE             4-00000004  I*4 COL              4-00000018  I*4 ERRCNT         

  5-00000000  L*1 IDFLAG           4-00000008  I*4 INDEX            7-00000000  I*4 LANGTAB          4-00000000  I*4 NUM            

  5-00000001  L*1 OUTFLAG          4-0000000C  I*4 PASS             4-00000020  I*4 SIZIDX           4-00000024  I*4 SIZSUBS        

  7-00000004  I*4 SUBPTR           2-00000004  I*4 TOOLONG          4-00000010  I*4 TPTR           





ARRAYS



    Address  Type Name		       Bytes  Dimensions



  7-00000000  L*1 BYTES               204800  (204800)

  3-00000095  L*1 DEFAULT                 17  (17)

  3-000000C8  L*1 FSPEC                   80  (80)

  3-000000B7  L*1 IDNSTR                  17  (17)

  6-00000000  I*4 IDS                  80000  (20000)

  7-00000008  I*4 INDEX1                 500  (125)

  7-00000200  I*4 INDEX2               25600  (128,50)

  3-00000000  L*1 LINE                   132  (132)

  7-00000000  I*4 LWORDS              204800  (51200)

  3-000000A6  L*1 NAME                    17  (17)

  3-00000084  L*1 PREFIX                  17  (17)

 AP-00000004@ L*1 STRNG                  100  (100)

  7-00000000  I*2 WORDS               204800  (102400)





LABELS



    Address   Label       Address   Label   



      **      100       0-00000036  200     





LENGTH          21-Aug-1978 21:29:43	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 10  

					SYSMSG.FOR.49       





FUNCTIONS AND SUBROUTINES REFERENCED



ERROR          





Total Space Allocated = 285228 Bytes



                21-Aug-1978 21:29:45	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 11  

					SYSMSG.FOR.49       



         

0001    	SUBROUTINE MOVNAM(STRNG1,STRNG2)

0002    	INCLUDE 'SRC$:NDATACOM.FOR'

0003 *  	IMPLICIT INTEGER*4 (A-Z)

0004 *  	PARAMETER FILSIZ=204800

0005 *  	LOGICAL*1 LINE(132),NAME(17),DEFAULT(17),PREFIX(17),IDNSTR(17)

0006 *  	LOGICAL*1 FSPEC(80)

0007 *  	INTEGER*4 IDS(20000)

0008 *  	INTEGER*4 LWORDS(FILSIZ/4)

0009 *  	INTEGER*2 WORDS(FILSIZ/2)

0010 *  	LOGICAL*1 BYTES(FILSIZ)

0011 *  	LOGICAL*1 IDFLAG,OUTFLAG

0012 *  	INTEGER*4 INDEX2(128,50)

0013 *  	INTEGER*4 INDEX1(125)

0014 *  	COMMON /TEXT/ LINE,PREFIX,DEFAULT,NAME,IDNSTR,FSPEC

0015 *  	COMMON /VARS/ NUM,COL,INDEX,PASS,TPTR,CODE,ERRCNT,BINVAL,

     *  	1 SIZIDX,SIZSUBS

0016 *  	COMMON /LOGVAR/ IDFLAG,OUTFLAG

0017 *  	COMMON /IDS/ IDS

0018 *  	COMMON /MAPPED/ LWORDS

0019 *  	EQUIVALENCE (LWORDS,WORDS,BYTES)

0020 *  	EQUIVALENCE (LANGTAB,LWORDS(1))

0021 *  	EQUIVALENCE (SUBPTR,LWORDS(2))

0022 *  	EQUIVALENCE (INDEX1,LWORDS(3))

0023 *  	EQUIVALENCE (INDEX2,LWORDS(129))

0024    	LOGICAL*1 STRNG1(100),STRNG2(100)

0025    	DO 100 I=1,100

0026    	STRNG2(I)=STRNG1(I)

0027    	IF (STRNG2(I).EQ.0) GOTO 200

0028    100	CONTINUE

0029    	CALL ERROR(2,TOOLONG)

0030    200	RETURN

0031    	END



MOVNAM          21-Aug-1978 21:29:45	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 12  

					SYSMSG.FOR.49       



PROGRAM SECTIONS



    Name                 Bytes   Attributes



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

  1 $PDATA                   4   PIC CON REL LCL   SHR NOEXE   RD NOWRT LONG

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

  3 TEXT                   280   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  4 VARS                    40   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  5 LOGVAR                   2   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  6 IDS                  80000   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  7 MAPPED              204800   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG





ENTRY POINTS



    Address  Type Name           



  0-00000000      MOVNAM         





VARIABLES



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



  4-0000001C  I*4 BINVAL           4-00000014  I*4 CODE             4-00000004  I*4 COL              4-00000018  I*4 ERRCNT         

  2-00000000  I*4 I                5-00000000  L*1 IDFLAG           4-00000008  I*4 INDEX            7-00000000  I*4 LANGTAB        

  4-00000000  I*4 NUM              5-00000001  L*1 OUTFLAG          4-0000000C  I*4 PASS             4-00000020  I*4 SIZIDX         

  4-00000024  I*4 SIZSUBS          7-00000004  I*4 SUBPTR           2-00000004  I*4 TOOLONG          4-00000010  I*4 TPTR           





ARRAYS



    Address  Type Name		       Bytes  Dimensions



  7-00000000  L*1 BYTES               204800  (204800)

  3-00000095  L*1 DEFAULT                 17  (17)

  3-000000C8  L*1 FSPEC                   80  (80)

  3-000000B7  L*1 IDNSTR                  17  (17)

  6-00000000  I*4 IDS                  80000  (20000)

  7-00000008  I*4 INDEX1                 500  (125)

  7-00000200  I*4 INDEX2               25600  (128,50)

  3-00000000  L*1 LINE                   132  (132)

  7-00000000  I*4 LWORDS              204800  (51200)

  3-000000A6  L*1 NAME                    17  (17)

  3-00000084  L*1 PREFIX                  17  (17)

 AP-00000004@ L*1 STRNG1                 100  (100)

 AP-00000008@ L*1 STRNG2                 100  (100)

  7-00000000  I*2 WORDS               204800  (102400)





LABELS



    Address   Label       Address   Label   



      **      100       0-00000044  200     



MOVNAM          21-Aug-1978 21:29:45	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 13  

					SYSMSG.FOR.49       







FUNCTIONS AND SUBROUTINES REFERENCED



ERROR          





Total Space Allocated = 285255 Bytes



                21-Aug-1978 21:29:47	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 14  

					SYSMSG.FOR.49       



         

0001    	LOGICAL FUNCTION GETNUM*1

0002    	INCLUDE 'SRC$:NDATACOM.FOR'

0003 *  	IMPLICIT INTEGER*4 (A-Z)

0004 *  	PARAMETER FILSIZ=204800

0005 *  	LOGICAL*1 LINE(132),NAME(17),DEFAULT(17),PREFIX(17),IDNSTR(17)

0006 *  	LOGICAL*1 FSPEC(80)

0007 *  	INTEGER*4 IDS(20000)

0008 *  	INTEGER*4 LWORDS(FILSIZ/4)

0009 *  	INTEGER*2 WORDS(FILSIZ/2)

0010 *  	LOGICAL*1 BYTES(FILSIZ)

0011 *  	LOGICAL*1 IDFLAG,OUTFLAG

0012 *  	INTEGER*4 INDEX2(128,50)

0013 *  	INTEGER*4 INDEX1(125)

0014 *  	COMMON /TEXT/ LINE,PREFIX,DEFAULT,NAME,IDNSTR,FSPEC

0015 *  	COMMON /VARS/ NUM,COL,INDEX,PASS,TPTR,CODE,ERRCNT,BINVAL,

     *  	1 SIZIDX,SIZSUBS

0016 *  	COMMON /LOGVAR/ IDFLAG,OUTFLAG

0017 *  	COMMON /IDS/ IDS

0018 *  	COMMON /MAPPED/ LWORDS

0019 *  	EQUIVALENCE (LWORDS,WORDS,BYTES)

0020 *  	EQUIVALENCE (LANGTAB,LWORDS(1))

0021 *  	EQUIVALENCE (SUBPTR,LWORDS(2))

0022 *  	EQUIVALENCE (INDEX1,LWORDS(3))

0023 *  	EQUIVALENCE (INDEX2,LWORDS(129))

0024    	LOGICAL*1 GETVAL

0025    	LOGICAL*1 BINOPS(8)

0026    	DATA BINOPS/'+','-','*','/','&','!','\','@'/

0027    	GETNUM=.FALSE.

0028    	NUM=0

0029    	IF (GETVAL().EQ..FALSE.) GOTO 300

0030    	GETNUM=.TRUE.

0031    	NUM=BINVAL

0032    100	DO 200 I=1,8

0033    	IF (LINE(COL).EQ.BINOPS(I)) GOTO 400

0034    200	CONTINUE

0035    300	RETURN

0036    400	COL=COL+1

0037    	IF (GETVAL().EQ..TRUE.) GOTO 500

0038    	CALL ERROR(3,MISSINGVALUE)

0039    	GOTO 300

0040    500	GOTO (610,620,630,640,650,660,670,680),I

0041    610	NUM=NUM+BINVAL

0042    	GOTO 100

0043    620	NUM=NUM-BINVAL

0044    	GOTO 100

0045    630	NUM=NUM*BINVAL

0046    	GOTO 100

0047    640	NUM=NUM/BINVAL

0048    	GOTO 100

0049    650	NUM=NUM.AND.BINVAL

0050    	GOTO 100

0051    660	NUM=NUM.OR.BINVAL

0052    	GOTO 100

0053    670	NUM=NUM.XOR.BINVAL

0054    	GOTO 100



GETNUM          21-Aug-1978 21:29:47	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 15  

					SYSMSG.FOR.49       



0055    680	NUM=NUM*2**BINVAL

0056    	GOTO 100

0057    	END



GETNUM          21-Aug-1978 21:29:47	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 16  

					SYSMSG.FOR.49       



PROGRAM SECTIONS



    Name                 Bytes   Attributes



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

  1 $PDATA                   4   PIC CON REL LCL   SHR NOEXE   RD NOWRT LONG

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

  3 TEXT                   280   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  4 VARS                    40   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  5 LOGVAR                   2   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  6 IDS                  80000   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  7 MAPPED              204800   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG





ENTRY POINTS



    Address  Type Name           



  0-00000000  L*1 GETNUM         





VARIABLES



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



  4-0000001C  I*4 BINVAL           4-00000014  I*4 CODE             4-00000004  I*4 COL              4-00000018  I*4 ERRCNT         

  2-0000000C  I*4 I                5-00000000  L*1 IDFLAG           4-00000008  I*4 INDEX            7-00000000  I*4 LANGTAB        

  2-00000010  I*4 MISSINGVALUE     4-00000000  I*4 NUM              5-00000001  L*1 OUTFLAG          4-0000000C  I*4 PASS           

  4-00000020  I*4 SIZIDX           4-00000024  I*4 SIZSUBS          7-00000004  I*4 SUBPTR           4-00000010  I*4 TPTR           





ARRAYS



    Address  Type Name		       Bytes  Dimensions



  2-00000000  L*1 BINOPS                   8  (8)

  7-00000000  L*1 BYTES               204800  (204800)

  3-00000095  L*1 DEFAULT                 17  (17)

  3-000000C8  L*1 FSPEC                   80  (80)

  3-000000B7  L*1 IDNSTR                  17  (17)

  6-00000000  I*4 IDS                  80000  (20000)

  7-00000008  I*4 INDEX1                 500  (125)

  7-00000200  I*4 INDEX2               25600  (128,50)

  3-00000000  L*1 LINE                   132  (132)

  7-00000000  I*4 LWORDS              204800  (51200)

  3-000000A6  L*1 NAME                    17  (17)

  3-00000084  L*1 PREFIX                  17  (17)

  7-00000000  I*2 WORDS               204800  (102400)





LABELS



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



  0-0000002D  100           **      200       0-0000004A  300       0-0000004F  400       0-0000006B  500       0-0000007F  610     

  0-0000008C  620       0-00000099  630       0-000000A6  640       0-000000B4  650       0-000000C5  660       0-000000D3  670     



GETNUM          21-Aug-1978 21:29:47	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 17  

					SYSMSG.FOR.49       



  0-000000E1  680     





FUNCTIONS AND SUBROUTINES REFERENCED



ERROR             GETVAL         





Total Space Allocated = 285416 Bytes



                21-Aug-1978 21:29:50	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 18  

					SYSMSG.FOR.49       



         

0001    	LOGICAL FUNCTION GETVAL*1

0002    	INCLUDE 'SRC$:NDATACOM.FOR'

0003 *  	IMPLICIT INTEGER*4 (A-Z)

0004 *  	PARAMETER FILSIZ=204800

0005 *  	LOGICAL*1 LINE(132),NAME(17),DEFAULT(17),PREFIX(17),IDNSTR(17)

0006 *  	LOGICAL*1 FSPEC(80)

0007 *  	INTEGER*4 IDS(20000)

0008 *  	INTEGER*4 LWORDS(FILSIZ/4)

0009 *  	INTEGER*2 WORDS(FILSIZ/2)

0010 *  	LOGICAL*1 BYTES(FILSIZ)

0011 *  	LOGICAL*1 IDFLAG,OUTFLAG

0012 *  	INTEGER*4 INDEX2(128,50)

0013 *  	INTEGER*4 INDEX1(125)

0014 *  	COMMON /TEXT/ LINE,PREFIX,DEFAULT,NAME,IDNSTR,FSPEC

0015 *  	COMMON /VARS/ NUM,COL,INDEX,PASS,TPTR,CODE,ERRCNT,BINVAL,

     *  	1 SIZIDX,SIZSUBS

0016 *  	COMMON /LOGVAR/ IDFLAG,OUTFLAG

0017 *  	COMMON /IDS/ IDS

0018 *  	COMMON /MAPPED/ LWORDS

0019 *  	EQUIVALENCE (LWORDS,WORDS,BYTES)

0020 *  	EQUIVALENCE (LANGTAB,LWORDS(1))

0021 *  	EQUIVALENCE (SUBPTR,LWORDS(2))

0022 *  	EQUIVALENCE (INDEX1,LWORDS(3))

0023 *  	EQUIVALENCE (INDEX2,LWORDS(129))

0024    	LOGICAL*1 UNBLNK,TMP

0025    	SIGN=0

0026    	BINVAL=0

0027    	GETVAL=.FALSE.

0028    	IF (UNBLNK().NE.'-') GOTO 100

0029    	SIGN=1

0030    	COL=COL+1

0031    100	IF (LINE(COL).NE.'^') GOTO 180

0032    	IF (LINE(COL+1).NE.'X') GOTO 180

0033    	DO 150 COL=COL+2,120

0034    	TMP=LINE(COL)

0035    	IF ((TMP.LE.'9').AND.(TMP.GE.'0')) GOTO 130

0036    	IF ((TMP.GT.'F').OR.(TMP.LT.'A')) GOTO 400

0037    	TMP=TMP-'A'+'9'+1

0038    130	GETVAL=.TRUE.

0039    	BINVAL=BINVAL*16+(TMP-'0')

0040    150	CONTINUE

0041    	GOTO 300

0042    180	DO 200 COL=COL,120

0043    	IF (LINE(COL).LT.'0') GOTO 400

0044    	IF (LINE(COL).GT.'9') GOTO 400

0045    	GETVAL=.TRUE.

0046    	BINVAL=BINVAL*10+(LINE(COL)-'0')

0047    200	CONTINUE

0048    300	CALL ERROR(4,TOOLONG)

0049    	GETVAL=.FALSE.

0050    400	IF (SIGN.EQ.1) BINVAL=-BINVAL

0051    	RETURN

0052    	END



GETVAL          21-Aug-1978 21:29:50	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 19  

					SYSMSG.FOR.49       



PROGRAM SECTIONS



    Name                 Bytes   Attributes



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

  1 $PDATA                   4   PIC CON REL LCL   SHR NOEXE   RD NOWRT LONG

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

  3 TEXT                   280   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  4 VARS                    40   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  5 LOGVAR                   2   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  6 IDS                  80000   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  7 MAPPED              204800   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG





ENTRY POINTS



    Address  Type Name           



  0-00000000  L*1 GETVAL         





VARIABLES



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



  4-0000001C  I*4 BINVAL           4-00000014  I*4 CODE             4-00000004  I*4 COL              4-00000018  I*4 ERRCNT         

  5-00000000  L*1 IDFLAG           4-00000008  I*4 INDEX            7-00000000  I*4 LANGTAB          4-00000000  I*4 NUM            

  5-00000001  L*1 OUTFLAG          4-0000000C  I*4 PASS             2-00000004  I*4 SIGN             4-00000020  I*4 SIZIDX         

  4-00000024  I*4 SIZSUBS          7-00000004  I*4 SUBPTR           2-00000000  L*1 TMP              2-00000008  I*4 TOOLONG        

  4-00000010  I*4 TPTR           





ARRAYS



    Address  Type Name		       Bytes  Dimensions



  7-00000000  L*1 BYTES               204800  (204800)

  3-00000095  L*1 DEFAULT                 17  (17)

  3-000000C8  L*1 FSPEC                   80  (80)

  3-000000B7  L*1 IDNSTR                  17  (17)

  6-00000000  I*4 IDS                  80000  (20000)

  7-00000008  I*4 INDEX1                 500  (125)

  7-00000200  I*4 INDEX2               25600  (128,50)

  3-00000000  L*1 LINE                   132  (132)

  7-00000000  I*4 LWORDS              204800  (51200)

  3-000000A6  L*1 NAME                    17  (17)

  3-00000084  L*1 PREFIX                  17  (17)

  7-00000000  I*2 WORDS               204800  (102400)





LABELS



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



  0-0000002B  100       0-00000081  130           **      150       0-000000A2  180           **      200       0-000000E4  300     

  0-000000EF  400     



GETVAL          21-Aug-1978 21:29:50	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 20  

					SYSMSG.FOR.49       







FUNCTIONS AND SUBROUTINES REFERENCED



ERROR             UNBLNK         





Total Space Allocated = 285418 Bytes



                21-Aug-1978 21:29:54	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 21  

					SYSMSG.FOR.49       



         

0001    	LOGICAL FUNCTION GETIDENT*1

0002    	INCLUDE 'SRC$:NDATACOM.FOR'

0003 *  	IMPLICIT INTEGER*4 (A-Z)

0004 *  	PARAMETER FILSIZ=204800

0005 *  	LOGICAL*1 LINE(132),NAME(17),DEFAULT(17),PREFIX(17),IDNSTR(17)

0006 *  	LOGICAL*1 FSPEC(80)

0007 *  	INTEGER*4 IDS(20000)

0008 *  	INTEGER*4 LWORDS(FILSIZ/4)

0009 *  	INTEGER*2 WORDS(FILSIZ/2)

0010 *  	LOGICAL*1 BYTES(FILSIZ)

0011 *  	LOGICAL*1 IDFLAG,OUTFLAG

0012 *  	INTEGER*4 INDEX2(128,50)

0013 *  	INTEGER*4 INDEX1(125)

0014 *  	COMMON /TEXT/ LINE,PREFIX,DEFAULT,NAME,IDNSTR,FSPEC

0015 *  	COMMON /VARS/ NUM,COL,INDEX,PASS,TPTR,CODE,ERRCNT,BINVAL,

     *  	1 SIZIDX,SIZSUBS

0016 *  	COMMON /LOGVAR/ IDFLAG,OUTFLAG

0017 *  	COMMON /IDS/ IDS

0018 *  	COMMON /MAPPED/ LWORDS

0019 *  	EQUIVALENCE (LWORDS,WORDS,BYTES)

0020 *  	EQUIVALENCE (LANGTAB,LWORDS(1))

0021 *  	EQUIVALENCE (SUBPTR,LWORDS(2))

0022 *  	EQUIVALENCE (INDEX1,LWORDS(3))

0023 *  	EQUIVALENCE (INDEX2,LWORDS(129))

0024    	LOGICAL*1 UNBLNK,IDENT

0025    	I=1

0026    	GETIDENT=.FALSE.

0027    	IF (UNBLNK().EQ.';') GOTO 400

0028    	DO 200 COL=COL,120

0029    	IF (LINE(COL).EQ.'$') GOTO 100

0030    	IF (LINE(COL).EQ.'_') GOTO 100

0031    	IF ((LINE(COL).GE.'A').AND.(LINE(COL).LE.'Z')) GOTO 100

0032    	IF (GETIDENT.EQ..FALSE.) GOTO 400

0033    	IF ((LINE(COL).LT.'0').OR.(LINE(COL).GT.'9')) GOTO 400

0034    100	GETIDENT=.TRUE.

0035    	IF (I.GE.16) GOTO 200

0036    	NAME(I)=LINE(COL)

0037    	I=I+1

0038    200	CONTINUE

0039    	CALL ERROR(4,TOOLONG)

0040    400	CONTINUE

0041    	NAME(I)=0

        C	TYPE 99,(NAME(K),K=1,LENGTH(NAME))

        C99	FORMAT(' ID=',16A1)

0042    	RETURN

0043    	END



GETIDENT        21-Aug-1978 21:29:54	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 22  

					SYSMSG.FOR.49       



PROGRAM SECTIONS



    Name                 Bytes   Attributes



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

  1 $PDATA                   4   PIC CON REL LCL   SHR NOEXE   RD NOWRT LONG

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

  3 TEXT                   280   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  4 VARS                    40   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  5 LOGVAR                   2   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  6 IDS                  80000   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  7 MAPPED              204800   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG





ENTRY POINTS



    Address  Type Name           



  0-00000000  L*1 GETIDENT       





VARIABLES



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



  4-0000001C  I*4 BINVAL           4-00000014  I*4 CODE             4-00000004  I*4 COL              4-00000018  I*4 ERRCNT         

  2-00000004  I*4 I                2-00000000  L*1 IDENT            5-00000000  L*1 IDFLAG           4-00000008  I*4 INDEX          

  7-00000000  I*4 LANGTAB          4-00000000  I*4 NUM              5-00000001  L*1 OUTFLAG          4-0000000C  I*4 PASS           

  4-00000020  I*4 SIZIDX           4-00000024  I*4 SIZSUBS          7-00000004  I*4 SUBPTR           2-00000008  I*4 TOOLONG        

  4-00000010  I*4 TPTR           





ARRAYS



    Address  Type Name		       Bytes  Dimensions



  7-00000000  L*1 BYTES               204800  (204800)

  3-00000095  L*1 DEFAULT                 17  (17)

  3-000000C8  L*1 FSPEC                   80  (80)

  3-000000B7  L*1 IDNSTR                  17  (17)

  6-00000000  I*4 IDS                  80000  (20000)

  7-00000008  I*4 INDEX1                 500  (125)

  7-00000200  I*4 INDEX2               25600  (128,50)

  3-00000000  L*1 LINE                   132  (132)

  7-00000000  I*4 LWORDS              204800  (51200)

  3-000000A6  L*1 NAME                    17  (17)

  3-00000084  L*1 PREFIX                  17  (17)

  7-00000000  I*2 WORDS               204800  (102400)





LABELS



    Address   Label       Address   Label       Address   Label   



  0-00000063  100       0-00000085  200       0-0000009C  400     





GETIDENT        21-Aug-1978 21:29:54	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 23  

					SYSMSG.FOR.49       





FUNCTIONS AND SUBROUTINES REFERENCED



ERROR             UNBLNK         





Total Space Allocated = 285329 Bytes



                21-Aug-1978 21:29:56	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 24  

					SYSMSG.FOR.49       



         

0001    	LOGICAL FUNCTION IDENT*1(STRNG1,STRNG2)

0002    	LOGICAL*1 STRNG1(100),STRNG2(100)

0003    	IDENT=.FALSE.

0004    	DO 100 I=1,100

0005    	IF (STRNG1(I).EQ.0.OR.STRNG2(I).EQ.0) GOTO 200

0006    	IF (STRNG1(I).NE.STRNG2(I)) GOTO 300

0007    100	CONTINUE

0008    200	IDENT=.TRUE.

0009    300	RETURN

0010    	END



IDENT           21-Aug-1978 21:29:56	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 25  

					SYSMSG.FOR.49       



PROGRAM SECTIONS



    Name                 Bytes   Attributes



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

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





ENTRY POINTS



    Address  Type Name           



  0-00000000  L*1 IDENT          





VARIABLES



    Address  Type Name           



  2-00000004  I*4 I              





ARRAYS



    Address  Type Name		       Bytes  Dimensions



 AP-00000004@ L*1 STRNG1                 100  (100)

 AP-00000008@ L*1 STRNG2                 100  (100)





LABELS



    Address   Label       Address   Label       Address   Label   



      **      100       0-00000049  200       0-0000004D  300     





Total Space Allocated = 130 Bytes



                21-Aug-1978 21:29:58	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 26  

					SYSMSG.FOR.49       



         

0001    	LOGICAL FUNCTION UNBLNK*1

0002    	INCLUDE 'SRC$:NDATACOM.FOR'

0003 *  	IMPLICIT INTEGER*4 (A-Z)

0004 *  	PARAMETER FILSIZ=204800

0005 *  	LOGICAL*1 LINE(132),NAME(17),DEFAULT(17),PREFIX(17),IDNSTR(17)

0006 *  	LOGICAL*1 FSPEC(80)

0007 *  	INTEGER*4 IDS(20000)

0008 *  	INTEGER*4 LWORDS(FILSIZ/4)

0009 *  	INTEGER*2 WORDS(FILSIZ/2)

0010 *  	LOGICAL*1 BYTES(FILSIZ)

0011 *  	LOGICAL*1 IDFLAG,OUTFLAG

0012 *  	INTEGER*4 INDEX2(128,50)

0013 *  	INTEGER*4 INDEX1(125)

0014 *  	COMMON /TEXT/ LINE,PREFIX,DEFAULT,NAME,IDNSTR,FSPEC

0015 *  	COMMON /VARS/ NUM,COL,INDEX,PASS,TPTR,CODE,ERRCNT,BINVAL,

     *  	1 SIZIDX,SIZSUBS

0016 *  	COMMON /LOGVAR/ IDFLAG,OUTFLAG

0017 *  	COMMON /IDS/ IDS

0018 *  	COMMON /MAPPED/ LWORDS

0019 *  	EQUIVALENCE (LWORDS,WORDS,BYTES)

0020 *  	EQUIVALENCE (LANGTAB,LWORDS(1))

0021 *  	EQUIVALENCE (SUBPTR,LWORDS(2))

0022 *  	EQUIVALENCE (INDEX1,LWORDS(3))

0023 *  	EQUIVALENCE (INDEX2,LWORDS(129))

0024    	IF (COL.GT.120) GOTO 150

0025    	DO 100 COL=COL,120

0026    	IF (LINE(COL).GE."11.AND.LINE(COL).LE."14) GOTO 100

0027    	IF (LINE(COL).NE.' ') GOTO 200

0028    100	CONTINUE

0029    150	COL=121

0030    200	UNBLNK=LINE(COL)

0031    	RETURN

0032    	END



UNBLNK          21-Aug-1978 21:29:58	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 27  

					SYSMSG.FOR.49       



PROGRAM SECTIONS



    Name                 Bytes   Attributes



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

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

  3 TEXT                   280   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  4 VARS                    40   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  5 LOGVAR                   2   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  6 IDS                  80000   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  7 MAPPED              204800   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG





ENTRY POINTS



    Address  Type Name           



  0-00000000  L*1 UNBLNK         





VARIABLES



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



  4-0000001C  I*4 BINVAL           4-00000014  I*4 CODE             4-00000004  I*4 COL              4-00000018  I*4 ERRCNT         

  5-00000000  L*1 IDFLAG           4-00000008  I*4 INDEX            7-00000000  I*4 LANGTAB          4-00000000  I*4 NUM            

  5-00000001  L*1 OUTFLAG          4-0000000C  I*4 PASS             4-00000020  I*4 SIZIDX           4-00000024  I*4 SIZSUBS        

  7-00000004  I*4 SUBPTR           4-00000010  I*4 TPTR           





ARRAYS



    Address  Type Name		       Bytes  Dimensions



  7-00000000  L*1 BYTES               204800  (204800)

  3-00000095  L*1 DEFAULT                 17  (17)

  3-000000C8  L*1 FSPEC                   80  (80)

  3-000000B7  L*1 IDNSTR                  17  (17)

  6-00000000  I*4 IDS                  80000  (20000)

  7-00000008  I*4 INDEX1                 500  (125)

  7-00000200  I*4 INDEX2               25600  (128,50)

  3-00000000  L*1 LINE                   132  (132)

  7-00000000  I*4 LWORDS              204800  (51200)

  3-000000A6  L*1 NAME                    17  (17)

  3-00000084  L*1 PREFIX                  17  (17)

  7-00000000  I*2 WORDS               204800  (102400)





LABELS



    Address   Label       Address   Label       Address   Label   



  0-0000003C  100       0-00000045  150       0-0000004A  200     





Total Space Allocated = 285216 Bytes



                21-Aug-1978 21:30:00	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 28  

					SYSMSG.FOR.49       



         

0001    	LOGICAL*1 FUNCTION GETLIN

0002    	INCLUDE 'SRC$:NDATACOM.FOR'

0003 *  	IMPLICIT INTEGER*4 (A-Z)

0004 *  	PARAMETER FILSIZ=204800

0005 *  	LOGICAL*1 LINE(132),NAME(17),DEFAULT(17),PREFIX(17),IDNSTR(17)

0006 *  	LOGICAL*1 FSPEC(80)

0007 *  	INTEGER*4 IDS(20000)

0008 *  	INTEGER*4 LWORDS(FILSIZ/4)

0009 *  	INTEGER*2 WORDS(FILSIZ/2)

0010 *  	LOGICAL*1 BYTES(FILSIZ)

0011 *  	LOGICAL*1 IDFLAG,OUTFLAG

0012 *  	INTEGER*4 INDEX2(128,50)

0013 *  	INTEGER*4 INDEX1(125)

0014 *  	COMMON /TEXT/ LINE,PREFIX,DEFAULT,NAME,IDNSTR,FSPEC

0015 *  	COMMON /VARS/ NUM,COL,INDEX,PASS,TPTR,CODE,ERRCNT,BINVAL,

     *  	1 SIZIDX,SIZSUBS

0016 *  	COMMON /LOGVAR/ IDFLAG,OUTFLAG

0017 *  	COMMON /IDS/ IDS

0018 *  	COMMON /MAPPED/ LWORDS

0019 *  	EQUIVALENCE (LWORDS,WORDS,BYTES)

0020 *  	EQUIVALENCE (LANGTAB,LWORDS(1))

0021 *  	EQUIVALENCE (SUBPTR,LWORDS(2))

0022 *  	EQUIVALENCE (INDEX1,LWORDS(3))

0023 *  	EQUIVALENCE (INDEX2,LWORDS(129))

0024    	GETLIN=.FALSE.

0025    	LINE(1)=';'

0026    	COL=1

0027    	READ(1,99,END=100)(LINE(K),K=1,120)

0028    99	FORMAT(120A1)

0029    	GETLIN=.TRUE.

0030    100	CONTINUE

0031    	LINE(121)=';'

        C	TYPE 98,(LINE(K),K=1,120)

        C98	FORMAT(1X,72A1/1X,72A1)

0032    	RETURN

0033    	END



GETLIN          21-Aug-1978 21:30:00	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 29  

					SYSMSG.FOR.49       



PROGRAM SECTIONS



    Name                 Bytes   Attributes



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

  1 $PDATA                   5   PIC CON REL LCL   SHR NOEXE   RD NOWRT LONG

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

  3 TEXT                   280   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  4 VARS                    40   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  5 LOGVAR                   2   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  6 IDS                  80000   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  7 MAPPED              204800   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG





ENTRY POINTS



    Address  Type Name           



  0-00000000  L*1 GETLIN         





VARIABLES



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



  4-0000001C  I*4 BINVAL           4-00000014  I*4 CODE             4-00000004  I*4 COL              4-00000018  I*4 ERRCNT         

  5-00000000  L*1 IDFLAG           4-00000008  I*4 INDEX            2-00000004  I*4 K                7-00000000  I*4 LANGTAB        

  4-00000000  I*4 NUM              5-00000001  L*1 OUTFLAG          4-0000000C  I*4 PASS             4-00000020  I*4 SIZIDX         

  4-00000024  I*4 SIZSUBS          7-00000004  I*4 SUBPTR           4-00000010  I*4 TPTR           





ARRAYS



    Address  Type Name		       Bytes  Dimensions



  7-00000000  L*1 BYTES               204800  (204800)

  3-00000095  L*1 DEFAULT                 17  (17)

  3-000000C8  L*1 FSPEC                   80  (80)

  3-000000B7  L*1 IDNSTR                  17  (17)

  6-00000000  I*4 IDS                  80000  (20000)

  7-00000008  I*4 INDEX1                 500  (125)

  7-00000200  I*4 INDEX2               25600  (128,50)

  3-00000000  L*1 LINE                   132  (132)

  7-00000000  I*4 LWORDS              204800  (51200)

  3-000000A6  L*1 NAME                    17  (17)

  3-00000084  L*1 PREFIX                  17  (17)

  7-00000000  I*2 WORDS               204800  (102400)





LABELS



    Address   Label       Address   Label   



  1-00000000  99'       0-00000056  100     







GETLIN          21-Aug-1978 21:30:00	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 30  

					SYSMSG.FOR.49       



Total Space Allocated = 285233 Bytes



                21-Aug-1978 21:30:02	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 31  

					SYSMSG.FOR.49       



         

0001    	SUBROUTINE ERROR(MSGID)

0002    	INCLUDE 'SRC$:NDATACOM.FOR'

        C OUTPUT CONTENTS OF 'LINE' VIA PRINT

        C AND ERROR MESSAGE

0003 *  	IMPLICIT INTEGER*4 (A-Z)

0004 *  	PARAMETER FILSIZ=204800

0005 *  	LOGICAL*1 LINE(132),NAME(17),DEFAULT(17),PREFIX(17),IDNSTR(17)

0006 *  	LOGICAL*1 FSPEC(80)

0007 *  	INTEGER*4 IDS(20000)

0008 *  	INTEGER*4 LWORDS(FILSIZ/4)

0009 *  	INTEGER*2 WORDS(FILSIZ/2)

0010 *  	LOGICAL*1 BYTES(FILSIZ)

0011 *  	LOGICAL*1 IDFLAG,OUTFLAG

0012 *  	INTEGER*4 INDEX2(128,50)

0013 *  	INTEGER*4 INDEX1(125)

0014 *  	COMMON /TEXT/ LINE,PREFIX,DEFAULT,NAME,IDNSTR,FSPEC

0015 *  	COMMON /VARS/ NUM,COL,INDEX,PASS,TPTR,CODE,ERRCNT,BINVAL,

     *  	1 SIZIDX,SIZSUBS

0016 *  	COMMON /LOGVAR/ IDFLAG,OUTFLAG

0017 *  	COMMON /IDS/ IDS

0018 *  	COMMON /MAPPED/ LWORDS

0019 *  	EQUIVALENCE (LWORDS,WORDS,BYTES)

0020 *  	EQUIVALENCE (LANGTAB,LWORDS(1))

0021 *  	EQUIVALENCE (SUBPTR,LWORDS(2))

0022 *  	EQUIVALENCE (INDEX1,LWORDS(3))

0023 *  	EQUIVALENCE (INDEX2,LWORDS(129))

0024    	TYPE 99

0025    99	FORMAT('$%SYSMSG-E-')

0026    	GOTO (1,2,3,4,5,6,7,8,9,10,11,12,13,14,15),MSGID

0027    	TYPE 1000

0028    	GOTO 200

0029    1000	FORMAT('+error in error processing')

0030    1	TYPE 101

0031    	GOTO 200

0032    101	FORMAT('+syntax error')

0033    2	TYPE 102

0034    	GOTO 200

0035    102	FORMAT('+symbol or string too long')

0036    3	TYPE 103

0037    	GOTO 200

0038    103	FORMAT('+missing value')

0039    4	TYPE 104

0040    	GOTO 200

0041    104	FORMAT('+line too long')

0042    5	TYPE 105

0043    	GOTO 200

0044    105	FORMAT('+start or increment value error')

0045    6	TYPE 106

0046    	GOTO 200

0047    106	FORMAT('+missing close angle bracket')

0048    7	TYPE 107

0049    	GOTO 200

0050    107	FORMAT('+unrecognizable statement type')

0051    8	TYPE 108

0052    	GOTO 200



ERROR           21-Aug-1978 21:30:02	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 32  

					SYSMSG.FOR.49       



0053    108	FORMAT('+missing end statement')

0054    9	TYPE 109

0055    	GOTO 210

0056    109	FORMAT('+can''t open SRCD$:[1,2]FILES.DAT')

0057    10	TYPE 110,FSPEC

0058    	GOTO 210

0059    110	FORMAT('+can''t open ',80A1)

0060    11	TYPE 111

0061    	GOTO 200

0062    111	FORMAT('+syntax error in message definition')

0063    12	TYPE 112

0064    	GOTO 200

0065    112	FORMAT('+message identifier too long')

0066    13	TYPE 113

0067    	GOTO 200

0068    113	FORMAT('+message identified by value is already in use')

0069    14	TYPE 114

0070    	GOTO 200

0071    114	FORMAT('+facility name too long')

0072    15	TYPE 115

0073    	GOTO 210

0074    115	FORMAT('+can''t open SRCD$:[1,2]SUBSYSIDS.DAT')

0075    200	TYPE 97,FSPEC

0076    97	FORMAT(11X,'in file ',80a1)

0077    	TYPE 98,(LINE(K),K=1,120)

0078    98	FORMAT(11X,120A1)

0079    210	ERRCNT=ERRCNT+1

0080    	END



ERROR           21-Aug-1978 21:30:02	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 33  

					SYSMSG.FOR.49       



PROGRAM SECTIONS



    Name                 Bytes   Attributes



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

  1 $PDATA                 506   PIC CON REL LCL   SHR NOEXE   RD NOWRT LONG

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

  3 TEXT                   280   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  4 VARS                    40   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  5 LOGVAR                   2   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  6 IDS                  80000   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  7 MAPPED              204800   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG





ENTRY POINTS



    Address  Type Name           



  0-00000000      ERROR          





VARIABLES



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



  4-0000001C  I*4 BINVAL           4-00000014  I*4 CODE             4-00000004  I*4 COL              4-00000018  I*4 ERRCNT         

  5-00000000  L*1 IDFLAG           4-00000008  I*4 INDEX            2-00000000  I*4 K                7-00000000  I*4 LANGTAB        

 AP-00000004@ I*4 MSGID            4-00000000  I*4 NUM              5-00000001  L*1 OUTFLAG          4-0000000C  I*4 PASS           

  4-00000020  I*4 SIZIDX           4-00000024  I*4 SIZSUBS          7-00000004  I*4 SUBPTR           4-00000010  I*4 TPTR           





ARRAYS



    Address  Type Name		       Bytes  Dimensions



  7-00000000  L*1 BYTES               204800  (204800)

  3-00000095  L*1 DEFAULT                 17  (17)

  3-000000C8  L*1 FSPEC                   80  (80)

  3-000000B7  L*1 IDNSTR                  17  (17)

  6-00000000  I*4 IDS                  80000  (20000)

  7-00000008  I*4 INDEX1                 500  (125)

  7-00000200  I*4 INDEX2               25600  (128,50)

  3-00000000  L*1 LINE                   132  (132)

  7-00000000  I*4 LWORDS              204800  (51200)

  3-000000A6  L*1 NAME                    17  (17)

  3-00000084  L*1 PREFIX                  17  (17)

  7-00000000  I*2 WORDS               204800  (102400)





LABELS



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



  0-0000005D  1         0-00000077  2         0-00000091  3         0-000000AB  4         0-000000C5  5         0-000000DF  6       

  0-000000F9  7         0-00000113  8         0-0000012D  9         0-00000147  10        0-0000016B  11        0-00000184  12      

  0-0000019D  13        0-000001B6  14        0-000001CF  15        1-000001E2  97'       1-000001F3  98'       1-00000000  99'     



ERROR           21-Aug-1978 21:30:02	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 34  

					SYSMSG.FOR.49       



  1-0000002B  101'      1-0000003B  102'      1-00000058  103'      1-00000069  104'      1-0000007A  105'      1-0000009C  106'    

  1-000000BB  107'      1-000000DC  108'      1-000000F5  109'      1-00000118  110'      1-0000012B  111'      1-00000151  112'    

  1-00000170  113'      1-000001A1  114'      1-000001BB  115'      0-000001E8  200       0-0000023C  210       1-0000000E  1000'   





Total Space Allocated = 286227 Bytes



                21-Aug-1978 21:30:07	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 35  

					SYSMSG.FOR.49       



         

0001    	SUBROUTINE GETCLST

        C	ROUTINE TO HANDLE MDL C<[NAME][,[CON][,[BASE][,INCR]]] SYNTAX

         

0002    	INCLUDE 'SRC$:NDATACOM.FOR'

0003 *  	IMPLICIT INTEGER*4 (A-Z)

0004 *  	PARAMETER FILSIZ=204800

0005 *  	LOGICAL*1 LINE(132),NAME(17),DEFAULT(17),PREFIX(17),IDNSTR(17)

0006 *  	LOGICAL*1 FSPEC(80)

0007 *  	INTEGER*4 IDS(20000)

0008 *  	INTEGER*4 LWORDS(FILSIZ/4)

0009 *  	INTEGER*2 WORDS(FILSIZ/2)

0010 *  	LOGICAL*1 BYTES(FILSIZ)

0011 *  	LOGICAL*1 IDFLAG,OUTFLAG

0012 *  	INTEGER*4 INDEX2(128,50)

0013 *  	INTEGER*4 INDEX1(125)

0014 *  	COMMON /TEXT/ LINE,PREFIX,DEFAULT,NAME,IDNSTR,FSPEC

0015 *  	COMMON /VARS/ NUM,COL,INDEX,PASS,TPTR,CODE,ERRCNT,BINVAL,

     *  	1 SIZIDX,SIZSUBS

0016 *  	COMMON /LOGVAR/ IDFLAG,OUTFLAG

0017 *  	COMMON /IDS/ IDS

0018 *  	COMMON /MAPPED/ LWORDS

0019 *  	EQUIVALENCE (LWORDS,WORDS,BYTES)

0020 *  	EQUIVALENCE (LANGTAB,LWORDS(1))

0021 *  	EQUIVALENCE (SUBPTR,LWORDS(2))

0022 *  	EQUIVALENCE (INDEX1,LWORDS(3))

0023 *  	EQUIVALENCE (INDEX2,LWORDS(129))

0024    	LOGICAL*1 GETIDENT,UNBLNK,GETNUM,IDENT,GETLIN

0025    	BASE=0

0026    	INCR=1

0027    	CALL MOVNAM(DEFAULT,PREFIX)

0028    	IF (GETIDENT().EQ..FALSE.) GOTO 100

0029    	CALL MOVNAM(NAME,PREFIX)

0030    100	IF (UNBLNK().NE.',') GOTO 400

0031    	COL=COL+1

0032    	IF (GETIDENT().EQ..FALSE.) GOTO 200

0033    	CALL CONCAT(PREFIX,NAME,PREFIX)

0034    200	IF (UNBLNK().NE.',') GOTO 400

0035    	COL=COL+1

0036    	IF (GETNUM()) BASE=NUM

0037    	IF (UNBLNK().NE.',') GOTO 400

0038    	COL=COL+1

0039    	IF (GETNUM().EQ..FALSE.) GOTO 500

0040    	INCR=NUM

0041    400	IF (UNBLNK().EQ.';') GOTO 700

0042    500	CALL ERROR(1,SYNTAX)

0043    700	IF (GETLIN().NE..TRUE.) GOTO 1500

0044    	IF (UNBLNK().EQ.'>') GOTO 1600

0045    	IF (GETIDENT().NE..TRUE.) GOTO 900

0046    	CALL MOVNAM(NAME,IDNSTR)

0047    	CALL CONCAT(PREFIX,NAME,NAME)

0048    	IF (UNBLNK().EQ.',') GOTO 800

0049    	CODE=BASE

0050    	BASE=BASE+INCR

0051    	GOTO 850

0052    800	IF (BASE.NE.0.OR.INCR.NE.1) CALL ERROR(5,BASE)



GETCLST         21-Aug-1978 21:30:07	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 36  

					SYSMSG.FOR.49       



0053    	COL=COL+1

0054    	IF (GETNUM()) GOTO 820

0055    	CALL ERROR(3,NONUMBER)

0056    820	CODE=NUM

0057    850	OUTFLAG=.TRUE.

0058    900	IF (UNBLNK().NE.';') GOTO 500

0059    	CALL GETMSG

0060    	GOTO 700

0061    1500	CALL ERROR(6,NOCLOSEANGLE)

0062    1600	RETURN

0063    	END



GETCLST         21-Aug-1978 21:30:07	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 37  

					SYSMSG.FOR.49       



PROGRAM SECTIONS



    Name                 Bytes   Attributes



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

  1 $PDATA                  16   PIC CON REL LCL   SHR NOEXE   RD NOWRT LONG

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

  3 TEXT                   280   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  4 VARS                    40   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  5 LOGVAR                   2   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  6 IDS                  80000   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  7 MAPPED              204800   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG





ENTRY POINTS



    Address  Type Name           



  0-00000000      GETCLST        





VARIABLES



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



  2-00000004  I*4 BASE             4-0000001C  I*4 BINVAL           4-00000014  I*4 CODE             4-00000004  I*4 COL            

  4-00000018  I*4 ERRCNT           2-00000000  L*1 IDENT            5-00000000  L*1 IDFLAG           2-00000008  I*4 INCR           

  4-00000008  I*4 INDEX            7-00000000  I*4 LANGTAB          2-00000014  I*4 NOCLOSEANGLE     2-00000010  I*4 NONUMBER       

  4-00000000  I*4 NUM              5-00000001  L*1 OUTFLAG          4-0000000C  I*4 PASS             4-00000020  I*4 SIZIDX         

  4-00000024  I*4 SIZSUBS          7-00000004  I*4 SUBPTR           2-0000000C  I*4 SYNTAX           4-00000010  I*4 TPTR           





ARRAYS



    Address  Type Name		       Bytes  Dimensions



  7-00000000  L*1 BYTES               204800  (204800)

  3-00000095  L*1 DEFAULT                 17  (17)

  3-000000C8  L*1 FSPEC                   80  (80)

  3-000000B7  L*1 IDNSTR                  17  (17)

  6-00000000  I*4 IDS                  80000  (20000)

  7-00000008  I*4 INDEX1                 500  (125)

  7-00000200  I*4 INDEX2               25600  (128,50)

  3-00000000  L*1 LINE                   132  (132)

  7-00000000  I*4 LWORDS              204800  (51200)

  3-000000A6  L*1 NAME                    17  (17)

  3-00000084  L*1 PREFIX                  17  (17)

  7-00000000  I*2 WORDS               204800  (102400)





LABELS



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



  0-0000002B  100       0-00000056  200       0-00000094  400       0-000000A1  500       0-000000A9  700       0-000000FE  800     

  0-00000129  820       0-00000134  850       0-0000013B  900       0-00000155  1500      0-0000015E  1600    



GETCLST         21-Aug-1978 21:30:07	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 38  

					SYSMSG.FOR.49       







FUNCTIONS AND SUBROUTINES REFERENCED



CONCAT            ERROR             GETIDENT          GETLIN            GETMSG            GETNUM            MOVNAM         

UNBLNK         





Total Space Allocated = 285637 Bytes



                21-Aug-1978 21:30:11	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 39  

					SYSMSG.FOR.49       



         

0001    	SUBROUTINE EVALC

0002    	INCLUDE 'SRC$:NDATACOM.FOR'

0003 *  	IMPLICIT INTEGER*4 (A-Z)

0004 *  	PARAMETER FILSIZ=204800

0005 *  	LOGICAL*1 LINE(132),NAME(17),DEFAULT(17),PREFIX(17),IDNSTR(17)

0006 *  	LOGICAL*1 FSPEC(80)

0007 *  	INTEGER*4 IDS(20000)

0008 *  	INTEGER*4 LWORDS(FILSIZ/4)

0009 *  	INTEGER*2 WORDS(FILSIZ/2)

0010 *  	LOGICAL*1 BYTES(FILSIZ)

0011 *  	LOGICAL*1 IDFLAG,OUTFLAG

0012 *  	INTEGER*4 INDEX2(128,50)

0013 *  	INTEGER*4 INDEX1(125)

0014 *  	COMMON /TEXT/ LINE,PREFIX,DEFAULT,NAME,IDNSTR,FSPEC

0015 *  	COMMON /VARS/ NUM,COL,INDEX,PASS,TPTR,CODE,ERRCNT,BINVAL,

     *  	1 SIZIDX,SIZSUBS

0016 *  	COMMON /LOGVAR/ IDFLAG,OUTFLAG

0017 *  	COMMON /IDS/ IDS

0018 *  	COMMON /MAPPED/ LWORDS

0019 *  	EQUIVALENCE (LWORDS,WORDS,BYTES)

0020 *  	EQUIVALENCE (LANGTAB,LWORDS(1))

0021 *  	EQUIVALENCE (SUBPTR,LWORDS(2))

0022 *  	EQUIVALENCE (INDEX1,LWORDS(3))

0023 *  	EQUIVALENCE (INDEX2,LWORDS(129))

0024    	LOGICAL*1 IDENT,UNBLNK

0025    	IF (UNBLNK().EQ.'<') GOTO 100

0026    	CALL GETCVAL

0027    	RETURN

0028    100	COL=COL+1

0029    	CALL GETCLST

0030    	RETURN

0031    	END



EVALC           21-Aug-1978 21:30:11	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 40  

					SYSMSG.FOR.49       



PROGRAM SECTIONS



    Name                 Bytes   Attributes



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

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

  3 TEXT                   280   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  4 VARS                    40   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  5 LOGVAR                   2   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  6 IDS                  80000   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  7 MAPPED              204800   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG





ENTRY POINTS



    Address  Type Name           



  0-00000000      EVALC          





VARIABLES



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



  4-0000001C  I*4 BINVAL           4-00000014  I*4 CODE             4-00000004  I*4 COL              4-00000018  I*4 ERRCNT         

  2-00000000  L*1 IDENT            5-00000000  L*1 IDFLAG           4-00000008  I*4 INDEX            7-00000000  I*4 LANGTAB        

  4-00000000  I*4 NUM              5-00000001  L*1 OUTFLAG          4-0000000C  I*4 PASS             4-00000020  I*4 SIZIDX         

  4-00000024  I*4 SIZSUBS          7-00000004  I*4 SUBPTR           4-00000010  I*4 TPTR           





ARRAYS



    Address  Type Name		       Bytes  Dimensions



  7-00000000  L*1 BYTES               204800  (204800)

  3-00000095  L*1 DEFAULT                 17  (17)

  3-000000C8  L*1 FSPEC                   80  (80)

  3-000000B7  L*1 IDNSTR                  17  (17)

  6-00000000  I*4 IDS                  80000  (20000)

  7-00000008  I*4 INDEX1                 500  (125)

  7-00000200  I*4 INDEX2               25600  (128,50)

  3-00000000  L*1 LINE                   132  (132)

  7-00000000  I*4 LWORDS              204800  (51200)

  3-000000A6  L*1 NAME                    17  (17)

  3-00000084  L*1 PREFIX                  17  (17)

  7-00000000  I*2 WORDS               204800  (102400)





LABELS



    Address   Label   



  0-0000001D  100     





FUNCTIONS AND SUBROUTINES REFERENCED



EVALC           21-Aug-1978 21:30:11	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 41  

					SYSMSG.FOR.49       





GETCLST           GETCVAL           UNBLNK         





Total Space Allocated = 285177 Bytes



                21-Aug-1978 21:30:14	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 42  

					SYSMSG.FOR.49       



         

0001    	SUBROUTINE GETCVAL

0002    	INCLUDE 'SRC$:NDATACOM.FOR'

0003 *  	IMPLICIT INTEGER*4 (A-Z)

0004 *  	PARAMETER FILSIZ=204800

0005 *  	LOGICAL*1 LINE(132),NAME(17),DEFAULT(17),PREFIX(17),IDNSTR(17)

0006 *  	LOGICAL*1 FSPEC(80)

0007 *  	INTEGER*4 IDS(20000)

0008 *  	INTEGER*4 LWORDS(FILSIZ/4)

0009 *  	INTEGER*2 WORDS(FILSIZ/2)

0010 *  	LOGICAL*1 BYTES(FILSIZ)

0011 *  	LOGICAL*1 IDFLAG,OUTFLAG

0012 *  	INTEGER*4 INDEX2(128,50)

0013 *  	INTEGER*4 INDEX1(125)

0014 *  	COMMON /TEXT/ LINE,PREFIX,DEFAULT,NAME,IDNSTR,FSPEC

0015 *  	COMMON /VARS/ NUM,COL,INDEX,PASS,TPTR,CODE,ERRCNT,BINVAL,

     *  	1 SIZIDX,SIZSUBS

0016 *  	COMMON /LOGVAR/ IDFLAG,OUTFLAG

0017 *  	COMMON /IDS/ IDS

0018 *  	COMMON /MAPPED/ LWORDS

0019 *  	EQUIVALENCE (LWORDS,WORDS,BYTES)

0020 *  	EQUIVALENCE (LANGTAB,LWORDS(1))

0021 *  	EQUIVALENCE (SUBPTR,LWORDS(2))

0022 *  	EQUIVALENCE (INDEX1,LWORDS(3))

0023 *  	EQUIVALENCE (INDEX2,LWORDS(129))

0024    	LOGICAL*1 GETIDENT,UNBLNK,GETNUM,IDENT

0025    	IF (GETIDENT().EQ..FALSE.) GOTO 100

0026    	CALL MOVNAM(NAME,IDNSTR)

0027    	IF (UNBLNK().NE.',') GOTO 100

0028    	COL=COL+1

0029    	IF (GETNUM().EQ..FALSE.) GOTO 100

0030    	CALL CONCAT(DEFAULT,NAME,NAME)

0031    	CODE=NUM

0032    	OUTFLAG=.TRUE.

0033    	IF (UNBLNK().NE.';') GOTO 100

0034    	CALL GETMSG

0035    	RETURN

0036    100	CALL ERROR(1,SYNTAX)

0037    	RETURN

0038    	END



GETCVAL         21-Aug-1978 21:30:14	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 43  

					SYSMSG.FOR.49       



PROGRAM SECTIONS



    Name                 Bytes   Attributes



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

  1 $PDATA                   4   PIC CON REL LCL   SHR NOEXE   RD NOWRT LONG

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

  3 TEXT                   280   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  4 VARS                    40   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  5 LOGVAR                   2   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  6 IDS                  80000   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  7 MAPPED              204800   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG





ENTRY POINTS



    Address  Type Name           



  0-00000000      GETCVAL        





VARIABLES



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



  4-0000001C  I*4 BINVAL           4-00000014  I*4 CODE             4-00000004  I*4 COL              4-00000018  I*4 ERRCNT         

  2-00000000  L*1 IDENT            5-00000000  L*1 IDFLAG           4-00000008  I*4 INDEX            7-00000000  I*4 LANGTAB        

  4-00000000  I*4 NUM              5-00000001  L*1 OUTFLAG          4-0000000C  I*4 PASS             4-00000020  I*4 SIZIDX         

  4-00000024  I*4 SIZSUBS          7-00000004  I*4 SUBPTR           2-00000004  I*4 SYNTAX           4-00000010  I*4 TPTR           





ARRAYS



    Address  Type Name		       Bytes  Dimensions



  7-00000000  L*1 BYTES               204800  (204800)

  3-00000095  L*1 DEFAULT                 17  (17)

  3-000000C8  L*1 FSPEC                   80  (80)

  3-000000B7  L*1 IDNSTR                  17  (17)

  6-00000000  I*4 IDS                  80000  (20000)

  7-00000008  I*4 INDEX1                 500  (125)

  7-00000200  I*4 INDEX2               25600  (128,50)

  3-00000000  L*1 LINE                   132  (132)

  7-00000000  I*4 LWORDS              204800  (51200)

  3-000000A6  L*1 NAME                    17  (17)

  3-00000084  L*1 PREFIX                  17  (17)

  7-00000000  I*2 WORDS               204800  (102400)





LABELS



    Address   Label   



  0-0000006B  100     







GETCVAL         21-Aug-1978 21:30:14	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 44  

					SYSMSG.FOR.49       



FUNCTIONS AND SUBROUTINES REFERENCED



CONCAT            ERROR             GETIDENT          GETMSG            GETNUM            MOVNAM            UNBLNK         





Total Space Allocated = 285298 Bytes



                21-Aug-1978 21:30:17	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 45  

					SYSMSG.FOR.49       



         

0001    	SUBROUTINE SKIPV

0002    	INCLUDE 'SRC$:NDATACOM.FOR'

0003 *  	IMPLICIT INTEGER*4 (A-Z)

0004 *  	PARAMETER FILSIZ=204800

0005 *  	LOGICAL*1 LINE(132),NAME(17),DEFAULT(17),PREFIX(17),IDNSTR(17)

0006 *  	LOGICAL*1 FSPEC(80)

0007 *  	INTEGER*4 IDS(20000)

0008 *  	INTEGER*4 LWORDS(FILSIZ/4)

0009 *  	INTEGER*2 WORDS(FILSIZ/2)

0010 *  	LOGICAL*1 BYTES(FILSIZ)

0011 *  	LOGICAL*1 IDFLAG,OUTFLAG

0012 *  	INTEGER*4 INDEX2(128,50)

0013 *  	INTEGER*4 INDEX1(125)

0014 *  	COMMON /TEXT/ LINE,PREFIX,DEFAULT,NAME,IDNSTR,FSPEC

0015 *  	COMMON /VARS/ NUM,COL,INDEX,PASS,TPTR,CODE,ERRCNT,BINVAL,

     *  	1 SIZIDX,SIZSUBS

0016 *  	COMMON /LOGVAR/ IDFLAG,OUTFLAG

0017 *  	COMMON /IDS/ IDS

0018 *  	COMMON /MAPPED/ LWORDS

0019 *  	EQUIVALENCE (LWORDS,WORDS,BYTES)

0020 *  	EQUIVALENCE (LANGTAB,LWORDS(1))

0021 *  	EQUIVALENCE (SUBPTR,LWORDS(2))

0022 *  	EQUIVALENCE (INDEX1,LWORDS(3))

0023 *  	EQUIVALENCE (INDEX2,LWORDS(129))

0024    	LOGICAL*1 GETLIN,UNBLNK

0025    100	IF (GETLIN().NE..TRUE.) GOTO 300

0026    	IF (UNBLNK().EQ.'>') RETURN

0027    	GOTO 100

0028    300	CALL ERROR(6,NOCLOSEANGLE)

0029    	RETURN

0030    	END



SKIPV           21-Aug-1978 21:30:17	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 46  

					SYSMSG.FOR.49       



PROGRAM SECTIONS



    Name                 Bytes   Attributes



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

  1 $PDATA                   4   PIC CON REL LCL   SHR NOEXE   RD NOWRT LONG

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

  3 TEXT                   280   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  4 VARS                    40   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  5 LOGVAR                   2   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  6 IDS                  80000   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  7 MAPPED              204800   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG





ENTRY POINTS



    Address  Type Name           



  0-00000000      SKIPV          





VARIABLES



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



  4-0000001C  I*4 BINVAL           4-00000014  I*4 CODE             4-00000004  I*4 COL              4-00000018  I*4 ERRCNT         

  5-00000000  L*1 IDFLAG           4-00000008  I*4 INDEX            7-00000000  I*4 LANGTAB          2-00000000  I*4 NOCLOSEANGLE   

  4-00000000  I*4 NUM              5-00000001  L*1 OUTFLAG          4-0000000C  I*4 PASS             4-00000020  I*4 SIZIDX         

  4-00000024  I*4 SIZSUBS          7-00000004  I*4 SUBPTR           4-00000010  I*4 TPTR           





ARRAYS



    Address  Type Name		       Bytes  Dimensions



  7-00000000  L*1 BYTES               204800  (204800)

  3-00000095  L*1 DEFAULT                 17  (17)

  3-000000C8  L*1 FSPEC                   80  (80)

  3-000000B7  L*1 IDNSTR                  17  (17)

  6-00000000  I*4 IDS                  80000  (20000)

  7-00000008  I*4 INDEX1                 500  (125)

  7-00000200  I*4 INDEX2               25600  (128,50)

  3-00000000  L*1 LINE                   132  (132)

  7-00000000  I*4 LWORDS              204800  (51200)

  3-000000A6  L*1 NAME                    17  (17)

  3-00000084  L*1 PREFIX                  17  (17)

  7-00000000  I*2 WORDS               204800  (102400)





LABELS



    Address   Label       Address   Label   



  0-00000009  100       0-00000025  300     







SKIPV           21-Aug-1978 21:30:17	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 47  

					SYSMSG.FOR.49       



FUNCTIONS AND SUBROUTINES REFERENCED



ERROR             GETLIN            UNBLNK         





Total Space Allocated = 285196 Bytes



                21-Aug-1978 21:30:19	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 48  

					SYSMSG.FOR.49       



         

0001    	SUBROUTINE STRUCT

0002    	INCLUDE 'SRC$:NDATACOM.FOR'

0003 *  	IMPLICIT INTEGER*4 (A-Z)

0004 *  	PARAMETER FILSIZ=204800

0005 *  	LOGICAL*1 LINE(132),NAME(17),DEFAULT(17),PREFIX(17),IDNSTR(17)

0006 *  	LOGICAL*1 FSPEC(80)

0007 *  	INTEGER*4 IDS(20000)

0008 *  	INTEGER*4 LWORDS(FILSIZ/4)

0009 *  	INTEGER*2 WORDS(FILSIZ/2)

0010 *  	LOGICAL*1 BYTES(FILSIZ)

0011 *  	LOGICAL*1 IDFLAG,OUTFLAG

0012 *  	INTEGER*4 INDEX2(128,50)

0013 *  	INTEGER*4 INDEX1(125)

0014 *  	COMMON /TEXT/ LINE,PREFIX,DEFAULT,NAME,IDNSTR,FSPEC

0015 *  	COMMON /VARS/ NUM,COL,INDEX,PASS,TPTR,CODE,ERRCNT,BINVAL,

     *  	1 SIZIDX,SIZSUBS

0016 *  	COMMON /LOGVAR/ IDFLAG,OUTFLAG

0017 *  	COMMON /IDS/ IDS

0018 *  	COMMON /MAPPED/ LWORDS

0019 *  	EQUIVALENCE (LWORDS,WORDS,BYTES)

0020 *  	EQUIVALENCE (LANGTAB,LWORDS(1))

0021 *  	EQUIVALENCE (SUBPTR,LWORDS(2))

0022 *  	EQUIVALENCE (INDEX1,LWORDS(3))

0023 *  	EQUIVALENCE (INDEX2,LWORDS(129))

0024    	LOGICAL*1 GETIDENT,UNBLNK,GETNUM,IDENT,GETLIN

0025    	IF (GETIDENT().EQ..FALSE.) GOTO 100

0026    	CALL MOVNAM(NAME,DEFAULT)

0027    100	IF (UNBLNK().EQ.';') GOTO 300

0028    	IF (UNBLNK().NE.',') GOTO 200

0029    	COL=COL+1

0030    	IF (GETIDENT().EQ..FALSE.) GOTO 200

0031    	IF (UNBLNK().EQ.';') GOTO 300

0032    200	CALL ERROR(1,SYNTAX)

0033    300	IF (GETLIN().EQ..FALSE.) GOTO 800

0034    	IF (UNBLNK().EQ.';') GOTO 300

0035    	IF (UNBLNK().EQ.'E') GOTO 900

0036    	IF (UNBLNK().EQ.'C') GOTO 500

0037    	IF (UNBLNK().EQ.'K') GOTO 500

0038    	IF (UNBLNK().EQ.'V') GOTO 600

0039    	IF (UNBLNK().EQ.'F') GOTO 300

0040    	IF (UNBLNK().EQ.'S') GOTO 300

0041    	IF (UNBLNK().EQ.'L') GOTO 300

0042    	IF (UNBLNK().EQ.'M') GOTO 300

0043    	IF (UNBLNK().EQ.'P') GOTO 300

0044    	CALL ERROR(7,UNRECOGNIZE)

0045    	GOTO 300

         

0046    500	COL=COL+1

0047    	CALL EVALC

0048    	GOTO 300

         

0049    600	CALL SKIPV

0050    	GOTO 300

         

0051    800	CALL ERROR(8,MISSINGEND)



STRUCT          21-Aug-1978 21:30:19	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 49  

					SYSMSG.FOR.49       



0052    900	RETURN

0053    	END



STRUCT          21-Aug-1978 21:30:19	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 50  

					SYSMSG.FOR.49       



PROGRAM SECTIONS



    Name                 Bytes   Attributes



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

  1 $PDATA                  12   PIC CON REL LCL   SHR NOEXE   RD NOWRT LONG

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

  3 TEXT                   280   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  4 VARS                    40   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  5 LOGVAR                   2   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  6 IDS                  80000   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  7 MAPPED              204800   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG





ENTRY POINTS



    Address  Type Name           



  0-00000000      STRUCT         





VARIABLES



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



  4-0000001C  I*4 BINVAL           4-00000014  I*4 CODE             4-00000004  I*4 COL              4-00000018  I*4 ERRCNT         

  2-00000000  L*1 GETNUM           2-00000001  L*1 IDENT            5-00000000  L*1 IDFLAG           4-00000008  I*4 INDEX          

  7-00000000  I*4 LANGTAB          2-0000000C  I*4 MISSINGEND       4-00000000  I*4 NUM              5-00000001  L*1 OUTFLAG        

  4-0000000C  I*4 PASS             4-00000020  I*4 SIZIDX           4-00000024  I*4 SIZSUBS          7-00000004  I*4 SUBPTR         

  2-00000004  I*4 SYNTAX           4-00000010  I*4 TPTR             2-00000008  I*4 UNRECOGNIZE    





ARRAYS



    Address  Type Name		       Bytes  Dimensions



  7-00000000  L*1 BYTES               204800  (204800)

  3-00000095  L*1 DEFAULT                 17  (17)

  3-000000C8  L*1 FSPEC                   80  (80)

  3-000000B7  L*1 IDNSTR                  17  (17)

  6-00000000  I*4 IDS                  80000  (20000)

  7-00000008  I*4 INDEX1                 500  (125)

  7-00000200  I*4 INDEX2               25600  (128,50)

  3-00000000  L*1 LINE                   132  (132)

  7-00000000  I*4 LWORDS              204800  (51200)

  3-000000A6  L*1 NAME                    17  (17)

  3-00000084  L*1 PREFIX                  17  (17)

  7-00000000  I*2 WORDS               204800  (102400)





LABELS



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



  0-0000001D  100       0-00000056  200       0-0000005E  300       0-0000010F  500       0-0000011F  600       0-00000129  800     

  0-00000131  900     



STRUCT          21-Aug-1978 21:30:19	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 51  

					SYSMSG.FOR.49       







FUNCTIONS AND SUBROUTINES REFERENCED



ERROR             EVALC             GETIDENT          GETLIN            MOVNAM            SKIPV             UNBLNK         





Total Space Allocated = 285512 Bytes



                21-Aug-1978 21:30:24	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 52  

					SYSMSG.FOR.49       



         

0001    	SUBROUTINE OUTSYM

0002    	INCLUDE 'SRC$:NDATACOM.FOR'

        C	LOGICAL*1 BLANK

        C	INTEGER LENGTH

        C	DATA BLANK/' '/

0003 *  	IMPLICIT INTEGER*4 (A-Z)

0004 *  	PARAMETER FILSIZ=204800

0005 *  	LOGICAL*1 LINE(132),NAME(17),DEFAULT(17),PREFIX(17),IDNSTR(17)

0006 *  	LOGICAL*1 FSPEC(80)

0007 *  	INTEGER*4 IDS(20000)

0008 *  	INTEGER*4 LWORDS(FILSIZ/4)

0009 *  	INTEGER*2 WORDS(FILSIZ/2)

0010 *  	LOGICAL*1 BYTES(FILSIZ)

0011 *  	LOGICAL*1 IDFLAG,OUTFLAG

0012 *  	INTEGER*4 INDEX2(128,50)

0013 *  	INTEGER*4 INDEX1(125)

0014 *  	COMMON /TEXT/ LINE,PREFIX,DEFAULT,NAME,IDNSTR,FSPEC

0015 *  	COMMON /VARS/ NUM,COL,INDEX,PASS,TPTR,CODE,ERRCNT,BINVAL,

     *  	1 SIZIDX,SIZSUBS

0016 *  	COMMON /LOGVAR/ IDFLAG,OUTFLAG

0017 *  	COMMON /IDS/ IDS

0018 *  	COMMON /MAPPED/ LWORDS

0019 *  	EQUIVALENCE (LWORDS,WORDS,BYTES)

0020 *  	EQUIVALENCE (LANGTAB,LWORDS(1))

0021 *  	EQUIVALENCE (SUBPTR,LWORDS(2))

0022 *  	EQUIVALENCE (INDEX1,LWORDS(3))

0023 *  	EQUIVALENCE (INDEX2,LWORDS(129))

0024    	IF (PASS.NE.1) GOTO 100

        C	TYPE 99,(NAME(K),K=1,LENGTH(NAME)),(BLANK,K=1,17-LENGTH(NAME)),CODE

        C99	FORMAT(1X,17A1,I10)

0025    	IF (INDEX.GE.20000) STOP 'INDEX OVERFLOW'

0026    	INDEX=INDEX+1

0027    	IDS(INDEX)=CODEVAL()

0028    100	RETURN

0029    	END



OUTSYM          21-Aug-1978 21:30:24	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 53  

					SYSMSG.FOR.49       



PROGRAM SECTIONS



    Name                 Bytes   Attributes



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

  1 $PDATA                  14   PIC CON REL LCL   SHR NOEXE   RD NOWRT LONG

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

  3 TEXT                   280   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  4 VARS                    40   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  5 LOGVAR                   2   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  6 IDS                  80000   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  7 MAPPED              204800   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG





ENTRY POINTS



    Address  Type Name           



  0-00000000      OUTSYM         





VARIABLES



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



  4-0000001C  I*4 BINVAL           4-00000014  I*4 CODE             4-00000004  I*4 COL              4-00000018  I*4 ERRCNT         

  5-00000000  L*1 IDFLAG           4-00000008  I*4 INDEX            7-00000000  I*4 LANGTAB          4-00000000  I*4 NUM            

  5-00000001  L*1 OUTFLAG          4-0000000C  I*4 PASS             4-00000020  I*4 SIZIDX           4-00000024  I*4 SIZSUBS        

  7-00000004  I*4 SUBPTR           4-00000010  I*4 TPTR           





ARRAYS



    Address  Type Name		       Bytes  Dimensions



  7-00000000  L*1 BYTES               204800  (204800)

  3-00000095  L*1 DEFAULT                 17  (17)

  3-000000C8  L*1 FSPEC                   80  (80)

  3-000000B7  L*1 IDNSTR                  17  (17)

  6-00000000  I*4 IDS                  80000  (20000)

  7-00000008  I*4 INDEX1                 500  (125)

  7-00000200  I*4 INDEX2               25600  (128,50)

  3-00000000  L*1 LINE                   132  (132)

  7-00000000  I*4 LWORDS              204800  (51200)

  3-000000A6  L*1 NAME                    17  (17)

  3-00000084  L*1 PREFIX                  17  (17)

  7-00000000  I*2 WORDS               204800  (102400)





LABELS



    Address   Label   



  0-00000045  100     







OUTSYM          21-Aug-1978 21:30:24	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 54  

					SYSMSG.FOR.49       



FUNCTIONS AND SUBROUTINES REFERENCED



CODEVAL        





Total Space Allocated = 285222 Bytes



                21-Aug-1978 21:30:27	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 55  

					SYSMSG.FOR.49       



         

0001    	INTEGER FUNCTION CODEVAL*4

0002    	INCLUDE 'SRC$:NDATACOM.FOR'

0003 *  	IMPLICIT INTEGER*4 (A-Z)

0004 *  	PARAMETER FILSIZ=204800

0005 *  	LOGICAL*1 LINE(132),NAME(17),DEFAULT(17),PREFIX(17),IDNSTR(17)

0006 *  	LOGICAL*1 FSPEC(80)

0007 *  	INTEGER*4 IDS(20000)

0008 *  	INTEGER*4 LWORDS(FILSIZ/4)

0009 *  	INTEGER*2 WORDS(FILSIZ/2)

0010 *  	LOGICAL*1 BYTES(FILSIZ)

0011 *  	LOGICAL*1 IDFLAG,OUTFLAG

0012 *  	INTEGER*4 INDEX2(128,50)

0013 *  	INTEGER*4 INDEX1(125)

0014 *  	COMMON /TEXT/ LINE,PREFIX,DEFAULT,NAME,IDNSTR,FSPEC

0015 *  	COMMON /VARS/ NUM,COL,INDEX,PASS,TPTR,CODE,ERRCNT,BINVAL,

     *  	1 SIZIDX,SIZSUBS

0016 *  	COMMON /LOGVAR/ IDFLAG,OUTFLAG

0017 *  	COMMON /IDS/ IDS

0018 *  	COMMON /MAPPED/ LWORDS

0019 *  	EQUIVALENCE (LWORDS,WORDS,BYTES)

0020 *  	EQUIVALENCE (LANGTAB,LWORDS(1))

0021 *  	EQUIVALENCE (SUBPTR,LWORDS(2))

0022 *  	EQUIVALENCE (INDEX1,LWORDS(3))

0023 *  	EQUIVALENCE (INDEX2,LWORDS(129))

0024    	CODEVAL=CODE.AND.'0FFFFFF8'X

0025    	IF ((CODE.AND.'8000'X).EQ.0) CODEVAL=CODEVAL.AND.'FFFF'X

0026    	RETURN

0027    	END



CODEVAL         21-Aug-1978 21:30:27	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 56  

					SYSMSG.FOR.49       



PROGRAM SECTIONS



    Name                 Bytes   Attributes



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

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

  3 TEXT                   280   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  4 VARS                    40   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  5 LOGVAR                   2   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  6 IDS                  80000   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  7 MAPPED              204800   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG





ENTRY POINTS



    Address  Type Name           



  0-00000000  I*4 CODEVAL        





VARIABLES



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



  4-0000001C  I*4 BINVAL           4-00000014  I*4 CODE             4-00000004  I*4 COL              4-00000018  I*4 ERRCNT         

  5-00000000  L*1 IDFLAG           4-00000008  I*4 INDEX            7-00000000  I*4 LANGTAB          4-00000000  I*4 NUM            

  5-00000001  L*1 OUTFLAG          4-0000000C  I*4 PASS             4-00000020  I*4 SIZIDX           4-00000024  I*4 SIZSUBS        

  7-00000004  I*4 SUBPTR           4-00000010  I*4 TPTR           





ARRAYS



    Address  Type Name		       Bytes  Dimensions



  7-00000000  L*1 BYTES               204800  (204800)

  3-00000095  L*1 DEFAULT                 17  (17)

  3-000000C8  L*1 FSPEC                   80  (80)

  3-000000B7  L*1 IDNSTR                  17  (17)

  6-00000000  I*4 IDS                  80000  (20000)

  7-00000008  I*4 INDEX1                 500  (125)

  7-00000200  I*4 INDEX2               25600  (128,50)

  3-00000000  L*1 LINE                   132  (132)

  7-00000000  I*4 LWORDS              204800  (51200)

  3-000000A6  L*1 NAME                    17  (17)

  3-00000084  L*1 PREFIX                  17  (17)

  7-00000000  I*2 WORDS               204800  (102400)





Total Space Allocated = 285174 Bytes



                21-Aug-1978 21:30:29	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 57  

					SYSMSG.FOR.49       



         

0001    	SUBROUTINE SETUPFILE

0002    	INCLUDE 'SRC$:NDATACOM.FOR'

0003 *  	IMPLICIT INTEGER*4 (A-Z)

0004 *  	PARAMETER FILSIZ=204800

0005 *  	LOGICAL*1 LINE(132),NAME(17),DEFAULT(17),PREFIX(17),IDNSTR(17)

0006 *  	LOGICAL*1 FSPEC(80)

0007 *  	INTEGER*4 IDS(20000)

0008 *  	INTEGER*4 LWORDS(FILSIZ/4)

0009 *  	INTEGER*2 WORDS(FILSIZ/2)

0010 *  	LOGICAL*1 BYTES(FILSIZ)

0011 *  	LOGICAL*1 IDFLAG,OUTFLAG

0012 *  	INTEGER*4 INDEX2(128,50)

0013 *  	INTEGER*4 INDEX1(125)

0014 *  	COMMON /TEXT/ LINE,PREFIX,DEFAULT,NAME,IDNSTR,FSPEC

0015 *  	COMMON /VARS/ NUM,COL,INDEX,PASS,TPTR,CODE,ERRCNT,BINVAL,

     *  	1 SIZIDX,SIZSUBS

0016 *  	COMMON /LOGVAR/ IDFLAG,OUTFLAG

0017 *  	COMMON /IDS/ IDS

0018 *  	COMMON /MAPPED/ LWORDS

0019 *  	EQUIVALENCE (LWORDS,WORDS,BYTES)

0020 *  	EQUIVALENCE (LANGTAB,LWORDS(1))

0021 *  	EQUIVALENCE (SUBPTR,LWORDS(2))

0022 *  	EQUIVALENCE (INDEX1,LWORDS(3))

0023 *  	EQUIVALENCE (INDEX2,LWORDS(129))

0024    	OPEN (UNIT=3,NAME='SRCD$:[1,2]FILES.DAT',TYPE='OLD',READONLY,ERR=100)

0025    	RETURN

0026    100	CALL ERROR(9,FILNOTFND)

0027    	RETURN

0028    	END



SETUPFILE       21-Aug-1978 21:30:29	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 58  

					SYSMSG.FOR.49       



PROGRAM SECTIONS



    Name                 Bytes   Attributes



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

  1 $PDATA                  25   PIC CON REL LCL   SHR NOEXE   RD NOWRT LONG

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

  3 TEXT                   280   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  4 VARS                    40   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  5 LOGVAR                   2   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  6 IDS                  80000   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  7 MAPPED              204800   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG





ENTRY POINTS



    Address  Type Name           



  0-00000000      SETUPFILE      





VARIABLES



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



  4-0000001C  I*4 BINVAL           4-00000014  I*4 CODE             4-00000004  I*4 COL              4-00000018  I*4 ERRCNT         

  2-00000000  I*4 FILNOTFND        5-00000000  L*1 IDFLAG           4-00000008  I*4 INDEX            7-00000000  I*4 LANGTAB        

  4-00000000  I*4 NUM              5-00000001  L*1 OUTFLAG          4-0000000C  I*4 PASS             4-00000020  I*4 SIZIDX         

  4-00000024  I*4 SIZSUBS          7-00000004  I*4 SUBPTR           4-00000010  I*4 TPTR           





ARRAYS



    Address  Type Name		       Bytes  Dimensions



  7-00000000  L*1 BYTES               204800  (204800)

  3-00000095  L*1 DEFAULT                 17  (17)

  3-000000C8  L*1 FSPEC                   80  (80)

  3-000000B7  L*1 IDNSTR                  17  (17)

  6-00000000  I*4 IDS                  80000  (20000)

  7-00000008  I*4 INDEX1                 500  (125)

  7-00000200  I*4 INDEX2               25600  (128,50)

  3-00000000  L*1 LINE                   132  (132)

  7-00000000  I*4 LWORDS              204800  (51200)

  3-000000A6  L*1 NAME                    17  (17)

  3-00000084  L*1 PREFIX                  17  (17)

  7-00000000  I*2 WORDS               204800  (102400)





LABELS



    Address   Label   



  0-00000015  100     







SETUPFILE       21-Aug-1978 21:30:29	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 59  

					SYSMSG.FOR.49       



FUNCTIONS AND SUBROUTINES REFERENCED



ERROR             FOR$OPEN       





Total Space Allocated = 285229 Bytes



                21-Aug-1978 21:30:31	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 60  

					SYSMSG.FOR.49       



         

0001    	LOGICAL FUNCTION NEXTFILE*1

0002    	INCLUDE 'SRC$:NDATACOM.FOR'

0003 *  	IMPLICIT INTEGER*4 (A-Z)

0004 *  	PARAMETER FILSIZ=204800

0005 *  	LOGICAL*1 LINE(132),NAME(17),DEFAULT(17),PREFIX(17),IDNSTR(17)

0006 *  	LOGICAL*1 FSPEC(80)

0007 *  	INTEGER*4 IDS(20000)

0008 *  	INTEGER*4 LWORDS(FILSIZ/4)

0009 *  	INTEGER*2 WORDS(FILSIZ/2)

0010 *  	LOGICAL*1 BYTES(FILSIZ)

0011 *  	LOGICAL*1 IDFLAG,OUTFLAG

0012 *  	INTEGER*4 INDEX2(128,50)

0013 *  	INTEGER*4 INDEX1(125)

0014 *  	COMMON /TEXT/ LINE,PREFIX,DEFAULT,NAME,IDNSTR,FSPEC

0015 *  	COMMON /VARS/ NUM,COL,INDEX,PASS,TPTR,CODE,ERRCNT,BINVAL,

     *  	1 SIZIDX,SIZSUBS

0016 *  	COMMON /LOGVAR/ IDFLAG,OUTFLAG

0017 *  	COMMON /IDS/ IDS

0018 *  	COMMON /MAPPED/ LWORDS

0019 *  	EQUIVALENCE (LWORDS,WORDS,BYTES)

0020 *  	EQUIVALENCE (LANGTAB,LWORDS(1))

0021 *  	EQUIVALENCE (SUBPTR,LWORDS(2))

0022 *  	EQUIVALENCE (INDEX1,LWORDS(3))

0023 *  	EQUIVALENCE (INDEX2,LWORDS(129))

0024    50	CLOSE (UNIT=1)

0025    	NEXTFILE=.FALSE.

0026    	READ(3,99,END=300) I,FSPEC

0027    99	FORMAT(Q,80A1)

0028    	FSPEC(I+1)=0

0029    	OPEN (UNIT=1,NAME=FSPEC,TYPE='OLD',READONLY,ERR=100)

0030    	NEXTFILE=.TRUE.

0031    300	RETURN

0032    100	CALL ERROR(10,FILNOTFND)

0033    	GOTO 50

0034    	END



NEXTFILE        21-Aug-1978 21:30:31	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 61  

					SYSMSG.FOR.49       



PROGRAM SECTIONS



    Name                 Bytes   Attributes



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

  1 $PDATA                  10   PIC CON REL LCL   SHR NOEXE   RD NOWRT LONG

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

  3 TEXT                   280   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  4 VARS                    40   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  5 LOGVAR                   2   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  6 IDS                  80000   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  7 MAPPED              204800   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG





ENTRY POINTS



    Address  Type Name           



  0-00000000  L*1 NEXTFILE       





VARIABLES



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



  4-0000001C  I*4 BINVAL           4-00000014  I*4 CODE             4-00000004  I*4 COL              4-00000018  I*4 ERRCNT         

  2-00000008  I*4 FILNOTFND        2-00000004  I*4 I                5-00000000  L*1 IDFLAG           4-00000008  I*4 INDEX          

  7-00000000  I*4 LANGTAB          4-00000000  I*4 NUM              5-00000001  L*1 OUTFLAG          4-0000000C  I*4 PASS           

  4-00000020  I*4 SIZIDX           4-00000024  I*4 SIZSUBS          7-00000004  I*4 SUBPTR           4-00000010  I*4 TPTR           





ARRAYS



    Address  Type Name		       Bytes  Dimensions



  7-00000000  L*1 BYTES               204800  (204800)

  3-00000095  L*1 DEFAULT                 17  (17)

  3-000000C8  L*1 FSPEC                   80  (80)

  3-000000B7  L*1 IDNSTR                  17  (17)

  6-00000000  I*4 IDS                  80000  (20000)

  7-00000008  I*4 INDEX1                 500  (125)

  7-00000200  I*4 INDEX2               25600  (128,50)

  3-00000000  L*1 LINE                   132  (132)

  7-00000000  I*4 LWORDS              204800  (51200)

  3-000000A6  L*1 NAME                    17  (17)

  3-00000084  L*1 PREFIX                  17  (17)

  7-00000000  I*2 WORDS               204800  (102400)





LABELS



    Address   Label       Address   Label       Address   Label       Address   Label   



  0-00000009  50        1-00000004  99'       0-00000061  100       0-0000005C  300     







NEXTFILE        21-Aug-1978 21:30:31	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 62  

					SYSMSG.FOR.49       



FUNCTIONS AND SUBROUTINES REFERENCED



ERROR             FOR$CLOSE         FOR$OPEN       





Total Space Allocated = 285315 Bytes



                21-Aug-1978 21:30:33	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 63  

					SYSMSG.FOR.49       



         

0001    	SUBROUTINE SHELLSORT

0002    	INCLUDE 'SRC$:NDATACOM.FOR'

0003 *  	IMPLICIT INTEGER*4 (A-Z)

0004 *  	PARAMETER FILSIZ=204800

0005 *  	LOGICAL*1 LINE(132),NAME(17),DEFAULT(17),PREFIX(17),IDNSTR(17)

0006 *  	LOGICAL*1 FSPEC(80)

0007 *  	INTEGER*4 IDS(20000)

0008 *  	INTEGER*4 LWORDS(FILSIZ/4)

0009 *  	INTEGER*2 WORDS(FILSIZ/2)

0010 *  	LOGICAL*1 BYTES(FILSIZ)

0011 *  	LOGICAL*1 IDFLAG,OUTFLAG

0012 *  	INTEGER*4 INDEX2(128,50)

0013 *  	INTEGER*4 INDEX1(125)

0014 *  	COMMON /TEXT/ LINE,PREFIX,DEFAULT,NAME,IDNSTR,FSPEC

0015 *  	COMMON /VARS/ NUM,COL,INDEX,PASS,TPTR,CODE,ERRCNT,BINVAL,

     *  	1 SIZIDX,SIZSUBS

0016 *  	COMMON /LOGVAR/ IDFLAG,OUTFLAG

0017 *  	COMMON /IDS/ IDS

0018 *  	COMMON /MAPPED/ LWORDS

0019 *  	EQUIVALENCE (LWORDS,WORDS,BYTES)

0020 *  	EQUIVALENCE (LANGTAB,LWORDS(1))

0021 *  	EQUIVALENCE (SUBPTR,LWORDS(2))

0022 *  	EQUIVALENCE (INDEX1,LWORDS(3))

0023 *  	EQUIVALENCE (INDEX2,LWORDS(129))

0024    	INTEGER*4 VAL

0025    	INTEGER STEPS(10)

0026    	DATA STEPS/1,4,13,40,121,364,1093,3280,9841,32767/

0027    	DO 100 T=1,8

0028    	IF (STEPS(T+2).GE.INDEX) GOTO 200

0029    100	CONTINUE

0030    	T=8

0031    200	DO 500 T=T,1,-1

0032    	H=STEPS(T)

0033    	DO 400 J=1+H,INDEX

0034    	VAL=IDS(J)

0035    	I=J-H

0036    250	IF (VAL.GE.IDS(I)) GOTO 350

0037    	IDS(I+H)=IDS(I)

0038    	I=I-H

0039    	IF (I.GT.0) GOTO 250

0040    350	IDS(I+H)=VAL

0041    400	CONTINUE

0042    500	CONTINUE

0043    	RETURN

0044    	END



SHELLSORT       21-Aug-1978 21:30:33	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 64  

					SYSMSG.FOR.49       



PROGRAM SECTIONS



    Name                 Bytes   Attributes



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

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

  3 TEXT                   280   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  4 VARS                    40   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  5 LOGVAR                   2   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  6 IDS                  80000   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  7 MAPPED              204800   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG





ENTRY POINTS



    Address  Type Name           



  0-00000000      SHELLSORT      





VARIABLES



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



  4-0000001C  I*4 BINVAL           4-00000014  I*4 CODE             4-00000004  I*4 COL              4-00000018  I*4 ERRCNT         

  2-00000030  I*4 H                2-00000038  I*4 I                5-00000000  L*1 IDFLAG           4-00000008  I*4 INDEX          

  2-00000034  I*4 J                7-00000000  I*4 LANGTAB          4-00000000  I*4 NUM              5-00000001  L*1 OUTFLAG        

  4-0000000C  I*4 PASS             4-00000020  I*4 SIZIDX           4-00000024  I*4 SIZSUBS          7-00000004  I*4 SUBPTR         

  2-0000002C  I*4 T                4-00000010  I*4 TPTR             2-00000028  I*4 VAL            





ARRAYS



    Address  Type Name		       Bytes  Dimensions



  7-00000000  L*1 BYTES               204800  (204800)

  3-00000095  L*1 DEFAULT                 17  (17)

  3-000000C8  L*1 FSPEC                   80  (80)

  3-000000B7  L*1 IDNSTR                  17  (17)

  6-00000000  I*4 IDS                  80000  (20000)

  7-00000008  I*4 INDEX1                 500  (125)

  7-00000200  I*4 INDEX2               25600  (128,50)

  3-00000000  L*1 LINE                   132  (132)

  7-00000000  I*4 LWORDS              204800  (51200)

  3-000000A6  L*1 NAME                    17  (17)

  3-00000084  L*1 PREFIX                  17  (17)

  2-00000000  I*4 STEPS                   40  (10)

  7-00000000  I*2 WORDS               204800  (102400)





LABELS



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



      **      100       0-00000025  200       0-0000004F  250       0-0000007B  350           **      400           **      500     





SHELLSORT       21-Aug-1978 21:30:33	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 65  

					SYSMSG.FOR.49       





Total Space Allocated = 285333 Bytes



                21-Aug-1978 21:30:36	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 66  

					SYSMSG.FOR.49       



         

0001    	SUBROUTINE MAKINDX

0002    	INCLUDE 'SRC$:NDATACOM.FOR'

0003 *  	IMPLICIT INTEGER*4 (A-Z)

0004 *  	PARAMETER FILSIZ=204800

0005 *  	LOGICAL*1 LINE(132),NAME(17),DEFAULT(17),PREFIX(17),IDNSTR(17)

0006 *  	LOGICAL*1 FSPEC(80)

0007 *  	INTEGER*4 IDS(20000)

0008 *  	INTEGER*4 LWORDS(FILSIZ/4)

0009 *  	INTEGER*2 WORDS(FILSIZ/2)

0010 *  	LOGICAL*1 BYTES(FILSIZ)

0011 *  	LOGICAL*1 IDFLAG,OUTFLAG

0012 *  	INTEGER*4 INDEX2(128,50)

0013 *  	INTEGER*4 INDEX1(125)

0014 *  	COMMON /TEXT/ LINE,PREFIX,DEFAULT,NAME,IDNSTR,FSPEC

0015 *  	COMMON /VARS/ NUM,COL,INDEX,PASS,TPTR,CODE,ERRCNT,BINVAL,

     *  	1 SIZIDX,SIZSUBS

0016 *  	COMMON /LOGVAR/ IDFLAG,OUTFLAG

0017 *  	COMMON /IDS/ IDS

0018 *  	COMMON /MAPPED/ LWORDS

0019 *  	EQUIVALENCE (LWORDS,WORDS,BYTES)

0020 *  	EQUIVALENCE (LANGTAB,LWORDS(1))

0021 *  	EQUIVALENCE (SUBPTR,LWORDS(2))

0022 *  	EQUIVALENCE (INDEX1,LWORDS(3))

0023 *  	EQUIVALENCE (INDEX2,LWORDS(129))

         

0024    	SIZIDX=1

0025    	J=1

0026    	DO 300 I=1,INDEX

0027    	VAL=IDS(I)

0028    	IF (VAL.EQ.IDS(I+1)) GOTO 300

0029    	INDEX2(J,SIZIDX)=VAL

0030    	INDEX2(J+64,SIZIDX)=0

0031    	J=J+1

0032    	IF (J.NE.65) GOTO 300

0033    	INDEX1(SIZIDX)=VAL

0034    	IF (I.NE.INDEX) SIZIDX=SIZIDX+1

        D	IF (SIZIDX.GE.30) STOP 'INDEX2 OVERFLOW'

0035    	J=1

0036    300	CONTINUE

         

        C  ZERO REMAINDER OF INDEX 2 BLOCK

0037    	IF (J.EQ.1) GOTO 600

0038    	DO 400 J=J,64

0039    400	INDEX2(J,SIZIDX)=-1

         

        C  SET HIGH ENTRY IN INDEX 1 BLOCK

0040    	INDEX1(SIZIDX)=-1

0041    600	CONTINUE

        C	TYPE 99,SIZIDX,(INDEX1(K),K=1,SIZIDX)

        C99	FORMAT(' SIZIDX=',I5, 8I8)

        C	TYPE 98,((INDEX2(J,K),J=1,64),K=1,SIZIDX)

        C98	FORMAT(8(1X,8I8/)//)

0042    	RETURN

0043    	END



MAKINDX         21-Aug-1978 21:30:36	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 67  

					SYSMSG.FOR.49       



PROGRAM SECTIONS



    Name                 Bytes   Attributes



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

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

  3 TEXT                   280   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  4 VARS                    40   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  5 LOGVAR                   2   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  6 IDS                  80000   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  7 MAPPED              204800   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG





ENTRY POINTS



    Address  Type Name           



  0-00000000      MAKINDX        





VARIABLES



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



  4-0000001C  I*4 BINVAL           4-00000014  I*4 CODE             4-00000004  I*4 COL              4-00000018  I*4 ERRCNT         

  2-00000004  I*4 I                5-00000000  L*1 IDFLAG           4-00000008  I*4 INDEX            2-00000000  I*4 J              

  7-00000000  I*4 LANGTAB          4-00000000  I*4 NUM              5-00000001  L*1 OUTFLAG          4-0000000C  I*4 PASS           

  4-00000020  I*4 SIZIDX           4-00000024  I*4 SIZSUBS          7-00000004  I*4 SUBPTR           4-00000010  I*4 TPTR           

  2-00000008  I*4 VAL            





ARRAYS



    Address  Type Name		       Bytes  Dimensions



  7-00000000  L*1 BYTES               204800  (204800)

  3-00000095  L*1 DEFAULT                 17  (17)

  3-000000C8  L*1 FSPEC                   80  (80)

  3-000000B7  L*1 IDNSTR                  17  (17)

  6-00000000  I*4 IDS                  80000  (20000)

  7-00000008  I*4 INDEX1                 500  (125)

  7-00000200  I*4 INDEX2               25600  (128,50)

  3-00000000  L*1 LINE                   132  (132)

  7-00000000  I*4 LWORDS              204800  (51200)

  3-000000A6  L*1 NAME                    17  (17)

  3-00000084  L*1 PREFIX                  17  (17)

  7-00000000  I*2 WORDS               204800  (102400)





LABELS



    Address   Label       Address   Label       Address   Label   



  0-00000082  300           **      400       0-000000BA  600     







MAKINDX         21-Aug-1978 21:30:36	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 68  

					SYSMSG.FOR.49       



Total Space Allocated = 285328 Bytes



                21-Aug-1978 21:30:40	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 69  

					SYSMSG.FOR.49       



         

0001    	SUBROUTINE GETMSG

0002    	INCLUDE 'SRC$:NDATACOM.FOR'

0003 *  	IMPLICIT INTEGER*4 (A-Z)

0004 *  	PARAMETER FILSIZ=204800

0005 *  	LOGICAL*1 LINE(132),NAME(17),DEFAULT(17),PREFIX(17),IDNSTR(17)

0006 *  	LOGICAL*1 FSPEC(80)

0007 *  	INTEGER*4 IDS(20000)

0008 *  	INTEGER*4 LWORDS(FILSIZ/4)

0009 *  	INTEGER*2 WORDS(FILSIZ/2)

0010 *  	LOGICAL*1 BYTES(FILSIZ)

0011 *  	LOGICAL*1 IDFLAG,OUTFLAG

0012 *  	INTEGER*4 INDEX2(128,50)

0013 *  	INTEGER*4 INDEX1(125)

0014 *  	COMMON /TEXT/ LINE,PREFIX,DEFAULT,NAME,IDNSTR,FSPEC

0015 *  	COMMON /VARS/ NUM,COL,INDEX,PASS,TPTR,CODE,ERRCNT,BINVAL,

     *  	1 SIZIDX,SIZSUBS

0016 *  	COMMON /LOGVAR/ IDFLAG,OUTFLAG

0017 *  	COMMON /IDS/ IDS

0018 *  	COMMON /MAPPED/ LWORDS

0019 *  	EQUIVALENCE (LWORDS,WORDS,BYTES)

0020 *  	EQUIVALENCE (LANGTAB,LWORDS(1))

0021 *  	EQUIVALENCE (SUBPTR,LWORDS(2))

0022 *  	EQUIVALENCE (INDEX1,LWORDS(3))

0023 *  	EQUIVALENCE (INDEX2,LWORDS(129))

0024    	LOGICAL*1 GETNUM,GETIDENT,IDENT,UNBLNK

0025    	LOGICAL*1 IDSTR(20)

0026    	LOGICAL*1 VECT(7)

        D	INTEGER*2 RETURN,LENGTH

0027    	COL=COL+1

0028    	IF (GETIDENT().NE..TRUE.) GOTO 2000

0029    	IF (IDENT(NAME,%REF('MSG')).NE..TRUE.) GOTO 2000

0030    	IF (PASS.EQ.2) GOTO 45

0031    	IF (OUTFLAG) CALL OUTSYM

0032    	OUTFLAG=.FALSE.

0033    	GOTO 2000

0034    45	DO 50 I=1,7

0035    50	VECT(I)=0

0036    	GOTO 200

0037    150	IF (UNBLNK().NE.',') GOTO 1000

0038    	COL=COL+1

0039    200	IF (UNBLNK().EQ.'<') GOTO 800

0040    	IF (GETIDENT()) GOTO 300

0041    250	CALL ERROR(11,BADMSGSYNTAX)

0042    	GOTO 2000

0043    300	IF (IDENT(NAME,%REF('IDENT'))) GOTO 500

0044    	IF (IDENT(NAME,%REF('DETAIL'))) GOTO 550

0045    	IF (IDENT(NAME,%REF('USERVAL'))) GOTO 600

0046    	IF (IDENT(NAME,%REF('FAOCNT'))) GOTO 650

0047    	IF (IDENT(NAME,%REF('LANG'))) GOTO 700

0048    	GOTO 250

0049    500	IF (UNBLNK().NE.'=') GOTO 250

0050    	COL=COL+1

0051    	IF (GETIDENT().EQ..FALSE.) GOTO 250

0052    	VECT(7)=LENGTH(NAME)

0053    	CALL MOVNAM(NAME,IDSTR)



GETMSG          21-Aug-1978 21:30:40	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 70  

					SYSMSG.FOR.49       



0054    	GOTO 150

0055    550	ASSIGN 570 TO RETURN

0056    	GOTO 750

0057    570	VECT(1)=NUM

0058    	GOTO 150

0059    600	ASSIGN 620 TO RETURN

0060    	GOTO 750

0061    620	VECT(3)=NUM

0062    	GOTO 150

0063    650	ASSIGN 670 TO RETURN

0064    	GOTO 750

0065    670	VECT(2)=NUM

0066    	GOTO 150

0067    700	ASSIGN 720 TO RETURN

0068    	GOTO 750

0069    720	VECT(5)=NUM

0070    	GOTO 150

         

0071    750	IF (UNBLNK().NE.'=') GOTO 250

0072    	COL=COL+1

0073    	IF (GETNUM().EQ..FALSE.) GOTO 250

0074    	GOTO RETURN

         

0075    800	COL=COL+1

0076    	IF (IDFLAG.EQ..FALSE..OR.VECT(7).NE.0) GOTO 830

0077    	VECT(7)=LENGTH(IDNSTR)

0078    	DO 820 I=1,16

0079    	IDSTR(I)=IDNSTR(I)

0080    	IF (IDSTR(I).EQ.0) GOTO 830

0081    820	CONTINUE

0082    	CALL ERROR(12,IDTOOLONG)

0083    830	TMPPTR=TPTR+7+VECT(7)

0084    845	IF (LINE(COL).EQ.'>') GOTO 900

0085    850	BYTES(TMPPTR)=LINE(COL)

0086    	TMPPTR=TMPPTR+1

0087    	COL=COL+1

0088    	IF (COL.LE.120) GOTO 845

0089    	GOTO 250

0090    900	COL=COL+1

0091    	IF (LINE(COL).EQ.'>') GOTO 850

0092    	BYTES(TMPPTR)=0

0093    	VECT(6)=TMPPTR+1-TPTR

0094    	GOTO 150

         

0095    1000	IF (UNBLNK().NE.';') GOTO 250

0096    	DO 1100 I=1,7

0097    1100	BYTES(TPTR+I-1)=VECT(I)

0098    	IF (VECT(7).EQ.0) GOTO 1300

0099    	DO 1200 I=1,VECT(7)

0100    1200	BYTES(TPTR+6+I)=IDSTR(I)

0101    1300	CONTINUE

        C	TYPE 99,TPTR,TMPPTR,VECT,(BYTES(K),K=TPTR+7,TMPPTR)

        C99	FORMAT(1X,I5,I6,7I5/1X,72A1)

0102    	DO 1500 I=1,SIZIDX

0103    	IF (INDEX1(I).GE.CODEVAL()) GOTO 1600

0104    1500	CONTINUE



GETMSG          21-Aug-1978 21:30:40	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 71  

					SYSMSG.FOR.49       



0105    	I=SIZIDX

0106    1600	DO 1700 J=1,64

0107    	IF (INDEX2(J,I).EQ.CODEVAL()) GOTO 1800

0108    1700	CONTINUE

0109    	STOP 'CONSISTENCY CHECK 3'

0110    1800	IF (INDEX2(J+64,I).EQ.0) GOTO 1900

0111    	CALL ERROR(13,DUPLICATE)

0112    	GOTO 2000

0113    1900	INDEX2(J+64,I)=TPTR-1

0114    	TPTR=TMPPTR+1

         

0115    2000	RETURN

0116    	END



GETMSG          21-Aug-1978 21:30:40	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 72  

					SYSMSG.FOR.49       



PROGRAM SECTIONS



    Name                 Bytes   Attributes



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

  1 $PDATA                  68   PIC CON REL LCL   SHR NOEXE   RD NOWRT LONG

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

  3 TEXT                   280   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  4 VARS                    40   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  5 LOGVAR                   2   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  6 IDS                  80000   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  7 MAPPED              204800   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG





ENTRY POINTS



    Address  Type Name           



  0-00000000      GETMSG         





VARIABLES



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



  2-00000020  I*4 BADMSGSYNTAX     4-0000001C  I*4 BINVAL           4-00000014  I*4 CODE             4-00000004  I*4 COL            

  2-00000034  I*4 DUPLICATE        4-00000018  I*4 ERRCNT           2-0000001C  I*4 I                5-00000000  L*1 IDFLAG         

  2-00000028  I*4 IDTOOLONG        4-00000008  I*4 INDEX            2-00000030  I*4 J                7-00000000  I*4 LANGTAB        

  4-00000000  I*4 NUM              5-00000001  L*1 OUTFLAG          4-0000000C  I*4 PASS             2-00000024  I*4 RETURN         

  4-00000020  I*4 SIZIDX           4-00000024  I*4 SIZSUBS          7-00000004  I*4 SUBPTR           2-0000002C  I*4 TMPPTR         

  4-00000010  I*4 TPTR           





ARRAYS



    Address  Type Name		       Bytes  Dimensions



  7-00000000  L*1 BYTES               204800  (204800)

  3-00000095  L*1 DEFAULT                 17  (17)

  3-000000C8  L*1 FSPEC                   80  (80)

  3-000000B7  L*1 IDNSTR                  17  (17)

  6-00000000  I*4 IDS                  80000  (20000)

  2-00000000  L*1 IDSTR                   20  (20)

  7-00000008  I*4 INDEX1                 500  (125)

  7-00000200  I*4 INDEX2               25600  (128,50)

  3-00000000  L*1 LINE                   132  (132)

  7-00000000  I*4 LWORDS              204800  (51200)

  3-000000A6  L*1 NAME                    17  (17)

  3-00000084  L*1 PREFIX                  17  (17)

  2-00000014  L*1 VECT                     7  (7)

  7-00000000  I*2 WORDS               204800  (102400)





LABELS



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



GETMSG          21-Aug-1978 21:30:40	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 73  

					SYSMSG.FOR.49       





  0-0000004E  45            **      50        0-0000005E  150       0-00000074  200       0-0000008F  250       0-0000009A  300     

  0-000000D3  500       0-0000010A  550       0-00000114  570       0-0000011F  600       0-00000129  620       0-00000134  650     

  0-0000013E  670       0-00000149  700       0-00000153  720       0-0000015E  750       0-0000018E  800           **      820     

  0-000001CD  830       0-000001DE  845       0-000001EF  850       0-00000220  900       0-00000254  1000          **      1100    

      **      1200      0-000002A8  1300          **      1500      0-000002D2  1600          **      1700      0-00000305  1800    

  0-00000322  1900      0-00000338  2000    





FUNCTIONS AND SUBROUTINES REFERENCED



CODEVAL           ERROR             GETIDENT          GETNUM            IDENT             LENGTH            MOVNAM         

OUTSYM            UNBLNK         





Total Space Allocated = 286223 Bytes



                21-Aug-1978 21:30:49	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 74  

					SYSMSG.FOR.49       



         

0001    	SUBROUTINE MAKSUBS

0002    	INCLUDE 'SRC$:NDATACOM.FOR'

0003 *  	IMPLICIT INTEGER*4 (A-Z)

0004 *  	PARAMETER FILSIZ=204800

0005 *  	LOGICAL*1 LINE(132),NAME(17),DEFAULT(17),PREFIX(17),IDNSTR(17)

0006 *  	LOGICAL*1 FSPEC(80)

0007 *  	INTEGER*4 IDS(20000)

0008 *  	INTEGER*4 LWORDS(FILSIZ/4)

0009 *  	INTEGER*2 WORDS(FILSIZ/2)

0010 *  	LOGICAL*1 BYTES(FILSIZ)

0011 *  	LOGICAL*1 IDFLAG,OUTFLAG

0012 *  	INTEGER*4 INDEX2(128,50)

0013 *  	INTEGER*4 INDEX1(125)

0014 *  	COMMON /TEXT/ LINE,PREFIX,DEFAULT,NAME,IDNSTR,FSPEC

0015 *  	COMMON /VARS/ NUM,COL,INDEX,PASS,TPTR,CODE,ERRCNT,BINVAL,

     *  	1 SIZIDX,SIZSUBS

0016 *  	COMMON /LOGVAR/ IDFLAG,OUTFLAG

0017 *  	COMMON /IDS/ IDS

0018 *  	COMMON /MAPPED/ LWORDS

0019 *  	EQUIVALENCE (LWORDS,WORDS,BYTES)

0020 *  	EQUIVALENCE (LANGTAB,LWORDS(1))

0021 *  	EQUIVALENCE (SUBPTR,LWORDS(2))

0022 *  	EQUIVALENCE (INDEX1,LWORDS(3))

0023 *  	EQUIVALENCE (INDEX2,LWORDS(129))

0024    	LOGICAL*1 BNUM(2)

0025    	EQUIVALENCE (BNUM,NUM)

0026    	SIZSUBS=0

0027    	TPTR=SUBPTR+4

0028    	TMPPTR=SUBPTR+1

0029    	BYTES(TPTR-1)=0

0030    	OPEN(UNIT=1,NAME='SRCD$:[1,2]SUBSYSIDS.DAT',

        	1 TYPE='OLD',READONLY,ERR=399)

0031    100	READ(1,99,END=400) NUM,QNUM,(LINE(I),I=1,120)

0032    99	FORMAT(I5,Q,120A1)

0033    	IF (QNUM.LE.8) GOTO 200

0034    	QNUM=8

0035    	CALL ERROR(14,SUBNAMLONG)

0036    200	BYTES(TPTR)=BNUM(1)

0037    	BYTES(TPTR+1)=BNUM(2)

0038    	DO 300 I=1,QNUM

0039    	BYTES(TPTR+I+1)=LINE(I)

0040    300	CONTINUE

0041    	BYTES(TPTR+QNUM+2)=0

0042    	TPTR=TPTR+QNUM+3

0043    	GOTO 100

0044    399	CALL ERROR(15,FILNOTFND)

0045    400	NUM=TPTR-2-TMPPTR

0046    	BYTES(TMPPTR)=BNUM(1)

0047    	BYTES(TMPPTR+1)=BNUM(2)

0048    	SIZSUBS=NUM/512+1

0049    	CLOSE (UNIT=1)

0050    	RETURN

0051    	END



MAKSUBS         21-Aug-1978 21:30:49	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 75  

					SYSMSG.FOR.49       



PROGRAM SECTIONS



    Name                 Bytes   Attributes



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

  1 $PDATA                  41   PIC CON REL LCL   SHR NOEXE   RD NOWRT LONG

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

  3 TEXT                   280   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  4 VARS                    40   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  5 LOGVAR                   2   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  6 IDS                  80000   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

  7 MAPPED              204800   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG





ENTRY POINTS



    Address  Type Name           



  0-00000000      MAKSUBS        





VARIABLES



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



  4-0000001C  I*4 BINVAL           4-00000014  I*4 CODE             4-00000004  I*4 COL              4-00000018  I*4 ERRCNT         

  2-00000010  I*4 FILNOTFND        2-00000008  I*4 I                5-00000000  L*1 IDFLAG           4-00000008  I*4 INDEX          

  7-00000000  I*4 LANGTAB          4-00000000  I*4 NUM              5-00000001  L*1 OUTFLAG          4-0000000C  I*4 PASS           

  2-00000004  I*4 QNUM             4-00000020  I*4 SIZIDX           4-00000024  I*4 SIZSUBS          2-0000000C  I*4 SUBNAMLONG     

  7-00000004  I*4 SUBPTR           2-00000000  I*4 TMPPTR           4-00000010  I*4 TPTR           





ARRAYS



    Address  Type Name		       Bytes  Dimensions



  4-00000000  L*1 BNUM                     2  (2)

  7-00000000  L*1 BYTES               204800  (204800)

  3-00000095  L*1 DEFAULT                 17  (17)

  3-000000C8  L*1 FSPEC                   80  (80)

  3-000000B7  L*1 IDNSTR                  17  (17)

  6-00000000  I*4 IDS                  80000  (20000)

  7-00000008  I*4 INDEX1                 500  (125)

  7-00000200  I*4 INDEX2               25600  (128,50)

  3-00000000  L*1 LINE                   132  (132)

  7-00000000  I*4 LWORDS              204800  (51200)

  3-000000A6  L*1 NAME                    17  (17)

  3-00000084  L*1 PREFIX                  17  (17)

  7-00000000  I*2 WORDS               204800  (102400)





LABELS



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



  1-00000021  99'       0-0000003F  100       0-000000A8  200           **      300       0-000000FE  399       0-00000106  400     



MAKSUBS         21-Aug-1978 21:30:49	VAX-11 FORTRAN IV-PLUS V1.0-2      Page 76  

					SYSMSG.FOR.49       







FUNCTIONS AND SUBROUTINES REFERENCED



ERROR             FOR$CLOSE         FOR$OPEN       





Total Space Allocated = 285571 Bytes





COMPILER OPTIONS



/CHECK=(NOBOUNDS,OVERFLOW)

/DEBUG=(NOSYMBOLS,TRACEBACK)

/OPTIMIZE  /WARNINGS  /I4  /NOD_LINES  

