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 Peter McDermott.
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: YUL SYSTEM FOR AGC: NEW PROGRAM SHEPATIN BY EYLES DEC 13, 1966 THIS PROGRAM WAS ASSEMBLED AS A VERSION OF REVISION 37 OF PROGRAM SUNBURST BY LEM GROUPNote that the date is the date of the printout, not the date of the program revision. |
030142,000002: ## Copyright: Public domain.
030143,000003: ## Filename: MP_7_-_SIVB_LEM_SEPARATION.agc
030144,000004: ## Purpose: A section of Sunburst revision 37, or Shepatin revision 0.
030145,000005: ## It is part of an early development version of the software
030146,000006: ## for Apollo Guidance Computer (AGC) on the unmanned Lunar
030147,000007: ## Module (LM) flight Apollo 5. Sunburst 37 was the program
030148,000008: ## upon which Don Eyles's offline development program Shepatin
030149,000009: ## was based; the listing herein transcribed was actually for
030150,000010: ## the equivalent revision 0 of Shepatin.
030151,000011: ## This file is intended to be a faithful transcription, except
030152,000012: ## that the code format has been changed to conform to the
030153,000013: ## requirements of the yaYUL assembler rather than the
030154,000014: ## original YUL assembler.
030155,000015: ## Reference: pp. 669-675
030156,000016: ## Assembler: yaYUL
030157,000017: ## Contact: Ron Burkey <info@sandroid.org>.
030158,000018: ## Website: www.ibiblio.org/apollo/index.html
030159,000019: ## Mod history: 2017-05-24 MAS Created from Sunburst 120.
030160,000020: ## 2017-06-14 RSB Transcribed.
030161,000021: ## 2017-06-14 HG Fix operand EBANK -> EBANK4
030162,000022: ## 2017-06-22 RSB Proofed comment text with
030163,000023: ## octopus/ProoferComments.
030164,000024:
![]() |
Page 669 |
030166,000026: 25,2467 BANK 25
030167,000027: 25,2467 E4,1566 EBANK= TDEC
030168,000028:
030169,000029: # PROGRAM DESCRIPTION- MISSION PHASE 7 - SIVB/LEM SEPARATION DATE- 21 OCT 66
030170,000030: # MOD NO- 0 LOG SECTION- MP 7 - SIVB/LEM SEPARATION
030171,000031: # MOD BY- GILBERT ASSEMBLY- SUNBURST REVISION 12
030172,000032:
030173,000033: # FUNCTIONAL DESCRIPTION
030174,000034:
030175,000035: # SIVB/LEM SEPARATION IS STARTED 39 MIN. 56 SEC. AFTER SIVB SHUTDOWN IS DETECTED. AT 00/11/04, ONE
030176,000036: # MINUTE AFTER BOOST SHUTDOWN IS DETECTED, MISSION TIMER NO. 1 IS SET TO 38M 56S AND MISSION PHASE REGISTER NO. 1
030177,000037: # TO MP 7. MISSION PHASE 7 STARTS AT 00/50/00. THIS PROGRAM COMMANDS A SEQUENCE OF EVENTS INCLUDING RCS COLD
030178,000038: # FIRE PURGE, RCS PRESSURIZATION, S BAND SYSTEM ACTIVATION, +X TRANSLATION INITIATION OF LEM/SIVB SEPARATION
030179,000039: # SEQUENCE, AND AGS ACTIVATION. IMMEDIATELY AFTER PHYSICAL SEPARATION, 00/54/00, THE PGNCS HOLDS THE ATTITUDE RATE
030180,000040: # WHICH EXISTED AT SEPARATION TO MINIMIZE THE PROBABILITY OF RE-CONTACT. RCS +X TRANSLATION IS TERMINATED 15
030181,000041: # SECONDS AFTER SEPARATION AT 00/54/15 AT WHICH TIME AUTOMATIC ATTITUDE HOLD IS INITIATED. THIS TERMINATION
030182,000042: # FOLLOWS A SEQUENCE STARTING AT 00/53/55 DURING WHICH THE JETS ARE TURNED ON FOR 10 SECONDS, OFF FOR 5 SECONDS,
030183,000043: # AND ON FOR 5 SECONDS. THIS IS DUE TO THE POSSIBILITY OF HEAT AFFECTING THE RENDEZVOUS RADAR ANTENNAE.
030184,000044: # MISSION PHASE TIMER NO. 4 IS SET TO START MISSION PHASE 8 (DPS COLD SOAK) IN 08 SECONDS. MISSION PHASE TIMER
030185,000045: # NO. 2 IS SET TO START MISSION PHASE 9 (DPS 1) IN 3H 1M 47S. MAJOR MODE 14 IS DISPLAYED DURING THIS PHASE.
030186,000046:
030187,000047: # CALLING SEQUENCE
030188,000048: # SIVB/LEM SEPARATION IS CALLED BY THE MISSION SCHEDULING ROUTINE AS A JOB. THE MISSION SCHEDULING ENTRY
030189,000049: # ROUTINE WAS CALLED 1 MINUTE AFTER BOOST SHUTDOWN IN MISSION PHASE 6 TO SET TIMER NO. 1 TO 38 MINUTES 56 SECONDS.
030190,000050:
030191,000051: # SUBROUTINES CALLED
030192,000052: # NEWMODEX, WAITLIST, FIXDELAY, 1LMP+DT, 2LMP+DT, FLAG1UP, FLAG1DWN, MPENTRY, MIDTOAVE, AVETOMID, TPAGREE,
030193,000053: # PREREAD, READACCS, SERVICER, AVERAGEG.
030194,000054:
030195,000055: # NORMAL EXIT MODE
030196,000056: # TASKOVER (ENDOFJOB INITIALLY SINCE TASK IS REQUESTED)
030197,000057:
030198,000058: # ALARM OR ABORT EXIT MODES
030199,000059: # NONE
030200,000060:
030201,000061: # INPUT
030202,000062: # MISSION SCHEDULING MAINTENANCE ROUTINE MUST BE INHIBITED AT BEGINNING AND ENABLED AT END OF MISSION PHASE 7.
030203,000063:
030204,000064: # OUTPUT
030205,000065: # RCS COLD FIRE PURGE, RCS PRESSURIZATION, S BAND SYSTEM ACTIVATION, +X TRANSLATION, INITIATION OF LEM/SIVB
030206,000066: # SEPARATION SEQUENCE, AND SCHEDULING OF MISSION PHASES 8 AND 9 (DPS COLD SOAK AND DPS 1).
030207,000067:
030208,000068: # ERASABLE INITIALIZATION REQUIRED
030209,000069: # NORMAL MISSION SEQUENCE SETS ERASABLES PROPERLY
030210,000070:
030211,000071: # DEBRIS
030212,000072: # CENTRALS - A,L,Q
030213,000073: # OTHER - ERASABLES IN SUBROUTINES USED
030214,000074:
![]() |
Page 670 |
030216,000076: 25,2467 00006 MP07JOB EXTEND
030217,000077: 25,2470 30025 DCA TIME2 # SET UP TIME FOR MIDTOAVE
030218,000078: 25,2471 53567 DXCH TDEC
030219,000079: 25,2472 00006 EXTEND
030220,000080: 25,2473 32761 DCA MP07DELT
030221,000081: 25,2474 21567 DAS TDEC
030222,000082:
030223,000083: 25,2475 00006 EXTEND
030224,000084: 25,2476 31567 DCA TDEC
030225,000085: 25,2477 52422 DXCH TIMEHOLD # NO RADAR ON 206
030226,000086:
030227,000087: 25,2500 04105 TC NEWMODEX # DISPLAY MAJOR MODE 14
030228,000088: 25,2501 00014 OCT 14
030229,000089:
030230,000090: 25,2502 00006 EXTEND
030231,000091: 25,2503 32763 DCA MIDAVE2C # PRIOR TO THRUST
030232,000092: 25,2504 52006 DXCH Z
030233,000093:
030234,000094: 25,2505 04147 TC PHASCHNG
030235,000095: 25,2506 05022 OCT 05022
030236,000096: 25,2507 20000 OCT 20000
030237,000097:
030238,000098: 25,2510 32767 CAF AVRAGEG7 # SERVICER CALLS AVERAGEG
030239,000099: 25,2511 55322 TS DVSELECT
030240,000100:
030241,000101: 25,2512 00006 EXTEND
030242,000102: 25,2513 32765 DCA SVREXIT # NORMAL EXIT FROM AVERAGEG
030243,000103: 25,2514 53073 DXCH AVGEXIT
030244,000104:
030245,000105: 25,2515 32766 CAF JETS+X # RCS COLD FIRE PURGE
030246,000106: 25,2516 00006 EXTEND
030247,000107: 25,2517 01005 WRITE 5
030248,000108:
030249,000109: 25,2520 04147 TC PHASCHNG
030250,000110: 25,2521 47012 OCT 47012
030251,000111: 25,2522 07640 DEC 4000 B-14
030252,000112: 25,2523 E4,1566 EBANK= TDEC
030253,000113: 25,2523 02533 52004 2CADR SIVBSEP
030254,000114:
030255,000115:
030256,000116: 25,2525 00004 INHINT
030257,000117: 25,2526 32757 CAF 40SEC
030258,000118: 25,2527 05701 TC WAITLIST
030259,000119: 25,2530 E4,1566 EBANK= TDEC
030260,000120: 25,2530 02533 52004 2CADR SIVBSEP
030261,000121:
030262,000122: 25,2532 05605 TC ENDOFJOB # AND RELINT
030263,000123:
030264,000124: 25,2533 04147 SIVBSEP TC PHASCHNG
030265,000125: 25,2534 05012 OCT 05012
030266,000126: 25,2535 77777 OCT 77777
![]() |
Page 671 |
030268,000128: 25,2536 37761 CAF ZERO # TERMINATE RCS COLD FIRE PURGE
030269,000129: 25,2537 00006 EXTEND
030270,000130: 25,2540 01005 WRITE 5
030271,000131:
030272,000132: 25,2541 04147 TC PHASCHNG
030273,000133: 25,2542 47012 OCT 47012
030274,000134: 25,2543 00620 DEC 400 B-14
030275,000135: 25,2544 E4,1566 EBANK= TDEC
030276,000136: 25,2544 02550 52004 2CADR SIVB1
030277,000137:
030278,000138: 25,2546 05717 TC FIXDELAY # WAIT 4 SECONDS
030279,000139: 25,2547 00620 DEC 400 B-14
030280,000140:
030281,000141: 25,2550 05106 SIVB1 TC 2LMP+DT
030282,000142: 25,2551 00274 DEC 188 B-14 # RCS MAIN S/O VALVES, SYS. A - OPEN **
030283,000143: 25,2552 00276 DEC 190 B-14 # RCS MAIN S/O VALVES, SYS. B - OPEN **
030284,000144: 25,2553 00144 DEC 100 B-14 # WAIT 1 SECOND
030285,000145:
030286,000146: 25,2554 05114 TC 1LMP+DT
030287,000147:
030288,000148: 25,2555 00004 DEC 4 B-14 # ED BATTERY ACTIVATION - ON
030289,000149: 25,2556 00144 DEC 100 B-14 # WAIT 1 SECOND
030290,000150:
030291,000151: 25,2557 05106 TC 2LMP+DT
030292,000152: 25,2560 00275 DEC 189 B-14 # RESET **
030293,000153: 25,2561 00277 DEC 191 B-14 # RESET **
030294,000154: 25,2562 01604 DEC 900 B-14 # WAIT 9 SECONDS
030295,000155:
030296,000156: 25,2563 05114 TC 1LMP+DT
030297,000157: 25,2564 00006 DEC 6 B-14 # RCS PRESSURIZE - FIRE **
030298,000158: 25,2565 00310 DEC 200 B-14 # WAIT 2 SECONDS
030299,000159:
030300,000160: 25,2566 05114 TC 1LMP+DT
030301,000161: 25,2567 00007 DEC 7 B-14 # RESET **
030302,000162: 25,2570 05360 DEC 2800 B-14 # WAIT 28 SECONDS
030303,000163:
030304,000164: 25,2571 05114 TC 1LMP+DT
030305,000165: 25,2572 00005 DEC 5 B-14 # ED BATTERY ACTIVATION - SAFE *
030306,000166: 25,2573 22434 DEC 9500 B-14 # WAIT 95 SECONDS ...
030307,000167:
030308,000168: 25,2574 00006 EXTEND
030309,000169: 25,2575 30422 DCA TIMEHOLD
030310,000170: 25,2576 53664 DXCH DT2TEMPD
030311,000171:
030312,000172: 25,2577 00006 EXTEND
030313,000173: 25,2600 40025 DCS TIME2 # TIG - 28 SEC. = TDEC + 2 SEC.
030314,000174: 25,2601 21664 DAS DT2TEMPD
030315,000175:
030316,000176: 25,2602 04147 TC PHASCHNG
030317,000177: 25,2603 05012 OCT 05012
030318,000178: 25,2604 77777 OCT 77777
030319,000179:
![]() |
Page 672 |
030321,000181: 25,2605 00006 EXTEND
030322,000182: 25,2606 31664 DCA DT2TEMPD
030323,000183:
030324,000184: 25,2607 52422 DXCH TIMEHOLD
030325,000185: 25,2610 10422 CCS TIMEHOLD +1 # INSURE WAITLIST TIME POSITIVE
030326,000186: 25,2611 67755 AD ONE
030327,000187: 25,2612 12615 TCF +3
030328,000188: 25,2613 40000 COM
030329,000189: 25,2614 67735 AD POSMAX
030330,000190: 25,2615 55662 TS DT2TEMP
030331,000191: 25,2616 05701 TC WAITLIST # REQUEST LASTBIAS AT TIG - 30 SECONDS
030332,000192: 25,2617 E4,1566 EBANK= TDEC
030333,000193: 25,2617 02770 52004 2CADR TIG-30
030334,000194:
030335,000195: 25,2621 04127 TC 2PHSCHNG
030336,000196: 25,2622 40052 OCT 40052
030337,000197: 25,2623 47014 OCT 47014
030338,000198: 25,2624 76115 -GENADR DT2TEMP
030339,000199: 25,2625 E4,1566 EBANK= TDEC
030340,000200: 25,2625 02770 52004 2CADR TIG-30
030341,000201:
030342,000202: 25,2627 05717 TC FIXDELAY # WAIT 55 SECONDS
030343,000203: 25,2630 12574 DEC 5500 B-14
030344,000204:
030345,000205: 25,2631 05307 SIVB2 TC IBNKCALL # DEADBAND SELECT - MAX
030346,000206: 25,2632 34012 CADR SETMAXDB
030347,000207:
030348,000208: 25,2633 32766 CAF JETS+X # COMMAND +X TRANSLATION - ON (4 JET)
030349,000209: 25,2634 00006 EXTEND
030350,000210: 25,2635 01005 WRITE 5
030351,000211: 25,2636 05307 TC IBNKCALL
030352,000212: 25,2637 34024 CADR ULLAGE
030353,000213:
030354,000214: 25,2640 04147 TC PHASCHNG
030355,000215: 25,2641 47012 OCT 47012
030356,000216: 25,2642 00144 DEC 100 B-14
030357,000217: 25,2643 E4,1566 EBANK= TDEC
030358,000218: 25,2643 02647 52004 2CADR SIVB3
030359,000219:
030360,000220: 25,2645 05717 TC FIXDELAY # WAIT 1 SECOND
030361,000221: 25,2646 00144 DEC 100 B-14
030362,000222:
030363,000223: 25,2647 05114 SIVB3 TC 1LMP+DT
030364,000224: 25,2650 00212 DEC 138 B-14 # XMTR/RCVR (S-BAND) - PRIM *
030365,000225: 25,2651 00454 DEC 300 B-14 # WAIT 3 SECONDS
030366,000226:
030367,000227: 25,2652 05114 TC 1LMP+DT
030368,000228: 25,2653 00072 DEC 58 B-14 # LEM/SIVB SEPARATE ARM - ON *
030369,000229: 25,2654 00062 DEC 50 B-14 # WAIT 500 MILLISECONDS
030370,000230:
030371,000231: 25,2655 40077 CS DAPBOOLS # ENABLE DAP
![]() |
Page 673 |
030373,000233: 25,2656 77743 MASK GODAPGO
030374,000234: 25,2657 26077 ADS DAPBOOLS
030375,000235:
030376,000236: 25,2660 05717 TC FIXDELAY # WAIT 500 MILLISECONDS
030377,000237: 25,2661 00062 DEC 50 B-14
030378,000238:
030379,000239: 25,2662 05307 TC IBNKCALL # GET VEHICLE RATE
030380,000240: 25,2663 34034 CADR SETRATE # HOLD VEHICLE ATTITUDE RATE
030381,000241:
030382,000242: 25,2664 05114 TC 1LMP+DT
030383,000243: 25,2665 00132 DEC 90 B-14 # LEM/SIVB SEPARATE - COMMAND **
030384,000244: 25,2666 00012 DEC 10 B-14 # WAIT 100 MILLISECONDS
030385,000245:
030386,000246: 25,2667 05307 TC IBNKCALL # DEADBAND SELECT - MIN
030387,000247: 25,2670 34000 CADR SETMINDB
030388,000248:
030389,000249: 25,2671 E5,1540 EBANK= LEMMASS1
030390,000250: 25,2671 35677 CAF EBANK5
030391,000251: 25,2672 54003 TS EBANK
030392,000252:
030393,000253: 25,2673 00006 EXTEND
030394,000254: 25,2674 31541 DCA LEMMASS1
030395,000255: 25,2675 53333 DXCH MASS
030396,000256:
030397,000257: 25,2676 37761 CAF ZERO
030398,000258: 25,2677 55551 TS DELAREA
030399,000259: 25,2700 55552 TS DELAREA +1
030400,000260:
030401,000261: 25,2701 E4,1566 EBANK= TDEC
030402,000262: 25,2701 37743 CAF EBANK4
030403,000263: 25,2702 54003 TS EBANK
030404,000264:
030405,000265: 25,2703 05717 TC FIXDELAY # WAIT 900 MILLISECONDS
030406,000266: 25,2704 00132 DEC 90 B-14
030407,000267:
030408,000268: 25,2705 05114 TC 1LMP+DT
030409,000269: 25,2706 00073 DEC 59 B-14 # LEM/SIVB SEPARATE ARM - OFF *
030410,000270: 25,2707 00144 DEC 100 B-14 # WAIT 1 SECOND
030411,000271:
030412,000272: 25,2710 05114 TC 1LMP+DT
030413,000273: 25,2711 00133 DEC 91 B-14 # RESET **
030414,000274: 25,2712 00454 DEC 300 B-14 # WAIT 3 SECONDS
030415,000275:
030416,000276: 25,2713 05307 TC IBNKCALL # COMMAND +X TRANSLATION - OFF (4 JET)
030417,000277: 25,2714 34030 CADR NOULLAGE
030418,000278:
030419,000279: 25,2715 04147 TC PHASCHNG
030420,000280: 25,2716 47012 OCT 47012
030421,000281: 25,2717 00764 DEC 500 B-14
030422,000282: 25,2720 E4,1566 EBANK= TDEC
![]() |
Page 674 |
030424,000284: 25,2720 02724 52004 2CADR SIVB4
030425,000285:
030426,000286: 25,2722 05717 TC FIXDELAY # WAIT 5 SECONDS
030427,000287: 25,2723 00764 DEC 500 B-14
030428,000288:
030429,000289: 25,2724 05307 SIVB4 TC IBNKCALL # COMMAND +X TRANSLATION - ON (4 JET)
030430,000290: 25,2725 34024 CADR ULLAGE
030431,000291:
030432,000292: 25,2726 04147 TC PHASCHNG
030433,000293: 25,2727 47012 OCT 47012
030434,000294: 25,2730 00764 DEC 500 B-14
030435,000295: 25,2731 E4,1566 EBANK= TDEC
030436,000296: 25,2731 02735 52004 2CADR SIVB5
030437,000297:
030438,000298: 25,2733 05717 TC FIXDELAY # WAIT 5 SECONDS
030439,000299: 25,2734 00764 DEC 500 B-14
030440,000300:
030441,000301: 25,2735 05307 SIVB5 TC IBNKCALL # COMMAND +X TRANSLATION - OFF (4 JET)
030442,000302: 25,2736 34030 CADR NOULLAGE
030443,000303:
030444,000304: 25,2737 06036 TC FLAG1DWN # KNOCK DOWN AVERAGEG FLAG
030445,000305: 25,2740 00001 OCT 00001
030446,000306:
030447,000307: 25,2741 05307 TC IBNKCALL # HOLD LEM ATTITUDE
030448,000308: 25,2742 34057 CADR STOPRATE
030449,000309:
030450,000310: 25,2743 05307 TC IBNKCALL # DEADBAND SELECT - MAX
030451,000311: 25,2744 34012 CADR SETMAXDB
030452,000312:
030453,000313: 25,2745 04127 TC 2PHSCHNG
030454,000314: 25,2746 00002 OCT 00002
030455,000315: 25,2747 05013 OCT 05013
030456,000316: 25,2750 77777 OCT 77777
030457,000317:
030458,000318: 25,2751 05141 TC MPENTRY # SCHEDULE DPS COLD SOAK
030459,000319: 25,2752 00004 DEC 4 B-14 # TIMER NO. 4
030460,000320: 25,2753 00010 DEC 8 B-14 # MISSION PHASE 8
030461,000321:
030462,000322: 25,2754 01752 ADRES MPDTO8
030463,000323:
030464,000324: 25,2755 15745 TCF TASKOVER
030465,000325:
![]() |
Page 675 |
030467,000327: 25,2756 00310 2SEC DEC 200 B-14
030468,000328: 25,2757 07640 40SEC DEC 4000 B-14
030469,000329: 25,2760 00001 10024 MP07DELT 2DEC 20500 B-28
030470,000330:
030471,000331: 25,2762 E4,1566 EBANK= TDEC
030472,000332: 25,2762 02304 16004 MIDAVE2C 2CADR MIDTOAVE
030473,000333:
030474,000334: 25,2764 E4,1566 EBANK= TDEC
030475,000335: 25,2764 02312 60064 SVREXIT 2CADR SERVEXIT
030476,000336:
030477,000337: 25,2766 00252 JETS+X OCT 00252
030478,000338: 25,2767 02233 AVRAGEG7 GENADR AVERAGEG
030479,000339:
030480,000340:
030481,000341:
030482,000342: 25,2770 37755 TIG-30 CAF BIT1 # PREREAD CALLS READACCS IN 2 SECONDS
030483,000343: 25,2771 05701 TC WAITLIST
030484,000344: 25,2772 E5,1506 EBANK= DVTOTAL
030485,000345:
030486,000346: 25,2772 02000 60065 2CADR PREREAD
030487,000347:
030488,000348: 25,2774 04147 TC PHASCHNG
030489,000349: 25,2775 40045 OCT 40045
030490,000350:
030491,000351: 25,2776 04147 TASK4OUT TC PHASCHNG
030492,000352: 25,2777 00004 OCT 00004
030493,000353:
030494,000354: 25,3000 15745 TCF TASKOVER
End of include-file MP_7_-_SIVB_LEM_SEPARATION.agc. Parent file is MAIN.agc