diff --git a/Luminary099/P32-P35_P72-P75.agc b/Luminary099/P32-P35_P72-P75.agc index a46233b..ddd2645 100644 --- a/Luminary099/P32-P35_P72-P75.agc +++ b/Luminary099/P32-P35_P72-P75.agc @@ -950,19 +950,19 @@ NTP/2 DLOAD DMP RACT3 # (U . RA3) = TEMP1 B1 +B29=B30 SL1 PUSH # B29 PL08D # Page 638 - DSQ TLOAD # TEMP1**2 B58 + DSQ TLOAD # TEMP1**2 B58 MPAC - PDVL DOT # PL11D + PDVL DOT # PL11D RACT3 RACT3 - TLOAD DCOMP # RA3 . RA3 + TLOAD DCOMP # RA3.RA3 MPAC - PDVL DOT # RP3 . RP3 B58 PL14D + PDVL DOT # RP3.RP3 B58 PL14D RPASS3 - RPASS3 # PL11D - TAD TAD # TEMP1**2 + RA3.RA3 + RP3.RP3 = TEMP2 PL08D + RPASS3 # PL11D + TAD TAD # TEMP1**2+RA3.RA3+RP3.RP3=TEMP2 PL08D BPL DLOAD - K10RK2 + K1ORK2 LOOPCT DSU AXT,2 1DPB28 @@ -976,12 +976,12 @@ NTP/2 DLOAD DMP DVPREV STCALL DELVCSI CSI/B1 -K10RK2 SQRT PUSH # TEMP3 = TEMP2**.5 B29 PL10D +K1ORK2 SQRT PUSH # TEMP3 = TEMP2**.5 B29 PL10D DCOMP DSU - 06D # -TEMP1-TEMP3 = K2 AT 10D - STODL 10D # PL08D - DSU STADR # PL06D - STORE 12D # -TEMP1+TEMP3 = K1 AT 12D + 06D # -TEMP1-TEMP3 =K2 AT 10D + STODL 10D # PL08D + DSU STADR # PL06D + STORE 12D # -TEMP1+TEMP3 =K1 AT 12D ABS STODL 14D 10D @@ -990,16 +990,16 @@ K10RK2 SQRT PUSH # TEMP3 = TEMP2**.5 B29 PL10D BMN DLOAD K2. 12D - STORE 10D # K = K1 + STORE 10D # K=K1 K2. DLOAD 10D VXSC VSL1 - VAD UNIT # V = RA3 + KU UNIT B1 + VAD UNIT # V=RA3+KU UNIT B1 RACT3 - PDVL UNIT - RPASS3 # PL06D - PDVL UNIT - VPASS3 # PL12D + PDVL UNIT # PL06D + RPASS3 + PDVL UNIT # PL12D + VPASS3 # Page 639 VXV PDVL # UVP3 X URP3 PL18D 06D