MTH$BITOPS      ROUTINES FOR BIT OPERATIONS                      21-AUG-1978 19:02:10   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (2)      91  HISTORY		; Detailed Current Edit History

   (3)      97  DECLARATIONS

   (4)     128  MTH$IIAND

   (5)     166  MTH$JIAND

   (6)     205  MTH$IIOR

   (7)     243  MTH$JIOR

   (8)     281  MTH$IIEOR

   (9)     319  MTH$JIEOR

   (10)    357  MTH$INOT

   (11)    395  MTH$JNOT

   (12)    433  MTH$IISHFT

   (13)    472  MTH$JISHFT

MTH$BITOPS      ROUTINES FOR BIT OPERATIONS                      21-AUG-1978 19:02:10   VAX-11 MACRO X0.3-11               Page   1

0-2                                                                                                                              (1)



                                     0000     1 	.TITLE	MTH$BITOPS	ROUTINES FOR BIT OPERATIONS

                                     0000     2 	.IDENT	/0-2/		; File: MTHBITOPS.MAR

                                     0000     3 

                                     0000     4 ;

                                     0000     5 ; Copyright (C) 1977

                                     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 agree 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 the 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: MATH LIBRARY

                                     0000    25 ;++

                                     0000    26 ; ABSTRACT:

                                     0000    27 ;	This module contains routines for operations on individual

                                     0000    28 ;	bits of arguments.

                                     0000    29 ;

                                     0000    30 ;

                                     0000    31 ;--

                                     0000    32 ;

                                     0000    33 ; VERSION: 0

                                     0000    34 ;

                                     0000    35 ; HISTORY:

                                     0000    36 ;

                                     0000    37 ; AUTHOR:

                                     0000    38 ;	Jonathan M. Taylor, 14-JUL-77: Version 0

                                     0000    39 ;

                                     0000    40 ; MODIFIED BY:

                                     0000    41 ;

                                     0000    42 ;

                                     0000    43 ;

MTH$BITOPS      ROUTINES FOR BIT OPERATIONS                      21-AUG-1978 19:02:10   VAX-11 MACRO X0.3-11               Page   2

0-2             HISTORY  ; Detailed Current Edit History                                                                         (2)



                                     0000    45 	.SBTTL	HISTORY		; Detailed Current Edit History

                                     0000    46 

                                     0000    47 

                                     0000    48 ; Edit History for Version 0 of MTH$BITOPS

                                     0000    49 ;

MTH$BITOPS      ROUTINES FOR BIT OPERATIONS                      21-AUG-1978 19:02:10   VAX-11 MACRO X0.3-11               Page   3

0-2             DECLARATIONS                                                                                                     (3)



                                     0000    51 	.SBTTL	DECLARATIONS

                                     0000    52 

                                     0000    53 ;

                                     0000    54 ; INCLUDE FILES:

                                     0000    55 ;	oerr.mar

                                     0000    56 ;

                                     0000    57 

                                     0000    58 ;

                                     0000    59 ; EXTERNAL SYMBOLS:

                                     0000    60 ;	NONE

                                     0000    61 ;

                                     0000    62 

                                     0000    63 ;

                                     0000    64 ; MACROS:

                                     0000    65 ;	NONE

                                     0000    66 ;

                                     0000    67 

                                     0000    68 ;

                                     0000    69 ; PSECT DECLARATIONS:

                                 00000000    70 	.PSECT	MTH$CODE	PIC, SHR, LONG, EXE, NOWRT

                                     0000    71 

                                     0000    72 ;

                                     0000    73 ; EQUATED SYMBOLS:

                                     0000    74 ;	NONE

                                     0000    75 ;

                                     0000    76 

                                     0000    77 ;

                                     0000    78 ; OWN STORAGE:

                                     0000    79 ;	NONE

                                     0000    80 ;

MTH$BITOPS      ROUTINES FOR BIT OPERATIONS                      21-AUG-1978 19:02:10   VAX-11 MACRO X0.3-11               Page   4

0-2             MTH$IIAND                                                                                                        (4)



                                     0000    82 	.SBTTL	MTH$IIAND

                                     0000    83 

                                     0000    84 ;++

                                     0000    85 ; FUNCTIONAL DESCRIPTION:

                                     0000    86 ;	Return the bitwise AND of two one-word arguments.

                                     0000    87 ;

                                     0000    88 ;

                                     0000    89 ; CALLING SEQUENCE:

                                     0000    90 ;	Bitwise_AND.ww.v = MTH$IIAND (arg1.rw.r, arg2.rw.r)

                                     0000    91 ;	

                                     0000    92 ;

                                     0000    93 ;

                                     0000    94 ; INPUT PARAMETERS:

                                     0000    95 ;	Both arguments are one-word values and are call-by-reference.

                                     0000    96 ;	

                                     0000    97 ;

                                     0000    98 ; IMPLICIT INPUTS:

                                     0000    99 ;	NONE

                                     0000   100 ;

                                     0000   101 ; OUTPUT PARAMETERS:

                                     0000   102 ;	NONE

                                     0000   103 ;

                                     0000   104 ; IMPLICIT OUTPUTS:

                                     0000   105 ;	NONE

                                     0000   106 ;

                                     0000   107 ; COMPLETION CODES:

                                     0000   108 ;	NONE

                                     0000   109 ;

                                     0000   110 ; SIDE EFFECTS:

                                     0000   111 ;	NONE

                                     0000   112 ;

                                     0000   113 ;--

                                     0000   114 

                               0000' 0000   115 	.ENTRY	MTH$IIAND,	^M<>

            50         04 BC     B2  0002   116 	MCOMW	@4(AP), R0	; R0 = complemented first arg

            50         08 BC     AA  0006   117 	BICW	@8(AP), R0	; R0 = ANDed args

                                 04  000A   118 	RET

MTH$BITOPS      ROUTINES FOR BIT OPERATIONS                      21-AUG-1978 19:02:10   VAX-11 MACRO X0.3-11               Page   5

0-2             MTH$JIAND                                                                                                        (5)



                                     000B   120 	.SBTTL	MTH$JIAND

                                     000B   121 

                                     000B   122 ;++

                                     000B   123 ; FUNCTIONAL DESCRIPTION:

                                     000B   124 ;	Return the bitwise AND of two longword arguments.

                                     000B   125 ;

                                     000B   126 ;

                                     000B   127 ; CALLING SEQUENCE:

                                     000B   128 ;	Bitwise_AND.wl.v = MTH$JIAND (arg1.rl.r, arg2.rl.r)

                                     000B   129 ;	

                                     000B   130 ;

                                     000B   131 ;

                                     000B   132 ; INPUT PARAMETERS:

                                     000B   133 ;	The two parameters are longword values and are call-by-reference.

                                     000B   134 ;	

                                     000B   135 ;

                                     000B   136 ; IMPLICIT INPUTS:

                                     000B   137 ;	NONE

                                     000B   138 ;

                                     000B   139 ; OUTPUT PARAMETERS:

                                     000B   140 ;	NONE

                                     000B   141 ;

                                     000B   142 ; IMPLICIT OUTPUTS:

                                     000B   143 ;	NONE

                                     000B   144 ;

                                     000B   145 ; COMPLETION CODES:

                                     000B   146 ;	NONE

                                     000B   147 ;

                                     000B   148 ; SIDE EFFECTS:

                                     000B   149 ;	NONE

                                     000B   150 ;

                                     000B   151 ;--

                                     000B   152 

                                     000B   153 

                               0000' 000B   154 	.ENTRY	MTH$JIAND,	^M<>

            50         04 BC     D2  000D   155 	MCOML	@4(AP), R0	; R0 = complemented first arg

            50         08 BC     CA  0011   156 	BICL	@8(AP), R0	; R0 = ANDed args

                                 04  0015   157 	RET

MTH$BITOPS      ROUTINES FOR BIT OPERATIONS                      21-AUG-1978 19:02:10   VAX-11 MACRO X0.3-11               Page   6

0-2             MTH$IIOR                                                                                                         (6)



                                     0016   159 	.SBTTL	MTH$IIOR

                                     0016   160 

                                     0016   161 ;++

                                     0016   162 ; FUNCTIONAL DESCRIPTION:

                                     0016   163 ;	Return the bitwise inclusive OR of two one-word arguments.

                                     0016   164 ;

                                     0016   165 ;

                                     0016   166 ; CALLING SEQUENCE:

                                     0016   167 ;	Bitwise_inclusive_OR.ww.v = MTH$IIOR (arg1.rw.r, arg2.rw.r)

                                     0016   168 ;	

                                     0016   169 ;

                                     0016   170 ;

                                     0016   171 ; INPUT PARAMETERS:

                                     0016   172 ;	The two parameters are one-word values and are call-by-reference.

                                     0016   173 ;	

                                     0016   174 ;

                                     0016   175 ; IMPLICIT INPUTS:

                                     0016   176 ;	NONE

                                     0016   177 ;

                                     0016   178 ; OUTPUT PARAMETERS:

                                     0016   179 ;	NONE

                                     0016   180 ;

                                     0016   181 ; IMPLICIT OUTPUTS:

                                     0016   182 ;	NONE

                                     0016   183 ;

                                     0016   184 ; COMPLETION CODES:

                                     0016   185 ;	NONE

                                     0016   186 ;

                                     0016   187 ; SIDE EFFECTS:

                                     0016   188 ;	NONE

                                     0016   189 ;

                                     0016   190 ;--

                                     0016   191 

                                     0016   192 

                               0000' 0016   193 	.ENTRY	MTH$IIOR,	^M<>

         08 BC         04 BC     A9  0018   194 	BISW3	@4(AP), @8(AP), R0 ; R0 = ORed args

                          50         001D       

                                 04  001E   195 	RET

MTH$BITOPS      ROUTINES FOR BIT OPERATIONS                      21-AUG-1978 19:02:10   VAX-11 MACRO X0.3-11               Page   7

0-2             MTH$JIOR                                                                                                         (7)



                                     001F   197 	.SBTTL	MTH$JIOR

                                     001F   198 

                                     001F   199 ;++

                                     001F   200 ; FUNCTIONAL DESCRIPTION:

                                     001F   201 ;	Return the bitwise inclusive OR of two longword arguments.

                                     001F   202 ;

                                     001F   203 ;

                                     001F   204 ; CALLING SEQUENCE:

                                     001F   205 ;	Bitwise_inclusive_OR.wl.v = MTH$JIOR (arg1.rl.r, arg2.rl.r)

                                     001F   206 ;	

                                     001F   207 ;

                                     001F   208 ;

                                     001F   209 ; INPUT PARAMETERS:

                                     001F   210 ;	The two parameters are longword values and are call-by-reference.

                                     001F   211 ;	

                                     001F   212 ;

                                     001F   213 ; IMPLICIT INPUTS:

                                     001F   214 ;	NONE

                                     001F   215 ;

                                     001F   216 ; OUTPUT PARAMETERS:

                                     001F   217 ;	NONE

                                     001F   218 ;

                                     001F   219 ; IMPLICIT OUTPUTS:

                                     001F   220 ;	NONE

                                     001F   221 ;

                                     001F   222 ; COMPLETION CODES:

                                     001F   223 ;	NONE

                                     001F   224 ;

                                     001F   225 ; SIDE EFFECTS:

                                     001F   226 ;	NONE

                                     001F   227 ;

                                     001F   228 ;--

                                     001F   229 

                                     001F   230 

                               0000' 001F   231 	.ENTRY	MTH$JIOR,	^M<>

         08 BC         04 BC     C9  0021   232 	BISL3	@4(AP), @8(AP), R0 ; R0 = ORed args

                          50         0026       

                                 04  0027   233 	RET

MTH$BITOPS      ROUTINES FOR BIT OPERATIONS                      21-AUG-1978 19:02:10   VAX-11 MACRO X0.3-11               Page   8

0-2             MTH$IIEOR                                                                                                        (8)



                                     0028   235 	.SBTTL	MTH$IIEOR

                                     0028   236 

                                     0028   237 ;++

                                     0028   238 ; FUNCTIONAL DESCRIPTION:

                                     0028   239 ;	Return the bitwise XOR of two one-word arguments.

                                     0028   240 ;

                                     0028   241 ;

                                     0028   242 ; CALLING SEQUENCE:

                                     0028   243 ;	Bitwise_exclusive_OR.ww.v = MTH$IIEOR (arg1.rw.r, arg2.rw.r)

                                     0028   244 ;	

                                     0028   245 ;

                                     0028   246 ;

                                     0028   247 ; INPUT PARAMETERS:

                                     0028   248 ;	The two parameters are one-word values and are call-by-reference.

                                     0028   249 ;	

                                     0028   250 ;

                                     0028   251 ; IMPLICIT INPUTS:

                                     0028   252 ;	NONE

                                     0028   253 ;

                                     0028   254 ; OUTPUT PARAMETERS:

                                     0028   255 ;	NONE

                                     0028   256 ;

                                     0028   257 ; IMPLICIT OUTPUTS:

                                     0028   258 ;	NONE

                                     0028   259 ;

                                     0028   260 ; COMPLETION CODES:

                                     0028   261 ;	NONE

                                     0028   262 ;

                                     0028   263 ; SIDE EFFECTS:

                                     0028   264 ;	NONE

                                     0028   265 ;

                                     0028   266 ;--

                                     0028   267 

                                     0028   268 

                               0000' 0028   269 	.ENTRY	MTH$IIEOR,	^M<>

         08 BC         04 BC     AD  002A   270 	XORW3	@4(AP), @8(AP), R0 ; R0 = XORed args

                          50         002F       

                                 04  0030   271 	RET

MTH$BITOPS      ROUTINES FOR BIT OPERATIONS                      21-AUG-1978 19:02:10   VAX-11 MACRO X0.3-11               Page   9

0-2             MTH$JIEOR                                                                                                        (9)



                                     0031   273 	.SBTTL	MTH$JIEOR

                                     0031   274 

                                     0031   275 ;++

                                     0031   276 ; FUNCTIONAL DESCRIPTION:

                                     0031   277 ;	Return the bitwise XOR of two longword arguments.

                                     0031   278 ;

                                     0031   279 ;

                                     0031   280 ; CALLING SEQUENCE:

                                     0031   281 ;	Bitwise_exclusive_or.wl.v = MTH$JIEOR (arg1.rl.r, arg2.rl.r)

                                     0031   282 ;	

                                     0031   283 ;

                                     0031   284 ;

                                     0031   285 ; INPUT PARAMETERS:

                                     0031   286 ;	The two arguments are longword values and are call-by-reference.

                                     0031   287 ;	

                                     0031   288 ;

                                     0031   289 ; IMPLICIT INPUTS:

                                     0031   290 ;	NONE

                                     0031   291 ;

                                     0031   292 ; OUTPUT PARAMETERS:

                                     0031   293 ;	NONE

                                     0031   294 ;

                                     0031   295 ; IMPLICIT OUTPUTS:

                                     0031   296 ;	NONE

                                     0031   297 ;

                                     0031   298 ; COMPLETION CODES:

                                     0031   299 ;	NONE

                                     0031   300 ;

                                     0031   301 ; SIDE EFFECTS:

                                     0031   302 ;	NONE

                                     0031   303 ;

                                     0031   304 ;--

                                     0031   305 

                                     0031   306 

                               0000' 0031   307 	.ENTRY	MTH$JIEOR,	^M<>

         08 BC         04 BC     CD  0033   308 	XORL3	@4(AP), @8(AP), R0 ; R0 = XORed args

                          50         0038       

                                 04  0039   309 	RET

MTH$BITOPS      ROUTINES FOR BIT OPERATIONS                      21-AUG-1978 19:02:10   VAX-11 MACRO X0.3-11               Page  10

0-2             MTH$INOT                                                                                                        (10)



                                     003A   311 	.SBTTL	MTH$INOT

                                     003A   312 

                                     003A   313 ;++

                                     003A   314 ; FUNCTIONAL DESCRIPTION:

                                     003A   315 ;	Return the bitwise NOT of a one-word argument.

                                     003A   316 ;

                                     003A   317 ;

                                     003A   318 ; CALLING SEQUENCE:

                                     003A   319 ;	Bitwise_complement.ww.v = MTH$INOT (arg.rw.r)

                                     003A   320 ;	

                                     003A   321 ;

                                     003A   322 ;

                                     003A   323 ; INPUT PARAMETERS:

                                     003A   324 ;	The one parameter is a one-word value and is call-by-reference.

                                     003A   325 ;	

                                     003A   326 ;

                                     003A   327 ; IMPLICIT INPUTS:

                                     003A   328 ;	NONE

                                     003A   329 ;

                                     003A   330 ; OUTPUT PARAMETERS:

                                     003A   331 ;	NONE

                                     003A   332 ;

                                     003A   333 ; IMPLICIT OUTPUTS:

                                     003A   334 ;	NONE

                                     003A   335 ;

                                     003A   336 ; COMPLETION CODES:

                                     003A   337 ;	NONE

                                     003A   338 ;

                                     003A   339 ; SIDE EFFECTS:

                                     003A   340 ;	NONE

                                     003A   341 ;

                                     003A   342 ;--

                                     003A   343 

                                     003A   344 

                               0000' 003A   345 	.ENTRY	MTH$INOT,	^M<>

            50         04 BC     B2  003C   346 	MCOMW	@4(AP), R0	; R0 = complemented arg

                                 04  0040   347 	RET

MTH$BITOPS      ROUTINES FOR BIT OPERATIONS                      21-AUG-1978 19:02:10   VAX-11 MACRO X0.3-11               Page  11

0-2             MTH$JNOT                                                                                                        (11)



                                     0041   349 	.SBTTL	MTH$JNOT

                                     0041   350 

                                     0041   351 ;++

                                     0041   352 ; FUNCTIONAL DESCRIPTION:

                                     0041   353 ;	Return the bitwise NOT of a longword argument.

                                     0041   354 ;

                                     0041   355 ;

                                     0041   356 ; CALLING SEQUENCE:

                                     0041   357 ;	Bitwise_complement.wl.v=MTH$JNOT (arg.rl.r)

                                     0041   358 ;	

                                     0041   359 ;

                                     0041   360 ;

                                     0041   361 ; INPUT PARAMETERS:

                                     0041   362 ;	The one parameter is a longword value and is call-by-reference.

                                     0041   363 ;	

                                     0041   364 ;

                                     0041   365 ; IMPLICIT INPUTS:

                                     0041   366 ;	NONE

                                     0041   367 ;

                                     0041   368 ; OUTPUT PARAMETERS:

                                     0041   369 ;	NONE

                                     0041   370 ;

                                     0041   371 ; IMPLICIT OUTPUTS:

                                     0041   372 ;	NONE

                                     0041   373 ;

                                     0041   374 ; COMPLETION CODES:

                                     0041   375 ;	NONE

                                     0041   376 ;

                                     0041   377 ; SIDE EFFECTS:

                                     0041   378 ;	NONE

                                     0041   379 ;

                                     0041   380 ;--

                                     0041   381 

                                     0041   382 

                               0000' 0041   383 	.ENTRY	MTH$JNOT,	^M<>

            50         04 BC     D2  0043   384 	MCOML	@4(AP), R0	; R0 = complemented arg

                                 04  0047   385 	RET

MTH$BITOPS      ROUTINES FOR BIT OPERATIONS                      21-AUG-1978 19:02:10   VAX-11 MACRO X0.3-11               Page  12

0-2             MTH$IISHFT                                                                                                      (12)



                                     0048   387 	.SBTTL	MTH$IISHFT

                                     0048   388 

                                     0048   389 ;++

                                     0048   390 ; FUNCTIONAL DESCRIPTION:

                                     0048   391 ;	Return the result of shifting arg1 by arg2 places.

                                     0048   392 ;

                                     0048   393 ;

                                     0048   394 ; CALLING SEQUENCE:

                                     0048   395 ;	Bitwise_shift.ww.v = MTH$IISHFT (arg1.rwu.r, shiftcount.rw.r)

                                     0048   396 ;	

                                     0048   397 ;

                                     0048   398 ;

                                     0048   399 ; INPUT PARAMETERS:

                                     0048   400 ;	Both arguments are one-word values and are call-by-reference.

                                     0048   401 ;	

                                     0048   402 ;

                                     0048   403 ; IMPLICIT INPUTS:

                                     0048   404 ;	NONE

                                     0048   405 ;

                                     0048   406 ; OUTPUT PARAMETERS:

                                     0048   407 ;	NONE

                                     0048   408 ;

                                     0048   409 ; IMPLICIT OUTPUTS:

                                     0048   410 ;	NONE

                                     0048   411 ;

                                     0048   412 ; COMPLETION CODES:

                                     0048   413 ;	NONE

                                     0048   414 ;

                                     0048   415 ; SIDE EFFECTS:

                                     0048   416 ;	NONE

                                     0048   417 ;

                                     0048   418 ;--

                                     0048   419 

                                     0048   420 

                               0000' 0048   421 	.ENTRY	MTH$IISHFT,	^M<>

            50         04 BC     3C  004A   422 	MOVZWL	@4(AP), R0	; R0 = zero-extended arg

            50         08 BC     78  004E   423 	ASHL	@8(AP), R0, R0	; so right shift brings in zeroes

                          50         0052       

                                 04  0053   424 	RET

MTH$BITOPS      ROUTINES FOR BIT OPERATIONS                      21-AUG-1978 19:02:10   VAX-11 MACRO X0.3-11               Page  13

0-2             MTH$JISHFT                                                                                                      (13)



                                     0054   426 	.SBTTL	MTH$JISHFT

                                     0054   427 

                                     0054   428 ;++

                                     0054   429 ; FUNCTIONAL DESCRIPTION:

                                     0054   430 ;

                                     0054   431 ;	Return the result of shifting arg1 by arg2 places

                                     0054   432 ; CALLING SEQUENCE:

                                     0054   433 ;	Bitwise-shift.wl.v = MTH$JISHFT (arg1.rlu.r, shiftcount.rl.r)

                                     0054   434 ;

                                     0054   435 ;

                                     0054   436 ; INPUT PARAMETERS:

                                     0054   437 ;	Both arguments are longword values and are call-by-references.

                                     0054   438 ;

                                     0054   439 ; IMPLICIT INPUTS:

                                     0054   440 ;	NONE

                                     0054   441 ;

                                     0054   442 ; OUTPUT PARAMETERS:

                                     0054   443 ;	NONE

                                     0054   444 ;

                                     0054   445 ; IMPLICIT OUTPUTS:

                                     0054   446 ;	NONE

                                     0054   447 ;

                                     0054   448 ; COMPLETION CODES:

                                     0054   449 ;	NONE

                                     0054   450 ;

                                     0054   451 ; SIDE EFFECTS:

                                     0054   452 ;	NONE

                                     0054   453 ;

                                     0054   454 ;--

                                     0054   455 

                                     0054   456 

                               0000' 0054   457 	.ENTRY	MTH$JISHFT,	^M<>

            50         04 BC     D0  0056   458 	MOVL	@4(AP), R0	; R0 = arg to shift

                          51     D4  005A   459 	CLRL	R1		; R1 = 0 so right shift brings in zeroes

            50         08 BC     79  005C   460 	ASHQ	@8(AP), R0, R0	; shift R0 by arg2 bits

                          50         0060       

                                 04  0061   461 	RET

                                     0062   462 

                                     0062   463 	.END

MTH$BITOPS      ROUTINES FOR BIT OPERATIONS                      21-AUG-1978 19:02:10   VAX-11 MACRO X0.3-11               Page  14

SYMBOL TABLE                                                                                                                    (13)



FOR$K_ERR_PREFX= 00000018            

MTH$IIAND        00000000 RG    02   

MTH$IIEOR        00000028 RG    02   

MTH$IIOR         00000016 RG    02   

MTH$IISHFT       00000048 RG    02   

MTH$INOT         0000003A RG    02   

MTH$JIAND        0000000B RG    02   

MTH$JIEOR        00000031 RG    02   

MTH$JIOR         0000001F RG    02   

MTH$JISHFT       00000054 RG    02   

MTH$JNOT         00000041 RG    02   

MTH$K_ERR_PREFX= 00000016            

MTH__FLOOVEMAT = 00000058            

MTH__FLOUNDMAT = 00000059            

MTH__INVARG    = 00000051            

MTH__LOGZERNEG = 00000053            

MTH__SINSIGLOS = 00000057            

MTH__SQUROONEG = 00000054            

MTH__UNDEXP    = 00000052            

MTH__WRONUMARG = 00000050            





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  

MTH$CODE         00000062      02       PIC   USR   CON   REL   LCL   SHR   EXE   RD  NOWRT LONG  





THERE WERE NO ERRORS OR WARNINGS.

27890. BYTES LEFT IN FREE MEMORY POOL.

OBJ$:MTHBITOPS,LIS$:MTHBITOPS/-SP=LIB$:S/ML,SRC$:P,MTHBITOPS

0 MLB DIR RDS - 0 GETS TO DEFINE 0 MACROS. 3 INTER. FILE WRITES. 

