* Proof Luminary099/R31.agc

* Apply suggestions from code review

* Resolve requested changes

Co-authored-by: Matěj Havránek <havrama5@fit.cvut.cz>
Co-authored-by: James Harris <wopian@wopian.me>
This commit is contained in:
Dex 2020-10-07 03:14:08 +02:00 committed by GitHub
parent 9de167ee9e
commit 1c31c32d0c
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -67,12 +67,12 @@ DISPN5X CAF V16N54
V83CALL CS FLAGWRD7 # TEST AVERAGE G FLAG V83CALL CS FLAGWRD7 # TEST AVERAGE G FLAG
MASK AVEGFBIT MASK AVEGFBIT
EXTEND EXTEND
BZF MUNG? # ON. TEST MUNFLAG BZF MUNG? # ON - TEST MUNFLAG
CS FLAGWRD8 CS FLAGWRD8
MASK SURFFBIT MASK SURFFBIT
EXTEND EXTEND
BZF ONEBASE # ON SURFACE -- BYPASS LEMPREC BZF ONEBASE # ON SURFACE - BYPASS LEMPREC
TC INTPRET # EXTRAPOLATE BOTH STATE VECTORS TC INTPRET # EXTRAPOLATE BOTH STATE VECTORS
RTB RTB
@ -160,7 +160,7 @@ COMPDISP VLOAD VSU
0,1 0,1
STOVL RANGE # SCALED 2(29)M STOVL RANGE # SCALED 2(29)M
VATT VATT
VSU DOT # (VCM-VLM).UNIT(LOS), PD=0 VSU DOT # (VCM- VLM).UNIT(LOS). PD=0
VONE VONE
SL1 # SCALED 2(7)M/CS SL1 # SCALED 2(7)M/CS
STOVL RRATE STOVL RRATE
@ -212,12 +212,12 @@ GETRVN CA PRIO22 # INHIBIT SERVICER
TC PRIOCHNG TC PRIOCHNG
TC INTPRET TC INTPRET
VLOAD SETPD VLOAD SETPD
RN # LM STATE VECTOR IN RN,VN. RN # LM STATE VECTOR IN RN,VN
0 0
STOVL RONE STOVL RONE
VN VN
STOVL VONE # LOAD R(CSM),V(CSM) IN CASE MUNFLAG SET STOVL VONE # LOAD R(CSM),V(CSM) IN CASE MUNFLAG SET
V(CSM) # (TO INSURE TIME COMPATIBILITY) V(CSM) # (TO INSURE TIME COMPATABILITY)
PDVL PDDL PDVL PDDL
R(CSM) R(CSM)
PIPTIME PIPTIME
@ -246,7 +246,7 @@ GETRVN2 CALL
OTHINT OTHINT
R31SURF TC INTPRET R31SURF TC INTPRET
RTB # LM IS ON SURFACE, SO PRECISION RTB # LM IS ON SURFACE, SO PRECISION
LOADTIME # INTEGRATION USED PLANETARY INERTIAL LOADTIME # INTEGRATION USES PLANETARY INERTIAL
STCALL TDEC1 # ORIENTATION SUBROUTINE STCALL TDEC1 # ORIENTATION SUBROUTINE
LEMPREC LEMPREC
GOTO # DO CSM CONIC GOTO # DO CSM CONIC
@ -264,4 +264,3 @@ ONEBASE TC INTPRET # GET CSM BASE VECTOR
V16N54 VN 1654 V16N54 VN 1654
# Page 708 (empty page) # Page 708 (empty page)