parent
f58465fb3b
commit
9452987439
@ -39,6 +39,7 @@ SPSIN1 EQUALS SPSIN
|
||||
SPCOS2 EQUALS SPCOS
|
||||
SPSIN2 EQUALS SPSIN
|
||||
|
||||
|
||||
COUNT 21/DAPMS
|
||||
|
||||
# ONE AND ONE HALF PRECISION MULTIPLICATION ROUTINE
|
||||
@ -54,6 +55,7 @@ SMALLMP TS KMPTEMP # A(X+Y)
|
||||
DAS KMPAC # AX+AY
|
||||
TC Q
|
||||
|
||||
|
||||
# SUBROUTINE FOR DOUBLE PRECISION ADDITIONS OF ANGLES
|
||||
# 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)
|
||||
@ -69,7 +71,7 @@ DPADD DAS KMPAC
|
||||
TCF DPADD2+ # UPPER = 0, LOWER +
|
||||
TCF +2
|
||||
COM # UPPER = 0, LOWER -
|
||||
AD POSMAX # LOWER = 0, A = 0
|
||||
AD POSMAX # LOWER = 0, A=0
|
||||
TS KMPAC +1 # CAN NOT OVERFLOW
|
||||
CA POSMAX # UPPER WAS = 0
|
||||
TSK TS KMPAC
|
||||
@ -89,4 +91,3 @@ DPADD2+ AD NEGMAX # CAN NOT OVERFLOW
|
||||
TCF TSK
|
||||
|
||||
# Page 1001 (empty page)
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user