FORTRAN         - BACKTRANSLATOR FOR FORTRAN COMMAND             22-AUG-1978 05:18:54   VAX-11 MACRO X0.3-11               Page   1

HJ                                                                                                                               (1)



                                     0000     1 	.TITLE	FORTRAN - BACKTRANSLATOR FOR FORTRAN COMMAND

                                     0000     2 	.IDENT	/HJ/

                                     0000     3  

                                     0000     4 ;

                                     0000     5 ; COPYRIGHT (C) 1977

                                     0000     6 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

                                     0000     7 ;

                                     0000     8 ; THIS SOFTWARE IS FURNISHED UNDER  A LICENSE FOR USE ONLY  ON  A

                                     0000     9 ; SINGLE COMPUTER SYSTEM AND MAY BE  COPIED ONLY WITH  THE INCLU-

                                     0000    10 ; SION OF  THE  ABOVE  COPYRIGHT NOTICE.  THIS SOFTWARE,  OR  ANY

                                     0000    11 ; OTHER COPIES THEREOF, MAY NOT BE  PROVIDED  OR  OTHERWISE  MADE

                                     0000    12 ; AVAILABLE TO ANY OTHER PERSON EXCEPT  FOR  USE  ON  SUCH SYSTEM

                                     0000    13 ; AND TO  ONE WHO AGREES  TO  THESE LICENSE  TERMS.  TITLE TO AND

                                     0000    14 ; OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC.

                                     0000    15 ;

                                     0000    16 ; THE INFORMATION IN THIS SOFTWARE  IS  SUBJECT TO CHANGE WITHOUT

                                     0000    17 ; NOTICE AND SHOULD NOT BE CONSTRUED  AS  A COMMITMENT BY DIGITAL

                                     0000    18 ; EQUIPMENT CORPORATION.

                                     0000    19 ;

                                     0000    20 ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS

                                     0000    21 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.

                                     0000    22 ;

                                     0000    23 ; H.J.	AUGUST 1977

                                     0000    24 ;

                                     0000    25 ; BACKTRANSLATOR FORTRAN

                                     0000    26 ;

FORTRAN         - BACKTRANSLATOR FOR FORTRAN COMMAND             22-AUG-1978 05:18:54   VAX-11 MACRO X0.3-11               Page   2

HJ                                                                                                                               (2)



                                     0000    28 ;	.SBTTL INITIALIZE DATA DEFINITIONS

                                     0000    29 ;

                                     0000    30 ; MACRO LIBRARY CALLS

                                     0000    31 ;

                                     0000    32 	$BTDEFS				;DEFINE VALUES TO BE USED LOCALLY

                                     0000       	.SAVE

                                 00000000       	.PSECT	$ABS$,ABS

                                     0000       	.RESTORE

                                     0000    33 	$CLIDEF				;DEFINE CLI CODES AND VALUES

                                     0000       	.SAVE

                                 00000000       	.PSECT	$ABS$,ABS

                                     0000       CLI$L_INIARGCNT:

                           00000004  0000        			.BLKL	1

                                     0004       CLI$A_PROGXFER:

                           00000008  0004        			.BLKL	1

                                     0008       CLI$A_UTILSERV:

                           0000000C  0008        			.BLKL	1

                                     000C       CLI$A_IMGHDADR:

                           00000010  000C        			.BLKL	1

                                     0010       CLI$A_IMGFILED:

                           00000014  0010        			.BLKL	1

                                     0014       CLI$L_LINKFLAG:

                           00000018  0014        			.BLKL	1

                                     0018       CLI$L_CLIFLAG:

                           0000001C  0018        			.BLKL	1

                           00000000  001C        	. = 0

                                     0000       CLI$B_RQTYPE:

                           00000001  0000        			.BLKB	1

                                     0001       CLI$W_SERVCOD:

                                     0001       CLI$B_RQINDX:

                                     0001       CLI$B_BITNUM:

                           00000002  0001        			.BLKB	1

                                     0002       CLI$B_RQFLGS:

                           00000003  0002        			.BLKB	1

                                     0003       CLI$B_RQSTAT:

                           00000004  0003        			.BLKB	1

                                     0004       CLI$A_ERRACT:

                           00000008  0004        			.BLKL	1

                                     0008       CLI$Q_RQDESC:

                                     0008       CLI$W_RQSIZE:

                           0000000A  0008        			.BLKW	1

                           0000000C  000A        			.BLKW	1

                                     000C       CLI$L_RQVALU:

                                     000C       CLI$A_RQADDR:

                           00000010  000C        			.BLKL	1

                                     0010       CLI$A_PRSACT:

                           00000014  0010        			.BLKL	1

                                     0014       CLI$A_ABSACT:

                           00000018  0014        			.BLKL	1

                                     0018       CLI$A_QUALST:

                           0000001C  0018        			.BLKL	1

                                     001C       CLI$C_REQDESC:

                                     001C       CLI$K_REQDESC:

                           00000000  001C        	. = 0

                                     0000       CLI$B_QDBLKSIZ:

                           00000001  0000        			.BLKB	1

                                     0001       CLI$B_QDCODE:

FORTRAN         - BACKTRANSLATOR FOR FORTRAN COMMAND             22-AUG-1978 05:18:54   VAX-11 MACRO X0.3-11               Page   3

HJ                                                                                                                               (2)



                           00000002  0001        			.BLKB	1

                                     0002       CLI$B_QDFLGS:

                           00000003  0002        			.BLKB	1

                                     0003       CLI$B_QDSTAT:

                           00000004  0003        			.BLKB	1

                                     0004       CLI$Q_QDVALDESC:

                                     0004       CLI$W_QDVALSIZ:

                           00000006  0004        			.BLKW	1

                           00000008  0006        			.BLKW	1

                                     0008       CLI$A_QDVALADR:

                           0000000C  0008        			.BLKL	1

                                     000C       CLI$A_TRUACT:

                           00000010  000C        			.BLKL	1

                                     0010       CLI$A_FLSACT:

                           00000014  0010        			.BLKL	1

                                     0014       CLI$C_QUALDEF:

                                     0014       CLI$K_QUALDEF:

                                     0014       CLI$C_QDBITS:

                                     0014       CLI$K_QDBITS:

                                     0014       CLI$L_USRVAL:

                           00000018  0014        			.BLKL	1

                           00000000  0018        	. = 0

                                     0000       CLI$L_WORKAREA:

                           00000080  0000        			.BLKL	32

                                     0080       CLI$C_WORKAREA:

                                     0080       CLI$K_WORKAREA:

                                     0000       	.RESTORE

                                     0000    34 	$CLIDEFQUALFORT			;DEFINE QUALIFIER CODES

                                     0000       	.SAVE

                                 00000080       	.PSECT	$ABS$,ABS

                           00000000  0080       	.=0

                                     0000       PRO_B_PROMPT:

                           00000001  0000       	.BLKB	1

                                     0001       PRO_B_FLAGS:

                           00000002  0001       	.BLKB	1

                                     0002       PRO_K_LENGTH:

                                     0000       	.RESTORE

                                     0000       	.SAVE

                                 00000080       	.PSECT	$ABS$,ABS

                           00000000  0080       	.=0

                                     0000       QUA_B_OFFSET:

                           00000001  0000       	.BLKB	1

                                     0001       QUA_B_INDEX:

                           00000002  0001       	.BLKB	1

                                     0002       QUA_B_DEFVAL:

                           00000003  0002       	.BLKB	1

                                     0003       QUA_W_FLAGS:

                           00000005  0003       	.BLKW	1

                                     0005       QUA_B_IMAGE:

                           00000006  0005       	.BLKB	1

                                     0006       QUA_G_CHNGLST:

                                     0006       QUA_W_QUALIST:

                           00000008  0006       	.BLKW	1

                                     0008       QUA_B_PARMCNT:

                           00000009  0008       	.BLKB	1

                                     0009       QUA_W_PROMPT:

                           0000000B  0009       	.BLKW	1

FORTRAN         - BACKTRANSLATOR FOR FORTRAN COMMAND             22-AUG-1978 05:18:54   VAX-11 MACRO X0.3-11               Page   4

HJ                                                                                                                               (2)



                                     0000       	.RESTORE

                                     0000    35 

                                     0000    36 ;

                                     0000    37 ; LOCAL SYMBOLS

                                     0000    38 ;

                                     0000    39 

                                     0000    40 ;

                                     0000    41 ; ARGUMENT LIST OFFSET DEFINITIONS

                                     0000    42 ;

                                     0000    43 

                                     0000    44 ;

                                     0000    45 ; LOCAL DATA

                                     0000    46 ;

                                     0000    47 	IMPURE

                                 00000000       	.PSECT	IMPURE_	LONG,RD,WRT,NOEXE

                                     0000    48 ;

                                     0000    49 ;

                                     0000    50 ;

                                     0000    51 INPUT_ARGLIST:

                                     0000    52 	$ARGLST	3,-			;CREATE AN ARGUMENT LIST

                                     0000    53 		INPUT_DESC,-		;FOR FIRST INPUT PARAMETER

                                     0000    54 		CLIWORKAREA,-		;WORK AREA FOR CLI

                                     0000    55 		BITMAP			;BIT ARRAY

                           00000003  0000       		.LONG	3

                           00000010' 0004       		.LONG	INPUT_DESC

                           00000000' 0008       		.LONG	CLIWORKAREA

                           00000000' 000C       		.LONG	BITMAP

                                     0010    56 

                                     0010    57 INPUT_DESC:

                                     0010    58 	$CLIREQDESC -			;CREATE A CLI REQUEST DESCRIPTOR

                                     0010    59 		RQTYPE=CLI$K_INPUT1,-	;FOR PRIMARY INPUT

                                     0010    60 		RQFLGS=CLI$V_PARMREQ	;PRIMARY INPUT IS REQUIRED

                           0000002C  0010       	.BLKB	CLI$C_REQDESC

                           00000010  002C       	. = $CLI.+CLI$B_RQTYPE

                                 10  0010       	  .BYTE	CLI$K_INPUT1

                           00000012  0011       	. = $CLI.+CLI$B_RQFLGS

                                 01  0012       	.BYTE	$$$.

                           0000002C  0013       	. = $CLI..

                                     002C    61 

                                     002C    62 OBJECT_ARGLIST:

                                     002C    63 	$ARGLST	3,-			;CREATE AN ARGUMENT LIST

                                     002C    64 		OBJECT_DESC,-		;FOR PRIMARY OUTPUT

                                     002C    65 		CLIWORKAREA,-		;WORK AREA FOR CLI

                                     002C    66 		BITMAP			;BIT ARRAY

                           00000003  002C       		.LONG	3

                           0000003C' 0030       		.LONG	OBJECT_DESC

                           00000000' 0034       		.LONG	CLIWORKAREA

                           00000000' 0038       		.LONG	BITMAP

                                     003C    67 

                                     003C    68 OBJECT_DESC:

                                     003C    69 	$CLIREQDESC -			;CREATE A CLI REQUEST DESCRIPTOR

                                     003C    70 		RQTYPE=CLI$K_OUTPUT1	;FOR PRIMARY OUTPUT

                           00000058  003C       	.BLKB	CLI$C_REQDESC

                           0000003C  0058       	. = $CLI.+CLI$B_RQTYPE

                                 20  003C       	  .BYTE	CLI$K_OUTPUT1

                           00000058  003D       	. = $CLI..

                                     0058    71 

FORTRAN         - BACKTRANSLATOR FOR FORTRAN COMMAND             22-AUG-1978 05:18:54   VAX-11 MACRO X0.3-11               Page   5

HJ                                                                                                                               (2)



                                     0058    72 LIST_ARGLIST:

                                     0058    73 	$ARGLST	3,-			;CREATE AN ARGUMENT LIST

                                     0058    74 		LIST_DESC,-		;FOR SECONDARY OUTPUT

                                     0058    75 		CLIWORKAREA,-		;WORK AREA FOR CLI

                                     0058    76 		BITMAP			;BIT ARRAY

                           00000003  0058       		.LONG	3

                           00000068' 005C       		.LONG	LIST_DESC

                           00000000' 0060       		.LONG	CLIWORKAREA

                           00000000' 0064       		.LONG	BITMAP

                                     0068    77 

                                     0068    78 LIST_DESC:

                                     0068    79 	$CLIREQDESC -			;CREATE A CLI REQUEST DESCRIPTOR

                                     0068    80 		RQTYPE=CLI$K_OUTPUT2	;FOR SECONDARY OUTPUT

                           00000084  0068       	.BLKB	CLI$C_REQDESC

                           00000068  0084       	. = $CLI.+CLI$B_RQTYPE

                                 21  0068       	  .BYTE	CLI$K_OUTPUT2

                           00000084  0069       	. = $CLI..

                                     0084    81 

                                     0084    82 

                                     0084    83 QUAL_ARGLIST:

                                     0084    84 	$ARGLST	3,-			;CREATE AN ARGUMENT LIST

                                     0084    85 		QUAL_DESC,-		;FOR COMMAND QUALIFIERS

                                     0084    86 		CLIWORKAREA,-		;WORK AREA FOR CLI

                                     0084    87 		BITMAP			;BIT ARRAY

                           00000003  0084       		.LONG	3

                           00000094' 0088       		.LONG	QUAL_DESC

                           00000000' 008C       		.LONG	CLIWORKAREA

                           00000000' 0090       		.LONG	BITMAP

                                     0094    88 

                                     0094    89 QUAL_DESC:

                                     0094    90 	$CLIREQDESC -			;CREATE A CLI REQUEST DESCRIPTOR

                                     0094    91 		RQTYPE=CLI$K_GETQUAL,-	;FOR COMMAND QUALIFIERS

                                     0094    92 		QUALST=QUAL_LIST	;ADDRESS OF THE QUALIFIERS

                           000000B0  0094       	.BLKB	CLI$C_REQDESC

                           00000094  00B0       	. = $CLI.+CLI$B_RQTYPE

                                 02  0094       	  .BYTE	CLI$K_GETQUAL

                           000000AC  0095       	. = $CLI.+CLI$A_QUALST

                           0000001C' 00AC       	    .LONG	<QUAL_LIST-$CLI.>

                                     00B0    93 

                                     00B0    94 

                                     00B0    95 QUAL_LIST:

                                     00B0    96 	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     00B0    97 		QDCODE=CLI$K_FORT_CHEC,-;/CHECK:(BOUNDS,OVERFLOW,ARGS)

                                     00B0    98 		TRUACT=FORT_CHECK,-	;CALL QUALIFIER HANDLER

                                     00B0    99 		FLSACT=FORT_NOCHECK	;CALL NEGATIVE QUALIFIER HANDLER

                           000000C4  00B0       	.BLKB	CLI$C_QUALDEF

                           000000B0  00C4       	. = $CLI.+CLI$B_QDBLKSIZ

                                 17' 00B0       	  .BYTE	30045$-.

                                 01  00B1       	  .BYTE	CLI$K_FORT_CHEC

                           000000BC  00B2       	. = $CLI.+CLI$A_TRUACT

                           FFFFFFAE' 00BC       	    .LONG	<FORT_CHECK-$CLI.>

                           0000002F' 00C0       	    .LONG	<FORT_NOCHECK-$CLI.>

                                 00  00C4       	.BYTE	0

                                 00  00C5       	.BYTE	0

                                 00  00C6       	.BYTE	0

                                     00C7       30045$:

                                     00C7   100 

FORTRAN         - BACKTRANSLATOR FOR FORTRAN COMMAND             22-AUG-1978 05:18:54   VAX-11 MACRO X0.3-11               Page   6

HJ                                                                                                                               (2)



                                     00C7   101 	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     00C7   102 		QDCODE=CLI$K_FORT_CONT,-;/CONTIUATIONS:N

                                     00C7   103 		TRUACT=FORT_CONTIN	;CALL QUALIFIER HANDLER

                           000000DB  00C7       	.BLKB	CLI$C_QUALDEF

                           000000C7  00DB       	. = $CLI.+CLI$B_QDBLKSIZ

                                 17' 00C7       	  .BYTE	30049$-.

                                 02  00C8       	  .BYTE	CLI$K_FORT_CONT

                           000000D3  00C9       	. = $CLI.+CLI$A_TRUACT

                           00000025' 00D3       	    .LONG	<FORT_CONTIN-$CLI.>

                           000000DB  00D7       . = $CLI..

                                 00  00DB       	.BYTE	0

                                 00  00DC       	.BYTE	0

                                 00  00DD       	.BYTE	0

                                     00DE       30049$:

                                     00DE   104 

                                     00DE   105 	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     00DE   106 		QDCODE=CLI$K_FORT_DEBU,-;/DEBUG:(LINES,SYMBOLS)

                                     00DE   107 		TRUACT=FORT_DEBUG,-	;CALL QUALIFIER HANDLER

                                     00DE   108 		FLSACT=FORT_NODEBUG	;CALL NEGATIVE QUALIFIER HANDLER

                           000000F2  00DE       	.BLKB	CLI$C_QUALDEF

                           000000DE  00F2       	. = $CLI.+CLI$B_QDBLKSIZ

                                 17' 00DE       	  .BYTE	30053$-.

                                 03  00DF       	  .BYTE	CLI$K_FORT_DEBU

                           000000EA  00E0       	. = $CLI.+CLI$A_TRUACT

                           00000019' 00EA       	    .LONG	<FORT_DEBUG-$CLI.>

                           0000007C' 00EE       	    .LONG	<FORT_NODEBUG-$CLI.>

                                 00  00F2       	.BYTE	0

                                 00  00F3       	.BYTE	0

                                 00  00F4       	.BYTE	0

                                     00F5       30053$:

                                     00F5   109 

                                     00F5   110 	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     00F5   111 		QDCODE=CLI$K_FORT_D_LI,-;/D_LINES

                                     00F5   112 		TRUACT=FORT_D_LINES	;CALL QUALIFIER HANDLER

                           00000109  00F5       	.BLKB	CLI$C_QUALDEF

                           000000F5  0109       	. = $CLI.+CLI$B_QDBLKSIZ

                                 17' 00F5       	  .BYTE	30057$-.

                                 04  00F6       	  .BYTE	CLI$K_FORT_D_LI

                           00000101  00F7       	. = $CLI.+CLI$A_TRUACT

                           00000072' 0101       	    .LONG	<FORT_D_LINES-$CLI.>

                           00000109  0105       . = $CLI..

                                 00  0109       	.BYTE	0

                                 00  010A       	.BYTE	0

                                 00  010B       	.BYTE	0

                                     010C       30057$:

                                     010C   113 

                                     010C   114 	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     010C   115 		QDCODE=CLI$K_FORT_I4,-	;/I4

                                     010C   116 		TRUACT=FORT_I4,-	;CALL QUALIFIER HANDLER

                                     010C   117 		FLSACT=FORT_NOI4	;CALL NEGATIVE QUALIFIER HANDLER

                           00000120  010C       	.BLKB	CLI$C_QUALDEF

                           0000010C  0120       	. = $CLI.+CLI$B_QDBLKSIZ

                                 17' 010C       	  .BYTE	30061$-.

                                 05  010D       	  .BYTE	CLI$K_FORT_I4

                           00000118  010E       	. = $CLI.+CLI$A_TRUACT

                           00000066' 0118       	    .LONG	<FORT_I4-$CLI.>

                           00000071' 011C       	    .LONG	<FORT_NOI4-$CLI.>

FORTRAN         - BACKTRANSLATOR FOR FORTRAN COMMAND             22-AUG-1978 05:18:54   VAX-11 MACRO X0.3-11               Page   7

HJ                                                                                                                               (2)



                                 00  0120       	.BYTE	0

                                 00  0121       	.BYTE	0

                                 00  0122       	.BYTE	0

                                     0123       30061$:

                                     0123   118 

                                     0123   119 	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     0123   120 		QDCODE=CLI$K_FORT_MACH,-;/MACHINE_CODE

                                     0123   121 		TRUACT=FORT_MACHINE	;CALL QUALIFIER HANDLER

                           00000137  0123       	.BLKB	CLI$C_QUALDEF

                           00000123  0137       	. = $CLI.+CLI$B_QDBLKSIZ

                                 17' 0123       	  .BYTE	30065$-.

                                 07  0124       	  .BYTE	CLI$K_FORT_MACH

                           0000012F  0125       	. = $CLI.+CLI$A_TRUACT

                           00000067' 012F       	    .LONG	<FORT_MACHINE-$CLI.>

                           00000137  0133       . = $CLI..

                                 00  0137       	.BYTE	0

                                 00  0138       	.BYTE	0

                                 00  0139       	.BYTE	0

                                     013A       30065$:

                                     013A   122 

                                     013A   123 	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     013A   124 		QDCODE=CLI$K_FORT_OPTI,-;/OPTIMIZE

                                     013A   125 		FLSACT=FORT_NOOPTIMIZE	;CALL QUALIFIER HANDLER

                           0000014E  013A       	.BLKB	CLI$C_QUALDEF

                           0000013A  014E       	. = $CLI.+CLI$B_QDBLKSIZ

                                 17' 013A       	  .BYTE	30069$-.

                                 09  013B       	  .BYTE	CLI$K_FORT_OPTI

                           0000014A  013C       	. = $CLI.+CLI$A_FLSACT

                           0000005B' 014A       	    .LONG	<FORT_NOOPTIMIZE-$CLI.>

                                 00  014E       	.BYTE	0

                                 00  014F       	.BYTE	0

                                 00  0150       	.BYTE	0

                                     0151       30069$:

                                     0151   126 

                                     0151   127 	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     0151   128 		QDCODE=CLI$K_FORT_WARN,-;/WARNINGS

                                     0151   129 		FLSACT=FORT_NOWARNINGS	;CALL QUALIFIER HANDLER

                           00000165  0151       	.BLKB	CLI$C_QUALDEF

                           00000151  0165       	. = $CLI.+CLI$B_QDBLKSIZ

                                 17' 0151       	  .BYTE	30073$-.

                                 0A  0152       	  .BYTE	CLI$K_FORT_WARN

                           00000161  0153       	. = $CLI.+CLI$A_FLSACT

                           00000050' 0161       	    .LONG	<FORT_NOWARNINGS-$CLI.>

                                 00  0165       	.BYTE	0

                                 00  0166       	.BYTE	0

                                 00  0167       	.BYTE	0

                                     0168       30073$:

                                     0168   130 

                                     0168   131 	$CLIQUALDESC -			;DEFINE A QUALIFIER

                                     0168   132 		QDCODE=CLI$K_FORT_WORK,-;/WORKFILES:N

                                     0168   133 		TRUACT=FORT_WORKFILES	;CALL QUALIFIER HANDLER

                           0000017C  0168       	.BLKB	CLI$C_QUALDEF

                           00000168  017C       	. = $CLI.+CLI$B_QDBLKSIZ

                                 17' 0168       	  .BYTE	30077$-.

                                 0B  0169       	  .BYTE	CLI$K_FORT_WORK

                           00000174  016A       	. = $CLI.+CLI$A_TRUACT

                           00000045' 0174       	    .LONG	<FORT_WORKFILES-$CLI.>

FORTRAN         - BACKTRANSLATOR FOR FORTRAN COMMAND             22-AUG-1978 05:18:54   VAX-11 MACRO X0.3-11               Page   8

HJ                                                                                                                               (2)



                           0000017C  0178       . = $CLI..

                                 00  017C       	.BYTE	0

                                 00  017D       	.BYTE	0

                                 00  017E       	.BYTE	0

                                     017F       30077$:

                                     017F   134 

                                     017F   135 

                                     017F   136 	$CLIQUALDESC	END_LIST	;TERMINATE THE QUALIFIER LIST

                                 00  017F       	.BYTE	0

FORTRAN         - BACKTRANSLATOR FOR FORTRAN COMMAND             22-AUG-1978 05:18:54   VAX-11 MACRO X0.3-11               Page   9

HJ                                                                                                                               (3)



                                     0180   138 ;	.SBTTL FORTRAN

                                     0180   139 ;+

                                     0180   140 ; BACKTRANSLATOR FORTRAN

                                     0180   141 ;

                                     0180   142 ; CONVERTS DCL COMMAND TO COMPATIBILITY MODE IMAGE COMMAND

                                     0180   143 ;

                                     0180   144 ;

                                     0180   145 ; INPUTS:

                                     0180   146 ;  THE INPUTS ARE RETURNED FROM THE DCL RESULT PARSER AS RESPONSES

                                     0180   147 ;  TO THE VARIOUS REQUEST DESCRIPTORS THAT ARE GIVEN TO IT.

                                     0180   148 ;

                                     0180   149 ;

                                     0180   150 ; OUTPUTS:

                                     0180   151 ;  THE OUTPUT CONSISTS OF TWO STRINGS OR AN ERROR MESSAGE AND ABORT.

                                     0180   152 ;  THE CALLER OPENS THE IMAGE AND INVOKES THE COMPATIBILITY EMULATOR

                                     0180   153 ;  IF NO ERROR OCCURS.

                                     0180   154 ;

                                     0180   155 ;  1- FILENAME STRING OF COMPATIBILITY MODE IMAGE TO BE ACTIVATED.

                                     0180   156 ;

                                     0180   157 ;  2- COMMAND LINE TO BE GIVEN TO THE IMAGE.

                                     0180   158 ;

                                     0180   159 ;-

                                     0180   160 

                                     0180   161 	PURE

                                 00000000       	.PSECT	PURE_	BYTE,RD,EXE,NOWRT

                                     0000   162 

                                     0000   163 FORT::

                                 FA  0000   164 	CALLG	W^OBJECT_ARGLIST,-	;PROCESS PRIMARY OUTPUT (/OBJECT:SPEC)

         08 BC       002C'CF         0001   165 		@CLI$A_UTILSERV(AP)

            59       0044'CF     7D  0006   166 	MOVQ	W^CLI$Q_RQDESC+OBJECT_DESC,R9 ;PICK UP STRING DESCRIPTOR

                          FFF2'  30  000B   167 	BSBW	INSERTARG		;SAVE IT AS PRIMARY OUTPUT

                     0000'CF     97  000E   168 	DECB	W^PARAMLOC		;SET UP FOR SECONDARY OUTPUT

                                 FA  0012   169 	CALLG	W^LIST_ARGLIST,-	;PROCESS SECONDARY OUTPUT (/LIST:SPEC)

         08 BC       0058'CF         0013   170 		@CLI$A_UTILSERV(AP)

            59       0070'CF     7D  0018   171 	MOVQ	W^CLI$Q_RQDESC+LIST_DESC,R9 ;PICK UP STRING DESCRIPTOR

                          FFE0'  30  001D   172 	BSBW	INSERTARG		;SAVE IT AS SECONDARY OUTPUT

                                     0020   173 	$SETSTRING </-SP>,TYPE=INLINE,POS=<PRIM_OUTPUT-1>

                          FFDD'  30  0020       	BSBW	SETSTRING

                                 05  0023       	.BYTE	$$$FLAGS

                                 00  0024       	.BYTE	0

                                 FF  0025       	.BYTE	PRIM_OUTPUT-1

                                 04  0026       	.BYTE	$$CNT

                        50 53 2D 2F  0027       	.ASCII	\/-SP\

                                     002B   174 					;FORCE NO SPOOL OPTION ON LISTING

       0000'CF         F6 8F     90  002B   175 	MOVB	#PRIM_INPUT,W^HOLDLOC	;CAUSE OPTIONS TO GO AT END OF INPUT

                                 FA  0031   176 	CALLG	W^QUAL_ARGLIST,-	;PROCESS COMMAND OPTIONS

         08 BC       0084'CF         0032   177 		@CLI$A_UTILSERV(AP)

       0000'CF         F7 8F     90  0037   178 	MOVB	#PRIM_INPUT+1,W^PARAMLOC;SET UP TO START ACCEPTING INPUTS

                     0000'CF     97  003D   179 10$:	DECB	W^PARAMLOC		;PUT NEXT INPUT IN NEXT POSITION

                                 FA  0041   180 	CALLG	W^INPUT_ARGLIST,-	;PROCESS THE PRIMARY INPUT

         08 BC       0000'CF         0042   181 		@CLI$A_UTILSERV(AP)

            59       0018'CF     7D  0047   182 	MOVQ	W^CLI$Q_RQDESC+INPUT_DESC,R9 ;PICK UP STRING DESCRIPTOR

                          FFB1'  30  004C   183 	BSBW	INSERTARG		;SAVE IT AS PRIMARY INPUT

                                 E0  004F   184 	BBS	#CLI$V_CONCATINP,-	;BRANCH IF MORE INPUTS TO GET THEM

       0013'CF            01         0050   185 		W^CLI$B_RQSTAT+INPUT_DESC,10$

                          E8         0054       

                                     0055   186 	DEFPROG	F4V,NOSTICK		;RETURN DEFAULT PROGRAM TO RUN

FORTRAN         - BACKTRANSLATOR FOR FORTRAN COMMAND             22-AUG-1978 05:18:54   VAX-11 MACRO X0.3-11               Page  10

HJ                                                                                                                               (3)



            50            02     D0  0055       	MOVL	#PROG_F4V,R0

       0000'CF            01     D0  0058       	MOVL	#1,W^STICKY_FLAG

                                 05  005D   187 	RSB				;RETURN TO GENERATE COMMAND TEXT

                                     005E   188 

                                     005E   189 

                                     005E   190 FORT_CHECK:

                                     005E   191 	$SETSTRING	</CH>,F4V,FLAGS=<BTR$M_RETURN> ;SET UP /CHECK OPTION

                               0FFC  005E       	.WORD	SAVE_REG_MASK

                          FF9D'  30  0060       	BSBW	SETSTRING

                                 01  0063       	.BYTE	$$$FLAGS

                                 02  0064       	.BYTE	PROG_F4V

                                 03  0065       	.BYTE	$$CNT

                           48 43 2F  0066       	.ASCII	\/CH\

                                     0069   192 10$:	$GETKEYWORD	LIST=<-		;ACCEPT /CHECK[:VALS...] OPTION

                                     0069   193 				ALL,-

                                     0069   194 				ARGUMENTS,-

                                     0069   195 				BOUNDS,-

                                     0069   196 				OVERFLOW,-

                                     0069   197 				NONE,-

                                     0069   198 				NOARGUMENTS,-

                                     0069   199 				NOBOUNDS,-

                                     0069   200 				NOOVERFLOW>

                          FF94'  30  0069       	BSBW	GETKEYWORD

                                 44' 006C       	.BYTE	30082$-30083$

                                     006D       30083$:

                                 03' 006D       	.BYTE	$$CNT

                           4C 4C 41  006E       	.ASCII	\ALL\

                                 09' 0071       	.BYTE	$$CNT

         53 54 4E 45 4D 55 47 52 41  0072       	.ASCII	\ARGUMENTS\

                                 06' 007B       	.BYTE	$$CNT

                  53 44 4E 55 4F 42  007C       	.ASCII	\BOUNDS\

                                 08' 0082       	.BYTE	$$CNT

            57 4F 4C 46 52 45 56 4F  0083       	.ASCII	\OVERFLOW\

                                 04' 008B       	.BYTE	$$CNT

                        45 4E 4F 4E  008C       	.ASCII	\NONE\

                                 0B' 0090       	.BYTE	$$CNT

   53 54 4E 45 4D 55 47 52 41 4F 4E  0091       	.ASCII	\NOARGUMENTS\

                                 08' 009C       	.BYTE	$$CNT

            53 44 4E 55 4F 42 4F 4E  009D       	.ASCII	\NOBOUNDS\

                                 0A' 00A5       	.BYTE	$$CNT

      57 4F 4C 46 52 45 56 4F 4F 4E  00A6       	.ASCII	\NOOVERFLOW\

                                 00  00B0       	.BYTE	0

                                     00B1       30082$:

                                     00B1   201 	$REPLACE	<:AL,:AR,:B,:O,:NON,:NOA,:NOB,:NOO>,10$

                          FF4C'  30  00B1       	BSBW	REPLACE

                                 B4' 00B4       	.BYTE	10$-30085$

                                     00B5       30085$:

                                 FF  00B5       	.BYTE	$$INDEX

                                 03  00B6       	.BYTE	$$CNT

                           4C 41 3A  00B7       	.ASCII	\:AL\

                                 FE  00BA       	.BYTE	$$INDEX

                                 03  00BB       	.BYTE	$$CNT

                           52 41 3A  00BC       	.ASCII	\:AR\

                                 FD  00BF       	.BYTE	$$INDEX

                                 02  00C0       	.BYTE	$$CNT

                              42 3A  00C1       	.ASCII	\:B\

                                 FC  00C3       	.BYTE	$$INDEX

FORTRAN         - BACKTRANSLATOR FOR FORTRAN COMMAND             22-AUG-1978 05:18:54   VAX-11 MACRO X0.3-11               Page  11

HJ                                                                                                                               (3)



                                 02  00C4       	.BYTE	$$CNT

                              4F 3A  00C5       	.ASCII	\:O\

                                 FB  00C7       	.BYTE	$$INDEX

                                 04  00C8       	.BYTE	$$CNT

                        4E 4F 4E 3A  00C9       	.ASCII	\:NON\

                                 FA  00CD       	.BYTE	$$INDEX

                                 04  00CE       	.BYTE	$$CNT

                        41 4F 4E 3A  00CF       	.ASCII	\:NOA\

                                 F9  00D3       	.BYTE	$$INDEX

                                 04  00D4       	.BYTE	$$CNT

                        42 4F 4E 3A  00D5       	.ASCII	\:NOB\

                                 F8  00D9       	.BYTE	$$INDEX

                                 04  00DA       	.BYTE	$$CNT

                        4F 4F 4E 3A  00DB       	.ASCII	\:NOO\

                                     00DF       30084$:

                                     00DF   202 

                                     00DF   203 FORT_NOCHECK:

                                     00DF   204 	$SETSTRING	</NOCH>,F4V,FLAGS=<BTR$M_EXPLICIT>

                               0FFC  00DF       	.WORD	SAVE_REG_MASK

                          FF1C'  30  00E1       	BSBW	SETSTRING

                                 20  00E4       	.BYTE	$$$FLAGS

                                 02  00E5       	.BYTE	PROG_F4V

                                 05  00E6       	.BYTE	$$CNT

                     48 43 4F 4E 2F  00E7       	.ASCII	\/NOCH\

                                     00EC   205 

                                     00EC   206 FORT_CONTIN:

                                     00EC   207 	$GETDECNUM	</CO>,F4V	;ACCEPT /CONTIUATIONS:N

                               0FFC  00EC       	.WORD	SAVE_REG_MASK

                          FF0F'  30  00EE       	BSBW	GETSTRING

                                 80  00F1       	.BYTE	$$$FLAGS

                                 02  00F2       	.BYTE	PROG_F4V

                                 03  00F3       	.BYTE	$$CNT

                           4F 43 2F  00F4       	.ASCII	\/CO\

                                     00F7   208 

                                     00F7   209 FORT_DEBUG:

                                     00F7   210 	$SETSTRING	</DE>,F4V,FLAGS=<BTR$M_RETURN> ;SET UP /DEBUG OPTION

                               0FFC  00F7       	.WORD	SAVE_REG_MASK

                          FF04'  30  00F9       	BSBW	SETSTRING

                                 01  00FC       	.BYTE	$$$FLAGS

                                 02  00FD       	.BYTE	PROG_F4V

                                 03  00FE       	.BYTE	$$CNT

                           45 44 2F  00FF       	.ASCII	\/DE\

                                     0102   211 10$:	$GETKEYWORD	LIST=<-		;ACCEPT /DEBUG[:VALS...] OPTION

                                     0102   212 				ALL,-

                                     0102   213 				SYMBOLS,-

                                     0102   214 				TRACEBACK,-

                                     0102   215 				NONE,-

                                     0102   216 				NOSYMBOLS,-

                                     0102   217 				NOTRACEBACK>

                          FEFB'  30  0102       	BSBW	GETKEYWORD

                                 32' 0105       	.BYTE	30086$-30087$

                                     0106       30087$:

                                 03' 0106       	.BYTE	$$CNT

                           4C 4C 41  0107       	.ASCII	\ALL\

                                 07' 010A       	.BYTE	$$CNT

               53 4C 4F 42 4D 59 53  010B       	.ASCII	\SYMBOLS\

                                 09' 0112       	.BYTE	$$CNT

FORTRAN         - BACKTRANSLATOR FOR FORTRAN COMMAND             22-AUG-1978 05:18:54   VAX-11 MACRO X0.3-11               Page  12

HJ                                                                                                                               (3)



         4B 43 41 42 45 43 41 52 54  0113       	.ASCII	\TRACEBACK\

                                 04' 011C       	.BYTE	$$CNT

                        45 4E 4F 4E  011D       	.ASCII	\NONE\

                                 09' 0121       	.BYTE	$$CNT

         53 4C 4F 42 4D 59 53 4F 4E  0122       	.ASCII	\NOSYMBOLS\

                                 0B' 012B       	.BYTE	$$CNT

   4B 43 41 42 45 43 41 52 54 4F 4E  012C       	.ASCII	\NOTRACEBACK\

                                 00  0137       	.BYTE	0

                                     0138       30086$:

                                     0138   218 	$REPLACE	<:A,:S,:T,:NON,:NOS,:NOT>,10$

                          FEC5'  30  0138       	BSBW	REPLACE

                                 C6' 013B       	.BYTE	10$-30089$

                                     013C       30089$:

                                 FF  013C       	.BYTE	$$INDEX

                                 02  013D       	.BYTE	$$CNT

                              41 3A  013E       	.ASCII	\:A\

                                 FE  0140       	.BYTE	$$INDEX

                                 02  0141       	.BYTE	$$CNT

                              53 3A  0142       	.ASCII	\:S\

                                 FD  0144       	.BYTE	$$INDEX

                                 02  0145       	.BYTE	$$CNT

                              54 3A  0146       	.ASCII	\:T\

                                 FC  0148       	.BYTE	$$INDEX

                                 04  0149       	.BYTE	$$CNT

                        4E 4F 4E 3A  014A       	.ASCII	\:NON\

                                 FB  014E       	.BYTE	$$INDEX

                                 04  014F       	.BYTE	$$CNT

                        53 4F 4E 3A  0150       	.ASCII	\:NOS\

                                 FA  0154       	.BYTE	$$INDEX

                                 04  0155       	.BYTE	$$CNT

                        54 4F 4E 3A  0156       	.ASCII	\:NOT\

                                     015A       30088$:

                                     015A   219 

                                     015A   220 FORT_NODEBUG:

                                     015A   221 	$SETSTRING	</NODE>,F4V,FLAGS=<BTR$M_EXPLICIT>

                               0FFC  015A       	.WORD	SAVE_REG_MASK

                          FEA1'  30  015C       	BSBW	SETSTRING

                                 20  015F       	.BYTE	$$$FLAGS

                                 02  0160       	.BYTE	PROG_F4V

                                 05  0161       	.BYTE	$$CNT

                     45 44 4F 4E 2F  0162       	.ASCII	\/NODE\

                                     0167   222 

                                     0167   223 FORT_D_LINES:

                                     0167   224 	$SETSTRING	</DL>		;SET UP /D_LINES OPTION

                               0FFC  0167       	.WORD	SAVE_REG_MASK

                          FE94'  30  0169       	BSBW	SETSTRING

                                 00  016C       	.BYTE	$$$FLAGS

                                 00  016D       	.BYTE	0

                                 03  016E       	.BYTE	$$CNT

                           4C 44 2F  016F       	.ASCII	\/DL\

                                     0172   225 

                                     0172   226 FORT_I4:

                                     0172   227 	$SETSTRING	</I4>		;SET UP /I4 OPTION

                               0FFC  0172       	.WORD	SAVE_REG_MASK

                          FE89'  30  0174       	BSBW	SETSTRING

                                 00  0177       	.BYTE	$$$FLAGS

                                 00  0178       	.BYTE	0

FORTRAN         - BACKTRANSLATOR FOR FORTRAN COMMAND             22-AUG-1978 05:18:54   VAX-11 MACRO X0.3-11               Page  13

HJ                                                                                                                               (3)



                                 03  0179       	.BYTE	$$CNT

                           34 49 2F  017A       	.ASCII	\/I4\

                                     017D   228 

                                     017D   229 FORT_NOI4:

                                     017D   230 	$SETSTRING	</NOI4>,FLAGS=<BTR$M_EXPLICIT>	;SET UP /NOI4 OPTION

                               0FFC  017D       	.WORD	SAVE_REG_MASK

                          FE7E'  30  017F       	BSBW	SETSTRING

                                 20  0182       	.BYTE	$$$FLAGS

                                 00  0183       	.BYTE	0

                                 05  0184       	.BYTE	$$CNT

                     34 49 4F 4E 2F  0185       	.ASCII	\/NOI4\

                                     018A   231 

                                     018A   232 FORT_MACHINE:

                                     018A   233 	$SETSTRING	</MA>,F4V	;SET UP MACHINE CODE LISTING

                               0FFC  018A       	.WORD	SAVE_REG_MASK

                          FE71'  30  018C       	BSBW	SETSTRING

                                 00  018F       	.BYTE	$$$FLAGS

                                 02  0190       	.BYTE	PROG_F4V

                                 03  0191       	.BYTE	$$CNT

                           41 4D 2F  0192       	.ASCII	\/MA\

                                     0195   234 

                                     0195   235 FORT_NOOPTIMIZE:

                                     0195   236 	$SETSTRING	</-OP>,FLAGS=<BTR$M_EXPLICIT> ;SET UP /NOOPTIMIZE

                               0FFC  0195       	.WORD	SAVE_REG_MASK

                          FE66'  30  0197       	BSBW	SETSTRING

                                 20  019A       	.BYTE	$$$FLAGS

                                 00  019B       	.BYTE	0

                                 04  019C       	.BYTE	$$CNT

                        50 4F 2D 2F  019D       	.ASCII	\/-OP\

                                     01A1   237 

                                     01A1   238 FORT_NOWARNINGS:

                                     01A1   239 	$SETSTRING	</-WA>,FLAGS=<BTR$M_EXPLICIT> ;SET UP /NOWARNINGS

                               0FFC  01A1       	.WORD	SAVE_REG_MASK

                          FE5A'  30  01A3       	BSBW	SETSTRING

                                 20  01A6       	.BYTE	$$$FLAGS

                                 00  01A7       	.BYTE	0

                                 04  01A8       	.BYTE	$$CNT

                        41 57 2D 2F  01A9       	.ASCII	\/-WA\

                                     01AD   240 

                                     01AD   241 FORT_WORKFILES:

                                     01AD   242 	$GETDECNUM	</WO>,F4V	;SET UP /WORKFILES:N

                               0FFC  01AD       	.WORD	SAVE_REG_MASK

                          FE4E'  30  01AF       	BSBW	GETSTRING

                                 80  01B2       	.BYTE	$$$FLAGS

                                 02  01B3       	.BYTE	PROG_F4V

                                 03  01B4       	.BYTE	$$CNT

                           4F 57 2F  01B5       	.ASCII	\/WO\

                                     01B8   243 

                                     01B8   244 

                                     01B8   245 	.END

FORTRAN         - BACKTRANSLATOR FOR FORTRAN COMMAND             22-AUG-1978 05:18:54   VAX-11 MACRO X0.3-11               Page  14

SYMBOL TABLE                                                                                                                     (3)



$$$            = 00000004            CLI$B_QDSTAT     00000003            CLI$M_ABSADR   = 00000002            

$$$.           = 00000001            CLI$B_RQFLGS     00000002            CLI$M_ALLOCCUR = 00000001            

$$$FLAGS       = 00000080            CLI$B_RQINDX     00000001            CLI$M_BATCH    = 00000008            

$$$GBL         = 00000000            CLI$B_RQSTAT     00000003            CLI$M_CONCATINP= 00000002            

$$CNT          = 00000003            CLI$B_RQTYPE     00000000            CLI$M_DBGEXCP  = 00010000            

$$INDEX        = FFFFFFF9            CLI$C_QDBITS     00000014            CLI$M_DBGTRU   = 00000002            

$$T1           = 00000003            CLI$C_QUALDEF    00000014            CLI$M_DEBUG    = 00000001            

$CLI.          = 00000168 R     03   CLI$C_REQDESC    0000001C            CLI$M_DUMMY    = 00000002            

$CLI..         = 0000017F R     03   CLI$C_WORKAREA   00000080            CLI$M_EXPNAM   = 00000004            

$QUALNUM$      = 0000000C            CLI$K_ASCIIVAL = 00000041            CLI$M_INDIRECT = 00000010            

BIT...         = 00000008            CLI$K_CLISERV  = 00000005            CLI$M_KEYVALU  = 00000002            

BITMAP           ********   X   03   CLI$K_ENDPRM1  = 00000030            CLI$M_LASTVAL  = 00000001            

BTR$M_DECIMAL  = 00000080            CLI$K_ENDPRM2  = 00000031            CLI$M_MOREINP  = 00000004            

BTR$M_EXPLICIT = 00000020            CLI$K_ENDPRM3  = 00000032            CLI$M_MOREVALS = 00000001            

BTR$M_FORCE    = 00000002            CLI$K_ENDPRM4  = 00000033            CLI$M_PARMDEF  = 00000008            

BTR$M_LIST     = 00000040            CLI$K_FILSPEC  = 00000044            CLI$M_PARMPRS  = 00000001            

BTR$M_MULTKEY  = 00000010            CLI$K_FORT_CHEC= 00000001            CLI$M_PARMREQ  = 00000001            

BTR$M_RETURN   = 00000001            CLI$K_FORT_CONT= 00000002            CLI$M_QDEXPA   = 00000004            

BTR$M_TEMPPOS  = 00000004            CLI$K_FORT_DEBU= 00000003            CLI$M_QDUSRV   = 00000002            

BTR$M_VALREQ   = 00000008            CLI$K_FORT_D_LI= 00000004            CLI$M_QUALEXP  = 00000002            

BTR$V_DECIMAL  = 00000007            CLI$K_FORT_I4  = 00000005            CLI$M_QUALTRU  = 00000001            

BTR$V_EXPLICIT = 00000005            CLI$K_FORT_LIST= 00000006            CLI$M_TRMVRBLV = 00000300            

BTR$V_FORCE    = 00000001            CLI$K_FORT_MACH= 00000007            CLI$M_VERIFY   = 00000004            

BTR$V_LIST     = 00000006            CLI$K_FORT_OBJE= 00000008            CLI$M_VFYINP   = 00000020            

BTR$V_MULTKEY  = 00000004            CLI$K_FORT_OPTI= 00000009            CLI$Q_QDVALDESC  00000004            

BTR$V_RETURN   = 00000000            CLI$K_FORT_WARN= 0000000A            CLI$Q_RQDESC     00000008            

BTR$V_TEMPPOS  = 00000002            CLI$K_FORT_WORK= 0000000B            CLI$S_PRITYP   = 00000004            

BTR$V_VALREQ   = 00000003            CLI$K_GETCMD   = 00000001            CLI$S_SUBTYP   = 00000004            

BTR$_AMBIGKEYW = 00688030            CLI$K_GETOPT   = 00000003            CLI$S_TRMVRBLV = 00000002            

BTR$_ILLEGOPT  = 00688018            CLI$K_GETQUAL  = 00000002            CLI$V_ABSADR   = 00000001            

BTR$_IMGFNF    = 00688060            CLI$K_INITPRS  = 00000000            CLI$V_ALLOCCUR = 00000000            

BTR$_INTFAIL   = 00688048            CLI$K_INPSPEC  = 00000001            CLI$V_BATCH    = 00000003            

BTR$_INVALKEYW = 00688028            CLI$K_INPUT1   = 00000010            CLI$V_CONCATINP= 00000001            

BTR$_KEYVALOVR = 00688038            CLI$K_INPUT2   = 00000011            CLI$V_DBGEXCP  = 00000010            

BTR$_MISSNGVAL = 00688008            CLI$K_INPUT3   = 00000012            CLI$V_DBGTRU   = 00000001            

BTR$_NOTIMPLEM = 00688020            CLI$K_INPUT4   = 00000013            CLI$V_DEBUG    = 00000000            

BTR$_OPTVALOVR = 00688050            CLI$K_KEYVAL   = 00000043            CLI$V_DUMMY    = 00000001            

BTR$_STRINGOVR = 00688010            CLI$K_KEYWORD  = 00000042            CLI$V_EXPNAM   = 00000002            

BTR$_TOOMANY   = 00688058            CLI$K_NUMERVAL = 00000040            CLI$V_INDIRECT = 00000004            

BTR$_UNEXPLIST = 00688040            CLI$K_OUTPUT1  = 00000020            CLI$V_KEYVALU  = 00000001            

BTRAN          = 00680000            CLI$K_OUTPUT2  = 00000021            CLI$V_LASTVAL  = 00000000            

CLI$A_ABSACT     00000014            CLI$K_OUTPUT3  = 00000022            CLI$V_MOREINP  = 00000002            

CLI$A_ERRACT     00000004            CLI$K_OUTPUT4  = 00000023            CLI$V_MOREVALS = 00000000            

CLI$A_FLSACT     00000010            CLI$K_OUTSPEC  = 00000002            CLI$V_PARMDEF  = 00000003            

CLI$A_IMGFILED   00000010            CLI$K_PARDONE  = 00000003            CLI$V_PARMPRS  = 00000000            

CLI$A_IMGHDADR   0000000C            CLI$K_QDBITS     00000014            CLI$V_PARMREQ  = 00000000            

CLI$A_PROGXFER   00000004            CLI$K_QUALDEF    00000014            CLI$V_PRITYP   = 00000004            

CLI$A_PRSACT     00000010            CLI$K_REQDESC    0000001C            CLI$V_QDEXPA   = 00000002            

CLI$A_QDVALADR   00000008            CLI$K_UTILOPR  = 00000000            CLI$V_QDUSRV   = 00000001            

CLI$A_QUALST     00000018            CLI$K_VALCONV  = 00000004            CLI$V_QUALEXP  = 00000001            

CLI$A_RQADDR     0000000C            CLI$K_WORKAREA   00000080            CLI$V_QUALTRU  = 00000000            

CLI$A_TRUACT     0000000C            CLI$L_CLIFLAG    00000018            CLI$V_SUBTYP   = 00000000            

CLI$A_UTILSERV   00000008            CLI$L_INIARGCNT  00000000            CLI$V_TRMVRBLV = 00000008            

CLI$B_BITNUM     00000001            CLI$L_LINKFLAG   00000014            CLI$V_VERIFY   = 00000002            

CLI$B_QDBLKSIZ   00000000            CLI$L_RQVALU     0000000C            CLI$V_VFYINP   = 00000005            

CLI$B_QDCODE     00000001            CLI$L_USRVAL     00000014            CLI$W_QDVALSIZ   00000004            

CLI$B_QDFLGS     00000002            CLI$L_WORKAREA   00000000            CLI$W_RQSIZE     00000008            

FORTRAN         - BACKTRANSLATOR FOR FORTRAN COMMAND             22-AUG-1978 05:18:54   VAX-11 MACRO X0.3-11               Page  15

SYMBOL TABLE                                                                                                                     (3)



CLI$W_SERVCOD    00000001            PRO_V_CONCAT   = 00000000            

CLIWORKAREA      ********   X   03   PRO_V_IMPCAT   = 00000001            

FATAL          = 00000004            PRO_V_LIST     = 00000002            

FORT             00000000 RG    04   PRO_V_OPTION   = 00000003            

FORT_CHECK       0000005E R     04   PRO_V_REQ      = 00000004            

FORT_CONTIN      000000EC R     04   PRO_V_STRING   = 00000005            

FORT_DEBUG       000000F7 R     04   QUAL_ARGLIST     00000084 R     03   

FORT_D_LINES     00000167 R     04   QUAL_DESC        00000094 R     03   

FORT_I4          00000172 R     04   QUAL_LIST        000000B0 R     03   

FORT_MACHINE     0000018A R     04   QUA_B_DEFVAL     00000002            

FORT_NOCHECK     000000DF R     04   QUA_B_IMAGE      00000005            

FORT_NODEBUG     0000015A R     04   QUA_B_INDEX      00000001            

FORT_NOI4        0000017D R     04   QUA_B_OFFSET     00000000            

FORT_NOOPTIMIZE  00000195 R     04   QUA_B_PARMCNT    00000008            

FORT_NOWARNINGS  000001A1 R     04   QUA_G_CHNGLST    00000006            

FORT_WORKFILES   000001AD R     04   QUA_M_BATDEF   = 00000100            

GBL...         = 00000000            QUA_M_CHNGLIST = 00000001            

GETKEYWORD       ********   X   04   QUA_M_DEFTRUE  = 00000080            

GETSTRING        ********   X   04   QUA_M_FILE     = 00000004            

HOLDLOC          ********   X   04   QUA_M_IMAGE    = 00000400            

INPUT_ARGLIST    00000000 R     03   QUA_M_INTDEF   = 00000200            

INPUT_DESC       00000010 R     03   QUA_M_KEYVAL   = 00004000            

INSERTARG        ********   X   04   QUA_M_LOCALKEY = 00000002            

LAST_PARAM     = FFFFFFEC            QUA_M_NEG      = 00000040            

LIST_ARGLIST     00000058 R     03   QUA_M_ONEVAL   = 00002000            

LIST_DESC        00000068 R     03   QUA_M_OUTPUT   = 00000800            

NONE           = 00000000            QUA_M_PARM     = 00000010            

OBJECT_ARGLIST   0000002C R     03   QUA_M_VAL      = 00000020            

OBJECT_DESC      0000003C R     03   QUA_M_VALREQ   = 00001000            

PARAMLOC         ********   X   04   QUA_M_VERB     = 00000008            

PRIM_INPUT     = FFFFFFF6            QUA_S_MAXPARM  = 00000004            

PRIM_OUTPUT    = 00000000            QUA_S_MINPARM  = 00000004            

PROG_BP2       = 0000000C            QUA_V_BATDEF   = 00000008            

PROG_CBL       = 00000008            QUA_V_CHNGLIST = 00000000            

PROG_CNT       = 0000000F            QUA_V_DEFTRUE  = 00000007            

PROG_DIF       = 0000000F            QUA_V_FILE     = 00000002            

PROG_DMP       = 00000007            QUA_V_IMAGE    = 0000000A            

PROG_F4V       = 00000002            QUA_V_INTDEF   = 00000009            

PROG_LBR       = 0000000B            QUA_V_KEYVAL   = 0000000E            

PROG_LIB       = 0000000A            QUA_V_LOCALKEY = 00000001            

PROG_MAC       = 00000004            QUA_V_MAXPARM  = 00000004            

PROG_MAR       = 00000003            QUA_V_MINPARM  = 00000000            

PROG_PIP       = 00000001            QUA_V_NEG      = 00000006            

PROG_SLP       = 00000006            QUA_V_ONEVAL   = 0000000D            

PROG_SOS       = 00000005            QUA_V_OUTPUT   = 0000000B            

PROG_SRT       = 0000000E            QUA_V_PARM     = 00000004            

PROG_TKB       = 00000009            QUA_V_VAL      = 00000005            

PROG_UFD       = 0000000D            QUA_V_VALREQ   = 0000000C            

PRO_B_FLAGS      00000001            QUA_V_VERB     = 00000003            

PRO_B_PROMPT     00000000            QUA_W_FLAGS      00000003            

PRO_K_LENGTH     00000002            QUA_W_PROMPT     00000009            

PRO_M_CONCAT   = 00000001            QUA_W_QUALIST    00000006            

PRO_M_IMPCAT   = 00000002            REPLACE          ********   X   04   

PRO_M_LIST     = 00000004            SAVE_REG_MASK  = 00000FFC            

PRO_M_OPTION   = 00000008            SETSTRING        ********   X   04   

PRO_M_REQ      = 00000010            STICKY_FLAG      ********   X   04   

PRO_M_STRING   = 00000020            

FORTRAN         - BACKTRANSLATOR FOR FORTRAN COMMAND             22-AUG-1978 05:18:54   VAX-11 MACRO X0.3-11               Page  16

PROGRAM SECTION SYNOPSIS                                                                                                         (3)







PROGRAM SECTION SYNOPSIS



.  ABS  .        00000000      00     NOPIC   USR   CON   ABS   LCL NOSHR NOEXE NORD  NOWRT BYTE  

. BLANK .        00000000      01     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT BYTE  

$ABS$            00000080      02     NOPIC   USR   CON   ABS   LCL NOSHR   EXE   RD    WRT BYTE  

IMPURE_          00000180      03     NOPIC   USR   CON   REL   LCL NOSHR NOEXE   RD    WRT LONG  

PURE_            000001B8      04     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD  NOWRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

12200. BYTES LEFT IN FREE MEMORY POOL.

1602. BYTES OF RECLAIMED MEMORY.

OBJ$:FORTCMD,LIS$:FORTCMD/-SP/LI:MEB=EXECML$/ML,LIB$:B/ML,SRC$:FORTCMD

61 MLB DIR RDS - 652 GETS TO DEFINE 37 MACROS. 125 INTER. FILE WRITES. 

