From 947420dd329ecd98d2d9fb1e8428261821d0e08f Mon Sep 17 00:00:00 2001 From: Gaboso Date: Mon, 1 May 2017 21:05:16 -0400 Subject: [PATCH] Proof reading performed for R31 code. (#293) * Proof reading performed for R31 code. Open issue: Proof R31 #246. * Revision and required corrections were performed in file R31 --- Comanche055/R31.agc | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/Comanche055/R31.agc b/Comanche055/R31.agc index 4135ea8..d1c3006 100644 --- a/Comanche055/R31.agc +++ b/Comanche055/R31.agc @@ -50,7 +50,7 @@ DSPDELAY CAF 1SEC BZF DSPDELAY DISPN5X CA FLAGWRD9 # TEST R31FLAG (IN SUNDANCE R31FLAG WILL - MASK BIT4 # ALWAYS BE SET AS R34 DOES NOT EXIST. + MASK BIT4 # ALWAYS BE SET AS R34 DOES NOT EXIST) EXTEND BZF +3 CAF V16N54 # R31 USE NOUN 54 @@ -141,7 +141,7 @@ V16N53 VN 1653 # Page 508 # STATEXTP DOES AN INITIAL PRECISION EXTRAPOLATION OF THE -# LEM STATE VECTOR TO PRESENT TIME OR TO PIPTIME IF AV G. +# LEM STATE VECTOR TO PRESENT TIME OR TO PIPTIME IF AV G # IS ON AND SAVES AS BASE VECTOR. IF AV G IS ON RN + VN # ARE USED AS THE CM STATE VECTOR AND THE INITIAL R RDOT # RTHETA ARE COMPUTED WITH NO FURTHER INTEGRATION. IF AV @@ -191,7 +191,7 @@ HAVEBASE BON RTB # SUBSEQUENT INTEGRATIONS V37FLAG GETRVN5 LOADTIME - STCALL TDEC1 # AV G OFF, SET INTEG, OF CM + STCALL TDEC1 # AV G OFF. SET INTEG. OF CM INTSTALL VLOAD CLEAR BASETHP @@ -212,12 +212,12 @@ HAVEBASE BON RTB # SUBSEQUENT INTEGRATIONS +2 # PREC. IF LM DOWN INTYPFLG # CONIC IF LM NOT DOWN STCALL TET - INTEGRVS # INTEGRATION --- AT LAST --- + INTEGRVS # INTEGRATION --- AT LAST--- VLOAD RATT STOVL RONE VATT - STODL VONE # GET SET FOR CONIC EXTRAP., OTHER. + STODL VONE # GET SET FOR CONIC EXTRAP.,OTHER TAT BON CALL SURFFLAG