Source Code
|
These source-code files are part of a reconstructed copy of Comanche 051, the
original release of the Apollo 11 Command Module (CM) Apollo Guidance Computer
(AGC) software.
The reconstruction began with source code of Comanche 055 previously transcribed
from a digitized copy of that program. The code was then updated by undoing
changes related to the R-2 lunar potential model, using hints from program
comments and change-indicating asterisks in the Comanche 055 listing as a guide.
The reconstruction was verified by matching memory-bank checksums to those listed
in drawing 2021153D. Note that page numbers in the reconstructed code match those
on the Comanche 055 printout, although the added code would likely have changed page
numbers for a real Comanche 051 listing.
Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". Report any errors
noted by creating an
issue report at the Virtual AGC
project's GitHub repository.
|
060046,000002: ## Copyright: Public domain.
060047,000003: ## Filename: RESTARTS_ROUTINE.agc
060048,000004: ## Purpose: A section of Comanche revision 051.
060049,000005: ## It is part of the reconstructed source code for the
060050,000006: ## original release of the flight software for the Command
060051,000007: ## Module's (CM) Apollo Guidance Computer (AGC) for Apollo 11.
060052,000008: ## The code has been recreated from a copy of Comanche 055. It
060053,000009: ## has been adapted such that the resulting bugger words
060054,000010: ## exactly match those specified for Comanche 51 in NASA drawing
060055,000011: ## 2021153D, which gives relatively high confidence that the
060056,000012: ## reconstruction is correct.
060057,000013: ## Reference: pp. 1414-1419
060058,000014: ## Assembler: yaYUL
060059,000015: ## Contact: Ron Burkey <info@sandroid.org>.
060060,000016: ## Website: www.ibiblio.org/apollo/index.html
060061,000017: ## Mod history: 2019-07-30 MAS Created from Comanche 55.
060062,000018:
|
|
Page 1414
|
060064,000020: 01,3520 BANK 01
060065,000021: 01,2000 SETLOC RESTART
060066,000022: 01,2000 BANK
060067,000023:
060068,000024: 01,3520 E3,1436 EBANK= PHSNAME1 # GOPROG MUST SWITCH TO THIS EBANK
060069,000025:
060070,000026: 01,3520 COUNT 01/RSROU
060071,000027:
060072,000028: 01,3520 30161 RESTARTS CA MPAC +5 # GET GROUP NUMBER -1
060073,000029: 01,3521 60000 DOUBLE # SAVE FOR INDEXING
060074,000030: 01,3522 54155 TS TEMP2G
060075,000031:
060076,000032: 01,3523 33762 CA PHS2CADR # SET UP EXIT IN CASE IT IS AN EVEN
060077,000033: 01,3524 54157 TS TEMPSWCH # TABLE PHASE
060078,000034:
060079,000035: 01,3525 33557 CA RTRNCADR # TO SAVE TIME ASSUME IT WILL GET NEXT
060080,000036: 01,3526 54707 TS GOLOC +2 # GROUP AFTER THIS
060081,000037:
060082,000038: 01,3527 30154 CA TEMPPHS
060083,000039: 01,3530 75051 MASK OCT1400
060084,000040: 01,3531 10000 CCS A # IS IT A VARIABLE OR TABLE RESTART
060085,000041: 01,3532 13543 TCF ITSAVAR # IT:S A VARIABLE RESTART
060086,000042:
060087,000043: 01,3533 10154 GETPART2 CCS TEMPPHS # IS IT AN X.1 RESTART
060088,000044: 01,3534 10000 CCS A
060089,000045: 01,3535 13643 TCF ITSATBL # NO, ITS A TABLE RESTART
060090,000046:
060091,000047: 01,3536 35066 CA PRIO14 # IT IS AN X.1 RESTART, THEREFORE START
060092,000048: 01,3537 05147 TC FINDVAC # THE DISPLAY RESTART JOB
060093,000049: 01,3540 E3,1400 EBANK= LST1
060094,000050: 01,3540 03261 20063 2CADR INITDSP
060095,000051:
060096,000052: 01,3542 03557 TC RTRNCADR # FINISHED WITH THIS GROUP, GET NEXT ONE
060097,000053:
060098,000054: 01,3543 75051 ITSAVAR MASK OCT1400 # IS IT TYPE B ?
060099,000055: 01,3544 10000 CCS A
060100,000056: 01,3545 13614 TCF ITSLIKEB # YES, IT IS TYPE B
060101,000057:
060102,000058: 01,3546 00006 EXTEND # STORE THE JOB (OR TASK) 2CADR FOR EXIT
060103,000059: 01,3547 50155 NDX TEMP2G
060104,000060: 01,3550 31437 DCA PHSNAME1
060105,000061: 01,3551 52706 DXCH GOLOC
060106,000062:
060107,000063: 01,3552 30154 CA TEMPPHS # SEE IF THIS IS A JOB, TASK, OR A LONGCAL
060108,000064: 01,3553 75023 MASK OCT7
060109,000065: 01,3554 67715 AD MINUS2
060110,000066: 01,3555 10000 CCS A
060111,000067: 01,3556 13726 TCF ITSLNGCL # ITS A LONGCALL
060112,000068:
|
|
Page 1415
|
060114,000070: 01,3557 04675 RTRNCADR TC SWRETURN # CANT GET HERE
060115,000071: 01,3560 13562 TCF ITSAWAIT
060116,000072:
060117,000073: 01,3561 13627 TCF ITSAJOB # ITS A JOB
060118,000074:
060119,000075: 01,3562 33766 ITSAWAIT CA WTLTCADR # SET UP WAITLIST CALL
060120,000076: 01,3563 54704 TS GOLOC -1
060121,000077:
060122,000078: 01,3564 50155 NDX TEMP2G # DIRECTLY STORED
060123,000079: 01,3565 31054 CA PHSPRDT1
060124,000080: 01,3566 10000 TIMETEST CCS A # IS IT AN IMMEDIATE RESTART
060125,000081: 01,3567 24000 INCR A # NO,
060126,000082: 01,3570 13573 TCF FINDTIME # FIND OUT WHEN IT SHOULD BEGIN
060127,000083:
060128,000084: 01,3571 15500 TCF ITSINDIR # STORED INDIRECTLY
060129,000085:
060130,000086: 01,3572 13612 TCF IMEDIATE # IT WANTS AN IMMEDIATE RESTART
060131,000087:
060132,000088: # ***** THIS MUST BE IN FIXED FIXED *****
060133,000089:
060134,000090: 5500 BLOCK 02
060135,000091: 4000 SETLOC FFTAG2
060136,000092: 4000 BANK
060137,000093:
060138,000094: 5500 COUNT 02/RSROU
060139,000095:
060140,000096: 5500 22706 ITSINDIR LXCH GOLOC +1 # GET THE CORRECT E BANK IN CASE THIS IS
060141,000097: 5501 22006 LXCH BB # SWITCHED ERRASIBLE
060142,000098:
060143,000099: 5502 50000 NDX A # GET THE TIME INDIRECTLY
060144,000100: 5503 30001 CA 1
060145,000101:
060146,000102: 5504 22006 LXCH BB # RESTORE THE BB AND GOLOC
060147,000103: 5505 22706 LXCH GOLOC +1
060148,000104:
060149,000105: 5506 13573 TCF FINDTIME # FIND OUT WHEN IT SHOULD BEGIN
060150,000106:
060151,000107: # ***** YOU MAY RETURN TO SWITCHED FIXED *****
060152,000108:
060153,000109: 01,3573 BANK 01
060154,000110: 01,2000 SETLOC RESTART
060155,000111: 01,2000 BANK
060156,000112:
060157,000113: 01,3573 COUNT 01/RSROU
060158,000114:
060159,000115: 01,3573 40000 FINDTIME COM # MAKE NEGITIVE SINCE IT WILL BE SUBTRACTD
060160,000116: 01,3574 54001 TS L # AND SAVE
060161,000117: 01,3575 50155 NDX TEMP2G
060162,000118: 01,3576 41053 CS TBASE1
060163,000119: 01,3577 00006 EXTEND
|
|
Page 1416
|
060165,000121: 01,3600 60025 SU TIME1
060166,000122: 01,3601 10000 CCS A
060167,000123: 01,3602 40000 COM
060168,000124: 01,3603 67700 AD OCT37776
060169,000125: 01,3604 65017 AD ONE
060170,000126: 01,3605 60001 AD L
060171,000127: 01,3606 10000 CCS A
060172,000128: 01,3607 35021 CA ZERO
060173,000129: 01,3610 13612 TCF +2
060174,000130: 01,3611 13612 TCF +1
060175,000131: 01,3612 65017 IMEDIATE AD ONE
060176,000132: 01,3613 00704 TC GOLOC -1
060177,000133: 01,3614 33557 ITSLIKEB CA RTRNCADR # TYPE B, SO STORE RETURN IN
060178,000134: 01,3615 54157 TS TEMPSWCH # TEMPSWCH IN CASE OF AN EVEN PHASE
060179,000135:
060180,000136: 01,3616 33763 CA PRT2CADR # SET UP EXIT TO GET TABLE PART OF THIS
060181,000137: 01,3617 54707 TS GOLOC +2 # VARIABLE TYPE OF PHASE
060182,000138:
060183,000139: 01,3620 30154 CA TEMPPHS # MAKE THE PHASE LOOK RIGHT FOR THE TABLE
060184,000140: 01,3621 76043 MASK OCT177 # PART OF THIS VARIABLE PHASE
060185,000141: 01,3622 54154 TS TEMPPHS
060186,000142:
060187,000143: 01,3623 00006 EXTEND
060188,000144: 01,3624 50155 NDX TEMP2G # OBTAIN THE JOB:S 2CADR
060189,000145: 01,3625 31437 DCA PHSNAME1
060190,000146: 01,3626 52706 DXCH GOLOC
060191,000147:
060192,000148: 01,3627 50155 ITSAJOB NDX TEMP2G # NOW ADD THE PRIORITY AND LET:S GO
060193,000149: 01,3630 31054 CA PHSPRDT1
060194,000150: 01,3631 54704 CHKNOVAC TS GOLOC -1 # SAVE PRIO UNTIL WE SEE IF ITS
060195,000151: 01,3632 00006 EXTEND # A FINDVAC OR A NOVAC
060196,000152: 01,3633 63637 BZMF ITSNOVAC
060197,000153:
060198,000154: 01,3634 33765 CAF FVACCADR # POSITIVE, SET UP FINDVAC CALL.
060199,000155: 01,3635 56704 XCH GOLOC -1 # PICK UP PRIO,
060200,000156: 01,3636 00704 TC GOLOC -1 # AND GO
060201,000157:
060202,000158: 01,3637 33767 ITSNOVAC CAF NOVACADR # NEGATIVE,
060203,000159: 01,3640 56704 XCH GOLOC -1 # SET UP NOVAC CALL,
060204,000160: 01,3641 40000 COM # CORRECT PRIO,
060205,000161: 01,3642 00704 TC GOLOC -1 # AND GO
060206,000162:
060207,000163: 01,3643 54020 ITSATBL TS CYR # FIND OUT IF THE PHASE IS ODD OR EVEN
060208,000164: 01,3644 10020 CCS CYR
060209,000165: 01,3645 13646 TCF +1 # IT:S EVEN
060210,000166: 01,3646 13744 TCF ITSEVEN
060211,000167:
060212,000168: 01,3647 33557 CA RTRNCADR # IN CASE THIS IS THE SECOND PART OF A
060213,000169: 01,3650 54707 TS GOLOC +2 # TYPE B RESTART, WE NEED PROPER EXIT
|
|
Page 1417
|
060215,000171: 01,3651 30154 CA TEMPPHS # SET UP POINTER FOR FINDING OUR PLACE IN
060216,000172: 01,3652 54021 TS SR # THE RESTART TABLES
060217,000173: 01,3653 60021 AD SR
060218,000174: 01,3654 50155 NDX TEMP2G
060219,000175: 01,3655 62001 AD SIZETAB +1
060220,000176: 01,3656 54156 TS POINTER
060221,000177:
060222,000178: 01,3657 00006 CONTBL2 EXTEND # FIND OUT WHAT:S IN THE TABLE
060223,000179: 01,3660 50156 NDX POINTER
060224,000180: 01,3661 32002 DCA CADRTAB # GET THE 2CADR
060225,000181:
060226,000182: 01,3662 22706 LXCH GOLOC +1 # STORE THE BB INFORMATION
060227,000183:
060228,000184: 01,3663 10000 CCS A # IS IT A JOB OR IS IT TIMED
060229,000185: 01,3664 24000 INCR A # POSITIVE, MUST BE A JOB
060230,000186: 01,3665 13740 TCF ITSAJOB2
060231,000187:
060232,000188: 01,3666 24000 INCR A # MUST BE EITHER A WAITLIST OR LONGCALL
060233,000189: 01,3667 54705 TS GOLOC # LET-S STORE THE CORRECT CADR
060234,000190:
060235,000191: 01,3670 33766 CA WTLTCADR # SET UP OUR EXIT TO WAITLIST
060236,000192: 01,3671 54704 TS GOLOC -1
060237,000193:
060238,000194: 01,3672 30706 CA GOLOC +1 # NOW FIND OUT IF IT IS A WAITLIST CALL
060239,000195: 01,3673 75006 MASK BIT10 # THIS SHOULD BE ONE IF WE HAVE -BB
060240,000196: 01,3674 10000 CCS A # FOR THAT MATTER SO SHOULD BE BITS 9,8,7,
060241,000197: # 6,5, AND LAST BUT NOT LEAST (PERHAPS NOT
060242,000198: # IN IMPORTANCE ANYWAY. BIT 4
060243,000199: 01,3675 13733 TCF ITSWTLST # IT IS A WAITLIST CALL
060244,000200:
060245,000201: 01,3676 50156 NDX POINTER # OBTAIN THE ORIGINAL DELTA T
060246,000202: 01,3677 32000 CA PRDTTAB # ADDRESS FOR THIS LONGCALL
060247,000203:
060248,000204: 01,3700 15507 TCF ITSLGCL1 # NOW GO GET THE DELTA TIME
060249,000205:
060250,000206: # ***** THIS MUST BE IN FIXED FIXED *****
060251,000207:
060252,000208: 5507 BLOCK 02
060253,000209: 4000 SETLOC FFTAG2
060254,000210: 4000 BANK
060255,000211:
060256,000212: 5507 COUNT 02/RSROU
060257,000213:
060258,000214: 5507 22706 ITSLGCL1 LXCH GOLOC +1 # OBTAIN THE CORRECT E BANK
060259,000215: 5510 22006 LXCH BB
060260,000216: 5511 22706 LXCH GOLOC +1 # AND PRESERVE OUR E AND F BANKS
060261,000217:
060262,000218: 5512 00006 EXTEND # GET THE DELTA TIME
060263,000219: 5513 50000 NDX A
060264,000220: 5514 30001 DCA 0
|
|
Page 1418
|
060266,000222: 5515 22706 LXCH GOLOC +1 # RESTORE OUR E AND F BANK
060267,000223: 5516 22006 LXCH BB # RESTORE THE TASKS E AND F BANKS
060268,000224: 5517 22706 LXCH GOLOC +1 # AND PRESERVE OUR L
060269,000225: 5520 13701 TCF ITSLGCL2 # NOW LET:S PROCESS THIS LONGCALL
060270,000226:
060271,000227: # ***** YOU MAY RETURN TO SWITCHED FIXED *****
060272,000228:
060273,000229: 01,3701 BANK 01
060274,000230: 01,2000 SETLOC RESTART
060275,000231: 01,2000 BANK
060276,000232:
060277,000233: 01,3701 COUNT 01/RSROU
060278,000234: 01,3701 53140 ITSLGCL2 DXCH LONGTIME
060279,000235:
060280,000236: 01,3702 00006 EXTEND # CALCULATE TIME LEFT
060281,000237: 01,3703 40025 DCS TIME2
060282,000238: 01,3704 21140 DAS LONGTIME
060283,000239: 01,3705 00006 EXTEND
060284,000240: 01,3706 31136 DCA LONGBASE
060285,000241: 01,3707 21140 DAS LONGTIME
060286,000242:
060287,000243: 01,3710 11137 CCS LONGTIME # FIND OUT HOW THIS SHOULD BE RESTARTED
060288,000244: 01,3711 13721 TCF LONGCLCL
060289,000245: 01,3712 13714 TCF +2
060290,000246: 01,3713 13607 TCF IMEDIATE -3
060291,000247: 01,3714 11140 CCS LONGTIME +1
060292,000248: 01,3715 13721 TCF LONGCLCL
060293,000249: 01,3716 13717 NOOP # CAN:T GET HERE *********
060294,000250: 01,3717 13607 TCF IMEDIATE -3
060295,000251: 01,3720 13612 TCF IMEDIATE
060296,000252:
060297,000253: 01,3721 33764 LONGCLCL CA LGCLCADR # WE WILL GO TO LONGCALL
060298,000254: 01,3722 54704 TS GOLOC -1
060299,000255:
060300,000256: 01,3723 00006 EXTEND # PREPARE OUR ENTRY TO LONGCALL
060301,000257: 01,3724 31140 DCA LONGTIME
060302,000258: 01,3725 00704 TC GOLOC -1
060303,000259:
060304,000260: 01,3726 33766 ITSLNGCL CA WTLTCADR # ASSUME IT WILL GO TO WAITLIST
060305,000261: 01,3727 54704 TS GOLOC -1
060306,000262:
060307,000263: 01,3730 50155 NDX TEMP2G
060308,000264: 01,3731 41054 CS PHSPRDT1 # GET THE DELTA T ADDRESS
060309,000265:
060310,000266: 01,3732 15507 TCF ITSLGCL1 # NOW GET THE DELTA TIME
060311,000267:
060312,000268: 01,3733 40706 ITSWTLST CS GOLOC +1 # CORRECT THE BBCON INFORMATION
060313,000269: 01,3734 54706 TS GOLOC +1
|
|
Page 1419
|
060315,000271: 01,3735 50156 NDX POINTER # GET THE DT AND FIND OUT IF IT WAS STORED
060316,000272: 01,3736 32000 CA PRDTTAB # DIRECTLY OR INDIRECTLY
060317,000273:
060318,000274: 01,3737 13566 TCF TIMETEST # FIND OUT HOW THE TIME IS STORED
060319,000275:
060320,000276: 01,3740 56705 ITSAJOB2 XCH GOLOC # STORE THE CADR
060321,000277:
060322,000278: 01,3741 50156 NDX POINTER # ADD THE PRIORITY AND LET:S GO
060323,000279: 01,3742 32000 CA PRDTTAB
060324,000280:
060325,000281: 01,3743 13631 TCF CHKNOVAC
060326,000282:
060327,000283: 01,3744 30157 ITSEVEN CA TEMPSWCH # SET UP FOR EITHER THE SECOND PART OF THE
060328,000284: 01,3745 54707 TS GOLOC +2 # TABLE, OR A RETURN FOR THE NEXT GROUP
060329,000285:
060330,000286: 01,3746 50155 NDX TEMP2G # SET UP POINTER FOR OUR LOCATION WITHIN
060331,000287: 01,3747 32000 CA SIZETAB # THE TABLE
060332,000288: 01,3750 60154 AD TEMPPHS # THIS MAY LOOK BAD BUT LET:S SEE YOU DO
060333,000289: 01,3751 60154 AD TEMPPHS # BETTER IN TIME OR NUMBERR OF LOCATIONS
060334,000290: 01,3752 60154 AD TEMPPHS
060335,000291: 01,3753 54156 TS POINTER
060336,000292:
060337,000293: 01,3754 13657 TCF CONTBL2 # NOW PROCESS WHAT IS IN THE TABLE
060338,000294:
060339,000295: 01,3755 36214 PHSPART2 CA THREE # SET THE POINTER FOR THE SECOND HALF OF
060340,000296: 01,3756 26156 ADS POINTER # THE TABLE
060341,000297:
060342,000298: 01,3757 33557 CA RTRNCADR # THIS WILL BE OUR LAST TIME THROUGH THE
060343,000299: 01,3760 54707 TS GOLOC +2 # EVEN TABLE, SO AFTER IT GET THE NEXT
060344,000300: # GROUP
060345,000301: 01,3761 13657 TCF CONTBL2 # SO LET:S GET THE SECOND ENTRY IN THE TBL
060346,000302:
060347,000303: 01,3762 0154 TEMPPHS EQUALS MPAC
060348,000304: 01,3762 0155 TEMP2G EQUALS MPAC +1
060349,000305: 01,3762 0156 POINTER EQUALS MPAC +2
060350,000306: 01,3762 0157 TEMPSWCH EQUALS MPAC +3
060351,000307: 01,3762 0705 GOLOC EQUALS VAC5 +20D
060352,000308: 01,3762 7715 MINUS2 EQUALS NEG2
060353,000309: 01,3762 6043 OCT177 EQUALS LOW7
060354,000310:
060355,000311: 01,3762 03755 PHS2CADR GENADR PHSPART2
060356,000312: 01,3763 03533 PRT2CADR GENADR GETPART2
060357,000313: 01,3764 05342 LGCLCADR GENADR LONGCALL
060358,000314: 01,3765 05147 FVACCADR GENADR FINDVAC
060359,000315: 01,3766 05245 WTLTCADR GENADR WAITLIST
060360,000316: 01,3767 05134 NOVACADR GENADR NOVAC
060361,000317:
060362,000318:
060363,000319:
060364,000320:
End of include-file RESTARTS_ROUTINE.agc. Parent file is MAIN.agc