* 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
|
||||||
@ -104,7 +104,7 @@ REV83 CS FLAGWRD7
|
|||||||
CS FLAGWRD8
|
CS FLAGWRD8
|
||||||
MASK SURFFBIT
|
MASK SURFFBIT
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF R31SURF # IF ON SURFACE, USE LEMAREC
|
BZF R31SURF # IF ON SURFACE,USE LEMAREC
|
||||||
|
|
||||||
TC INTPRET # DO CONIC EXTRAPOLATION FOR BOTH VEHICLES
|
TC INTPRET # DO CONIC EXTRAPOLATION FOR BOTH VEHICLES
|
||||||
RTB
|
RTB
|
||||||
@ -125,13 +125,13 @@ REV83 CS FLAGWRD7
|
|||||||
SET
|
SET
|
||||||
INTYPFLG # CONIC EXTRAP.
|
INTYPFLG # CONIC EXTRAP.
|
||||||
STCALL TET
|
STCALL TET
|
||||||
INTEGRVS # INTEGRATION --- AT LAST ---
|
INTEGRVS # INTEGRATION --- AT LAST---
|
||||||
OTHCONIC VLOAD
|
OTHCONIC VLOAD
|
||||||
# Page 705
|
# Page 705
|
||||||
RATT
|
RATT
|
||||||
STOVL RONE
|
STOVL RONE
|
||||||
VATT
|
VATT
|
||||||
STCALL VONE # GET SET FOR CONIC EXTRAP., OTHER.
|
STCALL VONE # GET SET FOR CONIC EXTRAP.,OTHER.
|
||||||
INTSTALL
|
INTSTALL
|
||||||
SET DLOAD
|
SET DLOAD
|
||||||
INTYPFLG
|
INTYPFLG
|
||||||
@ -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
|
||||||
@ -169,9 +169,9 @@ COMPDISP VLOAD VSU
|
|||||||
UNITZ
|
UNITZ
|
||||||
CALL
|
CALL
|
||||||
CDU*NBSM
|
CDU*NBSM
|
||||||
VXM PUSH # UNIT(Z)/4 TO PD 6-11
|
VXM PUSH # UNIT (Z)/4 TO PD 6-11
|
||||||
REFSMMAT
|
REFSMMAT
|
||||||
VPROJ VSL2 # UNIT(P)=UNIT(UZ-(UZ)PROJ(UR))
|
VPROJ VSL2 # UNIT(P)=UNIT(UZ -(UZ)PROJ(UR))
|
||||||
0D
|
0D
|
||||||
BVSU UNIT
|
BVSU UNIT
|
||||||
6D
|
6D
|
||||||
@ -179,10 +179,10 @@ COMPDISP VLOAD VSU
|
|||||||
0D # UNIT(RL)
|
0D # UNIT(RL)
|
||||||
VONE
|
VONE
|
||||||
# Page 706
|
# Page 706
|
||||||
VXV DOT # (UR * VL) * UR . U(P)
|
VXV DOT # (UR * VL)*UR . U(P)
|
||||||
0D
|
0D
|
||||||
12D
|
12D
|
||||||
PDVL # SIGN TO 12-13, LOAD U(P)
|
PDVL # SIGN TO 12-13 , LOAD U(P)
|
||||||
DOT SIGN
|
DOT SIGN
|
||||||
6D
|
6D
|
||||||
12D
|
12D
|
||||||
@ -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