Source Code

032769,000001: 032770,000002: 032771,000003: 032772,000004: 032773,000005: 032774,000006: 032775,000007: 032776,000008: 032777,000009: 032778,000010: 032779,000011: 032780,000012: 032781,000013: 032782,000014: 032783,000015: 032784,000016: 032785,000017: 32,3000 032786,000018: 32,2000 032787,000019: 32,2000 032788,000020: 032789,000021: 32,3000 E7,1621 032790,000022: 032791,000023: 032792,000024: 032793,000025: 032794,000026: 032795,000027: 32,3000 032796,000028: < 032798,000030: 32,3001 032799,000031: 032800,000032: 32,3002 032801,000033: 32,3003 032802,000034: 032803,000035: 32,3004 032804,000036: 32,3005 032805,000037: 032806,000038: 32,3006 032807,000039: 32,3007 032808,000040: 32,3010 032809,000041: 32,3011 032810,000042: 032811,000043: 32,3012 032812,000044: 32,3013 032813,000045: 032814,000046: 32,3014 032815,000047: 32,3015 032816,000048: 032817,000049: 32,3016 032818,000050: 32,3017 032819,000051: 32,3020 032820,000052: # Copyright: Public domain. # Filename: THE_LUNAR_LANDING.agc # Purpose: A section of Luminary 1C, revision 131. # It is part of the source code for the Lunar Module's (LM) # Apollo Guidance Computer (AGC) for Apollo 13 and Apollo 14. # This file is intended to be a faithful transcription, except # that the code format has been changed to conform to the # requirements of the yaYUL assembler rather than the # original YUL assembler. # Reference: pp. 785-792 of 1729.pdf. # Contact: Ron Burkey <info@sandroid.org>. # Website: www.ibiblio.org/apollo/index.html # Mod history: 05/25/03 RSB. Began transcribing. # 05/14/05 RSB Corrected website reference above. # Page 785 BANK 32 SETLOC F2DPS*32 BANK EBANK= E2DPS # ************************************* # P63: THE LUNAR LANDING, BRAKING PHASE # ************************************* COUNT* $$/P63 /a>032797,000029: 32,3000 05353 P63LM TC PHASCHNG 04024 OCT 04024 04616 TC BANKCALL # DO IMU STATUS CHECK ROUTINE R02 11233 CADR R02BOTH 33255 CAF P63ADRES # INITIALIZE WHICH FOR BURNBABY 55455 TS WHICH 32000 CAF DPSTHRSH # INITIALIZE DVMON 55250 TS DVTHRUSH 34751 CAF FOUR 55515 TS DVCNTR 44753 CS ONE # INITIALIZE WCHPHASE AND FLPASS0 55346 TS WCHPHASE 34755 CA ZERO 55623 TS FLPASS0 44736 CS BIT14 00006 EXTEND 03012 WAND CHAN12 # REMOVE TRACK-ENABLE DISCRETE. 759">032821,000053: 32,3021 06042 FLAGORGY TC INTPRET # DIONYSIAN FLAG WAVING 43014 CLEAR CLEAR 02663 NOTHROTL 03271 REDFLAG 43014 CLEAR SET 05660 LRBYPASS 03067 MUNFLAG 43014 CLEAR CLEAR 00266 P25FLAG # TERMINATE P25 IF IT IS RUNNING. 00270 RNDVZFLG # TERMINATE P20 IF IT IS RUNNING. # ******************************** >032834,000066: 32,3033 77201 IGNALG SETPD VLOAD # FIRST SET UP INPUTS FOR RP-TO-R: # Page 786 00001 0 # AT 0D LANDING SITE IN MOON FIXED FRAME 02023 RLS # AT 6D ESTIMATED TIME OF LANDING 41525 PDDL PUSH # MPAC NON-ZERO TO INDICATE LUNAR CASE 02401 TLAND 37625 STCALL TPIP # ALSO SET TPIP FOR FIRST GUIDANCE PASS 55716 RP-TO-R 64312 VSL4 MXV 01734 REFSMMAT 37635 STCALL LAND 71343 GUIDINIT # GUIDINIT INITIALIZES WM AND /LAND/ 45345 DLOAD DSU 02401 TLAND 25262 GUIDDURN 34041 STCALL TDEC1 # INTEGRATE STATE FORWARD TO THAT TIME 27056 LEMPREC 77331 SSP VLOAD 03647 NIGNLOOP 00050 40D 06522 UNITX 26575 STOVL CG 06520 UNITY 26603 STOVL CG +6 06516 UNITZ 16611 STODL CG +14 25260 99999CON 27665 STOVL DELTAH # INITIALIZE DELTAH FOR V16N68 DISPLAY 06524 ZEROVECS 17253 STODL UNFC/2 # INITIALIZE TRIM VELOCITY CORRECTION TERM 06524 HI6ZEROS 03643 STORE TTF/8 F50">032867,000099: 32,3072 77745 IGNALOOP DLOAD 00015 TAT 27561 STOVL PIPTIME1 00017 RATT1 64312 VSL4 MXV 01734 REFSMMAT 37521 STCALL R 67067 MUNGRAV 35236 STCALL GDT/2 62415 ?GUIDSUB # WHICH DELIVERS N PASSES OF GUIDANCE # 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 # DDUM = ------------------------------------------------------------------------------------------- # 10 # 2 (VGU - 16 VGU KIGNX/B4) # 2 0 # Page 787 # THE NUMERATOR IS SCALED IN METERS AT 2(28). THE DENOMINATOR IS A VELOCITY IN UNITS OF 2(10) M/CS. # THE QUOTIENT IS THUS A TIME IN UNITS OF 2(18) CENTISECONDS. THE FINAL SHIFT RESCALES TO UNITS OF 2(28) CS. # THERE IS NO DAMPING FACTOR. THE CONSTANTS KIGNX/B4, KIGNY/88 AND KIGNV/B4 ARE ALL NEGATIVE IN SIGN. C43">032891,000123: 32,3104 55646 DDUMCALC TS NIGNLOOP 06042 TC INTPRET 57345 DLOAD DMPR # FORM DENOMINATOR FIRST 03627 VGU 02501 KIGNX/B4 44232 SL4R BDSU 03633 VGU +4 45325 PDDL DSU 02477 RIGNZ 02633 RGU +4 65222 SR4R PDDL 02631 RGU +2 57316 DSQ DMPR 02503 KIGNY/B8 65232 SL4R PDDL 02627 RGU 57225 DSU DMPR 02475 RIGNX 02501 KIGNX/B4 51515 PDVL ABVAL 03627 VGU 57225 DSU DMPR 02473 VIGN 02505 KIGNV/B4 43215 DAD DAD 56215 DAD DDV 77661 SRR 21613 10D 43206 PUSH DAD 03561 PIPTIME1 14041 STODL TDEC1 # STORE NEW GUESS FOR NEXT INTEGRATION 45246 ABS DSU 25264 DDUMCRIT 45040 BMN CALL 65165 DDUMGOOD 27410 INTSTALL 43014 SET SET 01473 INTYPFLG 00063 MOONFLAG 77745 DLOAD 03561 PIPTIME1 25517 STOVL TET # HOPEFULLY ?GUIDSUB DID NOT 00017 RATT1 # CLOBBER RATT1 AND VATT1 # Page 788 25535 STOVL RCV 00025 VATT1 35543 STCALL VCV 27106 INTEGRVS 77650 GOTO 65072 IGNALOOP F44">032943,000175: 32,3165 54335 DDUMGOOD SLOAD SR 03423 ZOOMTIME 20617 14D 77621 BDSU 00041 TDEC1 27442 STOVL TIG # COMPUTE DISTANCE LANDING SITE WILL BE 03527 V # OUT OF LM'S ORBITAL PLANE AT IGNITION: 53435 VXV UNIT # SIGN IS + IF LANDING SITE IS TO THE 03521 R # RIGHT, NORTH; IF TO THE LEFT, SOUTH. 72441 DOT SL1 03635 LAND 4">032954,000186: 32,3200 26617 R60INIT STOVL OUTOFPLN # INITIALIZATION FOR CALCMANU 03253 UNFC/2 02621 STORE R60VSAVE # STORE UNFC/2 TEMPORARILY IN R60SAVE 77776 EXIT # ******************************************* 254">032960,000192: 32,3204 05353 IGNALGRT TC PHASCHNG # PREVENT REPEATING IGNALG 04024 OCT 04024 F4B">032963,000195: 32,3206 44362 ASTNCLOK CS ASTNDEX 04616 TC BANKCALL 74670 CADR STCLOK2 15155 TCF ENDOFJOB # RETURN IN NEW JOB AND IN EBANK FIVE 4">032968,000200: 32,3212 06042 ASTNRET TC INTPRET 47131 SSP RTB # GO PICK UP DISPLAY AT END OF R51: 02747 QMAJ # "PROCEED" WILL DO A FINE ALIGNMENT 65217 FCADR P63SPOT2 # "ENTER" WILL RETURN TO P63SPOT2 31127 R51P63 432">032973,000205: 32,3217 53575 P63SPOT2 VLOAD UNIT # INITIALIZE KALCMANU FOR BURN ATTITUDE 02621 R60VSAVE 27773 STOVL POINTVSM 06522 UNITX 03765 STORE SCAXIS 77776 EXIT 35016 CAF EBANK7 54003 TS EBANK 00004 INHINT 04674 TC IBNKCALL 40143 CADR PFLITEDB # Page 789 00003 RELINT 04616 TC BANKCALL 54123 CADR R60LEM 05353 TC PHASCHNG # PREVENT RECALLINE R60 04024 OCT 04024 433">032995,000227: 32,3237 34746 P63SPOT3 CA BIT6 # IS THE LR ANTENNA IN POSITION 1 YET 00006 EXTEND 02033 RAND CHAN33 00006 EXTEND 13251 BZF P63SPOT4 # BRANCH IF ANTENNA ALREADY IN POSITION 1 33256 CAF CODE500 # ASTRONAUT: PLEASE CRANK THE 04616 TC BANKCALL # SILLY THING AROUND 20624 CADR GOPERF1 16001 TCF GOTOP00H # TERMINATE 13237 TCF P63SPOT3 # PROCEED SEE IF HE'S LYING 434">033007,000239: 32,3251 04616 P63SPOT4 TC BANKCALL # ENTER INITIALIZE LANDING RADAR 67701 CADR SETPOS1 04635 TC POSTJUMP # OFF TO SEE THE WIZARD ... 74130 CADR BURNBABY # --------------------------------- # CONSTANTS FOR P63LM AND IGNALG 553">033017,000249: 32,3255 02100 P63ADRES GENADR P63TABLE 8">033019,000251: 32,3256 4362 ASTNDEX = MD1 # OCT 25: INDEX FOR CLOKTASK 0">033021,000253: 32,3256 00500 CODE500 OCT 00500 F4E">033023,000255: 32,3257 00035 30373 99999CON 2DEC 30479.7 B-24 24E">033025,000257: 32,3261 00004 01610 GUIDDURN 2DEC +66440 B-28 # GUIDDURN +6.64400314 E+2 954">033026,000258: 32,3263 00000 00010 DDUMCRIT 2DEC +8 B-28 # CRITERION FOR IGNALG CONVERGENCE # Page 790 # -------------------------------- # Page 791 # ************************* # P68: LANDING CONFIRMATION # ************************* BANK 34 SETLOC F2DPS*34 BANK COUNT* $$/P6567 E4B">033042,000274: 34,3271 05353 LANDJUNK TC PHASCHNG 04024 OCT 04024 00004 INHINT 04616 TC BANKCALL # ZERO ATTITUDE ERROR 40154 CADR ZATTEROR 06042 TC INTPRET # TO INTERPRETATIVE AS TIME IS NOT CRITICAL 77614 SET # PREVENT RCS JET FIRINGS IF MOD CONT IS 06460 PULSEFLG # IN ATT HOLD 43014 SET CLEAR 04067 SURFFLAG 04666 LETABORT 77214 SET VLOAD 05062 APSFLAG 01220 RN 16032 STODL ALPHAV 01234 PIPTIME 45014 SET CALL 01463 LUNAFLAG 26347 LAT-LONG 77201 SETPD VLOAD # COMPUTE RLS AND STORE IT AWAY 00001 0 01220 RN 65352 VSL2 PDDL 01234 PIPTIME 45006 PUSH CALL 51700 R-TO-RP 02023 STORE RLS 77776 EXIT 33342 CAF V06N43* # ASTRONAUT: NOW LOOK WHERE TO ENDED UP 04616 TC BANKCALL 20477 CADR GOFLASH 16001 TCF GOTOP00H # TERMINATE 13333 TCF +2 # PROCEED 13325 TCF -5 # RECYCLE 06042 TC INTPRET 77775 VLOAD # INITIALIZE GSAV AND (USING REFMF) # Page 792 06522 UNITX # YNBSAV, ZNBSAV AND ATTFLAG FOR P57 36231 STCALL GSAV 33471 REFMF 77776 EXIT 16001 TCF GOTOP00H # ASTRONAUT: PLEASE SELECT P57 A">033089,000321: 34,3342 01453 V06N43* VN 0643 THE_LUNAR_LANDING.agc. Parent file is MAIN.agc