kjodle/Apollo-11
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Proof R31 #627 (#703)

Browse Source 
* 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
1 changed files with 15 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
Luminary099/R31.agc
View File

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