

; Bliss-32 7.352	Saturday 22-AUG-1978 03:50:45	DBB3:[COPY.SRC]FILINPUT.B32;1					Page 1

; Digital Equipment Corporation

;

;	0001	MODULE filinput (   ! Declarations of input file RMS blocks for file handling utilities

;	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:	File Handling Utilities

;	0028	!

;	0029	! ABSTRACT:

;	0030	!

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

;	0032	!	for handling input 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:	25 April 1978 07:56

;	0043	!

;	0044	! REVISION HISTORY:

;	0045	!

;	0046	!--



; Bliss-32 7.352	Saturday 22-AUG-1978 03:50:45	DBB3:[COPY.SRC]FILINPUT.B32;1					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 input file FAB, which

;	0059								!    is filled in at execution time

;	0060	

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

;	0062								!    is filled in at execution time

;	0063	

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

;	0065	

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

;	0067	

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

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

;	0070	

;	0071	    infile_nam_blk	: $NAM (			! Input file name block:

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

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

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

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

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

;	0077	

;	0078								! Input file XAB chain:

;	0079	    infile_xabpro	: $XABPRO (),			!    Protection XAB

;	0080	

;	0081	    infile_xabfhc	: $XABFHC (			!    File header characteristics XAB

;     P 0082	                                    NXT = infile_xabpro),

;	0083	

;	0084	    infile_xabdat	: $XABDAT (			!    Date/time XAB

;     P 0085	                                    NXT = infile_xabfhc),

;	0086	

;	0087	    infile_xaball	: $XABALL (			!    Allocation XAB

;     P 0088	                                    NXT = infile_xabdat),

;	0089	

;	0090	    in_name_desc	:  VECTOR [2]			! Input file name descriptor

;	0091	                           INITIAL (0, infile_name);



; Bliss-32 7.352	Saturday 22-AUG-1978 03:50:45	DBB3:[COPY.SRC]FILINPUT.B32;1					Page 3

; Digital Equipment Corporation

;

;	0092	END

;	0093	ELUDOM





							    .TITLE  FILINPUT

							    .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_XABPRO::

							    .BYTE   19							      ;

					      00205 	    .BYTE   16							      ;

					      00206 	    .WORD   0							      ;

					      00208 	    .LONG   0							      ;

					      0020C 	    .WORD   -1							      ;



; Bliss-32 7.352	Saturday 22-AUG-1978 03:50:45	DBB3:[COPY.SRC]FILINPUT.B32;1					Page 3-1

; Digital Equipment Corporation

;

					      0020E 	    .WORD   0							      ;

					      00210 	    .WORD   0, 0						      ;

					      00214 INFILE_XABFHC::

							    .BYTE   29							      ;

					      00215 	    .BYTE   44							      ;

					      00216 	    .WORD   0							      ;

					      00218 	    .ADDRESS  INFILE_XABPRO					      ;

					      0021C 	    .LONG   0, 0, 0, 0, 0, 0, 0, 0, 0				      ;

					      00240 INFILE_XABDAT::

							    .BYTE   18							      ;

					      00241 	    .BYTE   36							      ;

					      00242 	    .WORD   0							      ;

					      00244 	    .ADDRESS  INFILE_XABFHC					      ;

					      00248 	    .WORD   0							      ;

					      0024A 	    .WORD   0							      ;

					      0024C 	    .LONG   0, 0						      ;

					      00254 	    .LONG   0, 0						      ;

					      0025C 	    .LONG   0							      ;

					      00260 	    .LONG   0							      ;

					      00264 INFILE_XABALL::

							    .BYTE   20							      ;

					      00265 	    .BYTE   32							      ;

					      00266 	    .WORD   0							      ;

					      00268 	    .ADDRESS  INFILE_XABDAT					      ;

					      0026C 	    .BYTE   0							      ;

					      0026D 	    .BYTE   0							      ;

					      0026E 	    .WORD   0							      ;

					      00270 	    .LONG   0							      ;

					      00274 	    .LONG   0							      ;

					      00278 	    .WORD   0							      ;

					      0027A 	    .BYTE   0							      ;

					      0027B 	    .BYTE   0							      ;

					      0027C 	    .WORD   0, 0, 0						      ;

					      00282 	    .WORD   0							      ;

					      00284 IN_NAME_DESC::

							    .LONG   0							      ;

					      00288 	    .ADDRESS  INFILE_NAME					      ;









;				       PSECT SUMMARY

;

;	Name		 Bytes			       Attributes

;

;  $GLOBAL$       	   652    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



; Bliss-32 7.352	Saturday 22-AUG-1978 03:50:45	DBB3:[COPY.SRC]FILINPUT.B32;1					Page 3-2

; Digital Equipment Corporation

;

;

;  DBA4:[SYSLIB]STARLET.L32;1		      2688        34         1       141











; Size:		0 code + 652 data bytes

; Run Time:	00:03.5

; Elapsed Time:	00:07.3

; Memory Used:	132 pages

; Compilation Complete

