kjodle/Apollo-11
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Proof MYSUBS (#280)

Browse Source 
* 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
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Comanche055/MYSUBS.agc
View File

@ -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)