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