Source Code
029416,000001: # Copyright: Public domain.
029417,000002: # Filename: R31.agc
029418,000003: # Purpose: A section of Luminary 1C, revision 131.
029419,000004: # It is part of the source code for the Lunar Module's (LM)
029420,000005: # Apollo Guidance Computer (AGC) for Apollo 13 and Apollo 14.
029421,000006: # This file is intended to be a faithful transcription, except
029422,000007: # that the code format has been changed to conform to the
029423,000008: # requirements of the yaYUL assembler rather than the
029424,000009: # original YUL assembler.
029425,000010: # Reference: pp. 710-715 of 1729.pdf.
029426,000011: # Contact: Ron Burkey <info@sandroid.org>.
029427,000012: # Website: www.ibiblio.org/apollo/index.html
029428,000013: # Mod history: 05/24/03 RSB. Began transcribing.
029429,000014: # 05/14/05 RSB Corrected website reference above.
029430,000015:
029431,000016: # Page 710
029432,000017: 40,3737 BANK 40
029433,000018: 40,2000 SETLOC R31LOC
029434,000019: 40,2000 BANK
029435,000020:
029436,000021: 40,3737 COUNT* $$/R31
029437,000022:
029438,000023: 40,3737 35015 R31CALL CAF PRIO3
029439,000024: 40,3740 05105 TC FINDVAC
029440,000025: 40,3741 E7,1470 EBANK= SUBEXIT
029441,000026: 40,3741 03121 76067 2CADR V83CALL
029442,000027:
029443,000028: 40,3743 05221 DSPDELAY TC FIXDELAY
029444,000029: 40,3744 00144 DEC 100 B-14
029445,000030: 40,3745 31043 CA EXTVBACT
029446,000031: 40,3746 74740 MASK BIT12
029447,000032: 40,3747 00006 EXTEND
029448,000033: 40,3750 13743 BZF DSPDELAY
029449,000034:
029450,000035: 40,3751 35017 CAF PRIO5
029451,000036: 40,3752 05072 TC NOVAC
029452,000037: 40,3753 E7,1611 EBANK= TSTRT
029453,000038: 40,3753 03113 76067 2CADR DISPN5X
029454,000039:
029455,000040: 40,3755 15261 TCF TASKOVER
029456,000041:
029457,000042: 37,3113 BANK 37
029458,000043: 37,2000 SETLOC R31
029459,000044: 37,2000 BANK
029460,000045: 37,3113 COUNT* $$/R31
029461,000046:
029462,000047: 37,3113 33407 DISPN5X CAF V16N54
029463,000048: 37,3114 04616 TC BANKCALL
029464,000049: 37,3115 20334 CADR GOMARKF
029465,000050: 37,3116 05563 TC B5OFF
029466,000051: 37,3117 05563 TC B5OFF
029467,000052: 37,3120 13113 TCF DISPN5X
029468,000053:
029469,000054: 37,3121 40103 V83CALL CS FLAGWRD7 # TEST AVERAGE G FLAG
029470,000055: 37,3122 74747 MASK AVEGFBIT
029471,000056: 37,3123 00006 EXTEND
029472,000057: 37,3124 13377 BZF MUNG? # ON. TEST MUNFLAG
029473,000058:
029474,000059: 37,3125 40104 CS FLAGWRD8
029475,000060: 37,3126 74744 MASK SURFFBIT
029476,000061: 37,3127 00006 EXTEND
029477,000062: 37,3130 13403 BZF ONEBASE # ON SURFACE -- BYPASS LEMPREC
029478,000063:
029479,000064: 37,3131 06042 TC INTPRET # EXTRAPOLATE BOTH STATE VECTORS
029480,000065: 37,3132 77634 RTB
029481,000066: # Page 711
029482,000067: 37,3133 21574 LOADTIME
029483,000068: 37,3134 34041 STCALL TDEC1
029484,000069: 37,3135 27056 LEMPREC # PRECISION BASE VECTOR FOR LM
029485,000070: 37,3136 77775 VLOAD
029486,000071: 37,3137 00017 RATT1
029487,000072: 37,3140 26170 STOVL BASETHP
029488,000073: 37,3141 00025 VATT1
029489,000074: 37,3142 16105 STODL BASETHV
029490,000075: 37,3143 00015 TAT
029491,000076: 37,3144 02114 DOCMBASE STORE BASETIME # PRECISION BASE VECTOR FOR CM
029492,000077: 37,3145 34041 STCALL TDEC1
029493,000078: 37,3146 27042 CSMPREC
029494,000079: 37,3147 77775 VLOAD
029495,000080: 37,3150 00017 RATT1
029496,000081: 37,3151 26140 STOVL BASEOTP
029497,000082: 37,3152 00025 VATT1
029498,000083: 37,3153 02120 STORE BASEOTV
029499,000084: 37,3154 77776 EXIT
029500,000085:
029501,000086: 37,3155 40103 REV83 CS FLAGWRD7
029502,000087: 37,3156 74747 MASK AVEGFBIT
029503,000088: 37,3157 00006 EXTEND
029504,000089: 37,3160 13326 BZF GETRVN # TF AVEGFLAG SET, USE RN,VN
029505,000090:
029506,000091: 37,3161 40104 CS FLAGWRD8
029507,000092: 37,3162 74744 MASK SURFFBIT
029508,000093: 37,3163 00006 EXTEND
029509,000094: 37,3164 13370 BZF R31SURF # IF ON SURFACE, USE LEMAREC
029510,000095:
029511,000096: 37,3165 06042 TC INTPRET # DO CONIC EXTRAPOLATION FOR BOTH VEHICLES
029512,000097: 37,3166 77634 RTB
029513,000098: 37,3167 21574 LOADTIME
029514,000099: 37,3170 34041 STCALL TDEC1
029515,000100: 37,3171 27410 INTSTALL
029516,000101: 37,3172 43175 VLOAD CLEAR
029517,000102: 37,3173 02170 BASETHP
029518,000103: 37,3174 00263 MOONFLAG
029519,000104: 37,3175 25535 STOVL RCV
029520,000105: 37,3176 02105 BASETHV
029521,000106: 37,3177 15543 STODL VCV
029522,000107: 37,3200 02114 BASETIME
029523,000108: 37,3201 43014 BOF SET # GET APPROPRIATE MOONFLAG SETTING
029524,000109: 37,3202 04344 MOONTHIS
029525,000110: 37,3203 77205 +2
029526,000111: 37,3204 00063 MOONFLAG
029527,000112: 37,3205 77614 SET
029528,000113: 37,3206 01473 INTYPFLG # CONIC EXTRAP.
029529,000114: 37,3207 35517 STCALL TET
029530,000115: 37,3210 27106 INTEGRVS # INTEGRATION --- AT LAST ---
029531,000116: 37,3211 77775 OTHCONIC VLOAD
029532,000117: # Page 712
029533,000118: 37,3212 00001 RATT
029534,000119: 37,3213 26207 STOVL RONE
029535,000120: 37,3214 00007 VATT
029536,000121: 37,3215 36215 STCALL VONE # GET SET FOR CONIC EXTRAP., OTHER.
029537,000122: 37,3216 27410 INTSTALL
029538,000123: 37,3217 71214 SET DLOAD
029539,000124: 37,3220 01473 INTYPFLG
029540,000125: 37,3221 00015 TAT
029541,000126: 37,3222 00041 OTHINT STORE TDEC1
029542,000127: 37,3223 43175 VLOAD CLEAR
029543,000128: 37,3224 02140 BASEOTP
029544,000129: 37,3225 00263 MOONFLAG
029545,000130: 37,3226 25535 STOVL RCV
029546,000131: 37,3227 02120 BASEOTV
029547,000132: 37,3230 15543 STODL VCV
029548,000133: 37,3231 02114 BASETIME
029549,000134: 37,3232 43014 BOF SET
029550,000135: 37,3233 04344 MOONTHIS
029551,000136: 37,3234 77236 +2
029552,000137: 37,3235 00063 MOONFLAG
029553,000138: 37,3236 35517 STCALL TET
029554,000139: 37,3237 27106 INTEGRVS
029555,000140: 37,3240 52375 COMPDISP VLOAD VSU
029556,000141: 37,3241 00001 RATT
029557,000142: 37,3242 02207 RONE
029558,000143: 37,3243 65234 RTB PDDL
029559,000144: 37,3244 21725 NORMUNX1 # UNIT(RANGE) TO PD 0-5
029560,000145: 37,3245 00045 36D
029561,000146: 37,3246 77657 SL* # RESCALE AFTER NORMUNIT
029562,000147: 37,3247 20201 0,1
029563,000148: 37,3250 26201 STOVL RANGE # SCALED 2(29)M
029564,000149: 37,3251 00007 VATT
029565,000150: 37,3252 50251 VSU DOT # (VCM-VLM).UNIT(LOS), PD=0
029566,000151: 37,3253 02215 VONE
029567,000152: 37,3254 77752 SL1 # SCALED 2(7)M/CS
029568,000153: 37,3255 26203 STOVL RRATE
029569,000154: 37,3256 02207 RONE
029570,000155: 37,3257 63256 UNIT PDVL # UNIT(R) TO PD 0-5
029571,000156: 37,3260 06516 UNITZ
029572,000157: 37,3261 77624 CALL
029573,000158: 37,3262 47663 CDU*NBSM
029574,000159: 37,3263 41505 VXM PUSH # UNIT(Z)/4 TO PD 6-1
029575,000160: 37,3264 01734 REFSMMAT
029576,000161: 37,3265 72431 VPROJ VSL2 # UNIT(P)=UNIT(UZ-(UZ)PROJ(UR))
029577,000162: 37,3266 00001 0D
029578,000163: 37,3267 53445 BVSU UNIT
029579,000164: 37,3270 00007 6D
029580,000165: 37,3271 47315 PDVL VXV # UNIT(P) TO PD 12-17
029581,000166: 37,3272 00001 0D # UNIT(RL)
029582,000167: 37,3273 02215 VONE
029583,000168: # Page 713
029584,000169: 37,3274 50235 VXV DOT # (UR * VL) * UR . U(P)
029585,000170: 37,3275 00001 0D
029586,000171: 37,3276 00015 12D
029587,000172: 37,3277 77715 PDVL # SIGN TO 12-13, LOAD U(P)
029588,000173: 37,3300 75241 DOT SIGN
029589,000174: 37,3301 00007 6D
029590,000175: 37,3302 00015 12D
029591,000176: 37,3303 65512 SL2 ACOS # ARCCOS(UP.UZ(SIGN))
029592,000177: 37,3304 26205 STOVL RTHETA
029593,000178: 37,3305 00001 0D
029594,000179: 37,3306 51041 DOT BPL # IF UR.UZ NEG,
029595,000180: 37,3307 00007 6D # RTHETA = 1 - RTHETA
029596,000181: 37,3310 77315 +5
029597,000182: 37,3311 45345 DLOAD DSU
029598,000183: 37,3312 06532 DPPOSMAX
029599,000184: 37,3313 02205 RTHETA
029600,000185: 37,3314 02205 STORE RTHETA
029601,000186: 37,3315 77776 EXIT
029602,000187:
029603,000188: 37,3316 34747 CA BIT5
029604,000189: 37,3317 71043 MASK EXTVBACT
029605,000190: 37,3320 00006 EXTEND # IF ANSWERED,
029606,000191: 37,3321 15472 BZF ENDEXT # TERMINATE
029607,000192:
029608,000193: 37,3322 41043 CS EXTVBACT
029609,000194: 37,3323 74740 MASK BIT12
029610,000195: 37,3324 27043 ADS EXTVBACT # SET BIT 12
029611,000196: 37,3325 13155 TCF REV83 # AND START AGAIN.
029612,000197:
029613,000198: 37,3326 37713 GETRVN CA PRIO22 # INHIBIT SERVICER
029614,000199: 37,3327 05146 TC PRIOCHNG
029615,000200: 37,3330 06042 TC INTPRET
029616,000201: 37,3331 40375 VLOAD SETPD
029617,000202: 37,3332 01220 RN # LM STATE VECTOR IN RN,VN.
029618,000203: 37,3333 00001 0
029619,000204: 37,3334 26207 STOVL RONE
029620,000205: 37,3335 01226 VN
029621,000206: 37,3336 26215 STOVL VONE # LOAD R(CSM),V(CSM) IN CASE MUNFLAG SET
029622,000207: 37,3337 01726 V(CSM) # (TO INSURE TIME COMPATIBILITY)
029623,000208: 37,3340 65315 PDVL PDDL
029624,000209: 37,3341 01720 R(CSM)
029625,000210: 37,3342 01234 PIPTIME
029626,000211: 37,3343 77776 EXIT
029627,000212: 37,3344 35015 CA PRIO3
029628,000213: 37,3345 05146 TC PRIOCHNG
029629,000214: 37,3346 06042 TC INTPRET
029630,000215: 37,3347 77214 BOFF VLOAD
029631,000216: 37,3350 03347 MUNFLAG
029632,000217: 37,3351 77363 GETRVN2 # IF MUNFLAG RESET, DO CM DELTA PRECISION
029633,000218: # Page 714
029634,000219: 37,3352 60505 VXM VSR4 # CHANGE TO REFERENCE SYSTEM AND RESCALE
029635,000220: 37,3353 01734 REFSMMAT
029636,000221: 37,3354 77715 PDVL # R TO PD 0-5
029637,000222: 37,3355 76505 VXM VSL1
029638,000223: 37,3356 01734 REFSMMAT
029639,000224: 37,3357 40206 PUSH SETPD # V TO PD 5-11
029640,000225: 37,3360 00001 0
029641,000226: 37,3361 77650 GOTO
029642,000227: 37,3362 77240 COMPDISP
029643,000228:
029644,000229: 37,3363 77624 GETRVN2 CALL
029645,000230: 37,3364 27410 INTSTALL
029646,000231: 37,3365 52014 CLEAR GOTO
029647,000232: 37,3366 01673 INTYPFLG # PREC EXTRAP FOR OTHER
029648,000233: 37,3367 77222 OTHINT
029649,000234: 37,3370 06042 R31SURF TC INTPRET
029650,000235: 37,3371 77634 RTB # LM IS ON SURFACE, SO PRECISION
029651,000236: 37,3372 21574 LOADTIME # INTEGRATION USED PLANETARY INERTIAL
029652,000237: 37,3373 34041 STCALL TDEC1 # ORIENTATION SUBROUTINE
029653,000238: 37,3374 27056 LEMPREC
029654,000239: 37,3375 77650 GOTO # DO CSM CONIC
029655,000240: 37,3376 77211 OTHCONIC
029656,000241: 37,3377 40102 MUNG? CS FLAGWRD6
029657,000242: 37,3400 74744 MASK MUNFLBIT
029658,000243: 37,3401 00006 EXTEND
029659,000244: 37,3402 13326 BZF GETRVN # IF MUNFLAG SET, CSM BASE NOT NEEDED
029660,000245:
029661,000246: 37,3403 06042 ONEBASE TC INTPRET # GET CSM BASE VECTOR
029662,000247: 37,3404 52034 RTB GOTO
029663,000248: 37,3405 21574 LOADTIME
029664,000249: 37,3406 77144 DOCMBASE
029665,000250:
029666,000251: 37,3407 04066 V16N54 VN 1654
029667,000252:
029668,000253: # Page 715
029669,000254: # (The original program listing had no source lines on this page.)
029670,000255:
End of include-file R31.agc. Parent file is MAIN.agc