Source Code
![]() |
These source-code files were obtained by digitally photographing
an Artemis 72 program listing from a private collection and then
modifying pre-existing Comanche 55 (Apollo 11) source files to
incorporate changes. Note that the page images
presented online are of reduced quality, and that additional images
may be available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011 11:40 FEB. 26, 1971 THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS COLOSSUS 3 THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED IN REPORT R-577. THIS PROGRAM WAS PREPARED UNDER OSR PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT CENTER OF THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF TECHNOLOGY, CAMBRIDGE, MASS. |
023358,000002: # Copyright: Public domain.
023359,000003: # Filename: P11.agc
023360,000004: # Purpose: Part of the source code for Artemis (i.e., Colossus 3),
023361,000005: # build 072. This is for the Command Module's (CM)
023362,000006: # Apollo Guidance Computer (AGC), we believe for
023363,000007: # Apollo 15-17.
023364,000008: # Assembler: yaYUL
023365,000009: # Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
023366,000010: # Website: www.ibiblio.org/apollo/index.html
023367,000011: # Page scans: www.ibiblio.org/apollo/ScansForConversion/Artemis072/
023368,000012: # Mod history: 2010-01-26 JL Started Artemis072 conversion based on Comanche055 module.
023369,000013: # 2010-01-27 JL Finished conversion.
023370,000014: # 2010-02-02 JL Removed extra line left over from Comanche055.
023371,000015: # 2010-02-20 RSB Un-##'d this header.
023372,000016:
023373,000017: # # Page 534
023374,000018:
023375,000019: # EARTH ORBIT INSERTION MONITOR PROGRAM
023376,000020: # *************************************
023377,000021:
023378,000022: # PROGRAM DESCRIPTION -P11-
023379,000023:
023380,000024: # MOD NO. 1
023381,000025: # MOD BY ELIASSEN
023382,000026:
023383,000027: # FUNCTIONAL DESCRIPTION
023384,000028:
023385,000029: # P11 IS INITIATED BY
023386,000030:
023387,000031: # A) GYROCOMPASS PRG P02 WHEN LIFTOFF DISCRETE IS RECEIVED OR
023388,000032: # B) BACKUP THRU VERB 75 ENTER
023389,000033:
023390,000034: # PROGRAM WILL
023391,000035: # 1. ZERO CMC CLOCK AT LIFTOFF (OR UPON RECEIPT OF BACKUP)
023392,000036: # 2. UPDATE TEPHEM TO TIME CMC CLOCK WAS ZEROED
023393,000037: # 3. INITIATE SERVICER AT PREREAD1
023394,000038: # 4. CHANGE MAJOR MODE TO 11
023395,000039: # 5. CLEAR DSKY IN CASE OF V 75
023396,000040: # 6. STORE LIFTOFF IMU-CDU ANGLES FOR ATT. ERROR DISPLAY
023397,000041: # 7. TERMINATE GYROCOMPASSING - -
023398,000042: # 8. COMPUTE INITIAL VECTORS RN, VN - - -
023399,000043: # 9. COMPUTE REFSMMAT FOR PRELAUNCH ALIGNMENT WHERE U ,U ,U ARE
023400,000044: # - - X Y Z
023401,000045: # U =UNIT(-R) LOCAL VERTICAL AT TIME OF LIFTOFF
023402,000046: # Z
023403,000047: # - - -
023404,000048: # U =UNIT (A), A=HOR VECTOR AT LAUNCH AZIMUTH
023405,000049: # X
023406,000050: # - - -
023407,000051: # U =U * U
023408,000052: # U Z X
023409,000053: #
023410,000054: # 10. SET REFSMMAT KNOWN FLAG
023411,000055: # 11. SET AVGEXIT IN SERVICER TO VHHDOT TO
023412,000056: # COMPUTE AND DISPLAY NOUN 62 EVERY 2 SECONDS
023413,000057:
023414,000058: # R1 V1 - INTERTIAL VELOCITY MAGNITUDE IN FPS
023415,000059: # R2 HDOT - RATE OF CHANGE OF VEHICLE VEL IN FPS
023416,000060: # R3 H - VEHICLE ALTITUDE ABOVE PAD IN NM
023417,000061: #
023418,000062: # 12. DISPLAY BODY AXES ATT. ERRORS ON FDAI NEEDLES
023419,000063:
023420,000064: # A) FROM L.O. TO RPSTART (APPROX. 0 TO +10SECS AFTER L.O.)
023421,000065: # DESIRED ATTITUDE IS AS STORED AT L.O.
023422,000066: # B) FROM RPSTART TO POLYSTOP (APPROX.+10 TO +133SECS AFTER LO)
023423,000067: # DESIRED ATTITUDE IS SPECIFIED BY CMC PITCH AND ROLL
023424,000068: # POLYNOMIALS DURING SATURN ROLLOUT AND PITCHOVER
023425,000069: # # Page 535
023426,000070: # THE DISPLAY IS RUN AS LOW PRIORITY JOB APPROX.
023427,000071: # EVERY 1/2 SEC OR LESS AND IS DISABLED UPON OVFLO OF TIME1
023428,000072:
023429,000073: # SUBROUTINES CALLED
023430,000074:
023431,000075: # 2PHSCHNG BANKCALL CALCGRA CDUTRIG CLEANDSP DANZIG
023432,000076: # DELAYJOB EARTHR ENDOFJOB FINDVAC IBNKCALL
023433,000077: # INTPRET LALOTORV NEEDLER NEWMODEX PHASCHNG
023434,000078: # POSTJUMP POWRSERS PREREAD1 REGODSPR S11.1
023435,000079: # SERVEXIT TASKOVER TCDANZIG V1STO2S WAITLIST
023436,000080:
023437,000081: # ASTRONAUT REQUESTS (IF ALTITUDE ABOVE 300,000 FT)
023438,000082:
023439,000083: # DSKY -
023440,000084: # MONITOR DISPLAY OF TIME TO PERIGEE R1 HOURS
023441,000085: # R2 MINUTES
023442,000086:
023443,000087: # DSKY -
023444,000088: # MONITOR DISPLAY OF R1 APOGEE ALTITUDE IN NAUTICAL MILES
023445,000089: # R2 PERIGEE ALTITUDE IN NAUTICAL MILES
023446,000090: # R3 TFF IN MINUTES/SECS
023447,000091:
023448,000092: # IF ASTRONAUT HAS REQUESTED ANY OF THESE DISPLAYS HE MUST
023449,000093: # HIT PROCEED TO RETURN TO NORMAL NOUN 62 DISPLAY.
023450,000094: # NORMAL EXIT MODE
023451,000095:
023452,000096: # ASTRONAUT VERB 37 ENTER 00 ENTER
023453,000097:
023454,000098: # ALARM MODES - NONE
023455,000099:
023456,000100: # ABORT EXIT MODES -
023457,000101:
023458,000102: # OUTPUT
023459,000103:
023460,000104: # TLIFTOFF (DP) TEPHEM (TP)
023461,000105: # REFSMMAT
023462,000106: # DSKY DISPLAY
023463,000107: # FDAI DISPLAY
023464,000108:
023465,000109: # ERASABLE INITIALIZATION
023466,000110:
023467,000111: # AZO, AXO, -AYO
023468,000112: # LATITUDE
023469,000113: # PADLONG
023470,000114: # TEPHEM
023471,000115: # PGNCSALT
023472,000116: # POLYNUM THRU POLYNUM +14D)
023473,000117: # RPSTART
023474,000118: # POLYSTOP
023475,000119: # FLAGS SET OR RESET
023476,000120: # # Page 536
023477,000121: # SET REFSMFLG
023478,000122: # SET DVMON IDLE FLAG
023479,000123: # CLEAR ERADFLAG
023480,000124:
023481,000125: # DEBRIS
023482,000126:
023483,000127: # LIFTTEMP
023484,000128: # POLYNUM THRU POLYNUM +7
023485,000129: # SPOLYARG
023486,000130: # BODY1, BODY2, BODY3
023487,000131: # VMAG2, ALTI, HDOT
023488,000132: # CENTRALS, CORE SET, AND VAC AREAS
023489,000133: ??????? 5010 BITS5-6 = SUPER011
023490,000134: 34,2000 SETLOC P11ONE
023491,000135: 34,2000 BANK
023492,000136:
023493,000137: 34,2000 COUNT* $$/P11
023494,000138: 34,2000 E3,1706 EBANK= TEPHEM
023495,000139: 34,2000 35024 P11 CA EBANK3
023496,000140: 34,2001 54003 TS EBANK
023497,000141:
023498,000142: 34,2002 00006 EXTEND
023499,000143: 34,2003 32274 DCA REP11S # DIRECT RESTARTS TO REP11
023500,000144: 34,2004 53162 DXCH -PHASE3
023501,000145: 34,2005 01,2071 3P11SPT1 = 3.11SPOT
023502,000146: 34,2005 44772 CS ZERO
023503,000147: 34,2006 22007 ZL
023504,000148: 34,2007 55126 TS LIFTTEMP
023505,000149: 34,2010 53166 DXCH -PHASE5 # INACTIVE GROUP 5, PRELAUNCH PROTECTION
023506,000150: 34,2011 00006 P11+7 EXTEND
023507,000151: 34,2012 32276 DCA REP11SA
023508,000152: 34,2013 53022 DXCH TLIFTOFF
023509,000153:
023510,000154: 34,2014 00006 EXTEND
023511,000155: 34,2015 30025 ZROCLOCK DCA TIME2
023512,000156: 34,2016 53127 DXCH LIFTTEMP # FOR RESTARTS
023513,000157:
023514,000158: 34,2017 34772 -5 CAF ZERO
023515,000159: 34,2020 22007 ZL
023516,000160: 34,2021 52025 DXCH TIME2
023517,000161: 34,2022 53022 REP11A-2 DXCH TLIFTOFF
023518,000162: 34,2023 53162 REP11A-1 DXCH -PHASE3 # RESET PHASE
023519,000163:
023520,000164: 34,2024 01,2074 3P13SPT1 = 3.13SPOT
023521,000165: 34,2024 00004 REP11A INHINT
023522,000166: 34,2025 00006 EXTEND
023523,000167: 34,2026 31710 DCA TEPHEM +1
023524,000168: 34,2027 53132 DXCH TEPHEM1 +1
023525,000169: 34,2030 31706 CA TEPHEM
023526,000170: # # Page 537
023527,000171: 34,2031 57130 XCH TEPHEM1
023528,000172:
023529,000173: 34,2032 00006 EXTEND
023530,000174: 34,2033 31022 DCA TLIFTOFF
023531,000175: 34,2034 21132 DAS TEPHEM1 +1
023532,000176: 34,2035 27130 ADS TEPHEM1 # CORRECTOFOR OVERFLOW
023533,000177:
023534,000178: 34,2036 05402 TC PHASCHNG
023535,000179: 34,2037 05023 OCT 05023
023536,000180: 34,2040 22000 OCT 22000
023537,000181:
023538,000182: 34,2041 00004 INHINT
023539,000183: 34,2042 00006 EXTEND
023540,000184: 34,2043 31131 DCA TEPHEM1
023541,000185: 34,2044 53707 DXCH TEPHEM
023542,000186: 34,2045 31132 CA TEPHEM1 +2
023543,000187: 34,2046 57710 XCH TEPHEM +2
023544,000188:
023545,000189: 34,2047 35046 CAF EBANK7
023546,000190: 34,2050 54003 TS EBANK
023547,000191: 34,2051 E7,1425 EBANK= DVTOTAL
023548,000192: 34,2051 04714 TC IBNKCALL
023549,000193: 34,2052 76630 CADR PREREAD1 # ZERO PIPS AND INITIALIZE AVERAGEG
023550,000194:
023551,000195: 34,2053 05402 TC PHASCHNG
023552,000196: 34,2054 05023 OCT 05023 # CONTINUE HERE ON RESTART
023553,000197: 34,2055 22000 OCT 22000
023554,000198:
023555,000199: 34,2056 35011 CAF .5SEC # START ATT ERROR DISPLAY
023556,000200: 34,2057 05233 TC WAITLIST # IN .5 SEC
023557,000201: 34,2060 E6,1704 EBANK= SPOLYARG
023558,000202: 34,2060 02315 70066 2CADR ATERTASK
023559,000203:
023560,000204: 34,2062 05344 TC NEWMODEX # DISPLAY MM 11
023561,000205: 34,2063 00013 MM 11 B-14
023562,000206:
023563,000207: 34,2064 05547 TC UPFLAG
023564,000208: 34,2065 00022 ADRES NODOP01
023565,000209:
023566,000210: 34,2066 36214 CA POWDNCOD # SWITCH TO POWERED FLIGHT DOWNLIST
023567,000211: 34,2067 54332 TS DNLSTCOD
023568,000212:
023569,000213: 34,2070 04636 TC BANKCALL
023570,000214: 34,2071 20715 CADR CLEANDSP # CLEAR DSKY IN CASE OF V75
023571,000215:
023572,000216: 34,2072 05362 TC 2PHSCHNG
023573,000217: 34,2073 40514 OCT 40514 # PROTECT ATERTASK
023574,000218: 34,2074 00073 OCT 00073
023575,000219: 34,2075 01,2066 3P7SPT1 = 3.7SPOT
023576,000220: # # Page 538
023577,000221: 34,2075 01,2215 4P51SPT1 = 4.51SPOT
023578,000222: 34,2075 35043 CAF EBANK5
023579,000223: 34,2076 54003 TS EBANK
023580,000224:
023581,000225: 34,2077 E5,1426 EBANK= QPLACES
023582,000226: 34,2077 32277 CA P11XIT # SET EXIT FROM PROUT IN EARTHR
023583,000227: 34,2100 55426 TS QPLACES
023584,000228: 34,2101 06006 TC INTPRET
023585,000229: 34,2102 64375 VLOAD MXV
023586,000230: 34,2103 02467 THETAN
023587,000231: 34,2104 02672 XSM
023588,000232: 34,2105 53372 VSL1 VAD
023589,000233: 34,2106 02650 ERCOMP
023590,000234: 34,2107 16650 STODL ERCOMP
023591,000235: 34,2110 01022 TLIFTOFF
023592,000236: 34,2111 52131 SSP GOTO
023593,000237: 34,2112 00052 S2
023594,000238: 34,2113 66202 CADR PROUT # RETURN FROM EARTHR
023595,000239: 34,2114 66151 EARTHR +3
023596,000240: 34,2115 22007 MATRXJOB ZL # STORE DP GIMBAL ANGLES FOR ATTITUDE
023597,000241: 34,2116 30032 CA CDUX # ERROR DISPLAY AFTER LIFTOFF
023598,000242: 34,2117 53760 DXCH OGC
023599,000243: 34,2120 22007 ZL
023600,000244: 34,2121 30033 CA CDUY
023601,000245: 34,2122 53762 DXCH IGC
023602,000246: 34,2123 22007 ZL
023603,000247: 34,2124 30034 CA CDUZ
023604,000248: 34,2125 53764 DXCH MGC
023605,000249: 34,2126 06006 TC INTPRET # -
023606,000250: 34,2127 74575 VLOAD VSR1 # SCALE OGC B-1
023607,000251: 34,2130 02760 OGC
023608,000252: 34,2131 02760 STORE OGC
023609,000253: 34,2132 77731 SSP # ZERO RTX2
023610,000254: 34,2133 03747 RTX2 # FOR
023611,000255: 34,2134 00000 0 # EARTH
023612,000256: 34,2135 65345 DLOAD PDDL
023613,000257: 34,2136 01134 PGNCSALT # ALTITUDE OF PGNCS
023614,000258: 34,2137 01136 PADLONG # LONGITUDE
023615,000259: 34,2140 55525 PDDL VDEF
023616,000260: 34,2141 02403 LATITUDE # GEODETIC LATITUDE
023617,000261: 34,2142 14747 STODL LAT # LAT,LONG,ALT ARE CONSECUTIVE
023618,000262: 34,2143 15336 HI6ZEROS # TIME = 0
023619,000263: 34,2144 45014 CLEAR CALL
023620,000264: 34,2145 00662 ERADFLAG
023621,000265: 34,2146 26524 LALOTORV # CONVERT TO POSITION VECTOR IN REF.COORDS
023622,000266:
023623,000267: 34,2147 35071 STCALL RN1 # -
023624,000268: 34,2150 70331 GETDOWN # RETURN WITH VECTOR FOR DOWN DIRECTION
023625,000269: 34,2151 53476 VCOMP UNIT
023626,000270: 34,2152 25750 STOVL REFSMMAT +12D # UNITZ = UNIT(GRAV)
023627,000271: # # Page 539
023628,000272: 34,2153 01071 RN1
023629,000273: 34,2154 74235 VXV VXSC
023630,000274: 34,2155 01712 UNITW # SCALED AT 1
023631,000275: 34,2156 30301 -ERTHRAT # V = EARTHRATE X R
023632,000276: 34,2157 77712 VSL4 # SCALE TO 2(7) M/CS
023633,000277: 34,2160 25077 STOVL VN1
023634,000278: 34,2161 01750 REFSMMAT +12D
023635,000279: 34,2162 53435 VXV UNIT
023636,000280: 34,2163 01712 UNITW # (REF3 X UNITW) = EAST
023637,000281: 34,2164 47206 PUSH VXV
023638,000282: 34,2165 01750 REFSMMAT +12D # (EAST X REF3) = -SOUTH
023639,000283: 34,2166 65256 UNIT PDDL
023640,000284: 34,2167 02634 LAUNCHAZ # COS(AZ)*SOUTH
023641,000285: 34,2170 74346 COS VXSC
023642,000286: 34,2171 77626 STADR
023643,000287: 34,2172 62043 STODL REFSMMAT # TEMPORARY STORAGE
023644,000288: 34,2173 02634 LAUNCHAZ
023645,000289: 34,2174 74356 SIN VXSC # SIN(AZ)*EAST
023646,000290: 34,2175 53455 VAD UNIT # SIN(AZ)*EAST - COS(AZ)*SOUTH = REF1
023647,000291: 34,2176 01734 REFSMMAT
023648,000292: 34,2177 01734 STORE REFSMMAT
023649,000293:
023650,000294: 34,2200 53435 VXV UNIT # (REF1 X REF3) = -REF3
023651,000295: 34,2201 01750 REFSMMAT +12D
023652,000296: 34,2202 77676 VCOMP
023653,000297: 34,2203 01742 STORE REFSMMAT +6
023654,000298: 34,2204 45345 TRNVNREF DLOAD DSU
023655,000299: 34,2205 15334 DPHALF # 1/2 REV
023656,000300: 34,2206 02634 LAUNCHAZ
023657,000301: 34,2207 65215 DAD PDDL
023658,000302: 34,2210 02401 AZIMUTH
023659,000303: 34,2211 03301 SATRLRT # SET SATRLRT = -SATRLRT IF
023660,000304: 34,2212 45565 SIGN STADR # (1/2REV -LAVNCHAZ +AZIMUTH) IS NEGATIVE
023661,000305: 34,2213 74476 STORE SATRLRT # FOR ROLL CALC IN FDAI ATT. ERROR DISPLAY
023662,000306: 34,2214 77414 SET EXIT
023663,000307: 34,2215 01462 REFSMFLG # SET REFSMMAT KNOWN FLAG
023664,000308:
023665,000309: 34,2216 05402 TC PHASCHNG
023666,000310: 34,2217 04023 OCT 04023
023667,000311:
023668,000312: 34,2220 00006 EXTEND
023669,000313: 34,2221 32303 DCA P11SCADR
023670,000314: 34,2222 53062 DXCH AVGEXIT # SET AVGEXIT
023671,000315:
023672,000316: 34,2223 37652 CA PRIO31 # 2 SECONDS AT 2(+8)
023673,000317: 34,2224 55277 TS 1/PIPADT
023674,000318:
023675,000319: 34,2225 E6,1501 EBANK= RCSFLAGS
023676,000320: 34,2225 04611 TC E6SETTER
023677,000321:
023678,000322: # # Page 540
023679,000323: 34,2226 00004 INHINT
023680,000324: 34,2227 44772 CS ZERO
023681,000325: 34,2230 55267 TS TBASE5 # RESTART READACCS 2 SECONDS AFTER LIFTOFF
023682,000326:
023683,000327: 34,2231 40025 CS TIME1
023684,000328: 34,2232 65017 AD 2SECS # DO READACCS 2 SECONDS AFTER LIFTOFF
023685,000329:
023686,000330: 34,2233 10000 CCS A # CHECK TO INSURE DT IS POSITIVE
023687,000331: 34,2234 12237 TCF +3 # TIME POSITIVE
023688,000332: 34,2235 12237 TCF +2 # CANNOT GET HERE
023689,000333: 34,2236 34772 CA ZERO # TIME NEGATIVE - SET TO 1
023690,000334: 34,2237 64770 AD ONE # RESTORE TIME - OR MAKE POSITIVE
023691,000335:
023692,000336: 34,2240 05233 TC WAITLIST
023693,000337: 34,2241 E6,1661 EBANK= AOG
023694,000338: 34,2241 02652 76066 2CADR READACCS
023695,000339: 34,2243 05362 TC 2PHSCHNG
023696,000340: 34,2244 00003 OCT 00003 # TURN OFF GROUP 3
023697,000341: 34,2245 00025 OCT 00025 # PROTECT NORMLIZE AND READACCS
023698,000342:
023699,000343: 34,2246 01,2234 5P2SPT1 = 5.2SPOT
023700,000344: 34,2246 04655 TC POSTJUMP
023701,000345: 34,2247 77154 CADR NORMLIZE # DO NORMLIZE AND ENDOFJOB
023702,000346:
023703,000347:
023704,000348: 34,2250 E3,1706 EBANK= TEPHEM
023705,000349: 34,2250 00004 REP11 INHINT
023706,000350: 34,2251 11166 CCS PHASE5
023707,000351: 34,2252 05205 TC ENDOFJOB
023708,000352:
023709,000353: 34,2253 11126 CCS LIFTTEMP
023710,000354: 34,2254 12260 TCF +4
023711,000355: 34,2255 12260 TCF +3
023712,000356: 34,2256 12260 TCF +2
023713,000357: 34,2257 12011 TCF P11+7
023714,000358:
023715,000359: 34,2260 41021 CS TLIFTOFF
023716,000360: 34,2261 00006 EXTEND
023717,000361: 34,2262 62270 BZMF ENDREP11
023718,000362:
023719,000363: 34,2263 10024 CCS TIME2 # **TIME2 MUST BE NON-ZERO AT LIFTOFF**
023720,000364: 34,2264 12017 TCF REP11A -5 # T2,T1 NOT YET ZEROED, GO AND DO IT
023721,000365:
023722,000366: 34,2265 00006 EXTEND # T2,T1 ZEROED, SET TLIFTOFF
023723,000367: 34,2266 31127 DCA LIFTTEMP
023724,000368: 34,2267 12022 TCF REP11A-2
023725,000369:
023726,000370: 34,2270 00006 ENDREP11 EXTEND
023727,000371: 34,2271 32276 DCA REP11SA
023728,000372: # # Page 541
023729,000373: 34,2272 12023 TCF REP11A-1
023730,000374:
023731,000375:
023732,000376: 34,2273 77766 00011 REP11S 2OCT 7776600011
023733,000377: 34,2275 77764 00013 REP11SA 2OCT 7776400013
023734,000378:
023735,000379:
023736,000380: 34,2277 02225 P11XIT GENADR P11OUT
023737,000381: 34,2300 71704 41735 -ERTHRAT 2DEC* -7.292115138 E-7 B18* # - EARTH RATE AT 2(18)
023738,000382: 34,2302 E6,1704 EBANK= SPOLYARG
023739,000383: 34,2302 02304 70066 P11SCADR 2CADR VHHDOT
023740,000384: 34,2304 6214 POWDNCOD EQUALS THREE
023741,000385:
023742,000386:
023743,000387: 34,2304 E6,1704 EBANK= SPOLYARG
023744,000388: # VHHDOT IS EXECUTED EVERY 2 SECONDS TO DISPLAY ON DSKY
023745,000389: # VI INERTIAL VELOCITY MAGNITUDE
023746,000390: # HDOT RATE OF CHANGE OF ALT ABOVE L PAD RADIUS
023747,000391: # H ALTITUDE ABOVE L PAD RADIUS
023748,000392:
023749,000393: 34,2304 06006 VHHDOT TC INTPRET
023750,000394: 34,2305 77624 CALL # LOAD VMAGI, ALTI,
023751,000395: 34,2306 70537 S11.1 # HDOT FOR DISPLAY
023752,000396: 34,2307 77776 EXIT
023753,000397: 34,2310 05402 TC PHASCHNG
023754,000398: 34,2311 00035 OCT 00035
023755,000399:
023756,000400: 34,2312 01,2250 5P3SPT1 = 5.3SPOT
023757,000401: 34,2312 32617 CAF V06N62 # DISPLAY IN R1 R2 R3
023758,000402: 34,2313 04636 TC BANKCALL # VI HDOT H
023759,000403: 34,2314 20721 CADR REGODSP
023760,000404:
023761,000405: 34,2315 34757 ATERTASK CAF PRIO1 # ESTABLISH JOB TO DISPLAY ATT ERRORS
023762,000406: 34,2316 05135 TC FINDVAC # COMES HERE AT L.O. + .33 SEC
023763,000407: 34,2317 E6,1704 EBANK= SPOLYARG
023764,000408: 34,2317 02342 70066 2CADR ATERJOB
023765,000409: 34,2321 41501 CS RCSFLAGS # SET BIT3 FOR
023766,000410: 34,2322 74766 MASK BIT3 # NEEDLER
023767,000411: 34,2323 27501 ADS RCSFLAGS # INITIALIZATION PASS
023768,000412: 34,2324 04714 TC IBNKCALL # AND GO
023769,000413: 34,2325 42425 CADR NEEDLER # DO IT
023770,000414: 34,2326 34770 CA BIT1 # SET SW
023771,000415: 34,2327 55714 TS SATSW # FOR DISPLAY
023772,000416: 34,2330 05314 TC TASKOVER
023773,000417: 34,2331 40220 GETDOWN STQ SETPD
023774,000418: # # Page 542
023775,000419: 34,2332 02241 INCORPEX
023776,000420: 34,2333 00001 0D
023777,000421: 34,2334 77745 DLOAD
023778,000422: 34,2335 15336 HI6ZEROS
023779,000423: 34,2336 14007 STODL 6D
023780,000424: 34,2337 15334 DPHALF
023781,000425: 34,2340 34011 STCALL 8D
023782,000426: 34,2341 26531 LALOTORV +5
023783,000427: # THIS SECTION PROVIDES ATTITUDE ERROR DISPLAYS TO THE FDAI DURING SONE BOOST
023784,000428:
023785,000429: # COMPUTE DESIRED PITCH W.R.T. PAD LOCAL VERTICAL AT LIFTOFF
023786,000430: # 2 3 4 5 6
023787,000431: # PITCH= A0+A1T+A2T +A3T +A4T +A5T +A6T
023788,000432: # SCALED TO 32 REVS. -14
023789,000433: # IF TL = TIME IN SECS FROM L.O., THEN T = 100(TL-RPSTART0)2
023790,000434: # WHERE TL GE RPSTART
023791,000435: # TL LE (-POLYSTOP + RPSTART)
023792,000436: # COMPUTE DESIRED ROLL WHERE ROLL EQUALS ANGLE FROM
023793,000437: # LAUNCHAZ TO -Z(S/C) AS SEEN FROM X(S/C).
023794,000438: # ROLL = LAUNCHAZ-AZIMUTH-.5 +SATRLRT*T IN REV
023795,000439: # SATRLRT = RATE OF ROLL IN REV/CENTI-SEC
023796,000440: # T,IN CENTI-SEC,IS DEFINED AS ABOVE,INCLUSIVE OF TIME RESTRICTIONS
023797,000441:
023798,000442: # FOR SIMPLICITY, LET P = 2*PI*PITCH
023799,000443: # R = 2*PI*ROLL
023800,000444:
023801,000445: # CONSTRUCT THE TRANSFORMATION MATRIX, TSMV, GIVING DESIRED S/C AXES IN
023802,000446: # TERMS OF SM COORDINATES. LET THE RESULTING ROWS EQUAL THE VECTORS XDC,
023803,000447: # YDC, AND ZDC.
023804,000448:
023805,000449: # * ( SIN(P) 0 -COS(P) ) (XDC)
023806,000450: # TSMV = (-SIN(R)*COS(P) -COS(R) -SIN(R)*SIN(P)) = (YDC)
023807,000451: # (-COS(R)*COS(P) SIN(R) -COS(R)*SIN(P)) (ZDC)
023808,000452:
023809,000453: # XDC,YDC,ZDC ARE USED AS INPUT TO CALCGTA FOR THE EXTRACTION OF THE
023810,000454: # EULER SET OF ANGLES WHICH WILL BRING THE SM INTO THE DESIRED
023811,000455: # ORIENTATION. THIS EULER SET, OGC, IGC, AND MGC, MAY BE IDENTIFIED
023812,000456: # AS THE DESIRED CDU ANGLES.
023813,000457:
023814,000458: # (XDC) (OGC)
023815,000459: # (YDC) ---) CALCGTA ---) (IGC)
023816,000460: # (ZDC) (MGC)
023817,000461: # -
023818,000462: # DEFINE THE VECTOR DELTACDU.
023819,000463:
023820,000464: # _ (OGC) (CDUX)
023821,000465: # DELTACDU = (IGC) - (CDUY)
023822,000466: # (MGC) (CDUZ)
023823,000467: # # Page 543
023824,000468: # - - * -
023825,000469: # COMPUTE ATTITUDE ERRORS, A, WHERE A = TGSC*DELTACDU
023826,000470:
023827,000471: # * (1 SIN(CDUZ) 0 ) THE GIMBAL ANGLES
023828,000472: # TGSC = (0 COS(CDUX)*COS(CDUZ) SIN(CDUX)) = TO SPACECRAFT AXES
023829,000473: # (0 -SIN(CDUX)*COS(CDUZ) COS(CDUX)) CONVERSION MATRIX
023830,000474:
023831,000475: # -
023832,000476: # THE ATTITUDE ERRORS, A, ARE STORED ONE HALF SINGLE PRECISION IN
023833,000477: # THE REGISTERS AK, AK1, AK2 AS INPUT TO NEEDLER, THE FDAI ATTITUDE
023834,000478: # ERROR DISPLAY ROUTINE.
023835,000479:
023836,000480: 34,2342 30102 ATERJOB CAE FLAGWRD6 # CHECK FLAGWRD6
023837,000481: 34,2343 74076 MASK DPCONFIG # BITS 14,15
023838,000482: 34,2344 00006 EXTEND
023839,000483: 34,2345 12347 BZF +2 # OK - CONTINUE
023840,000484: 34,2346 05205 TC ENDOFJOB # STAURN STICK ON - KILL JOB
023841,000485: 34,2347 34757 CAF BIT10 # CHECK IF S/C CONTROL
023842,000486: 34,2350 00006 EXTEND # OF SATURN PANEL
023843,000487: 34,2351 02030 RAND CHAN30 # SWITCH IS ON
023844,000488: 34,2352 00006 EXTEND
023845,000489: 34,2353 12505 BZF STRSAT # IT IS - GO STEER
023846,000490: 34,2354 11714 CCS SATSW # IT IS NOT - WAS IT ON LAST CYCLE
023847,000491: 34,2355 12360 WASIU TCF ATTDISP # NO - CONTINUE
023848,000492: 34,2356 12510 WASINIT TCF ATRESET # YES - REINITIALIZE NEEDLER (2ND PASS)
023849,000493: 34,2357 12510 WASCMC TCF ATRESET # YES - REINITIALIZE NEEDLER
023850,000494:
023851,000495: 34,2360 41702 ATTDISP CS RPSTART # PITCH/ROLL START TIME
023852,000496: 34,2361 60025 AD TIME1
023853,000497: 34,2362 00006 EXTEND
023854,000498: 34,2363 62612 BZMF NOPOLY # IF MINUS THEN ATTITUDE HOLD
023855,000499: 34,2364 54154 TS MPAC # MPAC=TIME1-RPSTART
023856,000500: 34,2365 55704 TS SPOLYARG # SAVE FOR USE IN ROLL CALUCLATION
023857,000501: 34,2366 61703 AD POLYSTOP # NEG PITCHOVER TIME IN CSECS
023858,000502: 34,2367 00006 EXTEND
023859,000503: 34,2370 62372 BZMF +2
023860,000504: 34,2371 02612 POSTPOLY TC NOPOLY # GO TO ATTITUDE HOLD
023861,000505: 34,2372 30024 CA TIME2
023862,000506: 34,2373 00006 EXTEND
023863,000507: 34,2374 62376 BZMF +2
023864,000508: 34,2375 02612 TC NOPOLY # GO TO ATTITUDE HOLD
023865,000509: 34,2376 31661 CAE POLYNUM
023866,000510: 34,2377 54001 TS L
023867,000511: 34,2400 32616 CAF COEFPOLY # EVALUATE PITCH POLYNOMIAL
023868,000512: 34,2401 07164 TC POWRSERS # SCALED TO 32 REVOLUTIONS
023869,000513:
023870,000514: 34,2402 34772 CA ZERO # RETURN WITH PITCH(32REV)
023871,000515: 34,2403 54163 TS MODE # STORED IN MPAC, MPAC +1
023872,000516: 34,2404 06006 TC INTPRET
023873,000517: 34,2405 54201 SETPD SL # 32(PITCH(32REV))=PITCH(REV)
023874,000518: # # Page 544
023875,000519: 34,2406 00001 0
023876,000520: 34,2407 20206 5
023877,000521: 34,2410 77606 PUSH # LET P(RAD)=2.PI.PITCH(REV)
023878,000522: 34,2411 77650 GOTO
023879,000523: 34,2412 67672 ATTDISP1 # AROUND SETLOC
023880,000524: # *
023881,000525: # CONSTRUCT SM TO S/C MATRIX, TSMV
023882,000526:
023883,000527: 33,2000 SETLOC P11TWO
023884,000528: 33,2000 BANK # 36 IN COL., 34 IN DISK
023885,000529:
023886,000530:
023887,000531: 33,3672 COUNT* $$/P11
023888,000532: 33,3672 57546 ATTDISP1 COS DCOMP
023889,000533: 33,3673 14017 STODL 14D # -.5*COS(P)
023890,000534: 33,3674 77756 SIN
023891,000535: 33,3675 14013 STODL 10D # .5*SIN(P)
023892,000536: 33,3676 15336 ZEROVECS
023893,000537: 33,3677 00015 STORE 12D # 0
023894,000538:
023895,000539: # EVALUATE ROLL = LAUNCHAZ-AZIMUTH-.5+SATRLRT*T
023896,000540: 33,3700 41335 SLOAD DMP
023897,000541: 33,3701 03305 SPOLYARG # TIME1 - RSPSTART ,CSECS B-14.
023898,000542: 33,3702 03301 SATRLRT
023899,000543: 33,3703 45261 SL DSU
023900,000544: 33,3704 20217 14D
023901,000545: 33,3705 15334 DPHALF
023902,000546: 33,3706 45215 DAD DSU # ASSUMING X(SM) ALONG LAUNCH AZIMUTH,
023903,000547: 33,3707 02634 LAUNCHAZ # LAUNCHAZ = ANGLE FROM NORTH TO X(SM).
023904,000548: 33,3710 02401 AZIMUTH # AZIMUTH = -ANGLE FROM NORTH TO Z(S/C)
023905,000549: 33,3711 77634 RTB # DETERMINE IF ROLLOUT
023906,000550: 33,3712 70601 RLTST # IS COMPLETED
023907,000551: 33,3713 71406 ATTDISPR PUSH COS # CONTINUE COMPUTING TSMV
023908,000552: 33,3714 77606 PUSH # LET R(RAD) = 2*PI*ROLL(REV)
023909,000553: 33,3715 72405 DMP SL1
023910,000554: 33,3716 00017 14D
023911,000555: 33,3717 14027 STODL 22D # -.5*COS(R)*COS(P)
023912,000556: 33,3720 77676 DCOMP
023913,000557: 33,3721 00023 STORE 18D # -.5*COS(R)
023914,000558: 33,3722 72405 DMP SL1
023915,000559: 33,3723 00013 10D
023916,000560: 33,3724 14033 STODL 26D # -.5*COS(R)*SIN(P)
023917,000561: 33,3725 41556 SIN PUSH
023918,000562: 33,3726 00031 STORE 24D # .5*SIN(R)
023919,000563: 33,3727 72405 DMP SL1
023920,000564: 33,3730 00017 14D
023921,000565: 33,3731 14021 STODL 16D # -.5*SIN(R)*COS(P)
023922,000566: 33,3732 77676 DCOMP
023923,000567: 33,3733 72405 DMP SL1
023924,000568: 33,3734 00013 10D
023925,000569: 33,3735 24025 STOVL 20D # -.5*SIN(R)*SIN(P)
023926,000570: # # Page 545
023927,000571: 33,3736 00013 10D
023928,000572:
023929,000573: # FROM TSMV FIND THE HALF UNIT VECTORS XDC,YDC,ZDC = INPUT TO CALCGTA
023930,000574: 33,3737 77656 UNIT
023931,000575: 33,3740 26714 STOVL XDC # XDC = .5*UNIT(SIN(P),0,-COS(P))
023932,000576: 33,3741 00021 16D
023933,000577: 33,3742 77656 UNIT
023934,000578: 33,3743 26722 STOVL YDC # YDC = .5*UNIT(-SIN(R)*COS(P),-COS(R),
023935,000579: 33,3744 00027 22D # -SIN(R)*SIN(P))
023936,000580: 33,3745 77656 UNIT
023937,000581: 33,3746 36730 STCALL ZDC # ZDC = .5*UNIT(-COS(R)*COS(P),SIN(R),
023938,000582: 33,3747 47240 CALCGTA # -COS(R)*SIN(P))
023939,000583:
023940,000584: # CALL CALCGTA TO COMPUTE DESIRED SM ORIENTATION OGC,IGC,AND MGC
023941,000585: # - - -
023942,000586: # FIND DIFFERENCE VECTOR DELTACDU = OGC-CDUX
023943,000587:
023944,000588: # ENTER HERE IF ATTITUDE HOLD
023945,000589:
023946,000590: 33,3750 41575 NOPOLYM VLOAD PUSH # OGC IGC
023947,000591: 33,3751 02760 OGC # CHANGE IGC TO MGC FOR COMPATIBILITY
023948,000592: 33,3752 45006 PUSH CALL # MGC OGC
023949,000593: 33,3753 47530 CDUTRIG # WITH Y,Z,X ORDER OF CDUSPOT
023950,000594: 33,3754 47175 VLOAD RTB # - DPHI OGC-CDUX ,PD4
023951,000595: 33,3755 00003 2 # DELTACDU = DTHETA = IGC-CDUY , 0
023952,000596: 33,3756 45644 V1STO2S # DPSI MGC-CDUZ , 2
023953,000597: 33,3757 27306 STOVL BOOSTEMP
023954,000598: 33,3760 15336 ZEROVECS
023955,000599: 33,3761 24001 STOVL 0
023956,000600: 33,3762 01172 CDUSPOT
023957,000601: 33,3763 47034 RTB RTB
023958,000602: 33,3764 45644 V1STO2S
023959,000603: 33,3765 70561 DELSTOR
023960,000604: 33,3766 14013 STODL 10D
023961,000605: 33,3767 01144 SINCDUZ
023962,000606: 33,3770 72405 DMP SL1
023963,000607: 33,3771 00001 0
023964,000608: 33,3772 60415 DAD SR2 # CHANGE SCALE OF AK TO 2REVS
023965,000609: 33,3773 00005 4
023966,000610: 33,3774 77650 GOTO
023967,000611: 33,3775 70413 ATTDISP2
023968,000612:
023969,000613: 34,2000 SETLOC P11ONE
023970,000614: 34,2000 BANK
023971,000615: 34,2413 COUNT* $$/P11
023972,000616: 34,2413 14021 ATTDISP2 STODL 16D # 16D, .5(DPHI + DTHETA*SIN(CDUZ))
023973,000617: 34,2414 01152 COSCDUZ
023974,000618: 34,2415 41405 DMP PUSH
023975,000619: 34,2416 00001 0
023976,000620: # # Page 546
023977,000621: 34,2417 72405 DMP SL1
023978,000622: 34,2420 01154 COSCDUX
023979,000623: 34,2421 41325 PDDL DMP
023980,000624: 34,2422 01146 SINCDUX
023981,000625: 34,2423 00003 2
023982,000626: 34,2424 72415 DAD SL1
023983,000627: 34,2425 77626 STADR
023984,000628: 34,2426 63755 STODL 17D # 17D, .5(DTHETA*COS(CDUX)*COS(CDUZ)
023985,000629: 34,2427 72405 DMP SL1 # +DPSI*SIN(CDUX))
023986,000630: 34,2430 01146 SINCDUX
023987,000631: 34,2431 41325 PDDL DMP
023988,000632: 34,2432 01154 COSCDUX
023989,000633: 34,2433 00003 2
023990,000634: 34,2434 72425 DSU SL1
023991,000635: 34,2435 77626 STADR
023992,000636: 34,2436 77754 STORE 18D # 18D, .5(-DTHETA*SIN(CDUX)*COS(CDUZ)
023993,000637: 34,2437 77751 TLOAD # +DPSI*COS(CDUX))
023994,000638: 34,2440 00021 16D
023995,000639: 34,2441 03077 STORE AK # STORE ATTITUDE ERRORS IN AK,AK1,AK2
023996,000640: 34,2442 77776 EXIT
023997,000641:
023998,000642: 34,2443 31714 CA SATSW
023999,000643: 34,2444 10000 CCS A # CHK TAKEOVER STATUS
024000,000644: 34,2445 02466 TC SATOUT # POS - DISPLAY ONLY
024001,000645: 34,2446 02474 TC AKLOAD # 0 STORE BIAS
024002,000646: 34,2447 06006 STEERSAT TC INTPRET # NEG STEER L/V
024003,000647: 34,2450 76351 TLOAD TAD
024004,000648: 34,2451 03316 BIASAK
024005,000649: 34,2452 03077 AK
024006,000650: 34,2453 03077 STORE AK # AKS = AKS - STORED BIAS
024007,000651: 34,2454 77776 EXIT
024008,000652: 34,2455 31476 CA AK
024009,000653: 34,2456 02620 TC RESCALES
024010,000654: 34,2457 55476 TS AK
024011,000655: 34,2460 31477 CA AK1
024012,000656: 34,2461 02620 TC RESCALES
024013,000657: 34,2462 55477 TS AK1
024014,000658: 34,2463 31500 CA AK2
024015,000659: 34,2464 02620 TC RESCALES
024016,000660: 34,2465 55500 TS AK2
024017,000661: # DISPLAY ATTITUDE ERRORS ON FDAI VIA NEEDLER
024018,000662:
024019,000663: 34,2466 04636 SATOUT TC BANKCALL
024020,000664: 34,2467 42425 CADR NEEDLER
024021,000665: 34,2470 34125 ATERSET CAF OCT31 # DELAY .25 SEC
024022,000666: 34,2471 04636 TC BANKCALL # EXECUTION + DELAY =.56SEC APPROX
024023,000667: 34,2472 01731 CADR DELAYJOB
024024,000668: 34,2473 02342 TC ATERJOB # END OF ATT ERROR DISPLAY CYCLE
024025,000669:
024026,000670: 34,2474 41476 AKLOAD CS AK # STORE AKS
024027,000671: # # Page 547
024028,000672: 34,2475 55715 TS BIASAK # INTO BIAS
024029,000673: 34,2476 41477 CS AK1 # COMPLEMENTED
024030,000674: 34,2477 55716 TS BIASAK +1
024031,000675: 34,2500 41500 CS AK2
024032,000676: 34,2501 55717 TS BIASAK +2
024033,000677: 34,2502 44770 CS BIT1 # SET SW
024034,000678: 34,2503 55714 TS SATSW # TO STEER
024035,000679: 34,2504 02447 TC STEERSAT # GO STEER
024036,000680: 34,2505 31714 STRSAT CA SATSW # CHECK IF NEEDLER
024037,000681: 34,2506 00006 EXTEND # HAS BEEN INITIALIZED
024038,000682: 34,2507 62360 BZMF ATTDISP # YES - CONTINUE
024039,000683: 34,2510 41501 ATRESET CS RCSFLAGS # NO - SET
024040,000684: 34,2511 74766 MASK BIT3 # INITIALIZATION SW
024041,000685: 34,2512 27501 ADS RCSFLAGS # FOR NEEDLER
024042,000686: 34,2513 04636 TC BANKCALL # AND GO
024043,000687: 34,2514 42425 CADR NEEDLER # DO IT
024044,000688: 34,2515 36211 CAF REVCNT # OCT 6
024045,000689: 34,2516 04636 TC BANKCALL # DELAY JOB
024046,000690: 34,2517 01731 CADR DELAYJOB # 60 MS -WAIT TILL IMUERRCNTR ZEROED
024047,000691: 34,2520 11714 CCS SATSW # CHECK SW STATUS
024048,000692: 34,2521 02531 TC TAKEON # POS STEER INIT.
024049,000693: 34,2522 02523 TC +1 # 0 RETURN TO DISPLAY
024050,000694: 34,2523 34770 CA BIT1 # NEG RETURN TO DISPLAY
024051,000695: 34,2524 55714 TS SATSW # SW = DISPLAY ONLY
024052,000696: 34,2525 44760 CS BIT9 # DISABLE
024053,000697: 34,2526 00006 EXTEND # SIVB
024054,000698: 34,2527 03012 WAND CHAN12 # TAKEOVER
024055,000699: 34,2530 02466 TC SATOUT # DISPLAY
024056,000700: 34,2531 34760 TAKEON CAF BIT9 # ENABLE
024057,000701: 34,2532 00006 EXTEND # SIVB
024058,000702: 34,2533 05012 WOR CHAN12 # TAKEOVER
024059,000703: 34,2534 34772 CA ZERO # INDICATE NEEDLER
024060,000704: 34,2535 55714 TS SATSW # WAS INITIALIZED
024061,000705: 34,2536 02466 TC SATOUT
024062,000706: 34,2537 51575 S11.1 VLOAD ABVAL
024063,000707: 34,2540 01036 VN
024064,000708: 34,2541 27723 STOVL VMAGI # VI SCALED 2(7) IN METERS/CSEC
024065,000709: 34,2542 01030 RN
024066,000710: 34,2543 50256 UNIT DOT
024067,000711: 34,2544 01036 VN
024068,000712: 34,2545 77752 SL1
024069,000713: 34,2546 17741 STODL HDOT
024070,000714: 34,2547 05173 RPAD
024071,000715: 34,2550 77214 BOF VLOAD
024072,000716: 34,2551 00355 AMOONFLG
024073,000717: 34,2552 70555 EARTHALT
024074,000718: 34,2553 02026 RLS
024075,000719: 34,2554 60446 ABVAL SR2
024076,000720: 34,2555 77621 EARTHALT BDSU
024077,000721: 34,2556 00045 36D
024078,000722: # # Page 548
024079,000723: 34,2557 03737 STORE ALTI
024080,000724: 34,2560 77616 RVQ
024081,000725: 34,2561 31705 DELSTOR CA BOOSTEMP
024082,000726: 34,2562 00006 EXTEND # STORE DELTACDU INTO PDL 0,2,4
024083,000727: 34,2563 20154 MSU MPAC
024084,000728: 34,2564 50120 INDEX FIXLOC
024085,000729: 34,2565 54000 TS 0
024086,000730: 34,2566 31706 CA BOOSTEMP +1
024087,000731: 34,2567 00006 EXTEND
024088,000732: 34,2570 20155 MSU MPAC +1
024089,000733: 34,2571 50120 INDEX FIXLOC
024090,000734: 34,2572 54002 TS 2
024091,000735: 34,2573 31707 CA BOOSTEMP +2
024092,000736: 34,2574 00006 EXTEND
024093,000737: 34,2575 20156 MSU MPAC +2
024094,000738: 34,2576 50120 INDEX FIXLOC
024095,000739: 34,2577 54004 TS 4
024096,000740: 34,2600 16030 TCF DANZIG
024097,000741: 34,2601 30154 RLTST CA MPAC # DETERMINE IF ROLLOUT
024098,000742: 34,2602 00006 EXTEND # IS COMPLETED
024099,000743: 34,2603 71701 MP SATRLRT +1
024100,000744: 34,2604 00006 EXTEND
024101,000745: 34,2605 66030 BZMF DANZIG # UNLIKE SIGNS STILL ROLLING
024102,000746: 34,2606 22007 ZL # ROLLOUT COMPLETED
024103,000747: 34,2607 34772 CAF ZERO # ZERO OUT ROLL CONTRIBUTION
024104,000748: 34,2610 52155 DXCH MPAC
024105,000749: 34,2611 06030 TC DANZIG
024106,000750: 34,2612 06006 NOPOLY TC INTPRET # COMES HERE IF
024107,000751: 34,2613 52001 SETPD GOTO # ATTITUDE HOLD
024108,000752: 34,2614 00001 0
024109,000753: 34,2615 67750 NOPOLYM
024110,000754: 34,2616 01673 COEFPOLY ADRES POLYLOC
024111,000755: 34,2617 01476 V06N62 VN 0662
024112,000756: 34,2620 00006 RESCALES EXTEND # RESCALE AK S FOR
024113,000757: 34,2621 71720 MP SATSCALE # NEW HARDWARE
024114,000758: 34,2622 20001 DDOUBL # SCALING FOR
024115,000759: 34,2623 20001 DDOUBL # STEERING
024116,000760: 34,2624 00002 TC Q # SATURN
024117,000761: # SATURN TAKEOVER FUNCTION
024118,000762: # ************************
024119,000763: #
024120,000764: # PROGRAM DESCRIPTION
024121,000765:
024122,000766: # MOD NUMBER 1
024123,000767: # MOD BY ELIASSEN
024124,000768:
024125,000769: # FUNCTIONAL DESCRIPTION
024126,000770:
024127,000771: # DURING THE COASTING PHASE OF SIVB ATTACHED, THE
024128,000772: # ASTRONAUT MAY REQUEST SATURN TAKEOVER THROUGH
024129,000773: # # Page 549
024130,000774: # EXTENDED VERB 46 (BITS 13,14 OF DAPDATR1 SET ).
024131,000775: # THE CMC REGARDS RHC COMMANDS AS BODY-AXES RATE
024132,000776: # COMMANDS AND IT TRANSMITS THESE TO SATURN AS DC
024133,000777: # VOLTAGES. THE VALUE OF THE CONSTANT RATE COMMAND
024134,000778: # IS 0.5 DEG/SEC. AN ABSENCE OF RHC ACTIVITY RE-
024135,000779: # SULTS IN A ZERO RATE COMMAND.
024136,000780:
024137,000781: # THE FDAI ERROR NEEDLES WILL INDICATE THE VALUE
024138,000782: # OF THE RATE COMMAND.
024139,000783:
024140,000784: # CALLING SEQUENCE
024141,000785:
024142,000786: # DAPFIG +9D TC POSTJUMP
024143,000787: # CADR SATSTKON
024144,000788:
024145,000789: # SUBROUTINES CALLED
024146,000790:
024147,000791: # ENDEXT
024148,000792: # IBNKCALL
024149,000793: # STICKCHK
024150,000794: # NEEDLER
024151,000795: # T5RUPT
024152,000796: # RESUME
024153,000797:
024154,000798: # ASTRONAUT REQUESTS
024155,000799:
024156,000800: # ENTRY - VERB 46 ENTER
024157,000801: # (CONDITION - BITS 13, 14 OF DAPDATR1 SET)
024158,000802:
024159,000803: # EXIT - VERB 48 ENTER (FLASH V06N46)
024160,000804: # VERB 21 ENER AXXXX ENTER WHERE A=0 OR 1
024161,000805: # VERB 34 ENTER
024162,000806: # VERB 46 ENTER
024163,000807:
024164,000808: # NORMAL EXIT MODE
024165,000809:
024166,000810: # VERB 46 ENTER (SEE ASTRONAUT ABOVE)
024167,000811:
024168,000812: # ALARM OR ABORT EXIT MODES
024169,000813:
024170,000814: # NONE
024171,000815:
024172,000816: # OUTPUT
024173,000817:
024174,000818: # SATURN RATES IN CDUXCMD, CDUYCMD, CDUZCMD
024175,000819:
024176,000820: # ERASABLE INITIALIZATION
024177,000821:
024178,000822: # DAPDATR1 (BITS 13,14 MUST BE SET)
024179,000823:
024180,000824: # # Page 550
024181,000825: # DEBRIS
024182,000826:
024183,000827: # CENTRALS
024184,000828: # CDUXCMD, CDUYCMD, CDUZCMD
024185,000829:
024186,000830: 26,2000 SETLOC P11FOUR
024187,000831: 26,2000 BANK
024188,000832:
024189,000833: 26,2000 COUNT* $$/P11
024190,000834: 26,2000 22016 REDOSAT LXCH BANKRUPT # ALSO COMES HERE FOR RESTARTS
024191,000835: 26,2001 00006 EXTEND
024192,000836: 26,2002 22012 QXCH QRUPT
024193,000837: 26,2003 41501 CS RCSFLAGS # TURN ON BIT3 OF RCSFLAGX
024194,000838: 26,2004 74766 MASK BIT3 # FOR
024195,000839: 26,2005 27501 ADS RCSFLAGS # NEEDLER INITIALIZATION
024196,000840: 26,2006 04714 TC IBNKCALL
024197,000841: 26,2007 42425 CADR NEEDLER # DISABLE IMU ERR COUNTERS ETC.
024198,000842: 26,2010 34760 CAF BIT9 # SIVB
024199,000843: 26,2011 00006 EXTEND # TAKEOVER
024200,000844: 26,2012 05012 WOR CHAN12 # ENABLE
024201,000845: 26,2013 00006 EXTEND # SET UP T5 CYCLE
024202,000846: 26,2014 34541 DCA 2SATSTCK
024203,000847: 26,2015 52113 DXCH T5LOC
024204,000848: 26,2016 37661 CAF 100MST5 # IN 100 MSECS
024205,000849: 26,2017 54030 TS TIME5
024206,000850: 26,2020 15323 TCF RESUME # END OF SATURN STICK INITIALIZATION
024207,000851:
024208,000852: # THIS SECTION IS EXECUTED EVERY 100 MSECS.
024209,000853:
024210,000854: 21,2000 SETLOC P11THREE
024211,000855: 21,2000 BANK
024212,000856:
024213,000857: 21,2000 COUNT* $$/P11
024214,000858: 21,2000 22016 SATSTICK LXCH BANKRUPT
024215,000859: 21,2001 00006 EXTEND
024216,000860: 21,2002 22012 QXCH QRUPT
024217,000861:
024218,000862: 21,2003 34540 CAF 2SATSTCK # SET UP RUPT
024219,000863: 21,2004 54112 TS T5LOC # LO ORDER LOC SET
024220,000864: 21,2005 37661 CAF 100MST5 # 100 MSECS
024221,000865: 21,2006 54030 TS TIME5
024222,000866: 21,2007 32031 CAF STIKBITS
024223,000867: 21,2010 00006 EXTEND
024224,000868: 21,2011 06031 RXOR CHAN31 # CHECK IF MAN ROT BITS SAME
024225,000869: 21,2012 72031 MASK STIKBITS
024226,000870: 21,2013 04714 TC IBNKCALL # SET RATE INDICES
024227,000871: 21,2014 43152 CADR STICKCHK # FOR PITCH YAW AND ROLL
024228,000872:
024229,000873: 21,2015 51656 INDEX RMANNDX # SET SATURN RATES
024230,000874: 21,2016 31710 CA SATRATE
024231,000875: # # Page 551
024232,000876: 21,2017 55476 TS AK # ROLL
024233,000877: 21,2020 51657 INDEX PMANNDX
024234,000878: 21,2021 31710 CA SATRATE
024235,000879: 21,2022 55477 TS AK1 # PITCH
024236,000880: 21,2023 51660 INDEX YMANNDX
024237,000881: 21,2024 31710 CA SATRATE
024238,000882: 21,2025 55500 TS AK2 # YAW
024239,000883:
024240,000884: 21,2026 04714 TC IBNKCALL # FOR SATURN INTERFACE AND FDAI DISPLAY
024241,000885: 21,2027 42425 CADR NEEDLER
024242,000886: 21,2030 15323 STICKOUT TCF RESUME # END OF SATURN STICK CONTROL
024243,000887:
024244,000888: 21,2031 00077 STIKBITS OCT 00077
024245,000889: 21,2032 7661 100MST5 = OCT37766
024246,000890: 4000 SETLOC FFTAG2
024247,000891: 4000 BANK
024248,000892:
024249,000893: 4540 COUNT* $$/P11
024250,000894: 4540 E6,1704 EBANK= SPOLYARG
024251,000895: 4540 02000 42066 2SATSTCK 2CADR SATSTICK
End of include-file P11.agc. Parent file is MAIN.agc