From 94529874399d9dc1b11ba9425f812443de43c42d Mon Sep 17 00:00:00 2001 From: Enguerrand des Vaux Date: Tue, 14 Feb 2017 20:14:38 +1000 Subject: [PATCH] Proof MYSUBS (#280) * Update MYSUBS.agc * Tiny corrections --- Comanche055/MYSUBS.agc | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/Comanche055/MYSUBS.agc b/Comanche055/MYSUBS.agc index 2df4abd..11a1396 100644 --- a/Comanche055/MYSUBS.agc +++ b/Comanche055/MYSUBS.agc @@ -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) -