* 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:
parent
9de167ee9e
commit
1c31c32d0c
@ -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)
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user