Proof THE_LUNAR_LANDING #645 (#663)

* - 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:
J. Henneberg 2020-03-04 18:33:10 +01:00 committed by GitHub
parent fe25f9d905
commit 1b8c7fb078
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -70,11 +70,11 @@ 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
@ -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
@ -212,7 +212,7 @@ 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
FCADR P63SPOT2 # " ENTER " WILL RETURN TO P63SPOT2
R51P63
P63SPOT2 VLOAD UNIT # INITIALIZE KALCMANU FOR BURN ATTITUDE
R60VSAVE
@ -251,7 +251,7 @@ 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
# ---------------------------------