Notations on the program listing read, in part:
GAP: ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER 9:12 OCT. 21,1970Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were transcribed from a printout in Don Eyles's personal
collection, scanned by archive.org, and financially sponsored by Linden Sims.
A team of volunteers performed the transcription and proof-reading. The scanned
page images are available at
the Virtual AGC Project website, as well as higher-quality (but much larger)
images at
the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating
"issues" at
the Virtual AGC Project's GitHub Repository. Notations on the program listing read, in part: GAP: ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER 9:12 OCT. 21,1970Note that the date is the date of the printout, not the date of the program revision. |
034147,000002: ## Copyright: Public domain.
034148,000003: ## Filename: THE_LUNAR_LANDING.agc
034149,000004: ## Purpose: A log section of Zerlina 56, the final revision of
034150,000005: ## Don Eyles's offline development program for the variable
034151,000006: ## guidance period servicer. It also includes a new P66 with LPD
034152,000007: ## (Landing Point Designator) capability, based on an idea of John
034153,000008: ## Young's. Neither of these advanced features were actually flown,
034154,000009: ## but Zerlina was also the birthplace of other big improvements to
034155,000010: ## Luminary including the terrain model and new (Luminary 1E)
034156,000011: ## analog display programs. Zerlina was branched off of Luminary 145,
034157,000012: ## and revision 56 includes all changes up to and including Luminary
034158,000013: ## 183. It is therefore quite close to the Apollo 14 program,
034159,000014: ## Luminary 178, where not modified with new features.
034160,000015: ## Reference: pp. 771-778
034161,000016: ## Assembler: yaYUL
034162,000017: ## Contact: Ron Burkey <info@sandroid.org>.
034163,000018: ## Website: www.ibiblio.org/apollo/index.html
034164,000019: ## Mod history: 2017-07-28 MAS Created from Luminary 210.
034165,000020: ## 2017-08-24 MAS Updated for Zerlina 56.
034166,000021:
|
|
Page 771 |
034168,000023: 32,2421 BANK 32
034169,000024: 32,2000 SETLOC F2DPS*32
034170,000025: 32,2000 BANK
034171,000026:
034172,000027: 32,2421 E7,1621 EBANK= E2DPS
034173,000028:
034174,000029: # ****************************************
034175,000030: # P63: THE LUNAR LANDING, BRAKING PHASE
034176,000031: # ****************************************
034177,000032:
034178,000033: 32,2421 COUNT* $$/P63
034179,000034:
034180,000035: 32,2421 05364 P63LM TC PHASCHNG
034181,000036: 32,2422 04024 OCT 04024
034182,000037:
034183,000038: 32,2423 04616 TC BANKCALL # DO IMU STATUS CHECK ROUTINE R02
034184,000039: 32,2424 11241 CADR R02BOTH
034185,000040:
034186,000041: 32,2425 32703 CAF P63ADRES # INITIALIZE WHICH FOR BURNBABY
034187,000042: 32,2426 55455 TS WHICH
034188,000043:
034189,000044: 32,2427 32000 CAF DPSTHRSH # INITIALIZE DVMON
034190,000045: 32,2430 55251 TS DVTHRUSH
034191,000046: 32,2431 34751 CAF FOUR
034192,000047: 32,2432 55513 TS DVCNTR
034193,000048:
034194,000049: 32,2433 44753 CS ONE # INITIALIZE WCHPHASE AND FLPASSO
034195,000050: 32,2434 55346 TS WCHPHASE
034196,000051:
034197,000052: 32,2435 34755 CA ZERO
034198,000053: 32,2436 55623 TS FLPASS0
034199,000054:
034200,000055: 32,2437 32713 CAF HLROFFF # SET LR CUTOFF ALTITUDE
034201,000056: 32,2440 55451 TS HLROFF
034202,000057:
034203,000058: 32,2441 44736 CS BIT14
034204,000059: 32,2442 00006 EXTEND
034205,000060: 32,2443 03012 WAND CHAN12 # REMOVE TRACK-ENABLE DISCRETE.
034206,000061:
034207,000062: 32,2444 06051 FLAGORGY TC INTPRET # DIONYSIAN FLAG WAVING
034208,000063: 32,2445 43014 CLEAR SET
034209,000064: 32,2446 00664 NOTERFLG # PERMIT TERRAIN MODEL
034210,000065: 32,2447 00466 ALW66FLG # PERMIT P66 SELECTION
034211,000066: 32,2450 43014 CLEAR CLEAR
034212,000067: 32,2451 02663 NOTHROTL
034213,000068: 32,2452 03271 REDFLAG
034214,000069: 32,2453 43014 CLEAR SET
034215,000070: 32,2454 05660 LRBYPASS
034216,000071: 32,2455 03067 MUNFLAG
034217,000072: 32,2456 43014 CLEAR CLEAR
|
|
Page 772 |
034219,000074: 32,2457 00266 P25FLAG # TERMINATE P25 IF IT IS RUNNING.
034220,000075: 32,2460 00270 RNDVZFLG # TERMINATE P20 IF IT IS RUNNING
034221,000076:
034222,000077: # ****************************************
034223,000078:
034224,000079: 32,2461 77201 IGNALG SETPD VLOAD # FIRST SET UP INPUTS FOR RP-TO-R:-
034225,000080: 32,2462 00001 0 # AT 0D LANDING SITE IN MOON FIXED FRAME
034226,000081: 32,2463 02021 RLS # AT 6D ESTIMATED TIME OF LANDING
034227,000082: 32,2464 41525 PDDL PUSH # MPAC NON-ZERO TO INDICATE LUNAR CASE
034228,000083: 32,2465 02027 TLAND
034229,000084: 32,2466 37625 STCALL TPIP # ALSO SET TPIP FOR FIRST GUIDANCE PASS
034230,000085: 32,2467 55720 RP-TO-R
034231,000086: 32,2470 64312 VSL4 MXV
034232,000087: 32,2471 01732 REFSMMAT
034233,000088: 32,2472 37635 STCALL LAND
034234,000089: 32,2473 71426 GUIDINIT # GUIDINIT INITIALIZES WM AND /LAND/
034235,000090: 32,2474 45345 DLOAD DSU
034236,000091: 32,2475 02027 TLAND
034237,000092: 32,2476 24710 GUIDDURN
034238,000093: 32,2477 34041 STCALL TDEC1 # INTEGRATE STATE FORWARD TO THAT TIME
034239,000094: 32,2500 27056 LEMPREC
034240,000095: 32,2501 77331 SSP VLOAD
034241,000096: 32,2502 03647 NIGNLOOP
034242,000097: 32,2503 00050 40D
034243,000098: 32,2504 06516 UNITX
034244,000099: 32,2505 26561 STOVL CG
034245,000100: 32,2506 06514 UNITY
034246,000101: 32,2507 26567 STOVL CG +6
034247,000102: 32,2510 06512 UNITZ
034248,000103: 32,2511 16575 STODL CG +14
034249,000104: 32,2512 24706 99999CON
034250,000105: 32,2513 27665 STOVL DELTAH # INITIALIZE DELTAH FOR V16N68 DISPLAY
034251,000106: 32,2514 06520 ZEROVECS
034252,000107: 32,2515 17253 STODL UNFC/2 # INITIALIZE TRIM VELOCITY CORRECTION TERM
034253,000108: 32,2516 06520 HI6ZEROS
034254,000109: 32,2517 03643 STORE TTF/8
034255,000110:
034256,000111: 32,2520 77745 IGNALOOP DLOAD
034257,000112: 32,2521 00015 TAT
034258,000113: 32,2522 27557 STOVL PIPTIME1
034259,000114: 32,2523 00017 RATT1
034260,000115: 32,2524 64312 VSL4 MXV
|
|
REFSMMAT below is circled in blue pen. |
034262,000117: 32,2525 01732 REFSMMAT
034263,000118: 32,2526 37517 STCALL R
034264,000119: 32,2527 71743 MUNGRAV
034265,000120: 32,2530 35236 STCALL G
034266,000121: 32,2531 62411 ?GUIDSUB # WHICH DELIVERS N PASSES OF GUIDANCE
034267,000122:
034268,000123: # DDUMCALC IS PROGRAMMED AS FOLLOWS:-
|
|
Page 773 |
034270,000125: # 2 -
034271,000126: # (RIGNZ - RGU )/16 + 16(RGU )KIGNY/B8 + (RGU - RIGNX)KIGNX/B4 + (ABVAL(VGU) - VIGN)KIGNV/B4
034272,000127: # 2 1 0
034273,000128: # DDUM = -------------------------------------------------------------------------------------------
034274,000129: # 10
034275,000130: # 2 (VGU - 16 VGU KIGNX/B4)
034276,000131: # 2 0
034277,000132:
034278,000133: # THE NUMERATOR IS SCALED IN METERS AT 2(28). THE DENOMINATOR IS A VELOCITY IN UNITS OF 2(10)M/CS.
034279,000134: # THE QUOTIENT IS THUS A TIME IN UNITS OF 2(18) CENTISECONDS. THE FINAL SHIFT RESCALES TO UNITS OF 2(28) CS.
034280,000135: # THERE IS NO DAMPING FACTOR. THE CONSTANTS KIGNX/B4, KIGNY/B8 AND KIGNV/B4 ARE ALL NEGATIVE IN SIGN.
034281,000136:
034282,000137: 32,2532 55646 DDUMCALC TS NIGNLOOP
034283,000138: 32,2533 06051 TC INTPRET
034284,000139: 32,2534 57345 DLOAD DMPR # FORM DENOMINATOR FIRST
034285,000140: 32,2535 03627 VGU
034286,000141: 32,2536 02465 KIGNX/B4
034287,000142: 32,2537 44232 SL4R BDSU
034288,000143: 32,2540 03633 VGU +4
034289,000144: 32,2541 45325 PDDL DSU
|
|
The value in the following line has a blue arrow drawn in pointing to it. |
034291,000146: 32,2542 02463 RIGNZ
034292,000147: 32,2543 02611 RGU +4
034293,000148: 32,2544 65222 SR4R PDDL
034294,000149: 32,2545 02607 RGU +2
034295,000150: 32,2546 57316 DSQ DMPR
|
|
The value in the following line has a blue arrow drawn in pointing to it. |
034297,000152: 32,2547 02467 KIGNY/B8
034298,000153: 32,2550 65232 SL4R PDDL
034299,000154: 32,2551 02605 RGU
034300,000155: 32,2552 57225 DSU DMPR
|
|
The values in the following two line have blue arrows drawn in pointing to them. |
034302,000157: 32,2553 02461 RIGNX
034303,000158: 32,2554 02465 KIGNX/B4
034304,000159: 32,2555 51515 PDVL ABVAL
034305,000160: 32,2556 03627 VGU
034306,000161: 32,2557 57225 DSU DMPR
|
|
The values in the following two line have blue arrows drawn in pointing to them. |
034308,000163: 32,2560 02457 VIGN
034309,000164: 32,2561 02471 KIGNV/B4
034310,000165: 32,2562 43215 DAD DAD
034311,000166: 32,2563 56215 DAD DDV
034312,000167: 32,2564 77661 SRR
034313,000168: 32,2565 21613 10D
034314,000169:
034315,000170: 32,2566 43206 PUSH DAD
034316,000171: 32,2567 03557 PIPTIME1
034317,000172: 32,2570 14041 STODL TDEC1 # STORE NEW GUESS FOR NEXT INTEGRATION
034318,000173: 32,2571 45246 ABS DSU
034319,000174: 32,2572 24712 DDUMCRIT
034320,000175: 32,2573 45040 BMN CALL
034321,000176: 32,2574 64613 DDUMGOOD
034322,000177: 32,2575 27410 INTSTALL
034323,000178: 32,2576 43014 SET SET
|
|
Page 774 |
034325,000180: 32,2577 01473 INTYPFLG
034326,000181: 32,2600 00063 MOONFLAG
034327,000182: 32,2601 77745 DLOAD
034328,000183: 32,2602 03557 PIPTIME1
034329,000184: 32,2603 25517 STOVL TET # HOPEFULLY ?GUIDSUB DID NOT
034330,000185: 32,2604 00017 RATT1 # CLOBBER RATT1 AND VATT1
034331,000186: 32,2605 25535 STOVL RCV
034332,000187: 32,2606 00025 VATT1
034333,000188: 32,2607 35543 STCALL VCV
034334,000189: 32,2610 27106 INTEGRVS
034335,000190: 32,2611 77650 GOTO
034336,000191: 32,2612 64520 IGNALOOP
034337,000192:
034338,000193: 32,2613 53575 DDUMGOOD VLOAD UNIT # INITIALIZE KALCMANU
034339,000194: 32,2614 03253 UNFC/2
034340,000195: 32,2615 27773 STOVL POINTVSM
034341,000196: 32,2616 06516 UNITX
034342,000197: 32,2617 27765 STOVL SCAXIS # NEXT COMPUTE DISTANCE LANDING SITE IS
034343,000198: 32,2620 03525 V # OUT OF LM'S ORBITAL PLANE AT IGNITION:
034344,000199: 32,2621 53435 VXV UNIT # SIGN IS + IF LANDING SITE IS TO THE
034345,000200: 32,2622 03517 R # RIGHT, NORTH; - IF TO THE LEFT, SOUTH.
034346,000201: 32,2623 72441 DOT SL1
034347,000202: 32,2624 03635 LAND
034348,000203: 32,2625 16603 STODL OUTOFPLN # NEXT COMPUTE TIG
034349,000204: 32,2626 03423 ZOOMTIME
034350,000205: 32,2627 44261 SR BDSU
034351,000206: 32,2630 20617 14D
034352,000207: 32,2631 00041 TDEC1
034353,000208: 32,2632 03442 STORE TIG
034354,000209: 32,2633 77776 EXIT
034355,000210: # ****************************************
034356,000211:
034357,000212: 32,2634 05364 IGNALGRT TC PHASCHNG # PREVENT REPEATING IGNALG
034358,000213: 32,2635 04024 OCT 04024
034359,000214:
034360,000215: 32,2636 44362 ASTNCLOK CS ASTNDEX
034361,000216: 32,2637 04616 TC BANKCALL
034362,000217: 32,2640 74663 CADR STCLOK2
034363,000218: 32,2641 15155 TCF ENDOFJOB # RETURN IN NEW JOB AND IN EBANK FIVE
034364,000219:
034365,000220: 32,2642 35016 ASTNRET CAF EBANK7
034366,000221: 32,2643 54003 TS EBANK
034367,000222:
034368,000223: 32,2644 00004 INHINT
034369,000224: 32,2645 04674 TC IBNKCALL
034370,000225: 32,2646 40143 CADR PFLITEDB
034371,000226: 32,2647 00003 RELINT
034372,000227:
034373,000228: 32,2650 04616 TC BANKCALL
034374,000229: 32,2651 54125 CADR R60LEM
034375,000230:
|
|
Page 775 |
034377,000232: 32,2652 05364 TC PHASCHNG # PREVENT RECALLING R60
034378,000233: 32,2653 04024 OCT 04024
034379,000234:
034380,000235: 32,2654 34746 P63SPOT3 CA BIT6 # IS THE LR ANTENNA IN POSITION 1 YET
034381,000236: 32,2655 00006 EXTEND
034382,000237: 32,2656 02033 RAND CHAN33
034383,000238: 32,2657 00006 EXTEND
034384,000239: 32,2660 12666 BZF P63SPOT4 # BRANCH IF ANTENNA ALREADY IN POSITION 1
034385,000240:
034386,000241: 32,2661 32704 CAF CODE500 # ASTRONAUT: PLEASE CRANK THE
034387,000242: 32,2662 04616 TC BANKCALL # SILLY THING AROUND
034388,000243: 32,2663 20624 CADR GOPERF1
034389,000244: 32,2664 16001 TCF GOTOPOOH # TERMINATE
034390,000245: 32,2665 12654 TCF P63SPOT3 # PROCEED SEE IF HE'S LYING
034391,000246:
034392,000247: 32,2666 34752 P63SPOT4 CAF TWO # ENTER INITIALIZE LANDING RADAR
034393,000248: 32,2667 55677 TS STILBADH
034394,000249: 32,2670 55700 TS STILBADV
034395,000250: 32,2671 34755 CAF ZERO
034396,000251: 32,2672 55673 TS LRLCTR
034397,000252: 32,2673 55675 TS LRMCTR
034398,000253: 32,2674 55674 TS LRRCTR
034399,000254: 32,2675 55676 TS LRSCTR
034400,000255: 32,2676 55462 TS VSELECT
034401,000256:
034402,000257: 32,2677 34751 CA FOUR # INITIALIZE COUNTER TO ISSUE 511
034403,000258: 32,2700 55622 TS 511CTR # ALARM AFTER 10 SECONDS
034404,000259:
034405,000260: 32,2701 04635 TC POSTJUMP # OFF TO SEE THE WIZARD...
034406,000261: 32,2702 74130 CADR BURNBABY
034407,000262:
034408,000263:
034409,000264: # ----------------------------------------
034410,000265:
034411,000266: # CONSTANTS FOR P63LM AND IGNALG
034412,000267:
034413,000268:
034414,000269: 32,2703 02100 P63ADRES GENADR P63TABLE
034415,000270:
034416,000271:
034417,000272: 32,2704 4362 ASTNDEX = MD1 # OCT 25; INDEX FOR CLOKTASK
034418,000273:
034419,000274:
034420,000275: 32,2704 00500 CODE500 OCT 00500
034421,000276:
034422,000277:
034423,000278: 32,2705 00035 30373 99999CON 2DEC 30479.7 B-24
034424,000279:
|
|
Page 776 |
034426,000281: 32,2707 00004 01610 GUIDDURN 2DEC +66440 B-28 # GUIDDURN +6.64400314E+ 2
034427,000282:
034428,000283: 32,2711 00000 00010 DDUMCRIT 2DEC +8 B-28 # CRITERION FOR IGNALG CONVERGENCE
034429,000284:
034430,000285:
034431,000286:
034432,000287: 32,2713 00364 HLROFFF DEC 15.24 B-10 # LOADED DP, BUT LOW ORDER DOESN'T MATTER
034433,000288:
034434,000289:
034435,000290: # ----------------------------------------
034436,000291:
|
|
Page 777 |
034438,000293: # ****************************************
034439,000294: # P68: LANDING CONFIRMATION
034440,000295: # ****************************************
034441,000296:
034442,000297: 34,3351 BANK 34
034443,000298: 34,2000 SETLOC F2DPS*34
034444,000299: 34,2000 BANK
034445,000300:
034446,000301: 34,3351 COUNT* $$/P6567
034447,000302:
034448,000303: 34,3351 05364 LANDJUNK TC PHASCHNG
034449,000304: 34,3352 04024 OCT 04024
034450,000305:
034451,000306: 34,3353 00004 INHINT
034452,000307: 34,3354 04616 TC BANKCALL # ZERO ATTITUDE ERROR
034453,000308: 34,3355 40154 CADR ZATTEROR
034454,000309:
034455,000310: 34,3356 06051 TC INTPRET # TO INTERPRETIVE AS TIME IS NOT CRITICAL
034456,000311: 34,3357 77614 SET # PREVENT RCS JET FIRINGS IF MODE CONT IS
034457,000312: 34,3360 06460 PULSEFLG # IN ATT HOLD
034458,000313: 34,3361 43014 SET CLEAR
034459,000314: 34,3362 04067 SURFFLAG
034460,000315: 34,3363 04666 LETABORT
034461,000316: 34,3364 77214 SET VLOAD
034462,000317: 34,3365 05062 APSFLAG
034463,000318: 34,3366 01220 RN
034464,000319: 34,3367 16032 STODL ALPHAV
034465,000320: 34,3370 01234 PIPTIME
034466,000321: 34,3371 45014 SET CALL
034467,000322: 34,3372 01463 LUNAFLAG
034468,000323: 34,3373 26347 LAT-LONG
034469,000324: 34,3374 77201 SETPD VLOAD # COMPUTE RLS AND STORE IT AWAY
034470,000325: 34,3375 00001 0
034471,000326: 34,3376 01220 RN
034472,000327: 34,3377 65352 VSL2 PDDL
034473,000328: 34,3400 01234 PIPTIME
034474,000329: 34,3401 45006 PUSH CALL
034475,000330: 34,3402 51644 R-TO-RP
034476,000331: 34,3403 02021 STORE RLS
034477,000332: 34,3404 77776 EXIT
034478,000333: 34,3405 33425 CAF V06N43* # ASTRONAUT: NOW LOOK WHERE YOU ENDED UP
034479,000334: 34,3406 04616 TC BANKCALL
034480,000335: 34,3407 20477 CADR GOFLASH
034481,000336: 34,3410 16001 TCF GOTOPOOH # TERMINATE
034482,000337: 34,3411 13413 TCF +2 # PROCEED
034483,000338: 34,3412 13405 TCF -5 # RECYCLE
034484,000339:
034485,000340: 34,3413 06051 TC INTPRET
034486,000341: 34,3414 64375 VLOAD MXV # INITIALIZE GSAV AND (USING REFMF)
|
|
Page 778 |
034488,000343: 34,3415 01220 RN # YNBSAV, ZNBSAV AND ATTFLAG FOR P57
034489,000344: 34,3416 01732 REFSMMAT
034490,000345: 34,3417 45056 UNIT CALL
034491,000346: 34,3420 47653 CDU*SMNB
034492,000347: 34,3421 36222 STCALL GSAV
034493,000348: 34,3422 33502 REFMF
034494,000349: 34,3423 77776 EXIT
034495,000350:
034496,000351: 34,3424 16001 TCF GOTOPOOH # ASTRONAUT: PLEASE SELECT P57
034497,000352:
034498,000353:
034499,000354: 34,3425 01453 V06N43* VN 0643
End of include-file THE_LUNAR_LANDING.agc. Parent file is MAIN.agc