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
pull/296/head
Gaboso 2017-05-01 21:05:16 -04:00 committed by James Harris
parent f1a5e823c3
commit 947420dd32
1 changed files with 5 additions and 5 deletions

View File

@ -50,7 +50,7 @@ DSPDELAY CAF 1SEC
BZF DSPDELAY BZF DSPDELAY
DISPN5X CA FLAGWRD9 # TEST R31FLAG (IN SUNDANCE R31FLAG WILL 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 EXTEND
BZF +3 BZF +3
CAF V16N54 # R31 USE NOUN 54 CAF V16N54 # R31 USE NOUN 54
@ -141,7 +141,7 @@ V16N53 VN 1653
# Page 508 # Page 508
# STATEXTP DOES AN INITIAL PRECISION EXTRAPOLATION OF THE # 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 # 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 # ARE USED AS THE CM STATE VECTOR AND THE INITIAL R RDOT
# RTHETA ARE COMPUTED WITH NO FURTHER INTEGRATION. IF AV # RTHETA ARE COMPUTED WITH NO FURTHER INTEGRATION. IF AV
@ -191,7 +191,7 @@ HAVEBASE BON RTB # SUBSEQUENT INTEGRATIONS
V37FLAG V37FLAG
GETRVN5 GETRVN5
LOADTIME LOADTIME
STCALL TDEC1 # AV G OFF, SET INTEG, OF CM STCALL TDEC1 # AV G OFF. SET INTEG. OF CM
INTSTALL INTSTALL
VLOAD CLEAR VLOAD CLEAR
BASETHP BASETHP
@ -212,12 +212,12 @@ HAVEBASE BON RTB # SUBSEQUENT INTEGRATIONS
+2 # PREC. IF LM DOWN +2 # PREC. IF LM DOWN
INTYPFLG # CONIC IF LM NOT DOWN INTYPFLG # CONIC IF LM NOT DOWN
STCALL TET STCALL TET
INTEGRVS # INTEGRATION --- AT LAST --- INTEGRVS # INTEGRATION --- AT LAST---
VLOAD VLOAD
RATT RATT
STOVL RONE STOVL RONE
VATT VATT
STODL VONE # GET SET FOR CONIC EXTRAP., OTHER. STODL VONE # GET SET FOR CONIC EXTRAP.,OTHER
TAT TAT
BON CALL BON CALL
SURFFLAG SURFFLAG