ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041 20'35 OCT. 28,1968Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
This is the source-code for the Apollo 9 Command Module's Guidance Computer.
These files were derived originally from the scan from MIT's Dibner Institute's
now-discontinued website titled "History of Recent Science and Technology", which
in turn was originally created by Gary Neff, though his high-quality scans were
unfortunately reduced in legibility when presented online.
The markings on the front of the
printout imply that it was the original AGC developer Norm Brodeur's copy.
A scan by Ron Burkey has superceded it, made from a more-legible copy from the collection of original
AGC developer Fred Martin. The source code was transcribed from
those images by Ron Burkey. Note that the page images
presented online are of reduced quality, and that higher-quality images
are available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041 20'35 OCT. 28,1968Note that the date is the date of the printout, not the date of the program revision. |
060534,000002: ## Copyright: Public domain.
060535,000003: ## Filename: RESTARTS_ROUTINE.agc
060536,000004: ## Purpose: Part of the source code for Colossus, build 249.
060537,000005: ## It is part of the source code for the Command Module's (CM)
060538,000006: ## Apollo Guidance Computer (AGC), for Apollo 9.
060539,000007: ## Assembler: yaYUL
060540,000008: ## Reference: Starts on p. 1382
060541,000009: ## Contact: Ron Burkey <info@sandroid.org>.
060542,000010: ## Website: www.ibiblio.org/apollo.
060543,000011: ## Mod history: 08/30/04 RSB. Adapted from corresponding Luminary131 file.
060544,000012: ## 2010-10-24 JL Added missing # in comment.
060545,000013: ## 2017-01-06 RSB Page numbers now agree with those on the
060546,000014: ## original harcopy, as opposed to the PDF page
060547,000015: ## numbers in 1701.pdf.
060548,000016: ## 2017-01-18 RSB Cross-diff'd comment text (not whitespace)
060549,000017: ## vs the already-proofed corresponding Colossus
060550,000018: ## 237 and Comanche 55 source-code files
060551,000019: ## and corrected errors found.
060552,000020: ## 2017-03-14 RSB Comment-text fixes noted in proofing Luminary 116.
060553,000021:
060554,000022: ## The contents of the "Colossus249" files, in general, are transcribed
060555,000023: ## from a scanned copy of the program listing. Notations on this
060556,000024: ## document read, in part:
060557,000025: ##
060558,000026: ## Assemble revision 249 of AGC program Colossus by NASA
060559,000027: ## 2021111-041. October 28, 1968.
060560,000028: ##
060561,000029: ## This AGC program shall also be referred to as
060562,000030: ## Colossus 1A
060563,000031: ##
060564,000032: ## Prepared by
060565,000033: ## Massachusetts Institute of Technology
060566,000034: ## 75 Cambridge Parkway
060567,000035: ## Cambridge, Massachusetts
060568,000036: ## under NASA contract NAS 9-4065.
060569,000037: ##
060570,000038: ## Refer directly to the online document mentioned above for further information.
060571,000039: ## Please report any errors (relative to the scanned pages) to info@sandroid.org.
060572,000040: ##
060573,000041: ## In some cases, where the source code for Luminary 131 overlaps that of
060574,000042: ## Colossus 249, this code is instead copied from the corresponding Luminary 131
060575,000043: ## source file, and then is proofed to incorporate any changes.
060576,000044: ## source file, and then is proofed to incorporate any changes.
060577,000045:
|
|
Page 1382 |
060579,000047: 01,3520 BANK 01
060580,000048: 01,2000 SETLOC RESTART
060581,000049: 01,2000 BANK
060582,000050:
060583,000051: 01,3520 E3,1436 EBANK= PHSNAME1 # GOPROG MUST SWITCH TO THIS EBANK
060584,000052:
060585,000053: 01,3520 COUNT 01/RSROU
060586,000054:
060587,000055: 01,3520 30161 RESTARTS CA MPAC +5 # GET GROUP NUMBER -1
060588,000056: 01,3521 60000 DOUBLE # SAVE FOR INDEXING
060589,000057: 01,3522 54155 TS TEMP2G
060590,000058:
060591,000059: 01,3523 33762 CA PHS2CADR # SET UP EXIT IN CASE IT IS AN EVEN
060592,000060: 01,3524 54157 TS TEMPSWCH # TABLE PHASE
060593,000061:
060594,000062: 01,3525 33557 CA RTRNCADR # TO SAVE TIME ASSUME IT WILL GET NEXT
060595,000063: 01,3526 54707 TS GOLOC +2 # GROUP AFTER THIS
060596,000064:
060597,000065: 01,3527 30154 CA TEMPPHS
060598,000066: 01,3530 74744 MASK OCT1400
060599,000067: 01,3531 10000 CCS A # IS IT A VARIABLE OR TABLE RESTART
060600,000068: 01,3532 13543 TCF ITSAVAR # IT:S A VARIABLE RESTART
060601,000069:
060602,000070: 01,3533 10154 GETPART2 CCS TEMPPHS # IS IT AN X.1 RESTART
060603,000071: 01,3534 10000 CCS A
060604,000072: 01,3535 13643 TCF ITSATBL # NO, ITS A TABLE RESTART
060605,000073:
060606,000074: 01,3536 34761 CA PRIO14 # IT IS AN X.1 RESTART, THEREFORE START
060607,000075: 01,3537 05042 TC FINDVAC # THE DISPLAY RESTART JOB
060608,000076: 01,3540 E3,1400 EBANK= LST1
060609,000077: 01,3540 03165 20103 2CADR INITDSP
060610,000078:
060611,000079: 01,3542 03557 TC RTRNCADR # FINISHED WITH THIS GROUP, GET NEXT ONE
060612,000080:
060613,000081: 01,3543 74744 ITSAVAR MASK OCT1400 # IS IT TYPE B ?
060614,000082: 01,3544 10000 CCS A
060615,000083: 01,3545 13614 TCF ITSLIKEB # YES, IT IS TYPE B
060616,000084:
060617,000085: 01,3546 00006 EXTEND # STORE THE JOB (OR TASK) 2CADR FOR EXIT
060618,000086: 01,3547 50155 NDX TEMP2G
060619,000087: 01,3550 31437 DCA PHSNAME1
060620,000088: 01,3551 52706 DXCH GOLOC
060621,000089:
060622,000090: 01,3552 30154 CA TEMPPHS # SEE IF THIS IS A JOB, TASK, OR A LONGCAL
060623,000091: 01,3553 74716 MASK OCT7
060624,000092: 01,3554 67715 AD MINUS2
060625,000093: 01,3555 10000 CCS A
060626,000094: 01,3556 13726 TCF ITSLNGCL # ITS A LONGCALL
060627,000095:
|
|
Page 1383 |
060629,000097: 01,3557 04570 RTRNCADR TC SWRETURN # CANT GET HERE
060630,000098: 01,3560 13562 TCF ITSAWAIT
060631,000099:
060632,000100: 01,3561 13627 TCF ITSAJOB # ITS A JOB
060633,000101:
060634,000102: 01,3562 33766 ITSAWAIT CA WTLTCADR # SET UP WAITLIST CALL
060635,000103: 01,3563 54704 TS GOLOC -1
060636,000104:
060637,000105: 01,3564 50155 NDX TEMP2G # DIRECTLY STORED
060638,000106: 01,3565 31054 CA PHSPRDT1
060639,000107: 01,3566 10000 TIMETEST CCS A # IS IT AN IMMEDIATE RESTART
060640,000108: 01,3567 24000 INCR A # NO,
060641,000109: 01,3570 13573 TCF FINDTIME # FIND OUT WHEN IT SHOULD BEGIN
060642,000110:
060643,000111: 01,3571 15367 TCF ITSINDIR # STORED INDIRECTLY
060644,000112:
060645,000113: 01,3572 13612 TCF IMEDIATE # IT WANTS AN IMMEDIATE RESTART
060646,000114:
060647,000115: # ***** THIS MUST BE IN FIXED FIXED *****
060648,000116:
060649,000117: 5367 BLOCK 02
060650,000118: 4000 SETLOC FFTAG2
060651,000119: 4000 BANK
060652,000120:
060653,000121: 5367 COUNT 02/RSROU
060654,000122:
060655,000123: 5367 22706 ITSINDIR LXCH GOLOC +1 # GET THE CORRECT E BANK IN CASE THIS IS
060656,000124: 5370 22006 LXCH BB # SWITCHED ERRASIBLE
060657,000125:
060658,000126: 5371 50000 NDX A # GET THE TIME INDIRECTLY
060659,000127: 5372 30001 CA 1
060660,000128:
060661,000129: 5373 22006 LXCH BB # RESTORE THE BB AND GOLOC
060662,000130: 5374 22706 LXCH GOLOC +1
060663,000131:
060664,000132: 5375 13573 TCF FINDTIME # FIND OUT WHEN IT SHOULD BEGIN
060665,000133:
060666,000134: # ***** YOU MAY RETURN TO SWITCHED FIXED *****
060667,000135:
060668,000136: 01,3573 BANK 01
060669,000137: 01,2000 SETLOC RESTART
060670,000138: 01,2000 BANK
060671,000139:
060672,000140: 01,3573 COUNT 01/RSROU
060673,000141:
060674,000142: 01,3573 40000 FINDTIME COM # MAKE NEGITIVE SINCE IT WILL BE SUBTRACTD
060675,000143: 01,3574 54001 TS L # AND SAVE
060676,000144: 01,3575 50155 NDX TEMP2G
060677,000145: 01,3576 41053 CS TBASE1
060678,000146: 01,3577 00006 EXTEND
|
|
Page 1384 |
060680,000148: 01,3600 60025 SU TIME1
060681,000149: 01,3601 10000 CCS A
060682,000150: 01,3602 40000 COM
060683,000151: 01,3603 67700 AD OCT37776
060684,000152: 01,3604 64712 AD ONE
060685,000153: 01,3605 60001 AD L
060686,000154: 01,3606 10000 CCS A
060687,000155: 01,3607 34714 CA ZERO
060688,000156: 01,3610 13612 TCF +2
060689,000157: 01,3611 13612 TCF +1
060690,000158: 01,3612 64712 IMEDIATE AD ONE
060691,000159: 01,3613 00704 TC GOLOC -1
060692,000160: 01,3614 33557 ITSLIKEB CA RTRNCADR # TYPE B, SO STORE RETURN IN
060693,000161: 01,3615 54157 TS TEMPSWCH # TEMPSWCH IN CASE OF AN EVEN PHASE
060694,000162:
060695,000163: 01,3616 33763 CA PRT2CADR # SET UP EXIT TO GET TABLE PART OF THIS
060696,000164: 01,3617 54707 TS GOLOC +2 # VARIABLE TYPE OF PHASE
060697,000165:
060698,000166: 01,3620 30154 CA TEMPPHS # MAKE THE PHASE LOOK RIGHT FOR THE TABLE
060699,000167: 01,3621 76043 MASK OCT177 # PART OF THIS VARIABLE PHASE
060700,000168: 01,3622 54154 TS TEMPPHS
060701,000169:
060702,000170: 01,3623 00006 EXTEND
060703,000171: 01,3624 50155 NDX TEMP2G # OBTAIN THE JOB:S 2CADR
060704,000172: 01,3625 31437 DCA PHSNAME1
060705,000173: 01,3626 52706 DXCH GOLOC
060706,000174:
060707,000175: 01,3627 50155 ITSAJOB NDX TEMP2G # NOW ADD THE PRIORITY AND LET:S GO
060708,000176: 01,3630 31054 CA PHSPRDT1
060709,000177: 01,3631 54704 CHKNOVAC TS GOLOC -1 # SAVE PRIO UNTIL WE SEE IF ITS
060710,000178: 01,3632 00006 EXTEND # A FINDVAC OR A NOVAC
060711,000179: 01,3633 63637 BZMF ITSNOVAC
060712,000180:
060713,000181: 01,3634 33765 CAF FVACCADR # POSITIVE, SET UP FINDVAC CALL.
060714,000182: 01,3635 56704 XCH GOLOC -1 # PICK UP PRIO,
060715,000183: 01,3636 00704 TC GOLOC -1 # AND GO
060716,000184:
060717,000185: 01,3637 33767 ITSNOVAC CAF NOVACADR # NEGATIVE,
060718,000186: 01,3640 56704 XCH GOLOC -1 # SET UP NOVAC CALL,
060719,000187: 01,3641 40000 COM # CORRECT PRIO,
060720,000188: 01,3642 00704 TC GOLOC -1 # AND GO
060721,000189:
060722,000190: 01,3643 54020 ITSATBL TS CYR # FIND OUT IF THE PHASE IS ODD OR EVEN
060723,000191: 01,3644 10020 CCS CYR
060724,000192: 01,3645 13646 TCF +1 # IT:S EVEN
060725,000193: 01,3646 13744 TCF ITSEVEN
060726,000194:
060727,000195: 01,3647 33557 CA RTRNCADR # IN CASE THIS IS THE SECOND PART OF A
060728,000196: 01,3650 54707 TS GOLOC +2 # TYPE B RESTART, WE NEED PROPER EXIT
|
|
Page 1385 |
060730,000198: 01,3651 30154 CA TEMPPHS # SET UP POINTER FOR FINDING OUR PLACE IN
060731,000199: 01,3652 54021 TS SR # THE RESTART TABLES
060732,000200: 01,3653 60021 AD SR
060733,000201: 01,3654 50155 NDX TEMP2G
060734,000202: 01,3655 62001 AD SIZETAB +1
060735,000203: 01,3656 54156 TS POINTER
060736,000204:
060737,000205: 01,3657 00006 CONTBL2 EXTEND # FIND OUT WHAT:S IN THE TABLE
060738,000206: 01,3660 50156 NDX POINTER
060739,000207: 01,3661 32002 DCA CADRTAB # GET THE 2CADR
060740,000208:
060741,000209: 01,3662 22706 LXCH GOLOC +1 # STORE THE BB INFORMATION
060742,000210:
060743,000211: 01,3663 10000 CCS A # IS IT A JOB OR IS IT TIMED
060744,000212: 01,3664 24000 INCR A # POSITIVE, MUST BE A JOB
060745,000213: 01,3665 13740 TCF ITSAJOB2
060746,000214:
060747,000215: 01,3666 24000 INCR A # MUST BE EITHER A WAITLIST OR LONGCALL
060748,000216: 01,3667 54705 TS GOLOC # LET-S STORE THE CORRECT CADR
060749,000217:
060750,000218: 01,3670 33766 CA WTLTCADR # SET UP OUR EXIT TO WAITLIST
060751,000219: 01,3671 54704 TS GOLOC -1
060752,000220:
060753,000221: 01,3672 30706 CA GOLOC +1 # NOW FIND OUT IF IT IS A WAITLIST CALL
060754,000222: 01,3673 74701 MASK BIT10 # THIS SHOULD BE ONE IF WE HAVE -BB
060755,000223: 01,3674 10000 CCS A # FOR THAT MATTER SO SHOULD BE BITS 9,8,7,
060756,000224: # 6,5, AND LAST BUT NOT LEAST (PERHAPS NOT
060757,000225: # IN IMPORTANCE ANYWAY. BIT 4
060758,000226: 01,3675 13733 TCF ITSWTLST # IT IS A WAITLIST CALL
060759,000227:
060760,000228: 01,3676 50156 NDX POINTER # OBTAIN THE ORIGINAL DELTA T
060761,000229: 01,3677 32000 CA PRDTTAB # ADDRESS FOR THIS LONGCALL
060762,000230:
060763,000231: 01,3700 15376 TCF ITSLGCL1 # NOW GO GET THE DELTA TIME
060764,000232:
060765,000233: # ***** THIS MUST BE IN FIXED FIXED *****
060766,000234:
060767,000235: 5376 BLOCK 02
060768,000236: 4000 SETLOC FFTAG2
060769,000237: 4000 BANK
060770,000238:
060771,000239: 5376 COUNT 02/RSROU
060772,000240:
060773,000241: 5376 22706 ITSLGCL1 LXCH GOLOC +1 # OBTAIN THE CORRECT E BANK
060774,000242: 5377 22006 LXCH BB
060775,000243: 5400 22706 LXCH GOLOC +1 # AND PRESERVE OUR E AND F BANKS
060776,000244:
060777,000245: 5401 00006 EXTEND # GET THE DELTA TIME
060778,000246: 5402 50000 NDX A
060779,000247: 5403 30001 DCA 0
|
|
Page 1386 |
060781,000249: 5404 22706 LXCH GOLOC +1 # RESTORE OUR E AND F BANK
060782,000250: 5405 22006 LXCH BB # RESTORE THE TASKS E AND F BANKS
060783,000251: 5406 22706 LXCH GOLOC +1 # AND PRESERVE OUR L
060784,000252: 5407 13701 TCF ITSLGCL2 # NOW LET:S PROCESS THIS LONGCALL
060785,000253:
060786,000254: # ***** YOU MAY RETURN TO SWITCHED FIXED *****
060787,000255:
060788,000256: 01,3701 BANK 01
060789,000257: 01,2000 SETLOC RESTART
060790,000258: 01,2000 BANK
060791,000259:
060792,000260: 01,3701 COUNT 01/RSROU
060793,000261: 01,3701 53140 ITSLGCL2 DXCH LONGTIME
060794,000262:
060795,000263: 01,3702 00006 EXTEND # CALCULATE TIME LEFT
060796,000264: 01,3703 40025 DCS TIME2
060797,000265: 01,3704 21140 DAS LONGTIME
060798,000266: 01,3705 00006 EXTEND
060799,000267: 01,3706 31136 DCA LONGBASE
060800,000268: 01,3707 21140 DAS LONGTIME
060801,000269:
060802,000270: 01,3710 11137 CCS LONGTIME # FIND OUT HOW THIS SHOULD BE RESTARTED
060803,000271: 01,3711 13721 TCF LONGCLCL
060804,000272: 01,3712 13714 TCF +2
060805,000273: 01,3713 13607 TCF IMEDIATE -3
060806,000274: 01,3714 11140 CCS LONGTIME +1
060807,000275: 01,3715 13721 TCF LONGCLCL
060808,000276: 01,3716 13717 NOOP # CAN:T GET HERE *********
060809,000277: 01,3717 13607 TCF IMEDIATE -3
060810,000278: 01,3720 13612 TCF IMEDIATE
060811,000279:
060812,000280: 01,3721 33764 LONGCLCL CA LGCLCADR # WE WILL GO TO LONGCALL
060813,000281: 01,3722 54704 TS GOLOC -1
060814,000282:
060815,000283: 01,3723 00006 EXTEND # PREPARE OUR ENTRY TO LONGCALL
060816,000284: 01,3724 31140 DCA LONGTIME
060817,000285: 01,3725 00704 TC GOLOC -1
060818,000286:
060819,000287: 01,3726 33766 ITSLNGCL CA WTLTCADR # ASSUME IT WILL GO TO WAITLIST
060820,000288: 01,3727 54704 TS GOLOC -1
060821,000289:
060822,000290: 01,3730 50155 NDX TEMP2G
060823,000291: 01,3731 41054 CS PHSPRDT1 # GET THE DELTA T ADDRESS
060824,000292:
060825,000293: 01,3732 15376 TCF ITSLGCL1 # NOW GET THE DELTA TIME
060826,000294:
060827,000295: 01,3733 40706 ITSWTLST CS GOLOC +1 # CORRECT THE BBCON INFORMATION
060828,000296: 01,3734 54706 TS GOLOC +1
|
|
Page 1387 |
060830,000298: 01,3735 50156 NDX POINTER # GET THE DT AND FIND OUT IF IT WAS STORED
060831,000299: 01,3736 32000 CA PRDTTAB # DIRECTLY OR INDIRECTLY
060832,000300:
060833,000301: 01,3737 13566 TCF TIMETEST # FIND OUT HOW THE TIME IS STORED
060834,000302:
060835,000303: 01,3740 56705 ITSAJOB2 XCH GOLOC # STORE THE CADR
060836,000304:
060837,000305: 01,3741 50156 NDX POINTER # ADD THE PRIORITY AND LET:S GO
060838,000306: 01,3742 32000 CA PRDTTAB
060839,000307:
060840,000308: 01,3743 13631 TCF CHKNOVAC
060841,000309:
060842,000310: 01,3744 30157 ITSEVEN CA TEMPSWCH # SET UP FOR EITHER THE SECOND PART OF THE
060843,000311: 01,3745 54707 TS GOLOC +2 # TABLE, OR A RETURN FOR THE NEXT GROUP
060844,000312:
060845,000313: 01,3746 50155 NDX TEMP2G # SET UP POINTER FOR OUR LOCATION WITHIN
060846,000314: 01,3747 32000 CA SIZETAB # THE TABLE
060847,000315: 01,3750 60154 AD TEMPPHS # THIS MAY LOOK BAD BUT LET:S SEE YOU DO
060848,000316: 01,3751 60154 AD TEMPPHS # BETTER IN TIME OR NUMBERR OF LOCATIONS
060849,000317: 01,3752 60154 AD TEMPPHS
060850,000318: 01,3753 54156 TS POINTER
060851,000319:
060852,000320: 01,3754 13657 TCF CONTBL2 # NOW PROCESS WHAT IS IN THE TABLE
060853,000321:
060854,000322: 01,3755 36214 PHSPART2 CA THREE # SET THE POINTER FOR THE SECOND HALF OF
060855,000323: 01,3756 26156 ADS POINTER # THE TABLE
060856,000324:
060857,000325: 01,3757 33557 CA RTRNCADR # THIS WILL BE OUR LAST TIME THROUGH THE
060858,000326: 01,3760 54707 TS GOLOC +2 # EVEN TABLE, SO AFTER IT GET THE NEXT
060859,000327: # GROUP
060860,000328: 01,3761 13657 TCF CONTBL2 # SO LET:S GET THE SECOND ENTRY IN THE TBL
060861,000329:
060862,000330: 01,3762 0154 TEMPPHS EQUALS MPAC
060863,000331: 01,3762 0155 TEMP2G EQUALS MPAC +1
060864,000332: 01,3762 0156 POINTER EQUALS MPAC +2
060865,000333: 01,3762 0157 TEMPSWCH EQUALS MPAC +3
060866,000334: 01,3762 0705 GOLOC EQUALS VAC5 +20D
060867,000335: 01,3762 7715 MINUS2 EQUALS NEG2
060868,000336: 01,3762 6043 OCT177 EQUALS LOW7
060869,000337:
060870,000338: 01,3762 03755 PHS2CADR GENADR PHSPART2
060871,000339: 01,3763 03533 PRT2CADR GENADR GETPART2
060872,000340: 01,3764 05231 LGCLCADR GENADR LONGCALL
060873,000341: 01,3765 05042 FVACCADR GENADR FINDVAC
060874,000342: 01,3766 05140 WTLTCADR GENADR WAITLIST
060875,000343: 01,3767 05027 NOVACADR GENADR NOVAC
060876,000344:
060877,000345:
060878,000346:
060879,000347:
End of include-file RESTARTS_ROUTINE.agc. Parent file is MAIN.agc