IF PX6  IF THIS IS THE 6-DIGIT PRECISION VERSION.
*
*
*  THE 6-DIGIT CONSTANTS
*
*
*
*
CN14 EQU $
 DB 25H,00H,00H,00H,80H  .25 OR 1/4
*
CN34 EQU $
 DB 75H,00H,00H,00H,80H  .75 OR 3/4
*
PITWO EQU $
 DB 15H,70H,80H,00H,81H  PI/2
*
TWOPI EQU $
 DB 62H,83H,19H,00H,81H  PI*2
*
CN23 EQU $
 DB 23H,02H,59H,00H,81H  LN(10)
*
CNL10 EQU $
 DB 43H,42H,94H,00H,80H  LOG10(e)
*
*
*  USED BY COSINE TO CALCULATE SINE OR COSINE
*  POLYNOMIAL COEFFICIENTS
*
*
SINCO EQU $
 DB 14H,39H,41H,01H,82H
 DB 42H,00H,98H,00H,82H
 DB 76H,70H,43H,01H,82H
 DB 81H,60H,52H,00H,82H
 DB 41H,34H,17H,01H,82H
 DB 62H,83H,19H,00H,81H
 DB 0FFH
*
*
*  CONSTANTS FOR ARCTANGENT
*
*
*  POLYNOMIAL COEFFICIENTS
*
ATANCO EQU $
 DB 99H,92H,33H,00H,7FH
 DB 14H,23H,52H,01H,80H
 DB 19H,99H,91H,00H,80H
 DB 33H,33H,33H,01H,80H
 DB 10H,00H,00H,00H,81H
 DB 0FFH
*
*  ATINi = (2*i-1)*PI/14
*
ATIN1 EQU $
 DB 22H,43H,99H,00H,80H
ATIN2 EQU $
 DB 67H,31H,98H,00H,80H
ATIN3 EQU $
 DB 11H,22H,00H,00H,81H
*
*  Ai = i*PI/7
*
AKCN EQU $
 DB 00H,00H,00H,00H,00H  i=0
 DB 44H,87H,99H,00H,80H  i=1
 DB 89H,75H,98H,00H,80H  i=2
 DB 13H,46H,40H,00H,81H  i=3
*
*  Bi = TAN(i*PI/7) .   SEE Ai ABOVE
*
BKCN EQU $
 DB 00H,00H,00H,00H,00H
 DB 48H,15H,75H,00H,80H
 DB 12H,53H,96H,00H,81H
 DB 43H,81H,29H,00H,81H
*
*
*  FEXP CONSTANTS.  e^X
*
*  Ai = [(LN(10))^i]/i! ADJUSTED TO ACCOUNT FOR MISSING TERMS.
*
EXPCO EQU $
 DB 20H,96H,94H,00H,80H  i=6
 DB 53H,93H,49H,00H,80H  i=5
 DB 11H,71H,26H,00H,81H  i=4
 DB 20H,34H,68H,00H,81H  i=3
 DB 26H,50H,95H,00H,81H  i=2
 DB 23H,02H,59H,00H,81H  i=1
 DB 10H,00H,00H,00H,81H  i=0
 DB 0FFH
*
*  TEN RAISED TO THE .0, .1, .2, ... POWER
*
CNTEN EQU $
 DB 10H,00H,00H,00H,81H  10^.0 = 1
 DB 12H,58H,93H,00H,81H  10^.1
 DB 15H,84H,89H,00H,81H  10^.2
 DB 19H,95H,26H,00H,81H  10^.3
 DB 25H,11H,89H,00H,81H  10^.4
 DB 31H,62H,28H,00H,81H  10^.5
 DB 39H,81H,07H,00H,81H  10^.6
 DB 50H,11H,87H,00H,81H  10^.7
 DB 63H,09H,57H,00H,81H  10^.8
 DB 79H,43H,28H,00H,81H  10^.9
*
*  CONSTANTS FOR NATURAL LOGARITHMS
*
*
LOGCO EQU $
 DB 22H,22H,22H,00H,80H  2/9
 DB 28H,57H,14H,00H,80H  2/7
 DB 40H,00H,00H,00H,80H  2/5
 DB 66H,66H,67H,00H,80H  2/3
 DB 20H,00H,00H,00H,81H  2/1
 DB 0FFH
*
LOGN EQU $
 DB 50H,00H,00H,00H,81H    5
 DB 16H,09H,44H,00H,81H  LN(5)
 DB 30H,00H,00H,00H,81H    3
 DB 10H,98H,61H,00H,81H  LN(3)
 DB 20H,00H,00H,00H,81H    2
 DB 69H,31H,47H,00H,80H  LN(2)
 DB 20H,00H,00H,00H,81H    2
 DB 69H,31H,47H,00H,80H  LN(2)
*
LOGN1 EQU $
 DB 10H,00H,00H,00H,81H    1
 DB 00H,00H,00H,00H,00H  LN(1) = 0
*
LOGEA EQU $
 DB 69H,31H,47H,01H,80H  LN(.5)
 DB 51H,08H,26H,01H,80H  LN(.6)
 DB 35H,66H,75H,01H,80H  LN(.7)
 DB 22H,31H,44H,01H,80H  LN(.8)
 DB 10H,53H,61H,01H,80H  LN(.9)
*
*
 ENDF
 IF PX8  IS THIS THE 8 DIGIT VERSION?
*
*
*  THE 8-DIGIT CONSTANTS
*
*
*
*
CN14 EQU $
 DB 25H,00H,00H,00H,00H,80H  .25 OR 1/4
*
CN34 EQU $
 DB 75H,00H,00H,00H,00H,80H  .75 OR 3/4
*
PITWO EQU $
 DB 15H,70H,79H,63H,00H,81H  PI/2
*
TWOPI EQU $
 DB 62H,83H,18H,53H,00H,81H  PI*2
*
CN23 EQU $
 DB 23H,02H,58H,51H,00H,81H  LN(10)
*
CNL10 EQU $
 DB 43H,42H,94H,48H,00H,80H  LOG10(e)
*
*
*  USED BY COSINE TO CALCULATE SINE OR COSINE
*  POLYNOMIAL COEFFICIENTS
*
*
SINCO EQU $
 DB 14H,39H,41H,35H,01H,82H
 DB 42H,00H,98H,06H,00H,82H
 DB 76H,70H,42H,81H,01H,82H
 DB 81H,60H,52H,26H,00H,82H
 DB 41H,34H,17H,02H,01H,82H
 DB 62H,83H,18H,53H,00H,81H
 DB 0FFH
*
*
*  CONSTANTS FOR ARCTANGENT
*
*
*  POLYNOMIAL COEFFICIENTS
*
ATANCO EQU $
 DB 99H,92H,33H,12H,00H,7FH
 DB 14H,23H,51H,77H,01H,80H
 DB 19H,99H,90H,57H,00H,80H
 DB 33H,33H,33H,27H,01H,80H
 DB 10H,00H,00H,00H,00H,81H
 DB 0FFH
*
*  ATINi = (2*i-1)*PI/14
*
ATIN1 EQU $
 DB 22H,43H,99H,48H,00H,80H
ATIN2 EQU $
 DB 67H,31H,98H,43H,00H,80H
ATIN3 EQU $
 DB 11H,21H,99H,74H,00H,81H
*
*  Ai = i*PI/7
*
AKCN EQU $
 DB 00H,00H,00H,00H,00H,00H  i=0
 DB 44H,87H,98H,95H,00H,80H  i=1
 DB 89H,75H,97H,90H,00H,80H  i=2
 DB 13H,46H,39H,69H,00H,81H  i=3
*
*  Bi = TAN(i*PI/7) .   SEE Ai ABOVE
*
BKCN EQU $
 DB 00H,00H,00H,00H,00H,00H
 DB 48H,15H,74H,62H,00H,80H
 DB 12H,53H,96H,03H,00H,81H
 DB 43H,81H,28H,63H,00H,81H
*
*
*  FEXP CONSTANTS.  e^X
*
*  Ai = [(LN(10))^i]/i! ADJUSTED TO ACCOUNT FOR MISSING TERMS.
*
EXPCO EQU $
 DB 20H,96H,93H,81H,00H,80H  i=6
 DB 53H,93H,49H,11H,00H,80H  i=5
 DB 11H,71H,25H,53H,00H,81H  i=4
 DB 20H,34H,67H,86H,00H,81H  i=3
 DB 26H,50H,94H,91H,00H,81H  i=2
 DB 23H,02H,58H,51H,00H,81H  i=1
 DB 10H,00H,00H,00H,00H,81H  i=0
 DB 0FFH
*
*  TEN RAISED TO THE .0, .1, .2, ... POWER
*
CNTEN EQU $
 DB 10H,00H,00H,00H,00H,81H  10^.0 = 1
 DB 12H,58H,92H,54H,00H,81H  10^.1
 DB 15H,84H,89H,32H,00H,81H  10^.2
 DB 19H,95H,26H,23H,00H,81H  10^.3
 DB 25H,11H,88H,64H,00H,81H  10^.4
 DB 31H,62H,27H,77H,00H,81H  10^.5
 DB 39H,81H,07H,17H,00H,81H  10^.6
 DB 50H,11H,87H,23H,00H,81H  10^.7
 DB 63H,09H,57H,34H,00H,81H  10^.8
 DB 79H,43H,28H,23H,00H,81H  10^.9
*
*
*  CONSTANTS FOR NATURAL LOGARITHMS
*
*
LOGCO EQU $
 DB 22H,22H,22H,22H,00H,80H  2/9
 DB 28H,57H,14H,29H,00H,80H  2/7
 DB 40H,00H,00H,00H,00H,80H  2/5
 DB 66H,66H,66H,67H,00H,80H  2/3
 DB 20H,00H,00H,00H,00H,81H  2/1
 DB 0FFH
*
LOGN EQU $
 DB 50H,00H,00H,00H,00H,81H    5
 DB 16H,09H,43H,79H,00H,81H  LN(5)
 DB 30H,00H,00H,00H,00H,81H    3
 DB 10H,98H,61H,23H,00H,81H  LN(3)
 DB 20H,00H,00H,00H,00H,81H    2
 DB 69H,31H,47H,18H,00H,80H  LN(2)
 DB 20H,00H,00H,00H,00H,81H    2
 DB 69H,31H,47H,18H,00H,80H  LN(2)
*
LOGN1 EQU $
 DB 10H,00H,00H,00H,00H,81H    1
 DB 00H,00H,00H,00H,00H,00H  LN(1) = 0
*
LOGEA EQU $
 DB 69H,31H,47H,18H,01H,80H  LN(.5)
 DB 51H,08H,25H,62H,01H,80H  LN(.6)
 DB 35H,66H,74H,94H,01H,80H  LN(.7)
 DB 22H,31H,43H,55H,01H,80H  LN(.8)
 DB 10H,53H,60H,52H,01H,80H  LN(.9)
*
*
 ENDF
 IF PX10  IS THIS THE 10-DIGIT VERSION?
*
*
*  THE 10-DIGIT CONSTANTS
*
*
*
*
CN14 EQU $
 DB 25H,00H,00H,00H,00H,00H,80H  .25 OR 1/4
*
CN34 EQU $
 DB 75H,00H,00H,00H,00H,00H,80H  .75 OR 3/4
*
PITWO EQU $
 DB 15H,70H,79H,63H,27H,00H,81H  PI/2
*
TWOPI EQU $
 DB 62H,83H,18H,53H,07H,00H,81H  PI*2
*
CN23 EQU $
 DB 23H,02H,58H,50H,93H,00H,81H  LN(10)
*
CNL10 EQU $
 DB 43H,42H,94H,48H,19H,00H,80H  LOG10(e)
*
*
*  USED BY COSINE TO CALCULATE SINE OR COSINE
*  POLYNOMIAL COEFFICIENTS
*
*
SINCO EQU $
 DB 14H,39H,41H,35H,37H,01H,82H
 DB 42H,00H,98H,05H,73H,00H,82H
 DB 76H,70H,42H,81H,32H,01H,82H
 DB 81H,60H,52H,26H,21H,00H,82H
 DB 41H,34H,17H,02H,12H,01H,82H
 DB 62H,83H,18H,53H,07H,00H,81H
 DB 0FFH
*
*
*  CONSTANTS FOR ARCTANGENT
*
*
*  POLYNOMIAL COEFFICIENTS
*
ATANCO EQU $
 DB 99H,92H,33H,12H,48H,00H,7FH
 DB 14H,23H,51H,77H,46H,01H,80H
 DB 19H,99H,90H,56H,79H,00H,80H
 DB 33H,33H,33H,27H,14H,01H,80H
 DB 10H,00H,00H,00H,00H,00H,81H
 DB 0FFH
*
*  ATINi = (2*i-1)*PI/14
*
ATIN1 EQU $
 DB 22H,43H,99H,47H,53H,00H,80H
ATIN2 EQU $
 DB 67H,31H,98H,42H,58H,00H,80H
ATIN3 EQU $
 DB 11H,21H,99H,73H,76H,00H,81H
*
*  Ai = i*PI/7
*
AKCN EQU $
 DB 00H,00H,00H,00H,00H,00H,00H  i=0
 DB 44H,87H,98H,95H,05H,00H,80H  i=1
 DB 89H,75H,97H,90H,10H,00H,80H  i=2
 DB 13H,46H,39H,68H,52H,00H,81H  i=3
*
*  Bi = TAN(i*PI/7) .   SEE Ai ABOVE
*    !!!!! NOT EXTENDED PROPERLY !!!!!
*
BKCN EQU $
 DB 00H,00H,00H,00H,00H,00H,00H
 DB 48H,15H,74H,61H,88H,00H,80H
 DB 12H,53H,96H,03H,38H,00H,81H
 DB 43H,81H,28H,62H,68H,00H,81H
*
*
*  FEXP CONSTANTS.  e^X
*
*  Ai = [(LN(10))^i]/i! ADJUSTED TO ACCOUNT FOR MISSING TERMS.
*
EXPCO EQU $
 DB 20H,96H,93H,80H,46H,00H,80H  i=6
 DB 53H,93H,49H,10H,85H,00H,80H  i=5
 DB 11H,71H,25H,52H,95H,00H,81H  i=4
 DB 20H,34H,67H,85H,92H,00H,81H  i=3
 DB 26H,50H,94H,90H,55H,00H,81H  i=2
 DB 23H,02H,58H,50H,93H,00H,81H  i=1
 DB 10H,00H,00H,00H,00H,00H,81H  i=0
 DB 0FFH
*
*  TEN RAISED TO THE .0, .1, .2, ... POWER
*
CNTEN EQU $
 DB 10H,00H,00H,00H,00H,00H,81H  10^.0 = 1
 DB 12H,58H,92H,54H,12H,00H,81H  10^.1
 DB 15H,84H,89H,31H,92H,00H,81H  10^.2
 DB 19H,95H,26H,23H,15H,00H,81H  10^.3
 DB 25H,11H,88H,64H,32H,00H,81H  10^.4
 DB 31H,62H,27H,76H,60H,00H,81H  10^.5
 DB 39H,81H,07H,17H,06H,00H,81H  10^.6
 DB 50H,11H,87H,23H,36H,00H,81H  10^.7
 DB 63H,09H,57H,34H,45H,00H,81H  10^.8
 DB 79H,43H,28H,23H,47H,00H,81H  10^.9
*
*  CONSTANTS FOR NATURAL LOGARITHMS
*
*
LOGCO EQU $
 DB 22H,22H,22H,22H,22H,00H,80H  2/9
 DB 28H,57H,14H,28H,57H,00H,80H  2/7
 DB 40H,00H,00H,00H,00H,00H,80H  2/5
 DB 66H,66H,66H,66H,67H,00H,80H  2/3
 DB 20H,00H,00H,00H,00H,00H,81H  2/1
 DB 0FFH
*
LOGN EQU $
 DB 50H,00H,00H,00H,00H,00H,81H    5
 DB 16H,09H,43H,79H,12H,00H,81H  LN(5)
 DB 30H,00H,00H,00H,00H,00H,81H    3
 DB 10H,98H,61H,22H,89H,00H,81H  LN(3)
 DB 20H,00H,00H,00H,00H,00H,81H    2
 DB 69H,31H,47H,18H,06H,00H,80H  LN(2)
 DB 20H,00H,00H,00H,00H,00H,81H    2
 DB 69H,31H,47H,18H,06H,00H,80H  LN(2)
*
LOGN1 EQU $
 DB 10H,00H,00H,00H,00H,00H,81H    1
 DB 00H,00H,00H,00H,00H,00H,00H  LN(1) = 0
*
LOGEA EQU $
 DB 69H,31H,47H,18H,06H,01H,80H  LN(.5)
 DB 51H,08H,25H,62H,38H,01H,80H  LN(.6)
 DB 35H,66H,74H,94H,39H,01H,80H  LN(.7)
 DB 22H,31H,43H,55H,13H,01H,80H  LN(.8)
 DB 10H,53H,60H,51H,57H,01H,80H  LN(.9)
*
*
 ENDF
*
*