Source Code

029672,000001: 029673,000002: 029674,000003: 029675,000004: 029676,000005: 029677,000006: 029678,000007: 029679,000008: 029680,000009: 029681,000010: 029682,000011: 029683,000012: 029684,000013: 029685,000014: 029686,000015: 029687,000016: 029688,000017: 029689,000018: 029690,000019: 029691,000020: 029692,000021: 029693,000022: 029694,000023: 029695,000024: 029696,000025: 029697,000026: 029698,000027: 029699,000028: 029700,000029: 029701,000030: 029702,000031: 029703,000032: 029704,000033: 029705,000034: 029706,000035: 30,2061 029707,000036: 13,2000 029708,000037: 13,2000 029709,000038: 029710,000039: 13,2207 029711,000040: 029712,000041: 13,2207 E7,1441 029713,000042: 029714,000043: 029715,000044: 13,2210 029716,000045: 029717,000046: 13,2211 029718,000047: 13,2212 029719,000048: 13,2213 029720,000049: 13,2214 029721,000050: 13,2215 029722,000051: 029723,000052: 13,2216 029724,000053: 13,2217 029725,000054: 13,2220 029726,000055: 13,2221 029727,000056: 13,2222 029728,000057: 13,2223 029729,000058: 13,2224 029730,000059: 13,2225 029731,000060: 13,2226 029732,000061: 13,2227 029733,000062: 13,2230 029734,000063: 13,2231 029735,000064: 13,2232 029736,000065: 029737,000066: 13,2233 029738,000067: 13,2234 029739,000068: 13,2235 029740,000069: 13,2236 029741,000070: 13,2237 029799,000128: 029800,000129: 13,2330 029801,000130: # Copyright: Public domain. # Filename: P76.agc # Purpose: A section of Luminary 1C, revision 131. # It is part of the source code for the Lunar Module's (LM) # Apollo Guidance Computer (AGC) for Apollo 13 and Apollo 14. # This file is intended to be a faithful transcription, except # that the code format has been changed to conform to the # requirements of the yaYUL assembler rather than the # original YUL assembler. # Reference: pp. 716-718 of 1729.pdf. # Contact: Ron Burkey <info@sandroid.org>. # Website: www.ibiblio.org/apollo # Mod history: 05/24/03 RSB. Began transcribing. # Page 716 # 1) PROGRAM NAME -- TARGET DELTA V PROGRAM (P76). # 2) FUNCTIONAL DESCRIPTION -- UPON ENTRY BY ASTRONAUT ACTION, P76 FLASHES DSKY REQUESTS TO THE ASTRONAUT # TO PROVIDE VIA DSKY (1) THE DELTA V TO BE APPLIED TO THE OTHER VEHICLE STATE VECTOR AND (2) THE # TIME (TIG) AT WHICH THE OTHER VEHICLE VELOCITY WAS CHANGED BY EXECUTION OF A THRUSTING MANEUVER. THE # OTHER VEHICLE STATE VECTOR IS INTEGRATED TO TIG AND UPDATED BY THE ADDITION OF DELTA V (DELTA V HAVING # BEEN TRANSFORMED FROM LV TO REF COSYS). USING INTEGRVS, THE PROGRAM THEN INTEGRATES THE OTHER # VEHICLE STATE VECTOR TO THE STATE VECTOR OF THIS VEHICLE, THUS INSURING THAT THE W-MATRIX AND BOTH VEHICLE # STATES CORRESPOND TO THE SAME TIME. # 3) ERASABLE INIITIALIZATION REQUIRED -- NONE. # 4) CALLING SEQUENCES AND EXIT MODES -- CALLED BY ASTRONAUT REQUEST THRU DSKY V 37 E 76E. # EXITS BY TCF ENDOFJOB. # 5) OUTPUT -- OTHER VEHICLE STATE VECTOR INTEGRATED TO TIG AND INCREMENTED BY DELTA V IN REF COSYS. # THE PUSHLIST CONTAINS THE MATRIX BY WHICH THE INPUT DELTA V MUST BE POST-MULTIPLIED TO CONVERT FROM LV # TO REF COSYS. # 6) DEBRIS -- OTHER VEHICLE STATE VECTOR. # 7) SUBROUTINES CALLED -- BANKCALL, GOXDSPF, CSMPREC (OR LEMPREC), ATOPCSM (OR ATOPLEM), INTSTALL, INTWAKE, PHASCHNG # INTPRET, INTEGRVS, AND MINIRECT. # 8) FLAG USE -- MOONFLAG, CMOONFLG, INTYPFLG, RASFLAG, AND MARKCT. BANK 30 SETLOC P76LOC BANK COUNT* $$/P76 EBANK= TIG 13,2207 05504 P76 TC UPFLAG 00031 ADRES TRACKFLG 06042 TC INTPRET 77775 VLOAD 03434 DELVLVC 02223 STORE DELVOV 77776 EXIT 32335 CAF V06N84 +1 # FLASH VERB 06 NOUN 33, DISPLAY LAST TIG, 04616 TC BANKCALL # AND WAIT FOR KEYBOARD ACTION. 20477 CADR GOFLASH 12331 TCF ENDP76 02224 TC +2 # PROCEED 02216 TC -5 # STORE DATA AND REPEAT FLASHING 32334 CAF V06N84 # FLASH LAST DELTA V, 04616 TC BANKCALL # AND WAIT FOR KEYBOARD ACTION. 20477 CADR GOFLASH 12331 TCF ENDP76 02232 TC +2 02224 TC -5 06042 TC INTPRET # RETURN TO INTERPRETIVE CODE # Page 717 43145 DLOAD SET 03442 TIG 01076 NODOFLAG 34041 STCALL TDEC1 # SET TDEC1=TIG FOR ORBITAL INTEGRATION 27042 OTHPREC 4">029742,000071: 13,2240 53575 COMPMAT VLOAD UNIT 00001 RATT 77676 VCOMP # U(-R) 00031 STORE 24D # U(-R) TO 24D 53435 VXV UNIT # U(-R) X V = U(V X R) 00007 VATT 00023 STORE 18D 53435 VXV UNIT # U(V X R) X U(-R) = U((R X V) X R) 00031 24D 24015 STOVL 12D 02223 DELVOV 76505 VXM VSL1 # V(MPAC)=DELTA V IN REFCOSYS 00015 12D 77655 VAD 00007 VATT 00007 STORE 6 # V(PD6)=VATT + DELTA V 77624 CALL # PRESENT WOULD-BE USER OF ORBITAL 27410 INTSTALL # INTEG FROM INTERFERING WITH UPDATING 77624 CALL 26336 P76SUB1 53775 VLOAD VSR* 00007 6 57176 0,2 25543 STOVL VCV 00001 RATT 77657 VSR* 57176 0,2 15535 STODL RCV 03442 TIG 01517 STORE TET 71214 CLEAR DLOAD 01673 INTYPFLG 01643 TETTHIS 953">029775,000104: 13,2301 34041 INTOTHIS STCALL TDEC1 27106 INTEGRVS 77624 CALL 27410 INTSTALL 77775 VLOAD 00017 RATT1 01503 STORE RRECT 15535 STODL RCV 00015 TAT 25517 STOVL TET 00025 VATT1 77624 CALL # Page 718 27705 MINIRECT 77776 EXIT 05353 TC PHASCHNG 04024 OCT 04024 06042 TC INTPRET 45014 SET CALL 05070 REINTFLG 26660 ATOPOTH 77624 CALL 27417 INTWAKE0 13,2327 77414 OUT CLEAR EXIT # ALLOW V37. NO NEED TO CLEAR NODOFLAG AT 01276 NODOFLAG # ENDP76 SINCE FLAG NOT SET WHEN DISPLAY # RESPONSES TRANSFER THERE FROM P76+. >029802,000131: 13,2331 34755 ENDP76 CAF ZERO 55462 TS MARKCTR # CLEAR RR TRACKING MARK COUNTER 16001 TCF GOTOP00H >029806,000135: 13,2334 01524 V06N84 NV 0684 01441 NV 0633 1">029808,000137: 13,2336 43174 P76SUB1 AXT,2 SET 00002 2 00063 MOONFLAG # SET MEANS MOON IS SPHERE OF INFLUENCE. 77014 BON AXT,2 04303 CMOONFLG # SET MEANS PERM CM STATE IN LUNAR SPHERE. 00052 QPRET 00000 0 43414 CLEAR RVQ 00263 MOONFLAG Parent file is MAIN.agc