RMS0MODFY       MODIFY FUNCTION                                  21-AUG-1978 22:06:26   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)      40  DECLARATIONS

   (1)      63  RMS$MODIFY  -  $MODIFY ROUTINE

   (1)     127  PROCESS 'ESCAPE' SEQUENCE

RMS0MODFY       MODIFY FUNCTION                                  21-AUG-1978 22:06:26   VAX-11 MACRO X0.3-11               Page   1

002                                                                                                                              (1)



                                     0000     1 	$BEGIN RMS0MODFY,002,F$RMS0MISC,<MODIFY FUNCTION>

                                     0000     2 

                                     0000     3 

                                     0000     4 ;

                                     0000     5 ; COPYRIGHT (C) 1977

                                     0000     6 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754

                                     0000     7 ;

                                     0000     8 ; THIS SOFTWARE IS FURNISHED  UNDER A LICENSE FOR USE ONLY ON A SINGLE

                                     0000     9 ; COMPUTER  SYSTEM AND  MAY BE  COPIED ONLY WITH  THE INCLUSION OF THE

                                     0000    10 ; ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE, OR ANY OTHER COPIES THEREOF,

                                     0000    11 ; MAY NOT BE PROVIDED OR  OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON

                                     0000    12 ; EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE

                                     0000    13 ; TERMS.  TITLE TO AND  OWNERSHIP OF THE  SOFTWARE  SHALL AT ALL TIMES

                                     0000    14 ; REMAIN IN DEC.

                                     0000    15 ;

                                     0000    16 ; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE

                                     0000    17 ; AND SHOULD  NOT BE CONSTRUED  AS A COMMITMENT  BY DIGITAL  EQUIPMENT

                                     0000    18 ; CORPORATION.

                                     0000    19 ;

                                     0000    20 ; DEC ASSUMES  NO  RESPONSIBILITY  FOR  THE USE OR  RELIABILITY OF ITS

                                     0000    21 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.

                                     0000    22 ;

                                     0000    23 ;++

                                     0000    24 ; FACILITY: RMS32

                                     0000    25 ;

                                     0000    26 ; ABSTRACT:

                                     0000    27 ;		THIS MODULE PERFORMS THE $MODIFY FUNCTION.

                                     0000    28 ;

                                     0000    29 ; ENVIRONMENT:

                                     0000    30 ;		STAR PROCESSOR RUNNING STARLET EXEC.

                                     0000    31 ;

                                     0000    32 ; AUTHOR: L F LAVERDURE,	 CREATION DATE: 21-JUN-77

                                     0000    33 ;

                                     0000    34 ; MODIFIED BY:

                                     0000    35 ;

                                     0000    36 ;	L F LAVERDURE,   11-AUG-77  17:47

                                     0000    37 ; 01	- 

                                     0000    38 ;--

RMS0MODFY       MODIFY FUNCTION                                  21-AUG-1978 22:06:26   VAX-11 MACRO X0.3-11               Page   2

002             DECLARATIONS                                                                                                     (1)



                                     0000    40 	.SBTTL	DECLARATIONS

                                     0000    41 ;

                                     0000    42 ; INCLUDE FILES:

                                     0000    43 ;

                                     0000    44 

                                     0000    45 ;

                                     0000    46 ; MACROS:

                                     0000    47 ;

                                     0000    48 

                                     0000    49 	$IFBDEF

                                     0000    50 	$FABDEF

                                     0000    51 	$RMEDEF

                                     0000    52 	$RMSDEF

                                     0000    53 	.LIST MEB

                                     0000    54 ;

                                     0000    55 ; EQUATED SYMBOLS:

                                     0000    56 ;

                           00000020  0000    57 	FOP=FAB$L_FOP*8		; BIT OFFSET TO FOP

                                     0000    58 

                                     0000    59 ;

                                     0000    60 ; OWN STORAGE:

                                     0000    61 ;

RMS0MODFY       MODIFY FUNCTION                                  21-AUG-1978 22:06:26   VAX-11 MACRO X0.3-11               Page   3

002             RMS$MODIFY  -  $MODIFY ROUTINE                                                                                   (1)



                                     0000    63 	.SBTTL RMS$MODIFY  -  $MODIFY ROUTINE

                                     0000    64 

                                     0000    65 ;++

                                     0000    66 ; FUNCTIONAL DESCRIPTION:

                                     0000    67 ;

                                     0000    68 ;  THIS ROUTINE PERFORMS THE $MODIFY PROCESSING.

                                     0000    69 ;  IT HAS TWO MAIN FUNCTIONS:

                                     0000    70 ;

                                     0000    71 ;	1. TO REWRITE MODIFIED FILE ATTRIBUTES

                                     0000    72 ;	2. TO PROVIDE AN 'ESCAPE' MECHANISM TO PERFORM NON-STANDARD

                                     0000    73 ;	   RMS FUNCTIONS.

                                     0000    74 ;

                                     0000    75 ;

                                     0000    76 ; CALLING SEQUENCE:

                                     0000    77 ;

                                     0000    78 ;	ENTERED FROM EXEC AS A RESULT OF USER'S CALLING SYS$MODIFY

                                     0000    79 ;	(E.G., BY USING THE $MODIFY MACRO).

                                     0000    80 ;

                                     0000    81 ; INPUT PARAMETERS:

                                     0000    82 ;

                                     0000    83 ;	AP	USER'S ARGUMENT LIST ADDR

                                     0000    84 ;

                                     0000    85 ; IMPLICIT INPUTS:

                                     0000    86 ;

                                     0000    87 ;	THE CONTENTS OF THE FAB AND POSSIBLE RELATED USER INTERFACE

                                     0000    88 ;	BLOCKS.

                                     0000    89 ;

                                     0000    90 ; OUTPUT PARAMETERS:

                                     0000    91 ;

                                     0000    92 ;	R0	STATUS CODE

                                     0000    93 ;	R1	DESTROYED

                                     0000    94 ;

                                     0000    95 ; IMPLICIT OUTPUTS:

                                     0000    96 ;

                                     0000    97 ;	THE IFAB AND ALL RELATED INTERNAL RMS STRUCTURES ARE MODIFIED

                                     0000    98 ;	AS PER THE REQUREMENTS OF THE OPERATION.

                                     0000    99 ;	FAB$L_STS AND FAB$L_STV

                                     0000   100 ;

                                     0000   101 ;	A COMPLETION AST IS QUEUED IF SO SPECIFIED BY THE USER.

                                     0000   102 ;

                                     0000   103 ; COMPLETION CODES:

                                     0000   104 ;

                                     0000   105 ;	STANDARD RMS (SEE FUNCTIONAL SPEC FOR LIST).

                                     0000   106 ;

                                     0000   107 ; SIDE EFFECTS:

                                     0000   108 ;

                                     0000   109 ;	DEPENDENT UPON THE TYPE OF MODIFY

                                     0000   110 ;

                                     0000   111 ;--

RMS0MODFY       MODIFY FUNCTION                                  21-AUG-1978 22:06:26   VAX-11 MACRO X0.3-11               Page   4

002             RMS$MODIFY  -  $MODIFY ROUTINE                                                                                   (1)



                                     0000   113 	$ENTRY	RMS$MODIFY

                                 00000000       	.PSECT	F$RMS0MISC,GBL,NOWRT

                          FFFD'  30  0000   114 	BSBW	RM$FSET			;DO COMMON SETUP

                                     0003   115 					;NOTE: DOES NOT RETURN ON ERROR

                                     0003   116 ;

                                     0003   117 ;  CHECK FOR MODIFY OF 'ESCAPE' TYPE AND BRANCH IF BIT SET

                                     0003   118 ;

            68            3B     E0  0003   119 	BBS	#FAB$V_ESC+FOP,(R8),ESCAPE	;BRANCH IF 'ESCAPE'

                          08         0006       

                                     0007   120 ;

                                     0007   121 ;  'NORMAL' MODIFY OF FILE ATTRIBUTES

                                     0007   122 ;

                                     0007   123 ; \NOT YET IMPLEMENTED!\

            50       0000'8F     3C  0007   124 	MOVZWL	#SS$_ILLSER,R0

                          FFF1'  31  000C   125 MODXIT:	BRW	RM$EXRMS

RMS0MODFY       MODIFY FUNCTION                                  21-AUG-1978 22:06:26   VAX-11 MACRO X0.3-11               Page   5

002             PROCESS 'ESCAPE' SEQUENCE                                                                                        (1)



                                     000F   127 	.SBTTL	PROCESS 'ESCAPE' SEQUENCE

                                     000F   128 ;

                                     000F   129 ;++

                                     000F   130 ; FUNCTIONAL DESCRIPTION:

                                     000F   131 ;

                                     000F   132 ;  THE ESC BIT WAS SET IN FOP INDICATING THAT THE CALLER DESIRES

                                     000F   133 ;  TO EXECUTE ONE OF THE 'ESCAPE SEQUENCES', OTHERWISE KNOWN AS

                                     000F   134 ;  'BACK DOORS' OR 'KLUDGES', THAT IS, WAYS OF TRICKING RMS INTO

                                     000F   135 ;  THINKING THAT THE SITUATION IS OTHER THAN RMS'S CURRENT VIEW OF IT.

                                     000F   136 ;  THESE WILL, HOPEFULLY, REMAIN FEW IN NUMBER.  IMPLEMENTING THESE

                                     000F   137 ;  AS A SERVICE IS NECESSARY DUE TO THE REQUIREMENT FOR EXEC MODE

                                     000F   138 ;  PRIVILEGES AND ADDITIONALLY GIVES US A HANDLE ON THE EXTENT OF THE

                                     000F   139 ;  CANCER.  IMPROPER USE OF AN ESCAPE SEQUENCE CAN BLOW RMS OUT OF THE

                                     000F   140 ;  WATER.

                                     000F   141 ;

                                     000F   142 ; CALLIING SEQUENCE:

                                     000F   143 ;

                                     000F   144 ;	AS ABOVE.

                                     000F   145 ;

                                     000F   146 ; INPUT PARAMETERS:

                                     000F   147 ;

                                     000F   148 ;	FAB$V_CTX	'RME' CODE DEFINING WHICH ESCAPE SEQUENCE IS DESIRED.

                                     000F   149 ;	OTHER FAB FIELDS	AS REQUIRED BY PARTICULAR ESCAPE SEQUENCE

                                     000F   150 ;

                                     000F   151 ; OUTPUT PARAMETERS:

                                     000F   152 ;

                                     000F   153 ;	STS,STV

                                     000F   154 ;

                                     000F   155 ; 	OTHER FAB & IFAB FIELDS			"

                                     000F   156 ;

                                     000F   157 ; COMPLETION CODES:

                                     000F   158 ;

                                     000F   159 ;	STANDARD RMS.

                                     000F   160 ;

                                     000F   161 ; SIDE EFFECTS:

                                     000F   162 ;

                                     000F   163 ;	UNKNOWN, POTENTIALLY FATAL IF MISUSED.

                                     000F   164 ;

                                     000F   165 ;--

                                     000F   166 ESCAPE:	$TSTPT	MODIFY2

                 00000200'9F     D6  000F       		INCL	@#PIO$GL_FMLH+512+TPT$L_MODIFY2

                                     0015   167 	RMSERR	IAL				;ANTICIPATE ERROR

            50       854C 8F     3C  0015       		MOVZWL	#<RMS$_IAL&^XFFFF>,R0

            01         18 A8     D1  001A   168 	CMPL	FAB$L_CTX(R8),#RME$C_SETRFM	;KNOWN 'ESCAPE' TYPE?

                          EC     12  001E   169 	BNEQ	MODXIT				;BRANCH IF NOT

RMS0MODFY       MODIFY FUNCTION                                  21-AUG-1978 22:06:26   VAX-11 MACRO X0.3-11               Page   6

002             PROCESS 'ESCAPE' SEQUENCE                                                                                        (1)



                                     0020   171 ;++

                                     0020   172 ;  ESCAPE TYPE ONE  -  SET RFM

                                     0020   173 ;

                                     0020   174 ;  INPUTS:

                                     0020   175 ;

                                     0020   176 ;	RFM,MRS, AND FSZ (IF VFC)

                                     0020   177 ;

                                     0020   178 ;  OUTPUTS:

                                     0020   179 ;

                                     0020   180 ;	RELATED IFAB FIELDS ARE CHANGED TO VALUES SPECIFIED BY INPUTS.

                                     0020   181 ;

                                     0020   182 ;  NOTES:

                                     0020   183 ;

                                     0020   184 ;	1.  USER IS RESPONSIBLE FOR SAVING THE PREVIOUS CONTENTS OF THE

                                     0020   185 ;	    RFM, MRS, AND FSZ FIELDS IF NEEDED FOR LATER RESTORE

                                     0020   186 ;

                                     0020   187 ;	2.  IF THE FILE IS ACCESSED FOR PUT, FINAL ATTRIBUTES WRITTEN

                                     0020   188 ;	    TO THE FILE ON CLOSE WILL BE THOSE CURRENTLY IN EFFECT

                                     0020   189 ;

                                     0020   190 ;	3.  THERE ARE NO DEFAULT VALUES FOR ANY OF THE INPUT FIELDS

                                     0020   191 ;

                                     0020   192 ;	4.  IF SETTING RFM TO UDF AND NOT BLOCK I/O ACCESSED, RESULTS

                                     0020   193 ;	    ARE UNPREDICTABLE

                                     0020   194 ;

                                     0020   195 ;	5.  IF SETTING RFM TO FIX AND MRS IS 0, AN ERROR IS GENERATED

                                     0020   196 ;	    BUT FURTHER RMS CALLS WILL PRODUCE UNPREDICTABLE RESULTS

                                     0020   197 ;--

                                     0020   198 	RMSERR	RFM				;ANTICIPATE PROBLEMS

            50       8664 8F     3C  0020       		MOVZWL	#<RMS$_RFM&^XFFFF>,R0

            03         1F A8     91  0025   199 	CMPB	FAB$B_RFM(R8),#FAB$C_MAXRFM	;WITHIN RANGE?

                          E1     1A  0029   200 	BGTRU	MODXIT				;BRANCH IF NOT

                                     002B   201 	ASSUME	FAB$C_VFC EQ FAB$C_MAXRFM

                          05     12  002B   202 	BNEQ	10$				;BRANCH IF NOT VFC FORMAT

         4B A9         3F A8     90  002D   203 	MOVB	FAB$B_FSZ(R8),IFB$B_FSZ(R9)	;SET FSZ

         3C A9         1F A8     90  0032   204 10$:	MOVB	FAB$B_RFM(R8),IFB$B_RFMORG(R9)	;SET RFM

         4C A9         36 A8     B0  0037   205 	MOVW	FAB$W_MRS(R8),IFB$W_MRS(R9)	;SET MRS

            01         1F A8     91  003C   206 	CMPB	FAB$B_RFM(R8),#FAB$C_FIX	;FIXED RFM?

                          0C     12  0040   207 	BNEQ	20$				;BRANCH IF NOT

                                     0042   208 	RMSERR	MRS				;ANTICIPATE PROBLEM

            50       85D4 8F     3C  0042       		MOVZWL	#<RMS$_MRS&^XFFFF>,R0

         3E A9         36 A8     B0  0047   209 	MOVW	FAB$W_MRS(R8),IFB$W_LRL(R9)	;SET LRL

                          BE     13  004C   210 	BEQL	MODXIT				;BRANCH IF ZERO (ERROR)

                                     004E   211 20$:	RMSSUC

            50            01     D0  004E       		MOVL	#1,R0

                          B9     11  0051   212 	BRB	MODXIT

                                     0053   213 	.END

RMS0MODFY       MODIFY FUNCTION                                  21-AUG-1978 22:06:26   VAX-11 MACRO X0.3-11               Page   7

SYMBOL TABLE                                                                                                                     (1)



$$.PSECT_EP    = 00000000            FAB$M_EXE      = 00000080            FAB$V_JNL      = 00000016            

$$RMSTEST      = 0000001A            FAB$M_FTN      = 00000001            FAB$V_KFO      = 0000001E            

$$RMS_PBUGCHK  = 00000010            FAB$M_GET      = 00000002            FAB$V_MSE      = 00000004            

$$RMS_TBUGCHK  = 00000008            FAB$M_INP      = 00080000            FAB$V_MXV      = 00000001            

$$RMS_UMODE    = 00000004            FAB$M_JNL      = 00400000            FAB$V_NAM      = 00000018            

BIT...         = 0001C134            FAB$M_KFO      = 40000000            FAB$V_NEF      = 0000000A            

ESCAPE           0000000F R     02   FAB$M_MSE      = 00000010            FAB$V_NFS      = 00000010            

FAB$B_BID        00000000            FAB$M_MXV      = 00000002            FAB$V_NIL      = 00000005            

FAB$B_BKS        0000003E            FAB$M_NAM      = 01000000            FAB$V_OFP      = 0000001D            

FAB$B_BLN        00000001            FAB$M_NEF      = 00000400            FAB$V_ORG      = 00000004            

FAB$B_DNS        00000035            FAB$M_NFS      = 00010000            FAB$V_POS      = 00000008            

FAB$B_FAC        00000016            FAB$M_NIL      = 00000020            FAB$V_PPF      = 00000012            

FAB$B_FNS        00000034            FAB$M_OFP      = 20000000            FAB$V_PPF_IND  = 0000000E            

FAB$B_FSZ        0000003F            FAB$M_POS      = 00000100            FAB$V_PPF_RAT  = 00000006            

FAB$B_ORG        0000001D            FAB$M_PPF      = 00040000            FAB$V_PRN      = 00000002            

FAB$B_RAT        0000001E            FAB$M_PPF_IND  = 00004000            FAB$V_PUT      = 00000000            

FAB$B_RFM        0000001F            FAB$M_PPF_RAT  = 00003FC0            FAB$V_RCK      = 00000017            

FAB$B_RTV        0000001C            FAB$M_PRN      = 00000004            FAB$V_RWC      = 0000000B            

FAB$B_SHR        00000017            FAB$M_PUT      = 00000001            FAB$V_RWO      = 00000007            

FAB$C_BID      = 00000003            FAB$M_RCK      = 00800000            FAB$V_SCF      = 0000000E            

FAB$C_BLN        00000050            FAB$M_RWC      = 00000800            FAB$V_SHRDEL   = 00000002            

FAB$C_FIX      = 00000001            FAB$M_RWO      = 00000080            FAB$V_SHRGET   = 00000001            

FAB$C_HSH      = 00000030            FAB$M_SCF      = 00004000            FAB$V_SHRPUT   = 00000000            

FAB$C_IDX      = 00000020            FAB$M_SHRDEL   = 00000004            FAB$V_SHRUPD   = 00000003            

FAB$C_MAXRFM   = 00000003            FAB$M_SHRGET   = 00000002            FAB$V_SPL      = 0000000D            

FAB$C_REL      = 00000010            FAB$M_SHRPUT   = 00000001            FAB$V_SQO      = 00000006            

FAB$C_RFM_DFLT = 00000002            FAB$M_SHRUPD   = 00000008            FAB$V_SUP      = 00000002            

FAB$C_SEQ      = 00000000            FAB$M_SPL      = 00002000            FAB$V_TEF      = 0000001C            

FAB$C_UDF      = 00000000            FAB$M_SQO      = 00000040            FAB$V_TMD      = 00000004            

FAB$C_VAR      = 00000002            FAB$M_SUP      = 00000004            FAB$V_TMP      = 00000003            

FAB$C_VFC      = 00000003            FAB$M_TEF      = 10000000            FAB$V_TRN      = 00000004            

FAB$K_BLN        00000050            FAB$M_TMD      = 00000010            FAB$V_UFM      = 0000001A            

FAB$L_ALQ        00000010            FAB$M_TMP      = 00000008            FAB$V_UFO      = 00000011            

FAB$L_CTX        00000018            FAB$M_TRN      = 00000010            FAB$V_UPD      = 00000003            

FAB$L_DEV        00000040            FAB$M_UFM      = 04000000            FAB$V_UPI      = 00000006            

FAB$L_DNA        00000030            FAB$M_UFO      = 00020000            FAB$V_WCK      = 00000009            

FAB$L_FNA        0000002C            FAB$M_UPD      = 00000008            FAB$W_BLS        0000003C            

FAB$L_FOP        00000004            FAB$M_UPI      = 00000040            FAB$W_DEQ        00000014            

FAB$L_JNL        00000020            FAB$M_WCK      = 00000200            FAB$W_IFI        00000002            

FAB$L_MRN        00000038            FAB$S_ORG      = 00000004            FAB$W_MRS        00000036            

FAB$L_NAM        00000028            FAB$S_PPF_RAT  = 00000008            FOP            = 00000020            

FAB$L_SDC        00000044            FAB$V_BIO      = 00000005            GBL...         = 00000000            

FAB$L_STS        00000008            FAB$V_BLK      = 00000003            IFB$B_AMAX       00000059            

FAB$L_STV        0000000C            FAB$V_BRO      = 00000006            IFB$B_AVBN       00000058            

FAB$L_XAB        00000024            FAB$V_CBT      = 00000015            IFB$B_BID        00000008            

FAB$M_BIO      = 00000020            FAB$V_CIF      = 00000019            IFB$B_BKS        0000004A            

FAB$M_BLK      = 00000008            FAB$V_CR       = 00000001            IFB$B_BLN        00000009            

FAB$M_BRO      = 00000040            FAB$V_CTG      = 00000014            IFB$B_EFN        0000000B            

FAB$M_CBT      = 00200000            FAB$V_DEL      = 00000002            IFB$B_EXTRABUF   0000005D            

FAB$M_CIF      = 02000000            FAB$V_DFW      = 00000005            IFB$B_FAC        00000022            

FAB$M_CR       = 00000002            FAB$V_DLT      = 0000000F            IFB$B_FSZ        0000004B            

FAB$M_CTG      = 00100000            FAB$V_DMO      = 0000000C            IFB$B_KBUFSZ     0000005C            

FAB$M_DEL      = 00000004            FAB$V_ESC      = 0000001B            IFB$B_MODE       0000000A            

FAB$M_DFW      = 00000020            FAB$V_EXE      = 00000007            IFB$B_NUM_KEYS   0000005A            

FAB$M_DLT      = 00008000            FAB$V_FTN      = 00000000            IFB$B_ORGCASE    00000023            

FAB$M_DMO      = 00001000            FAB$V_GET      = 00000001            IFB$B_RAT        0000003D            

FAB$M_ESC      = 08000000            FAB$V_INP      = 00000013            IFB$B_RFMORG     0000003C            

RMS0MODFY       MODIFY FUNCTION                                  21-AUG-1978 22:06:26   VAX-11 MACRO X0.3-11               Page   8

SYMBOL TABLE                                                                                                                     (1)



IFB$B_UBUFSZ     0000005B            IFB$V_BUSY     = 00000020            RMS$_AOP       = 00018414            

IFB$C_BID      = 0000000B            IFB$V_CREATE   = 00000032            RMS$_ATR       = 0001C0CC            

IFB$C_BLN        00000060            IFB$V_DAP      = 0000003E            RMS$_ATW       = 0001C0D4            

IFB$C_BLN_IDX    00000060            IFB$V_DAP_OPEN = 0000003D            RMS$_BKS       = 0001841C            

IFB$C_BLN_REL    00000060            IFB$V_DEL      = 00000002            RMS$_BKZ       = 00018424            

IFB$C_BLN_SEQ    0000005C            IFB$V_DFW      = 0000002C            RMS$_BLN       = 0001842C            

IFB$C_DIR      = 00000003            IFB$V_DLT      = 0000002B            RMS$_BOF       = 00018198            

IFB$C_FHAEND     00000050            IFB$V_DMO      = 00000028            RMS$_BUG       = 00018434            

IFB$C_IDX      = 00000002            IFB$V_EOF      = 00000021            RMS$_BUG_DAP   = 00018444            

IFB$C_MAXORG   = 00000002            IFB$V_EXE      = 00000007            RMS$_BUG_DDI   = 0001843C            

IFB$C_REL      = 00000001            IFB$V_GET      = 00000001            RMS$_BUG_XX2   = 0001844C            

IFB$C_SEQ      = 00000000            IFB$V_MSE      = 00000031            RMS$_BUG_XX3   = 00018454            

IFB$K_BLN        00000060            IFB$V_NORECLK  = 00000033            RMS$_BUG_XX4   = 0001845C            

IFB$K_BLN_IDX    00000060            IFB$V_NSP      = 0000003F            RMS$_BUG_XX5   = 00018464            

IFB$K_BLN_REL    00000060            IFB$V_NWA      = 0000003C            RMS$_BUG_XX6   = 0001846C            

IFB$K_BLN_SEQ    0000005C            IFB$V_ORG      = 00000004            RMS$_BUG_XX7   = 00018474            

IFB$K_FHAEND     00000050            IFB$V_PPF_IMAGE= 00000022            RMS$_BUG_XX8   = 0001847C            

IFB$L_ARGLST     00000018            IFB$V_PPF_INPUT= 0000002E            RMS$_BUG_XX9   = 00018484            

IFB$L_ASBADDR    00000014            IFB$V_PUT      = 00000000            RMS$_CAA       = 0001848C            

IFB$L_AS_DEV     00000054            IFB$V_RFM      = 00000000            RMS$_CCF       = 0001C0DC            

IFB$L_BDB_BLNK   00000034            IFB$V_RWC      = 00000027            RMS$_CCR       = 00018494            

IFB$L_BDB_FLNK   00000030            IFB$V_RW_ATTR  = 00000034            RMS$_CDA       = 0001C0E4            

IFB$L_BKPBITS    00000004            IFB$V_SCF      = 0000002A            RMS$_CHG       = 0001849C            

IFB$L_BWB        0000000C            IFB$V_SPL      = 00000029            RMS$_CHK       = 000184A4            

IFB$L_DVBN       00000058            IFB$V_SQO      = 0000002D            RMS$_CHN       = 0001C0EC            

IFB$L_EBK        00000044            IFB$V_TEF      = 00000036            RMS$_COD       = 000184AC            

IFB$L_FRB_PTR    00000028            IFB$V_TMP      = 00000035            RMS$_CONTROLC  = 00010651            

IFB$L_FWA_BDB    00000050            IFB$V_TRN      = 00000004            RMS$_CONTROLO  = 00010609            

IFB$L_HBK        00000040            IFB$V_UPD      = 00000003            RMS$_CONTROLY  = 00010611            

IFB$L_IDX_PTR    00000054            IFB$V_WRTACC   = 00000030            RMS$_CRE       = 0001C00A            

IFB$L_IOS        0000000C            IFB$W_ASDEVBSIZ  0000005A            RMS$_CREATED   = 00010619            

IFB$L_IOS4       00000010            IFB$W_BKS_BYTES  0000005C            RMS$_CUR       = 000184B4            

IFB$L_IRAB_LNK   0000001C            IFB$W_BKS_RECS   0000005E            RMS$_DAC       = 0001C012            

IFB$L_LAST_FAB   00000024            IFB$W_CHNL       00000020            RMS$_DAN       = 000184BC            

IFB$L_LOCK_BDB   00000050            IFB$W_DEQ        0000004E            RMS$_DEL       = 00018262            

IFB$L_MRN        00000054            IFB$W_DEVBUFSIZ  00000038            RMS$_DEV       = 000184C4            

IFB$L_NRP_LNK    00000050            IFB$W_EBK0       00000044            RMS$_DIR       = 000184CC            

IFB$L_NWA_PTR    00000028            IFB$W_EBK2       00000046            RMS$_DME       = 000184D4            

IFB$L_PRIM_DEV   00000000            IFB$W_FFB        00000048            RMS$_DNA       = 000184DC            

IFB$L_RLB_LNK    0000002C            IFB$W_IOS2       0000000E            RMS$_DNF       = 0001C04A            

IFB$L_RNS_LEN    00000050            IFB$W_LRL        0000003E            RMS$_DNR       = 00018272            

IFB$M_BIO      = 00000020            IFB$W_MRS        0000004C            RMS$_DPE       = 0001C03A            

IFB$M_BRO      = 00000040            IFB$W_RTDEQ      0000003A            RMS$_DTP       = 000184E4            

IFB$M_DEL      = 00000004            MODXIT           0000000C R     02   RMS$_DUP       = 000184EC            

IFB$M_EXE      = 00000080            PIO$GL_FMLH      ********   X   02   RMS$_DVI       = 000184F4            

IFB$M_GET      = 00000002            RM$EXRMS         ********   X   02   RMS$_ENT       = 0001C01A            

IFB$M_PUT      = 00000001            RM$FSET          ********   X   02   RMS$_ENV       = 00018724            

IFB$M_TRN      = 00000010            RME$C_SETRFM   = 00000001            RMS$_EOF       = 0001827A            

IFB$M_UPD      = 00000008            RMS$MODIFY     = FFFFFFFE RG    02   RMS$_ESA       = 000184FC            

IFB$S_ORG      = 00000004            RMS$V_STVSTATUS= 0000000E            RMS$_ESL       = 00018714            

IFB$S_RFM      = 00000004            RMS$_ABO       = 000183EC            RMS$_ESS       = 00018504            

IFB$V_ACCESSED = 00000025            RMS$_ACC       = 0001C002            RMS$_EXP       = 000182C2            

IFB$V_ANSI_D   = 00000026            RMS$_ACT       = 0001825A            RMS$_EXT       = 0001C022            

IFB$V_ASYNC    = 00000023            RMS$_AID       = 000183F4            RMS$_FAB       = 0001850C            

IFB$V_ASYNCWAIT= 00000024            RMS$_ALN       = 000183FC            RMS$_FAC       = 00018514            

IFB$V_BIO      = 00000005            RMS$_ALQ       = 00018404            RMS$_FEX       = 00018282            

IFB$V_BRO      = 00000006            RMS$_ANI       = 0001840C            RMS$_FLG       = 0001851C            

RMS0MODFY       MODIFY FUNCTION                                  21-AUG-1978 22:06:26   VAX-11 MACRO X0.3-11               Page   9

SYMBOL TABLE                                                                                                                     (1)



RMS$_FLK       = 0001828A            RMS$_RAB       = 0001863C            

RMS$_FNA       = 00018524            RMS$_RAC       = 00018644            

RMS$_FND       = 0001C02A            RMS$_RAT       = 0001864C            

RMS$_FNF       = 00018292            RMS$_RBF       = 00018654            

RMS$_FNM       = 0001852C            RMS$_RER       = 0001C0F4            

RMS$_FOP       = 0001853C            RMS$_REX       = 000182A2            

RMS$_FSZ       = 00018534            RMS$_RFA       = 0001865C            

RMS$_FUL       = 00018544            RMS$_RFM       = 00018664            

RMS$_IAL       = 0001854C            RMS$_RHB       = 0001866C            

RMS$_IAN       = 00018554            RMS$_RLF       = 00018674            

RMS$_IBF       = 00018754            RMS$_RLK       = 000182AA            

RMS$_IDX       = 0001855C            RMS$_RMV       = 0001C0FC            

RMS$_IFA       = 0001C124            RMS$_RNF       = 000182B2            

RMS$_IFI       = 00018564            RMS$_RNL       = 000181A0            

RMS$_IMX       = 0001856C            RMS$_ROP       = 0001867C            

RMS$_IOP       = 00018574            RMS$_RPL       = 0001C104            

RMS$_IRC       = 0001857C            RMS$_RRV       = 00018684            

RMS$_ISI       = 00018584            RMS$_RSA       = 000182DA            

RMS$_KBF       = 0001858C            RMS$_RSL       = 0001873C            

RMS$_KEY       = 00018594            RMS$_RSS       = 00018694            

RMS$_KFF       = 00018031            RMS$_RST       = 0001869C            

RMS$_KRF       = 0001859C            RMS$_RSZ       = 000186A4            

RMS$_KSZ       = 000185A4            RMS$_RTB       = 000181A8            

RMS$_LAN       = 000185AC            RMS$_SEQ       = 000186AC            

RMS$_LBL       = 000185B4            RMS$_SHR       = 000186B4            

RMS$_LNE       = 000185BC            RMS$_SIZ       = 000186BC            

RMS$_LOC       = 000185C4            RMS$_SPL       = 0001C042            

RMS$_MBC       = 00018734            RMS$_SQO       = 000186C4            

RMS$_MKD       = 0001C032            RMS$_STALL     = 00018001            

RMS$_MRN       = 000185CC            RMS$_STK       = 000186CC            

RMS$_MRS       = 000185D4            RMS$_SUC       = 00010001            

RMS$_NAM       = 000185DC            RMS$_SUP       = 000182D2            

RMS$_NEF       = 000185E4            RMS$_SUPERSEDE = 00010631            

RMS$_NET       = 0001874C            RMS$_SYN       = 000186D4            

RMS$_NID       = 000185EC            RMS$_SYS       = 0001C10C            

RMS$_NMF       = 000182CA            RMS$_TEMP1     = 0001826A            

RMS$_NOD       = 000185F4            RMS$_TEMP2     = 0001868C            

RMS$_NORMAL    = 00010001            RMS$_TMO       = 000181B0            

RMS$_NPK       = 000185FC            RMS$_TRE       = 000186DC            

RMS$_OK_ALK    = 00018039            RMS$_TYP       = 000186E4            

RMS$_OK_DEL    = 00018041            RMS$_UBF       = 000186EC            

RMS$_OK_DUP    = 00018011            RMS$_USZ       = 000186F4            

RMS$_OK_IDX    = 00018019            RMS$_VER       = 000186FC            

RMS$_OK_LIM    = 00018051            RMS$_VOL       = 00018704            

RMS$_OK_RLK    = 00018021            RMS$_WBE       = 0001C12C            

RMS$_OK_RNF    = 00018049            RMS$_WER       = 0001C114            

RMS$_OK_RRV    = 00018029            RMS$_WLD       = 00018744            

RMS$_ORD       = 00018604            RMS$_WLK       = 000182BA            

RMS$_ORG       = 0001860C            RMS$_WPL       = 0001C11C            

RMS$_PBF       = 00018614            RMS$_WSF       = 0001871C            

RMS$_PENDING   = 00018009            RMS$_XAB       = 0001870C            

RMS$_PLG       = 0001861C            SS$_ILLSER       ********   X   02   

RMS$_PLV       = 0001872C            TPT$L_MODIFY2    ********   X   02   

RMS$_POS       = 00018624            

RMS$_PRM       = 0001862C            

RMS$_PRV       = 0001829A            

RMS$_QUO       = 00018634            

RMS0MODFY       MODIFY FUNCTION                                  21-AUG-1978 22:06:26   VAX-11 MACRO X0.3-11               Page  10

PROGRAM SECTION SYNOPSIS                                                                                                         (1)







PROGRAM SECTION SYNOPSIS



.  ABS  .        00000000      00     NOPIC   USR   CON   ABS   LCL NOSHR NOEXE NORD  NOWRT BYTE  

. BLANK .        00000000      01     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT BYTE  

F$RMS0MISC       00000053      02     NOPIC   USR   CON   REL   GBL NOSHR   EXE   RD  NOWRT BYTE  

$ABS$            00000060      03     NOPIC   USR   CON   ABS   LCL NOSHR   EXE   RD    WRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

13442. BYTES LEFT IN FREE MEMORY POOL.

3040. BYTES OF RECLAIMED MEMORY.

OBJ$:RMS0MODFY,LIS$:RMS0MODFY/-SP=EXECML$/ML,LIB$:R/ML,SRC$:RMS0MODFY

24 MLB DIR RDS - 754 GETS TO DEFINE 20 MACROS. 54 INTER. FILE WRITES. 

