Source Code

026268,000001: # Copyright: Public domain. 026269,000002: # Filename: P30_P37.agc 026270,000003: # Purpose: Part of the source code for Luminary 1A build 099. 026271,000004: # It is part of the source code for the Lunar Module's (LM) 026272,000005: # Apollo Guidance Computer (AGC), for Apollo 11. 026273,000006: # Assembler: yaYUL 026274,000007: # Contact: Ron Burkey <info@sandroid.org>. 026275,000008: # Website: www.ibiblio.org/apollo. 026276,000009: # Pages: 614-617 026277,000010: # Mod history: 2009-05-17 RSB Adapted from the corresponding 026278,000011: # Luminary131 file, using page 026279,000012: # images from Luminary 1A. 026280,000013: # 2009-06-05 RSB Removed 4 lines of code that shouldn't 026281,000014: # have survived from Luminary 131. 026282,000015: 026283,000016: # This source code has been transcribed or otherwise adapted from 026284,000017: # digitized images of a hardcopy from the MIT Museum. The digitization 026285,000018: # was performed by Paul Fjeld, and arranged for by Deborah Douglas of 026286,000019: # the Museum. Many thanks to both. The images (with suitable reduction 026287,000020: # in storage size and consequent reduction in image quality as well) are 026288,000021: # available online at www.ibiblio.org/apollo. If for some reason you 026289,000022: # find that the images are illegible, contact me at info@sandroid.org 026290,000023: # about getting access to the (much) higher-quality images which Paul 026291,000024: # actually created. 026292,000025: 026293,000026: # Notations on the hardcopy document read, in part: 026294,000027: 026295,000028: # Assemble revision 001 of AGC program LMY99 by NASA 2021112-61 026296,000029: # 16:27 JULY 14, 1969 026297,000030: 026298,000031: # Page 614 026299,000032: # PROGRAM DESCRIPTION P30 DATE 3-6-67 026300,000033: 026301,000034: # MOD.1 BY RAMA AIYAWAR 026302,000035: 026303,000036: # FUNCTIONAL DESCRIPTIONS 026304,000037: # ACCEPT ASTRONAUT INPUTS OF TIG,DELV(LV) 026305,000038: # CALL IMU STATUS CHECK ROUTINE (R02) 026306,000039: # DISPLAY TIME TO GO, APOGEE, PERIGEE, DELV(MAG), MGA AT IGN 026307,000040: # REQUEST BURN PROGRAM 026308,000041: 026309,000042: # CALLING SEQUENCE VIA JOB FROM V37 026310,000043: 026311,000044: # EXIT VIA V37 CALL OR TO GOTOP00H (V34E) 026312,000045: 026313,000046: # SUBROUTINE CALLS -- FLAGUP, PHASCHNG, BANKCALL, ENDOFJOB, GOFLASH, GOFLASHR 026314,000047: # GOPERF3R, INTPRET, BLANKET, GOTOP00H, R02BOTH, S30.1, 026315,000048: # TIG/N35, MIDGIM, DISPMGA 026316,000049: 026317,000050: # ERASABLE INITIALIZATION -- STATE VECTOR 026318,000051: 026319,000052: # OUTPUT -- RINIT, VINIT, +MGA, VTIG, RTIG, DELVSIN, DELVSAB, DELVSLV, HAPO, 026320,000053: # HPER, TTOGO 026321,000054: 026322,000055: # DEBRIS -- A, L, MPAC, PUSHLIST 026323,000056: 026324,000057: 32,2776 BANK 32 026325,000058: 35,2000 SETLOC P30S 026326,000059: 35,2000 BANK 026327,000060: 35,2000 E4,1652 EBANK= +MGA 026328,000061: 35,2000 COUNT* $$/P30 026329,000062: 35,2000 05504 P30 TC UPFLAG # SET UPDATE FLAG 026330,000063: 35,2001 00027 ADRES UPDATFLG 026331,000064: 35,2002 05504 TC UPFLAG # SET TRACK FLAG 026332,000065: 35,2003 00031 ADRES TRACKFLG 026333,000066: 026334,000067: 35,2004 32025 P30N33 CAF V06N33 # T OF IGN 026335,000068: 35,2005 03712 TC VNP00H # RETURN ON PROCEED, P00H ON TERMINATE 026336,000069: 026337,000070: 35,2006 33727 CAF V06N81 # DISPLAY DELTA V (LV) 026338,000071: 35,2007 03712 TC VNP00H # REDISPLAY ON RECYCLE 026339,000072: 026340,000073: 35,2010 05516 TC DOWNFLAG # RESET UPDATE FLAG 026341,000074: 35,2011 00027 ADRES UPDATFLG 026342,000075: 35,2012 06037 TC INTPRET 026343,000076: 35,2013 77624 CALL 026344,000077: 35,2014 70000 S30.1 026345,000078: 35,2015 77414 SET EXIT 026346,000079: 35,2016 00470 UPDATFLG 026347,000080: 35,2017 32026 PARAM30 CAF V06N42 # DISPLAY APOGEE,PERIGEE,DELTA V 026348,000081: 35,2020 03712 TC VNP00H 026349,000082: # Page 615 026350,000083: 026351,000084: 35,2021 06037 TC INTPRET 026352,000085: 35,2022 77614 SETGO 026353,000086: 35,2023 01027 XDELVFLG # FOR P40'S: EXTERNAL DELTA-V GUIDANCE. 026354,000087: 35,2024 72540 REVN1645 # TRKMKCNT, T60, +MGA DISPLAY 026355,000088: 026356,000089: 35,2025 01441 V06N33 VN 0633 026357,000090: 35,2026 01452 V06N42 VN 0642 026358,000091: 026359,000092: # Page 616 026360,000093: # PROGRAM DESCRPTION S30.1 DATE 9NOV66 026361,000094: # MOD NO 1 LOG SECTION P30,P37 026362,000095: # MOD BY RAMA AIYAWAR ** 026363,000096: 026364,000097: # FUNCTIONAL DESCRIPTION 026365,000098: # BASED ON STORED TARGET PARAMETERS (R OF IGNITION (RTIG), V OF 026366,000099: # IGNITION (VTIG), TIME OF IGNITION (TIG)), COMPUTE PERIGEE ALTITUDE 026367,000100: # APOGEE ALTITUDE AND DELTAV REQUIRED (DELVSIN). 026368,000101: 026369,000102: # CALLING SEQUENCE 026370,000103: # L CALL 026371,000104: # L+1 s30.1 026372,000105: 026373,000106: # NORMAL EXIT MODE 026374,000107: # AT L+2 OR CALLING SEQUENCE (GOTO L+2) 026375,000108: 026376,000109: # SUBROUTINES CALLED 026377,000110: # LEMPREC 026378,000111: # PERIAPO 026379,000112: 026380,000113: # ALARM OR ABORT EXIT MODES 026381,000114: # NONE 026382,000115: 026383,000116: # ERASABLE INITIALIZATION REQUIRED 026384,000117: # TIG TIME OF IGNITION DP B28CS 026385,000118: # DELVSLV SPECIFIED DELTA-V IN LOCAL VERT. 026386,000119: # COORDS. OF ACTIVE VEHICLE AT 026387,000120: # TIME OF IGNITION VECTOR B+7 METERS/CS 026388,000121: 026389,000122: # OUTPUT 026390,000123: # RTIG POSITION AT TIG VECTOR B+29 METERS 026391,000124: # VTIG VELOCITY AT TIG VECTOR B+29 METERS/CS 026392,000125: # PDL 4D APOGEE ALTITUDE DP B+29 M, B+27 METERS. 026393,000126: # HAPO APOGEE ALTITUDE DP B+29 METERS 026394,000127: # PDL 8D PERIGEE ALTITUDE DP B+29 M, B+27 METERS. 026395,000128: # HPER PERIGEE ALTITUDE DP B+29 METERS 026396,000129: # DELVSIN SPECIFIED DELTA-V IN INTERTIAL 026397,000130: # COORD. OF ACTIVE VEHICLE AT 026398,000131: # TIME OF IGNITION VECTOR B+7 METERS/CS 026399,000132: # DELVSAB MAG. OF DELVSIN VECTOR B+7 METERS/CS 026400,000133: 026401,000134: # DEBRIS QTEMP TEMP.ERASABLE 026402,000135: # QPRET, MPAC 026403,000136: # PUSHLIST 026404,000137: 026405,000138: 34,2000 SETLOC P30S1 026406,000139: 34,2000 BANK 026407,000140: 026408,000141: 34,2000 COUNT* $$/S30S 026409,000142: 026410,000143: 34,2000 71220 S30.1 STQ DLOAD 026411,000144: 34,2001 03632 QTEMP 026412,000145: 34,2002 03442 TIG # TIME IGNITION SCALED AT 2(+28)CS 026413,000146: 34,2003 34041 STCALL TDEC1 026414,000147: 34,2004 27057 LEMPREC # ENCKE ROUTINE FOR LEM 026415,000148: 026416,000149: 34,2005 67175 VLOAD SXA,2 026417,000150: # Page 617 026418,000151: 34,2006 00001 RATT 026419,000152: 34,2007 02777 RTX2 026420,000153: 34,2010 03642 STORE RTIG # RADIUS VECTOR AT IGNITION TIME 026421,000154: 34,2011 57456 UNIT VCOMP 026422,000155: 34,2012 27656 STOVL DELVSIN # ZRF/LV IN DELVSIN SCALED AT 2 026423,000156: 34,2013 00007 VATT # VELOCITY VECTOR AT TIG, SCALED 2(7) M/CS 026424,000157: 34,2014 03650 STORE VTIG 026425,000158: 34,2015 53435 VXV UNIT 026426,000159: 34,2016 03642 RTIG 026427,000160: 34,2017 66001 SETPD SXA,1 026428,000161: 34,2020 00001 0 026429,000162: 34,2021 02776 RTX1 026430,000163: 34,2022 47206 PUSH VXV # YRF/LV PDL 0 SCALED AT 2 026431,000164: 34,2023 03656 DELVSIN 026432,000165: 34,2024 63372 VSL1 PDVL 026433,000166: 34,2025 63315 PDVL PDVL # YRF/LV PDL 6 SCALED AT 2 026434,000167: 34,2026 03656 DELVSIN # ZRF/LV PDL 12D SCALED AT 2 026435,000168: 34,2027 03434 DELVSLV 026436,000169: 34,2030 76505 VXM VSL1 026437,000170: 34,2031 00001 0 026438,000171: 34,2032 03656 STORE DELVSIN # DELTAV IN INERT. COOR. SCALED TO B+7M/CS 026439,000172: 34,2033 77646 ABVAL 026440,000173: 34,2034 27664 STOVL DELVSAB # DELTA V MAG. 026441,000174: 34,2035 03642 RTIG # (FOR PERIAPO) 026442,000175: 34,2036 53315 PDVL VAD # VREQUIRED = VTIG + DELVSIN (FOR PERIAPO) 026443,000176: 34,2037 03650 VTIG 026444,000177: 34,2040 03656 DELVSIN 026445,000178: 34,2041 77624 CALL 026446,000179: 34,2042 46316 PERIAPO1 026447,000180: 34,2043 77624 CALL 026448,000181: 34,2044 46426 SHIFTR1 # RESCALE IF NEEDED 026449,000182: 34,2045 77624 CALL # LIMIT DISPLAY TO 9999.9 N. MI. 026450,000183: 34,2046 45636 MAXCHK 026451,000184: 34,2047 16321 STODL HPER # PERIGEE ALT 2(29) METERS FOR DISPLAY 026452,000185: 34,2050 00005 4D 026453,000186: 34,2051 77624 CALL 026454,000187: 34,2052 46426 SHIFTR1 # RESCALE IF NEEDED 026455,000188: 34,2053 77624 CALL # LIMIT DISPLAY TO 9999.9 N. MI. 026456,000189: 34,2054 45636 MAXCHK 026457,000190: 34,2055 36317 STCALL HAPO # APOGEE ALT 2(29) METERS FOR DISPLAY 026458,000191: 34,2056 03632 QTEMP 026459,000192: 026460,000193: End of include-file P30_P37.agc. Parent file is MAIN.agc