

; Bliss-32 7.352	Saturday 22-AUG-1978 03:51:03	DBB3:[COPY.SRC]KEYS.B32;5					Page 1

; Digital Equipment Corporation

;

;	0001	MODULE KEYS (						! COPY command qualifier keywords

;	0002			IDENT = 'X01.00'

;	0003			) =

;	0004	BEGIN

;	0005	

;	0006	!

;	0007	!			  COPYRIGHT (c) 1977 BY

;	0008	!	      DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

;	0009	!

;	0010	! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND  COPIED

;	0011	! ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE AND WITH THE

;	0012	! INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR  ANY  OTHER

;	0013	! COPIES  THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY

;	0014	! OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF  THE  SOFTWARE  IS  HEREBY

;	0015	! TRANSFERRED.

;	0016	!

;	0017	! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT  NOTICE

;	0018	! AND  SHOULD  NOT  BE  CONSTRUED  AS  A COMMITMENT BY DIGITAL EQUIPMENT

;	0019	! CORPORATION.

;	0020	!

;	0021	! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR  RELIABILITY  OF  ITS

;	0022	! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.

;	0023	!

;	0024	

;	0025	!++

;	0026	! FACILITY:  System Library

;	0027	!

;	0028	! ABSTRACT:

;	0029	!

;	0030	!	This module consists of keyword tables which define ALIGNMENT

;	0031	!	and PROTECTION qualifier keywords and keyword values.

;	0032	!

;	0033	! ENVIRONMENT:  

;	0034	!

;	0035	! AUTHOR:  Ward Clark,	CREATION DATE:  7 November 1977

;	0036	!

;	0037	! Modified:	C. Peters, 18 April 1978

;	0038	!

;	0039	! 01	18-04-78	C. Peters	Change INCLUDE declarations to be suitable for VMS native compiles.

;	0040	!

;	0041	!--



; Bliss-32 7.352	Saturday 22-AUG-1978 03:51:03	DBB3:[COPY.SRC]KEYS.B32;5					Page 2

; Digital Equipment Corporation

;

;	0042	!

;	0043	! TABLE OF CONTENTS:

;	0044	!

;	0045	!	None

;	0046	

;	0047	!

;	0048	! INCLUDE FILES:

;	0049	!

;	0050	

;	0051	LIBRARY  'SYS$LIBRARY:STARLET.L32';			! VAX/VMS macros and literals

;	0052	

;	0053	REQUIRE  'SRC$:LIBMAC.B32';				! General library macros and literals

; %PRINT:	File: LIBMAC.B32, Version 1, Edit 4, CP, 18-Apr-78

;	0405	

;	0406	LIBRARY  'SRC$:VMSMAC.L32';				! General VAX/VMS macros

;	0407	

;	0408	!

;	0409	! MACROS:

;	0410	!

;	0411	

;	0412	MACRO

;	0413	    BIT_LOCATION(L,B,S,X) = B %;			! Extracts bit displacement from a structure definition

;	0414	

;	0415	!

;	0416	! EQUATED SYMBOLS:

;	0417	!

;	0418	

;	0419	LITERAL

;	0420	    YES = 1,						! "yes" indicator

;	0421	    NO = 0;						! "no" indicator

;	0422	

;	0423	!

;	0424	! OWN STORAGE:

;	0425	!

;	0426	

;	0427	GLOBAL

;	0428	    COPY$ALIGN_KEYS :  $LIB_KEY_TABLE(			! ALIGNMENT qualifier keywords:

;     P 0429			( CYLINDER, BYTE(			!    Cylinder alignment -

;     P 0430					XAB$C_CYL,		!	XAB$B_ALN code

;     P 0431					-1,			!	XAB$B_AOP "and" mask

;     P 0432					YES,			!	keyword value permitted

;     P 0433					NO ) ),			!	keyword value not required

;     P 0434			( LOGICAL, BYTE(			!    Logical block alignment -

;     P 0435					XAB$C_LBN,		!	XAB$B_ALN code

;     P 0436					-1,			!	XAB$B_AOP "and" mask

;     P 0437					YES,			!	keyword value permitted

;     P 0438					YES ) ),		!	keyword value required

;     P 0439			( APPROXIMATE, BYTE(			!    Approximate alignment satisfactory -

;     P 0440					0,			!	XAB$B_ALN code - none

;     P 0441					-1 - XAB$M_HRD,		!	XAB$B_AOP "and" mask

;     P 0442					NO,			!	no keyword value permitted

;     P 0443					NO ) )),		!	no keyword value required

;	0444	

;	0445	    COPY$PROT_KEYS:  $LIB_KEY_TABLE(			! PROTECTION qualifier keywords:

;     P 0446			( SYSTEM, BIT_LOCATION(XAB$V_SYS) ),	!    SYSTEM



; Bliss-32 7.352	Saturday 22-AUG-1978 03:51:03	DBB3:[COPY.SRC]KEYS.B32;5					Page 2-1

; Digital Equipment Corporation

;

;     P 0447			( OWNER, BIT_LOCATION(XAB$V_OWN) ),	!    OWNER

;     P 0448			( GROUP, BIT_LOCATION(XAB$V_GRP) ),	!    GROUP

;     P 0449			( WORLD, BIT_LOCATION(XAB$V_WLD) ) ),	!    WORLD

;	0450	

;	0451	    COPY$PROT_VALUE :  $LIB_KEY_TABLE(			! PROTECTION qualifier keyword values:

;     P 0452			( R, BIT_LOCATION(XAB$V_NOREAD) ),	!    Read

;     P 0453			( W, BIT_LOCATION(XAB$V_NOWRITE) ),	!    Write

;     P 0454			( E, BIT_LOCATION(XAB$V_NOEXE) ),	!    Execute

;     P 0455			( D, BIT_LOCATION(XAB$V_NODEL) ) );	!    Delete

;	0456	

;	0457	!

;	0458	! EXTERNAL REFERENCES:

;	0459	!

;	0460	

;	0461	END

;	0462	ELUDOM





							    .TITLE  KEYS

							    .IDENT  \X01.00\



							    .PSECT  $PLIT$,NOWRT,NOEXE,2



					      00000 P.AAA:  .ASCII  <8>\CYLINDER\<0><0><0>				      ;

					      0000C P.AAB:  .ASCII  <7>\LOGICAL\					      ;

					      00014 P.AAC:  .ASCII  <11>\APPROXIMATE\					      ;

					      00020 P.AAD:  .ASCII  <6>\SYSTEM\<0>					      ;

					      00028 P.AAE:  .ASCII  <5>\OWNER\<0><0>					      ;

					      00030 P.AAF:  .ASCII  <5>\GROUP\<0><0>					      ;

					      00038 P.AAG:  .ASCII  <5>\WORLD\<0><0>					      ;

					      00040 P.AAH:  .ASCII  <1>\R\<0><0>					      ;

					      00044 P.AAI:  .ASCII  <1>\W\<0><0>					      ;

					      00048 P.AAJ:  .ASCII  <1>\E\<0><0>					      ;

					      0004C P.AAK:  .ASCII  <1>\D\<0><0>					      ;



							    .PSECT  $GLOBAL$,NOEXE,2



					      00000 COPY$ALIGN_KEYS::

							    .LONG   6							      ;

					      00004 	    .ADDRESS  P.AAA						      ;

					      00008 	    .BYTE   1, -1, 1, 0						      ;

					      0000C 	    .ADDRESS  P.AAB						      ;

					      00010 	    .BYTE   2, -1, 1, 1						      ;

					      00014 	    .ADDRESS  P.AAC						      ;

					      00018 	    .BYTE   0, -2, 0, 0						      ;

					      0001C COPY$PROT_KEYS::

							    .LONG   8							      ;

					      00020 	    .ADDRESS  P.AAD						      ;

					      00024 	    .LONG   0							      ;

					      00028 	    .ADDRESS  P.AAE						      ;

					      0002C 	    .LONG   4							      ;

					      00030 	    .ADDRESS  P.AAF						      ;

					      00034 	    .LONG   8							      ;

					      00038 	    .ADDRESS  P.AAG						      ;

					      0003C 	    .LONG   12							      ;



; Bliss-32 7.352	Saturday 22-AUG-1978 03:51:03	DBB3:[COPY.SRC]KEYS.B32;5					Page 2-2

; Digital Equipment Corporation

;

					      00040 COPY$PROT_VALUE::

							    .LONG   8							      ;

					      00044 	    .ADDRESS  P.AAH						      ;

					      00048 	    .LONG   0							      ;

					      0004C 	    .ADDRESS  P.AAI						      ;

					      00050 	    .LONG   1							      ;

					      00054 	    .ADDRESS  P.AAJ						      ;

					      00058 	    .LONG   2							      ;

					      0005C 	    .ADDRESS  P.AAK						      ;

					      00060 	    .LONG   3							      ;









;				       PSECT SUMMARY

;

;	Name		 Bytes			       Attributes

;

;  $PLIT$         	    80  NOWRT,  RD ,NOEXE,NOSHR,  LCL,  REL,  CON,NOPIC,ALIGN(2)

;  $GLOBAL$       	   100    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        14         0       110

;  DBB3:[COPY.SRC]VMSMAC.L32;1		         6         0         0         3











; Size:		0 code + 180 data bytes

; Run Time:	00:08.8

; Elapsed Time:	00:18.5

; Memory Used:	137 pages

; Compilation Complete

