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