ELPARS 0112MS, EXECUTE SYSTEM P	MACRO M1110  22-AUG-78 01:19  PAGE 7





      1						.TITLE	ELPARS 0112MS, EXECUTE SYSTEM PARSE DIRECTIVE

						.IDENT	/0112MS/

      2					;

      3					; COPYRIGHT (C) 1977,1978, DIGITAL EQUIPMENT CORP., MAYNARD MASS.

      4

      5					; THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A LICENSE FOR USE

      6					; ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION

      7					; OF DEC'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT

      8					; AS MAY OTHERWISE BE PROVIDED IN WRITING BY DEC.

      9

     10					; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT

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

     12					; EQUIPMENT CORPORATION.

     13

     14					; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY

     15					; OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.

     16					;

     17					; ANDREW C. GOLDSTEIN  8-SEP-77  14:20

     18					;

     19					; THIS ROUTINE IS USED TO INTERFACE FCS TO EXTENDED FILE NAME PROCESSING

     20					; FACILITIES WHERE AVAILABLE IN A SUPPORTING SYSTEM. IT IN EFFECT BYPASSES

     21					; THE FILE NAME PROCESSING BUILT INTO FCS AND ALLOWS THE SYSTEM

     22					; DIRECTIVE TO PROCESS FILE NAME DATA FROM THE DSPT AND DEFAULT DATA

     23					; INTO A FULLY PARSED FILE NAME BLOCK.

     24					;

     25					; ENTRY POINTS, NAMED ..ELP0 THRU ..ELP3 ARE PROVIDED TO FILL THE NEEDS

     26					; OF, RESPECTIVELY, .PARSE, .PRSDV, .GTDID, AND .GTDIR.

     27					;

     28					;

     29					; MODIFIED BY:

     30					;	E.H. MARISON	20-DEC-77	PUT IN P$$ARS CONDITIONALS

     31					;	E.H. MARISON	19-JAN-78	FIX POST PROCESSING FOR PARSE DEVICE

     32					;	E.H. MARISON	1-MAR-78	HANDLE $DSW AS A WORD NOT A BYTE

     33					;					AND CALL .ASLUN ON IGNORABLE ERRORS

     34					;

     35

     36					;

     37					; DEFINE PARSE MODES

     38					;

     39		000000 			PM.NOR	= 0			;NORMAL FCS MODE

     40		000001 			PM.PDV	= 1			;PARSE DEVICE ONLY

     41		000002 			PM.FNB	= 2			;PARSE FROM FNB

     42

     43						.MCALL	DIR$

     44

     45						.IIF	NDF,P$$ARS,P$$ARS=0	; 0 NO PARS$ SUPPORT

     46										; 1 PARS$ DIRECTIVE SUPPORTED

ELPARS 0112MS, EXECUTE SYSTEM P	MACRO M1110  22-AUG-78 01:19  PAGE 8





     48						.IF	EQ,P$$ARS-1

     49						.ENABL	LSB

     50

     51					;+

     52					;	..ELP3	PARSE FOR .GTDIR

     53					;

     54					; INPUTS:

     55					;	R0 = FDB

     56					;	R1 = FNB

     57					;	R2 = ADDR OF DIRECTORY DESCRIPTOR

     58					;

     59					; OUTPUTS:

     60					;	C = 1 IF ERROR (STATUS IN F.ERR)

     61					;	  = 0 IF SUCCESS OR UNSUPPORTED

     62					;	Z = 1 IF DIRECTIVE UNSUPPORTED

     63					;	  = 0 IF DIRECTIVE SUPPORTED AND SUCCESS

     64					;

     65					;-

     66

     67	000000				..ELP3::

     68	000000					CALL	DPB1		;BASIC DPB SETUP

     69	000004	010225 				MOV	R2,(R5)+	;P5 = DIRECTORY DESCRIPTOR

     70	000006	000456 				BR	20$		;PROCEED WITH COMMON CODE

     71

     72					;+

     73					;	..ELP2	PARSE FOR .GTDID

     74					;

     75					; INPUTS:

     76					;	R0 = FDB

     77					;	R1 = FNB

     78					;

     79					; OUTPUTS:

     80					;	C = 1 IF ERROR (STATUS IN F.ERR)

     81					;	  = 0 IF SUCCESS OR UNSUPPORTED

     82					;	Z = 1 IF DIRECTIVE UNSUPPORTED

     83					;	  = 0 IF DIRECTIVE SUPPORTED AND SUCCESS

     84					;

     85					;-

     86

     87	000010				..ELP2::

     88	000010					CALL	DPB1		;BASIC DPB SETUP

     89	000014	000455 				BR	30$		;PROCEED WITH COMMON CODE

     90

     91					;+

     92					;	..ELP1	PARSE FOR .PRSDV

     93					;

     94					; INPUTS:

     95					;	R0 = FDB

     96					;	R1 = FNB

     97					;	R2 = ADDR OF DATASET DESCRIPTOR

     98					;	R3 = DFNB

     99					;

    100					; OUTPUTS:

    101					;	C = 1 IF ERROR (STATUS IN F.ERR)

    102					;	  = 0 IF SUCCESS OR UNSUPPORTED

    103					;	Z = 1 IF DIRECTIVE UNSUPPORTED

    104					;	  = 0 IF DIRECTIVE SUPPORTED AND SUCCESS

ELPARS 0112MS, EXECUTE SYSTEM P	MACRO M1110  22-AUG-78 01:19  PAGE 8-1





    105					;

    106					;-

    107

    108	000016				..ELP1::

    109	000016					CALL	DPB0		;BASIC DPB SETUP

    110	000022	012725 	000001 			MOV	#PM.PDV,(R5)+	;P1 = PARSE DEVICE MODE

    111	000026					CALL	10$		;CALL COMMON CODE

    112	000032	103016 				BCC	2$		; BRANCH IF SUCCESS

    113	000034	126027 	000052 	177777 		CMPB	F.ERR(R0),#IE.BAD ; IF BAD PARM THEN BRANCH

    114	000042	001410 				BEQ	5$

    115	000044	126027 	000052 	177711 		CMPB	F.ERR(R0),#IE.BDV ; IF BAD DEVICE BRANCH

    116	000052	001404 				BEQ	5$

    117	000054	012760 	000001 	000052 		MOV	#1,F.ERR(R0)	; ITS ALRIGHT NOTE SUCCESS

    118	000062	000450 				BR	55$		; GO ASSIGN LUN AND RETURN

    119					;

    120	000064	000244 			5$:	CLZ			; NOTE FAILURE Z = 0

    121	000066	000261 				SEC			; C = 1

    122	000070				2$:	RETURN

    123

    124					;+

    125					;	..ELP0	PARSE FOR .PARSE

    126					;

    127					; INPUTS:

    128					;	R0 = FDB

    129					;	R1 = FNB

    130					;	R2 = ADDR OF DATASET DESCRIPTOR

    131					;

    132					;	R3 = DFNB

    133					; OUTPUTS:

    134					;	C = 1 IF ERROR (STATUS IN F.ERR)

    135					;	  = 0 IF SUCCESS OR UNSUPPORTED

    136					;	Z = 1 IF DIRECTIVE UNSUPPORTED

    137					;	  = 0 IF DIRECTIVE SUPPORTED AND SUCCESS

    138					;

    139					;-

    140

    141	000072				..ELP0::

    142	000072					CALL	DPB0		;BASIC DPB SETUP

    143	000076	012725 	000000 			MOV	#PM.NOR,(R5)+	;P1 = NORMAL PARSE MODE

    144	000102	116025 	000042 		10$:	MOVB	F.LUN(R0),(R5)+	;P2 = LUN

    145	000106	105025 				CLRB	(R5)+

    146	000110	010225 				MOV	R2,(R5)+	;P3 = DATASET DESCRIPTOR

    147	000112	010325 				MOV	R3,(R5)+	;P4 = DFNB

    148

    149	000114	010446 				MOV	R4,-(SP)

    150	000116	062716 	000004 			ADD	#4,(SP)		;COMPUTE ADDR OF DIRECTORY STRING BUFFER

    151	000122	022714 	177777 			CMP	#-1,(R4)	;SEE IF DIRECTORY STRING IS UNITIALIZED

    152	000126	001002 				BNE	15$		;BRANCH IF NOT

    153	000130	011664 	000002 			MOV	(SP),2(R4)	;YES - INIT POINTER (COUNT IS DONE BELOW)

    154	000134	022664 	000002 		15$:	CMP	(SP)+,2(R4)	;SEE IF USER HAS WRITTEN A DIRECTORY STRING

    155	000140	001403 				BEQ	30$		;BRANCH IF NOT

    156	000142	010425 				MOV	R4,(R5)+	;YES - P5 = DEFAULT DIRECTORY STRING

    157	000144	005004 			20$:	CLR	R4		;INDICATE NO DIRECTORY STRING RETURN

    158	000146	000401 				BR	40$

    159

    160	000150	005025 			30$:	CLR	(R5)+		;P5 = 0 TO USE PROCESS DEFAULT DIRECTORY

    161	000152	010125 			40$:	MOV	R1,(R5)+	;P6 = FNB TO PARSE INTO

ELPARS 0112MS, EXECUTE SYSTEM P	MACRO M1110  22-AUG-78 01:19  PAGE 8-2





    162	000154	010425 				MOV	R4,(R5)+	;P7 = ADDR OF RETURN DIRECTORY DESCRIPTOR

    163	000156	001405 				BEQ	50$		;BRANCH IF NONE

    164	000160	012714 	000022 			MOV	#18.,(R4)	;SET BUFFER LENGTH OF 18 BYTES

    165	000164	012764 	177777 	000026 		MOV	#-1,D.DFUN(R4)	;SMASH DEFAULT DID UNIT TO PREVENT CONFUSION

    166

    167	000172	162705 	000020 		50$:	SUB	#16.,R5		;POINT TO START OF DPB

    168	000176					DIR$	R5		;EXECUTE THE DIRECTIVE

    169	000202	103404 				BCS	60$		;BRANCH IF ERROR

    170	000204				55$:	CALL	.ASLUN		;ASSIGN THE LUN (RETURNS C BIT ON FAILURE)

    171	000210	000244 				CLZ			;CLEAR Z BIT TO INDICATE REAL SUCCESS

    172	000212					RETURN

    173

    174	000214	005704 			60$:	TST	R4		; DID WE ASK FOR DIRECTORY STRING

    175	000216	001402 				BEQ	65$		; BRANCH IF NO

    176	000220	012714 	177777 			MOV	#-1,(R4)	; YES - FLAG DEF DIR STRG NEEDED TO BE INIT'ED

    177	000224	023727 	000000G	177635 	65$:	CMP	@#$DSW,#IE.SDP	;SEE IF DIRECTIVE UNSUPPORTED

    178	000232	001404 				BEQ	70$		;BRANCH IF YES. NOTE! C=0, Z=1

    179	000234	000261 				SEC			;ELSE REAL ERROR

    180	000236	013760 	000000G	000052 		MOV	@#$DSW,F.ERR(R0) ; NOTE REASON WHY WE FAILED

    181	000244				70$:	RETURN

    182

    183						.DSABL	LSB

ELPARS 0112MS, EXECUTE SYSTEM P	MACRO M1110  22-AUG-78 01:19  PAGE 9





    185					;

    186					; SUBROUTINE TO DO INITIAL SETUP OF DPB

    187					;

    188					; OUTPUTS:

    189					;	R4 = ADDRESS OF A.DFDR IN FSR2

    190					;	R5 = ADDRESS OF P1 OF DPB IN FSR2

    191					;

    192

    193	000246	013705 	000000G		DPB0:	MOV	@#.FSRPT,R5	;GET ADDRESS OF FSR2

    194	000252	010504 				MOV	R5,R4

    195	000254	062705 	000014 			ADD	#A.DPB,R5	;GET ADDRESS OF DPB

    196	000260	062704 	000050 			ADD	#A.DFDR,R4	;GET ADDRESS OF DEFAULT DIRECTORY DESCRIPTOR

    197	000264	012725 	004221 			MOV	#<8.*256.>+145.,(R5)+ ;STORE DIC & DPB SIZE

    198	000270					RETURN

    199

    200					;

    201					; SUBROUTINE TO SECONDARY DPB SETUP FOR .GTDID AND .GTDIR PARSE

    202					;

    203					; OUTPUTS:

    204					;	R4 = ADDRESS OF A.DFDR IN FSR2

    205					;	R5 = ADDRESS OF P5 OF DPB IN FSR2

    206					;

    207

    208	000272				DPB1:	CALL	DPB0		;DO INITIAL SETUP

    209	000276	012725 	000002 			MOV	#PM.FNB,(R5)+	;P1 = FNB MODE

    210	000302	116025 	000042 			MOVB	F.LUN(R0),(R5)+	;P2 = LUN

    211	000306	105025 				CLRB	(R5)+

    212	000310	005025 				CLR	(R5)+		;P3 = 0 (DSPT)

    213	000312	010125 				MOV	R1,(R5)+	;P4 = FNB (DFNB)

    214	000314					RETURN

    215

    216						.IFF

    217					;

    218					; DUMMY ROUTINES WHICH INDICATE PARSE FAILURE DUE TO NO SUPPORT

    219					;

    220					..ELP3::

    221					..ELP2::

    222					..ELP1::

    223					..ELP0::

    224

    225						CLC			; CLEAR C-BIT

    226						SEZ			; SET THE Z-BIT

    227						RETURN			; AND RETURN

    228

    229

    230						.ENDC

    231

    232					;

    233					;

    234	000316					$END	ELPARS

    235					;

    236					;

    237		000001 				.END

ELPARS 0112MS, EXECUTE SYSTEM P	MACRO M1110  22-AUG-78 01:19  PAGE 9-1

SYMBOL TABLE



A.BFSR= 000004   	FD.PSE= 010000   	F.RATT= 000001   	IE.FEX= 177717   	IE.RNM= 177715

A.DFBC= 000100   	FD.RAH= 000001   	F.RCNM= 000034   	IE.FHE= 177705   	IE.RSU= 177757

A.DFDR= 000050   	FD.RAN= 000002   	F.RCTL= 000017   	IE.FIX= 177767   	IE.SDP= 177635

A.DFUI= 000102   	FD.REC= 000001   	F.RSIZ= 000002   	IE.FLN= 177657   	IE.SNC= 177735

A.DPB = 000014   	FD.RWM= 000001   	F.RTYP= 000000   	IE.FOP= 177713   	IE.SPC= 177772

A.EFSR= 000006   	FD.SDI= 000020   	F.SEQN= 000100   	IE.HFU= 177744   	IE.SQC= 177734

A.FIPR= 000012   	FD.SPL= 000200   	F.SPDV= 000072   	IE.HWR= 177772   	IE.SRE= 177762

A.IOST= 000044   	FD.SQD= 000040   	F.SPUN= 000074   	IE.IBS= 177647   	IE.STK= 177706

A.OWUI= 000010   	FD.TTY= 000004   	F.STBK= 000036   	IE.IDU= 177644   	IE.TCH= 177765

BD.FRE= 000001   	FD.WBH= 000002   	F.UNIT= 000136   	IE.IEF= 177637   	IE.TMM= 177671

BL.SZ = 000013   	FD.WRT= 000001   	F.URBD= 000020   	IE.IES= 177656   	IE.TMO= 177666

B.BBFS= 000010   	FF.CHR= 000005   	F.VBN = 000064   	IE.IFC= 177776   	IE.ULK= 177653

B.BFST= 000015   	FF.NV = 000003   	F.VBSZ= 000060   	IE.IFU= 177747   	IE.ULN= 177773

B.NXBD= 000012   	FF.POE= 000002   	HA.CHU= 000003   	IE.ILL= 177726   	IE.UNS= 177774

B.VBN = 000004   	FF.RWD= 000001   	HA.FP = 000002   	IE.ILU= 177640   	IE.UPN= 177777

CH.AND= 000001   	FF.RWF= 000006   	HA.NAM= 000005   	IE.ILV= 177755   	IE.VER= 177774

DIRTYP= 015172   	FF.SPC= 000004   	HA.TYP= 000006   	IE.INS= 177776   	IE.WAC= 177743

DPB0    000246R     002	FO.APD= 000106   	HA.UAT= 000004   	IE.IOP= 177655   	IE.WAT= 177741

DPB1    000272R     002	FO.MFY= 000002   	HA.UI = 000001   	IE.IPR= 177641   	IE.WCK= 177652

D.DFDV= 000024   	FO.RD = 000001   	HA.VER= 000007   	IE.ISQ= 177703   	IE.WER= 177737

D.DFID= 000016   	FO.UPD= 000006   	IE.ABO= 177761   	IE.ITI= 177643   	IE.WLK= 177764

D.DFUN= 000026   	FO.WRT= 000016   	IE.ACT= 177771   	IE.ITP= 177650   	IE.WOV= 177653

FA.APD= 000100   	F.ACTL= 000076   	IE.ADP= 177636   	IE.ITS= 177770   	IE.2DV= 177720

FA.CRE= 000010   	F.ALOC= 000040   	IE.ALC= 177654   	IE.IUI= 177645   	IO.ACE= 007400

FA.DLK= 001000   	F.BBFS= 000062   	IE.ALG= 177654   	IE.LCK= 177745   	IO.ACR= 006400

FA.ENB= 100000   	F.BDB = 000070   	IE.ALN= 177736   	IE.LNL= 177646   	IO.ACW= 007000

FA.EXC= 002000   	F.BGBC= 000057   	IE.AST= 177660   	IE.MAP= 177657   	IO.APC= 014000

FA.EXT= 000004   	F.BKDN= 000026   	IE.BAD= 177777   	IE.MOD= 177753   	IO.APV= 014010

FA.NSP= 000100   	F.BKDS= 000020   	IE.BBE= 177710   	IE.NBF= 177731   	IO.ATT= 001400

FA.POS= 010000   	F.BKEF= 000050   	IE.BCC= 177676   	IE.NBK= 177727   	IO.CLN= 003400

FA.RD = 000001   	F.BKP1= 000051   	IE.BDI= 177714   	IE.NDR= 177670   	IO.CRE= 012000

FA.RWD= 004000   	F.BKST= 000024   	IE.BDR= 177716   	IE.NFI= 177704   	IO.DAC= 010000

FA.SEQ= 040000   	F.BKVB= 000064   	IE.BDV= 177711   	IE.NFW= 177673   	IO.DEL= 012400

FA.SHR= 000040   	F.CHR = 000075   	IE.BHD= 177700   	IE.NLK= 177661   	IO.DET= 002000

FA.TMP= 000020   	F.CNTG= 000034   	IE.BLB= 177672   	IE.NLN= 177733   	IO.ENA= 006000

FA.WCK= 020000   	F.DFNB= 000046   	IE.BLK= 177754   	IE.NNC= 177663   	IO.EXT= 011400

FA.WRT= 000002   	F.DSPT= 000044   	IE.BNM= 177712   	IE.NNL= 177662   	IO.FNA= 004400

FCSEFN= 000040   	F.DVNM= 000134   	IE.BTF= 177664   	IE.NNN= 177674   	IO.KIL= 000012

FD.BLK= 000010   	F.EFBK= 000010   	IE.BTP= 177725   	IE.NOD= 177751   	IO.LOV= 001010

FD.CCL= 000002   	F.EFN = 000050   	IE.BVR= 177701   	IE.NSF= 177746   	IO.LTK= 000050

FD.COM= 020000   	F.EOBB= 000032   	IE.BYT= 177755   	IE.NST= 177660   	IO.RAT= 013000

FD.CR = 000002   	F.ERR = 000052   	IE.CKP= 177766   	IE.NSW= 177756   	IO.RDN= 000022

FD.DIR= 000010   	F.FACC= 000043   	IE.CKS= 177742   	IE.NVR= 177652   	IO.RLB= 001000

FD.DVR= 000020   	F.FFBY= 000014   	IE.CLO= 177732   	IE.NVW= 177651   	IO.RNA= 005400

FD.EFB= 000004   	F.FNAM= 000110   	IE.CNR= 177667   	IE.OFL= 177677   	IO.RTK= 000060

FD.EF1= 000010   	F.FNB = 000102   	IE.CON= 177752   	IE.ONP= 177773   	IO.RVB= 010400

FD.EOF= 000002   	F.FTYP= 000116   	IE.DAA= 177770   	IE.OVR= 177756   	IO.SET= 000030

FD.FTN= 000001   	F.FVER= 000120   	IE.DAO= 177763   	IE.PES= 177655   	IO.ULK= 005000

FD.F11= 040000   	F.HIBK= 000004   	IE.DFU= 177750   	IE.PNS= 177642   	IO.UNL= 000042

FD.INS= 000010   	F.LUN = 000042   	IE.DNA= 177771   	IE.PRI= 177760   	IO.WAT= 013400

FD.INV= 000100   	F.MBCT= 000054   	IE.DNR= 177775   	IE.PTS= 177775   	IO.WLB= 000400

FD.ISP= 002000   	F.MBC1= 000055   	IE.DUN= 177767   	IE.RAC= 177724   	IO.WVB= 011000

FD.MNT= 100000   	F.MBFG= 000056   	IE.DUP= 177707   	IE.RAT= 177723   	IQ.Q  = 000002

FD.OER= 000040   	F.NRBD= 000024   	IE.EOF= 177766   	IE.RBG= 177730   	IQ.S  = 000004

FD.OSP= 004000   	F.NREC= 000030   	IE.EOT= 177702   	IE.RBS= 177761   	IQ.UMD= 000004

FD.PLC= 000004   	F.OVBS= 000030   	IE.EOV= 177765   	IE.RCN= 177722   	IQ.X  = 000001

FD.PRN= 000004   	F.RACC= 000016   	IE.EXP= 177665   	IE.RER= 177740   	IS.BV = 000005

ELPARS 0112MS, EXECUTE SYSTEM P	MACRO M1110  22-AUG-78 01:19  PAGE 9-2

SYMBOL TABLE



IS.CC = 001401   	NB.SD1= 000400   	N.FTYP= 000014   	R$$RSL= 000001   	S.FTYP= 000002

IS.CLR= 000000   	NB.SD2= 001000   	N.FVER= 000016   	R$$SEQ= 000000   	S.NFEN= 000020

IS.CR = 006401   	NB.SMI= 040000   	N.NEXT= 000022   	R$$SPL= 000000   	WI.DLK= 000002

IS.EOT= 002001   	NB.SNM= 000040   	N.STAT= 000020   	R$$VMS= 000001   	WI.LCK= 000001

IS.ESC= 015401   	NB.STP= 000020   	N.UNIT= 000034   	R$$11M= 000001   	WI.SPL= 000020

IS.ESQ= 115401   	NB.SVR= 000010   	PM.FNB= 000002   	R.FIX = 000001   	WI.UPD= 000100

IS.PES= 100001   	NB.TYP= 000002   	PM.NOR= 000000   	R.SEQ = 000003   	$DSW  = ****** GX

IS.PND= 000000   	NB.VER= 000001   	PM.PDV= 000001   	R.VAR = 000002   	$$MSG = 000000

IS.RDD= 000002   	N.DID = 000024   	PP.SEP= 000002   	SYDEV = 054523   	.ASLUN= ****** GX

IS.SET= 000002   	N.DRPT= 000006   	PP.ZER= 000001   	SYUNIT= 000000   	.FSRPT= ****** GX

IS.SPD= 000002   	N.DRSZ= 000004   	P$$ARS= 000001   	S.BFHD= 000020   	..ELP0  000072RG    002

IS.SUC= 000001   	N.DVNM= 000032   	R$$ANI= 000001   	S.FATT= 000016   	..ELP1  000016RG    002

IS.TAB= 004401   	N.DVPT= 000002   	R$$BBF= 000000   	S.FDB = 000140   	..ELP2  000010RG    002

IS.TMO= 000002   	N.DVSZ= 000000   	R$$DPB= 000001   	S.FNAM= 000006   	..ELP3  000000RG    002

NB.DEV= 000200   	N.FID = 000000   	R$$EIS= 000001   	S.FNB = 000036   	...CTL= 000001

NB.DIR= 000100   	N.FNAM= 000006   	R$$LCL= 000001   	S.FNBW= 000017   	...GBL= 000000

NB.DOT= 100000   	N.FNPT= 000012   	R$$MUL= 000000   	S.FNTY= 000004   	...TPC= 000030

NB.NAM= 000004   	N.FNSZ= 000010   	R$$OPF= 000000   	S.FSR2= 000104



. ABS.	000000	   000

      	000000	   001

$$RESL	000316	   002

ERRORS DETECTED:  0



VIRTUAL MEMORY USED:  4758 WORDS  ( 19 PAGES)

DYNAMIC MEMORY:  5940 WORDS  ( 22 PAGES)

ELAPSED TIME:  00:00:30

OBJ$:ELPARS,LIS$:ELPARS/-SP=SRC$:FCSPRE,ELPARS

