RSXTRAP         - RSX11M TRAP ASSOCIATED DIRECTIVES              22-AUG-1978 05:13:13   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (2)      43  RSX$DSAR - RSX11M DSAR$ DIRECTIVE

   (3)      85  RSX$ENAR - RSX11M ENAR$ DIRECTIVE

   (4)     128  RSX$SFPA - RSX11M SFPA$ DIRECTIVE

   (5)     198  RSX$SPRA - RSX11M SPRA$ DIRECTIVE

   (6)     268  RSX$POWEREN - ENABLE POWER FAIL AST

   (7)     296  RSX$SRDA - RSX11M SRDA$ DIRECTIVE

   (8)     370  RSX$RCVASTEN - ENABLE RECEIVE DATA AST

   (9)     397  RSX$SVDB - RSX11M SVDB$ DIRECTIVE

   (10)    442  RSX$SVTK - RSX11M SVTK$ DIRECTIVE

RSXTRAP         - RSX11M TRAP ASSOCIATED DIRECTIVES              22-AUG-1978 05:13:13   VAX-11 MACRO X0.3-11               Page   1

V06.0                                                                                                                            (1)



                                     0000     1 	.TITLE	RSXTRAP - RSX11M TRAP ASSOCIATED DIRECTIVES

                                     0000     2 	.IDENT	/V06.0/		;

                                     0000     3 ;

                                     0000     4 ; COPYRIGHT (C) 1978

                                     0000     5 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754

                                     0000     6 ;

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

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

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

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

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

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

                                     0000    13 ; REMAIN IN DEC.

                                     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 ; DEC ASSUMES  NO  RESPONSIBILITY  FOR  THE USE OR  RELIABILITY OF ITS

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

                                     0000    21 

                                     0000    22 ;++

                                     0000    23 ; FACILITY:

                                     0000    24 ;

                                     0000    25 ;	VAX/VMS RSX AME.

                                     0000    26 ;

                                     0000    27 ; ABSTRACT:

                                     0000    28 ;

                                     0000    29 ;	RSX11M TRAP ASSOCIATED DIRECTIVES.

                                     0000    30 ;

                                     0000    31 ; AUTHOR:

                                     0000    32 ;

                                     0000    33 ;	R.HEINEN 4-NOV-76

                                     0000    34 ;--

                                     0000    35 ;

                                     0000    36 ; EXTERNAL SYMBOLS

                                     0000    37 ;

                                     0000    38 	$RSXDEF			; DEFINE RSX SYMBOLS

                                     0000    39 	DRERR$			; DEFINE RSX11M DIRECTIVE STATUS CODES

                                     0000    40  

RSXTRAP         - RSX11M TRAP ASSOCIATED DIRECTIVES              22-AUG-1978 05:13:13   VAX-11 MACRO X0.3-11               Page   2

V06.0                                                                                                                            (2)



                                 00000000    42 	.PSECT	RSXCODE,NOWRT,SHR,PIC

                                     0000    43 	.SBTTL	RSX$DSAR - RSX11M DSAR$ DIRECTIVE

                                     0000    44 ;++

                                     0000    45 ; RSX$DSAR - RSX11M DISABLE AST RECOGNITION DIRECTIVE

                                     0000    46 ;

                                     0000    47 ; FUNCTIONAL DESCRIPTION:

                                     0000    48 ;

                                     0000    49 ; THIS IS A RSX DIRECTIVE HANDLER WHICH IMPLEMENTS AN RSX11M

                                     0000    50 ; "DSAR$" DIRECTIVE.

                                     0000    51 ;

                                     0000    52 ; INPUT PARAMETERS:

                                     0000    53 ;

                                     0000    54 ;	R5 = ADDRESS OF DPB+2

                                     0000    55 ;	R6 = CM IMAGE STACK ADDRESS

                                     0000    56 ;	R10 = ADDRESS OF CM IMAGE DATA BASE

                                     0000    57 ;	R11 = ADDRESS OF IMAGE HEADER

                                     0000    58 ;

                                     0000    59 ; OUTPUT PARAMETERS:

                                     0000    60 ;

                                     0000    61 ;	R10,R11 ARE PRESERVED

                                     0000    62 ;

                                     0000    63 ; IMPLICIT OUTPUTS:

                                     0000    64 ;

                                     0000    65 ;	THE PROPER DIRECTIVE STATUS IS PLACED IN THE IMAGE DSW

                                     0000    66 ;	ALONG WITH THE PROPER SETTING OF THE C-BIT.

                                     0000    67 ;

                                     0000    68 ; DSW RETURN CODES:

                                     0000    69 ;

                                     0000    70 ;	IS.SUC	SUCCESSFUL

                                     0000    71 ;	IE.ITS	AST'S ALREADY DISABLED

                                     0000    72 ;--

                                     0000    73 RSX$DSAR::				; DISABLE AST RECOGNITION DIRECTIVE

       0170 CA            03     E1  0000    74 	BBC	#SV_NOAST,I_STATE(R10),10$; BR IF AST'S NOT ALREADY DISABLED

                          0A         0005       

                                     0006    75 ;

                                     0006    76 ; AST'S ALREADY DISABLED

                                     0006    77 ;

                                     0006    78 	$DSW	#IE.ITS			; SET DSW AND RETURN

                                     0010    79 ;

                                     0010    80 ; DISABLE AST'S

                                     0010    81 ;

       0170 CA            03     E6  0010    82 10$:	BBSSI	#SV_NOAST,I_STATE(R10),15$; SET AST'S DISABLED

                          00         0015       

                                 05  0016    83 15$:	RSB				; AND RETURN

RSXTRAP         - RSX11M TRAP ASSOCIATED DIRECTIVES              22-AUG-1978 05:13:13   VAX-11 MACRO X0.3-11               Page   3

V06.0           RSX$ENAR - RSX11M ENAR$ DIRECTIVE                                                                                (3)



                                     0017    85 	.SBTTL	RSX$ENAR - RSX11M ENAR$ DIRECTIVE

                                     0017    86 ;++

                                     0017    87 ; RSX$ENAR - RSX11M ENABLE AST RECOGNITION DIRECTIVE

                                     0017    88 ;

                                     0017    89 ; FUNCTIONAL DESCRIPTION:

                                     0017    90 ;

                                     0017    91 ; THIS IS A RSX DIRECTIVE HANDLER WHICH IMPLEMENTS AN RSX11M

                                     0017    92 ; "ENAR$" DIRECTIVE.

                                     0017    93 ;

                                     0017    94 ; INPUT PARAMETERS:

                                     0017    95 ;

                                     0017    96 ;	R5 = ADDRESS OF DPB+2

                                     0017    97 ;	R6 = CM IMAGE STACK ADDRESS

                                     0017    98 ;	R10 = ADDRESS OF CM IMAGE DATA BASE

                                     0017    99 ;	R11 = ADDRESS OF IMAGE HEADER

                                     0017   100 ;

                                     0017   101 ; OUTPUT PARAMETERS:

                                     0017   102 ;

                                     0017   103 ;	R10,R11 ARE PRESERVED

                                     0017   104 ;

                                     0017   105 ; IMPLICIT OUTPUTS:

                                     0017   106 ;

                                     0017   107 ;	THE PROPER DIRECTIVE STATUS IS PLACED IN THE IMAGE DSW

                                     0017   108 ;	ALONG WITH THE PROPER SETTING OF THE C-BIT.

                                     0017   109 ;

                                     0017   110 ; DSW RETURN CODES:

                                     0017   111 ;

                                     0017   112 ;	IS.SUC	SUCCESSFUL

                                     0017   113 ;	IE.ITS	AST'S ALREADY ENABLED

                                     0017   114 ;--

                                     0017   115 RSX$ENAR::				; ENABLE AST RECOGNITION DIRECTIVE

       0170 CA            03     E0  0017   116 	BBS	#SV_NOAST,I_STATE(R10),10$; IF ALREADY ENABLED THEN ERROR

                          0A         001C       

                                     001D   117 ;

                                     001D   118 ; AST'S ALREADY ENABLED

                                     001D   119 ;

                                     001D   120 5$:	$DSW	#IE.ITS			; SET DSW AND RETURN

                                     0027   121 ;

                                     0027   122 ; ENABLE AST'S

                                     0027   123 ;

       0170 CA            03     E7  0027   124 10$:	BBCCI	#SV_NOAST,I_STATE(R10),15$; SET AST'S ENABLED

                          00         002C       

       0170 CA            20     A8  002D   125 15$:	BISW	#1@SV_PENDWAIT,I_STATE(R10); FORCE AST SEARCH ON EXIT

                                 05  0032   126 	RSB

RSXTRAP         - RSX11M TRAP ASSOCIATED DIRECTIVES              22-AUG-1978 05:13:13   VAX-11 MACRO X0.3-11               Page   4

V06.0           RSX$SFPA - RSX11M SFPA$ DIRECTIVE                                                                                (4)



                                     0033   128 	.SBTTL	RSX$SFPA - RSX11M SFPA$ DIRECTIVE

                                     0033   129 ;++

                                     0033   130 ; RSX$SFPA - RSX11M SPECIFY FLOATING EXCEPTION AST

                                     0033   131 ;

                                     0033   132 ; FUNCTIONAL DESCRIPTION:

                                     0033   133 ;

                                     0033   134 ; THIS IS A RSX DIRECTIVE HANDLER WHICH IMPLEMENTS AN RSX11M

                                     0033   135 ; "SFPA$" DIRECTIVE.

                                     0033   136 ;

                                     0033   137 ; INPUT PARAMETERS:

                                     0033   138 ;

                                     0033   139 ;	R5 = ADDRESS OF DPB+2

                                     0033   140 ;	R6 = CM IMAGE STACK ADDRESS

                                     0033   141 ;	R10 = ADDRESS OF CM IMAGE DATA BASE

                                     0033   142 ;	R11 = ADDRESS OF IMAGE HEADER

                                     0033   143 ;

                                     0033   144 ; OUTPUT PARAMETERS:

                                     0033   145 ;

                                     0033   146 ;	R10,R11 ARE PRESERVED

                                     0033   147 ;

                                     0033   148 ; IMPLICIT OUTPUTS:

                                     0033   149 ;

                                     0033   150 ;	THE PROPER DIRECTIVE STATUS IS PLACED IN THE IMAGE DSW

                                     0033   151 ;	ALONG WITH THE PROPER SETTING OF THE C-BIT.

                                     0033   152 ;

                                     0033   153 ; DSW RETURN CODES:

                                     0033   154 ;

                                     0033   155 ;	IS.SUC	SUCCESSFUL

                                     0033   156 ;	IE.ITS	AST ALREADY UNSPECIFIED

                                     0033   157 ;

                                     0033   158 ;--

                                     0033   159 RSX$SFPA::				; SPECIFY FLOATING EXCEPTION AST

       0170 CA            03     E0  0033   160 	BBS	#SV_NOAST,I_STATE(R10),10$; BR IF AST'S DISABLED

                          19         0038       

            0C            65     E8  0039   161 	BLBS	(R5),5$			; BR IF ODD

            54            65     3C  003C   162 	MOVZWL	(R5),R4			; GET USER AST ADDRESS

                          1B     12  003F   163 	BNEQ	15$			; IF NEQ THEN ENABLING

                                     0041   164 ;

                                     0041   165 ; DISABLE FUNCTION

                                     0041   166 ;

       0170 CA            09     E7  0041   167 	BBCCI	#SV_FLOATAST,I_STATE(R10),10$; BR IF DISABLED AND DISABLE

                          0B         0046       

                                 05  0047   168 	RSB				; RETURN

                                     0048   169 5$:	$DSW	#IE.ADP			;

                                     0052   170 10$:	$DSW	#IE.ITS			; ALREADY DISABLED

                                     005C   171 ;

                                     005C   172 ; ENABLE THE AST

                                     005C   173 ;

                                     005C   174 15$:	IFNORD	#2,(R4),5$		; PROBE THE ADDRESS

       0170 CA            09     E6  0062   175 	BBSSI	#SV_FLOATAST,I_STATE(R10),10$; BR IF ENABLED AND ENABLE

                          EA         0067       

            52       01A4 CA     D0  0068   176 	MOVL	I_FLOATAST(R10),R2	; GET PRESENT BLOCK

                          06     13  006D   177 	BEQL	20$			; IF EQL THEN GET A NEW ONE

                                     006F   178 ;

                                     006F   179 ; IF THE BLOCK HAS ALREADY BEEN ALLOCATED, IT IS POSSIBLE THAT THE AST

                                     006F   180 ; HAS NOT BEEN DELIVERED. IF THIS IS THE CASE THEN THE ENABLE WILL

                                     006F   181 ; BE DONE ON AST EXIT.

RSXTRAP         - RSX11M TRAP ASSOCIATED DIRECTIVES              22-AUG-1978 05:13:13   VAX-11 MACRO X0.3-11               Page   5

V06.0           RSX$SFPA - RSX11M SFPA$ DIRECTIVE                                                                                (4)



                                     006F   182 ;

         0C A2            01     E1  006F   183 	BBC	#ACBV_INPROG,ACB_FLAGS(R2),25$; BR IF NOT IN PROGRESS

                          04         0073       

                                 05  0074   184 	RSB				; ELSE RETURN SUCCESS

                                     0075   185 ;

                                     0075   186 ; ALLOCATE A CONTEXT BLOCK

                                     0075   187 ;

                          FF88'  30  0075   188 20$:	BSBW	RSX$SETUPAST		; SET UP THE AST CONTEXT

                                     0078   189 ;

                                     0078   190 ; SET UP AST CONTEXT BLOCK

                                     0078   191 ;

       01A4 CA            52     D0  0078   192 25$:	MOVL	R2,I_FLOATAST(R10)	; SAVE ADDRESS OF BLOCK

         08 A2            01     AE  007D   193 	MNEGW	#1,ACB_UPRM(R2)		; SET NO OPTIONAL DATA

         0A A2            54     B0  0081   194 	MOVW	R4,ACB_UPC(R2)		; SAVE AST ADDRESS

         0C A2       0301 8F     B0  0085   195 	MOVW	#<1@ACBV_PERM>+<ACBC_FLOATAST@ACBV_TYPE>,ACB_FLAGS(R2); SET UP FLAGS WORD

                                 05  008B   196 	RSB				; DONE

RSXTRAP         - RSX11M TRAP ASSOCIATED DIRECTIVES              22-AUG-1978 05:13:13   VAX-11 MACRO X0.3-11               Page   6

V06.0           RSX$SPRA - RSX11M SPRA$ DIRECTIVE                                                                                (5)



                                     008C   198 	.SBTTL	RSX$SPRA - RSX11M SPRA$ DIRECTIVE

                                     008C   199 ;++

                                     008C   200 ; RSX$SPRA - RSX11M SPECIFY POWER RECOVERY AST DIRECTIVE

                                     008C   201 ;

                                     008C   202 ; FUNCTIONAL DESCRIPTION:

                                     008C   203 ;

                                     008C   204 ; THIS IS A RSX DIRECTIVE HANDLER WHICH IMPLEMENTS AN RSX11M

                                     008C   205 ; "SPRA$" DIRECTIVE.

                                     008C   206 ;

                                     008C   207 ; INPUT PARAMETERS:

                                     008C   208 ;

                                     008C   209 ;	R5 = ADDRESS OF DPB+2

                                     008C   210 ;	R6 = CM IMAGE STACK ADDRESS

                                     008C   211 ;	R10 = ADDRESS OF CM IMAGE DATA BASE

                                     008C   212 ;	R11 = ADDRESS OF IMAGE HEADER

                                     008C   213 ;

                                     008C   214 ; OUTPUT PARAMETERS:

                                     008C   215 ;

                                     008C   216 ;	R10,R11 ARE PRESERVED

                                     008C   217 ;

                                     008C   218 ; IMPLICIT OUTPUTS:

                                     008C   219 ;

                                     008C   220 ;	THE PROPER DIRECTIVE STATUS IS PLACED IN THE IMAGE DSW

                                     008C   221 ;	ALONG WITH THE PROPER SETTING OF THE C-BIT.

                                     008C   222 ;

                                     008C   223 ; DSW RETURN CODES:

                                     008C   224 ;

                                     008C   225 ;	IS.SUC	SUCCESSFUL

                                     008C   226 ;	IE.ITS	AST ALREADY UNSPECIFIED

                                     008C   227 ;

                                     008C   228 ;--

                                     008C   229 RSX$SPRA::				; SPECIFY POWER RECOVERY AST DIRECTIVE

       0170 CA            03     E0  008C   230 	BBS	#SV_NOAST,I_STATE(R10),10$; BR IF AST'S DISABLED

                          24         0091       

            17            65     E8  0092   231 	BLBS	(R5),5$			; BR IF ODD

            54            65     3C  0095   232 	MOVZWL	(R5),R4			; GET USER AST ADDRESS

                          26     12  0098   233 	BNEQ	15$			; IF NEQ THEN ENABLING

                                     009A   234 ;

                                     009A   235 ; DISABLE FUNCTION

                                     009A   236 ;

       0170 CA            08     E7  009A   237 	BBCCI	#SV_PWRAST,I_STATE(R10),10$; BR IF DISABLED AND DISABLE

                          16         009F       

                                     00A0   238 	$SETPRA_S	0		; DISABLE FUNCTION

                                 05  00AB   239 	RSB				; RETURN

                                     00AC   240 5$:	$DSW	#IE.ADP			;

                                     00B6   241 10$:	$DSW	#IE.ITS			; ALREADY DISABLED

                                     00C0   242 ;

                                     00C0   243 ; ENABLE THE AST

                                     00C0   244 ;

                                     00C0   245 15$:	IFNORD	#2,(R4),5$		; PROBE THE ADDRESS

       0170 CA            08     E6  00C6   246 	BBSSI	#SV_PWRAST,I_STATE(R10),10$; BR IF ENABLED AND ENABLE

                          EA         00CB       

            52       01A0 CA     D0  00CC   247 	MOVL	I_PWRAST(R10),R2	; GET PRESENT BLOCK

                          06     13  00D1   248 	BEQL	20$			; IF EQL THEN GET A NEW ONE

                                     00D3   249 ;

                                     00D3   250 ; IF THE BLOCK HAS ALREADY BEEN ALLOCATED, IT IS POSSIBLE THAT THE AST

                                     00D3   251 ; HAS NOT BEEN DELIVERED. IF THIS IS THE CASE THEN THE ENABLE WILL

RSXTRAP         - RSX11M TRAP ASSOCIATED DIRECTIVES              22-AUG-1978 05:13:13   VAX-11 MACRO X0.3-11               Page   7

V06.0           RSX$SPRA - RSX11M SPRA$ DIRECTIVE                                                                                (5)



                                     00D3   252 ; BE DONE ON AST EXIT.

                                     00D3   253 ;

         0C A2            01     E1  00D3   254 	BBC	#ACBV_INPROG,ACB_FLAGS(R2),25$; BR IF NOT IN PROGRESS

                          04         00D7       

                                 05  00D8   255 	RSB				; ELSE RETURN SUCCESS

                                     00D9   256 ;

                                     00D9   257 ; ALLOCATE A CONTEXT BLOCK

                                     00D9   258 ;

                          FF24'  30  00D9   259 20$:	BSBW	RSX$SETUPAST		; SET UP THE AST CONTEXT

                                     00DC   260 ;

                                     00DC   261 ; SET UP AST CONTEXT BLOCK

                                     00DC   262 ;

       01A0 CA            52     D0  00DC   263 25$:	MOVL	R2,I_PWRAST(R10)	; SAVE ADDRESS OF BLOCK

         08 A2            01     AE  00E1   264 	MNEGW	#1,ACB_UPRM(R2)		; SET NO OPTIONAL DATA

         0A A2            54     B0  00E5   265 	MOVW	R4,ACB_UPC(R2)		; SAVE AST ADDRESS

         0C A2            01     B0  00E9   266 	MOVW	#<1@ACBV_PERM>+<ACBC_PWRAST@ACBV_TYPE>,ACB_FLAGS(R2); SET UP FLAGS WORD

RSXTRAP         - RSX11M TRAP ASSOCIATED DIRECTIVES              22-AUG-1978 05:13:13   VAX-11 MACRO X0.3-11               Page   8

V06.0           RSX$POWEREN - ENABLE POWER FAIL AST                                                                              (6)



                                     00ED   268 	.SBTTL	RSX$POWEREN - ENABLE POWER FAIL AST

                                     00ED   269 ;++

                                     00ED   270 ; RSX$POWEREN - ENABLE POWERFAIL AST

                                     00ED   271 ;

                                     00ED   272 ; FUNCTIONAL DESCRIPTION:

                                     00ED   273 ;

                                     00ED   274 ; THIS ROUTINE ENABLES POWERFAIL AST'S FOR THE IMAGE.

                                     00ED   275 ;

                                     00ED   276 ; ENTERED IN POST AST PROCESSING.

                                     00ED   277 ;

                                     00ED   278 ; INPUTS:

                                     00ED   279 ;

                                     00ED   280 ;	R10 = ADDRESS OF THE IMAGE IMPURE DATA BASE

                                     00ED   281 ;	R11 = ADDRESS OF THE IMAGE

                                     00ED   282 ;

                                     00ED   283 ; OUTPUTS:

                                     00ED   284 ;

                                     00ED   285 ;	R10,R11 ARE PRESERVED.

                                     00ED   286 ;--

                                     00ED   287 RSX$POWEREN::				; ENABLE POWERFAIL AST'S

            52       01A0 CA     D0  00ED   288 	MOVL	I_PWRAST(R10),R2	; ADDRESS CONTEXT BLOCK

       0170 CA            08     E1  00F2   289 	BBC	#SV_PWRAST,I_STATE(R10),30$; BR IF NO LONGER ENABLED

                          20         00F7       

                                     00F8   290 	$SETPRA_S	W^RSX$POWERAST	; CAUSE POWER AST TO BLOCK

            10            50     E8  0105   291 	BLBS	R0,30$			; IF LOW SET THEN SUCCESS

       0170 CA            08     E5  0108   292 	BBCC	#SV_PWRAST,I_STATE(R10),5$; SET NOT ENABLED

                          00         010D       

                                     010E   293 5$:	$DSWIO	#IE.PRI			; CALL IT PRIVILEGE VIOLATION

                                 05  0118   294 30$:	RSB				; RETURN

RSXTRAP         - RSX11M TRAP ASSOCIATED DIRECTIVES              22-AUG-1978 05:13:13   VAX-11 MACRO X0.3-11               Page   9

V06.0           RSX$SRDA - RSX11M SRDA$ DIRECTIVE                                                                                (7)



                                     0119   296 	.SBTTL	RSX$SRDA - RSX11M SRDA$ DIRECTIVE

                                     0119   297 ;++

                                     0119   298 ; RSX$SRDA - RSX11M SPECIFY RECEIVE AST DIRECTIVE

                                     0119   299 ;

                                     0119   300 ; FUNCTIONAL DESCRIPTION:

                                     0119   301 ;

                                     0119   302 ; THIS IS A RSX DIRECTIVE HANDLER WHICH IMPLEMENTS AN RSX11M

                                     0119   303 ; "SRDA$" DIRECTIVE.

                                     0119   304 ;

                                     0119   305 ; INPUT PARAMETERS:

                                     0119   306 ;

                                     0119   307 ;	R5 = ADDRESS OF DPB+2

                                     0119   308 ;	R6 = CM IMAGE STACK ADDRESS

                                     0119   309 ;	R10 = ADDRESS OF CM IMAGE DATA BASE

                                     0119   310 ;	R11 = ADDRESS OF IMAGE HEADER

                                     0119   311 ;

                                     0119   312 ; OUTPUT PARAMETERS:

                                     0119   313 ;

                                     0119   314 ;	R10,R11 ARE PRESERVED

                                     0119   315 ;

                                     0119   316 ; IMPLICIT OUTPUTS:

                                     0119   317 ;

                                     0119   318 ;	THE PROPER DIRECTIVE STATUS IS PLACED IN THE IMAGE DSW

                                     0119   319 ;	ALONG WITH THE PROPER SETTING OF THE C-BIT.

                                     0119   320 ;

                                     0119   321 ; DSW RETURN CODES:

                                     0119   322 ;

                                     0119   323 ;	IS.SUC	SUCCESSFUL

                                     0119   324 ;	IE.ITS	AST'S ARE ALREADY DISABLED

                                     0119   325 ;--

                                     0119   326 RSX$SRDA::				; SPECIFY RECEIVE AST DIRECTIVE

       0170 CA            03     E0  0119   327 	BBS	#SV_NOAST,I_STATE(R10),10$; BR IF AST'S DISABLED

                          38         011E       

            2B            65     E8  011F   328 	BLBS	(R5),5$			; BR IF ODD ADDRESS

            54            65     3C  0122   329 	MOVZWL	(R5),R4			; GET USER AST ADDRESS

                          3A     12  0125   330 	BNEQ	15$			; IF NEQ THEN ENABLE

       0170 CA            07     E7  0127   331 	BBCCI	#SV_RCVAST,I_STATE(R10),10$; BR IN DISABLED AND DISABLE

                          2A         012C       

                                     012D   332 	$QIOW_S	#5,I_RCVMAIL(R10),#IO$_SETMODE,,,,0

                                 05  014C   333 	RSB

                                     014D   334 5$:	$DSW	#IE.ADP			; ILLEGAL ADDRESS

                                     0157   335 10$:	$DSW	#IE.ITS			; ALREADY DISABLED

                                     0161   336 ;

                                     0161   337 ; ENABLE FUNCTION

                                     0161   338 ;

                                     0161   339 15$:	IFNORD	#2,(R4),5$		; PROBE ADDRESS

                     0160 CA     D5  0167   340 	TSTL	I_RCVMAIL(R10)		; MAILBOX PRESENT?

                          0A     12  016B   341 	BNEQ	20$			; IF NEQ THEN YES

                                     016D   342 	$DSW	#IE.SDP			; SET STATUS AND RETURN

                                     0177   343 ;

                                     0177   344 ; ALREADY ENABLED?

                                     0177   345 ;

       0170 CA            07     E6  0177   346 20$:	BBSSI	#SV_RCVAST,I_STATE(R10),10$; BR IF ENABLED AND ENABLE

                          DA         017C       

                                     017D   347 ;

                                     017D   348 ; ENABLE FUNCTION

                                     017D   349 ;

RSXTRAP         - RSX11M TRAP ASSOCIATED DIRECTIVES              22-AUG-1978 05:13:13   VAX-11 MACRO X0.3-11               Page  10

V06.0           RSX$SRDA - RSX11M SRDA$ DIRECTIVE                                                                                (7)



            52       019C CA     D0  017D   350 	MOVL	I_RCVAST(R10),R2	; GET CURRENT BLOCK IF ANY

                          06     13  0182   351 	BEQL	25$			; IF EQL THEN ALLOCATE NEW BLOCK

                                     0184   352 ;

                                     0184   353 ; IF THE CONTEXT BLOCK EXISTS THEN IT IS POSSIBLE THAT THE AST IS STILL

                                     0184   354 ; IN PROGRESS AND THE ENABLE WILL BE DONE ON AST EXIT.

                                     0184   355 ;

         0C A2            01     E1  0184   356 	BBC	#ACBV_INPROG,ACB_FLAGS(R2),30$; BR IF NOT IN PROGRESS

                          04         0188       

                                 05  0189   357 	RSB				; ELSE RETURN

                                     018A   358 ;

                                     018A   359 ; ALLOCATE A CONTEXT BLOCK FOR RECEIVE DATA AST'S

                                     018A   360 ;

                          FE73'  30  018A   361 25$:	BSBW	RSX$SETUPAST		; SET UP THE AST BLOCK

                                     018D   362 ;

                                     018D   363 ; SET UP THE CONTEXT BLOCK

                                     018D   364 ;

       019C CA            52     D0  018D   365 30$:	MOVL	R2,I_RCVAST(R10)	; SAVE CONTEXT BLOCK ADDRESS

         0A A2            54     B0  0192   366 	MOVW	R4,ACB_UPC(R2)		; SAVE THE ADDRESS OF THE AST SERIVCE

         08 A2            01     AE  0196   367 	MNEGW	#1,ACB_UPRM(R2)		; SET NO DATA ON AST STACK

         0C A2       0101 8F     B0  019A   368 	MOVW	#<1@ACBV_PERM>+<ACBC_RCVAST@ACBV_TYPE>,ACB_FLAGS(R2); SAVE TYPE FOR POST AST 

RSXTRAP         - RSX11M TRAP ASSOCIATED DIRECTIVES              22-AUG-1978 05:13:13   VAX-11 MACRO X0.3-11               Page  11

V06.0           RSX$RCVASTEN - ENABLE RECEIVE DATA AST                                                                           (8)



                                     01A0   370 	.SBTTL	RSX$RCVASTEN - ENABLE RECEIVE DATA AST

                                     01A0   371 ;++

                                     01A0   372 ; RSX$RCVASTEN - ENABLE IMAGE FOR MAILBOX UNSOLICITED AST'S

                                     01A0   373 ;

                                     01A0   374 ; FUNCTIONAL DESCRIPTION:

                                     01A0   375 ;

                                     01A0   376 ; THIS ROUTINE IS ENTERED FOR RECEIVE DATA AST ENABLE OR

                                     01A0   377 ; AS A RESULT OF AN AST EXIT AFTER A RECEIVE AST DELIVERY.

                                     01A0   378 ;

                                     01A0   379 ; INPUTS:

                                     01A0   380 ;

                                     01A0   381 ;	R10 = ADDRESS OF THE IMAGE DATA BASE

                                     01A0   382 ;	R11 = ADDRESS OF THE IMAGE HEADER

                                     01A0   383 ;

                                     01A0   384 ; OUTPUTS:

                                     01A0   385 ;

                                     01A0   386 ;	R10,R11 ARE PRESERVED

                                     01A0   387 ;--

                                     01A0   388 RSX$RCVASTEN::				; ENABLE FOR RECEIVE DATA AST'S

       0170 CA            07     E1  01A0   389 	BBC	#SV_RCVAST,I_STATE(R10),20$; BR IF NO LONGER ENABLED

                          38         01A5       

                                     01A6   390 	$QIOW_S	#6,I_RCVMAIL(R10),#IO$_SETMODE,,,,W^RSX$RCVAST,I_RCVAST(R10)

                          FE34'  30  01C9   391 	BSBW	RSX$RSXQIOERR		; MAP ERROR STATUS

            06            50     E8  01CC   392 	BLBS	R0,10$			; IF LOW SET THEN SUCCESS

       0170 CA            07     E5  01CF   393 	BBCC	#SV_RCVAST,I_STATE(R10),10$; MARK NOT ENABLED

                          00         01D4       

                                     01D5   394 10$:	$DSWIO	R1			; RETURN IT

                                 05  01DE   395 20$:	RSB				; 

RSXTRAP         - RSX11M TRAP ASSOCIATED DIRECTIVES              22-AUG-1978 05:13:13   VAX-11 MACRO X0.3-11               Page  12

V06.0           RSX$SVDB - RSX11M SVDB$ DIRECTIVE                                                                                (9)



                                     01DF   397 	.SBTTL	RSX$SVDB - RSX11M SVDB$ DIRECTIVE

                                     01DF   398 ;++

                                     01DF   399 ; RSX$SVDB - RSX11M SPECIFY DEBUG VECTOR DIRECTIVE

                                     01DF   400 ;

                                     01DF   401 ; FUNCTIONAL DESCRIPTION:

                                     01DF   402 ;

                                     01DF   403 ; THIS IS A RSX DIRECTIVE HANDLER WHICH IMPLEMENTS AN RSX11M

                                     01DF   404 ; "SVDB$" DIRECTIVE.

                                     01DF   405 ;

                                     01DF   406 ; INPUT PARAMETERS:

                                     01DF   407 ;

                                     01DF   408 ;	R5 = ADDRESS OF DPB+2

                                     01DF   409 ;	R6 = CM IMAGE STACK ADDRESS

                                     01DF   410 ;	R10 = ADDRESS OF CM IMAGE DATA BASE

                                     01DF   411 ;	R11 = ADDRESS OF IMAGE HEADER

                                     01DF   412 ;

                                     01DF   413 ; OUTPUT PARAMETERS:

                                     01DF   414 ;

                                     01DF   415 ;	R10,R11 ARE PRESERVED

                                     01DF   416 ;

                                     01DF   417 ; IMPLICIT OUTPUTS:

                                     01DF   418 ;

                                     01DF   419 ;	THE PROPER DIRECTIVE STATUS IS PLACED IN THE IMAGE DSW

                                     01DF   420 ;	ALONG WITH THE PROPER SETTING OF THE C-BIT.

                                     01DF   421 ;

                                     01DF   422 ; DSW RETURN CODES:

                                     01DF   423 ;

                                     01DF   424 ;	IS.SUC	SUCCESSFUL

                                     01DF   425 ;--

                                     01DF   426 RSX$SVDB::				; SPECIFY DEBUG VECTOR DIRECTIVE

            54            85     3C  01DF   427 	MOVZWL	(R5)+,R4		; GET ADDRESS

            22            54     E8  01E2   428 	BLBS	R4,10$			; BR IF ODD

            53            65     3C  01E5   429 	MOVZWL	(R5),R3			; GET SIZE IN WORDS

                          0A     13  01E8   430 	BEQL	5$			; IF EQL THEN DISABLE

            53            09     B1  01EA   431 	CMPW	#9,R3			; IN RANGE

                          18     1F  01ED   432 	BLSSU	10$			; IF LSSU THEN NO

                          65     B5  01EF   433 	TSTW	(R5)			; PROBE BY EXCEPTION

                          6543   B5  01F1   434 	TSTW	(R5)[R3]		;

         12 AB            54     B0  01F4   435 5$:	MOVW	R4,H.ODVA(R11)		; SAVE PARAMS

       0190 CA            54     B0  01F8   436 	MOVW	R4,I_DEBVEC(R10)	;

         14 AB            53     B0  01FD   437 	MOVW	R3,H.ODVL(R11)

       0192 CA            53     B0  0201   438 	MOVW	R3,I_DEBVECL(R10)	;

                                 05  0206   439 	RSB				;

                                     0207   440 10$:	$DSW	#IE.ADP			;

RSXTRAP         - RSX11M TRAP ASSOCIATED DIRECTIVES              22-AUG-1978 05:13:13   VAX-11 MACRO X0.3-11               Page  13

V06.0           RSX$SVTK - RSX11M SVTK$ DIRECTIVE                                                                               (10)



                                     0211   442 	.SBTTL	RSX$SVTK - RSX11M SVTK$ DIRECTIVE

                                     0211   443 ;++

                                     0211   444 ; RSX$SVTK - RSX11M SPECIFY TASK VECTOR DIRECTIVE

                                     0211   445 ;

                                     0211   446 ; FUNCTIONAL DESCRIPTION:

                                     0211   447 ;

                                     0211   448 ; THIS IS A RSX DIRECTIVE HANDLER WHICH IMPLEMENTS AN RSX11M

                                     0211   449 ; "SVTK$" DIRECTIVE.

                                     0211   450 ;

                                     0211   451 ; INPUT PARAMETERS:

                                     0211   452 ;

                                     0211   453 ;	R5 = ADDRESS OF DPB+2

                                     0211   454 ;	R6 = CM IMAGE STACK ADDRESS

                                     0211   455 ;	R10 = ADDRESS OF CM IMAGE DATA BASE

                                     0211   456 ;	R11 = ADDRESS OF IMAGE HEADER

                                     0211   457 ;

                                     0211   458 ; OUTPUT PARAMETERS:

                                     0211   459 ;

                                     0211   460 ;	R10,R11 ARE PRESERVED

                                     0211   461 ;

                                     0211   462 ; IMPLICIT OUTPUTS:

                                     0211   463 ;

                                     0211   464 ;	THE PROPER DIRECTIVE STATUS IS PLACED IN THE IMAGE DSW

                                     0211   465 ;	ALONG WITH THE PROPER SETTING OF THE C-BIT.

                                     0211   466 ;

                                     0211   467 ; DSW RETURN CODES:

                                     0211   468 ;

                                     0211   469 ;	IS.SUC	SUCCESSFUL

                                     0211   470 ;--

                                     0211   471 RSX$SVTK::				; SPECIFY TASK VECTOR DIRECTIVE

            54            85     3C  0211   472 	MOVZWL	(R5)+,R4		; GET ADDRESS

            22            54     E8  0214   473 	BLBS	R4,10$			; BR IF ODD

            53            65     3C  0217   474 	MOVZWL	(R5),R3			; GET SIZE IN WORDS

                          0A     13  021A   475 	BEQL	5$			; IF EQL THEN DISABLE

            53            09     B1  021C   476 	CMPW	#9,R3			; IN RANGE

                          18     1F  021F   477 	BLSSU	10$			; IF LSSU THEN NO

                          65     B5  0221   478 	TSTW	(R5)			; PROBE BY EXCEPTION

                          6543   B5  0223   479 	TSTW	(R5)[R3]		;

         16 AB            54     B0  0226   480 5$:	MOVW	R4,H.TKVA(R11)		; SAVE PARAMS

       0194 CA            54     B0  022A   481 	MOVW	R4,I_SSTVEC(R10)	;

         18 AB            53     B0  022F   482 	MOVW	R3,H.TKVL(R11)

       0196 CA            53     B0  0233   483 	MOVW	R3,I_SSTVECL(R10)

                                 05  0238   484 	RSB				;

                                     0239   485 10$:	$DSW	#IE.ADP			; ADDRESS CHECK

                                     0243   486 ;

                                     0243   487 	.END

RSXTRAP         - RSX11M TRAP ASSOCIATED DIRECTIVES              22-AUG-1978 05:13:13   VAX-11 MACRO X0.3-11               Page  14

SYMBOL TABLE                                                                                                                    (10)



$$MSG          = 00000000            H.LUN            0000003E            IE.HFU         = FFFFFFE4            

$$T1           = 00000001            H.NLUN           0000003C            IE.HWR         = FFFFFFFA            

...GBL         = 00000000            H.NML            00000031            IE.IBS         = FFFFFFA7            

ACBC_CTLRCAST  = 00000002            H.ODVA           00000012            IE.IDU         = FFFFFFA4            

ACBC_FLOATAST  = 00000003            H.ODVL           00000014            IE.IEF         = FFFFFF9F            

ACBC_PWRAST    = 00000000            H.OVLY           0000002C            IE.IES         = FFFFFFAE            

ACBC_RCVAST    = 00000001            H.PFVA           0000001A            IE.IFC         = FFFFFFFE            

ACBV_INPROG    = 00000001            H.RCVA           0000001E            IE.IFU         = FFFFFFE7            

ACBV_PERM      = 00000000            H.RRVA           00000032            IE.ILL         = FFFFFFD6            

ACBV_TYPE      = 00000008            H.SPRI           00000030            IE.ILU         = FFFFFFA0            

ACB_FLAGS        0000000C            H.TKVA           00000016            IE.ILV         = FFFFFFED            

ACB_LINK         00000000            H.TKVL           00000018            IE.INS         = FFFFFFFE            

ACB_UPC          0000000A            H.VEXT           0000002E            IE.IOP         = FFFFFFAD            

ACB_UPRM         00000008            H.WND            00000024            IE.IPR         = FFFFFFA1            

ADR_HIGHLIM      00000004            IE.2DV         = FFFFFFD0            IE.ISQ         = FFFFFFC3            

ADR_LOWLIM       00000000            IE.ABO         = FFFFFFF1            IE.ITI         = FFFFFFA3            

ADR_SIZE         00000008            IE.ACT         = FFFFFFF9            IE.ITP         = FFFFFFA8            

AP_NAME          00000004            IE.ADP         = FFFFFF9E            IE.ITS         = FFFFFFF8            

AST_PARAM        00000004            IE.ALC         = FFFFFFAC            IE.IUI         = FFFFFFA5            

AST_PC           00000010            IE.ALG         = FFFFFFAC            IE.LCK         = FFFFFFE5            

AST_PSL          00000014            IE.ALN         = FFFFFFDE            IE.LNL         = FFFFFFA6            

AST_R0           00000008            IE.AST         = FFFFFFB0            IE.MAP         = FFFFFFAF            

AST_R1           0000000C            IE.BAD         = FFFFFFFF            IE.MOD         = FFFFFFEB            

BIT...         = 0006809C            IE.BBE         = FFFFFFC8            IE.NBF         = FFFFFFD9            

C_CANONPS      = 83C00000            IE.BCC         = FFFFFFBE            IE.NBK         = FFFFFFD7            

C_RCVDSTR      = 44564352            IE.BDI         = FFFFFFCC            IE.NDR         = FFFFFFB8            

FCB_ATTRIBS      0000007C            IE.BDR         = FFFFFFCE            IE.NFI         = FFFFFFC4            

FCB_FIB          0000004C            IE.BDV         = FFFFFFC9            IE.NFW         = FFFFFFBB            

FCB_FID          00000000            IE.BHD         = FFFFFFC0            IE.NLK         = FFFFFFB1            

FCB_FNAME        00000014            IE.BLB         = FFFFFFBA            IE.NLN         = FFFFFFDB            

FCB_FNAMEDESC    0000000C            IE.BLK         = FFFFFFEC            IE.NNC         = FFFFFFB3            

FCB_FNB          00000002            IE.BNM         = FFFFFFCA            IE.NNL         = FFFFFFB2            

FCB_PC           00000078            IE.BTF         = FFFFFFB4            IE.NNN         = FFFFFFBC            

FCB_RESULT       00000030            IE.BTP         = FFFFFFD5            IE.NOD         = FFFFFFE9            

FCB_RESULTDESC   00000004            IE.BVR         = FFFFFFC1            IE.NSF         = FFFFFFE6            

FCB_SIZE         000000B4            IE.BYT         = FFFFFFED            IE.NST         = FFFFFFB0            

FP_AP            00000008            IE.CKP         = FFFFFFF6            IE.NSW         = FFFFFFEE            

FP_FP            0000000C            IE.CKS         = FFFFFFE2            IE.NVR         = FFFFFFAA            

FP_PC            00000010            IE.CLO         = FFFFFFDA            IE.NVW         = FFFFFFA9            

FP_PSL           00000004            IE.CNR         = FFFFFFB7            IE.OFL         = FFFFFFBF            

FP_REGISTERS     00000014            IE.CON         = FFFFFFEA            IE.ONP         = FFFFFFFB            

GBL...         = 00000000            IE.DAA         = FFFFFFF8            IE.OVR         = FFFFFFEE            

H.CSP            00000000            IE.DAO         = FFFFFFF3            IE.PES         = FFFFFFAD            

H.CUIC           00000008            IE.DFU         = FFFFFFE8            IE.PNS         = FFFFFFA2            

H.DSW            00000026            IE.DNA         = FFFFFFF9            IE.PRI         = FFFFFFF0            

H.DUIC           0000000A            IE.DNR         = FFFFFFFD            IE.PTS         = FFFFFFFD            

H.EFLM           00000004            IE.DUN         = FFFFFFF7            IE.RAC         = FFFFFFD4            

H.EFSV           00000020            IE.DUP         = FFFFFFC7            IE.RAT         = FFFFFFD3            

H.FCS            00000028            IE.EOF         = FFFFFFF6            IE.RBG         = FFFFFFD8            

H.FORT           0000002A            IE.EOT         = FFFFFFC2            IE.RBS         = FFFFFFF1            

H.FPSA           00000022            IE.EOV         = FFFFFFF5            IE.RCN         = FFFFFFD2            

H.FPVA           0000001C            IE.EXP         = FFFFFFB5            IE.RER         = FFFFFFE0            

H.GARD           0000003A            IE.FEX         = FFFFFFCF            IE.RNM         = FFFFFFCD            

H.HDLN           00000002            IE.FHE         = FFFFFFC5            IE.RSU         = FFFFFFEF            

H.IPC            0000000E            IE.FIX         = FFFFFFF7            IE.SDP         = FFFFFF9D            

H.IPS            0000000C            IE.FLN         = FFFFFFAF            IE.SNC         = FFFFFFDD            

H.ISP            00000010            IE.FOP         = FFFFFFCB            IE.SPC         = FFFFFFFA            

RSXTRAP         - RSX11M TRAP ASSOCIATED DIRECTIVES              22-AUG-1978 05:13:13   VAX-11 MACRO X0.3-11               Page  15

SYMBOL TABLE                                                                                                                    (10)



IE.SQC         = FFFFFFDC            I_HIGHSIZE       000000F4            QIOV_FILES     = 00000000            

IE.SRE         = FFFFFFF2            I_IMAGEVBN       000000F8            QIO_FLAGS        0000001A            

IE.STK         = FFFFFFC6            I_INISIZE        000000F0            QIO_IOSB         0000000E            

IE.TCH         = FFFFFFF5            I_LENGTH         000001F0            QIO_LUT          00000016            

IE.TMM         = FFFFFFB9            I_LOGNAME        000000E0            QIO_SECONDBLK    0000001C            

IE.TMO         = FFFFFFB6            I_LUT            00000168            QIO_SIZE         00000020            

IE.ULK         = FFFFFFAB            I_NLUN           00000164            RSX$C_SUBSYSTEM= 00000006            

IE.ULN         = FFFFFFFB            I_PC             00000020            RSX$DSAR         00000000 RG    05   

IE.UNS         = FFFFFFFC            I_PPFINDEX       00000162            RSX$ENAR         00000017 RG    05   

IE.UPN         = FFFFFFFF            I_PROCNAME       0000014C            RSX$POWERAST     ********   X   05   

IE.VER         = FFFFFFFC            I_PS             00000024            RSX$POWEREN      000000ED RG    05   

IE.WAC         = FFFFFFE3            I_PWRAST         000001A0            RSX$RCVAST       ********   X   05   

IE.WAT         = FFFFFFE1            I_R0             00000000            RSX$RCVASTEN     000001A0 RG    05   

IE.WCK         = FFFFFFAA            I_R1             00000004            RSX$RSXQIOERR    ********   X   05   

IE.WER         = FFFFFFDF            I_R2             00000008            RSX$SETUPAST     ********   X   05   

IE.WLK         = FFFFFFF4            I_R3             0000000C            RSX$SFPA         00000033 RG    05   

IE.WOV         = FFFFFFAB            I_R4             00000010            RSX$SPRA         0000008C RG    05   

IO$_SETMODE      ********   X   05   I_R5             00000014            RSX$SRDA         00000119 RG    05   

IS.BV          = 00000005            I_R6             00000018            RSX$SVDB         000001DF RG    05   

IS.CC          = 00000301            I_RAD50NAME      00000148            RSX$SVTK         00000211 RG    05   

IS.CLR         = 00000000            I_RCVAST         0000019C            RSX$_ACCVIO    = 00068044            

IS.CR          = 00000D01            I_RCVMAIL        00000160            RSX$_BADLIBREF = 0006806C            

IS.EOT         = 00000401            I_RUNFLAGS       0000018C            RSX$_BADSTACK  = 0006804C            

IS.ESC         = 00001B01            I_SCRATCH        00000028            RSX$_BREAK     = 0006800C            

IS.ESQ         = 00009B01            I_SSTVEC         00000194            RSX$_EXITSTATUS= 00068640            

IS.PES         = 00008001            I_SSTVECL        00000196            RSX$_EXTERNABRT= 0006805C            

IS.PND         = 00000000            I_STATE          00000170            RSX$_ILLINST   = 0006802C            

IS.RDD         = 00000002            I_TYPE           0000001C            RSX$_IMAGETERM = 00068084            

IS.SET         = 00000002            I_UIC            0000013C            RSX$_INSFDYNMEM= 00068054            

IS.SPD         = 00000002            I_WAIT           00000178            RSX$_IOT       = 00068014            

IS.SUC         = 00000001            I_WAITSAVE       00000180            RSX$_LIBNOTFND = 00068074            

IS.TAB         = 00000901            LUTC_CR        = 00000005            RSX$_LOADERROR = 0006807C            

IS.TMO         = 00000002            LUTC_DISK      = 00000002            RSX$_NOCOMM    = 00068094            

I_ADR0           000000FC            LUTC_LP        = 00000004            RSX$_NONRSXEMT = 0006801C            

I_ASCIINAME      00000140            LUTC_RMS       = 00000000            RSX$_NOPMD     = 00068332            

I_ASTPOOL        000000D0            LUTC_TAPE      = 00000003            RSX$_NOSUCHDEV = 00068322            

I_ASTQUEUE       000000C8            LUTC_TRM       = 00000001            RSX$_NOTSKIMG  = 00068064            

I_BAILOUTFP      00000188            LUTV_CTRLC     = 00000002            RSX$_ODDADDR   = 00068034            

I_CMDROUT        000000E8            LUTV_CTRLO     = 00000000            RSX$_PMD       = 0006832A            

I_CURAST         00000198            LUTV_PRM       = 00000003            RSX$_RCVMBXSIZ = 0000012C            

I_DEBVEC         00000190            LUT_CHAN         0000000C            RSX$_REGMSG    = 0006808C            

I_DEBVECL        00000192            LUT_CHAR         00000012            RSX$_RESERVED  = 00068004            

I_FCBPOOL        000000D8            LUT_CTRLC        00000032            RSX$_TBIT      = 0006803C            

I_FCC            000001B4            LUT_FLAGS        0000000A            RSX$_TRAP      = 00068024            

I_FLOATA0        000001C0            LUT_INFONAME     0000002E            RSX$_VERIFYCMD = 00068648            

I_FLOATA1        000001C8            LUT_INFOUNIT     00000030            SV_ASTLVL        00000004            

I_FLOATA2        000001D0            LUT_LINK         00000000            SV_DCL           00000002            

I_FLOATA3        000001D8            LUT_REALNAME     0000001E            SV_FLOATAST      00000009            

I_FLOATA4        000001E0            LUT_REF          00000008            SV_NOAST         00000003            

I_FLOATA5        000001E8            LUT_RSXNAME      00000010            SV_PENDWAIT      00000005            

I_FLOATADR       000001B0            LUT_SIZE         00000036            SV_PWRAST        00000008            

I_FLOATAST       000001A4            LUT_TYPE         00000016            SV_RCVAST        00000007            

I_FLOATCSR       000001A8            PSL_CC         = 00000000            SV_RESTORE       00000000            

I_FLOATERR       000001AC            PSL_CM         = 0000001F            SV_TRANSLATE     00000001            

I_FLOATTMP       000001B8            PSL_FPD        = 0000001B            SV_WAIT          00000006            

I_GARD           000000EC            PSL_FU         = 00000006            SYS$QIOW         ********   X   05   

I_HIGHEFN        0000016C            PSL_TBIT       = 00000004            SYS$SETPRA       ********   X   05   

RSXTRAP         - RSX11M TRAP ASSOCIATED DIRECTIVES              22-AUG-1978 05:13:13   VAX-11 MACRO X0.3-11               Page  16

SYMBOL TABLE                                                                                                                    (10)



W.BATT           00000006            

W.BFPD           0000000C            

W.BHVR           00000004            

W.BLGH           00000010            

W.BLPD           0000000E            

W.BLVR           00000002            

W.BNPD           0000000D            

W.BOFF           0000000A            

W.BPCB           00000000            

W.BSIZ           00000008            





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

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

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

RSXCODE          00000243      05       PIC   USR   CON   REL   LCL   SHR   EXE   RD  NOWRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

16024. BYTES LEFT IN FREE MEMORY POOL.

276. BYTES OF RECLAIMED MEMORY.

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

28 MLB DIR RDS - 527 GETS TO DEFINE 23 MACROS. 17 INTER. FILE WRITES. 

