RMS0UPDAT       DISPATCH FOR UPDATE OPERATION                    21-AUG-1978 22:13:44   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)      41  DECLARATIONS

   (1)      60  RMS$UPDATE  -  COMMON $UPDATE SETUP AND DISPATC

RMS0UPDAT       DISPATCH FOR UPDATE OPERATION                    21-AUG-1978 22:13:44   VAX-11 MACRO X0.3-11               Page   1

003                                                                                                                              (1)



                                     0000     1 

                                     0000     2 

                                     0000     3 	$BEGIN	RMS0UPDAT,003,$RMS0,<DISPATCH FOR UPDATE OPERATION>

                                     0000     4 ; COPYRIGHT (C) 1977

                                     0000     5 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754

                                     0000     6 ;

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

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

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

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

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

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

                                     0000    13 ; REMAIN IN DEC.

                                     0000    14 ;

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

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

                                     0000    17 ; CORPORATION.

                                     0000    18 ;

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

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

                                     0000    21 ;

                                     0000    22 ;++

                                     0000    23 ; FACILITY: RMS32

                                     0000    24 ;

                                     0000    25 ; ABSTRACT:

                                     0000    26 ;		THIS ROUTINE IS THE HIGHEST LEVEL CONTROL 

                                     0000    27 ;		ROUTINE TO PERFORM THE $UPDATE FUNCTION.

                                     0000    28 

                                     0000    29 ;

                                     0000    30 ; ENVIRONMENT:

                                     0000    31 ;		STAR PROCESSOR RUNNING STARLET EXEC.

                                     0000    32 ;

                                     0000    33 ; AUTHOR: L F LAVERDURE,	 CREATION DATE: 3-FEB-77

                                     0000    34 ;

                                     0000    35 ; MODIFIED BY:

                                     0000    36 ;

                                     0000    37 ;	L F LAVERDURE,   10-OCT-77  18:22

                                     0000    38 ; 01	- 

                                     0000    39 ;--

RMS0UPDAT       DISPATCH FOR UPDATE OPERATION                    21-AUG-1978 22:13:44   VAX-11 MACRO X0.3-11               Page   2

003             DECLARATIONS                                                                                                     (1)



                                     0000    41 	.SBTTL	DECLARATIONS

                                     0000    42 ;

                                     0000    43 ; INCLUDE FILES:

                                     0000    44 ;

                                     0000    45 

                                     0000    46 ;

                                     0000    47 ; MACROS:

                                     0000    48 ;

                                     0000    49 	$IFBDEF

                                     0000    50 	.LIST MEB

                                     0000    51 ;

                                     0000    52 ; EQUATED SYMBOLS:

                                     0000    53 ;

                                     0000    54 

                                     0000    55 ;

                                     0000    56 ; OWN STORAGE:

                                     0000    57 ;

                                     0000    58 

RMS0UPDAT       DISPATCH FOR UPDATE OPERATION                    21-AUG-1978 22:13:44   VAX-11 MACRO X0.3-11               Page   3

003             RMS$UPDATE  -  COMMON $UPDATE SETUP AND DISPATC                                                                  (1)



                                     0000    60 	.SBTTL	RMS$UPDATE  -  COMMON $UPDATE SETUP AND DISPATCH ROUTINE

                                     0000    61 ;++

                                     0000    62 ; FUNCTIONAL DESCRIPTION:

                                     0000    63 ;

                                     0000    64 ; THIS ROUTINE PERFORMS COMMON RAB FUNCTION SETUP FOLLOWED

                                     0000    65 ; BY DISPATCH TO ORGANIZATION-DEPENDENT $UPDATE CODE

                                     0000    66 ;

                                     0000    67 ; CALLING SEQUENCE:

                                     0000    68 ;

                                     0000    69 ;	ENTERED FROM EXEC AS A RESULT OF USER'S CALLING SYS$UPDATE

                                     0000    70 ;	(E.G., BY USING THE $UPDATE MACRO)

                                     0000    71 ;

                                     0000    72 ; INPUT PARAMETERS:

                                     0000    73 ;

                                     0000    74 ;	AP	USER'S ARGUMENT LIST ADDR

                                     0000    75 ;

                                     0000    76 ; IMPLICIT INPUTS:

                                     0000    77 ;

                                     0000    78 ;	THE CONTENTS OF THE RAB AND RELATED IRAB AND IFAB.

                                     0000    79 ;

                                     0000    80 ; OUTPUT PARAMETERS:

                                     0000    81 ;

                                     0000    82 ;	R1	DESTROYED

                                     0000    83 ;	R0	STATUS CODE

                                     0000    84 ;

                                     0000    85 ; IMPLICIT OUTPUTS:

                                     0000    86 ;

                                     0000    87 ;	VARIOUS FIELDS OF THE RAB ARE FILLED IN TO REFLECT

                                     0000    88 ;	THE STATUS OF THE $UPDATE OPERATION. (SEE RMS FUNCTIONAL

                                     0000    89 ; 	SPEC FOR A COMPLETE LIST.)

                                     0000    90 ;

                                     0000    91 ;	THE IRAB IS SIMILARLY UPDATED.

                                     0000    92 ;

                                     0000    93 ;	A COMPLETION AST IS QUEUED IF SPECIFIED IN THE USER ARGLIST.

                                     0000    94 ;

                                     0000    95 ; COMPLETION CODES:

                                     0000    96 ;

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

                                     0000    98 ;

                                     0000    99 ; SIDE EFFECTS:

                                     0000   100 ;

                                     0000   101 ;	NONE

                                     0000   102 ;

                                     0000   103 ;--

RMS0UPDAT       DISPATCH FOR UPDATE OPERATION                    21-AUG-1978 22:13:44   VAX-11 MACRO X0.3-11               Page   4

003             RMS$UPDATE  -  COMMON $UPDATE SETUP AND DISPATC                                                                  (1)



                                     0000   105 	$ENTRY	RMS$UPDATE

                                 00000000       	.PSECT	$RMS0,GBL,NOWRT

                                     0000   106 	$TSTPT	UPDATE

                 00000200'9F     D6  0000       		INCL	@#PIO$GL_FMLH+512+TPT$L_UPDATE

                                     0006   107 	$RABSET	FAC=IFB$V_UPD,CFLG=1	; DO COMMON SETUP

                          FFF7'  30  0006       		BSBW	RM$RSET

                                 13  0009       		.BYTE	<0 @ 5>!<1 @ 4>!<0 @ 3>!IFB$V_UPD

                                     000A   108 				; RETURNS TO USER ON ERROR

                                     000A   109 ;

                                     000A   110 ; DISPATCH TO ORG-DEPENDENT CODE

                                     000A   111 ;

                                     000A   112 	CASE	TYPE=B, SRC=IFB$B_ORGCASE(R10),-

                                     000A   113 		DISPLIST=<RM$UPDATE1,RM$UPDATE2,RM$UPDATE3>

            00         23 AA     8F  000A       	CASEB	IFB$B_ORGCASE(R10),#0,S^#<<30001$-30000$>/2>-1

                          02'        000E       

                                     000F       30000$:

                               FFF1' 000F       	.WORD	RM$UPDATE1-30000$

                               FFF1' 0011       	.WORD	RM$UPDATE2-30000$

                               FFF1' 0013       	.WORD	RM$UPDATE3-30000$

                                     0015       30001$:

                           00000008  0015   114 	.IF NE $$RMSTEST&$$RMS_TBUGCHK

                          FFE8'  31  0015   115 	BRW	RM$ERRORG

                                     0018   116 	.ENDC

                                     0018   117 	.END

RMS0UPDAT       DISPATCH FOR UPDATE OPERATION                    21-AUG-1978 22:13:44   VAX-11 MACRO X0.3-11               Page   5

SYMBOL TABLE                                                                                                                     (1)



$$.PSECT_EP    = 00000000            IFB$L_MRN        00000054            IFB$W_DEVBUFSIZ  00000038            

$$RMSTEST      = 0000001A            IFB$L_NRP_LNK    00000050            IFB$W_EBK0       00000044            

$$RMS_PBUGCHK  = 00000010            IFB$L_NWA_PTR    00000028            IFB$W_EBK2       00000046            

$$RMS_TBUGCHK  = 00000008            IFB$L_PRIM_DEV   00000000            IFB$W_FFB        00000048            

$$RMS_UMODE    = 00000004            IFB$L_RLB_LNK    0000002C            IFB$W_IOS2       0000000E            

BIT...         = 00000008            IFB$L_RNS_LEN    00000050            IFB$W_LRL        0000003E            

GBL...         = 00000000            IFB$M_BIO      = 00000020            IFB$W_MRS        0000004C            

IFB$B_AMAX       00000059            IFB$M_BRO      = 00000040            IFB$W_RTDEQ      0000003A            

IFB$B_AVBN       00000058            IFB$M_DEL      = 00000004            PIO$GL_FMLH      ********   X   02   

IFB$B_BID        00000008            IFB$M_EXE      = 00000080            RM$ERRORG        ********   X   02   

IFB$B_BKS        0000004A            IFB$M_GET      = 00000002            RM$RSET          ********   X   02   

IFB$B_BLN        00000009            IFB$M_PUT      = 00000001            RM$UPDATE1       ********   X   02   

IFB$B_EFN        0000000B            IFB$M_TRN      = 00000010            RM$UPDATE2       ********   X   02   

IFB$B_EXTRABUF   0000005D            IFB$M_UPD      = 00000008            RM$UPDATE3       ********   X   02   

IFB$B_FAC        00000022            IFB$S_ORG      = 00000004            RMS$UPDATE     = FFFFFFFE RG    02   

IFB$B_FSZ        0000004B            IFB$S_RFM      = 00000004            TPT$L_UPDATE     ********   X   02   

IFB$B_KBUFSZ     0000005C            IFB$V_ACCESSED = 00000025            

IFB$B_MODE       0000000A            IFB$V_ANSI_D   = 00000026            

IFB$B_NUM_KEYS   0000005A            IFB$V_ASYNC    = 00000023            

IFB$B_ORGCASE    00000023            IFB$V_ASYNCWAIT= 00000024            

IFB$B_RAT        0000003D            IFB$V_BIO      = 00000005            

IFB$B_RFMORG     0000003C            IFB$V_BRO      = 00000006            

IFB$B_UBUFSZ     0000005B            IFB$V_BUSY     = 00000020            

IFB$C_BID      = 0000000B            IFB$V_CREATE   = 00000032            

IFB$C_BLN        00000060            IFB$V_DAP      = 0000003E            

IFB$C_BLN_IDX    00000060            IFB$V_DAP_OPEN = 0000003D            

IFB$C_BLN_REL    00000060            IFB$V_DEL      = 00000002            

IFB$C_BLN_SEQ    0000005C            IFB$V_DFW      = 0000002C            

IFB$C_DIR      = 00000003            IFB$V_DLT      = 0000002B            

IFB$C_FHAEND     00000050            IFB$V_DMO      = 00000028            

IFB$C_IDX      = 00000002            IFB$V_EOF      = 00000021            

IFB$C_MAXORG   = 00000002            IFB$V_EXE      = 00000007            

IFB$C_REL      = 00000001            IFB$V_GET      = 00000001            

IFB$C_SEQ      = 00000000            IFB$V_MSE      = 00000031            

IFB$K_BLN        00000060            IFB$V_NORECLK  = 00000033            

IFB$K_BLN_IDX    00000060            IFB$V_NSP      = 0000003F            

IFB$K_BLN_REL    00000060            IFB$V_NWA      = 0000003C            

IFB$K_BLN_SEQ    0000005C            IFB$V_ORG      = 00000004            

IFB$K_FHAEND     00000050            IFB$V_PPF_IMAGE= 00000022            

IFB$L_ARGLST     00000018            IFB$V_PPF_INPUT= 0000002E            

IFB$L_ASBADDR    00000014            IFB$V_PUT      = 00000000            

IFB$L_AS_DEV     00000054            IFB$V_RFM      = 00000000            

IFB$L_BDB_BLNK   00000034            IFB$V_RWC      = 00000027            

IFB$L_BDB_FLNK   00000030            IFB$V_RW_ATTR  = 00000034            

IFB$L_BKPBITS    00000004            IFB$V_SCF      = 0000002A            

IFB$L_BWB        0000000C            IFB$V_SPL      = 00000029            

IFB$L_DVBN       00000058            IFB$V_SQO      = 0000002D            

IFB$L_EBK        00000044            IFB$V_TEF      = 00000036            

IFB$L_FRB_PTR    00000028            IFB$V_TMP      = 00000035            

IFB$L_FWA_BDB    00000050            IFB$V_TRN      = 00000004            

IFB$L_HBK        00000040            IFB$V_UPD      = 00000003            

IFB$L_IDX_PTR    00000054            IFB$V_WRTACC   = 00000030            

IFB$L_IOS        0000000C            IFB$W_ASDEVBSIZ  0000005A            

IFB$L_IOS4       00000010            IFB$W_BKS_BYTES  0000005C            

IFB$L_IRAB_LNK   0000001C            IFB$W_BKS_RECS   0000005E            

IFB$L_LAST_FAB   00000024            IFB$W_CHNL       00000020            

IFB$L_LOCK_BDB   00000050            IFB$W_DEQ        0000004E            

RMS0UPDAT       DISPATCH FOR UPDATE OPERATION                    21-AUG-1978 22:13:44   VAX-11 MACRO X0.3-11               Page   6

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  

$RMS0            00000018      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.

20660. BYTES LEFT IN FREE MEMORY POOL.

2714. BYTES OF RECLAIMED MEMORY.

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

18 MLB DIR RDS - 301 GETS TO DEFINE 13 MACROS. 16 INTER. FILE WRITES. 

