Source Code
|
These source-code files are part of a reconstructed copy of Luminary 97, the
second release of the Apollo 11 Lunar Module (LM) Apollo Guidance Computer
(AGC) software. It was created to fix two incorrect ephemeris constants in
Luminary 96, as described by anomaly report LNY-59.
The reconstruction began with source code of Luminary 99 revision 1 previously
transcribed from a digitized copy of that program. The code was then updated
by undoing changes described in original Luminary memos 83 and 85, using asterisks
indicating changed lines in the listing as a guide. The reconstruction was
verified by matching memory-bank checksums to those listed in drawing 2021152D.
Note that page numbers in the reconstructed code match those on the Luminary 099
revision 001 printout, although the added code would likely have changed page
numbers for a real Luminary 97 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.
|
029703,000002: ## Copyright: Public domain.
029704,000003: ## Filename: R31.agc
029705,000004: ## Purpose: A section of Luminary revision 97.
029706,000005: ## It is part of the reconstructed source code for the
029707,000006: ## second release of the flight software for the Lunar
029708,000007: ## Module's (LM) Apollo Guidance Computer (AGC) for Apollo 11.
029709,000008: ## It was created to fix two incorrect ephemeris constants in
029710,000009: ## Luminary 96, as described by anomaly report LNY-59.
029711,000010: ## The code has been recreated from a copy of Luminary 99
029712,000011: ## revision 001, using asterisks indicating changed lines in
029713,000012: ## the listing and Luminary Memos #83 and #85, which list
029714,000013: ## changes between Luminary 97 and 98, and 98 and 99. The
029715,000014: ## code has been adapted such that the resulting bugger words
029716,000015: ## exactly match those specified for Luminary 97 in NASA drawing
029717,000016: ## 2021152D, which gives relatively high confidence that the
029718,000017: ## reconstruction is correct.
029719,000018: ## Reference: pp. 703-708
029720,000019: ## Assembler: yaYUL
029721,000020: ## Contact: Ron Burkey <info@sandroid.org>.
029722,000021: ## Website: www.ibiblio.org/apollo/index.html
029723,000022: ## Mod history: 2019-07-28 MAS Created from Luminary 99.
029724,000023:
|
|
Page 703
|
029726,000025: 40,3674 BANK 40
029727,000026: 40,2000 SETLOC R31LOC
029728,000027: 40,2000 BANK
029729,000028:
029730,000029: 40,3674 COUNT* $$/R31
029731,000030:
029732,000031: 40,3674 35015 R31CALL CAF PRIO3
029733,000032: 40,3675 05105 TC FINDVAC
029734,000033: 40,3676 E7,1470 EBANK= SUBEXIT
029735,000034: 40,3676 03121 76067 2CADR V83CALL
029736,000035:
029737,000036: 40,3700 05221 DSPDELAY TC FIXDELAY
029738,000037: 40,3701 00144 DEC 100 B-14
029739,000038: 40,3702 31044 CA EXTVBACT
029740,000039: 40,3703 74740 MASK BIT12
029741,000040: 40,3704 00006 EXTEND
029742,000041: 40,3705 13700 BZF DSPDELAY
029743,000042:
029744,000043: 40,3706 35017 CAF PRIO5
029745,000044: 40,3707 05072 TC NOVAC
029746,000045: 40,3710 E7,1611 EBANK= TSTRT
029747,000046: 40,3710 03113 76067 2CADR DISPN5X
029748,000047:
029749,000048: 40,3712 15261 TCF TASKOVER
029750,000049:
029751,000050: 37,3113 BANK 37
029752,000051: 37,2000 SETLOC R31
029753,000052: 37,2000 BANK
029754,000053: 37,3113 COUNT* $$/R31
029755,000054:
029756,000055: 37,3113 33407 DISPN5X CAF V16N54
029757,000056: 37,3114 04616 TC BANKCALL
029758,000057: 37,3115 20334 CADR GOMARKF
029759,000058: 37,3116 05563 TC B5OFF
029760,000059: 37,3117 05563 TC B5OFF
029761,000060: 37,3120 13113 TCF DISPN5X
029762,000061:
029763,000062: 37,3121 40103 V83CALL CS FLAGWRD7 # TEST AVERAGE G FLAG
029764,000063: 37,3122 74747 MASK AVEGFBIT
029765,000064: 37,3123 00006 EXTEND
029766,000065: 37,3124 13377 BZF MUNG? # ON - TEST MUNFLAG
029767,000066:
029768,000067: 37,3125 40104 CS FLAGWRD8
029769,000068: 37,3126 74744 MASK SURFFBIT
029770,000069: 37,3127 00006 EXTEND
029771,000070: 37,3130 13403 BZF ONEBASE # ON SURFACE - BYPASS LEMPREC
029772,000071:
029773,000072: 37,3131 06037 TC INTPRET # EXTRAPOLATE BOTH STATE VECTORS
029774,000073: 37,3132 77634 RTB
|
|
Page 704
|
029776,000075: 37,3133 21573 LOADTIME
029777,000076: 37,3134 34041 STCALL TDEC1
029778,000077: 37,3135 27057 LEMPREC # PRECISION BASE VECTOR FOR LM
029779,000078: 37,3136 77775 VLOAD
029780,000079: 37,3137 00017 RATT1
029781,000080: 37,3140 26170 STOVL BASETHP
029782,000081: 37,3141 00025 VATT1
029783,000082: 37,3142 16105 STODL BASETHV
029784,000083: 37,3143 00015 TAT
029785,000084: 37,3144 02114 DOCMBASE STORE BASETIME # PRECISION BASE VECTOR FOR CM
029786,000085: 37,3145 34041 STCALL TDEC1
029787,000086: 37,3146 27043 CSMPREC
029788,000087: 37,3147 77775 VLOAD
029789,000088: 37,3150 00017 RATT1
029790,000089: 37,3151 26140 STOVL BASEOTP
029791,000090: 37,3152 00025 VATT1
029792,000091: 37,3153 02120 STORE BASEOTV
029793,000092: 37,3154 77776 EXIT
029794,000093:
029795,000094: 37,3155 40103 REV83 CS FLAGWRD7
029796,000095: 37,3156 74747 MASK AVEGFBIT
029797,000096: 37,3157 00006 EXTEND
029798,000097: 37,3160 13326 BZF GETRVN # IF AVEGFLAG SET, USE RN,VN
029799,000098:
029800,000099: 37,3161 40104 CS FLAGWRD8
029801,000100: 37,3162 74744 MASK SURFFBIT
029802,000101: 37,3163 00006 EXTEND
029803,000102: 37,3164 13370 BZF R31SURF # IF ON SURFACE, USE LEMAREC
029804,000103:
029805,000104: 37,3165 06037 TC INTPRET # DO CONIC EXTRAPOLATION FOR BOTH VEHICLES
029806,000105: 37,3166 77634 RTB
029807,000106: 37,3167 21573 LOADTIME
029808,000107: 37,3170 34041 STCALL TDEC1
029809,000108: 37,3171 27414 INTSTALL
029810,000109: 37,3172 43175 VLOAD CLEAR
029811,000110: 37,3173 02170 BASETHP
029812,000111: 37,3174 00263 MOONFLAG
029813,000112: 37,3175 25535 STOVL RCV
029814,000113: 37,3176 02105 BASETHV
029815,000114: 37,3177 15543 STODL VCV
029816,000115: 37,3200 02114 BASETIME
029817,000116: 37,3201 43014 BOF SET # GET APPROPRIATE MOONFLAG SETTING
029818,000117: 37,3202 04344 MOONTHIS
029819,000118: 37,3203 77205 +2
029820,000119: 37,3204 00063 MOONFLAG
029821,000120: 37,3205 77614 SET
029822,000121: 37,3206 01473 INTYPFLG # CONIC EXTRAP.
029823,000122: 37,3207 35517 STCALL TET
029824,000123: 37,3210 27107 INTEGRVS # INTEGRATION --- AT LAST ---
029825,000124: 37,3211 77775 OTHCONIC VLOAD
|
|
Page 705
|
029827,000126: 37,3212 00001 RATT
029828,000127: 37,3213 26207 STOVL RONE
029829,000128: 37,3214 00007 VATT
029830,000129: 37,3215 36215 STCALL VONE # GET SET FOR CONIC EXTRAP., OTHER.
029831,000130: 37,3216 27414 INTSTALL
029832,000131: 37,3217 71214 SET DLOAD
029833,000132: 37,3220 01473 INTYPFLG
029834,000133: 37,3221 00015 TAT
029835,000134: 37,3222 00041 OTHINT STORE TDEC1
029836,000135: 37,3223 43175 VLOAD CLEAR
029837,000136: 37,3224 02140 BASEOTP
029838,000137: 37,3225 00263 MOONFLAG
029839,000138: 37,3226 25535 STOVL RCV
029840,000139: 37,3227 02120 BASEOTV
029841,000140: 37,3230 15543 STODL VCV
029842,000141: 37,3231 02114 BASETIME
029843,000142: 37,3232 43014 BOF SET
029844,000143: 37,3233 04344 MOONTHIS
029845,000144: 37,3234 77236 +2
029846,000145: 37,3235 00063 MOONFLAG
029847,000146: 37,3236 35517 STCALL TET
029848,000147: 37,3237 27107 INTEGRVS
029849,000148: 37,3240 52375 COMPDISP VLOAD VSU
029850,000149: 37,3241 00001 RATT
029851,000150: 37,3242 02207 RONE
029852,000151: 37,3243 65234 RTB PDDL
029853,000152: 37,3244 21724 NORMUNX1 # UNIT(RANGE) TO PD 0-5
029854,000153: 37,3245 00045 36D
029855,000154: 37,3246 77657 SL* # RESCALE AFTER NORMUNIT
029856,000155: 37,3247 20201 0,1
029857,000156: 37,3250 26201 STOVL RANGE # SCALED 2(29)M
029858,000157: 37,3251 00007 VATT
029859,000158: 37,3252 50251 VSU DOT # (VCM-VLM).UNIT(LOS), PD=0
029860,000159: 37,3253 02215 VONE
029861,000160: 37,3254 77752 SL1 # SCALED 2(7)M/CS
029862,000161: 37,3255 26203 STOVL RRATE
029863,000162: 37,3256 02207 RONE
029864,000163: 37,3257 63256 UNIT PDVL # UNIT(R) TO PD 0-5
029865,000164: 37,3260 06514 UNITZ
029866,000165: 37,3261 77624 CALL
029867,000166: 37,3262 47661 CDU*NBSM
029868,000167: 37,3263 41505 VXM PUSH # UNIT(Z)/4 TO PD 6-11
029869,000168: 37,3264 01734 REFSMMAT
029870,000169: 37,3265 72431 VPROJ VSL2 # UNIT(P)=UNIT(UZ-(UZ)PROJ(UR))
029871,000170: 37,3266 00001 0D
029872,000171: 37,3267 53445 BVSU UNIT
029873,000172: 37,3270 00007 6D
029874,000173: 37,3271 47315 PDVL VXV # UNIT(P) TO PD 12-17
029875,000174: 37,3272 00001 0D # UNIT(RL)
029876,000175: 37,3273 02215 VONE
|
|
Page 706
|
029878,000177: 37,3274 50235 VXV DOT # (UR * VL) * UR . U(P)
029879,000178: 37,3275 00001 0D
029880,000179: 37,3276 00015 12D
029881,000180: 37,3277 77715 PDVL # SIGN TO 12-13, LOAD U(P)
029882,000181: 37,3300 75241 DOT SIGN
029883,000182: 37,3301 00007 6D
029884,000183: 37,3302 00015 12D
029885,000184: 37,3303 65512 SL2 ACOS # ARCCOS(UP.UZ(SIGN))
029886,000185: 37,3304 26205 STOVL RTHETA
029887,000186: 37,3305 00001 0D
029888,000187: 37,3306 51041 DOT BPL # IF UR.UZ NEG,
029889,000188: 37,3307 00007 6D # RTHETA = 1 - RTHETA
029890,000189: 37,3310 77315 +5
029891,000190: 37,3311 45345 DLOAD DSU
029892,000191: 37,3312 06530 DPPOSMAX
029893,000192: 37,3313 02205 RTHETA
029894,000193: 37,3314 02205 STORE RTHETA
029895,000194: 37,3315 77776 EXIT
029896,000195:
029897,000196: 37,3316 34747 CA BIT5
029898,000197: 37,3317 71044 MASK EXTVBACT
029899,000198: 37,3320 00006 EXTEND # IF ANSWERED,
029900,000199: 37,3321 15472 BZF ENDEXT # TERMINATE
029901,000200:
029902,000201: 37,3322 41044 CS EXTVBACT
029903,000202: 37,3323 74740 MASK BIT12
029904,000203: 37,3324 27044 ADS EXTVBACT # SET BIT 12
029905,000204: 37,3325 13155 TCF REV83 # AND START AGAIN.
029906,000205:
029907,000206: 37,3326 37710 GETRVN CA PRIO22 # INHIBIT SERVICER
029908,000207: 37,3327 05146 TC PRIOCHNG
029909,000208: 37,3330 06037 TC INTPRET
029910,000209: 37,3331 40375 VLOAD SETPD
029911,000210: 37,3332 01221 RN # LM STATE VECTOR IN RN,VN
029912,000211: 37,3333 00001 0
029913,000212: 37,3334 26207 STOVL RONE
029914,000213: 37,3335 01227 VN
029915,000214: 37,3336 26215 STOVL VONE # LOAD R(CSM),V(CSM) IN CASE MUNFLAG SET
029916,000215: 37,3337 01726 V(CSM) # (TO INSURE TIME COMPATABILITY)
029917,000216: 37,3340 65315 PDVL PDDL
029918,000217: 37,3341 01720 R(CSM)
029919,000218: 37,3342 01235 PIPTIME
029920,000219: 37,3343 77776 EXIT
029921,000220: 37,3344 35015 CA PRIO3
029922,000221: 37,3345 05146 TC PRIOCHNG
029923,000222: 37,3346 06037 TC INTPRET
029924,000223: 37,3347 77214 BOFF VLOAD
029925,000224: 37,3350 03347 MUNFLAG
029926,000225: 37,3351 77363 GETRVN2 # IF MUNFLAG RESET, DO CM DELTA PRECISION
|
|
Page 707
|
029928,000227: 37,3352 60505 VXM VSR4 # CHANGE TO REFERENCE SYSTEM AND RESCALE
029929,000228: 37,3353 01734 REFSMMAT
029930,000229: 37,3354 77715 PDVL # R TO PD 0-5
029931,000230: 37,3355 76505 VXM VSL1
029932,000231: 37,3356 01734 REFSMMAT
029933,000232: 37,3357 40206 PUSH SETPD # V TO PD 5-11
029934,000233: 37,3360 00001 0
029935,000234: 37,3361 77650 GOTO
029936,000235: 37,3362 77240 COMPDISP
029937,000236:
029938,000237: 37,3363 77624 GETRVN2 CALL
029939,000238: 37,3364 27414 INTSTALL
029940,000239: 37,3365 52014 CLEAR GOTO
029941,000240: 37,3366 01673 INTYPFLG # PREC EXTRAP FOR OTHER
029942,000241: 37,3367 77222 OTHINT
029943,000242: 37,3370 06037 R31SURF TC INTPRET
029944,000243: 37,3371 77634 RTB # LM IS ON SURFACE, SO PRECISION
029945,000244: 37,3372 21573 LOADTIME # INTEGRATION USES PLANETARY INERTIAL
029946,000245: 37,3373 34041 STCALL TDEC1 # ORIENTATION SUBROUTINE
029947,000246: 37,3374 27057 LEMPREC
029948,000247: 37,3375 77650 GOTO # DO CSM CONIC
029949,000248: 37,3376 77211 OTHCONIC
029950,000249: 37,3377 40102 MUNG? CS FLAGWRD6
029951,000250: 37,3400 74744 MASK MUNFLBIT
029952,000251: 37,3401 00006 EXTEND
029953,000252: 37,3402 13326 BZF GETRVN # IF MUNFLAG SET, CSM BASE NOT NEEDED
029954,000253:
029955,000254: 37,3403 06037 ONEBASE TC INTPRET # GET CSM BASE VECTOR
029956,000255: 37,3404 52034 RTB GOTO
029957,000256: 37,3405 21573 LOADTIME
029958,000257: 37,3406 77144 DOCMBASE
029959,000258:
029960,000259: 37,3407 04066 V16N54 VN 1654
029961,000260:
|
|
Page 708
This page is empty.
|
029964,000263:
End of include-file R31.agc. Parent file is MAIN.agc