Source Code
![]() |
These source-code files were transcribed from scans made from Don Eyles's personal
copy of BURST120 (SUNBURST 120). They were scanned at archive.org's Boston
facility, and the scanning was sponsored by Mike Stewart. The code was transcribed
from these scans by a team of volunteers who are referenced in the program
comments. Comments from the original source code are in ALL-CAPS, whereas
comments added later in transcription are in Mixed-Case. In some cases, where
similar code blocks exist in previously-transcribed AGC programs (primarily
Luminary 99, from Apollo 11) those code blocks were used as a starting point and
then corrected to agree with the BURST120 scans. The full scans are available
at the Virtual AGC
project's collection at archive.org, while more-convenient reduced-size (but reduced-quality)
images are available at
the main Virtual AGC website. Report any errors noted by creating an
issue report at the Virtual AGC
project's GitHub repository. Notations on the program listing read, in part:YUL SYSTEM FOR AGC: REVISION 0 OF PROGRAM BURST120 BY NASA 2021106-031 DEC 7, 1967 THIS LISTING IS A COPY OF A VERSION OF THE PROGRAM INTENDED FOR USE IN THE ON-BOARD PRIMARY GUIDANCE COMPUTER IN THE UNMANNED FLIGHT OF APOLLO LUNAR MODULE 1 --- THE AS206 MISSION.Note that the date is the date of the printout, not the date of the program revision. |
032794,000002: ## Copyright: Public domain.
032795,000003: ## Filename: MISSION_PHASE_16-RCS_COLD_SOAK.agc
032796,000004: ## Purpose: A module for revision 0 of BURST120 (Sunburst). It
032797,000005: ## is part of the source code for the Lunar Module's
032798,000006: ## (LM) Apollo Guidance Computer (AGC) for Apollo 5.
032799,000007: ## Assembler: yaYUL
032800,000008: ## Contact: Ron Burkey <info@sandroid.org>.
032801,000009: ## Website: www.ibiblio.org/apollo/index.html
032802,000010: ## Mod history: 2016-09-30 RSB Created draft version.
032803,000011: ## 2016-10-29 MAS Transcribed.
032804,000012: ## 2016-12-06 RSB Comments proofed using octopus/ProoferComments,
032805,000013: ## no changes made.
032806,000014:
![]() |
Page 764 |
032808,000016: 27,3522 BANK 27
032809,000017: 27,3522 E6,1407 EBANK= EDOT
032810,000018: # PROGRAM DESCRIPTION
032811,000019: # MOD NO- 0 LOG SECTION-
032812,000020: # ******** NOTE- MP16 NOT UP TO DATE ********
032813,000021: # RCS COLD SOAK
032814,000022: # FUNCTIONAL DESCRIPTION-
032815,000023: # CHANGE ATTITUDE OF SPACECRAFT TO REQUIRED
032816,000024: # ATTITUDE FOR COLD SOAK PHASES.
032817,000025: # ISSUE LMP COMMANDS, ETC.
032818,000026: # ACCORDING TO GSOP.
032819,000027: # CALLING SEQUENCE-
032820,000028: # START MP 16 WHEN MISSION TIMER 4
032821,000029: # COUNTS TO ZERO.
032822,000030: # SUBROUTINES CALLED-
032823,000031: # BANKCALL
032824,000032: # DFI T/M CAL. ROUTINE
032825,000033: # EXECUTIVE
032826,000034: # LEM MISSION PROGRAMMER
032827,000035: # KALCMANU
032828,000036: # WAITLIST
032829,000037: # NORMAL EXIT MODES-
032830,000038: # TC ENDOFJOB/TASKOVER
032831,000039: # ALARM OR ABORT EXIT MODES- NONE
032832,000040: # OUTPUT- (INTERFACE, DISPLAYS, MEANINGFUL INFORMATIONLEFT IN ERASABLE).
032833,000041: # SAME AS FOR KALCMANU EXCEPT-
032834,000042: # BIT 13 OF DAPBOOLS IS SET TO 1 BEFORE EXIT.
032835,000043: # ERASABLE INITIALIZATION REQUIRED-
032836,000044: # TEPHEM IN CENTISECONDS TRIPLE PRECISION
032837,000045: # DEBRIS- (ERASABLE LOCATIONS DESTROYED BY THIS PROGRAM)
032838,000046: # SAME AS FOR KALCMANU
032839,000047: # ORIENT THE LEM TO RCS COLD SOAK ATTITUDE
032840,000048: # (S/C X-AXIS NORMAL TO THE ECLIPTIC AND BISECTOR
032841,000049: # OF +Z/-Y AXES TOWARD THE SUN)
032842,000050:
032843,000051: # START MISSION PHASE 16 WHEN MP TIMER 4 COUNTS TO ZERO
032844,000052:
032845,000053: 27,3522 04117 MP16JOB TC NEWMODEX # UPDATE PROGRAM NUMBER
032846,000054: 27,3523 00016 OCT 16 # ON DSKY
032847,000055:
032848,000056: 27,3524 02670 TC COLDSOAK # CALCULATE CDU ANGLES REQUIRED
032849,000057: 27,3525 37746 CAF PRIOKM # SCHEDULE KALCMANU
032850,000058: 27,3526 00004 INHINT
032851,000059: 27,3527 05516 TC FINDVAC
032852,000060: 27,3530 E6,1407 EBANK= EDOT
032853,000061: 27,3530 02067 70066 2CADR KALCMAN3
032854,000062:
032855,000063: 27,3532 00003 RELINT
032856,000064: 27,3533 10067 CCS NEWJOB # FORCE KALCMANU JOB ON
032857,000065: 27,3534 05532 TC CHANG1
032858,000066:
![]() |
Page 765 |
032860,000068: 27,3535 05206 TC BANKCALL # PUT JOB TO SLEEP TILL
032861,000069: 27,3536 26743 CADR ATTSTALL # MANEUVER COMPLETED
032862,000070: 27,3537 13540 NOOP # TC BADATT-SICK RETURN- ***FIX THIS***
032863,000071:
032864,000072: 27,3540 33551 CAF DEC1000 # GOOD RETURN--MAN. COMPLETED
032865,000073: 27,3541 00004 INHINT
032866,000074: 27,3542 05663 TC WAITLIST # WAIT 10 SECONDS
032867,000075: 27,3543 E6,1407 EBANK= EDOT
032868,000076: 27,3543 03552 56066 2CADR PHAS16A
032869,000077:
032870,000078: 27,3545 00003 RELINT
032871,000079: 27,3546 33550 CAF P16WAKE # PUT THIS JOB
032872,000080: 27,3547 05545 TC JOBSLEEP # TO SLEEP
032873,000081: 27,3550 57557 P16WAKE CADR PHAS16B
032874,000082: 27,3551 01750 DEC1000 DEC 1000 B-14
032875,000083: 27,3552 33550 PHAS16A CAF P16WAKE # REACTIVATE THE JOB
032876,000084: 27,3553 05551 TC JOBWAKE # THAT WAS PUT TO SLEEP
032877,000085: 27,3554 05270 TC IBNKCALL # DO DFI T/M CALIBRATION ROUTINE
032878,000086: 27,3555 56204 CADR DFITMCAL
032879,000087:
032880,000088: 27,3556 05727 TC TASKOVER
032881,000089:
032882,000090: # WAIT FOR COMPLETION OF CALIBRATION + 1 SECOND
032883,000091:
032884,000092: 27,3557 33606 PHAS16B CAF DEC1300 # 13 SECONDS
032885,000093: 27,3560 00004 INHINT
032886,000094: 27,3561 05663 TC WAITLIST
032887,000095: 27,3562 E6,1407 EBANK= EDOT
032888,000096: 27,3562 03565 56066 2CADR P16MXDB
032889,000097:
032890,000098: 27,3564 05567 TC ENDOFJOB
032891,000099: 27,3565 37747 P16MXDB CAF BIT13 # SELECT MAX DEADBAND FOR DAP-
032892,000100: 27,3566 26077 ADS DAPBOOLS # SET BIT 13 OF DAPBOOLS =1
032893,000101: 27,3567 05060 TC 1LMP # THRUSTER ISOL VALVES PR 3A CLOSE
032894,000102: 27,3570 00136 DEC 94 B-14
032895,000103: 27,3571 05060 TC 1LMP # THRUSTER ISOL VALVES 3B CLOSE
032896,000104: 27,3572 00156 DEC 110 B-14
032897,000105: 27,3573 33600 CAF DEC200 # WAIT 2 SECS
032898,000106: 27,3574 05663 TC WAITLIST
032899,000107: 27,3575 E6,1407 EBANK= EDOT
032900,000108: 27,3575 03601 56066 2CADR P16CLS
032901,000109:
032902,000110: 27,3577 05727 TC TASKOVER
032903,000111: 27,3600 00310 DEC200 DEC 200 B-14
032904,000112: 27,3601 05060 P16CLS TC 1LMP # THRUSTER ISOL VALVES PR 3A-
032905,000113: 27,3602 00137 DEC 95 B-14 # CLOSE RESET
032906,000114: 27,3603 05060 TC 1LMP # THRUSTER ISOL VALVES PR 3B-
032907,000115: 27,3604 00157 DEC 111 B-14 # CLOSE RESET
032908,000116: 27,3605 05727 TC TASKOVER
032909,000117: 27,3606 02424 DEC1300 DEC 1300 B-14
032910,000118:
End of include-file MISSION_PHASE_16-RCS_COLD_SOAK.agc. Parent file is MAIN.agc