parent
f58465fb3b
commit
9452987439
@ -39,6 +39,7 @@ SPSIN1 EQUALS SPSIN
|
|||||||
SPCOS2 EQUALS SPCOS
|
SPCOS2 EQUALS SPCOS
|
||||||
SPSIN2 EQUALS SPSIN
|
SPSIN2 EQUALS SPSIN
|
||||||
|
|
||||||
|
|
||||||
COUNT 21/DAPMS
|
COUNT 21/DAPMS
|
||||||
|
|
||||||
# ONE AND ONE HALF PRECISION MULTIPLICATION ROUTINE
|
# ONE AND ONE HALF PRECISION MULTIPLICATION ROUTINE
|
||||||
@ -54,6 +55,7 @@ SMALLMP TS KMPTEMP # A(X+Y)
|
|||||||
DAS KMPAC # AX+AY
|
DAS KMPAC # AX+AY
|
||||||
TC Q
|
TC Q
|
||||||
|
|
||||||
|
|
||||||
# SUBROUTINE FOR DOUBLE PRECISION ADDITIONS OF ANGLES
|
# SUBROUTINE FOR DOUBLE PRECISION ADDITIONS OF ANGLES
|
||||||
# A AND L CONTAIN A DP(1S) ANGLE SCALED BY 180 DEGS TO BE ADDED TO KMPAC.
|
# A AND L CONTAIN A DP(1S) ANGLE SCALED BY 180 DEGS TO BE ADDED TO KMPAC.
|
||||||
# RESULT IS PLACED IN KMPAC. TIMING = 6 MCT (22 MCT ON OVERFLOW)
|
# RESULT IS PLACED IN KMPAC. TIMING = 6 MCT (22 MCT ON OVERFLOW)
|
||||||
@ -69,7 +71,7 @@ DPADD DAS KMPAC
|
|||||||
TCF DPADD2+ # UPPER = 0, LOWER +
|
TCF DPADD2+ # UPPER = 0, LOWER +
|
||||||
TCF +2
|
TCF +2
|
||||||
COM # UPPER = 0, LOWER -
|
COM # UPPER = 0, LOWER -
|
||||||
AD POSMAX # LOWER = 0, A = 0
|
AD POSMAX # LOWER = 0, A=0
|
||||||
TS KMPAC +1 # CAN NOT OVERFLOW
|
TS KMPAC +1 # CAN NOT OVERFLOW
|
||||||
CA POSMAX # UPPER WAS = 0
|
CA POSMAX # UPPER WAS = 0
|
||||||
TSK TS KMPAC
|
TSK TS KMPAC
|
||||||
@ -89,4 +91,3 @@ DPADD2+ AD NEGMAX # CAN NOT OVERFLOW
|
|||||||
TCF TSK
|
TCF TSK
|
||||||
|
|
||||||
# Page 1001 (empty page)
|
# Page 1001 (empty page)
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user