Source Code
029977,000001: # Copyright: Public domain.
029978,000002: # Filename: R31.agc
029979,000003: # Purpose: Part of the source code for Luminary 1A build 099.
029980,000004: # It is part of the source code for the Lunar Module's (LM)
029981,000005: # Apollo Guidance Computer (AGC), for Apollo 11.
029982,000006: # Assembler: yaYUL
029983,000007: # Contact: Ron Burkey <info@sandroid.org>.
029984,000008: # Website: www.ibiblio.org/apollo.
029985,000009: # Pages: 703-708
029986,000010: # Mod history: 2009-05-19 RSB Adapted from the corresponding
029987,000011: # Luminary131 file, using page
029988,000012: # images from Luminary 1A.
029989,000013:
029990,000014: # This source code has been transcribed or otherwise adapted from
029991,000015: # digitized images of a hardcopy from the MIT Museum. The digitization
029992,000016: # was performed by Paul Fjeld, and arranged for by Deborah Douglas of
029993,000017: # the Museum. Many thanks to both. The images (with suitable reduction
029994,000018: # in storage size and consequent reduction in image quality as well) are
029995,000019: # available online at www.ibiblio.org/apollo. If for some reason you
029996,000020: # find that the images are illegible, contact me at info@sandroid.org
029997,000021: # about getting access to the (much) higher-quality images which Paul
029998,000022: # actually created.
029999,000023:
030000,000024: # Notations on the hardcopy document read, in part:
030001,000025:
030002,000026: # Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
030003,000027: # 16:27 JULY 14, 1969
030004,000028:
030005,000029: # Page 703
030006,000030: 40,3674 BANK 40
030007,000031: 40,2000 SETLOC R31LOC
030008,000032: 40,2000 BANK
030009,000033:
030010,000034: 40,3674 COUNT* $$/R31
030011,000035:
030012,000036: 40,3674 35015 R31CALL CAF PRIO3
030013,000037: 40,3675 05105 TC FINDVAC
030014,000038: 40,3676 E7,1470 EBANK= SUBEXIT
030015,000039: 40,3676 03121 76067 2CADR V83CALL
030016,000040:
030017,000041: 40,3700 05221 DSPDELAY TC FIXDELAY
030018,000042: 40,3701 00144 DEC 100 B-14
030019,000043: 40,3702 31044 CA EXTVBACT
030020,000044: 40,3703 74740 MASK BIT12
030021,000045: 40,3704 00006 EXTEND
030022,000046: 40,3705 13700 BZF DSPDELAY
030023,000047:
030024,000048: 40,3706 35017 CAF PRIO5
030025,000049: 40,3707 05072 TC NOVAC
030026,000050: 40,3710 E7,1611 EBANK= TSTRT
030027,000051: 40,3710 03113 76067 2CADR DISPN5X
030028,000052:
030029,000053: 40,3712 15261 TCF TASKOVER
030030,000054:
030031,000055: 37,3113 BANK 37
030032,000056: 37,2000 SETLOC R31
030033,000057: 37,2000 BANK
030034,000058: 37,3113 COUNT* $$/R31
030035,000059:
030036,000060: 37,3113 33407 DISPN5X CAF V16N54
030037,000061: 37,3114 04616 TC BANKCALL
030038,000062: 37,3115 20334 CADR GOMARKF
030039,000063: 37,3116 05563 TC B5OFF
030040,000064: 37,3117 05563 TC B5OFF
030041,000065: 37,3120 13113 TCF DISPN5X
030042,000066:
030043,000067: 37,3121 40103 V83CALL CS FLAGWRD7 # TEST AVERAGE G FLAG
030044,000068: 37,3122 74747 MASK AVEGFBIT
030045,000069: 37,3123 00006 EXTEND
030046,000070: 37,3124 13377 BZF MUNG? # ON. TEST MUNFLAG
030047,000071:
030048,000072: 37,3125 40104 CS FLAGWRD8
030049,000073: 37,3126 74744 MASK SURFFBIT
030050,000074: 37,3127 00006 EXTEND
030051,000075: 37,3130 13403 BZF ONEBASE # ON SURFACE -- BYPASS LEMPREC
030052,000076:
030053,000077: 37,3131 06037 TC INTPRET # EXTRAPOLATE BOTH STATE VECTORS
030054,000078: 37,3132 77634 RTB
030055,000079: # Page 704
030056,000080: 37,3133 21573 LOADTIME
030057,000081: 37,3134 34041 STCALL TDEC1
030058,000082: 37,3135 27057 LEMPREC # PRECISION BASE VECTOR FOR LM
030059,000083: 37,3136 77775 VLOAD
030060,000084: 37,3137 00017 RATT1
030061,000085: 37,3140 26170 STOVL BASETHP
030062,000086: 37,3141 00025 VATT1
030063,000087: 37,3142 16105 STODL BASETHV
030064,000088: 37,3143 00015 TAT
030065,000089: 37,3144 02114 DOCMBASE STORE BASETIME # PRECISION BASE VECTOR FOR CM
030066,000090: 37,3145 34041 STCALL TDEC1
030067,000091: 37,3146 27043 CSMPREC
030068,000092: 37,3147 77775 VLOAD
030069,000093: 37,3150 00017 RATT1
030070,000094: 37,3151 26140 STOVL BASEOTP
030071,000095: 37,3152 00025 VATT1
030072,000096: 37,3153 02120 STORE BASEOTV
030073,000097: 37,3154 77776 EXIT
030074,000098:
030075,000099: 37,3155 40103 REV83 CS FLAGWRD7
030076,000100: 37,3156 74747 MASK AVEGFBIT
030077,000101: 37,3157 00006 EXTEND
030078,000102: 37,3160 13326 BZF GETRVN # IF AVEGFLAG SET, USE RN,VN
030079,000103:
030080,000104: 37,3161 40104 CS FLAGWRD8
030081,000105: 37,3162 74744 MASK SURFFBIT
030082,000106: 37,3163 00006 EXTEND
030083,000107: 37,3164 13370 BZF R31SURF # IF ON SURFACE, USE LEMAREC
030084,000108:
030085,000109: 37,3165 06037 TC INTPRET # DO CONIC EXTRAPOLATION FOR BOTH VEHICLES
030086,000110: 37,3166 77634 RTB
030087,000111: 37,3167 21573 LOADTIME
030088,000112: 37,3170 34041 STCALL TDEC1
030089,000113: 37,3171 27414 INTSTALL
030090,000114: 37,3172 43175 VLOAD CLEAR
030091,000115: 37,3173 02170 BASETHP
030092,000116: 37,3174 00263 MOONFLAG
030093,000117: 37,3175 25535 STOVL RCV
030094,000118: 37,3176 02105 BASETHV
030095,000119: 37,3177 15543 STODL VCV
030096,000120: 37,3200 02114 BASETIME
030097,000121: 37,3201 43014 BOF SET # GET APPROPRIATE MOONFLAG SETTING
030098,000122: 37,3202 04344 MOONTHIS
030099,000123: 37,3203 77205 +2
030100,000124: 37,3204 00063 MOONFLAG
030101,000125: 37,3205 77614 SET
030102,000126: 37,3206 01473 INTYPFLG # CONIC EXTRAP.
030103,000127: 37,3207 35517 STCALL TET
030104,000128: 37,3210 27107 INTEGRVS # INTEGRATION --- AT LAST ---
030105,000129: 37,3211 77775 OTHCONIC VLOAD
030106,000130: # Page 705
030107,000131: 37,3212 00001 RATT
030108,000132: 37,3213 26207 STOVL RONE
030109,000133: 37,3214 00007 VATT
030110,000134: 37,3215 36215 STCALL VONE # GET SET FOR CONIC EXTRAP., OTHER.
030111,000135: 37,3216 27414 INTSTALL
030112,000136: 37,3217 71214 SET DLOAD
030113,000137: 37,3220 01473 INTYPFLG
030114,000138: 37,3221 00015 TAT
030115,000139: 37,3222 00041 OTHINT STORE TDEC1
030116,000140: 37,3223 43175 VLOAD CLEAR
030117,000141: 37,3224 02140 BASEOTP
030118,000142: 37,3225 00263 MOONFLAG
030119,000143: 37,3226 25535 STOVL RCV
030120,000144: 37,3227 02120 BASEOTV
030121,000145: 37,3230 15543 STODL VCV
030122,000146: 37,3231 02114 BASETIME
030123,000147: 37,3232 43014 BOF SET
030124,000148: 37,3233 04344 MOONTHIS
030125,000149: 37,3234 77236 +2
030126,000150: 37,3235 00063 MOONFLAG
030127,000151: 37,3236 35517 STCALL TET
030128,000152: 37,3237 27107 INTEGRVS
030129,000153: 37,3240 52375 COMPDISP VLOAD VSU
030130,000154: 37,3241 00001 RATT
030131,000155: 37,3242 02207 RONE
030132,000156: 37,3243 65234 RTB PDDL
030133,000157: 37,3244 21724 NORMUNX1 # UNIT(RANGE) TO PD 0-5
030134,000158: 37,3245 00045 36D
030135,000159: 37,3246 77657 SL* # RESCALE AFTER NORMUNIT
030136,000160: 37,3247 20201 0,1
030137,000161: 37,3250 26201 STOVL RANGE # SCALED 2(29)M
030138,000162: 37,3251 00007 VATT
030139,000163: 37,3252 50251 VSU DOT # (VCM-VLM).UNIT(LOS), PD=0
030140,000164: 37,3253 02215 VONE
030141,000165: 37,3254 77752 SL1 # SCALED 2(7)M/CS
030142,000166: 37,3255 26203 STOVL RRATE
030143,000167: 37,3256 02207 RONE
030144,000168: 37,3257 63256 UNIT PDVL # UNIT(R) TO PD 0-5
030145,000169: 37,3260 06514 UNITZ
030146,000170: 37,3261 77624 CALL
030147,000171: 37,3262 47661 CDU*NBSM
030148,000172: 37,3263 41505 VXM PUSH # UNIT(Z)/4 TO PD 6-11
030149,000173: 37,3264 01734 REFSMMAT
030150,000174: 37,3265 72431 VPROJ VSL2 # UNIT(P)=UNIT(UZ-(UZ)PROJ(UR))
030151,000175: 37,3266 00001 0D
030152,000176: 37,3267 53445 BVSU UNIT
030153,000177: 37,3270 00007 6D
030154,000178: 37,3271 47315 PDVL VXV # UNIT(P) TO PD 12-17
030155,000179: 37,3272 00001 0D # UNIT(RL)
030156,000180: 37,3273 02215 VONE
030157,000181: # Page 706
030158,000182: 37,3274 50235 VXV DOT # (UR * VL) * UR . U(P)
030159,000183: 37,3275 00001 0D
030160,000184: 37,3276 00015 12D
030161,000185: 37,3277 77715 PDVL # SIGN TO 12-13, LOAD U(P)
030162,000186: 37,3300 75241 DOT SIGN
030163,000187: 37,3301 00007 6D
030164,000188: 37,3302 00015 12D
030165,000189: 37,3303 65512 SL2 ACOS # ARCCOS(UP.UZ(SIGN))
030166,000190: 37,3304 26205 STOVL RTHETA
030167,000191: 37,3305 00001 0D
030168,000192: 37,3306 51041 DOT BPL # IF UR.UZ NEG,
030169,000193: 37,3307 00007 6D # RTHETA = 1 - RTHETA
030170,000194: 37,3310 77315 +5
030171,000195: 37,3311 45345 DLOAD DSU
030172,000196: 37,3312 06530 DPPOSMAX
030173,000197: 37,3313 02205 RTHETA
030174,000198: 37,3314 02205 STORE RTHETA
030175,000199: 37,3315 77776 EXIT
030176,000200:
030177,000201: 37,3316 34747 CA BIT5
030178,000202: 37,3317 71044 MASK EXTVBACT
030179,000203: 37,3320 00006 EXTEND # IF ANSWERED,
030180,000204: 37,3321 15472 BZF ENDEXT # TERMINATE
030181,000205:
030182,000206: 37,3322 41044 CS EXTVBACT
030183,000207: 37,3323 74740 MASK BIT12
030184,000208: 37,3324 27044 ADS EXTVBACT # SET BIT 12
030185,000209: 37,3325 13155 TCF REV83 # AND START AGAIN.
030186,000210:
030187,000211: 37,3326 37710 GETRVN CA PRIO22 # INHIBIT SERVICER
030188,000212: 37,3327 05146 TC PRIOCHNG
030189,000213: 37,3330 06037 TC INTPRET
030190,000214: 37,3331 40375 VLOAD SETPD
030191,000215: 37,3332 01221 RN # LM STATE VECTOR IN RN,VN.
030192,000216: 37,3333 00001 0
030193,000217: 37,3334 26207 STOVL RONE
030194,000218: 37,3335 01227 VN
030195,000219: 37,3336 26215 STOVL VONE # LOAD R(CSM),V(CSM) IN CASE MUNFLAG SET
030196,000220: 37,3337 01726 V(CSM) # (TO INSURE TIME COMPATIBILITY)
030197,000221: 37,3340 65315 PDVL PDDL
030198,000222: 37,3341 01720 R(CSM)
030199,000223: 37,3342 01235 PIPTIME
030200,000224: 37,3343 77776 EXIT
030201,000225: 37,3344 35015 CA PRIO3
030202,000226: 37,3345 05146 TC PRIOCHNG
030203,000227: 37,3346 06037 TC INTPRET
030204,000228: 37,3347 77214 BOFF VLOAD
030205,000229: 37,3350 03347 MUNFLAG
030206,000230: 37,3351 77363 GETRVN2 # IF MUNFLAG RESET, DO CM DELTA PRECISION
030207,000231: # Page 707
030208,000232: 37,3352 60505 VXM VSR4 # CHANGE TO REFERENCE SYSTEM AND RESCALE
030209,000233: 37,3353 01734 REFSMMAT
030210,000234: 37,3354 77715 PDVL # R TO PD 0-5
030211,000235: 37,3355 76505 VXM VSL1
030212,000236: 37,3356 01734 REFSMMAT
030213,000237: 37,3357 40206 PUSH SETPD # V TO PD 5-11
030214,000238: 37,3360 00001 0
030215,000239: 37,3361 77650 GOTO
030216,000240: 37,3362 77240 COMPDISP
030217,000241:
030218,000242: 37,3363 77624 GETRVN2 CALL
030219,000243: 37,3364 27414 INTSTALL
030220,000244: 37,3365 52014 CLEAR GOTO
030221,000245: 37,3366 01673 INTYPFLG # PREC EXTRAP FOR OTHER
030222,000246: 37,3367 77222 OTHINT
030223,000247: 37,3370 06037 R31SURF TC INTPRET
030224,000248: 37,3371 77634 RTB # LM IS ON SURFACE, SO PRECISION
030225,000249: 37,3372 21573 LOADTIME # INTEGRATION USED PLANETARY INERTIAL
030226,000250: 37,3373 34041 STCALL TDEC1 # ORIENTATION SUBROUTINE
030227,000251: 37,3374 27057 LEMPREC
030228,000252: 37,3375 77650 GOTO # DO CSM CONIC
030229,000253: 37,3376 77211 OTHCONIC
030230,000254: 37,3377 40102 MUNG? CS FLAGWRD6
030231,000255: 37,3400 74744 MASK MUNFLBIT
030232,000256: 37,3401 00006 EXTEND
030233,000257: 37,3402 13326 BZF GETRVN # IF MUNFLAG SET, CSM BASE NOT NEEDED
030234,000258:
030235,000259: 37,3403 06037 ONEBASE TC INTPRET # GET CSM BASE VECTOR
030236,000260: 37,3404 52034 RTB GOTO
030237,000261: 37,3405 21573 LOADTIME
030238,000262: 37,3406 77144 DOCMBASE
030239,000263:
030240,000264: 37,3407 04066 V16N54 VN 1654
030241,000265:
030242,000266: # Page 708 (empty page)
030243,000267:
End of include-file R31.agc. Parent file is MAIN.agc