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. |
032813,000002: ## Copyright: Public domain.
032814,000003: ## Filename: MISSION_PHASE_16-RCS_COLD_SOAK.agc
032815,000004: ## Purpose: A module for revision 0 of BURST120 (Sunburst). It
032816,000005: ## is part of the source code for the Lunar Module's
032817,000006: ## (LM) Apollo Guidance Computer (AGC) for Apollo 5.
032818,000007: ## Assembler: yaYUL
032819,000008: ## Contact: Ron Burkey <info@sandroid.org>.
032820,000009: ## Website: www.ibiblio.org/apollo/index.html
032821,000010: ## Mod history: 2016-09-30 RSB Created draft version.
032822,000011: ## 2016-10-29 MAS Transcribed.
032823,000012: ## 2016-12-06 RSB Comments proofed using octopus/ProoferComments,
032824,000013: ## no changes made.
032825,000014:
![]() |
Page 764 |
032827,000016: 27,3522 BANK 27
032828,000017: 27,3522 E6,1407 EBANK= EDOT
032829,000018: # PROGRAM DESCRIPTION
032830,000019: # MOD NO- 0 LOG SECTION-
032831,000020: # ******** NOTE- MP16 NOT UP TO DATE ********
032832,000021: # RCS COLD SOAK
032833,000022: # FUNCTIONAL DESCRIPTION-
032834,000023: # CHANGE ATTITUDE OF SPACECRAFT TO REQUIRED
032835,000024: # ATTITUDE FOR COLD SOAK PHASES.
032836,000025: # ISSUE LMP COMMANDS, ETC.
032837,000026: # ACCORDING TO GSOP.
032838,000027: # CALLING SEQUENCE-
032839,000028: # START MP 16 WHEN MISSION TIMER 4
032840,000029: # COUNTS TO ZERO.
032841,000030: # SUBROUTINES CALLED-
032842,000031: # BANKCALL
032843,000032: # DFI T/M CAL. ROUTINE
032844,000033: # EXECUTIVE
032845,000034: # LEM MISSION PROGRAMMER
032846,000035: # KALCMANU
032847,000036: # WAITLIST
032848,000037: # NORMAL EXIT MODES-
032849,000038: # TC ENDOFJOB/TASKOVER
032850,000039: # ALARM OR ABORT EXIT MODES- NONE
032851,000040: # OUTPUT- (INTERFACE, DISPLAYS, MEANINGFUL INFORMATIONLEFT IN ERASABLE).
032852,000041: # SAME AS FOR KALCMANU EXCEPT-
032853,000042: # BIT 13 OF DAPBOOLS IS SET TO 1 BEFORE EXIT.
032854,000043: # ERASABLE INITIALIZATION REQUIRED-
032855,000044: # TEPHEM IN CENTISECONDS TRIPLE PRECISION
032856,000045: # DEBRIS- (ERASABLE LOCATIONS DESTROYED BY THIS PROGRAM)
032857,000046: # SAME AS FOR KALCMANU
032858,000047: # ORIENT THE LEM TO RCS COLD SOAK ATTITUDE
032859,000048: # (S/C X-AXIS NORMAL TO THE ECLIPTIC AND BISECTOR
032860,000049: # OF +Z/-Y AXES TOWARD THE SUN)
032861,000050:
032862,000051: # START MISSION PHASE 16 WHEN MP TIMER 4 COUNTS TO ZERO
032863,000052:
032864,000053: 27,3522 04117 MP16JOB TC NEWMODEX # UPDATE PROGRAM NUMBER
032865,000054: 27,3523 00016 OCT 16 # ON DSKY
032866,000055:
032867,000056: 27,3524 02670 TC COLDSOAK # CALCULATE CDU ANGLES REQUIRED
032868,000057: 27,3525 37746 CAF PRIOKM # SCHEDULE KALCMANU
032869,000058: 27,3526 00004 INHINT
032870,000059: 27,3527 05516 TC FINDVAC
032871,000060: 27,3530 E6,1407 EBANK= EDOT
032872,000061: 27,3530 02067 70066 2CADR KALCMAN3
032873,000062:
032874,000063: 27,3532 00003 RELINT
032875,000064: 27,3533 10067 CCS NEWJOB # FORCE KALCMANU JOB ON
032876,000065: 27,3534 05532 TC CHANG1
032877,000066:
![]() |
Page 765 |
032879,000068: 27,3535 05206 TC BANKCALL # PUT JOB TO SLEEP TILL
032880,000069: 27,3536 26743 CADR ATTSTALL # MANEUVER COMPLETED
032881,000070: 27,3537 13540 NOOP # TC BADATT-SICK RETURN- ***FIX THIS***
032882,000071:
032883,000072: 27,3540 33551 CAF DEC1000 # GOOD RETURN--MAN. COMPLETED
032884,000073: 27,3541 00004 INHINT
032885,000074: 27,3542 05663 TC WAITLIST # WAIT 10 SECONDS
032886,000075: 27,3543 E6,1407 EBANK= EDOT
032887,000076: 27,3543 03552 56066 2CADR PHAS16A
032888,000077:
032889,000078: 27,3545 00003 RELINT
032890,000079: 27,3546 33550 CAF P16WAKE # PUT THIS JOB
032891,000080: 27,3547 05545 TC JOBSLEEP # TO SLEEP
032892,000081: 27,3550 57557 P16WAKE CADR PHAS16B
032893,000082: 27,3551 01750 DEC1000 DEC 1000 B-14
032894,000083: 27,3552 33550 PHAS16A CAF P16WAKE # REACTIVATE THE JOB
032895,000084: 27,3553 05551 TC JOBWAKE # THAT WAS PUT TO SLEEP
032896,000085: 27,3554 05270 TC IBNKCALL # DO DFI T/M CALIBRATION ROUTINE
032897,000086: 27,3555 56204 CADR DFITMCAL
032898,000087:
032899,000088: 27,3556 05727 TC TASKOVER
032900,000089:
032901,000090: # WAIT FOR COMPLETION OF CALIBRATION + 1 SECOND
032902,000091:
032903,000092: 27,3557 33606 PHAS16B CAF DEC1300 # 13 SECONDS
032904,000093: 27,3560 00004 INHINT
032905,000094: 27,3561 05663 TC WAITLIST
032906,000095: 27,3562 E6,1407 EBANK= EDOT
032907,000096: 27,3562 03565 56066 2CADR P16MXDB
032908,000097:
032909,000098: 27,3564 05567 TC ENDOFJOB
032910,000099: 27,3565 37747 P16MXDB CAF BIT13 # SELECT MAX DEADBAND FOR DAP-
032911,000100: 27,3566 26077 ADS DAPBOOLS # SET BIT 13 OF DAPBOOLS =1
032912,000101: 27,3567 05060 TC 1LMP # THRUSTER ISOL VALVES PR 3A CLOSE
032913,000102: 27,3570 00136 DEC 94 B-14
032914,000103: 27,3571 05060 TC 1LMP # THRUSTER ISOL VALVES 3B CLOSE
032915,000104: 27,3572 00156 DEC 110 B-14
032916,000105: 27,3573 33600 CAF DEC200 # WAIT 2 SECS
032917,000106: 27,3574 05663 TC WAITLIST
032918,000107: 27,3575 E6,1407 EBANK= EDOT
032919,000108: 27,3575 03601 56066 2CADR P16CLS
032920,000109:
032921,000110: 27,3577 05727 TC TASKOVER
032922,000111: 27,3600 00310 DEC200 DEC 200 B-14
032923,000112: 27,3601 05060 P16CLS TC 1LMP # THRUSTER ISOL VALVES PR 3A-
032924,000113: 27,3602 00137 DEC 95 B-14 # CLOSE RESET
032925,000114: 27,3603 05060 TC 1LMP # THRUSTER ISOL VALVES PR 3B-
032926,000115: 27,3604 00157 DEC 111 B-14 # CLOSE RESET
032927,000116: 27,3605 05727 TC TASKOVER
032928,000117: 27,3606 02424 DEC1300 DEC 1300 B-14
032929,000118:
End of include-file MISSION_PHASE_16-RCS_COLD_SOAK.agc. Parent file is MAIN.agc