RMSTEST4        XAB RMS TEST PROGRAM ;                           22-AUG-1978 03:30:18   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	RMSTEST4,009,__RMSTEST,<XAB RMS TEST PROGRAM>,<GBL,LONG>

                                 00000000       	.PSECT	__RMSTEST,GBL,GBL,LONG

                                     0000    32 ;

                                     0000    33 	.ENABL DBG

                                     0000    34 ;

                                     0000    35 .NLIST MEB

                                     0000    36 ;

                                     0000    37 ;  MACROS:

                                     0000    38 ;

                                     0000    39 ;

                                     0000    40 ;

                                     0000    41 ;

                                     0000    42 	.MACRO	TYPE	STRING, ?L

                                     0000    43 	STORE	<STRING>

                                     0000    44 	BLBC	VERBOSITY,L

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

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

                                     0000    47 	$PUT	RAB=CMDORAB,ERR=REPORT_ERROR

                                     0000    48 	BSBW	ERR

                                     0000    49    L:

                                     0000    50 	.ENDM	TYPE

                                     0000    51 ;

                                     0000    52 	.MACRO	STORE	STRING,PRE

                                     0000    53 	.SAVE

                                     0000    54 	.PSECT	__$RMSNAM

                                     0000    55 	$$.TMPX=.

                                     0000    56 	PRE				; STORE ANY CARRIAGE CONTROL INFO

                                     0000    57 	.ASCII	%STRING%

                                     0000    58 	$$.TMPX1=.-$$.TMPX

                                     0000    59 	.RESTORE

                                     0000    60 	.ENDM	STORE

RMSTEST4        XAB RMS TEST PROGRAM ;                           22-AUG-1978 03:30:18   VAX-11 MACRO X0.3-11               Page   2

009                                                                                                                              (1)



                                     0000    62 ;

                                     0000    63 	.MACRO BEGIN TSTNAM

                                     0000    64 		STORE	<TSTNAM>

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

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

                                     0000    67 		BSBW BEGPUT

                                     0000    68 	.ENDM BEGIN

                                     0000    69 	.MACRO FINISH	TSTNAM

                                     0000    70 		STORE	<TSTNAM>

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

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

                                     0000    73 		BSBW FINPUT

                                     0000    74 	.ENDM FINISH

                                     0000    75 	.MACRO FIELD FLDNAM

                                     0000    76 		STORE <FLDNAM>

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

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

                                     0000    79 		BSBW FLDPUT

                                     0000    80 	.ENDM FIELD

RMSTEST4        XAB RMS TEST PROGRAM ;                           22-AUG-1978 03:30:18   VAX-11 MACRO X0.3-11               Page   3

009                                                                                                                              (1)



                                 00000000    82 	.PSECT	__RMSTEST,GBL,LONG

                                     0000    83 	.ALIGN LONG

                                     0000    84 T4START::

                                     0000    85 T4FAB::	$FAB	FNM=<TST$DISK:T4FILE.DAT;1>,ORG=SEQ,RFM=VFC,-

                                     0000    86 		RAT=CR,FSZ=4,MRS=100,NAM=NAMBLK,DEQ=12

                                     0050    87 FLUSH_FAB:: $FAB		FAC=<PUT,GET>,FNM=<TST$DISK:T4FILE.DAT;1>,-

                                     0050    88 			NAM=NAMBLK,SHR=<PUT,GET,UPI>,XAB=FHCXAB

                                     00A0    89 ;	ATTENTION: IN ORDER TO ASSEMBLE THIS MODULE, T4RAB AND FLUSH_RAB

                                     00A0    90 ;		HAVE BEEN PUT INTO ANOTHER MODULE, RMSTESTR

                                     00A0    91 FHCXAB::   $XABFHC	NXT=ALQXAB

                                     00CC    92 ALQXAB::  $XABALL	NXT=PROXAB,DEQ=15

                                     00EC    93 PROXAB::	$XABPRO

                                     00FC    94 DATXAB::	$XABDAT

                                     0120    95 RDTXAB::	$XABRDT	

                                     0134    96 TRMXAB::	$XABTRM	

                                     014C    97 	$RMSDEFEND

                           00000024  014C    98 	EXTRA=XAB$L_SBN-4		;4 BYTES OF EXTRA (SPARE) CHAR.

                               0000  014C    99 SAVEPRO:	.WORD 0			;WORD TO SAVE PRO IN

                                     014E   100 ;THESE ARE THE DATA STRUCTURES FOR DATE AND TIME XAB CHECKS

                                     014E   101 

20 33 36 39 31 2D 52 41 4D 2D 33 20  014E   102 CDT:	.ASCII / 3-MAR-1963 03:03:03.03/

   33 30 2E 33 30 3A 33 30 3A 33 30  015A       

                           00000017  0165   103 		CDTL=.-CDT

20 34 34 39 31 2D 52 50 41 2D 34 20  0165   104 RDT:	.ASCII / 4-APR-1944 04:04:04.04/

   34 30 2E 34 30 3A 34 30 3A 34 30  0171       

                           00000017  017C   105 		RDTL=.-RDT

20 38 38 39 31 2D 47 55 41 2D 38 20  017C   106 EDT:	.ASCII / 8-AUG-1988 08:08:08.08/

   38 30 2E 38 30 3A 38 30 3A 38 30  0188       

                           00000017  0193   107 		EDTL=.-EDT

20 38 34 39 31 2D 43 45 44 2D 32 31  0193   108 RDT2:	.ASCII /12-DEC-1948 12:12:12.12/

   32 31 2E 32 31 3A 32 31 3A 32 31  019F       

                           00000017  01AA   109 		RDTL2=.-RDT2

                  0000014E'00000017  01AA   110 CDTDEC:	.LONG CDTL,CDT

                  00000165'00000017  01B2   111 RDTDEC: .LONG RDTL,RDT

                  0000017C'00000017  01BA   112 EDTDEC:	.LONG EDTL,EDT

                  00000193'00000017  01C2   113 RDT2DEC: .LONG RDTL2,RDT2

                                     01CA   114 

                               0000  01CA   115 CURRVN:	.WORD 0

                               0000  01CC   116 LEN:	.WORD 0				;LENGTH OF RETURNED STRING

                           000001E7  01CE   117 CMPDAT:	.BLKB 25			;HAS ROOM FOR LONGEST POSSIBLE DATE

                  000001CE'00000019  01E7   118 CMPDATDEC:	.LONG 25,CMPDAT

                           00000000  01EF   119 CURRDT:	.LONG 0				;ADDRESS OF CURRENT RDT STRING

                           00000000  01F3   120 UIC:	.LONG 0				;ROOM TO SAVE CURRENT UIC

                           0000000B  01F7   121 	DATLEN=11			;LENGTH OF DATE

                           00000014  01F7   122 	TIMLEN=20			;LENGTH OF ASCII DATE AND TIME

                                     01F7   123 

                                     01F7   124 

RMSTEST4        XAB RMS TEST PROGRAM ;                           22-AUG-1978 03:30:18   VAX-11 MACRO X0.3-11               Page   4

009                                                                                                                              (1)



                                     01F7   126 RMT$TEST_4A::

                               0FFC  01F7   127 	.WORD	^M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11>

                                     01F9   128 	BEGIN	<XAB TESTS>

                                     020E   129 

                                     020E   130 ; CREATE A FILE -- SYS$DISK:T4FILE.DAT;1 -- WITH CONTROLLED ATTRIBUTES

                                     020E   131 ; AND WRITE 1 RECORD TO IT, TO FURTHER CONTROL THE ATTRIBUTES

            5B       FDEE CF     DE  020E   132 	MOVAL	T4FAB,R11			;R11 WILL BE FAB THROUGHOUT

                                     0213   133 					;INITIALIZE VALUES FOR RESTARTABILITY

                                     0213   134 	$FAB_STORE FAB=R11,SHR=<PUT,GET,UPI>,FOP=<SUP,CTG>,XAB=FHCXAB,ALQ=#0,-

                                     0213   135 			FAC=PUT

                                     022D   136 

       FE8E CF   000003E7 8F     D0  022D   137 	MOVL	#999,EXTRA+FHCXAB			;STUFF SOMETHING IN SPARE

                     FE70 CF     B4  0236   138 	CLRW	XAB$W_LRL+FHCXAB			; MAKE SURE LRL IS 0

                                     023A   139 	$XABPRO_STORE	XAB=PROXAB,PRO=<RWED,RWED,RD,RWED>,UIC=<333,44>

         9F AF         0C A0     D0  024F   140 	MOVL	XAB$L_UIC(R0),UIC			;SAVE IT FOR CHECKING

       FEF2 CF         08 A0     B0  0254   141 	MOVW	XAB$W_PRO(R0),SAVEPRO			;DITTO

                                     025A   142 	$XABALL_STORE	XAB=ALQXAB,ALQ=#10,AOP=CTG

                                     0268   143 	$CREATE FAB=R11,ERR=REPORT_ERROR		;WITH ALL XABS LINKED IN

                          FD86'  30  0277   144 	BSBW	ERR

         40 AB   00000000'8F     E1  027A   145 	BBC	#DEV$V_SQD,FAB$L_DEV(R11),10$

                          03         0282       

                          03F7   31  0283   146 	BRW	MTA					;IF MTA, SKIP THIS

            0A       FE52 CF     D1  0286   147 10$:	CMPL	ALQXAB+XAB$L_ALQ,#10			;ALLOCATED 10 BLKS?

                          15     18  028B   148 	BGEQ	RIGHT

                                     028D   149 	FIELD	<ALQ IN XAB ( NOT = DESIRED ALLOC ON CREATE)>

                                     02A2   150 RIGHT:

         04 AB            15     E1  02A2   151 	BBC	#FAB$V_CBT,FAB$L_FOP(R11),OK1

                          15         02A6       

                                     02A7   152 	FIELD	<CBT BIT SET, THEREFORE>

         04 AB            14     E0  02BC   153    OK1:	BBS	#FAB$V_CTG,FAB$L_FOP(R11),OK2

                          15         02C0       

                                     02C1   154 	FIELD	<CTG BIT CLEAR, THEREFORE>

                                     02D6   155    OK2:

                          04FB   30  02D6   156 	BSBW	ZERO_XABS

                                     02D9   157 	$DISPLAY	FAB=R11,ERR=REPORT_ERROR

                          FD15'  30  02E8   158 	BSBW	ERR

                          04FF   30  02EB   159 	BSBW	CHECK_CR				;CHECK XABS

                                     02EE   160 	TYPE	<OK AFTER CREATE AND DISPLAY>

                                     031D   161 ;EXTEND

       FDBA CF            30     D0  031D   162 	MOVL	#48,XAB$L_ALQ+ALQXAB			;SET UP

                     FDAA CF     D4  0322   163 	CLRL	XAB$L_NXT+ALQXAB

         24 AB       FDA2 CF     DE  0326   164 	MOVAL	ALQXAB,FAB$L_XAB(R11)

                                     032C   165 	$EXTEND	FAB=R11,ERR=REPORT_ERROR		;EXTEND FILE AFTER CREATE

                                     033B   166 							;USING ALQ FROM XAB

                          FCC2'  30  033B   167 	BSBW	ERR

            30       FD9A CF     D1  033E   168 	CMPL	ALQXAB+XAB$L_ALQ,#48		;ALQ IN XAB SHOULD RET ACTUAL ALQ

                          15     18  0343   169 	BGEQ	ALQOK

                                     0345   170 	FIELD	<ALQ IN XAB (NOT = DESIRED ALLOC ON EXTEND)>

                                     035A   171 ALQOK:

                                     035A   172 						;UNDO DAMAGE TO XAB LINKS

         24 AB       FD42 CF     DE  035A   173 	MOVAL	FHCXAB,FAB$L_XAB(R11)

       FD3D CF       FD68 CF     DE  0360   174 	MOVAL	ALQXAB,XAB$L_NXT+FHCXAB

       FD62 CF       FD81 CF     DE  0367   175 	MOVAL	PROXAB,XAB$L_NXT+ALQXAB

                                     036E   176 	$CONNECT RAB=T4RAB,ERR=REPORT_ERROR

                          FC7C'  30  0381   177 	BSBW	ERR

            6E            00     2C  0384   178 	MOVC5	#0,(SP),#^A/A/,#50,CPYBUF		;MOVE 50 A'S INTO CPYBUF

            32         41 8F         0387       

RMSTEST4        XAB RMS TEST PROGRAM ;                           22-AUG-1978 03:30:18   VAX-11 MACRO X0.3-11               Page   5

009                                                                                                                              (1)



                 00000000'EF         038A       

   00000000'EF   00000000'EF     DE  038F   179 	MOVAL	CPYBUF,RAB$L_RBF+T4RAB

   00000000'EF            32     B0  039A   180 	MOVW	#50,RAB$W_RSZ+T4RAB

                                     03A1   181 	$PUT RAB=T4RAB,ERR=REPORT_ERROR

                          FC49'  30  03B4   182 	BSBW	ERR

RMSTEST4        XAB RMS TEST PROGRAM ;                           22-AUG-1978 03:30:18   VAX-11 MACRO X0.3-11               Page   6

009                                                                                                                              (2)



                                     03B7   184 ; TAKE SOME TIME TO TRY OUT FLUSH

                                     03B7   185 	$FLUSH	RAB=T4RAB,ERR=REPORT_ERROR

                          FC33'  30  03CA   186 	BSBW	ERR

                          0404   30  03CD   187 	BSBW	ZERO_XABS

                                     03D0   188 	$OPEN	FAB=FLUSH_FAB,ERR=REPORT_ERROR

                          FC1C'  30  03E1   189 	BSBW	ERR

                          0416   30  03E4   190 	BSBW	CHECK_XABS

                                     03E7   191 	$CONNECT	RAB=FLUSH_RAB,ERR=REPORT_ERROR

                          FC03'  30  03FA   192 	BSBW	ERR

                                     03FD   193 	$GET	RAB=FLUSH_RAB,ERR=REPORT_ERROR

                          FBED'  30  0410   194 	BSBW	ERR

            32   00000000'EF     B1  0413   195 	CMPW	RAB$W_RSZ+FLUSH_RAB,#50		;GOT RIGHT REC. SIZE

                          15     13  041A   196 	BEQL	RSZ_OK

                                     041C   197 	FIELD	<RSZ IN RAB>

                                     0431   198    RSZ_OK:

   00000000'EF            32     2D  0431   199 	CMPC5	#50,CPYBUF,#^A/A/,#0,(SP)		;IS RECORD OK?

            00         41 8F         0438       

                          6E         043B       

                          15     13  043C   200 	BEQL	YES

                                     043E   201 	FIELD	<RECORD>

                                     0453   202    YES:

                                     0453   203 	$GET	FLUSH_RAB			;THIS SHOULD BE EOF

   00000000'8F            50     D1  0460   204 	CMPL	R0,#RMS$_EOF

                          0A     13  0467   205 	BEQL	10$

            5A   00000000'EF     DE  0469   206 	MOVAL	FLUSH_RAB,R10

                          FB8D'  30  0470   207 	BSBW	EOFPUT

                                     0473   208    10$:

                     FBFD CF     D4  0473   209 	CLRL	FAB$L_XAB+FLUSH_FAB		;NO XABS ON CLOSE FOR NOW

                                     0477   210 	$DISCONNECT	RAB=FLUSH_RAB,ERR=REPORT_ERROR	;CLEAN UP AFTER FLUSH

                          FB73'  30  048A   211 	BSBW	ERR

                                     048D   212 	$CLOSE		FAB=FLUSH_FAB,ERR=REPORT_ERROR	;ALL DONE W/ FLUSH TEST

                          FB5F'  30  049E   213 	BSBW	ERR

                                     04A1   214 	TYPE	<ALL DONE WITH FLUSH TEST>

                                     04D0   215 ; ALL DONE WITH FLUSH TEST

RMSTEST4        XAB RMS TEST PROGRAM ;                           22-AUG-1978 03:30:18   VAX-11 MACRO X0.3-11               Page   7

009                                                                                                                              (4)



                                     04D0   217 

                                     04D0   218 

                                     04D0   219 	$DISCONNECT RAB=T4RAB,ERR=REPORT_ERROR

                          FB1A'  30  04E3   220 	BSBW	ERR

                                     04E6   221 	$CLOSE FAB=R11,ERR=REPORT_ERROR

                          FB08'  30  04F5   222 	BSBW	ERR

                                     04F8   223 

                       17 AB     94  04F8   224 	CLRB	FAB$B_SHR(R11)

         24 AB       FBA1 CF     DE  04FB   225 	MOVAL	FHCXAB,FAB$L_XAB(R11)		;SET UP XAB LINKS AGAIN

                          02D0   30  0501   226 	BSBW	ZERO_XABS

                                     0504   227 	$OPEN	FAB=R11,ERR=REPORT_ERROR

                          FAEA'  30  0513   228 	BSBW	ERR

                                     0516   229 

         04 AB            15     E1  0516   230 	BBC	#FAB$V_CBT,FAB$L_FOP(R11),CC

                          15         051A       

                                     051B   231 	FIELD	<CBT BIT WAS SET, THEREFORE>

         04 AB            14     E1  0530   232 CC:	BBC	#FAB$V_CTG,FAB$L_FOP(R11),OK	;AFTER EXTEND, NOT CTG

                          15         0534       

                                     0535   233 	FIELD	<CTG BIT WAS SET, THEREFORE>

                                     054A   234 ; CHECK FHC XAB

                          02B0   30  054A   235   OK:	BSBW	CHECK_XABS

                                     054D   236 ;DO ANOTHER EXTEND, FORCING IT TO GET THE VALUE FROM THE ALQ OF THE FAB

                       24 AB     D4  054D   237 	CLRL	FAB$L_XAB(R11)

         10 AB            0C     D0  0550   238 	MOVL	#12,FAB$L_ALQ(R11)

                                     0554   239 	$EXTEND	FAB=R11,ERR=REPORT_ERROR

                          FA9A'  30  0563   240 	BSBW	ERR

            0C         10 AB     D1  0566   241 	CMPL	FAB$L_ALQ(R11),#12		;ALQ IN FAB=12

                          15     18  056A   242 	BGEQ 	ALQOK1

                                     056C   243 	FIELD	<ALQ IN FAB (NOT = DESIRED ALLOCATION AFTER EXTEND)>

                                     0581   244 ALQOK1:

                                     0581   245 ;CHANGE PROTECTION AND UIC ON CLOSE

                                     0581   246 	$XABPRO_STORE	XAB=PROXAB,PRO=<RWED,RWED,RED,RWED>,UIC=<222,55>

         24 AB            50     D0  0596   247 	MOVL	R0,FAB$L_XAB(R11)				;SET UP XAB

       FBAC CF         08 A0     B0  059A   248 	MOVW	XAB$W_PRO(R0),SAVEPRO				;FOR CHECK

       FC4D CF         0C A0     D0  05A0   249 	MOVL	XAB$L_UIC(R0),UIC				;DITTO

                                     05A6   250 	$CLOSE	FAB=R11,ERR=REPORT_ERROR

                          FA48'  30  05B5   251 	BSBW	ERR

         24 AB       FAE4 CF     DE  05B8   252 	MOVAL	FHCXAB,FAB$L_XAB(R11)

                                     05BE   253 	$OPEN	FAB=R11,ERR=REPORT_ERROR			;CHECK CHANGES AFTER EXT

                          FA30'  30  05CD   254 	BSBW	ERR

         04 AB            15     E1  05D0   255 	BBC	#FAB$V_CBT,FAB$L_FOP(R11),NOCBT

                          15         05D4       

                                     05D5   256 	FIELD	<CBT BIT WAS SET, THEREFORE>

         04 AB            14     E1  05EA   257 NOCBT:	BBC	#FAB$V_CTG,FAB$L_FOP(R11),NOCTG	;SHOULDN'T BE CTG, AFTER EXTEND

                          15         05EE       

                                     05EF   258 	FIELD	<CTG BIT WAS SET, AFTER 2 EXTENDS, THEREFORE>

                                     0604   259 NOCTG:

            59       FA98 CF     DE  0604   260 	MOVAL	FHCXAB,R9				;CHECK PERTINENT FIELDS

   00000046 8F         0C A9     D1  0609   261 	CMPL	XAB$L_HBK(R9),#70			;ALQ=10+48+12

                          15     18  0611   262 	BGEQ	HBKOK

                                     0613   263 	FIELD	<HBK IN FHCXAB (AFTER 2ND EXTEND)>

            00         28 A9     D1  0628   264 HBKOK:	CMPL	XAB$L_SBN(R9),#0			;NOT CTG ANYMORE

                          15     13  062C   265 	BEQL	STILL_OK

                                     062E   266 	FIELD	<SBN IN FHCXAB (AFTER 2ND EXTEND)>

                                     0643   267 STILL_OK:

                          01C7   30  0643   268 	BSBW	CHECK_ALL

                              00 46  0646   269 	.BYTE 70,0			;VALUES FOR ALQ,CTG (NOT CTG)

RMSTEST4        XAB RMS TEST PROGRAM ;                           22-AUG-1978 03:30:18   VAX-11 MACRO X0.3-11               Page   8

009                                                                                                                              (4)



                          025C   30  0648   270 	BSBW	CHECK_PRO

                                     064B   271 	TYPE	<DONE WITH 2ND EXTEND, NOW TEST DATES>

                       24 AB     D4  067A   272 	CLRL	FAB$L_XAB(R11)			;NO XABS ON THIS CLOSE, FOR NOW

                                     067D   273 MTA:	$CLOSE	FAB=R11,ERR=REPORT_ERROR		;CONTINUE IF MTA

                          F971'  30  068C   274 	BSBW	ERR

                                     068F   275 ;BEFORE FINISHING UP, HAVE SOME FUN WITH THE DAT AND RDT XABS

            59       FA69 CF     DE  068F   276 	MOVAL	DATXAB,R9

                                     0694   277 	$BINTIM_S CDTDEC,XAB$Q_CDT(R9)

                                     06A2   278 	$BINTIM_S RDTDEC,XAB$Q_RDT(R9)

                                     06B0   279 	$BINTIM_S EDTDEC,XAB$Q_EDT(R9)

         08 A9       00C8 8F     B0  06BE   280 	MOVW	#200,XAB$W_RVN(R9)

       FAFF CF       00C8 8F     B0  06C4   281 	MOVW	#200,CURRVN

         24 AB            59     D0  06CB   282 	MOVL	R9,FAB$L_XAB(R11)

                       04 A9     D4  06CF   283 	CLRL	XAB$L_NXT(R9)

       FB16 CF       FA8F CF     DE  06D2   284 	MOVAL	RDT,CURRDT				;CURRENT RDT STR

         04 AB   00000080 8F     C8  06D9   285 	BISL	#FAB$M_RWO,FAB$L_FOP(R11)		;REWIND IF MTA

                                     06E1   286 	$CREATE	FAB=R11,ERR=REPORT_ERROR

                          F90D'  30  06F0   287 	BSBW	ERR

       FA06 CF       FA29 CF     DE  06F3   288 	MOVAL	RDTXAB,XAB$L_NXT+DATXAB

                          00C6   30  06FA   289 	BSBW	ZERO_DAT_XABS

                                     06FD   290 	$DISPLAY FAB=R11,ERR=REPORT_ERROR

                          F8F1'  30  070C   291 	BSBW	ERR

                          0348   30  070F   292 	BSBW	CHECK_DATES

       FAD6 CF       FA7D CF     DE  0712   293 	MOVAL	RDT2,CURRDT				;GET A NEW RDT

            59       FA03 CF     DE  0719   294 	MOVAL	RDTXAB,R9

                                     071E   295 	$BINTIM_S RDT2DEC,XAB$Q_RDT(R9)

         08 A9       012C 8F     B0  072C   296 	MOVW	#300,XAB$W_RVN(R9)

       FA91 CF       012C 8F     B0  0732   297 	MOVW	#300,CURRVN

         24 AB            59     D0  0739   298 	MOVL	R9,FAB$L_XAB(R11)		;ONLY RDT FOR CLOSE

                                     073D   299 	$CLOSE	FAB=R11,ERR=REPORT_ERROR

                          F8B1'  30  074C   300 	BSBW	ERR

         24 AB       F9A9 CF     DE  074F   301 	MOVAL	DATXAB,FAB$L_XAB(R11)		;ONLY DAT FOR OPEN

                     F9A7 CF     D4  0755   302 	CLRL	XAB$L_NXT+DATXAB

                          68     10  0759   303 	BSBB	ZERO_DAT_XABS

                                     075B   304 	$FAB_STORE	FAB=R11,FAC=GET		;CAN'T "PUT" TO MTA

                                     075F   305 	$OPEN	FAB=R11,ERR=REPORT_ERROR

                          F88F'  30  076E   306 	BSBW	ERR

         24 AB       F9AB CF     DE  0771   307 	MOVAL	RDTXAB,FAB$L_XAB(R11)		;GET RDT ON DISPLAY

                                     0777   308 	$DISPLAY FAB=R11,ERR=REPORT_ERROR

                          F877'  30  0786   309 	BSBW	ERR

                          02CE   30  0789   310 	BSBW	CHECK_DATES

                       24 AB     D4  078C   311 	CLRL	FAB$L_XAB(R11)			;NO XABS FOR THIS CLOSE

                                     078F   312 	$CLOSE	FAB=R11,ERR=REPORT_ERROR

                          F85F'  30  079E   313 	BSBW	ERR

                                     07A1   314 

                                     07A1   315 

                                     07A1   316 	$FAB_STORE	FAB=R11,FAC=PUT		;RESTORE FAC

         04 AB   00000080 8F     CA  07A5   317 	BICL	#FAB$M_RWO,FAB$L_FOP(R11)	;AND FOP

                                     07AD   318 	FINISH	<XAB TESTS>

                                 04  07C2   319 	RET

RMSTEST4        XAB RMS TEST PROGRAM ;                           22-AUG-1978 03:30:18   VAX-11 MACRO X0.3-11               Page   9

009                                                                                                                              (5)



                                     07C3   321 ;2 ROUTINES TO ZERO OUT THE XABS BEFORE CHECKING THE RESULTS

                                     07C3   322 

                                     07C3   323 ZERO_DAT_XABS:

                                     07C3   324 	;ZERO OUT THE DAT AND RDT XABS

                                     07C3   325 

            6E            00     2C  07C3   326 	MOVC5 #0,(SP),#0,#<XAB$C_DATLEN-6>,DATXAB+6

            1E            00         07C6       

                     F937 CF         07C8       

            6E            00     2C  07CB   327 	MOVC5 #0,(SP),#0,#<XAB$C_RDTLEN-6>,RDTXAB+6

            0E            00         07CE       

                     F953 CF         07D0       

                                 05  07D3   328 	RSB

                                     07D4   329 

                                     07D4   330 ZERO_XABS:

                                     07D4   331 	;ZERO OUT THE FHC, ALL AND PRO XABS

                                     07D4   332 

            6E            00     2C  07D4   333 	MOVC5 #0,(SP),#0,#<XAB$C_FHCLEN-6>,FHCXAB+6

            26            00         07D7       

                     F8CA CF         07D9       

            6E            00     2C  07DC   334 	MOVC5 #0,(SP),#0,#<XAB$C_ALLLEN-6>,ALQXAB+6

            1A            00         07DF       

                     F8EE CF         07E1       

            6E            00     2C  07E4   335 	MOVC5 #0,(SP),#0,#<XAB$C_PROLEN-6>,PROXAB+6

            0A            00         07E7       

                     F906 CF         07E9       

                                 05  07EC   336 	RSB

RMSTEST4        XAB RMS TEST PROGRAM ;                           22-AUG-1978 03:30:18   VAX-11 MACRO X0.3-11               Page  10

009                                                                                                                              (6)



                                     07ED   338 CHECK_CR:

                                     07ED   339 	;ROUTINE TO CHECK XABS AFTER CREATE AND SUBSEQUENT DISPLAY

                          00F7   30  07ED   340 	BSBW	CHECK_FHC

                        01 00 0A 00  07F0   341 	.BYTE 0,10,0,1		;VALUES FOR LRL,ALQ,FFB,SBN

                          0016   30  07F4   342 	BSBW	CHECK_ALL

                              01 0A  07F7   343 	.BYTE 10,1		;VALUES FOR ALQ,CTG ( SHOULD BE)

                          00AB   30  07F9   344 	BSBW	CHECK_PRO

                                 05  07FC   345 	RSB

                                     07FD   346 

                                     07FD   347 CHECK_XABS:

                                     07FD   348 	;GENERAL ROUTINE TO CHECK OUT ALL XABS

                          00E7   30  07FD   349 	BSBW	CHECK_FHC

                        00 38 3A 32  0800   350 	.BYTE 50,58,56,0	;VALUES FOR LRL,ALQ,FFB,SBN(NOT CTG)

                          0006   30  0804   351 	BSBW	CHECK_ALL

                              00 3A  0807   352 	.BYTE 58,0		;VALUES FOR ALQ,CTG ( NOT CTG ANYMORE)

                          009B   30  0809   353 	BSBW	CHECK_PRO

                                 05  080C   354 	RSB

                                     080D   355 

                                     080D   356 CHECK_ALL:

                                     080D   357 	;ROUTINE TO CHECK OUT THE ALLOCATION XAB

            59       F8BB CF     DE  080D   358 	MOVAL ALQXAB,R9

            0F         14 A9     B1  0812   359 	CMPW	XAB$W_DEQ(R9),#15

                          15     13  0816   360 	BEQL	DEQOK

                                     0818   361 	FIELD	<DEQ IN ALL. XAB>

            00         16 A9     91  082D   362 DEQOK:	CMPB	XAB$B_BKZ(R9),#0

                          15     13  0831   363 	BEQL	BKZOK

                                     0833   364 	FIELD	<BKZ IN ALL. XAB>

            50         00 BE     9A  0848   365 BKZOK:	MOVZBL	@(SP),R0

                          6E     D6  084C   366 	INCL	(SP)

         10 A9            50     D1  084E   367 	CMPL	R0,XAB$L_ALQ(R9)

                          15     15  0852   368 	BLEQ	ALQOK2

                                     0854   369 	FIELD	<ALQ IN ALL. XAB>

            50         00 BE     9A  0869   370 ALQOK2:	MOVZBL	@(SP),R0

                          6E     D6  086D   371 	INCL	(SP)

            1A            50     E9  086F   372 	BLBC	R0,NOTCTG

         08 A9            07     E0  0872   373 	BBS	#XAB$V_CTG,XAB$B_AOP(R9),AOPOK	;SHOULD BE SET

                          2F         0876       

                                     0877   374 	FIELD	<CTG CLR IN AOP, THEREFORE>

         08 A9            07     E1  088C   375 NOTCTG:	BBC	#XAB$V_CTG,XAB$B_AOP(R9),AOPOK	;SHOULD BE CLEAR

                          15         0890       

                                     0891   376 	FIELD	<CTG SET IN AOP, THEREFORE>

                                 05  08A6   377 AOPOK:	RSB

                                     08A7   378 

                                     08A7   379 CHECK_PRO:

                                     08A7   380 ;CHECK THE PROTECTION XAB

            59       F841 CF     DE  08A7   381 	MOVAL	PROXAB,R9

         08 A9       F89C CF     B1  08AC   382 	CMPW	SAVEPRO,XAB$W_PRO(R9)		;CMP TO SAVED VALUE

                          15     13  08B2   383 	BEQL	PROOK

                                     08B4   384 	FIELD	<PROT FIELD IN PROT XAB>

         0C A9       F926 CF     D1  08C9   385 PROOK:	CMPL	UIC,XAB$L_UIC(R9)

                          15     13  08CF   386 	BEQL	UICOK

                                     08D1   387 	FIELD	<UIC FIELD IN PROT. XAB>

                                 05  08E6   388 UICOK:	RSB

                                     08E7   389 

RMSTEST4        XAB RMS TEST PROGRAM ;                           22-AUG-1978 03:30:18   VAX-11 MACRO X0.3-11               Page  11

009                                                                                                                              (7)



                                     08E7   391 CHECK_FHC:

                                     08E7   392 ;  CHECK FHC XAB CAREFULLY

            59       F7B5 CF     DE  08E7   393 	MOVAL	FHCXAB,R9			;R9 IS PTR TO XAB THRU-OUT CMP'S

   000003E7 8F         24 A9     D1  08EC   394 	CMPL	EXTRA(R9),#999			;CHECK SPARE CHAR.

                          15     13  08F4   395 	BEQL	EXTC

                                     08F6   396 	FIELD	<SPARE CHARACTERISTICS IN FHC XAB>

                                     090B   397 EXTC:

            03         08 A9     91  090B   398 	CMPB	XAB$B_RFO(R9),#FAB$C_VFC		;CHECK REC. FORMAT & ORG.

                          15     13  090F   399 	BEQL	RFOC

                                     0911   400 	FIELD	<RFO IN FHC XAB>

         09 A9            02     93  0926   401 RFOC:	BITB	#FAB$M_CR,XAB$B_ATR(R9)		;CHECK RAT FIELD

                          15     12  092A   402 	BNEQ	ATRC

                                     092C   403 	FIELD	<ATR IN FHC XAB>

            50         00 BE     9A  0941   404 ATRC:	MOVZBL	@(SP),R0

                          6E     D6  0945   405 	INCL	(SP)

            50         0A A9     B1  0947   406 	CMPW	XAB$W_LRL(R9),R0			;CHECK LONGEST RECORD LEN

                          15     13  094B   407 	BEQL	LRLC

                                     094D   408 	FIELD	<LRL IN FHC XAB>

            50         00 BE     9A  0962   409 LRLC:	MOVZBL	@(SP),R0

                          6E     D6  0966   410 	INCL	(SP)

            50         0C A9     D1  0968   411 	CMPL	XAB$L_HBK(R9),R0			;CHECK ALQ

                          15     18  096C   412 	BGEQ	HBKC

                                     096E   413 	FIELD	<HBK IN FHC XAB>

            01         10 A9     D1  0983   414 HBKC:	CMPL	XAB$L_EBK(R9),#1			;CHECK END BLOCK

                          15     13  0987   415 	BEQL	EBKC

                                     0989   416 	FIELD	<EBK IN FHC XAB>

            50         00 BE     9A  099E   417 EBKC:	MOVZBL	@(SP),R0

                          6E     D6  09A2   418 	INCL	(SP)

            50         14 A9     B1  09A4   419 	CMPW	XAB$W_FFB(R9),R0			;CHECK FIRST FREE BYTE

                          15     13  09A8   420 	BEQL	FFBC					;ITS LEN OF REC + FSZ + 2

                                     09AA   421 	FIELD	<FFB IN FHC XAB>

            00         16 A9     91  09BF   422 FFBC:	CMPB	XAB$B_BKZ(R9),#0			;CHECK BUCKET SIZE

                          15     13  09C3   423 	BEQL	BKZC

                                     09C5   424 	FIELD	<BKZ IN FHC XAB>

            04         17 A9     91  09DA   425 BKZC:	CMPB	XAB$B_HSZ(R9),#4			;CHECK FIXED AREA SIZE

                          15     13  09DE   426 	BEQL	HSZC

                                     09E0   427 	FIELD	<HSZ IN FHC XAB>

       0064 8F         18 A9     B1  09F5   428 HSZC:	CMPW	XAB$W_MRZ(R9),#100			;CHECK MAX. REC SIZE

                          15     13  09FB   429 	BEQL	MRZC

                                     09FD   430 	FIELD	<MRZ IN FHC XAB>

            0F         1A A9     B1  0A12   431 MRZC:	CMPW	XAB$W_DXQ(R9),#15			;CHECK DEF EXT. QTY

                          15     13  0A16   432 	BEQL	DXQC

                                     0A18   433 	FIELD	<DXQ IN FHC XAB>

            50         00 BE     9A  0A2D   434 DXQC:	MOVZBL	@(SP),R0

                          6E     D6  0A31   435 	INCL	(SP)

            08            50     E9  0A33   436 	BLBC	R0,10$

            00         28 A9     D1  0A36   437 	CMPL	XAB$L_SBN(R9),#0		;MAKE SURE NON-ZERO LBN

                                     0A3A   438 						;SINCE IT'S CTG

                          1D     12  0A3A   439 	BNEQ	FHC_OK

                          06     11  0A3C   440 	BRB	20$

            00         28 A9     D1  0A3E   441 10$:	CMPL XAB$L_SBN(R9),#0			;MAKE SURE ZERO LBN

                          15     13  0A42   442 	BEQL	FHC_OK					;SINCE IT ISN'T CONTIG.

                                     0A44   443 20$:	FIELD	<SBN IN FHC XAB>

                                 05  0A59   444 FHC_OK:	RSB

RMSTEST4        XAB RMS TEST PROGRAM ;                           22-AUG-1978 03:30:18   VAX-11 MACRO X0.3-11               Page  12

009                                                                                                                              (9)



                                     0A5A   446 

                                     0A5A   447 CHECK_DATES:

                                     0A5A   448 ;ROUTINE TO CHECK EDT AND CDT IN DAT XAB

                                     0A5A   449 ;AND RDT AND RVN IN BOTH DAT AND RDT XAB'S

                                     0A5A   450 

       F76D CF            0B     B0  0A5A   451 	MOVW	#DATLEN,LEN		;DEFAULT IS CHECK DATE ONLY

         40 AB   00000000'8F     E0  0A5F   452 	BBS	#DEV$V_SQD,FAB$L_DEV(R11),10$

                          05         0A67       

       F75F CF            14     B0  0A68   453 	MOVW	#TIMLEN,LEN		;IF NOT MTA, CHECK DATE AND TIME

            59       F68B CF     DE  0A6D   454 10$:	MOVAL	DATXAB,R9

                                     0A72   455 	$ASCTIM_S	,CMPDATDEC,XAB$Q_CDT(R9)

       F6C3 CF       F744 CF     29  0A84   456 	CMPC3	LEN,CDT,CMPDAT

                     F740 CF         0A8B       

                          15     13  0A8E   457 	BEQL	CDTOK

                                     0A90   458 	FIELD	<CDT IN DAT XAB>

                                     0AA5   459 CDTOK:

                                     0AA5   460 	$ASCTIM_S	,CMPDATDEC,XAB$Q_EDT(R9)

       F6C0 CF            0B     29  0AB7   461 	CMPC3	#DATLEN,EDT,CMPDAT		;ONLY CHECK DATE

                     F70F CF         0ABC       

                          15     13  0ABF   462 	BEQL	EDTOK

                                     0AC1   463 	FIELD	<EDT IN DAT XAB>

                                     0AD6   464 EDTOK:

         40 AB   00000000'8F     E1  0AD6   465 	BBC	#DEV$V_SQD,FAB$L_DEV(R11),10$

                          01         0ADE       

                                 05  0ADF   466 	RSB						;THAT'S IT IF MTA

                                     0AE0   467 10$:	$ASCTIM_S	,CMPDATDEC,XAB$Q_RDT(R9)

       F6F6 DF       F6D6 CF     29  0AF2   468 	CMPC3	LEN,@CURRDT,CMPDAT

                     F6D2 CF         0AF9       

                          15     13  0AFC   469 	BEQL	RDTOK

                                     0AFE   470 	FIELD	<RDT IN DAT XAB>

                                     0B13   471 RDTOK:

                                     0B13   472 	$ASCTIM_S	,CMPDATDEC,XAB$Q_RDT+RDTXAB

       F6C2 DF       F6A2 CF     29  0B26   473 	CMPC3	LEN,@CURRDT,CMPDAT

                     F69E CF         0B2D       

                          15     13  0B30   474 	BEQL	RDTOK1

                                     0B32   475 	FIELD	<RDT IN RDT XAB>

                                     0B47   476 RDTOK1:

         08 A9       F67F CF     B1  0B47   477 	CMPW	CURRVN,XAB$W_RVN(R9)

                          15     13  0B4D   478 	BEQL	RVNOK

                                     0B4F   479 	FIELD	<RVN IN DAT XAB>

       F5BD CF       F662 CF     B1  0B64   480 RVNOK:	CMPW	CURRVN,XAB$W_RVN+RDTXAB

                          15     13  0B6B   481 	BEQL	RVNOK1

                                     0B6D   482 	FIELD	<RVN IN RDT XAB>

                                 05  0B82   483 RVNOK1:	RSB

                                     0B83   484 .END

RMSTEST4        XAB RMS TEST PROGRAM ;                           22-AUG-1978 03:30:18   VAX-11 MACRO X0.3-11               Page  13

SYMBOL TABLE                                                                                                                     (9)



$$.PSECT_EP    = 00000000            ERR              ********   X   02   FAB$M_JNL      = 00400000            

$$.TAB         = 00000134 R  D  02   EXTC             0000090B R  D  02   FAB$M_KFO      = 40000000            

$$.TABEND      = 0000014C R  D  02   EXTRA          = 00000024    D       FAB$M_MSE      = 00000010            

$$.TMP         = 00000001    D       FAB$B_BID        00000000            FAB$M_MXV      = 00000002            

$$.TMP1        = 00000002    D       FAB$B_BKS        0000003E    D       FAB$M_NAM      = 01000000            

$$.TMP2        = 0000005B    D       FAB$B_BLN        00000001            FAB$M_NEF      = 00000400            

$$.TMP5        = 00000002    D       FAB$B_DNS        00000035    D       FAB$M_NFS      = 00010000            

$$.TMPX        = 00000372 R  D  05   FAB$B_FAC        00000016    D       FAB$M_NIL      = 00000020            

$$.TMPX1       = 0000000E    D       FAB$B_FNS        00000034    D       FAB$M_OFP      = 20000000            

$$RMSTEST      = 0000001E            FAB$B_FSZ        0000003F    D       FAB$M_POS      = 00000100            

$$RMS_PBUGCHK  = 00000010            FAB$B_ORG        0000001D    D       FAB$M_PPF      = 00040000            

$$RMS_TBUGCHK  = 00000008            FAB$B_RAT        0000001E    D       FAB$M_PPF_IND  = 00004000            

$$RMS_UMODE    = 00000004            FAB$B_RFM        0000001F    D       FAB$M_PPF_RAT  = 00003FC0            

..AFLG         = 00000000    D       FAB$B_RTV        0000001C    D       FAB$M_PRN      = 00000004            

..FLG          = 00000002    D       FAB$B_SHR        00000017    D       FAB$M_PUT      = 00000001            

..N            = 00000001            FAB$C_BID      = 00000003    D       FAB$M_RCK      = 00800000            

..TYP          = 00000003    D       FAB$C_BLN        00000050    D       FAB$M_RWC      = 00000800            

.LEN           = 00000001    D       FAB$C_FIX      = 00000001            FAB$M_RWO      = 00000080    D       

ALQOK            0000035A R  D  02   FAB$C_HSH      = 00000030            FAB$M_SCF      = 00004000            

ALQOK1           00000581 R  D  02   FAB$C_IDX      = 00000020            FAB$M_SHRDEL   = 00000004            

ALQOK2           00000869 R  D  02   FAB$C_MAXRFM   = 00000003            FAB$M_SHRGET   = 00000002            

ALQXAB           000000CC RG D  02   FAB$C_REL      = 00000010            FAB$M_SHRPUT   = 00000001            

AOPOK            000008A6 R  D  02   FAB$C_RFM_DFLT = 00000002            FAB$M_SHRUPD   = 00000008            

ATRC             00000941 R  D  02   FAB$C_SEQ      = 00000000    D       FAB$M_SPL      = 00002000            

BEGPUT           ********   X   02   FAB$C_UDF      = 00000000            FAB$M_SQO      = 00000040            

BEG_DESCR        ********   X   02   FAB$C_VAR      = 00000002    D       FAB$M_SUP      = 00000004            

BIT...         = 00000001    D       FAB$C_VFC      = 00000003    D       FAB$M_TEF      = 10000000            

BKZC             000009DA R  D  02   FAB$K_BLN        00000050            FAB$M_TMD      = 00000010            

BKZOK            00000848 R  D  02   FAB$L_ALQ        00000010    D       FAB$M_TMP      = 00000008            

CC               00000530 R  D  02   FAB$L_CTX        00000018    D       FAB$M_TRN      = 00000010            

CDT              0000014E R  D  02   FAB$L_DEV        00000040    D       FAB$M_UFM      = 04000000            

CDTDEC           000001AA R  D  02   FAB$L_DNA        00000030    D       FAB$M_UFO      = 00020000            

CDTL           = 00000017    D       FAB$L_FNA        0000002C    D       FAB$M_UPD      = 00000008            

CDTOK            00000AA5 R  D  02   FAB$L_FOP        00000004    D       FAB$M_UPI      = 00000040            

CHECK_ALL        0000080D R  D  02   FAB$L_JNL        00000020    D       FAB$M_WCK      = 00000200            

CHECK_CR         000007ED R  D  02   FAB$L_MRN        00000038    D       FAB$S_ORG      = 00000004            

CHECK_DATES      00000A5A R  D  02   FAB$L_NAM        00000028    D       FAB$S_PPF_RAT  = 00000008            

CHECK_FHC        000008E7 R  D  02   FAB$L_SDC        00000044            FAB$V_BIO      = 00000005            

CHECK_PRO        000008A7 R  D  02   FAB$L_STS        00000008            FAB$V_BLK      = 00000003            

CHECK_XABS       000007FD R  D  02   FAB$L_STV        0000000C            FAB$V_BRO      = 00000006            

CMDORAB          ********   X   02   FAB$L_XAB        00000024    D       FAB$V_CBT      = 00000015    D       

CMPDAT           000001CE R  D  02   FAB$M_BIO      = 00000020            FAB$V_CIF      = 00000019            

CMPDATDEC        000001E7 R  D  02   FAB$M_BLK      = 00000008            FAB$V_CR       = 00000001    D       

CPYBUF           ********   X   02   FAB$M_BRO      = 00000040            FAB$V_CTG      = 00000014    D       

CURRDT           000001EF R  D  02   FAB$M_CBT      = 00200000            FAB$V_DEL      = 00000002            

CURRVN           000001CA R  D  02   FAB$M_CIF      = 02000000            FAB$V_DFW      = 00000005            

DATLEN         = 0000000B    D       FAB$M_CR       = 00000002    D       FAB$V_DLT      = 0000000F            

DATXAB           000000FC RG D  02   FAB$M_CTG      = 00100000            FAB$V_DMO      = 0000000C            

DEQOK            0000082D R  D  02   FAB$M_DEL      = 00000004            FAB$V_ESC      = 0000001B            

DEV$V_SQD        ********   X   02   FAB$M_DFW      = 00000020            FAB$V_EXE      = 00000007            

DXQC             00000A2D R  D  02   FAB$M_DLT      = 00008000            FAB$V_FTN      = 00000000            

EBKC             0000099E R  D  02   FAB$M_DMO      = 00001000            FAB$V_GET      = 00000001    D       

EDT              0000017C R  D  02   FAB$M_ESC      = 08000000            FAB$V_INP      = 00000013            

EDTDEC           000001BA R  D  02   FAB$M_EXE      = 00000080            FAB$V_JNL      = 00000016            

EDTL           = 00000017    D       FAB$M_FTN      = 00000001            FAB$V_KFO      = 0000001E            

EDTOK            00000AD6 R  D  02   FAB$M_GET      = 00000002            FAB$V_MSE      = 00000004            

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

RMSTEST4        XAB RMS TEST PROGRAM ;                           22-AUG-1978 03:30:18   VAX-11 MACRO X0.3-11               Page  14

SYMBOL TABLE                                                                                                                     (9)



FAB$V_NAM      = 00000018            OK               0000054A R  D  02   XAB$C_ALLLEN     00000020    D       

FAB$V_NEF      = 0000000A            OK1              000002BC R  D  02   XAB$C_ANY      = 00000000            

FAB$V_NFS      = 00000010            OK2              000002D6 R  D  02   XAB$C_CYL      = 00000001            

FAB$V_NIL      = 00000005            PROOK            000008C9 R  D  02   XAB$C_DAT      = 00000012    D       

FAB$V_OFP      = 0000001D            PROXAB           000000EC RG D  02   XAB$C_DATLEN     00000024    D       

FAB$V_ORG      = 00000004            RAB$L_RBF        ********   X   02   XAB$C_FHC      = 0000001D    D       

FAB$V_POS      = 00000008            RAB$W_RSZ        ********   X   02   XAB$C_FHCLEN     0000002C    D       

FAB$V_PPF      = 00000012            RDT              00000165 R  D  02   XAB$C_LBN      = 00000002            

FAB$V_PPF_IND  = 0000000E            RDT2             00000193 R  D  02   XAB$C_PRO      = 00000013    D       

FAB$V_PPF_RAT  = 00000006            RDT2DEC          000001C2 R  D  02   XAB$C_PROLEN     00000010    D       

FAB$V_PRN      = 00000002            RDTDEC           000001B2 R  D  02   XAB$C_RDT      = 0000001E    D       

FAB$V_PUT      = 00000000    D       RDTL           = 00000017    D       XAB$C_RDTLEN     00000014    D       

FAB$V_RCK      = 00000017            RDTL2          = 00000017    D       XAB$C_RFI      = 00000004            

FAB$V_RWC      = 0000000B            RDTOK            00000B13 R  D  02   XAB$C_TRM      = 0000001F    D       

FAB$V_RWO      = 00000007            RDTOK1           00000B47 R  D  02   XAB$C_TRMLEN     00000018    D       

FAB$V_SCF      = 0000000E            RDTXAB           00000120 RG D  02   XAB$C_VBN      = 00000003            

FAB$V_SHRDEL   = 00000002            REPORT_ERROR     ********   X   02   XAB$K_ALLLEN     00000020            

FAB$V_SHRGET   = 00000001            RFOC             00000926 R  D  02   XAB$K_DATLEN     00000024            

FAB$V_SHRPUT   = 00000000            RIGHT            000002A2 R  D  02   XAB$K_FHCLEN     0000002C            

FAB$V_SHRUPD   = 00000003            RMS$_EOF         ********   X   02   XAB$K_PROLEN     00000010            

FAB$V_SPL      = 0000000D            RMT$TEST_4A      000001F7 RG D  02   XAB$K_RDTLEN     00000014            

FAB$V_SQO      = 00000006            RSZ_OK           00000431 R  D  02   XAB$K_TRMLEN     00000018            

FAB$V_SUP      = 00000002    D       RVNOK            00000B64 R  D  02   XAB$L_ALQ        00000010    D       

FAB$V_TEF      = 0000001C            RVNOK1           00000B82 R  D  02   XAB$L_AST_ADDR   00000008    D       

FAB$V_TMD      = 00000004            SAVEPRO          0000014C R  D  02   XAB$L_AST_PARM   0000000C    D       

FAB$V_TMP      = 00000003            STILL_OK         00000643 R  D  02   XAB$L_CDT0       00000014            

FAB$V_TRN      = 00000004            SYS$ASCTIM       ********   X   02   XAB$L_CDT4       00000018            

FAB$V_UFM      = 0000001A            SYS$BINTIM       ********   X   02   XAB$L_EBK        00000010    D       

FAB$V_UFO      = 00000011            SYS$CLOSE        ********  GX   02   XAB$L_EDT0       0000001C            

FAB$V_UPD      = 00000003            SYS$CONNECT      ********  GX   02   XAB$L_EDT4       00000020            

FAB$V_UPI      = 00000006    D       SYS$CREATE       ********  GX   02   XAB$L_HBK        0000000C    D       

FAB$V_WCK      = 00000009            SYS$DISCONNECT   ********  GX   02   XAB$L_LOC        0000000C    D       

FAB$W_BLS        0000003C    D       SYS$DISPLAY      ********  GX   02   XAB$L_NXT        00000004    D       

FAB$W_DEQ        00000014    D       SYS$EXTEND       ********  GX   02   XAB$L_RDT0       0000000C            

FAB$W_IFI        00000002            SYS$FLUSH        ********  GX   02   XAB$L_RDT4       00000010            

FAB$W_MRS        00000036    D       SYS$GET          ********  GX   02   XAB$L_SBN        00000028    D       

FFBC             000009BF R  D  02   SYS$OPEN         ********  GX   02   XAB$L_UIC        0000000C    D       

FHCXAB           000000A0 RG D  02   SYS$PUT          ********  GX   02   XAB$M_CBT      = 00000020            

FHC_OK           00000A59 R  D  02   T4FAB            00000000 RG D  02   XAB$M_CTG      = 00000080            

FINPUT           ********   X   02   T4RAB            ********   X   02   XAB$M_DSABL_AST= 00000001            

FIN_DESCR        ********   X   02   T4START          00000000 RG D  02   XAB$M_HRD      = 00000001            

FLDPUT           ********   X   02   TIMLEN         = 00000014    D       XAB$M_NODEL    = 00000008            

FLD_DESCR        ********   X   02   TRMXAB           00000134 RG D  02   XAB$M_NOEXE    = 00000004            

FLUSH_FAB        00000050 RG D  02   UIC              000001F3 R  D  02   XAB$M_NOREAD   = 00000001            

FLUSH_RAB        ********   X   02   UICOK            000008E6 R  D  02   XAB$M_NOWRITE  = 00000002            

GBL...         = 00000000    D       VERBOSITY        ********   X   02   XAB$M_ONC      = 00000002            

HBKC             00000983 R  D  02   XAB$B_AID        00000017    D       XAB$Q_CDT        00000014    D       

HBKOK            00000628 R  D  02   XAB$B_ALN        00000009            XAB$Q_EDT        0000001C    D       

HSZC             000009F5 R  D  02   XAB$B_AOP        00000008    D       XAB$Q_RDT        0000000C    D       

LEN              000001CC R  D  02   XAB$B_ATR        00000009    D       XAB$S_GRP      = 00000004            

LRLC             00000962 R  D  02   XAB$B_BKZ        00000016    D       XAB$S_OWN      = 00000004            

MRZC             00000A12 R  D  02   XAB$B_BLN        00000001            XAB$S_SYS      = 00000004            

MTA              0000067D R  D  02   XAB$B_COD        00000000            XAB$S_WLD      = 00000004            

NAMBLK           ********   X   02   XAB$B_FLAGS      00000012    D       XAB$V_CBT      = 00000005            

NOCBT            000005EA R  D  02   XAB$B_HSZ        00000017    D       XAB$V_CTG      = 00000007    D       

NOCTG            00000604 R  D  02   XAB$B_RFO        00000008    D       XAB$V_DSABL_AST= 00000000            

NOTCTG           0000088C R  D  02   XAB$C_ALL      = 00000014    D       XAB$V_GRP      = 00000008            

RMSTEST4        XAB RMS TEST PROGRAM ;                           22-AUG-1978 03:30:18   VAX-11 MACRO X0.3-11               Page  15

SYMBOL TABLE                                                                                                                     (9)



XAB$V_HRD      = 00000000            

XAB$V_NODEL    = 00000003            

XAB$V_NOEXE    = 00000002            

XAB$V_NOREAD   = 00000000            

XAB$V_NOWRITE  = 00000001            

XAB$V_ONC      = 00000001            

XAB$V_OWN      = 00000004            

XAB$V_SYS      = 00000000            

XAB$V_WLD      = 0000000C            

XAB$W_DEQ        00000014    D       

XAB$W_DXQ        0000001A    D       

XAB$W_EBK0       00000010            

XAB$W_EBK2       00000012            

XAB$W_FFB        00000014    D       

XAB$W_GRP        0000000E    D       

XAB$W_HBK0       0000000C            

XAB$W_HBK2       0000000E            

XAB$W_LRL        0000000A    D       

XAB$W_MBM        0000000C    D       

XAB$W_MBX_CHAN   00000010    D       

XAB$W_MRZ        00000018    D       

XAB$W_PRO        00000008    D       

XAB$W_RFI        00000018            

XAB$W_RFI0       00000018    D       

XAB$W_RFI2       0000001A    D       

XAB$W_RFI4       0000001C    D       

XAB$W_RVN        00000008    D       

XAB$W_VOL        0000000A    D       

YES              00000453 R  D  02   

ZERO_DAT_XABS    000007C3 R  D  02   

ZERO_XABS        000007D4 R  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        00000B83      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          0000002A      04     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT BYTE  

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





THERE WERE NO ERRORS OR WARNINGS.

872. BYTES LEFT IN FREE MEMORY POOL.

5802. BYTES OF RECLAIMED MEMORY.

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

182 MLB DIR RDS - 1027 GETS TO DEFINE 58 MACROS. 84 INTER. FILE WRITES. 

