kjodle/Apollo-11
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Proof THE_LUNAR_LANDING #645 (#663)

Browse Source 
* - 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
1 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
Luminary099/THE_LUNAR_LANDING.agc
View File

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