* - first check * - GOTOP00H -> GOTOPOOH according to @cetfor * Revert line 269 * Revert line 269 * Resolve requested change Co-authored-by: James Harris <wopian@wopian.me>
This commit is contained in:
parent
fe25f9d905
commit
1b8c7fb078
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user