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.

036289,000002:                                                                                                  ## Copyright:    Public domain.
036290,000003:                                                                                                  ## Filename:     THROTTLE_CONTROL.agc
036291,000004:                                                                                                  ## Purpose:      A module for revision 0 of BURST120 (Sunburst). It 
036292,000005:                                                                                                  ##               is part of the source code for the Lunar Module's
036293,000006:                                                                                                  ##               (LM) Apollo Guidance Computer (AGC) for Apollo 5.
036294,000007:                                                                                                  ## Assembler:    yaYUL
036295,000008:                                                                                                  ## Contact:      Ron Burkey <info@sandroid.org>.
036296,000009:                                                                                                  ## Website:      www.ibiblio.org/apollo/index.html
036297,000010:                                                                                                  ## Mod history:  2016-09-30 RSB  Created draft version.
036298,000011:                                                                                                  ##               2016-10-30 MAS  Transcribed.
036299,000012:                                                                                                  ##               2016-11-02 RSB  Typo.
036300,000013:                                                                                                  ##               2016-12-06 RSB  Comment-proofing via octopus/ProoferComments;
036301,000014:                                                                                                  ##                               changes were made.
036302,000015: 

Page 849

036304,000017:                                                                                                  #        THROTTLE CONTROL CAN BE USED IN EITHER OF TWO MODES: IN "PERCENTAGE MODE" (WHEN A CERTAIN FRACTION OF
036305,000018:                                                                                                  #  MAXIMUM THRUST IS DESIRED) AND IN "ACCELERATION MODE"  (WHEN THE THRUST DESIRED IS THAT CORRESPONDING TO A
036306,000019:                                                                                                  #  SPECIFIED ACCELERATION).
036307,000020: 
036308,000021:                                                                                                  #                   PERCENTAGE MODE                                               ACCELERATION MODE
036309,000022: 
036310,000023:                                                                                                  #        THE FRACTION OF MAXIMUM THRUST (NOMINALLY                     DESIRED ACCELERATION, IN DOUBLE PRECISION,
036311,000024:                                                                                                  #  10500 POUNDS) DESIRED, IN SINGLE PRECISION, IS                IN UNITS OF 2(-5) M/CS/CS, IS PLACED IN /ACF/.
036312,000025:                                                                                                  #  PLACED IN PCNTF.   ENTRY IS VIA A DTCB AN THE                 ENTRY IS VIA A DTCB ON THE 2CADR OF THROTCON.
036313,000026:                                                                                                  #  2CADR OF PCNTFMAX.   THE ROUTINE BEGINNING AT                 THE ROUTINE BEGINNING AT THROTCON SETS UP A JOB -
036314,000027:                                                                                                  #  PCNTFMAX SETS UP A JOB - PCNTJOB - AND RETURNS                ACCLJOB - AND RETURNS TO THE USER (AT THE
036315,000028:                                                                                                  #  TO THE USER (AT THE INSTRUCTION IMMEDIATELY                   INSTRUCTION FOLLOWING THE DTCB).
036316,000029:                                                                                                  #  FOLLOWING THE DTCB).
036317,000030:                                                                                                  #                                                                     ACCLJOB, AFTER A RESTART PROTECT,
036318,000031:                                                                                                  #        PCNTJOB, AFTER A RESTART PROTECT,                       COMPUTES DESIRED ACCELERATION, FC = /ACF/ MASS,
036319,000032:                                                                                                  #  TURNS OFF THE TRIM GIMBAL, SETS UP A WAITLIST                SCALED AT ABOUT 2.7 POUNDS PER BIT.
036320,000033:                                                                                                  #  TASK (DESCRIBED LOCALLY), COMPUTES THRUST DESIRED,
036321,000034:                                                                                                  #  FC = PCNTF FMAX, SCALED AT ABOUT 2.7 POUNDS PER BIT,                (NOTE THAT IN THE ACCELERATION MODE THE TRIM
036322,000035:                                                                                                  #  AND TCF'S AROUND THE COMMENCEMENT OF ACCLJOB TO               GIMBAL IS NOT TURNED OFF; IT IS ASSUMED TO BE OFF
036323,000036:                                                                                                  #  FOLDCALC.                                                    BY THE TIME THROTTLE CHANGES ARE COMMANDED.
036324,000037: 
036325,000038:                                                                                                  #        FOLDCALC BEGINS BY COMPUTING PRESENT THRUST,  FOLD = MASS /AF/,  SCALED AS IS FC.   NEXT, SINCE /AF/ IS
036326,000039:                                                                                                  #  MERELY AN "AVERAGE" OF THE THROTTLE LEVELS OF THE PRECEEDING PIPA INTERVAL, FOLD IS WEIGHTED BY FWEIGHT, A
036327,000040:                                                                                                  #  FUNCTION OF THE PRECEEDING THROTTLE COMMAND (DESCRIBED LOCALLY).   TO PRECLUDE A SPURIOUS WEIGHTING THAT WOULD
036328,000041:                                                                                                  #  OTHERWISE OCCUR, FWEIGHT IS ZEROED 1.95 SECONDS AFTER EVERY PERCENTAGE MODE THROTTLING.
036329,000042: 
036330,000043:                                                                                                  #        NEXT, TO COMPENSATE FOR THE DIFFERENTIAL BETWEEN BITS FOR MAXIMUM THRUST AND BITS FOR FULL THROTTLE, THE
036331,000044:                                                                                                  #  NUMBER  FOLD - FODD IS COMPUTED AND SET INTO PIFPSET WHENEVER FCOLD INDICATES THE THROTTLE IS AT MAXIMUM.
036332,000045:                                                                                                  #  SINCE PIFPSET IS USED, RATHER THAN PIF, PIF STILL REFLECTS ACCURATELY THE ACTUAL THRUST CHANGE AND FWEIGHT IS
036333,000046:                                                                                                  #  COMPUTED PROPERLY.
036334,000047: 
036335,000048:                                                                                                  #        NEXT COMES IS-IT-ON.   HERE THE ENGINE-OFF BIT (14 OF CHANNEL 11) IS QUERIED; IF THE ENGINE IS OFF
036336,000049:                                                                                                  #  FCOLD, THE SINGLE PRECISION HISTORY REGISTER, IS SET TO 10% FMAX AND PIFPSET, A PRESETTING ADDED TO PIF AT
036337,000050:                                                                                                  #  THE LAST MOMENT, IS SET TO -10% FMAX TO COMPENSATE FOR THE ASSUMED SETTING OF THE MANUAL THROTTLE.
036338,000051: 
036339,000052:                                                                                                  #        THE SERIES OF DECISIONS BEGINNING AT WHERETO CAUSES THE THROTTLE TO REACT TO USERS' DESIRES IN THE
036340,000053:                                                                                                  #  MANNER DESCRIBED BY FIGURE 5.3-5 OF THE FLIGHT 206 GSOP.   WHERETO PROCEEDS (OR BRANCHES) TO FLATOUT (IF THE
036341,000054:                                                                                                  #  THROTTLE LEVEL ASKED FOR IS IN THE FORBIDDEN REGION) OR TO DOPIF.   FLATOUT RESETS FC TO 94% FMAX, SETS FEXTRA
036342,000055:                                                                                                  #  (A BOOST GIVEN TO THE THROTTLE TO KEEP IT JAMMED AGAINST ITS STOPS) INTO PIFPSET, AND PROCEEDS TO DOPIF.
036343,000056: 
036344,000057:                                                                                                  #        DOPIF, AFTER A "TYPE C" RESTART PROTECT (NECESSITATED BY THE FACT THAT FCOLD AND PIF, USED EARLIER, ARE
036345,000058:                                                                                                  #  ABOUT TO BE MODIFIED), SETS FCOLD = FC, COMPUTES PIF (PULSE INCREMENT FOR ACCELERATION) = FC - FOLD, AND, AS
036346,000059:                                                                                                  #  IT PROCEEDS TO DOIT, HAS THIS NUMBER PLUS PIFPSET IN A & L.
036347,000060: 
036348,000061:                                                                                                  #        DOIT DOES IT.   IT TS'S INTO THRUST, THE CHANNEL (55) LEADING TO DECA, THE THROTTLE-AGC INTERFACE
036349,000062:                                                                                                  #  CIRCUIT, AND SETS BIT 4 IN CHANNEL 11, THE SIGNAL FOR THRUST TO BE COUNTED DOWN (AT 3200 PPS).   FINALLY,
036350,000063:                                                                                                  #  FWEIGHT = F(PIF) IS COMPUTED FOR USE NEXT PASS.
036351,000064: 
036352,000065:                                                                                                  #        AFTER ANOTHER RESTART PROTECT A TCF ENDOFJOB ENDS THROTTLE CONTROL.
036353,000066: 

Page 850

036355,000068: 30,3445                                           BANK     30                                    
036356,000069: 30,3445  E5,1565                                  EBANK=   ETHROT                                
036357,000070: 
036358,000071: 
036359,000072: 
036360,000073:                                                                                                  #  ***************
036361,000074:                                                                                                  #  * SUBROUTINES *
036362,000075:                                                                                                  #  ***************
036363,000076: 
036364,000077:                                                                                                  #  THIS SUBROUTINE MULTIPLIES ACCELERATION
036365,000078:                                                                                                  #  (ARRIVING IN A AND L) BY MASS AND LEAVES
036366,000079:                                                                                                  #  FORCE (THRUST) IN A & L, SCALED AT ABOUT
036367,000080:                                                                                                  #  2.7 POUNDS PER BIT.
036368,000081: 
036369,000082: 30,3445           00006        MASSMULT           EXTEND                                         
036370,000083: 30,3446           22120                           QXCH     BUF                                   #  PRESERVING RETURN ADDRESS
036371,000084: 30,3447           52145                           DXCH     MPAC                                  
036372,000085: 30,3450           07155                           TC       DMP                                   #  LEAVES ODDLY SCALED FORCE IN MPAC
036373,000086: 30,3451           01320                           ADRES    MASS                                  
036374,000087: 30,3452           07155                           TC       DMP                                   #  LEAVES PROPERLY SCALED FORCE IN MPAC
036375,000088: 30,3453           03533                           ADRES    SCALEFAC                              
036376,000089: 30,3454           52146                           DXCH     MPAC       +1                         #  LOADING FORCE INTO A AND L
036377,000090: 30,3455           00120                           TC       BUF                                   #  IN WHICH Q WAS STORED
036378,000091: 
036379,000092: 
036380,000093: 
036381,000094:                                                                                                  #  THIS TASK WILL BE EXECUTED 1.95 SECONDS
036382,000095:                                                                                                  #    AFTER PERCENTAGE MODE THROTTLING.
036383,000096: 
036384,000097: 30,3456           47767        PCNTOVER           CS       ZERO                                  
036385,000098: 30,3457           55576                           TS       FWEIGHT                               #    SCHEME WILL WORK PROPERLY NEXT PASS
036386,000099: 30,3460           55577                           TS       FWEIGHT    +1                         
036387,000100: 30,3461           22007                           ZL                                             #  -0 STILL IN A
036388,000101: 30,3462           53100                           DXCH     -PHASE1                               
036389,000102: 30,3463           15727                           TCF      TASKOVER                              
036390,000103: 
036391,000104: 
036392,000105: 

The character used for separation below, and throughout the rest of this section, was actually a small box, similar to the unicode white square (U+25A1). All occurrences have been replaced with the ASCII =.

036395,000108:                                                                                                  #  ========================================================================
036396,000109: 30,3464           00303        THROTDT            DEC      +195       B-14                       
036397,000110: 30,3465           00310        PGUID              DEC      +200       B-14                       
036398,000111:                                                                                                  #  ========================================================================
036399,000112: 

Page 851

036401,000114:                                                                                                  #  ***********
036402,000115:                                                                                                  #  * ENTRIES *
036403,000116:                                                                                                  #  ***********
036404,000117: 
036405,000118:                                                                                                  #  THIS ENTRY SETS UP A JOB WHICH WILL
036406,000119:                                                                                                  #  DELIVER A SPECIFIED FRACTION OF MAXIMUM
036407,000120:                                                                                                  #  THRUST.   THIS FRACTION ARRIVES (SP) IN
036408,000121:                                                                                                  #  REGISTER PCNTF.
036409,000122: 
036410,000123: 30,3466           53575        PCNTFMAX           DXCH     RTNHOLD                               #  RETAINING 2CADR FOR RETURN TO USER
036411,000124: 30,3467           35647                           CAF      PRIO25                                
036412,000125: 30,3470           00004                           INHINT                                         
036413,000126: 30,3471           05505                           TC       NOVAC                                 
036414,000127: 30,3472  E5,1565                                  EBANK=   ETHROT                                
036415,000128: 30,3472           03507 60065                     2CADR    PCNTJOB                               
036416,000129: 
036417,000130: 30,3474           00003                           RELINT                                         
036418,000131: 30,3475           13505                           TCF      AWAY                                  
036419,000132: 
036420,000133:                                                                                                  #  NORMAL ENTRY FROM GUIDANCE EQUATIONS:
036421,000134:                                                                                                  #  THE JOB SET UP HERE DELIVERS A THRUST
036422,000135:                                                                                                  #  CORRESPONDING TO THE DESIRED MAGNITUDE
036423,000136:                                                                                                  #  OF THRUST-ACCELERATION.   THIS VALUE
036424,000137:                                                                                                  #  ARRIVES (DP) IN /ACF/, SCALED IN UNITS
036425,000138:                                                                                                  #  OF 2(-5) M/CS/CS.
036426,000139: 
036427,000140: 30,3476           53575        THROTCON           DXCH     RTNHOLD                               #  RETAINING 2CADR FOR RETURN TO USER
036428,000141: 30,3477           35210                           CAF      PRIO30                                
036429,000142: 30,3500           00004                           INHINT                                         
036430,000143: 30,3501           05505                           TC       NOVAC                                 
036431,000144: 30,3502  E5,1565                                  EBANK=   ETHROT                                
036432,000145: 30,3502           03540 60065                     2CADR    ACCLJOB                               
036433,000146: 
036434,000147: 30,3504           00003                           RELINT                                         
036435,000148: 
036436,000149: 
036437,000150:                                                                                                  #  THIS RETURN IS COMMON TO BOTH ENTRIES.
036438,000151: 
036439,000152: 30,3505           53575        AWAY               DXCH     RTNHOLD                               
036440,000153: 30,3506           52006                           DTCB                                           
036441,000154: 

Page 852

036443,000156:                                                                                                  #  ***************
036444,000157:                                                                                                  #  * COMPUTATION *
036445,000158:                                                                                                  #  ***************
036446,000159: 
036447,000160: 30,3507           00004        PCNTJOB            INHINT                                         #  SINCE THROTTLING IS ABOUT TO COMMENCE.
036448,000161: 
036449,000162: 30,3510           33464                           CAF      THROTDT                               #  SET UP A TASK TO ZERO FWEIGHT IN 2 SECS
036450,000163: 30,3511           05663                           TC       WAITLIST                              
036451,000164: 30,3512  E5,1565                                  EBANK=   ETHROT                                
036452,000165: 30,3512           03456 60065                     2CADR    PCNTOVER                              
036453,000166: 
036454,000167: 30,3514           04141                           TC       2PHSCHNG                              
036455,000168: 30,3515           40031                           OCT      40031                                 #  1.3 SPOT FOR PCNTOVER
036456,000169: 30,3516           05024                           OCT      05024                                 
036457,000170: 30,3517           25000                           OCT      25000                                 
036458,000171: 
036459,000172: 30,3520           00006                           EXTEND                                         
036460,000173: 30,3521           43701                           DCS      -FMAX                                 
036461,000174: 30,3522           52145                           DXCH     MPAC                                  
036462,000175: 30,3523           31323                           CA       PCNTF                                 
036463,000176: 30,3524           07357                           TC       SHORTMP                               
036464,000177: 30,3525           52145                           DXCH     MPAC                                  #  LOADING
036465,000178: 30,3526           53571                           DXCH     FC                                    #  STORING
036466,000179: 
036467,000180: 30,3527           37767                           CA       ZERO                                  #  ZEROING FWEIGHT SINCE IT'S UNKNOWN
036468,000181: 30,3530           55576                           TS       FWEIGHT                               
036469,000182: 30,3531           55577                           TS       FWEIGHT    +1                         
036470,000183: 30,3532           13547                           TCF      FOLDCALC                              
036471,000184: 
036472,000185: 

In the following line, and the corresponding line a few lines below it, it's unclear what the characters printed are supposed to be. In the hardcopy, they appear as small rectangular boxes.

036476,000189:                                                                                                  #  ########################################################################
036477,000190: 30,3533           00063 36233  SCALEFAC           2DEC     +51.946987 B-14                       #  QUASI-NEWTONS TO PULSE UNITS
036478,000191: 
036479,000192: 30,3535           31000        2.PG.FRT           DEC      12800      B-14                       #  TWICE PGUID TIME PULSE RATE
036480,000193: 30,3536           74034        -LOCRIT            DEC      -2019      B-14                       #  THE LOWER MID-SCALE CRITERION
036481,000194: 30,3537  30,3536               FEXTRA             =        -LOCRIT                               
036482,000195: 30,3537           00666        +FLOW              DEC      +438       B-14                       #  MINIMUM ATTAINABLE THRUST
036483,000196:                                                                                                  #  ########################################################################
036484,000197: 
036485,000198: 30,3540           04161        ACCLJOB            TC       PHASCHNG                              
036486,000199: 30,3541           05024                           OCT      05024                                 
036487,000200: 30,3542           30000                           OCT      30000                                 
036488,000201: 
036489,000202: 30,3543           00006                           EXTEND                                         
036490,000203: 30,3544           31323                           DCA      /ACF/                                 
036491,000204: 30,3545           03445                           TC       MASSMULT                              
036492,000205: 30,3546           53571                           DXCH     FC                                    #  FC = MASS /ACF/, SCALED
036493,000206: 

Page 853

036495,000208: 30,3547           00006        FOLDCALC           EXTEND                                         
036496,000209: 30,3550           31325                           DCA      /AF/                                  
036497,000210: 30,3551           03445                           TC       MASSMULT                              
036498,000211: 30,3552           53566                           DXCH     FOLD                                  #  FOLD = MASS /AF/, SCALED
036499,000212: 
036500,000213: 30,3553           00006                           EXTEND                                         
036501,000214: 30,3554           31577                           DCA      FWEIGHT                               #  WEIGHTING FOLD BY FWEIGHT
036502,000215: 30,3555           21566                           DAS      FOLD                                  #    AS COMPUTED LAST PASS
036503,000216: 
036504,000217:                                                                                                  #  IF THE THROTTLE IS AT MAXIMUM, THE
036505,000218:                                                                                                  #  QUANTITY  -(FODD-FOLD)  IS COMPUTED AND
036506,000219:                                                                                                  #  PUT INTO PIFPSET TO COMPENSATE FOR THE
036507,000220:                                                                                                  #  DIFFERENCE BETWEEN THE NUMBER OF BITS
036508,000221:                                                                                                  #  (I.E. PULSES) CORRESPONDING TO 100%
036509,000222:                                                                                                  #  THROTTLE (FODD) AND THE NUMBER CORRES-
036510,000223:                                                                                                  #  PONDING TO ACTUAL THRUST (FOLD).   THIS
036511,000224:                                                                                                  #  COMPENSATION IS NEEDED IF THE THROTTLE
036512,000225:                                                                                                  #  RETURNS TO THE THROTTLEABLE REGION THIS
036513,000226:                                                                                                  #  PASS.   IF IT DOES NOT, PIFPSET IS RESET
036514,000227:                                                                                                  #  IN FLATOUT.
036515,000228: 
036516,000229: 30,3556           47767        FCOMPSET           CS       ZERO                                  
036517,000230: 30,3557           55574                           TS       PIFPSET                               
036518,000231: 30,3560           43704                           CS       +HICRIT                               
036519,000232: 30,3561           61567                           AD       FCOLD                                 
036520,000233: 30,3562           00006                           EXTEND                                         
036521,000234: 30,3563           63567                           BZMF     IS-IT-ON                              #  BRANCH IF FCOLD < HICRIT, OTHERWISE
036522,000235: 30,3564           43677                           CS       +FODD                                 #    COMPUTE THE COMPENSATION NUMBER
036523,000236: 30,3565           61565                           AD       FOLD                                  
036524,000237: 30,3566           55574                           TS       PIFPSET                               
036525,000238: 
036526,000239: 
036527,000240: 
036528,000241:                                                                                                  #  THIS ROUTINE CHECKS THE ENGINE-OFF BIT.
036529,000242:                                                                                                  #  IF THE ENGINE IS OFF, FCOLD IS SET TO
036530,000243:                                                                                                  #  10 PERCENT FMAX, AND, SINCE /AF/ DOES
036531,000244:                                                                                                  #  NOT REFLECT THE SETTING OF THE MANUAL
036532,000245:                                                                                                  #  THROTTLE, THAT SETTING (AROUND 12%) IS
036533,000246:                                                                                                  #  PLACED NEGATIVELY IN PIFPSET.
036534,000247: 
036535,000248: 30,3567           40075        IS-IT-ON           CS       FLAGWRD1                              
036536,000249: 30,3570           77757                           MASK     ENGINBIT                              
036537,000250: 30,3571           00006                           EXTEND                                         
036538,000251: 30,3572           13577                           BZF      WHERETO                               #  BRANCH HERE IF ENGINE IS ON
036539,000252: 30,3573           33537                           CA       +FLOW                                 
036540,000253: 30,3574           55567                           TS       FCOLD                                 #  SETTING FCOLD
036541,000254: 30,3575           43537                           CS       +FLOW                                 
036542,000255: 30,3576           55574                           TS       PIFPSET                               
036543,000256: 

Page 854

036545,000258:                                                                                                  #  ************
036546,000259:                                                                                                  #  * DECISION *
036547,000260:                                                                                                  #  ************
036548,000261: 
036549,000262:                                                                                                  #  THIS LOGIC DETERMINES THROTTLING IN THE
036550,000263:                                                                                                  #  REGION 10% - 94%.   THE MANUAL THROTTLE,
036551,000264:                                                                                                  #  SET TO MINIMUM BY MISSION PHASE PROGRMS,
036552,000265:                                                                                                  #  PROVIDES THE LOWER BOUND; A STOP IN THE
036553,000266:                                                                                                  #  ENGINE ITSELF PROVIDES THE UPPER.
036554,000267: 
036555,000268: 
036556,000269: 
036557,000270: 30,3577           31570        WHERETO            CA       FC                                    
036558,000271: 30,3600           63536                           AD       -LOCRIT                               
036559,000272: 30,3601           00006                           EXTEND                                         
036560,000273: 30,3602           63620                           BZMF     DOPIF                                 #  BRANCH IF FC < LOCRIT
036561,000274: 30,3603           41570                           CS       FC                                    
036562,000275: 30,3604           63704                           AD       +HICRIT                               
036563,000276: 30,3605           00006                           EXTEND                                         
036564,000277: 30,3606           63613                           BZMF     FLATOUT                               #  BRANCH IF FC > OR = HICRIT
036565,000278: 30,3607           43704                           CS       +HICRIT                               
036566,000279: 30,3610           61567                           AD       FCOLD                                 
036567,000280: 30,3611           00006                           EXTEND                                         
036568,000281: 30,3612           63620                           BZMF     DOPIF                                 #  BRANCH IF FCOLD < OR = HICRIT,
036569,000282:                                                                                                  #    OTHERWISE PROCEED TO FLATOUT
036570,000283: 

Page 855

036572,000285:                                                                                                  #  *************
036573,000286:                                                                                                  #  * EXECUTION *
036574,000287:                                                                                                  #  *************
036575,000288: 
036576,000289: 30,3613           00006        FLATOUT            EXTEND                                         
036577,000290: 30,3614           33703                           DCA      +FHIGH                                
036578,000291: 30,3615           53571                           DXCH     FC                                    
036579,000292: 30,3616           43536                           CS       FEXTRA                                
036580,000293: 30,3617           55574                           TS       PIFPSET                               
036581,000294: 
036582,000295: 30,3620           04161        DOPIF              TC       PHASCHNG                              
036583,000296: 30,3621           04024                           OCT      04024                                 #  ?
036584,000297: 
036585,000298: 30,3622           00006                           EXTEND                                         
036586,000299: 30,3623           31571                           DCA      FC                                    
036587,000300: 30,3624           55567                           TS       FCOLD                                 #  HISTORY
036588,000301: 30,3625           53573                           DXCH     PIF                                   
036589,000302: 30,3626           00006                           EXTEND                                         
036590,000303: 30,3627           41566                           DCS      FOLD                                  
036591,000304: 30,3630           21573                           DAS      PIF                                   #  PIF = FC - FOLD
036592,000305: 30,3631           03713                           TC       DAPLOGIC                              
036593,000306: 
036594,000307: 30,3632           31572        DAPLRETN           CA       PIF                                   
036595,000308: 30,3633           61574                           AD       PIFPSET                               #  ADD IN PIFPSET, NOT CHANGING PIF
036596,000309: 
036597,000310: 30,3634           54055        DOIT               TS       THRUST                                
036598,000311: 30,3635           04161                           TC       PHASCHNG                              
036599,000312: 30,3636           04024                           OCT      04024                                 
036600,000313: 
036601,000314: 30,3637           37760                           CAF      BIT4                                  
036602,000315: 30,3640           00006                           EXTEND                                         
036603,000316: 30,3641           05014                           WOR      14                                    #  AND THE ENGINE DOES THE REST...

What we show as a percent-sign below ("WOULD THAT IT WERE%") was really a 1/2 symbol (½) in the original hardcopy.

036606,000319:                                                                                                  #  SINCE /AF/ IS NOT AN INSTANTANEOUS
036607,000320:                                                                                                  #  ACCELERATION (WOULD THAT IT WERE%) BUT
036608,000321:                                                                                                  #  RATHER AN "AVERAGE" OF THE ACCELERATION
036609,000322:                                                                                                  #  LEVELS OF THE LAST PIPA INTERVAL, AND
036610,000323:                                                                                                  #  SINCE FOLD IS COMPUTED DIRECTLY FROM
036611,000324:                                                                                                  #  /AF/, FOLD IN ORDER TO CORRESPOND TO THE
036612,000325:                                                                                                  #  ACTUAL THRUST LEVEL AT THE END OF THE
036613,000326:                                                                                                  #  INTERVAL MUST BE WEIGHTED BY
036614,000327: 
036615,000328:                                                                                                  #             PIF PPROCES     PIF /PIF/
036616,000329:                                                                                                  #   FWEIGHT = ----------- + ------------- ,
036617,000330:                                                                                                  #                PGUID      2 PGUID FRATE
036618,000331: 
036619,000332:                                                                                                  #  WHERE PPROCES IS THE TIME BETWEEN PIPA
036620,000333:                                                                                                  #  READING AND THE START OF THROTTLING,
036621,000334:                                                                                                  #  PGUID IS THE GUIDANCE PERIOD (2 SECONDS)

Page 856

036623,000336:                                                                                                  #  AND FRATE IS THE THROTTLING RATE (SOME
036624,000337:                                                                                                  #  3200 UNITS PER SECOND).   HERE FWEIGHT
036625,000338:                                                                                                  #  IS COMPUTED FOR USE NEXT PASS.
036626,000339: 
036627,000340: 30,3642           00006                           EXTEND                                         
036628,000341: 30,3643           30025                           DCA      TIME2                                 
036629,000342: 30,3644           52145                           DXCH     MPAC                                  
036630,000343: 30,3645           00006                           EXTEND                                         
036631,000344: 30,3646           41307                           DCS      PIPTIME                               
036632,000345: 30,3647           20145                           DAS      MPAC                                  
036633,000346: 30,3650           33465                           CA       PGUID                                 
036634,000347: 30,3651           56145                           XCH      MPAC       +1                         
036635,000348: 30,3652           77743                           MASK     POSMAX                                #  IN CASE THAT LOUSY SIGN BIT IS SET
036636,000349: 30,3653           00006                           EXTEND                                         
036637,000350: 30,3654           10145                           DV       MPAC       +1                         #  WHICH CONTAINS PGUID
036638,000351: 30,3655           00006                           EXTEND                                         
036639,000352: 30,3656           71572                           MP       PIF                                   
036640,000353: 30,3657           53577                           DXCH     FWEIGHT                               #  FWEIGHT = (PPROCES/PGUID)PIF, SO FAR...
036641,000354: 
036642,000355: 30,3660           33535                           CA       2.PG.FRT                              
036643,000356: 30,3661           56144                           XCH      MPAC                                  #  TO BE USED AS A DIVISOR LATER
036644,000357: 30,3662           11572                           CCS      PIF                                   
036645,000358: 30,3663           67763                           AD       ONE                                   
036646,000359: 30,3664           13666                           TCF      +2                                    
036647,000360: 30,3665           67763                           AD       ONE                                   
036648,000361: 30,3666           00006                           EXTEND                                         #  AT THIS POINT HAVE /PIF/ IN A
036649,000362: 30,3667           71572                           MP       PIF                                   
036650,000363: 30,3670           00006                           EXTEND                                         
036651,000364: 30,3671           10144                           DV       MPAC                                  #  WHICH CONTAINS 2.PG.FRT
036652,000365: 30,3672           22007                           LXCH     7                                     
036653,000366: 30,3673           21577                           DAS      FWEIGHT                               
036654,000367: 
036655,000368: 30,3674           04161                           TC       PHASCHNG                              
036656,000369: 30,3675           00004                           OCT      00004                                 
036657,000370: 30,3676           15567                           TCF      ENDOFJOB                              
036658,000371: 

Page 857

036660,000373:                                                                                                  #  *************
036661,000374:                                                                                                  #  * CONSTANTS *
036662,000375:                                                                                                  #  *************
036663,000376: 
036664,000377:                                                                                                  #  CONSTANTS FOR DECISION
036665,000378: 
036666,000379: 30,3677           07432        +FODD              DEC      +3866      B-14                       #  THIS MUCH SATURATES THROTTLE
036667,000380: 
036668,000381: 30,3700           70325 77777  -FMAX              2DEC     -3882      B-14                       #  NOMINAL MAX THRUST IN BIT UNITS
036669,000382: 
036670,000383: 30,3702           07100 00000  +FHIGH             2DEC     +3648      B-14                       #  MAX ATTAINABLE THRUST, UNERODED
036671,000384: 
036672,000385: 30,3704           04314        +HICRIT            DEC      +2252      B-14                       #  THE HIGHER MID-SCALE CRITERION
036673,000386: 

In the following line, and the corresponding line a few lines below it, it's unclear what the characters printed are supposed to be. In the hardcopy, they appear as small rectangular boxes.

036677,000390:                                                                                                  #  ########################################################################
036678,000391:                                                                                                  #  SINCE BETWEEN REVISION 113 AND 114 IT WAS NECESSARY TO PRESERVE THE
036679,000392:                                                                                                  #  LOCATIONS IN MEMORY OF LABELS ADDRESSED FROM OTHER BANKS (SINCE THE ROPE
036680,000393:                                                                                                  #  IS ALREADY UNDER CONSTRUCTION) CERTAIN CONSTANTS WERE REMOVED FROM THIS
036681,000394:                                                                                                  #  SECTION FOR USE AS FILLER ELSEWHERE.   THESE ARE -LOCRIT, +FLOW,
036682,000395:                                                                                                  #  SCALEFAC, FEXTRA, THROTDT, PGUID, AND 2.PG.FRT.
036683,000396:                                                                                                  #  ########################################################################
036684,000397: 
036685,000398: 
036686,000399: 
036687,000400:                                                                                                  #  IF THE TRIM GIMBAL IS TURNED OFF BY
036688,000401:                                                                                                  #  THE THROTTLE, THIS TASK WILL REENABLE IT
036689,000402:                                                                                                  #  ABOUT 2 SECONDS LATER.
036690,000403: 
036691,000404: 30,3705           06076        THROTOVR           TC       FLAG2DWN                              
036692,000405: 30,3706           00010                           OCT      00010                                 
036693,000406: 30,3707           47767                           CS       ZERO                                  
036694,000407: 30,3710           22007                           ZL                                             
036695,000408: 30,3711           53100                           DXCH     -PHASE1                               
036696,000409: 30,3712           15727                           TCF      TASKOVER                              
036697,000410: 
036698,000411: 
036699,000412: 
036700,000413: 30,3713           31572        DAPLOGIC           CA       PIF                                   
036701,000414: 30,3714           00006                           EXTEND                                         
036702,000415: 30,3715           63717                           BZMF     +2                                    
036703,000416: 30,3716           40000                           COM                                            
036704,000417: 
036705,000418: 30,3717           63770                           AD       HITHRESH                              
036706,000419: 30,3720           00006                           EXTEND                                         
036707,000420: 30,3721           63750                           BZMF     JETSET                                #  BRANCH IF /PIF/ > OR = HITHRESH
036708,000421: 
036709,000422: 30,3722           31565                           CA       FOLD                                  
036710,000423: 30,3723           60000                           DOUBLE                                         
036711,000424: 30,3724           54120                           TS       BUF                                   
036712,000425: 

Page 858

036714,000427: 30,3725           31570                           CA       FC                                    
036715,000428: 30,3726           00006                           EXTEND                                         
036716,000429: 30,3727           10120                           DV       BUF                                   #  WHERE TWICE FOLD WAS STORED
036717,000430: 30,3730           54120                           TS       BUF                                   
036718,000431: 30,3731           35632                           CA       EBANK6                                
036719,000432: 30,3732           54003                           TS       EBANK                                 
036720,000433: 30,3733  E6,1563                                  EBANK=   D2CDUYFL                              
036721,000434: 30,3733           30120                           CA       BUF                                   
036722,000435: 30,3734           00006                           EXTEND                                         
036723,000436: 30,3735           71563                           MP       D2CDUYFL                              
036724,000437: 30,3736           60000                           DOUBLE                                         
036725,000438: 30,3737           57563                           XCH      D2CDUYFL                              
036726,000439: 30,3740           30120                           CA       BUF                                   
036727,000440: 30,3741           00006                           EXTEND                                         
036728,000441: 30,3742           71565                           MP       D2CDUZFL                              
036729,000442: 30,3743           60000                           DOUBLE                                         
036730,000443: 30,3744           57565                           XCH      D2CDUZFL                              
036731,000444: 
036732,000445: 30,3745           35661                           CA       EBANK5                                
036733,000446: 30,3746           54003                           TS       EBANK                                 
036734,000447: 30,3747  E5,1565                                  EBANK=   ETHROT                                
036735,000448: 30,3747           13632                           TCF      DAPLRETN                              
036736,000449: 
036737,000450: 
036738,000451: 
036739,000452: 30,3750           00004        JETSET             INHINT                                         
036740,000453: 30,3751           40077                           CS       DAPBOOLS                              #  INHIBIT USE OF TRIM GIMBAL
036741,000454: 30,3752           77762                           MASK     USEQRJTS                              
036742,000455: 30,3753           26077                           ADS      DAPBOOLS                              
036743,000456: 
036744,000457: 30,3754           33464                           CA       THROTDT                               #  SET UP TASK TO REMOVE THE INHIBITION
036745,000458: 30,3755           05663                           TC       WAITLIST                              #    CREATED BELOW
036746,000459: 30,3756  E5,1565                                  EBANK=   ETHROT                                
036747,000460: 30,3756           03705 60065                     2CADR    THROTOVR                              
036748,000461: 
036749,000462: 30,3760           06060                           TC       FLAG2UP                               #  INHIBIT THE GIMBLMON FROM REACTIVATING
036750,000463: 30,3761           00010                           OCT      00010                                 #    THE GIMBAL
036751,000464: 
036752,000465: 30,3762           04161                           TC       PHASCHNG                              
036753,000466: 30,3763           47011                           OCT      47011                                 
036754,000467: 30,3764           00303                           DEC      195        B-14                       
036755,000468: 30,3765  E5,1565                                  EBANK=   ETHROT                                
036756,000469: 30,3765           03705 60065                     2CADR    THROTOVR                              
036757,000470: 
036758,000471: 30,3767           13632                           TCF      DAPLRETN                              
036759,000472: 
036760,000473: 
036761,000474: 
036762,000475: 30,3770           00302        HITHRESH           DEC      +194       B-14                       #  ABOUT 5 % OF NOMINAL MAXIMUM THRUST

End of include-file THROTTLE_CONTROL.agc.  Parent file is MAIN.agc