Source Code
|
These source-code files are part of a reconstructed copy of Artemis 071, the
first release of the Apollo 15 through 17 Command Module (CM) Apollo Guidance
Computer (AGC) software.
The reconstruction began with source code of Artemis 072 previously transcribed
from a digitized copy of that program. The code was then updated by undoing
changes between the two versions. The reconstruction was verified by matching
memory-bank checksums to those listed in drawing 2021154-. Note that page
numbers in the reconstructed code match those on the Artemis 072 printout,
although the changed code would likely have changed page numbers for a real
Artemis 071 listing.
Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". Report any errors
noted by creating an
issue report at the Virtual AGC
project's GitHub repository.
|
017418,000002: ## Copyright: Public domain.
017419,000003: ## Filename: R60,R62.agc
017420,000004: ## Purpose: A section of Artemis revision 071.
017421,000005: ## It is part of the reconstructed source code for the first
017422,000006: ## release of the flight software for the Command Module's
017423,000007: ## (CM) Apollo Guidance Computer (AGC) for Apollo 15 through
017424,000008: ## 17. The code has been recreated from a copy of Artemis 072.
017425,000009: ## It has been adapted such that the resulting bugger words
017426,000010: ## exactly match those specified for Artemis 071 in NASA
017427,000011: ## drawing 2021154-, which gives relatively high confidence
017428,000012: ## that the reconstruction is correct.
017429,000013: ## Reference: 394
017430,000014: ## Assembler: yaYUL
017431,000015: ## Contact: Ron Burkey <info@sandroid.org>.
017432,000016: ## Website: www.ibiblio.org/apollo/index.html
017433,000017: ## Mod history: 2019-08-14 MAS Created from Artemis 072.
017434,000018:
|
|
Page 394
|
017436,000020: 27,2000 SETLOC MANUVER
017437,000021: 27,2000 BANK
017438,000022:
017439,000023: 27,2074 1004 EBANK= TEMPR60
017440,000024:
017441,000025: 27,2074 COUNT* $$/R60
017442,000026:
017443,000027: # R60CSM
017444,000028: # REV 13 CONFORMS TO GSOP CHAPTER FOUR REVISION LOGIC 09 JAN 18,1968
017445,000029:
017446,000030: 27,2074 04665 R60CSM TC MAKECADR
017447,000031: 27,2075 55004 TS TEMPR60
017448,000032:
017449,000033: 27,2076 06006 REDOMANN TC INTPRET
017450,000034: 27,2077 45014 BON CALL # IS 3-AXIS FLAG SET
017451,000035: 27,2100 02711 3AXISFLG
017452,000036: 27,2101 56104 TOBALL1 # YES
017453,000037: 27,2102 56225 VECPOINT # NO CALL VECPOINT
017454,000038: 27,2103 01310 STORE CPHI
017455,000039: 27,2104 77776 TOBALL1 EXIT
017456,000040:
017457,000041: 27,2105 35031 TOBALL CAF V06N18
017458,000042: 27,2106 04636 TC BANKCALL
017459,000043: 27,2107 21154 CADR GOPERF2R # DISPLAY PLEASE PERFORM AUTO MANEUVER
017460,000044: 27,2110 02215 TC R61TEST
017461,000045: 27,2111 02115 TC REDOMANC -1
017462,000046: 27,2112 12150 TCF ENDMANU1 # ENTER I.E. FINISHED WITH R60
017463,000047:
017464,000048: 27,2113 02152 TC CHKLINUS # TO CHECK FOR PRIORITY DISPLAYS
017465,000049: 27,2114 05205 TC ENDOFJOB
017466,000050:
017467,000051: 27,2115 06006 -1 TC INTPRET
017468,000052: 27,2116 45014 REDOMANC BON CALL # IS 3-AXIS FLAG SET
017469,000053: 27,2117 02711 3AXISFLG
017470,000054: 27,2120 56123 +3 # YES
017471,000055: 27,2121 56225 VECPOINT # NO CALL VECPOINT
017472,000056: 27,2122 01310 STORE CPHI # STORE ANGLES
017473,000057: 27,2123 77776 EXIT
017474,000058:
017475,000059: 27,2124 37673 TOBALLC CAF FURST3 # BITS 15,14,13 OF CHAN31 = 011
017476,000060: 27,2125 05654 TC C31BTCHK # FOR AUTO AND G&N CONTROL
017477,000061: 27,2126 12127 TCF +1
017478,000062: 27,2127 67671 AD NEG30000
017479,000063: 27,2130 00006 EXTEND
017480,000064: 27,2131 12133 BZF +2 # AUTO, NON-FLASH N18
017481,000065: 27,2132 12105 TCF TOBALL # NOT AUTO
|
|
Page 395
|
017483,000067: 27,2133 35031 CAF V06N18 # SET UP NON-FLASHING V06 N18
017484,000068: 27,2134 04636 TC BANKCALL
017485,000069: 27,2135 20710 CADR GODSPR
017486,000070: 27,2136 02152 TC CHKLINUS
017487,000071:
017488,000072: 27,2137 04655 STARTMNV TC POSTJUMP
017489,000073: 27,2140 44000 CADR KALCMAN3
017490,000074:
017491,000075: 27,2141 06006 ENDMANUV TC INTPRET
017492,000076: 27,2142 43014 BOFF BOFF
017493,000077: 27,2143 05350 AUTOSEQ
017494,000078: 27,2144 56104 TOBALL1
017495,000079: 27,2145 00752 TRACKFLG
017496,000080: 27,2146 56104 TOBALL1
017497,000081: 27,2147 77776 EXIT
017498,000082:
017499,000083: 27,2150 31004 ENDMANU1 CA TEMPR60
017500,000084: 27,2151 04660 TC BANKJUMP # -
017501,000085:
017502,000086: 27,2152 40100 CHKLINUS CS FLAGWRD4
017503,000087: 27,2153 74755 MASK PDSPFBIT # IS PRIORITY DISPLAY FLAG SET
017504,000088: 27,2154 10000 CCS A # -
017505,000089: 27,2155 00002 TC Q # NO - EXIT
017506,000090: 27,2156 30002 CA Q
017507,000091: 27,2157 54156 TS MPAC +2 # SAVE RETURN
017508,000092: 27,2160 46214 CS THREE # OBTAIN LOCATION FOR RESTART.
017509,000093: 27,2161 60133 AD BUF2 # HOLDS Q OF LAST DISPALY
017510,000094: 27,2162 55257 TS TBASE1
017511,000095:
017512,000096: 27,2163 05402 TC PHASCHNG
017513,000097: 27,2164 00071 OCT 71 # 1.7SPOT FOR RELINUS
017514,000098:
017515,000099: 27,2165 01,2022 1P7SPT1 = 1.7SPOT
017516,000100: 27,2165 34762 CAF BIT7
017517,000101: 27,2166 05516 TC LINUS # GO SET BITS FOR PRIORITY DISPLAY -
017518,000102: 27,2167 00156 TC MPAC +2
017519,000103:
017520,000104: 27,2170 34764 RELINUS CAF TRACKBIT # IS TRACK FLAG ON
017521,000105: 27,2171 70075 MASK FLAGWRD1
017522,000106: 27,2172 00006 EXTEND
017523,000107: 27,2173 12213 BZF GOREDO20 # NO
017524,000108:
017525,000109: 27,2174 05547 TC UPFLAG
017526,000110: 27,2175 00077 ADRES PDSPFLAG # R60 PRIODSP FLAG
017527,000111:
017528,000112: 27,2176 30104 CA FLAGWRD8
017529,000113: 27,2177 74760 MASK UTBIT
017530,000114: 27,2200 10000 CCS A
017531,000115: 27,2201 02210 TC RELINUSX # UTFLAG SET,DO NOT SET TARG1FLG,OPTIND
|
|
Page 396
|
017533,000117: 27,2202 05547 TC UPFLAG
017534,000118: 27,2203 00024 ADRES TARG1FLG # FOR R52
017535,000119:
017536,000120: 27,2204 34772 CAF ZERO # RESET TO ZERO, SINCE
017537,000121: 27,2205 55323 TS OPTIND # OPTIND WAS SET TO -1 BY V379
017538,000122:
017539,000123: 27,2206 05547 TC UPFLAG
017540,000124: 27,2207 00037 ADRES R21MARK # ALLOW OPTICS MARKING DURING P2
017541,000125:
017542,000126: 27,2210 35053 RELINUSX CAF PRIO14 # RESTORE ORIGINAL PRIORITY
017543,000127: 27,2211 05176 TC PRIOCHNG
017544,000128:
017545,000129: 27,2212 01257 TC TBASE1
017546,000130:
017547,000131: 27,2213 04655 GOREDO20 TC POSTJUMP # RESTORE R03 DEADBAND, DO STOPRATE,
017548,000132: 27,2214 74416 CADR FIXDB # SET UP 1.11 RESTART, EOJ.
017549,000133: 27,2215 31214 R61TEST CA MODREG # ARE WE IN P00. IF YES THIS MUST BE
017550,000134: 27,2216 00006 EXTEND # VERB49 OR VERB89 SO DO ENDEXT.
017551,000135: 27,2217 12150 BZF ENDMANU1 # RESET 3-AXIS & RUTURN. USER DOES ENDEXT
017552,000136: 27,2220 30100 CA FLAGWRD4 # ARE WE IN R61 (P20)
017553,000137: 27,2221 74755 MASK PDSPFBIT
017554,000138: 27,2222 00006 EXTEND
017555,000139: 27,2223 14103 BZF GOTOPOOH # NO
017556,000140: 27,2224 04546 TC GOTOV56 # YES
017557,000141:
|
|
Page 397
|
017559,000143: # PROGRAM DESCRIPTION - VECPOINT
017560,000144:
017561,000145:
017562,000146: # THIS INTERPRETIVE SUBROUTINE MAY BE USED TO POINT A SPACECRAFT AXIS IN A DESIRED DIRECTION. THE AXIS
017563,000147: # TO BE POINTED MUST APPEAR AS A HALF UNIT DOUBLE PRECISION VECTOR IN SUCCESSIVE LOCATIONS OF ERASABLE MEMORY
017564,000148: # BEGINNING WITH THE LOCATION CALLED SCAXIS. THE COMPONENTS OF THIS VECTOR ARE GIVEN IN SPACECRAFT COORDINATES.
017565,000149: # THE DIRECTION IN WHICH THIS AXIS IS TO BE POINTED MUST APPEAR AS A HALF UNIT DOUBLE PRECISION VECTOR IN
017566,000150: # SUCCESSIVE LOCATIONS OF ERASABLE MEMORY BEGINNING WITH THE ADDRESS CALLED POINTVSM. THE COMPONENTS OF THIS
017567,000151: # VECTOR ARE GIVEN IN STABLE MEMBER COORDINATES. WITH THIS INFORMATION VECPOINT COMPUTES A SET OF THREE GIMBAL
017568,000152: # ANGLES (2S COMPLEMENT) CORRESPONDING TO THE CROSS-PRODUCT ROTATION BETWEEN SCAXIS AND POINTVSM AND STORES THEM
017569,000153: # IN T(MPAC) BEFORE RETURNING TO THE CALLER.
017570,000154: # THIS ROTATION, HOWEVER, MAY BRING THE S/C INTO GIMBAL LOCK. WHEN POINTING A VECTOR IN THE Y-Z PLANE,
017571,000155: # THE TRANSPONDER AXIS, OR THE AOT FOR THE LEM, THE PROGRAM WILL CORRECT THIS PROBLEM BY ROTATING THE CROSS-
017572,000156: # PRODUCT ATTITUDE ABOUT POINTVSM BY A FIXED AMOUNT SUFFICIENT TO ROTATE THE DESIRED S/C ATTITUDE OUT OF GIMBAL
017573,000157: # LOCK. IF THE AXIS TO BE POINTED IS MORE THAN 40.6 DEGREES BUT LESS THAN 60.5 DEG FROM THE +X (OR -X) AXIS,
017574,000158: # THE ADDITIONAL ROTATION TO AVOID GIMAL LOCK IS 35 DEGREES. IF THE AXIS IS MORE THAN 60.5 DEGEES FROM +X (OR -X)
017575,000159: # THE ADDITIONAL ROTATION IS 35 DEGREES. THE GIMBAL ANGLES CORRESPONDING TO THIS ATTITUDE ARE THEN COMPUTED AND
017576,000160: # STORED AS 2S COMPLIMENT ANGLES IN T(MPAC) BEFORE RETURNING TO THE CALLER.
017577,000161: # WHEN POINTING THE X-AXIS, OR THE THRUST VECTOR, OR ANY VECTOR WITHIN 40.6 DEG OF THE X-AXIS, VECPOINT
017578,000162: # CANNOT CORRECT FOR A CROSS-PRODUCT ROTATION INTO GIMBAL LOCK. IN THIS CASE A PLATFORM REALIGNMENT WOULD BE
017579,000163: # REQUIRED TO POINT THE VECTOR IN THE DESIRED DIRECTION. AT PRESENT NO INDICATION IS GIVEN FOR THIS SITUATION
017580,000164: # EXCEPT THAT THE FINAL MIDDLE GIMBAL ANGLE IN MPAC +2 IS GREATER THAN 59 DEGREES.
017581,000165:
017582,000166: # CALLING SEQUENCE -
017583,000167:
017584,000168: # 1) LOAD SCAXIS, POINTVSM
017585,000169: # 2) CALL
017586,000170: # VECPOINT
017587,000171:
017588,000172: # RETURNS WITH
017589,000173:
017590,000174: # 1) DESIRED OUTER GIMBAL ANGLE IN MPAC
017591,000175: # 2) DESIRED INNER GIMBAL ANGLE IN MPAC +1
017592,000176: # 3) DESIRED MIDDLE GIMBAL ANGLE IN MPAC +2
017593,000177:
017594,000178: # ERASABLES USED -
017595,000179:
017596,000180: # 1) SCAXIS 6
017597,000181: # 2) POINTVSM 6
017598,000182: # 3) MIS 18
017599,000183: # 4) DEL 18
017600,000184: # 5) COF 6
017601,000185: # 6) VECQTEMP 1
017602,000186: # 7) ALL OF VAC AREA 43
017603,000187:
017604,000188: # TOTAL 99
017605,000189:
017606,000190: 27,2000 SETLOC VECPT
017607,000191: 27,2000 BANK
|
|
Page 398
|
017609,000193: 27,2225 E6,1661 EBANK= BCDU
017610,000194:
017611,000195: 27,2225 COUNT* $$/VECPT
017612,000196: 27,2225 40020 VECPOINT STQ BOV # SAVE RETURN ADDRESS
017613,000197: 27,2226 03310 VECQTEMP
017614,000198: 27,2227 56230 VECLEAR # AND CLEAR OVFIND
017615,000199: 27,2230 47164 VECLEAR AXC,2 RTB
017616,000200: 27,2231 03320 MIS # READ THE PRESENT CDU ANGLES AND
017617,000201: 27,2232 44370 READCDUK # STORE THEM IN PD25, 26, 27
017618,000202: 27,2233 34032 STCALL 25D
017619,000203: 27,2234 44377 CDUTODCM # S/C AXES TO STABLE MEMBER AXES (MIS)
017620,000204: 27,2235 61375 VLOAD VXM
017621,000205: 27,2236 03357 POINTVSM # RESOLVE THE POINTING DIRECTION VF INTO
017622,000206: 27,2237 03321 MIS # INITIAL S/C AXES (VF = POINTVSM)
017623,000207: 27,2240 77656 UNIT
017624,000208: 27,2241 00035 STORE 28D
017625,000209: # PD 28 29 30 31 32 33
017626,000210: 27,2242 53435 VXV UNIT # TAKE THE CROSS PRODUCT VF X VI
017627,000211: 27,2243 03351 SCAXIS # WHERE VI = SCAXIS
017628,000212: 27,2244 57400 BOV VCOMP
017629,000213: 27,2245 56355 PICKAXIS
017630,000214: 27,2246 17343 STODL COF # CHECK MAGNITUDE
017631,000215: 27,2247 00045 36D # OF CROSS PRODUCT
017632,000216: 27,2250 50025 DSU BMN # VECTOR, IF LESS
017633,000217: 27,2251 16426 DPB-14 # THAN B-14 ASSUME
017634,000218: 27,2252 56355 PICKAXIS # UNIT OPERATION
017635,000219: 27,2253 50375 VLOAD DOT # INVALID.
017636,000220: 27,2254 03351 SCAXIS
017637,000221: 27,2255 00035 28D
017638,000222: 27,2256 65552 SL1 ARCCOS
017639,000223: 27,2257 77624 COMPMATX CALL # NOW COMPUTE THE TRANSFORMATION FROM
017640,000224: 27,2260 44522 DELCOMP # FINAL S/C AXES TO INITIAL S/C AXES MFI
017641,000225: 27,2261 75160 AXC,1 AXC,2
017642,000226: 27,2262 03320 MIS # COMPUTE THE TRANSFORMATION FROM FINAL
017643,000227: 27,2263 03425 DEL # S/C AXES TO STABLE MEMBER AXES
017644,000228: 27,2264 77624 CALL # MFS = MIS MFI
017645,000229: 27,2265 44304 MXM3 # (IN PD LIST)
017646,000230:
017647,000231: 27,2266 51545 DLOAD ABS
017648,000232: 27,2267 00007 6 # MFS6 = SIN(CPSI) $2
017649,000233: 27,2270 50025 DSU BMN
017650,000234: 27,2271 16413 SINGIMLC # = SIN(59 DEGS) $2
017651,000235: 27,2272 56345 FINDGIMB # /CPSI/ LESS THAN 59 DEGS
017652,000236: # I.E. DESIRED ATTITUDE NOT IN GIMBAL LOCK
017653,000237:
017654,000238: 27,2273 51545 DLOAD ABS # CHECK TO SEE IF WE ARE POINTING
017655,000239: 27,2274 03351 SCAXIS # THE THRUST AXIS
017656,000240: 27,2275 51025 DSU BPL
017657,000241: 27,2276 16415 SINVEC1 # SIN 49.4 DEGS $2
017658,000242: 27,2277 56345 FINDGIMB # IF SO, WE ARE TRYING TO POINT IT INTO
|
|
Page 399
|
017660,000244: 27,2300 77775 VLOAD # GIMBAL LOCK, ABORT COULD GO HERE
017661,000245: 27,2301 77626 STADR
017662,000246: 27,2302 50442 STOVL MIS +12D
017663,000247: 27,2303 77626 STADR # STORE MFS (IN PD LIST) IN MIS
017664,000248: 27,2304 50450 STOVL MIS +6
017665,000249: 27,2305 77626 STADR
017666,000250: 27,2306 50456 STOVL MIS
017667,000251: 27,2307 03327 MIS +6 # INNER GIMBAL AXIS IN FINAL S/C AXES
017668,000252: 27,2310 57444 BPL VCOMP # LOCATE THE IG AXIS DIRECTION CLOSEST TO
017669,000253: 27,2311 56312 IGSAMEX # FINAL X S/C AXIS
017670,000254:
017671,000255: 27,2312 50035 IGSAMEX VXV BMN # FIND THE SHORTEST WAY OF ROTATING THE
017672,000256: 27,2313 03351 SCAXIS # S/C OUT OF GIMBAL LOCK BY A ROTATION
017673,000257: 27,2314 56321 U=SCAXIS # ABOUT +- SCAXIS, I.E. IF (IG (SGN MFS3)
017674,000258: # X SCAXIS . XF) LESS THAN 0, U = SCAXIS
017675,000259: # OTHERWISE U = -SCAXIS
017676,000260:
017677,000261: 27,2315 57575 VLOAD VCOMP
017678,000262: 27,2316 03351 SCAXIS
017679,000263: 27,2317 37343 STCALL COF # ROTATE ABOUT -SCAXIS
017680,000264: 27,2320 56324 CHEKAXIS
017681,000265: 27,2321 77775 U=SCAXIS VLOAD
017682,000266: 27,2322 03351 SCAXIS
017683,000267: 27,2323 03343 STORE COF # ROTATE ABOUT + SCAXIS
017684,000268: 27,2324 51545 CHEKAXIS DLOAD ABS
017685,000269: 27,2325 03351 SCAXIS # SEE IF WE ARE POINTING THE AOT
017686,000270: 27,2326 51025 DSU BPL
017687,000271: 27,2327 16417 SINVEC2 # SIN 29.5 DEGS $2
017688,000272: 27,2330 56334 PICKANG1 # IF SO, ROTATE 50 DEGS ABOUT +- SCAXIS
017689,000273: 27,2331 52145 DLOAD GOTO # IF NOT, MUST BE POINTING THE TRANSPONDER
017690,000274: 27,2332 16423 VECANG2 # OR SOME VECTOR IN THE Y, OR Z PLANE
017691,000275: 27,2333 56336 COMPMFSN # IN THIS CASE ROTATE 35 DEGS TO GET OUT
017692,000276: # OF GIMBAL LOCK (VECANG2 $360)
017693,000277: 27,2334 77745 PICKANG1 DLOAD
017694,000278: 27,2335 16421 VECANG1 # = 50 DEGS $ 360
017695,000279: 27,2336 77624 COMPMFSN CALL
017696,000280: 27,2337 44522 DELCOMP # COMPUTE THE ROTATION ABOUT SCAXIS TO
017697,000281: 27,2340 75160 AXC,1 AXC,2 # BRING MFS OUT OF GIMBAL LOCK
017698,000282: 27,2341 03320 MIS
017699,000283: 27,2342 03425 DEL
017700,000284: 27,2343 77624 CALL # COMPUTE THE NEW TRANSFORMATION FROM
017701,000285: 27,2344 44304 MXM3 # DESIRED S/C AXES TO STABLE MEMBER AXES
017702,000286: # WHICH WILL ALIGN VI WITH VF AND AVOID
017703,000287: # GIMBAL LOCK
017704,000288: 27,2345 45160 FINDGIMB AXC,1 CALL
017705,000289: 27,2346 00000 0 # EXTRACT THE COMMANDED CDU ANGLES FROM
017706,000290: 27,2347 44647 DCMTOCDU # THIS MATRIX
017707,000291: 27,2350 77634 RTB
017708,000292: 27,2351 45644 V1STO2S # CONVERT TO 2:S COMPLEMENT
017709,000293: 27,2352 52001 VECPTRET SETPD GOTO
|
|
Page 400
|
017711,000295: 27,2353 00001 0
017712,000296: 27,2354 03310 VECQTEMP # RETURN TO CALLER
017713,000297:
017714,000298: 27,2355 50375 PICKAXIS VLOAD DOT # IF VF X VI = 0, FIND VF . VI
017715,000299: 27,2356 00035 28D
017716,000300: 27,2357 03351 SCAXIS
017717,000301: 27,2360 72240 BMN TLOAD
017718,000302: 27,2361 56365 ROT180
017719,000303: 27,2362 00032 25D
017720,000304: 27,2363 77650 GOTO # IF VF = VI, CDU DESIRED = PRESENT CDU
017721,000305: 27,2364 56352 VECPTRET # PRESENT CDU ANGLES
017722,000306: 27,2365 47375 ROT180 VLOAD VXV # IF VF, VI ANTIPARALLEL, 180 DEG ROTATION
017723,000307: 27,2366 03327 MIS +6 # IS REQUIRED. Y STABLE MEMBER AXIS IN
017724,000308: 27,2367 15334 HIUNITX # INITIAL S/C AXIS.
017725,000309: 27,2370 47256 UNIT VXV # FIND Y(SM) X X(I)
017726,000310: 27,2371 03351 SCAXIS # FIND UNIT(VI X UNIT(Y(SM) X X(I)))
017727,000311: 27,2372 40056 UNIT BOV # I.E. PICK A VECTOR IN THE PLANE OF X(I),
017728,000312: 27,2373 56407 PICKX # Y(SM) PERPENDICULAR TO VI
017729,000313: 27,2374 17343 STODL COF
017730,000314: 27,2375 00045 36D # CHECK MAGNITUDE
017731,000315: 27,2376 50025 DSU BMN # OF THIS VECTOR.
017732,000316: 27,2377 16426 DPB-14 # IF LESS THAN B-14,
017733,000317: 27,2400 56407 PICKX # PICK X-AXIS.
017734,000318: 27,2401 77775 VLOAD
017735,000319: 27,2402 03343 COF
017736,000320: 27,2403 17343 XROT STODL COF
017737,000321: 27,2404 15334 HIDPHALF
017738,000322: 27,2405 77650 GOTO
017739,000323: 27,2406 56257 COMPMATX
017740,000324: 27,2407 52175 PICKX VLOAD GOTO # PICK THE XAXIS IN THIS CASE
017741,000325: 27,2410 15334 HIUNITX
017742,000326: 27,2411 56403 XROT
017743,000327: 27,2000 SETLOC MANUVER1
017744,000328: 27,2000 BANK
017745,000329:
017746,000330: 27,2412 COUNT* $$/VECPT
017747,000331: 27,2412 15555 35172 SINGIMLC 2DEC .4285836003 # = SIN(59) $2
017748,000332: 27,2414 14113 36326 SINVEC1 2DEC .3796356537 # = SIN(49.4) $2
017749,000333: 27,2416 07701 35703 SINVEC2 2DEC .2462117800 # = SIN(29.5) $2
017750,000334: 27,2420 04343 21616 VECANG1 2DEC .1388888889 # = 50 DEGREES $360
017751,000335: 27,2422 03070 34344 VECANG2 2DEC .09722222222 # = 35 DEGREES $360
017752,000336:
017753,000337: 27,2424 00000 1BITDP OCT 0 # KEEP THIS BEFORE DPB(-14) *********
017754,000338: 27,2425 00001 DPB-14 OCT 00001
017755,000339: 27,2426 00000 OCT 00000
017756,000340: 27,2000 SETLOC MANUVER
|
|
Page 401
|
017758,000342: 27,2000 BANK
017759,000343:
|
|
Page 402
|
017761,000345: # ROUTINE FOR INITIATING AUTOMATIC MANEUVER VIA KEYBOARD (V49)
017762,000346:
017763,000347: 27,2427 1307 EBANK= CPHI
017764,000348:
017765,000349: 27,2427 COUNT* $$/R62
017766,000350: 27,2427 35025 R62DISP CAF V06N22 # DISPLAY COMMAND ICDUS CPHI, CTHETA, CPHI
017767,000351: 27,2430 04636 TC BANKCALL
017768,000352: 27,2431 20743 CADR GOFLASH
017769,000353: 27,2432 15524 TCF ENDEXT
017770,000354: 27,2433 12435 TCF GOMOVE # PROCEED
017771,000355: 27,2434 12427 TCF R62DISP # ENTER
017772,000356:
017773,000357: # ASTRONAUT MAY LOAD NEW ICDUS AT THIS
017774,000358: # POINT
017775,000359: 27,2435 05547 GOMOVE TC UPFLAG # SET 3-AXIS FLAG
017776,000360: 27,2436 00124 ADRES 3AXISFLG # BIT 6 FLAG 5
017777,000361: 27,2437 04636 TC BANKCALL
017778,000362: 27,2440 56074 CADR R60CSM
017779,000363:
017780,000364: 27,2441 15524 TCF ENDEXT
End of include-file R60,R62.agc. Parent file is MAIN.agc