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