# Copyright: Public domain. # Filename: P76.agc # Purpose: Part of the source code for Luminary 1A build 099. # It is part of the source code for the Lunar Module's (LM) # Apollo Guidance Computer (AGC), for Apollo 11. # Assembler: yaYUL # Contact: Ron Burkey . # Website: www.ibiblio.org/apollo. # Pages: 709-711 # Mod history: 2009-05-19 RSB Adapted from the corresponding # Luminary131 file, using page # images from Luminary 1A. # # This source code has been transcribed or otherwise adapted from # digitized images of a hardcopy from the MIT Museum. The digitization # was performed by Paul Fjeld, and arranged for by Deborah Douglas of # the Museum. Many thanks to both. The images (with suitable reduction # in storage size and consequent reduction in image quality as well) are # available online at www.ibiblio.org/apollo. If for some reason you # find that the images are illegible, contact me at info@sandroid.org # about getting access to the (much) higher-quality images which Paul # actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 001 of AGC program LMY99 by NASA 2021112-061 # 16:27 JULY 14, 1969 # Page 709 # 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 76 E. # 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 MARKCTR. BANK 30 SETLOC P76LOC BANK COUNT* $$/P76 EBANK= TIG P76 TC UPFLAG ADRES TRACKFLG TC INTPRET VLOAD DELVLVC STORE DELVOV EXIT CAF V06N84 # FLASH LAST DELTA V, TC BANKCALL # AND WAIT FOR KEYBOARD ACTION. CADR GOFLASH TCF ENDP76 TC +2 # PROCEED TC -5 # STORE DATA AND REPEAT FLASHING CAF V06N84 +1 # FLASH VERB 06 NOUN 33, DISPLAY LAST TIG, TC BANKCALL # AND WAIT FOR KEYBOARD ACTION. CADR GOFLASH TCF ENDP76 TC +2 TC -5 TC INTPRET # RETURN TO INTERPRETIVE CODE # Page 710 DLOAD # SET D(MPAC)=TIG IN CSEC B28 TIG STCALL TDEC1 # SET TDEC1=TIG FOR ORBITAL INTEGRATION OTHPREC COMPMAT VLOAD UNIT RATT VCOMP # U(-R) STORE 24D # U(-R) TO 24D VXV UNIT # U(-R) XV = U(VXR) VATT STORE 18D VXV UNIT # U(VXR)XU(-R) = U((RXV)XR) 24D STOVL 12D DELVOV VXM VSL1 # V(MPAC)=DELTA V IN REFCOSYS 12D VAD VATT STORE 6 # V(PD6)=VATT + DELTA V CALL # PRESENT WOULD-BE USER OF ORBITAL INTSTALL # INTEG FROM INTERFERING WITH UPDATING CALL P76SUB1 VLOAD VSR* 6 0,2 STOVL VCV RATT VSR* 0,2 STODL RCV TIG STORE TET CLEAR DLOAD INTYPFLG TETTHIS INTOTHIS STCALL TDEC1 INTEGRVS CALL INTSTALL VLOAD RATT1 STORE RRECT STODL RCV TAT STOVL TET VATT1 CALL MINIRECT # Page 711 EXIT TC PHASCHNG OCT 04024 TC UPFLAG ADRES REINTFLG TC INTPRET CALL ATOPOTH SSP EXIT QPRET OUT TC BANKCALL # PERMIT USE OF ORBITAL INTEGRATION CADR INTWAKE1 OUT EXIT ENDP76 CAF ZERO TS MARKCTR # CLEAR RR TRACKING MARK COUNTER TCF GOTOPOOH V06N84 NV 0684 NV 0633 P76SUB1 AXT,2 SET 2 MOONFLAG # SET MEANS MOON IS SPHERE OF INFLUENCE. BON AXT,2 CMOONFLG # SET MEANS PERM CM STATE IN LUNAR SPHERE. QPRET 0 CLEAR RVQ MOONFLAG