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