Proof MYSUBS (#280)

* Update MYSUBS.agc

* Tiny corrections
This commit is contained in:
Enguerrand des Vaux 2017-02-14 20:14:38 +10:00 committed by James Harris
parent f58465fb3b
commit 9452987439

View File

@ -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)
@ -89,4 +91,3 @@ DPADD2+ AD NEGMAX # CAN NOT OVERFLOW
TCF TSK TCF TSK
# Page 1001 (empty page) # Page 1001 (empty page)