Source Code

These source-code files were transcribed from scans made from Don Eyles's personal copy of BURST120 (SUNBURST 120). They were scanned at archive.org's Boston facility, and the scanning was sponsored by Mike Stewart. 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 in ALL-CAPS, whereas comments added later in transcription are in Mixed-Case. 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 BURST120 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:

	YUL SYSTEM FOR AGC: REVISION 0 OF PROGRAM BURST120 
	BY NASA 2021106-031 DEC 7, 1967

	THIS LISTING IS A COPY OF A VERSION OF THE PROGRAM INTENDED 
	FOR USE IN THE ON-BOARD PRIMARY GUIDANCE COMPUTER IN THE 
	UNMANNED FLIGHT OF APOLLO LUNAR MODULE 1 --- THE AS206 MISSION.
Note that the date is the date of the printout, not the date of the program revision.

031173,000002:                                                                                                  ## Copyright:    Public domain.
031174,000003:                                                                                                  ## Filename:     MP9-DPS_1_BURN.agc
031175,000004:                                                                                                  ## Purpose:      A module for revision 0 of BURST120 (Sunburst). It 
031176,000005:                                                                                                  ##               is part of the source code for the Lunar Module's
031177,000006:                                                                                                  ##               (LM) Apollo Guidance Computer (AGC) for Apollo 5.
031178,000007:                                                                                                  ## Assembler:    yaYUL
031179,000008:                                                                                                  ## Contact:      Ron Burkey <info@sandroid.org>.
031180,000009:                                                                                                  ## Website:      www.ibiblio.org/apollo/index.html
031181,000010:                                                                                                  ## Mod history:  2016-09-30 RSB  Created draft version.
031182,000011:                                                                                                  ##               2016-10-28 MAS  Transcribed.
031183,000012:                                                                                                  ##               2016-11-01 RSB  Typos.
031184,000013:                                                                                                  ##               2016-12-06 RSB  Comments proofed using octopus/ProoferComments,
031185,000014:                                                                                                  ##                               changes made.
031186,000015: 

Page 728

031188,000017:                                                                                                  #  MISSION PHASE 9
031189,000018: 
031190,000019: 33,2724                                           BANK     33                                    
031191,000020: 33,2724  E4,1566                                  EBANK=   TDEC                                  
031192,000021:                                                                                                  #  PROGRAM DESCRIPTION-MISSION PHASE9-DPS1 BURN                            DATE-28 OCT 66
031193,000022:                                                                                                  #  MOD NO-2                                                                LOG SECTION-MP9
031194,000023:                                                                                                  #  MOD BY- CHO                                                             ASSEMBLY-SUNBURST REV24
031195,000024: 
031196,000025:                                                                                                  #  FUNCTIONAL DESCRIPTION
031197,000026:                                                                                                  #          THIS PHASE IS STARTED 3HOUR 1MIN AND 49SECS AFTER THE TERMINATI ON OF SIVB/LEM SEPARATION +X TRANSLATI
031198,000027:                                                                                                  #  ON AND BY THE INITIATION OF PROGRAM 31 (PRE-DPS1 BURN). PROGRAM 31      CALLS FOR DPS CUTOFF TDI 5MIN AND
031199,000028:                                                                                                  #  15SECS LATER. IN ORDER TO ALIGN THE VEHICLE THRUST AXIS ALONG THE DESIRED ACCELERATION VECTOR DURING PRE-DPS1
031200,000029:                                                                                                  #  PHASE, THE FOLLOWING COMPUTATIONS ARE MADE - VEHICLE STATE VECTOR FORWARD INTEGRATION TO THE DESCENT
031201,000030:                                                                                                  #  INJECTION CUTOFF TIME TDI, VELOCITY TO BE GAINED VG, THE MANEUVER THRUST TIME TTHRUST, DPS1 IGNITION TIME TIGN
031202,000031:                                                                                                  #  AND FINALLY DESIRED THRUST DIRECTION UNITVG. PROGRAM 31 ALSO COMMANDS LANDING GEAR DEPLOYMENT AND CALL FOR
031203,000032:                                                                                                  #  A MANEUVER TO THE FIRING ATTITUDE.
031204,000033:                                                                                                  #          PROGRAM 41, DPS1 BURN IS STARTED 36SECS BEFORE IGNITION. THIS PROGRAM ARMS THE DESCENT ENGINE,
031205,000034:                                                                                                  #  COMMANDS +X TRANSLATION AND COMMANDS ENGINE ON. DURING THE BURN, THE VELOCITY TO BE GAINED  AND TIME TO
031206,000035:                                                                                                  #  CUTOFF TGO ARE COMPUTED EVERY TWO SECONDS. WHEN TGO FALLS BELOW THE CRITICAL VALUE ENGINE OFF SIGNAL COUNTER
031207,000036:                                                                                                  #  IS SET. WHEN POST ENGINE CUTOFF ROUTINE IS PERFORMED, MPENTRY NO.1 IS SET TO START MP11 IN 31MIN 11SECS.
031208,000037: 
031209,000038:                                                                                                  #  CALLING SEQUENCE- AFTER THE TERMINATION OF SIVB/LEM SEPARATION +X TRANSLATION AND BY THE INITIATION OF
031210,000039:                                                                                                  #  PROGRAM 31.
031211,000040: 
031212,000041:                                                                                                  #  NORMAL EXIT MODES- TASKOVER (AWAITS MPENTRY INTO MP11 VIA NO.1)
031213,000042: 
031214,000043:                                                                                                  #  ALARM EXIT MODE- NONE
031215,000044: 
031216,000045:                                                                                                  #  SUBROUTINES CALLED- FIXDELAY, 1LMP, 2LMP, EXECUTIVE, MIDTOAVE, BANKCALL, IBNKCALL, WAITLIST, KALCMANU,
031217,000046:                                                                                                  #  UL4JETON, UL4JETOFF, ENGINEON, ENGINOFF, NEWMODEX, DFITCAL, RVUPDADR, TPAGREE, TASKOVER, ENDOFJOB, ENGOF1
031218,000047: 
031219,000048: 
031220,000049:                                                                                                  #  INPUT- RN, VN, RP, MUEARTH, TDI
031221,000050: 
031222,000051:                                                                                                  #  OUTPUT- VG, TTHRUST, TIGN, UNITVG, TGO
031223,000052: 
031224,000053:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED-
031225,000054: 
031226,000055:                                                                                                  #  DEBRIS- TDEC
031227,000056: 
031228,000057: 33,2724           37753        MP9JOB             CAF      BIT9                                  
031229,000058: 33,2725           04105                           TC       SETRSTRT                              #  SET RESTART FLAG
031230,000059: 
031231,000060: 33,2726           04117                           TC       NEWMODEX                              #  DISPLAY PROG. NO.
031232,000061: 33,2727           00031                           OCTAL    31                                    
031233,000062: 
031234,000063: 33,2730  E4,1566                                  EBANK=   TDEC                                  
031235,000064: 33,2730           00006                           EXTEND                                         
031236,000065: 33,2731           30025                           DCA      TIME2                                 #  PICK UP CURRENT TIME
031237,000066: 33,2732           53666                           DXCH     TDI                                   
031238,000067: 

Page 729

031240,000069: 33,2733           00006                           EXTEND                                         
031241,000070: 33,2734           33502                           DCA      5M15S                                 
031242,000071: 33,2735           21666                           DAS      TDI                                   #  SET TDI=TIME2+5M15S
031243,000072: 
031244,000073: 33,2736           33465                           CAF      EQU2ADR                               #  SET COMPUTATIINAL STEPS
031245,000074: 33,2737           55662                           TS       SHJUMP1                               
031246,000075: 
031247,000076: 33,2740           04161                           TC       PHASCHNG                              
031248,000077: 33,2741           05022                           OCT      05022                                 
031249,000078: 33,2742           20000                           OCT      20000                                 
031250,000079: 
031251,000080: 33,2743           00006                           EXTEND                                         
031252,000081: 33,2744           31666                           DCA      TDI                                   
031253,000082: 33,2745           53567                           DXCH     TDEC                                  
031254,000083: 33,2746           00006                           EXTEND                                         
031255,000084: 33,2747           33474                           DCA      RVUPDADR                              #  STATE VECTOR UPDATE FOR PRE-DPS1 BURN
031256,000085: 33,2750           52006                           DXCH     Z                                     
031257,000086: 
031258,000087: 33,2751           04161                           TC       PHASCHNG                              
031259,000088: 33,2752           04022                           OCT      04022                                 
031260,000089: 
031261,000090: 33,2753           06112                           TC       INTPRET                               
031262,000091: 33,2754           77624                           CALL                                           
031263,000092: 33,2755           60436                                    VPATCHER                              #  RESCALE AND LOAD TDI STATES IN RN AN VN
031264,000093: 33,2756           77650                           GOTO                                           
031265,000094: 33,2757           67420                                    DPS1EQU1   +1                         #  COMPUTES VELOCITY TO BE GAINED.
031266,000095: 
031267,000096: 33,2760           77745        DPS1EQU2           DLOAD                                          #  COMPUTES MANEUVER THRUST TIME
031268,000097: 33,2761           00045                                    LV                                    #  ABVAL(VG)
031269,000098: 33,2762           45261                           SR       DSU                                   
031270,000099: 33,2763           20613                                    10D                                   #  NOW VG SCALED AT 2(+17)M/CS
031271,000100: 33,2764           27504                                    DPA                                   
031272,000101: 33,2765           43271                           DDV      DAD                                   
031273,000102: 33,2766           27506                                    DPB                                   
031274,000103: 33,2767           27510                                    DPC                                   
031275,000104: 33,2770           26264                           STOVL    TTHRUST                               #  SCALED AT 2(+28)CS
031276,000105: 33,2771           02272                                    UNITVG                                
031277,000106: 33,2772           25656                           STOVL    POINTVSM                              #  KALCMANU INPUT REGISTER
031278,000107: 33,2773           26641                                    BODYVECT                              #  LOAD BODY AXES VECTOR IN SM COORD.
031279,000108: 33,2774           01664                           STORE    SCAXIS                                #  KALCMANU INPUT VECTOR
031280,000109: 33,2775           66214                           SET      SSP                                   
031281,000110: 33,2776           01063                                    33D                                   
031282,000111: 33,2777           01653                                    RATEINDX                              
031283,000112: 33,3000           00004                                    4                                     #  SET KALCMANU FOR ANGULAR RATE OF 5DEG/S
031284,000113: 33,3001           77776                           EXIT                                           
031285,000114: 
031286,000115: 33,3002           04161                           TC       PHASCHNG                              
031287,000116: 33,3003           04022                           OCT      04022                                 
031288,000117: 
031289,000118: 33,3004           00004                           INHINT                                         
031290,000119: 

Page 730

031292,000121: 33,3005           00006                           EXTEND                                         
031293,000122: 33,3006           41664                           DCS      TTHRUST                               #  COMPUTES TIGN
031294,000123: 33,3007           53670                           DXCH     TIGN                                  
031295,000124: 
031296,000125: 33,3010           00006                           EXTEND                                         
031297,000126: 33,3011           31666                           DCA      TDI                                   
031298,000127: 33,3012           21670                           DAS      TIGN                                  #  TIGN=TDI-TTHRUST  (SCALED AT 2(+28)CS)
031299,000128: 33,3013           33466                           CAF      EQU3ADR                               
031300,000129: 33,3014           55662                           TS       SHJUMP1                               
031301,000130: 
031302,000131: 33,3015           33521                           CAF      70SECS9                               #  CALL POSTKALC 70 SECS LATER
031303,000132: 33,3016           05663                           TC       WAITLIST                              
031304,000133: 33,3017  E4,1566                                  EBANK=   TDEC                                  
031305,000134: 33,3017           03036 66064                     2CADR    POSTKALC                              
031306,000135: 
031307,000136: 33,3021           04161                           TC       PHASCHNG                              
031308,000137: 33,3022           40042                           OCT      40042                                 
031309,000138: 
031310,000139: 33,3023           00004        CALLKALC           INHINT                                         
031311,000140: 33,3024           35642                           CAF      PRIO16                                #  CALL KALCMANU JOB.
031312,000141: 33,3025           05516                           TC       FINDVAC                               
031313,000142: 33,3026  E3,1535                                  EBANK=   MIS                                   
031314,000143: 33,3026           02001 70063                     2CADR    VECPOINT                              
031315,000144: 
031316,000145: 33,3030           05206                           TC       BANKCALL                              
031317,000146: 33,3031           26743                           CADR     ATTSTALL                              #  SEE IF KALCMANU FINISHED
031318,000147: 33,3032           04743        CURT9              TC       CURTAINS                              #  UNFINISHED MANEUVER
031319,000148: 
031320,000149: 33,3033           04161                           TC       PHASCHNG                              
031321,000150: 33,3034           00432                           OCT      00432                                 #  2.43 FOR POSTKALC.  DON'T RESET TBASE.
031322,000151: 
031323,000152: 33,3035           15567                           TCF      ENDOFJOB                              #  GOOD RETURN- END MP9JOB
031324,000153: 
031325,000154: 33,3036           40076        POSTKALC           CS       FLAGWRD2                              #  CHECK WHETHER KALCMANU IS FINISHED.
031326,000155: 33,3037           77751                           MASK     BIT11                                 
031327,000156: 33,3040           10000                           CCS      A                                     
031328,000157: 
031329,000158: 33,3041           03047                           TC       GOODKALC                              #  GOOD RETURN
031330,000159: 
031331,000160: 33,3042           35660                           CAF      PRIO37                                #  BAD RETURN
031332,000161: 33,3043           05516                           TC       FINDVAC                               
031333,000162: 33,3044  E4,1566                                  EBANK=   TDEC                                  
031334,000163: 33,3044           03032 66064                     2CADR    CURT9                                 
031335,000164: 
031336,000165: 33,3046           05727                           TC       TASKOVER                              #  END POSTKALC TASK
031337,000166: 
031338,000167: 33,3047           05101        GOODKALC           TC       1LMP+DT                               
031339,000168: 33,3050           00354                           DEC      236        B-14                       #  DFI T/M CALIBRATE - ON *
031340,000169: 33,3051           02260                           DEC      1200       B-14                       
031341,000170: 

Page 731

031343,000172: 33,3052           05073                           TC       2LMP+DT                               
031344,000173: 33,3053           00355                           DEC      237        B-14                       #  DFI T/M CALIBRATE - OFF *
031345,000174: 33,3054           00306                           DEC      198        B-14                       #  MASTER C&W ALARM RESET - COMMAND **
031346,000175: 33,3055           00310                           DEC      200        B-14                       
031347,000176: 
031348,000177: 33,3056           05101                           TC       1LMP+DT                               
031349,000178: 33,3057           00307                           DEC      199        B-14                       #  MASTER C&W ALARM RESET - COMMAND RESET
031350,000179: 33,3060           00001                           DEC      1          B-14                       
031351,000180: 
031352,000181: 33,3061           00006                           EXTEND                                         #  CALL DPS1 BURN PROG. AT TIGN-36SECS.
031353,000182: 33,3062           40025                           DCS      TIME2                                 
031354,000183: 33,3063           52062                           DXCH     ITEMP1                                
031355,000184: 33,3064           00006                           EXTEND                                         
031356,000185: 33,3065           31670                           DCA      TIGN                                  
031357,000186: 33,3066           20062                           DAS      ITEMP1                                
031358,000187: 33,3067           00006                           EXTEND                                         
031359,000188: 33,3070           43500                           DCS      66SECSD9                              
031360,000189: 33,3071           20062                           DAS      ITEMP1                                
031361,000190: 33,3072           00006                           EXTEND                                         
031362,000191: 33,3073           30062                           DCA      ITEMP1                                
031363,000192: 33,3074           53305                           DXCH     TDECTEMP                              #  FOR RESTARTS.
031364,000193: 33,3075           52062                           DXCH     ITEMP1                                
031365,000194: 
031366,000195: 33,3076           05741                           TC       LONGCALL                              
031367,000196: 33,3077  E4,1566                                  EBANK=   TDEC                                  
031368,000197: 33,3077           03134 66064                     2CADR    TIG9-66                               
031369,000198: 
031370,000199: 33,3101           04161                           TC       PHASCHNG                              
031371,000200: 33,3102           20134                           OCT      20134                                 #  4.13 FOR TIG9-66 LONGCALL.
031372,000201: 
031373,000202: 33,3103           33520                           CAF      11SECS9                               
031374,000203: 33,3104           05663                           TC       WAITLIST                              
031375,000204: 33,3105  E4,1566                                  EBANK=   TDEC                                  
031376,000205: 33,3105           03112 66064                     2CADR    182LMP                                
031377,000206: 
031378,000207: 33,3107           04161                           TC       PHASCHNG                              
031379,000208: 33,3110           40452                           OCT      40452                                 #  2.45 FOR 182LMP TASK.
031380,000209: 
031381,000210: 33,3111           15727                           TCF      TASKOVER                              #  END GOODKALC TASK
031382,000211: 
031383,000212: 33,3112           05073        182LMP             TC       2LMP+DT                               
031384,000213: 33,3113           00266                           DEC      182        B-14                       #  LANDING RADAR POWER ON
031385,000214: 33,3114           00032                           DEC      26         B-14                       #  RADAR SELF TEST-ON
031386,000215: 33,3115           11444                           DEC      4900       B-14                       
031387,000216: 
031388,000217: 33,3116           05101                           TC       1LMP+DT                               
031389,000218: 33,3117           00004                           DEC      4          B-14                       #  ED BATTERY ACTIVATION -ON
031390,000219: 33,3120           00764                           DEC      500        B-14                       
031391,000220: 
031392,000221: 33,3121           05101                           TC       1LMP+DT                               

Page 732

031394,000223: 33,3122           00010                           DEC      8          B-14                       #  LANDING GEAR DEPLOY -FIRE
031395,000224: 33,3123           00310                           DEC      200        B-14                       
031396,000225: 
031397,000226: 33,3124           05101                           TC       1LMP+DT                               
031398,000227: 33,3125           00011                           DEC      9          B-14                       #  LANDING GEAR DEPLOY- FIRE RESET
031399,000228: 33,3126           00620                           DEC      400        B-14                       
031400,000229: 
031401,000230: 33,3127           05060                           TC       1LMP                                  
031402,000231: 33,3130           00033                           DEC      27         B-14                       #  RADAR SELF-TEST - OFF.
031403,000232: 
031404,000233: 33,3131           04161                           TC       PHASCHNG                              
031405,000234: 33,3132           00002                           OCT      00002                                 #  GROUP 2 OFF.
031406,000235: 
031407,000236: 33,3133           05727                           TC       TASKOVER                              #  END 182LMP TASK
031408,000237: 
031409,000238: 33,3134           04117        TIG9-66            TC       NEWMODEX                              #  DISPLAY PROGRAM NUMBER ON DSKY
031410,000239: 33,3135           00041                           OCT      41                                    
031411,000240: 
031412,000241: 33,3136           05270                           TC       IBNKCALL                              
031413,000242: 33,3137           40277                           CADR     ENGINOF1                              
031414,000243: 
031415,000244: 33,3140           05052                           TC       2LMP                                  
031416,000245: 33,3141           00226                           DEC      150        B-14                       #  ENGINE SELECT DESC ARM
031417,000246: 33,3142           00126                           DEC      86         B-14                       #  MANUAL THROTTLE ON (10PERCENT)
031418,000247: 
031419,000248: 33,3143           33516                           CAF      50SECS9                               
031420,000249: 33,3144           05663                           TC       WAITLIST                              
031421,000250: 33,3145  E4,1566                                  EBANK=   TDEC                                  
031422,000251: 33,3145           03450 66064                     2CADR    228LMP                                
031423,000252: 
031424,000253: 33,3147           35651                           CAF      PRIO27                                
031425,000254: 33,3150           05516                           TC       FINDVAC                               
031426,000255: 33,3151  E4,1566                                  EBANK=   TDEC                                  
031427,000256: 33,3151           03157 66064                     2CADR    ORBINTJB                              
031428,000257: 
031429,000258: 33,3153           04141                           TC       2PHSCHNG                              
031430,000259: 33,3154           40472                           OCT      40472                                 #  2.47 FOR 228LMP TASK.
031431,000260: 33,3155           00154                           OCT      00154                                 #  4.15 FOR ORBINTJB JOB.
031432,000261: 
031433,000262: 33,3156           15727                           TCF      TASKOVER                              #  END TIG9-66 TASK
031434,000263: 
031435,000264: 33,3157           00006        ORBINTJB           EXTEND                                         
031436,000265: 33,3160           31670                           DCA      TIGN                                  
031437,000266: 33,3161           53567                           DXCH     TDEC                                  
031438,000267: 33,3162           43517                           CS       30SECS9                               
031439,000268: 33,3163           54001                           TS       L                                     
031440,000269: 33,3164           47767                           CS       ZERO                                  
031441,000270: 33,3165           21567                           DAS      TDEC                                  #  TDEC NOW CONTAINS TIGN-30 SECS.
031442,000271: 
031443,000272: 33,3166           00006                           EXTEND                                         

Page 733

031445,000274: 33,3167           32654                           DCA      ORBINTAD                              
031446,000275: 33,3170           52006                           DXCH     Z                                     
031447,000276: 
031448,000277: 33,3171           04161                           TC       PHASCHNG                              
031449,000278: 33,3172           05024                           OCT      05024                                 
031450,000279: 33,3173           27000                           OCT      27000                                 
031451,000280: 
031452,000281:                                                                                                  #  RN AND VN IN STABLE MEMBER COORDINATES. SCALING IS AS IN AVEG.
031453,000282: 
031454,000283:                                                                                                  #           DELETE
031455,000284: 33,3174           32646                           CAF      AVGENADR                              
031456,000285: 33,3175           55310                           TS       DVSELECT                              #  SELECT AGS MONITOR
031457,000286: 
031458,000287: 33,3176           00006                           EXTEND                                         
031459,000288: 33,3177           32652                           DCA      EXITADR                               
031460,000289: 33,3200           53073                           DXCH     AVGEXIT                               #  SET AVERAGEG EXIT
031461,000290: 
031462,000291: 33,3201           00006                           EXTEND                                         
031463,000292: 33,3202           33472                           DCA      MP9TM1AD                              
031464,000293: 33,3203           53075                           DXCH     DVMNEXIT                              #  SET MONITOR EXIT
031465,000294: 
031466,000295: 33,3204           00004                           INHINT                                         
031467,000296: 33,3205           43517                           CS       30SECS9                               #  CALL PREREAD AT TIGN-30SECS.
031468,000297: 33,3206           02663                           TC       TASKSETR                              
031469,000298: 33,3207           55342                           TS       RSDTTEMP                              #  FOR RESTARTS.
031470,000299: 33,3210           05663                           TC       WAITLIST                              
031471,000300: 33,3211  E5,1506                                  EBANK=   DVTOTAL                               
031472,000301: 33,3211           02000 60065                     2CADR    PREREAD                               
031473,000302: 
031474,000303: 33,3213           04141                           TC       2PHSCHNG                              
031475,000304: 33,3214           40355                           OCT      40355                                 #  5.35 FOR PREREAD.
031476,000305: 33,3215           04024                           OCT      04024                                 
031477,000306: 
031478,000307: 33,3216           00004                           INHINT                                         
031479,000308: 33,3217           47767                           CS       ZERO                                  #  CALL TVC FOR DPS1 AT IGNITION TIME
031480,000309: 33,3220           02663                           TC       TASKSETR                              
031481,000310: 33,3221           55305                           TS       TDECTEMP   +1                         #  FOR RESTARTS.
031482,000311: 33,3222           05663                           TC       WAITLIST                              
031483,000312: 33,3223     1072                                  EBANK=   AVGEXIT                               
031484,000313: 33,3223           03230 66062                     2CADR    TIG9-0                                
031485,000314: 
031486,000315: 33,3225           04161                           TC       PHASCHNG                              
031487,000316: 33,3226           40174                           OCT      40174                                 #  4.17 FOR TIG9-0.
031488,000317: 
031489,000318: 33,3227           15567                           TCF      ENDOFJOB                              #  END ORBITAL INTEGRATION JOB
031490,000319: 
031491,000320: 33,3230           00006        TIG9-0             EXTEND                                         
031492,000321: 33,3231           33470                           DCA      EQU1ADR                               
031493,000322: 33,3232           53073                           DXCH     AVGEXIT                               #  AVG ROUTINE GOES TO VG COMPUTATION
031494,000323: 

Page 734

031496,000325: 33,3233           05270                           TC       IBNKCALL                              
031497,000326: 33,3234           40226                           CADR     DPSENGON                              

The above line has a green arrow pointing to it.

031499,000328: 
031500,000329: 33,3235           04141                           TC       2PHSCHNG                              
031501,000330: 33,3236           00004                           OCT      00004                                 
031502,000331: 33,3237           40512                           OCT      40512                                 #  2.51 FOR 9ULLOFF TASK.
031503,000332: 
031504,000333: 33,3240           05701                           TC       FIXDELAY                              
031505,000334: 33,3241           00062                           DEC      50         B-14                       
031506,000335: 
031507,000336: 33,3242           05270        9ULLOFF            TC       IBNKCALL                              
031508,000337: 33,3243           40066                           CADR     NOULLAGE                              #  +X TRANSLATION-  OFF
031509,000338: 
031510,000339: 33,3244           04161                           TC       PHASCHNG                              
031511,000340: 33,3245           40532                           OCT      40532                                 #  2.53 FOR 9EDBATT.
031512,000341: 
031513,000342: 33,3246           05701                           TC       FIXDELAY                              
031514,000343: 33,3247           00372                           DEC      250        B-14                       
031515,000344: 
031516,000345: 33,3250           05101        9EDBATT            TC       1LMP+DT                               
031517,000346: 33,3251           00005                           DEC      5          B-14                       #  ED BATTERY ACTIVATION-SAFE
031518,000347: 33,3252           04374                           DEC      2300       B-14                       
031519,000348: 
031520,000349: 33,3253           04141                           TC       2PHSCHNG                              
031521,000350: 33,3254           00002                           OCT      2                                     
031522,000351: 33,3255           05014                           OCT      05014                                 #  THROTTLE PROGRAM TAKES OVER GP 4.
031523,000352: 33,3256           77777                           OCT      77777                                 
031524,000353: 
031525,000354: 33,3257           37743                           CAF      POSMAX                                #  CALL FOR MAXIMUM THRUST.
031526,000355: 33,3260           55323                           TS       PCNTF                                 
031527,000356: 33,3261           00006                           EXTEND                                         
031528,000357: 33,3262           32656                           DCA      PCNTFMAD                              
031529,000358: 33,3263           52006                           DTCB                                           
031530,000359: 
031531,000360: 33,3264           15727                           TCF      TASKOVER                              #  END TIG9-0 TASK
031532,000361: 
031533,000362: 33,3265           77624        DPS1EQU3           CALL                                           
031534,000363: 33,3266           67277                                    CALCTGO                               
031535,000364: 33,3267           77775                           VLOAD                                          
031536,000365: 33,3270           02272                                    UNITVG                                
031537,000366: 33,3271           02233                           STORE    AXISD                                 #  FINDCDUD INPUT
031538,000367: 33,3272           77624                           CALL                                           
031539,000368: 33,3273           60703                                    FINDCDUD                              
031540,000369: 
031541,000370: 33,3274           77776                           EXIT                                           
031542,000371: 33,3275           05225                           TC       POSTJUMP                              
031543,000372: 33,3276           60324                           CADR     SERVEXIT                              
031544,000373: 
031545,000374: 33,3277           45345        CALCTGO            DLOAD    DSU                                   
031546,000375: 33,3300           00045                                    LV                                    #  ABVAL(VG)

Page 735

031548,000377: 33,3301           03574                                    VTAILOFF                              
031549,000378: 33,3302           56205                           DMP      DDV                                   
031550,000379: 33,3303           27512                                    DELTAT9                               
031551,000380: 33,3304           02535                                    ABDELV                                
031552,000381: 33,3305           02346                           STORE    TTGO                                  #  FOR DWLK ONLY
031553,000382: 
031554,000383: 33,3306           44234                           RTB      BDSU                                  
031555,000384: 33,3307           33454                                    LOADTIME                              
031556,000385: 33,3310           01307                                    PIPTIME                               
031557,000386: 33,3311           47015                           DAD      RTB                                   
031558,000387: 33,3312           02346                                    TTGO                                  
031559,000388: 33,3313           33520                                    SGNAGREE                              
031560,000389: 33,3314           02141                           STORE    TGO                                   
031561,000390: 
031562,000391: 33,3315           51025                           DSU      BPL                                   
031563,000392: 33,3316           27476                                    4SECSD9                               
031564,000393: 33,3317           00052                                    QPRET                                 
031565,000394: 33,3320           77776                           EXIT                                           
031566,000395: 
031567,000396: 33,3321           00004                           INHINT                                         
031568,000397: 33,3322           31541                           CAE      TGO        +1                         
031569,000398: 33,3323           00006                           EXTEND                                         
031570,000399: 33,3324           63347                           BZMF     CUTOFF2                               #  CUT OFF ENGINE IMMEDIATELY IF TGO NEG
031571,000400: 33,3325           55304        CUTOFF1            TS       TDECTEMP                              #  FOR RESTARTS.
031572,000401: 33,3326           05663                           TC       WAITLIST                              
031573,000402: 33,3327     0766                                  EBANK=   CDUXD                                 
031574,000403: 33,3327           03340 66061                     2CADR    CUTOFF                                
031575,000404: 
031576,000405: 33,3331           00006                           EXTEND                                         #  STOPS GUIDANCE EQUATION LOOP
031577,000406: 33,3332           32652                           DCA      EXITADR                               
031578,000407: 33,3333           53073                           DXCH     AVGEXIT                               
031579,000408: 
031580,000409: 33,3334           04141                           TC       2PHSCHNG                              
031581,000410: 33,3335           40552                           OCT      40552                                 #  2.55 FOR CUTOFF TASK.
031582,000411: 33,3336           00035                           OCT      00035                                 #  5.3 FOR SERVICER.
031583,000412: 
031584,000413: 33,3337           15567                           TCF      ENDOFJOB                              #  END DPS1 BURN EQUATION JOB
031585,000414: 
031586,000415: 33,3340           05270        CUTOFF             TC       IBNKCALL                              
031587,000416: 33,3341           40263                           CADR     ENGINOFF                              
031588,000417: 
031589,000418: 33,3342           05270                           TC       IBNKCALL                              
031590,000419: 33,3343           40114                           CADR     STOPRATE                              #  HOLD VEHICLE ATTITUDE
031591,000420: 
031592,000421: 33,3344           04161                           TC       PHASCHNG                              
031593,000422: 33,3345           00002                           OCT      2                                     #  2 OFF.  SERVICER TO RETURN TO MP9TERM1.
031594,000423: 
031595,000424: 33,3346           15727                           TCF      TASKOVER                              #  END CUTOFF TASK
031596,000425: 
031597,000426: 33,3347           37763        CUTOFF2            CAF      BIT1                                  
031598,000427: 

Page 736

031600,000429: 33,3350           13325                           TCF      CUTOFF1                               
031601,000430: 
031602,000431: 33,3351           00004        MP9TERM1           INHINT                                         
031603,000432: 33,3352           33515                           CAF      5SECS9                                
031604,000433: 33,3353           05663                           TC       WAITLIST                              
031605,000434: 33,3354  E4,1566                                  EBANK=   TDEC                                  
031606,000435: 33,3354           03362 66064                     2CADR    87LMP                                 
031607,000436: 
031608,000437: 33,3356           04161                           TC       PHASCHNG                              
031609,000438: 33,3357           40572                           OCT      40572                                 #  2.57 FOR 87LMP TASK.
031610,000439: 
031611,000440: 33,3360           05225                           TC       POSTJUMP                              
031612,000441: 33,3361           60324                           CADR     SERVEXIT                              
031613,000442: 
031614,000443: 33,3362           05073        87LMP              TC       2LMP+DT                               
031615,000444: 33,3363           00127                           DEC      87         B-14                       #  MANUAL THROTTLE - RESET (30 PERCENT.)
031616,000445: 33,3364           00227                           DEC      151        B-14                       #  ENGINE SELECT-DESC ARM-OFF
031617,000446: 33,3365           01750                           DEC      1000       B-14                       
031618,000447: 
031619,000448: 33,3366           05073                           TC       2LMP+DT                               
031620,000449: 33,3367           00365                           DEC      245        B-14                       #  DPS PQGS NO1 - OFF
031621,000450: 33,3370           00325                           DEC      213        B-14                       #  DPS PQGS NO2 - OFF
031622,000451: 33,3371           00144                           DEC      100        B-14                       
031623,000452: 
031624,000453: 33,3372           05073                           TC       2LMP+DT                               
031625,000454: 33,3373           00345                           DEC      229        B-14                       #  DPS PQGS ARM NO1 DISABLE
031626,000455: 33,3374           00305                           DEC      197        B-14                       #  DPS PQGS ARM NO2 DISABLE
031627,000456: 33,3375           02570                           DEC      1400       B-14                       
031628,000457: 
031629,000458: 33,3376           05270                           TC       IBNKCALL                              
031630,000459: 33,3377           40054                           CADR     SETMAXDB                              
031631,000460: 
031632,000461: 33,3400           05101                           TC       1LMP+DT                               
031633,000462: 33,3401           00032                           DEC      26         B-14                       #  RADAR SELF TEST ON
031634,000463: 33,3402           13560                           DEC      6000       B-14                       
031635,000464: 
031636,000465: 33,3403           05052                           TC       2LMP                                  
031637,000466: 33,3404           00033                           DEC      27         B-14                       #  RADAR SELF TEST POWER - OFF
031638,000467: 33,3405           00267                           DEC      183        B-14                       #  LANDING RADAR POWER - OFF
031639,000468: 
031640,000469: 33,3406           05126                           TC       MPENTRY                               #  CALL NEXT MISSION ENTRY ROUTINE
031641,000470: 33,3407           00001                           DEC      1          B-14                       
031642,000471: 33,3410           00013                           DEC      11         B-14                       
031643,000472: 33,3411           01752                           ADRES    MP9-11DT                              
031644,000473: 
031645,000474: 33,3412           06067                           TC       FLAG1DWN                              #  KNOCK DOWN AVERAGEG FLAG
031646,000475: 33,3413           00001                           OCT      00001                                 
031647,000476: 
031648,000477: 33,3414           04161                           TC       PHASCHNG                              
031649,000478: 33,3415           00002                           OCT      2                                     
031650,000479: 

Page 737

031652,000481: 33,3416           15727                           TCF      TASKOVER                              #  MISSION PHASE 9 COMPLETE
031653,000482: 
031654,000483: 33,3417           06112        DPS1EQU1           TC       INTPRET                               
031655,000484: 33,3420           47375                 +1        VLOAD    VXV                                   
031656,000485: 33,3421           01017                                    VN                                    #  VN SCALED AT 2(+7)M/CS
031657,000486: 33,3422           01033                                    UNITR                                 #  UNITR IS UNIT VECTOR ALONG RN
031658,000487: 33,3423           63256                           UNIT     PDVL                                  
031659,000488: 33,3424           01033                                    UNITR                                 
031660,000489: 33,3425           77635                           VXV                                            
031661,000490: 33,3426           43325                           PDDL     DAD                                   
031662,000491: 33,3427           02355                                    RP                                    #  TARGET DISTANCE - PERIGEE OR APOGEE
031663,000492: 33,3430           01047                                    RMAG                                  #  RP AND RMAG SCALED AT 2(+24)M
031664,000493: 33,3431           65205                           DMP      PDDL                                  
031665,000494: 33,3432           01047                                    RMAG                                  
031666,000495: 33,3433           02355                                    RP                                    
031667,000496: 33,3434           56205                           DMP      DDV                                   
031668,000497: 33,3435           27514                                    2MUERTH9                              #  SCALED AT 2(+38)M(3)/CS(2).
031669,000498: 33,3436           74366                           SQRT     VXSC                                  
031670,000499: 33,3437           77752                           VSL2                                           
031671,000500: 33,3440           02324                           STORE    VDVECT                                #  FOR DWNLK ONLY. SCALED AT 2(+7)M/CS
031672,000501: 
031673,000502: 33,3441           77651                           VSU                                            
031674,000503: 33,3442           01017                                    VN                                    
031675,000504: 33,3443           02332                           STORE    VGVECT                                #  FOR DWNLK ONLY. SCALED AT 2(+7)M/CS
031676,000505: 
031677,000506: 33,3444           77656                           UNIT                                           #  LEAVES ABVAL IN LV
031678,000507: 33,3445           02272                           STORE    UNITVG                                
031679,000508: 
031680,000509: 33,3446           77650                           GOTO                                           
031681,000510: 33,3447           02262                                    SHJUMP1                               
031682,000511: 
031683,000512: 33,3450           05073        228LMP             TC       2LMP+DT                               
031684,000513: 33,3451           00344                           DEC      228        B-14                       #  DPS PQGS ARM NO1 - ENABLE
031685,000514: 33,3452           00304                           DEC      196        B-14                       #  DPS PQGS ARM NO2 - ENABLE
031686,000515: 33,3453           00144                           DEC      100        B-14                       
031687,000516: 
031688,000517: 33,3454           05073                           TC       2LMP+DT                               
031689,000518: 33,3455           00364                           DEC      244        B-14                       #  DPS PQGS NO1 - ON
031690,000519: 33,3456           00324                           DEC      212        B-14                       #  DPS PQGS NO2 - ON
031691,000520: 33,3457           01356                           DEC      750        B-14                       
031692,000521: 
031693,000522: 33,3460           05270                           TC       IBNKCALL                              
031694,000523: 33,3461           40062                           CADR     ULLAGE                                #  +X TRANSLATION ON.
031695,000524: 
031696,000525: 33,3462           04161                           TC       PHASCHNG                              
031697,000526: 33,3463           00002                           OCT      2                                     
031698,000527: 
031699,000528: 33,3464           15727                           TCF      TASKOVER                              #  END 228LMP TASK
031700,000529: 
031701,000530:                                                                                                  #           ********************************
031702,000531: 

Page 738

031704,000533: 33,3465           66760        EQU2ADR            CADR     DPS1EQU2                              
031705,000534: 
031706,000535: 33,3466           67265        EQU3ADR            CADR     DPS1EQU3                              
031707,000536: 
031708,000537: 33,3467  E4,1566                                  EBANK=   TDEC                                  
031709,000538: 33,3467           03417 66064  EQU1ADR            2CADR    DPS1EQU1                              
031710,000539: 
031711,000540: 33,3471  E4,1566                                  EBANK=   TDEC                                  
031712,000541: 33,3471           03351 66064  MP9TM1AD           2CADR    MP9TERM1                              
031713,000542: 
031714,000543: 33,3473  E4,1566                                  EBANK=   TDEC                                  
031715,000544: 33,3473           02336 16064  RVUPDADR           2CADR    RVUPDATE                              
031716,000545: 
031717,000546: 33,3475           00000 00620  4SECSD9            2DEC     400        B-28                       
031718,000547: 
031719,000548: 33,3477           00000 14710  66SECSD9           2DEC     6600       B-28                       
031720,000549: 
031721,000550: 33,3501           00001 35414  5M15S              2DEC     31500      B-28                       
031722,000551: 
031723,000552: 33,3503           00000 00302  DPA                2DEC     .09449     B-17                       #  SCALED AT 2(+17)M/CS
031724,000553: 
031725,000554: 33,3505           22653 21315  DPB                2DEC     .0002874   B+11                       #  SCALED AT 2(-11)M/CS(+2)
031726,000555: 
031727,000556: 33,3507           00000 05050  DPC                2DEC     2600.      B-28                       #  SCALED AT 2(+28)CS
031728,000557: 
031729,000558: 33,3511           00000 36411  DELTAT9            2DEC     200        E+4        B-35            #  2SEC/KPIP
031730,000559: 
031731,000560: 33,3513           11217 27040  2MUERTH9           2DEC*    3.98603223 E+10       B-37*           
031732,000561: 
031733,000562: 33,3515           00764        5SECS9             DEC      500        B-14                       
031734,000563: 33,3516           11610        50SECS9            DEC      5000       B-14                       
031735,000564: 33,3517           05670        30SECS9            DEC      3000       B-14                       
031736,000565: 33,3520           02114        11SECS9            DEC      1100       B-14                       
031737,000566: 33,3521           15530        70SECS9            DEC      7000       B-14                       
031738,000567:                                                                                                  #           ********************************

End of include-file MP9-DPS_1_BURN.agc.  Parent file is MAIN.agc