Source Code

These source-code files were transcribed from a printout in Don Eyles's personal collection, scanned by archive.org, and financially sponsored by Peter McDermott. A team of volunteers performed the transcription and proof-reading. The scanned page images are available at the Virtual AGC Project website, as well as higher-quality (but much larger) images at the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating "issues" at the Virtual AGC Project's GitHub Repository.

Notations on the program listing read, in part:

	YUL SYSTEM FOR AGC: NEW PROGRAM SHEPATIN BY EYLES
	DEC 13, 1966

	THIS PROGRAM WAS ASSEMBLED AS A VERSION OF REVISION 37 
        OF PROGRAM SUNBURST BY LEM GROUP
Note that the date is the date of the printout, not the date of the program revision.

030879,000002:                                                                                                  ## Copyright:   Public domain.
030880,000003:                                                                                                  ## Filename:    MP9-DPS_1_BURN.agc
030881,000004:                                                                                                  ## Purpose:     A section of Sunburst revision 37, or Shepatin revision 0.
030882,000005:                                                                                                  ##              It is part of an early development version of the software
030883,000006:                                                                                                  ##              for Apollo Guidance Computer (AGC) on the unmanned Lunar
030884,000007:                                                                                                  ##              Module (LM) flight Apollo 5. Sunburst 37 was the program
030885,000008:                                                                                                  ##              upon which Don Eyles's offline development program Shepatin
030886,000009:                                                                                                  ##              was based; the listing herein transcribed was actually for
030887,000010:                                                                                                  ##              the equivalent revision 0 of Shepatin.
030888,000011:                                                                                                  ##              This file is intended to be a faithful transcription, except
030889,000012:                                                                                                  ##              that the code format has been changed to conform to the
030890,000013:                                                                                                  ##              requirements of the yaYUL assembler rather than the
030891,000014:                                                                                                  ##              original YUL assembler.
030892,000015:                                                                                                  ## Reference:   pp. 684-692
030893,000016:                                                                                                  ## Assembler:   yaYUL
030894,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
030895,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
030896,000019:                                                                                                  ## Mod history: 2017-05-24 MAS  Created from Sunburst 120.
030897,000020:                                                                                                  ##              2017-06-14 RSB  Transcribe
030898,000021:                                                                                                  ##              2017-06-14 HG   Fix operand THRUSTCMD -> THRSTCMD
030899,000022:                                                                                                  ##                                          AVEXIT    -> AVGEXIT
030900,000023:                                                                                                  ##              2017-06-15 HG   Fix value DELTAT9    B-35 -> B-38 
030901,000024:                                                                                                  ##              2017-06-23 RSB  Proofed comment text with
030902,000025:                                                                                                  ##                              octopus/ProoferComments.
030903,000026: 

Page 684

030905,000028:                                                                                                  #  MISSION PHASE 9
030906,000029: 
030907,000030: 33,2614                                           BANK     33                                    
030908,000031: 33,2614  E4,1566                                  EBANK=   TDEC                                  
030909,000032:                                                                                                  #  PROGRAM DESCRIPTION-MISSION PHASE9-DPS1 BURN                            DATE-28 OCT 66
030910,000033:                                                                                                  #  MOD NO-2                                                                LOG SECTION-MP9
030911,000034:                                                                                                  #  MOD BY- CHO                                                             ASSEMBLY-SUNBURST REV24
030912,000035: 
030913,000036:                                                                                                  #  FUNCTIONAL DESCRIPTION
030914,000037:                                                                                                  #          THIS PHASE IS STARTED 3HOUR 1MIN AND 49SECS AFTER THE TERMINATI ON OF SIVB/LEM SEPARATION +X TRANSLATI
030915,000038:                                                                                                  #  ON AND BY THE INITIATION OF PROGRAM 31 (PRE-DPS1 BURN). PROGRAM 31      CALLS FOR DPS CUTOFF TDI 5MIN AND
030916,000039:                                                                                                  #  15SECS LATER. IN ORDER TO ALIGN THE VEHICLE THRUST AXIS ALONG THE DESIRED ACCELERATION VECTOR DURING PRE-DPS1
030917,000040:                                                                                                  #  PHASE, THE FOLLOWING COMPUTATIONS ARE MADE - VEHICLE STATE VECTOR FORWARD INTEGRATION TO THE DESCENT
030918,000041:                                                                                                  #  INJECTION CUTOFF TIME TDI, VELOCITY TO BE GAINED VG, THE MANEUVER THRUST TIME TTHRUST, DPS1 IGNITION TIME TIGN
030919,000042:                                                                                                  #  AND FINALLY DESIRED THRUST DIRECTION UNITVG. PROGRAM 31 ALSO COMMANDS LANDING GEAR DEPLOYMENT AND CALL FOR
030920,000043:                                                                                                  #  A MANEUVER TO THE FIRING ATTITUDE.
030921,000044:                                                                                                  #          PROGRAM 41, DPS1 BURN IS STARTED 36SECS BEFORE IGNITION. THIS PROGRAM ARMS THE DESCENT ENGINE,
030922,000045:                                                                                                  #  COMMANDS +X TRANSLATION AND COMMANDS ENGINE ON. DURING THE BURN, THE VELOCITY TO BE GAINED  AND TIME TO
030923,000046:                                                                                                  #  CUTOFF TGO ARE COMPUTED EVERY TWO SECONDS. WHEN TGO FALLS BELOW THE CRITICAL VALUE ENGINE OFF SIGNAL COUNTER
030924,000047:                                                                                                  #  IS SET. WHEN POST ENGINE CUTOFF ROUTINE IS PERFORMED, MPENTRY NO.1 IS SET TO START MP11 IN 31MIN 11SECS.
030925,000048: 
030926,000049:                                                                                                  #  CALLING SEQUENCE- AFTER THE TERMINATION OF SIVB/LEM SEPARATION +X TRANSLATION AND BY THE INITIATION OF
030927,000050:                                                                                                  #  PROGRAM 31.
030928,000051: 
030929,000052:                                                                                                  #  NORMAL EXIT MODES- TASKOVER (AWAITS MPENTRY INTO MP11 VIA NO.1)
030930,000053: 
030931,000054:                                                                                                  #  ALARM EXIT MODE- NONE
030932,000055: 
030933,000056:                                                                                                  #  SUBROUTINES CALLED- FIXDELAY, 1LMP, 2LMP, EXECUTIVE, MIDTOAVE, BANKCALL, IBNKCALL, WAITLIST, KALCMANU,
030934,000057:                                                                                                  #  UL4JETON, UL4JETOFF, ENGINEON, ENGINOFF, NEWMODEX, DFITCAL, RVUPDADR, TPAGREE, TASKOVER, ENDOFJOB, ENGOF1
030935,000058: 
030936,000059: 
030937,000060:                                                                                                  #  INPUT- RN, VN, RP, MUEARTH, TDI
030938,000061: 
030939,000062:                                                                                                  #  OUTPUT- VG, TTHRUST, TIGN, UNITVG, TGO
030940,000063: 
030941,000064:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED-
030942,000065: 
030943,000066:                                                                                                  #  DEBRIS- TDEC
030944,000067: 
030945,000068: 33,2614           04105        MP9JOB             TC       NEWMODEX                              #  DISPLAY PROGRAM NUMBER IN DSKY
030946,000069: 33,2615           00031                           OCTAL    31                                    
030947,000070: 
030948,000071: 33,2616  E4,1566                                  EBANK=   TDEC                                  
030949,000072: 33,2616           00006                           EXTEND                                         
030950,000073: 33,2617           30025                           DCA      TIME2                                 #  PICK UP CURRENT TIME
030951,000074: 33,2620           53666                           DXCH     TDI                                   
030952,000075: 33,2621           00006                           EXTEND                                         
030953,000076: 33,2622           33264                           DCA      5M15S                                 
030954,000077: 33,2623           21666                           DAS      TDI                                   #  SET TDI=TIME2+5M15S
030955,000078: 

Page 685

030957,000080: 
030958,000081: 33,2624           33247                           CAF      EQU2ADR                               #  SET COMPUTATIINAL STEPS
030959,000082: 33,2625           55662                           TS       SHJUMP1                               
030960,000083: 
030961,000084: 33,2626           00006                           EXTEND                                         
030962,000085: 33,2627           31666                           DCA      TDI                                   
030963,000086: 33,2630           53567                           DXCH     TDEC                                  
030964,000087: 33,2631           00006                           EXTEND                                         
030965,000088: 33,2632           33256                           DCA      RVUPDADR                              #  STATE VECTOR UPDATE FOR PRE-DPS1 BURN
030966,000089: 
030967,000090: 33,2633           52006                           DXCH     Z                                     
030968,000091: 
030969,000092: 33,2634           06103                           TC       INTPRET                               
030970,000093: 33,2635           77624                           CALL                                           
030971,000094: 33,2636           60347                                    VPATCHER                              #  RESCALE AND LOAD TDI STATES IN RN AN VN
030972,000095: 33,2637           77650                           GOTO                                           
030973,000096: 33,2640           67204                                    DPS1EQU1                              #  COMPUTES VELOCITY TO BE GAINED
030974,000097: 
030975,000098: 33,2641           77745        DPS1EQU2           DLOAD                                          #  COMPUTES MANEUVER THRUST TIME
030976,000099: 33,2642           00045                                    LV                                    #  ABVAL(VG)
030977,000100: 33,2643           45261                           SR       DSU                                   
030978,000101: 33,2644           20613                                    10D                                   #  NOW VG SCALED AT 2(+17)M/CS
030979,000102: 33,2645           27266                                    DPA                                   
030980,000103: 33,2646           43271                           DDV      DAD                                   
030981,000104: 33,2647           27270                                    DPB                                   
030982,000105: 33,2650           27272                                    DPC                                   
030983,000106: 33,2651           26264                           STOVL    TTHRUST                               #  SCALED AT 2(+28)CS
030984,000107: 33,2652           02272                                    UNITVG                                
030985,000108: 33,2653           25656                           STOVL    POINTVSM                              #  KALCMANU INPUT REGISTER
030986,000109: 33,2654           26515                                    BODYVECT                              #  LOAD BODY AXES VECTOR IN SM COORD.
030987,000110: 33,2655           01664                           STORE    SCAXIS                                #  KALCMANU INPUT VECTOR
030988,000111: 33,2656           66214                           SET      SSP                                   
030989,000112: 33,2657           01063                                    33D                                   
030990,000113: 
030991,000114: 33,2660           01653                                    RATEINDX                              
030992,000115: 33,2661           00004                                    4                                     #  SET KALCMANU FOR ANGULAR RATE OF 5DEG/S
030993,000116: 33,2662           77776                           EXIT                                           
030994,000117: 
030995,000118: 33,2663           00006                           EXTEND                                         
030996,000119: 33,2664           41664                           DCS      TTHRUST                               #  COMPUTES TIGN
030997,000120: 33,2665           53670                           DXCH     TIGN                                  
030998,000121: 
030999,000122: 33,2666           00006                           EXTEND                                         
031000,000123: 33,2667           31666                           DCA      TDI                                   
031001,000124: 33,2670           21670                           DAS      TIGN                                  #  TIGN=TDI-TTHRUST  (SCALED AT 2(+28)CS)
031002,000125: 33,2671           33250                           CAF      EQU3ADR                               
031003,000126: 33,2672           55662                           TS       SHJUMP1                               
031004,000127: 
031005,000128: 33,2673           00004                           INHINT                                         
031006,000129: 33,2674           33310                           CAF      90SECS9                               #  CALL POSTKALC 90 SECS LATER
031007,000130: 33,2675           05701                           TC       WAITLIST                              
031008,000131: 33,2676  E4,1566                                  EBANK=   TDEC                                  
031009,000132: 33,2676           02710 66064                     2CADR    POSTKALC                              

Page 686

031011,000134: 33,2700           35226                           CAF      PRIO30                                #  CALL KALCMANU JOB- START INDICATOR UP*
031012,000135: 33,2701           05534                           TC       FINDVAC                               
031013,000136: 33,2702  E3,1535                                  EBANK=   MIS                                   
031014,000137: 33,2702           02001 70063                     2CADR    VECPOINT                              
031015,000138: 
031016,000139: 33,2704           05224                           TC       BANKCALL                              
031017,000140: 33,2705           26754                           CADR     ATTSTALL                              #  SEE IF KALCMANU FINISHED
031018,000141: 33,2706           04732        CURT9              TC       CURTAINS                              #  UNFINISHED MANEUVER
031019,000142: 
031020,000143: 33,2707           15605                           TCF      ENDOFJOB                              #  GOOD RETURN- END MP9JOB
031021,000144: 
031022,000145: 33,2710           33304        POSTKALC           CAF      10SECS9                               #  CALL DFITMTSK 10SECS LATER
031023,000146: 33,2711           05701                           TC       WAITLIST                              
031024,000147: 33,2712  E3,1746                                  EBANK=   TGRR                                  
031025,000148: 
031026,000149: 33,2712           02206 56003                     2CADR    DFITMTSK                              #  DFI T/M CALIBRATION ROUTINE
031027,000150: 
031028,000151: 33,2714           40076                           CS       FLAGWRD2                              #  CHECK KALCMANU BIT
031029,000152: 33,2715           77743                           MASK     BIT11                                 
031030,000153: 33,2716           10000                           CCS      A                                     
031031,000154: 
031032,000155: 33,2717           02725                           TC       GOODKALC                              #  GOOD RETURN
031033,000156: 
031034,000157: 33,2720           35676                           CAF      PRIO37                                #  BAD RETURN
031035,000158: 33,2721           05534                           TC       FINDVAC                               
031036,000159: 33,2722  E4,1566                                  EBANK=   TDEC                                  
031037,000160: 33,2722           02706 66064                     2CADR    CURT9                                 
031038,000161: 
031039,000162: 33,2724           05745                           TC       TASKOVER                              #  END POSTKALC TASK
031040,000163: 
031041,000164: 33,2725           33305        GOODKALC           CAF      11SECS9                               
031042,000165: 33,2726           05701                           TC       WAITLIST                              
031043,000166: 33,2727  E4,1566                                  EBANK=   TDEC                                  
031044,000167: 33,2727           02747 66064                     2CADR    182LMP                                
031045,000168: 
031046,000169: 33,2731           00006                           EXTEND                                         #  CALL DPS1 BURN PROG. AT TIGN-36SECS.
031047,000170: 33,2732           40025                           DCS      TIME2                                 
031048,000171: 33,2733           52062                           DXCH     ITEMP1                                
031049,000172: 
031050,000173: 33,2734           00006                           EXTEND                                         
031051,000174: 33,2735           31670                           DCA      TIGN                                  
031052,000175: 33,2736           20062                           DAS      ITEMP1                                
031053,000176: 33,2737           00006                           EXTEND                                         
031054,000177: 33,2740           43262                           DCS      36SECSD9                              
031055,000178: 33,2741           20062                           DAS      ITEMP1                                
031056,000179: 33,2742           52062                           DXCH     ITEMP1                                
031057,000180: 
031058,000181: 33,2743           05757                           TC       LONGCALL                              
031059,000182: 33,2744  E4,1566                                  EBANK=   TDEC                                  
031060,000183: 33,2744           02767 66064                     2CADR    TIG9-36                               
031061,000184: 
031062,000185: 33,2746           15745                           TCF      TASKOVER                              #  END GOODKALC TASK

Page 687

031064,000187: 
031065,000188: 33,2747           05106        182LMP             TC       2LMP+DT                               
031066,000189: 33,2750           00266                           DEC      182        B-14                       #  LANDING RADAR POWER ON
031067,000190: 33,2751           00032                           DEC      26         B-14                       #  RADAR SELF TEST-ON
031068,000191: 33,2752           11444                           DEC      4900       B-14                       
031069,000192: 
031070,000193: 33,2753           05114                           TC       1LMP+DT                               
031071,000194: 33,2754           00004                           DEC      4          B-14                       #  ED BATTERY ACTIVATION -ON
031072,000195: 33,2755           00764                           DEC      500        B-14                       
031073,000196: 
031074,000197: 33,2756           05114                           TC       1LMP+DT                               
031075,000198: 33,2757           00010                           DEC      8          B-14                       #  LANDING GEAR DEPLOY -FIRE
031076,000199: 33,2760           00310                           DEC      200        B-14                       
031077,000200: 
031078,000201: 33,2761           05114                           TC       1LMP+DT                               
031079,000202: 33,2762           00011                           DEC      9          B-14                       #  LANDING GEAR DEPLOY- FIRE RESET
031080,000203: 33,2763           00620                           DEC      400        B-14                       
031081,000204: 
031082,000205: 33,2764           05073                           TC       1LMP                                  
031083,000206: 33,2765           00033                           DEC      27         B-14                       #  RADAR SELF TEST-OFF
031084,000207: 
031085,000208: 33,2766           05745                           TC       TASKOVER                              #  END 182LMP TASK
031086,000209: 
031087,000210: 33,2767           04105        TIG9-36            TC       NEWMODEX                              #  DISPLAY PROGRAM NUMBER IN DSKY
031088,000211: 33,2770           00041                           OCT      41                                    
031089,000212: 
031090,000213: 33,2771           06074                           TC       ENGINOF1                              #  MAKE SURE ENGINE OFF
031091,000214: 
031092,000215: 33,2772           05065                           TC       2LMP                                  
031093,000216: 33,2773           00226                           DEC      150        B-14                       #  ENGINE SELECT DESC ARM
031094,000217: 33,2774           00126                           DEC      86         B-14                       #  MANUAL THROTTLE ON (10PERCENT)
031095,000218: 
031096,000219: 33,2775           33306                           CA       20SECS9                               
031097,000220: 33,2776           05701                           TC       WAITLIST                              
031098,000221: 33,2777  E4,1566                                  EBANK=   TDEC                                  
031099,000222: 33,2777           03234 66064                     2CADR    228LMP                                
031100,000223: 
031101,000224: 33,3001           35667                           CAF      PRIO27                                
031102,000225: 33,3002           05534                           TC       FINDVAC                               
031103,000226: 33,3003  E4,1566                                  EBANK=   TDEC                                  
031104,000227: 33,3003           03006 66064                     2CADR    ORBINTJB                              
031105,000228: 
031106,000229: 33,3005           15745                           TCF      TASKOVER                              #  END TIG9-36 TASK
031107,000230: 
031108,000231: 33,3006           00006        ORBINTJB           EXTEND                                         
031109,000232: 33,3007           31670                           DCA      TIGN                                  
031110,000233: 33,3010           53567                           DXCH     TDEC                                  
031111,000234: 33,3011           43307                           CS       30SECS9                               
031112,000235: 33,3012           54001                           TS       L                                     
031113,000236: 33,3013           47761                           CS       ZERO                                  
031114,000237: 33,3014           21567                           DAS      TDEC                                  #  TDEC NOW CONTAINS TIGN-30 SECS.
031115,000238: 

Page 688

031117,000240: 33,3015           00006                           EXTEND                                         
031118,000241: 33,3016           32537                           DCA      ORBINTAD                              
031119,000242: 
031120,000243: 33,3017           52006                           DXCH     Z                                     
031121,000244: 
031122,000245:                                                                                                  #  RN AND VN IN STABLE MEMBER COORDINATES. SCALING IS AS IN AVEG.
031123,000246: 
031124,000247:                                                                                                  #           DELETE
031125,000248: 33,3020           32526                           CAF      AVGENADR                              
031126,000249: 33,3021           55322                           TS       DVSELECT                              #  SELECT AGS MONITOR
031127,000250: 
031128,000251: 33,3022           00006                           EXTEND                                         
031129,000252: 33,3023           32535                           DCA      EXITADR                               
031130,000253: 33,3024           53073                           DXCH     AVGEXIT                               #  SET AVERAGEG EXIT
031131,000254: 
031132,000255: 33,3025           00006                           EXTEND                                         
031133,000256: 33,3026           33254                           DCA      MP9TM1AD                              
031134,000257: 33,3027           53075                           DXCH     DVMNEXIT                              #  SET MONITOR EXIT
031135,000258: 
031136,000259: 33,3030           43307                           CS       30SECS9                               #  CALL PREREAD AT TIGN-30SECS.
031137,000260: 33,3031           02550                           TC       TASKSETR                              
031138,000261: 
031139,000262: 33,3032           00004                           INHINT                                         
031140,000263: 33,3033           05701                           TC       WAITLIST                              
031141,000264: 33,3034  E5,1506                                  EBANK=   DVTOTAL                               
031142,000265: 33,3034           02000 60065                     2CADR    PREREAD                               
031143,000266: 
031144,000267: 33,3036           43302                           CS       4SECS9                                #  CALL TVC FOR DPS1 AT TIG-4SECS
031145,000268: 33,3037           02550                           TC       TASKSETR                              
031146,000269: 33,3040           00004                           INHINT                                         
031147,000270: 33,3041           05701                           TC       WAITLIST                              
031148,000271: 33,3042     1072                                  EBANK=   AVGEXIT                               
031149,000272: 33,3042           03045 66062                     2CADR    TIG9-4                                
031150,000273: 
031151,000274: 33,3044           15605                           TCF      ENDOFJOB                              #  END ORBITAL INTEGRATION JOB
031152,000275: 
031153,000276: 33,3045           33302        TIG9-4             CAF      4SECS9                                #  DO ENGINE ON AT TIG-0 SEC
031154,000277: 33,3046           05701                           TC       WAITLIST                              
031155,000278: 33,3047  E6,1523                                  EBANK=   THRSTCMD                              
031156,000279: 33,3047           03055 66066                     2CADR    TIG9-0                                
031157,000280: 
031158,000281: 33,3051           00006                           EXTEND                                         
031159,000282: 33,3052           33252                           DCA      EQU1ADR                               
031160,000283: 33,3053           53073                           DXCH     AVGEXIT                               #  AVG ROUTINE GOES TO VG COMPUTATION
031161,000284: 
031162,000285: 33,3054           15745                           TCF      TASKOVER                              #  END TIG9-4 TASK
031163,000286: 
031164,000287: 33,3055           06054        TIG9-0             TC       ENGINEON                              #  COMMAND ENGINE ON
031165,000288: 
031166,000289: 33,3056           05717                           TC       FIXDELAY                              
031167,000290: 33,3057           00062                           DEC      50         B-14                       

Page 689

031169,000292: 
031170,000293: 33,3060           05307                           TC       IBNKCALL                              
031171,000294: 33,3061           34030                           CADR     NOULLAGE                              #  +X TRANSLATION-  OFF
031172,000295: 
031173,000296: 33,3062  E6,1523                                  EBANK=   THRSTCMD                              #  DECLARE EBANK=6
031174,000297: 33,3062           32472                           CAF      10PERTHR                              #  REPORT 10 PERCENT THRUST TO DAP
031175,000298: 33,3063           55523                           TS       THRSTCMD                              
031176,000299: 
031177,000300: 33,3064           05717                           TC       FIXDELAY                              
031178,000301: 
031179,000302: 33,3065           00372                           DEC      250        B-14                       
031180,000303: 
031181,000304: 33,3066           05114                           TC       1LMP+DT                               
031182,000305: 33,3067           00005                           DEC      5          B-14                       #  ED BATTERY ACTIVATION-SAFE
031183,000306: 33,3070           04374                           DEC      2300       B-14                       
031184,000307: 
031185,000308: 33,3071           37735        MAXTHR9            CAF      POSMAX                                #  CALL FOR 92.5 PERCENT THRUST
031186,000309: 33,3072           55335                           TS       PCNTF                                 
031187,000310: 33,3073           00006                           EXTEND                                         
031188,000311: 33,3074           32541                           DCA      PCNTFMAD                              
031189,000312: 33,3075           52006                           DTCB                                           
031190,000313: 
031191,000314: 33,3076           32473                           CAF      92PERTHR                              #  REPORT THRUST TO DAP
031192,000315: 33,3077           55523                           TS       THRSTCMD                              
031193,000316: 33,3100           15745                           TCF      TASKOVER                              #  END TIG9-0 TASK
031194,000317: 
031195,000318: 33,3101  E4,1566                                  EBANK=   TDEC                                  #  DECLARE EBANK=4
031196,000319: 
031197,000320: 33,3101           77624        DPS1EQU3           CALL                                           
031198,000321: 33,3102           67111                                    CALCTGO                               
031199,000322: 33,3103           77775                           VLOAD                                          
031200,000323: 33,3104           02272                                    UNITVG                                
031201,000324: 33,3105           02233                           STORE    AXISD                                 #  FINDCDUD INPUT
031202,000325: 33,3106           77624                           CALL                                           
031203,000326: 33,3107           60643                                    FINDCDUD                              
031204,000327: 
031205,000328: 33,3110           15605                           TCF      ENDOFJOB                              #  END DPS1EQU3 JOB DURING BURN ONLY
031206,000329: 
031207,000330: 33,3111           45345        CALCTGO            DLOAD    DSU                                   
031208,000331: 33,3112           00045                                    LV                                    #  ABVAL(VG)
031209,000332: 33,3113           27274                                    VTAILOFF                              
031210,000333: 33,3114           56205                           DMP      DDV                                   
031211,000334: 33,3115           27276                                    DELTAT9                               
031212,000335: 33,3116           02535                                    ABDELV                                
031213,000336: 33,3117           02350                           STORE    TTGO                                  #  FOR DWLK ONLY
031214,000337: 
031215,000338: 33,3120           02350                           STORE    TGO                                   
031216,000339: 
031217,000340: 33,3121           51025                           DSU      BPL                                   
031218,000341: 33,3122           27260                                    4SECSD9                               
031219,000342: 33,3123           00052                                    QPRET                                 
031220,000343: 33,3124           77776                           EXIT                                           

Page 690

031222,000345: 
031223,000346: 33,3125           00004                           INHINT                                         #  CUTOFF SIGNAL COUNTER SET
031224,000347: 33,3126           31750                           CA       TGO        +1                         
031225,000348: 33,3127           05701                           TC       WAITLIST                              
031226,000349: 33,3130     0766                                  EBANK=   CDUXD                                 
031227,000350: 33,3130           03133 66061                     2CADR    CUTOFF                                
031228,000351: 
031229,000352: 33,3132           15605                           TCF      ENDOFJOB                              #  END DPS1 BURN EQUATION JOB
031230,000353: 
031231,000354: 33,3133           06071        CUTOFF             TC       ENGINOFF                              #  ENGINE OFF
031232,000355: 
031233,000356: 33,3134           05307                           TC       IBNKCALL                              
031234,000357: 33,3135           34057                           CADR     STOPRATE                              #  HOLD VEHICLE ATTITUDE
031235,000358: 
031236,000359: 33,3136           15745                           TCF      TASKOVER                              #  END CUTOFF TASK
031237,000360: 
031238,000361: 33,3137           00006        MP9TERM1           EXTEND                                         
031239,000362: 33,3140           32535                           DCA      EXITADR                               
031240,000363: 33,3141           53073                           DXCH     AVGEXIT                               
031241,000364: 
031242,000365: 33,3142           00004                           INHINT                                         
031243,000366: 33,3143           33303                           CAF      5SECS9                                
031244,000367: 33,3144           05701                           TC       WAITLIST                              
031245,000368: 33,3145  E4,1566                                  EBANK=   TDEC                                  
031246,000369: 33,3145           03150 66064                     2CADR    87LMP                                 
031247,000370: 
031248,000371: 33,3147           15605                           TCF      ENDOFJOB                              #  END MP9TERM1 JOB
031249,000372: 
031250,000373: 33,3150           05106        87LMP              TC       2LMP+DT                               
031251,000374: 33,3151           00127                           DEC      87         B-14                       #  MANUAL THROTTLE - RESET (30 PERCENT.)
031252,000375: 33,3152           00227                           DEC      151        B-14                       #  ENGINE SELECT-DESC ARM-OFF
031253,000376: 33,3153           01750                           DEC      1000       B-14                       
031254,000377: 
031255,000378: 33,3154           05106                           TC       2LMP+DT                               
031256,000379: 33,3155           00365                           DEC      245        B-14                       #  DPS PQGS NO1 - OFF
031257,000380: 33,3156           00325                           DEC      213        B-14                       #  DPS PQGS NO2 - OFF
031258,000381: 33,3157           00144                           DEC      100        B-14                       
031259,000382: 
031260,000383: 33,3160           05106                           TC       2LMP+DT                               
031261,000384: 
031262,000385: 33,3161           00345                           DEC      229        B-14                       #  DPS PQGS ARM NO1 DISABLE
031263,000386: 33,3162           00305                           DEC      197        B-14                       #  DPS PQGS ARM NO2 DISABLE
031264,000387: 33,3163           02570                           DEC      1400       B-14                       
031265,000388: 
031266,000389: 33,3164           05307                           TC       IBNKCALL                              
031267,000390: 33,3165           34012                           CADR     SETMAXDB                              
031268,000391: 
031269,000392: 33,3166           05073                           TC       1LMP                                  
031270,000393: 33,3167           00032                           DEC      26         B-14                       #  RADAR SELF TEST ON
031271,000394: 
031272,000395: 33,3170           05717                           TC       FIXDELAY                              
031273,000396: 33,3171           13560                           DEC      6000       B-14                       

Page 691

031275,000398: 
031276,000399: 33,3172           05065                           TC       2LMP                                  
031277,000400: 33,3173           00033                           DEC      27         B-14                       #  RADAR SELF TEST POWER - OFF
031278,000401: 33,3174           00267                           DEC      183        B-14                       #  LANDING RADAR POWER - OFF
031279,000402: 
031280,000403: 33,3175           05141                           TC       MPENTRY                               #  CALL NEXT MISSION ENTRY ROUTINE
031281,000404: 33,3176           00001                           DEC      1          B-14                       
031282,000405: 33,3177           00013                           DEC      11         B-14                       
031283,000406: 33,3200           01752                           ADRES    MP9-11DT                              
031284,000407: 
031285,000408: 33,3201           06036                           TC       FLAG1DWN                              #  KNOCK DOWN AVERAGEG FLAG
031286,000409: 33,3202           00001                           OCT      00001                                 
031287,000410: 
031288,000411: 33,3203           15745                           TCF      TASKOVER                              #  MISSION PHASE 9 COMPLETE
031289,000412: 
031290,000413: 33,3204           47375        DPS1EQU1           VLOAD    VXV                                   
031291,000414: 33,3205           01017                                    VN                                    #  VN SCALED AT 2(+7)M/CS
031292,000415: 33,3206           01033                                    UNITR                                 #  UNITR IS UNIT VECTOR ALONG RN
031293,000416: 33,3207           63256                           UNIT     PDVL                                  
031294,000417: 33,3210           01033                                    UNITR                                 
031295,000418: 33,3211           77635                           VXV                                            
031296,000419: 33,3212           43325                           PDDL     DAD                                   
031297,000420: 33,3213           02355                                    RP                                    #  TARGET DISTANCE - PERIGEE OR APOGEE
031298,000421: 33,3214           01047                                    RMAG                                  #  RP AND RMAG SCALED AT 2(+24)M
031299,000422: 33,3215           65205                           DMP      PDDL                                  
031300,000423: 33,3216           01047                                    RMAG                                  
031301,000424: 33,3217           02355                                    RP                                    
031302,000425: 33,3220           56205                           DMP      DDV                                   
031303,000426: 33,3221           27300                                    2MUERTH9                              #  SCALED AT 2(+38)M(3)/CS(2).
031304,000427: 33,3222           74366                           SQRT     VXSC                                  
031305,000428: 33,3223           77752                           VSL2                                           
031306,000429: 33,3224           02326                           STORE    VDVECT                                #  FOR DWNLK ONLY. SCALED AT 2(+7)M/CS
031307,000430: 
031308,000431: 33,3225           77651                           VSU                                            
031309,000432: 33,3226           01017                                    VN                                    
031310,000433: 33,3227           02334                           STORE    VGVECT                                #  FOR DWNLK ONLY. SCALED AT 2(+7)M/CS
031311,000434: 
031312,000435: 33,3230           77656                           UNIT                                           #  LEAVES ABVAL IN LV
031313,000436: 33,3231           02272                           STORE    UNITVG                                
031314,000437: 
031315,000438: 33,3232           77650                           GOTO                                           
031316,000439: 33,3233           02262                                    SHJUMP1                               
031317,000440: 
031318,000441: 33,3234           05106        228LMP             TC       2LMP+DT                               
031319,000442: 33,3235           00344                           DEC      228        B-14                       #  DPS PQGS ARM NO1 - ENABLE
031320,000443: 33,3236           00304                           DEC      196        B-14                       #  DPS PQGS ARM NO2 - ENABLE
031321,000444: 33,3237           00144                           DEC      100        B-14                       
031322,000445: 
031323,000446: 33,3240           05106                           TC       2LMP+DT                               
031324,000447: 33,3241           00364                           DEC      244        B-14                       #  DPS PQGS NO1 - ON
031325,000448: 33,3242           00324                           DEC      212        B-14                       #  DPS PQGS NO2 - ON

Page 692

031327,000450: 33,3243           01356                           DEC      750        B-14                       
031328,000451: 
031329,000452: 33,3244           05307                           TC       IBNKCALL                              
031330,000453: 33,3245           34024                           CADR     ULLAGE                                #  +X TRANSLATION- ON
031331,000454: 33,3246           15745                           TCF      TASKOVER                              #  END 228LMP TASK
031332,000455: 
031333,000456:                                                                                                  #           ********************************
031334,000457: 
031335,000458: 33,3247           66641        EQU2ADR            CADR     DPS1EQU2                              
031336,000459: 
031337,000460: 33,3250           67101        EQU3ADR            CADR     DPS1EQU3                              
031338,000461: 
031339,000462: 33,3251  E4,1566                                  EBANK=   TDEC                                  
031340,000463: 33,3251           03204 66064  EQU1ADR            2CADR    DPS1EQU1                              
031341,000464: 
031342,000465: 33,3253  E4,1566                                  EBANK=   TDEC                                  
031343,000466: 33,3253           03137 66064  MP9TM1AD           2CADR    MP9TERM1                              
031344,000467: 
031345,000468: 33,3255  E4,1566                                  EBANK=   TDEC                                  
031346,000469: 33,3255           02301 16004  RVUPDADR           2CADR    RVUPDATE                              
031347,000470: 
031348,000471: 33,3257           00000 00620  4SECSD9            2DEC     400        B-28                       
031349,000472: 
031350,000473: 33,3261           00000 07020  36SECSD9           2DEC     3600       B-28                       
031351,000474: 
031352,000475: 33,3263           00001 35414  5M15S              2DEC     31500      B-28                       
031353,000476: 
031354,000477: 
031355,000478: 33,3265           00000 00302  DPA                2DEC     .09449     B-17                       #  SCALED AT 2(+17)M/CS
031356,000479: 
031357,000480: 33,3267           22653 21315  DPB                2DEC     .0002874   B+11                       #  SCALED AT 2(-11)M/CS(+2)
031358,000481: 
031359,000482: 33,3271           00000 05050  DPC                2DEC     2600.      B-28                       #  SCALED AT 2(+28)CS
031360,000483: 
031361,000484: 33,3273           00000 00000  VTAILOFF           2DEC     0          B-28                       #  ***** GET THE NUMBER
031362,000485: 
031363,000486: 33,3275           00000 03641  DELTAT9            2DEC     200        E+4        B-38            #  2SEC/KPIP
031364,000487: 
031365,000488: 33,3277           11217 27040  2MUERTH9           2DEC*    3.98603223 E+10       B-37*           
031366,000489: 
031367,000490: 33,3301           00144        1SEC9              DEC      100        B-14                       
031368,000491: 33,3302           00620        4SECS9             DEC      400        B-14                       
031369,000492: 33,3303           00764        5SECS9             DEC      500        B-14                       
031370,000493: 33,3304           01750        10SECS9            DEC      1000       B-14                       
031371,000494: 33,3305           02114        11SECS9            DEC      1100       B-14                       
031372,000495: 33,3306           03720        20SECS9            DEC      2000       B-14                       
031373,000496: 33,3307           05670        30SECS9            DEC      3000       B-14                       
031374,000497: 33,3310           21450        90SECS9            DEC      9000       B-14                       
031375,000498: 33,3311           27340        120SECS9           DEC      12000      B-14                       
031376,000499:                                                                                                  #           ********************************

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