MTH$DIM         possitive difference functions                   21-AUG-1978 19:04:04   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (2)     100  HISTORY		; Detailed Current Edit History

   (3)     100  DECLARATIONS

   (4)     100  MTH$IIDIM

   (5)     100  MTH$JIDIM

   (6)     100  MTH$DIM

   (7)     100  MTH$DDIM

MTH$DIM         possitive difference functions                   21-AUG-1978 19:04:04   VAX-11 MACRO X0.3-11               Page   1

0-4                                                                                                                              (1)



                                     0000   100 	.TITLE	MTH$DIM		possitive difference functions

                                     0000   200 	.IDENT	/0-4/		; File: MTHDIM.MAR

                                     0000   300 

                                     0000   400 ;

                                     0000   500 ; Copyright (C) 1977

                                     0000   600 ; Digital Equipment Corporation, Maynard, Massachusetts 01754

                                     0000   700 ;

                                     0000   800 ; This software is furnished under a license for use only on a single

                                     0000   900 ; computer  system  and  may be copied only with the inclusion of the

                                     0000  1000 ; above copyright notice. This software, or any other copies thereof,

                                     0000  1100 ; may not be provided or otherwise made available to any other person

                                     0000  1200 ; except for use on such system and to one who agree to these license 

                                     0000  1300 ; terms.  Title to  and  ownership of the software shall at all times 

                                     0000  1400 ; remain in DEC.

                                     0000  1500 ;

                                     0000  1600 ; The information in the software is subject to change without notice

                                     0000  1700 ; and should  not  be construed  as a commitment by Digital Equipment 

                                     0000  1800 ; Corporation.

                                     0000  1900 ;

                                     0000  2000 ; DEC assumes  no  responsibility  for the use or  reliability of its

                                     0000  2100 ; software on equipment which is not supplied by DEC.

                                     0000  2200 ;

                                     0000  2300 ;

                                     0000  2400 ; FACILITY: MATH LIBRARY

                                     0000  2500 ;++

                                     0000  2600 ; ABSTRACT:

                                     0000  2700 ;	This module contains the positive difference routines.

                                     0000  2800 ;	Positive difference (a,b) is defined to be MAX(a-b,0)

                                     0000  2900 ;

                                     0000  3000 ;

                                     0000  3100 ;--

                                     0000  3200 ;

                                     0000  3300 ; VERSION: 0

                                     0000  3400 ;

                                     0000  3500 ; HISTORY:

                                     0000  3600 ;

                                     0000  3700 ; AUTHOR:

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

                                     0000  3900 ;

                                     0000  4000 ; MODIFIED BY:

                                     0000  4100 ;

                                     0000  4200 ;

                                     0000  4300 ;

MTH$DIM         possitive difference functions                   21-AUG-1978 19:04:04   VAX-11 MACRO X0.3-11               Page   2

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



                                     0000   100 	.SBTTL	HISTORY		; Detailed Current Edit History

                                     0000   200 

                                     0000   300 

                                     0000   400 ; Edit History for Version 00 of MTH$DIM

                                     0000   500 ;

                                     0000   600 ; 0-4	- Remove MTH$FLAG_JACKET.  TNH 5-July-78

MTH$DIM         possitive difference functions                   21-AUG-1978 19:04:04   VAX-11 MACRO X0.3-11               Page   3

0-4             DECLARATIONS                                                                                                     (3)



                                     0000   100 	.SBTTL	DECLARATIONS

                                     0000   200 

                                     0000   300 ;

                                     0000   400 ; INCLUDE FILES:

                                     0000   500 ;	oerr.mar

                                     0000   600 ;

                                     0000   700 

                                     0000   800 ;

                                     0000   900 ; EXTERNAL SYMBOLS:

                                     0000  1000 ;	NONE

                                     0000  1100 ;

                                     0000  1200 

                                     0000  1300 ;

                                     0000  1400 ; MACROS:

                                     0000  1500 ;	NONE

                                     0000  1600 ;

                                     0000  1700 

                                     0000  1800 ;

                                     0000  1900 ; PSECT DECLARATIONS:

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

                                     0000  2100 

                                     0000  2200 ;

                                     0000  2300 ; EQUATED SYMBOLS:

                                     0000  2400 ;	NONE

                                     0000  2500 ;

                                     0000  2600 

                                     0000  2700 ;

                                     0000  2800 ; OWN STORAGE:

                                     0000  2900 ;	NONE

                                     0000  3000 ;

MTH$DIM         possitive difference functions                   21-AUG-1978 19:04:04   VAX-11 MACRO X0.3-11               Page   4

0-4             MTH$IIDIM                                                                                                        (4)



                                     0000   100 	.SBTTL	MTH$IIDIM

                                     0000   200 

                                     0000   300 ;++

                                     0000   400 ; FUNCTIONAL DESCRIPTION:

                                     0000   500 ;	Returns, as routine value, the positive difference of two

                                     0000   600 ;	INTEGER*2 arguments.

                                     0000   700 ;

                                     0000   800 ;

                                     0000   900 ; CALLING SEQUENCE:

                                     0000  1000 ;	Positive_difference.ww.v = MTH$IIDIM (a1.rw.r, a2.rw.r)

                                     0000  1100 ;	

                                     0000  1200 ;

                                     0000  1300 ;

                                     0000  1400 ; INPUT PARAMETERS:

                                     0000  1500 ;	a1          adr of INTEGER*2 value

                                     0000  1600 ;	a2          adr of INTEGER*2 value

                                     0000  1700 ;	

                                     0000  1800 ;

                                     0000  1900 ; IMPLICIT INPUTS:

                                     0000  2000 ;	NONE

                                     0000  2100 ;

                                     0000  2200 ; OUTPUT PARAMETERS:

                                     0000  2300 ;	NONE

                                     0000  2400 ;

                                     0000  2500 ; IMPLICIT OUTPUTS:

                                     0000  2600 ;	NONE

                                     0000  2700 ;

                                     0000  2800 ; COMPLETION CODES:

                                     0000  2900 ;	NONE

                                     0000  3000 ;

                                     0000  3100 ; SIDE EFFECTS:

                                     0000  3200 ;	SIGNALS Integer Overflow if  a1-a2  overflows.

                                     0000  3300 ;	

                                     0000  3400 ;

                                     0000  3500 ;--

                                     0000  3600 

                                     0000  3700 

                                     0000  3800 

                                     0000  3900 

                               4000' 0000  4000 	.ENTRY	MTH$IIDIM,	^M<IV>	; enable integer overflow

         04 BC         08 BC     A3  0002  4200 	SUBW3	@8(AP), @4(AP), R0	; R0 = difference of args

                          50         0007       

                          02     18  0008  4300 	BGEQ	1$			; return if non-negative

                          50     B4  000A  4400 	CLRW	R0			; else return 0

                                 04  000C  4500 1$:	RET

MTH$DIM         possitive difference functions                   21-AUG-1978 19:04:04   VAX-11 MACRO X0.3-11               Page   5

0-4             MTH$JIDIM                                                                                                        (5)



                                     000D   100 	.SBTTL	MTH$JIDIM

                                     000D   200 

                                     000D   300 ;++

                                     000D   400 ; FUNCTIONAL DESCRIPTION:

                                     000D   500 ;	Returns, as routine value, the positive difference of two

                                     000D   600 ;	INTEGER*4 arguments.

                                     000D   700 ;

                                     000D   800 ;

                                     000D   900 ; CALLING SEQUENCE:

                                     000D  1000 ;	Positive_difference.wl.v = MTH$JIDIM (a1.rl.r, a2.rl.r)

                                     000D  1100 ;	

                                     000D  1200 ;

                                     000D  1300 ;

                                     000D  1400 ; INPUT PARAMETERS:

                                     000D  1500 ;	a1          adr of INTEGER*4 value

                                     000D  1600 ;	a2          adr of INTEGER*4 value

                                     000D  1700 ;	

                                     000D  1800 ;

                                     000D  1900 ; IMPLICIT INPUTS:

                                     000D  2000 ;	NONE

                                     000D  2100 ;

                                     000D  2200 ; OUTPUT PARAMETERS:

                                     000D  2300 ;	NONE

                                     000D  2400 ;

                                     000D  2500 ; IMPLICIT OUTPUTS:

                                     000D  2600 ;	NONE

                                     000D  2700 ;

                                     000D  2800 ; COMPLETION CODES:

                                     000D  2900 ;	NONE

                                     000D  3000 ;

                                     000D  3100 ; SIDE EFFECTS:

                                     000D  3200 ;	SIGNALS Integer Overflow if  a1-a2  overflows.

                                     000D  3300 ;	

                                     000D  3400 ;

                                     000D  3500 ;--

                                     000D  3600 

                                     000D  3700 

                               4000' 000D  3800 	.ENTRY	MTH$JIDIM,	^M<IV>	; enable integer overflow

         04 BC         08 BC     C3  000F  4000 	SUBL3	@8(AP), @4(AP), R0	; R0 = difference of args

                          50         0014       

                          02     18  0015  4100 	BGEQ	1$			; return if non-negative

                          50     D4  0017  4200 	CLRL	R0			; else return 0

                                 04  0019  4300 1$:	RET

MTH$DIM         possitive difference functions                   21-AUG-1978 19:04:04   VAX-11 MACRO X0.3-11               Page   6

0-4             MTH$DIM                                                                                                          (6)



                                     001A   100 	.SBTTL	MTH$DIM

                                     001A   200 

                                     001A   300 ;++

                                     001A   400 ; FUNCTIONAL DESCRIPTION:

                                     001A   500 ;	Returns, as routine value, the positive difference of two

                                     001A   600 ;	REAL*4 arguments.

                                     001A   700 ;

                                     001A   800 ;

                                     001A   900 ; CALLING SEQUENCE:

                                     001A  1000 ;	Positive_difference.wf.v = MTH$DIM (a1.rf.r, a2.rf.r)

                                     001A  1100 ;	

                                     001A  1200 ;

                                     001A  1300 ;

                                     001A  1400 ; INPUT PARAMETERS:

                                     001A  1500 ;	a1          adr of a single-precision floating-point value

                                     001A  1600 ;	a2          adr of a single-precision floating-point value

                                     001A  1700 ;	

                                     001A  1800 ;

                                     001A  1900 ; IMPLICIT INPUTS:

                                     001A  2000 ;	NONE

                                     001A  2100 ;

                                     001A  2200 ; OUTPUT PARAMETERS:

                                     001A  2300 ;	NONE

                                     001A  2400 ;

                                     001A  2500 ; IMPLICIT OUTPUTS:

                                     001A  2600 ;	NONE

                                     001A  2700 ;

                                     001A  2800 ; COMPLETION CODES:

                                     001A  2900 ;	NONE

                                     001A  3000 ;

                                     001A  3100 ; SIDE EFFECTS:

                                     001A  3200 ;	Floating Overflow, Floating Underflow, and Reserved Operand

                                     001A  3300 ;	exceptions can occur.

                                     001A  3400 ;	

                                     001A  3500 ;

                                     001A  3600 ;--

                                     001A  3700 

                                     001A  3800 

                               0000' 001A  3900 	.ENTRY	MTH$DIM,	^M<>

         04 BC         08 BC     43  001C  4100 	SUBF3	@8(AP), @4(AP), R0	; R0 = difference of args

                          50         0021       

                          02     18  0022  4200 	BGEQ	1$			; return if non-negative

                          50     D4  0024  4300 	CLRL	R0			; else return 0

                                 04  0026  4400 1$:	RET

MTH$DIM         possitive difference functions                   21-AUG-1978 19:04:04   VAX-11 MACRO X0.3-11               Page   7

0-4             MTH$DDIM                                                                                                         (7)



                                     0027   100 	.SBTTL	MTH$DDIM

                                     0027   200 

                                     0027   300 ;++

                                     0027   400 ; FUNCTIONAL DESCRIPTION:

                                     0027   500 ;	Returns as routine value, the positive difference of two

                                     0027   600 ;	REAL*8 numbers.

                                     0027   700 ;

                                     0027   800 ;

                                     0027   900 ; CALLING SEQUENCE:

                                     0027  1000 ;	Positive_difference.wd.v = MTH$DDIM (a1.rd.r, a2.rd.r)

                                     0027  1100 ;	

                                     0027  1200 ;

                                     0027  1300 ;

                                     0027  1400 ; INPUT PARAMETERS:

                                     0027  1500 ;	NONE

                                     0027  1600 ;	a1          adr of a double-precision floating-point value

                                     0027  1700 ;	a2          adr of a double-precision floating-point value

                                     0027  1800 ;

                                     0027  1900 ; IMPLICIT INPUTS:

                                     0027  2000 ;	NONE

                                     0027  2100 ;

                                     0027  2200 ; OUTPUT PARAMETERS:

                                     0027  2300 ;	NONE

                                     0027  2400 ;

                                     0027  2500 ; IMPLICIT OUTPUTS:

                                     0027  2600 ;	NONE

                                     0027  2700 ;

                                     0027  2800 ; COMPLETION CODES:

                                     0027  2900 ;	NONE

                                     0027  3000 ;

                                     0027  3100 ; SIDE EFFECTS:

                                     0027  3200 ;	Floating Overflow, Floating Underflow, and Reserved Operand

                                     0027  3300 ;	exceptions can occur.

                                     0027  3400 ;	

                                     0027  3500 ;

                                     0027  3600 ;--

                                     0027  3700 

                               0000' 0027  3800 	.ENTRY	MTH$DDIM, 	^M<>

         04 BC         08 BC     63  0029  4000 	SUBD3	@8(AP), @4(AP), R0	; R0 = difference of args

                          50         002E       

                          02     18  002F  4100 	BGEQ	1$			; return if non-negative

                          50     7C  0031  4200 	CLRQ	R0			; else return 0

                                 04  0033  4300 1$:	RET

                                     0034  4400 

                                     0034  4500 

                                     0034  4600 	.END

MTH$DIM         possitive difference functions                   21-AUG-1978 19:04:04   VAX-11 MACRO X0.3-11               Page   8

SYMBOL TABLE                                                                                                                     (7)



FOR$K_ERR_PREFX= 00000018            

MTH$DDIM         00000027 RG    02   

MTH$DIM          0000001A RG    02   

MTH$IIDIM        00000000 RG    02   

MTH$JIDIM        0000000D 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         00000034      02       PIC   USR   CON   REL   LCL   SHR   EXE   RD  NOWRT LONG  





THERE WERE NO ERRORS OR WARNINGS.

27952. BYTES LEFT IN FREE MEMORY POOL.

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

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

