Google
 

Trailing-Edge - PDP-10 Archives - BB-H348C-RM_1982 - swskit-v21/listings/utilities/dapsym.list
There are no other files named dapsym.list in the archive.
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page 1
DAPSYM	MAC	20-Aug-81 13:02		- DAP Version 5.6	Sep 30,1980

     1					UNIVERSAL DAPSYM
     2					SUBTTL - DAP Version 5.6	Sep 30,1980
     3
     4					;
     5					;
     6					;
     7					;	    COPYRIGHT (c) 1978,1979,1980
     8					;           DIGITAL EQUIPMENT CORPORATION, MAYNARD, MA.
     9					;
    10					;     THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY  BE  USED
    11					;     AND COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE
    12					;     AND WITH THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE.   THIS
    13					;     SOFTWARE  OR ANY OTHER COPIES THEREOF MAY NOT BE PROVIDED OR
    14					;     OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON.  NO  TITLE  TO
    15					;     AND OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
    16					;     
    17					;     THE INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE
    18					;     WITHOUT  NOTICE  AND SHOULD NOT BE CONSTRUED AS A COMMITMENT
    19					;     BY DIGITAL EQUIPMENT CORPORATION.
    20					;     
    21					;     DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY
    22					;     OF  ITS  SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT SUPPLIED BY
    23					;     DIGITAL.
    24
    25
    26
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page 2
DAPSYM	MAC	20-Aug-81 13:02		- DAP Version 5.6	Sep 30,1980

    27					;Arguments for .DNCON routine - Connect to remote object
    28					;
    29					;	Name	Offset	Contents
    30					;	----	------	--------
    31			000000			DN.FLG== 0	; Flag bits
    32		400000	000000			   DN%DTS==1B0		; Preface msgs with date-time stamp
    33		200000	000000			   DN%SPL==1B1		; Spooler - be more patient
    34			000001			DN.HST== 1	; String pointer to remote host name
    35			000002			DN.ROB== 2	; Remote object type (binary number)
    36			000003			DN.LOB== 3	; Local object type (binary number)
    37			000004			DN.BSZ== 4	; Byte size (binary number)
    38			000005			DN.OPT== 5	; String pointer to ASCIZ optional data string
    39			000006			DN.PWD== 6	; String pointer to ASCIZ password string
    40			000007			DN.ACN== 7	; String pointer to ASCIZ account string
    41			000010			DN.USR==10	; String pointer to ASCIZ user-ID string
    42			000011			DN.ROP==11	; Destination designator for returned optional data
    43			000012			DN.RPC==12	; Maximum byte count for DN.ROP
    44			000013			DN.ERR==13	; Destination designator for error messages
    45			000014			DN.WRN==14	; Destination designator for warning messages
    46			000015			DN.INF==15	; Destination designator for informational messages
    47					EXTERN	D$INIT	
    48
    49					;Daplib initialization entry point
    50					;
    51					;Must be the first DAPLIB routine called.
    52
    53					;ACCEPTS	S1/ length of arg block
    54					;		S2/ Address of argument list
    55
    56			000000		.DIFLG==0	;Initialization flags
    57			000077		  DI%CNT==77B35		;Number of links to allocate
    58			000001		.DIMSG==1	;Message designator for debug display
    59			000002		.DISIZ==2	;Argument block size for D$INIT
    60
    61					EXTERN	D$OPEN	
    62
    63					;Daplib routine to open a logical link
    64					;
    65					;Opens a logical link
    66
    67					;ACCEPTS	S1/ length of arg block
    68					;		S2/ address of arg block
    69
    70					;RETURNS TRUE	S1/ Link index to be used on all subsequent calls
    71
    72					;	 FALSE	S1/ Error code
    73
    74
    75			000000		.DOFLG==0	;Flags
    76		400000	000000		  DO%SRV==1B0		;Open link as server
    77		200000	000000		  DO%PSI==1B1		;Connect link to PSI
    78		100000	000000		  DO%WCN==1B2		;Wait for connection on OPEN
    79		000277	000000		  DO%OBJ==277B17	;Accessed object type
    80			000077		  DO%LNK==77B35		;link index stored here
    81			000001		.DONOD==1	;Pointer to asciz node name
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page 2-1
DAPSYM	MAC	20-Aug-81 13:02		- DAP Version 5.6	Sep 30,1980

    82			000002		.DOOBJ==2	;Pointer to asciz object descriptor
    83			000003		.DODSC==3	;Pointer to asciz optional descriptor
    84			000004		.DOTSK==4	;Pointer to asciz task name
    85			000005		.DOUSR==5	;Pointer to asciz user-id
    86			000006		.DOPSW==6	;Pointer to password string
    87			000007		.DOACT==7	;Pointer to account string
    88			000010		.DOOPD==10	;Pointer to data string
    89			000011		.DOUIC==11	;User identification code
    90			000012		.DOPSI==12	;Software interupt word
    91					  define do%cdn <mo%cdn>;channel for connect interrupts
    92					  define do%dav <mo%dav>;channel for data available interrupts
    93					  define do%ina <mo%ina>;channel for interrupt messages
    94			000013		.DOCID==13	;Address of routine to verify CI messages
    95			000014		.DOSSZ==14	;NSP segment size
    96			000015		.DOSIZ==15	;Argument block size for D$OPEN
    97
    98					EXTERN	D$CLOS	
    99
   100					;Daplib routine to close a logical link
   101
   102					;ACCEPTS	S1/ Link index
   103					;		S2/ Address of reason block
   104
   105					;RETURNS TRUE	Link is closed
   106
   107					;	 FALSE	S1/ Error code
   108
   109					;Reason block for D$CLOS
   110
   111			000000		.DCCOD==0		;NSP disconnect reason
   112		777777	000000		  DC%LEN==777777B17		;Lenth of reason block
   113			777777		  DC%COD==777777B35		;NSP disconnect reason
   114			000001		.DCPTR==1		;Pointer to Optional Reason Text
   115								;only 16 bytes of text may be sent
   116			000002		.DCSIZ==2		;Reason block size
   117
   118
   119					EXTERN	D$STAT	
   120
   121					;Daplib routine to return the status of a logical link
   122
   123					;ACCEPTS	S1/ Link index
   124
   125					;RETURNS TRUE	S1/ Link Status
   126					;		    Link is open
   127
   128					;	 FALSE	S1/ Link status
   129					;		    Link is not open
   130
   131					EXTERN	D$INTR	
   132
   133					;Daplib routine to process Network and Message interrupts
   134
   135					;Must be called at interrupt level by the Host program.
   136
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page 2-2
DAPSYM	MAC	20-Aug-81 13:02		- DAP Version 5.6	Sep 30,1980

   137					;ACCEPTS	S1/ Link index
   138					;		S2/ Interrupt reason
   139
   140			000001			.DICDN==1			;CDNnect event pending
   141			000002			.DIINA==2			;Interrupt message available
   142			000003			.DIDAV==3			;Data available
   143			000004			.DIACP==4			;Abort current file operation
   144
   145
   146					;RETURNS TRUE	S1/ Link status
   147					;	 FALSE	S1/ Error Code
   148
   149
   150					EXTERN	D$FUNC	
   151
   152					;Daplib routine to perform a DAPLIB function
   153
   154					;ACCEPTS	S1/ length of arg block
   155					;		S2/ address of arg block
   156
   157
   158					;RETURNS TRUE	S1/ Link status
   159
   160					;	 FALSE	S1/ Error code
   161
   162
   163			000000		.DFFLG==0	;Link index
   164		777000	000000		  DF%ACC==777B8		;Access function code
   165			000077		  DF%LNK==77B35		;Requested link index
   166			000001		.DFRTN==1	;Co-routine address (CKRTN for FAL) (DIR for NFT)
   167			000002		.DFLFA==2	;Local file mode and attributes
   168			000003		.DFLFS==3	;Pointer to local file spec
   169			000004		.DFRFA==4	;Remote file attributes
   170			000005		.DFRFO==5	;Remote file options
   171			000006		.DFRFS==6	;Pointer to remote file spec
   172			000007		.DFDFS==7	;Pointer to default file spec
   173			000010		.DFNFS==10	;Pointer to new file spec (RENAME)
   174			000011		.DFPSW==11	;Pointer to password string to associate with request
   175			000012		.DFSIZ==12	;Size of the D$FUNC argument block
   176
   177					;Definitions for .DFLFA and .DFRFA file attributes
   178
   179		776000	000000		  DF%DAT==377B7		;File data type
   180		001600	000000		  DF%RFM==7B10		;Record format
   181		000177	400000		  DF%RAT==377B18	;Record attributes
   182			177777		  DF%MRS==177777B35 	;Maximum record size
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page 3
DAPSYM	MAC	20-Aug-81 13:02		- DAP Version 5.6	Sep 30,1980

   183					REPEAT 0,<
   184					
   185						 This file contains all the symbol definitions for the Data
   186					Access protocol (DAP) of DECnet. Any program directly implementling this
   187					protocol should search DAPSYM to get the symbols it needs for processing.
   188					In particular the FAL and NFT implementations for DECnet-20 use this
   189					universal file.
   190					
   191					DAP messages consist of a stream of eight-bit bytes as required by NSP.
   192					Each box in the diagrams represents an eight-bit PDP-11 byte, rather than
   193					the standard DECsystem-20 Thirty-six bit word.  It is left to the user's
   194					imagination how to build these messages and pack the bytes into 36 bit
   195					words. Where bit definitions are given, the bits are defined as though
   196					the byte is right-justified in the DECsystem-20 word.
   197					
   198						A DAP Message Takes the following form:
   199					
   200							!=====================================!
   201							!       TYPE(1) B: Message Type       !
   202							!-------------------------------------!
   203							!           FLAGS(EX-5) BM:           !
   204							!-------------------------------------!
   205							!      STREAMID(1) B: (Not used)      !
   206							!-------------------------------------!
   207							!   LENGTH(1) B: Length of OPERAND    !
   208							!-------------------------------------!
   209							!   LEN256(1) B: MSB of Length        !
   210							!-------------------------------------!
   211							\                                     \
   212							\   OPERAND (Message type Specific)   \
   213							\                                     \
   214							!=====================================!
   215							
   216							
   217					The TYPE values are defined along with their corresponding message
   218					
   219					>
   220			000200			DP$EXF==1B28	;Extension bit for extensible field byte
   221
   222
   223					;The FLAG bits are as follows:
   224
   225			000001			HD$SID==1B35		;(bit 0) Stream Identification Field Present
   226			000002			HD$LEN==1B34		;(bit 1) Length field Present (for blocked DAP msgs)
   227			000004			HD$LN2==1B33		;(bit 2) Extended length (LEN256) field present
   228			000010			HD$BCT==1B32		;(bit 3) BITCNT field present
   229			000020			HD$SEG==1B31		;(bit 4) This not the last message segment
   230
   231
   232					;The STREAMID field should contain the data stream number established by
   233					;doing a CONTROL(Connect), otherwise it should be omitted
   234
   235					;The LENGTH field contains the operand length for blocked messages
   236		
   237					;The LEN256 contains the MSB of a two-byte OPERAND length field, if required
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page 3-1
DAPSYM	MAC	20-Aug-81 13:02		- DAP Version 5.6	Sep 30,1980

   238
   239					;The OPERAND field is message-specific and is defined for each message
   240
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page 4
DAPSYM	MAC	20-Aug-81 13:02		Defined DAP argument types

   241					SUBTTL	Defined DAP argument types
   242
   243					;Each of the following argument types has a specific data format
   244					;and a related processor in DAPLIB for processing the argument.
   245
   246					;Two fields are defined for each argument type
   247
   248					;  1.	The argument type name
   249
   250					;  2.	Number of significant bits per DAP message byte
   251					;	This allows the storage for each argument field to
   252					;	be defined on an as required basis in DAPLIB.
   253
   254					;Define a macro to declare the valid argument types
   255
   256					DEFINE MSGARG <
   257					
   258					XX	FIX,^D8	;;Argument is a Byte or Group of bytes
   259					XX	VAR,^D7	;;Argument is variable length ascii field
   260					XX	INT,^D8	;;Argument is variable length integer field
   261					XX	EXF,^D7	;;Argument is an extensible field
   262					XX	MNU,^D7	;;Argument is a menu which specifies what's to come
   263					XX	DTI,^D2	;;Argument is 18 byte DATE/TIME field
   264					XX	PRO,^D12;;Argument is 3 byte extensible protection field
   265					XX	DAT,^D8	;;Argument is an image data field (data message only)
   266					>
   267
   268					;DAP message argument types are described below.  Each argument type
   269					;Each argument type has an associated processor for getting and putting
   270					;the argument
   271
   272					;MNU	Field is a menu which determines which message fields follow
   273					;	Menu's are stored as extensible fields and cause 1 word of
   274					;	storage to be reserved for every 5 DAP bytes
   275
   276					;EXF	Field is an extensible field which is generally used as a bit
   277					;	map of specific options requested or a menu of message fields
   278					;	which follow.  Extensible fields have 7 information bits per
   279					;	DAP byte and are stored as 36 information bits per word.
   280					;	Bit 35 is the least significant bit of the extensible field.
   281
   282					;FIX	Field is a FIXe or group of FIXes.  Dap FIXes are stored
   283					;	right justified 4 per 36 bit word.
   284
   285					;INT	Field is a variable length unsigned integer.  The DAP field
   286					;	is stored as a 36 bit integer value
   287
   288					;VAR	Field is a variable length Ascii field.  It is stored as an
   289					;	ASCIZ string of 7 bit bytes.
   290
   291
   292					;PRO	Field is a file protection field.  Dap protection codes are
   293					;	translated to system protection mask.
   294
   295					;DAT	Field is an Image field of a DATA message.  This field is not
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page 4-1
DAPSYM	MAC	20-Aug-81 13:02		Defined DAP argument types

   296					;	stored, but is processed by the apporpriate data processor
   297
   298					;DTI	Field is an 18 byte DATE/TIME argument specification.  This
   299					;	field is stored internally as a 36 bit quantity
   300
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page 5
DAPSYM	MAC	20-Aug-81 13:02		- CONFIGURATION MESSAGE - DAP MESSAGE TYPE 1

   301					SUBTTL - CONFIGURATION MESSAGE - DAP MESSAGE TYPE 1
   302					REPEAT 0,<
   303					
   304					DAP MESSAGE TYPE 1 - CONFIGURATION MESSAGE
   305					
   306							!=====================================!
   307							!           CONFIG : Type==1           !
   308							!-------------------------------------!
   309							\                                     \
   310							\         Rest of DAP Header          \
   311							\                                     \
   312							!-------------------------------------!
   313							!                                     !
   314							!  BUFSIZ(2) B: Size of user buffer   !
   315							!-------------------------------------!
   316							!    OSTYPE(1) B: Operating System    !
   317							!-------------------------------------!
   318							!   FILESYS(1) B: File System Type    !
   319							!-------------------------------------!
   320							!   VERNUM(1) B: DAP Major Version    !
   321							!-------------------------------------!
   322							!   ECONUM(1) B: DAP Minor Version    !
   323							!-------------------------------------!
   324							!    USRNUM(1) B: DAP User Version    !
   325							!-------------------------------------!
   326							!    SOFTVER(1) B: DAP Edit Level     !
   327							!-------------------------------------!
   328							!    USRSOFT(1) B: User Edit Level    !
   329							!-------------------------------------!
   330							!                                     !
   331							!SYSCAP(EX-12) : Generic Capabilities !
   332							!                                     !
   333							!=====================================!
   334					
   335					>
   336
   337					DEFINE CFGMSG <
   338					XX  CFG,^D1,Configuration
   339					YY	SIZ,FIX,^D2
   340					YY	OST,FIX,^D1
   341					YY	FST,FIX,^D1
   342					YY	VER,FIX,^D1
   343					YY	ECO,FIX,^D1
   344					YY	USR,FIX,^D1
   345					YY	SFT,FIX,^D1
   346					YY	USS,FIX,^D1
   347					YY	CAP,EXF,^D10
   348					> ;End of CFGMSG definition
   349
   350					;The CONFIGURATION message is used to pass system configuration information
   351					;between both systems involved in the DAP exchange.
   352
   353
   354					;BUFSIZE is the maximum buffer size in bytes supported by this DAP
   355					;process. Send 0 if buffer size is unlimited.
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page 5-1
DAPSYM	MAC	20-Aug-81 13:02		- CONFIGURATION MESSAGE - DAP MESSAGE TYPE 1

   356
   357
   358					;OSTYPE is the Operating system code for the DAP process sending the CONFIG
   359					;message. The following values are defined for OSTYPE:
   360
   361			000001			.OSRT==1		;RT-11
   362			000002			.OSRST==2	;RSTS/E
   363			000003			.OSRXS==3	;RSX-11S
   364			000004			.OSRXM==4	;RSX-11M
   365			000005			.OSRXD==5	;RSX-11D
   366			000006			.OSIAS==6	;IAS
   367			000007			.OSVAX==7	;VAX/VMS
   368			000010			.OSTP20==10	;TOPS-20
   369			000011			.OSTP10==11	;TOPS-10
   370			000012			.OSOS8==12	;OS-8
   371			000013			.OSRXP==13	;RSX11-M PLUS
   372
   373					;FILESYS contains the type of file system on the remote node
   374
   375			000001			.FSRM1==1	;RMS-11
   376			000002			.FSRM2==2	;RMS-20
   377			000003			.FSRM3==3	;RMS-32
   378			000004			.FSFCS==4	;FCS-11
   379			000005			.FSRT1==5	;RT-11
   380			000006			.FSUSP==6	;No file system supported
   381			000007			.FST20==7	;TOPS-20
   382			000010			.FST10==10	;TOPS10
   383			000011			.FSOS8==11	;OS-8
   384
   385					;VERNUM contains the current version level of DAP.
   386
   387			000005			.DVMAJ==5	;This is DAP version 5.
   388
   389					;ECONUM contains the current minor version level of DAP
   390
   391			000006			.DVMIN==6	;This is DAP version 5.6
   392
   393					;USRNUM contains the current user modification level of DAP
   394
   395			000000			.DVUSR==0	;This is DAP version 5.6.0
   396
   397					;SOFTVER is the DAP software version number; corresponds to DECnet version
   398
   399			000002			.DVSFT==2	;This is for DECnet-20 version 2.0
   400
   401					;USRSOFT is the user modification level of this DAP software
   402
   403			000000			.DVUSF==0	;This is the DAP software as released by Digital
   404
   405					;SYSCAP defines the generic system capabilities of the DAP process.
   406					;	The following bits are defined for SYSCAP:
   407
   408						;Word 1 of system capabilities
   409			000001			SY$PRE==1B35	;Supports file preallocation
   410			000002			SY$SEQ==1B34	;Supports sequential file organization
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page 5-2
DAPSYM	MAC	20-Aug-81 13:02		- CONFIGURATION MESSAGE - DAP MESSAGE TYPE 1

   411			000004			SY$REL==1B33	;Supports relative file organization
   412			000010			SY$DIR==1B32	;Supports direct file organization (reserved)
   413			000020			SY$IDX==1B31	;Supports indexed file organization (reserved)
   414			000040			SY$SQA==1B30	;Supports sequential file access
   415			000100			SY$RDR==1B29	;Supports random access by record number
   416			000200			SY$VBN==1B28	;Supports Random Access by Virtual Block number
   417			000400			SY$KEY==1B27	;Supports Random Access by Key
   418			001000			SY$UHS==1B26	;Supports Random Access by User Hash Code (reserved)
   419			002000			SY$RFA==1B25	;Supports Random Access by Record File Address (RFA)
   420			004000			SY$MIX==1B24	;Supports multi-key index file organization
   421			010000			SY$SWA==1B23	;Supports switching access mode
   422			020000			SY$APP==1B22	;Supports append to file access
   423			040000			SY$EXE==1B21	;Supports command file Submission/execution
   424			100000			SY$CMP==1B20	;Supports Data compression
   425			200000			SY$MDS==1B19	;Supports multiple data streams
   426			400000			SY$STS==1B18	;Supports status return (see ACCOPT field)
   427		000001	000000			SY$BLK==1B17	;Supports blocking of DAP messages up to response
   428		000002	000000			SY$UBK==1B16	;Supports unrestricted blocking of DAP messages
   429		000004	000000			SY$LN2==1B15	;Supports two byte operand length in message header
   430		000010	000000			SY$CRC==1B14	;Supports file checksum option (see ACCOPT field)
   431		000020	000000			SY$KDA==1B13	;Supports Key Definition extended Attributes message
   432		000040	000000			SY$ALC==1B12	;Supports Allocation extended Attributes message
   433		000100	000000			SY$SUM==1B11	;Supports Summary extended Attributes message
   434		000200	000000			SY$DIR==1B10	;Supports directory list function
   435		000400	000000			SY$DTI==1B9	;Supports Date-and-Time extended Attributes message
   436		001000	000000			SY$PRO==1B8	;Supports File Protection extended Attributes message
   437		002000	000000			SY$ACA==1B7	;Supports Access Control List ext. Attributes message
   438		004000	000000			SY$SPL==1B6	;Supports spooling as specified by FOP field
   439		010000	000000			SY$SUB==1B5	;Supports command file submission as specified by FOP
   440		020000	000000			SY$DEL==1B4	;Supports file deletion as specified by FOP
   441		040000	000000			SY$DFS==1B3	;Supports the default file specification
   442		100000	000000			SY$SRA==1B2	;Supports sequential record access
   443		200000	000000			SY$RCV==1B1	;Supports the recovery option for file transfer (rsvd)
   444		400000	000000			SY$BCT==1B0	;Supports use of BITCNT field in Data message
   445
   446						;Word 2 of system capabilities
   447			000001			SY$WRN==1B35	;Supports the Warning Status Message (MACCODE==6)
   448			000002			SY$REN==1B34	;Supports the File Rename Operation
   449			000004			SY$WLD==1B33	;Supports Wildcard operations
   450			000010			SY$GO==1B32	;Supports the Go/No-go option
   451			000020			SY$NAM==1B31	;Supportes the Name message
   452
   453
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page 6
DAPSYM	MAC	20-Aug-81 13:02		- ATTRIBUTES Message

   454					SUBTTL - ATTRIBUTES Message
   455					REPEAT 0,<
   456						DAP MESSAGE TYPE 2 - ATTRIBUTES MESSAGE
   457					
   458							!=====================================!
   459							!           ATTRIB : Type==2           !
   460							!-------------------------------------!
   461							\                                     \
   462							\         Rest of DAP Header          \
   463							\                                     \
   464							!-------------------------------------!
   465							\                                     \
   466							\       ATTMENU(EX-6) BM: Menu        \
   467							\                                     \
   468							!-------------------------------------!
   469							\                                     \
   470							\   DATATYPE(EX-2) BM: Type of Data   \
   471							\                                     \
   472							!-------------------------------------!
   473							!     ORG(1) B: File organization     !
   474							!-------------------------------------!
   475							!       RFM(1) B: Record format       !
   476							!-------------------------------------!
   477							!   RAT(EX-3) BM: Record attributes   !
   478							!-------------------------------------!
   479							!     BLS(2) B: Physical size of      !
   480							!           Block in bytes            !
   481							!-------------------------------------!
   482							!   MRS(2) B: Record length of file   !
   483							!          records in bytes           !
   484							!-------------------------------------!
   485							\                                     \
   486							\  ALQ(VAR-5) B: allocation quantity  \
   487							\                                     \
   488							!-------------------------------------!
   489							!        BKS(1) B: Bucket size        !
   490							!-------------------------------------!
   491							!    FSZ(1) B: Fixed size in bytes    !
   492							!-------------------------------------!
   493							\                                     \
   494							\   MRN(VAR-5) b: Max record number   \
   495							\                                     \
   496							!-------------------------------------!
   497							\                                     \
   498							\     RUNSYS(VAR-40) A: Name of       \
   499							\           Runtime system            \
   500							!                                     !
   501							!-------------------------------------!
   502							!  DEQ(2) B: File extension quantum   !
   503							!          in virtual blocks          !
   504							!-------------------------------------!
   505							\                                     \
   506							\FOP(EX-6) File access options needed \
   507							\                                     \
   508							!-------------------------------------!
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page 6-1
DAPSYM	MAC	20-Aug-81 13:02		- ATTRIBUTES Message

   509							!  BSZ(1) B: Byte size of file bytes  !
   510							!-------------------------------------!
   511							\                                     \
   512							\DEV(EX-6) BM: Device characteristics \
   513							\                                     \
   514							!-------------------------------------!
   515							\                                     \
   516							\    SDC(EX-6) Spool device chars     \
   517							\                                     \
   518							!-------------------------------------!
   519							!   LRL(2) B: Longest Record length   !
   520							!-------------------------------------!
   521							\                                     \
   522							\  HBK(I-5) B: Highest virtual block  \
   523							\                                     \
   524							!-------------------------------------!
   525							\                                     \
   526							\    EBK(I-5) B: End of file block    \
   527							\                                     \
   528							!-------------------------------------!
   529							!      FFB(2) B: First free byte      !
   530							!-------------------------------------!
   531							\                                     \
   532							\ SBN(I-5) B: Starting logical block  \
   533							\                                     \
   534							!=====================================!
   535					>
   536					DEFINE ATTMSG <
   537					XX  ATT,^D2,Attributes
   538					YY	MNU,MNU,^D5
   539					YY	DAT,EXF,^D2,DT$IMA
   540					YY	ORG,FIX,^D1,FB$SEQ
   541					YY	RFM,FIX,^D1,FB$FIX
   542					YY	RAT,EXF,^D3
   543					YY	BLS,FIX,^D2
   544					YY	MRS,FIX,^D2
   545					YY	ALQ,INT,^D5
   546					YY	BKS,FIX,^D1
   547					YY	FSZ,FIX,^D1
   548					YY	MRN,INT,^D5
   549					YY	RUN,VAR,^D40
   550					YY	DEQ,FIX,^D2
   551					YY	FOP,EXF,^D5
   552					VV  <5,1>		;;Stop here for all below 5.1
   553					VV  <5,3,0,0,.OSVAX>	;Stop here for VAX less than 5.3
   554					YY	BSZ,FIX,^D1,^D8
   555					YY	DEV,EXF,^D5
   556					YY	SDC,EXF,^D5
   557					VV  <5,3>		;;Stop here for all below 5.3
   558					YY	LRL,FIX,^D2
   559					YY	HBK,INT,^D5
   560					YY	EBK,INT,^D5
   561					YY	FFB,FIX,^D2
   562					YY	SBN,INT,^D5
   563					> ;End of ATTMSG definition
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page 6-2
DAPSYM	MAC	20-Aug-81 13:02		- ATTRIBUTES Message

   564
   565					;The ATTRIBUTES message is used to detail the representation of the data in
   566					;the file being transferred. It is sent and received as part of the initial
   567					;setup.
   568
   569
   570					;The ATTMENU field specifies what optional attribute fields follow in the
   571					;message. A one-bit indicates the sub-field is present in the message.
   572
   573						;Word 1 of Attribute Menu
   574			000001			AT$DAT==1B35	;DATATYPE field present
   575			000002			AT$ORG==1B34	;ORG field present
   576			000004			AT$RFM==1B33	;RFM field present
   577			000010			AT$RAT==1B32	;RAT field present
   578			000020			AT$BLS==1B31	;BLS field present
   579			000040			AT$MRS==1B30	;MRS field present
   580			000100			AT$ALQ==1B29	;ALQ field present
   581			000200			AT$BKS==1B28	;BKS field present
   582			000400			AT$FSZ==1B27	;FSZ field present
   583			001000			AT$MRN==1B26	;MRN field present
   584			002000			AT$RSY==1B25	;RUNSYS field present
   585			004000			AT$DEQ==1B24	;DEQ field present
   586			010000			AT$FOP==1B23	;FOP field present
   587			020000			AT$BSZ==1B22	;BSZ field present
   588			040000			AT$DEV==1B21	;DEV field present
   589			100000			AT$SDC==1B20	;SDC field present (reserved)
   590			200000			AT$LRL==1B19	;LRL Field Present
   591			400000			AT$HBK==1B18	;HBK Field Present
   592		000001	000000			AT$EBK==1B17	;EBK Field Present
   593		000002	000000			AT$FFB==1B16	;FFB Field Present
   594		000004	000000			AT$SBN==1B15	;SBN Field Present 
   595
   596					;The DATATYPE field specifies the type of data being transferred. The following
   597					;data types are defined:
   598
   599						;Word 1 of Datatype
   600			000001			DT$ASC==1B35	;ASCII (7-bit)
   601			000002			DT$IMA==1B34	;IMAGE (default)
   602			000004			DT$EBC==1B33	;EBCDIC (reserved)
   603			000010			DT$CMP==1B32	;Compressed format
   604			000020			DT$EXE==1B31	;Executable code
   605			000040			DT$EXP==1B30	;Privileged executable code
   606			000100			DT$BT6==1B29	;Reserved bit
   607			000200			DT$SEN==1B28	;Sensitive Data - zero on delete
   608
   609
   610					;The ORG field specifies the organization of the file being transferred.
   611
   612			000000			FB$SEQ==0	;Sequential (default)
   613			000020			FB$REL==20B35	;Relative
   614			000040			FB$IDX==40B35	;Indexed
   615			000060			FB$HSH==60B35	;Hashed (reserved)
   616
   617					;The RFM field specifies the type of records being transferred
   618
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page 6-3
DAPSYM	MAC	20-Aug-81 13:02		- ATTRIBUTES Message

   619			000000			FB$UDF==0	;Undefined record format
   620			000001			FB$FIX==1	;Fixed length records (default)
   621			000002			FB$VAR==2	;Variable Length Records
   622			000003			FB$VFC==3	;Variable records with Fixed Control
   623			000004			FB$STM==4	;ASCII Stream format records
   624
   625					;The RAT field has information about the attributes if individual records
   626
   627						;Word 1 of record attributes
   628			000001			FB$FTN==1B35	;Records contain FORTRAN carriage control
   629			000002			FB$CR==1B34	;Records have implied CR/LF envelope
   630			000004			FB$PRN==1B33	;Print file carriage control (see spec for details)
   631			000010			FB$BLK==1B32	;Records do not span blocks
   632			000020			FB$EBF==1B31	;Embedded format control
   633			000040			FB$CBL==1B30	;Records contain COBOL carriage control (Reserved)
   634			000100			FB$LSA==1B29	;Line-sequenced ASCII
   635			000200			FB$MCY==1B28	;MACY-11 Format (16 bits right justified in LH and RH)
   636
   637					;The BLS field (2-bytes) gives the physical block size in bytes
   638
   639					;The MRS field (2-bytes) gives the maximum record length in bytes
   640
   641					;The ALQ field specifies the allocation quantity for the file in blocks. For
   642					;	file creation, gives initial size of file. The actual size of the
   643					;	file is returned in this field (in pages for TOPS-20)
   644
   645					;The BKS field gives the bucket size of a relative (non RMS-20) hashed or
   646					;	indexed file.
   647
   648					;The FSZ field (1-byte)  gives the size of the fixed portion of a VFC record
   649
   650					;The MRN field specifies the maximum record number for relative files
   651
   652					;The RUNSYS field gives the name of the runtime system associated with the
   653					;	executable code in this file
   654
   655					;The DEQ field specifies the file extension quantum size in virtual blocks
   656
   657					;The FOP field specifies the file access options the user requires
   658
   659						;Word 1 of file options
   660			000001			FB$RWO==1B35	;Rewind on OPEN
   661			000002			FB$RWC==1B34	;Rewind on CLOSE
   662								;This bit reserved
   663			000010			FB$POS==1B32	;Position magtape past most-recently created file
   664			000020			FB$DLK==1B31	;Don't lock file if not properly closed
   665								;This bit reserved
   666								;This bit reserved
   667			000200			FB$CTG==1B28	;Contiguous file extension needed
   668			000400			FB$SUP==1B27	;Supercede existing file on create
   669			001000			FB$NEF==1B26	;FORTRAN tape open update
   670			002000			FB$TMP==1B25	;Create temporary file
   671			004000			FB$MKD==1B24	;Mark temporary file for delete on close
   672								;This bit reserved
   673			020000			FB$DMO==1B22	;Rewind and Dismount magtape on close
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page 6-4
DAPSYM	MAC	20-Aug-81 13:02		- ATTRIBUTES Message

   674			040000			FB$WCK==1B21	;Write checking
   675			100000			FB$RCK==1B20	;Read checking
   676			200000			FB$CIF==1B19	;Create New file if one of same name doesn't exist
   677			400000			FB$LKO==1B18	;Override lock on open
   678		000001	000000			FB$SQO==1B17	;Sequential access only
   679		000002	000000			FB$MXV==1B16	;Maximize version number
   680		000004	000000			FB$SPL==1B15	;Spool file to printer on close
   681		000010	000000			FB$SUB==1B14	;Submit as command file on close
   682		000020	000000			FB$DEL==1B13	;Delete file on close
   683		000040	000000			FB$CBT==1B12	;Contiguous - best try
   684		000100	000000			FB$WAT==1B11	;Wait for file if locked by another process
   685		000200	000000			FB$DFW==1B10	;Deferred write for REL and IDX files
   686		000400	000000			FB$TEF==1B9	;Truncate at EOF on close
   687		001000	000000			FB$OFP==1B8	;Output file parse (only name type sticky)
   688
   689
   690					;The BSZ field specifies the byte size of the file data
   691
   692					;The DEV field tells the accessing process the characteristics of the
   693					;device on which the file resides
   694
   695						;Word 1 of device
   696			000001			FB$REC==1B35	;Record Oriented
   697			000002			FB$CCL==1B34	;Carriage control device
   698			000004			FB$TRM==1B33	;Terminal
   699			000010			FB$MDI==1B32	;Directory structured
   700			000020			FB$SDI==1B31	;Single directory only
   701			000040			FB$SQD==1B30	;Inherently sequential
   702			000100			FB$NUL==1B29	;NUL Device
   703			000200			FB$FOD==1B28	;Files oriented device
   704			000400			FB$SHR==1B27	;Sharable device
   705			001000			FB$SPD==1B26	;Device is being spooled
   706			002000			FB$MNT==1B25	;Device is currently mounted
   707			004000			FB$DMT==1B24	;Device is marked for dismount
   708			010000			FB$ALL==1B23	;Device is allocated
   709			020000			FB$IDV==1B22	;Device is capable of input
   710			040000			FB$ODV==1B21	;Device is capable of output
   711			100000			FB$SWL==1B20	;Device is software write-locked
   712			200000			FB$AVL==1B19	;Device is available for use
   713			400000			FB$ELG==1B18	;Device has error logging enabled
   714		000001	000000			FB$MBX==1B17	;Device is a mailbox
   715		000002	000000			FB$RTM==1B16	;Device is realtime
   716		000004	000000			FB$RAD==1B15	;Device is random access
   717		000010	000000			FB$DRC==1B14	;Device has read checking enabled
   718		000020	000000			FB$DWC==1B13	;Device has write checking enabled
   719		000040	000000			FB$FGN==1B12	;Device is foreign
   720		000100	000000			FB$NET==1B11	;Device is a network device
   721		000200	000000			FB$GEN==1B10	;Device is a generic device
   722
   723					;The SDC field has the same bit definitions as the DEV field, and is returned
   724					;instead of the DEV field when the accessed device is spooled
   725
   726
   727					;The LRL field specifies the length of the longest record in the file
   728
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page 6-5
DAPSYM	MAC	20-Aug-81 13:02		- ATTRIBUTES Message

   729					;The HBK field specifies the highest virtual block allocated to the file
   730
   731					;The EBK field specifies the block number of the end of file block
   732
   733					;The FFB field specifies the first free byte in the end of file block
   734
   735					;The SBN field specifies the starting block number for the file if
   736					;contiguous, else 0.
   737
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page 7
DAPSYM	MAC	20-Aug-81 13:02		ACCESS MESSAGE

   738					SUBTTL ACCESS MESSAGE
   739					REPEAT 0,<
   740						DAP MESSAGE TYPE 3 - ACCESS MESSAGE
   741							!=====================================!
   742							!          ACCESS :  Type==3           !
   743							!-------------------------------------!
   744							\                                     \
   745							\         Rest of DAP Header          \
   746							\                                     \
   747							!-------------------------------------!
   748							!    ACCFUNC(1) B: File operation     !
   749							!-------------------------------------!
   750							!   ACCOPT(EX-5) BM: Access options   !
   751							!-------------------------------------!
   752							\                                     \
   753							\FILESPEC(VAR-128) File Specification \
   754							\                                     \
   755							!-------------------------------------!
   756							!   FAC(EX-3) BM: Access requested    !
   757							!-------------------------------------!
   758							!   SHR(EX-3) BM: Shared operations   !
   759							!-------------------------------------!
   760							!   DISPLAY(EX-4) BM: Msgs to Return  !
   761							!-------------------------------------!
   762							!   PASSWORD(I-40) B: File Password   !
   763							!=====================================!
   764					>
   765					DEFINE	ACCMSG <
   766					XX  ACC,^D3,Access
   767					YY	FNC,FIX,^D1
   768					YY	OPT,EXF,^D5
   769					YY	FIL,VAR,^D255
   770					YY	FAC,EXF,^D3
   771					YY	SHR,EXF,^D3
   772					VV  <5,1>			;Stop here for all below 5.1
   773					VV  <5,2,0,1,.OSVAX>		;Stop here for VAX 5.1.2
   774					YY	DSP,EXF,^D4
   775					YY	PSW,VAR,^D40
   776					> ;End of ACCMSG definition
   777
   778					;The ACCESS message specifies the file name and type of access requested. It
   779					;is sent by the requesting process as part of the initial setup.
   780
   781
   782					;The ACCFUNC field specifies the type of access requested to the file
   783
   784			000001			AF$OPN==1	;Open an existing file
   785			000002			AF$CRE==2	;Open a new file
   786			000003			AF$REN==3	;Rename a file
   787			000004			AF$ERA==4	;Delete a file
   788			000006			AF$DIR==6	;List directory
   789			000007			AF$SUB==7	;Submit as a batch file
   790			000010			AF$EXE==10	;Execute as command file
   791
   792					;Functions defined for NFT only
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page 7-1
DAPSYM	MAC	20-Aug-81 13:02		ACCESS MESSAGE

   793
   794			000101			AF$TYP==101	;Type file
   795			000102			AF$PRN==102	;Print file
   796
   797
   798					;The ACCOPT field specifies various options for an access
   799
   800			000001			AO$DGU==1B35	;I/O errors are not fatal (Don't Give up)
   801			000002			AO$RSS==1B34	;Send status message after every record sent
   802								;	to accessed process in record access mode
   803			000004			AO$RSR==1B33	;Send status message after every record retrieved
   804								;	from accessed processed
   805			000010			AO$CRC==1B32	;Generate/process CRC on file close
   806			000020			AO$GO==1B31	;Use Go/No-go protocol for this operation
   807
   808
   809					;The FILESPEC field contains the file name to be accessed as a variable
   810					;length field (byte count in first byte) up to 128 (octal) bytes
   811
   812					;The FAC field specifies the file operations the user requires
   813
   814			000001			FB$PUT==1B35	;Put access
   815			000002			FB$GET==1B34	;Get access (default)
   816			000004			FB$DLT==1B33	;Delete access
   817			000010			FB$UPD==1B32	;Update access
   818			000020			FB$TRN==1B31	;Truncate access
   819			000040			FB$BIO==1B30	;Block I/O access
   820			000100			FB$BRO==1B29	;Support switching between block and record I/O
   821			000042			FB$REA==FB$BIO!FB$GET	;Block I/O Read
   822			000041			FB$WRT==FB$BIO!FB$PUT	;Block I/O Write
   823
   824					;The SHR filed specifies the file operations that can be shared with other
   825					;users. All FAC bits are valid plus the following
   826
   827			000020			FB$SMS==1B31	;Enable multi-stream access
   828			000040			FB$UIL==1B30	;User-provided interlocking
   829			000100			FB$NIL==1B29	;No access by other users
   830
   831					;The DISPLAY field specifies what (if any) extended attributes messages
   832					;are to be returned following the main attributes message by the accessed
   833					;process
   834
   835						;Word 1 of Display
   836			000001			DI$ATT==1B35	;Main Attributes message (default)
   837			000002			DI$KDA==1B34	;Key Definitiion Attributes message
   838			000004			DI$ALC==1B33	;Allocation Attributes message
   839			000010			DI$SUM==1B32	;Summary Attribute Message
   840			000020			DI$DTI==1B31	;Date-and-Time Attributes message
   841			000040			DI$PRO==1B30	;File Protection Attributes message
   842								;Reserved
   843			000200			DI$ACA==1B28	;Access Control List Attributes message
   844			000400			DI$NAM==1B27	;Name Message containing Resultant File Specification
   845
   846					;The PASSWORD field contains the password required to access the file
   847
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page 7-2
DAPSYM	MAC	20-Aug-81 13:02		ACCESS MESSAGE

   848
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page 8
DAPSYM	MAC	20-Aug-81 13:02		CONTROL Message

   849					SUBTTL CONTROL Message
   850					REPEAT 0,<
   851						DAP MESSAGE TYPE 4 - CONTROL MESSAGE
   852							!=====================================!
   853							!          CONTROL : Type==4           !
   854							!-------------------------------------!
   855							\                                     \
   856							\         Rest of DAP Header          \
   857							\                                     \
   858							!-------------------------------------!
   859							!  CTLFUNC(1) B: Control information  !
   860							!-------------------------------------!
   861							!CTLMENU(EX-4) BM: CTL fields present !
   862							!-------------------------------------!
   863							!     RAC(1) B: Sets access mode      !
   864							!-------------------------------------!
   865							\                                     \
   866							\ KEY(VAR-255) B: Record Key in file  \
   867							\                                     \
   868							!-------------------------------------!
   869							!     KRF(1) B: Key of reference      !
   870							!-------------------------------------!
   871							!  ROP(EX-6) BM: REC process options  !
   872							!-------------------------------------!
   873							!       HSH(VAR-5) B: Hash code       !
   874							!-------------------------------------!
   875							! DISPLAY(EX-4) BM: Return attributes !
   876							!=====================================!
   877					>
   878
   879					DEFINE	CTLMSG <
   880					XX  CTL,^D4,Control
   881					YY	FNC,FIX,^D1
   882					YY	MNU,MNU,^D4
   883					YY	RAC,FIX,^D1
   884					YY	KEY,INT,^D4	;;Actually VAR(255) but only used for VBN
   885					YY	KRF,FIX,^D1
   886					YY	ROP,EXF,^D5
   887					YY	HSH,VAR,^D5
   888					YY	DSP,EXF,^D4
   889					> ;End of CTLMSG definition
   890
   891
   892					;The CONTROL message is used to send control information to the remote file
   893					;system, such as to initiate the reading of a sequential file
   894
   895
   896					;The CTLFUNC field gives the specific control information
   897
   898			000001			CF$GET==1	;Get Record(s)
   899			000002			CF$CON==2	;Initiate data stream (not used in this implementation)
   900			000003			CF$UPD==3	;Update current record
   901			000004			CF$PUT==4	;Write out following record(s)
   902			000005			CF$DEL==5	;Delete current record
   903			000006			CF$REW==6	;Rewind file
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page 8-1
DAPSYM	MAC	20-Aug-81 13:02		CONTROL Message

   904			000007			CF$TRN==7	;Truncate file
   905			000010			CF$MOD==10	;Modify file attributes (reserved)
   906			000011			CF$REL==11	;Unlock record (reserved)
   907			000012			CF$FRE==12	;Unlock all locked records
   908								;Reserved
   909			000014			CF$FLU==14	;Flush buffers now
   910			000015			CF$EOV==15	;Do End-of-Volume processing
   911			000016			CF$FND==16	;Find record but don't transfer data
   912			000017			CF$EXT==17	;Extend file
   913			000020			CF$DSP==20	;Retrieve file attributes
   914			000021			CF$SFF==21	;Space file forward no. blocks specified by KEY
   915			000022			CF$SFB==22	;Space file backwards no. blocks specified by KEY
   916			000023			CF$CKP==23	;Checkpoint output file at accessed node (reserved)
   917			000024			CF$RCG==24	;Recovery Get - restart retrieval from last checkpoint
   918			000025			CF$RCP==25	;Recovery Put - restart update/store from last chkpnt
   919
   920
   921					;The CTLMENU field, similar to the ATTMENU field of the ATTRIBUTES message,
   922					;specifies which optional fields are present in the message
   923
   924			000001			CT$RAC==1B35	;RAC field present
   925			000002			CT$KEY==1B34	;KEY field present
   926			000004			CT$KRF==1B33	;KRF field present
   927			000010			CT$ROP==1B32	;ROP field present
   928			000020			CT$HSH==1B31	;HSH field present (reserved)
   929			000040			CT$DSP==1B30	;DISPLAY field present
   930
   931					;The (optional) RAC field sets the access mode (sets BEFORE operation)
   932
   933			000000			RB$SEQ==0	;Sequential record access
   934			000001			RB$KEY==1	;Keyed access
   935			000002			RB$RFA==2	;Access by record's file address
   936			000003			RB$SQF==3	;Sequential file access
   937			000004			RB$VBN==4	;Block mode access by VBN
   938			000005			RB$BKF==5	;Block mode file transfer
   939
   940					;The (optional) KEY field contains the key to the next record to be retrieved
   941					;from the file
   942
   943					;The (optional) KRF field indicates the key of reference. Zero (0) is the
   944					;primary key, 1-255 indicate secondary keys
   945
   946					;The (optional) ROP field specifies optional reocrd processing actions
   947
   948						;Word 1 of ROP
   949			000001			RB$EOF==1B35	;Position to EOF
   950			000002			RB$FDL==1B34	;Fast delete - mark record for deletion only
   951			000004			RB$UIF==1B33	;PUT's update existing records in relative files
   952			000010			RB$HSH==1B32	;Use hash key in HSH (reserved)
   953			000020			RB$LOA==1B31	;Follow fill quantities
   954			000040			RB$ULK==1B30	;Manual locking/unlocking
   955			000100			RB$TPT==1B29	;Truncate PUT (write eof at current position)
   956			000200			RB$RAH==1B28	;Read ahead
   957			000400			RB$WBH==1B27	;Write behind
   958			001000			RB$KGE==1B26	;KEY is >==
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page 8-2
DAPSYM	MAC	20-Aug-81 13:02		CONTROL Message

   959			002000			RB$KGT==1B25	;KEY is >
   960
   961					;The (optional) HSH field has the user-specified hash code
   962
   963					;The DISPLAY field requests retrieval of file attributes. See bit definitions
   964					;under display field of ACCESS message
   965
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page 9
DAPSYM	MAC	20-Aug-81 13:02		CONTINUE TRANSFER Message

   966					SUBTTL CONTINUE TRANSFER Message
   967					REPEAT 0,<
   968						DAP MESSAGE TYPE 5 - CONTINUE TRANSFER
   969					
   970							!=====================================!
   971							!          CONTRAN : Type==5           !
   972							!-------------------------------------!
   973							\                                     \
   974							\         Rest of DAP Header          \
   975							\                                     \
   976							!-------------------------------------!
   977							!    CONFUNC(1) B: Recovery action    !
   978							!=====================================!
   979					>
   980
   981					DEFINE CONMSG <
   982					XX  CON,^D5,Continue
   983					YY	FNC,FIX,^D1
   984					> ;End of CONMSG definition
   985
   986					;The CONTINUE TRANSFER message is used to tell the process which received an
   987					;I/O error how to proceed, short of breaking the link
   988
   989
   990					;The CONFUNC field specifies the action to be taken in response to the error
   991
   992			000001			CO$TRY==1	;Try again
   993			000002			CO$SKP==2	;Skip record and continue
   994			000003			CO$ABO==3	;Discard records in pipeline until ACCOMP received
   995			000004			CO$RES==4	;Resume processing
   996
   997
   998
   999					SUBTTL ACKNOWLEDGE Message
  1000					REPEAT 0,<
  1001						DAP MESSAGE TYPE 6 - ACKNOWLEDGE
  1002					
  1003							!=====================================!
  1004							!        ACKNOWLEDGE : Type==6         !
  1005							!-------------------------------------!
  1006							\                                     \
  1007							\         Rest of DAP Header          \
  1008							\                                     \
  1009							!=====================================!
  1010					>
  1011
  1012					;The ACKNOWLEDGE message is used to acknowledge the ACCESS message
  1013
  1014
  1015					DEFINE	ACKMSG <
  1016					XX  ACK,^D6,Acknowledge
  1017					> ;End of ACKMSG definition
  1018
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page 10
DAPSYM	MAC	20-Aug-81 13:02		ACCESS COMPLETE Message

  1019					SUBTTL ACCESS COMPLETE Message
  1020					REPEAT 0,<
  1021						DAP MESSAGE TYPE 7 - ACCESS COMPLETE
  1022					
  1023							!=====================================!
  1024							!           ACCOMP : Type==7           !
  1025							!-------------------------------------!
  1026							\                                     \
  1027							\         Rest of Dap Header          \
  1028							\                                     \
  1029							!-------------------------------------!
  1030							!  CMPFUNC(1) B: Completion function  !
  1031							!-------------------------------------!
  1032							!  FOP(EX-6) BM: File access options  !
  1033							!-------------------------------------!
  1034							!  CHECK(2)   B: 16 bit Checksum      !
  1035							!=====================================!
  1036					
  1037					>
  1038
  1039					DEFINE	ACPMSG <
  1040					XX  ACP,^D7,Access Complete
  1041					YY	FNC,FIX,^D1
  1042					YY	FOP,EXF,^D5
  1043					VV <5,1>			;Stop here for all below 5.1
  1044					VV <5,2,0,1,.OSVAX>		;Stop here for VAX 5.1.2
  1045					YY	CRC,FIX,^D2,-1		;Default means not specified
  1046					> ;End of ACPMSG definition
  1047
  1048				
  1049					;The ACCESS COMPLETE message is used to say "terminate this access", or to
  1050					;acknowledge a "terminate this access"
  1051
  1052
  1053					;The CMPFUNC gives the completion function
  1054
  1055			000001			AC$TRM==1	;Terminate access, close file if necessary
  1056			000002			AC$ACK==2	;Acknowledge a previous ACCOMP message
  1057			000003			AC$PUR==3	;Terminate access, purge file
  1058			000004			AC$EOS==4	;End of Data Stream (don't close file) - (not used)
  1059			000005			AC$SKP==5	;Skip to next wildcard file
  1060
  1061					;The FOP field specifies access options the user requires. See FOP field of
  1062					;ATTRIBUTES message for bit definitions
  1063
  1064					;The CHECK field contains the 16-bit file checksum if requested in the ACCOPT
  1065					;field of the Access message
  1066
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page 11
DAPSYM	MAC	20-Aug-81 13:02		DATA Message

  1067					SUBTTL DATA Message
  1068					REPEAT 0,<
  1069						DAP MESSAGE TYPE 8 - DATA MESSAGE
  1070					
  1071							!=====================================!
  1072							!            DATA : Type==8            !
  1073							!-------------------------------------!
  1074							\                                     \
  1075							\         Rest of DAP Header          \
  1076							\                                     \
  1077							!-------------------------------------!
  1078							!   BITCNT(I-5) B: Bit count          !
  1079							!-------------------------------------!
  1080							\                                     \
  1081							\   RECNUM(VAR-8) B: Record number    \
  1082							\                                     \
  1083							!-------------------------------------!
  1084							\                                     \
  1085							\                                     \
  1086							\      FILEDATA : Data from file      \
  1087							\                                     \
  1088							\                                     \
  1089							!=====================================!
  1090					>
  1091
  1092					DEFINE	DATMSG <
  1093					XX  DAT,^D8,Data,DA%NOZ		;Don't zero data message
  1094					YY	RCN,INT,^D8
  1095					YY	DAT,DAT,^D0
  1096					> ;End of DATMSG definition
  1097
  1098					;The DATA message contains the actual file data to be transferred
  1099
  1100
  1101					;The BITCNT field is present only if bit 3 of the FLAG field in the header is
  1102					;set. It contains the number of unused bits in the last byte of the filedata
  1103					;field to ensure correct transfer of arbitrary length bit streams.
  1104
  1105					;The RECNUM field is used to send the record's record number when accessing
  1106					;relative files. Normally it is not used and the byte count should be 0
  1107
  1108					;The FILDATA field contains the transparent file data
  1109
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page 12
DAPSYM	MAC	20-Aug-81 13:02		STATUS Message

  1110					SUBTTL STATUS Message
  1111					REPEAT 0,<
  1112						DAP MESSAGE TYPE 9 - STATUS MESSAGE
  1113					
  1114							!=====================================!
  1115							!           STATUS : Type==9           !
  1116							!-------------------------------------!
  1117							\                                     \
  1118							\         Rest of DAP Header          \
  1119							\                                     \
  1120							!-------------------------------------!
  1121							!STSCODE : Two byte code divided into:!
  1122							!  MACCODE(4-bits), MICCODE(12-bits)  !
  1123							!-------------------------------------!
  1124							\                                     \
  1125							\ RFA(VAR-8) B: Record's file address \
  1126							\                                     \
  1127							!-------------------------------------!
  1128							\                                     \
  1129							\     RECNUM(VAR-8) Record number     \
  1130							\                                     \
  1131							!-------------------------------------!
  1132							!     STV(I-8) B: Secondary status    !
  1133							!=====================================!
  1134					>
  1135
  1136					DEFINE	STSMSG <
  1137					XX  STS,^D9,Status
  1138					YY	COD,FIX,^D2
  1139					YY	RFA,INT,^D8
  1140					YY	RCN,INT,^D8
  1141					YY	STV,INT,^D8
  1142					>
  1143
  1144
  1145					;The STATUS message is used to return information on the status of DAP
  1146					;messages or data transfers
  1147
  1148
  1149					;The STSCODE field is 2 bytes divided into a 4-bit MACCODE field, and a 12-bit
  1150					;MICCODE field. The 2 bytes in this case are stored in bits 20-35 of the -10
  1151					;word.
  1152
  1153			170000			ER%MAC==17B23	;Mask for MACCODE field
  1154			007777			ER%MIC==7777B35	;Mask for MICCODE field
  1155			007700			 ER%TYP==77B29	;Mask for message type in error
  1156			000077			 ER%FLD==77B35	;Mask for message field in error
  1157
  1158
  1159
  1160					;The following values are defined for MACCODE
  1161
  1162					DEFINE MACCOD <
  1163						ER	(PND,0,Operation in progress)
  1164						ER	(OK,1,Successful)
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page 12-1
DAPSYM	MAC	20-Aug-81 13:02		STATUS Message

  1165						ER	(USP,2,Unsupported)
  1166						ER	(RSV,3,Reserved)
  1167						ER	(FIL,4,File open error)
  1168						ER	(TRN,5,Data transfer error)
  1169						ER	(TRW,6,Data transfer warning)
  1170						ER	(TRM,7,Access termination error)
  1171						ER	(FMT,10,Format error)
  1172						ER	(INV,11,Invalid)
  1173						ER	(SNC,12,Message received out of sequence)
  1174					>
  1175
  1176
  1177					;The following MICCODE values are used with MACCODE values ER$USP, ER$FMT,
  1178					;and ER$INV. The high-order 6 bits (24-29) contain the DAP message type in
  1179					;error (e.g. .DMCTL) and the low-order 6 bits (30-35) contain the field number
  1180					;in error.
  1181
  1182			000000			ER$UNS==0	;Unspecified error (catch all)
  1183			000010			ER$TYP==10	;Message type field error
  1184
  1185					;The following MICCODE values are used with a MACCODE value of ER$PND, ER$OK,
  1186					;ER$FIL, ER$TRN, and ER$TRM.
  1187					;This is a very long list, and entries will only be added as this
  1188					;implementation requires them. See DAP specification for the complete list.
  1189
  1190					DEFINE MICCOD <
  1191						ER	(ABO,1,Operation Aborted)
  1192						ER	(ACC,2, Could not access file)
  1193						ER	(ACT,3,"FILE" activity precludes operation)
  1194						ER	(AID,4,Bad area ID)
  1195						ER	(ALN,5,Alignment options error)
  1196						ER	(ALQ,6,Allocation quantity too large)
  1197						ER	(ANI,7,Not ANSI "D" format)
  1198						ER	(AOP,10,Allocation options error)
  1199						ER	(AST,11,Invalid operation at AST level)
  1200						ER	(ATR,12,Attribute read error)
  1201						ER	(ATW,13,Attribute write error)
  1202						ER	(BKS,14,Bucket size too small)
  1203						ER	(BKZ,15,Bucket size too large)
  1204						ER	(BLN,16,"BLN" length error)
  1205						ER	(BOF,17,Beginning of file detected)
  1206						ER	(BPA,20,Private pool address not multiple of 4)
  1207						ER	(BPS,21,Private pool size not multiple of 4)
  1208						ER	(BUG,22,Internal RMS error condition detected)
  1209						ER	(CCR,23,Cannot connect RAM)
  1210						ER	(CHG,24,$UPDATE changed key without XB$CHG)
  1211						ER	(CHK,25,Bucket format check byte error)
  1212						ER	(CLS,26,RSTS/E Close function failed)
  1213						ER	(COD,27,Invalid or unsupported "COD" field)
  1214						ER	(CRE,30, Could not create file)
  1215						ER	(CUR,31,No current record)
  1216						ER	(DAC,32,Deaccess error during close)
  1217						ER	(DAN,33,Data AREA number invalid)
  1218						ER	(DEL,34,RFA-accessed record was deleted)
  1219						ER	(DEV,35,Device not supported)
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page 12-2
DAPSYM	MAC	20-Aug-81 13:02		STATUS Message

  1220						ER	(DIR,36,Error in Directory name)
  1221						ER	(DME,37,Dynamic memory exhausted)
  1222						ER	(DNF,40,Directory not found)
  1223						ER	(DNR,41,Device not ready)
  1224						ER	(DPE,42,Device positioning error)
  1225						ER	(DTP,43,"DTP" field invalid)
  1226						ER	(DUP,44,Duplicate key detected without XB$DUP)
  1227						ER	(ENT,45,Enter function failed)
  1228						ER	(ENV,46,Operation not selected in "ORG")
  1229						ER	(EOF,47,End-of-file detected)
  1230						ER	(ESS,50,Expanded string area too short)
  1231						ER	(EXP,51,Expiration date not reached)
  1232						ER	(EXT,52,File extend failure)
  1233						ER	(FAB,53,Not a valid FAB)
  1234						ER	(FAC,54,Illegal FAC)
  1235						ER	(FEX,55,File already exists)
  1236						ER	(FID,56,Invalid File ID)
  1237						ER	(FLG,57,Invalid flag bit combination)
  1238						ER	(FLK,60,File locked by another user)
  1239						ER	(FND,61,"FIND" Function failed)
  1240						ER	(FNF,62,File not found)
  1241						ER	(FNM,63,Error in file name)
  1242						ER	(FOP,64,Invalid file options)
  1243						ER	(FUL,65,Quota exceeded or disk full)
  1244						ER	(IAN,66,Index AREA number invalid)
  1245						ER	(IFI,67,Invalid IFI value or unopened file)
  1246						ER	(IMX,70,Max areas/key exceeded)
  1247						ER	(INI,71,INIT never issued)
  1248						ER	(IOP,72,Operation illegal or invalid for file organization)
  1249						ER	(IRC,73,Illegal record encountered)
  1250						ER	(ISI,74,Invalid ISI value)
  1251						ER	(KBF,75,Bad KEY buffer address)
  1252						ER	(KEY,76,Invalid KEY field)
  1253						ER	(KRF,77,Invalid key-of-reference)
  1254						ER	(KSZ,100,KEY size too large)
  1255						ER	(LAN,101,Lowest-level-index AREA number invalid)
  1256						ER	(LBL,102,Not ANSI labelled tape)
  1257						ER	(LBY,103,Logical channel busy)
  1258						ER	(LCH,104,Logical channel number too large)
  1259						ER	(LEX,105,Logical extend error)
  1260						ER	(LOC,106,"LOC" Field invalid)
  1261						ER	(MAP,107,Buffer mapping error)
  1262						ER	(MKD,110,Could not mark file for deletion)
  1263						ER	(MRN,111,MRN neg or less than KEY)
  1264						ER	(MRS,112,MRS==0 for fixed records)
  1265						ER	(NAM,113,"NAM" block address invalid)
  1266						ER	(NEF,114,Not positioned to EOF)
  1267						ER	(NID,115,Cannot allocate index descriptor)
  1268						ER	(NPK,116,No primary key defined)
  1269						ER	(OPN,117,RSTS/E open function failed)
  1270						ER	(ORD,120,XAB'S not in correct order)
  1271						ER	(ORG,121,Invalid file organization value)
  1272						ER	(PLG,122,File prolog error)
  1273						ER	(POS,123,"POS" field invalid)
  1274						ER	(PRM,124,Bad file date field)
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page 12-3
DAPSYM	MAC	20-Aug-81 13:02		STATUS Message

  1275						ER	(PRV,125,File protection violation)
  1276						ER	(RAB,126,Not a valid RAB)
  1277						ER	(RAC,127,Illegal RAC value)
  1278						ER	(RAT,130,Illegal record attributes)
  1279						ER	(RBF,131,Invalid record buffer address)
  1280						ER	(RER,132,File read error)
  1281						ER	(REX,133,Record already exists)
  1282						ER	(RFA,134,Bad RFA value)
  1283						ER	(RFM,135,Invalid record format)
  1284						ER	(RLK,136,Target bucket locked)
  1285						ER	(RMV,137,RSX-F11ACP remove function failed)
  1286						ER	(RNF,140,Record not found)
  1287						ER	(RNL,141,Record not locked)
  1288						ER	(ROP,142,Invalid record options)
  1289						ER	(RPL,143,Error reading prolog)
  1290						ER	(RRV,144,Invalid RRV record encountered)
  1291						ER	(RSA,145,RAB stream currently active)
  1292						ER	(RSZ,146,Bad record size)
  1293						ER	(RTB,147,Record too big for user's buffer)
  1294						ER	(SEQ,150,Primary key out of sequence)
  1295						ER	(SHR,151,SHR field invalid)
  1296						ER	(SIZ,152,SIZ field invalid)
  1297						ER	(STK,153,Stack too big for save area)
  1298						ER	(SYS,154,System directive error)
  1299						ER	(TRE,155,Index tree error)
  1300						ER	(TPE,156,Error in file extension)
  1301						ER	(UBF,157,Invalid user buffer address)
  1302						ER	(USZ,160,Invalid user buffer size)
  1303						ER	(VER,161,Error in version number)
  1304						ER	(VOL,162,Invalid volume number)
  1305						ER	(WER,163,File write error)
  1306						ER	(WLK,164,Device is write-locked)
  1307						ER	(WPL,165,Error writing prolog)
  1308						ER	(XAB,166,Not valid XAB)
  1309						ER	(DDI,167,Default directory invalid)
  1310					
  1311						ER	(BSZ,232,Bad byte size)
  1312						ER	(CJF,233,Cannot get JFN for file)
  1313						ER	(COF,235,Cannot open file)
  1314						ER	(NRM,242,Directory is full)
  1315						ER	(SRF,305,Network send/recieve failed)
  1316						ER	(SPL,306,Spool or submit operation failed)
  1317						ER	(CRC,310,File transfer checksum error)
  1318					>
  1319
  1320
  1321					;For a MACCODE value of ER$SNC, the MICCODE contains the message type number
  1322					;that was received
  1323
  1324					;The (optional) RFA field is used to return the RFA of the record to which the
  1325					;STATUS message applies. If not used the byte count should be 0.
  1326
  1327
  1328					;The (optional) RECNUM field is used to return the record number for relative
  1329					;files. If not used the byte count should be 0.
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page 12-4
DAPSYM	MAC	20-Aug-81 13:02		STATUS Message

  1330
  1331					;The STV field is used to return secondary status, such as operating system
  1332					;specifiec error codes
  1333
  1334
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page 13
DAPSYM	MAC	20-Aug-81 13:02		KEY DEFINITION Attributes Extension message

  1335					SUBTTL KEY DEFINITION Attributes Extension message
  1336					REPEAT 0,<
  1337						DAP Message type 10 - KEY DEFINITION message
  1338					
  1339							!=====================================!
  1340							!      KEY DEFINITION : Type==10       !
  1341							!-------------------------------------!
  1342							\                                     \
  1343							\         Rest of DAP Header          \
  1344							\                                     \
  1345							!-------------------------------------!
  1346							!       KEYMENU(EX-6) BM: Menu        !
  1347							!-------------------------------------!
  1348							!    FLG(EX-3) BM: Key option flag    !
  1349							!-------------------------------------!
  1350							!     DFL(2) B: Data bucket fill      !
  1351							!-------------------------------------!
  1352							!     IFL(2) B: Index bucket fill     !
  1353							!-------------------------------------!
  1354							!   NSG(1) B: Number of segments      !
  1355							!-------------------------------------!
  1356							! POS(2) B: Position of KEY in record !
  1357							!-------------------------------------!
  1358							!   SIZ(1) B: Size of KEY in record   !
  1359							!-------------------------------------!
  1360							! REF(1) B: Key of Reference ind.     !
  1361							!-------------------------------------!
  1362							\                                     \
  1363							\    KNM(I-40) A: KEY name of KRF     \
  1364							\                                     \
  1365							!-------------------------------------!
  1366							!NUL(1) B: Value of null key character!
  1367							!-------------------------------------!
  1368							!     IAN(1) B: Index Area number     !
  1369							!-------------------------------------!
  1370							!  LAN(1) B: Lowest level index area  !
  1371							!-------------------------------------!
  1372							!  DAN(1) B: Data level area number   !
  1373							!-------------------------------------!
  1374							!         DTP(1) B: Data type         !
  1375							!-------------------------------------!
  1376							\                                     \
  1377							\    RVB(I-8) B: Root VBN for key     \
  1378							\                                     \
  1379							!-------------------------------------!
  1380							\                                     \
  1381							\  HAL(I-5) B: Hash algorithm value   \
  1382							\                                     \
  1383							\				      \
  1384							\  DVB(I-8) B: Data bucket start      \
  1385							\				      \
  1386							!-------------------------------------!
  1387							!  DBS(1) B: Data bucket size	      !
  1388							!-------------------------------------!
  1389							!  IBS(1) B: Index bucket size	      !
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page 13-1
DAPSYM	MAC	20-Aug-81 13:02		KEY DEFINITION Attributes Extension message

  1390							!-------------------------------------!
  1391							!  LVL(1) B: Level of root bucket     !
  1392							!-------------------------------------!
  1393							!  TKS(1) B: Total Key size	      !
  1394							!-------------------------------------!
  1395							!  MRL(2) B: Minimum record length    !
  1396							!=====================================!
  1397					>
  1398
  1399					DEFINE	KDFMSG <
  1400					XX  KDF,^D10,Key Definition
  1401					VV  <5,1>
  1402					YY	MNU,EXF,^D5
  1403					YY	FLG,EXF,^D3
  1404					YY	DFL,FIX,^D2
  1405					YY	IFL,FIX,^D2
  1406					YY	NSG,FIX,^D4
  1407					;;YY	 NSG,FIX,^D1
  1408					;;YY	 POS,FIX,^D2
  1409					;;YY	 SIZ,FIX,^D1
  1410					YY	REF,FIX,^D1
  1411					YY	KNM,VAR,^D40
  1412					YY	NUL,FIX,^D1
  1413					YY	IAN,FIX,^D1
  1414					YY	LAN,FIX,^D1
  1415					YY	DAN,FIX,^D1
  1416					YY	DTP,FIX,^D1
  1417					YY	RVB,INT,^D8
  1418					YY	HAL,INT,^D5
  1419					YY	DVB,INT,^D8
  1420					YY	DBS,FIX,^D1
  1421					YY	IBS,FIX,^D1
  1422					YY	LVL,FIX,^D1
  1423					YY	TSK,FIX,^D1
  1424					YY	MRL,FIX,^D2
  1425					> ;End of KDFMSG definition
  1426
  1427					;The KEY DEFINITION message is used to pass detailed information about
  1428					;a keyed file
  1429
  1430
  1431					;The KEYMENU field specifies which optional fields in the message are present
  1432
  1433						;Word 1 of Key menu
  1434			000001			KO$FLG==1B35	;FLG field present
  1435			000002			KO$DFL==1B34	;DFL field present
  1436			000004			KO$IFL==1B33	;IFL field present
  1437			000010			KO$NSG==1B32	;NSG, POS, and SIZ Fields present
  1438			000020			KO$REF==1B31	;REF field present
  1439			000040			KO$KNM==1B30	;KNM field present
  1440			000100			KO$NUL==1B29	;NUL FIELD present
  1441			000200			KO$IAN==1B28	;IAN field present
  1442			000400			KO$LAN==1B27	;LAN field present
  1443			001000			KO$DAN==1B26	;DAN field present
  1444			002000			KO$DTP==1B25	;DTP field present
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page 13-2
DAPSYM	MAC	20-Aug-81 13:02		KEY DEFINITION Attributes Extension message

  1445			004000			KO$RVB==1B24	;RVB field present
  1446			010000			KO$HAL==1B23	;HAL field present (reserved)
  1447			020000			KO$DVB==1B22	;DVB field present
  1448			040000			KO$DBS==1B21	;DBS field present
  1449			100000			KO$IBS==1B20	;IBS field present
  1450			200000			KO$LVL==1B19	;LVL field present
  1451			400000			KO$TKS==1B18	;TKS field present
  1452		000001	000000			KO$MRL==1B17	;MRL field present
  1453
  1454					;The FLG field specifies the key option flag for this key
  1455
  1456			000001			XB$DUP==1B35	;Duplicates allowed
  1457			000002			XB$CHG==1B34	;Allow keys to change
  1458			000004			XB$NUL==1B33	;Null key character is defined
  1459
  1460					;The DFL field specifies the data bucket fill value
  1461
  1462					;The IFL field specifies the index bucket fill value
  1463
  1464					;The SEGCNT field specifies the number of segments (max. 8) needed to define
  1465					;the key in the record. For each segment, there will be a POS,SIZ pair. For
  1466					;example, if SEGCNT contains 3, the fields would appear in the message as:
  1467					;	SEGCNT,POS,SIZ,POS,SIZ,POS,SIZ
  1468
  1469					;The POS field gives the position of the key in the record by byte number
  1470
  1471					;The SIZ field specifies the size of the key in the record in bytes
  1472
  1473					;The REF field indicates the key of reference
  1474
  1475					;The KNM field is the key name corresponding to the key of reference
  1476
  1477					;The NUL field specifies the value of the null key character
  1478
  1479					;The IAN field specifies the index area number
  1480
  1481					;The LAN field specifies the lowest level index area number
  1482
  1483					;The DAN field specifies the data level area number
  1484
  1485					;The DTP field specifies the data type of the record
  1486
  1487					;The RVB field specifies the root Virtual block number for the key
  1488
  1489					;The HAL field specifies the hash algorithm value (reserved)
  1490
  1491					;The DVB field specifies the first data bucket start virtual block number
  1492
  1493					;The DBS field specifies the Data bucket size field
  1494
  1495					;The IBS field specifies the Index Bucket size field
  1496
  1497					;The LVL field specifies the Level of the Root Bucket
  1498
  1499					;The TKS field specifies the Total Key size
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page 13-3
DAPSYM	MAC	20-Aug-81 13:02		KEY DEFINITION Attributes Extension message

  1500
  1501					;The MRL field specifies the Minimum record length in bytes
  1502
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page 14
DAPSYM	MAC	20-Aug-81 13:02		ALLOCATION Attributes Extension Message

  1503					SUBTTL ALLOCATION Attributes Extension Message
  1504					REPEAT 0,<
  1505						DAP message type 11 - Allocation Attributes extension message
  1506					
  1507							!=====================================!
  1508							!           ALLOC : Type==11           !
  1509							!-------------------------------------!
  1510							\                                     \
  1511							\         Rest of DAP Header          \
  1512							\                                     \
  1513							!-------------------------------------!
  1514							!       ALLMENU(EX-6) BM: Menu        !
  1515							!-------------------------------------!
  1516							!    VOL(2) B: Relative volume no.    !
  1517							!-------------------------------------!
  1518							!   ALN(EX-4) BM: Alignment options   !
  1519							!-------------------------------------!
  1520							!  AOP(EX-4) BM: Allocation options   !
  1521							!-------------------------------------!
  1522							\                                     \
  1523							\  LOC(I-8) B: Alloc Starting point   \
  1524							\                                     \
  1525							!-------------------------------------!
  1526							\                                     \
  1527							\   RFI(I-16) B: Relative file I.D.   \
  1528							\                                     \
  1529							!-------------------------------------!
  1530							\                                     \
  1531							\ALQ(I-5) B: Virtual blks to allocate \
  1532							\                                     \
  1533							!-------------------------------------!
  1534							!         AID(1) B: Area I.D.         !
  1535							!-------------------------------------!
  1536							!   BKZ(1) B: Bucket size for Area    !
  1537							!-------------------------------------!
  1538							!   DEQ(2) B: Default extension qty   !
  1539							!=====================================!
  1540					>
  1541
  1542					DEFINE ALCMSG <
  1543					XX  ALC,^D11,Allocation
  1544					VV  <5,1>
  1545					YY	MNU,EXF,^D5
  1546					YY	VOL,FIX,^D2
  1547					YY	ALN,EXF,^D4
  1548					YY	AOP,EXF,^D4
  1549					YY	LOC,INT,^D8
  1550					YY	RFI,INT,^D9
  1551					YY	ALQ,INT,^D5
  1552					YY	AID,FIX,^D1
  1553					YY	BKZ,FIX,^D1
  1554					YY	DEQ,FIX,^D2
  1555					> ;End of ALCMSG definition
  1556
  1557					;The Allocation message is used when creating or explicitly extending a file
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page 14-1
DAPSYM	MAC	20-Aug-81 13:02		ALLOCATION Attributes Extension Message

  1558					;to specify the character of the allocation.
  1559
  1560
  1561					;The ALLMENU field specifies which of the optional fields in the message are
  1562					;present
  1563
  1564						;Word 1 of Allocation menu
  1565			000001			AL$VOL==1B35	;VOL field present
  1566			000002			AL$ALN==1B34	;ALN Field Present
  1567			000004			AL$AOP==1B33	;AOP Field Present
  1568			000010			AL$LOC==1B32	;LOC Field Present
  1569			000020			AL$RFI==1B31	;RFI Field Present (reserved)
  1570			000040			AL$ALQ==1B30	;ALQ Field Present
  1571			000100			AL$AID==1B29	;AID Field Present
  1572			000200			AL$BKZ==1B28	;BKZ Field Present
  1573			000400			AL$DEQ==1B27	;DEQ Field Present 
  1574
  1575					;The VOL field specifies the volume number of a volume set on which  this area
  1576					;or file will be allocated
  1577
  1578					;The ALN field specifies any alignment options needed by the user
  1579
  1580			000001			XB$CYL==1B35	;Align on cylinder boundry
  1581			000002			XB$LBN==1B34	;Align to specified logical block
  1582			000004			XB$VBN==1B33	;Allocate as near as possible to specified VBN
  1583			000010			XB$RFI==1B32	;Allocate as near as possible to specified related file
  1584
  1585					;The AOP field specifies any allocation options the user requires
  1586
  1587			000001			XB$HRD==1B35	;If requested alignment cannot be done, return error
  1588			000002			XB$CTG==1B34	;Contiguous allocation required
  1589
  1590					;The LOC field specifies the starting point for allocation - see DAP 5.3 spec
  1591					;for details
  1592
  1593					;The RFI field contains the related file I.D. iff required by other options
  1594
  1595					;The ALQ field specifies the amount of space in VB to be allocated
  1596
  1597					;The AID field contains the area I.D. for key reference
  1598
  1599					;The BKZ field contains the bucket size for this area
  1600
  1601					;The DEQ field contains the default extension quantity in virtual blocks. It
  1602					;overrides the DEQ field in the main attributes message
  1603
  1604
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page 15
DAPSYM	MAC	20-Aug-81 13:02		SUMMARY Attributes Extension Message

  1605					SUBTTL SUMMARY Attributes Extension Message
  1606					REPEAT 0,<
  1607						DAP Message type 12 - SUMMARY message
  1608					
  1609							!=====================================!
  1610							!          SUMMARY : Type==12          !
  1611							!-------------------------------------!
  1612							\                                     \
  1613							\         Rest of DAP Header          \
  1614							\                                     \
  1615							!-------------------------------------!
  1616							!  SUMENU(EX-6) BM: Menu              !
  1617							!-------------------------------------!
  1618							!  NOK(1) B: Number of defined keys   !
  1619							!-------------------------------------!
  1620							!      NOA(1) B: Number of areas      !
  1621							!-------------------------------------!
  1622							!  NOR(1) B: Number of record desc.   !
  1623							!-------------------------------------!
  1624							!  PVN(2) B: Prologue version number  !
  1625							!=====================================!
  1626					>
  1627
  1628					DEFINE	SUMMSG <
  1629					XX  SUM,^D12,Summary
  1630					VV  <5,1>
  1631					YY	MNU,MNU,^D5
  1632					YY	NOK,FIX,^D1
  1633					YY	NOA,FIX,^D1
  1634					YY	NOR,FIX,^D1
  1635					YY	PVN,FIX,^D2
  1636					>
  1637
  1638					;The SUMMARY message contains summary data about the file
  1639
  1640
  1641					;The SUMENU specifies what fieldS are present in the rest of the message
  1642
  1643						;Word 1 of SUMENU
  1644			000001			SU$NOK==1B35	;NOK field present
  1645			000002			SU$NOA==1B34	;NOA field present
  1646			000004			SU$NOR==1B33	;NOR field present
  1647			000010			SU$PVN==1B32	;PVN field present
  1648
  1649					;The NOK field specifies the number of keys defined in the file
  1650
  1651					;The NOA field specifies the number of areas defined in the file
  1652
  1653					;The NOR field specifies the number of record descriptors in the file
  1654
  1655					;The PVN field specifies the Prologue Version Number of the file
  1656
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page 16
DAPSYM	MAC	20-Aug-81 13:02		DATE AND TIME Attributes extension message

  1657					SUBTTL DATE AND TIME Attributes extension message
  1658					REPEAT 0,<
  1659						DAP Message type 13 - Date And Time Attributes message
  1660					
  1661							!=====================================!
  1662							!          DATIME : Type==13           !
  1663							!-------------------------------------!
  1664							\                                     \
  1665							\         Rest of DAP Header          \
  1666							\                                     \
  1667							!-------------------------------------!
  1668							!       DATMENU(EX-6) BM: Menu        !
  1669							!-------------------------------------!
  1670							! CDT(18) A: File Creation date/time  !
  1671							!-------------------------------------!
  1672							!  RDT(18) A: File Update date/time   !
  1673							!-------------------------------------!
  1674							!EDT(18) A: File expiration date/time !
  1675							!-------------------------------------!
  1676							!  RVN(2) B: Revision number          !
  1677							!=====================================!
  1678					>
  1679
  1680					DEFINE	DTIMSG <
  1681					XX  DTI,^D13,Date/time Attributes
  1682					VV  <5,1>
  1683					YY	MNU,MNU,^D5
  1684					YY	CDT,DTI,^D18
  1685					YY	RDT,DTI,^D18
  1686					YY	EDT,DTI,^D18
  1687					YY	RVN,FIX,^D2
  1688					> ;End of DTIMSG definition
  1689
  1690					;The Date-and-Time message gives the date/time information associated with
  1691					;the file and is returned when requested by the accessing process.
  1692
  1693
  1694					;The DATMENU field specifies which of the optional fields are present in the 
  1695					;message
  1696
  1697			000001			DA$CDT==1B35	;CDT Field Present
  1698			000002			DA$RDT==1B34	;RDT Field Present
  1699			000004			DA$EDT==1B33	;EDT Field Present 
  1700			000010			DA$RVN==1B32	;RVN Field Present
  1701
  1702					;	The format for the following fields is as follows:
  1703					;		dd-mmm-yybhh:mm:ss
  1704
  1705
  1706					;The CDT field contains the date and time of file creation
  1707
  1708					;The RDT field contains the date and time of last fiel update
  1709
  1710					;The EDT field contains the date and time the file may be deleted
  1711
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page 16-1
DAPSYM	MAC	20-Aug-81 13:02		DATE AND TIME Attributes extension message

  1712					;The RVN field specifies the number of times the file has been written to
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page 17
DAPSYM	MAC	20-Aug-81 13:02		PROTECTION Attribute Extension Message

  1713					SUBTTL PROTECTION Attribute Extension Message
  1714					REPEAT 0,<
  1715						DAP message type 14 - PROTECTION message
  1716					
  1717							!=====================================!
  1718							!          PROTECT : Type==14          !
  1719							!-------------------------------------!
  1720							\                                     \
  1721							\         Rest of DAP Header          \
  1722							\                                     \
  1723							!-------------------------------------!
  1724							!       PROTMENU(EX-6) BM: Menu       !
  1725							!-------------------------------------!
  1726							\                                     \
  1727							\  OWNER(I-40) A: Name/code of owner  \
  1728							\                                     \
  1729							!-------------------------------------!
  1730							! PROTSYS(EX-3) BM: System protection !
  1731							!-------------------------------------!
  1732							! PROTSLF(EX-3) BM: Owner protection  !
  1733							!-------------------------------------!
  1734							! PROTGRP(EX-3) BM: Group protection  !
  1735							!-------------------------------------!
  1736							! PROTWLD(EX-3) BM: World protection  !
  1737							!=====================================!
  1738					>
  1739
  1740					DEFINE	PROMSG <
  1741					XX  PRO,^D14,File Protection Attributes
  1742					VV  <5,1>
  1743					YY	MNU,MNU,^D5
  1744					YY	OWN,VAR,^D60
  1745					YY	SYS,PRO,^D3
  1746					YY	SLF,PRO,^D3,77
  1747					YY	GRP,PRO,^D3,52
  1748					YY	WLD,PRO,^D3,00
  1749					> ;End of FPAMSG definition
  1750
  1751					;The Protection message contains protection data for the file. When creating
  1752					;a file, it is used to specify the protection for the file
  1753
  1754
  1755					;The PROTMENU field specifies which optional fields of the message are present
  1756
  1757			000001			PR$OWN==1B35	;OWNER Field Present
  1758			000002			PR$SYS==1B34	;PROTSYS Field Present
  1759			000004			PR$SLF==1B33	;PROTSLF Field Present
  1760			000010			PR$GRP==1B32	;PROTGRP Field Present
  1761			000020			PR$WLD==1B31	;PROTWLD Field Present 
  1762
  1763					;The OWNER field contains the name or user code (UIC, PPN, etc.) of the file's
  1764					;owner. This is used only when returning attributes. When creating a file
  1765					;the owner information is taken from the user id data in the userid message
  1766					;or the NSP connect
  1767
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page 17-1
DAPSYM	MAC	20-Aug-81 13:02		PROTECTION Attribute Extension Message

  1768					;The PROTSYS, PROTOWN, PROTGRP and PROTWLD fields all have the same format,
  1769					;as follows:
  1770
  1771						;Word 1 of protection
  1772			000001			PR$DRA==1B35	;Deny read access
  1773			000002			PR$DWA==1B34	;Deny write access
  1774			000004			PR$DEA==1B33	;Deny execute access
  1775			000010			PR$DDA==1B32	;Deny delete access
  1776			000020			PR$DAA==1B31	;Deny append accessd access
  1777			000040			PR$DLA==1B30	;Deny list access (directory)
  1778			000100			PR$DUA==1B29	;Deny update access
  1779			000200			PR$DCA==1B28	;Deny change access protection
  1780			000400			PR$DXA==1B27	;Deny extend access
  1781
  1782					;The PROTSYS field specifies protection for system access rights
  1783
  1784					;The PROTOWN field specifies protection for owner access rights
  1785
  1786					;The PROTGRP field specifies protection for group access rights
  1787
  1788					;The PROTWLD field specifies protection for general (world) access rights
  1789
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page 18
DAPSYM	MAC	20-Aug-81 13:02		NAME Attributes Extension Message

  1790					SUBTTL NAME Attributes Extension Message
  1791					REPEAT 0,<
  1792						DAP Message Type 15 - NAME message
  1793					
  1794							!=====================================!
  1795							!           NAME : Type==15            !
  1796							!-------------------------------------!
  1797							\                                     \
  1798							\         Rest of DAP Header          \
  1799							\                                     \
  1800							!-------------------------------------!
  1801							!   NAMETYPE(EX-3) BM: Type of name   !
  1802							!-------------------------------------!
  1803							\                                     \
  1804							\    NAMESPEC(I-200) A: File spec     \
  1805							\                                     \
  1806							!=====================================!
  1807					>
  1808
  1809					DEFINE	NAMMSG <
  1810					XX  NAM,^D15,Name,DA%NOZ	;Don't zero name message
  1811					;VV  <5,1>			;***For RSX 4.0.1
  1812					YY	TYP,MNU,^D3
  1813					YY	FSP,VAR,^D255
  1814					YY	FNM,VAR,^D100
  1815					YY	DIR,VAR,^D100
  1816					YY	VOL,VAR,^D100
  1817					YY	DFS,VAR,^D100
  1818					YY	RFS,VAR,^D100
  1819					> ;End NAMMSG definition
  1820
  1821					;The NAME message is used when renaming a file to contain the new name the
  1822					;file will have after the operation is complete. It is also used with the
  1823					;directory listing to return the name of each file for which attributes
  1824					;are returned. It may also be used when opening or creating a file to
  1825					;contain the default or related file specification.
  1826
  1827
  1828					;The NAMETYPE field specifies the type of name contained in the NAMESPEC
  1829					;field
  1830
  1831			000001			NA$FSP==1B35	;File specification
  1832			000002			NA$FNM==1B34	;File name
  1833			000004			NA$DIR==1B33	;Directory Name
  1834			000010			NA$VOL==1B32	;Volume or Structure name
  1835			000020			NA$DFS==1B31	;Default file specification
  1836			000040			NA$RFS==1B30	;Related file specification (Reserved)
  1837
  1838					;The NAMESPEC field contains the ASCII name specified by NAMETYPE
  1839
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page 19
DAPSYM	MAC	20-Aug-81 13:02		- ACCESS CONTROL LIST ATTRIBUTES EXTENSION MESSAGE

  1840					SUBTTL - ACCESS CONTROL LIST ATTRIBUTES EXTENSION MESSAGE
  1841					REPEAT 0,<
  1842						DAP MESSAGE TYPE 17 - ACCESS CONTROL LIST ATTRIBUTES MESSAGE
  1843					
  1844							!=====================================!
  1845							!          ACLTYPE : Type==17          !
  1846							!-------------------------------------!
  1847							\                                     \
  1848							\         Rest of DAP Header          \
  1849							\                                     \
  1850							!-------------------------------------!
  1851							!  ACLCNT(1) B: Count of ACL fields   !
  1852							!-------------------------------------!
  1853							\                                     \
  1854							\  ACL(I-80) A: Access Control List   \
  1855							\                                     \
  1856							!=====================================!
  1857					>
  1858
  1859					DEFINE	ACLMSG <
  1860					XX  ACL,^D17,Access Control List
  1861					VV  <5,1>
  1862					YY	BYT,FIX,^D1
  1863					YY	ACL,VAR,^D80
  1864					> ;End of ACLMSG definition
  1865
  1866					;The Access Control List attributes extension message specifies a list of
  1867					;users and the access rights they have to this file. Each ACL entry is in
  1868					; the format of the system where the file resides.
  1869
  1870
  1871					;The ACLCNT field contains the number of repititions of the ACL field in this
  1872					;message. If negative, this is the last in a sequence of ACL messages
  1873
  1874					;The ACL field is a literal string containing access control information
  1875					;for each user having access to the file
  1876
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page 20
DAPSYM	MAC	20-Aug-81 13:02		USERID Message

  1877					SUBTTL USERID Message
  1878					REPEAT 0,<
  1879						DAP Message type 128 - USERID message
  1880					
  1881							!=====================================!
  1882							!          USERID : Type==200          !
  1883							!-------------------------------------!
  1884							\                                     \
  1885							\         Rest of DAP Header          \
  1886							\                                     \
  1887							!-------------------------------------!
  1888							!        IDMENU(EX-6) BM: Menu        !
  1889							!-------------------------------------!
  1890							\                                     \
  1891							\      IDENT(I-40) A: User I.D.       \
  1892							\                                     \
  1893							!-------------------------------------!
  1894							\                                     \
  1895							\    ACCOUNT(I-40) A: Account data    \
  1896							\                                     \
  1897							!-------------------------------------!
  1898							\                                     \
  1899							\      OPTIONS(I-132) A: Options      \
  1900							\                                     \
  1901							!=====================================!
  1902					>
  1903					DEFINE	USRMSG <
  1904					XX	USR,^D128,User
  1905					VV  <5,1>
  1906					YY	MNU,MNU,^D5
  1907					YY	IDN,VAR,^D40
  1908					YY	ACC,VAR,^D40
  1909					YY	OPT,VAR,^D132
  1910					> ;End of USRMSG definition
  1911					;The User Identification message is an application message designed for use
  1912					;by DEC's file transfer system (FTS) and other DAP based applications
  1913					;usine the same queueing model. See the DAP 5.0 spec for details.
  1914
  1915
  1916					;The IDMENU field specifies which optional fields are contained in the message
  1917
  1918			000001			US$IDN==1B35	;IDENT field present
  1919			000002			US$ACC==1B34	;ACCOUNT field present
  1920			000004			US$OPT==1B33	;OPTIONS field present
  1921
  1922					;The IDENT field specifies the user I.D.
  1923
  1924					;The ACCOUNT field specifies any required accounting data for this access
  1925
  1926					;The OPTIONS field contains any additional application-specific data
  1927
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page 21
DAPSYM	MAC	20-Aug-81 13:02		USERID Message

  1928					DEFINE	DOMSG <
  1929					
  1930						CFGMSG	;;Expand configuration message definition
  1931						ATTMSG	;;Expand attributes message definition
  1932						ACCMSG	;;Expand access message definition
  1933						CTLMSG	;;Expand control message definition
  1934						CONMSG	;;Expand continue message definition
  1935						ACKMSG	;;Expand acknowledge message definition
  1936						ACPMSG	;;Expand access complete message definition
  1937						DATMSG	;;Expand data message definition
  1938						STSMSG	;;Expand status message definition
  1939						KDFMSG	;;Expand key definition message definition
  1940						ALCMSG	;;Expand allocation message definition
  1941						SUMMSG	;;Expand summary message definition
  1942						DTIMSG	;;Expand date time message definition
  1943						PROMSG	;;Expand file protection message definition
  1944						NAMMSG	;;Expand name message definition
  1945							;;File header characteristics message deleted
  1946						ACLMSG	;;Expand access control list message definition
  1947					
  1948						USRMSG	;;Expand user message definition
  1949					
  1950					> ;End of DOMSG definition
  1951
  1952					;Define macro to establish message names
  1953
  1954					DEFINE	XX (TYPE,VAL,NAM,FLAG) <
  1955						.DM'TYPE==VAL>
  1956
  1957					DEFINE	VV (VER) <>
  1958					DEFINE	YY (FIELD,TYPE,SIZE,DEFAULT) <>
  1959
  1960
  1961						DOMSG	^		;Define message names
  1962
  1963						END

NO ERRORS DETECTED

PROGRAM BREAK IS 000000
CPU TIME USED 00:05.588

23P CORE USED
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page S-1
DAPSYM	MAC	20-Aug-81 13:02		SYMBOL TABLE

AC$ACK		000002	spd	CF$FLU		000014	spd	DN.ERR		000013	spd	FB$FOD		000200	spd	
AC$EOS		000004	spd	CF$FND		000016	spd	DN.FLG		000000	spd	FB$FTN		000001	spd	
AC$PUR		000003	spd	CF$FRE		000012	spd	DN.HST		000001	spd	FB$GEN	000200	000000	spd	
AC$SKP		000005	spd	CF$GET		000001	spd	DN.INF		000015	spd	FB$GET		000002	spd	
AC$TRM		000001	spd	CF$MOD		000010	spd	DN.LOB		000003	spd	FB$HSH		000060	spd	
AF$CRE		000002	spd	CF$PUT		000004	spd	DN.OPT		000005	spd	FB$IDV		020000	spd	
AF$DIR		000006	spd	CF$RCG		000024	spd	DN.PWD		000006	spd	FB$IDX		000040	spd	
AF$ERA		000004	spd	CF$RCP		000025	spd	DN.ROB		000002	spd	FB$LKO		400000	spd	
AF$EXE		000010	spd	CF$REL		000011	spd	DN.ROP		000011	spd	FB$LSA		000100	spd	
AF$OPN		000001	spd	CF$REW		000006	spd	DN.RPC		000012	spd	FB$MBX	000001	000000	spd	
AF$PRN		000102	spd	CF$SFB		000022	spd	DN.USR		000010	spd	FB$MCY		000200	spd	
AF$REN		000003	spd	CF$SFF		000021	spd	DN.WRN		000014	spd	FB$MDI		000010	spd	
AF$SUB		000007	spd	CF$TRN		000007	spd	DO%LNK		000077	spd	FB$MKD		004000	spd	
AF$TYP		000101	spd	CF$UPD		000003	spd	DO%OBJ	000277	000000	spd	FB$MNT		002000	spd	
AL$AID		000100	spd	CO$ABO		000003	spd	DO%PSI	200000	000000	spd	FB$MXV	000002	000000	spd	
AL$ALN		000002	spd	CO$RES		000004	spd	DO%SRV	400000	000000	spd	FB$NEF		001000	spd	
AL$ALQ		000040	spd	CO$SKP		000002	spd	DO%WCN	100000	000000	spd	FB$NET	000100	000000	spd	
AL$AOP		000004	spd	CO$TRY		000001	spd	DP$EXF		000200	spd	FB$NIL		000100	spd	
AL$BKZ		000200	spd	CT$DSP		000040	spd	DT$ASC		000001	spd	FB$NUL		000100	spd	
AL$DEQ		000400	spd	CT$HSH		000020	spd	DT$BT6		000100	spd	FB$ODV		040000	spd	
AL$LOC		000010	spd	CT$KEY		000002	spd	DT$CMP		000010	spd	FB$OFP	001000	000000	spd	
AL$RFI		000020	spd	CT$KRF		000004	spd	DT$EBC		000004	spd	FB$POS		000010	spd	
AL$VOL		000001	spd	CT$RAC		000001	spd	DT$EXE		000020	spd	FB$PRN		000004	spd	
AO$CRC		000010	spd	CT$ROP		000010	spd	DT$EXP		000040	spd	FB$PUT		000001	spd	
AO$DGU		000001	spd	D$CLOS		000000	ext	DT$IMA		000002	spd	FB$RAD	000004	000000	spd	
AO$GO		000020	spd	D$FUNC		000000	ext	DT$SEN		000200	spd	FB$RCK		100000	spd	
AO$RSR		000004	spd	D$INIT		000000	ext	ER$TYP		000010	spd	FB$REA		000042	spd	
AO$RSS		000002	spd	D$INTR		000000	ext	ER$UNS		000000	spd	FB$REC		000001	spd	
AT$ALQ		000100	spd	D$OPEN		000000	ext	ER%FLD		000077	spd	FB$REL		000020	spd	
AT$BKS		000200	spd	D$STAT		000000	ext	ER%MAC		170000	spd	FB$RTM	000002	000000	spd	
AT$BLS		000020	spd	DA$CDT		000001	spd	ER%MIC		007777	spd	FB$RWC		000002	spd	
AT$BSZ		020000	spd	DA$EDT		000004	spd	ER%TYP		007700	spd	FB$RWO		000001	spd	
AT$DAT		000001	spd	DA$RDT		000002	spd	FB$ALL		010000	spd	FB$SDI		000020	spd	
AT$DEQ		004000	spd	DA$RVN		000010	spd	FB$AVL		200000	spd	FB$SEQ		000000	spd	
AT$DEV		040000	spd	DC%COD		777777	spd	FB$BIO		000040	spd	FB$SHR		000400	spd	
AT$EBK	000001	000000	spd	DC%LEN	777777	000000	spd	FB$BLK		000010	spd	FB$SMS		000020	spd	
AT$FFB	000002	000000	spd	DF%ACC	777000	000000	spd	FB$BRO		000100	spd	FB$SPD		001000	spd	
AT$FOP		010000	spd	DF%DAT	776000	000000	spd	FB$CBL		000040	spd	FB$SPL	000004	000000	spd	
AT$FSZ		000400	spd	DF%LNK		000077	spd	FB$CBT	000040	000000	spd	FB$SQD		000040	spd	
AT$HBK		400000	spd	DF%MRS		177777	spd	FB$CCL		000002	spd	FB$SQO	000001	000000	spd	
AT$LRL		200000	spd	DF%RAT	000177	400000	spd	FB$CIF		200000	spd	FB$STM		000004	spd	
AT$MRN		001000	spd	DF%RFM	001600	000000	spd	FB$CR		000002	spd	FB$SUB	000010	000000	spd	
AT$MRS		000040	spd	DI$ACA		000200	spd	FB$CTG		000200	spd	FB$SUP		000400	spd	
AT$ORG		000002	spd	DI$ALC		000004	spd	FB$DEL	000020	000000	spd	FB$SWL		100000	spd	
AT$RAT		000010	spd	DI$ATT		000001	spd	FB$DFW	000200	000000	spd	FB$TEF	000400	000000	spd	
AT$RFM		000004	spd	DI$DTI		000020	spd	FB$DLK		000020	spd	FB$TMP		002000	spd	
AT$RSY		002000	spd	DI$KDA		000002	spd	FB$DLT		000004	spd	FB$TRM		000004	spd	
AT$SBN	000004	000000	spd	DI$NAM		000400	spd	FB$DMO		020000	spd	FB$TRN		000020	spd	
AT$SDC		100000	spd	DI$PRO		000040	spd	FB$DMT		004000	spd	FB$UDF		000000	spd	
CF$CKP		000023	spd	DI$SUM		000010	spd	FB$DRC	000010	000000	spd	FB$UIL		000040	spd	
CF$CON		000002	spd	DI%CNT		000077	spd	FB$DWC	000020	000000	spd	FB$UPD		000010	spd	
CF$DEL		000005	spd	DN%DTS	400000	000000	spd	FB$EBF		000020	spd	FB$VAR		000002	spd	
CF$DSP		000020	spd	DN%SPL	200000	000000	spd	FB$ELG		400000	spd	FB$VFC		000003	spd	
CF$EOV		000015	spd	DN.ACN		000007	spd	FB$FGN	000040	000000	spd	FB$WAT	000100	000000	spd	
CF$EXT		000017	spd	DN.BSZ		000004	spd	FB$FIX		000001	spd	FB$WCK		040000	spd	
DAPSYM	MACRO %53B(1215) 09:53  6-May-82 Page S-2
DAPSYM	MAC	20-Aug-81 13:02		SYMBOL TABLE

FB$WRT		000041	spd	RB$SEQ		000000	spd	XB$CTG		000002	spd	.DOSIZ		000015	spd	
HD$BCT		000010	spd	RB$SQF		000003	spd	XB$CYL		000001	spd	.DOSSZ		000014	spd	
HD$LEN		000002	spd	RB$TPT		000100	spd	XB$DUP		000001	spd	.DOTSK		000004	spd	
HD$LN2		000004	spd	RB$UIF		000004	spd	XB$HRD		000001	spd	.DOUIC		000011	spd	
HD$SEG		000020	spd	RB$ULK		000040	spd	XB$LBN		000002	spd	.DOUSR		000005	spd	
HD$SID		000001	spd	RB$VBN		000004	spd	XB$NUL		000004	spd	.DVMAJ		000005	spd	
KO$DAN		001000	spd	RB$WBH		000400	spd	XB$RFI		000010	spd	.DVMIN		000006	spd	
KO$DBS		040000	spd	SU$NOA		000002	spd	XB$VBN		000004	spd	.DVSFT		000002	spd	
KO$DFL		000002	spd	SU$NOK		000001	spd	.DCCOD		000000	spd	.DVUSF		000000	spd	
KO$DTP		002000	spd	SU$NOR		000004	spd	.DCPTR		000001	spd	.DVUSR		000000	spd	
KO$DVB		020000	spd	SU$PVN		000010	spd	.DCSIZ		000002	spd	.FSFCS		000004	spd	
KO$FLG		000001	spd	SY$ACA	002000	000000	spd	.DFDFS		000007	spd	.FSOS8		000011	spd	
KO$HAL		010000	spd	SY$ALC	000040	000000	spd	.DFFLG		000000	spd	.FSRM1		000001	spd	
KO$IAN		000200	spd	SY$APP		020000	spd	.DFLFA		000002	spd	.FSRM2		000002	spd	
KO$IBS		100000	spd	SY$BCT	400000	000000	spd	.DFLFS		000003	spd	.FSRM3		000003	spd	
KO$IFL		000004	spd	SY$BLK	000001	000000	spd	.DFNFS		000010	spd	.FSRT1		000005	spd	
KO$KNM		000040	spd	SY$CMP		100000	spd	.DFPSW		000011	spd	.FST10		000010	spd	
KO$LAN		000400	spd	SY$CRC	000010	000000	spd	.DFRFA		000004	spd	.FST20		000007	spd	
KO$LVL		200000	spd	SY$DEL	020000	000000	spd	.DFRFO		000005	spd	.FSUSP		000006	spd	
KO$MRL	000001	000000	spd	SY$DFS	040000	000000	spd	.DFRFS		000006	spd	.OSIAS		000006	spd	
KO$NSG		000010	spd	SY$DIR	000200	000000	spd	.DFRTN		000001	spd	.OSOS8		000012	spd	
KO$NUL		000100	spd	SY$DTI	000400	000000	spd	.DFSIZ		000012	spd	.OSRST		000002	spd	
KO$REF		000020	spd	SY$EXE		040000	spd	.DIACP		000004	spd	.OSRT		000001	spd	
KO$RVB		004000	spd	SY$GO		000010	spd	.DICDN		000001	spd	.OSRXD		000005	spd	
KO$TKS		400000	spd	SY$IDX		000020	spd	.DIDAV		000003	spd	.OSRXM		000004	spd	
NA$DFS		000020	spd	SY$KDA	000020	000000	spd	.DIFLG		000000	spd	.OSRXP		000013	spd	
NA$DIR		000004	spd	SY$KEY		000400	spd	.DIINA		000002	spd	.OSRXS		000003	spd	
NA$FNM		000002	spd	SY$LN2	000004	000000	spd	.DIMSG		000001	spd	.OSTP1		000011	spd	
NA$FSP		000001	spd	SY$MDS		200000	spd	.DISIZ		000002	spd	.OSTP2		000010	spd	
NA$RFS		000040	spd	SY$MIX		004000	spd	.DMACC		000003	spd	.OSVAX		000007	spd	
NA$VOL		000010	spd	SY$NAM		000020	spd	.DMACK		000006	spd	
PR$DAA		000020	spd	SY$PRE		000001	spd	.DMACL		000021	spd	
PR$DCA		000200	spd	SY$PRO	001000	000000	spd	.DMACP		000007	spd	
PR$DDA		000010	spd	SY$RCV	200000	000000	spd	.DMALC		000013	spd	
PR$DEA		000004	spd	SY$RDR		000100	spd	.DMATT		000002	spd	
PR$DLA		000040	spd	SY$REL		000004	spd	.DMCFG		000001	spd	
PR$DRA		000001	spd	SY$REN		000002	spd	.DMCON		000005	spd	
PR$DUA		000100	spd	SY$RFA		002000	spd	.DMCTL		000004	spd	
PR$DWA		000002	spd	SY$SEQ		000002	spd	.DMDAT		000010	spd	
PR$DXA		000400	spd	SY$SPL	004000	000000	spd	.DMDTI		000015	spd	
PR$GRP		000010	spd	SY$SQA		000040	spd	.DMKDF		000012	spd	
PR$OWN		000001	spd	SY$SRA	100000	000000	spd	.DMNAM		000017	spd	
PR$SLF		000004	spd	SY$STS		400000	spd	.DMPRO		000016	spd	
PR$SYS		000002	spd	SY$SUB	010000	000000	spd	.DMSTS		000011	spd	
PR$WLD		000020	spd	SY$SUM	000100	000000	spd	.DMSUM		000014	spd	
RB$BKF		000005	spd	SY$SWA		010000	spd	.DMUSR		000200	spd	
RB$EOF		000001	spd	SY$UBK	000002	000000	spd	.DOACT		000007	spd	
RB$FDL		000002	spd	SY$UHS		001000	spd	.DOCID		000013	spd	
RB$HSH		000010	spd	SY$VBN		000200	spd	.DODSC		000003	spd	
RB$KEY		000001	spd	SY$WLD		000004	spd	.DOFLG		000000	spd	
RB$KGE		001000	spd	SY$WRN		000001	spd	.DONOD		000001	spd	
RB$KGT		002000	spd	US$ACC		000002	spd	.DOOBJ		000002	spd	
RB$LOA		000020	spd	US$IDN		000001	spd	.DOOPD		000010	spd	
RB$RAH		000200	spd	US$OPT		000004	spd	.DOPSI		000012	spd	
RB$RFA		000002	spd	XB$CHG		000002	spd	.DOPSW		000006	spd	
AC$ACK	  1056#
AC$EOS	  1058#
AC$PUR	  1057#
AC$SKP	  1059#
AC$TRM	  1055#
AF$CRE	   785#
AF$DIR	   788#
AF$ERA	   787#
AF$EXE	   790#
AF$OPN	   784#
AF$PRN	   795#
AF$REN	   786#
AF$SUB	   789#
AF$TYP	   794#
AL$AID	  1571#
AL$ALN	  1566#
AL$ALQ	  1570#
AL$AOP	  1567#
AL$BKZ	  1572#
AL$DEQ	  1573#
AL$LOC	  1568#
AL$RFI	  1569#
AL$VOL	  1565#
AO$CRC	   805#
AO$DGU	   800#
AO$GO	   806#
AO$RSR	   803#
AO$RSS	   801#
AT$ALQ	   580#
AT$BKS	   581#
AT$BLS	   578#
AT$BSZ	   587#
AT$DAT	   574#
AT$DEQ	   585#
AT$DEV	   588#
AT$EBK	   592#
AT$FFB	   593#
AT$FOP	   586#
AT$FSZ	   582#
AT$HBK	   591#
AT$LRL	   590#
AT$MRN	   583#
AT$MRS	   579#
AT$ORG	   575#
AT$RAT	   577#
AT$RFM	   576#
AT$RSY	   584#
AT$SBN	   594#
AT$SDC	   589#
CF$CKP	   916#
CF$CON	   899#
CF$DEL	   902#
CF$DSP	   913#
CF$EOV	   910#
CF$EXT	   912#
CF$FLU	   909#
CF$FND	   911#
CF$FRE	   907#
CF$GET	   898#
CF$MOD	   905#
CF$PUT	   901#
CF$RCG	   917#
CF$RCP	   918#
CF$REL	   906#
CF$REW	   903#
CF$SFB	   915#
CF$SFF	   914#
CF$TRN	   904#
CF$UPD	   900#
CO$ABO	   994#
CO$RES	   995#
CO$SKP	   993#
CO$TRY	   992#
CT$DSP	   929#
CT$HSH	   928#
CT$KEY	   925#
CT$KRF	   926#
CT$RAC	   924#
CT$ROP	   927#
D$CLOS	    98#
D$FUNC	   150#
D$INIT	    47#
D$INTR	   131#
D$OPEN	    61#
D$STAT	   119#
DA$CDT	  1697#
DA$EDT	  1699#
DA$RDT	  1698#
DA$RVN	  1700#
DC%COD	   113#
DC%LEN	   112#
DF%ACC	   164#
DF%DAT	   179#
DF%LNK	   165#
DF%MRS	   182#
DF%RAT	   181#
DF%RFM	   180#
DI$ACA	   843#
DI$ALC	   838#
DI$ATT	   836#
DI$DTI	   840#
DI$KDA	   837#
DI$NAM	   844#
DI$PRO	   841#
DI$SUM	   839#
DI%CNT	    57#
DN%DTS	    32#
DN%SPL	    33#
DN.ACN	    40#
DN.BSZ	    37#
DN.ERR	    44#
DN.FLG	    31#
DN.HST	    34#
DN.INF	    46#
DN.LOB	    36#
DN.OPT	    38#
DN.PWD	    39#
DN.ROB	    35#
DN.ROP	    42#
DN.RPC	    43#
DN.USR	    41#
DN.WRN	    45#
DO%LNK	    80#
DO%OBJ	    79#
DO%PSI	    77#
DO%SRV	    76#
DO%WCN	    78#
DP$EXF	   220#
DT$ASC	   600#
DT$BT6	   606#
DT$CMP	   603#
DT$EBC	   602#
DT$EXE	   604#
DT$EXP	   605#
DT$IMA	   601#
DT$SEN	   607#
ER$TYP	  1183#
ER$UNS	  1182#
ER%FLD	  1156#
ER%MAC	  1153#
ER%MIC	  1154#
ER%TYP	  1155#
FB$ALL	   708#
FB$AVL	   712#
FB$BIO	   819#	   821	   822
FB$BLK	   631#
FB$BRO	   820#
FB$CBL	   633#
FB$CBT	   683#
FB$CCL	   697#
FB$CIF	   676#
FB$CR	   629#
FB$CTG	   667#
FB$DEL	   682#
FB$DFW	   685#
FB$DLK	   664#
FB$DLT	   816#
FB$DMO	   673#
FB$DMT	   707#
FB$DRC	   717#
FB$DWC	   718#
FB$EBF	   632#
FB$ELG	   713#
FB$FGN	   719#
FB$FIX	   620#
FB$FOD	   703#
FB$FTN	   628#
FB$GEN	   721#
FB$GET	   815#	   821
FB$HSH	   615#
FB$IDV	   709#
FB$IDX	   614#
FB$LKO	   677#
FB$LSA	   634#
FB$MBX	   714#
FB$MCY	   635#
FB$MDI	   699#
FB$MKD	   671#
FB$MNT	   706#
FB$MXV	   679#
FB$NEF	   669#
FB$NET	   720#
FB$NIL	   829#
FB$NUL	   702#
FB$ODV	   710#
FB$OFP	   687#
FB$POS	   663#
FB$PRN	   630#
FB$PUT	   814#	   822
FB$RAD	   716#
FB$RCK	   675#
FB$REA	   821#
FB$REC	   696#
FB$REL	   613#
FB$RTM	   715#
FB$RWC	   661#
FB$RWO	   660#
FB$SDI	   700#
FB$SEQ	   612#
FB$SHR	   704#
FB$SMS	   827#
FB$SPD	   705#
FB$SPL	   680#
FB$SQD	   701#
FB$SQO	   678#
FB$STM	   623#
FB$SUB	   681#
FB$SUP	   668#
FB$SWL	   711#
FB$TEF	   686#
FB$TMP	   670#
FB$TRM	   698#
FB$TRN	   818#
FB$UDF	   619#
FB$UIL	   828#
FB$UPD	   817#
FB$VAR	   621#
FB$VFC	   622#
FB$WAT	   684#
FB$WCK	   674#
FB$WRT	   822#
HD$BCT	   228#
HD$LEN	   226#
HD$LN2	   227#
HD$SEG	   229#
HD$SID	   225#
KO$DAN	  1443#
KO$DBS	  1448#
KO$DFL	  1435#
KO$DTP	  1444#
KO$DVB	  1447#
KO$FLG	  1434#
KO$HAL	  1446#
KO$IAN	  1441#
KO$IBS	  1449#
KO$IFL	  1436#
KO$KNM	  1439#
KO$LAN	  1442#
KO$LVL	  1450#
KO$MRL	  1452#
KO$NSG	  1437#
KO$NUL	  1440#
KO$REF	  1438#
KO$RVB	  1445#
KO$TKS	  1451#
NA$DFS	  1835#
NA$DIR	  1833#
NA$FNM	  1832#
NA$FSP	  1831#
NA$RFS	  1836#
NA$VOL	  1834#
PR$DAA	  1776#
PR$DCA	  1779#
PR$DDA	  1775#
PR$DEA	  1774#
PR$DLA	  1777#
PR$DRA	  1772#
PR$DUA	  1778#
PR$DWA	  1773#
PR$DXA	  1780#
PR$GRP	  1760#
PR$OWN	  1757#
PR$SLF	  1759#
PR$SYS	  1758#
PR$WLD	  1761#
RB$BKF	   938#
RB$EOF	   949#
RB$FDL	   950#
RB$HSH	   952#
RB$KEY	   934#
RB$KGE	   958#
RB$KGT	   959#
RB$LOA	   953#
RB$RAH	   956#
RB$RFA	   935#
RB$SEQ	   933#
RB$SQF	   936#
RB$TPT	   955#
RB$UIF	   951#
RB$ULK	   954#
RB$VBN	   937#
RB$WBH	   957#
SU$NOA	  1645#
SU$NOK	  1644#
SU$NOR	  1646#
SU$PVN	  1647#
SY$ACA	   437#
SY$ALC	   432#
SY$APP	   422#
SY$BCT	   444#
SY$BLK	   427#
SY$CMP	   424#
SY$CRC	   430#
SY$DEL	   440#
SY$DFS	   441#
SY$DIR	   412#	   434#
SY$DTI	   435#
SY$EXE	   423#
SY$GO	   450#
SY$IDX	   413#
SY$KDA	   431#
SY$KEY	   417#
SY$LN2	   429#
SY$MDS	   425#
SY$MIX	   420#
SY$NAM	   451#
SY$PRE	   409#
SY$PRO	   436#
SY$RCV	   443#
SY$RDR	   415#
SY$REL	   411#
SY$REN	   448#
SY$RFA	   419#
SY$SEQ	   410#
SY$SPL	   438#
SY$SQA	   414#
SY$SRA	   442#
SY$STS	   426#
SY$SUB	   439#
SY$SUM	   433#
SY$SWA	   421#
SY$UBK	   428#
SY$UHS	   418#
SY$VBN	   416#
SY$WLD	   449#
SY$WRN	   447#
US$ACC	  1919#
US$IDN	  1918#
US$OPT	  1920#
XB$CHG	  1457#
XB$CTG	  1588#
XB$CYL	  1580#
XB$DUP	  1456#
XB$HRD	  1587#
XB$LBN	  1581#
XB$NUL	  1458#
XB$RFI	  1583#
XB$VBN	  1582#
.DCCOD	   111#
.DCPTR	   114#
.DCSIZ	   116#
.DFDFS	   172#
.DFFLG	   163#
.DFLFA	   167#
.DFLFS	   168#
.DFNFS	   173#
.DFPSW	   174#
.DFRFA	   169#
.DFRFO	   170#
.DFRFS	   171#
.DFRTN	   166#
.DFSIZ	   175#
.DIACP	   143#
.DICDN	   140#
.DIDAV	   142#
.DIFLG	    56#
.DIINA	   141#
.DIMSG	    58#
.DISIZ	    59#
.DMACC	  1962#
.DMACK	  1962#
.DMACL	  1962#
.DMACP	  1962#
.DMALC	  1962#
.DMATT	  1962#
.DMCFG	  1962#
.DMCON	  1962#
.DMCTL	  1962#
.DMDAT	  1962#
.DMDTI	  1962#
.DMKDF	  1962#
.DMNAM	  1962#
.DMPRO	  1962#
.DMSTS	  1962#
.DMSUM	  1962#
.DMUSR	  1962#
.DOACT	    87#
.DOCID	    94#
.DODSC	    83#
.DOFLG	    75#
.DONOD	    81#
.DOOBJ	    82#
.DOOPD	    88#
.DOPSI	    90#
.DOPSW	    86#
.DOSIZ	    96#
.DOSSZ	    95#
.DOTSK	    84#
.DOUIC	    89#
.DOUSR	    85#
.DVMAJ	   387#
.DVMIN	   391#
.DVSFT	   399#
.DVUSF	   403#
.DVUSR	   395#
.FSFCS	   378#
.FSOS8	   383#
.FSRM1	   375#
.FSRM2	   376#
.FSRM3	   377#
.FSRT1	   379#
.FST10	   382#
.FST20	   381#
.FSUSP	   380#
.OSIAS	   366#
.OSOS8	   370#
.OSRST	   362#
.OSRT	   361#
.OSRXD	   365#
.OSRXM	   364#
.OSRXP	   371#
.OSRXS	   363#
.OSTP1	   369#
.OSTP2	   368#
.OSVAX	   367#
ACCMSG	   765#	  1962
ACKMSG	  1015#	  1962
ACLMSG	  1859#	  1962
ACPMSG	  1039#	  1962
ALCMSG	  1542#	  1962
ATTMSG	   536#	  1962
CFGMSG	   337#	  1962
CONMSG	   981#	  1962
CTLMSG	   879#	  1962
DATMSG	  1092#	  1962
DO%CDN	    91#
DO%DAV	    92#
DO%INA	    93#
DOMSG	  1928#	  1961
DTIMSG	  1680#	  1962
KDFMSG	  1399#	  1962
MACCOD	  1162#
MICCOD	  1190#
MSGARG	   256#
NAMMSG	  1809#	  1962
PROMSG	  1740#	  1962
STSMSG	  1136#	  1962
SUMMSG	  1628#	  1962
USRMSG	  1903#	  1962
VV	  1957#	  1962
XX	  1954#	  1962
YY	  1958#	  1962