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.

031192,000002:                                                                                                  ## Copyright:    Public domain.
031193,000003:                                                                                                  ## Filename:     MP9-DPS_1_BURN.agc
031194,000004:                                                                                                  ## Purpose:      A module for revision 0 of BURST120 (Sunburst). It 
031195,000005:                                                                                                  ##               is part of the source code for the Lunar Module's
031196,000006:                                                                                                  ##               (LM) Apollo Guidance Computer (AGC) for Apollo 5.
031197,000007:                                                                                                  ## Assembler:    yaYUL
031198,000008:                                                                                                  ## Contact:      Ron Burkey <info@sandroid.org>.
031199,000009:                                                                                                  ## Website:      www.ibiblio.org/apollo/index.html
031200,000010:                                                                                                  ## Mod history:  2016-09-30 RSB  Created draft version.
031201,000011:                                                                                                  ##               2016-10-28 MAS  Transcribed.
031202,000012:                                                                                                  ##               2016-11-01 RSB  Typos.
031203,000013:                                                                                                  ##               2016-12-06 RSB  Comments proofed using octopus/ProoferComments,
031204,000014:                                                                                                  ##                               changes made.
031205,000015: 

Page 728

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

Page 729

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

Page 730

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

Page 731

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

Page 732

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

Page 733

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

Page 734

031515,000325: 33,3233           05270                           TC       IBNKCALL                              
031516,000326: 33,3234           40226                           CADR     DPSENGON                              

The above line has a green arrow pointing to it.

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

Page 735

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

Page 736

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

Page 737

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

Page 738

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

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