Source Code
030245,000001: # Copyright: Public domain.
030246,000002: # Filename: P76.agc
030247,000003: # Purpose: Part of the source code for Luminary 1A build 099.
030248,000004: # It is part of the source code for the Lunar Module's (LM)
030249,000005: # Apollo Guidance Computer (AGC), for Apollo 11.
030250,000006: # Assembler: yaYUL
030251,000007: # Contact: Ron Burkey <info@sandroid.org>.
030252,000008: # Website: www.ibiblio.org/apollo.
030253,000009: # Pages: 709-711
030254,000010: # Mod history: 2009-05-19 RSB Adapted from the corresponding
030255,000011: # Luminary131 file, using page
030256,000012: # images from Luminary 1A.
030257,000013:
030258,000014: # This source code has been transcribed or otherwise adapted from
030259,000015: # digitized images of a hardcopy from the MIT Museum. The digitization
030260,000016: # was performed by Paul Fjeld, and arranged for by Deborah Douglas of
030261,000017: # the Museum. Many thanks to both. The images (with suitable reduction
030262,000018: # in storage size and consequent reduction in image quality as well) are
030263,000019: # available online at www.ibiblio.org/apollo. If for some reason you
030264,000020: # find that the images are illegible, contact me at info@sandroid.org
030265,000021: # about getting access to the (much) higher-quality images which Paul
030266,000022: # actually created.
030267,000023:
030268,000024: # Notations on the hardcopy document read, in part:
030269,000025:
030270,000026: # Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
030271,000027: # 16:27 JULY 14, 1969
030272,000028:
030273,000029: # Page 709
030274,000030: # 1) PROGRAM NAME -- TARGET DELTA V PROGRAM (P76).
030275,000031: # 2) FUNCTIONAL DESCRIPTION -- UPON ENTRY BY ASTRONAUT ACTION, P76 FLASHES DSKY REQUESTS TO THE ASTRONAUT
030276,000032: # TO PROVIDE VIA DSKY (1) THE DELTA V TO BE APPLIED TO THE OTHER VEHICLE STATE VECTOR AND (2) THE
030277,000033: # TIME (TIG) AT WHICH THE OTHER VEHICLE VELOCITY WAS CHANGED BY EXECUTION OF A THRUSTING MANEUVER. THE
030278,000034: # OTHER VEHICLE STATE VECTOR IS INTEGRATED TO TIG AND UPDATED BY THE ADDITION OF DELTA V (DELTA V HAVING
030279,000035: # BEEN TRANSFORMED FROM LV TO REF COSYS). USING INTEGRVS, THE PROGRAM THEN INTEGRATES THE OTHER
030280,000036: # VEHICLE STATE VECTOR TO THE STATE VECTOR OF THIS VEHICLE, THUS INSURING THAT THE W-MATRIX AND BOTH VEHICLE
030281,000037: # STATES CORRESPOND TO THE SAME TIME.
030282,000038: # 3) ERASABLE INIITIALIZATION REQUIRED -- NONE.
030283,000039: # 4) CALLING SEQUENCES AND EXIT MODES -- CALLED BY ASTRONAUT REQUEST THRU DSKY V 37 E 76E.
030284,000040: # EXITS BY TCF ENDOFJOB.
030285,000041: # 5) OUTPUT -- OTHER VEHICLE STATE VECTOR INTEGRATED TO TIG AND INCREMENTED BY DELTA V IN REF COSYS.
030286,000042: # THE PUSHLIST CONTAINS THE MATRIX BY WHICH THE INPUT DELTA V MUST BE POST-MULTIPLIED TO CONVERT FROM LV
030287,000043: # TO REF COSYS.
030288,000044: # 6) DEBRIS -- OTHER VEHICLE STATE VECTOR.
030289,000045: # 7) SUBROUTINES CALLED -- BANKCALL, GOXDSPF, CSMPREC (OR LEMPREC), ATOPCSM (OR ATOPLEM), INTSTALL, INTWAKE, PHASCHNG
030290,000046: # INTPRET, INTEGRVS, AND MINIRECT.
030291,000047: # 8) FLAG USE -- MOONFLAG, CMOONFLG, INTYPFLG, RASFLAG, AND MARKCTR.
030292,000048:
030293,000049: 30,2061 BANK 30
030294,000050: 13,2000 SETLOC P76LOC
030295,000051: 13,2000 BANK
030296,000052:
030297,000053: 13,2207 COUNT* $$/P76
030298,000054:
030299,000055: 13,2207 E7,1441 EBANK= TIG
030300,000056:
030301,000057: 13,2207 05504 P76 TC UPFLAG
030302,000058: 13,2210 00031 ADRES TRACKFLG
030303,000059:
030304,000060: 13,2211 06037 TC INTPRET
030305,000061: 13,2212 77775 VLOAD
030306,000062: 13,2213 03434 DELVLVC
030307,000063: 13,2214 02223 STORE DELVOV
030308,000064: 13,2215 77776 EXIT
030309,000065:
030310,000066: 13,2216 32336 CAF V06N84 # FLASH LAST DELTA V,
030311,000067: 13,2217 04616 TC BANKCALL # AND WAIT FOR KEYBOARD ACTION.
030312,000068: 13,2220 20476 CADR GOFLASH
030313,000069: 13,2221 12333 TCF ENDP76
030314,000070: 13,2222 02224 TC +2 # PROCEED
030315,000071: 13,2223 02216 TC -5 # STORE DATA AND REPEAT FLASHING
030316,000072: 13,2224 32337 CAF V06N84 +1 # FLASH VERB 06 NOUN 33, DISPLAY LAST TIG,
030317,000073: 13,2225 04616 TC BANKCALL # AND WAIT FOR KEYBOARD ACTION.
030318,000074: 13,2226 20476 CADR GOFLASH
030319,000075: 13,2227 12333 TCF ENDP76
030320,000076: 13,2230 02232 TC +2
030321,000077: 13,2231 02224 TC -5
030322,000078: 13,2232 06037 TC INTPRET # RETURN TO INTERPRETIVE CODE
030323,000079: # Page 710
030324,000080: 13,2233 77745 DLOAD # SET D(MPAC)=TIG IN CSEC B28
030325,000081: 13,2234 03442 TIG
030326,000082: 13,2235 34041 STCALL TDEC1 # SET TDEC1=TIG FOR ORBITAL INTEGRATION
030327,000083: 13,2236 27043 OTHPREC
030328,000084: 13,2237 53575 COMPMAT VLOAD UNIT
030329,000085: 13,2240 00001 RATT
030330,000086: 13,2241 77676 VCOMP # U(-R)
030331,000087: 13,2242 00031 STORE 24D # U(-R) TO 24D
030332,000088: 13,2243 53435 VXV UNIT # U(-R) X V = U(V X R)
030333,000089: 13,2244 00007 VATT
030334,000090: 13,2245 00023 STORE 18D
030335,000091: 13,2246 53435 VXV UNIT # U(V X R) X U(-R) = U((R X V) X R)
030336,000092: 13,2247 00031 24D
030337,000093: 13,2250 24015 STOVL 12D
030338,000094: 13,2251 02223 DELVOV
030339,000095: 13,2252 76505 VXM VSL1 # V(MPAC)=DELTA V IN REFCOSYS
030340,000096: 13,2253 00015 12D
030341,000097: 13,2254 77655 VAD
030342,000098: 13,2255 00007 VATT
030343,000099: 13,2256 00007 STORE 6 # V(PD6)=VATT + DELTA V
030344,000100: 13,2257 77624 CALL # PRESENT WOULD-BE USER OF ORBITAL
030345,000101: 13,2260 27414 INTSTALL # INTEG FROM INTERFERING WITH UPDATING
030346,000102: 13,2261 77624 CALL
030347,000103: 13,2262 26340 P76SUB1
030348,000104: 13,2263 53775 VLOAD VSR*
030349,000105: 13,2264 00007 6
030350,000106: 13,2265 57176 0,2
030351,000107: 13,2266 25543 STOVL VCV
030352,000108: 13,2267 00001 RATT
030353,000109: 13,2270 77657 VSR*
030354,000110: 13,2271 57176 0,2
030355,000111: 13,2272 15535 STODL RCV
030356,000112: 13,2273 03442 TIG
030357,000113: 13,2274 01517 STORE TET
030358,000114: 13,2275 71214 CLEAR DLOAD
030359,000115: 13,2276 01673 INTYPFLG
030360,000116: 13,2277 01643 TETTHIS
030361,000117: 13,2300 34041 INTOTHIS STCALL TDEC1
030362,000118: 13,2301 27107 INTEGRVS
030363,000119: 13,2302 77624 CALL
030364,000120: 13,2303 27414 INTSTALL
030365,000121: 13,2304 77775 VLOAD
030366,000122: 13,2305 00017 RATT1
030367,000123: 13,2306 01503 STORE RRECT
030368,000124: 13,2307 15535 STODL RCV
030369,000125: 13,2310 00015 TAT
030370,000126: 13,2311 25517 STOVL TET
030371,000127: 13,2312 00025 VATT1
030372,000128: 13,2313 77624 CALL
030373,000129: 13,2314 23455 MINIRECT
030374,000130: # Page 711
030375,000131: 13,2315 77776 EXIT
030376,000132: 13,2316 05353 TC PHASCHNG
030377,000133: 13,2317 04024 OCT 04024
030378,000134:
030379,000135: 13,2320 05504 TC UPFLAG
030380,000136: 13,2321 00236 ADRES REINTFLG
030381,000137:
030382,000138: 13,2322 06037 TC INTPRET
030383,000139: 13,2323 77624 CALL
030384,000140: 13,2324 26661 ATOPOTH
030385,000141: 13,2325 77531 SSP EXIT
030386,000142: 13,2326 00053 QPRET
030387,000143: 13,2327 26332 OUT
030388,000144: 13,2330 04616 TC BANKCALL # PERMIT USE OF ORBITAL INTEGRATION
030389,000145: 13,2331 27445 CADR INTWAKE1
030390,000146: 13,2332 77776 OUT EXIT
030391,000147: 13,2333 34755 ENDP76 CAF ZERO
030392,000148: 13,2334 55462 TS MARKCTR # CLEAR RR TRACKING MARK COUNTER
030393,000149: 13,2335 16001 TCF GOTOP00H
030394,000150:
030395,000151: 13,2336 01524 V06N84 NV 0684
030396,000152: 13,2337 01441 NV 0633
030397,000153: 13,2340 43174 P76SUB1 AXT,2 SET
030398,000154: 13,2341 00002 2
030399,000155: 13,2342 00063 MOONFLAG # SET MEANS MOON IS SPHERE OF INFLUENCE.
030400,000156: 13,2343 77014 BON AXT,2
030401,000157: 13,2344 04303 CMOONFLG # SET MEANS PERM CM STATE IN LUNAR SPHERE.
030402,000158: 13,2345 00052 QPRET
030403,000159: 13,2346 00000 0
030404,000160: 13,2347 43414 CLEAR RVQ
030405,000161: 13,2350 00263 MOONFLAG
030406,000162:
030407,000163:
030408,000164:
End of include-file P76.agc. Parent file is MAIN.agc