Proof MEASUREMENT_INCORPORATION.agc #608

pull/757/head
Joshua Harmsen 2020-10-13 07:09:22 -07:00
parent 6b3d6cea81
commit d035ce9373
1 changed files with 4 additions and 7 deletions

View File

@ -86,7 +86,7 @@ Z123 VLOAD MXV*
BVECTOR +12D # BVECTOR (2)
MXV* VAD*
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
TIX,1
INCOR1
@ -160,7 +160,7 @@ INCOR1C TLOAD ROUND
-3 SSP
S2
54D
INCOR2 VLOAD VXM* # COMPUT OMEGA1,2,3
INCOR2 VLOAD VXM* # COMPUTE OMEGA1,2,3
ZI
W +162D,2
PUSH VLOAD
@ -171,7 +171,7 @@ INCOR2 VLOAD VXM* # COMPUT OMEGA1,2,3
ZI +12D
VXM* VAD
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
VLOAD STADR
STORE OMEGA +12D
@ -360,7 +360,7 @@ FAZC CALL
GRP2PC
# Page 1156
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
STORE TX789
BON RTB
@ -434,7 +434,6 @@ ZEROD = ZEROVECS
54DD DEC 54
6DD DEC -6
12DD DEC 12
SETLOC RENDEZ
BANK
COUNT* $$/INCOR
@ -491,5 +490,3 @@ NEWZCOMP VLOAD ABVAL
GOTO
INCOR2 -3
NORMZI = 36D