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