Source Code

These source-code files were transcribed from scans made from Don Eyles's personal copy of Luminary 069. They were scanned at archive.org's Boston facility, and the scanning was sponsored by Onno Hommes. The code was transcribed from these scans by a team of volunteers who are referenced in the program comments. Comments from the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". In some cases, where similar code blocks exist in previously-transcribed AGC programs (primarily Luminary 99, from Apollo 11) those code blocks were used as a starting point and then corrected to agree with the Luminary 69 scans. The full scans are available at the Virtual AGC project's collection at archive.org, while more-convenient reduced-size (but reduced-quality) images are available at the main Virtual AGC website. Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository. Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011
	19:02 NOV. 25,1968
Note that the date is the date of the printout, not the date of the program revision.

040245,000002:                                                                                                  ## Copyright:   Public domain.
040246,000003:                                                                                                  ## Filename:    FINDCDUW_-_GUIDAP_INTERFACE.agc
040247,000004:                                                                                                  ## Purpose:     The main source file for Luminary revision 069.
040248,000005:                                                                                                  ##              It is part of the source code for the original release
040249,000006:                                                                                                  ##              of the flight software for the Lunar Module's (LM) Apollo
040250,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 10. The actual flown
040251,000008:                                                                                                  ##              version was Luminary 69 revision 2, which included a
040252,000009:                                                                                                  ##              newer lunar gravity model and only affected module 2.
040253,000010:                                                                                                  ##              This file is intended to be a faithful transcription, except
040254,000011:                                                                                                  ##              that the code format has been changed to conform to the
040255,000012:                                                                                                  ##              requirements of the yaYUL assembler rather than the
040256,000013:                                                                                                  ##              original YUL assembler.
040257,000014:                                                                                                  ## Reference:   pp. 907-924
040258,000015:                                                                                                  ## Assembler:   yaYUL
040259,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
040260,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
040261,000018:                                                                                                  ## Mod history: 2016-12-13 MAS  Created from Luminary 99.
040262,000019:                                                                                                  ##              2016-12-18 MAS  Updated from comment-proofed Luminary 99 version.
040263,000020:                                                                                                  ##              2017-01-22 HG   Transcribed
040264,000021:                                                                                                  ##              2017-01-28 RSB  Proofed comment text using octopus/prooferComments
040265,000022:                                                                                                  ##                              and fixed errors found.
040266,000023:                                                                                                  ##              2017-03-10 RSB  Comment-text fixes noted in proofing Luminary 116.
040267,000024: 

Page 907

040269,000026:                                                                                                  #  PROGRAM NAME:   FINDCDUW
040270,000027: 
040271,000028:                                                                                                  #  MOD NUMBER:     1         68 07 15
040272,000029: 
040273,000030:                                                                                                  #  MOD AUTHOR:     KLUMPP
040274,000031: 
040275,000032:                                                                                                  #  OBJECTS OF MOD: 1.        TO SUPPLY COMMANDED GIMBAL ANGLES FOR NOUN 22.
040276,000033:                                                                                                  #                  2.        TO MAINTAIN CORRECT AND CURRENT THRUST
040277,000034:                                                                                                  #                            DIRECTION DATA IN ALL MODES.  THIS IS DONE BY
040278,000035:                                                                                                  #                            FETCHING FOR THE THRUST DIRECTION FILTER THE
040279,000036:                                                                                                  #                            CDUD'S IN PNGCS-AUTO, THE CDU'S IN ALL OTHER
040280,000037:                                                                                                  #                            MODES.
040281,000038:                                                                                                  #                  3.        TO SUBSTITUTE A STOPRATE FOR THE NORMAL
040282,000039:                                                                                                  #                            AUTOPILOT COMMANDS WHENEVER
040283,000040:                                                                                                  #                            1) NOT IN PNGCS-AUTO, OR
040284,000041:                                                                                                  #                            2) ENGINE IS OFF.
040285,000042: 
040286,000043:                                                                                                  #  FUNCTIONAL DESCRIPTION:
040287,000044: 
040288,000045:                                                                                                  #  FINDCDUW PROVIDES THE INTERFACES BETWEEN THE VARIOUS POWERED FLITE GUIDANCE PROGRAMS
040289,000046:                                                                                                  #  AND THE DIGITAL AUTOPILOT.  THE INPUTS TO FINDCDUW ARE THE THRUST COMMAND VECTOR
040290,000047:                                                                                                  #  AND THE WINDOW COMMAND VECTOR, AND THE OUTPUTS ARE THE GIMBAL ANGLE
040291,000048:                                                                                                  #  INCREMENTS, THE COMMANDED ATTITUDE ANGLE RATES, AND THE COMMANDED
040292,000049:                                                                                                  #  ATTITUDE LAG ANGLES (WHICH ACCOUNT FOR THE ANGLES BY WHICH THE BODY WILL
040293,000050:                                                                                                  #  LAG BEHIND A RAMP COMMAND IN ATTITUDE ANGLE DUE TO THE FINITE ANGULAR
040294,000051:                                                                                                  #  ACCELERATIONS AVAILABLE).
040295,000052: 
040296,000053:                                                                                                  #  FINDCDUW ALINES THE ESTIMATED THRUST VECTOR FROM THE THRUST DIRECTION
040297,000054:                                                                                                  #  FILTER WITH THE THRUST COMMAND VECTOR, AND, WHEN  XOVINHIB  SET,
040298,000055:                                                                                                  #  ALINES THE +Z HALF OF THE LM ZX PLANE WITH THE WINDOW COMMAND VECTOR.
040299,000056: 

Page 908

040301,000058:                                                                                                  #  SPECIFICATIONS:
040302,000059: 
040303,000060:                                                                                                  #  INITIALIZATION: A SINGLE INTERPRETIVE CALL TO  INITCDUW  IS REQUIRED
040304,000061:                                                                                                  #                  BEFORE EACH GUIDED MANEUVER USING FINDCDUW.
040305,000062: 
040306,000063:                                                                                                  #  CALL:           INTERPRETIVE CALL TO FINDCDUW WITH THE THRUST COMMAND
040307,000064:                                                                                                  #                  VECTOR IN MPAC.  INTERPRETIVE CALL TO FINDCDUW -2 WITH
040308,000065:                                                                                                  #                  THE THRUST COMMAND VECTOR IN UNFC/2 AND NOT IN MPAC.
040309,000066: 
040310,000067:                                                                                                  #  RETURNS:        NORMAL INTERPRETIVE IN ALL CASES
040311,000068: 
040312,000069:                                                                                                  #                  1.       NORMALLY ALL AUTOPILOT CMDS ARE ISSUED.
040313,000070: 
040314,000071:                                                                                                  #                  2.       IF NOT PNGCS AUTO, DO STOPRATE AND RETURN
040315,000072:                                                                                                  #                           WITHOUT ISSUING AUTOPILOT CMDS.
040316,000073: 
040317,000074:                                                                                                  #                  3.       IF ENGINE OFF, DO STOPRATE AND RETURN WITHOUT
040318,000075:                                                                                                  #                           ISSUING AUTOPILOT CMDS.
040319,000076: 
040320,000077:                                                                                                  #  ALARMS:         00401 IF INPUTS DETERMINE AN ATTITUDE IN GIMBAL LOCK.
040321,000078:                                                                                                  #                           FINDCDUW DRIVES CDUXD AND CDUYD TO THE RQD VALUES,
040322,000079:                                                                                                  #                           BUT DRIVES CDUZD ONLY TO THE GIMBAL LOCK CONE.
040323,000080:                                                                                                  #                  00402 IF UNFC/2 OR UNWC/2 PRODUCE OVERFLOW WHEN
040324,000081:                                                                                                  #                           UNITIZED USING NORMUNIT.  FINDCDUW ISSUES
040325,000082:                                                                                                  #                           STOPRATE AS ONLY INPUT TO AUTOPILOT.
040326,000083: 
040327,000084:                                                                                                  #  INPUTS:         UNFC/2   THRUST COMMAND VECTOR, NEED NOT BE SEMI-UNIT.
040328,000085:                                                                                                  #                  UNWC/2   WINDOW COMMAND VECTOR, NEED NOT BE SEMI-UNIT.
040329,000086:                                                                                                  #                  XOVINHIB FLAG DENOTING X AXIS OVERRIDE INHIBITED.
040330,000087:                                                                                                  #                  CSMDOCKD FLAG DENOTING CSM DOCKED.
040331,000088:                                                                                                  #                  STEERSW  FLAG DENOTING INSUFF THRUST FOR THRUST DIR FLTR.
040332,000089: 
040333,000090:                                                                                                  #  OUTPUTS:        DELCDUX,Y,Z
040334,000091:                                                                                                  #                  OMEGAPD,+1,+2
040335,000092:                                                                                                  #                  DELPEROR,+1,+2
040336,000093:                                                                                                  #                  CPHI,+1,+2 FOR NOUN22
040337,000094: 
040338,000095:                                                                                                  #  DEBRIS:         FINDCDUW DESTROYS SINCDUX,Y,Z AND COSCDUX,Y,Z BY
040339,000096:                                                                                                  #                  WRITING INTO THESE LOCATIONS THE SINES AND COSINES
040340,000097:                                                                                                  #                  OF THE CDUD'S IN PNGCS-AUTO, OF THE CDU'S OTHERWISE.
040341,000098: 

Page 909

040343,000100:                                                                                                  #  INITIALIZATION FOR FINDCDUW
040344,000101: 
040345,000102: 30,3055                                           BANK     30                                    
040346,000103: 30,2000                                           SETLOC   FCDUW                                 
040347,000104: 30,2000                                           BANK                                           
040348,000105: 
040349,000106: 30,3055  E6,1644                                  EBANK=   ECDUW                                 
040350,000107: 
040351,000108: 30,3055                                           COUNT*   $$/FCDUW                              
040352,000109: 
040353,000110: 30,3055           77775        INITCDUW           VLOAD                                          
040354,000111: 30,3056           06422                                    UNITX                                 
040355,000112: 30,3057           03266                           STORE    UNFV/2                                
040356,000113: 30,3060           03260                           STORE    UNWC/2                                
040357,000114: 30,3061           77616                           RVQ                                            
040358,000115: 
040359,000116:                                                                                                  #  FINDCDUW PRELIMINARIES
040360,000117: 
040361,000118: 30,3062           77775                           VLOAD                                          #  FINDCDUW -2: ENTRY WHEN UNFC/2 PRE-STORD
040362,000119: 30,3063           03252                                    UNFC/2                                #  INPUT VECTORS NEED NOT BE SEMI-UNIT
040363,000120: 30,3064           40200        FINDCDUW           BOV      SETPD                                 #  FINDCDUW: ENTRY WHEN UNFC/2 IN MPAC
040364,000121: 30,3065           61064                                    FINDCDUW                              #  INTERPRETER NOW INITIALIZED
040365,000122: 30,3066           00023                                    22                                    #  LOCS 0 THRU 21 FOR DIRECTION COSINE MAT
040366,000123: 30,3067           77420                           STQ      EXIT                                  
040367,000124: 30,3070           03245                                    QCDUWUSR                              #  SAVE RETURN ADDRESS
040368,000125: 
040369,000126:                                                                                                  #  MORE HAUSKEEPING
040370,000127: 30,3071           33732                           CA       ECDUWL                                
040371,000128: 30,3072           56003                           XCH      EBANK                                 #  SET EBANK
040372,000129: 30,3073           55644                           TS       ECDUWUSR                              #  SAVE USER'S EBANK
040373,000130: 
040374,000131: 30,3074           30111                           CA       DAPBOOLS                              
040375,000132: 30,3075           74737                           MASK     CSMDOCKD                              #  CSMDOCKD MUST NOT BE BIT15
040376,000133: 30,3076           10000                           CCS      A                                     
040377,000134: 30,3077           34753                           CA       ONE                                   #  INDEX IF CSM DOCKED
040378,000135: 30,3100           55646                           TS       NDXCDUW                               
040379,000136: 
040380,000137: 30,3101           34743                           CA       XOVINHIB                              #  XOVINHIB MUST NOT BE BIT15
040381,000138: 30,3102           55650                           TS       FLPAUTNO                              #  SET TO POS-NON-ZERO FLAG PNGCS AUTO NOT
040382,000139: 
040383,000140: 30,3103           70111                           MASK     DAPBOOLS                              
040384,000141: 30,3104           55647                           TS       FLAGOODW                              #  FLAGOODW = ANY PNZ NUMBER IF XOV INHIBTD
040385,000142: 

Page 910

040387,000144:                                                                                                  #  FETCH BASIC DATA
040388,000145: 
040389,000146: 30,3105           00004                           INHINT                                         #  RELINT AT PAUTNO (TC INTPRET)
040390,000147: 
040391,000148: 30,3106           30032                           CA       CDUX                                  #  FETCH CDUX,CDUY,CDUZ IN ALL CASES, BUT
040392,000149: 30,3107           54772                           TS       CDUSPOTX                              #       REPLACE BELOW IF PNGCS AUTO
040393,000150: 30,3110           30033                           CA       CDUY                                  
040394,000151: 30,3111           54766                           TS       CDUSPOTY                              
040395,000152: 30,3112           30034                           CA       CDUZ                                  
040396,000153: 30,3113           54770                           TS       CDUSPOTZ                              
040397,000154: 
040398,000155: 30,3114           34742                           CA       BIT10                                 #  PNGCS CONTROL BIT
040399,000156: 30,3115           00006                           EXTEND                                         
040400,000157: 30,3116           02030                           RAND     CHAN30                                
040401,000158: 30,3117           10000                           CCS      A                                     
040402,000159: 30,3120           13135                           TCF      PAUTNO                                #  NOT PNGCS (BITS INVERTED)
040403,000160: 
040404,000161: 30,3121           34736                           CA       BIT14                                 #  AUTO MODE BIT
040405,000162: 30,3122           00006                           EXTEND                                         
040406,000163: 30,3123           02031                           RAND     CHAN31                                
040407,000164: 30,3124           10000                           CCS      A                                     
040408,000165: 30,3125           13135                           TCF      PAUTNO                                #  NOT AUTO (BITS INVERTED)
040409,000166: 
040410,000167: 30,3126           55650                           TS       FLPAUTNO                              #  RESET FLAG PNGCS AUTO NOT
040411,000168: 
040412,000169: 30,3127           31633                           CA       CDUXD                                 #  PNGCS AUTO: FETCH CDUXD,CDUYD,CDUZD
040413,000170: 30,3130           54772                           TS       CDUSPOTX                              
040414,000171: 30,3131           31634                           CA       CDUYD                                 
040415,000172: 30,3132           54766                           TS       CDUSPOTY                              
040416,000173: 30,3133           31635                           CA       CDUZD                                 
040417,000174: 30,3134           54770                           TS       CDUSPOTZ                              
040418,000175: 

Page 911

040420,000177:                                                                                                  #  FETCH INPUTS
040421,000178: 
040422,000179: 30,3135           06036        PAUTNO             TC       INTPRET                               #  ENTERING THRUST CMD STILL IN MPAC
040423,000180: 30,3136           77634                           RTB                                            
040424,000181: 30,3137           21700                                    NORMUNIT                              
040425,000182: 30,3140           24001                           STOVL    UNX/2                                 #  SEMI-UNIT THRUST CMD AS INITIAL UNX/2
040426,000183: 30,3141           03260                                    UNWC/2                                
040427,000184: 30,3142           47034                           RTB      RTB                                   
040428,000185: 30,3143           21700                                    NORMUNIT                              
040429,000186: 30,3144           47521                                    QUICTRIG                              #  ALWAYS RQD TO OBTAIN TRIGS OF CDUD'S
040430,000187: 30,3145           24015                           STOVL    UNZ/2                                 #  SEMI-UNIT WINDOW CMD AS INITIAL UNZ/2
040431,000188: 30,3146           00325                                    DELV                                  
040432,000189: 30,3147           53404                           BOVB     UNIT                                  
040433,000190: 30,3150           61721                                    NOATTCNT                              #  AT LEAST ONE ENTERING CMD VCT ZERO
040434,000191: 30,3151           45000                           BOV      CALL                                  
040435,000192: 30,3152           61166                                    AFTRFLTR                              #  IF UNIT DELV OVERFLOWS, SKIP FILTER
040436,000193: 30,3153           47575                                    *SMNB*                                #  YIELDS UNIT(DELV) IN VEH COORDS FOR FLTR
040437,000194: 
040438,000195:                                                                                                  #  THRUST DIRECTION FILTER
040439,000196: 
040440,000197: 30,3154           77776                           EXIT                                           
040441,000198: 
040442,000199: 30,3155           31667                           CA       UNFVY/2                               #  FOR RESTARTS, UNFV/2 ALWAYS INTACT, MPAC
040443,000200: 30,3156           22157                           LXCH     MPAC       +3                         #        RENEWED AFTER RETURN FROM CALLER,
040444,000201: 30,3157           03454                           TC       FLTRSUB                               #        TWO FILTER UPDATES MAY BE DONE.
040445,000202: 30,3160           55667                           TS       UNFVY/2                               #  UNFV/2 NEED NOT BE EXACTLY SEMI-UNIT.
040446,000203: 
040447,000204: 30,3161           31671                           CA       UNFVZ/2                               
040448,000205: 30,3162           22161                           LXCH     MPAC       +5                         
040449,000206: 30,3163           03454                           TC       FLTRSUB                               
040450,000207: 30,3164           55671                           TS       UNFVZ/2                               
040451,000208: 
040452,000209: 30,3165           06036                           TC       INTPRET                               #  COMPLETES FILTER
040453,000210: 

Page 912

040455,000212:                                                                                                  #  FIND A SUITABLE WINDOW POINTING VECTOR
040456,000213: 
040457,000214: 30,3166           46135        AFTRFLTR           SLOAD    BHIZ                                  #  IF XOV NOT INHIBITED, GO FETCH ZNB
040458,000215: 30,3167           03250                                    FLAGOODW                              
040459,000216: 30,3170           61174                                    FETCHZNB                              
040460,000217: 30,3171           45175                           VLOAD    CALL                                  
040461,000218: 30,3172           00015                                    UNZ/2                                 
040462,000219: 30,3173           61474                                    UNWCTEST                              
040463,000220: 
040464,000221: 30,3174           77775        FETCHZNB           VLOAD                                          
040465,000222: 30,3175           02162                                    ZNBPIP                                
040466,000223: 30,3176           34015                           STCALL   UNZ/2                                 
040467,000224: 30,3177           61474                                    UNWCTEST                              
040468,000225: 
040469,000226: 30,3200           57575                           VLOAD    VCOMP                                 #  Z AND -X CAN'T BOTH PARALLEL UNFC/2
040470,000227: 30,3201           02146                                    XNBPIP                                
040471,000228: 30,3202           00015                           STORE    UNZ/2                                 
040472,000229: 
040473,000230:                                                                                                  #  COMPUTE THE REQUIRED DIRECTION COSINE MATRIX
040474,000231: 
040475,000232: 30,3203           47375        DCMCL              VLOAD    VXV                                   
040476,000233: 30,3204           00015                                    UNZ/2                                 
040477,000234: 30,3205           00001                                    UNX/2                                 
040478,000235: 30,3206           41456                           UNIT     PUSH                                  #  UNY/2 FIRST ITERATION
040479,000236: 30,3207           76435                           VXV      VSL1                                  
040480,000237: 30,3210           00001                                    UNX/2                                 
040481,000238: 30,3211           00015                           STORE    UNZ/2                                 #  -UNZ/2 FIRST ITERATION
040482,000239: 30,3212           63361                           VXSC     PDVL                                  #  EXCHANGE -UNFVZ/2 UNZ/2 FOR UNY/2
040483,000240: 30,3213           03272                                    UNFVZ/2                               #  MUST BE SMALL
040484,000241: 30,3214           51361                           VXSC     BVSU                                  #  YIELDS -UNFVY/2 UNY/2-UNFVZ/2 UNZ/2
040485,000242: 30,3215           03270                                    UNFVY/2                               #  MUST BE SMALL
040486,000243: 30,3216           53372                           VSL1     VAD                                   
040487,000244: 30,3217           00001                                    UNX/2                                 
040488,000245: 30,3220           77656                           UNIT                                           #  TOTALLY ELIMINATES THRUST POINTING ERROR
040489,000246: 30,3221           00001                           STORE    UNX/2                                 #  UNX/2
040490,000247: 30,3222           76435                           VXV      VSL1                                  
040491,000248: 30,3223           00015                                    UNZ/2                                 #  -UNZ/2 WAS STORED HERE REMEMBER
040492,000249: 30,3224           00007                           STORE    UNY/2                                 #  UNY/2
040493,000250: 30,3225           47276                           VCOMP    VXV                                   
040494,000251: 30,3226           00001                                    UNX/2                                 
040495,000252: 30,3227           77772                           VSL1                                           
040496,000253: 30,3230           00015                           STORE    UNZ/2                                 #  UNZ/2
040497,000254: 

Page 913

040499,000256:                                                                                                  #  COMPUTE THE REQUIRED GIMBAL ANGLES
040500,000257: 
040501,000258: 30,3231           77624                           CALL                                           
040502,000259: 30,3232           61504                                    NB2CDUSP                              #  YIELDS THE RQD GIMBAL ANGLES, 2'S, PI
040503,000260: 30,3233           77776                           EXIT                                           
040504,000261: 
040505,000262:                                                                                                  #  LIMIT THE MIDDLE GIMBAL ANGLE & COMPUTE THE UNLIMITED GIMBAL ANGLE CHGS
040506,000263: 
040507,000264: 30,3234           30156                           CA       MPAC       +2                         #  LIMIT THE MGA
040508,000265: 30,3235           54001                           TS       L                                     #  CAN'T LXCH: NEED UNLIMITED MGA FOR ALARM
040509,000266: 30,3236           33744                           CA       CDUZDLIM                              
040510,000267: 30,3237           03700                           TC       LIMITSUB                              #  YIELDS LIMITED MGA. 1 BIT ERROR POSSIBLE
040511,000268: 30,3240           56156                           XCH      MPAC       +2                         #       BECAUSE USING 2'S COMP. WHO CARES?
040512,000269: 30,3241           00006                           EXTEND                                         
040513,000270: 30,3242           20156                           MSU      MPAC       +2                         #  THIS BETTER YIELD ZERO
040514,000271: 30,3243           00006                           EXTEND                                         
040515,000272: 30,3244           13246                           BZF      +2                                    
040516,000273: 30,3245           13727                           TCF      ALARMMGA                              
040517,000274: 
040518,000275: 30,3246           00004        MGARET             INHINT                                         #  RELINT AT TC INTPRET AFTER TCQCDUW
040519,000276: 
040520,000277: 30,3247           22007                           ZL                                             
040521,000278: 30,3250           34752                           CA       TWO                                   
040522,000279: 30,3251           54142        DELGMBLP           TS       TEM2                                  
040523,000280: 
040524,000281: 30,3252           30001                           CA       L                                     #  TO PREVENT FALSE STARTS ABOUT X, ZERO
040525,000282: 30,3253           00006                           EXTEND                                         #       FLAGOODW IF DELGMBZ OR Y TOO BIG.
040526,000283: 30,3254           70000                           SQUARE                                         
040527,000284: 30,3255           64350                           AD       HI5                                   #  WITHIN 1 BIT OF -(45 DEG SQUARED)
040528,000285: 30,3256           00006                           EXTEND                                         
040529,000286: 30,3257           63262                           BZMF     +3                                    
040530,000287: 30,3260           34755                           CA       ZERO                                  
040531,000288: 30,3261           55647                           TS       FLAGOODW                              
040532,000289: 
040533,000290: 30,3262           50142                           INDEX    TEM2                                  
040534,000291: 30,3263           30154                           CA       MPAC                                  
040535,000292: 30,3264           50142                           INDEX    TEM2                                  
040536,000293: 30,3265           54321                           TS       CPHI                                  #  OUTPUTS TO NOUN22
040537,000294: 30,3266           00006                           EXTEND                                         
040538,000295: 30,3267           50142                           INDEX    TEM2                                  
040539,000296: 30,3270           21633                           MSU      CDUXD                                 #  NO MATTER THAT THESE SLIGHTLY DIFFERENT
040540,000297: 30,3271           40000                           COM                                            #       FROM WHEN WE INITIALLY FETCHED THEM
040541,000298: 30,3272           50142                           INDEX    TEM2                                  
040542,000299: 30,3273           55673                           TS       -DELGMB                               #  -UNLIMITED GIMBAL ANGLE CHGS, 1'S, PI
040543,000300: 30,3274           54001                           TS       L                                     #  FOR PRECEDING TEST ON NEXT LOOP PASS
040544,000301: 30,3275           10142                           CCS      TEM2                                  
040545,000302: 30,3276           13251                           TCF      DELGMBLP                              
040546,000303: 

Page 914

040548,000305:                                                                                                  #  BRANCHES TO NOATTCNT
040549,000306: 
040550,000307: 30,3277           11650                           CCS      FLPAUTNO                              
040551,000308: 30,3300           13723                           TCF      NOATTCNT   +2                         #  NOT PNGCS AUTO
040552,000309: 
040553,000310: 30,3301           30101                           CA       FLAGWRD5                              
040554,000311: 30,3302           74745                           MASK     ENGONBIT                              
040555,000312: 30,3303           00006                           EXTEND                                         
040556,000313: 30,3304           13723                           BZF      NOATTCNT   +2                         #  ENGINE NOT ON
040557,000314: 

Page 915

040559,000316:                                                                                                  #  LIMIT THE ATTITUDE ANGLE CHANGES
040560,000317: 
040561,000318:                                                                                                  #  THIS SECTION LIMITS THE ATTITUDE ANGLE CHANGES ABOUT A SET OF ORTHOGONAL VEHICLE AXES X,YPRIME,ZPRIME.
040562,000319:                                                                                                  #  THESE AXES COINCIDE WITH THE COMMANDED VEHICLE AXES IF AND ONLY IF CDUXD IS ZERO.  THE PRIME SYSTEM IS
040563,000320:                                                                                                  #  THE COMMANDED VEHICLE SYSTEM ROTATED ABOUT THE X AXIS TO BRING THE Z AXIS INTO ALINEMENT WITH THE MIDDLE GIMBAL
040564,000321:                                                                                                  #  AXIS.  ATTITUDE ANGLE CHANGES IN THE PRIME SYSTEM ARE RELATED TO SMALL GIMBAL ANGLE CHANGES BY:
040565,000322: 
040566,000323:                                                                                                  #  * -DELATTX      *   * 1  SIN(CDUZD)  0 * * -DELGMBX *
040567,000324:                                                                                                  #  *               *   *                  * *          *
040568,000325:                                                                                                  #  * -DELATTYPRIME * = * 0  COS(CDUZD)  0 * * -DELGMBY *
040569,000326:                                                                                                  #  *               *   *                  * *          *
040570,000327:                                                                                                  #  * -DELATTZPRIME *   * 0  0           1 * * -DELGMBZ *
040571,000328: 
040572,000329: 30,3305           23675                           LXCH     -DELGMB    +2                         #  SAME AS -DELATTZPRIME UNLIMITED
040573,000330: 30,3306           51646                           INDEX    NDXCDUW                               
040574,000331: 30,3307           33740                           CA       DAZMAX                                
040575,000332: 30,3310           03700                           TC       LIMITSUB                              
040576,000333: 30,3311           55675                           TS       -DELGMB    +2                         #  -DELGMBZ
040577,000334: 
040578,000335: 30,3312           31674                           CA       -DELGMB    +1                         
040579,000336: 30,3313           00006                           EXTEND                                         
040580,000337: 30,3314           70746                           MP       COSCDUZ                               #  YIELDS -DELATTYPRIME/2 UNLIMITED
040581,000338: 30,3315           54001                           TS       L                                     
040582,000339: 30,3316           51646                           INDEX    NDXCDUW                               
040583,000340: 30,3317           33742                           CA       DAY/2MAX                              
040584,000341: 30,3320           03700                           TC       LIMITSUB                              
040585,000342: 30,3321           00006                           EXTEND                                         
040586,000343: 30,3322           10746                           DV       COSCDUZ                               
040587,000344: 30,3323           57674                           XCH      -DELGMB    +1                         #  -DELGMBY, FETCHING UNLIMITED VALUE
040588,000345: 
040589,000346: 30,3324           00006                           EXTEND                                         
040590,000347: 30,3325           70740                           MP       SINCDUZ                               
040591,000348: 30,3326           20001                           DDOUBL                                         
040592,000349: 30,3327           40000                           COM                                            
040593,000350: 30,3330           00006                           EXTEND                                         #  YIELDS +DELATTX UNLIMITD, MAG < 180 DEG,
040594,000351: 30,3331           21673                           MSU      -DELGMB                               #        BASED ON UNLIMITED DELGMBY.
040595,000352: 30,3332           54001                           TS       L                                     #        ONE BIT ERROR IF OPERANDS IN MSU
040596,000353: 30,3333           51646                           INDEX    NDXCDUW                               #        OF MIXED SIGNS.  WHO CARES?
040597,000354: 30,3334           33740                           CA       DAXMAX                                
040598,000355: 30,3335           03700                           TC       LIMITSUB                              
040599,000356: 30,3336           55673                           TS       -DELGMB                               #  SAVE LIMITED +DELATTX
040600,000357: 30,3337           11647                           CCS      FLAGOODW                              
040601,000358: 30,3340           41673                           CS       -DELGMB                               #  FETCH IT BACK CHGING SIGN IF WINDOW GOOD
040602,000359: 30,3341           55673                           TS       -DELGMB                               #  OTHERWISE USE ZERO FOR -DELATTX
040603,000360: 30,3342           41674                           CS       -DELGMB    +1                         
040604,000361: 30,3343           00006                           EXTEND                                         
040605,000362: 30,3344           70740                           MP       SINCDUZ                               
040606,000363: 30,3345           20001                           DDOUBL                                         #  YIELDS -CNTRIB TO -DELATTX FROM -DELGMBY
040607,000364: 30,3346           27673                           ADS      -DELGMB                               #  -DELGMBX.  NO OVERFLOW SINCE LIMITED TO
040608,000365:                                                                                                  #  20DEG(1+SIN(70DEG)/COS(70DEG)) < 180DEG
040609,000366: 

Page 916

040611,000368:                                                                                                  #  COMPUTE COMMANDED ATTITUDE RATES
040612,000369: 
040613,000370:                                                                                                  #  * OMEGAPD *   * -2  -4 SINCDUZ          +0         * * -DELGMBX *
040614,000371:                                                                                                  #  *         *   *                                    * *          *
040615,000372:                                                                                                  #  * OMEGAQD * = * +0  -8 COSCDUZ COSCDUX  -4 SINCDUX * * -DELGMBY *
040616,000373:                                                                                                  #  *         *   *                                    * *          *
040617,000374:                                                                                                  #  * OMEGARD *   * +0  +8 COSCDUZ SINCDUX  -4 COSCDUX * * -DELGMBZ *
040618,000375: 
040619,000376:                                                                                                  #  ATTITUDE ANGLE RATES IN UNITS OF PI/4 RAD/SEC = K TRIG FCNS IN UNITS OF 2 X GIMBAL ANGLE RATES IN UNITS OF
040620,000377:                                                                                                  #  PI/2 RAD/SEC.  THE CONSTANTS ARE BASED ON DELGMB BEING THE GIMBAL ANGLE CHANGES IN UNITS OF PI RADIANS,
040621,000378:                                                                                                  #  AND 2 SECONDS BEING THE COMPUTATION PERIOD (THE PERIOD BETWEEN SUCCESSIVE PASSES THRU FINDCDUW).
040622,000379: 
040623,000380: 30,3347           41673                           CS       -DELGMB                               
040624,000381: 30,3350           55641                           TS       OMEGAPD                               
040625,000382: 30,3351           41674                           CS       -DELGMB    +1                         
040626,000383: 30,3352           00006                           EXTEND                                         
040627,000384: 30,3353           70740                           MP       SINCDUZ                               
040628,000385: 30,3354           20001                           DDOUBL                                         
040629,000386: 30,3355           27641                           ADS      OMEGAPD                               
040630,000387: 30,3356           27641                           ADS      OMEGAPD                               
040631,000388: 
040632,000389: 30,3357           41674                           CS       -DELGMB    +1                         
040633,000390: 30,3360           00006                           EXTEND                                         
040634,000391: 30,3361           70750                           MP       COSCDUX                               
040635,000392: 30,3362           20001                           DDOUBL                                         
040636,000393: 30,3363           00006                           EXTEND                                         
040637,000394: 30,3364           70746                           MP       COSCDUZ                               
040638,000395: 30,3365           55642                           TS       OMEGAQD                               
040639,000396: 30,3366           41675                           CS       -DELGMB    +2                         
040640,000397: 30,3367           00006                           EXTEND                                         
040641,000398: 30,3370           70742                           MP       SINCDUX                               
040642,000399: 30,3371           27642                           ADS      OMEGAQD                               
040643,000400: 30,3372           27642                           ADS      OMEGAQD                               
040644,000401: 30,3373           27642                           ADS      OMEGAQD                               
040645,000402: 
040646,000403: 30,3374           31674                           CA       -DELGMB    +1                         
040647,000404: 30,3375           00006                           EXTEND                                         
040648,000405: 30,3376           70742                           MP       SINCDUX                               
040649,000406: 30,3377           20001                           DDOUBL                                         
040650,000407: 30,3400           00006                           EXTEND                                         
040651,000408: 30,3401           70746                           MP       COSCDUZ                               
040652,000409: 30,3402           55643                           TS       OMEGARD                               
040653,000410: 30,3403           41675                           CS       -DELGMB    +2                         
040654,000411: 30,3404           00006                           EXTEND                                         
040655,000412: 30,3405           70750                           MP       COSCDUX                               
040656,000413: 30,3406           27643                           ADS      OMEGARD                               
040657,000414: 30,3407           27643                           ADS      OMEGARD                               
040658,000415: 30,3410           27643                           ADS      OMEGARD                               
040659,000416: 

Page 917

040661,000418:                                                                                                  #  FINAL TRANSFER
040662,000419: 
040663,000420: 30,3411           34752                           CA       TWO                                   
040664,000421: 30,3412           54142        CDUWXFR            TS       TEM2                                  
040665,000422: 30,3413           50142                           INDEX    TEM2                                  
040666,000423: 30,3414           31673                           CA       -DELGMB                               
040667,000424: 30,3415           00006                           EXTEND                                         
040668,000425: 30,3416           73745                           MP       DT/DELT                               #  RATIO OF DAP INTERVAL TO CDUW INTERVAL
040669,000426: 30,3417           03714                           TC       ONESTO2S                              
040670,000427: 30,3420           50142                           INDEX    TEM2                                  
040671,000428: 30,3421           55636                           TS       DELCDUX                               #  ANGLE INTERFACE
040672,000429: 
040673,000430: 30,3422           50142                           INDEX    TEM2                                  
040674,000431: 30,3423           11641                           CCS      OMEGAPD                               
040675,000432: 30,3424           64753                           AD       ONE                                   
040676,000433: 30,3425           13427                           TCF      +2                                    
040677,000434: 30,3426           64753                           AD       ONE                                   
040678,000435: 30,3427           00006                           EXTEND                                         #  WE NOW HAVE ABS(OMEGAPD,QD,RD)
040679,000436: 30,3430           50142                           INDEX    TEM2                                  
040680,000437: 30,3431           71641                           MP       OMEGAPD                               
040681,000438: 30,3432           00006                           EXTEND                                         
040682,000439: 30,3433           74741                           MP       BIT11                                 #  1/16
040683,000440: 30,3434           00006                           EXTEND                                         
040684,000441: 30,3435           50142                           INDEX    TEM2                                  #                   2
040685,000442: 30,3436           11530                           DV       1JACC                                 #  UNITS PI/4 RAD/SEC
040686,000443: 30,3437           54001                           TS       L                                     
040687,000444: 30,3440           33742                           CA       DELERLIM                              
040688,000445: 30,3441           03700                           TC       LIMITSUB                              
040689,000446: 30,3442           50142                           INDEX    TEM2                                  
040690,000447: 30,3443           55277                           TS       DELPEROR                              #  LAG ANGLE = OMEGA ABS(OMEGA)/2 ACCEL
040691,000448: 30,3444           10142                           CCS      TEM2                                  
040692,000449: 30,3445           13412                           TCF      CDUWXFR                               
040693,000450: 
040694,000451:                                                                                                  #  HAUSKEEPING AND RETURN
040695,000452: 
040696,000453: 30,3446           31644        TCQCDUW            CA       ECDUWUSR                              
040697,000454: 30,3447           54003                           TS       EBANK                                 #  RETURN USER'S EBANK
040698,000455: 
040699,000456: 30,3450           06036                           TC       INTPRET                               
040700,000457: 30,3451           52001                           SETPD    GOTO                                  
040701,000458: 30,3452           00001                                    0                                     
040702,000459: 30,3453           03245                                    QCDUWUSR                              #  NORMAL AND ABNORMAL RETURN TO USER
040703,000460: 

Page 918

040705,000462:                                                                                                  #  THRUST VECTOR FILTER SUBROUTINE
040706,000463: 
040707,000464: 30,3454           00006        FLTRSUB            EXTEND                                         
040708,000465: 30,3455           22142                           QXCH     TEM2                                  
040709,000466: 30,3456           54143                           TS       TEM3                                  #  SAVE ORIGINAL OFFSET
040710,000467: 30,3457           40000                           COM                                            #  ONE MCT, NO WDS, CAN BE SAVED IF NEG OF
040711,000468: 30,3460           60001                           AD       L                                     #       ORIG OFFSET ARRIVES IN A, BUT IT'S
040712,000469: 30,3461           00006                           EXTEND                                         #       NOT WORTH THE INCREASED OBSCURITY.
040713,000470: 30,3462           51646                           INDEX    NDXCDUW                               
040714,000471: 30,3463           73733                           MP       GAINFLTR                              
040715,000472: 30,3464           54001                           TS       L                                     #  INCR TO OFFSET, UNLIMITED
040716,000473: 30,3465           33735                           CA       DUNFVLIM                              #  SAME LIMIT FOR Y AND Z
040717,000474: 30,3466           03700                           TC       LIMITSUB                              #  YIELDS INCR TO OFFSET, LIMITED
040718,000475: 30,3467           60143                           AD       TEM3                                  #  ORIGINAL OFFSET
040719,000476: 30,3470           54001                           TS       L                                     #  TOTAL OFFSET, UNLIMITED
040720,000477: 30,3471           33736                           CA       UNFVLIM                               #  SAME LIMIT FOR Y AND Z
040721,000478: 30,3472           03700                           TC       LIMITSUB                              #  YIELDS TOTAL OFFSET, LIMITED
040722,000479: 30,3473           00142                           TC       TEM2                                  
040723,000480: 
040724,000481:                                                                                                  #  SUBR TO TEST THE ANGLE BETWEEN THE PROPOSED WINDOW AND THRUST CMD VCTS
040725,000482: 
040726,000483: 30,3474           63441        UNWCTEST           DOT      DSQ                                   
040727,000484: 30,3475           00001                                    UNX/2                                 
040728,000485: 30,3476           50025                           DSU      BMN                                   
040729,000486: 30,3477           21740                                    DOTSWFMX                              
040730,000487: 30,3500           61203                                    DCMCL                                 
040731,000488: 30,3501           43531                           SSP      RVQ                                   #  RVQ FOR ALT CHOICE IF DOT MAGN TOO LARGE
040732,000489: 30,3502           03250                                    FLAGOODW                              #       ZEROING WINDOW GOOD FLAG
040733,000490: 30,3503           00000                                    0                                     
040734,000491: 

Page 919

040736,000493:                                                                                                  #  NB2CDUSP RETURNS THE 2'S COMPLEMENT, PI, SP CDU ANGLES X,Y,Z IN MPAC,+1,+2 GIVEN THE MATRIX WHOSE ROW VECTORS
040737,000494:                                                                                                  #  ARE THE SEMI-UNIT NAV BASE VECTORS X,Y,Z EXPRESSED IN STABLE MEMBER COORDINATES, LOCATED AT 0 IN THE PUSH LIST.
040738,000495: 
040739,000496:                                                                                                  #  NB2CDUSP USES ARCTRGSP WHICH HAS A MAXIMUM ERROR OF +-4 BITS.
040740,000497: 
040741,000498: 30,3504           63545        NB2CDUSP           DLOAD    DSQ                                   
040742,000499: 30,3505           00003                                    2                                     
040743,000500: 30,3506           51021                           BDSU     BPL                                   
040744,000501: 30,3507           06414                                    DP1/4TH                               
040745,000502: 30,3510           61513                                    +3                                    
040746,000503: 30,3511           77745                           DLOAD                                          
040747,000504: 30,3512           06424                                    ZEROVECS                              #  IN CASE SIN WAS SLIGHTLY > 1/2
040748,000505: 30,3513           77566                           SQRT     EXIT                                  #  YIELDS COS(CDUZ) IN UNITS OF 2
040749,000506: 
040750,000507: 30,3514           00006                           EXTEND                                         
040751,000508: 30,3515           30155                           DCA      MPAC                                  
040752,000509: 30,3516           20001                           DDOUBL                                         
040753,000510: 30,3517           54145                           TS       TEM5                                  
040754,000511: 30,3520           13523                           TCF      +3                                    
040755,000512: 30,3521           34733                           CA       POSMAX                                #  OVERFLOW. FETCH POSMAX, MPAC ALWAYS POS
040756,000513: 30,3522           54145                           TS       TEM5                                  #  COS(CDUZ) IN TEM5, UNITS 1
040757,000514: 
040758,000515: 30,3523           50120                           INDEX    FIXLOC                                
040759,000516: 30,3524           30002                           CA       2                                     
040760,000517: 30,3525           22154                           LXCH     MPAC                                  
040761,000518: 30,3526           03573                           TC       ARCTRGSP                              
040762,000519: 30,3527           54156                           TS       MPAC       +2                         #  CDUZ
040763,000520: 
040764,000521: 30,3530           34755                           CA       ZERO                                  
040765,000522: 30,3531           03551                           TC       DVBYCOSM                              
040766,000523: 30,3532           34751                           CA       FOUR                                  
040767,000524: 30,3533           03551                           TC       DVBYCOSM                              
040768,000525: 30,3534           40141                           CS       TEM1                                  
040769,000526: 30,3535           03573                           TC       ARCTRGSP                              
040770,000527: 30,3536           54155                           TS       MPAC       +1                         #  CDUY
040771,000528: 
040772,000529: 30,3537           34750                           CA       BIT4                                  
040773,000530: 30,3540           03551                           TC       DVBYCOSM                              
040774,000531: 30,3541           33550                           CA       16OCT                                 
040775,000532: 30,3542           03551                           TC       DVBYCOSM                              
040776,000533: 30,3543           40141                           CS       TEM1                                  
040777,000534: 30,3544           03573                           TC       ARCTRGSP                              
040778,000535: 30,3545           54154                           TS       MPAC                                  #  CDUX
040779,000536: 
040780,000537: 30,3546           06036                           TC       INTPRET                               
040781,000538: 30,3547           77616                           RVQ                                            
040782,000539: 
040783,000540: 30,3550           00016        16OCT              OCT      16                                    
040784,000541: 

Page 920

040786,000543:                                                                                                  #  THE ELEMENTS OF THE NAV BASE MATRIX WHICH WE MUST DIVIDE BY COS(MGA)
040787,000544:                                                                                                  #  ALREADY CONTAIN COS(MGA)/2 AS A FACTOR. THEREFORE THE QUOTIENT SHOULD
040788,000545:                                                                                                  #  ORDINARILY NEVER EXCEED 1/2 IN MAGNITUDE.  BUT IF THE MGA IS NEAR PI/2
040789,000546:                                                                                                  #  THEN COS(MGA) IS NEAR ZERO, AND THERE MAY BE SOME CHAFF IN THE OTHER
040790,000547:                                                                                                  #  ELEMENTS OF THE MATRIX WHICH WOULD PRODUCE CHAOS UNDER DIVISION.
040791,000548:                                                                                                  #  BEFORE DIVIDING WE MAKE SURE COS(MGA) IS AT LEAST ONE BIT LARGER
040792,000549:                                                                                                  #  THAN THE MAGNITUDE OF THE HIGH ORDER PART OF THE OPERAND.
040793,000550: 
040794,000551:                                                                                                  #  IF ONE OR MORE DIVIDES CANNOT BE PERFORMED, THIS MEANS THAT THE
040795,000552:                                                                                                  #  REQUIRED MGA IS VERY NEARLY +-PI/2 AND THEREFORE THE OTHER GIMBAL
040796,000553:                                                                                                  #  ANGLES ARE INDETERMINATE.  THE INNER AND OUTER GIMBAL ANGLES RETURNED
040797,000554:                                                                                                  #  IN THIS CASE WILL BE RANDOM MULTIPLES OF PI/2.
040798,000555: 
040799,000556: 30,3551           60120        DVBYCOSM           AD       FIXLOC                                
040800,000557: 30,3552           54116                           TS       ADDRWD                                #  ADRES OF OPERAND
040801,000558: 
040802,000559: 30,3553           50116                           INDEX    ADDRWD                                #  FETCH NEG ABS OF OPERAND, AD TEM5, AND
040803,000560: 30,3554           30000                           CA       0                                     #      SKIP DIVIDE IF RESULT NEG OR ZERO
040804,000561: 30,3555           00006                           EXTEND                                         
040805,000562: 30,3556           63560                           BZMF     +2                                    
040806,000563: 30,3557           40000                           COM                                            
040807,000564: 30,3560           60145                           AD       TEM5                                  #  C(A) ZERO OR NEG, C(TEM5) ZERO OR POS
040808,000565: 30,3561           00006                           EXTEND                                         
040809,000566: 30,3562           63570                           BZMF     TSL&TCQ                               #  DIFFERENCE ALWAYS SMALL IF BRANCH
040810,000567: 
040811,000568: 30,3563           00006                           EXTEND                                         #  TEM5 EXCEEDS ABS HIGH ORDER PART OF
040812,000569: 30,3564           50116                           INDEX    ADDRWD                                #       OPERAND BY AT LEAST ONE BIT.
040813,000570: 30,3565           30001                           DCA      0                                     #       THEREFORE IT EXCEEDS THE DP OPERAND
040814,000571: 30,3566           00006                           EXTEND                                         #       AND DIVISION WILL ALWAYS SUCCEED.
040815,000572: 30,3567           10145                           DV       TEM5                                  
040816,000573: 30,3570           54001        TSL&TCQ            TS       L                                     
040817,000574: 30,3571           22141                           LXCH     TEM1                                  
040818,000575: 30,3572           00002                           TC       Q                                     
040819,000576: 

Page 921

040821,000578:                                                                                                  #  ARCTRGSP RETURNS THE 2'S COMPLEMENT, PI, SP ANGLE IN THE A REGISTER GIVEN ITS SINE IN A AND ITS COSINE IN L IN
040822,000579:                                                                                                  #  UNITS OF 2.  THE RESULT IS AN UNAMBIGUOUS ANGLE ANYWHERE IN THE CIRCLE, WITH A MAXIMUM ERROR OF +-4 BITS.
040823,000580:                                                                                                  #  THE ERROR IS PRODUCED BY THE SUBROUTINE SPARCSIN WHICH IS USED ONLY IN THE REGION +-45 DEGREES.
040824,000581: 
040825,000582: 30,3573           00006        ARCTRGSP           EXTEND                                         
040826,000583: 30,3574           13636                           BZF      SINZERO                               #  TO AVOID DIVIDING BY ZERO
040827,000584: 
040828,000585: 30,3575           00006                           EXTEND                                         
040829,000586: 30,3576           22144                           QXCH     TEM4                                  
040830,000587: 30,3577           54142                           TS       TEM2                                  
040831,000588: 30,3600           30001                           CA       L                                     
040832,000589: 30,3601           54143                           TS       TEM3                                  
040833,000590: 30,3602           34755                           CA       ZERO                                  
040834,000591: 30,3603           00006                           EXTEND                                         
040835,000592: 30,3604           10142                           DV       TEM2                                  
040836,000593: 30,3605           00006                           EXTEND                                         
040837,000594: 30,3606           13625                           BZF      USECOS                                
040838,000595: 
040839,000596: 30,3607           10143                           CCS      TEM3                                  #  SIN IS SMALLER OR EQUAL
040840,000597: 30,3610           34755                           CA       ZERO                                  
040841,000598: 30,3611           13615                           TCF      +4                                    
040842,000599: 30,3612           40142                           CS       TEM2                                  #  IF COS NEG, REVERSE SIGN OF SIN,
040843,000600: 30,3613           54142                           TS       TEM2                                  #       ANGLE = PI-ARCSIN(SIN)
040844,000601: 30,3614           34735                           CA       NEGMAX                                #  PICK UP PI, 2'S COMPLEMENT
040845,000602: 30,3615           54143                           TS       TEM3                                  #  WE NO LONGER NEED COS
040846,000603: 30,3616           30142                           CA       TEM2                                  
040847,000604: 30,3617           03643                           TC       SPARCSIN   -1                         
040848,000605: 30,3620           03714                           TC       ONESTO2S                              
040849,000606: 30,3621           00006                           EXTEND                                         
040850,000607: 30,3622           20143                           MSU      TEM3                                  
040851,000608: 30,3623           03714        1TO2&TCQ           TC       ONESTO2S                              
040852,000609: 30,3624           00144                           TC       TEM4                                  
040853,000610: 
040854,000611: 30,3625           40143        USECOS             CS       TEM3                                  #  COS IS SMALLER
040855,000612: 30,3626           03643                           TC       SPARCSIN   -1                         #  ANGLE = SIGN(SIN)(PI/2-ARCSIN(COS))
040856,000613: 30,3627           64736                           AD       HALF                                  
040857,000614: 30,3630           54143                           TS       TEM3                                  #  WE NO LONGER NEED COS
040858,000615: 30,3631           10142                           CCS      TEM2                                  
040859,000616: 30,3632           30143                           CA       TEM3                                  
040860,000617: 30,3633           13623                           TCF      1TO2&TCQ                              
040861,000618: 30,3634           40143                           CS       TEM3                                  
040862,000619: 30,3635           13623                           TCF      1TO2&TCQ                              
040863,000620: 
040864,000621: 30,3636           10001        SINZERO            CCS      L                                     
040865,000622: 30,3637           34755                           CA       ZERO                                  
040866,000623: 30,3640           00002                           TC       Q                                     
040867,000624: 30,3641           34735                           CA       NEGMAX                                #  PI, 2'S COMP
040868,000625: 30,3642           00002                           TC       Q                                     
040869,000626: 

Page 922

040871,000628:                                                                                                  #  SPARCSIN TAKES AN ARGUMENT SCALED UNITY IN A AND RETURNS AN ANGLE SCALED
040872,000629:                                                                                                  #  180 DEGREES IN A.  IT HAS BEEN UNIT TESTED IN THE REGION +-.94 (+-70
040873,000630:                                                                                                  #  DEGREES) AND THE MAXIMUM ERROR IS +-5 BITS WITH AN AVERAGE TIME OF
040874,000631:                                                                                                  #  450 MICROSECONDS.  SPARCSIN -1 TAKES THE ARGUMENT SCALED TWO.(BOB CRISP)
040875,000632: 
040876,000633: 30,3643           60000                           DOUBLE                                         
040877,000634: 30,3644           54021        SPARCSIN           TS       SR                                    
040878,000635: 30,3645           13651                           TCF      +4                                    
040879,000636: 30,3646           50000                           INDEX    A                                     
040880,000637: 30,3647           44734                           CS       LIMITS                                
040881,000638: 30,3650           54021                           TS       SR                                    
040882,000639: 30,3651           00006                           EXTEND                                         
040883,000640: 30,3652           70000                           MP       A                                     
040884,000641: 30,3653           54141                           TS       TEM1                                  
040885,000642: 30,3654           00006                           EXTEND                                         
040886,000643: 30,3655           73677                           MP       DPL9                                  
040887,000644: 30,3656           63676                           AD       DPL7                                  
040888,000645: 30,3657           00006                           EXTEND                                         
040889,000646: 30,3660           70141                           MP       TEM1                                  
040890,000647: 30,3661           63675                           AD       DPL5                                  
040891,000648: 30,3662           00006                           EXTEND                                         
040892,000649: 30,3663           70141                           MP       TEM1                                  
040893,000650: 30,3664           63674                           AD       DPL3                                  
040894,000651: 30,3665           00006                           EXTEND                                         
040895,000652: 30,3666           70141                           MP       TEM1                                  
040896,000653: 30,3667           63673                           AD       DPL1                                  
040897,000654: 30,3670           00006                           EXTEND                                         
040898,000655: 30,3671           70021                           MP       SR                                    
040899,000656: 30,3672           00002                           TC       Q                                     
040900,000657: 30,3673           24406        DPL1               DEC      10502      B-14                       
040901,000658: 30,3674           00660        DPL3               DEC      432        B-14                       
040902,000659: 30,3675           16204        DPL5               DEC      7300       B-14                       
040903,000660: 30,3676           50744        DPL7               DEC      -11803     B-14                       
040904,000661: 30,3677           20315        DPL9               DEC      8397       B-14                       
040905,000662: 

Page 923

040907,000664:                                                                                                  #  LIMITSUB LIMITS THE MAGNITUDE OF THE POSITIVE OR NEGATIVE VARIABLE
040908,000665:                                                                                                  #  ARRIVING IN L TO THE POSITIVE LIMIT ARRIVING IN A.
040909,000666:                                                                                                  #  THE SIGNED LIMITED VARIABLE IS RETURNED IN A.
040910,000667: 
040911,000668:                                                                                                  #  VERSION COURTESY HUGH BLAIR-SMITH
040912,000669: 
040913,000670: 30,3700           54141        LIMITSUB           TS       TEM1                                  
040914,000671: 30,3701           34755                           CA       ZERO                                  
040915,000672: 30,3702           00006                           EXTEND                                         
040916,000673: 30,3703           10141                           DV       TEM1                                  
040917,000674: 30,3704           10000                           CCS      A                                     
040918,000675: 30,3705           22141                           LXCH     TEM1                                  
040919,000676: 30,3706           13710                           TCF      +2                                    
040920,000677: 30,3707           13712                           TCF      +3                                    
040921,000678: 30,3710           30001                           CA       L                                     
040922,000679: 30,3711           00002                           TC       Q                                     
040923,000680: 30,3712           40141                           CS       TEM1                                  
040924,000681: 30,3713           00002                           TC       Q                                     
040925,000682: 
040926,000683:                                                                                                  #  SUBROUTINE TO CONVERT 1'S COMP SP TO 2'S COMP
040927,000684: 
040928,000685: 30,3714           10000        ONESTO2S           CCS      A                                     
040929,000686: 30,3715           64753                           AD       ONE                                   
040930,000687: 30,3716           00002                           TC       Q                                     
040931,000688: 30,3717           40000                           CS       A                                     
040932,000689: 30,3720           00002                           TC       Q                                     
040933,000690: 
040934,000691:                                                                                                  #  NO ATTITUDE CONTROL
040935,000692: 
040936,000693: 30,3721           05567        NOATTCNT           TC       ALARM                                 
040937,000694: 30,3722           00402                           OCT      00402                                 #  NO ATTITUDE CONTROL
040938,000695: 
040939,000696: 30,3723           00004                 +2        INHINT                                         #  COME HERE FOR NOATTCNT WITHOUT ALARM
040940,000697: 30,3724           04674                           TC       IBNKCALL                              #  RELINT AT TC INTPRET AFTER TCQCDUW
040941,000698: 30,3725           40165                           FCADR    STOPRATE                              
040942,000699: 30,3726           13446                           TCF      TCQCDUW                               #  RETURN TO USER SKIPPING AUTOPILOT CMDS
040943,000700: 
040944,000701:                                                                                                  #  MIDDLE GIMBAL ANGLE ALARM
040945,000702: 
040946,000703: 30,3727           05567        ALARMMGA           TC       ALARM                                 
040947,000704: 30,3730           00401                           OCT      00401                                 
040948,000705: 30,3731           13246                           TCF      MGARET                                
040949,000706: 

Page 924

040951,000708:                                                                                                  # ************************************************************************
040952,000709:                                                                                                  #  CONSTANTS
040953,000710:                                                                                                  # ************************************************************************
040954,000711: 
040955,000712:                                                                                                  #  ADDRESS CONSTANTS
040956,000713: 
040957,000714: 30,3732           03244        ECDUWL             ECADR    ECDUW                                 
040958,000715: 
040959,000716:                                                                                                  #  THRUST DIRECTION FILTER CONSTANTS
040960,000717: 
040961,000718: 30,3733           06315        GAINFLTR           DEC      .2                                    #  GAIN FILTER SANS CSM
040962,000719: 30,3734           03146                           DEC      .1                                    #  GAIN FILTER WITH CSM
040963,000720: 
040964,000721: 30,3735           00071        DUNFVLIM           DEC      .007       B-1                        #  7 MR MAX CHG IN F DIR IN VEH IN 2 SECS.
040965,000722:                                                                                                  #  THIS DOES NOT ALLOW FOR S/C ROT RATE.
040966,000723: 
040967,000724: 30,3736           02041        UNFVLIM            DEC      .129       B-1                        #  129 MR MAX THRUST OFFSET.  105 MR TRAVEL
040968,000725:                                                                                                  #  +10MR DEFL+5MR MECH MOUNT+9MR ABLATION.
040969,000726: 
040970,000727:                                                                                                  #  CONSTANTS RELATED TO GIMBAL ANGLE COMPUTATIONS
040971,000728: 
040972,000729: 30,3737           01673        DOTSWFMX           DEC      .93302     B-4                        #  LIM COLNRTY OF UNWC/2 & UNFC/2 TO 85 DEG
040973,000730:                                                                                                  #  LOWER PART COMES FROM NEXT CONSTANT
040974,000731: 
040975,000732: 30,3740           03434        DAXMAX             DEC      .11111111111                            #  DELATTX LIM TO 20 DEG IN 2 SECS, 1'S, PI
040976,000733: 30,3741           00266                           DEC      .0111111111                            #  2 DEG WHEN CSM DOCKED
040977,000734: 
040978,000735: 30,3742           01616        DAY/2MAX           DEC      .05555555555                            #  LIKEWISE FOR DELATTY
040979,000736: 30,3743           00133                           DEC      .0055555555                            
040980,000737: 
040981,000738: 30,3744  30,3740               DAZMAX             =        DAXMAX                                #  LIKEWISE FOR DELATTZ
040982,000739: 
040983,000740: 30,3744           14344        CDUZDLIM           DEC      .3888888888                            #  70 DEG LIMIT FOR MGA, 1'S, PI
040984,000741: 
040985,000742:                                                                                                  #  CONSTANTS FOR DATA TRANSFER
040986,000743: 
040987,000744: 30,3745           01463        DT/DELT            DEC      .05                                   #  .1 SEC/2 SEC WHICH IS THE AUTOPILOT
040988,000745:                                                                                                  #  CONTROL SAMPLE PERIOD/COMPUTATION PERIOD
040989,000746: 
040990,000747: 30,3746  30,3742               DELERLIM           =        DAY/2MAX                              #  10 DEG LIMIT FOR LAG ANGLES, 1'S, PI
040991,000748: 
040992,000749: 

End of include-file FINDCDUW_-_GUIDAP_INTERFACE.agc.  Parent file is MAIN.agc