TST$DTCOMMON    - COMMON ROUTINES FOR DTS/DTR                    22-AUG-1978 01:05:03   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (2)      92  DECLARATIONS

   (3)     116  TST$CHECK_SS - CHECK SYSTEM SERVICE STATUS CODE

   (4)     178  TST$CHECK_RMS - CHECK RMS COMPLETION CODE

   (5)     232  TST$CHECK_IOSB - CHECK I/O STATUS BLOCK CODE

   (6)     286  TST$QIOW -  NETWORK QIO ROUTINES

   (7)     379  TST$EXAM_MAIL - EXAMINE MAILBOX MESSAGE

   (8)     444  TST$FLUSH_MAIL - FLUSH MAILBOX

   (9)     498  TST$PPRINT_FAO - PRINT OUTPUT FROM FAO

   (10)    556  TST$DISPLAY_MSG - DISPLAY MESSAGE

   (11)    644  TST$STANDARD - MOVE STANDARD DATA PATTERN

TST$DTCOMMON    - COMMON ROUTINES FOR DTS/DTR                    22-AUG-1978 01:05:03   VAX-11 MACRO X0.3-11               Page   1

X0.1-3                                                                                                                           (1)



                                     0000     1 	.TITLE	TST$DTCOMMON - COMMON ROUTINES FOR DTS/DTR

                                     0000     2 	.IDENT	/X0.1-3/

                                     0000     3 

                                     0000     4 ;

                                     0000     5 ;			  COPYRIGHT (c) 1977, 1978 BY

                                     0000     6 ;	      DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

                                     0000     7 ;

                                     0000     8 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND  COPIED

                                     0000     9 ; ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE AND WITH THE

                                     0000    10 ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR  ANY  OTHER

                                     0000    11 ; COPIES  THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY

                                     0000    12 ; OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF  THE  SOFTWARE  IS  HEREBY

                                     0000    13 ; TRANSFERRED.

                                     0000    14 ;

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

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

                                     0000    17 ; CORPORATION.

                                     0000    18 ;

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

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

                                     0000    21 ;

                                     0000    22 

                                     0000    23 ;++

                                     0000    24 ; FACILITY: DTS/DTR DECNET TEST PACKAGE

                                     0000    25 ;

                                     0000    26 ; ABSTRACT: MISCELLANEOUS ROUTINES COMMON TO DTS/DTR.

                                     0000    27 ;

                                     0000    28 ; ENVIRONMENT: DTS/DTR RUN IN USER MODE AND REQUIRE NETWORK PRIVILEGE.

                                     0000    29 ;

                                     0000    30 ; AUTHOR: JAMES A. KRYCKA,	CREATION DATE: 11-AUG-77

                                     0000    31 ;

                                     0000    32 ; MODIFICATIONS:

                                     0000    33 ;

                                     0000    34 ;--

TST$DTCOMMON    - COMMON ROUTINES FOR DTS/DTR                    22-AUG-1978 01:05:03   VAX-11 MACRO X0.3-11               Page   2

X0.1-3          DECLARATIONS                                                                                                     (2)



                                     0000    36 	.SBTTL	DECLARATIONS

                                     0000    37 

                                     0000    38 ;

                                     0000    39 ; INCLUDE FILES:

                                     0000    40 ;

                                     0000    41 	EFNDEF				; DEFINE EFN'S AND FUNCTION CODES

                                     0000    42 	$QIODEF				; DEFINE QIO OFFSETS

                                     0000    43 	$RABDEF				; DEFINE RAB OFFSETS

                                     0000    44 	$RMSDEF				; DEFINE RMS COMPLETION CODES

                                     0000    45 	$SSDEF				; DEFINE SYSTEM SERVICE STATUS CODES

                                     0000    46 	.IIF NE	K_LIST_MEB, .LIST MEB	; DEFINED IN DTPREFIX.MAR

                                     0000    47 ;

                                     0000    48 ; MACROS:

                                     0000    49 ;

                                     0000    50 ;	NONE

                                     0000    51 ;

                                     0000    52 ; EQUATED SYMBOLS:

                                     0000    53 ;

                                     0000    54 ;	NONE

                                     0000    55 ;

                                     0000    56 ; OWN STORAGE:

                                     0000    57 ;

                                     0000    58 ;	NONE

TST$DTCOMMON    - COMMON ROUTINES FOR DTS/DTR                    22-AUG-1978 01:05:03   VAX-11 MACRO X0.3-11               Page   3

X0.1-3          TST$CHECK_SS - CHECK SYSTEM SERVICE STATUS CODE                                                                  (3)



                                     0000    60 	.SBTTL	TST$CHECK_SS - CHECK SYSTEM SERVICE STATUS CODE

                                 00000000    61 	.PSECT	TST$CODE	NOWRT

                                     0000    62 C::					; SYMBOL FOR DEBUGGING PURPOSES

                                     0000    63 

                                     0000    64 ;++

                                     0000    65 ; FUNCTIONAL DESCRIPTION:

                                     0000    66 ;

                                     0000    67 ;	TST$CHECK_SS CHECKS THE STATUS CODE IN R0 FOLLOWING A CALL TO A

                                     0000    68 ;	SYSTEM SERVICE. IF FAILURE (EXCEPT AS NOTED BELOW) IS INDICATED

                                     0000    69 ;	THE IMAGE IS TERMINATED WITH R0 AS THE EXIT COMPLETION CODE.

                                     0000    70 ;

                                     0000    71 ; CALLING SEQUENCE:

                                     0000    72 ;

                                     0000    73 ;	BSB/JSB	TST$CHECK_SS

                                     0000    74 ;

                                     0000    75 ; INPUT PARAMETERS:

                                     0000    76 ;

                                     0000    77 ;	R0	SYSTEM SERVICE STATUS CODE

                                     0000    78 ;

                                     0000    79 ; IMPLICIT INPUTS:

                                     0000    80 ;

                                     0000    81 ;	NONE

                                     0000    82 ;

                                     0000    83 ; OUTPUT PARAMETERS:

                                     0000    84 ;

                                     0000    85 ;	R1	TST$CHECK_SS COMPLETION CODE

                                     0000    86 ;

                                     0000    87 ; IMPLICIT OUTPUTS:

                                     0000    88 ;

                                     0000    89 ;	NONE

                                     0000    90 ;

                                     0000    91 ; COMPLETION CODES:

                                     0000    92 ;

                                     0000    93 ;	R1	0 = STATUS CODE IS ABORT (SS$_ABORT) OR

                                     0000    94 ;		    STATUS CODE IS CANCEL (SS$_CANCEL) OR

                                     0000    95 ;		    STATUS CODE IS REJECT (SS$_REJECT) OR

                                     0000    96 ;		    STATUS CODE IS FILE NOT ACCESSED (SS$_FILNOTACC)

                                     0000    97 ;		1 = SUCCESS

                                     0000    98 ;

                                     0000    99 ; SIDE EFFECTS:

                                     0000   100 ;

                                     0000   101 ;	IF THE STATUS CODE INDICATES FAILURE (EXCEPT AS NOTED ABOVE),

                                     0000   102 ;	THE IMAGE IS TERMINATED WITH THE STATUS CODE AS THE EXIT

                                     0000   103 ;	COMPLETION CODE.

                                     0000   104 ;

                                     0000   105 ;--

                                     0000   106 

                                     0000   107 TST$CHECK_SS::				; CONTROL POINT

            51            01     D0  0000   108 	MOVL	#1,R1			; SET RETURN CODE TO SUCCESS

            25            50     E8  0003   109 	BLBS	R0,20$			; WAS SYSTEM SERVICE SUCCESSFUL?

            2C            50     B1  0006   110 	CMPW	R0,#<SS$_ABORT&^XFFFF>	; NO, CHECK FOR ABORTED I/O

                          1E     13  0009   111 	BEQLU	10$			; NON-FATAL IF ABORTED

       0830 8F            50     B1  000B   112 	CMPW	R0,#<SS$_CANCEL&^XFFFF> ; NO, CHECK FOR CANCELLED I/O

                          17     13  0010   113 	BEQLU	10$			; NON-FATAL IF CANCELLED

       0294 8F            50     B1  0012   114 	CMPW	R0,#<SS$_REJECT&^XFFFF> ; NO, CHECK FOR CONNECT REJECTED

                          10     13  0017   115 	BEQLU	10$			; NON-FATAL IF CONNECT REJECTED

       00AC 8F            50     B1  0019   116 	CMPW	R0,#<SS$_FILNOTACC&^XFFFF> ; NO, CHECK FOR FILE NOT ACCESSED

TST$DTCOMMON    - COMMON ROUTINES FOR DTS/DTR                    22-AUG-1978 01:05:03   VAX-11 MACRO X0.3-11               Page   4

X0.1-3          TST$CHECK_SS - CHECK SYSTEM SERVICE STATUS CODE                                                                  (3)



                          09     13  001E   117 	BEQLU	10$			; OCCURS IF DTR HAS EXITED

                                     0020   118 	$EXIT_S	R0			; TERMINATE THE IMAGE!!

                          51     D4  0029   119 10$:	CLRL	R1			; SET RETURN CODE TO FAILURE

                                 05  002B   120 20$:	RSB				; EXIT

TST$DTCOMMON    - COMMON ROUTINES FOR DTS/DTR                    22-AUG-1978 01:05:03   VAX-11 MACRO X0.3-11               Page   5

X0.1-3          TST$CHECK_RMS - CHECK RMS COMPLETION CODE                                                                        (4)



                                     002C   122 	.SBTTL	TST$CHECK_RMS - CHECK RMS COMPLETION CODE

                                 0000002C   123 	.PSECT	TST$CODE	NOWRT

                                     002C   124 

                                     002C   125 ;++

                                     002C   126 ; FUNCTIONAL DESCRIPTION:

                                     002C   127 ;

                                     002C   128 ;	TST$CHECK_RMS CHECKS THE COMPLETION CODE IN R0 FOLLOWING A CALL

                                     002C   129 ;	TO RMS. IF FAILURE (EXCEPT AS NOTED BELOW) IS INDICATED

                                     002C   130 ;	THE IMAGE IS TERMINATED WITH R0 AS THE EXIT COMPLETION CODE.

                                     002C   131 ;

                                     002C   132 ; CALLING SEQUENCE:

                                     002C   133 ;

                                     002C   134 ;	BSB/JSB	TST$CHECK_RMS

                                     002C   135 ;

                                     002C   136 ; INPUT PARAMETERS:

                                     002C   137 ;

                                     002C   138 ;	R0	RMS COMPLETION CODE

                                     002C   139 ;

                                     002C   140 ; IMPLICIT INPUTS:

                                     002C   141 ;

                                     002C   142 ;	NONE

                                     002C   143 ;

                                     002C   144 ; OUTPUT PARAMETERS:

                                     002C   145 ;

                                     002C   146 ;	R1	TST$CHECK_RMS COMPLETION CODE

                                     002C   147 ;

                                     002C   148 ; IMPLICIT OUTPUTS:

                                     002C   149 ;

                                     002C   150 ;	NONE

                                     002C   151 ;

                                     002C   152 ; COMPLETION CODES:

                                     002C   153 ;

                                     002C   154 ;	R1	0 = RMS COMPLETION CODE IS END-OF-FILE (RMS$_EOF) OR

                                     002C   155 ;		    RMS COMPLETION CODE IS TIME-OUT (RMS$_TMO)

                                     002C   156 ;		1 = SUCCESS

                                     002C   157 ;

                                     002C   158 ; SIDE EFFECTS:

                                     002C   159 ;

                                     002C   160 ;	IF THE RMS COMPLETION CODE INDICATES FAILURE (EXCPET AS NOTED

                                     002C   161 ;	ABOVE) THE IMAGE IS TERMINATED WITH R0 AS THE EXIT COMPLETION CODE.

                                     002C   162 ;

                                     002C   163 ;--

                                     002C   164 

                                     002C   165 TST$CHECK_RMS::				; CONTROL POINT

            51            01     D0  002C   166 	MOVL	#1,R1			; SET RETURN CODE TO SUCCESS

            19            50     E8  002F   167 	BLBS	R0,20$			; WAS RMS FUNCTION SUCCESSFUL?

       827A 8F            50     B1  0032   168 	CMPW	R0,#<RMS$_EOF&^XFFFF>	; NO, CHECK FOR END-OF-FILE

                          10     13  0037   169 	BEQLU	10$			; NON-FATAL IF END-OF-FILE

       81B0 8F            50     B1  0039   170 	CMPW	R0,#<RMS$_TMO&^XFFFF>	; NO, CHECK FOR TIME-OUT

                          09     13  003E   171 	BEQLU	10$			; NON-FATAL IF TIME-OUT

                                     0040   172 	$EXIT_S	R0			; TERMINATE THE IMAGE!!

                          51     D4  0049   173 10$:	CLRL	R1			; SET RETURN CODE TO FAILURE

                                 05  004B   174 20$:	RSB				; EXIT

TST$DTCOMMON    - COMMON ROUTINES FOR DTS/DTR                    22-AUG-1978 01:05:03   VAX-11 MACRO X0.3-11               Page   6

X0.1-3          TST$CHECK_IOSB - CHECK I/O STATUS BLOCK CODE                                                                     (5)



                                     004C   176 	.SBTTL	TST$CHECK_IOSB - CHECK I/O STATUS BLOCK CODE

                                 0000004C   177 	.PSECT	TST$CODE	NOWRT

                                     004C   178 

                                     004C   179 ;++

                                     004C   180 ; FUNCTIONAL DESCRIPTION:

                                     004C   181 ;

                                     004C   182 ;	TST$CHECK_IOSB CHECKS THE STATUS CODE IN THE SPECIFIED I/O STATUS

                                     004C   183 ;	BLOCK FOLLOWING A CALL TO THE QIO SYSTEM SERVICE. IF FAILURE

                                     004C   184 ;	(EXCPET AS NOTED BELOW) IS INDICATED, THE IMAGE IS TERMINATED

                                     004C   185 ;	WITH THE I/O STATUS CODE AS THE EXIT COMPLETION CODE.

                                     004C   186 ;

                                     004C   187 ; CALLING SEQUENCE:

                                     004C   188 ;

                                     004C   189 ;	BSB/JSB	TST$CHECK_IOSB

                                     004C   190 ;

                                     004C   191 ; INPUT PARAMETERS:

                                     004C   192 ;

                                     004C   193 ;	R0	ADDRESS OF IOSB TO EXAMINE

                                     004C   194 ;

                                     004C   195 ; IMPLICIT INPUTS:

                                     004C   196 ;

                                     004C   197 ;	NONE

                                     004C   198 ;

                                     004C   199 ; OUTPUT PARAMETERS:

                                     004C   200 ;

                                     004C   201 ;	R0	I/O STATUS CODE FROM IOSB

                                     004C   202 ;	R1	TST$CHECK_IOSB COMPLETION CODE

                                     004C   203 ;	R2	# BYTES TRANSFERRED FROM IOSB

                                     004C   204 ;

                                     004C   205 ; IMPLICIT OUTPUTS:

                                     004C   206 ;

                                     004C   207 ;	NONE

                                     004C   208 ;

                                     004C   209 ; COMPLETION CODES:

                                     004C   210 ;

                                     004C   211 ;	R1	0 = I/O STATUS CODE IS ABORT (SS$_ABORT) OR

                                     004C   212 ;		    STATUS CODE IS CANCEL (SS$_CANCEL) OR

                                     004C   213 ;		    STATUS CODE IS REJECT (SS$_REJECT) OR

                                     004C   214 ;		    STATUS CODE IS FILE NOT ACCESSED (SS$_FILNOTACC)

                                     004C   215 ;		1 = SUCCESS

                                     004C   216 ;

                                     004C   217 ; SIDE EFFECTS:

                                     004C   218 ;

                                     004C   219 ;	IF THE I/O STATUS CODE INDICATES FAILURE (EXCEPT AS NOTED ABOVE),

                                     004C   220 ;	THE IMAGE IS TERMINATED WITH THE STATUS CODE AS THE EXIT

                                     004C   221 ;	COMPLETION CODE.

                                     004C   222 ;

                                     004C   223 ;--

                                     004C   224 

                                     004C   225 TST$CHECK_IOSB::			; CONTROL POINT

            52         02 A0     3C  004C   226 	MOVZWL	2(R0),R2		; EXTRACT BYTE COUNT

            50            60     3C  0050   227 	MOVZWL	(R0),R0			; EXTRACT I/O STATUS CODE

                          AB     11  0053   228 	BRB	TST$CHECK_SS		; CHECK I/O STATUS CODE

TST$DTCOMMON    - COMMON ROUTINES FOR DTS/DTR                    22-AUG-1978 01:05:03   VAX-11 MACRO X0.3-11               Page   7

X0.1-3          TST$QIOW -  NETWORK QIO ROUTINES                                                                                 (6)



                                     0055   230 	.SBTTL	TST$QIOW -  NETWORK QIO ROUTINES

                                 00000055   231 	.PSECT	TST$CODE	NOWRT

                                     0055   232 

                                     0055   233 ;++

                                     0055   234 ; FUNCTIONAL DESCRIPTION:

                                     0055   235 ;

                                     0055   236 ;	BOTH TST$QIOW AND TST$QIOAST COMPLETE BUILDING A QIO PARAMETER

                                     0055   237 ;	BLOCK AND ISSUE A QIO REQUEST FOR THE ESTABLISHED COMMUNICATIONS

                                     0055   238 ;	LINK OR FOR THE ASSOCIATED MAILBOX. THE FUNCTION CODE PARAMETER

                                     0055   239 ;	DETERMINES WHICH OF SEVERAL QIO PARAMETER BLOCKS IS USED.

                                     0055   240 ;	TST$QIOW ISSUES A $QIOW_G REQUEST AND TST$QIOAST ISSUES A

                                     0055   241 ;	$QIO_G WITH AST REQUEST.

                                     0055   242 ;

                                     0055   243 ; CALLING SEQUENCE:

                                     0055   244 ;

                                     0055   245 ;	BSB/JSB	TST$QIOW

                                     0055   246 ;	BSB/JSB	TST$QIOAST

                                     0055   247 ;

                                     0055   248 ; INPUT PARAMETERS:

                                     0055   249 ;

                                     0055   250 ;	R2	INTERNAL FUNCTION CODE; ALSO SPECIFIES EFN TO USE

                                     0055   251 ;	R3	P1 PARAMETER; NOTE: NOT IMPLEMENTED AT PRESENT

                                     0055   252 ;	R4	P2 PARAMETER

                                     0055   253 ;	R5	ADDRESS OF AST ROUTITNE (FOR TST$QIOAST ONLY)

                                     0055   254 ;

                                     0055   255 ; IMPLICIT INPUTS:

                                     0055   256 ;

                                     0055   257 ;	SEVERAL CONTIGUOUS QIO PARAMETER BLOCKS BEGINNING AT TST$PARAMETER.

                                     0055   258 ;

                                     0055   259 ; OUTPUT PARAMETERS:

                                     0055   260 ;

                                     0055   261 ;	R0-R1	DESTROYED

                                     0055   262 ;

                                     0055   263 ; IMPLICIT OUTPUTS:

                                     0055   264 ;

                                     0055   265 ;	REFERENCED QIO PARAMETER BLOCK (OFFSET FROM TST$PARAMETER) IS

                                     0055   266 ;	MODIFIED.

                                     0055   267 ;

                                     0055   268 ; COMPLETION CODES:

                                     0055   269 ;

                                     0055   270 ;	NONE

                                     0055   271 ;

                                     0055   272 ; SIDE EFFECTS:

                                     0055   273 ;

                                     0055   274 ;	ON COMPLETION OF THE QIO ISSUED BY TST$QIOAST, AN AST ROUTINE

                                     0055   275 ;	WILL BE EXECUTED.

                                     0055   276 ;

                                     0055   277 ;--

                                     0055   278 

                                     0055   279 ;

                                     0055   280 ; QIO AND WAIT ROUTINE

                                     0055   281 ;

                                     0055   282 

                                     0055   283 TST$QIOW::				; CONTROL POINT

                          23     10  0055   284 	BSBB	QIO_COMMON		; EXECUTE COMMON SET-UP CODE

                       14 A0     7C  0057   285 	CLRQ	QIO$_ASTADR(R0)		; ZERO BOTH AST ADDRESS AND

                                     005A   286 					;  AST PARAMETER LONGWORDS

TST$DTCOMMON    - COMMON ROUTINES FOR DTS/DTR                    22-AUG-1978 01:05:03   VAX-11 MACRO X0.3-11               Page   8

X0.1-3          TST$QIOW -  NETWORK QIO ROUTINES                                                                                 (6)



                                     005A   287 	$QIOW_G	(R0)			; ISSUE THE QIO AND WAIT REQUEST

                                     0061   288 	CHECK_SS			; CHECK STATUS CODE

                                 05  0064   289 	RSB				; EXIT

                                     0065   290 

                                     0065   291 ;

                                     0065   292 ; QIO WITH AST ROUTINE

                                     0065   293 ;

                                     0065   294 

                                     0065   295 

                                     0065   296 TST$QIOAST::				; CONTROL POINT

                          13     10  0065   297 	BSBB	QIO_COMMON		; EXECUTE COMMON SET-UP CODE

         14 A0            55     D0  0067   298 	MOVL	R5,QIO$_ASTADR(R0)	; UPDATE AST ADDRESS

         18 A0            50     D0  006B   299 	MOVL	R0,QIO$_ASTPRM(R0)	; UPDATE AST PARAMETER WITH

                                     006F   300 					;  ADDRESS OF THIS PARAMETER BLOCK

                                     006F   301 	$QIO_G	(R0)			; ISSUE QIO WITH AST REQUEST

                                     0076   302 	CHECK_SS			; CHECK STATUS CODE

                                 05  0079   303 	RSB				; EXIT

                                     007A   304 

                                     007A   305 ;

                                     007A   306 ; SUBROUTINE THAT PERFORMS COMMON SET-UP FUNCTIONS

                                     007A   307 ;

                                     007A   308 

                                     007A   309 QIO_COMMON:				; CONTROL POINT

            52            0D     C5  007A   310 	MULL3	#<QIO$_NARGS+1>,R2,R1	; CALCULATE LONGWORD OFFSET OF

                          51         007D       

                                     007E   311 					;  DESIRED QIO PARAMETER BLOCK

                                     007E   312 					;  FROM THE FIRST PARAMETER BLOCK

            50       0000'CF41   DE  007E   313 	MOVAL	W^TST$PARAMETER[R1],R0	; GET ADDRESS OF PARAMATER BLOCK

         08 A0       0000'CF     3C  0084   314 	MOVZWL	W^TST$GW_LINKCHAN,QIO$_CHAN(R0) ; UPDATE CHANNEL #

                          52     D5  008A   315 	TSTL	R2			; IS DEVICE THE ASSOCIATED MAILBOX?

                          06     12  008C   316 	BNEQU	10$			; NO

         08 A0       0000'CF     3C  008E   317 	MOVZWL	W^TST$GW_MAILCHAN,QIO$_CHAN(R0) ; YES

                                     0094   318 ;10$:	MOVL	R3,QIO$_P1(R0)		; UPDATE BUFFER ADDRESS

         20 A0            54     D0  0094   319 10$:	MOVL	R4,QIO$_P2(R0)		; UPDATE P2 PARAMETER (EITHER DESC

                                     0098   320 					;  BLOCK ADDRESS OR BUFFER SIZE)

                                 05  0098   321 	RSB				; EXIT

TST$DTCOMMON    - COMMON ROUTINES FOR DTS/DTR                    22-AUG-1978 01:05:03   VAX-11 MACRO X0.3-11               Page   9

X0.1-3          TST$EXAM_MAIL - EXAMINE MAILBOX MESSAGE                                                                          (7)



                                     0099   323 	.SBTTL	TST$EXAM_MAIL - EXAMINE MAILBOX MESSAGE

                                 00000099   324 	.PSECT	TST$CODE	NOWRT

                                     0099   325 

                                     0099   326 ;++

                                     0099   327 ; FUNCTIONAL DESCRIPTION:

                                     0099   328 ;

                                     0099   329 ;	TST$EXAM_MAIL DISECTS A MAILBOX MESSAGE INTO ITS VARIOUS

                                     0099   330 ;	FIELDS.

                                     0099   331 ;

                                     0099   332 ; CALLING SEQUENCE:

                                     0099   333 ;

                                     0099   334 ;	BSB/JSB	TST$EXAM_MAIL

                                     0099   335 ;

                                     0099   336 ; INPUT PARAMETERS:

                                     0099   337 ;

                                     0099   338 ;	NONE

                                     0099   339 ;

                                     0099   340 ; IMPLICIT INPUTS:

                                     0099   341 ;

                                     0099   342 ;	TST$GB_MAILBUF

                                     0099   343 ;	TST$GQ_MAILIOSB

                                     0099   344 ;

                                     0099   345 ; OUTPUT PARAMETERS:

                                     0099   346 ;

                                     0099   347 ;	R0-R1	DESTROYED

                                     0099   348 ;	R6	MAILBOX MESSAGE CODE

                                     0099   349 ;	R7	ADDRESS OF RECEIVED MAILBOX DATA LESS HEADER STORED AS A

                                     0099   350 ;		COUNTED ASCII STRING

                                     0099   351 ;

                                     0099   352 ; IMPLICIT OUTPUTS:

                                     0099   353 ;

                                     0099   354 ;	TST$GW_MAILCODE

                                     0099   355 ;	TST$GW_DEV_UNIT

                                     0099   356 ;	TST$GT_DEV_NAME

                                     0099   357 ;	TST$GT_MAILDATA

                                     0099   358 ;

                                     0099   359 ; COMPLETION CODES:

                                     0099   360 ;

                                     0099   361 ;	NONE

                                     0099   362 ;

                                     0099   363 ; SIDE EFFECTS:

                                     0099   364 ;

                                     0099   365 ;	NONE

                                     0099   366 ;

                                     0099   367 ;--

                                     0099   368 

                                     0099   369 TST$EXAM_MAIL::				; CONTROL POINT

                          3C     BB  0099   370 	PUSHR	#^M<R2,R3,R4,R5>	; SAVE REGISTERS

            51       0000'CF     9E  009B   371 	MOVAB	W^TST$GB_MAILBUF,R1	; GET ADDRESS OF MAILBOX BUFFER

            56            81     3C  00A0   372 	MOVZWL	(R1)+,R6		; SAVE MAILBOX MESSAGE CODE

       0000'CF            56     B0  00A3   373 	MOVW	R6,W^TST$GW_MAILCODE	; "

       0000'CF            81     B0  00A8   374 	MOVW	(R1)+,W^TST$GW_DEV_UNIT	; STORE DEVICE DEV_UNIT NUMBER

            50            61     9A  00AD   375 	MOVZBL	(R1),R0			; GET LENGTH OF DEVICE NAME

                                     00B0   376 					;  COUNTED ASCII STRING

                          50     D6  00B0   377 	INCL	R0			;

            61            50     28  00B2   378 	MOVC3	R0,(R1),W^TST$GT_DEV_NAME ; STORE DEVICE NAME STRING

                     0000'CF         00B5       

TST$DTCOMMON    - COMMON ROUTINES FOR DTS/DTR                    22-AUG-1978 01:05:03   VAX-11 MACRO X0.3-11               Page  10

X0.1-3          TST$EXAM_MAIL - EXAMINE MAILBOX MESSAGE                                                                          (7)



            50            61     9A  00B8   379 	MOVZBL	(R1),R0			; GET LENGTH OF DATA PORTION OF

                                     00BB   380 					;  MESSAGE STORED AS A COUNTED STRING

                          50     D6  00BB   381 	INCL	R0			;

            57       0000'CF     9E  00BD   382 	MOVAB	W^TST$GT_MAILDATA,R7	; GET ADDRESS OF COUNTED STRING

                                     00C2   383 					;  TO STORE MESSAGE LESS HEADER

            61            50     28  00C2   384 	MOVC3	R0,(R1),(R7)		; STORE MAILBOX MESSAGE LESS HEADER

                          67         00C5       

                          3C     BA  00C6   385 	POPR	#^M<R2,R3,R4,R5>	; RESTORE REGISTERS

                                 05  00C8   386 	RSB				; EXIT

TST$DTCOMMON    - COMMON ROUTINES FOR DTS/DTR                    22-AUG-1978 01:05:03   VAX-11 MACRO X0.3-11               Page  11

X0.1-3          TST$FLUSH_MAIL - FLUSH MAILBOX                                                                                   (8)



                                     00C9   388 	.SBTTL	TST$FLUSH_MAIL - FLUSH MAILBOX

                                 000000C9   389 	.PSECT	TST$CODE	NOWRT

                                     00C9   390 

                                     00C9   391 ;++

                                     00C9   392 ; FUNCTIONAL DESCRIPTION:

                                     00C9   393 ;

                                     00C9   394 ;	TST$FLUSH_MAIL READS THE MAILBOX UNTIL THERE ARE NO MORE MESSAGES

                                     00C9   395 ;	QUEUED FOR IT.

                                     00C9   396 ;

                                     00C9   397 ; CALLING SEQUENCE:

                                     00C9   398 ;

                                     00C9   399 ;	BSB/JSB	TST$FLUSH_MAIL

                                     00C9   400 ;

                                     00C9   401 ; INPUT PARAMETERS:

                                     00C9   402 ;

                                     00C9   403 ;	NONE

                                     00C9   404 ;

                                     00C9   405 ; IMPLICIT INPUTS:

                                     00C9   406 ;

                                     00C9   407 ;	TST$GB_MAILBUF

                                     00C9   408 ;	TST$GQ_MAILIOSB

                                     00C9   409 ;

                                     00C9   410 ; OUTPUT PARAMETERS:

                                     00C9   411 ;

                                     00C9   412 ;	R0-R1	DESTROYED

                                     00C9   413 ;

                                     00C9   414 ; IMPLICIT OUTPUTS:

                                     00C9   415 ;

                                     00C9   416 ;	NONE

                                     00C9   417 ;

                                     00C9   418 ; COMPLETION CODES:

                                     00C9   419 ;

                                     00C9   420 ;	NONE

                                     00C9   421 ;

                                     00C9   422 ; SIDE EFFECTS:

                                     00C9   423 ;

                                     00C9   424 ;	NONE

                                     00C9   425 ;

                                     00C9   426 ;--

                                     00C9   427 

                                     00C9   428 TST$FLUSH_MAIL::			; CONTROL POINT

                                     00C9   429 	$QIOW_S	EFN=#EFN_K_READ_MAIL-	; ISSUE READ (NOW) TO MAILBOX

                                     00C9   430 		CHAN=W^TST$GW_MAILCHAN-	;

                                     00C9   431 		FUNC=#IO$_READVBLK!IO$M_NOW- ;

                                     00C9   432 		IOSB=W^TST$GQ_MAILIOSB-	;

                                     00C9   433 		P1=W^TST$GB_MAILBUF-	;

                                     00C9   434 		P2=#TST$K_MAILBUF	;

       0870 8F            50     B1  00F0   435 	CMPW	R0,#<SS$_ENDOFFILE&^XFFFF> ; IS IT AN END-OF-FILE?

                          09     13  00F5   436 	BEQLU	10$			; YES

                                     00F7   437 	CHECK_SS			; CHECK STATUS CODE

                     0002'CF     B5  00FA   438 	TSTW	W^TST$GQ_MAILIOSB+2	; DID WE RECEIVE ANYTHING?

                          C9     12  00FE   439 	BNEQU	TST$FLUSH_MAIL		; YES, READ AGAIN

                                 05  0100   440 10$:	RSB				; EXIT

TST$DTCOMMON    - COMMON ROUTINES FOR DTS/DTR                    22-AUG-1978 01:05:03   VAX-11 MACRO X0.3-11               Page  12

X0.1-3          TST$PPRINT_FAO - PRINT OUTPUT FROM FAO                                                                           (9)



                                     0101   442 	.SBTTL	TST$PPRINT_FAO - PRINT OUTPUT FROM FAO

                                 00000101   443 	.PSECT	TST$CODE	NOWRT

                                     0101   444 

                                     0101   445 ;++

                                     0101   446 ; FUNCTIONAL DESCRIPTION:

                                     0101   447 ;

                                     0101   448 ;	TST$PRINT_FAO OUTPUTS THE BUFFER FORMATTED BY FAO TO THE PRINT

                                     0101   449 ;	DEVICE.

                                     0101   450 ;

                                     0101   451 ; CALLING SEQUENCE:

                                     0101   452 ;

                                     0101   453 ;	BSB/JSB	TST$PRINT_FAO

                                     0101   454 ;

                                     0101   455 ; INPUT PARAMETERS:

                                     0101   456 ;

                                     0101   457 ;	NONE

                                     0101   458 ;

                                     0101   459 ; IMPLICIT INPUTS:

                                     0101   460 ;

                                     0101   461 ;	TST$GB_PRTBUF

                                     0101   462 ;	TST$GW_PRTLEN

                                     0101   463 ;

                                     0101   464 ; OUTPUT PARAMETERS:

                                     0101   465 ;

                                     0101   466 ;	R0-R1	DESTROYED

                                     0101   467 ;

                                     0101   468 ; IMPLICIT OUTPUTS:

                                     0101   469 ;

                                     0101   470 ;	PRTRAB IS UPDATED

                                     0101   471 ;

                                     0101   472 ; COMPLETION CODES:

                                     0101   473 ;

                                     0101   474 ;	NONE

                                     0101   475 ;

                                     0101   476 ; SIDE EFFECTS:

                                     0101   477 ;

                                     0101   478 ;	NONE

                                     0101   479 ;

                                     0101   480 ;--

                                     0101   481 

                                     0101   482 TST$PRINT_FAO::				; CONTROL POINT

                                 B0  0101   483 	MOVW	W^TST$GW_PRTLEN,-	; UPDATE BUFFER SIZE IN PRINT RAB

       0022'CF       0000'CF         0102   484 		W^TST$PRTRAB+RAB$W_RSZ	;

                                     0108   485 	$PUT	RAB=W^TST$PRTRAB	; OUTPUT THE RECORD

                                     0113   486 	CHECK_RMS			; CHECK COMPLETION CODE

                                 05  0116   487 	RSB				; EXIT

                                     0117   488 TST$FAOOUT::

                               0000  0117   489 	.WORD 	0			;FORMAT COUNTED FAO STRING

            5E         F8 AE     DE  0119   490 	MOVAL	-8(SP),SP		;ALLOCATE SPACE FOR DESCRIPTOR

            6E         04 BC     9A  011D   491 	MOVZBL	@4(AP),(SP)		;CONTROL STRING LENGTH

         04 AC            01     C1  0121   492 	ADDL3	#1,4(AP),4(SP)		;ADDRESS CONTROL STRING PORTION

                       04 AE         0125       

                                     0127   493 	$FAOL_S	CTRSTR=(SP)-

                                     0127   494 		OUTLEN=W^TST$GW_PRTLEN-

                                     0127   495 		OUTBUF=W^TST$GQ_PRTBUF-

                                     0127   496 		PRMLST=8(AP)

                          FFC3   30  013B   497 	BSBW	W^TST$PRINT_FAO		;PRINT FAO STRING

TST$DTCOMMON    - COMMON ROUTINES FOR DTS/DTR                    22-AUG-1978 01:05:03   VAX-11 MACRO X0.3-11               Page  13

X0.1-3          TST$PPRINT_FAO - PRINT OUTPUT FROM FAO                                                                           (9)



                                 04  013E   498 	RET

TST$DTCOMMON    - COMMON ROUTINES FOR DTS/DTR                    22-AUG-1978 01:05:03   VAX-11 MACRO X0.3-11               Page  14

X0.1-3          TST$DISPLAY_MSG - DISPLAY MESSAGE                                                                               (10)



                                     013F   500 	.SBTTL	TST$DISPLAY_MSG - DISPLAY MESSAGE

                                 0000013F   501 	.PSECT	TST$CODE	NOWRT

                                     013F   502 

                                     013F   503 ;++

                                     013F   504 ; FUNCTIONAL DESCRIPTION:

                                     013F   505 ;

                                     013F   506 ;	TST$DISPLAY_MSG DISPLAYS THE MESSAGE LENGTH (IN BYTES) AND UP TO

                                     013F   507 ;	THE SPECIFIED NUMBER OF BYTES OF THE MESSAGE BUFFER IN HEXADECIMAL.

                                     013F   508 ;

                                     013F   509 ; CALLING SEQUENCE:

                                     013F   510 ;

                                     013F   511 ;	CALL	#4,TST$DISPLAY_MSG

                                     013F   512 ;

                                     013F   513 ; INPUT PARAMETERS:

                                     013F   514 ;

                                     013F   515 ;	4(AP)	MAXIMUM NUMBER OF BYTES TO DISPLAY

                                     013F   516 ;	8(AP)	TRANSMIT/RECEIVE INDICATOR (0/1)

                                     013F   517 ;	12(AP)	ADDRESS OF THE MESSAGE

                                     013F   518 ;	16(AP)	SIZE OF THE MESSAGE IN BYTES

                                     013F   519 ;

                                     013F   520 ; IMPLICIT INPUTS:

                                     013F   521 ;

                                     013F   522 ;	NONE

                                     013F   523 ;

                                     013F   524 ; OUTPUT PARAMETERS:

                                     013F   525 ;

                                     013F   526 ;	R0-R1	DESTROYED

                                     013F   527 ;

                                     013F   528 ; IMPLICIT OUTPUTS:

                                     013F   529 ;

                                     013F   530 ;	NONE

                                     013F   531 ;

                                     013F   532 ; COMPLETION CODES:

                                     013F   533 ;

                                     013F   534 ;	NONE

                                     013F   535 ;

                                     013F   536 ; SIDE EFFECTS:

                                     013F   537 ;

                                     013F   538 ;	NONE

                                     013F   539 ;

                                     013F   540 ;--

                                     013F   541 

                               0004' 013F   542 	.ENTRY	TST$DISPLAY_MSG,^M<R2>	; ENTRY POINT

                                     0141   543 

                                     0141   544 ;

                                     0141   545 ; DETERMINE NUMBER OF BYTES TO DISPLAY

                                     0141   546 ;

                                     0141   547 

            50         04 AC     D0  0141   548 	MOVL	4(AP),R0		; GET MAX #BYTES TO DISPLAY

                          48     13  0145   549 	BEQL	50$			; IF NONE, WE'RE FINISHED

            50         10 AC     D1  0147   550 	CMPL	16(AP),R0		; IS MESSAGE SIZE GEQ MAX COUNT?

                          04     18  014B   551 	BGEQ	10$			; YES

            50         10 AC     D0  014D   552 	MOVL	16(AP),R0		; NO, USE ACTUAL MESSAGE SIZE

            51            50     D0  0151   553 10$:	MOVL	R0,R1			; SAVE COUNT

                                     0154   554 

                                     0154   555 ;

                                     0154   556 ; CONSTRUCT PARAMETER LIST FOR FAO ON THE STACK

TST$DTCOMMON    - COMMON ROUTINES FOR DTS/DTR                    22-AUG-1978 01:05:03   VAX-11 MACRO X0.3-11               Page  15

X0.1-3          TST$DISPLAY_MSG - DISPLAY MESSAGE                                                                               (10)



                                     0154   557 ;

                                     0154   558 

            52         0C AC     D0  0154   559 	MOVL	12(AP),R2		; GET MESSAGE ADDRESS

            7E            82     9A  0158   560 20$:	MOVZBL	(R2)+,-(SP)		; PUT EACH CHARACTER IN LIST

            FA            50     F5  015B   561 	SOBGTR	R0,20$			; CONTINUE UNTIL DONE

                          51     DD  015E   562 	PUSHL	R1			; PUT #BYTES TO CONVERT IN LIST

                       10 AC     DD  0160   563 	PUSHL	16(AP)			; PUT MESSAGE SIZE IN LIST

            06         08 AC     E8  0163   564 	BLBS	8(AP),30$		; IS THIS A XMIT OR RECV?

                     0000'CF     9F  0167   565 	PUSHAB	W^TST$GT_XMIT		; PUT ADDRESS OF TEXT IN LIST

                          04     11  016B   566 	BRB	40$			;

                     0000'CF     9F  016D   567 30$:	PUSHAB	W^TST$GT_RECV		; PUT ADDRESS OF TEXT IN LIST

            51            5E     D0  0171   568 40$:	MOVL	SP,R1			; GET ADDRESS OF FAO PARAMETER LIST

                                     0174   569 

                                     0174   570 ;

                                     0174   571 ; FORMAT AND PRINT THE MESSAGE

                                     0174   572 ;

                                     0174   573 

                                     0174   574 	$FAOL_S	CTRSTR=W^TST$GQ_DISPLAY- ; FORMAT MESSAGE

                                     0174   575 		OUTLEN=W^TST$GW_PRTLEN-	;

                                     0174   576 		OUTBUF=W^TST$GQ_PRTBUF- ;

                                     0174   577 		PRMLST=(R1)		;

                                     0189   578 	CHECK_SS			; CHECK STATUS CODE

                          FF72   30  018C   579 	BSBW	TST$PRINT_FAO		; PRINT MESSAGE

                                     018F   580 

                                     018F   581 ;

                                     018F   582 ; "RET" INSTRUCTION WILL ADJUST SP TO THAT FAO PARAMETER LIST

                                     018F   583 ; THAT WAS CONSTRUCTED ON THE STACK IS ELIMINATED.

                                     018F   584 ;

                                     018F   585 

                                 04  018F   586 50$:	RET				; EXIT

TST$DTCOMMON    - COMMON ROUTINES FOR DTS/DTR                    22-AUG-1978 01:05:03   VAX-11 MACRO X0.3-11               Page  16

X0.1-3          TST$STANDARD - MOVE STANDARD DATA PATTERN                                                                       (11)



                                     0190   588 	.SBTTL	TST$STANDARD - MOVE STANDARD DATA PATTERN

                                 00000190   589 	.PSECT	TST$CODE	NOWRT

                                     0190   590 

                                     0190   591 ;++

                                     0190   592 ; FUNCTIONAL DESCRIPTION:

                                     0190   593 ;

                                     0190   594 ;	TST$STANDARD FILLS THE DESIGNATED BUFFER WITH REPETITIONS OF

                                     0190   595 ;	THE "STANDARD" DATA PATTERN.

                                     0190   596 ;

                                     0190   597 ; CALLING SEQUENCE:

                                     0190   598 ;

                                     0190   599 ;	BSB/JSB	TST$STANDARD

                                     0190   600 ;

                                     0190   601 ; INPUT PARAMETERS:

                                     0190   602 ;

                                     0190   603 ;	R3	ADDRESS OF THE BUFFER

                                     0190   604 ;	R4	SIZE OF THE BUFFER IN BYTES

                                     0190   605 ;

                                     0190   606 ; IMPLICIT INPUTS:

                                     0190   607 ;

                                     0190   608 ;	TST$GT_STANDARD = COUNTED ASCII STRING OF STANDARD DATA PATTERN

                                     0190   609 ;

                                     0190   610 ; OUTPUT PARAMETERS:

                                     0190   611 ;

                                     0190   612 ;	R0-R1	DESTROYED

                                     0190   613 ;

                                     0190   614 ; IMPLICIT OUTPUTS:

                                     0190   615 ;

                                     0190   616 ;	NONE

                                     0190   617 ;

                                     0190   618 ; COMPLETION CODES:

                                     0190   619 ;

                                     0190   620 ;	NONE

                                     0190   621 ;

                                     0190   622 ; SIDE EFFECTS:

                                     0190   623 ;

                                     0190   624 ;	NONE

                                     0190   625 ;

                                     0190   626 ;--

                                     0190   627 

                                     0190   628 TST$STANDARD::				; CONTROL POINT

                     03FC 8F     BB  0190   629 	PUSHR	#^M<R2,R3,R4,R5,R6,R7,R8,R9> ; SAVE REGISTERS

            56       0000'CF     DE  0194   630 	MOVAL	W^TST$GT_STANDARD,R6	; GET ADDRESS OF COUNTED

                                     0199   631 					;  STANDARD DATA STRING

            57            86     9A  0199   632 	MOVZBL	(R6)+,R7		; GET SIZE OF STANDARD DATA STRING

                          55     D4  019C   633 	CLRL	R5			; DOUBLE PRECISION DIVISION FOLLOWS

                                     019E   634 					;  I.E., {R4,R5} / R7 = R8 R R9

            54            57     7B  019E   635 	EDIV	R7,R4,R8,R9		; PUT LOOP COUNT IN R8

            59            58         01A1       

                          07     13  01A3   636 	BEQLU	20$			; IS BUFFER SMALLER THAN STD PATTERN?

            66            57     28  01A5   637 10$:	MOVC3	R7,(R6),(R3)		; NO, COPY STANDARD DATA PATTERN

                          63         01A8       

            F9            58     F5  01A9   638 	SOBGTR	R8,10$			; WILL PATTERN FIT?

            66            59     28  01AC   639 20$:	MOVC3	R9,(R6),(R3)		; NO, FILL REMAINDER OF BUFFER

                          63         01AF       

                     03FC 8F     BA  01B0   640 	POPR	#^M<R2,R3,R4,R5,R6,R7,R8,R9> ; RESTORE REGISTERS

                                 05  01B4   641 	RSB				; EXIT

TST$DTCOMMON    - COMMON ROUTINES FOR DTS/DTR                    22-AUG-1978 01:05:03   VAX-11 MACRO X0.3-11               Page  17

X0.1-3          TST$STANDARD - MOVE STANDARD DATA PATTERN                                                                       (11)



                                     01B5   642 	.END

TST$DTCOMMON    - COMMON ROUTINES FOR DTS/DTR                    22-AUG-1978 01:05:03   VAX-11 MACRO X0.3-11               Page  18

SYMBOL TABLE                                                                                                                    (11)



$$.TMP1        = 00000001            RAB$L_KBF        00000030            RAB$V_PTA      = 0000001D            

$$.TMP2        = 000000CF            RAB$L_PBF        00000030            RAB$V_RAH      = 00000009            

$$ARGS         = 0000000C            RAB$L_RBF        00000028            RAB$V_RLK      = 00000013            

$$T1           = 00000001            RAB$L_RFA0       00000010            RAB$V_RNE      = 00000018            

BIT...         = 00000000            RAB$L_RHB        0000002C            RAB$V_RNF      = 0000001B            

C                00000000 RG    03   RAB$L_ROP        00000004            RAB$V_TMO      = 00000019            

EFN_K_CONN_ACCE= 00000001            RAB$L_STS        00000008            RAB$V_TPT      = 00000001            

EFN_K_CONN_INIT= 00000001            RAB$L_STV        0000000C            RAB$V_UIF      = 00000004            

EFN_K_CONN_REJE= 00000002            RAB$L_UBF        00000024            RAB$V_ULK      = 00000012            

EFN_K_DISC_ABRT= 00000004            RAB$M_ASY      = 00000001            RAB$V_WAT      = 00000011            

EFN_K_DISC_SYNC= 00000003            RAB$M_BIO      = 00000800            RAB$V_WBH      = 0000000A            

EFN_K_READ_MAIL= 00000000            RAB$M_CCO      = 80000000            RAB$W_ISI        00000002            

EFN_K_RECV_DATA= 00000007            RAB$M_CVT      = 04000000            RAB$W_RFA        00000010            

EFN_K_SIGNAL   = 00000009            RAB$M_EOF      = 00000100            RAB$W_RFA4       00000014            

EFN_K_TIMER    = 00000008            RAB$M_FDL      = 00000040            RAB$W_RSZ        00000022            

EFN_K_XMIT_DATA= 00000005            RAB$M_HSH      = 00000080            RAB$W_USZ        00000020            

EFN_K_XMIT_INTE= 00000006            RAB$M_KGE      = 00200000            RMS$V_STVSTATUS= 0000000E            

GBL...         = 00000000            RAB$M_KGT      = 00400000            RMS$_ABO       = 000183EC            

IO$M_NOW         ********   X   03   RAB$M_LIM      = 00004000            RMS$_ACC       = 0001C002            

IO$_READVBLK     ********   X   03   RAB$M_LOA      = 00002000            RMS$_ACT       = 0001825A            

K_LIST_MEB     = 00000000            RAB$M_LOC      = 00010000            RMS$_AID       = 000183F4            

QIO$_ASTADR    = 00000014            RAB$M_MAS      = 00000020            RMS$_ALN       = 000183FC            

QIO$_ASTPRM    = 00000018            RAB$M_NLK      = 00100000            RMS$_ALQ       = 00018404            

QIO$_CHAN      = 00000008            RAB$M_NXR      = 00800000            RMS$_ANI       = 0001840C            

QIO$_EFN       = 00000004            RAB$M_PMT      = 40000000            RMS$_AOP       = 00018414            

QIO$_FUNC      = 0000000C            RAB$M_PPF_IND  = 00004000            RMS$_ATR       = 0001C0CC            

QIO$_IOSB      = 00000010            RAB$M_PPF_RAT  = 00003FC0            RMS$_ATW       = 0001C0D4            

QIO$_NARGS     = 0000000C            RAB$M_PTA      = 20000000            RMS$_BKS       = 0001841C            

QIO$_P1        = 0000001C            RAB$M_RAH      = 00000200            RMS$_BKZ       = 00018424            

QIO$_P2        = 00000020            RAB$M_RLK      = 00080000            RMS$_BLN       = 0001842C            

QIO$_P3        = 00000024            RAB$M_RNE      = 01000000            RMS$_BOF       = 00018198            

QIO$_P4        = 00000028            RAB$M_RNF      = 08000000            RMS$_BUG       = 00018434            

QIO$_P5        = 0000002C            RAB$M_TMO      = 02000000            RMS$_BUG_DAP   = 00018444            

QIO$_P6        = 00000030            RAB$M_TPT      = 00000002            RMS$_BUG_DDI   = 0001843C            

QIO_COMMON       0000007A R     03   RAB$M_UIF      = 00000010            RMS$_BUG_XX2   = 0001844C            

RAB$B_BID        00000000            RAB$M_ULK      = 00040000            RMS$_BUG_XX3   = 00018454            

RAB$B_BLN        00000001            RAB$M_WAT      = 00020000            RMS$_BUG_XX4   = 0001845C            

RAB$B_KRF        00000035            RAB$M_WBH      = 00000400            RMS$_BUG_XX5   = 00018464            

RAB$B_KSZ        00000034            RAB$S_PPF_RAT  = 00000008            RMS$_BUG_XX6   = 0001846C            

RAB$B_MBC        00000037            RAB$V_ASY      = 00000000            RMS$_BUG_XX7   = 00018474            

RAB$B_MBF        00000036            RAB$V_BIO      = 0000000B            RMS$_BUG_XX8   = 0001847C            

RAB$B_PSZ        00000034            RAB$V_CCO      = 0000001F            RMS$_BUG_XX9   = 00018484            

RAB$B_RAC        0000001E            RAB$V_CVT      = 0000001A            RMS$_CAA       = 0001848C            

RAB$B_ROP1       00000005            RAB$V_EOF      = 00000008            RMS$_CCF       = 0001C0DC            

RAB$B_ROP2       00000006            RAB$V_FDL      = 00000006            RMS$_CCR       = 00018494            

RAB$B_ROP3       00000007            RAB$V_HSH      = 00000007            RMS$_CDA       = 0001C0E4            

RAB$B_TMO        0000001F            RAB$V_KGE      = 00000015            RMS$_CHG       = 0001849C            

RAB$C_BID      = 00000001            RAB$V_KGT      = 00000016            RMS$_CHK       = 000184A4            

RAB$C_BLN        00000044            RAB$V_LIM      = 0000000E            RMS$_CHN       = 0001C0EC            

RAB$C_KEY      = 00000001            RAB$V_LOA      = 0000000D            RMS$_COD       = 000184AC            

RAB$C_RFA      = 00000002            RAB$V_LOC      = 00000010            RMS$_CONTROLC  = 00010651            

RAB$C_SEQ      = 00000000            RAB$V_MAS      = 00000005            RMS$_CONTROLO  = 00010609            

RAB$K_BLN        00000044            RAB$V_NLK      = 00000014            RMS$_CONTROLY  = 00010611            

RAB$L_BKT        00000038            RAB$V_NXR      = 00000017            RMS$_CRE       = 0001C00A            

RAB$L_CTX        00000018            RAB$V_PMT      = 0000001E            RMS$_CREATED   = 00010619            

RAB$L_DCT        00000038            RAB$V_PPF_IND  = 0000000E            RMS$_CUR       = 000184B4            

RAB$L_FAB        0000003C            RAB$V_PPF_RAT  = 00000006            RMS$_DAC       = 0001C012            

TST$DTCOMMON    - COMMON ROUTINES FOR DTS/DTR                    22-AUG-1978 01:05:03   VAX-11 MACRO X0.3-11               Page  19

SYMBOL TABLE                                                                                                                    (11)



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            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            SS$_ABORT      = 0000002C            

RMS$_EXT       = 0001C022            RMS$_PLV       = 0001872C            SS$_ACCONFLICT = 00000800            

RMS$_FAB       = 0001850C            RMS$_POS       = 00018624            SS$_ACCVIO     = 0000000C            

RMS$_FAC       = 00018514            RMS$_PRM       = 0001862C            SS$_ACPVAFUL   = 000002FC            

RMS$_FEX       = 00018282            RMS$_PRV       = 0001829A            SS$_ARTRES     = 00000474            

RMS$_FLG       = 0001851C            RMS$_QUO       = 00018634            SS$_ASTFLT     = 0000040C            

RMS$_FLK       = 0001828A            RMS$_RAB       = 0001863C            SS$_BADATTRIB  = 00000034            

RMS$_FNA       = 00018524            RMS$_RAC       = 00018644            SS$_BADCHKSUM  = 00000808            

RMS$_FND       = 0001C02A            RMS$_RAT       = 0001864C            SS$_BADESCAPE  = 0000003C            

RMS$_FNF       = 00018292            RMS$_RBF       = 00018654            SS$_BADFILEHDR = 00000810            

RMS$_FNM       = 0001852C            RMS$_RER       = 0001C0F4            SS$_BADFILENAME= 00000818            

RMS$_FOP       = 0001853C            RMS$_REX       = 000182A2            SS$_BADFILEVER = 00000820            

RMS$_FSZ       = 00018534            RMS$_RFA       = 0001865C            SS$_BADIMGHDR  = 00000044            

RMS$_FUL       = 00018544            RMS$_RFM       = 00018664            SS$_BADIRECTORY= 00000828            

RMS$_IAL       = 0001854C            RMS$_RHB       = 0001866C            SS$_BADPARAM   = 00000014            

RMS$_IAN       = 00018554            RMS$_RLF       = 00018674            SS$_BADSTACK   = 000002B4            

RMS$_IBF       = 00018754            RMS$_RLK       = 000182AA            SS$_BEGOFFILE  = 00000938            

RMS$_IDX       = 0001855C            RMS$_RMV       = 0001C0FC            SS$_BLOCKCNTERR= 00000940            

RMS$_IFA       = 0001C124            RMS$_RNF       = 000182B2            SS$_BREAK      = 00000414            

RMS$_IFI       = 00018564            RMS$_RNL       = 000181A0            SS$_BUFBYTALI  = 0000030C            

RMS$_IMX       = 0001856C            RMS$_ROP       = 0001867C            SS$_BUFFEROVF  = 00000601            

RMS$_IOP       = 00018574            RMS$_RPL       = 0001C104            SS$_BUGCHECK   = 000002A4            

RMS$_IRC       = 0001857C            RMS$_RRV       = 00018684            SS$_CANCEL     = 00000830            

RMS$_ISI       = 00018584            RMS$_RSA       = 000182DA            SS$_CHANINTLK  = 0000004C            

RMS$_KBF       = 0001858C            RMS$_RSL       = 0001873C            SS$_CLIFRCEXT  = 00000980            

RMS$_KEY       = 00018594            RMS$_RSS       = 00018694            SS$_CMODSUPR   = 0000041C            

RMS$_KFF       = 00018031            RMS$_RST       = 0001869C            SS$_CMODUSER   = 00000424            

RMS$_KRF       = 0001859C            RMS$_RSZ       = 000186A4            SS$_COMPAT     = 0000042C            

RMS$_KSZ       = 000185A4            RMS$_RTB       = 000181A8            SS$_CONTINUE   = 00000001            

RMS$_LAN       = 000185AC            RMS$_SEQ       = 000186AC            SS$_CONTROLC   = 00000651            

RMS$_LBL       = 000185B4            RMS$_SHR       = 000186B4            SS$_CONTROLO   = 00000609            

RMS$_LNE       = 000185BC            RMS$_SIZ       = 000186BC            SS$_CONTROLY   = 00000611            

RMS$_LOC       = 000185C4            RMS$_SPL       = 0001C042            SS$_CREATED    = 00000619            

RMS$_MBC       = 00018734            RMS$_SQO       = 000186C4            SS$_CTRLERR    = 00000054            

RMS$_MKD       = 0001C032            RMS$_STALL     = 00018001            SS$_DATACHECK  = 0000005C            

RMS$_MRN       = 000185CC            RMS$_STK       = 000186CC            SS$_DATAOVERUN = 00000838            

RMS$_MRS       = 000185D4            RMS$_SUC       = 00010001            SS$_DEBUG      = 0000046C            

RMS$_NAM       = 000185DC            RMS$_SUP       = 000182D2            SS$_DECOVF     = 000004A4            

RMS$_NEF       = 000185E4            RMS$_SUPERSEDE = 00010631            SS$_DEVACTIVE  = 000002C4            

TST$DTCOMMON    - COMMON ROUTINES FOR DTS/DTR                    22-AUG-1978 01:05:03   VAX-11 MACRO X0.3-11               Page  20

SYMBOL TABLE                                                                                                                    (11)



SS$_DEVALLOC   = 00000840            SS$_INTDIV     = 00000484            SS$_PAGOWNVIO  = 000001EC            

SS$_DEVALRALLOC= 00000641            SS$_INTOVF     = 0000047C            SS$_PAGRDERR   = 00000444            

SS$_DEVASSIGN  = 00000848            SS$_IVADDR     = 00000134            SS$_PARITY     = 000001F4            

SS$_DEVFOREIGN = 00000064            SS$_IVCHAN     = 0000013C            SS$_PARTESCAPE = 000001FC            

SS$_DEVICEFULL = 00000850            SS$_IVCHNLSEC  = 0000026C            SS$_PFMBSY     = 00000204            

SS$_DEVMOUNT   = 0000006C            SS$_IVDEVNAM   = 00000144            SS$_PLHLDR     = 00000404            

SS$_DEVNOTALLOC= 00000858            SS$_IVGSDNAM   = 0000014C            SS$_PSTFULL    = 0000020C            

SS$_DEVNOTMBX  = 00000074            SS$_IVLOGNAM   = 00000154            SS$_RADRMOD    = 0000044C            

SS$_DEVNOTMOUNT= 0000007C            SS$_IVLOGTAB   = 0000015C            SS$_REJECT     = 00000294            

SS$_DEVOFFLINE = 00000084            SS$_IVPROTECT  = 000002F4            SS$_REMOTE     = 00000649            

SS$_DIRFULL    = 00000860            SS$_IVQUOTAL   = 00000164            SS$_RESIGNAL   = 00000918            

SS$_DRVERR     = 0000008C            SS$_IVSECFLG   = 0000016C            SS$_RESULTOVF  = 00000214            

SS$_DUPFILENAME= 00000868            SS$_IVSECIDCTL = 000002E4            SS$_ROPRAND    = 00000454            

SS$_DUPLNAM    = 00000094            SS$_IVSSRQ     = 00000174            SS$_SECTBLFUL  = 0000021C            

SS$_ENDOFFILE  = 00000870            SS$_IVSTSFLG   = 0000017C            SS$_SSFAIL     = 0000045C            

SS$_ENDOFTAPE  = 00000878            SS$_IVTIME     = 00000184            SS$_SUBRNG     = 000004AC            

SS$_ENDOFUSRLBL= 00000970            SS$_LCKPAGFUL  = 000000D4            SS$_SUPERSEDE  = 00000631            

SS$_EXQUOTA    = 0000001C            SS$_LENVIO     = 0000018C            SS$_TAPEPOSLOST= 00000224            

SS$_EXTIDXFILE = 00000880            SS$_LKWSETFUL  = 00000194            SS$_TBIT       = 00000464            

SS$_FCPREADERR = 00000888            SS$_MBFULL     = 000008D8            SS$_TIMEOUT    = 0000022C            

SS$_FCPREPSTN  = 00000988            SS$_MBTOOSML   = 0000019C            SS$_TOOMANYVER = 00000990            

SS$_FCPREWNDERR= 00000890            SS$_MCHECK     = 000002BC            SS$_TOOMUCHDATA= 0000029C            

SS$_FCPSPACERR = 00000898            SS$_MEDOFL     = 000001A4            SS$_UNASEFC    = 00000234            

SS$_FCPWRITERR = 000008A0            SS$_MSGNOTFND  = 00000621            SS$_UNSAFE     = 0000023C            

SS$_FILACCERR  = 0000009C            SS$_MTLBLLONG  = 00000304            SS$_UNWIND     = 00000920            

SS$_FILALRACC  = 000000A4            SS$_MUSTCLOSEFL= 00000948            SS$_UNWINDING  = 00000928            

SS$_FILELOCKED = 000008A8            SS$_NOAQB      = 00000314            SS$_VASFULL    = 00000244            

SS$_FILENUMCHK = 000008B0            SS$_NODATA     = 000001AC            SS$_VECINUSE   = 0000024C            

SS$_FILESEQCHK = 000008B8            SS$_NOHANDLER  = 000008F8            SS$_VOLINV     = 00000254            

SS$_FILESTRUCT = 000008C0            SS$_NOHOMEBLK  = 000008E0            SS$_WAITUSRLBL = 00000950            

SS$_FILNOTACC  = 000000AC            SS$_NOIOCHAN   = 000001B4            SS$_WASCLR     = 00000001            

SS$_FILNOTCNTG = 000002AC            SS$_NOLINKS    = 0000027C            SS$_WASECC     = 00000639            

SS$_FILNOTEXP  = 000000B4            SS$_NOLOGNAM   = 000001BC            SS$_WASSET     = 00000009            

SS$_FLTDIV     = 00000494            SS$_NOMBX      = 00000274            SS$_WRITLCK    = 0000025C            

SS$_FLTOVF     = 0000048C            SS$_NOMOREFILES= 00000930            SS$_WRONGACP   = 0000031C            

SS$_FLTUND     = 0000049C            SS$_NONEXDRV   = 000001C4            SYS$EXIT         ********   X   03   

SS$_FORMAT     = 000000BC            SS$_NONEXPR    = 000008E8            SYS$FAOL         ********   X   03   

SS$_GPTFULL    = 000000C4            SS$_NONLOCAL   = 000008F0            SYS$PUT          ********  GX   03   

SS$_GSDFULL    = 000000CC            SS$_NOPRIV     = 00000024            SYS$QIO          ********   X   03   

SS$_HANGUP     = 000002CC            SS$_NORMAL     = 00000001            SYS$QIOW         ********   X   03   

SS$_HEADERFULL = 000008C8            SS$_NOSIGNAL   = 00000900            TST$CHECK_IOSB   0000004C RG    03   

SS$_IDXFILEFULL= 000008D0            SS$_NOSOLICIT  = 00000284            TST$CHECK_RMS    0000002C RG    03   

SS$_ILLBLKNUM  = 000000DC            SS$_NOSUCHDEV  = 00000908            TST$CHECK_SS     00000000 RG    03   

SS$_ILLCNTRFUNC= 000000E4            SS$_NOSUCHFILE = 00000910            TST$DISPLAY_MSG  0000013F RG    03   

SS$_ILLEFC     = 000000EC            SS$_NOSUCHNODE = 0000028C            TST$EXAM_MAIL    00000099 RG    03   

SS$_ILLIOFUNC  = 000000F4            SS$_NOSUCHSEC  = 00000978            TST$FAOOUT       00000117 RG    03   

SS$_ILLLBLAST  = 00000968            SS$_NOTAPEOP   = 00000264            TST$FLUSH_MAIL   000000C9 RG    03   

SS$_ILLPAGCNT  = 000000FC            SS$_NOTFILEDEV = 000001CC            TST$GB_MAILBUF   ********   X   03   

SS$_ILLSEQOP   = 000002DC            SS$_NOTINTBLSZ = 000001D4            TST$GQ_DISPLAY   ********   X   03   

SS$_ILLSER     = 00000104            SS$_NOTLABELMT = 000001DC            TST$GQ_MAILIOSB  ********   X   03   

SS$_ILLUSRLBLRD= 00000958            SS$_NOTMODIFIED= 00000659            TST$GQ_PRTBUF    ********   X   03   

SS$_ILLUSRLBLWT= 00000960            SS$_NOTNETDEV  = 000002EC            TST$GT_DEV_NAME  ********   X   03   

SS$_INCVOLLABEL= 0000010C            SS$_NOTRAN     = 00000629            TST$GT_MAILDATA  ********   X   03   

SS$_INSFARG    = 00000114            SS$_NOTSQDEV   = 000001E4            TST$GT_RECV      ********   X   03   

SS$_INSFMEM    = 00000124            SS$_OPCCUS     = 00000434            TST$GT_STANDARD  ********   X   03   

SS$_INSFRAME   = 0000012C            SS$_OPCDEC     = 0000043C            TST$GT_XMIT      ********   X   03   

SS$_INSFWSL    = 0000011C            SS$_OPINCOMPL  = 000002D4            TST$GW_DEV_UNIT  ********   X   03   

TST$DTCOMMON    - COMMON ROUTINES FOR DTS/DTR                    22-AUG-1978 01:05:03   VAX-11 MACRO X0.3-11               Page  21

SYMBOL TABLE                                                                                                                    (11)



TST$GW_LINKCHAN  ********   X   03   

TST$GW_MAILCHAN  ********   X   03   

TST$GW_MAILCODE  ********   X   03   

TST$GW_PRTLEN    ********   X   03   

TST$K_MAILBUF    ********   X   03   

TST$PARAMETER    ********   X   03   

TST$PRINT_FAO    00000101 RG    03   

TST$PRTRAB       ********   X   03   

TST$QIOAST       00000065 RG    03   

TST$QIOW         00000055 RG    03   

TST$STANDARD     00000190 RG    03   





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  

$ABS$            00000044      02     NOPIC   USR   CON   ABS   LCL NOSHR   EXE   RD    WRT BYTE  

TST$CODE         000001B5      03     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD  NOWRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

10020. BYTES LEFT IN FREE MEMORY POOL.

2862. BYTES OF RECLAIMED MEMORY.

OBJ$:DTCOMMON,LIS$:DTCOMMON/-SP=SRC$:DTPREFIX,DTCOMMON

50 MLB DIR RDS - 878 GETS TO DEFINE 27 MACROS. 61 INTER. FILE WRITES. 

