

; Bliss-32 7.352	Saturday 22-AUG-1978 03:54:16	DBB3:[DELETE.SRC]DELRMSDEF.B32;3				Page 1

; Digital Equipment Corporation

;

;	0001	MODULE delrmsdef (  ! Declarations of file RMS blocks for DELETE utility

;	0002	                    LANGUAGE (BLISS32),

;	0003	                    IDENT = 'X00001'

;	0004	                    ) =

;	0005	BEGIN

;	0006	

;	0007	!

;	0008	! Copyright (c) 1978

;	0009	! Digital Equipment Corporation, Maynard, Massachusetts 01754

;	0010	!

;	0011	! This software is furnished  under a license for use only on a single

;	0012	! computer  system and  may be  copied only with  the inclusion of the

;	0013	! above copyright notice.  This software, or any other copies thereof,

;	0014	! may not be provided or  otherwise made available to any other person

;	0015	! except for use on such system and to one who agrees to these license

;	0016	! terms.  Title to and  ownership of the  software  shall at all times

;	0017	! remain in DEC.

;	0018	!

;	0019	! The information in this software is subject to change without notice

;	0020	! and should  not be construed  as a commitment  by Digital  Equipment

;	0021	! Corporation.

;	0022	!

;	0023	! DEC assumes  no  responsibility  for  the use or  reliability of its

;	0024	! software on equipment which is not supplied by DEC.

;	0025	

;	0026	!++

;	0027	! FACILITY:	DELETE utility

;	0028	!

;	0029	! ABSTRACT:

;	0030	!

;	0031	!	This module contains declarations of the RMS data storage areas needed

;	0032	!	for handling DELETE and PURGE file specifications.

;	0033	!

;	0034	! ENVIRONMENT:

;	0035	!

;	0036	!	VAX/VMS operating system, unprivileged user mode utility,

;	0037	!	operates at non-AST level.

;	0038	!

;	0039	!--

;	0040	!++

;	0041	!

;	0042	! AUTHOR:	Carol Peters,	CREATION DATE:	16 May 1978 09:36

;	0043	!

;	0044	! REVISION HISTORY:

;	0045	!

;	0046	!--



; Bliss-32 7.352	Saturday 22-AUG-1978 03:54:16	DBB3:[DELETE.SRC]DELRMSDEF.B32;3				Page 2

; Digital Equipment Corporation

;

;	0047	!

;	0048	! Include files

;	0049	!

;	0050	

;	0051	LIBRARY 'SYS$LIBRARY:STARLET.L32';			! System definitions

;	0052	

;	0053	!

;	0054	! Global variables

;	0055	!

;	0056	

;	0057	GLOBAL

;	0058	    infile_fab		: $FAB_DECL,			! Space for the file FAB, which

;	0059								!    is filled in at execution time

;	0060	

;	0061	    infile_rab		: $RAB_DECL,			! Space for the file RAB, which

;	0062								!    is filled in at execution time

;	0063	

;	0064	    infile_name		: VECTOR [nam$c_maxrss, BYTE],	! File name after open

;	0065	

;	0066	    infile_xname	: VECTOR [nam$c_maxrss, BYTE],	! File name before open

;	0067	

;	0068	    dummy_nam_blk	: $NAM (			! Dummy name block for "stickiness":

;     P 0069	                                RSA = infile_xname),	!    Address of previous expanded name

;	0070	

;	0071	    infile_nam_blk	: $NAM (			! File name block:

;     P 0072	                                RSA = infile_name,	!    Address and length of the 

;     P 0073	                                RSS = nam$c_maxrss,	!       file name after open

;     P 0074	                                ESA = infile_xname,	!    Address and length of the 

;     P 0075	                                ESS = nam$c_maxrss,	!       file name before open

;     P 0076	                                RLF = dummy_nam_blk),	!    Related file (previous)

;	0077	

;	0078								! XAB blocks:

;	0079	    infile_xabfhc	: $XABFHC (),			!    File header characteristics XAB

;	0080	

;	0081	    infile_xabdat	: $XABDAT ();			!    Date/time XAB



; Bliss-32 7.352	Saturday 22-AUG-1978 03:54:16	DBB3:[DELETE.SRC]DELRMSDEF.B32;3				Page 3

; Digital Equipment Corporation

;

;	0082	END

;	0083	ELUDOM





							    .TITLE  DELRMSDEF

							    .IDENT  \X00001\



							    .PSECT  $GLOBAL$,NOEXE,2



					      00000 INFILE_FAB::

							    .BLKB   80

					      00050 INFILE_RAB::

							    .BLKB   68

					      00094 INFILE_NAME::

							    .BLKB   128

					      00114 INFILE_XNAME::

							    .BLKB   128

					      00194 DUMMY_NAM_BLK::

							    .BYTE   2							      ;

					      00195 	    .BYTE   56							      ;

					      00196 	    .BYTE   0							      ;

					      00197 	    .BYTE   0							      ;

					      00198 	    .ADDRESS  INFILE_XNAME					      ;

					      0019C 	    .WORD   0							      ;

					      0019E 	    .BYTE   0							      ;

					      0019F 	    .BYTE   0							      ;

					      001A0 	    .LONG   0							      ;

					      001A4 	    .LONG   0							      ;

					      001A8 	    .WORD   0, 0, 0, 0, 0, 0, 0, 0				      ;

					      001B8 	    .WORD   0, 0, 0						      ;

					      001BE 	    .WORD   0, 0, 0						      ;

					      001C4 	    .LONG   0							      ;

					      001C8 	    .LONG   0							      ;

					      001CC INFILE_NAM_BLK::

							    .BYTE   2							      ;

					      001CD 	    .BYTE   56							      ;

					      001CE 	    .BYTE   -128						      ;

					      001CF 	    .BYTE   0							      ;

					      001D0 	    .ADDRESS  INFILE_NAME					      ;

					      001D4 	    .WORD   0							      ;

					      001D6 	    .BYTE   -128						      ;

					      001D7 	    .BYTE   0							      ;

					      001D8 	    .ADDRESS  INFILE_XNAME					      ;

					      001DC 	    .ADDRESS  DUMMY_NAM_BLK					      ;

					      001E0 	    .WORD   0, 0, 0, 0, 0, 0, 0, 0				      ;

					      001F0 	    .WORD   0, 0, 0						      ;

					      001F6 	    .WORD   0, 0, 0						      ;

					      001FC 	    .LONG   0							      ;

					      00200 	    .LONG   0							      ;

					      00204 INFILE_XABFHC::

							    .BYTE   29							      ;

					      00205 	    .BYTE   44							      ;

					      00206 	    .WORD   0							      ;

					      00208 	    .LONG   0							      ;

					      0020C 	    .LONG   0, 0, 0, 0, 0, 0, 0, 0, 0				      ;



; Bliss-32 7.352	Saturday 22-AUG-1978 03:54:16	DBB3:[DELETE.SRC]DELRMSDEF.B32;3				Page 3-1

; Digital Equipment Corporation

;

					      00230 INFILE_XABDAT::

							    .BYTE   18							      ;

					      00231 	    .BYTE   36							      ;

					      00232 	    .WORD   0							      ;

					      00234 	    .LONG   0							      ;

					      00238 	    .WORD   0							      ;

					      0023A 	    .WORD   0							      ;

					      0023C 	    .LONG   0, 0						      ;

					      00244 	    .LONG   0, 0						      ;

					      0024C 	    .LONG   0							      ;

					      00250 	    .LONG   0							      ;









;				       PSECT SUMMARY

;

;	Name		 Bytes			       Attributes

;

;  $GLOBAL$       	   596    WRT,  RD ,NOEXE,NOSHR,  LCL,  REL,  CON,NOPIC,ALIGN(2)

;  $CODE$         	     0  NOWRT,  RD ,  EXE,NOSHR,  LCL,  REL,  CON,NOPIC,ALIGN(2)









;				LIBRARY STATISTICS

;

;					     -------- Symbols --------    Blocks

;	File				     Total    Loaded   Percent      Read

;

;  DBA4:[SYSLIB]STARLET.L32;1		      2688        18         0       125











; Size:		0 code + 596 data bytes

; Run Time:	00:02.8

; Elapsed Time:	00:13.2

; Memory Used:	122 pages

; Compilation Complete

