diff --git a/Luminary099/P32-P35_P72-P75.agc b/Luminary099/P32-P35_P72-P75.agc index 08dd3c4..04919c5 100644 --- a/Luminary099/P32-P35_P72-P75.agc +++ b/Luminary099/P32-P35_P72-P75.agc @@ -696,8 +696,8 @@ CSI/A CLEAR SET # INITIALIZE INDICATORS S32.1F2 # FIRST PASS FOR NEWTON ITERATION INDICATR # Page 633 CLEAR SET - S32.1F3A # 00=1ST 2 PASSES 2ND CYCLE, 01=FIRST CYCLE - S32.1F3B # 10=2ND CYCLE, 11=50 FPS STAGE 2ND CYCLE + S32.1F3A # 00=1ST 2 PASSES 2ND CYCLE 01=FIRST CYCLE + S32.1F3B # 10=2ND CYCLE 11=50FPS STAGE 2ND CYCLE DLOAD P30ZERO STORE LOOPCT @@ -705,32 +705,32 @@ CSI/A CLEAR SET # INITIALIZE INDICATORS CSI/B SETPD VLOAD 0D RACT1 - ABVAL PUSH # RA1 B29 PL02D + ABVAL PUSH # RAI B29 PL02D NORM SR1 - X2 # B29-N2+ B1 PL04D + X2 # B29-N2+ B1 PL04D PDVL ABVAL RPASS3 - NORM BDDV # RA1/RP3 B1 PL02D + NORM BDDV # RA1/RP3 B1 PL02D X1 - XSU,2 SR* # B2 + XSU,2 SR* # B2 X1 1,2 - DAD DMP # (1+(RA1/RP3))RA1 B29+B2=B31 PL00D + DAD DMP # (1+(RA1/RP3))RA1 B29+B2=B31 PL00D 1DPB2 - NORM PDDL # PL02D + NORM PDDL # PL02D X1 RTMU - SR1 DDV # B38-B31= B7 PL00D - SL* SQRT # B7 - 0 -7,1 - PDVL UNIT # PL02D + SR1 DDV # B38-B31= B7 PL00D + SL* SQRT # B7 + 0 -7,1 + PDVL UNIT # PL02D RACT1 PDVL VXV UP1 UNIT # UNIT(URP1 X UVP1 X URA1) = UH1 - DOT SL1 # VA1 . UH1 B7 + DOT SL1 # VA1 . UH1 B7 VACT1 - BDSU STADR # PL00D + BDSU STADR # PL00D STODL DELVCSI INITST # 10 FPS STORE DELDV