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