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. |
032195,000002: ## Copyright: Public domain.
032196,000003: ## Filename: MISSION_PHASE_16_-_RCS_COLD_SOAK.agc
032197,000004: ## Purpose: A section of Sunburst revision 37, or Shepatin revision 0.
032198,000005: ## It is part of an early development version of the software
032199,000006: ## for Apollo Guidance Computer (AGC) on the unmanned Lunar
032200,000007: ## Module (LM) flight Apollo 5. Sunburst 37 was the program
032201,000008: ## upon which Don Eyles's offline development program Shepatin
032202,000009: ## was based; the listing herein transcribed was actually for
032203,000010: ## the equivalent revision 0 of Shepatin.
032204,000011: ## This file is intended to be a faithful transcription, except
032205,000012: ## that the code format has been changed to conform to the
032206,000013: ## requirements of the yaYUL assembler rather than the
032207,000014: ## original YUL assembler.
032208,000015: ## Reference: pp. 711-712
032209,000016: ## Assembler: yaYUL
032210,000017: ## Contact: Ron Burkey <info@sandroid.org>.
032211,000018: ## Website: www.ibiblio.org/apollo/index.html
032212,000019: ## Mod history: 2017-05-24 MAS Created from Sunburst 120.
032213,000020: ## 2017-06-08 HG Transcribed
032214,000021: ## 2017-06-23 RSB Proofed comment text with
032215,000022: ## octopus/ProoferComments.
032216,000023:
![]() |
Page 711 |
032218,000025: 27,3404 BANK 27
032219,000026: 27,3404 E6,1407 EBANK= EDOT
032220,000027: # PROGRAM DESCRIPTION
032221,000028: # MOD NO- 0 LOG SECTION-
032222,000029: # ******** NOTE- MP16 NOT UP TO DATE ********
032223,000030: # RCS COLD SOAK
032224,000031: # FUNCTIONAL DESCRIPTION-
032225,000032: # CHANGE ATTITUDE OF SPACECRAFT TO REQUIRED
032226,000033: # ATTITUDE FOR COLD SOAK PHASES.
032227,000034: # ISSUE LMP COMMANDS, ETC.
032228,000035: # ACCORDING TO GSOP.
032229,000036: # CALLING SEQUENCE-
032230,000037: # START MP 16 WHEN MISSION TIMER 4
032231,000038: # COUNTS TO ZERO.
032232,000039: # SUBROUTINES CALLED-
032233,000040: # BANKCALL
032234,000041: # DFI T/M CAL. ROUTINE
032235,000042: # EXECUTIVE
032236,000043: # LEM MISSION PROGRAMMER
032237,000044: # KALCMANU
032238,000045: # WAITLIST
032239,000046: # NORMAL EXIT MODES-
032240,000047: # TC ENDOFJOB/TASKOVER
032241,000048: # ALARM OR ABORT EXIT MODES- NONE
032242,000049: # OUTPUT- (INTERFACE, DISPLAYS, MEANINGFUL INFORMATIONLEFT IN ERASABLE).
032243,000050: # SAME AS FOR KALCMANU EXCEPT-
032244,000051: # BIT 13 OF DAPBOOLS IS SET TO 1 BEFORE EXIT.
032245,000052: # ERASABLE INITIALIZATION REQUIRED-
032246,000053: # TEPHEM IN CENTISECONDS TRIPLE PRECISION
032247,000054: # DEBRIS- (ERASABLE LOCATIONS DESTROYED BY THIS PROGRAM)
032248,000055: # SAME AS FOR KALCMANU
032249,000056: # ORIENT THE LEM TO RCS COLD SOAK ATTITUDE
032250,000057: # (S/C X-AXIS NORMAL TO THE ECLIPTIC AND BISECTOR
032251,000058: # OF +Z/-Y AXES TOWARD THE SUN)
032252,000059:
032253,000060: # START MISSION PHASE 16 WHEN MP TIMER 4 COUNTS TO ZERO
032254,000061:
032255,000062: 27,3404 04105 MP16JOB TC NEWMODEX # UPDATE PROGRAM NUMBER
032256,000063: 27,3405 00016 OCT 16 # ON DSKY
032257,000064:
032258,000065: 27,3406 02655 TC COLDSOAK # CALCULATE CDU ANGLES REQUIRED
032259,000066: 27,3407 37740 CAF PRIOKM # SCHEDULE KALCMANU
032260,000067: 27,3410 00004 INHINT
032261,000068: 27,3411 05534 TC FINDVAC
032262,000069: 27,3412 E6,1407 EBANK= EDOT
032263,000070: 27,3412 02067 70066 2CADR KALCMAN3
032264,000071:
032265,000072: 27,3414 00003 RELINT
032266,000073: 27,3415 10067 CCS NEWJOB # FORCE KALCMANU JOB ON
032267,000074: 27,3416 05550 TC CHANG1
032268,000075:
![]() |
Page 712 |
032270,000077: 27,3417 05224 TC BANKCALL # PUT JOB TO SLEEP TILL
032271,000078: 27,3420 26754 CADR ATTSTALL # MANEUVER COMPLETED
032272,000079: 27,3421 13422 NOOP # TC BADATT-SICK RETURN- ***FIX THIS***
032273,000080:
032274,000081: 27,3422 33433 CAF DEC1000 # GOOD RETURN--MAN. COMPLETED
032275,000082: 27,3423 00004 INHINT
032276,000083: 27,3424 05701 TC WAITLIST # WAIT 10 SECONDS
032277,000084: 27,3425 E6,1407 EBANK= EDOT
032278,000085: 27,3425 03434 56006 2CADR PHAS16A
032279,000086:
032280,000087: 27,3427 00003 RELINT
032281,000088: 27,3430 33432 CAF P16WAKE # PUT THIS JOB
032282,000089: 27,3431 05563 TC JOBSLEEP # TO SLEEP
032283,000090: 27,3432 57441 P16WAKE CADR PHAS16B
032284,000091: 27,3433 01750 DEC1000 DEC 1000 B-14
032285,000092: 27,3434 33432 PHAS16A CAF P16WAKE # REACTIVATE THE JOB
032286,000093: 27,3435 05567 TC JOBWAKE # THAT WAS PUT TO SLEEP
032287,000094: 27,3436 05307 TC IBNKCALL # DO DFI T/M CALIBRATION ROUTINE
032288,000095: 27,3437 56211 CADR DFITMCAL
032289,000096:
032290,000097: 27,3440 05745 TC TASKOVER
032291,000098:
032292,000099: # WAIT FOR COMPLETION OF CALIBRATION + 1 SECOND
032293,000100:
032294,000101: 27,3441 33470 PHAS16B CAF DEC1300 # 13 SECONDS
032295,000102: 27,3442 00004 INHINT
032296,000103:
032297,000104: 27,3443 05701 TC WAITLIST
032298,000105: 27,3444 E6,1407 EBANK= EDOT
032299,000106: 27,3444 03447 56006 2CADR P16MXDB
032300,000107:
032301,000108: 27,3446 05605 TC ENDOFJOB
032302,000109: 27,3447 37741 P16MXDB CAF BIT13 # SELECT MAX DEADBAND FOR DAP-
032303,000110: 27,3450 26077 ADS DAPBOOLS # SET BIT 13 OF DAPBOOLS =1
032304,000111: 27,3451 05073 TC 1LMP # THRUSTER ISOL VALVES PR 3A CLOSE
032305,000112: 27,3452 00136 DEC 94 B-14
032306,000113: 27,3453 05073 TC 1LMP # THRUSTER ISOL VALVES 3B CLOSE
032307,000114: 27,3454 00156 DEC 110 B-14
032308,000115: 27,3455 33462 CAF DEC200 # WAIT 2 SECS
032309,000116: 27,3456 05701 TC WAITLIST
032310,000117: 27,3457 E6,1407 EBANK= EDOT
032311,000118: 27,3457 03463 56006 2CADR P16CLS
032312,000119:
032313,000120: 27,3461 05745 TC TASKOVER
032314,000121: 27,3462 00310 DEC200 DEC 200 B-14
032315,000122: 27,3463 05073 P16CLS TC 1LMP # THRUSTER ISOL VALVES PR 3A-
032316,000123: 27,3464 00137 DEC 95 B-14 # CLOSE RESET
032317,000124: 27,3465 05073 TC 1LMP # THRUSTER ISOL VALVES PR 3B-
032318,000125: 27,3466 00157 DEC 111 B-14 # CLOSE RESET
032319,000126: 27,3467 05745 TC TASKOVER
032320,000127: 27,3470 02424 DEC1300 DEC 1300 B-14
End of include-file MISSION_PHASE_16_-_RCS_COLD_SOAK.agc. Parent file is MAIN.agc