Source Code
022702,000001: # Copyright: Public domain.
022703,000002: # Filename: P11.agc
022704,000003: # Purpose: Part of the source code for Colossus, build 249.
022705,000004: # It is part of the source code for the Command Module's (CM)
022706,000005: # Apollo Guidance Computer (AGC), possibly for Apollo 8 and 9.
022707,000006: # Assembler: yaYUL
022708,000007: # Reference: pp. 528-544 of 1701.pdf.
022709,000008: # Contact: Ron Burkey <info@sandroid.org>.
022710,000009: # Website: www.ibiblio.org/apollo.
022711,000010: # Mod history: 08/13/04 RSB. Began transcribing.
022712,000011:
022713,000012: # The contents of the "Colossus249" files, in general, are transcribed
022714,000013: # from a scanned document obtained from MIT's website,
022715,000014: # http://hrst.mit.edu/hrs/apollo/public/archive/1701.pdf. Notations on this
022716,000015: # document read, in part:
022717,000016:
022718,000017: # Assemble revision 249 of AGC program Colossus by NASA
022719,000018: # 2021111-041. October 28, 1968.
022720,000019:
022721,000020: # This AGC program shall also be referred to as
022722,000021: # Colossus 1A
022723,000022:
022724,000023: # Prepared by
022725,000024: # Massachussets Institute of Technology
022726,000025: # 75 Cambridge Parkway
022727,000026: # Cambridge, Massachusetts
022728,000027: # under NASA contract NAS 9-4065.
022729,000028:
022730,000029: # Refer directly to the online document mentioned above for further information.
022731,000030: # Please report any errors (relative to 1701.pdf) to info@sandroid.org.
022732,000031:
022733,000032: # In some cases, where the source code for Luminary 131 overlaps that of
022734,000033: # Colossus 249, this code is instead copied from the corresponding Luminary 131
022735,000034: # source file, and then is proofed to incorporate any changes.
022736,000035:
022737,000036: # Page 528
022738,000037: # EARTH ORBIT INSERTION MONITOR PROGRAM
022739,000038: # *************************************
022740,000039:
022741,000040: # PROGRAM DESCRIPTION -P11-
022742,000041:
022743,000042: # MOD NO. 1
022744,000043: # MOD BY ELIASSEN
022745,000044:
022746,000045: # FUNCTIONAL DESCRIPTION
022747,000046:
022748,000047: # P11 IS INITIATED BY
022749,000048:
022750,000049: # A) GYROCOMPASS PRG P02 WHEN LIFTOFF DISCRETE IS RECEIVED OR
022751,000050: # B) BACKUP THRU VERB 75 ENTER
022752,000051:
022753,000052: # PROGRAM WILL
022754,000053:
022755,000054: # 1. ZERO CMC CLOCK AT LIFTOFF (OR UPON RECEIPT OF BACKUP)
022756,000055: # 2. UPDATE TEPHEM TO TIME CMC CLOCK WAS ZEROED
022757,000056: # 3. INITIATE SERVICER AT PREREAD1
022758,000057: # 4. CHANGE MAJOR MODE TO 11
022759,000058: # 5. CLEAR DSKY IN CASE OF V 75
022760,000059: # 6. STORE LIFTOFF IMU-CDU ANGLES FOR ATT. ERROR DISPLAY
022761,000060: # 7. TERMINATE GYROCOMPASSING __ __
022762,000061: # 8. COMPUTE INITIAL VECTORS RN, VN _ _ _
022763,000062: # 9. COMPUTE REFSMMAT FOR PRELAUNCH ALIGNMENT WHERE U ,U ,U ARE
022764,000063: # _ _ X Y Z
022765,000064: # U =(UNIT(-R) LOCAL VERTICAL AT TIME OF LIFTOFF
022766,000065: # _Z _ _
022767,000066: # U =UNIT(A), A=HOR VECTOR AT LAUNCH AZIMUTH
022768,000067: # _X _ _
022769,000068: # U =U * U
022770,000069: # U Z X
022771,000070: # 10. SET REFSMMAT KNOWN FLAG
022772,000071: # 11. SET AVGEXIT IN SERVICER TO VHHDOT TO
022773,000072: # COMPUTE AND DISPLAY NOUN 62 EVERY 2 SECONDS
022774,000073:
022775,000074: # R1 V1 -- INERTIAL VELOCITY MAGNITUDE IN FPS
022776,000075: # R2 HDOT -- RATE OF CHANGE OF VEHICLE VEL IN FPS
022777,000076: # R3 H -- VEHICLE ALTITUDE ABOVE PAD IN NM
022778,000077: #
022779,000078: # 12. DISPLAY BODY AXES ATT. ERRORS ON FDAI NEEDLES
022780,000079:
022781,000080: # A) FROM L.O. TO RPSTART (APPROX. 0 TO +10SECS AFTER L.O.)
022782,000081: # DESIRED ATTITUDE IS AS STORED AT L.O.
022783,000082: # B) FROM RPSTART TO POLYSTOP (APPROX. +10 TO +133SECS AFTER L.O.)
022784,000083: # DESIRED ATTITUDE IS SPECIFIED BY CMC PITCH AND ROLL
022785,000084: # POLYNOMIALS DURING SATURN ROLLOUT AND PITCHOVER
022786,000085: # Page 529
022787,000086: # THE DISPLAY IS RUN AS LOW PRIORITY JOB APPROX.
022788,000087: # EVERY 1/2 SEC OR LESS AND IS DISABLED UPON OVFLO OF TIME1
022789,000088:
022790,000089: # SUBROUTINES CALLED
022791,000090:
022792,000091: # 2PHSCHNG BANKCALL CALCGRA CDUTRIG CLEANDSP DANZIG
022793,000092: # DELAYJOB EARTHR ENDOFJOB FINDVAC IBNKCALL
022794,000093: # INTPRET LALOTORV NEEDLER NEWMODEX PHASCHNG
022795,000094: # POSTJUMP POWRSERS PREREAD1 REGODSPR S11.1
022796,000095: # SERVEXIT TASKOVER TCDANZIG V1STO25 WAITLIST
022797,000096:
022798,000097: # ASTRONAUT REQUESTS (IF ALTITUDE ABOVE 300,000 FT)
022799,000098:
022800,000099: # DSKY --
022801,000100: # MONITOR DISPLAY OF TIME TO PERIGEE R1 HOURS
022802,000101: # R2 MINUTES
022803,000102:
022804,000103: # DSKY --
022805,000104: # MONITOR DISPLAY OF R1 APOGEE ALTITUDE IN NAUTICAL MILES
022806,000105: # R2 PERIGEE ALTITUDE IN NAUTICAL MILES
022807,000106: # R3 TFF IN MINUTES/SECS
022808,000107:
022809,000108: # IF ASTRONAUT HAS REQUESTED ANY OF THESE DISPLAYS HE MUST
022810,000109: # HIT KEY RELEASE BUTTON TO RETURN TO NORMAL NOUN 62 DISPLAY.
022811,000110:
022812,000111: # NORMAL EXIT MODE
022813,000112:
022814,000113: # ASTRONAUT VERB 37 ENTER 00 ENTER
022815,000114:
022816,000115: # ALARM MODES -- NONE
022817,000116:
022818,000117: # ABORT EXIT MODES --
022819,000118:
022820,000119: # EARLY BOOST ABORT FOLLOWED BY REENTRY V 37 E 62 E
022821,000120: # LATE BOOST ABORT FOLLOWED BY REENTRY V 37 E 61 E
022822,000121:
022823,000122: # OUTPUT
022824,000123:
022825,000124: # TLIFTOFF (DP) TEPHEM (TP)
022826,000125: # REFSMMAT
022827,000126: # DSKY DISPLAY
022828,000127: # FDAI DISPLAY
022829,000128:
022830,000129: # ERASABLE INITIALIZATION
022831,000130:
022832,000131: # AZO, AXO, -AYO
022833,000132: # LATITUDE
022834,000133: # PADLONG
022835,000134: # TEPHEM
022836,000135: # PGNCSALT
022837,000136: # Page 530
022838,000137: # POLYNUM THRU POLYNUM +14D
022839,000138: # RPSTART
022840,000139: # POLYSTOP
022841,000140:
022842,000141: # FLAGS SET OR RESET
022843,000142:
022844,000143: # SET REFSMFLG
022845,000144: # SET DVMON IDLE FLAG
022846,000145: # CLEAR ERADFLAG
022847,000146:
022848,000147: # DEBRIS
022849,000148:
022850,000149: # LIFTTEMP
022851,000150: # POLYNUM THRU POLYNUM +7
022852,000151: # SPOLYARG
022853,000152: # BODY1, BODY2, BODY3
022854,000153: # VMAG2, ALTI, HDOT
022855,000154: # CENTRALS, CORE SET, AND VAC AREAS
022856,000155:
022857,000156: 04,3447 COUNT 34/P11
022858,000157:
022859,000158: 04,3447 4730 BITS5-6 = SUPER011
022860,000159: 42,3521 BANK 42
022861,000160: 34,2000 SETLOC P11ONE
022862,000161: 34,2000 BANK
022863,000162:
022864,000163: 34,2002 E3,1706 EBANK= TEPHEM
022865,000164: 34,2002 34744 P11 CA EBANK3
022866,000165: 34,2003 54003 TS EBANK
022867,000166:
022868,000167: 34,2004 00006 EXTEND
022869,000168: 34,2005 32273 DCA REP11S # DIRECT RESTARTS TO REP11
022870,000169: 34,2006 52757 DXCH -PHASE3
022871,000170: 34,2007 44714 CS ZERO
022872,000171: 34,2010 22007 ZL
022873,000172: 34,2011 55265 TS LIFTTEMP
022874,000173: 34,2012 52763 DXCH -PHASE5 # INACTIVE GROUP 5, PRELAUNCH PROTECTION
022875,000174: 34,2013 00006 P11+7 EXTEND
022876,000175: 34,2014 32275 DCA REP11SA
022877,000176: 34,2015 53337 DXCH TLIFTOFF
022878,000177:
022879,000178: 34,2016 00006 EXTEND
022880,000179: 34,2017 30025 DCA TIME2
022881,000180: 34,2020 53266 DXCH LIFTTEMP # FORE RESTARTS
022882,000181:
022883,000182: 34,2021 34714 CA ZERO
022884,000183: 34,2022 22007 ZL
022885,000184: 34,2023 52025 DXCH TIME2
022886,000185: 34,2024 53337 REP11A-2 DXCH TLIFTOFF
022887,000186: 34,2025 52757 REP11A-1 DXCH -PHASE3 # RESET PHASE
022888,000187: # Page 531
022889,000188: 34,2026 00004 REP11A INHINT
022890,000189: 34,2027 00006 EXTEND
022891,000190: 34,2030 31710 DCA TEPHEM +1
022892,000191: 34,2031 53271 DXCH TEPHEM1 +1
022893,000192: 34,2032 31706 CA TEPHEM
022894,000193: 34,2033 57267 XCH TEPHEM1
022895,000194:
022896,000195: 34,2034 00006 EXTEND
022897,000196: 34,2035 31337 DCA TLIFTOFF
022898,000197: 34,2036 21271 DAS TEPHEM1 +1
022899,000198: 34,2037 27267 ADS TEPHEM1 # CORRECT FOR OVERFLOW
022900,000199:
022901,000200: 34,2040 05301 TC PHASCHNG
022902,000201: 34,2041 05023 OCT 05023
022903,000202: 34,2042 22000 OCT 22000
022904,000203:
022905,000204: 34,2043 00004 INHINT
022906,000205: 34,2044 00006 EXTEND
022907,000206: 34,2045 31270 DCA TEPHEM1
022908,000207: 34,2046 53707 DXCH TEPHEM
022909,000208: 34,2047 31271 CA TEPHEM1 +2
022910,000209: 34,2050 57710 XCH TEPHEM +2
022911,000210:
022912,000211: 34,2051 32000 CAF EBDVCNT
022913,000212: 34,2052 54003 TS EBANK
022914,000213: 34,2053 E7,1431 EBANK= DVCNTR
022915,000214: 34,2053 04633 TC IBNKCALL
022916,000215: 34,2054 76625 CADR PREREAD1 # ZERO PIPS AND INITIALIZE AVERAGEG
022917,000216:
022918,000217: 34,2055 05301 TC PHASCHNG
022919,000218: 34,2056 05023 OCT 05023 # CONTINUE HERE ON RESTART
022920,000219: 34,2057 22000 OCT 22000
022921,000220:
022922,000221: 34,2060 34731 CAF .5SEC # START ATT ERROR DISPLAY
022923,000222: 34,2061 05140 TC WAITLIST # IN .5 SEC
022924,000223: 34,2062 E6,1704 EBANK= BODY3
022925,000224: 34,2062 02314 70066 2CADR ATERTASK
022926,000225:
022927,000226: 34,2064 05243 TC NEWMODEX # DISPLAY MM 11
022928,000227: 34,2065 00013 MM 11 B-14
022929,000228:
022930,000229: 34,2066 04555 TC BANKCALL
022931,000230: 34,2067 20607 CADR CLEANDSP # CLEAR DSKY IN CASE OF V75
022932,000231:
022933,000232: 34,2070 05261 TC 2PHSCHNG
022934,000233: 34,2071 40514 OCT 40514 # PROTECT ATERTASK
022935,000234: 34,2072 00073 OCT 00073
022936,000235: 34,2073 32001 CAF EBQPLACE
022937,000236: 34,2074 54003 TS EBANK
022938,000237: # Page 532
022939,000238: 34,2075 E5,1426 EBANK= QPLACES
022940,000239: 34,2075 32276 CA P11XIT # SET EXIT FROM PROUT IN EARTHR
022941,000240: 34,2076 55426 TS QPLACES
022942,000241: 34,2077 22007 ZL # STORE DP GIMBAL
022943,000242: 34,2100 30032 CA CDUX # ANGLES FOR ATTITUDE
022944,000243: 34,2101 53760 DXCH OGC # ERROR DISPLAY
022945,000244: 34,2102 22007 ZL # AFTER L.O.
022946,000245: 34,2103 30033 CA CDUY
022947,000246: 34,2104 53762 DXCH IGC
022948,000247: 34,2105 22007 ZL
022949,000248: 34,2106 30034 CA CDUZ
022950,000249: 34,2107 53764 DXCH MGC
022951,000250: 34,2110 06006 TC INTPRET
022952,000251: 34,2111 74575 VLOAD VSR1 # SCALE OGC B-1
022953,000252: 34,2112 02760 OGC
022954,000253: 34,2113 02760 STORE OGC
022955,000254: 34,2114 64375 VLOAD MXV
022956,000255: 34,2115 02467 THETAN
022957,000256: 34,2116 02672 XSM
022958,000257: 34,2117 53372 VSL1 VAD
022959,000258: 34,2120 02650 ERCOMP
022960,000259: 34,2121 16650 STODL ERCOMP
022961,000260: 34,2122 01337 TLIFTOFF
022962,000261: 34,2123 52131 SSP GOTO
022963,000262: 34,2124 00052 S2
022964,000263: 34,2125 66424 CADR PROUT # RETURN FROM EARTHR
022965,000264: 34,2126 66373 EARTHR +3
022966,000265: 34,2127 06006 MATRXJOB TC INTPRET
022967,000266: 34,2130 77731 SSP # ZERO RTX2
022968,000267: 34,2131 03747 RTX2 # FOR
022969,000268: 34,2132 00000 0 # EARTH
022970,000269: 34,2133 65345 DLOAD PDDL
022971,000270: 34,2134 01273 PGNCSALT # ALTITUDE OF PGNCS
022972,000271: 34,2135 01264 PADLONG # LONGITUDE
022973,000272: 34,2136 55525 PDDL VDEF
022974,000273: 34,2137 02403 LATITUDE # GEODETIC LATITUDE
022975,000274: 34,2140 15104 STODL LAT # LAT,LONG,ALT ARE CONSECUTIVE
022976,000275: 34,2141 15332 HI6ZEROS # TIME = 0
022977,000276: 34,2142 45014 CLEAR CALL
022978,000277: 34,2143 00662 ERADFLAG
022979,000278: 34,2144 26373 LALOTORV # CONVERT TO POSITION VECTOR IN REF. COORDS.
022980,000279:
022981,000280: 34,2145 35232 STCALL RN1
022982,000281: 34,2146 77256 CALCGRAV # RETURN WITH GRAVITY
022983,000282: 34,2147 77656 UNIT # IN MPAC
022984,000283: 34,2150 25752 STOVL REFSMMAT +12D # UNITZ = UNIT(GRAV)
022985,000284: 34,2151 01232 RN1
022986,000285: 34,2152 74235 VXV VXSC
022987,000286: 34,2153 01714 UNITW # SCALED AT 1
022988,000287: 34,2154 30300 -ERTHRAT # V = EARTHRATE X R
022989,000288: # Page 533
022990,000289: 34,2155 77712 VSL4 # SCALE TO 2(7) M/CS
022991,000290: 34,2156 25240 STOVL VN1
022992,000291: 34,2157 01752 REFSMMAT +12D
022993,000292: 34,2160 53435 VXV UNIT
022994,000293: 34,2161 01714 UNITW # (REF3 X UNITW) = EAST
022995,000294: 34,2162 47206 PUSH VXV
022996,000295: 34,2163 01752 REFSMMAT +12D # (EAST X REF3) = -SOUTH
022997,000296: 34,2164 65256 UNIT PDDL
022998,000297: 34,2165 02634 LAUNCHAZ # COS(AZ)*SOUTH
022999,000298: 34,2166 74346 COS VXSC
023000,000299: 34,2167 77626 STADR
023001,000300: 34,2170 62041 STODL REFSMMAT # TEMPORARY STORAGE
023002,000301: 34,2171 02634 LAUNCHAZ
023003,000302: 34,2172 74356 SIN VXSC # SIN(AZ)*EAST
023004,000303: 34,2173 53455 VAD UNIT # SIN(AZ)*EAST - COS(AZ)*SOUTH = REF1
023005,000304: 34,2174 01736 REFSMMAT
023006,000305: 34,2175 01736 STORE REFSMMAT
023007,000306:
023008,000307: 34,2176 53435 VXV UNIT # (REF1 X REF3) = -REF3
023009,000308: 34,2177 01752 REFSMMAT +12D
023010,000309: 34,2200 77676 VCOMP
023011,000310: 34,2201 01744 STORE REFSMMAT +6
023012,000311: 34,2202 45345 DLOAD DSU
023013,000312: 34,2203 15330 DPHALF # 1/2 REV
023014,000313: 34,2204 02634 LAUNCHAZ
023015,000314: 34,2205 65215 DAD PDDL
023016,000315: 34,2206 02401 AZIMUTH
023017,000316: 34,2207 03301 SATRLRT # SET SATRLRT = -SATRLRT IF
023018,000317: 34,2210 45565 SIGN STADR # (1/2REV -LAVNCHAZ +AZIMUTH) IS NEGATIVE
023019,000318: 34,2211 74476 STORE SATRLRT # FOR ROLL CALC IN FDAI ATT. ERROR DISPLAY
023020,000319: 34,2212 77414 SET EXIT
023021,000320: 34,2213 01462 REFSMFLG # SET REFSMMAT KNOWN FLAG
023022,000321:
023023,000322: 34,2214 05301 TC PHASCHNG
023024,000323: 34,2215 04023 OCT 04023
023025,000324:
023026,000325: 34,2216 00006 EXTEND
023027,000326: 34,2217 32302 DCA P11SCADR
023028,000327: 34,2220 53223 DXCH AVGEXIT # SET AVGEXIT
023029,000328:
023030,000329: 34,2221 37665 CA PRIO31 # 2 SECONDS AT 2(+8)
023031,000330: 34,2222 55074 TS 1/PIPADT
023032,000331:
023033,000332: 34,2223 E6,1501 EBANK= RCSFLAGS
023034,000333: 34,2223 34752 CA EBANK6
023035,000334: 34,2224 54003 TS EBANK
023036,000335:
023037,000336: 34,2225 00004 INHINT
023038,000337: 34,2226 44714 CS ZERO
023039,000338: 34,2227 55063 TS TBASE5 # RESTART READACCS 2 SECONDS AFTER LIFTOFF
023040,000339: # Page 534
023041,000340: 34,2230 40025 CS TIME1
023042,000341: 34,2231 64735 AD 2SECS # DO READACCS 2 SECONDS AFTER LIFTOFF
023043,000342:
023044,000343: 34,2232 10000 CCS A # CHECK TO INSURE DT IS POSITIVE
023045,000344: 34,2233 12236 TCF +3 # TIME POSITIVE
023046,000345: 34,2234 12236 TCF +2 # CANNOT GET HERE
023047,000346: 34,2235 34714 CA ZERO # TIME NEGATIVE -- SET TO 1
023048,000347: 34,2236 64712 AD ONE # RESTORE TIME -- OR MAKE POSITIVE
023049,000348:
023050,000349: 34,2237 05140 TC WAITLIST
023051,000350: 34,2240 E6,1661 EBANK= AOG
023052,000351: 34,2240 02647 76066 2CADR READACCS
023053,000352:
023054,000353: 34,2242 05261 TC 2PHSCHNG
023055,000354: 34,2243 00003 OCT 00003 # TURN OFF GROUP 3
023056,000355: 34,2244 00025 OCT 00025 # PROTECT NORMLIZE AND READACCS
023057,000356:
023058,000357: 34,2245 04574 TC POSTJUMP
023059,000358: 34,2246 77141 CADR NORMLIZE # DO NORMLIZE AND ENDOFJOB
023060,000359: 34,2247 E3,1706 EBANK= TEPHEM
023061,000360: 34,2247 00004 REP11 INHINT
023062,000361: 34,2250 10763 CCS PHASE5
023063,000362: 34,2251 05112 TC ENDOFJOB
023064,000363:
023065,000364: 34,2252 11265 CCS LIFTTEMP
023066,000365: 34,2253 12257 TCF +4
023067,000366: 34,2254 12257 TCF +3
023068,000367: 34,2255 12257 TCF +2
023069,000368: 34,2256 12013 TCF P11+7
023070,000369:
023071,000370: 34,2257 41336 CS TLIFTOFF
023072,000371: 34,2260 00006 EXTEND
023073,000372: 34,2261 62267 BZMF ENDREP11
023074,000373:
023075,000374: 34,2262 10024 CCS TIME2 # ** TIME2 MUST BE NON-ZERO AT LIFTOFF **
023076,000375: 34,2263 12021 TCF REP11A -5 # T2,T1 NOT YET ZEROED, GO AND DO IT
023077,000376:
023078,000377: 34,2264 00006 EXTEND # T2,T1 ZEROED, SET TLIFTOFF
023079,000378: 34,2265 31266 DCA LIFTTEMP
023080,000379: 34,2266 12024 TCF REP11A-2
023081,000380:
023082,000381: 34,2267 00006 ENDREP11 EXTEND
023083,000382: 34,2270 32275 DCA REP11SA
023084,000383: 34,2271 12025 TCF REP11A-1
023085,000384: 34,2272 77766 00011 REP11S 2OCT 7776600011
023086,000385: # Page 535
023087,000386: 34,2274 77764 00013 REP11SA 2OCT 7776400013
023088,000387:
023089,000388: 34,2276 02451 P11XIT GENADR P11OUT
023090,000389: 34,2277 71704 41735 -ERTHRAT 2DEC* -7.292115138 E-7 B18* # - EARTH RATE AT 2(18)
023091,000390:
023092,000391: 34,2301 E6,1704 EBANK= BODY3
023093,000392: 34,2301 02303 70066 P11SCADR 2CADR VHHDOT
023094,000393:
023095,000394: 34,2303 E6,1704 EBANK= BODY3
023096,000395: # VHHDOT IS EXECUTED EVERY 2 SECONDS TO DISPLAY ON DSKY
023097,000396: # VI INERTIAL VELOCITY MAGNITUDE
023098,000397: # HDOT RATE OF CHANGE OF ALT ABOVE L PAD RADIUS
023099,000398: # H ALTITUDE ABOVE L PAD RADIUS
023100,000399:
023101,000400: 34,2303 06006 VHHDOT TC INTPRET
023102,000401: 34,2304 77624 CALL # LOAD VMAGI, ALTI,
023103,000402: 34,2305 70436 S11.1 # HDOT FOR DISPLAY
023104,000403: 34,2306 77776 EXIT
023105,000404: 34,2307 32511 CAF V06N62 # DISPLAY IN R1 R2 . R3
023106,000405: 34,2310 04555 TC BANKCALL # VI HDOT H
023107,000406: 34,2311 20621 CADR REGODSPR # DISPLAY INTERFACE -- IMMEDIATE RETURN
023108,000407: 34,2312 04555 TC BANKCALL
023109,000408: 34,2313 77132 CADR SERVEXIT # END OF P11SERVE CYCLE
023110,000409: 34,2314 34701 ATERTASK CAF PRIO1 # ESTABLISH JOB TO DISPLAY ATT ERRORS
023111,000410: 34,2315 05042 TC FINDVAC # COMES HERE AT L.O. + .33 SEC
023112,000411: 34,2316 E6,1704 EBANK= BODY3
023113,000412: 34,2316 02326 70066 2CADR ATERJOB
023114,000413:
023115,000414: 34,2320 41501 CS RCSFLAGS # SET BIT3 FOR
023116,000415: 34,2321 74710 MASK BIT3 # NEEDLER
023117,000416: 34,2322 27501 ADS RCSFLAGS # INITIALIZATION PASS
023118,000417: 34,2323 04633 TC IBNKCALL # AND GO
023119,000418: 34,2324 42404 CADR NEEDLER # DO IT
023120,000419: 34,2325 05213 TC TASKOVER
023121,000420:
023122,000421: # THIS SECTION PROVIDES ATTITUDE ERROR DISPLAYS TO THE FDAI DURING SONE BOOST
023123,000422:
023124,000423: # COMPUTE DESIRED PITCH W.R.T. LAUNCH SITE LOCAL VERTICAL.
023125,000424: # PITCH = -.0000469184028+.00137571556*T+.0231502280*T*T-.0205929365*T*T*T
023126,000425: # SCALED TO 32 REVOLUTIONS.
023127,000426: # IF TL = TIME FROM LAUNCH IN SECONDS, THEN T = 100(TL-10SEC)/(2**14)
023128,000427: # WHERE TL GE 10 SEC
023129,000428: # TL LE 133 SEC
023130,000429:
023131,000430: # COMPUTE DESIRED ROLL WEHRE ROLL EQUALS COUNTER-CLOCKWISE ANGLE FROM
023132,000431: # LAUNCHAZ TO -Z(S/C) AS SEEN FROM X(S/C).
023133,000432: # ROLL = LAUNCHAZ-AZIMUTH-.5+SATRLRT*T IN REV
023134,000433: # SATRLRT = RATE OF ROLL IN REV/CENTI-SEC
023135,000434: # T, IN CENTI-SEC, IS DEFINED AS ABOVE, INCLUSIVE OF TIME RESTRICTIONS
023136,000435: # Page 536
023137,000436:
023138,000437: # FOR SIMPLICITY, LET P = 2*PI*PITCH
023139,000438: # R = 2*PI*ROLL
023140,000439:
023141,000440: # CONSTRUCT THE TRANSFORMATION MATRIX, TSMV, GIVING DESIRED S/C AXES IN
023142,000441: # TERMS OF SM COORDINATES. LET THE RESULTING ROWS EQUAL THE VECTORS XDC,
023143,000442: # YDC, AND ZDC.
023144,000443:
023145,000444: # * ( SIN(P) 0 -COS(P) ) (XDC)
023146,000445: # TSMV = (-SIN(R)*COS(P) -COS(R) -SIN(R)*SIN(P)) = (YDC)
023147,000446: # (-COS(R)*COS(P) SIN(R) -COS(R)*SIN(P)) (ZDC)
023148,000447:
023149,000448: # XDC,YDC,ZDC ARE USED AS INPUT TO CALCGTA FOR THE EXTRACTION OF THE
023150,000449: # EULER SET OF ANGLES WHICH WILL BRING THE SM INTO THE DESIRED
023151,000450: # ORIENTATION. THIS EULER SET, OGC, IGC, AND MGC, MAY BE IDENTIFIED
023152,000451: # AS THE DESIRED CDU ANGLES.
023153,000452:
023154,000453: # (XDC) (OGC)
023155,000454: # (YDC) ---) CALCGTA ---) (IGC)
023156,000455: # (ZDC) (MGC)
023157,000456: # _
023158,000457: # DEFINE THE VECTOR DELTACDU.
023159,000458:
023160,000459: # _ (OGC) (CDUX)
023161,000460: # DELTACDU = (IGC) - (CDUY)
023162,000461: # (MGC) (CDUZ)
023163,000462: # _ _ * _
023164,000463: # COMPUTE ATTITUDE ERRORS, A, WHERE A = TGSC*DELTACDU
023165,000464:
023166,000465: # * (1 SIN(CDUZ) 0 ) THE GIMBAL ANGLES
023167,000466: # TGSC = (0 COS(CDUX)*COS(CDUZ) SIN(CDUX)) = TO SPACECRAFT AXES
023168,000467: # (0 -SIN(CDUX)*COS(CDUZ) COS(CDUX)) CONVERSION MATRIX
023169,000468: # _
023170,000469: # THE ATTITUDE ERRORS, A, ARE STORED ONE HALF SINGLE PRECISION IN
023171,000470: # THE REGISTERS AK, AK1, AK2 AS INPUT TO NEEDLER, THE FDA1 ATTITUDE
023172,000471: # ERROR DISPLAY ROUTINE.
023173,000472:
023174,000473: 34,2326 30024 ATERJOB CAE TIME2 # CHECK IF MORE THAN
023175,000474: 34,2327 00006 EXTEND # 164 SECONDS FROM L.O.
023176,000475: 34,2330 62332 BZMF +2
023177,000476: 34,2331 12424 TCF SATCLEAR # YES -- CLEAR ERROR COUNTER + EXIT
023178,000477: 34,2332 30102 CAE FLAGWRD6 # CHECK FLAGWRD6
023179,000478: 34,2333 74105 MASK OCT60000 # BITS 14 + 15
023180,000479: 34,2334 00006 EXTEND
023181,000480: 34,2335 12337 BZF ATTDISP # NO SATURN STICK ON
023182,000481: 34,2336 02420 TC ATERSET # EXIT -- SATURN STICK IN USE
023183,000482: 34,2337 41702 ATTDISP CS RPSTART # PITCH/ROLL START TIME
023184,000483: 34,2340 60025 AD TIME1
023185,000484: # Page 537
023186,000485: 34,2341 00006 EXTEND
023187,000486: 34,2342 62504 BZMF NOPOLY # IF MINUS THEN ATTITUDE HOLD
023188,000487: 34,2343 54154 TS MPAC # MPAC = TIME1 - RPSTART
023189,000488: 34,2344 55707 TS SPOLYARG # SAVE FOR USE IN ROLL CALCULATION
023190,000489: 34,2345 61703 AD POLYSTOP # NEG PITCHOVER TIME IN CSECS
023191,000490: 34,2346 00006 EXTEND
023192,000491: 34,2347 62351 BZMF +2
023193,000492: 34,2350 12416 TCF SATOUT # EXIT IF TIME1 OR THAN (RPSTART-POLYSTOP)
023194,000493: 34,2351 31661 CAE POLYNUM
023195,000494: 34,2352 54001 TS L
023196,000495: 34,2353 32510 CAF COEFPOLY # EVALUATE PITCH POLYNOMIAL
023197,000496: 34,2354 07164 TC POWRSERS # SCALED TO 32 REVOLUTIONS
023198,000497:
023199,000498: # THE FOLLOWING PAD LOADED COEFFICIENTS ARE
023200,000499: # USED TO COMPUTE THE PITCH POLYNOMIAL
023201,000500:
023202,000501: # ----- SUNDISK SI COEFS -----
023203,000502: # POLYNUM FIVE POLYNOMIAL DEGREE -1
023204,000503: # +1 2DEC -.469184028 E-4 A0
023205,000504: # +3 2DEC .137571556 E-2 A1
023206,000505: # +5 2DEC .231502280 E-1 A2
023207,000506: # +7 2DEC -.205929365 E-1 A3
023208,000507: # +9D 2DEC 0 A4
023209,000508: # +11D 2DEC 0 A5
023210,000509: # +13D 2DEC 0 A6
023211,000510: # POLYLOC = POLYNUM +10D
023212,000511:
023213,000512: 34,2355 34714 CA ZERO # RETURN WITH PITCH(32REV)
023214,000513: 34,2356 54163 TS MODE # STORED MPAC, MPAC +1
023215,000514: 34,2357 06006 TC INTPRET
023216,000515: 34,2360 54201 SETPD SL # 32(PITCH(32REV)) = PITCH(REV)
023217,000516: 34,2361 00001 0
023218,000517: 34,2362 20206 5
023219,000518: 34,2363 77606 PUSH # LET P(RAD) = 2*PI*PITCH(REV)
023220,000519:
023221,000520: 34,2364 77650 GOTO
023222,000521: 34,2365 76103 ATTDISP1 # AROUND SETLOC
023223,000522:
023224,000523: # *
023225,000524: # CONSTRUCT SM TO S/C MATRIX, TSMV
023226,000525:
023227,000526: 37,2000 SETLOC P11TWO
023228,000527: 37,2000 BANK # 36 IN COL., 34 IN DISK
023229,000528:
023230,000529: 37,2103 COUNT 36/P11
023231,000530:
023232,000531: 37,2103 57546 ATTDISP1 COS DCOMP
023233,000532: 37,2104 14017 STODL 14D # -.5*COS(P)
023234,000533: 37,2105 77756 SIN
023235,000534: 37,2106 14013 STODL 10D # .5*SIN(P)
023236,000535: 37,2107 15332 ZEROVECS
023237,000536: # Page 538
023238,000537: 37,2110 00015 STORE 12D # 0
023239,000538:
023240,000539: # EVALUATE ROLL = LAUNCHAZ-AZIMUTH-.5+SATRLRT*T
023241,000540:
023242,000541: 37,2111 41335 SLOAD DMP
023243,000542: 37,2112 03310 SPOLYARG # TIME1 - RSPSTART, CSECS B-14.
023244,000543: 37,2113 03301 SATRLRT
023245,000544: 37,2114 45261 SL DSU
023246,000545: 37,2115 20217 14D
023247,000546: 37,2116 15330 DPHALF
023248,000547: 37,2117 45215 DAD DSU # ASSUMING X(SM) ALONG LAUNCH AZIMUTH,
023249,000548: 37,2120 02634 LAUNCHAZ # LAUNCHAZ = ANGLE FROM NORTH TO X(SM).
023250,000549: 37,2121 02401 AZIMUTH # AZIMUTH = -ANGLE FROM NORTH TO Z(S/C)
023251,000550: 37,2122 77634 RTB # DETERMINE IF ROLLOUT
023252,000551: 37,2123 70473 RLTST # IS COMPLETED
023253,000552: 37,2124 71406 ATTDISPR PUSH COS # CONTINUE COMPUTING TSMV
023254,000553: 37,2125 77606 PUSH # LET R(RAD) = 2*PI*ROLL(REV)
023255,000554: 37,2126 72405 DMP SL1
023256,000555: 37,2127 00017 14D
023257,000556: 37,2130 14027 STODL 22D # -.5*COS(R)*COS(P)
023258,000557: 37,2131 77676 DCOMP
023259,000558: 37,2132 00023 STORE 18D # -.5*COS(R)
023260,000559: 37,2133 72405 DMP SL1
023261,000560: 37,2134 00013 10D
023262,000561: 37,2135 14033 STODL 26D # -.5*COS(R)*SIN(P)
023263,000562: 37,2136 41556 SIN PUSH
023264,000563: 37,2137 00031 STORE 24D # .5*SIN(R)
023265,000564: 37,2140 72405 DMP SL1
023266,000565: 37,2141 00017 14D
023267,000566: 37,2142 14021 STODL 16D # -.5*SIN(R)*COS(P)
023268,000567: 37,2143 77676 DCOMP
023269,000568: 37,2144 72405 DMP SL1
023270,000569: 37,2145 00013 10D
023271,000570: 37,2146 24025 STOVL 20D # -.5*SIN(R)*SIN(P)
023272,000571: 37,2147 00013 10D
023273,000572:
023274,000573: # FROM TSMV FIND THE HALF UNIT VECTORS XDC,YDC,ZDC = INPUT TO CALCGTA
023275,000574:
023276,000575: 37,2150 77656 UNIT
023277,000576: 37,2151 26714 STOVL XDC # XDC = .5*UNIT(SIN(P),0,-COS(P))
023278,000577: 37,2152 00021 16D
023279,000578: 37,2153 77656 UNIT
023280,000579: 37,2154 26722 STOVL YDC # YDC = .5*UNIT(-SIN(R)*COS(P),-COS(R),
023281,000580: 37,2155 00027 22D # -SIN(R)*SIN(P))
023282,000581: 37,2156 77656 UNIT
023283,000582: 37,2157 36730 STCALL ZDC # ZDC = .5*UNIT(-COS(R)*COS(P),SIN(R),
023284,000583: 37,2160 47140 CALCGTA # -COS(R)*SIN(P))
023285,000584:
023286,000585: # CALL CALCGTA TO COMPUTE DESIRED SM ORIENTATION OGC,IGC, AND MGC
023287,000586: # _ _ _
023288,000587: # FIND DIFFERENCE VECTOR DELTACDU = OGC-CDUX
023289,000588: # Page 539
023290,000589: # ENTER HERE IF ATTITUDE HOLD
023291,000590:
023292,000591: 37,2161 41575 NOPOLYM VLOAD PUSH # OGC IGC
023293,000592: 37,2162 02760 OGC # CHANGE IGC TO MGC FOR COMPATIBILITY
023294,000593: 37,2163 45006 PUSH CALL # MGC OGC
023295,000594: 37,2164 47432 CDUTRIG # WITH Y,Z,X ORDER OF CDUSPOT
023296,000595: 37,2165 47175 VLOAD RTB # _ DPHI OGC-CDUX , PD4
023297,000596: 37,2166 00003 2 # DELTACDU = DTHETA = IGC-CDUY , 0
023298,000597: 37,2167 45547 V1STO2S # DPSI MGC-CDUZ , 2
023299,000598: 37,2170 27317 STOVL BOOSTEMP
023300,000599: 37,2171 15332 ZEROVECS
023301,000600: 37,2172 24001 STOVL 0
023302,000601: 37,2173 00767 CDUSPOT
023303,000602: 37,2174 47034 RTB RTB
023304,000603: 37,2175 45547 V1STO2S
023305,000604: 37,2176 70453 DELSTOR
023306,000605: 37,2177 14013 STODL 10D
023307,000606: 37,2200 00741 SINCDUZ
023308,000607: 37,2201 72405 DMP SL1
023309,000608: 37,2202 00001 0
023310,000609: 37,2203 60415 DAD SR2 # CHANGE SCALE OF AK TO 2REVS
023311,000610: 37,2204 00005 4
023312,000611: 37,2205 77650 GOTO
023313,000612: 37,2206 70366 ATTDISP2
023314,000613:
023315,000614: 34,2000 SETLOC P11ONE
023316,000615: 34,2000 BANK
023317,000616: 34,2366 COUNT 34/P11
023318,000617:
023319,000618: 34,2366 14021 ATTDISP2 STODL 16D # 16D, .5(DPHI + DTHETA*SIN(CDUZ))
023320,000619: 34,2367 00747 COSCDUZ
023321,000620: 34,2370 41405 DMP PUSH
023322,000621: 34,2371 00001 0
023323,000622: 34,2372 72405 DMP SL1
023324,000623: 34,2373 00751 COSCDUX
023325,000624: 34,2374 41325 PDDL DMP
023326,000625: 34,2375 00743 SINCDUX
023327,000626: 34,2376 00003 2
023328,000627: 34,2377 72415 DAD SL1
023329,000628: 34,2400 77626 STADR
023330,000629: 34,2401 63755 STODL 17D # 17D, .5(DTHETA*COS(CDUX)*COS(CDUZ)
023331,000630: 34,2402 72405 DMP SL1 # +DPSI*SIN(CDUX))
023332,000631: 34,2403 00743 SINCDUX
023333,000632: 34,2404 41325 PDDL DMP
023334,000633: 34,2405 00751 COSCDUX
023335,000634: 34,2406 00003 2
023336,000635: 34,2407 72425 DSU SL1
023337,000636: 34,2410 77626 STADR
023338,000637: 34,2411 77754 STORE 18D # 18D, .5(-DTHETA*SIN(CDUX)*COS(CDUZ)
023339,000638: 34,2412 77751 TLOAD # +DPSI*COS(CDUX))
023340,000639: # Page 540
023341,000640: 34,2413 00021 16D
023342,000641: 34,2414 03077 STORE AK # STORE ATTITUDE ERRORS IN AK,AK1,AK2
023343,000642: 34,2415 77776 EXIT
023344,000643:
023345,000644: # DISPLAY ATTITUDE ERRORS ON FDAI VIA NEEDLER
023346,000645:
023347,000646: 34,2416 04555 SATOUT TC BANKCALL
023348,000647: 34,2417 42404 CADR NEEDLER
023349,000648: 34,2420 34113 ATERSET CAF OCT31 # DELAY .5 SEC
023350,000649: 34,2421 04555 TC BANKCALL # EXECUTION + DELAY = .56SEC APPROX
023351,000650: 34,2422 01732 CADR DELAYJOB
023352,000651: 34,2423 02326 TC ATERJOB # END OF ATT ERROR DISPLAY CYCLE
023353,000652:
023354,000653: 34,2424 44705 SATCLEAR CS BIT6
023355,000654: 34,2425 00006 EXTEND
023356,000655: 34,2426 03012 WAND CHAN12 # CLEAR IMU ERROR COUNTER
023357,000656: 34,2427 05301 TC PHASCHNG # TURN OFF PROTECTION
023358,000657: 34,2430 00004 OCT 00004 # FOR ATTITUDE ERROR DISPLAY
023359,000658: 34,2431 34714 CAF ZERO
023360,000659: 34,2432 55476 TS AK # ZERO OUT
023361,000660: 34,2433 55477 TS AK1 # AKS FOR
023362,000661: 34,2434 55500 TS AK2 # DOWNLINK
023363,000662: 34,2435 05112 TC ENDOFJOB
023364,000663:
023365,000664: 34,2436 51575 S11.1 VLOAD ABVAL
023366,000665: 34,2437 01177 VN
023367,000666: 34,2440 27723 STOVL VMAGI # VI SCALED 2(7) IN METERS/CSEC
023368,000667: 34,2441 01171 RN
023369,000668: 34,2442 45246 ABVAL DSU
023370,000669: 34,2443 05311 RPAD
023371,000670: 34,2444 27735 STOVL ALTI # H SCALED S(29) IN METERS
023372,000671: 34,2445 01171 RN
023373,000672: 34,2446 50256 UNIT DOT
023374,000673: 34,2447 01177 VN
023375,000674: 34,2450 77752 SL1
023376,000675: 34,2451 03737 STORE HDOT # HDOT SCALED 2(7) IN METERS/CSEC
023377,000676: 34,2452 77616 RVQ
023378,000677: 34,2453 31716 DELSTOR CA BOOSTEMP
023379,000678: 34,2454 00006 EXTEND # STORE DELTACDU INTO PDL 0,2,4
023380,000679: 34,2455 20154 MSU MPAC
023381,000680: 34,2456 50120 INDEX FIXLOC
023382,000681: 34,2457 54000 TS 0
023383,000682: 34,2460 31717 CA BOOSTEMP +1
023384,000683: 34,2461 00006 EXTEND
023385,000684: 34,2462 20155 MSU MPAC +1
023386,000685: 34,2463 50120 INDEX FIXLOC
023387,000686: 34,2464 54002 TS 2
023388,000687: 34,2465 31720 CA BOOSTEMP +2
023389,000688: 34,2466 00006 EXTEND
023390,000689: 34,2467 20156 MSU MPAC +2
023391,000690: # Page 541
023392,000691: 34,2470 50120 INDEX FIXLOC
023393,000692: 34,2471 54004 TS 4
023394,000693: 34,2472 16030 TCF DANZIG
023395,000694: 34,2473 30154 RLTST CA MPAC # DETERMINE IF ROLLOUT
023396,000695: 34,2474 00006 EXTEND # IS COMPLETED
023397,000696: 34,2475 71701 MP SATRLRT +1
023398,000697: 34,2476 00006 EXTEND
023399,000698: 34,2477 66030 BZMF DANZIG # UNLIKE SIGNS STILL ROLLING
023400,000699: 34,2500 00006 EXTEND # ROLLOUT COMPLETED
023401,000700: 34,2501 33561 DCA MBDYTCTL +2 # ZERO OUT ROLL CONTRIBUTION
023402,000701: 34,2502 52155 DXCH MPAC
023403,000702: 34,2503 06030 TC DANZIG
023404,000703: 34,2504 06006 NOPOLY TC INTPRET # COMES HERE IF
023405,000704: 34,2505 52001 SETPD GOTO # ATTITUDE HOLD
023406,000705: 34,2506 00001 0
023407,000706: 34,2507 76161 NOPOLYM
023408,000707: 34,2510 01673 COEFPOLY ADRES POLYLOC
023409,000708: 34,2511 01476 V06N62 VN 0662
023410,000709:
023411,000710: # SATURN TAKEOVER FUNCTION
023412,000711: # ************************
023413,000712: #
023414,000713: # PROGRAM DESCRIPTION
023415,000714:
023416,000715: # MOD NUMBER 1
023417,000716: # MOD BY ELIASSEN
023418,000717:
023419,000718: # FUNCTIONAL DESCRIPTION
023420,000719:
023421,000720: # DURING THE COASTING PHASE OF SIVB ATTACHED, THE
023422,000721: # ASTRONAUT MAY REQUEST SATURN TAKEOVER THROUGH
023423,000722: # EXTENDED VERB 46 (BITS 13,14 OF DAPDATR1 SET).
023424,000723: # THE CMC REGARDS RHC COMMANDS AS BODY-AXES RATE
023425,000724: # COMMANDS AND IT TRANSMITS THESE TO SATURN AS DC
023426,000725: # VOLTAGES. THE VALUE OF THE CONSTANT RATE COMMAND
023427,000726: # IS 0.5 DEG/SEC. AN ABSENCE OF RHC ACTIVITY RE-
023428,000727: # SULTS IN A ZERO RATE COMMAND.
023429,000728:
023430,000729: # THE FDAI ERROR NEEDLES WILL INDICATE THE VALUE
023431,000730: # OF THE RATE COMMAND.
023432,000731:
023433,000732: # CALLING SEQUENCE
023434,000733:
023435,000734: # DAPFIG +9D TC POSTJUMP
023436,000735: # CADR SATSTKON
023437,000736:
023438,000737: # SUBROUTINES CALLED
023439,000738:
023440,000739: # ENDEXT
023441,000740: # IBNKCALL
023442,000741: # STICKCHK
023443,000742: # Page 542
023444,000743: # NEEDLER
023445,000744: # T5RUPT
023446,000745: # RESUME
023447,000746:
023448,000747: # ASTRONAUT REQUESTS
023449,000748:
023450,000749: # ENTRY -- VERB 46 ENTER
023451,000750: # (CONDITION -- BITS 13, 14 OF DAPDATR1 SET)
023452,000751:
023453,000752: # EXIT -- VERB 46 ENTER (FLASH V06N46)
023454,000753: # VERB 21 ENTER AXXXX ENTER WHERE A=0 OR 1
023455,000754: # VERB 34 ENTER
023456,000755: # VERB 46 ENTER
023457,000756:
023458,000757: # NORMAL EXIT MODE
023459,000758:
023460,000759: # VERB 46 ENTER (SEE ASTRONAUT ABOVE)
023461,000760:
023462,000761: # ALARM OR ABORT EXIT MODES
023463,000762:
023464,000763: # NONE
023465,000764:
023466,000765: # OUTPUT
023467,000766:
023468,000767: # SATURN RATES IN CDUXCMD, CDUYCMD, CDUZCMD
023469,000768:
023470,000769: # ERASABLE INITIALIZATION
023471,000770:
023472,000771: # DAPDATR1 (BITS 13, 14 MUST BE SET)
023473,000772:
023474,000773: # DEBRIS
023475,000774:
023476,000775: # CENTRALS
023477,000776: # CDUXCMD, CDUYCMD, CDUZCMD
023478,000777:
023479,000778: 43,3211 BANK 43
023480,000779: 43,2000 SETLOC EXTVERBS
023481,000780: 43,2000 BANK
023482,000781:
023483,000782: 43,3211 COUNT 23/STTKE
023484,000783: 43,3211 00006 SATSTKON EXTEND
023485,000784: 43,3212 33227 DCA 2REDOSAT
023486,000785: 43,3213 00004 INHINT
023487,000786: 43,3214 53313 DXCH T5LOC
023488,000787: 43,3215 34672 CAF POSMAX
023489,000788: 43,3216 54030 TS TIME5
023490,000789: 43,3217 40102 CS FLAGWRD6 # TURN ON BITS 15,14 OF
023491,000790: 43,3220 74105 MASK RELTAB11 # FLAGWRD6
023492,000791: 43,3221 26102 ADS FLAGWRD6 # SATSTICK CONTROL OF T5
023493,000792: 43,3222 04633 TC IBNKCALL # ZERO JET CHANNELS IN 14 MS AND THEN
023494,000793: # Page 543
023495,000794: 43,3223 42616 CADR ZEROJET # LEAVE THE T6 CLOCK DISABLED
023496,000795: 43,3224 00003 RELINT
023497,000796: 43,3225 02121 TC GOPIN # EXIT THUS BECAUSE WE CAME VIA V46
023498,000797:
023499,000798: 43,3226 40,2000 SBANK= PINSUPER # RSB 2004
023500,000799: 43,3226 E6,1704 EBANK= BODY3
023501,000800: 43,3226 02765 46106 2REDOSAT 2CADR REDOSAT
023502,000801:
023503,000802: 32,2017 BANK 32
023504,000803: 23,2000 SETLOC P11FOUR
023505,000804: 23,2000 BANK
023506,000805:
023507,000806: 23,2765 22016 REDOSAT LXCH BANKRUPT # ALSO COMES HERE FOR RESTARTS
023508,000807: 23,2766 00006 EXTEND
023509,000808: 23,2767 22012 QXCH QRUPT
023510,000809: 23,2770 41501 CS RCSFLAGS # TURN ON BIT3 OF RCSFLAGX
023511,000810: 23,2771 74710 MASK BIT3 # FOR
023512,000811: 23,2772 27501 ADS RCSFLAGS # NEEDLER INITIALIZATION
023513,000812: 23,2773 04633 TC IBNKCALL
023514,000813: 23,2774 42404 CADR NEEDLER # DISABLE IMU ERR COUNTERS ETC.
023515,000814: 23,2775 34702 CAF BIT9 # SIVB
023516,000815: 23,2776 00006 EXTEND # TAKEOVER
023517,000816: 23,2777 05012 WOR CHAN12 # ENABLE
023518,000817: 23,3000 00006 EXTEND # SET UP T5 CYCLE
023519,000818: 23,3001 33046 DCA 2SATSTCK
023520,000819: 23,3002 53313 DXCH T5LOC
023521,000820: 23,3003 33044 CAF 100MST5 # IN 100 MSECS
023522,000821: 23,3004 54030 TS TIME5
023523,000822: 23,3005 15222 TCF RESUME # END OF SATURN STICK INITIALIZATION
023524,000823:
023525,000824: # THIS SECTION IS EXECUTED EVERY 100 MSECS.
023526,000825:
023527,000826: 23,3006 22016 SATSTICK LXCH BANKRUPT
023528,000827: 23,3007 00006 EXTEND
023529,000828: 23,3010 22012 QXCH QRUPT
023530,000829:
023531,000830: 23,3011 33045 CAF 2SATSTCK # SET UP RUPT
023532,000831: 23,3012 55312 TS T5LOC # LO ORDER LOC SET
023533,000832: 23,3013 33044 CAF 100MST5 # 100 MSECS
023534,000833: 23,3014 54030 TS TIME5
023535,000834: 23,3015 33043 CAF STIKBITS
023536,000835: 23,3016 00006 EXTEND
023537,000836: 23,3017 06031 RXOR CHAN31 # CHECK IF MAN ROT BITS SAME
023538,000837: 23,3020 73043 MASK STIKBITS
023539,000838: 23,3021 04633 TC IBNKCALL # SET RATE INDICES
023540,000839: 23,3022 43114 CADR STICKCHK # FOR PITCH YAW AND ROLL
023541,000840:
023542,000841: 23,3023 51656 INDEX RMANNDX # SET SATURN RATES
023543,000842: 23,3024 33037 CA SATRATE
023544,000843: 23,3025 55476 TS AK # ROLL
023545,000844: # Page 544
023546,000845: 23,3026 51657 INDEX PMANNDX
023547,000846: 23,3027 33037 CA SATRATE
023548,000847: 23,3030 55477 TS AK1 # PITCH
023549,000848: 23,3031 51660 INDEX YMANNDX
023550,000849: 23,3032 33037 CA SATRATE
023551,000850: 23,3033 55500 TS AK2 # YAW
023552,000851:
023553,000852: 23,3034 04633 TC IBNKCALL # FOR SATURN INTERFACE AND FDAI DISPLAY
023554,000853: 23,3035 42404 CADR NEEDLER
023555,000854: 23,3036 15222 TCF RESUME # END OF SATURN STICK CONTROL
023556,000855: 23,3037 00000 SATRATE DEC 0 B-14 # IN DETENT -- ZERO RATE
023557,000856: 23,3040 00476 DEC +318 B-14 # POS RATE .5D/S R, .3D/S P AND Y
023558,000857: 23,3041 77301 DEC -318 B-14 # NEG RATE DITTO
023559,000858: 23,3042 00000 DEC 0 B-14 # POS NEG BITS ON ASSUME IN DETENT
023560,000859:
023561,000860: 23,3043 00077 STIKBITS OCT 00077
023562,000861: 23,3044 37766 100MST5 DEC 16374 B-14
023563,000862: 23,3045 40,2000 SBANK= PINSUPER # RSB 2004
023564,000863: 23,3045 E6,1704 EBANK= BODY3
023565,000864: 23,3045 03006 46106 2SATSTCK 2CADR SATSTICK
023566,000865:
End of include-file P11.agc. Parent file is MAIN.agc