RMSTEST1        GENERAL RMS TEST PROGRAM ;                       22-AUG-1978 03:27:00   VAX-11 MACRO X0.3-11               Page   1

009                                                                                                                              (1)



                                     0000     1 ;	UETP prefix file (contains macro library file specs).

                                     0000     2 ;

                                     0000     3 	.LIBRARY	/EXECML$/	;SYSTEM MACROS

                                     0000     4 	.LIBRARY	/LIBD$:[SYSTST.OBJ]SYSTST.MLB/ ; PRIVATE UETP,SYSTST LIB

                                     0000     5 	.LIST	MEB

                                     0000     6 ;

                                     0000    31 	$BEGIN	RMSTEST1,009,__RMSTEST,<GENERAL RMS TEST PROGRAM>,<GBL,LONG>

                                 00000000       	.PSECT	__RMSTEST,GBL,GBL,LONG

                                     0000    32 ;

                                     0000    33 	.ENABL DBG

                                     0000    34 ;  THIS PROGRAM TESTS THE SEQUENTIAL FILE ORG, FOR A DISK DEVICE,

                                     0000    35 ;  WITH VFC RECORD FORMAT.

                                     0000    36 ;

                                     0000    37 ;

                                     0000    38 ;  TEST 1A:

                                     0000    39 ;

                                     0000    40 ;	CREATE KNOWN TEST FILE OF 1000 RECORDS, WHERE EACH RECORD HAS

                                     0000    41 ;	A 4-BYTE FIXED CONTROL FIELD GIVING THE RECORD # AND A VARIABLE

                                     0000    42 ;	LENGTH PORTION OF N MOD 100 BYTES OF THE ASCII CHARACTER N MOD 10

                                     0000    43 ;	(WHERE 'N' IS THE RECORD NUMBER).

                                     0000    44 ;

                                     0000    45 	$RMSDEF

                                     0000       	.SAVE

                                 00000000       	.PSECT	$ABS$,ABS

                                 00000000       	.RESTORE

                                     0000    46 .NLIST MEB

                                     0000    47 ;

                                     0000    48 ;  MACROS:

                                     0000    49 ;

                                     0000    50 	.MACRO	BUFF	NAM,SIZE

                                     0000    51 NAM'BUF::	.BLKB	SIZE

                                     0000    52 NAM'BSZ==SIZE

                                     0000    53 	.ENDM	BUFF

                                     0000    54 ;

                                     0000    55 ;

                                     0000    56 ;

                                     0000    57 	.MACRO	TYPE	STRING, ?L

                                     0000    58 	STORE	<STRING>

                                     0000    59 	BLBC	VERBOSITY,L

                                     0000    60 	MOVL	#$$.TMPX,CMDORAB+RAB$L_RBF

                                     0000    61 	MOVW	#$$.TMPX1,CMDORAB+RAB$W_RSZ

                                     0000    62 	$PUT	RAB=CMDORAB,ERR=REPORT_ERROR

                                     0000    63 	BSBW	ERR

                                     0000    64    L:

                                     0000    65 	.ENDM	TYPE

                                     0000    66 ;

                                     0000    67 	.MACRO	WTTYPE	STRING

                                     0000    68 	$WAIT	RAB=CMDORAB

                                     0000    69 	TYPE	<STRING>

                                     0000    70 	.ENDM	WTTYPE

                                     0000    71 

                                     0000    72 	.MACRO	WFIELD STRING

                                     0000    73 		$WAIT	RAB=CMDORAB

                                     0000    74 		FIELD	<STRING>

                                     0000    75 	.ENDM

                                     0000    76 ;

RMSTEST1        GENERAL RMS TEST PROGRAM ;                       22-AUG-1978 03:27:00   VAX-11 MACRO X0.3-11               Page   2

009                                                                                                                              (1)



                                     0000    78 	.MACRO	STORE	STRING,PRE

                                     0000    79 	.SAVE

                                     0000    80 	.PSECT	__$RMSNAM

                                     0000    81 	$$.TMPX=.

                                     0000    82 	PRE				; STORE ANY CARRIAGE CONTROL INFO

                                     0000    83 	.ASCII	%STRING%

                                     0000    84 	$$.TMPX1=.-$$.TMPX

                                     0000    85 	.RESTORE

                                     0000    86 	.ENDM	STORE

                                     0000    87 ;

                                     0000    88 	.MACRO BEGIN TSTNAM

                                     0000    89 		STORE	<TSTNAM>

                                     0000    90 		MOVL	#$$.TMPX,BEG_DESCR+4		;ADDR

                                     0000    91 		MOVL	#$$.TMPX1,BEG_DESCR		;LEN

                                     0000    92 		BSBW BEGPUT

                                     0000    93 	.ENDM BEGIN

                                     0000    94 	.MACRO FINISH	TSTNAM

                                     0000    95 		STORE	<TSTNAM>

                                     0000    96 		MOVL	#$$.TMPX,FIN_DESCR+4		;ADDR

                                     0000    97 		MOVL	#$$.TMPX1,FIN_DESCR		;LEN

                                     0000    98 		BSBW FINPUT

                                     0000    99 	.ENDM FINISH

                                     0000   100 	.MACRO FIELD FLDNAM

                                     0000   101 		STORE <FLDNAM>

                                     0000   102 		MOVL	#$$.TMPX,FLD_DESCR+4		;ADDR

                                     0000   103 		MOVL	#$$.TMPX1,FLD_DESCR		;LEN

                                     0000   104 		BSBW FLDPUT

                                     0000   105 	.ENDM FIELD

                                     0000   106 	.MACRO MBPT, ?L

                                     0000   107 	BLBC VERBOSITY,L

                                     0000   108 	BPT

                                     0000   109    L:

                                     0000   110 	.ENDM MBPT

                                     0000   111 

                                     0000   112 ;

RMSTEST1        GENERAL RMS TEST PROGRAM ;                       22-AUG-1978 03:27:00   VAX-11 MACRO X0.3-11               Page   3

009                                                                                                                              (1)



                                 00000000   114 	.PSECT	__RMSTEST,GBL,LONG

                                     0000   115 	.ALIGN LONG

                                     0000   116 T1START::

                                     0000   117 WTRAB::	$RAB

                           00000364  0044   118 RFATBL:	.BLKQ	100

                                     0364   119 T1FAB::	$FAB	FAC=PUT,FNM=<TST$DISK:T1FILE.DAT;1>,ORG=SEQ,RFM=VFC,-

                                     0364   120 		RAT=CR,FSZ=4,MRS=100,NAM=NAMBLK,FOP=<SUP,CTG>,-

                                     0364   121 		ALQ=48,DEQ=12,SHR=<PUT,GET,UPI>

                                     03B4   122 T1RAB::	$RAB	FAB=T1FAB,UBF=CPYBUF,USZ=CPYBSZ,RBF=CPYBUF,MBC=4,MBF=2,-

                                     03B4   123 		ROP=<WBH>,RHB=RECCNT,KBF=RECCNT

                  00000000 00000000  03F8   124 RECCNT::	.LONG	0,0

                                     0400   125 ;

                  00000408'00000025' 0400   126 T1STR:	.LONG	T1L,T1S

44 52 4F 43 45 52 20 2E 4C 55 34 21  0408   127 T1S:	.ASCII	'!4UL. RECORDS WRITTEN.  RFA = !XL,!XW'

20 20 2E 4E 45 54 54 49 52 57 20 53  0414       

58 21 2C 4C 58 21 20 3D 20 41 46 52  0420       

                                 57  042C       

                           00000025  042D   128 T1L=.-T1S

                                     042D   129 ;

                  00000435'0000005F' 042D   130 T2STR:	.LONG	T2L,T2S

20 3D 20 23 20 44 52 4F 43 45 52 20  0435   131 T2S:	.ASCII	' RECORD # = !4UL, RHB = !4UL!/'

20 3D 20 42 48 52 20 2C 4C 55 34 21  0441       

                  2F 21 4C 55 34 21  044D       

4C 55 33 21 20 3D 20 45 5A 49 53 20  0453   132 	.ASCII	' SIZE = !3UL, RSZ = !UW!/'

21 57 55 21 20 3D 20 5A 53 52 20 2C  045F       

                                 2F  046B       

3D 20 41 46 52 20 44 45 56 41 53 20  046C   133 	.ASCII	' SAVED RFA = !XL,!XW, FILE RFA = !XL,!XW'

49 46 20 2C 57 58 21 2C 4C 58 21 20  0478       

4C 58 21 20 3D 20 41 46 52 20 45 4C  0484       

                        57 58 21 2C  0490       

                           0000005F  0494   134 T2L=.-T2S

                                     0494   135 ;

                  0000049C'0000000F' 0494   136 T3STR:	.LONG	T3L,T3S

46 41 21 27 3D 20 44 52 4F 43 45 52  049C   137 T3S:	.ASCII	"RECORD ='!AF'!/"

                           2F 21 27  04A8       

                           0000000F  04AB   138 T3L=.-T3S

                                 01  04AB   139 RHBSW:	.BYTE	1		;SWITCH FOR MODIFYING RHB CONTENTS

RMSTEST1        GENERAL RMS TEST PROGRAM ;                       22-AUG-1978 03:27:00   VAX-11 MACRO X0.3-11               Page   4

009                                                                                                                              (2)



                                     04AC   141 RMT$TEST_1A::

                               0FFC  04AC   142 	.WORD	^M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11>

                                     04AE   143 	BEGIN	<SEQUENTIAL TESTS>

       FB36 CF   00000002'EF     B0  04C3   144 	MOVW	CMDORAB+RAB$W_ISI,WTRAB+RAB$W_ISI	;COPY OUTPUT ISI FOR

                                     04CC   145 							;DIFFERENT RAB $WAIT TEST

       FE93 CF   00100000 8F     CA  04CC   146 	BICL2	#FAB$M_CTG,T1FAB+FAB$L_FOP		;DON'T WANT CTG SET

   00000004'EF            01     C8  04D5   147 	BISL2	#RAB$M_ASY,CMDORAB+RAB$L_ROP

       FF17 CF            01     D0  04DC   148 	MOVL	#1,RECCNT

            58       FB5F CF     DE  04E1   149 	MOVAL	RFATBL,R8

                                     04E6   150 	$CREATE	FAB=T1FAB,ERR=REPORT_ERROR

                          FB06'  30  04F7   151 	BSBW	ERR

            5B       FEB6 CF     DE  04FA   152 	MOVAL	T1RAB,R11

                                     04FF   153 	$CONNECT	RAB=R11,ERR=REPORT_ERROR

                          FAEF'  30  050E   154 	BSBW	ERR

                                     0511   155 ;

       FEDE CF   00000064 8F     7B  0511   156 NXTREC:	EDIV	#100,RECCNT,R2,R6	;COMPUTE RECORD LENGTH

            56            52         051A       

       FED7 CF            0A     7B  051C   157 	EDIV	#10,RECCNT,R2,R7	;COMPUTE CHARACTER FOR RECORD

            57            52         0521       

            57            30     80  0523   158 	ADDB	#48,R7			;  MAKE IT ASCII

         22 AB            56     B0  0526   159 	MOVW	R6,RAB$W_RSZ(R11)	;TELL RMS THE RECORD SIZE

            6E            00     2C  052A   160 	MOVC5	#0,(SP),R7,R6,CPYBUF	;FILL RECORD WITH CHARACTER

            56            57         052D       

                 00000000'EF         052F       

                                     0534   161 	$PUT	RAB=R11,ERR=REPORT_ERROR

                          FABA'  30  0543   162 	BSBW	ERR

            30            57     D1  0546   163 	CMPL	R7,#48			;IS THIS 10TH RECORD?

                          0B     12  0549   164 	BNEQ	T1CNT			;BRANCH IF NOT

            88         10 AB     7D  054B   165 	MOVQ	RAB$W_RFA(R11),(R8)+	;SAVE RFA IN TABLE

                          56     D5  054F   166 	TSTL	R6			;IS THIS 100TH RECORD?

                          03     12  0551   167 	BNEQ	T1CNT

                          093F   30  0553   168 	BSBW	TYPRFA			;TYPE OUT THE RFA

                                     0556   169 ;

            01       03E8 8F     3D  0556   170 T1CNT:	ACBW	#1000,#1,RECCNT,NXTREC

            FFB1     FE9A CF         055B       

                                     0560   171 	$CLOSE	FAB=T1FAB,ERR=REPORT_ERROR

                          FA8C'  30  0571   172 	BSBW	ERR

                     FE3E CF     B4  0574   173 	CLRW	T1RAB+RAB$W_ISI			;ALLOW RAB TO BE RE-USED

                                     0578   174 	$WAIT	CMDORAB

                                     0585   175 	TYPE	<FINISHED TEST 1A - CREATED TEST FILE>

RMSTEST1        GENERAL RMS TEST PROGRAM ;                       22-AUG-1978 03:27:00   VAX-11 MACRO X0.3-11               Page   5

009                                                                                                                              (2)



                                     05B4   177 ;

                                     05B4   178 ;  TEST 1B

                                     05B4   179 ;

                                     05B4   180 ;	RE-READ FILE CREATED IN TEST 1A AND TRY RANDOM AND SEQUENTIAL

                                     05B4   181 ;	ACCESS VIA $GET AND $FIND.

                                     05B4   182 ;

                                     05B4   183 	$WAIT	RAB=CMDORAB

                                     05C1   184 	TYPE	<BEGINNING TEST 1B - $GET AND $FIND>

       FD6F CF   01000000 8F     C8  05F0   185 	BISL2	#FAB$M_NAM,T1FAB+FAB$L_FOP

       FD7C CF            02     88  05F9   186 	BISB2	#FAB$M_GET,T1FAB+FAB$B_FAC

                                     05FE   187 	$OPEN	FAB=T1FAB,ERR=REPORT_ERROR

                          F9EE'  30  060F   188 	BSBW	ERR

                                     0612   189 ;  \EVENTUALLY INCLUDE CODE HERE TO VERIFY FILE ATTRIBUTES.\

         04 AB   00010000 8F     D0  0612   190 	MOVL	#RAB$M_LOC,RAB$L_ROP(R11)	;LOCATE MODE

                                     061A   191 	$CONNECT	RAB=T1RAB,ERR=REPORT_ERROR

                          F9D2'  30  062B   192 	BSBW	ERR

         1E AB            02     90  062E   193 	MOVB	#RAB$C_RFA,RAB$B_RAC(R11)	;RFA ACCESS

            59       03E8 8F     3C  0632   194 	MOVZWL	#1000,R9			;STARTING RECORD NUMBER

                          5A     D4  0637   195 	CLRL	R10				;  AS A QUADWORD FOR EDIV

                          57     D4  0639   196 	CLRL	R7				;FLAG FOR 1ST PASS

                                     063B   197 ;

                                     063B   198 T1BLOOP1:

            58            08     C2  063B   199 	SUBL	#8,R8				;MOVE TO PREVIOUS RFA

                          06C5   30  063E   200 	BSBW	GETANDCHK

       FFF6 8F            0A     3D  0641   201 	ACBW	#10,#-10,R9,T1BLOOP1

            FFF2          59         0646       

            59            0A     D0  0649   202 	MOVL	#10,R9				;START WITH RECORD # 10

                                     064C   203 ;

                                     064C   204 T1BLOOP2:

                          06B7   30  064C   205 	BSBW	GETANDCHK

            58            08     C0  064F   206 	ADDL	#8,R8				;MOVE TO NEXT RFA

            0A       03DE 8F     3D  0652   207 	ACBW	#990,#10,R9,T1BLOOP2

            FFF2          59         0657       

                                     065A   208 ;

            57            00     E2  065A   209 	BBSS	#0,R7,T1BDONE			;BRANCH IF 2ND PASS

                          43         065D       

                                     065E   210 	$WAIT	CMDORAB

                                     066B   211 	TYPE	<PASS 1 O.K.>

            59       03DE 8F     3C  069A   212 	MOVZWL	#990,R9				;START WITH REC # 990

                          9A     11  069F   213 	BRB	T1BLOOP1

                                     06A1   214 T1BDONE:

                                     06A1   215 	$WAIT	CMDORAB

                                     06AE   216 	TYPE	<PASS 2 O.K.>

                                     06DD   217 	$CLOSE	FAB=T1FAB,ERR=REPORT_ERROR

                          F90F'  30  06EE   218 	BSBW	ERR

RMSTEST1        GENERAL RMS TEST PROGRAM ;                       22-AUG-1978 03:27:00   VAX-11 MACRO X0.3-11               Page   6

009                                                                                                                              (2)



                                     06F1   220 ;

                                     06F1   221 ;  TEST 1C 

                                     06F1   222 ;

                                     06F1   223 ;  USE UPDATE TO MODIFY RECORDS CREATED IN TEST 1A

                                     06F1   224 ;

                                     06F1   225 	WTTYPE	<START TEST 1C  -  $UPDATE>

       FC48 CF            08     88  072D   226 	BISB2	#FAB$M_UPD,T1FAB+FAB$B_FAC

                                     0732   227 	$OPEN	FAB=T1FAB,ERR=REPORT_ERROR

                          F8BA'  30  0743   228 	BSBW	ERR

                       02 AB     B4  0746   229 	CLRW	RAB$W_ISI(R11)

                                     0749   230 	$CONNECT	RAB=R11,ERR=REPORT_ERROR

                          F8A5'  30  0758   231 	BSBW	ERR

         1E AB            02     90  075B   232 	MOVB	#RAB$C_RFA,RAB$B_RAC(R11)

            59            0A     D0  075F   233 	MOVL	#10,R9			;START AT RECORD 10

            58       F8DE CF     DE  0762   234 	MOVAL	RFATBL,R8

                          57     D4  0767   235 	CLRL	R7			;GET SINGLE RECORD

                                     0769   236 ;

                                     0769   237 T1BLOOP4:

                          059A   30  0769   238 	BSBW	GETANDCHK

                     FC88 CF     D6  076C   239 	INCL	RECCNT			;MODIFY RHB

       FD34 CF       FD37 CF     8E  0770   240 	MNEGB	RHBSW,RHBSW		;TOGGLE RHB MODIFY FLAG

                          03     19  0777   241 	BLSS	10$

                       2C AB     D4  0779   242 	CLRL	RAB$L_RHB(R11)		;DON'T MODIFY RHB (DEFAULT)

            55         28 AB     D0  077C   243 10$:	MOVL	RAB$L_RBF(R11),R5	;GET RECORD ADDR

            54         22 AB     3C  0780   244 	MOVZWL	RAB$W_RSZ(R11),R4	;AND LEN

                          85     96  0784   245 20$:	INCB	(R5)+			;MODIFY RECORD CONTENTS

            FB            54     F5  0786   246 	SOBGTR	R4,20$

                                     0789   247 	$UPDATE	RAB=R11,ERR=REPORT_ERROR

                          F865'  30  0798   248 	BSBW	ERR

         2C AB       FC59 CF     DE  079B   249 	MOVAL	RECCNT,RAB$L_RHB(R11)	;RESTORE RHB ADDR

            58            08     C0  07A1   250 	ADDL	#8,R8			;BUMP TO NEXT RFA ENTRY

            0A       03E8 8F     3D  07A4   251 	ACBW	#1000,#10,R9,T1BLOOP4	;MODIFY EVERY 10TH RECORD

            FFBD          59         07A9       

                                     07AC   252 ;

                                     07AC   253 ;  NOW REREAD THE MODIFIED FILE AND CHECK THAT EVERY 10TH (AND ONLY

                                     07AC   254 ;  EVERY 10TH) RECORD HAS BEEN CORRECTLY MODIFIED

                                     07AC   255 ;

            58       F894 CF     DE  07AC   256 	MOVAL	RFATBL,R8

                          59     D4  07B1   257 	CLRL	R9			;RESET RECORD #

         1E AB            00     90  07B3   258 	MOVB	#RAB$C_SEQ,RAB$B_RAC(R11)

                                     07B7   259 ;	$DISCONNECT	R11

                                     07B7   260 ;	BSBW	ERR

                                     07B7   261 ;	$CONNECT	R11		;DO AN EFFECTIVE REWIND

                                     07B7   262 ;	BSBW	ERR

                                     07B7   263 	$REWIND	RAB=R11,ERR=REPORT_ERROR	;SO DO A REWIND

                          F837'  30  07C6   264 	BSBW	ERR

                                     07C9   265 ;

                                     07C9   266 T1BLOOP5:

                          57     D6  07C9   267 	INCL	R7			;SET SWITCH FOR NO RFA COMPARE

                          09     DD  07CB   268 	PUSHL	#9			;# GETS OF UNMODIFIED RECS

                          59     D6  07CD   269 10$:	INCL	R9			;BUMP REC #

                                     07CF   270 	$GET	RAB=R11,ERR=REPORT_ERROR

                          F81F'  30  07DE   271 	BSBW	ERR

                          057A   30  07E1   272 	BSBW	CHKREC

            E6            6E     F5  07E4   273 	SOBGTR	(SP),10$

                          8E     D5  07E7   274 	TSTL	(SP)+

                          59     D6  07E9   275 	INCL	R9			;BUMP REC #

RMSTEST1        GENERAL RMS TEST PROGRAM ;                       22-AUG-1978 03:27:00   VAX-11 MACRO X0.3-11               Page   7

009                                                                                                                              (2)



                                     07EB   276 	$GET	RAB=R11,ERR=REPORT_ERROR

                          F803'  30  07FA   277 	BSBW	ERR

                          57     D4  07FD   278 	CLRL	R7			;SPECIFY RFA TO BE CHECKED

       FCA5 CF       FCA8 CF     8E  07FF   279 	MNEGB	RHBSW,RHBSW		;TOGGLE RHB MODIFIED SWITCH

                          04     19  0806   280 	BLSS	15$

                     FBEC CF     D6  0808   281 	INCL	RECCNT

       FBE7 CF            59     C3  080C   282 15$:	SUBL3	R9,RECCNT,R0		;RHB CONTENTS = REC # + 1?

                          50         0811       

                          50     D7  0812   283 	DECL	R0

                          03     13  0814   284 	BEQL	20$			;BRANCH IF YES

                          0590   30  0816   285 	BSBW	BADRHB			;REPORT ERROR

                          0549   30  0819   286 20$:	BSBW	CHKRC1			;CHECK RECORD LEN, RFA, AND CONTENTS

            58            08     C0  081C   287 	ADDL	#8,R8			;BUMP RFA TABLE ADDR

       03E8 8F            59     B1  081F   288 	CMPW	R9,#1000		;DONE?

                          A3     12  0824   289 	BNEQ	T1BLOOP5		;BRANCH IF NOT

                                     0826   290 	$CLOSE	FAB=T1FAB,ERR=REPORT_ERROR

                          F7C6'  30  0837   291 	BSBW	ERR

RMSTEST1        GENERAL RMS TEST PROGRAM ;                       22-AUG-1978 03:27:00   VAX-11 MACRO X0.3-11               Page   8

009                                                                                                                              (2)



                                     083A   293 ;

                                     083A   294 ;  TEST 2  -  RANDOM I/O TEST FOR SEQUENTIAL FILE ORG

                                     083A   295 ;

                                     083A   296 ;  TEST 2A

                                     083A   297 ;

                                     083A   298 ;  CREATE A KNOWN TEST FILE OF 1000 RECORDS OF FIXED LENGTH = 49. BYTES,

                                     083A   299 ;  1ST LONGWORD HAS THE RECORD # (N) FOLLOWED BY 45 BYTES OF THE ASCII

                                     083A   300 ;  CHARACTER (N MOD 42) + 48.

                                     083A   301 ;

                                     083A   302 	WTTYPE	<START TEST 2A  -  RANDOM SEQ I/O>

                                     0876   303 T2SETUP:

                       02 AB     B4  0876   304 	CLRW	RAB$W_ISI(R11)

         28 AB   00000000'EF     DE  0879   305 	MOVAL	CPYBUF,RAB$L_RBF(R11)

         22 AB            31     9B  0881   306 	MOVZBW	#49,RAB$W_RSZ(R11)

            5A       FADB CF     DE  0885   307 	MOVAL	T1FAB,R10

         10 AA            30     9A  088A   308 	MOVZBL	#48,FAB$L_ALQ(R10)

         04 AA   01000000 8F     CA  088E   309 	BICL2	#FAB$M_NAM,FAB$L_FOP(R10)

                       16 AA     94  0896   310 	CLRB	FAB$B_FAC(R10)		;CHECK FOR PUT DEFAULT

         1F AA            01     90  0899   311 	MOVB	#FAB$C_FIX,FAB$B_RFM(R10)

         36 AA            31     B0  089D   312 	MOVW	#49,FAB$W_MRS(R10)	;REC LEN

                                     08A1   313 	$RAB_STORE RAB=(R11),ROP=<LOC,UIF>

                                     08A9   314 	$CREATE	FAB=R10,ERR=REPORT_ERROR

                          F745'  30  08B8   315 	BSBW	ERR

       FAA8 CF   00010631 8F     D1  08BB   316 	CMPL	#RMS$_SUPERSEDE,T1FAB+FAB$L_STS

                          15     13  08C4   317 	BEQL	SUPOK

                                     08C6   318 	FIELD	<STATUS WORD IS NOT SUPERSEDE, THEREFORE IT>

                                     08DB   319 SUPOK:	$CONNECT	RAB=R11,ERR=REPORT_ERROR

                          F713'  30  08EA   320 	BSBW	ERR

                                     08ED   321 ;

                                     08ED   322 ;  PRE-EXTEND FILE ON 1ST PASS, PUT SEQUENTIALLY ON SECOND PASS

                                     08ED   323 ;

         1E AA            03     E0  08ED   324 	BBS	#FAB$V_BLK,FAB$B_RAT(R10),10$	;BRANCH IF PASS 2

                          1F         08F1       

       FAFF CF       03E8 8F     3C  08F2   325 	MOVZWL	#1000,RECCNT

         1E AB            01     90  08F9   326 	MOVB	#RAB$C_KEY,RAB$B_RAC(R11)

                                     08FD   327 	$PUT	RAB=R11,ERR=REPORT_ERROR

                          F6F1'  30  090C   328 	BSBW	ERR

                          04     11  090F   329 	BRB	20$

         1E AB            00     90  0911   330 10$:	MOVB	#RAB$C_SEQ,RAB$B_RAC(R11)

       FADE CF            01     3C  0915   331 20$:	MOVZWL	#1,RECCNT

                                     091A   332 ;

       FAD9 CF            2A     7B  091A   333 NXTRC2:	EDIV	#42,RECCNT,R2,R7	;COMPUTE CHAR FOR RECORD

            57            52         091F       

            57            30     80  0921   334 	ADDB2	#48,R7			;MAKE IT ASCII

   00000000'EF       FAD0 CF     D0  0924   335 	MOVL	RECCNT,CPYBUF		;INSERT REC #

            6E            00     2C  092D   336 	MOVC5	#0,(SP),R7,#45,CPYBUF+4	;FILL REC WITH CHAR

            2D            57         0930       

                 00000004'EF         0932       

                                     0937   337 	$PUT	RAB=R11,ERR=REPORT_ERROR

                          F6B7'  30  0946   338 	BSBW	ERR

                          05A1   30  0949   339 	BSBW	CHKRFA

                                     094C   340 ;

                                     094C   341 ;  PRINT MESSAGE EVERY 100 RECORDS

                                     094C   342 ;

       FAA3 CF   00000064 8F     7B  094C   343 	EDIV	#100,RECCNT,R2,R7

            57            52         0955       

                          57     D5  0957   344 	TSTL	R7

RMSTEST1        GENERAL RMS TEST PROGRAM ;                       22-AUG-1978 03:27:00   VAX-11 MACRO X0.3-11               Page   9

009                                                                                                                              (2)



                          03     12  0959   345 	BNEQ	T2CNT

                          0537   30  095B   346 	BSBW	TYPRFA

                                     095E   347 ;

            01       03E8 8F     3D  095E   348 T2CNT:	ACBW	#1000,#1,RECCNT,NXTRC2

            FFB2     FA92 CF         0963       

                                     0968   349 	$CLOSE	FAB=R10,ERR=REPORT_ERROR

                          F686'  30  0977   350 	BSBW	ERR

                       02 AB     B4  097A   351 	CLRW	RAB$W_ISI(R11)

                                     097D   352 	WTTYPE	<END STEP 2A  -  START STEP 2B>

RMSTEST1        GENERAL RMS TEST PROGRAM ;                       22-AUG-1978 03:27:00   VAX-11 MACRO X0.3-11               Page  10

009                                                                                                                              (2)



                                     09B9   354 ;

                                     09B9   355 ;  TEST 2B

                                     09B9   356 ;

                                     09B9   357 ;  REREAD FILE CREATED IN STEP 2A AND TRY RANDOM AND SEQUENTIAL

                                     09B9   358 ;  ACCESS VIA $GET

                                     09B9   359 ;

         16 AA            09     90  09B9   360 	MOVB	#FAB$M_PUT!FAB$M_UPD,FAB$B_FAC(R10)	;UPD IMPLIES GET ACCESS

         04 AA   01000000 8F     C8  09BD   361 	BISL2	#FAB$M_NAM,FAB$L_FOP(R10)

                                     09C5   362 	$OPEN	FAB=R10,ERR=REPORT_ERROR

                          F629'  30  09D4   363 	BSBW	ERR

                                     09D7   364 ;	MOVL	#RAB$M_LOC,RAB$L_ROP(R11)

                                     09D7   365 	$RAB_STORE RAB=(R11),ROP=<LOC,UIF>

         1E AB            01     90  09DF   366 	MOVB	#RAB$C_KEY,RAB$B_RAC(R11)

                                     09E3   367 	$CONNECT	RAB=R11,ERR=REPORT_ERROR

                          F60B'  30  09F2   368 	BSBW	ERR

       F9FC CF       03E8 8F     3C  09F5   369 	MOVZWL	#1000,RECCNT

                                     09FC   370 ;

                                     09FC   371 ;  GET ALL RECORDS IN REVERSE ORDER

                                     09FC   372 ;

                          054D   30  09FC   373 10$:	BSBW	GTCHK2

       FFFF 8F            02     3D  09FF   374 	ACBW	#2,#-1,RECCNT,10$

            FFF3     F9F1 CF         0A04       

                                     0A09   375 ;

                                     0A09   376 ;  NOW GET THEM ALL FORWARD

                                     0A09   377 ;

                          0540   30  0A09   378 20$:	BSBW	GTCHK2

            01       03E8 8F     3D  0A0C   379 	ACBW	#1000,#1,RECCNT,20$

            FFF3     F9E4 CF         0A11       

                                     0A16   380 ;

                                     0A16   381 ;  NOW GET EVERY 10TH RECORD IN REVERSE ORDER FOLLOWED BY THE

                                     0A16   382 ;  NEXT 10 IN SEQUENTIAL ORDER

                                     0A16   383 ;

       F9DB CF       03DE 8F     B0  0A16   384 	MOVW	#990,RECCNT

                          052C   30  0A1D   385 30$:	BSBW	GTCHK2

         1E AB            00     90  0A20   386 	MOVB	#RAB$C_SEQ,RAB$B_RAC(R11)

            58            0A     D0  0A24   387 	MOVL	#10,R8

                     F9CD CF     D6  0A27   388 25$:	INCL	RECCNT

                          051E   30  0A2B   389 	BSBW	GTCHK2

            F6            58     F5  0A2E   390 	SOBGTR	R8,25$

         1E AB            01     90  0A31   391 	MOVB	#RAB$C_KEY,RAB$B_RAC(R11)

       FFEC 8F            01     3D  0A35   392 	ACBW	#1,#-20,RECCNT,30$

            FFDE     F9BB CF         0A3A       

                                     0A3F   393 ;

                                     0A3F   394 	WTTYPE	<PASS 1 O.K.>

RMSTEST1        GENERAL RMS TEST PROGRAM ;                       22-AUG-1978 03:27:00   VAX-11 MACRO X0.3-11               Page  11

009                                                                                                                              (2)



                                     0A7B   396 ;

                                     0A7B   397 ;  DO 10 RANDOM PUTS, CHANGING RECORD CONTENTS

                                     0A7B   398 ;

            56            30     90  0A7B   399 	MOVB	#^A/0/,R6		;UPDATING CHARACTER

       F974 CF         5B 8F     9A  0A7E   400 	MOVZBL	#91,RECCNT

   00000000'EF       F970 CF     D0  0A84   401 40$:	MOVL	RECCNT,CPYBUF

            6E            00     2C  0A8D   402 	MOVC5	#0,(SP),R6,#45,CPYBUF+4	;CHANGE THE RECORD

            2D            56         0A90       

                 00000004'EF         0A92       

                                     0A97   403 	$PUT	RAB=R11,ERR=REPORT_ERROR

                          F557'  30  0AA6   404 	BSBW	ERR

                          0441   30  0AA9   405 	BSBW	CHKRFA

       0065 8F       03E8 8F     3D  0AAC   406 	ACBW	#1000,#101,RECCNT,40$

            FFCC     F942 CF         0AB3       

                          04EF   30  0AB8   407 	BSBW	CHKMOD			;GO VERIFY CHANGES

                                     0ABB   408 ;

                                     0ABB   409 ;  DO 10 RANDOM GET/UPDATE PAIRS

                                     0ABB   410 ;

            56            31     90  0ABB   411 	MOVB	#^A/1/,R6		;UPDATING CHARACTER

       F934 CF         5B 8F     9A  0ABE   412 	MOVZBL	#91,RECCNT		;STARTING REC #

                                     0AC4   413 50$:	$GET	RAB=R11,ERR=REPORT_ERROR

                          F52A'  30  0AD3   414 	BSBW	ERR

            58   00000004'EF     DE  0AD6   415 	MOVAL	CPYBUF+4,R8		;GET ADDR OF RECORD CHAR

            59            2D     D0  0ADD   416 	MOVL	#45,R9

                          88     96  0AE0   417 55$:	INCB	(R8)+			;BUMP CONTENTS

            FB            59     F5  0AE2   418 	SOBGTR	R9,55$

                                     0AE5   419 	$UPDATE	RAB=R11,ERR=REPORT_ERROR

                          F509'  30  0AF4   420 	BSBW	ERR

                          03F3   30  0AF7   421 	BSBW	CHKRFA

       0065 8F       03E8 8F     3D  0AFA   422 	ACBW	#1000,#101,RECCNT,50$

            FFBE     F8F4 CF         0B01       

                          04A1   30  0B06   423 	BSBW	CHKMOD			;GO VERIFY CHANGES

                                     0B09   424 ;

                                     0B09   425 	WTTYPE	<PASS 2 O.K.>

                                     0B45   426 	$CLOSE	FAB=R10,ERR=REPORT_ERROR

                          F4A9'  30  0B54   427 	BSBW	ERR

         1E AA            03     E2  0B57   428 	BBSS	#FAB$V_BLK,FAB$B_RAT(R10),DONE

                          3F         0B5B       

                                     0B5C   429 	WTTYPE	<DUPLICATE TEST WITH RECORDS NOT CROSSING BLOCK BOUNDARIES>

                          FCDB   31  0B98   430 	BRW	T2SETUP

                                     0B9B   431 ;

         16 AA            01     90  0B9B   432 DONE:	MOVB	#FAB$M_PUT,FAB$B_FAC(R10)

         1E AB            00     90  0B9F   433 	MOVB	#RAB$C_SEQ,RAB$B_RAC(R11)

                                     0BA3   434 	$WAIT	CMDORAB

   00000004'EF   00000400 8F     D0  0BB0   435 	MOVL	#RAB$M_WBH,RAB$L_ROP+CMDORAB

       F7A4 CF   01000000 8F     CA  0BBB   436 	BICL2	#FAB$M_NAM,T1FAB+FAB$L_FOP

                                     0BC4   437 

                                     0BC4   438 

                                     0BC4   439 ;BUT FIRST -- TEST 3

                                     0BC4   440 ;

                                     0BC4   441 ;	TEST TRUNCATE

                                     0BC4   442 ;

                                     0BC4   443 	$FAB_STORE	FAB=R10,SHR=#0,FAC=<PUT,GET,TRN>	;SET UP FOR TRN

                                     0BCB   444 	$OPEN	FAB=R10,ERR=REPORT_ERROR

                          F423'  30  0BDA   445 	BSBW	ERR

                                     0BDD   446 	$CONNECT	RAB=R11,ERR=REPORT_ERROR

                          F411'  30  0BEC   447 	BSBW	ERR

RMSTEST1        GENERAL RMS TEST PROGRAM ;                       22-AUG-1978 03:27:00   VAX-11 MACRO X0.3-11               Page  12

009                                                                                                                              (2)



                                     0BEF   448 	$GET	RAB=R11,ERR=REPORT_ERROR	;GET 1ST RECORD, SETTING UP CP

                          F3FF'  30  0BFE   449 	BSBW	ERR

                                     0C01   450 	$TRUNCATE	RAB=R11,ERR=REPORT_ERROR	;TRUNCATE ALL

                          F3ED'  30  0C10   451 	BSBW	ERR

                                     0C13   452 	$GET	RAB=R11					;SHOULD GET EOF

   0001827A 8F            50     D1  0C1C   453 	CMPL	R0,#RMS$_EOF

                          06     13  0C23   454 	BEQL	TROK

            5A            5B     D0  0C25   455 	MOVL	R11,R10

                          F3D5'  30  0C28   456 	BSBW	EOFPUT					;TOO BAD

                                     0C2B   457 TROK:	TYPE	<TRUNCATE SUCCEEDED!>

                                     0C5A   458 	$DISCONNECT	RAB=R11,ERR=REPORT_ERROR	;CLEAN UP

                          F394'  30  0C69   459 	BSBW	ERR

                                     0C6C   460 	$CLOSE	FAB=R10,ERR=REPORT_ERROR

                          F382'  30  0C7B   461 	BSBW	ERR

                                     0C7E   462 	$FAB_STORE	FAB=R10,SHR=<PUT,GET,UPI>,FAC=PUT

         1F AA            03     90  0C87   463 	MOVB	#FAB$C_VFC,FAB$B_RFM(R10)

         36 AA         64 8F     9B  0C8B   464 	MOVZBW	#100,FAB$W_MRS(R10)

         1E AA            02     90  0C90   465 	MOVB	#FAB$M_CR,FAB$B_RAT(R10)

         10 AA            30     D0  0C94   466 	MOVL	#48,FAB$L_ALQ(R10)

         3F AA            04     90  0C98   467 	MOVB	#4,FAB$B_FSZ(R10)

         28 AB   00000000'EF     DE  0C9C   468 	MOVAL	CPYBUF,RAB$L_RBF(R11)

                                     0CA4   469 ;

                                     0CA4   470 ;	TRY TO ERASE THE FILE!

                                     0CA4   471 ;

                                     0CA4   472 	$ERASE	FAB=T1FAB,ERR=REPORT_ERROR

                          F348'  30  0CB5   473 	BSBW	ERR

                                     0CB8   474 	TYPE <T1FILE.DAT HAS BEEN ERASED>

       F678 CF   00100000 8F     C8  0CE7   475 	BISL2	#FAB$M_CTG,FAB$L_FOP+T1FAB		;FOR 'F' TEST

                                     0CF0   476 	FINISH	<SEQUENTIAL TESTS>

                                 04  0D05   477 	RET

RMSTEST1        GENERAL RMS TEST PROGRAM ;                       22-AUG-1978 03:27:00   VAX-11 MACRO X0.3-11               Page  13

009                                                                                                                              (4)



                                     0D06   479 

                                     0D06   480 ;

                                     0D06   481 ;  SUBROUTINE TO READ IN A RECORD

                                     0D06   482 ;

                                     0D06   483 GETANDCHK:

            68            06     28  0D06   484 	MOVC3	#6,(R8),RAB$W_RFA(R11)		;RFA TO RAB

                       10 AB         0D09       

            15            57     E8  0D0B   485 	BLBS	R7,PASS2			;BRANCH IF PASS 2

                                     0D0E   486 	$GET	RAB=R11,ERR=REPORT_ERROR	;GET VIA RFA

                          F2E0'  30  0D1D   487 	BSBW	ERR

                          3C     10  0D20   488 	BSBB	CHKREC

                                 05  0D22   489 	RSB

                                     0D23   490 PASS2:

         1E AB            02     90  0D23   491 	MOVB	#RAB$C_RFA,RAB$B_RAC(R11)

                                     0D27   492 	$FIND	RAB=R11,ERR=REPORT_ERROR

                          F2C7'  30  0D36   493 	BSBW	ERR

         1E AB            00     90  0D39   494 	MOVB	#RAB$C_SEQ,RAB$B_RAC(R11)	;SWITCH BACK TO SEQUENTIAL

                          0A     DD  0D3D   495 	PUSHL	#10				;LOOP COUNT

                                     0D3F   496 T1BLOOP3:

                                     0D3F   497 	$GET	RAB=R11,ERR=REPORT_ERROR

                          F2AF'  30  0D4E   498 	BSBW	ERR

                          0B     10  0D51   499 	BSBB	CHKREC

                          59     D6  0D53   500 	INCL	R9				;BUMP RECORD COUNT

            E7            6E     F5  0D55   501 	SOBGTR	(SP),T1BLOOP3

            59            0A     C2  0D58   502 	SUBL2	#10,R9				;RESTORE RECORD COUNT

                          8E     D5  0D5B   503 	TSTL	(SP)+				;CLEAN UP STACK

                                 05  0D5D   504 	RSB

RMSTEST1        GENERAL RMS TEST PROGRAM ;                       22-AUG-1978 03:27:00   VAX-11 MACRO X0.3-11               Page  14

009                                                                                                                              (4)



                                     0D5E   506 ;

                                     0D5E   507 ;  SUBROUTINE TO CHECK THAT RECORD READ IS REALLY THE RIGHT RECORD

                                     0D5E   508 ;

                                     0D5E   509 CHKREC:

       F695 CF            59     D1  0D5E   510 	CMPL	R9,RECCNT			;FIXED HEADER = RECORD #?

                          44     12  0D63   511 	BNEQ	BADRHB

            59   00000064 8F     7B  0D65   512 CHKRC1:	EDIV	#100,R9,R2,R6			;COMPUTE RECORD LENGTH

            56            52         0D6C       

         22 AB            56     B1  0D6E   513 	CMPW	R6,RAB$W_RSZ(R11)		;= RMS RECORD LEN?

                          4C     12  0D72   514 	BNEQ	BADRSZ

       F67F CF            0A     7B  0D74   515 	EDIV	#10,RECCNT,R2,R5		;COMPUTE CHARACTER

            55            52         0D79       

            55            30     80  0D7B   516 	ADDB	#48,R5				;MAKE ASCII

         28 BB            56     2D  0D7E   517 	CMPC5	R6,@RAB$L_RBF(R11),R5,#0,(SP)	;MATCH THE RECORD?

            00            55         0D82       

                          6E         0D84       

                          50     12  0D85   518 	BNEQ	BADRBF

            07            57     E8  0D87   519 	BLBS	R7,10$				;BRANCH IF PASS 2

            68            06     29  0D8A   520 	CMPC3	#6,(R8),RAB$W_RFA(R11)		;RFA THE SAME?

                       10 AB         0D8D       

                          01     12  0D8F   521 	BNEQ	BADRFA

                                 05  0D91   522 10$:	RSB

RMSTEST1        GENERAL RMS TEST PROGRAM ;                       22-AUG-1978 03:27:00   VAX-11 MACRO X0.3-11               Page  15

009                                                                                                                              (4)



                                     0D92   524 ;

                                     0D92   525 ;  HANDLE ERRORS

                                     0D92   526 ;

                                     0D92   527 BADRFA:	FIELD	<RFA>

                          46     11  0DA7   528 	BRB	ERROR

                                     0DA9   529 BADRHB:	FIELD	<RHB>

                          2F     11  0DBE   530 	BRB	ERROR

                                     0DC0   531 BADRSZ:	FIELD	<RSZ>

                          18     11  0DD5   532 	BRB	ERROR

                                     0DD7   533 BADRBF:	FIELD	<RBF>

                          01     11  0DEC   534 	BRB	ERROR

                                     0DEE   535 ;

                                 05  0DEE   536 DONT:	RSB

                                     0DEF   537 ERROR:

            F8   00000000'EF     E9  0DEF   538 	BLBC	VERBOSITY,DONT

                                     0DF6   539 	$WAIT	RAB=CMDORAB

   00000004'EF            01     CA  0E03   540 	BICL2	#RAB$M_ASY,RAB$L_ROP+CMDORAB

                                     0E0A   541 	$FAO_S	T2STR,CMDORAB+RAB$W_RSZ,FAOBUF,-

                                     0E0A   542 		R9,RECCNT,R6,RAB$W_RSZ(R11),-

                                     0E0A   543 		(R8),4(R8),RAB$W_RFA(R11),RAB$W_RFA+4(R11)

            FF            50     E9  0E37   544 	BLBC	R0,.

   00000028'EF   00000000'EF     9E  0E3A   545 	MOVAB	CMDBUF,CMDORAB+RAB$L_RBF

                                     0E45   546 	$PUT	RAB=CMDORAB,ERR=REPORT_ERROR

                          F1A5'  30  0E58   547 	BSBW	ERR

            50         22 AB     3C  0E5B   548 	MOVZWL	RAB$W_RSZ(R11),R0

                                     0E5F   549 	$FAO_S	T3STR,CMDORAB+RAB$W_RSZ,FAOBUF,-

                                     0E5F   550 		R0,RAB$L_RBF(R11)

            FF            50     E9  0E7B   551 	BLBC	R0,.

                                     0E7E   552 	$PUT	RAB=CMDORAB,ERR=REPORT_ERROR

                          F16C'  30  0E91   553 	BSBW	ERR

                                 05  0E94   554 	RSB

                                     0E95   555 ;

                                     0E95   556 ;  OUTPUT A MESSAGE

                                     0E95   557 ;

            50   00000000'EF     E9  0E95   558 TYPRFA:	BLBC	VERBOSITY,NO

                                     0E9C   559 	$WAIT	RAB=WTRAB		;WAIT ON DIFFERENT RAB FOR I/O TO COMPLETE

                                     0EA7   560 	$FAO_S	T1STR,CMDORAB+RAB$W_RSZ,FAOBUF,RECCNT,RAB$W_RFA(R11),-

                                     0EA7   561 		RAB$W_RFA+4(R11)

            FF            50     E9  0EC8   562 	BLBC	R0,.

   00000028'EF   00000000'EF     9E  0ECB   563 	MOVAB	CMDBUF,CMDORAB+RAB$L_RBF

                                     0ED6   564 	$PUT	RAB=CMDORAB,ERR=REPORT_ERROR

                          F114'  30  0EE9   565 	BSBW	ERR

                                 05  0EEC   566    NO:	RSB

RMSTEST1        GENERAL RMS TEST PROGRAM ;                       22-AUG-1978 03:27:00   VAX-11 MACRO X0.3-11               Page  16

009                                                                                                                              (4)



                                     0EED   568 ;

                                     0EED   569 ;  SUBROUTINES FOR TEST 2

                                     0EED   570 ;

                                     0EED   571 ;  SUBROUTINE TO CHECK RFA CORRECTNESS

                                     0EED   572 ;

       F506 CF            01     C3  0EED   573 CHKRFA:	SUBL3	#1,RECCNT,R0		;GET REC # - 1

                          50         0EF2       

         1E AA            03     E0  0EF3   574 	BBS	#FAB$V_BLK,FAB$B_RAT(R10),10$

                          10         0EF7       

            32            50     7A  0EF8   575 	EMUL	R0,#50,#0,R1		;GET BYTE ADDR

            51            00         0EFB       

            51   00000200 8F     7B  0EFD   576 	EDIV	#512,R1,R1,R2		;COMPUTE VBN-1 & OFFSET

            52            51         0F04       

                          0A     11  0F06   577 	BRB	20$

                                     0F08   578 ;

                                     0F08   579 ;  ALTERNATE CALC FOR RECORDS NOT CROSSING BLK BOUNDARIES

                                     0F08   580 ;

                          51     D4  0F08   581 10$:	CLRL	R1			;ZERO EXTEND RECORD #

            50            0A     7B  0F0A   582 	EDIV	#10,R0,R1,R2		;COMPUTE VBN-1 & REC # IN BLK

            52            51         0F0D       

            52            32     A4  0F0F   583 	MULW2	#50,R2			;COMPUTE OFFSET

                          51     D6  0F12   584 20$:	INCL	R1			;VBN

         10 AB            51     D1  0F14   585 	CMPL	R1,RAB$W_RFA(R11)

                          07     12  0F18   586 	BNEQ	ERRRFA

         14 AB            52     B1  0F1A   587 	CMPW	R2,RAB$W_RFA+4(R11)

                          01     12  0F1E   588 	BNEQ	ERRRFA

                                 05  0F20   589 	RSB

                                     0F21   590 ERRRFA:	WFIELD	<RFA>

                                     0F43   591 	MBPT

                                 05  0F4B   592 	RSB

RMSTEST1        GENERAL RMS TEST PROGRAM ;                       22-AUG-1978 03:27:00   VAX-11 MACRO X0.3-11               Page  17

009                                                                                                                              (4)



                                     0F4C   594 ;

                                     0F4C   595 ;  SUBROUTINE TO GET AND CHECK A RECORD FOR TEST 2

                                     0F4C   596 ;

       F4A7 CF            2A     7B  0F4C   597 GTCHK2:	EDIV	#42,RECCNT,R0,R7	;COMPUTE CHAR

            57            50         0F51       

            57            30     80  0F53   598 	ADDB	#48,R7

                                     0F56   599 GTCHK2A:	$GET	 RAB=R11,ERR=REPORT_ERROR

                          F098'  30  0F65   600 	BSBW	ERR

                          FF82   30  0F68   601 	BSBW	CHKRFA

            52         28 AB     D0  0F6B   602 	MOVL	RAB$L_RBF(R11),R2	;GET REC ADDR

       F484 CF            82     D1  0F6F   603 	CMPL	(R2)+,RECCNT		;RECCNT O.K.?

                          09     12  0F74   604 	BNEQ	ERRREC

            62            2D     2D  0F76   605 	CMPC5	#45,(R2),R7,#0,(SP)	;MATCH?

            00            57         0F79       

                          6E         0F7B       

                          01     12  0F7C   606 	BNEQ	ERRREC

                                 05  0F7E   607 	RSB

                                     0F7F   608 ERRREC:	WFIELD	<RECORD CONTENTS>

                                     0FA1   609 	MBPT

                                 05  0FA9   610 	RSB

                                     0FAA   611 ;

                                     0FAA   612 ;  SUBROUTINE TO VERIFY THAT UPDATED RECORDS WERE CHANGED BUT NOT

                                     0FAA   613 ;  THE PRECEEDING OR FOLLOWING RECORDS

                                     0FAA   614 ;

                                     0FAA   615 CHKMOD:

       F448 CF         5A 8F     9A  0FAA   616 	MOVZBL	#90,RECCNT		;STARTING REC #

                          FF99   30  0FB0   617 CHKNXT:	BSBW	GTCHK2

                     F441 CF     D6  0FB3   618 	INCL	RECCNT

            57            56     D0  0FB7   619 	MOVL	R6,R7			;CHECK CHARACTER

                          FF99   30  0FBA   620 	BSBW	GTCHK2A

                     F437 CF     D6  0FBD   621 	INCL	RECCNT

       03E9 8F       F433 CF     B1  0FC1   622 	CMPW	RECCNT,#1001		;ALL DONE?

                          0C     13  0FC8   623 	BEQL	10$

                          FF7F   30  0FCA   624 	BSBW	GTCHK2

       F424 CF       0063 8F     A0  0FCD   625 	ADDW	#99,RECCNT

                          DA     11  0FD4   626 	BRB	CHKNXT

                                     0FD6   627 10$:	$GET 	R11

   0001827A 8F            50     D1  0FDF   628 	CMPL	R0,#RMS$_EOF

                          01     12  0FE6   629 	BNEQ	20$

                                 05  0FE8   630 	RSB

                                     0FE9   631 20$:

                                     0FE9   632 	$WAIT	RAB=CMDORAB

                          5A     DD  0FF6   633 	PUSHL	R10			;SAVE IT

            5A            5B     D0  0FF8   634 	MOVL	R11,R10		;BAD STRUCTURE!!!

                          F002'  30  0FFB   635 	BSBW	EOFPUT

                     0400 8F     BA  0FFE   636 	POPR	#^M<R10>

                                     1002   637 	MBPT

                                 05  100A   638 	RSB

                                     100B   639 

                                     100B   640 .END

RMSTEST1        GENERAL RMS TEST PROGRAM ;                       22-AUG-1978 03:27:00   VAX-11 MACRO X0.3-11               Page  18

SYMBOL TABLE                                                                                                                     (4)



$$.PSECT_EP    = 00000000            FAB$C_IDX      = 00000020            FAB$M_SHRDEL   = 00000004            

$$.TAB         = 000003B4 R  D  02   FAB$C_MAXRFM   = 00000003            FAB$M_SHRGET   = 00000002            

$$.TABEND      = 000003F8 R  D  02   FAB$C_REL      = 00000010            FAB$M_SHRPUT   = 00000001            

$$.TMP         = 00000043    D       FAB$C_RFM_DFLT = 00000002            FAB$M_SHRUPD   = 00000008            

$$.TMP1        = 00000001    D       FAB$C_SEQ      = 00000000    D       FAB$M_SPL      = 00002000            

$$.TMP2        = 000000EF            FAB$C_UDF      = 00000000            FAB$M_SQO      = 00000040            

$$.TMPX        = 00000187 R  D  05   FAB$C_VAR      = 00000002            FAB$M_SUP      = 00000004            

$$.TMPX1       = 0000000F    D       FAB$C_VFC      = 00000003    D       FAB$M_TEF      = 10000000            

$$RMSTEST      = 0000001E            FAB$K_BLN        00000050            FAB$M_TMD      = 00000010            

$$RMS_PBUGCHK  = 00000010            FAB$L_ALQ        00000010    D       FAB$M_TMP      = 00000008            

$$RMS_TBUGCHK  = 00000008            FAB$L_CTX        00000018    D       FAB$M_TRN      = 00000010            

$$RMS_UMODE    = 00000004            FAB$L_DEV        00000040            FAB$M_UFM      = 04000000            

$$T2           = 00000006    D       FAB$L_DNA        00000030    D       FAB$M_UFO      = 00020000            

..AFLG         = 00000000    D       FAB$L_FNA        0000002C    D       FAB$M_UPD      = 00000008    D       

..FLG          = 00000002    D       FAB$L_FOP        00000004    D       FAB$M_UPI      = 00000040            

..N            = 00000003            FAB$L_JNL        00000020    D       FAB$M_WCK      = 00000200            

..TYP          = 00000003    D       FAB$L_MRN        00000038    D       FAB$S_ORG      = 00000004            

.LEN           = 00000001    D       FAB$L_NAM        00000028    D       FAB$S_PPF_RAT  = 00000008            

BADRBF           00000DD7 R  D  02   FAB$L_SDC        00000044            FAB$V_BIO      = 00000005            

BADRFA           00000D92 R  D  02   FAB$L_STS        00000008    D       FAB$V_BLK      = 00000003    D       

BADRHB           00000DA9 R  D  02   FAB$L_STV        0000000C            FAB$V_BRO      = 00000006            

BADRSZ           00000DC0 R  D  02   FAB$L_XAB        00000024    D       FAB$V_CBT      = 00000015            

BEGPUT           ********   X   02   FAB$M_BIO      = 00000020            FAB$V_CIF      = 00000019            

BEG_DESCR        ********   X   02   FAB$M_BLK      = 00000008            FAB$V_CR       = 00000001    D       

BIT...         = 00000004    D       FAB$M_BRO      = 00000040            FAB$V_CTG      = 00000014    D       

CHKMOD           00000FAA R  D  02   FAB$M_CBT      = 00200000            FAB$V_DEL      = 00000002            

CHKNXT           00000FB0 R  D  02   FAB$M_CIF      = 02000000            FAB$V_DFW      = 00000005            

CHKRC1           00000D65 R  D  02   FAB$M_CR       = 00000002    D       FAB$V_DLT      = 0000000F            

CHKREC           00000D5E R  D  02   FAB$M_CTG      = 00100000    D       FAB$V_DMO      = 0000000C            

CHKRFA           00000EED R  D  02   FAB$M_DEL      = 00000004            FAB$V_ESC      = 0000001B            

CMDBUF           ********   X   02   FAB$M_DFW      = 00000020            FAB$V_EXE      = 00000007            

CMDORAB          ********   X   02   FAB$M_DLT      = 00008000            FAB$V_FTN      = 00000000            

CPYBSZ           ********   X   02   FAB$M_DMO      = 00001000            FAB$V_GET      = 00000001    D       

CPYBUF           ********   X   02   FAB$M_ESC      = 08000000            FAB$V_INP      = 00000013            

DONE             00000B9B R  D  02   FAB$M_EXE      = 00000080            FAB$V_JNL      = 00000016            

DONT             00000DEE R  D  02   FAB$M_FTN      = 00000001            FAB$V_KFO      = 0000001E            

EOFPUT           ********   X   02   FAB$M_GET      = 00000002    D       FAB$V_MSE      = 00000004            

ERR              ********   X   02   FAB$M_INP      = 00080000            FAB$V_MXV      = 00000001            

ERROR            00000DEF R  D  02   FAB$M_JNL      = 00400000            FAB$V_NAM      = 00000018            

ERRREC           00000F7F R  D  02   FAB$M_KFO      = 40000000            FAB$V_NEF      = 0000000A            

ERRRFA           00000F21 R  D  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    D       FAB$M_NAM      = 01000000    D       FAB$V_OFP      = 0000001D            

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

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

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

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

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

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

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

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

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

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

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

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

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

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

RMSTEST1        GENERAL RMS TEST PROGRAM ;                       22-AUG-1978 03:27:00   VAX-11 MACRO X0.3-11               Page  19

SYMBOL TABLE                                                                                                                     (4)



FAB$V_SHRUPD   = 00000003            RAB$L_RHB        0000002C    D       RAB$V_RNF      = 0000001B            

FAB$V_SPL      = 0000000D            RAB$L_ROP        00000004    D       RAB$V_TMO      = 00000019            

FAB$V_SQO      = 00000006            RAB$L_STS        00000008            RAB$V_TPT      = 00000001            

FAB$V_SUP      = 00000002    D       RAB$L_STV        0000000C            RAB$V_UIF      = 00000004    D       

FAB$V_TEF      = 0000001C            RAB$L_UBF        00000024    D       RAB$V_ULK      = 00000012            

FAB$V_TMD      = 00000004            RAB$M_ASY      = 00000001    D       RAB$V_WAT      = 00000011            

FAB$V_TMP      = 00000003            RAB$M_BIO      = 00000800            RAB$V_WBH      = 0000000A    D       

FAB$V_TRN      = 00000004    D       RAB$M_CCO      = 80000000            RAB$W_ISI        00000002    D       

FAB$V_UFM      = 0000001A            RAB$M_CVT      = 04000000            RAB$W_RFA        00000010    D       

FAB$V_UFO      = 00000011            RAB$M_EOF      = 00000100            RAB$W_RFA4       00000014            

FAB$V_UPD      = 00000003            RAB$M_FDL      = 00000040            RAB$W_RSZ        00000022    D       

FAB$V_UPI      = 00000006    D       RAB$M_HSH      = 00000080            RAB$W_USZ        00000020    D       

FAB$V_WCK      = 00000009            RAB$M_KGE      = 00200000            RECCNT           000003F8 RG D  02   

FAB$W_BLS        0000003C    D       RAB$M_KGT      = 00400000            REPORT_ERROR     ********   X   02   

FAB$W_DEQ        00000014    D       RAB$M_LIM      = 00004000            RFATBL           00000044 R  D  02   

FAB$W_IFI        00000002            RAB$M_LOA      = 00002000            RHBSW            000004AB R  D  02   

FAB$W_MRS        00000036    D       RAB$M_LOC      = 00010000    D       RMS$V_STVSTATUS= 0000000E            

FAOBUF           ********   X   02   RAB$M_MAS      = 00000020            RMS$_ABO       = 000183EC            

FINPUT           ********   X   02   RAB$M_NLK      = 00100000            RMS$_ACC       = 0001C002            

FIN_DESCR        ********   X   02   RAB$M_NXR      = 00800000            RMS$_ACT       = 0001825A            

FLDPUT           ********   X   02   RAB$M_PMT      = 40000000            RMS$_AID       = 000183F4            

FLD_DESCR        ********   X   02   RAB$M_PPF_IND  = 00004000            RMS$_ALN       = 000183FC            

GBL...         = 00000000    D       RAB$M_PPF_RAT  = 00003FC0            RMS$_ALQ       = 00018404            

GETANDCHK        00000D06 R  D  02   RAB$M_PTA      = 20000000            RMS$_ANI       = 0001840C            

GTCHK2           00000F4C R  D  02   RAB$M_RAH      = 00000200            RMS$_AOP       = 00018414            

GTCHK2A          00000F56 R  D  02   RAB$M_RLK      = 00080000            RMS$_ATR       = 0001C0CC            

NAMBLK           ********   X   02   RAB$M_RNE      = 01000000            RMS$_ATW       = 0001C0D4            

NO               00000EEC R  D  02   RAB$M_RNF      = 08000000            RMS$_BKS       = 0001841C            

NXTRC2           0000091A R  D  02   RAB$M_TMO      = 02000000            RMS$_BKZ       = 00018424            

NXTREC           00000511 R  D  02   RAB$M_TPT      = 00000002            RMS$_BLN       = 0001842C            

PASS2            00000D23 R  D  02   RAB$M_UIF      = 00000010            RMS$_BOF       = 00018198            

RAB$B_BID        00000000            RAB$M_ULK      = 00040000            RMS$_BUG       = 00018434            

RAB$B_BLN        00000001            RAB$M_WAT      = 00020000            RMS$_BUG_DAP   = 00018444            

RAB$B_KRF        00000035    D       RAB$M_WBH      = 00000400    D       RMS$_BUG_DDI   = 0001843C            

RAB$B_KSZ        00000034    D       RAB$S_PPF_RAT  = 00000008            RMS$_BUG_XX2   = 0001844C            

RAB$B_MBC        00000037    D       RAB$V_ASY      = 00000000            RMS$_BUG_XX3   = 00018454            

RAB$B_MBF        00000036    D       RAB$V_BIO      = 0000000B            RMS$_BUG_XX4   = 0001845C            

RAB$B_PSZ        00000034            RAB$V_CCO      = 0000001F            RMS$_BUG_XX5   = 00018464            

RAB$B_RAC        0000001E    D       RAB$V_CVT      = 0000001A            RMS$_BUG_XX6   = 0001846C            

RAB$B_ROP1       00000005            RAB$V_EOF      = 00000008            RMS$_BUG_XX7   = 00018474            

RAB$B_ROP2       00000006            RAB$V_FDL      = 00000006            RMS$_BUG_XX8   = 0001847C            

RAB$B_ROP3       00000007            RAB$V_HSH      = 00000007            RMS$_BUG_XX9   = 00018484            

RAB$B_TMO        0000001F    D       RAB$V_KGE      = 00000015            RMS$_CAA       = 0001848C            

RAB$C_BID      = 00000001    D       RAB$V_KGT      = 00000016            RMS$_CCF       = 0001C0DC            

RAB$C_BLN        00000044    D       RAB$V_LIM      = 0000000E            RMS$_CCR       = 00018494            

RAB$C_KEY      = 00000001    D       RAB$V_LOA      = 0000000D            RMS$_CDA       = 0001C0E4            

RAB$C_RFA      = 00000002    D       RAB$V_LOC      = 00000010    D       RMS$_CHG       = 0001849C            

RAB$C_SEQ      = 00000000    D       RAB$V_MAS      = 00000005            RMS$_CHK       = 000184A4            

RAB$K_BLN        00000044            RAB$V_NLK      = 00000014            RMS$_CHN       = 0001C0EC            

RAB$L_BKT        00000038    D       RAB$V_NXR      = 00000017            RMS$_COD       = 000184AC            

RAB$L_CTX        00000018    D       RAB$V_PMT      = 0000001E            RMS$_CONTROLC  = 00010651            

RAB$L_DCT        00000038            RAB$V_PPF_IND  = 0000000E            RMS$_CONTROLO  = 00010609            

RAB$L_FAB        0000003C    D       RAB$V_PPF_RAT  = 00000006            RMS$_CONTROLY  = 00010611            

RAB$L_KBF        00000030    D       RAB$V_PTA      = 0000001D            RMS$_CRE       = 0001C00A            

RAB$L_PBF        00000030            RAB$V_RAH      = 00000009            RMS$_CREATED   = 00010619            

RAB$L_RBF        00000028    D       RAB$V_RLK      = 00000013            RMS$_CUR       = 000184B4            

RAB$L_RFA0       00000010            RAB$V_RNE      = 00000018            RMS$_DAC       = 0001C012            

RMSTEST1        GENERAL RMS TEST PROGRAM ;                       22-AUG-1978 03:27:00   VAX-11 MACRO X0.3-11               Page  20

SYMBOL TABLE                                                                                                                     (4)



RMS$_DAN       = 000184BC            RMS$_NET       = 0001874C            RMS$_SYN       = 000186D4            

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

RMS$_DEV       = 000184C4            RMS$_NMF       = 000182CA            RMS$_TEMP1     = 0001826A            

RMS$_DIR       = 000184CC            RMS$_NOD       = 000185F4            RMS$_TEMP2     = 0001868C            

RMS$_DME       = 000184D4            RMS$_NORMAL    = 00010001            RMS$_TMO       = 000181B0            

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

RMS$_DNF       = 0001C04A            RMS$_OK_ALK    = 00018039            RMS$_TYP       = 000186E4            

RMS$_DNR       = 00018272            RMS$_OK_DEL    = 00018041            RMS$_UBF       = 000186EC            

RMS$_DPE       = 0001C03A            RMS$_OK_DUP    = 00018011            RMS$_USZ       = 000186F4            

RMS$_DTP       = 000184E4            RMS$_OK_IDX    = 00018019            RMS$_VER       = 000186FC            

RMS$_DUP       = 000184EC            RMS$_OK_LIM    = 00018051            RMS$_VOL       = 00018704            

RMS$_DVI       = 000184F4            RMS$_OK_RLK    = 00018021            RMS$_WBE       = 0001C12C            

RMS$_ENT       = 0001C01A            RMS$_OK_RNF    = 00018049            RMS$_WER       = 0001C114            

RMS$_ENV       = 00018724            RMS$_OK_RRV    = 00018029            RMS$_WLD       = 00018744            

RMS$_EOF       = 0001827A    D       RMS$_ORD       = 00018604            RMS$_WLK       = 000182BA            

RMS$_ESA       = 000184FC            RMS$_ORG       = 0001860C            RMS$_WPL       = 0001C11C            

RMS$_ESL       = 00018714            RMS$_PBF       = 00018614            RMS$_WSF       = 0001871C            

RMS$_ESS       = 00018504            RMS$_PENDING   = 00018009            RMS$_XAB       = 0001870C            

RMS$_EXP       = 000182C2            RMS$_PLG       = 0001861C            RMT$TEST_1A      000004AC RG D  02   

RMS$_EXT       = 0001C022            RMS$_PLV       = 0001872C            SUPOK            000008DB R  D  02   

RMS$_FAB       = 0001850C            RMS$_POS       = 00018624            SYS$CLOSE        ********  GX   02   

RMS$_FAC       = 00018514            RMS$_PRM       = 0001862C            SYS$CONNECT      ********  GX   02   

RMS$_FEX       = 00018282            RMS$_PRV       = 0001829A            SYS$CREATE       ********  GX   02   

RMS$_FLG       = 0001851C            RMS$_QUO       = 00018634            SYS$DISCONNECT   ********  GX   02   

RMS$_FLK       = 0001828A            RMS$_RAB       = 0001863C            SYS$ERASE        ********  GX   02   

RMS$_FNA       = 00018524            RMS$_RAC       = 00018644            SYS$FAO          ********   X   02   

RMS$_FND       = 0001C02A            RMS$_RAT       = 0001864C            SYS$FIND         ********  GX   02   

RMS$_FNF       = 00018292            RMS$_RBF       = 00018654            SYS$GET          ********  GX   02   

RMS$_FNM       = 0001852C            RMS$_RER       = 0001C0F4            SYS$OPEN         ********  GX   02   

RMS$_FOP       = 0001853C            RMS$_REX       = 000182A2            SYS$PUT          ********  GX   02   

RMS$_FSZ       = 00018534            RMS$_RFA       = 0001865C            SYS$REWIND       ********  GX   02   

RMS$_FUL       = 00018544            RMS$_RFM       = 00018664            SYS$TRUNCATE     ********  GX   02   

RMS$_IAL       = 0001854C            RMS$_RHB       = 0001866C            SYS$UPDATE       ********  GX   02   

RMS$_IAN       = 00018554            RMS$_RLF       = 00018674            SYS$WAIT         ********  GX   02   

RMS$_IBF       = 00018754            RMS$_RLK       = 000182AA            T1BDONE          000006A1 R  D  02   

RMS$_IDX       = 0001855C            RMS$_RMV       = 0001C0FC            T1BLOOP1         0000063B R  D  02   

RMS$_IFA       = 0001C124            RMS$_RNF       = 000182B2            T1BLOOP2         0000064C R  D  02   

RMS$_IFI       = 00018564            RMS$_RNL       = 000181A0            T1BLOOP3         00000D3F R  D  02   

RMS$_IMX       = 0001856C            RMS$_ROP       = 0001867C            T1BLOOP4         00000769 R  D  02   

RMS$_IOP       = 00018574            RMS$_RPL       = 0001C104            T1BLOOP5         000007C9 R  D  02   

RMS$_IRC       = 0001857C            RMS$_RRV       = 00018684            T1CNT            00000556 R  D  02   

RMS$_ISI       = 00018584            RMS$_RSA       = 000182DA            T1FAB            00000364 RG D  02   

RMS$_KBF       = 0001858C            RMS$_RSL       = 0001873C            T1L            = 00000025    D       

RMS$_KEY       = 00018594            RMS$_RSS       = 00018694            T1RAB            000003B4 RG D  02   

RMS$_KFF       = 00018031            RMS$_RST       = 0001869C            T1S              00000408 R  D  02   

RMS$_KRF       = 0001859C            RMS$_RSZ       = 000186A4            T1START          00000000 RG D  02   

RMS$_KSZ       = 000185A4            RMS$_RTB       = 000181A8            T1STR            00000400 R  D  02   

RMS$_LAN       = 000185AC            RMS$_SEQ       = 000186AC            T2CNT            0000095E R  D  02   

RMS$_LBL       = 000185B4            RMS$_SHR       = 000186B4            T2L            = 0000005F    D       

RMS$_LNE       = 000185BC            RMS$_SIZ       = 000186BC            T2S              00000435 R  D  02   

RMS$_LOC       = 000185C4            RMS$_SPL       = 0001C042            T2SETUP          00000876 R  D  02   

RMS$_MBC       = 00018734            RMS$_SQO       = 000186C4            T2STR            0000042D R  D  02   

RMS$_MKD       = 0001C032            RMS$_STALL     = 00018001            T3L            = 0000000F    D       

RMS$_MRN       = 000185CC            RMS$_STK       = 000186CC            T3S              0000049C R  D  02   

RMS$_MRS       = 000185D4            RMS$_SUC       = 00010001            T3STR            00000494 R  D  02   

RMS$_NAM       = 000185DC            RMS$_SUP       = 000182D2            TROK             00000C2B R  D  02   

RMS$_NEF       = 000185E4            RMS$_SUPERSEDE = 00010631    D       TYPRFA           00000E95 R  D  02   

RMSTEST1        GENERAL RMS TEST PROGRAM ;                       22-AUG-1978 03:27:00   VAX-11 MACRO X0.3-11               Page  21

SYMBOL TABLE                                                                                                                     (4)



VERBOSITY        ********   X   02   

WTRAB            00000000 RG D  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  

__RMSTEST        0000100B      02     NOPIC   USR   CON   REL   GBL NOSHR   EXE   RD    WRT LONG  

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

$RMSNAM          00000015      04     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT BYTE  

__$RMSNAM        00000196      05     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

518. BYTES LEFT IN FREE MEMORY POOL.

118. BYTES OF RECLAIMED MEMORY.

OBJ$:RMSTEST1,LIS$:RMSTEST1/-SP=SRC$:UETPLIBS,SRCD$:[RMSTEST]RMSTEST1

159 MLB DIR RDS - 1098 GETS TO DEFINE 50 MACROS. 129 INTER. FILE WRITES. 

