diff --git a/Luminary099/THE_LUNAR_LANDING.agc b/Luminary099/THE_LUNAR_LANDING.agc index 58c2519..726e343 100644 --- a/Luminary099/THE_LUNAR_LANDING.agc +++ b/Luminary099/THE_LUNAR_LANDING.agc @@ -70,15 +70,15 @@ FLAGORGY TC INTPRET # DIONYSIAN FLAG WAVING MUNFLAG CLEAR CLEAR P25FLAG # TERMINATE P25 IF IT IS RUNNING. - RNDVZFLG # TERMINATE P20 IF IT IS RUNNING. + RNDVZFLG # TERMINATE P20 IF IT IS RUNNING # ******************************** -IGNALG SETPD VLOAD # FIRST SET UP INPUTS FOR RP-TO-R: +IGNALG SETPD VLOAD # FIRST SET UP INPUTS FOR RP-TO-R:- # Page 786 - 0 # AT 0D LANDING SITE IN MOON FIXED FRAME - RLS # AT 6D ESTIMATED TIME OF LANDING - PDDL PUSH # MPAC NON-ZERO TO INDICATE LUNAR CASE + 0 # AT 0D LANDING SITE IN MOON FIXED FRAME + RLS # AT 6D ESTIMATED TIME OF LANDING + PDDL PUSH # MPAC NON-ZERO TO INDICATE LUNAR CASE TLAND STCALL TPIP # ALSO SET TPIP FOR FIRST GUIDANCE PASS RP-TO-R @@ -118,7 +118,7 @@ IGNALOOP DLOAD STCALL GDT/2 ?GUIDSUB # WHICH DELIVERS N PASSES OF GUIDANCE -# DDUMCALC IS PROGRAMMED AS FOLLOWS: +# DDUMCALC IS PROGRAMMED AS FOLLOWS:- # 2 ___ # (RIGNZ - RGU )/16 + 16(RGU )KIGNY/B8 + (RGU - RIGNX)KIGNX/B4 + (ABVAL(VGU) - VIGN)KIGNV/B4 # 2 1 0 @@ -175,7 +175,7 @@ DDUMCALC TS NIGNLOOP DLOAD PIPTIME1 STOVL TET # HOPEFULLY ?GUIDSUB DID NOT - RATT1 # CLOBBER RATT1 AND VATT1 + RATT1 # CLOBBER RATT1 AND VATT1 # Page 788 STOVL RCV VATT1 @@ -190,14 +190,14 @@ DDUMGOOD SLOAD SR BDSU TDEC1 STOVL TIG # COMPUTE DISTANCE LANDING SITE WILL BE - V # OUT OF LM'S ORBITAL PLANE AT IGNITION: - VXV UNIT # SIGN IS + IF LANDING SITE IS TO THE - R # RIGHT, NORTH; - IF TO THE LEFT, SOUTH. + V # OUT OF LM'S ORBITAL PLANE AT IGNITION: + VXV UNIT # SIGN IS + IF LANDING SITE IS TO THE + R # RIGHT, NORTH; - IF TO THE LEFT, SOUTH. DOT SL1 LAND R60INIT STOVL OUTOFPLN # INITIALIZATION FOR CALCMANU UNFC/2 - STORE R60VSAVE # STORE UNFC/2 TEMPORARILY IN R60SAVE + STORE R60VSAVE # STORE UNFC/2 TEMPORARILY IN R60SAVE EXIT # ******************************************* @@ -211,8 +211,8 @@ ASTNCLOK CS ASTNDEX ASTNRET TC INTPRET SSP RTB # GO PICK UP DISPLAY AT END OF R51: - QMAJ # "PROCEED" WILL DO A FINE ALIGNMENT - FCADR P63SPOT2 # "ENTER" WILL RETURN TO P63SPOT2 + QMAJ # "PROCEED" WILL DO A FINE ALIGNMENT + FCADR P63SPOT2 # " ENTER " WILL RETURN TO P63SPOT2 R51P63 P63SPOT2 VLOAD UNIT # INITIALIZE KALCMANU FOR BURN ATTITUDE R60VSAVE @@ -251,12 +251,12 @@ P63SPOT3 CA BIT6 # IS THE LR ANTENNA IN POSITION 1 YET P63SPOT4 TC BANKCALL # ENTER INITIALIZE LANDING RADAR CADR SETPOS1 - TC POSTJUMP # OFF TO SEE THE WIZARD ... + TC POSTJUMP # OFF TO SEE THE WIZARD... CADR BURNBABY # --------------------------------- -# CONSTANTS FOR P63LM AND IGNALG +# CONSTANTS FOR P63LM AND IGNALG P63ADRES GENADR P63TABLE @@ -266,7 +266,7 @@ CODE500 OCT 00500 99999CON 2DEC 30479.7 B-24 -GUIDDURN 2DEC +66440 # GUIDDURN +6.64400314 E+2 +GUIDDURN 2DEC +66440 # GUIDDURN +6.64400314 E+2 DDUMCRIT 2DEC +8 B-28 # CRITERION FOR IGNALG CONVERGENCE # Page 790 @@ -324,7 +324,7 @@ LANDJUNK TC PHASCHNG TC INTPRET # Page 792 VLOAD # INITIALIZE GSAV AND (USING REFMF) - UNITX # YNBSAV, ZNBSAV AND ATTFLAG FOR P57 + UNITX # YNBSAV, ZNBSAV AND ATTFLAG FOR P57 STCALL GSAV REFMF EXIT