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. |
036316,000002: ## Copyright: Public domain.
036317,000003: ## Filename: THROTTLE_CONTROL.agc
036318,000004: ## Purpose: A module for revision 0 of BURST120 (Sunburst). It
036319,000005: ## is part of the source code for the Lunar Module's
036320,000006: ## (LM) Apollo Guidance Computer (AGC) for Apollo 5.
036321,000007: ## Assembler: yaYUL
036322,000008: ## Contact: Ron Burkey <info@sandroid.org>.
036323,000009: ## Website: www.ibiblio.org/apollo/index.html
036324,000010: ## Mod history: 2016-09-30 RSB Created draft version.
036325,000011: ## 2016-10-30 MAS Transcribed.
036326,000012: ## 2016-11-02 RSB Typo.
036327,000013: ## 2016-12-06 RSB Comment-proofing via octopus/ProoferComments;
036328,000014: ## changes were made.
036329,000015:
![]() |
Page 849 |
036331,000017: # THROTTLE CONTROL CAN BE USED IN EITHER OF TWO MODES: IN "PERCENTAGE MODE" (WHEN A CERTAIN FRACTION OF
036332,000018: # MAXIMUM THRUST IS DESIRED) AND IN "ACCELERATION MODE" (WHEN THE THRUST DESIRED IS THAT CORRESPONDING TO A
036333,000019: # SPECIFIED ACCELERATION).
036334,000020:
036335,000021: # PERCENTAGE MODE ACCELERATION MODE
036336,000022:
036337,000023: # THE FRACTION OF MAXIMUM THRUST (NOMINALLY DESIRED ACCELERATION, IN DOUBLE PRECISION,
036338,000024: # 10500 POUNDS) DESIRED, IN SINGLE PRECISION, IS IN UNITS OF 2(-5) M/CS/CS, IS PLACED IN /ACF/.
036339,000025: # PLACED IN PCNTF. ENTRY IS VIA A DTCB AN THE ENTRY IS VIA A DTCB ON THE 2CADR OF THROTCON.
036340,000026: # 2CADR OF PCNTFMAX. THE ROUTINE BEGINNING AT THE ROUTINE BEGINNING AT THROTCON SETS UP A JOB -
036341,000027: # PCNTFMAX SETS UP A JOB - PCNTJOB - AND RETURNS ACCLJOB - AND RETURNS TO THE USER (AT THE
036342,000028: # TO THE USER (AT THE INSTRUCTION IMMEDIATELY INSTRUCTION FOLLOWING THE DTCB).
036343,000029: # FOLLOWING THE DTCB).
036344,000030: # ACCLJOB, AFTER A RESTART PROTECT,
036345,000031: # PCNTJOB, AFTER A RESTART PROTECT, COMPUTES DESIRED ACCELERATION, FC = /ACF/ MASS,
036346,000032: # TURNS OFF THE TRIM GIMBAL, SETS UP A WAITLIST SCALED AT ABOUT 2.7 POUNDS PER BIT.
036347,000033: # TASK (DESCRIBED LOCALLY), COMPUTES THRUST DESIRED,
036348,000034: # FC = PCNTF FMAX, SCALED AT ABOUT 2.7 POUNDS PER BIT, (NOTE THAT IN THE ACCELERATION MODE THE TRIM
036349,000035: # AND TCF'S AROUND THE COMMENCEMENT OF ACCLJOB TO GIMBAL IS NOT TURNED OFF; IT IS ASSUMED TO BE OFF
036350,000036: # FOLDCALC. BY THE TIME THROTTLE CHANGES ARE COMMANDED.
036351,000037:
036352,000038: # FOLDCALC BEGINS BY COMPUTING PRESENT THRUST, FOLD = MASS /AF/, SCALED AS IS FC. NEXT, SINCE /AF/ IS
036353,000039: # MERELY AN "AVERAGE" OF THE THROTTLE LEVELS OF THE PRECEEDING PIPA INTERVAL, FOLD IS WEIGHTED BY FWEIGHT, A
036354,000040: # FUNCTION OF THE PRECEEDING THROTTLE COMMAND (DESCRIBED LOCALLY). TO PRECLUDE A SPURIOUS WEIGHTING THAT WOULD
036355,000041: # OTHERWISE OCCUR, FWEIGHT IS ZEROED 1.95 SECONDS AFTER EVERY PERCENTAGE MODE THROTTLING.
036356,000042:
036357,000043: # NEXT, TO COMPENSATE FOR THE DIFFERENTIAL BETWEEN BITS FOR MAXIMUM THRUST AND BITS FOR FULL THROTTLE, THE
036358,000044: # NUMBER FOLD - FODD IS COMPUTED AND SET INTO PIFPSET WHENEVER FCOLD INDICATES THE THROTTLE IS AT MAXIMUM.
036359,000045: # SINCE PIFPSET IS USED, RATHER THAN PIF, PIF STILL REFLECTS ACCURATELY THE ACTUAL THRUST CHANGE AND FWEIGHT IS
036360,000046: # COMPUTED PROPERLY.
036361,000047:
036362,000048: # NEXT COMES IS-IT-ON. HERE THE ENGINE-OFF BIT (14 OF CHANNEL 11) IS QUERIED; IF THE ENGINE IS OFF
036363,000049: # FCOLD, THE SINGLE PRECISION HISTORY REGISTER, IS SET TO 10% FMAX AND PIFPSET, A PRESETTING ADDED TO PIF AT
036364,000050: # THE LAST MOMENT, IS SET TO -10% FMAX TO COMPENSATE FOR THE ASSUMED SETTING OF THE MANUAL THROTTLE.
036365,000051:
036366,000052: # THE SERIES OF DECISIONS BEGINNING AT WHERETO CAUSES THE THROTTLE TO REACT TO USERS' DESIRES IN THE
036367,000053: # MANNER DESCRIBED BY FIGURE 5.3-5 OF THE FLIGHT 206 GSOP. WHERETO PROCEEDS (OR BRANCHES) TO FLATOUT (IF THE
036368,000054: # THROTTLE LEVEL ASKED FOR IS IN THE FORBIDDEN REGION) OR TO DOPIF. FLATOUT RESETS FC TO 94% FMAX, SETS FEXTRA
036369,000055: # (A BOOST GIVEN TO THE THROTTLE TO KEEP IT JAMMED AGAINST ITS STOPS) INTO PIFPSET, AND PROCEEDS TO DOPIF.
036370,000056:
036371,000057: # DOPIF, AFTER A "TYPE C" RESTART PROTECT (NECESSITATED BY THE FACT THAT FCOLD AND PIF, USED EARLIER, ARE
036372,000058: # ABOUT TO BE MODIFIED), SETS FCOLD = FC, COMPUTES PIF (PULSE INCREMENT FOR ACCELERATION) = FC - FOLD, AND, AS
036373,000059: # IT PROCEEDS TO DOIT, HAS THIS NUMBER PLUS PIFPSET IN A & L.
036374,000060:
036375,000061: # DOIT DOES IT. IT TS'S INTO THRUST, THE CHANNEL (55) LEADING TO DECA, THE THROTTLE-AGC INTERFACE
036376,000062: # CIRCUIT, AND SETS BIT 4 IN CHANNEL 11, THE SIGNAL FOR THRUST TO BE COUNTED DOWN (AT 3200 PPS). FINALLY,
036377,000063: # FWEIGHT = F(PIF) IS COMPUTED FOR USE NEXT PASS.
036378,000064:
036379,000065: # AFTER ANOTHER RESTART PROTECT A TCF ENDOFJOB ENDS THROTTLE CONTROL.
036380,000066:
![]() |
Page 850 |
036382,000068: 30,3445 BANK 30
036383,000069: 30,3445 E5,1565 EBANK= ETHROT
036384,000070:
036385,000071:
036386,000072:
036387,000073: # ***************
036388,000074: # * SUBROUTINES *
036389,000075: # ***************
036390,000076:
036391,000077: # THIS SUBROUTINE MULTIPLIES ACCELERATION
036392,000078: # (ARRIVING IN A AND L) BY MASS AND LEAVES
036393,000079: # FORCE (THRUST) IN A & L, SCALED AT ABOUT
036394,000080: # 2.7 POUNDS PER BIT.
036395,000081:
036396,000082: 30,3445 00006 MASSMULT EXTEND
036397,000083: 30,3446 22120 QXCH BUF # PRESERVING RETURN ADDRESS
036398,000084: 30,3447 52145 DXCH MPAC
036399,000085: 30,3450 07155 TC DMP # LEAVES ODDLY SCALED FORCE IN MPAC
036400,000086: 30,3451 01320 ADRES MASS
036401,000087: 30,3452 07155 TC DMP # LEAVES PROPERLY SCALED FORCE IN MPAC
036402,000088: 30,3453 03533 ADRES SCALEFAC
036403,000089: 30,3454 52146 DXCH MPAC +1 # LOADING FORCE INTO A AND L
036404,000090: 30,3455 00120 TC BUF # IN WHICH Q WAS STORED
036405,000091:
036406,000092:
036407,000093:
036408,000094: # THIS TASK WILL BE EXECUTED 1.95 SECONDS
036409,000095: # AFTER PERCENTAGE MODE THROTTLING.
036410,000096:
036411,000097: 30,3456 47767 PCNTOVER CS ZERO
036412,000098: 30,3457 55576 TS FWEIGHT # SCHEME WILL WORK PROPERLY NEXT PASS
036413,000099: 30,3460 55577 TS FWEIGHT +1
036414,000100: 30,3461 22007 ZL # -0 STILL IN A
036415,000101: 30,3462 53100 DXCH -PHASE1
036416,000102: 30,3463 15727 TCF TASKOVER
036417,000103:
036418,000104:
036419,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 =. |
036422,000108: # ========================================================================
036423,000109: 30,3464 00303 THROTDT DEC +195 B-14
036424,000110: 30,3465 00310 PGUID DEC +200 B-14
036425,000111: # ========================================================================
036426,000112:
![]() |
Page 851 |
036428,000114: # ***********
036429,000115: # * ENTRIES *
036430,000116: # ***********
036431,000117:
036432,000118: # THIS ENTRY SETS UP A JOB WHICH WILL
036433,000119: # DELIVER A SPECIFIED FRACTION OF MAXIMUM
036434,000120: # THRUST. THIS FRACTION ARRIVES (SP) IN
036435,000121: # REGISTER PCNTF.
036436,000122:
036437,000123: 30,3466 53575 PCNTFMAX DXCH RTNHOLD # RETAINING 2CADR FOR RETURN TO USER
036438,000124: 30,3467 35647 CAF PRIO25
036439,000125: 30,3470 00004 INHINT
036440,000126: 30,3471 05505 TC NOVAC
036441,000127: 30,3472 E5,1565 EBANK= ETHROT
036442,000128: 30,3472 03507 60065 2CADR PCNTJOB
036443,000129:
036444,000130: 30,3474 00003 RELINT
036445,000131: 30,3475 13505 TCF AWAY
036446,000132:
036447,000133: # NORMAL ENTRY FROM GUIDANCE EQUATIONS:
036448,000134: # THE JOB SET UP HERE DELIVERS A THRUST
036449,000135: # CORRESPONDING TO THE DESIRED MAGNITUDE
036450,000136: # OF THRUST-ACCELERATION. THIS VALUE
036451,000137: # ARRIVES (DP) IN /ACF/, SCALED IN UNITS
036452,000138: # OF 2(-5) M/CS/CS.
036453,000139:
036454,000140: 30,3476 53575 THROTCON DXCH RTNHOLD # RETAINING 2CADR FOR RETURN TO USER
036455,000141: 30,3477 35210 CAF PRIO30
036456,000142: 30,3500 00004 INHINT
036457,000143: 30,3501 05505 TC NOVAC
036458,000144: 30,3502 E5,1565 EBANK= ETHROT
036459,000145: 30,3502 03540 60065 2CADR ACCLJOB
036460,000146:
036461,000147: 30,3504 00003 RELINT
036462,000148:
036463,000149:
036464,000150: # THIS RETURN IS COMMON TO BOTH ENTRIES.
036465,000151:
036466,000152: 30,3505 53575 AWAY DXCH RTNHOLD
036467,000153: 30,3506 52006 DTCB
036468,000154:
![]() |
Page 852 |
036470,000156: # ***************
036471,000157: # * COMPUTATION *
036472,000158: # ***************
036473,000159:
036474,000160: 30,3507 00004 PCNTJOB INHINT # SINCE THROTTLING IS ABOUT TO COMMENCE.
036475,000161:
036476,000162: 30,3510 33464 CAF THROTDT # SET UP A TASK TO ZERO FWEIGHT IN 2 SECS
036477,000163: 30,3511 05663 TC WAITLIST
036478,000164: 30,3512 E5,1565 EBANK= ETHROT
036479,000165: 30,3512 03456 60065 2CADR PCNTOVER
036480,000166:
036481,000167: 30,3514 04141 TC 2PHSCHNG
036482,000168: 30,3515 40031 OCT 40031 # 1.3 SPOT FOR PCNTOVER
036483,000169: 30,3516 05024 OCT 05024
036484,000170: 30,3517 25000 OCT 25000
036485,000171:
036486,000172: 30,3520 00006 EXTEND
036487,000173: 30,3521 43701 DCS -FMAX
036488,000174: 30,3522 52145 DXCH MPAC
036489,000175: 30,3523 31323 CA PCNTF
036490,000176: 30,3524 07357 TC SHORTMP
036491,000177: 30,3525 52145 DXCH MPAC # LOADING
036492,000178: 30,3526 53571 DXCH FC # STORING
036493,000179:
036494,000180: 30,3527 37767 CA ZERO # ZEROING FWEIGHT SINCE IT'S UNKNOWN
036495,000181: 30,3530 55576 TS FWEIGHT
036496,000182: 30,3531 55577 TS FWEIGHT +1
036497,000183: 30,3532 13547 TCF FOLDCALC
036498,000184:
036499,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. |
036503,000189: # ########################################################################
036504,000190: 30,3533 00063 36233 SCALEFAC 2DEC +51.946987 B-14 # QUASI-NEWTONS TO PULSE UNITS
036505,000191:
036506,000192: 30,3535 31000 2.PG.FRT DEC 12800 B-14 # TWICE PGUID TIME PULSE RATE
036507,000193: 30,3536 74034 -LOCRIT DEC -2019 B-14 # THE LOWER MID-SCALE CRITERION
036508,000194: 30,3537 30,3536 FEXTRA = -LOCRIT
036509,000195: 30,3537 00666 +FLOW DEC +438 B-14 # MINIMUM ATTAINABLE THRUST
036510,000196: # ########################################################################
036511,000197:
036512,000198: 30,3540 04161 ACCLJOB TC PHASCHNG
036513,000199: 30,3541 05024 OCT 05024
036514,000200: 30,3542 30000 OCT 30000
036515,000201:
036516,000202: 30,3543 00006 EXTEND
036517,000203: 30,3544 31323 DCA /ACF/
036518,000204: 30,3545 03445 TC MASSMULT
036519,000205: 30,3546 53571 DXCH FC # FC = MASS /ACF/, SCALED
036520,000206:
![]() |
Page 853 |
036522,000208: 30,3547 00006 FOLDCALC EXTEND
036523,000209: 30,3550 31325 DCA /AF/
036524,000210: 30,3551 03445 TC MASSMULT
036525,000211: 30,3552 53566 DXCH FOLD # FOLD = MASS /AF/, SCALED
036526,000212:
036527,000213: 30,3553 00006 EXTEND
036528,000214: 30,3554 31577 DCA FWEIGHT # WEIGHTING FOLD BY FWEIGHT
036529,000215: 30,3555 21566 DAS FOLD # AS COMPUTED LAST PASS
036530,000216:
036531,000217: # IF THE THROTTLE IS AT MAXIMUM, THE
036532,000218: # QUANTITY -(FODD-FOLD) IS COMPUTED AND
036533,000219: # PUT INTO PIFPSET TO COMPENSATE FOR THE
036534,000220: # DIFFERENCE BETWEEN THE NUMBER OF BITS
036535,000221: # (I.E. PULSES) CORRESPONDING TO 100%
036536,000222: # THROTTLE (FODD) AND THE NUMBER CORRES-
036537,000223: # PONDING TO ACTUAL THRUST (FOLD). THIS
036538,000224: # COMPENSATION IS NEEDED IF THE THROTTLE
036539,000225: # RETURNS TO THE THROTTLEABLE REGION THIS
036540,000226: # PASS. IF IT DOES NOT, PIFPSET IS RESET
036541,000227: # IN FLATOUT.
036542,000228:
036543,000229: 30,3556 47767 FCOMPSET CS ZERO
036544,000230: 30,3557 55574 TS PIFPSET
036545,000231: 30,3560 43704 CS +HICRIT
036546,000232: 30,3561 61567 AD FCOLD
036547,000233: 30,3562 00006 EXTEND
036548,000234: 30,3563 63567 BZMF IS-IT-ON # BRANCH IF FCOLD < HICRIT, OTHERWISE
036549,000235: 30,3564 43677 CS +FODD # COMPUTE THE COMPENSATION NUMBER
036550,000236: 30,3565 61565 AD FOLD
036551,000237: 30,3566 55574 TS PIFPSET
036552,000238:
036553,000239:
036554,000240:
036555,000241: # THIS ROUTINE CHECKS THE ENGINE-OFF BIT.
036556,000242: # IF THE ENGINE IS OFF, FCOLD IS SET TO
036557,000243: # 10 PERCENT FMAX, AND, SINCE /AF/ DOES
036558,000244: # NOT REFLECT THE SETTING OF THE MANUAL
036559,000245: # THROTTLE, THAT SETTING (AROUND 12%) IS
036560,000246: # PLACED NEGATIVELY IN PIFPSET.
036561,000247:
036562,000248: 30,3567 40075 IS-IT-ON CS FLAGWRD1
036563,000249: 30,3570 77757 MASK ENGINBIT
036564,000250: 30,3571 00006 EXTEND
036565,000251: 30,3572 13577 BZF WHERETO # BRANCH HERE IF ENGINE IS ON
036566,000252: 30,3573 33537 CA +FLOW
036567,000253: 30,3574 55567 TS FCOLD # SETTING FCOLD
036568,000254: 30,3575 43537 CS +FLOW
036569,000255: 30,3576 55574 TS PIFPSET
036570,000256:
![]() |
Page 854 |
036572,000258: # ************
036573,000259: # * DECISION *
036574,000260: # ************
036575,000261:
036576,000262: # THIS LOGIC DETERMINES THROTTLING IN THE
036577,000263: # REGION 10% - 94%. THE MANUAL THROTTLE,
036578,000264: # SET TO MINIMUM BY MISSION PHASE PROGRMS,
036579,000265: # PROVIDES THE LOWER BOUND; A STOP IN THE
036580,000266: # ENGINE ITSELF PROVIDES THE UPPER.
036581,000267:
036582,000268:
036583,000269:
036584,000270: 30,3577 31570 WHERETO CA FC
036585,000271: 30,3600 63536 AD -LOCRIT
036586,000272: 30,3601 00006 EXTEND
036587,000273: 30,3602 63620 BZMF DOPIF # BRANCH IF FC < LOCRIT
036588,000274: 30,3603 41570 CS FC
036589,000275: 30,3604 63704 AD +HICRIT
036590,000276: 30,3605 00006 EXTEND
036591,000277: 30,3606 63613 BZMF FLATOUT # BRANCH IF FC > OR = HICRIT
036592,000278: 30,3607 43704 CS +HICRIT
036593,000279: 30,3610 61567 AD FCOLD
036594,000280: 30,3611 00006 EXTEND
036595,000281: 30,3612 63620 BZMF DOPIF # BRANCH IF FCOLD < OR = HICRIT,
036596,000282: # OTHERWISE PROCEED TO FLATOUT
036597,000283:
![]() |
Page 855 |
036599,000285: # *************
036600,000286: # * EXECUTION *
036601,000287: # *************
036602,000288:
036603,000289: 30,3613 00006 FLATOUT EXTEND
036604,000290: 30,3614 33703 DCA +FHIGH
036605,000291: 30,3615 53571 DXCH FC
036606,000292: 30,3616 43536 CS FEXTRA
036607,000293: 30,3617 55574 TS PIFPSET
036608,000294:
036609,000295: 30,3620 04161 DOPIF TC PHASCHNG
036610,000296: 30,3621 04024 OCT 04024 # ?
036611,000297:
036612,000298: 30,3622 00006 EXTEND
036613,000299: 30,3623 31571 DCA FC
036614,000300: 30,3624 55567 TS FCOLD # HISTORY
036615,000301: 30,3625 53573 DXCH PIF
036616,000302: 30,3626 00006 EXTEND
036617,000303: 30,3627 41566 DCS FOLD
036618,000304: 30,3630 21573 DAS PIF # PIF = FC - FOLD
036619,000305: 30,3631 03713 TC DAPLOGIC
036620,000306:
036621,000307: 30,3632 31572 DAPLRETN CA PIF
036622,000308: 30,3633 61574 AD PIFPSET # ADD IN PIFPSET, NOT CHANGING PIF
036623,000309:
036624,000310: 30,3634 54055 DOIT TS THRUST
036625,000311: 30,3635 04161 TC PHASCHNG
036626,000312: 30,3636 04024 OCT 04024
036627,000313:
036628,000314: 30,3637 37760 CAF BIT4
036629,000315: 30,3640 00006 EXTEND
036630,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. |
036633,000319: # SINCE /AF/ IS NOT AN INSTANTANEOUS
036634,000320: # ACCELERATION (WOULD THAT IT WERE%) BUT
036635,000321: # RATHER AN "AVERAGE" OF THE ACCELERATION
036636,000322: # LEVELS OF THE LAST PIPA INTERVAL, AND
036637,000323: # SINCE FOLD IS COMPUTED DIRECTLY FROM
036638,000324: # /AF/, FOLD IN ORDER TO CORRESPOND TO THE
036639,000325: # ACTUAL THRUST LEVEL AT THE END OF THE
036640,000326: # INTERVAL MUST BE WEIGHTED BY
036641,000327:
036642,000328: # PIF PPROCES PIF /PIF/
036643,000329: # FWEIGHT = ----------- + ------------- ,
036644,000330: # PGUID 2 PGUID FRATE
036645,000331:
036646,000332: # WHERE PPROCES IS THE TIME BETWEEN PIPA
036647,000333: # READING AND THE START OF THROTTLING,
036648,000334: # PGUID IS THE GUIDANCE PERIOD (2 SECONDS)
![]() |
Page 856 |
036650,000336: # AND FRATE IS THE THROTTLING RATE (SOME
036651,000337: # 3200 UNITS PER SECOND). HERE FWEIGHT
036652,000338: # IS COMPUTED FOR USE NEXT PASS.
036653,000339:
036654,000340: 30,3642 00006 EXTEND
036655,000341: 30,3643 30025 DCA TIME2
036656,000342: 30,3644 52145 DXCH MPAC
036657,000343: 30,3645 00006 EXTEND
036658,000344: 30,3646 41307 DCS PIPTIME
036659,000345: 30,3647 20145 DAS MPAC
036660,000346: 30,3650 33465 CA PGUID
036661,000347: 30,3651 56145 XCH MPAC +1
036662,000348: 30,3652 77743 MASK POSMAX # IN CASE THAT LOUSY SIGN BIT IS SET
036663,000349: 30,3653 00006 EXTEND
036664,000350: 30,3654 10145 DV MPAC +1 # WHICH CONTAINS PGUID
036665,000351: 30,3655 00006 EXTEND
036666,000352: 30,3656 71572 MP PIF
036667,000353: 30,3657 53577 DXCH FWEIGHT # FWEIGHT = (PPROCES/PGUID)PIF, SO FAR...
036668,000354:
036669,000355: 30,3660 33535 CA 2.PG.FRT
036670,000356: 30,3661 56144 XCH MPAC # TO BE USED AS A DIVISOR LATER
036671,000357: 30,3662 11572 CCS PIF
036672,000358: 30,3663 67763 AD ONE
036673,000359: 30,3664 13666 TCF +2
036674,000360: 30,3665 67763 AD ONE
036675,000361: 30,3666 00006 EXTEND # AT THIS POINT HAVE /PIF/ IN A
036676,000362: 30,3667 71572 MP PIF
036677,000363: 30,3670 00006 EXTEND
036678,000364: 30,3671 10144 DV MPAC # WHICH CONTAINS 2.PG.FRT
036679,000365: 30,3672 22007 LXCH 7
036680,000366: 30,3673 21577 DAS FWEIGHT
036681,000367:
036682,000368: 30,3674 04161 TC PHASCHNG
036683,000369: 30,3675 00004 OCT 00004
036684,000370: 30,3676 15567 TCF ENDOFJOB
036685,000371:
![]() |
Page 857 |
036687,000373: # *************
036688,000374: # * CONSTANTS *
036689,000375: # *************
036690,000376:
036691,000377: # CONSTANTS FOR DECISION
036692,000378:
036693,000379: 30,3677 07432 +FODD DEC +3866 B-14 # THIS MUCH SATURATES THROTTLE
036694,000380:
036695,000381: 30,3700 70325 77777 -FMAX 2DEC -3882 B-14 # NOMINAL MAX THRUST IN BIT UNITS
036696,000382:
036697,000383: 30,3702 07100 00000 +FHIGH 2DEC +3648 B-14 # MAX ATTAINABLE THRUST, UNERODED
036698,000384:
036699,000385: 30,3704 04314 +HICRIT DEC +2252 B-14 # THE HIGHER MID-SCALE CRITERION
036700,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. |
036704,000390: # ########################################################################
036705,000391: # SINCE BETWEEN REVISION 113 AND 114 IT WAS NECESSARY TO PRESERVE THE
036706,000392: # LOCATIONS IN MEMORY OF LABELS ADDRESSED FROM OTHER BANKS (SINCE THE ROPE
036707,000393: # IS ALREADY UNDER CONSTRUCTION) CERTAIN CONSTANTS WERE REMOVED FROM THIS
036708,000394: # SECTION FOR USE AS FILLER ELSEWHERE. THESE ARE -LOCRIT, +FLOW,
036709,000395: # SCALEFAC, FEXTRA, THROTDT, PGUID, AND 2.PG.FRT.
036710,000396: # ########################################################################
036711,000397:
036712,000398:
036713,000399:
036714,000400: # IF THE TRIM GIMBAL IS TURNED OFF BY
036715,000401: # THE THROTTLE, THIS TASK WILL REENABLE IT
036716,000402: # ABOUT 2 SECONDS LATER.
036717,000403:
036718,000404: 30,3705 06076 THROTOVR TC FLAG2DWN
036719,000405: 30,3706 00010 OCT 00010
036720,000406: 30,3707 47767 CS ZERO
036721,000407: 30,3710 22007 ZL
036722,000408: 30,3711 53100 DXCH -PHASE1
036723,000409: 30,3712 15727 TCF TASKOVER
036724,000410:
036725,000411:
036726,000412:
036727,000413: 30,3713 31572 DAPLOGIC CA PIF
036728,000414: 30,3714 00006 EXTEND
036729,000415: 30,3715 63717 BZMF +2
036730,000416: 30,3716 40000 COM
036731,000417:
036732,000418: 30,3717 63770 AD HITHRESH
036733,000419: 30,3720 00006 EXTEND
036734,000420: 30,3721 63750 BZMF JETSET # BRANCH IF /PIF/ > OR = HITHRESH
036735,000421:
036736,000422: 30,3722 31565 CA FOLD
036737,000423: 30,3723 60000 DOUBLE
036738,000424: 30,3724 54120 TS BUF
036739,000425:
![]() |
Page 858 |
036741,000427: 30,3725 31570 CA FC
036742,000428: 30,3726 00006 EXTEND
036743,000429: 30,3727 10120 DV BUF # WHERE TWICE FOLD WAS STORED
036744,000430: 30,3730 54120 TS BUF
036745,000431: 30,3731 35632 CA EBANK6
036746,000432: 30,3732 54003 TS EBANK
036747,000433: 30,3733 E6,1563 EBANK= D2CDUYFL
036748,000434: 30,3733 30120 CA BUF
036749,000435: 30,3734 00006 EXTEND
036750,000436: 30,3735 71563 MP D2CDUYFL
036751,000437: 30,3736 60000 DOUBLE
036752,000438: 30,3737 57563 XCH D2CDUYFL
036753,000439: 30,3740 30120 CA BUF
036754,000440: 30,3741 00006 EXTEND
036755,000441: 30,3742 71565 MP D2CDUZFL
036756,000442: 30,3743 60000 DOUBLE
036757,000443: 30,3744 57565 XCH D2CDUZFL
036758,000444:
036759,000445: 30,3745 35661 CA EBANK5
036760,000446: 30,3746 54003 TS EBANK
036761,000447: 30,3747 E5,1565 EBANK= ETHROT
036762,000448: 30,3747 13632 TCF DAPLRETN
036763,000449:
036764,000450:
036765,000451:
036766,000452: 30,3750 00004 JETSET INHINT
036767,000453: 30,3751 40077 CS DAPBOOLS # INHIBIT USE OF TRIM GIMBAL
036768,000454: 30,3752 77762 MASK USEQRJTS
036769,000455: 30,3753 26077 ADS DAPBOOLS
036770,000456:
036771,000457: 30,3754 33464 CA THROTDT # SET UP TASK TO REMOVE THE INHIBITION
036772,000458: 30,3755 05663 TC WAITLIST # CREATED BELOW
036773,000459: 30,3756 E5,1565 EBANK= ETHROT
036774,000460: 30,3756 03705 60065 2CADR THROTOVR
036775,000461:
036776,000462: 30,3760 06060 TC FLAG2UP # INHIBIT THE GIMBLMON FROM REACTIVATING
036777,000463: 30,3761 00010 OCT 00010 # THE GIMBAL
036778,000464:
036779,000465: 30,3762 04161 TC PHASCHNG
036780,000466: 30,3763 47011 OCT 47011
036781,000467: 30,3764 00303 DEC 195 B-14
036782,000468: 30,3765 E5,1565 EBANK= ETHROT
036783,000469: 30,3765 03705 60065 2CADR THROTOVR
036784,000470:
036785,000471: 30,3767 13632 TCF DAPLRETN
036786,000472:
036787,000473:
036788,000474:
036789,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