SevenOfAces/Apollo-Guidance-Computer
1
1
Fork 0
mirror of https://github.com/chrislgarry/Apollo-11.git synced 2025-02-18 18:00:29 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Proof MEASUREMENT_INCORPORATION.agc #608

Browse source
This commit is contained in:
Joshua Harmsen 2020-10-13 07:09:22 -07:00
parent 6b3d6cea81
commit d035ce9373
1 changed files with 4 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
Luminary099/MEASUREMENT_INCORPORATION.agc
View file

@ -86,7 +86,7 @@ Z123 VLOAD MXV*
BVECTOR +12D # BVECTOR (2) BVECTOR +12D # BVECTOR (2)
MXV* VAD* MXV* VAD*
W +162D,1 W +162D,1
ZI +18D,2 # B(0)*W+B(1)*(W+54)+B(2)*(W+108) FIRST PASS ZI +18D,2 # B(0)*W+B(1)*(W+54)+B(2)*(W+108) FIRST PAS
STORE ZI +18D,2 # ZI THEN Z2 THEN Z3 STORE ZI +18D,2 # ZI THEN Z2 THEN Z3
TIX,1 TIX,1
INCOR1 INCOR1
@ -160,7 +160,7 @@ INCOR1C TLOAD ROUND
-3 SSP -3 SSP
S2 S2
54D 54D
INCOR2 VLOAD VXM* # COMPUT OMEGA1,2,3 INCOR2 VLOAD VXM* # COMPUTE OMEGA1,2,3
ZI ZI
W +162D,2 W +162D,2
PUSH VLOAD PUSH VLOAD
@ -171,7 +171,7 @@ INCOR2 VLOAD VXM* # COMPUT OMEGA1,2,3
ZI +12D ZI +12D
VXM* VAD VXM* VAD
W +198D,2 W +198D,2
PUSH TIX,2 # PD 2-7=OMEGA1, 8-13=OMEGA2, 14-19=OMEGA3 PUSH TIX,2 # PD 2-7=OMEGA1,8-13=OMEGA2,14-19=OMEGA3
INCOR2 INCOR2
VLOAD STADR VLOAD STADR
STORE OMEGA +12D STORE OMEGA +12D
@ -360,7 +360,7 @@ FAZC CALL
GRP2PC GRP2PC
# Page 1156 # Page 1156
VLOAD VAD # START 3RD PHASE OF INCORP2 VLOAD VAD # START 3RD PHASE OF INCORP2
X789 # 7TH, 8TH, 9TH COMPONENT OF STATE VECTOR X789 # 7TH, 8TH, 9TH, COMPONENT OF STATE VECTOR
DELTAX +12D # INCORPORATION FOR X789 DELTAX +12D # INCORPORATION FOR X789
STORE TX789 STORE TX789
BON RTB BON RTB
@ -434,7 +434,6 @@ ZEROD = ZEROVECS
54DD DEC 54 54DD DEC 54
6DD DEC -6 6DD DEC -6
12DD DEC 12 12DD DEC 12
SETLOC RENDEZ SETLOC RENDEZ
BANK BANK
COUNT* $$/INCOR COUNT* $$/INCOR
@ -491,5 +490,3 @@ NEWZCOMP VLOAD ABVAL
GOTO GOTO
INCOR2 -3 INCOR2 -3
NORMZI = 36D NORMZI = 36D