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