GAP: ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011 19:02 NOV. 25,1968Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were transcribed from scans made from Don Eyles's personal
copy of Luminary 069. They were scanned at archive.org's Boston
facility, and the scanning was sponsored by Onno Hommes. 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 prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". 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 Luminary 69 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:GAP: ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011 19:02 NOV. 25,1968Note that the date is the date of the printout, not the date of the program revision. |
011005,000002: ## Copyright: Public domain.
011006,000003: ## Filename: RESTART_TABLES.agc
011007,000004: ## Purpose: The main source file for Luminary revision 069.
011008,000005: ## It is part of the source code for the original release
011009,000006: ## of the flight software for the Lunar Module's (LM) Apollo
011010,000007: ## Guidance Computer (AGC) for Apollo 10. The actual flown
011011,000008: ## version was Luminary 69 revision 2, which included a
011012,000009: ## newer lunar gravity model and only affected module 2.
011013,000010: ## This file is intended to be a faithful transcription, except
011014,000011: ## that the code format has been changed to conform to the
011015,000012: ## requirements of the yaYUL assembler rather than the
011016,000013: ## original YUL assembler.
011017,000014: ## Reference: pp. 253-258
011018,000015: ## Assembler: yaYUL
011019,000016: ## Contact: Ron Burkey <info@sandroid.org>.
011020,000017: ## Website: www.ibiblio.org/apollo/index.html
011021,000018: ## Mod history: 2016-12-13 MAS Created from Luminary 99.
011022,000019: ## 2017-01-09 HG Transcribed
011023,000020: ## 2017-01-25 RSB Proofed comment text using octopus/prooferComments
011024,000021: ## but no errors found.
011025,000022:
|
|
Page 253 |
011027,000024: # RESTART TABLES
011028,000025:
011029,000026: # ------------------
011030,000027:
011031,000028: # THERE ARE TWO FORMS OF RESTART TABLES FOR EACH GROUP. THEY ARE KNOWN AS THE EVEN RESTART TABLES AND THE ODD
011032,000029: # RESTART TABLES. THE ODD TABLES HAVE ONLY ONE ENTRY OF THREE LOCATIONS WHILE THE EVEN TABLES HAVE TWO ENTRIES
011033,000030: # EACH USING THREE LOCATIONS. THE INFORMATION AS TO WHETHER IT IS A JOB, WAITLIST, OR A LONGCALL IS GIVEN BY THE
011034,000031: # WAY THINGS ARE PUT INTO THE TABLES.
011035,000032: # A JOB HAS ITS PRIORITY STORED IN PRDTTAB OF THE CORRECT PHASE SPOT - A POSITIVE PRIORITY INDICATES A
011036,000033: # FINDVAC JOB, A NEGATIVE PRIORITY A NOVAC. THE 2CADR OF THE JOB IS STORED IN THE CADRTAB.
011037,000034: # FOR EXAMPLE,
011038,000035:
011039,000036: # 5.7SPOT OCT 23000
011040,000037: # 2CADR SOMEJOB
011041,000038:
011042,000039: # A RESTART OF GROUP 5 WITH PHASE SEVEN WOULD THEN CAUSE SOMEJOB TO BE RESTARTED AS A FINDVAC WITH PRIORITY 23.
011043,000040:
011044,000041: # 5.5SPOT OCT -23000
011045,000042: # 2CADR ANYJOB
011046,000043:
011047,000044: # HERE A RESTART OF GROUP 5 WITH PHASE 7 WOULD CAUSE ANYJOB TO BE RESTARTED AS A NOVAC WITH PRIORITY 23.
011048,000045: # A LONGCALL HAS ITS GENADR OF ITS 2CADR STORED NEGATIVELY AND ITS BBCON STORED POSITIVELY. IN ITS PRDTTAB IS
011049,000046: # PLACED THE LOCATION OF A DP REGISTER THAT CONTAINS THE DELTA TIME THAT LONGCALL HAD BEEN ORIGINALLY STARTED
011050,000047: # WITH. EXAMPLE,
011051,000048:
011052,000049: # 3.6SPOT GENADR DELTAT
011053,000050: # -GENADR LONGTASK
011054,000051: # BBCON LONGTASK
011055,000052:
011056,000053: # OCT 31000
011057,000054: # 2CADR JOBAGAIN
011058,000055:
011059,000056: # THIS WOULD START UP LONGTASK AT THE APPROPRIATE TIME, OR IMMEDIATELY IF THE TIME HAD ALREADY PASSED. IT SHOULD
011060,000057: # BE NOTED THAT IF DELTAT IS IN A SWITCHED E BANK, THIS INFORMATOIN SHOULD BE IN THE BBCON OFTHE 2CADR OF THE
011061,000058: # TASK. FROM ABOVE, WE SEE THAT THE SECOND PART OF THIS PHASE WOULD BE STARTED AS A JOB WITH A PRIORITY OF 31.
011062,000059:
011063,000060: # WAITLIST CALLS ARE IDENTIFIED BY THE FACT THAT THEIR 2CADR IS STORED NEGATIVELY. IF PRDTTAB OF THE PHASE SPOT
011064,000061: # IS POSITIVE, THEN IT CONTAINS THE DELTA TIME, IF PRDTTAB IS NEGATIVE THEN IT IS THE -GENADR OF AN ERASABLE
011065,000062: # LOCATION CONTAINING THE DELTA TIME, THAT IS, THE TIME IS STORED INDIRECTLY. IT SHOULD BE NOTED AS ABOVE, THAT
011066,000063: # IF THE TIME IS STORED INDIRECTLY, THE BBCON MUST CONTAIN THE NECESSARY E BANK INFORMATION IF APPLICABLE. WITH
011067,000064: # WAITLIST WE HAVE ONE FURTHER OPTION, IF -0 IS STORED IN PRDTTAB, IT WILL CAUSE AN IMMEDIATE RESTART OF THE
011068,000065: # TASK. EXAMPLES,
011069,000066:
011070,000067: # OCT 77777 THIS WILL CAUSE AN IMMEDIATE RESTART
011071,000068: # -2CADR ATASK OF THE TASK :ATASK:
011072,000069:
011073,000070: # DEC 200 IF THE TIME OF THE 2 SECONDS SINCE DUMMY
011074,000071: # -2CADR DUMMY WAS PUT ON WAITLIST IS UP, IT WILL BEGIN
011075,000072: # IN 10 MS, OTHERWISE IT WILL BEGIN WHEN
011076,000073: # IT NORMALLY WOULD HAVE BEGUN.
011077,000074:
|
|
Page 254 |
011079,000076: # -GENADR DTIME WHERE DTIME CONTAINS THE DELTA TIME
011080,000077: # -2CADR TASKTASK OTHERWISE THIS IS AS ABOVE
011081,000078:
011082,000079: # ***** NOW THE TABLES THEMSELVES *****
011083,000080:
011084,000081: 01,2002 BANK 01
011085,000082: 01,2000 SETLOC RESTART
011086,000083: 01,2000 BANK
011087,000084:
011088,000085: 01,2002 PRDTTAB EQUALS 12000 # USED TO FIND THE PRIORITY OR DELTATIME
011089,000086: 01,2002 CADRTAB EQUALS 12001 # THIS AND THE NEXT RELATIVE LOC CONTAIN
011090,000087: # RESTART 2CADR
011091,000088:
011092,000089: 01,2002 COUNT* $$/RSTAB # TABLES IN BANK 1.
011093,000090: 01,2002 00010 SIZETAB TC 1.2SPOT -12006
011094,000091: 01,2003 00020 TC 1.3SPOT -12004
011095,000092: 01,2004 00010 TC 2.2SPOT -12006
011096,000093: 01,2005 00023 TC 2.3SPOT -12004
011097,000094: 01,2006 00010 TC 3.2SPOT -12006
011098,000095: 01,2007 00053 TC 3.3SPOT -12004
011099,000096: 01,2010 00054 TC 4.2SPOT -12006
011100,000097: 01,2011 00064 TC 4.3SPOT -12004
011101,000098: 01,2012 00137 TC 5.2SPOT -12006
011102,000099: 01,2013 00155 TC 5.3SPOT -12004
011103,000100: 01,2014 00010 TC 6.2SPOT -12006
011104,000101: 01,2015 00166 TC 6.3SPOT -12004
011105,000102: 01,2016 21000 1.2SPOT OCT 21000 # A DUMMY EXAMPLE TO BE REPLACED AS SOON
011106,000103: 01,2017 0074 EBANK= STATE
011107,000104: 01,2017 05155 04060 2CADR ENDOFJOB # AS THERE IS A LEGITIMATE 1.2SPOT
011108,000105: 01,2021 00144 DEC 100 B-14
011109,000106: 01,2022 0074 EBANK= STATE
011110,000107: 01,2022 05261 04060 2CADR TASKOVER
011111,000108:
011112,000109: # ANY MORE GROUP 1.EVEN RESTART VALUES SHOULD GO HERE
011113,000110:
011114,000111: 01,2024 76302 1.3SPOT -GENADR SAVET-30
011115,000112: 01,2025 E7,1513 EBANK= DVCNTR
011116,000113: 01,2025 75440 03710 -2CADR ULLGTASK
011117,000114: # ANY MORE GROUP 1.ODD RESTART VALUES SHOULD GO HERE
011118,000115:
011119,000116: 01,2027 01,2016 2.2SPOT EQUALS 1.2SPOT
011120,000117: # ANY MORE GROUP 2.EVEN RESTART VALUES SHOULD GO HERE
011121,000118:
011122,000119: 01,2027 02630 2.3SPOT GENADR 600SECS
011123,000120: 01,2030 75173 -GENADR STATEINT
011124,000121: 01,2031 E3,1554 EBANK= RRECTCSM
011125,000122: 01,2031 26063 BBCON STATEINT
011126,000123:
|
|
Page 255 |
011128,000125: 01,2032 05000 2.5SPOT OCT 05000
011129,000126: 01,2033 E3,1554 EBANK= RRECTCSM
011130,000127: 01,2033 02613 26063 2CADR STATINT1
011131,000128: 01,2035 02734 2.7SPOT DEC 1500 B-14
011132,000129: 01,2036 E7,1454 EBANK= LOSCOUNT
011133,000130: 01,2036 75502 27710 -2CADR P20LEMC1
011134,000131:
011135,000132: 01,2040 14000 2.11SPOT OCT 14000
011136,000133: 01,2041 E7,1756 EBANK= P21TIME
011137,000134: 01,2041 02441 50067 2CADR P25LEM1
011138,000135: 01,2043 10000 2.13SPOT OCT 10000
011139,000136: 01,2044 E7,1454 EBANK= LOSCOUNT
011140,000137: 01,2044 02175 54067 2CADR RELINUS
011141,000138: 01,2046 26000 2.15SPOT OCT 26000
011142,000139: 01,2047 E7,1454 EBANK= LOSCOUNT
011143,000140: 01,2047 02677 50067 2CADR R22RSTRT
011144,000141: 01,2051 77777 2.17SPOT OCT 77777
011145,000142: 01,2052 E7,1704 EBANK= VGPREV
011146,000143: 01,2052 75447 03710 -2CADR REDO2.17
011147,000144: 01,2054 00031 2.21SPOT DEC 25 B-14
011148,000145: 01,2055 E7,1513 EBANK= DVCNTR
011149,000146: 01,2055 75675 35710 -2CADR R10,R11
011150,000147: # ANY MORE GROUP 2.ODD RESTART VALUES SHOULD GO HERE.
011151,000148:
011152,000149: 01,2057 01,2016 3.2SPOT EQUALS 1.2SPOT
011153,000150: # ANY MORE GROUP 3.EVEN RESTART VALUES SHOULD GO HERE
011154,000151:
011155,000152: 01,2057 76353 3.3SPOT -GENADR ZOOMTIME
011156,000153: 01,2060 E7,1513 EBANK= DVCNTR
011157,000154: 01,2060 75223 03710 -2CADR ZOOM
011158,000155: # ANY MORE GROUP 3.ODD RESTART VALUES SHOULD GO HERE
011159,000156:
011160,000157: 01,2062 04704 4.2SPOT DEC 2500 B-14
011161,000158: 01,2063 E7,1451 EBANK= TTOGO
011162,000159: 01,2063 75434 03710 -2CADR TIG-5
011163,000160: 01,2065 77777 OCT 77777
011164,000161: 01,2066 E7,1451 EBANK= TTOGO
011165,000162: 01,2066 75444 03710 -2CADR REDO4.2
011166,000163: # ANY MORE GROUP 4.EVEN RESTART VALUES SHOULD GO HERE
011167,000164:
|
|
Page 256 |
011169,000166: 01,2070 25000 4.3SPOT OCT 25000
011170,000167: 01,2071 E7,1513 EBANK= DVCNTR
011171,000168: 01,2071 03257 64067 2CADR GOABORT
011172,000169: 01,2073 00062 4.5SPOT DEC 50 B-14
011173,000170: 01,2074 E7,1451 EBANK= TTOGO
011174,000171: 01,2074 75237 03710 -2CADR ULLAGOFF
011175,000172: 01,2076 00764 4.7SPOT DEC 500 B-14
011176,000173: 01,2077 E7,1513 EBANK= DVCNTR
011177,000174: 01,2077 75410 03710 -2CADR TIG-0
011178,000175: 01,2101 76262 4.11SPOT -GENADR TGO +1
011179,000176: 01,2102 E7,1513 EBANK= DVCNTR
011180,000177: 01,2102 74235 03710 -2CADR ENGOFTSK
011181,000178: 01,2104 12000 4.13SPOT OCT 12000
011182,000179: 01,2105 E7,1460 EBANK= TRKMKCNT
011183,000180: 01,2105 03223 74067 2CADR POSTBURN
011184,000181:
011185,000182: 01,2107 00764 4.15SPOT DEC 500 B-14
011186,000183: 01,2110 E7,1451 EBANK= TTOGO
011187,000184: 01,2110 75503 03710 -2CADR TIG-30
011188,000185: 01,2112 77777 4.17SPOT OCT 77777
011189,000186: 01,2113 E7,1513 EBANK= DVCNTR
011190,000187: 01,2113 75434 03710 -2CADR TIG-5
011191,000188: 01,2115 13000 4.21SPOT OCT 13000
011192,000189: 01,2116 E5,1730 EBANK= STAR
011193,000190: 01,2116 02661 30065 2CADR R51.1 +1
011194,000191: 01,2120 77777 4.23SPOT OCT 77777
011195,000192: 01,2121 E7,1513 EBANK= DVCNTR
011196,000193: 01,2121 75366 03710 -2CADR IGNITION
011197,000194: 01,2123 01475 4.25SPOT GENADR SAVET-30
011198,000195: 01,2124 75541 -GENADR TIG-35
011199,000196: 01,2125 E7,1475 EBANK= SAVET-30
011200,000197: 01,2125 74067 BBCON TIG-35
011201,000198:
011202,000199: 01,2126 52777 4.27SPOT OCT 52777
011203,000200: 01,2127 E7,1513 EBANK= DVCNTR
011204,000201: 01,2127 02167 42067 2CADR P70A
011205,000202: 01,2131 52777 4.31SPOT OCT 52777
011206,000203: 01,2132 E7,1513 EBANK= DVCNTR
011207,000204: 01,2132 02172 42067 2CADR P71A
011208,000205:
|
|
Page 257 |
011210,000207: 01,2134 46777 4.33SPOT OCT 46777
011211,000208: 01,2135 E7,1513 EBANK= DVCNTR
011212,000209: 01,2135 02024 10067 2CADR GOPOOFIX
011213,000210: 01,2137 46777 4.35SPOT OCT 46777
011214,000211: 01,2140 E7,1513 EBANK= DVCNTR
011215,000212: 01,2140 05665 04067 2CADR GOPOODOO
011216,000213: 01,2142 52777 4.37SPOT OCT 52777
011217,000214: 01,2143 E7,1453 EBANK= WHICH
011218,000215: 01,2143 02574 74067 2CADR COMFAIL
011219,000216: # ANY MORE 4.ODD RESTART VALUES SHOULD GO HERE.
011220,000217:
011221,000218: 01,2145 22000 5.2SPOT OCT 22000
011222,000219: 01,2146 E7,1513 EBANK= DVCNTR
011223,000220: 01,2146 02421 66067 2CADR NORMLIZE
011224,000221: 01,2150 00310 DEC 200 B-14
011225,000222: 01,2151 E7,1513 EBANK= DVCNTR
011226,000223: 01,2151 74177 01710 -2CADR REREADAC
011227,000224:
011228,000225: 01,2153 00310 5.4SPOT DEC 200 B-14
011229,000226: 01,2154 E7,1513 EBANK= DVCNTR
011230,000227: 01,2154 74177 01710 -2CADR REREADAC
011231,000228:
011232,000229: 01,2156 20000 OCT 20000
011233,000230: 01,2157 E7,1513 EBANK= DVCNTR
011234,000231: 01,2157 02200 66067 2CADR SERVICER
011235,000232: # ANY MORE GROUP 5.EVEN RESTART VALUES SHOULD GO HERE
011236,000233:
011237,000234: 01,2161 00310 5.3SPOT DEC 200 B-14
011238,000235: 01,2162 E7,1513 EBANK= DVCNTR
011239,000236: 01,2162 74177 01710 -2CADR REREADAC
011240,000237:
011241,000238: 01,2164 77777 5.5SPOT OCT 77777
011242,000239: 01,2165 E7,1513 EBANK= DVCNTR
011243,000240: 01,2165 74340 01710 -2CADR REDO5.5
011244,000241:
011245,000242: 01,2167 77777 5.7SPOT OCT 77777
011246,000243: 01,2170 E7,1513 EBANK= DVCNTR
011247,000244: 01,2170 74375 01710 -2CADR BIBIBIAS
011248,000245: # ANY MORE GROUP 5.ODD RESTART VALUES SHOULD GO HERE
011249,000246:
|
|
Page 258 |
011251,000248: 01,2172 01,2016 6.2SPOT EQUALS 1.2SPOT
011252,000249: 01,2172 00144 6.3SPOT DEC 100 B-14
011253,000250: 01,2173 E7,1437 EBANK= TIG
011254,000251: 01,2173 75055 03710 -2CADR CLOKTASK
011255,000252: 01,2175 30000 6.5SPOT OCT 30000 # PROTECT INCREMENTING OF TIME2,TIME1 BY
011256,000253: 01,2176 E3,1706 EBANK= TEPHEM # P27(UPDATE PROGRAM) VIA V70 OR V73.
011257,000254: 01,2176 03522 10063 2CADR TIMEDIDR
011258,000255: 01,2200 17000 6.7SPOT OCT 17000
011259,000256: 01,2201 E7,1704 EBANK= VGPREV
011260,000257: 01,2201 03350 74067 2CADR REDO6.7
End of include-file RESTART_TABLES.agc. Parent file is MAIN.agc