Source Code
019511,000001: # Copyright: Public domain.
019512,000002: # Filename: GROUND_TRACKING_DETERMINATION_PROGRAM.agc
019513,000003: # Purpose: Part of the source code for Colossus, build 249.
019514,000004: # It is part of the source code for the Command Module's (CM)
019515,000005: # Apollo Guidance Computer (AGC), possibly for Apollo 8 and 9.
019516,000006: # Assembler: yaYUL
019517,000007: # Reference: pp. 451-453 of 1701.pdf.
019518,000008: # Contact: Ron Burkey <info@sandroid.org>.
019519,000009: # Website: www.ibiblio.org/apollo.
019520,000010: # Mod history: 08/11/04 RSB. Began transcribing.
019521,000011:
019522,000012: # The contents of the "Colossus249" files, in general, are transcribed
019523,000013: # from a scanned document obtained from MIT's website,
019524,000014: # http://hrst.mit.edu/hrs/apollo/public/archive/1701.pdf. Notations on this
019525,000015: # document read, in part:
019526,000016:
019527,000017: # Assemble revision 249 of AGC program Colossus by NASA
019528,000018: # 2021111-041. October 28, 1968.
019529,000019:
019530,000020: # This AGC program shall also be referred to as
019531,000021: # Colossus 1A
019532,000022:
019533,000023: # Prepared by
019534,000024: # Massachusetts Institute of Technology
019535,000025: # 75 Cambridge Parkway
019536,000026: # Cambridge, Massachusetts
019537,000027: # under NASA contract NAS 9-4065.
019538,000028:
019539,000029: # Refer directly to the online document mentioned above for further information.
019540,000030: # Please report any errors (relative to 1701.pdf) to info@sandroid.org.
019541,000031:
019542,000032: # In some cases, where the source code for Luminary 131 overlaps that of
019543,000033: # Colossus 249, this code is instead copied from the corresponding Luminary 131
019544,000034: # source file, and then is proofed to incorporate any changes.
019545,000035:
019546,000036: # Page 451
019547,000037: # GROUND TRACKING DETERMINATION PROGRAM -- P21
019548,000038:
019549,000039: # PROGRAM DESCRIPTION
019550,000040: # MOD NO -- 1
019551,000041: # MOD BY -- N. M. NEVILLE
019552,000042:
019553,000043: # FUNCTIONAL DESCRIPTION --
019554,000044: # TO PROVIDE THE ASTRONAUT DETAILS OF THE LM OR CSM GROUND TRACK WITHOUT
019555,000045: # THE NEED FOR GROUND COMMUNICATION (REQUESTED BY DSKY).
019556,000046:
019557,000047: # CALLING SEQUENCE --
019558,000048: # ASTRONAUT REQUEST THROUGH DSKY V37E21E
019559,000049:
019560,000050: # SUBROUTINES CALLED --
019561,000051: # GOPERF4
019562,000052: # GOFLASH
019563,000053: # THISPREC
019564,000054: # OTHPREC
019565,000055: # LAT-LONG
019566,000056:
019567,000057: # NORMAL EXIT MODES --
019568,000058: # ASTRONAUT REQUEST THROUGH DSKY TO TERMINATE PROGRAM V34E
019569,000059:
019570,000060: # ALARM OR ABORT EXIT MODES --
019571,000061: # NONE
019572,000062:
019573,000063: # OUTPUT --
019574,000064: # OCTAL DISPLAY OF OPTION CODE AND VEHICLE WHOSE GROUND TRACK IS TO BE
019575,000065: # COMPUTED
019576,000066: # OPTION CODE 00002
019577,000067: # THIS 00001
019578,000068: # OTHER 00002
019579,000069: # DECIMAL DISPLAY OF TIME TO BE INTEGRATED TO HOURS, MINUTES, SECONS
019580,000070: # DECIMAL DISPLAY OF LAT,LONG,ALT
019581,000071:
019582,000072: # ERASABLE INITIALIZATION REQUIRED
019583,000073: # AX0 2DEC 4.652459653 E-5 RADIANS
019584,000074: # -AY0 2DEC 2.147535898 E-5 RADIANS
019585,000075: # AZ0 2DEC .7753206164 REVOLUTIONS
019586,000076: # FOR LUNAR ORBITS 504LM VECTOR IS NEEDED:
019587,000077: # 504LM 2DEC -2.700340600 E-5 RADIANS
019588,000078: # 504LM+2 2DEC -7.514128400 E-4 RADIANS
019589,000079: # 504LM+4 2DEC 2.553198641 E-4 RADIANS
019590,000080: # NONE
019591,000081:
019592,000082: # DEBRIS
019593,000083: # Page 452
019594,000084: # CENTRALS -- A,Q,L
019595,000085: # OTHER -- THOSE USED BY THE ABOVE LISTED SUBROUTINES
019596,000086: # SEE LEMPREC, LAT-LONG
019597,000087:
019598,000088: 33,3772 30,2000 SBANK= LOWSUPER # FOR LOW 2CADR'S.
019599,000089:
019600,000090: 33,3772 BANK 33
019601,000091: 37,2000 SETLOC P20S
019602,000092: 37,2000 BANK
019603,000093:
019604,000094: 37,2001 E4,1715 EBANK= P21TIME
019605,000095: 37,2001 COUNT 24/P21
019606,000096:
019607,000097: 37,2001 34712 PROG21 CAF ONE
019608,000098: 37,2002 55132 TS OPTION2 # ASSUMED VEHICLE IS LM, R2 = 00001
019609,000099: 37,2003 34711 CAF BIT2 # OPTION 2
019610,000100: 37,2004 04555 TC BANKCALL
019611,000101: 37,2005 20761 CADR GOPERF4
019612,000102: 37,2006 04106 TC GOTOP00H # TERMINATE
019613,000103: 37,2007 02011 TC +2 # PROCEED VALUE OF ASSUMED VEHICLE OK
019614,000104: 37,2010 02003 TC -5 # R2 LOADED THROUGH DSKY
019615,000105: 37,2011 32102 P21PROG1 CAF V6N34 # LOAD DESIRED TIME OF LAT-LONG.
019616,000106: 37,2012 04555 TC BANKCALL
019617,000107: 37,2013 20624 CADR GOFLASH
019618,000108: 37,2014 04106 TC GOTOP00H # TERM
019619,000109: 37,2015 02017 TC +2 # PROCEED VALUES OK
019620,000110: 37,2016 02011 TC -5 # TIME LOADED THROUGH DSKY
019621,000111: 37,2017 06006 TC INTPRET
019622,000112: 37,2020 77745 DLOAD
019623,000113: 37,2021 01046 DSPTEM1
019624,000114: 37,2022 02316 STORE P21TIME
019625,000115: 37,2023 45335 SLOAD DSU
019626,000116: 37,2024 01133 OPTION2
019627,000117: 37,2025 36100 P21ONENN
019628,000118: 37,2026 71230 BHIZ DLOAD
019629,000119: 37,2027 76042 P21PROG2 # VEHICLE TO BE INTEGRATED IS LEM
019630,000120: 37,2030 02316 P21TIME # VEHICLE TO BE INTEGRATED IS CSM
019631,000121: 37,2031 34041 STCALL TDEC1 # INTEGRATE TO TIME SPECIFIED IN TDEC1
019632,000122: 37,2032 27036 OTHPREC # ADJUST UNITS FOR LAT-LONG ROUTINE
019633,000123: 37,2033 46135 P21PROGA SLOAD BHIZ
019634,000124: 37,2034 00050 X2
019635,000125: 37,2035 76050 P21PROG3
019636,000126: 37,2036 43175 VLOAD SETGO
019637,000127: 37,2037 00001 RATT
019638,000128: 37,2040 01423 LUNAFLAG
019639,000129: 37,2041 76053 P21PROG4
019640,000130: 37,2042 77745 P21PROG2 DLOAD
019641,000131: 37,2043 02316 P21TIME
019642,000132: 37,2044 34041 STCALL TDEC1
019643,000133: 37,2045 27022 THISPREC
019644,000134: # Page 453
019645,000135: 37,2046 77650 GOTO
019646,000136: 37,2047 76033 P21PROGA
019647,000137: 37,2050 43175 P21PROG3 VLOAD CLEAR
019648,000138: 37,2051 00001 RATT
019649,000139: 37,2052 01663 LUNAFLAG
019650,000140: 37,2053 16152 P21PROG4 STODL ALPHAV
019651,000141: 37,2054 00015 TAT
019652,000142: 37,2055 45014 CLEAR CALL
019653,000143: 37,2056 00662 ERADFLAG
019654,000144: 37,2057 26322 LAT-LONG
019655,000145: 37,2060 77776 EXIT
019656,000146: 37,2061 32101 CAF V06N43 # DISPLAY LAT,LONG,ALT
019657,000147: 37,2062 04555 TC BANKCALL # LAT,LONG = 1/2 REVS B0
019658,000148: 37,2063 20624 CADR GOFLASH # ALT = KM B14
019659,000149: 37,2064 04106 TC GOTOP00H # TERM
019660,000150: 37,2065 04106 TC GOTOP00H
019661,000151: 37,2066 06006 TC INTPRET # V32E RECYCLE
019662,000152: 37,2067 43345 DLOAD DAD
019663,000153: 37,2070 02316 P21TIME
019664,000154: 37,2071 36076 600SEC # 600 SECONDS OR 10 MIN
019665,000155: 37,2072 01046 STORE DSPTEM1
019666,000156: 37,2073 77634 RTB
019667,000157: 37,2074 76011 P21PROG1
019668,000158:
019669,000159: 37,2075 00003 25140 600SEC 2DEC 60000 B-28 # 10 MIN
019670,000160: 37,2077 00001 P21ONENN OCT 00001 # NEEDED TO DETERMINE VEHICLE
019671,000161: 37,2100 00000 OCT 00000 # TO BE INTEGRATED
019672,000162:
019673,000163: 37,2101 01453 V06N43 VN 00643
019674,000164: 37,2102 01442 V6N34 VN 00634
019675,000165:
End of include-file GROUND_TRACKING_DETERMINATION_PROGRAM.agc. Parent file is MAIN.agc