diff --git a/Luminary099/P12.agc b/Luminary099/P12.agc index a4a58bf..cca91ab 100644 --- a/Luminary099/P12.agc +++ b/Luminary099/P12.agc @@ -58,7 +58,7 @@ P12LM TC PHASCHNG TS DVCNTR CA ZERO - TS TRKMKCNT # SHOW THAT R29 DOWNLINK DATA IS NOT READY. + TS TRKMKCNT # SHOW THAT R29 DOWNLINK DATA ISN'T READY. CAF V06N33A TC BANKCALL # FLASH TIG CADR GOFLASH @@ -86,19 +86,19 @@ P12LMB DLOAD VATT REFSMMAT VSL1 - STOVL V1S # COMPUTE V1S = VEL(TIG)*2(-7) M/CS. + STOVL V1S # COMPUTE V1S = VEL(TIG)*2(-7)M/CS. RATT MXV VSL6 REFSMMAT - STCALL R # COMPUTE R = POS(TIG)*2(-24) M. - MUNGRAV # COMPUTE GDT1/2(TIG)*2(-T)M/CS. + STCALL R # COMPUTE R = POS(TIG)*2(-24)M. + MUNGRAV # COMPUTE GDT1/2(TIG)*2(-7)M/CS. VLOAD UNIT R STCALL UNIT/R/ # COMPUTE UNIT/R/ FOR YCOMP. YCOMP SR DCOMP 5D - STODL XRANGE # INITIALIZE XRANGE FOR NOUN 76 + STODL XRANGE # INITIALIZE XRANGE FOR NOUN 76. VINJNOM STODL ZDOTD RDOTDNOM @@ -136,7 +136,7 @@ NEWLOAD CAF V06N76 # FLASH CROSS-RANGE, AND APOLUNE VALUES. STORE V # V(TIPOVER) = V(IGN) + 57FPS (UNIT/R/) DOT SL1 UNIT/R/ - STOVL RDOT # RDOT = 2(-7) + STOVL RDOT # RDOT * 2(-7) UNIT/R/ VXV UNIT QAXIS @@ -241,5 +241,3 @@ GUIDINIT STQ SETPD 49FPS 2DEC .149352 B-6 # EXPECTED RDOT AT TIPOVER VINJNOM 2DEC 16.7924 B-7 # 5509.5 FPS(APO=30NM WITH RDOT=19.5FPS) RDOTDNOM 2DEC .059436 B-7 # 19.5 FPS - -