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