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