CLIDAT          .IDENT /02/                                      22-AUG-1978 02:31:51   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (2)      43  DECLARATIONS

   (3)     161  UTILITY_START - 

   (4)     232  SETDEF - 

CLIDAT          .IDENT /02/                                      22-AUG-1978 02:31:51   VAX-11 MACRO X0.3-11               Page   1

                                                                                                                                 (1)



                                     0000     1 	.TITLE	CLIDAT - 

                                     0000     2 	.IDENT	/02/

                                     0000     3 

                                     0000     4 ;

                                     0000     5 ; COPYRIGHT (C) 1977,1978

                                     0000     6 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754

                                     0000     7 ;

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

                                     0000     9 ; COMPUTER  SYSTEM AND  MAY BE  COPIED ONLY WITH  THE INCLUSION OF THE

                                     0000    10 ; ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE, OR ANY OTHER COPIES THEREOF,

                                     0000    11 ; MAY NOT BE PROVIDED OR  OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON

                                     0000    12 ; EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE

                                     0000    13 ; TERMS.  TITLE TO AND  OWNERSHIP OF THE  SOFTWARE  SHALL AT ALL TIMES

                                     0000    14 ; REMAIN IN DEC.

                                     0000    15 ;

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

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

                                     0000    18 ; 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 

                                     0000    24 ;++

                                     0000    25 ; FACILITY:  OBJECT MODULE ANALYSER

                                     0000    26 ;

                                     0000    27 ; ABSTRACT:  INTERFACE BETWEEN FORTRAN UTILITY AND CLI.  ALSO SETS UP

                                     0000    28 ;		DEFAULT FILE NAMES AND PROVIDES RESULTANT FILE NAMES.

                                     0000    29 ;

                                     0000    30 ;

                                     0000    31 ; ENVIRONMENT:  THIS IS FOR THE NATIVE MODE OBJECT MODULE ANALYSER.

                                     0000    32 ;

                                     0000    33 ; AUTHOR: K.D. MORSE	, CREATION DATE: 12-AUG-77

                                     0000    34 ;

                                     0000    35 ; MODIFICATIONS:

                                     0000    36 ;

                                     0000    37 ;  NO	DATE		PROGRAMMER		PURPOSE

                                     0000    38 ;  --	----		----------		-------

                                     0000    39 ;

                                     0000    40 ;  02	21-MAR-78	K.D. MORSE		ADD /TBT AND /DBG.

                                     0000    41 ;--

CLIDAT          .IDENT /02/                                      22-AUG-1978 02:31:51   VAX-11 MACRO X0.3-11               Page   2

                DECLARATIONS                                                                                                     (2)



                                     0000    43 	.SBTTL	DECLARATIONS

                                     0000    44 ;

                                     0000    45 ; INCLUDE FILES:

                                     0000    46 ;

                                     0000    47 

                                     0000    48 ;

                                     0000    49 ; MACROS:

                                     0000    50 ;

                                     0000    51 

                                     0000    52 	$CLIDEFQUALANAL				; DEFINE ANL QUALIFIERS

                                     0000    53 	$CLIDEF					; DEFINE CLI OFFSETS

                                     0000    54 

                                     0000    55 ;

                                     0000    56 ; EQUATED SYMBOLS:

                                     0000    57 ;

                                     0000    58 

                           00000004  0000    59 FILNAM=4					; FILE NAME STRING

                           00000008  0000    60 FILSIZ=8					; SIZE OF FILE NAME STRING

                           0000000C  0000    61 MAXSIZ=12					; MAX NAME STRING

                           00000010  0000    62 DEFNAM=16					; DEFAULT NAME STRING

                           00000014  0000    63 DEFSIZ=20					; DEFAULT NAME STRING SIZE

                           00000018  0000    64 OPNTYP=24					; TYPE OF OPEN

                                     0000    65 

                                     0000    66 	$EQULST	ANAL_V_,,0,1,<-			; DEFINE FLAG BITS

                                     0000    67 			MHD,-			; MODULE HEADER RECORDS

                                     0000    68 			GSD,-			; GLOBAL SYMBOL DEFINITION

                                     0000    69 			TIR,-			; TEXT AND INFORMATION RECORDS

                                     0000    70 			EOM,-			; END OF MODULE RECORDS

                                     0000    71 			DBG,-			; DEBUGGER RECORDS

                                     0000    72 			TBT,-			; TRACEBACK RECORDS

                                     0000    73 			INTERACT,-		; INTERACTIVE USER

                                     0000    74 			INPUT,-			; INPUT FILE PRESENT

                                     0000    75 			OUTPUT,-		; OUTPUT FILE PRESENT

                                     0000    76 			>			; END

                                     0000    77 ;

                                     0000    78 ; OWN STORAGE:

                                     0000    79 ;

                                     0000    80 

                                     0000    81 ;

                                     0000    82 ;

                                     0000    83 ; DEFINE FILE BLOCKS FOR DEFAULTING FILE NAMES AND ACQUIRING RESULTANT ONES.

                                     0000    84 ;

                                     0000    85 ;

                                 00000000    86 	.PSECT	DATA,RD,WRT,NOEXE

                                     0000    87 INPFAB:	$FAB	-				; FAB TO OPEN INPUT FILES

                                     0000    88 		NAM=INMBLK,-			; FILE NAME BLOCK FOR RES NAME

                                     0000    89 		ORG=SEQ,-			; SEQUENTIAL FILE ACCESS

                                     0000    90 		MRS=0				; MAX RECORD SIZE

                                     0050    91 OUTFAB:	$FAB	-				; FAB TO OPEN OUTPUT FILES

                                     0050    92 		FOP=OFP,-			; SET OUTPUT FILE PARSE BIT

                                     0050    93 		RAT=FTN,-			; FORTRAN CARRIAGE CONTROL

                                     0050    94 		NAM=ONMBLK,-			; FILE NAME BLOCK FOR RES NAME

                                     0050    95 		ORG=SEQ,-			; SEQUENTIAL FILE ACCESS

                                     0050    96 		MRS=0				; MAX RECORD SIZE

                                     00A0    97 INMBLK:	$NAM	-				; INPUT FILE NAME BLOCK

                                     00A0    98 		RSA=RESNAM,-			; RESULTANT FILE NAME ADDRESS

                                     00A0    99 		RSS=NAM$C_MAXRSS,-		; RESULTANT FILE NAME SIZE

CLIDAT          .IDENT /02/                                      22-AUG-1978 02:31:51   VAX-11 MACRO X0.3-11               Page   3

                DECLARATIONS                                                                                                     (2)



                                     00A0   100 		ESA=RESNAM,-			; EXPANDED FILE NAME ADDRESS

                                     00A0   101 		ESS=NAM$C_MAXRSS		; EXPANDED FILE NAME SIZE

                                     00D8   102 ONMBLK:	$NAM	-				; OUTPUT FILE NAME BLOCK

                                     00D8   103 		RLF=INMBLK,-			; RELATED FILE NAME BLOCK

                                     00D8   104 		RSA=RESNAM,-			; RESULTANT FILE NAME ADDRESS

                                     00D8   105 		RSS=NAM$C_MAXRSS,-		; RESULTANT FILE NAME SIZE

                                     00D8   106 		ESA=RESNAM,-			; EXPANDED FILE NAME ADDRESS

                                     00D8   107 		ESS=NAM$C_MAXRSS		; EXPANDED FILE NAME SIZE

                           00000190  0110   108 RESNAM:	.BLKB	NAM$C_MAXRSS			; RESULTANT FILE NAME

                                 00000000   109 	.PSECT	NAMES,RD,WRT,NOEXE,PIC,OVR,REL,GBL,SHR,LONG

                                     0000   110 

                           00000080  0000   111 CLIWRK::	.BLKB	CLI$K_WORKAREA		; WORK AREA FOR CLI

                                     0080   112 INIPRS::	$CLIREQDESC	-		; REQUEST DESC FOR INITIALIZATION

                                     0080   113 			RQTYPE=CLI$K_INITPRS	; INITIALIZE PARSE

                                     009C   114 ENDPRS::	$CLIREQDESC	-		; REQUEST DESC WHEN ALL DONE

                                     009C   115 			RQTYPE=CLI$K_ENDPRM1	; END OF PARAMETERS

                                     00B8   116 INPDSC::	$CLIREQDESC	-		; INPUT FILE REQUEST DESC

                                     00B8   117 			RQTYPE=CLI$K_INPUT1,-	; INPUT FILE

                                     00B8   118 			BITNUM=ANAL_V_INPUT,-	; BIT TO SET IF PRESENT

                                     00B8   119 			QUALST=INPUT_QUAL,-	; QUALIFIER LIST

                                     00B8   120 			PRSACT=SETINP,-		; SET INPUT FILE NAME

                                     00B8   121 			RQFLGS=CLI$V_PARMREQ	; PARAMETER IS REQUIRED

                                     00D4   122 INPUT_QUAL::

                                     00D4   123 		$CLIQUALDEF	-		; QUALIFIER DESC FOR TIRS

                                     00D4   124 			QDCODE=CLI$K_ANAL_TIR,-	; QUALIFIER CODE

                                     00D4   125 			SETLST=ANAL_V_TIR,-	; BITS SET IF QUALIFIER PRESENT

                                     00D4   126 			CLRLST=<>		; BITS CLRD IF QUALIFIER PRESENT

                                     00EC   127 		$CLIQUALDEF	-		; QUALIFIER DESC FOR GSD RECORDS

                                     00EC   128 			QDCODE=CLI$K_ANAL_GSD,-	; QUALIFIER CODE

                                     00EC   129 			SETLST=ANAL_V_GSD,-	; BITS SET IF QUALIFIER PRESENT

                                     00EC   130 			CLRLST=<>		; BITS CLRD IF QUALIFIER PRESENT

                                     0104   131 		$CLIQUALDEF	-		; QUALIFIER DESC FOR EOM RECORDS

                                     0104   132 			QDCODE=CLI$K_ANAL_EOM,-	; QUALIFIER CODE

                                     0104   133 			SETLST=ANAL_V_EOM,-	 ; BITS SET IF QUALIFIER PRESENT

                                     0104   134 			CLRLST=<>		; BITS CLRD IF QUALIFIER PRESENT

                                     011C   135 		$CLIQUALDEF	-		; QUALIFIER DESC FOR MHD RECORDS

                                     011C   136 			QDCODE=CLI$K_ANAL_MHD,-	; QUALIFIER CODE

                                     011C   137 			SETLST=ANAL_V_MHD,-	; BITS SET IF QUALIFIER PRESENT

                                     011C   138 			CLRLST=<>		; BITS CLRD IF QUALIFIER PRESENT

                                     0134   139 		$CLIQUALDEF	-		; QUALIFIER DESC FOR DBG RECORDS

                                     0134   140 			QDCODE=CLI$K_ANAL_DBG,-	; QUALIFIER CODE

                                     0134   141 			SETLST=ANAL_V_DBG,-	; BITS SET IF QUALIFIER PRESENT

                                     0134   142 			CLRLST=<>		; BITS CLRD IF QUALIFIER PRESENT

                                     014C   143 		$CLIQUALDEF	-		; QUALIFIER DESC FOR TBT RECORDS

                                     014C   144 			QDCODE=CLI$K_ANAL_TBT,-	; QUALIFIER CODE

                                     014C   145 			SETLST=ANAL_V_TBT,-	; BITS SET IF QUALIFIER PRESENT

                                     014C   146 			CLRLST=<>		; BITS CLRD IF QUALIFIER PRESENT

                                     0164   147 		$CLIQUALDEF	-		; QUALIFIER DESC FOR INTERACTIVE MODE

                                     0164   148 			QDCODE=CLI$K_ANAL_INTE,- ; QUALIFIER CODE

                                     0164   149 			SETLST=ANAL_V_INTERACT,- ; BITS SET IF QUALIFIER PRESENT

                                     0164   150 			CLRLST=<>		; BITS CLRD IF QUALIFIER PRESENT

                                     017C   151 		$CLIQUALDEF	END_LIST	; END OF INPUT QUALIFIERS

                                     017D   152 OUTDSC::	$CLIREQDESC	-		; REQUEST DESC FOR OUTPUT FILE

                                     017D   153 			RQTYPE=CLI$K_OUTPUT1,-	; REQUEST CODE

                                     017D   154 			BITNUM=ANAL_V_OUTPUT,-	; BIT SET TO INDICATE OUTPUT FILE

                                     017D   155 			PRSACT=SETOUT		; SET OUTPUT FILE NAME

                               0000  0199   156 ONMLNG::	.WORD	0			; OUTPUT FILE NAME LENGTH

CLIDAT          .IDENT /02/                                      22-AUG-1978 02:31:51   VAX-11 MACRO X0.3-11               Page   4

                DECLARATIONS                                                                                                     (2)



                           0000021B  019B   157 OUTNAM::	.BLKB	128			; OUTPUT FILE NAME

                               0000  021B   158 INMLNG::	.WORD	0			; INPUT FILE NAME LENGTH

                           0000029D  021D   159 INPNAM::	.BLKB	128			; INPUT FILE NAME

CLIDAT          .IDENT /02/                                      22-AUG-1978 02:31:51   VAX-11 MACRO X0.3-11               Page   5

                UTILITY_START -                                                                                                  (3)



                                     029D   161 	.SBTTL	UTILITY_START - 

                                     029D   162 ;++

                                     029D   163 ; FUNCTIONAL DESCRIPTION:

                                     029D   164 ;

                                     029D   165 ; THIS ROUTINE IS THE DRIVER FOR ANY FORTRAN UTILITY.  IT PASSES THE

                                     029D   166 ; CLI CALL-BACK ROUTINE ADDRESS TO THE UTILITY.  IT ALSO CONTAINS THE 

                                     029D   167 ; ACTION ROUTINES FOR THE CLI PARSING.  THE ROUTINES SETINP AND SETOUT

                                     029D   168 ; MOVE THE INPUT AND OUTPUT FILE NAMES FROM THE CLI WORK AREA TO THE

                                     029D   169 ; UTILITY'S STORAGE AREAS, ALONG WITH THE STRING LENGTHS.

                                     029D   170 ;

                                     029D   171 ; CALLING SEQUENCE:

                                     029D   172 ;

                                     029D   173 ;	CALLED FROM CLI TO INITIALIZE THE UTILITY.

                                     029D   174 ;

                                     029D   175 ; INPUT PARAMETERS:

                                     029D   176 ;

                                     029D   177 ;	4(AP) - CONTAINS THE TRANSFER ADDRESS

                                     029D   178 ;	8(AP) - CONTAINS THE CLI CALL-BACK ADDRESS

                                     029D   179 ;

                                     029D   180 ; IMPLICIT INPUTS:

                                     029D   181 ;

                                     029D   182 ;	NONE

                                     029D   183 ;

                                     029D   184 ; OUTPUT PARAMETERS:

                                     029D   185 ;

                                     029D   186 ;	INPUT PARAMETERS ARE PASSED ON TO MAIN ROUTINE.

                                     029D   187 ;

                                     029D   188 ; IMPLICIT OUTPUTS:

                                     029D   189 ;

                                     029D   190 ;	NONE

                                     029D   191 ;

                                     029D   192 ; COMPLETION CODES:

                                     029D   193 ;

                                     029D   194 ;	ALL ERROR CODES COMMON TO CLI AND THE UTILITY.

                                     029D   195 ;

                                     029D   196 ; SIDE EFFECTS:

                                     029D   197 ;

                                     029D   198 ;	NONE

                                     029D   199 ;

                                     029D   200 ;--

                                     029D   201 

                                     029D   202 

                                     029D   203 

                                 00000000   204 	.PSECT	CODE,RD,NOWRT,EXE

                                     0000   205 

                                     0000   206 UTIL_START::

                               0000  0000   207 	.WORD	0				; ENTRY POINT (OR MASK)

   00000000'EF            6C     FA  0002   208 	CALLG	(AP),MAIN			; CALL MAIN UTILITY ROUTINE

                                     0009   209 TEMP_XMPL_EXIT:

                                     0009   210 	$EXIT_S					; ALL DONE, EXIT

                                     0012   211 

                                     0012   212 

                                     0012   213 

                                     0012   214 SETINP:

                               0004  0012   215 	.WORD	^M<R2>				; ENTRY MASK

            50   0000021D'EF     9E  0014   216 	MOVAB	INPNAM,R0			; GET INPUT NAME ADDR

   0000021B'EF   000000C0'EF     B0  001B   217 	MOVW	CLI$W_RQSIZE+INPDSC,INMLNG	; SET LENGTH OF NAME

CLIDAT          .IDENT /02/                                      22-AUG-1978 02:31:51   VAX-11 MACRO X0.3-11               Page   6

                UTILITY_START -                                                                                                  (3)



            51   0000021B'EF     3C  0026   218 	MOVZWL	INMLNG,R1			; GET LENGTH TO MOVE

            52   000000C4'EF     D0  002D   219 	MOVL	CLI$A_RQADDR+INPDSC,R2		; GET TEMP NAME ADDR

                          22     11  0034   220 	BRB	MOVNAM				; GO MOVE NAME

                                     0036   221 SETOUT:

                               0004  0036   222 	.WORD	^M<R2>				; ENTRY MASK

            50   0000019B'EF     9E  0038   223 	MOVAB	OUTNAM,R0			; GET OUTPUT NAME ADDR

   00000199'EF   00000185'EF     B0  003F   224 	MOVW	CLI$W_RQSIZE+OUTDSC,ONMLNG	; SET LENGTH OF NAME

            51   00000199'EF     3C  004A   225 	MOVZWL	ONMLNG,R1			; GET LENGTH TO MOVE

            52   00000189'EF     D0  0051   226 	MOVL	CLI$A_RQADDR+OUTDSC,R2		; GET TEMP NAME ADDR

                                     0058   227 MOVNAM:

            80            82     90  0058   228 	MOVB	(R2)+,(R0)+			; GET FILE NAME

            FA            51     F5  005B   229 	SOBGTR	R1,MOVNAM			; FROM CLI WORK AREA

                                 04  005E   230 	RET					; RETURN

CLIDAT          .IDENT /02/                                      22-AUG-1978 02:31:51   VAX-11 MACRO X0.3-11               Page   7

                SETDEF -                                                                                                         (4)



                                     005F   232 	.SBTTL	SETDEF - 

                                     005F   233 ;++

                                     005F   234 ; FUNCTIONAL DESCRIPTION:

                                     005F   235 ;

                                     005F   236 ; THIS ROUTINE INITIALIZES THE DEFAULT FILE NAME STRING, OPENS OR

                                     005F   237 ; CREATES THE FILE SPECIFIED, AND THE RETURNS THE RESULTANT FILE NAME

                                     005F   238 ; INSTEAD OF THE NAME PASSED TO OPEN.

                                     005F   239 ;

                                     005F   240 ; CALLING SEQUENCE:

                                     005F   241 ;

                                     005F   242 ;	CALL SETDEF(FILNAM,FILSIZ,MAXSIZ,DEFNAM,DEFSIZ,OPNTYP)

                                     005F   243 ;

                                     005F   244 ; INPUT PARAMETERS:

                                     005F   245 ;

                                     005F   246 ;	FILNAM(AP) - CONTAINS THE ADDRESS OF THE FILE NAME

                                     005F   247 ;	FILSIZ(AP) - CONTAINS THE ADDRESS OF THE FILE NAME SIZE

                                     005F   248 ;	MAXSIZ(AP) - CONTAINS THE ADDRESS OF THE MAXIMUM FILE NAME SIZE

                                     005F   249 ;	DEFNAM(AP) - CONTAINS THE ADDRESS OF THE DEFAULT FILE NAME

                                     005F   250 ;	DEFSIZ(AP) - CONTAINS THE ADDRESS OF THE DEFAULT FILE NAME SIZE

                                     005F   251 ;	OPNTYP(AP) - CONTAINS THE ADDRESS OF THE OPEN TYPE CODE, WHERE

                                     005F   252 ;			1 = NEW FILE

                                     005F   253 ;			0 = OLD FILE

                                     005F   254 ;

                                     005F   255 ; IMPLICIT INPUTS:

                                     005F   256 ;

                                     005F   257 ;	NONE

                                     005F   258 ;

                                     005F   259 ; OUTPUT PARAMETERS:

                                     005F   260 ;

                                     005F   261 ;	NONE

                                     005F   262 ;

                                     005F   263 ; IMPLICIT OUTPUTS:

                                     005F   264 ;

                                     005F   265 ;	FILE NAME AND SIZE ARE REPLACED WITH RESULTANT FILE NAME AND SIZE.

                                     005F   266 ;

                                     005F   267 ; COMPLETION CODES:

                                     005F   268 ;

                                     005F   269 ;	ERROR CODES WHEN UNABLE TO OPEN/CREATE A FILE.

                                     005F   270 ;

                                     005F   271 ; SIDE EFFECTS:

                                     005F   272 ;

                                     005F   273 ;	NONE

                                     005F   274 ;

                                     005F   275 ;--

                                     005F   276 

                                     005F   277 

                                     005F   278 

                                     005F   279 SETDEF::

                               0404  005F   280 	.WORD	^M<R2,R10>			; ENTRY POINT (OR MASK)

            5A       0000'CF     9E  0061   281 	MOVAB	W^INPFAB,R10			; ASSUME INPUT FILE

                       18 BC     95  0066   282 	TSTB	@OPNTYP(AP)			; IS IT AN OUTPUT FILE?

                          05     13  0069   283 	BEQL	5$				; BRANCH ON NO

            5A       0050'CF     9E  006B   284 	MOVAB	W^OUTFAB,R10			; GET OUTPUT FILE FAB

         2C AA         04 AC     D0  0070   285 5$:	MOVL	FILNAM(AP),FAB$L_FNA(R10)	; SET FILE NAME ADDR

         34 AA         08 BC     90  0075   286 	MOVB	@FILSIZ(AP),FAB$B_FNS(R10)	; SET FILE NAME SIZE

         30 AA         10 AC     D0  007A   287 	MOVL	DEFNAM(AP),FAB$L_DNA(R10)	; SET DEFAULT NAME ADDR

         35 AA         14 BC     90  007F   288 	MOVB	@DEFSIZ(AP),FAB$B_DNS(R10)	; SET DEFAULT NAME SIZE

CLIDAT          .IDENT /02/                                      22-AUG-1978 02:31:51   VAX-11 MACRO X0.3-11               Page   8

                SETDEF -                                                                                                         (4)



                       18 BC     95  0084   289 	TSTB	@OPNTYP(AP)			; NEW OR OLD FILE?

                          0E     13  0087   290 	BEQL	10$				; BRANCH ON OLD FILE

                                     0089   291 	$CREATE	FAB=(R10)			; CREATE NEW FILE

            3E            50     E9  0092   292 	BLBC	R0,50$				; BRANCH ON FAILURE

                          0C     11  0095   293 	BRB	20$				; GO GET RESULTANT NAME

                                     0097   294 10$:	$OPEN	FAB=(R10)			; OPEN OLD FILE

            30            50     E9  00A0   295 	BLBC	R0,50$				; BRANCH ON FAILURE

            50         28 AA     D0  00A3   296 20$:	MOVL	FAB$L_NAM(R10),R0		; GET FILE NAME BLOCK ADDR

            50         03 A0     9A  00A7   297 	MOVZBL	NAM$B_RSL(R0),R0		; GET RESULTANT NAME SIZE

         0C BC            50     91  00AB   298 	CMPB	R0,@MAXSIZ(AP)			; TOO LONG TO RETURN?

                          04     1B  00AF   299 	BLEQU	30$				; NO, NAME FITS

            50         0C BC     9A  00B1   300 	MOVZBL	@MAXSIZ(AP),R0			; SET MAX SIZE FOR RETURN NAME

            51       0110'CF     9E  00B5   301 30$:	MOVAB	W^RESNAM,R1			; GET ADDR OF RESULTANT NAME

            52         04 AC     D0  00BA   302 	MOVL	FILNAM(AP),R2			; GET RETURN NAME ADDR

         08 BC            50     B0  00BE   303 	MOVW	R0,@FILSIZ(AP)			; RETURN RESULTANT NAME SIZE

            82            81     90  00C2   304 40$:	MOVB	(R1)+,(R2)+			; SET RESULTANT NAME

            FA            50     F5  00C5   305 	SOBGTR	R0,40$				; MOVE IN ALL OF NAME

                                     00C8   306 	$CLOSE	FAB=(R10)			; CLOSE FILE

                          1B     11  00D1   307 	BRB	70$				; RETURN

            5A         28 AA     D0  00D3   308 50$:	MOVL	FAB$L_NAM(R10),R10		; GET ADDR OF FILE NAME BLOCK

            51         0B AA     9A  00D7   309 	MOVZBL	NAM$B_ESL(R10),R1		; GET EXPANDED NAME LENGTH

         08 BC            51     B0  00DB   310 	MOVW	R1,@FILSIZ(AP)			; SET LENGTH OF EXPANDED NAME

            52         04 AC     D0  00DF   311 	MOVL	FILNAM(AP),R2			; GET ADDR FOR NAME

            53       0110'CF     9E  00E3   312 	MOVAB	W^RESNAM,R3			; GET ADDR OF EXPANDED NAME

            82            83     90  00E8   313 60$:	MOVB	(R3)+,(R2)+			; MOVE IN ALL OF

            FA            51     F5  00EB   314 	SOBGTR	R1,60$				; EXPANDED NAME STRING

                                 04  00EE   315 70$:	RET					; RETURN

                                     00EF   316 	.END	UTIL_START

CLIDAT          .IDENT /02/                                      22-AUG-1978 02:31:51   VAX-11 MACRO X0.3-11               Page   9

SYMBOL TABLE                                                                                                                     (4)



$$$            = 00000004            CLI$K_ENDPRM2  = 00000031            CLI$M_VFYINP   = 00000020            

$$$.           = 00000001            CLI$K_ENDPRM3  = 00000032            CLI$Q_QDVALDESC  00000004            

$$$GBL         = 00000000            CLI$K_ENDPRM4  = 00000033            CLI$Q_RQDESC     00000008            

$$.TAB         = 000000D8 R     03   CLI$K_FILSPEC  = 00000044            CLI$S_PRITYP   = 00000004            

$$.TABEND      = 00000110 R     03   CLI$K_GETCMD   = 00000001            CLI$S_SUBTYP   = 00000004            

$$.TMP         = 20000000            CLI$K_GETOPT   = 00000003            CLI$S_TRMVRBLV = 00000002            

$$.TMP1        = 00000001            CLI$K_GETQUAL  = 00000002            CLI$V_ABSADR   = 00000001            

$$.TMP2        = 0000006A            CLI$K_INITPRS  = 00000000            CLI$V_ALLOCCUR = 00000000            

$CLI.          = 0000017D R     04   CLI$K_INPSPEC  = 00000001            CLI$V_BATCH    = 00000003            

$CLI..         = 00000199 R     04   CLI$K_INPUT1   = 00000010            CLI$V_CONCATINP= 00000001            

$QUALNUM$      = 00000009            CLI$K_INPUT2   = 00000011            CLI$V_DBGEXCP  = 00000010            

ANAL_V_DBG     = 00000004            CLI$K_INPUT3   = 00000012            CLI$V_DBGTRU   = 00000001            

ANAL_V_EOM     = 00000003            CLI$K_INPUT4   = 00000013            CLI$V_DEBUG    = 00000000            

ANAL_V_GSD     = 00000001            CLI$K_KEYVAL   = 00000043            CLI$V_DUMMY    = 00000001            

ANAL_V_INPUT   = 00000007            CLI$K_KEYWORD  = 00000042            CLI$V_EXPNAM   = 00000002            

ANAL_V_INTERACT= 00000006            CLI$K_NUMERVAL = 00000040            CLI$V_INDIRECT = 00000004            

ANAL_V_MHD     = 00000000            CLI$K_OUTPUT1  = 00000020            CLI$V_KEYVALU  = 00000001            

ANAL_V_OUTPUT  = 00000008            CLI$K_OUTPUT2  = 00000021            CLI$V_LASTVAL  = 00000000            

ANAL_V_TBT     = 00000005            CLI$K_OUTPUT3  = 00000022            CLI$V_MOREINP  = 00000002            

ANAL_V_TIR     = 00000002            CLI$K_OUTPUT4  = 00000023            CLI$V_MOREVALS = 00000000            

BIT...         = 0000001A            CLI$K_OUTSPEC  = 00000002            CLI$V_PARMDEF  = 00000003            

CLI$A_ABSACT     00000014            CLI$K_PARDONE  = 00000003            CLI$V_PARMPRS  = 00000000            

CLI$A_ERRACT     00000004            CLI$K_QDBITS     00000014            CLI$V_PARMREQ  = 00000000            

CLI$A_FLSACT     00000010            CLI$K_QUALDEF    00000014            CLI$V_PRITYP   = 00000004            

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

CLI$A_IMGHDADR   0000000C            CLI$K_UTILOPR  = 00000000            CLI$V_QDUSRV   = 00000001            

CLI$A_PROGXFER   00000004            CLI$K_VALCONV  = 00000004            CLI$V_QUALEXP  = 00000001            

CLI$A_PRSACT     00000010            CLI$K_WORKAREA   00000080            CLI$V_QUALTRU  = 00000000            

CLI$A_QDVALADR   00000008            CLI$L_CLIFLAG    00000018            CLI$V_SUBTYP   = 00000000            

CLI$A_QUALST     00000018            CLI$L_INIARGCNT  00000000            CLI$V_TRMVRBLV = 00000008            

CLI$A_RQADDR     0000000C            CLI$L_LINKFLAG   00000014            CLI$V_VERIFY   = 00000002            

CLI$A_TRUACT     0000000C            CLI$L_RQVALU     0000000C            CLI$V_VFYINP   = 00000005            

CLI$A_UTILSERV   00000008            CLI$L_USRVAL     00000014            CLI$W_QDVALSIZ   00000004            

CLI$B_BITNUM     00000001            CLI$L_WORKAREA   00000000            CLI$W_RQSIZE     00000008            

CLI$B_QDBLKSIZ   00000000            CLI$M_ABSADR   = 00000002            CLI$W_SERVCOD    00000001            

CLI$B_QDCODE     00000001            CLI$M_ALLOCCUR = 00000001            CLIWRK           00000000 RG    04   

CLI$B_QDFLGS     00000002            CLI$M_BATCH    = 00000008            DEFNAM         = 00000010            

CLI$B_QDSTAT     00000003            CLI$M_CONCATINP= 00000002            DEFSIZ         = 00000014            

CLI$B_RQFLGS     00000002            CLI$M_DBGEXCP  = 00010000            ENDPRS           0000009C RG    04   

CLI$B_RQINDX     00000001            CLI$M_DBGTRU   = 00000002            FAB$B_BID        00000000            

CLI$B_RQSTAT     00000003            CLI$M_DEBUG    = 00000001            FAB$B_BKS        0000003E            

CLI$B_RQTYPE     00000000            CLI$M_DUMMY    = 00000002            FAB$B_BLN        00000001            

CLI$C_QDBITS     00000014            CLI$M_EXPNAM   = 00000004            FAB$B_DNS        00000035            

CLI$C_QUALDEF    00000014            CLI$M_INDIRECT = 00000010            FAB$B_FAC        00000016            

CLI$C_REQDESC    0000001C            CLI$M_KEYVALU  = 00000002            FAB$B_FNS        00000034            

CLI$C_WORKAREA   00000080            CLI$M_LASTVAL  = 00000001            FAB$B_FSZ        0000003F            

CLI$K_ANAL_DBG = 00000008            CLI$M_MOREINP  = 00000004            FAB$B_ORG        0000001D            

CLI$K_ANAL_EOM = 00000001            CLI$M_MOREVALS = 00000001            FAB$B_RAT        0000001E            

CLI$K_ANAL_GSD = 00000002            CLI$M_PARMDEF  = 00000008            FAB$B_RFM        0000001F            

CLI$K_ANAL_INTE= 00000003            CLI$M_PARMPRS  = 00000001            FAB$B_RTV        0000001C            

CLI$K_ANAL_MHD = 00000004            CLI$M_PARMREQ  = 00000001            FAB$B_SHR        00000017            

CLI$K_ANAL_OUTP= 00000005            CLI$M_QDEXPA   = 00000004            FAB$C_BID      = 00000003            

CLI$K_ANAL_TBT = 00000007            CLI$M_QDUSRV   = 00000002            FAB$C_BLN        00000050            

CLI$K_ANAL_TIR = 00000006            CLI$M_QUALEXP  = 00000002            FAB$C_FIX      = 00000001            

CLI$K_ASCIIVAL = 00000041            CLI$M_QUALTRU  = 00000001            FAB$C_HSH      = 00000030            

CLI$K_CLISERV  = 00000005            CLI$M_TRMVRBLV = 00000300            FAB$C_IDX      = 00000020            

CLI$K_ENDPRM1  = 00000030            CLI$M_VERIFY   = 00000004            FAB$C_MAXRFM   = 00000003            

CLIDAT          .IDENT /02/                                      22-AUG-1978 02:31:51   VAX-11 MACRO X0.3-11               Page  10

SYMBOL TABLE                                                                                                                     (4)



FAB$C_REL      = 00000010            FAB$M_SHRPUT   = 00000001            FAB$V_SQO      = 00000006            

FAB$C_RFM_DFLT = 00000002            FAB$M_SHRUPD   = 00000008            FAB$V_SUP      = 00000002            

FAB$C_SEQ      = 00000000            FAB$M_SPL      = 00002000            FAB$V_TEF      = 0000001C            

FAB$C_UDF      = 00000000            FAB$M_SQO      = 00000040            FAB$V_TMD      = 00000004            

FAB$C_VAR      = 00000002            FAB$M_SUP      = 00000004            FAB$V_TMP      = 00000003            

FAB$C_VFC      = 00000003            FAB$M_TEF      = 10000000            FAB$V_TRN      = 00000004            

FAB$K_BLN        00000050            FAB$M_TMD      = 00000010            FAB$V_UFM      = 0000001A            

FAB$L_ALQ        00000010            FAB$M_TMP      = 00000008            FAB$V_UFO      = 00000011            

FAB$L_CTX        00000018            FAB$M_TRN      = 00000010            FAB$V_UPD      = 00000003            

FAB$L_DEV        00000040            FAB$M_UFM      = 04000000            FAB$V_UPI      = 00000006            

FAB$L_DNA        00000030            FAB$M_UFO      = 00020000            FAB$V_WCK      = 00000009            

FAB$L_FNA        0000002C            FAB$M_UPD      = 00000008            FAB$W_BLS        0000003C            

FAB$L_FOP        00000004            FAB$M_UPI      = 00000040            FAB$W_DEQ        00000014            

FAB$L_JNL        00000020            FAB$M_WCK      = 00000200            FAB$W_IFI        00000002            

FAB$L_MRN        00000038            FAB$S_ORG      = 00000004            FAB$W_MRS        00000036            

FAB$L_NAM        00000028            FAB$S_PPF_RAT  = 00000008            FILNAM         = 00000004            

FAB$L_SDC        00000044            FAB$V_BIO      = 00000005            FILSIZ         = 00000008            

FAB$L_STS        00000008            FAB$V_BLK      = 00000003            GBL...         = 00000000            

FAB$L_STV        0000000C            FAB$V_BRO      = 00000006            INIPRS           00000080 RG    04   

FAB$L_XAB        00000024            FAB$V_CBT      = 00000015            INMBLK           000000A0 R     03   

FAB$M_BIO      = 00000020            FAB$V_CIF      = 00000019            INMLNG           0000021B RG    04   

FAB$M_BLK      = 00000008            FAB$V_CR       = 00000001            INPDSC           000000B8 RG    04   

FAB$M_BRO      = 00000040            FAB$V_CTG      = 00000014            INPFAB           00000000 R     03   

FAB$M_CBT      = 00200000            FAB$V_DEL      = 00000002            INPNAM           0000021D RG    04   

FAB$M_CIF      = 02000000            FAB$V_DFW      = 00000005            INPUT_QUAL       000000D4 RG    04   

FAB$M_CR       = 00000002            FAB$V_DLT      = 0000000F            MAIN             ********   X   05   

FAB$M_CTG      = 00100000            FAB$V_DMO      = 0000000C            MAXSIZ         = 0000000C            

FAB$M_DEL      = 00000004            FAB$V_ESC      = 0000001B            MOVNAM           00000058 R     05   

FAB$M_DFW      = 00000020            FAB$V_EXE      = 00000007            NAM$B_BID        00000000            

FAB$M_DLT      = 00008000            FAB$V_FTN      = 00000000            NAM$B_BLN        00000001            

FAB$M_DMO      = 00001000            FAB$V_GET      = 00000001            NAM$B_CURLVL     00000038            

FAB$M_ESC      = 08000000            FAB$V_INP      = 00000013            NAM$B_ESL        0000000B            

FAB$M_EXE      = 00000080            FAB$V_JNL      = 00000016            NAM$B_ESS        0000000A            

FAB$M_FTN      = 00000001            FAB$V_KFO      = 0000001E            NAM$B_RSL        00000003            

FAB$M_GET      = 00000002            FAB$V_MSE      = 00000004            NAM$B_RSS        00000002            

FAB$M_INP      = 00080000            FAB$V_MXV      = 00000001            NAM$C_BID      = 00000002            

FAB$M_JNL      = 00400000            FAB$V_NAM      = 00000018            NAM$C_BLN        00000038            

FAB$M_KFO      = 40000000            FAB$V_NEF      = 0000000A            NAM$C_BLN_DIRWC  00000050            

FAB$M_MSE      = 00000010            FAB$V_NFS      = 00000010            NAM$C_DVI      = 00000010            

FAB$M_MXV      = 00000002            FAB$V_NIL      = 00000005            NAM$C_MAXRSS   = 00000080            

FAB$M_NAM      = 01000000            FAB$V_OFP      = 0000001D            NAM$C_MAXRSSLCL= 00000060            

FAB$M_NEF      = 00000400            FAB$V_ORG      = 00000004            NAM$K_BLN        00000038            

FAB$M_NFS      = 00010000            FAB$V_POS      = 00000008            NAM$K_BLN_DIRWC  00000050            

FAB$M_NIL      = 00000020            FAB$V_PPF      = 00000012            NAM$L_DIRWCC1    00000040            

FAB$M_OFP      = 20000000            FAB$V_PPF_IND  = 0000000E            NAM$L_DIRWCC2    00000044            

FAB$M_POS      = 00000100            FAB$V_PPF_RAT  = 00000006            NAM$L_DIRWCC3    00000048            

FAB$M_PPF      = 00040000            FAB$V_PRN      = 00000002            NAM$L_DIRWCC4    0000004C            

FAB$M_PPF_IND  = 00004000            FAB$V_PUT      = 00000000            NAM$L_DWC        00000038            

FAB$M_PPF_RAT  = 00003FC0            FAB$V_RCK      = 00000017            NAM$L_ESA        0000000C            

FAB$M_PRN      = 00000004            FAB$V_RWC      = 0000000B            NAM$L_FNB        00000034            

FAB$M_PUT      = 00000001            FAB$V_RWO      = 00000007            NAM$L_RLF        00000010            

FAB$M_RCK      = 00800000            FAB$V_SCF      = 0000000E            NAM$L_RSA        00000004            

FAB$M_RWC      = 00000800            FAB$V_SHRDEL   = 00000002            NAM$L_WCC        00000030            

FAB$M_RWO      = 00000080            FAB$V_SHRGET   = 00000001            NAM$M_DIR_LVLS = 00E00000            

FAB$M_SCF      = 00004000            FAB$V_SHRPUT   = 00000000            NAM$M_EXP_DEV  = 00000080            

FAB$M_SHRDEL   = 00000004            FAB$V_SHRUPD   = 00000003            NAM$M_EXP_DIR  = 00000040            

FAB$M_SHRGET   = 00000002            FAB$V_SPL      = 0000000D            NAM$M_EXP_NAME = 00000004            

CLIDAT          .IDENT /02/                                      22-AUG-1978 02:31:51   VAX-11 MACRO X0.3-11               Page  11

SYMBOL TABLE                                                                                                                     (4)



NAM$M_EXP_TYPE = 00000002            NAM$W_FID_NUM    00000024            QUA_V_MINPARM  = 00000000            

NAM$M_EXP_VER  = 00000001            NAM$W_FID_RVN    00000028            QUA_V_NEG      = 00000006            

NAM$M_GRP_MBR  = 00080000            NAM$W_FID_SEQ    00000026            QUA_V_ONEVAL   = 0000000D            

NAM$M_HIGHVER  = 00008000            NAM$W_PRV_DID    0000003A            QUA_V_OUTPUT   = 0000000B            

NAM$M_LOWVER   = 00004000            ONMBLK           000000D8 R     03   QUA_V_PARM     = 00000004            

NAM$M_NODE     = 00020000            ONMLNG           00000199 RG    04   QUA_V_VAL      = 00000005            

NAM$M_PPF      = 00010000            OPNTYP         = 00000018            QUA_V_VALREQ   = 0000000C            

NAM$M_QUOTED   = 00040000            OUTDSC           0000017D RG    04   QUA_V_VERB     = 00000003            

NAM$M_WILDCARD = 00000100            OUTFAB           00000050 R     03   QUA_W_FLAGS      00000003            

NAM$M_WILD_DIR = 00100000            OUTNAM           0000019B RG    04   QUA_W_PROMPT     00000009            

NAM$M_WILD_GRP = 01000000            PRO_B_FLAGS      00000001            QUA_W_QUALIST    00000006            

NAM$M_WILD_MBR = 02000000            PRO_B_PROMPT     00000000            RESNAM           00000110 R     03   

NAM$M_WILD_NAME= 00000020            PRO_K_LENGTH     00000002            SETDEF           0000005F RG    05   

NAM$M_WILD_SFD1= 02000000            PRO_M_CONCAT   = 00000001            SETINP           00000012 R     05   

NAM$M_WILD_SFD2= 04000000            PRO_M_IMPCAT   = 00000002            SETOUT           00000036 R     05   

NAM$M_WILD_SFD3= 08000000            PRO_M_LIST     = 00000004            SYS$CLOSE        ********  GX   05   

NAM$M_WILD_SFD4= 10000000            PRO_M_OPTION   = 00000008            SYS$CREATE       ********  GX   05   

NAM$M_WILD_SFD5= 20000000            PRO_M_REQ      = 00000010            SYS$EXIT         ********   X   05   

NAM$M_WILD_SFD6= 40000000            PRO_M_STRING   = 00000020            SYS$OPEN         ********  GX   05   

NAM$M_WILD_SFD7= 80000000            PRO_V_CONCAT   = 00000000            TEMP_XMPL_EXIT   00000009 R     05   

NAM$M_WILD_TYPE= 00000010            PRO_V_IMPCAT   = 00000001            UTIL_START       00000000 RG    05   

NAM$M_WILD_UFD = 01000000            PRO_V_LIST     = 00000002            

NAM$M_WILD_VER = 00000008            PRO_V_OPTION   = 00000003            

NAM$S_DIR_LVLS = 00000003            PRO_V_REQ      = 00000004            

NAM$T_DVI        00000014            PRO_V_STRING   = 00000005            

NAM$V_DIR_LVLS = 00000015            QUA_B_DEFVAL     00000002            

NAM$V_EXP_DEV  = 00000007            QUA_B_IMAGE      00000005            

NAM$V_EXP_DIR  = 00000006            QUA_B_INDEX      00000001            

NAM$V_EXP_NAME = 00000002            QUA_B_OFFSET     00000000            

NAM$V_EXP_TYPE = 00000001            QUA_B_PARMCNT    00000008            

NAM$V_EXP_VER  = 00000000            QUA_G_CHNGLST    00000006            

NAM$V_GRP_MBR  = 00000013            QUA_M_BATDEF   = 00000100            

NAM$V_HIGHVER  = 0000000F            QUA_M_CHNGLIST = 00000001            

NAM$V_LOWVER   = 0000000E            QUA_M_DEFTRUE  = 00000080            

NAM$V_NODE     = 00000011            QUA_M_FILE     = 00000004            

NAM$V_PPF      = 00000010            QUA_M_IMAGE    = 00000400            

NAM$V_QUOTED   = 00000012            QUA_M_INTDEF   = 00000200            

NAM$V_WILDCARD = 00000008            QUA_M_KEYVAL   = 00004000            

NAM$V_WILD_DIR = 00000014            QUA_M_LOCALKEY = 00000002            

NAM$V_WILD_GRP = 00000018            QUA_M_NEG      = 00000040            

NAM$V_WILD_MBR = 00000019            QUA_M_ONEVAL   = 00002000            

NAM$V_WILD_NAME= 00000005            QUA_M_OUTPUT   = 00000800            

NAM$V_WILD_SFD1= 00000019            QUA_M_PARM     = 00000010            

NAM$V_WILD_SFD2= 0000001A            QUA_M_VAL      = 00000020            

NAM$V_WILD_SFD3= 0000001B            QUA_M_VALREQ   = 00001000            

NAM$V_WILD_SFD4= 0000001C            QUA_M_VERB     = 00000008            

NAM$V_WILD_SFD5= 0000001D            QUA_S_MAXPARM  = 00000004            

NAM$V_WILD_SFD6= 0000001E            QUA_S_MINPARM  = 00000004            

NAM$V_WILD_SFD7= 0000001F            QUA_V_BATDEF   = 00000008            

NAM$V_WILD_TYPE= 00000004            QUA_V_CHNGLIST = 00000000            

NAM$V_WILD_UFD = 00000018            QUA_V_DEFTRUE  = 00000007            

NAM$V_WILD_VER = 00000003            QUA_V_FILE     = 00000002            

NAM$W_DID        0000002A            QUA_V_IMAGE    = 0000000A            

NAM$W_DID_NUM    0000002A            QUA_V_INTDEF   = 00000009            

NAM$W_DID_RVN    0000002E            QUA_V_KEYVAL   = 0000000E            

NAM$W_DID_SEQ    0000002C            QUA_V_LOCALKEY = 00000001            

NAM$W_FID        00000024            QUA_V_MAXPARM  = 00000004            

CLIDAT          .IDENT /02/                                      22-AUG-1978 02:31:51   VAX-11 MACRO X0.3-11               Page  12

PROGRAM SECTION SYNOPSIS                                                                                                         (4)







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  

DATA             00000190      03     NOPIC   USR   CON   REL   LCL NOSHR NOEXE   RD    WRT BYTE  

NAMES            0000029D      04       PIC   USR   OVR   REL   GBL   SHR NOEXE   RD    WRT LONG  

CODE             000000EF      05     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD  NOWRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

7178. BYTES LEFT IN FREE MEMORY POOL.

1026. BYTES OF RECLAIMED MEMORY.

OBJ$:CLIDAT,LIS$:CLIDAT.LIS/-SP=EXECML$/ML,SRC$:CLIDAT

37 MLB DIR RDS - 928 GETS TO DEFINE 42 MACROS. 77 INTER. FILE WRITES. 

