RSXTERMIN       - IMAGE EXIT,TERMINATION AND ABORT ROUTINES      22-AUG-1978 05:12:45   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (2)      47  OUTPUT STRINGS

   (3)      64  RSX$FORCEEXIT/RSX$RETEXIT - TERMINATION HANDLER

   (4)      94  RSX$ABORT - ABORT IMAGE EXECUTION

   (5)     182  RSX$EXST - EXIT WITH STATUS

   (6)     213  RSX$EXIT - EXIT

   (7)     240  RSX$INTERNEXIT - TERMINATE IMAGE EXECUTION

RSXTERMIN       - IMAGE EXIT,TERMINATION AND ABORT ROUTINES      22-AUG-1978 05:12:45   VAX-11 MACRO X0.3-11               Page   1

V06.0                                                                                                                            (1)



                                     0000     1 	.TITLE	RSXTERMIN - IMAGE EXIT,TERMINATION AND ABORT ROUTINES

                                     0000     2 	.IDENT	/V06.0/		;

                                     0000     3 

                                     0000     4 ;

                                     0000     5 ; COPYRIGHT (C) 1978

                                     0000     6 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754

                                     0000     7 ;

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

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

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

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

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

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

                                     0000    14 ; REMAIN IN DEC.

                                     0000    15 ;

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

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

                                     0000    18 ; CORPORATION.

                                     0000    19 ;

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

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

                                     0000    22 

                                     0000    23 ;++

                                     0000    24 ; FACILITY:

                                     0000    25 ;

                                     0000    26 ;	VAX/VMS RSX-11M AME

                                     0000    27 ;

                                     0000    28 ; ABSTRACT:

                                     0000    29 ;

                                     0000    30 ;	TERMINATION AND ABORT ROUTINES

                                     0000    31 ;

                                     0000    32 ; AUTHOR: R.HEINEN 4-NOV-76

                                     0000    33 ;--

                                     0000    34 	

                                     0000    35 ;

                                     0000    36 ; EXTERNAL SYMBOLS

                                     0000    37 ;

                                     0000    38 	$RSXDEF			; DEFINE RSX SYMBOLS

                                     0000    39 	LBLDF$			; DEFINE LABEL FOR RSX11M TASK IMAGES

                                     0000    40 ;

                                     0000    41 ; RMS DEFINITIONS

                                     0000    42 ;

                                     0000    43 	$FABDEF				; DEFINE FAB

                                     0000    44 	$RABDEF				; DEFINE RAB

                                     0000    45  

RSXTERMIN       - IMAGE EXIT,TERMINATION AND ABORT ROUTINES      22-AUG-1978 05:12:45   VAX-11 MACRO X0.3-11               Page   2

V06.0           OUTPUT STRINGS                                                                                                   (2)



                                     0000    47 	.SBTTL	OUTPUT STRINGS

                                     0000    48  

                                 00000000    49 	.PSECT	RSXPURE,EXE,NOWRT,LONG,SHR,PIC

                                     0000    50  

                                     0000    51 ;

                                     0000    52 ; REGISTER NAME LINES

                                     0000    53 ;

                        00 43 50 02  0000    54 PCM:	.ASCIZ	<2>/PC/

                        00 53 50 02  0004    55 PSM:	.ASCIZ	<2>/PS/

                        00 30 52 02  0008    56 R0M:	.ASCIZ	<2>/R0/

                        00 31 52 02  000C    57 R1M:	.ASCIZ	<2>/R1/

                        00 32 52 02  0010    58 R2M:	.ASCIZ	<2>/R2/

                        00 33 52 02  0014    59 R3M:	.ASCIZ	<2>/R3/

                        00 34 52 02  0018    60 R4M:	.ASCIZ	<2>/R4/

                        00 35 52 02  001C    61 R5M:	.ASCIZ	<2>/R5/

                        00 50 53 02  0020    62 SPM:	.ASCIZ	<2>/SP/

RSXTERMIN       - IMAGE EXIT,TERMINATION AND ABORT ROUTINES      22-AUG-1978 05:12:45   VAX-11 MACRO X0.3-11               Page   3

V06.0           RSX$FORCEEXIT/RSX$RETEXIT - TERMINATION HANDLER                                                                  (3)



                                     0024    64 	.SBTTL	RSX$FORCEEXIT/RSX$RETEXIT - TERMINATION HANDLERS

                                     0024    65  

                                     0024    66 ;++

                                 00000000    67 	.PSECT	RSXCODE,NOWRT,SHR,PIC

                                     0000    68 ; RSX$FORCEEXIT - FORCE EXIT TERMINATION HANDLER FOR THE RSX

                                     0000    69 ; RSX$RETEXIT - NULL EXIT HANDLER

                                     0000    70 ;

                                     0000    71 ; FUNCTIONAL DESCRIPTION:

                                     0000    72 ;

                                     0000    73 ; THIS ROUTINE IS CALLED WHEN THIS IMAGE IS TO BE EXITED AS DIRECTED

                                     0000    74 ; FROM AN EXTERNAL SOURCE. THE ACTION IS TO CAUSE A TERMINATION MESSAGE

                                     0000    75 ; SET ON THE ERROR DEVICE.

                                     0000    76 ;

                                     0000    77 ; INPUTS:

                                     0000    78 ;

                                     0000    79 ; OUTPUTS:

                                     0000    80 ;

                                     0000    81 ;	CONTROL IS PASSED TO THE RSX TERMINATION ROUTINES

                                     0000    82 ;	REASON = AB_ABORT

                                     0000    83 ;--

                                     0000    84 RSX$FORCEEXIT::				; ABORTED IMAGE EXECUTION

                               0000  0000    85 	.WORD	0

            5A   00000000'GF     9E  0002    86 	MOVAB	G^CTL$AL_CMCNTX,R10	; ADDRESS IMPURE DATA

                     0188 CA     D4  0009    87 	CLRL	I_BAILOUTFP(R10)	; SET NO RETURN ADDRESS

            50   0006805C 8F     D0  000D    88 	MOVL	#<RSX$_EXTERNABRT>,R0	; SET STATUS

                          00CD   31  0014    89 	BRW	RSX$INTERNEXIT		; ABORT EXECUTION

                                     0017    90 RSX$RETEXIT::				; NO ACTION EXIT HANDLER

                               0000  0017    91 	.WORD	0

                                 04  0019    92 	RET				; RETURN TO CALLER

RSXTERMIN       - IMAGE EXIT,TERMINATION AND ABORT ROUTINES      22-AUG-1978 05:12:45   VAX-11 MACRO X0.3-11               Page   4

V06.0           RSX$ABORT - ABORT IMAGE EXECUTION                                                                                (4)



                                     001A    94 	.SBTTL	RSX$ABORT - ABORT IMAGE EXECUTION

                                     001A    95 ;++

                                     001A    96 ; RSX$ABORT - ABORT EXECUTION AS A RESULT OF AN UNVECTORED CM TRAP OR RSX ERROR

                                     001A    97 ;

                                     001A    98 ; FUNCTIONAL DESCRIPTION:

                                     001A    99 ;

                                     001A   100 ; THIS ROUTINE IS ENTERED AS A RESULT OF AN UNVECTORED CM TRAP OR AN ERROR

                                     001A   101 ; IN THE EXECUTION OF THE RSX.

                                     001A   102 ;

                                     001A   103 ; INPUTS:	

                                     001A   104 ;

                                     001A   105 ;	R0 = ABORT CODE

                                     001A   106 ;	R10 = ADDRESS OF THE IMAGE DATA BASE

                                     001A   107 ;	R11 = ADDRESS OF THE IMAGE HEADER

                                     001A   108 ;

                                     001A   109 ; OUTPUTS:

                                     001A   110 ;

                                     001A   111 ;  THE RSX CALLER IS RETURNED TO WITH R0 SIGNALING THE ERROR.

                                     001A   112 ;--

                                     001A   113 ACCVIO:

                                     001A   114 	$EXIT_S	R9			; EXIT WITH OUT MESSAGE

                                     0023   115 RSX$ABORT::				; ABORT A CM IMAGE

       0004'CF       FFF0 CF     9E  0023   116 	MOVAB	W^RSX$RETEXIT,W^RSX$A_EXITBLOCK+4; CHANGE ADDRESS OF EXIT

            59            50     D0  002A   117 	MOVL	R0,R9			; COPY ABORT REASON

            59       8000 8F     A8  002D   118 	BISW	#^X08000,R9		; SET MESSAGE TAKEN CARE OF

            5A   00000000'GF     9E  0032   119 	MOVAB	G^CTL$AL_CMCNTX,R10	; ADDRESS IMPURE DATA

                                     0039   120 ;

                                     0039   121 ; OUTPUT HEADER MESSAGE

                                     0039   122 ;

                          00     DD  0039   123 	PUSHL	#0			;

                          59     DD  003B   124 	PUSHL	R9			;

                 000F0002 8F     DD  003D   125 	PUSHL	#2+<15@16>		;

                          7E     7C  0043   126 	CLRQ	-(SP)			;

                       08 AE     9F  0045   127 	PUSHAB	8(SP)			;

   00000000'9F            06     FB  0048   128 	CALLS	#3+3,@#SYS$PUTMSG	;

                                     004F   129 ;

                                     004F   130 ; OUTPUT NAME OF IMAGE MESSAGE

                                     004F   131 ;

                          00     DD  004F   132 	PUSHL	#0			;

                     0140 CA     9F  0051   133 	PUSHAB	I_ASCIINAME(R10)	; ADDRESS NAME STRING

                          02     DD  0055   134 	PUSHL	#2

                 00068084 8F     DD  0057   135 	PUSHL	#RSX$_IMAGETERM		; SET MESSAGE ID

                 000F0004 8F     DD  005D   136 	PUSHL	#4+<15@16>

                          7E     7C  0063   137 	CLRQ	-(SP)			;

                       08 AE     9F  0065   138 	PUSHAB	8(SP)			;

   00000000'9F            08     FB  0068   139 	CALLS	#3+5,@#SYS$PUTMSG	; 

                                     006F   140 ;

                                     006F   141 ; OUTPUT PC

                                     006F   142 ;

            53       0000'CF     9E  006F   143 	MOVAB	W^PCM,R3		; ADDRESS SPECIFIC MESSAGE

            54         20 AA     9E  0074   144 	MOVAB	I_PC(R10),R4		; ADDRESS DATA

                          2F     10  0078   145 	BSBB	50$			; OUTPUT IT

                                     007A   146 ;

                                     007A   147 ; OUTPUT THE PSL

                                     007A   148 ;

            84            83     D1  007A   149 	CMPL	(R3)+,(R4)+

                          2A     10  007D   150 	BSBB	50$			; 

RSXTERMIN       - IMAGE EXIT,TERMINATION AND ABORT ROUTINES      22-AUG-1978 05:12:45   VAX-11 MACRO X0.3-11               Page   5

V06.0           RSX$ABORT - ABORT IMAGE EXECUTION                                                                                (4)



                                     007F   151 ;

                                     007F   152 ; OUTPUT THE REGISTERS

                                     007F   153 ;

            53       0008'CF     9E  007F   154 	MOVAB	W^R0M,R3		; ADDRESS NORMAL REGISTER MESSAGES

            54   00000000'GF     9E  0084   155 	MOVAB	G^CTL$AL_CMCNTX,R4	; ADDRESS REGISTER CONTENTS

                          1C     10  008B   156 20$:	BSBB	50$			; OUTPUT THE LINE

                          84     D5  008D   157 	TSTL	(R4)+

       0020'CF            83     D1  008F   158 	CMPL	(R3)+,W^SPM		; REGISTER 6 DONE?

                          F5     12  0094   159 	BNEQ	20$			; IF NEQ THEN NO

                                     0096   160 ;

                                     0096   161 ; COMPLETE THE OPERATION BY EXITING

                                     0096   162 ;

            59            1C     E2  0096   163 40$:	BBSS	#28,R9,41$		; SET BIT 28 TO SIGNAL MESSAGE OUTPUTED

                          00         0099       

       0172 CA       1000 8F     B3  009A   164 41$:	BITW	#TS$PMD,I_STATE+2(R10)	; PMD REQUEST?

                          03     13  00A1   165 	BEQL	45$			; IF EQL THEN NO

                          FF5A'  30  00A3   166 	BSBW	RSX$PMD			; PMD THE IMAGE

                          0045   31  00A6   167 45$:	BRW	INTERNEXIT		; EXIT THE IMAGE

                                     00A9   168 ;

                                     00A9   169 ; UTILITY OUTPUT SUBROUTINE

                                     00A9   170 ;

                          64     DD  00A9   171 50$:	PUSHL	(R4)

                          64     DD  00AB   172 	PUSHL	(R4)

                          53     DD  00AD   173 	PUSHL	R3

                          03     DD  00AF   174 	PUSHL	#3

                 0006808C 8F     DD  00B1   175 	PUSHL	#RSX$_REGMSG

                 00010005 8F     DD  00B7   176 	PUSHL	#5+<1@16>

                          7E     7C  00BD   177 	CLRQ	-(SP)

                       08 AE     9F  00BF   178 	PUSHAB	8(SP)

   00000000'9F            09     FB  00C2   179 	CALLS	#3+6,@#SYS$PUTMSG

                                 05  00C9   180 	RSB

RSXTERMIN       - IMAGE EXIT,TERMINATION AND ABORT ROUTINES      22-AUG-1978 05:12:45   VAX-11 MACRO X0.3-11               Page   6

V06.0           RSX$EXST - EXIT WITH STATUS                                                                                      (5)



                                     00CA   182 	.SBTTL	RSX$EXST - EXIT WITH STATUS

                                     00CA   183 ;++

                                     00CA   184 ; RSX$EXST - RSX11M EXIT WITH STATUS DIRECTIVE

                                     00CA   185 ;

                                     00CA   186 ; FUNCTIONAL DESCRIPTION:

                                     00CA   187 ;

                                     00CA   188 ; THIS ROUTINE IMPLEMENTS THE RSX11M EXIT WITH STATUS DIRECTIVE.

                                     00CA   189 ;

                                     00CA   190 ; CALLING SEQUENCE:

                                     00CA   191 ;

                                     00CA   192 ;	CALLED VIA CASE FROM RSXEXCEPT.

                                     00CA   193 ;

                                     00CA   194 ; INPUTS:

                                     00CA   195 ;

                                     00CA   196 ;	R5 = ADDRESS OF THE DPB

                                     00CA   197 ;	R6 = ADDRESS OF THE IMAGE STACK

                                     00CA   198 ;	R10 = ADDRESS OF THE IMAGE IMPURE DATA BASE

                                     00CA   199 ;	R11 = ADDRESS OF THE IMAGE

                                     00CA   200 ;

                                     00CA   201 ; OUTPUTS:

                                     00CA   202 ;

                                     00CA   203 ;	R10,R11 ARE PRESERVED.

                                     00CA   204 ;

                                     00CA   205 ;--

                                     00CA   206 RSX$EXST::				; EXIT WITH STATUS

            50   00068640 8F     D0  00CA   207 	MOVL	#RSX$_EXITSTATUS,R0	; SET ERROR CODE

            65       FFF8 8F     AB  00D1   208 	BICW3	#^X0FFF8,(R5),R1	; GET HIS EXIT STATUS

                          51         00D6       

            50            51     88  00D7   209 	BISB	R1,R0			; SET THE ERROR

            50            1C     E3  00DA   210 	BBCS	#28,R0,RSX$INTERNEXIT

                          06         00DD       

                          04     11  00DE   211 	BRB	RSX$INTERNEXIT

RSXTERMIN       - IMAGE EXIT,TERMINATION AND ABORT ROUTINES      22-AUG-1978 05:12:45   VAX-11 MACRO X0.3-11               Page   7

V06.0           RSX$EXIT - EXIT                                                                                                  (6)



                                     00E0   213 	.SBTTL	RSX$EXIT - EXIT

                                     00E0   214 ;++

                                     00E0   215 ; RSX$EXIT - RSX11M EXIT DIRECTIVE

                                     00E0   216 ;

                                     00E0   217 ; FUNCTIONAL DESCRIPTION:

                                     00E0   218 ;

                                     00E0   219 ; THIS ROUTINE IMPLEMENTS THE RSX11M EXIT DIRECTIVE.

                                     00E0   220 ;

                                     00E0   221 ; CALLING SEQUENCE:

                                     00E0   222 ;

                                     00E0   223 ;	CALLED VIA CASE FROM RSXEXCEPT.

                                     00E0   224 ;

                                     00E0   225 ; INPUTS:

                                     00E0   226 ;

                                     00E0   227 ;	R5 = ADDRESS OF THE DPB

                                     00E0   228 ;	R6 = ADDRESS OF THE IMAGE STACK

                                     00E0   229 ;	R10 = ADDRESS OF THE IMAGE IMPURE DATA BASE

                                     00E0   230 ;	R11 = ADDRESS OF THE IMAGE

                                     00E0   231 ;

                                     00E0   232 ; OUTPUTS:

                                     00E0   233 ;

                                     00E0   234 ;	R10,R11 ARE PRESERVED.

                                     00E0   235 ;

                                     00E0   236 ;--

                                     00E0   237 RSX$EXIT::				; EXIT

            50         00'8F     9A  00E0   238 	MOVZBL	#SS$_NORMAL,R0		; SET SUCCESS

RSXTERMIN       - IMAGE EXIT,TERMINATION AND ABORT ROUTINES      22-AUG-1978 05:12:45   VAX-11 MACRO X0.3-11               Page   8

V06.0           RSX$INTERNEXIT - TERMINATE IMAGE EXECUTION                                                                       (7)



                                     00E4   240 	.SBTTL RSX$INTERNEXIT - TERMINATE IMAGE EXECUTION

                                     00E4   241 ;++

                                     00E4   242 ; RSX$INTERNEXIT - TERMINATE IMAGE EXECUTION

                                     00E4   243 ;

                                     00E4   244 ; FUNCTIONAL DESCRIPION:

                                     00E4   245 ;

                                     00E4   246 ; THIS ROUTINE CLEANS UP THE EXECUTION OF THIS IMAGE AND RETURNS TO THE

                                     00E4   247 ; ORIGIONAL CALLER.

                                     00E4   248 ; 

                                     00E4   249 ; INPUTS:

                                     00E4   250 ;

                                     00E4   251 ;	R0 = STATUS OF THE EXECUTION

                                     00E4   252 ;	R10 = ADDRESS OF THE IMAGE IMPURE DATA BASE

                                     00E4   253 ;	R11 = ADDRESS OF THE IMAGE

                                     00E4   254 ;

                                     00E4   255 ; OUTPUTS:

                                     00E4   256 ;

                                     00E4   257 ;	R0 = STATUS OF THE EXECUTION

                                     00E4   258 ;--

                                     00E4   259 RSX$INTERNEXIT::			; EXIT THE IMAGE

       0004'CF       FF2F CF     9E  00E4   260 	MOVAB	W^RSX$RETEXIT,W^RSX$A_EXITBLOCK+4; CHANGE EXIT ADDRESS

            59            50     D0  00EB   261 	MOVL	R0,R9			; COPY STATUS VALUE

                                     00EE   262 INTERNEXIT:				;

                                     00EE   263 ;

                                     00EE   264 ; CLEAN UP THE COMMON EVENT FLAGS

                                     00EE   265 ;

                                     00EE   266 	$DACEFC_S	#95		;

                                     00FB   267 ;

                                     00FB   268 ; DEASSIGN RECEIVE MAILBOX

                                     00FB   269 ;

                                     00FB   270 	$DASSGN_S	I_RCVMAIL(R10)	;

                                     0107   271 ;

                                     0107   272 ; DEASSIGN ALL ASSIGNED DEVICES

                                     0107   273 ;

            57       00E0 CA     9E  0107   274 	MOVAB	I_LOGNAME(R10),R7	; ADDRESS LIST OF LOGICAL NAMES

            58            67     D0  010C   275 	MOVL	(R7),R8			; ADDRESS FIRST ENTRY

                          40     13  010F   276 	BEQL	20$			; IF EQL THEN NOT THERE YET

                       16 A8     B5  0111   277 1$:	TSTW	LUT_TYPE(R8)		; RMS OR DEVICE?

                          0D     13  0114   278 	BEQL	5$			; IF EQL THEN RMS

                                     0116   279 	$DASSGN_S	LUT_CHAN(R8)	; DEASSIGN THE CHANNEL

                          23     11  0121   280 	BRB	10$			; CONTINUE

            56       0000'CF     9E  0123   281 5$:	MOVAB	W^RSX$G_FAB,R6		; ADDRESS GENERAL FAB

            66            00     2C  0128   282 	MOVC5	#0,(R6),#0,#FAB$C_BLN,(R6)

       0050 8F            00         012B       

                          66         012F       

            66            03     90  0130   283 	MOVB	#FAB$C_BID,FAB$B_BID(R6)

         01 A6         50 8F     90  0133   284 	MOVB	#FAB$C_BLN,FAB$B_BLN(R6)

         02 A6         0C A8     B0  0138   285 	MOVW	LUT_CHAN(R8),FAB$W_IFI(R6); SET UP FAB

                                     013D   286 	$CLOSE	FAB=(R6)

                       0C A8     D4  0146   287 10$:	CLRL	LUT_CHAN(R8)		; SET NO CHANNEL

            58            68     D0  0149   288 	MOVL	(R8),R8			; GET THE NEXT ENTRY

            57            58     D1  014C   289 	CMPL	R8,R7			; DONE?

                          C0     12  014F   290 	BNEQ	1$			; IF NEQ THEN NO

                                     0151   291 ;

                                     0151   292 ; RETURN TO ORIGIONAL CALLER

                                     0151   293 ;

         28 AA       014C CA     90  0151   294 20$:	MOVB	I_PROCNAME(R10),I_SCRATCH(R10)

RSXTERMIN       - IMAGE EXIT,TERMINATION AND ABORT ROUTINES      22-AUG-1978 05:12:45   VAX-11 MACRO X0.3-11               Page   9

V06.0           RSX$INTERNEXIT - TERMINATE IMAGE EXECUTION                                                                       (7)



                          10     13  0157   295 	BEQL	25$

         2C AA       014D CA     9E  0159   296 	MOVAB	I_PROCNAME+1(R10),I_SCRATCH+4(R10)

                                     015F   297 	$SETPRN_S	I_SCRATCH(R10)

            50            59     D0  0169   298 25$:	MOVL	R9,R0			; SET UP STATUS

            51       0188 CA     D0  016C   299 	MOVL	I_BAILOUTFP(R10),R1	; SET UP ORIGIONAL FP

                          03     13  0171   300 	BEQL	30$			; IF EQL THEN FORCE EXIT DONE

            5D            51     D0  0173   301 	MOVL	R1,FP			; RESET FP

                                 04  0176   302 30$:	RET				; RETURN

                                     0177   303 ;

                                     0177   304 	.END	

RSXTERMIN       - IMAGE EXIT,TERMINATION AND ABORT ROUTINES      22-AUG-1978 05:12:45   VAX-11 MACRO X0.3-11               Page  10

SYMBOL TABLE                                                                                                                     (7)



$$.TMP1        = 00000001            FAB$L_DNA        00000030            FAB$M_UFO      = 00020000            

$$.TMP2        = 00000066            FAB$L_FNA        0000002C            FAB$M_UPD      = 00000008            

$$MSG          = 00000000            FAB$L_FOP        00000004            FAB$M_UPI      = 00000040            

...GBL         = 00000000            FAB$L_JNL        00000020            FAB$M_WCK      = 00000200            

ACBC_CTLRCAST  = 00000002            FAB$L_MRN        00000038            FAB$S_ORG      = 00000004            

ACBC_FLOATAST  = 00000003            FAB$L_NAM        00000028            FAB$S_PPF_RAT  = 00000008            

ACBC_PWRAST    = 00000000            FAB$L_SDC        00000044            FAB$V_BIO      = 00000005            

ACBC_RCVAST    = 00000001            FAB$L_STS        00000008            FAB$V_BLK      = 00000003            

ACBV_INPROG    = 00000001            FAB$L_STV        0000000C            FAB$V_BRO      = 00000006            

ACBV_PERM      = 00000000            FAB$L_XAB        00000024            FAB$V_CBT      = 00000015            

ACBV_TYPE      = 00000008            FAB$M_BIO      = 00000020            FAB$V_CIF      = 00000019            

ACB_FLAGS        0000000C            FAB$M_BLK      = 00000008            FAB$V_CR       = 00000001            

ACB_LINK         00000000            FAB$M_BRO      = 00000040            FAB$V_CTG      = 00000014            

ACB_UPC          0000000A            FAB$M_CBT      = 00200000            FAB$V_DEL      = 00000002            

ACB_UPRM         00000008            FAB$M_CIF      = 02000000            FAB$V_DFW      = 00000005            

ACCVIO           0000001A R     06   FAB$M_CR       = 00000002            FAB$V_DLT      = 0000000F            

ADR_HIGHLIM      00000004            FAB$M_CTG      = 00100000            FAB$V_DMO      = 0000000C            

ADR_LOWLIM       00000000            FAB$M_DEL      = 00000004            FAB$V_ESC      = 0000001B            

ADR_SIZE         00000008            FAB$M_DFW      = 00000020            FAB$V_EXE      = 00000007            

AP_NAME          00000004            FAB$M_DLT      = 00008000            FAB$V_FTN      = 00000000            

AST_PARAM        00000004            FAB$M_DMO      = 00001000            FAB$V_GET      = 00000001            

AST_PC           00000010            FAB$M_ESC      = 08000000            FAB$V_INP      = 00000013            

AST_PSL          00000014            FAB$M_EXE      = 00000080            FAB$V_JNL      = 00000016            

AST_R0           00000008            FAB$M_FTN      = 00000001            FAB$V_KFO      = 0000001E            

AST_R1           0000000C            FAB$M_GET      = 00000002            FAB$V_MSE      = 00000004            

BIT...         = 00000020            FAB$M_INP      = 00080000            FAB$V_MXV      = 00000001            

CTL$AL_CMCNTX    ********   X   06   FAB$M_JNL      = 00400000            FAB$V_NAM      = 00000018            

C_CANONPS      = 83C00000            FAB$M_KFO      = 40000000            FAB$V_NEF      = 0000000A            

C_RCVDSTR      = 44564352            FAB$M_MSE      = 00000010            FAB$V_NFS      = 00000010            

FAB$B_BID        00000000            FAB$M_MXV      = 00000002            FAB$V_NIL      = 00000005            

FAB$B_BKS        0000003E            FAB$M_NAM      = 01000000            FAB$V_OFP      = 0000001D            

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

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

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

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

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

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

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

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

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

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

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

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

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

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

FAB$C_IDX      = 00000020            FAB$M_SHRDEL   = 00000004            FAB$V_SHRUPD   = 00000003            

FAB$C_MAXRFM   = 00000003            FAB$M_SHRGET   = 00000002            FAB$V_SPL      = 0000000D            

FAB$C_REL      = 00000010            FAB$M_SHRPUT   = 00000001            FAB$V_SQO      = 00000006            

FAB$C_RFM_DFLT = 00000002            FAB$M_SHRUPD   = 00000008            FAB$V_SUP      = 00000002            

FAB$C_SEQ      = 00000000            FAB$M_SPL      = 00002000            FAB$V_TEF      = 0000001C            

FAB$C_UDF      = 00000000            FAB$M_SQO      = 00000040            FAB$V_TMD      = 00000004            

FAB$C_VAR      = 00000002            FAB$M_SUP      = 00000004            FAB$V_TMP      = 00000003            

FAB$C_VFC      = 00000003            FAB$M_TEF      = 10000000            FAB$V_TRN      = 00000004            

FAB$K_BLN        00000050            FAB$M_TMD      = 00000010            FAB$V_UFM      = 0000001A            

FAB$L_ALQ        00000010            FAB$M_TMP      = 00000008            FAB$V_UFO      = 00000011            

FAB$L_CTX        00000018            FAB$M_TRN      = 00000010            FAB$V_UPD      = 00000003            

FAB$L_DEV        00000040            FAB$M_UFM      = 04000000            FAB$V_UPI      = 00000006            

RSXTERMIN       - IMAGE EXIT,TERMINATION AND ABORT ROUTINES      22-AUG-1978 05:12:45   VAX-11 MACRO X0.3-11               Page  11

SYMBOL TABLE                                                                                                                     (7)



FAB$V_WCK      = 00000009            IE.BCC         = FFFFFFBE            IE.RAC         = FFFFFFD4            

FAB$W_BLS        0000003C            IE.BDI         = FFFFFFCC            IE.RAT         = FFFFFFD3            

FAB$W_DEQ        00000014            IE.BDR         = FFFFFFCE            IE.RBG         = FFFFFFD8            

FAB$W_IFI        00000002            IE.BDV         = FFFFFFC9            IE.RCN         = FFFFFFD2            

FAB$W_MRS        00000036            IE.BHD         = FFFFFFC0            IE.RER         = FFFFFFE0            

FCB_ATTRIBS      0000007C            IE.BLB         = FFFFFFBA            IE.RNM         = FFFFFFCD            

FCB_FIB          0000004C            IE.BLK         = FFFFFFEC            IE.RSU         = FFFFFFEF            

FCB_FID          00000000            IE.BNM         = FFFFFFCA            IE.SNC         = FFFFFFDD            

FCB_FNAME        00000014            IE.BTF         = FFFFFFB4            IE.SPC         = FFFFFFFA            

FCB_FNAMEDESC    0000000C            IE.BTP         = FFFFFFD5            IE.SQC         = FFFFFFDC            

FCB_FNB          00000002            IE.BVR         = FFFFFFC1            IE.SRE         = FFFFFFF2            

FCB_PC           00000078            IE.BYT         = FFFFFFED            IE.STK         = FFFFFFC6            

FCB_RESULT       00000030            IE.CKS         = FFFFFFE2            IE.TMM         = FFFFFFB9            

FCB_RESULTDESC   00000004            IE.CLO         = FFFFFFDA            IE.TMO         = FFFFFFB6            

FCB_SIZE         000000B4            IE.CNR         = FFFFFFB7            IE.ULK         = FFFFFFAB            

FP_AP            00000008            IE.CON         = FFFFFFEA            IE.VER         = FFFFFFFC            

FP_FP            0000000C            IE.DAA         = FFFFFFF8            IE.WAC         = FFFFFFE3            

FP_PC            00000010            IE.DAO         = FFFFFFF3            IE.WAT         = FFFFFFE1            

FP_PSL           00000004            IE.DFU         = FFFFFFE8            IE.WCK         = FFFFFFAA            

FP_REGISTERS     00000014            IE.DNA         = FFFFFFF9            IE.WER         = FFFFFFDF            

GBL...         = 00000000            IE.DNR         = FFFFFFFD            IE.WLK         = FFFFFFF4            

H.CSP            00000000            IE.DUN         = FFFFFFF7            INTERNEXIT       000000EE R     06   

H.CUIC           00000008            IE.DUP         = FFFFFFC7            IS.BV          = 00000005            

H.DSW            00000026            IE.EOF         = FFFFFFF6            IS.CC          = 00000301            

H.DUIC           0000000A            IE.EOT         = FFFFFFC2            IS.CR          = 00000D01            

H.EFLM           00000004            IE.EOV         = FFFFFFF5            IS.EOT         = 00000401            

H.EFSV           00000020            IE.EXP         = FFFFFFB5            IS.ESC         = 00001B01            

H.FCS            00000028            IE.FEX         = FFFFFFCF            IS.ESQ         = 00009B01            

H.FORT           0000002A            IE.FHE         = FFFFFFC5            IS.PES         = 00008001            

H.FPSA           00000022            IE.FLN         = FFFFFFAF            IS.PND         = 00000000            

H.FPVA           0000001C            IE.FOP         = FFFFFFCB            IS.RDD         = 00000002            

H.GARD           0000003A            IE.HFU         = FFFFFFE4            IS.SUC         = 00000001            

H.HDLN           00000002            IE.IES         = FFFFFFAE            IS.TAB         = 00000901            

H.IPC            0000000E            IE.IFC         = FFFFFFFE            IS.TMO         = 00000002            

H.IPS            0000000C            IE.IFU         = FFFFFFE7            I_ADR0           000000FC            

H.ISP            00000010            IE.ILL         = FFFFFFD6            I_ASCIINAME      00000140            

H.LUN            0000003E            IE.ISQ         = FFFFFFC3            I_ASTPOOL        000000D0            

H.NLUN           0000003C            IE.LCK         = FFFFFFE5            I_ASTQUEUE       000000C8            

H.NML            00000031            IE.MOD         = FFFFFFEB            I_BAILOUTFP      00000188            

H.ODVA           00000012            IE.NBF         = FFFFFFD9            I_CMDROUT        000000E8            

H.ODVL           00000014            IE.NBK         = FFFFFFD7            I_CURAST         00000198            

H.OVLY           0000002C            IE.NDR         = FFFFFFB8            I_DEBVEC         00000190            

H.PFVA           0000001A            IE.NFI         = FFFFFFC4            I_DEBVECL        00000192            

H.RCVA           0000001E            IE.NFW         = FFFFFFBB            I_FCBPOOL        000000D8            

H.RRVA           00000032            IE.NLK         = FFFFFFB1            I_FCC            000001B4            

H.SPRI           00000030            IE.NLN         = FFFFFFDB            I_FLOATA0        000001C0            

H.TKVA           00000016            IE.NNC         = FFFFFFB3            I_FLOATA1        000001C8            

H.TKVL           00000018            IE.NNL         = FFFFFFB2            I_FLOATA2        000001D0            

H.VEXT           0000002E            IE.NNN         = FFFFFFBC            I_FLOATA3        000001D8            

H.WND            00000024            IE.NOD         = FFFFFFE9            I_FLOATA4        000001E0            

IE.2DV         = FFFFFFD0            IE.NSF         = FFFFFFE6            I_FLOATA5        000001E8            

IE.ABO         = FFFFFFF1            IE.NST         = FFFFFFB0            I_FLOATADR       000001B0            

IE.ALC         = FFFFFFAC            IE.OFL         = FFFFFFBF            I_FLOATAST       000001A4            

IE.ALN         = FFFFFFDE            IE.ONP         = FFFFFFFB            I_FLOATCSR       000001A8            

IE.AST         = FFFFFFB0            IE.OVR         = FFFFFFEE            I_FLOATERR       000001AC            

IE.BAD         = FFFFFFFF            IE.PES         = FFFFFFAD            I_FLOATTMP       000001B8            

IE.BBE         = FFFFFFC8            IE.PRI         = FFFFFFF0            I_GARD           000000EC            

RSXTERMIN       - IMAGE EXIT,TERMINATION AND ABORT ROUTINES      22-AUG-1978 05:12:45   VAX-11 MACRO X0.3-11               Page  12

SYMBOL TABLE                                                                                                                     (7)



I_HIGHEFN        0000016C            LUTC_DISK      = 00000002            RAB$B_PSZ        00000034            

I_HIGHSIZE       000000F4            LUTC_LP        = 00000004            RAB$B_RAC        0000001E            

I_IMAGEVBN       000000F8            LUTC_RMS       = 00000000            RAB$B_ROP1       00000005            

I_INISIZE        000000F0            LUTC_TAPE      = 00000003            RAB$B_ROP2       00000006            

I_LENGTH         000001F0            LUTC_TRM       = 00000001            RAB$B_ROP3       00000007            

I_LOGNAME        000000E0            LUTV_CTRLC     = 00000002            RAB$B_TMO        0000001F            

I_LUT            00000168            LUTV_CTRLO     = 00000000            RAB$C_BID      = 00000001            

I_NLUN           00000164            LUTV_PRM       = 00000003            RAB$C_BLN        00000044            

I_PC             00000020            LUT_CHAN         0000000C            RAB$C_KEY      = 00000001            

I_PPFINDEX       00000162            LUT_CHAR         00000012            RAB$C_RFA      = 00000002            

I_PROCNAME       0000014C            LUT_CTRLC        00000032            RAB$C_SEQ      = 00000000            

I_PS             00000024            LUT_FLAGS        0000000A            RAB$K_BLN        00000044            

I_PWRAST         000001A0            LUT_INFONAME     0000002E            RAB$L_BKT        00000038            

I_R0             00000000            LUT_INFOUNIT     00000030            RAB$L_CTX        00000018            

I_R1             00000004            LUT_LINK         00000000            RAB$L_DCT        00000038            

I_R2             00000008            LUT_REALNAME     0000001E            RAB$L_FAB        0000003C            

I_R3             0000000C            LUT_REF          00000008            RAB$L_KBF        00000030            

I_R4             00000010            LUT_RSXNAME      00000010            RAB$L_PBF        00000030            

I_R5             00000014            LUT_SIZE         00000036            RAB$L_RBF        00000028            

I_R6             00000018            LUT_TYPE         00000016            RAB$L_RFA0       00000010            

I_RAD50NAME      00000148            PCM              00000000 R     05   RAB$L_RHB        0000002C            

I_RCVAST         0000019C            PSL_CC         = 00000000            RAB$L_ROP        00000004            

I_RCVMAIL        00000160            PSL_CM         = 0000001F            RAB$L_STS        00000008            

I_RUNFLAGS       0000018C            PSL_FPD        = 0000001B            RAB$L_STV        0000000C            

I_SCRATCH        00000028            PSL_FU         = 00000006            RAB$L_UBF        00000024            

I_SSTVEC         00000194            PSL_TBIT       = 00000004            RAB$M_ASY      = 00000001            

I_SSTVECL        00000196            PSM              00000004 R     05   RAB$M_BIO      = 00000800            

I_STATE          00000170            QIOV_FILES     = 00000000            RAB$M_CCO      = 80000000            

I_TYPE           0000001C            QIO_FLAGS        0000001A            RAB$M_CVT      = 04000000            

I_UIC            0000013C            QIO_IOSB         0000000E            RAB$M_EOF      = 00000100            

I_WAIT           00000178            QIO_LUT          00000016            RAB$M_FDL      = 00000040            

I_WAITSAVE       00000180            QIO_SECONDBLK    0000001C            RAB$M_HSH      = 00000080            

L$BASG           00000200            QIO_SIZE         00000020            RAB$M_KGE      = 00200000            

L$BBLK           000000F0            R$LDAT           00000016            RAB$M_KGT      = 00400000            

L$BDAT           0000001A            R$LFLG           00000014            RAB$M_LIM      = 00004000            

L$BEXT           000000EA            R$LHGV           00000006            RAB$M_LOA      = 00002000            

L$BFLG           00000018            R$LLDZ           0000000A            RAB$M_LOC      = 00010000            

L$BHGV           0000000A            R$LMXV           00000008            RAB$M_MAS      = 00000020            

L$BHRB           000000EE            R$LMXZ           0000000C            RAB$M_NLK      = 00100000            

L$BLDZ           0000000E            R$LNAM           00000000            RAB$M_NXR      = 00800000            

L$BLIB           00000020            R$LOFF           0000000E            RAB$M_PMT      = 40000000            

L$BLUN           000000F2            R$LSA            00000004            RAB$M_PPF_IND  = 00004000            

L$BMXV           0000000C            R$LSEG           00000012            RAB$M_PPF_RAT  = 00003FC0            

L$BMXZ           00000010            R$LSIZ           0000001C            RAB$M_PTA      = 20000000            

L$BOFF           00000012            R$LWND           00000010            RAB$M_RAH      = 00000200            

L$BPAR           00000004            R0M              00000008 R     05   RAB$M_RLK      = 00080000            

L$BPRI           000000E6            R1M              0000000C R     05   RAB$M_RNE      = 01000000            

L$BSA            00000008            R2M              00000010 R     05   RAB$M_RNF      = 08000000            

L$BSEG           00000016            R3M              00000014 R     05   RAB$M_TMO      = 02000000            

L$BSGL           000000EC            R4M              00000018 R     05   RAB$M_TPT      = 00000002            

L$BTSK           00000000            R5M              0000001C R     05   RAB$M_UIF      = 00000010            

L$BWND           00000014            RAB$B_BID        00000000            RAB$M_ULK      = 00040000            

L$BXFR           000000E8            RAB$B_BLN        00000001            RAB$M_WAT      = 00020000            

LD$ACC         = FFFF8000            RAB$B_KRF        00000035            RAB$M_WBH      = 00000400            

LD$REL         = 00000004            RAB$B_KSZ        00000034            RAB$S_PPF_RAT  = 00000008            

LD$RSV         = 00004000            RAB$B_MBC        00000037            RAB$V_ASY      = 00000000            

LUTC_CR        = 00000005            RAB$B_MBF        00000036            RAB$V_BIO      = 0000000B            

RSXTERMIN       - IMAGE EXIT,TERMINATION AND ABORT ROUTINES      22-AUG-1978 05:12:45   VAX-11 MACRO X0.3-11               Page  13

SYMBOL TABLE                                                                                                                     (7)



RAB$V_CCO      = 0000001F            RSX$_NOSUCHDEV = 00068322            

RAB$V_CVT      = 0000001A            RSX$_NOTSKIMG  = 00068064            

RAB$V_EOF      = 00000008            RSX$_ODDADDR   = 00068034            

RAB$V_FDL      = 00000006            RSX$_PMD       = 0006832A            

RAB$V_HSH      = 00000007            RSX$_RCVMBXSIZ = 0000012C            

RAB$V_KGE      = 00000015            RSX$_REGMSG    = 0006808C            

RAB$V_KGT      = 00000016            RSX$_RESERVED  = 00068004            

RAB$V_LIM      = 0000000E            RSX$_TBIT      = 0006803C            

RAB$V_LOA      = 0000000D            RSX$_TRAP      = 00068024            

RAB$V_LOC      = 00000010            RSX$_VERIFYCMD = 00068648            

RAB$V_MAS      = 00000005            SPM              00000020 R     05   

RAB$V_NLK      = 00000014            SS$_NORMAL       ********   X   06   

RAB$V_NXR      = 00000017            SV_ASTLVL        00000004            

RAB$V_PMT      = 0000001E            SV_DCL           00000002            

RAB$V_PPF_IND  = 0000000E            SV_FLOATAST      00000009            

RAB$V_PPF_RAT  = 00000006            SV_NOAST         00000003            

RAB$V_PTA      = 0000001D            SV_PENDWAIT      00000005            

RAB$V_RAH      = 00000009            SV_PWRAST        00000008            

RAB$V_RLK      = 00000013            SV_RCVAST        00000007            

RAB$V_RNE      = 00000018            SV_RESTORE       00000000            

RAB$V_RNF      = 0000001B            SV_TRANSLATE     00000001            

RAB$V_TMO      = 00000019            SV_WAIT          00000006            

RAB$V_TPT      = 00000001            SYS$CLOSE        ********  GX   06   

RAB$V_UIF      = 00000004            SYS$DACEFC       ********   X   06   

RAB$V_ULK      = 00000012            SYS$DASSGN       ********   X   06   

RAB$V_WAT      = 00000011            SYS$EXIT         ********   X   06   

RAB$V_WBH      = 0000000A            SYS$PUTMSG       ********   X   06   

RAB$W_ISI        00000002            SYS$SETPRN       ********   X   06   

RAB$W_RFA        00000010            TS$ACP         = 00002000            

RAB$W_RFA4       00000014            TS$CHK         = 00000040            

RAB$W_RSZ        00000022            TS$CMP         = 00000080            

RAB$W_USZ        00000020            TS$NET         = 00000200            

RSX$ABORT        00000023 RG    06   TS$NHD         = 00004000            

RSX$A_EXITBLOCK  ********   X   06   TS$NSD         = 00000400            

RSX$C_SUBSYSTEM= 00000006            TS$PIC         = FFFF8000            

RSX$EXIT         000000E0 RG    06   TS$PMD         = 00001000            

RSX$EXST         000000CA RG    06   TS$PRV         = 00000100            

RSX$FORCEEXIT    00000000 RG    06   TS$RES         = 00000020            

RSX$G_FAB        ********   X   06   TS$SLV         = 00000800            

RSX$INTERNEXIT   000000E4 RG    06   W.BATT           00000006            

RSX$PMD          ********   X   06   W.BFPD           0000000C            

RSX$RETEXIT      00000017 RG    06   W.BHVR           00000004            

RSX$_ACCVIO    = 00068044            W.BLGH           00000010            

RSX$_BADLIBREF = 0006806C            W.BLPD           0000000E            

RSX$_BADSTACK  = 0006804C            W.BLVR           00000002            

RSX$_BREAK     = 0006800C            W.BNPD           0000000D            

RSX$_EXITSTATUS= 00068640            W.BOFF           0000000A            

RSX$_EXTERNABRT= 0006805C            W.BPCB           00000000            

RSX$_ILLINST   = 0006802C            W.BSIZ           00000008            

RSX$_IMAGETERM = 00068084            

RSX$_INSFDYNMEM= 00068054            

RSX$_IOT       = 00068014            

RSX$_LIBNOTFND = 00068074            

RSX$_LOADERROR = 0006807C            

RSX$_NOCOMM    = 00068094            

RSX$_NONRSXEMT = 0006801C            

RSX$_NOPMD     = 00068332            

RSXTERMIN       - IMAGE EXIT,TERMINATION AND ABORT ROUTINES      22-AUG-1978 05:12:45   VAX-11 MACRO X0.3-11               Page  14

PROGRAM SECTION SYNOPSIS                                                                                                         (7)







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.           00000200      02     NOPIC   USR   CON   ABS   LCL NOSHR   EXE   RD    WRT BYTE  

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

RSXDEF           000001F4      04     NOPIC   USR   CON   ABS   LCL NOSHR   EXE   RD    WRT BYTE  

RSXPURE          00000024      05       PIC   USR   CON   REL   LCL   SHR   EXE   RD  NOWRT LONG  

RSXCODE          00000177      06       PIC   USR   CON   REL   LCL   SHR   EXE   RD  NOWRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

9310. BYTES LEFT IN FREE MEMORY POOL.

1296. BYTES OF RECLAIMED MEMORY.

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

43 MLB DIR RDS - 849 GETS TO DEFINE 26 MACROS. 42 INTER. FILE WRITES. 

