

; Bliss-32 7.352	Saturday 22-AUG-1978 00:34:39	DBB3:[INIT.SRC]INIUVL.B32;8					Page 1

; Digital Equipment Corporation

;

;	0001	MODULE INIUVL (

;	0002			LANGUAGE (BLISS32),

;	0003			IDENT = 'X0001'

;	0004			) =

;	0005	BEGIN

;	0006	

;	0007	!

;	0008	! COPYRIGHT (C) 1977

;	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	!

;	0028	! FACILITY:  INIT ANSI MAGNETIC TAPE STRUCTURE LEVEL II

;	0029	!

;	0030	! ABSTRACT:

;	0031	!

;	0032	!	THIS MODULE  SHOULD BE REPLACED IF THE USER WISHES TO 

;	0033	!	WRITE 'UVL' LABELS

;	0034	!

;	0035	!

;	0036	! ENVIRONMENT:

;	0037	!

;	0038	!	VAX/VMS OPERATING SYSTEM

;	0039	!

;	0040	!--

;	0041	!

;	0042	!

;	0043	! AUTHOR:  D. H. GILLESPIE,	 CREATION DATE:  10-DEC-77  

;	0044	!

;	0045	! REVISION HISTORY:

;	0046	!

;	0047	!**

;	0048	

;	0049	LIBRARY 'SYS$LIBRARY:LIB.L32';

;	0050	REQUIRE 'SRC$:INIDEF.B32';

;	0312	REQUIRE 'LIBD$:[VMSLIB.OBJ]INITMSG.B32';



; Bliss-32 7.352	Saturday 22-AUG-1978 00:34:39	DBB3:[INIT.SRC]INIUVL.B32;8					Page 2

; Digital Equipment Corporation

;

;	0372	GLOBAL ROUTINE WRITE_USER_UVL   =

;	0373	

;	0374	!++

;	0375	!

;	0376	! FUNCTIONAL DESCRIPTION:

;	0377	!	THIS ROUTINE IS CALLED TO ALLOW THE USER TO WRITE USER VOLUME

;	0378	!	LABELS.  THE FIRST 3 CHARACTERS OF THE LABEL MUST BE 'UVL' AND THEY SHOULD

;	0379	! 	NOT BE LONGER THAN 80 CHARACTERS.

;	0380	

;	0381	!

;	0382	! CALLING SEQUENCE:

;	0383	!	WRITE_USER_UVL()

;	0384	!

;	0385	! INPUT PARAMETERS:

;	0386	!	NONE

;	0387	!

;	0388	! IMPLICIT INPUTS:

;	0389	!	NONE

;	0390	!

;	0391	! OUTPUT PARAMETERS:

;	0392	!	NONE

;	0393	!

;	0394	! IMPLICIT OUTPUTS:

;	0395	!	USER LABELS WRITTEN

;	0396	!

;	0397	! ROUTINE VALUE:

;	0398	!	SS$_NORMAL	- SUCCESS

;	0399	!	ANY ERROR

;	0400	!

;	0401	! SIDE EFFECTS:

;	0402	!	NONE

;	0403	!

;	0404	! USER ERRORS:

;	0405	!	NONE

;	0406	!

;	0407	!--

;	0408	

;	0409	BEGIN

;	0410	RETURN 1;

;	0411	END;					!END OF WRITE_USER_UVL





							    .TITLE  INIUVL

							    .IDENT  \X0001\







							    .PSECT  $CODE$,NOWRT,2



					 0000 00000 	    .ENTRY  WRITE_USER_UVL, Save nothing			      ; 0372

		         50	       01  D0 00002 	    MOVL    #1, R0						      ; 0410

					   04 00005 	    RET     							      ; 0372



; Routine Size:  6 bytes





; Bliss-32 7.352	Saturday 22-AUG-1978 00:34:39	DBB3:[INIT.SRC]INIUVL.B32;8					Page 2-1

; Digital Equipment Corporation

;



;	0412	

;	0413	END

;	0414	ELUDOM













;				       PSECT SUMMARY

;

;	Name		 Bytes			       Attributes

;

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









;				LIBRARY STATISTICS

;

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

;	File				     Total    Loaded   Percent      Read

;

;  DBA4:[SYSLIB]LIB.L32;1		      5582         3         0       222











;	0415	

; Size:		6 code + 0 data bytes

; Run Time:	00:07.3

; Elapsed Time:	00:22.8

; Memory Used:	244 pages

; Compilation Complete

