RMS0WAIT        WAIT FOR AYNC OPERATION COMPLETION               21-AUG-1978 22:13:58   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)      43  DECLARATIONS

   (1)      66  RMS$WAIT  -  $WAIT ROUTINE

RMS0WAIT        WAIT FOR AYNC OPERATION COMPLETION               21-AUG-1978 22:13:58   VAX-11 MACRO X0.3-11               Page   1

005                                                                                                                              (1)



                                     0000     1 

                                     0000     2 

                                     0000     3 	$BEGIN	RMS0WAIT,005,$RMS0,<WAIT FOR AYNC OPERATION COMPLETION>

                                     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 ;		ROUTINE TO PERFORM THE $WAIT FUNCTION TO ALLOW

                                     0000    28 ;		FOR SYNCHRONIZATION WITH THE COMPLETION OF ASYNCHRONOUS

                                     0000    29 ;		REQUESTS.

                                     0000    30 

                                     0000    31 ;

                                     0000    32 ; ENVIRONMENT:

                                     0000    33 ;		STAR PROCESSOR RUNNING STARLET EXEC.

                                     0000    34 ;

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

                                     0000    36 ;

                                     0000    37 ; MODIFIED BY:

                                     0000    38 ;

                                     0000    39 ;	L F LAVERDURE,   9-MAY-78  13:44

                                     0000    40 ; 01	- 

                                     0000    41 ;--

RMS0WAIT        WAIT FOR AYNC OPERATION COMPLETION               21-AUG-1978 22:13:58   VAX-11 MACRO X0.3-11               Page   2

005             DECLARATIONS                                                                                                     (1)



                                     0000    43 	.SBTTL	DECLARATIONS

                                     0000    44 ;

                                     0000    45 ; INCLUDE FILES:

                                     0000    46 ;

                                     0000    47 

                                     0000    48 ;

                                     0000    49 ; MACROS:

                                     0000    50 ;

                                     0000    51 	$IRBDEF

                                     0000    52 	$IFBDEF

                                     0000    53 	$RABDEF

                                     0000    54 	$IMPDEF

                                     0000    55 	$RMSDEF

                                     0000    56 	.LIST MEB

                                     0000    57 ;

                                     0000    58 ; EQUATED SYMBOLS:

                                     0000    59 ;

                                     0000    60 

                                     0000    61 ;

                                     0000    62 ; OWN STORAGE:

                                     0000    63 ;

                                     0000    64 

RMS0WAIT        WAIT FOR AYNC OPERATION COMPLETION               21-AUG-1978 22:13:58   VAX-11 MACRO X0.3-11               Page   3

005             RMS$WAIT  -  $WAIT ROUTINE                                                                                       (1)



                                     0000    66 	.SBTTL	RMS$WAIT  -  $WAIT ROUTINE

                                     0000    67 ;++

                                     0000    68 ; FUNCTIONAL DESCRIPTION:

                                     0000    69 ;

                                     0000    70 ;  THIS MODULE PERFORMS THE FOLLOWING FUNCTIONS:

                                     0000    71 ;

                                     0000    72 ;	1. CHECKS FOR VALID IRAB (VIA ISI) AND IF NONE, ASSUMES DISCONNECT

                                     0000    73 ;	   WAS DONE,  THEREFORE LEAVES STS ALONE UNLESS IT IS ZERO, IN

                                     0000    74 ;	   WHICH CASE IT IS SET TO RMS$_SUC.

                                     0000    75 ;	2. CHECKS THAT THE RAB IS THE SAME ONE FOR LAST OPERATION,

                                     0000    76 ;	   AND IF NOT MERELY DECLARES SUCCESS IF NOT BUSY, ELSE IF BUSY SETS

                                     0000    77 ;	   FLAG IN R4 TO INDICATE DIFFERENT RAB AND CAUSES WAIT FOR SAME

                                     0000    78 ;	   EVENT FLAG.

                                     0000    79 ;	3. IF SAME RAB, TESTS STS FOR NON-ZERO, INDICATING COMPLETION.

                                     0000    80 ;	   IF ZERO, CHECKS IRAB BUSY BIT AND CAUSES WAIT IF BUSY, ELSE RETURNS

                                     0000    81 ;	   SUCCESS.

                                     0000    82 ;	4. IF STALL REQUIRED, EXITS RMS WITH STATUS = RMS$_STALL

                                     0000    83 ;

                                     0000    84 ; CALLING SEQUENCE:

                                     0000    85 ;

                                     0000    86 ;	ENTERED FROM EXEC AS A RESULT OF USER'S CALLING SYS$WAIT

                                     0000    87 ;	(E.G., BY USING THE $WAIT MACRO)

                                     0000    88 ;

                                     0000    89 ; INPUT PARAMETERS:

                                     0000    90 ;

                                     0000    91 ;	AP	USER'S ARGUMENT LIST ADDR

                                     0000    92 ;

                                     0000    93 ; IMPLICIT INPUTS:

                                     0000    94 ;

                                     0000    95 ;	THE CONTENTS OF THE RAB (STS) AND RELATED IRAB.

                                     0000    96 ;

                                     0000    97 ; OUTPUT PARAMETERS:

                                     0000    98 ;

                                     0000    99 ;	R1	DESTROYED

                                     0000   100 ;	R0	STATUS CODE

                                     0000   101 ;

                                     0000   102 ; IMPLICIT OUTPUTS:

                                     0000   103 ;

                                     0000   104 ;	THE IRAB IS UPDATED TO REFLECT THE STALL.

                                     0000   105 ;

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

                                     0000   107 ;

                                     0000   108 ; COMPLETION CODES:

                                     0000   109 ;

                                     0000   110 ;	STANDARD RMS (SEE FUNCTIONAL SPEC FOR LIST) AS PER THE

                                     0000   111 ;	OPERATION WAITED UPON.

                                     0000   112 ;

                                     0000   113 ; SIDE EFFECTS:

                                     0000   114 ;

                                     0000   115 ;	NONE

                                     0000   116 ;

                                     0000   117 ;--

RMS0WAIT        WAIT FOR AYNC OPERATION COMPLETION               21-AUG-1978 22:13:58   VAX-11 MACRO X0.3-11               Page   4

005             RMS$WAIT  -  $WAIT ROUTINE                                                                                       (1)



                                     0000   119 	$ENTRY	RMS$WAIT

                                 00000000       	.PSECT	$RMS0,GBL,NOWRT

                                     0000   120 	$TSTPT	WAIT

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

                          FFF7'  30  0006   121 	BSBW	RM$RABCHK			;VALID RAB? (EXITS IF BAD)

                                     0009   122 						;R11=IMAGE IMPURE AREA ADDR

                                     0009   123 						;R9=ISI, R8=RAB ADDR, R7=MODE

                                     0009   124 ;

                                     0009   125 ;  GET THE IRAB ADDR, CHECK FOR VALIDITY 

                                     0009   126 ;

            50            07     D0  0009   127 	MOVL	#IMP$L_IRABTBL/4,R0		;IRAB TABLE OFFSET/4

                          FFF1'  30  000C   128 	BSBW	RM$GTIADR			;GET IRAB ADDR

                          4F     13  000F   129 	BEQL	DISCONNECT			;BRANCH IF BAD (ASSUME DISCONNECT)

                           00000008  0011   130 	.IF NE $$RMSTEST&$$RMS_TBUGCHK

            0A         08 A9     91  0011   131 	CMPB	IRB$B_BID(R9),#IRB$C_BID

                          5C     12  0015   132 	BNEQ	ERRBUG				;BRANCH IF NOT A VALID IRAB

                                     0017   133 	.ENDC

                                     0017   134 ;

                                     0017   135 ;  ALSO CHECK THE STORED ARG LIST RAB FOR SAMENESS

                                     0017   136 ;

                          54     D4  0017   137 	CLRL	R4				;CLEAR FLAG ASSUMING SAME RAB

            55         18 A9     D0  0019   138 	MOVL	IRB$L_ARGLST(R9),R5		;GET OLD ARG LIST

                                     001D   139 	IFNORD	#8,(R5),DIFRAB,R7		;ASSUME DIFFERENT IF NOT READABLE

            08            57     0C  001D       		PROBER	R7,#8,(R5)

                          65         0020       

                          32     13  0021       		BEQL	DIFRAB

            58         04 A5     D1  0023   140 	CMPL	4(R5),R8			;SAME RAB?

                          2C     12  0027   141 	BNEQ	DIFRAB				;BRANCH IF NOT

                                     0029   142 ;

                                     0029   143 ;  SAME RAB.  IF STS HAS A NON-ZERO VALUE IMPLYING OPERATION DONE, JUST EXIT.

                                     0029   144 ;

            50         08 A8     D0  0029   145 	MOVL	RAB$L_STS(R8),R0		;PICK UP STATUS

                          41     12  002D   146 	BNEQ	EXIT				;BRANCH IF STATUS INDICATES DONE

            69            20     E1  002F   147 	BBC	#IRB$V_BUSY,(R9),SUCXIT		;ALL SET IF NOT BUSY

                          3A         0032       

                                     0033   148 	ASSUME	IRB$V_ASYNC EQ IFB$V_ASYNC

            69            23     E1  0033   149 CHKASY:	BBC	#IRB$V_ASYNC,(R9),SYNC_STALL	;BRANCH IF OPERATION SYNCHRONOUS

                          18         0036       

                                     0037   150 	SSB	#IRB$V_ASYNCWAIT,(R9)		;INDICATE SET EVENT FLAG REQUIRED

            69            24     E2  0037       		BBSS	#IRB$V_ASYNCWAIT,(R9),30000$

                          00         003A       

                                     003B       30000$:

            53            1E     9A  003B   151 	MOVZBL	#IMP$C_ASYEFN,R3		;SET EFN TO WAIT ON

                                     003E   152 	$CLREF_S	R3			;CLEAR IT

                          53     DD  003E       		PUSHL	R3

   00000000'GF            01     FB  0040       		CALLS	#1,G^SYS$CLREF

                                     0047   153 SETSTALL:

                                     0047   154 	RMSSUC	STALL,AP			;GET SET TO STALL

            5C       8001 8F     3C  0047       		MOVZWL	#<RMS$_STALL&^XFFFF>,AP

                          FFB1'  31  004C   155 	BRW	RM$ENBAST			;GO RE-ENABLE ASTS AND EXIT

                                     004F   156 ;

                                     004F   157 ;  WAIT UPON A SYNCHRONOUS REQUEST (MUST BE FROM AST LEVEL)

                                     004F   158 ;

                                     004F   159 SYNC_STALL:

                                     004F   160 	ASSUME	IFB$B_EFN EQ IRB$B_EFN

            53         0B A9     9A  004F   161 	MOVZBL	IRB$B_EFN(R9),R3		;SET EFN TO WAIT ON

                          F2     11  0053   162 	BRB	SETSTALL

RMS0WAIT        WAIT FOR AYNC OPERATION COMPLETION               21-AUG-1978 22:13:58   VAX-11 MACRO X0.3-11               Page   5

005             RMS$WAIT  -  $WAIT ROUTINE                                                                                       (1)



                                     0055   164 ;++

                                     0055   165 ;

                                     0055   166 ;  RAB FOR $WAIT AND ORIGINAL OPERATION ARE DIFFERENT.

                                     0055   167 ;  ALL SET IF IRAB NOT BUSY, ELSE CLEAR STS AND CAUSE WAIT.

                                     0055   168 ;

                                     0055   169 ;--

            69            20     E1  0055   170 DIFRAB:	BBC	#IRB$V_BUSY,(R9),SUCXIT	;BRANCH IF NOT BUSY

                          14         0058       

                          54     D6  0059   171 	INCL	R4			;SET FLAG FOR DIFFERENT RABS

                       08 A8     D4  005B   172 	CLRL	RAB$L_STS(R8)		;ZERO STS FOR WAIT

                          D3     11  005E   173 	BRB	CHKASY			;GO CHECK SYNC/ASYNC OPERATION & STALL

                                     0060   174 

                                     0060   175 ;++

                                     0060   176 ;

                                     0060   177 ;  BAD ISI VALUE.  ASSUME DISCONNECT HAS OCCURRED.

                                     0060   178 ;  LEAVE STS UNCHANGED UNLESS IT IS ZERO, IN WHICH CASE DECLARE SUCCESS.

                                     0060   179 ;

                                     0060   180 ;--

                                     0060   181 DISCONNECT:

            50         08 A8     D0  0060   182 	MOVL	RAB$L_STS(R8),R0	;GET STATUS

                          07     13  0064   183 	BEQL	SUCXIT			;BRANCH IF ZERO

       8001 8F            50     B1  0066   184 	CMPW	R0,#RMS$_STALL&^XFFFF	;DID USER SET A WEIRD VALUE IN HERE?

                          03     12  006B   185 	BNEQ	EXIT			;BRANCH IF NOT (O.K.)

                                     006D   186 SUCXIT:	RMSSUC				;SHOW NORMAL SUCCESS

            50            01     D0  006D       		MOVL	#1,R0

                          FF8D'  31  0070   187 EXIT:	BRW	RM$EX_NOSTR		;NO NEED TO WAIT (ALREADY DONE)

                                     0073   188 

                                     0073   189 ;++

                                     0073   190 ;

                                     0073   191 ;  INTERNAL RMS PROBLEM  -  IRAB TABLE POINTED TO AN INVALID IRAB

                                     0073   192 ;

                                     0073   193 ;--

                                     0073   194 ERRBUG:	RMSTBUG	FTL$_BADIFAB

                                     0073       	.SAVE

                                 0000006C       	.PSECT	$ABS$,ABS

                           00000000  006C       	.=0

                                 00000073       	.RESTORE

                          FF8A'  30  0073       		BSBW	RM$BUG

                                 FD  0076       		.BYTE	FTL$_BADIFAB

                                     0077   195 

                                     0077   196 

                                     0077   197 	.END

RMS0WAIT        WAIT FOR AYNC OPERATION COMPLETION               21-AUG-1978 22:13:58   VAX-11 MACRO X0.3-11               Page   6

SYMBOL TABLE                                                                                                                     (1)



$$.PSECT_EP    = 00000000            IFB$C_FHAEND     00000050            IFB$V_DMO      = 00000028            

$$RMSTEST      = 0000001A            IFB$C_IDX      = 00000002            IFB$V_EOF      = 00000021            

$$RMS_PBUGCHK  = 00000010            IFB$C_MAXORG   = 00000002            IFB$V_EXE      = 00000007            

$$RMS_TBUGCHK  = 00000008            IFB$C_REL      = 00000001            IFB$V_GET      = 00000001            

$$RMS_UMODE    = 00000004            IFB$C_SEQ      = 00000000            IFB$V_MSE      = 00000031            

BIT...         = 00000000            IFB$K_BLN        00000060            IFB$V_NORECLK  = 00000033            

CHKASY           00000033 R     02   IFB$K_BLN_IDX    00000060            IFB$V_NSP      = 0000003F            

DIFRAB           00000055 R     02   IFB$K_BLN_REL    00000060            IFB$V_NWA      = 0000003C            

DISCONNECT       00000060 R     02   IFB$K_BLN_SEQ    0000005C            IFB$V_ORG      = 00000004            

ERRBUG           00000073 R     02   IFB$K_FHAEND     00000050            IFB$V_PPF_IMAGE= 00000022            

EXIT             00000070 R     02   IFB$L_ARGLST     00000018            IFB$V_PPF_INPUT= 0000002E            

FTL$_ASBALLFAIL= FFFFFFF9            IFB$L_ASBADDR    00000014            IFB$V_PUT      = 00000000            

FTL$_BADASTPRM = FFFFFFF8            IFB$L_AS_DEV     00000054            IFB$V_RFM      = 00000000            

FTL$_BADBDB    = FFFFFFFA            IFB$L_BDB_BLNK   00000034            IFB$V_RWC      = 00000027            

FTL$_BADBUFSIZ = FFFFFFF3            IFB$L_BDB_FLNK   00000030            IFB$V_RW_ATTR  = 00000034            

FTL$_BADIFAB   = FFFFFFFD            IFB$L_BKPBITS    00000004            IFB$V_SCF      = 0000002A            

FTL$_BADLEVEL  = FFFFFFE6            IFB$L_BWB        0000000C            IFB$V_SPL      = 00000029            

FTL$_BADORGCASE= FFFFFFFB            IFB$L_DVBN       00000058            IFB$V_SQO      = 0000002D            

FTL$_CANTDOAST = FFFFFFF7            IFB$L_EBK        00000044            IFB$V_TEF      = 00000036            

FTL$_DEALLERR  = FFFFFFEF            IFB$L_FRB_PTR    00000028            IFB$V_TMP      = 00000035            

FTL$_GTCHNFAIL = FFFFFFFC            IFB$L_FWA_BDB    00000050            IFB$V_TRN      = 00000004            

FTL$_IORNDN    = FFFFFFEE            IFB$L_HBK        00000040            IFB$V_UPD      = 00000003            

FTL$_LOCKFAILED= FFFFFFE7            IFB$L_IDX_PTR    00000054            IFB$V_WRTACC   = 00000030            

FTL$_NOASB     = FFFFFFF5            IFB$L_IOS        0000000C            IFB$W_ASDEVBSIZ  0000005A            

FTL$_NODIDORFID= FFFFFFEB            IFB$L_IOS4       00000010            IFB$W_BKS_BYTES  0000005C            

FTL$_NOLOCKBDB = FFFFFFE9            IFB$L_IRAB_LNK   0000001C            IFB$W_BKS_RECS   0000005E            

FTL$_NONETWORK = FFFFFFE8            IFB$L_LAST_FAB   00000024            IFB$W_CHNL       00000020            

FTL$_NONXTBDB  = FFFFFFF4            IFB$L_LOCK_BDB   00000050            IFB$W_DEQ        0000004E            

FTL$_NOSTRUCT  = FFFFFFF6            IFB$L_MRN        00000054            IFB$W_DEVBUFSIZ  00000038            

FTL$_NOTLOCKED = FFFFFFEC            IFB$L_NRP_LNK    00000050            IFB$W_EBK0       00000044            

FTL$_RELEASFAIL= FFFFFFEA            IFB$L_NWA_PTR    00000028            IFB$W_EBK2       00000046            

FTL$_SETPRTFAIL= FFFFFFFF            IFB$L_PRIM_DEV   00000000            IFB$W_FFB        00000048            

FTL$_STKTOOBIG = FFFFFFFE            IFB$L_RLB_LNK    0000002C            IFB$W_IOS2       0000000E            

FTL$_XFERSIZE  = FFFFFFED            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            IMP$B_PROT       00000002            

IFB$B_BID        00000008            IFB$M_EXE      = 00000080            IMP$C_ASYEFN   = 0000001E            

IFB$B_BKS        0000004A            IFB$M_GET      = 00000002            IMP$C_ASYQIOEFN= 0000001F            

IFB$B_BLN        00000009            IFB$M_PUT      = 00000001            IMP$C_ENTPERSEG= 0000000F            

IFB$B_EFN        0000000B            IFB$M_TRN      = 00000010            IMP$C_IOREFN   = 0000001E            

IFB$B_EXTRABUF   0000005D            IFB$M_UPD      = 00000008            IMP$C_MBXEFN   = 0000001A            

IFB$B_FAC        00000022            IFB$S_ORG      = 00000004            IMP$C_NPIOFILES= 0000000C            

IFB$B_FSZ        0000004B            IFB$S_RFM      = 00000004            IMP$C_SYNCEFN  = 0000001B            

IFB$B_KBUFSZ     0000005C            IFB$V_ACCESSED = 00000025            IMP$L_FREEPGLH   0000000C            

IFB$B_MODE       0000000A            IFB$V_ANSI_D   = 00000026            IMP$L_IFABTBL    00000018            

IFB$B_NUM_KEYS   0000005A            IFB$V_ASYNC    = 00000023            IMP$L_IFBTBLINK  00000024            

IFB$B_ORGCASE    00000023            IFB$V_ASYNCWAIT= 00000024            IMP$L_IOSEGADDR  00000004            

IFB$B_RAT        0000003D            IFB$V_BIO      = 00000005            IMP$L_IOSEGLEN   00000008            

IFB$B_RFMORG     0000003C            IFB$V_BRO      = 00000006            IMP$L_IRABTBL    0000001C            

IFB$B_UBUFSZ     0000005B            IFB$V_BUSY     = 00000020            IMP$L_IRBTBLINK  00000064            

IFB$C_BID      = 0000000B            IFB$V_CREATE   = 00000032            IMP$L_SAVED_SP   00000014            

IFB$C_BLN        00000060            IFB$V_DAP      = 0000003E            IMP$V_AST      = 00000001            

IFB$C_BLN_IDX    00000060            IFB$V_DAP_OPEN = 0000003D            IMP$V_IIOS     = 00000000            

IFB$C_BLN_REL    00000060            IFB$V_DEL      = 00000002            IMP$V_IORUNDOWN= 00000004            

IFB$C_BLN_SEQ    0000005C            IFB$V_DFW      = 0000002C            IMP$V_NOP0BUFS = 00000005            

IFB$C_DIR      = 00000003            IFB$V_DLT      = 0000002B            IMP$V_TEMP1    = 00000002            

RMS0WAIT        WAIT FOR AYNC OPERATION COMPLETION               21-AUG-1978 22:13:58   VAX-11 MACRO X0.3-11               Page   7

SYMBOL TABLE                                                                                                                     (1)



IMP$V_TEMP2    = 00000003            IRB$V_ASYNCWAIT= 00000024            RAB$L_KBF        00000030            

IMP$W_ENTPERSEG  00000020            IRB$V_BIO_LAST = 00000027            RAB$L_PBF        00000030            

IMP$W_NUM_IFABS  00000022            IRB$V_BRO_SW   = 00000028            RAB$L_RBF        00000028            

IMP$W_RMSSTATUS  00000000            IRB$V_BUSY     = 00000020            RAB$L_RFA0       00000010            

IRB$B_BCNT       00000040            IRB$V_DAP_CONN = 0000003E            RAB$L_RHB        0000002C            

IRB$B_BID        00000008            IRB$V_DAP_FMODE= 0000003F            RAB$L_ROP        00000004            

IRB$B_BLN        00000009            IRB$V_DUP      = 0000002C            RAB$L_STS        00000008            

IRB$B_EFN        0000000B            IRB$V_EOF      = 00000021            RAB$L_STV        0000000C            

IRB$B_KEYSZ      00000051            IRB$V_FIND     = 00000029            RAB$L_UBF        00000024            

IRB$B_MBC        00000041            IRB$V_FIND_LAST= 00000025            RAB$M_ASY      = 00000001            

IRB$B_MODE       0000000A            IRB$V_IDX_ERR  = 00000031            RAB$M_BIO      = 00000800            

IRB$B_NRP_ID     00000030            IRB$V_LOCKABOVE= 00000002            RAB$M_CCO      = 80000000            

IRB$B_NRP_KREF   00000031            IRB$V_NEW_IDX  = 00000003            RAB$M_CVT      = 04000000            

IRB$B_NVBNS      00000048            IRB$V_POSINSERT= 00000000            RAB$M_EOF      = 00000100            

IRB$B_POST_CCTL  00000045            IRB$V_PPF_EOF  = 0000002E            RAB$M_FDL      = 00000040            

IRB$B_PPF_ISI    0000003E            IRB$V_PPF_FNDSV= 00000030            RAB$M_HSH      = 00000080            

IRB$B_PRE_CCTL   00000044            IRB$V_PPF_IMAGE= 00000022            RAB$M_KGE      = 00200000            

IRB$B_RFA_ID     00000058            IRB$V_PPF_SKIP = 0000002F            RAB$M_KGT      = 00400000            

IRB$B_RP_ID      00000038            IRB$V_PUTS_LAST= 00000026            RAB$M_LIM      = 00004000            

IRB$B_RP_KREF    00000039            IRB$V_RAHWBH   = 0000002A            RAB$M_LOA      = 00002000            

IRB$B_RRV_ID     00000050            IRB$V_SKIP_NEXT= 0000002B            RAB$M_LOC      = 00010000            

IRB$B_SRCHFLAGS  00000043            IRB$V_SRCHGT   = 00000001            RAB$M_MAS      = 00000020            

IRB$B_STOPLEVEL  00000042            IRB$V_UNLOCK_RP= 0000002D            RAB$M_NLK      = 00100000            

IRB$C_BID      = 0000000A            IRB$V_WRITE    = 00000029            RAB$M_NXR      = 00800000            

IRB$C_BLN_IDX    0000006C            IRB$W_CSIZ       00000042            RAB$M_PMT      = 40000000            

IRB$C_BLN_REL    00000048            IRB$W_DUP_POS    00000032            RAB$M_PPF_IND  = 00004000            

IRB$C_BLN_SEQ    0000004C            IRB$W_IOS2       0000000E            RAB$M_PPF_RAT  = 00003FC0            

IRB$K_BLN_IDX    0000006C            IRB$W_NRP_OFF    00000030            RAB$M_PTA      = 20000000            

IRB$K_BLN_REL    00000048            IRB$W_OWN_ID     0000003C            RAB$M_RAH      = 00000200            

IRB$K_BLN_SEQ    0000004C            IRB$W_OWN_ISI    0000003E            RAB$M_RLK      = 00080000            

IRB$L_ARGLST     00000018            IRB$W_ROVHDSZ    00000044            RAB$M_RNE      = 01000000            

IRB$L_ASBADDR    00000014            IRB$W_RP_OFF     00000038            RAB$M_RNF      = 08000000            

IRB$L_BKPBITS    00000004            IRB$W_RTOTLSZ    00000046            RAB$M_TMO      = 02000000            

IRB$L_BWB        0000000C            IRB$W_SAVE_POS   00000052            RAB$M_TPT      = 00000002            

IRB$L_CURBDB     00000020            PIO$GL_FMLH      ********   X   02   RAB$M_UIF      = 00000010            

IRB$L_CURVBN     00000030            RAB$B_BID        00000000            RAB$M_ULK      = 00040000            

IRB$L_IFAB_LNK   00000000            RAB$B_BLN        00000001            RAB$M_WAT      = 00020000            

IRB$L_IOS        0000000C            RAB$B_KRF        00000035            RAB$M_WBH      = 00000400            

IRB$L_IOS4       00000010            RAB$B_KSZ        00000034            RAB$S_PPF_RAT  = 00000008            

IRB$L_IRAB_LNK   0000001C            RAB$B_MBC        00000037            RAB$V_ASY      = 00000000            

IRB$L_KEYBUF     00000048            RAB$B_MBF        00000036            RAB$V_BIO      = 0000000B            

IRB$L_LAST_RAB   00000024            RAB$B_PSZ        00000034            RAB$V_CCO      = 0000001F            

IRB$L_LOCK_BDB   0000005C            RAB$B_RAC        0000001E            RAB$V_CVT      = 0000001A            

IRB$L_NRP        0000002C            RAB$B_ROP1       00000005            RAB$V_EOF      = 00000008            

IRB$L_NRP_OFF    00000030            RAB$B_ROP2       00000006            RAB$V_FDL      = 00000006            

IRB$L_NRP_VBN    0000002C            RAB$B_ROP3       00000007            RAB$V_HSH      = 00000007            

IRB$L_NXTBDB     00000028            RAB$B_TMO        0000001F            RAB$V_KGE      = 00000015            

IRB$L_OWNER_ID   0000003C            RAB$C_BID      = 00000001            RAB$V_KGT      = 00000016            

IRB$L_RFA_VBN    00000054            RAB$C_BLN        00000044            RAB$V_LIM      = 0000000E            

IRB$L_RLB_ADDR   00000044            RAB$C_KEY      = 00000001            RAB$V_LOA      = 0000000D            

IRB$L_RP         00000034            RAB$C_RFA      = 00000002            RAB$V_LOC      = 00000010            

IRB$L_RP_OFF     00000038            RAB$C_SEQ      = 00000000            RAB$V_MAS      = 00000005            

IRB$L_RP_VBN     00000034            RAB$K_BLN        00000044            RAB$V_NLK      = 00000014            

IRB$L_RRV_VBN    0000004C            RAB$L_BKT        00000038            RAB$V_NXR      = 00000017            

IRB$L_TEMP0      00000044            RAB$L_CTX        00000018            RAB$V_PMT      = 0000001E            

IRB$L_TEMP1      00000048            RAB$L_DCT        00000038            RAB$V_PPF_IND  = 0000000E            

IRB$V_ASYNC    = 00000023            RAB$L_FAB        0000003C            RAB$V_PPF_RAT  = 00000006            

RMS0WAIT        WAIT FOR AYNC OPERATION COMPLETION               21-AUG-1978 22:13:58   VAX-11 MACRO X0.3-11               Page   8

SYMBOL TABLE                                                                                                                     (1)



RAB$V_PTA      = 0000001D            RMS$_CONTROLO  = 00010609            RMS$_MBC       = 00018734            

RAB$V_RAH      = 00000009            RMS$_CONTROLY  = 00010611            RMS$_MKD       = 0001C032            

RAB$V_RLK      = 00000013            RMS$_CRE       = 0001C00A            RMS$_MRN       = 000185CC            

RAB$V_RNE      = 00000018            RMS$_CREATED   = 00010619            RMS$_MRS       = 000185D4            

RAB$V_RNF      = 0000001B            RMS$_CUR       = 000184B4            RMS$_NAM       = 000185DC            

RAB$V_TMO      = 00000019            RMS$_DAC       = 0001C012            RMS$_NEF       = 000185E4            

RAB$V_TPT      = 00000001            RMS$_DAN       = 000184BC            RMS$_NET       = 0001874C            

RAB$V_UIF      = 00000004            RMS$_DEL       = 00018262            RMS$_NID       = 000185EC            

RAB$V_ULK      = 00000012            RMS$_DEV       = 000184C4            RMS$_NMF       = 000182CA            

RAB$V_WAT      = 00000011            RMS$_DIR       = 000184CC            RMS$_NOD       = 000185F4            

RAB$V_WBH      = 0000000A            RMS$_DME       = 000184D4            RMS$_NORMAL    = 00010001            

RAB$W_ISI        00000002            RMS$_DNA       = 000184DC            RMS$_NPK       = 000185FC            

RAB$W_RFA        00000010            RMS$_DNF       = 0001C04A            RMS$_OK_ALK    = 00018039            

RAB$W_RFA4       00000014            RMS$_DNR       = 00018272            RMS$_OK_DEL    = 00018041            

RAB$W_RSZ        00000022            RMS$_DPE       = 0001C03A            RMS$_OK_DUP    = 00018011            

RAB$W_USZ        00000020            RMS$_DTP       = 000184E4            RMS$_OK_IDX    = 00018019            

RM$BUG           ********   X   02   RMS$_DUP       = 000184EC            RMS$_OK_LIM    = 00018051            

RM$ENBAST        ********   X   02   RMS$_DVI       = 000184F4            RMS$_OK_RLK    = 00018021            

RM$EX_NOSTR      ********   X   02   RMS$_ENT       = 0001C01A            RMS$_OK_RNF    = 00018049            

RM$GTIADR        ********   X   02   RMS$_ENV       = 00018724            RMS$_OK_RRV    = 00018029            

RM$RABCHK        ********   X   02   RMS$_EOF       = 0001827A            RMS$_ORD       = 00018604            

RMS$V_STVSTATUS= 0000000E            RMS$_ESA       = 000184FC            RMS$_ORG       = 0001860C            

RMS$WAIT       = FFFFFFFE RG    02   RMS$_ESL       = 00018714            RMS$_PBF       = 00018614            

RMS$_ABO       = 000183EC            RMS$_ESS       = 00018504            RMS$_PENDING   = 00018009            

RMS$_ACC       = 0001C002            RMS$_EXP       = 000182C2            RMS$_PLG       = 0001861C            

RMS$_ACT       = 0001825A            RMS$_EXT       = 0001C022            RMS$_PLV       = 0001872C            

RMS$_AID       = 000183F4            RMS$_FAB       = 0001850C            RMS$_POS       = 00018624            

RMS$_ALN       = 000183FC            RMS$_FAC       = 00018514            RMS$_PRM       = 0001862C            

RMS$_ALQ       = 00018404            RMS$_FEX       = 00018282            RMS$_PRV       = 0001829A            

RMS$_ANI       = 0001840C            RMS$_FLG       = 0001851C            RMS$_QUO       = 00018634            

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

RMS$_ATR       = 0001C0CC            RMS$_FNA       = 00018524            RMS$_RAC       = 00018644            

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

RMS$_BKS       = 0001841C            RMS$_FNF       = 00018292            RMS$_RBF       = 00018654            

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

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

RMS$_BOF       = 00018198            RMS$_FSZ       = 00018534            RMS$_RFA       = 0001865C            

RMS$_BUG       = 00018434            RMS$_FUL       = 00018544            RMS$_RFM       = 00018664            

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

RMS$_BUG_DDI   = 0001843C            RMS$_IAN       = 00018554            RMS$_RLF       = 00018674            

RMS$_BUG_XX2   = 0001844C            RMS$_IBF       = 00018754            RMS$_RLK       = 000182AA            

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

RMS$_BUG_XX4   = 0001845C            RMS$_IFA       = 0001C124            RMS$_RNF       = 000182B2            

RMS$_BUG_XX5   = 00018464            RMS$_IFI       = 00018564            RMS$_RNL       = 000181A0            

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

RMS$_BUG_XX7   = 00018474            RMS$_IOP       = 00018574            RMS$_RPL       = 0001C104            

RMS$_BUG_XX8   = 0001847C            RMS$_IRC       = 0001857C            RMS$_RRV       = 00018684            

RMS$_BUG_XX9   = 00018484            RMS$_ISI       = 00018584            RMS$_RSA       = 000182DA            

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

RMS$_CCF       = 0001C0DC            RMS$_KEY       = 00018594            RMS$_RSS       = 00018694            

RMS$_CCR       = 00018494            RMS$_KFF       = 00018031            RMS$_RST       = 0001869C            

RMS$_CDA       = 0001C0E4            RMS$_KRF       = 0001859C            RMS$_RSZ       = 000186A4            

RMS$_CHG       = 0001849C            RMS$_KSZ       = 000185A4            RMS$_RTB       = 000181A8            

RMS$_CHK       = 000184A4            RMS$_LAN       = 000185AC            RMS$_SEQ       = 000186AC            

RMS$_CHN       = 0001C0EC            RMS$_LBL       = 000185B4            RMS$_SHR       = 000186B4            

RMS$_COD       = 000184AC            RMS$_LNE       = 000185BC            RMS$_SIZ       = 000186BC            

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

RMS0WAIT        WAIT FOR AYNC OPERATION COMPLETION               21-AUG-1978 22:13:58   VAX-11 MACRO X0.3-11               Page   9

SYMBOL TABLE                                                                                                                     (1)



RMS$_SQO       = 000186C4            

RMS$_STALL     = 00018001            

RMS$_STK       = 000186CC            

RMS$_SUC       = 00010001            

RMS$_SUP       = 000182D2            

RMS$_SUPERSEDE = 00010631            

RMS$_SYN       = 000186D4            

RMS$_SYS       = 0001C10C            

RMS$_TEMP1     = 0001826A            

RMS$_TEMP2     = 0001868C            

RMS$_TMO       = 000181B0            

RMS$_TRE       = 000186DC            

RMS$_TYP       = 000186E4            

RMS$_UBF       = 000186EC            

RMS$_USZ       = 000186F4            

RMS$_VER       = 000186FC            

RMS$_VOL       = 00018704            

RMS$_WBE       = 0001C12C            

RMS$_WER       = 0001C114            

RMS$_WLD       = 00018744            

RMS$_WLK       = 000182BA            

RMS$_WPL       = 0001C11C            

RMS$_WSF       = 0001871C            

RMS$_XAB       = 0001870C            

SETSTALL         00000047 R     02   

SUCXIT           0000006D R     02   

SYNC_STALL       0000004F R     02   

SYS$CLREF        ********   X   02   

TPT$L_WAIT       ********   X   02   





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            00000077      02     NOPIC   USR   CON   REL   GBL NOSHR   EXE   RD  NOWRT BYTE  

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





THERE WERE NO ERRORS OR WARNINGS.

10874. BYTES LEFT IN FREE MEMORY POOL.

3018. BYTES OF RECLAIMED MEMORY.

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

31 MLB DIR RDS - 998 GETS TO DEFINE 25 MACROS. 68 INTER. FILE WRITES. 

