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