Source Code

These source-code files were obtained by digitally photographing an Artemis 72 (Apollo 15-17 Command Module) program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Photography was by Ron Burkey, and transcription was performed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional images may be available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971
Note that the date is the date of the printout, not the date of the program revision.

043369,000002:                                                                                                  ## Copyright:   Public domain.
043370,000003:                                                                                                  ## Filename:    TVCROLLDAP.agc
043371,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
043372,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM)
043373,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for
043374,000007:                                                                                                  ##              Apollo 15-17.
043375,000008:                                                                                                  ## Assembler:   yaYUL
043376,000009:                                                                                                  ## Contact:     Steve Case <case1780@adelphia.net>
043377,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
043378,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
043379,000012:                                                                                                  ## Mod history: 2009-09-13 SMC  Adapted from Comanche055 files.
043380,000013:                                                                                                  ##              2009-09-15 JL   Fix typos. Fix page numbers. Remove change comments. Restore hard tabs.
043381,000014:                                                                                                  ##              2010-02-15 JL   Temporary workaround for an error on p996. 
043382,000015:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
043383,000016:                                                                                                  ##              2011-05-07 JL   Removed workaround.
043384,000017:                                                                                                  ##              2017-02-09 RSB  Proofed comment text by diff'ing vs Comanche 55
043385,000018:                                                                                                  ##                              and/or octopus/ProoferComments as most-appropriate.
043386,000019: 

Page 982

043388,000021: 
043389,000022:                                                                                                  #  PROGRAM NAME...TVC ROLL AUTOPILOT
043390,000023:                                                                                                  #  LOG SECTION...TVCROLLDAP                      SUBROUTINE...DAPCSM
043391,000024:                                                                                                  #  MODIFIED BY SCHLUNDT                          21 OCTOBER 1968
043392,000025: 
043393,000026: 
043394,000027:                                                                                                  #  FUNCTIONAL DESCRIPTION....
043395,000028: 
043396,000029:                                                                                                  #       *AN ADAPTATION OF THE LEM P-AXIS CONTROLLER
043397,000030:                                                                                                  #       *MAINTAIN OGA WITHIN 5 DEG DEADBND OF OGAD, WHERE OGAD = OGA AS SEEN
043398,000031:                                                                                                  #        BY IGNITION (P40)
043399,000032:                                                                                                  #       *MAINTAIN OGA RATE LESS THAN 0.1 DEG/SEC LIMIT CYCLE RATE
043400,000033:                                                                                                  #       *SWITCHING LOGIC IN PHASE PLANE.... SEE GSOP CHAPTER 3
043401,000034:                                                                                                  #       *USES T6 CLOCK TO TIME JET FIRINGS
043402,000035:                                                                                                  #       *MAXIMUM JET FIRING TIME = 2.56 SECONDS, LIMITED TO 2.5 IF GREATER
043403,000036:                                                                                                  #       *MINIMUM JET FIRING TIME = 15 MS
043404,000037:                                                                                                  #       *JET PAIRS FIRE ALTERNATELY
043405,000038:                                                                                                  #       *AT LEAST 1/2 SECOND DELAY BEFORE A NEW JET PAIR IS FIRED
043406,000039:                                                                                                  #       *JET FIRINGS MAY NOT BE EXTENDED, ONLY SHORTENED, WHEN RE-EVALUATION
043407,000040:                                                                                                  #        OF A JET FIRING TIME IS MADE ON A LATER PASS
043408,000041: 
043409,000042:                                                                                                  #  CALLING SEQUENCE....
043410,000043: 
043411,000044:                                                                                                  #       *ROLLDAP CALL VIA WAITLIST, IN PARTICULAR BY TVCEXEC (EVERY 1/2 SEC)
043412,000045:                                                                                                  #        WITH A 3CS DELAY TO ALLOW FREE TIME FOR OTHER RUPTS (DWNRPT, ETC.)
043413,000046: 
043414,000047:                                                                                                  #  NORMAL EXIT MODES.... ENDOFJOB
043415,000048: 
043416,000049:                                                                                                  #  ALARM OR ABORT EXIT MODES.... NONE
043417,000050: 
043418,000051:                                                                                                  #  SUBROUTINES CALLED.....NONE
043419,000052: 
043420,000053:                                                                                                  #  OTHER INTERFACES....
043421,000054: 
043422,000055:                                                                                                  #       *TVCEXEC SETS UP ROLLDAP TASK EVERY 1/2 SECOND AND UPDATES 1/CONACC
043423,000056:                                                                                                  #        EVERY 10 SECONDS (VIA MASSPROP AND S40.15)
043424,000057:                                                                                                  #       *RESTARTS SUSPEND ROLL DAP COMPUTATIONS UNTIL THE NEXT 1/2 SEC
043425,000058:                                                                                                  #        SAMPLE PERIOD. (THE PART OF TVCEXECUTIVE THAT CALLS ROLL DAP IS
043426,000059:                                                                                                  #        NOT RESTARTED.) THE OGAD FROM IGNITION IS MAINTAINED.
043427,000060: 
043428,000061:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED....
043429,000062: 
043430,000063:                                                                                                  #       *1/CONACC   (S40.15)
043431,000064:                                                                                                  #       *OGAD (CDUX AT IGNITION)
043432,000065:                                                                                                  #       *OGANOW  (CDUX AT TVCINIT4 AND TVCEXECUTIVE)
043433,000066:                                                                                                  #       *OGAPAST  (OGANOW AT TVCEXECUTIVE)
043434,000067:                                                                                                  #       *ROLLFIRE = TEMREG = ROLLWORD = 0   (MRCLEAN LOOP IN TVCDAPON)
043435,000068:                                                                                                  #  OUTPUT....
043436,000069: 
043437,000070:                                                                                                  #       *ROLL JET PAIR FIRINGS
043438,000071: 

Page 983

043440,000073:                                                                                                  #  DEBRIS.... MISCELLANEOUS, SHAREABLE WITH RCS/ENTRY, IN EBANK6 ONLY
043441,000074: 

Page 984

043443,000076:                                                                                                  #  SOME NOTES ON THE ROLL AUTOPILOT, AND IN PARTICULAR, ON ITS SWITCHING
043444,000077:                                                                                                  #  LOGIC.  SEE SECTION THREE OF THE GSOP (SUNDISK/COLOSSUS) FOR DETAILS.
043445,000078: 
043446,000079:                                                                                                  #  SWITCHING LOGIC IN THE PHASE PLANE....
043447,000080: 
043448,000081:                                                                                                  #                               OGARATE
043449,000082:                                                                                                  #                                  *
043450,000083:                                                                                                  #                                  *
043451,000084:                                                                                                  #   * * * * * * * * * * *          *
043452,000085:                                                                                                  #                                  *     (REGION 1, SEE TEXT BELOW)
043453,000086:                                                                                                  #                             *    *
043454,000087:                                                                                                  #                                  *
043455,000088:                                                                                                  #  * * * * * * *     (COAST)       *     ...PARABOLA (SWITCHING = CONTROL)
043456,000089:                                                                                                  #                *                 *    .
043457,000090:                                                                                                  #                  *               *   *
043458,000091:                                                                                                  #                    *             *                (FIRE NEG ROLL JETS)
043459,000092:                                                                                                  #                      *           *      *
043460,000093:                                                                                                  #      (-DB,+LMCRATE)....*         *
043461,000094:                                                                                                  #                        *         *        *
043462,000095:                                                                                                  #                        *         *                              OGAERROR
043463,000096:                                                                                                  #  ************************************************************************
043464,000097:                                                                                                  #                                  *         *                (-AK, OGAERR)
043465,000098:                                                                                                  #                         *        *         *      (REGION 6-PRIME)
043466,000099:                                                                                                  #                                  *         *      (SEE TEXT BELOW)
043467,000100:                                                                                                  #                           *      *           *
043468,000101:                                                                                                  #                                  *             *     ...STRAIGHT LINE
043469,000102:                                                                                                  #     (FIRE POS ROLL JETS)     *   *               *  .
043470,000103:                                                                                                  #                                  *   (COAST)       *
043471,000104:                                                                                                  #                                  *                   * * * * * * * * * *
043472,000105:                                                                                                  #                                  *                         -MINLIM
043473,000106:                                                                                                  #                                  *    *
043474,000107:                                                                                                  #                                  *
043475,000108:                                                                                                  #                                  *          * * * * * * * * * * * * * * *
043476,000109:                                                                                                  #                                  *                        -MAXLIM
043477,000110:                                                                                                  #                                  *
043478,000111:                                                                                                  #                                  *
043479,000112: 
043480,000113:                                                                                                  #  SWITCHING PARABOLAS ARE CONTROL PARABOLAS, THUS REQUIRING KNOWLEDGE OF
043481,000114:                                                                                                  #        CONTROL ACCELERATION CONACC, OR ITS RECIPROCAL, 1/CONACC, THE TVC
043482,000115:                                                                                                  #        ROLL DAP GAIN  (SEE TVCEXECUTIVE VARIABLE GAIN PACKAGE).  JET
043483,000116:                                                                                                  #        FIRING TIME IS SIMPLY THAT REQUIRED TO ACHIEVE THE DESIRED OGARATE,
043484,000117:                                                                                                  #        SUBJECT TO THE LIMITATIONS DISCUSSED UNDER FUNCTIONAL DESCRIPTION,
043485,000118:                                                                                                  #        ABOVE.
043486,000119: 
043487,000120:                                                                                                  #  THE THREE CONTROL REGIONS  (+, -, AND ZERO TORQUE) ARE COMPRIZED OF
043488,000121:                                                                                                  #        TWELVE SUBSET REGIONS  ( 1...6, AND THE CORRESPONDING 1-PRIME...
043489,000122:                                                                                                  #        6-PRIME )  SEE SECTION 3 OF THE GSOP  (SUNDISK OR COLOSSUS)

Page 985

043491,000124: 
043492,000125:                                                                                                  #  GIVEN THE OPERATING POINT NOT IN THE COAST REGION, THE DESIRED OGARATE
043493,000126:                                                                                                  #        IS AT THE POINT OF PENETRATION OF THE COAST REGION BY THE CONTROL
043494,000127:                                                                                                  #        PARABOLA WHICH PASSES THROUGH THE OPERATING POINT. FOR REGION 3
043495,000128:                                                                                                  #        DESIRED OGARATE IS SIMPLY +-MAXLIM. FOR REGIONS 1 OR 6 THE SOLUTION
043496,000129:                                                                                                  #        TO A QUADRATIC IS REQUIRED (THE PENETRATION IS ALONG THE STRAIGHT
043497,000130:                                                                                                  #        LINE OR MINLIM BOUNDRY SWITCH LINES). AN APPROXIMATION IS MADE
043498,000131:                                                                                                  #        INSTEAD. TAKE AN OPERATING POINT IN REGION 6' . PASS A TANGENT TO
043499,000132:                                                                                                  #        THE CONTROL PARABOLA THROUGH THE OPERATING POINT, AND FIND ITS
043500,000133:                                                                                                  #        INTERSECTION WITH THE STRAIGHT LINE SECTION OF THE SWITCH CURVE...
043501,000134:                                                                                                  #        THE INTERSECTION DEFINES DESIRED OGARATE. IF THE OPERATING POINT IS
043502,000135:                                                                                                  #        CLOSE TO THE SWITCH LINE, THE APPROXIMATION IS QUITE GOOD (INDEED
043503,000136:                                                                                                  #        THE APPROXIMATE AND QUADRATIC SOLUTIONS CONVERGE IN THE LIMIT AS
043504,000137:                                                                                                  #        THE SWITCH LINE IS APPROACHED). IF THE OPERATING POINT IS NOT CLOSE
043505,000138:                                                                                                  #        TO THE SWITCH LINE, THE APPROXIMATE SOLUTION GIVES VALID TREND
043506,000139:                                                                                                  #        INFORMATION (DIRECTION OF DESIRED OGARATE) AT LEAST. THE
043507,000140:                                                                                                  #        RE-EVALUATION OF DESIRED OGARATE IN SUBSEQUENT ROLL DAP PASSES (1/2
043508,000141:                                                                                                  #        SECOND INTERVALS) WILL BENEFIT FROM THE CONVERGENT NATURE OF THE
043509,000142:                                                                                                  #        APPROXIMATION.
043510,000143: 
043511,000144:                                                                                                  #  FOR LARGE OGAERROR THE TANGENT INTERSECTS +-MINLIM SWITCH BOUNDRY BEFORE
043512,000145:                                                                                                  #        INTERSECTING THE STRAIGHT LINE SWITCH. HOWEVER THE MINLIM IS
043513,000146:                                                                                                  #        IGNORED IN COMPUTING THE FIRING TIME, SO THAT THE EXTENSION (INTO
043514,000147:                                                                                                  #        THE COAST REGION) OF THE STRAIGHT LINE SWITCH IS WHAT IS FIRED TO.
043515,000148:                                                                                                  #        IF THE ROLL DAP FINDS ITSELF IN THE COAST REGION BEFORE REACHING
043516,000149:                                                                                                  #        THE DESIRED INTERSECTION (IE, IN THE REGION BETWEEN THE MINLIM
043517,000150:                                                                                                  #        AND THE STRAIGHT LINE SWITCH) IT WILL EXIBIT NORMAL COAST-REGION
043518,000151:                                                                                                  #        BEHAVIOR AND TURN OFF THE JETS. THE PURPOSE OF THIS FIRING POLICY
043519,000152:                                                                                                  #        IS TO MAINTAIN STATIC ROLL STABILITY IN THE EVENT OF A JET
043520,000153:                                                                                                  #        FAILED-ON.
043521,000154: 
043522,000155:                                                                                                  #  WHEN THE OPERATING POINT IS IN REGION 1 THE SAME APPROXIMATION IS
043523,000156:                                                                                                  #        MADE, BUT AT AN ARTIFICIALLY-CREATED OR DUMMY OPERATING POINT,
043524,000157:                                                                                                  #        DEFINED BY.. OGAERROR = INTERSECTION OF CONTROL PARABOLA  AND
043525,000158:                                                                                                  #        OGAERROR AXIS, OGARATE = +-LMCRATE WHERE SIGN IS OPPOSITE THAT OF
043526,000159:                                                                                                  #        REAL OPERATING POINT RATE.  WHEN THE OPERATING POINT HAS PASSED
043527,000160:                                                                                                  #        FROM REGION 1 TO REGION 6', THE DUMMY POINT IS NO LONGER REQUIRED,
043528,000161:                                                                                                  #        AND THE SOLUTION REVERTS TO THAT OF A REGULAR REGION 6' POINT.
043529,000162: 
043530,000163: 
043531,000164:                                                                                                  #  EQUATION FOR SWITCHING PARABOLA (SEE FIGURE ABOVE)....
043532,000165:                                                                                                  #                                    2
043533,000166:                                                                                                  #        SOGAERROR = (DB - (SOGARATE) (1/CONACC)/2) SGN(SOGARATE)
043534,000167: 
043535,000168: 
043536,000169:                                                                                                  #  EQUATION FOR SWITCHING STRAIGHT LINE SEGMENT....
043537,000170: 
043538,000171:                                                                                                  #        SOGARATE = -(-SLOPE)(SOGAERROR) - SGN(SOGARATE) INTERCEP
043539,000172: 
043540,000173:                                                                                                  #                WHERE  INTERCEP = DB(-SLOPE) - LMCRATE

Page 986

043542,000175: 
043543,000176:                                                                                                  #  EQUATION FOR INTERSECTION, CONTROL PARABOLA AND STRAIGHT SWITCH LINE....
043544,000177: 
043545,000178:                                                                                                  #        DOGADOT = NUM/DEN, WHERE
043546,000179:                                                                                                  #                                       2
043547,000180:                                                                                                  #                NUM = (-SLOPE)(OGARATE) (1/CONACC)
043548,000181:                                                                                                  #                      +SGN(DELOGA)(-SLOPE)(OGAERROR - SGN(DELOGA)(DB))
043549,000182:                                                                                                  #                      +LMCRATE
043550,000183: 
043551,000184:                                                                                                  #                DEN = (-SLOPE)(LMCRATE)(1/CONACC) - SGN(DELOGA)
043552,000185: 
043553,000186:                                                                                                  #                                                 2
043554,000187:                                                                                                  #                DELOGA = OGAERROR - (DB - OGARATE (1/CONACC)/2) SGN(OGARATE)
043555,000188: 
043556,000189: 
043557,000190:                                                                                                  #  FOR REGIONS 6 AND 6-PRIME  USE ACTUAL OPERATING POINT  (OGA, OGARATE)
043558,000191:                                                                                                  #        FOR OGAERROR AND OGARATE IN THE INTERSECTION EQUATIONS ABOVE.
043559,000192:                                                                                                  #        FOR REGIONS 1 AND 1-PRIME USE DUMMY OPERATING POINT FOR OGAERROR
043560,000193:                                                                                                  #        AND OGARATE, WHERE THE DUMMY POINT IS GIVEN BY....
043561,000194:                                                                                                  #        OGAERROR= DELOGA + DB SGN(OGARATE)
043562,000195:                                                                                                  #        OGARATE= -LMCRATE SGN(OGARATE)
043563,000196: 
043564,000197:                                                                                                  #  NOTE, OGAERROR = OGA - OGAD  USES DUMMY REGISTER  OGA  IN ROLL DAP CODING
043565,000198:                                                                                                  #        ALSO, AT POINT WHERE DOGARATE IS COMPUTED, REGISTER DELOGA IS USED
043566,000199:                                                                                                  #        AS A DUMMY REGISTER FOR THE OGAERROR IN THE NUM EQUATION ABOVE

Page 987

043568,000201: 
043569,000202:                                                                                                  #  ROLLDAP CODING....
043570,000203: 
043571,000204: 16,2000                                           SETLOC   DAPROLL                               
043572,000205: 16,2000                                           BANK                                           
043573,000206: 16,3342  E6,1645                                  EBANK=   OGANOW                                
043574,000207: 16,3342                                           COUNT*   $$/ROLL                               
043575,000208: 16,3342           31645        ROLLDAP            CAE      OGANOW                                #  OGA RATE ESTIMATOR...SIMPLE FIRST-ORDER
043576,000209: 16,3343           00006                           EXTEND                                         #        DIFFERENCE (SAMPLE TIME = 1/2 SEC)
043577,000210: 16,3344           21646                           MSU      OGAPAST                               
043578,000211: 16,3345           00006                           EXTEND                                         
043579,000212: 16,3346           74764                           MP       BIT5                                  
043580,000213: 16,3347           22000                           LXCH     A                                     
043581,000214: 16,3350           55533                           TS       OGARATE                               #  SC.AT B-4 REV/SEC
043582,000215: 
043583,000216:                                                                                                  #  COMPUTATIONS WHICH FOLLOW USE OGA FOR OGAERR  (SAME REGISTER)
043584,000217:                                                                                                  #  EXAMINE DURATION OF LAST JET FIRING IF JETS NOW ON.
043585,000218: 
043586,000219: 16,3351           31571        DURATION           CA       ROLLFIRE                              #  SAME SGN AS PRESENT TORQ,MAGN=POSMAX
043587,000220: 16,3352           00006                           EXTEND                                         
043588,000221: 16,3353           13355                           BZF      +2                                    #  ROLL JETS ARE NOW OFF.
043589,000222: 16,3354           13363                           TCF      ROLLOGIC                              #  ENTER LOGIC, JETS NOW ON.
043590,000223: 
043591,000224: 16,3355           31573                           CAE      TEMREG                                #  EXAMINE LAST FIRING INTERVAL
043592,000225: 16,3356           00006                           EXTEND                                         #  IF POSITIVE, DONT FIRE
043593,000226: 16,3357           13363                           BZF      ROLLOGIC                              #  ENTER LOGIC, JETS NOW OFF.
043594,000227: 
043595,000228: 16,3360           34772                           CAF      ZERO                                  #  JETS HAVE NOT BEEN OFF FOR 1/2 SEC. WAIT
043596,000229: 16,3361           55573                           TS       TEMREG                                #  RESET TEMREG
043597,000230: 16,3362           15314        WAIT1/2            TCF      TASKOVER                              #  EXIT ROLL DAP
043598,000231: 
043599,000232:                                                                                                  #  COMPUTE DB-(1/2 CONACC) (OGARATE)SQ  (1/2 IN THE SCALING)
043600,000233: 
043601,000234: 16,3363           41533        ROLLOGIC           CS       OGARATE                               #  SCALED AT 2(-4) REV/SEC
043602,000235: 16,3364           00006                           EXTEND                                         
043603,000236: 16,3365           71631                           MP       1/CONACC                              #  SCALED AT 2(+9) SEC SQ /REV
043604,000237: 16,3366           00006                           EXTEND                                         
043605,000238: 16,3367           71533                           MP       OGARATE                               
043606,000239: 16,3370           63756                           AD       DB                                    #  SCALED AT 2(+0) REV
043607,000240: 16,3371           55573                           TS       TEMREG                                #  QUANTITY SCALED AT 2(+0) REV.
043608,000241: 
043609,000242:                                                                                                  #  GET SIGN OF OGARATE
043610,000243: 
043611,000244: 16,3372           31533                           CA       OGARATE                               
043612,000245: 16,3373           00006                           EXTEND                                         
043613,000246: 16,3374           63377                           BZMF     +3                                    #  LET SGN(0) BE NEGATIVE
043614,000247: 16,3375           34770                           CA       BIT1                                  
043615,000248: 16,3376           13400                           TCF      +2                                    
043616,000249: 16,3377           44770                           CS       BIT1                                  
043617,000250: 16,3400           55651                           TS       SGNRT                                 #  + OR -  2(-14)
043618,000251: 

Page 988

043620,000253:                                                                                                  #  CALCULATE DISTANCE FROM SWITCH PARABOLA (DELOGA)
043621,000254: 
043622,000255: 16,3401           00006                           EXTEND                                         
043623,000256: 16,3402           71573                           MP       TEMREG                                #  SGN(OGARATE) TEMREG NOW IN L  
043624,000257: 16,3403           40001                           CS       L                                     
043625,000258: 16,3404           61647                           AD       OGA                                   #  SCALED AT 2(+0) REV
043626,000259: 16,3405           55652        DELOGAC            TS       DELOGA                                #  SCALE B+0 REV, PLUS TO RIGHT OF C-PARAB 
043627,000260: 
043628,000261:                                                                                                  #  EXAMINE SGN(DELOGA) AND CREATE CA OR CS INSTR. DEPENDING UPON SIGN.
043629,000262: 
043630,000263: 16,3406           00006                           EXTEND                                         
043631,000264: 16,3407           63412                           BZMF     +3                                    
043632,000265: 16,3410           34346                           CAF      PRIO30                                #  =CA  (30000)
043633,000266: 16,3411           13413                           TCF      +2                                    
043634,000267: 16,3412           34752                           CAF      BIT15                                 #  =CS  (40000)
043635,000268: 16,3413           55653                           TS       I                                     
043636,000269: 
043637,000270: 16,3414           51653                           INDEX    I                                     #  TEST ON  I SGN(OGARATE)
043638,000271: 16,3415           01651                           0        SGNRT                                 #  CA OR CS
043639,000272: 16,3416           40000                           COM                                            
043640,000273: 16,3417           00006                           EXTEND                                         
043641,000274: 16,3420           63471        REG1TST            BZMF     ROLLON                                #  IF REGION 1 (DELOGA OGARATE SAME SIGN)
043642,000275: 
043643,000276:                                                                                                  #  NO JET FIRE YET, TEST FOR MAX OGARATE
043644,000277: 
043645,000278: 16,3421           51653                           INDEX    I                                     
043646,000279: 16,3422           01533                           0        OGARATE                               #  CA OR CS...BOTH MUST BE NEG. HERE
043647,000280: 16,3423           55654                           TS       IOGARATE                              #  I.E. I OGARATE
043648,000281: 16,3424           63763                           AD       MAXLIM                                #  SCALED AT 2(-4) REV/SEC
043649,000282: 16,3425           00006                           EXTEND                                         
043650,000283: 16,3426           63550        REG3TST            BZMF     RATELIM                               #  IF REGION 3 (RATES TOO HIGH, FIRE JETS)
043651,000284: 
043652,000285:                                                                                                  #  COMPUTATION OF I((-SLOPE)OGA + OGARATE) - INTERCEPT..NOTE THAT STR. LINE
043653,000286:                                                                                                  #  SWITCH SLOPE IS (SLOPE) DEG/SEC/DEG, A NEG QUANTITY
043654,000287: 
043655,000288: 16,3427           31533                           CA       OGARATE                               
043656,000289: 16,3430           00006                           EXTEND                                         
043657,000290: 16,3431           74753                           MP       BIT14                                 
043658,000291: 16,3432           55573                           TS       TEMREG                                
043659,000292: 16,3433           31647                           CA       OGA                                   
043660,000293: 16,3434           00006                           EXTEND                                         
043661,000294: 16,3435           73757                           MP       -SLOPE                                
043662,000295: 16,3436           20001                           DDOUBL                                         
043663,000296: 16,3437           20001                           DDOUBL                                         
043664,000297: 16,3440           20001                           DDOUBL                                         #  (OGA ERROR MUST BE LESS THAN +-225 DEG)
043665,000298: 16,3441           61573                           AD       TEMREG                                
043666,000299: 
043667,000300: 16,3442           51653                           INDEX    I                                     
043668,000301: 16,3443           00000                           0        A                                     #  I((-SLOPE)OGA+OGARATE) AT 2(-3)REV/SEC
043669,000302: 16,3444           40000                           COM                                            

Page 989

043671,000304: 16,3445           63761                           AD       INTERCEP                              #  SCALED AT 2(-3) REV.
043672,000305: 16,3446           40000                           COM                                            
043673,000306: 16,3447           00006                           EXTEND                                         
043674,000307: 16,3450           63661        REG2TST            BZMF     NOROLL                                #  IF REGION 2 (COAST SIDE OF STRT LINE)
043675,000308: 
043676,000309:                                                                                                  #  CHECK TO SEE IF OGARATE IS ABOVE MINLIM BOUNDARY
043677,000310: 
043678,000311: 16,3451           31654                           CA       IOGARATE                              #  ALWAYS NEGATIVE
043679,000312: 16,3452           63762                           AD       MINLIM                                #  SCALED AT 2(-4) REV/SEC
043680,000313: 16,3453           00006                           EXTEND                                         
043681,000314: 16,3454           63661        REG4TST            BZMF     NOROLL                                #  IF REGION 4 (COAST SIDE OF MINLIM)
043682,000315: 
043683,000316:                                                                                                  #  ALL AREAS CHECKED EXCEPT LAST AREA...NO FIRE IN THIS SMALL SEGMENT
043684,000317: 
043685,000318: 16,3455           51653                           INDEX    I                                     
043686,000319: 16,3456           01647                           0        OGA                                   
043687,000320: 16,3457           40000                           COM                                            
043688,000321: 16,3460           63756                           AD       DB                                    
043689,000322: 16,3461           40000                           COM                                            
043690,000323: 16,3462           00006                           EXTEND                                         
043691,000324: 16,3463           63661        REG5TST            BZMF     NOROLL                                #  IF REGION 5 (COAST SIDE OF DB)
043692,000325: 
043693,000326:                                                                                                  #  JETS MUST FIRE NOW. OGARATE IS NEG. (OR VISA VERSA). USE DIRECT STR. LINE.
043694,000327:                                                                                                  #  DELOGA AND DELOGART ARE USED AS DUMMY VARIABLES IN THE SOLUTION OF A
043695,000328:                                                                                                  #  STRAIGHT LINE APPROXIMATION TO A QUADRATIC SOLUTION OF THE INTERSECTION
043696,000329:                                                                                                  #  OF THE CONTROL PARABOLA AND THE STRAIGHT-LINE SWITCH LINE. THE STRAIGHT
043697,000330:                                                                                                  #  LINE IS THE TANGENT TO THE CONTROL PARABOLA AT THE OPERATING POINT. (FOR
043698,000331:                                                                                                  #  OPERATING POINTS IN REGIONS 6 OR 6')
043699,000332: 
043700,000333: 16,3464           31647        REGION6            CAE      OGA                                   #  USE ACTUAL OPERATING POINT FOR TANGENT
043701,000334: 16,3465           55652                           TS       DELOGA                                #  ACTUAL STATE
043702,000335: 16,3466           31533                           CA       OGARATE                               
043703,000336: 16,3467           55650                           TS       DELOGART                              #  ACTUAL STATE, I.E. DEL OGARATE
043704,000337: 16,3470           13500                           TCF      ONROLL                                
043705,000338: 
043706,000339:                                                                                                  #  JETS ALSO FIRE FROM HERE EXCEPT OGARATE IS POS (VISA VERSA), USE INDIRECT
043707,000340:                                                                                                  #  STRAIGHT LINE ESTABLISHED BY TANGENT TO A CONTROL PARABOLA AT   ((DELOGA
043708,000341:                                                                                                  #  + DB SGN(DELOGA) ), -LMCRATE SGN(DELOGA) )         (THIS IS THE DUMMY
043709,000342:                                                                                                  #  OPERATING POINT FOR OPERATING POINTS IN REGIONS 1 AND 1')
043710,000343: 
043711,000344: 16,3471           51653        ROLLON             INDEX    I                                     
043712,000345: 16,3472           03756                           0        DB                                    
043713,000346: 16,3473           27652                           ADS      DELOGA                                #  DELOGA WAS DIST. FROM SWITCH PARABOLA
043714,000347: 
043715,000348: 16,3474           43760                           CS       LMCRATE                               #  LIMIT CYCLE RATE AT 2(-4) REV/SEC
043716,000349: 16,3475           51653                           INDEX    I                                     
043717,000350: 16,3476           00000                           0        A                                     
043718,000351: 16,3477           55650                           TS       DELOGART                              #  EVALUATE STATE FOR INDIRECT LINE.
043719,000352: 

Page 990

043721,000354: 
043722,000355:                                                                                                  #  SOLVE STRAIGHT LINES SIMULTANEOUSLY TO OBTAIN DESIRED OGARATE.
043723,000356: 
043724,000357: 16,3500           00006        ONROLL             EXTEND                                         #  DELOGART IN ACC. ON ARRIVAL
043725,000358: 16,3501           71631                           MP       1/CONACC                              
043726,000359: 16,3502           60000                           DOUBLE                                         
043727,000360: 16,3503           00006                           EXTEND                                         
043728,000361: 16,3504           73757                           MP       -SLOPE                                
043729,000362: 16,3505           55573                           TS       TEMREG                                #  2(-SLOPE)RATE /CONACC
043730,000363: 16,3506           00006                           EXTEND                                         
043731,000364: 16,3507           71650                           MP       DELOGART                              
043732,000365: 16,3510           55650                           TS       DELOGART                              #  2(-SLOPE)(RATESQ)/CONACC
043733,000366: 16,3511           44756                           CS       BIT11                                 
043734,000367: 16,3512           51653                           INDEX    I                                     
043735,000368: 16,3513           00000                           0        A                                     
043736,000369: 16,3514           27573        RATEDEN            ADS      TEMREG                                #  DENOMINATOR COMPLETED
043737,000370: 
043738,000371: 16,3515           51653                           INDEX    I                                     
043739,000372: 16,3516           01652                           0        DELOGA                                
043740,000373: 16,3517           40000                           COM                                            
043741,000374: 16,3520           63756                           AD       DB                                    
043742,000375: 16,3521           40000                           COM                                            
043743,000376: 16,3522           00006                           EXTEND                                         
043744,000377: 16,3523           73757                           MP       -SLOPE                                
043745,000378: 16,3524           27650                           ADS      DELOGART                              
043746,000379: 16,3525           33760                           CA       LMCRATE                               
043747,000380: 16,3526           00006                           EXTEND                                         
043748,000381: 16,3527           74756                           MP       BIT11                                 
043749,000382: 16,3530           61650        RATENUM            AD       DELOGART                              #  NUMERATOR COMPLETED
043750,000383: 
043751,000384: 16,3531           56001                           XCH      L                                     #  PLACE NUMERATOR IN L FOR OVERFL. CHECK
043752,000385: 16,3532           34772                           CA       ZERO                                  
043753,000386: 16,3533           00006                           EXTEND                                         
043754,000387: 16,3534           11573                           DV       TEMREG                                #  OVERFLOW, IF ANYTHING, NOW APPEARS IN A
043755,000388: 16,3535           00006                           EXTEND                                         
043756,000389: 16,3536           13544                           BZF      DVOK                                  #  NO OVERFLOW....(0,L)/TEMREG = 0,L
043757,000390: 
043758,000391: 16,3537           10000        MINLIMAP           CCS      A                                     
043759,000392: 16,3540           34750                           CAF      POSMAX                                #        POSITIVE OVERFLOW
043760,000393: 16,3541           13553                           TCF      ROLLSET                               
043761,000394: 16,3542           44750                           CS       POSMAX                                #        NEGATIVE OVERFLOW
043762,000395: 16,3543           13553                           TCF      ROLLSET                               
043763,000396: 
043764,000397: 16,3544           22000        DVOK               LXCH     A                                     #  PUT NUMERATOR BACK INTO A, 0 IN L
043765,000398: 16,3545           00006                           EXTEND                                         
043766,000399: 16,3546           11573                           DV       TEMREG                                #  RESULT OF DIVISION IS DESIRED OGARATE
043767,000400: 16,3547           13553                           TCF      ROLLSET                               #        (SCALED AT B-4 REV/SEC)
043768,000401: 
043769,000402: 16,3550           43763        RATELIM            CS       MAXLIM                                
043770,000403: 16,3551           51653                           INDEX    I                                     

Page 991

043772,000405: 16,3552           00000                           0        A                                     #  IF I = CA, DESIRED RATE IS   -MAXLIM
043773,000406: 
043774,000407:                                                                                                  #  COMPUTE JET FIRE TIME, BASED ON DESIRED RATE MINUS PRESENT RATE
043775,000408: 
043776,000409: 16,3553           55573        ROLLSET            TS       TEMREG                                #  STORE DESIRED OGARATE (SCALED B-4)
043777,000410: 16,3554           00006                           EXTEND                                         
043778,000411: 16,3555           61533                           SU       OGARATE                               #  RATE DIFF. SCALED AT 2(-4) REV/SEC
043779,000412: 16,3556           55573                           TS       TEMREG                                #        OVERFLOW PROTECT
043780,000413: 16,3557           13562                           TCF      +3                                    #           "       "
043781,000414: 16,3560           50000                           INDEX    A                                     #           "       "
043782,000415: 16,3561           44751                           CS       LIMITS                                #           "       "
043783,000416: 16,3562           00006                           EXTEND                                         
043784,000417: 16,3563           77652                           MP       T6SCALE                               #  T6SCALE = 8/10.24
043785,000418: 16,3564           00006                           EXTEND                                         
043786,000419: 16,3565           71631                           MP       1/CONACC                              #  SCALED AT B+9 SECSQ/REV (MAX < .60)
043787,000420: 16,3566           20001                           DDOUBL                                         
043788,000421: 16,3567           20001                           DDOUBL                                         
043789,000422: 16,3570           55573                           TS       TEMREG                                #        OVERFLOW PROTECT
043790,000423: 16,3571           13574                           TCF      +3                                    #           "       "
043791,000424: 16,3572           50000                           INDEX    A                                     #           "       "
043792,000425: 16,3573           44751                           CS       LIMITS                                #           "       "
043793,000426: 16,3574           55573                           TS       TEMREG                                #  JET FIRE TIME AT 625 MICROSEC/BIT
043794,000427: 16,3575           00006                           EXTEND                                         #  POS MEANS POSITIVE ROLL TORQUE.
043795,000428: 16,3576           13661                           BZF      NOROLL                                
043796,000429: 
043797,000430:                                                                                                  #  JET FIRE TIME IS NZ, TEST FOR JETS NOW ON.
043798,000431: 
043799,000432: 16,3577           31573                           CAE      TEMREG                                #  DESIRED CHANGE IN OGARATE
043800,000433: 16,3600           00006                           EXTEND                                         
043801,000434: 16,3601           71571                           MP       ROLLFIRE                              #  (SGN OF TORQUE..ZERO IF JETS NOW OFF)
043802,000435: 16,3602           10000                           CCS      A                                     
043803,000436: 16,3603           13607                           TCF      MOREROLL                              #  CONTINUE FIRING WITH PRESENT POLARITY
043804,000437: 16,3604           13612                           TCF      NEWROLL                               #  START NEW FIRING NOW, PLUS
043805,000438: 16,3605           13661                           TCF      NOROLL                                #  TERMINATE OLD FIRING, NEW SIGN REQUESTED
043806,000439: 16,3606           13612                           TCF      NEWROLL                               #  START NEW FIRING NOW, MINUS
043807,000440: 
043808,000441:                                                                                                  #  CONTINUE PRESENT FIRING
043809,000442: 
043810,000443: 16,3607           34772        MOREROLL           CAF      ZERO                                  
043811,000444: 16,3610           55653                           TS       I                                     #  USE TEMP. AS MOREROLL SWITCH
043812,000445: 16,3611           13623                           TCF      MAXTFIRE                              
043813,000446: 
043814,000447:                                                                                                  #  START NEW FIRING, BUT CHECK IF GREATER THAN MIN FIRE TIME.
043815,000448: 
043816,000449: 16,3612           11573        NEWROLL            CCS      TEMREG                                #  CALL THIS T6FIRE
043817,000450: 16,3613           64770                           AD       ONE                                   
043818,000451: 16,3614           13616                           TCF      +2                                    
043819,000452: 16,3615           64770                           AD       ONE                                   
043820,000453: 16,3616           40000                           COM                                            #  -MAG(T6FIRE)
043821,000454: 16,3617           65001                           AD       TMINFIRE                              #  TMINFIRE-MAG(T6FIRE)

Page 992

043823,000456: 16,3620           40000                           COM                                            
043824,000457: 16,3621           00006                           EXTEND                                         
043825,000458: 16,3622           63661        MINTST             BZMF     NOROLL                                #  IF NOT GREATER THAN TMINFIRE (NEW FIRE)
043826,000459: 
043827,000460:                                                                                                  #  PROCEED WITH NEW FIRING, BUT NOT LONGER THAN TMAXFIRE.
043828,000461: 
043829,000462: 16,3623           31573        MAXTFIRE           CA       TEMREG                                
043830,000463: 16,3624           00006                           EXTEND                                         
043831,000464: 16,3625           74766                           MP       1/TMXFIR                              #  I.E. 1/TMAXFIRE
043832,000465: 16,3626           00006                           EXTEND                                         
043833,000466: 16,3627           13635        MAXTST             BZF      NOMXFIRE                              #  IF LESS THAN TMAXFIRE
043834,000467: 
043835,000468: 16,3630           10000                           CCS      A                                     
043836,000469: 16,3631           33764                           CAF      TMAXFIRE                              #  USE MAXIMUM
043837,000470: 16,3632           13634                           TCF      +2                                    
043838,000471: 16,3633           43764                           CS       TMAXFIRE                              #  USE MAXIMUM
043839,000472: 16,3634           55573                           TS       TEMREG                                
043840,000473: 
043841,000474:                                                                                                  #  SET UP SIGN OF REQUIRED TORQUE.
043842,000475: 
043843,000476: 16,3635           11573        NOMXFIRE           CCS      TEMREG                                #  FOR TORQUE SIGN
043844,000477: 16,3636           34750                           CA       POSMAX                                #  POSITIVE TORQUE REQUIRED
043845,000478: 16,3637           13641                           TCF      +2                                    
043846,000479: 16,3640           34752                           CA       NEGMAX                                #  NEGATIVE TORQUE REQUIRED
043847,000480: 16,3641           55571                           TS       ROLLFIRE                              #  SET ROLLFIRE FOR + OR - TORQUE
043848,000481: 
043849,000482: 16,3642           40000                           COM                                            #  COMPLEMENT... POS. FOR NEG. TORQUE
043850,000483: 16,3643           00006                           EXTEND                                         
043851,000484: 16,3644           63647                           BZMF     +3                                    #  POSITIVE TORQUE REQUIRED
043852,000485: 16,3645           41573                           CS       TEMREG                                
043853,000486: 16,3646           55573                           TS       TEMREG                                
043854,000487: 
043855,000488: 16,3647           31653        FIRELOOK           CA       I                                     #  IS IT MOREROLL
043856,000489: 16,3650           00006                           EXTEND                                         
043857,000490: 16,3651           13653                           BZF      FIREPLUG                              #  YES
043858,000491: 16,3652           13664                           TCF      JETROLL                               #  MAG(T6FIRE) NOW IN TEMREG
043859,000492: 
043860,000493: 16,3653           30031        FIREPLUG           CAE      TIME6                                 #  CHECK FOR EXTENDED FIRING
043861,000494: 16,3654           00006                           EXTEND                                         
043862,000495: 16,3655           61573                           SU       TEMREG                                
043863,000496: 16,3656           00006                           EXTEND                                         
043864,000497: 16,3657           65314        EXTENTST           BZMF     TASKOVER                              #  IF EXTENSION WANTED, DONT, EXIT ROLL DAP
043865,000498: 16,3660           13664                           TCF      JETROLL                               
043866,000499: 
043867,000500: 16,3661           44772        NOROLL             CS       ZERO                                  #  COAST....(NEG ZERO FOR TIME6)
043868,000501: 16,3662           55571                           TS       ROLLFIRE                              #  NOTE, JETS CAN FIRE NEXT PASS
043869,000502: 16,3663           55573                           TS       TEMREG                                
043870,000503: 
043871,000504: 16,3664           00006        JETROLL            EXTEND                                         
043872,000505: 16,3665           33755                           DCA      NOROL1T6                              

Page 993

043874,000507: 16,3666           52111                           DXCH     T6LOC                                 
043875,000508: 16,3667           31573                           CA       TEMREG                                #  ENTER JET FIRING TIME
043876,000509: 16,3670           54031                           TS       TIME6                                 
043877,000510: 
043878,000511: 16,3671           31653                           CA       I                                     #  I=0 IF MOREROLL,KEEP SAME JETS ON
043879,000512: 16,3672           00006                           EXTEND                                         
043880,000513: 16,3673           15314        SAMEJETS           BZF      TASKOVER                              #  IF JETS ON KEEP SAME JETS. EXIT ROLL DAP
043881,000514: 
043882,000515: 16,3674           11571                           CCS      ROLLFIRE                              
043883,000516: 16,3675           13701                           TCF      +TORQUE                               
043884,000517: 16,3676           13742                           TCF      T6ENABL                               
043885,000518: 16,3677           13722                           TCF      -TORQUE                               
043886,000519: 16,3700           13742                           TCF      T6ENABL                               
043887,000520: 
043888,000521:                                                                                                  #  PROCEED WITH PLUS TORQUE.
043889,000522: 
043890,000523: 16,3701           31572        +TORQUE            CA       ROLLWORD                              #   WHAT WAS THE LAST +TORQUE COMBINATION
043891,000524: 16,3702           74770                           MASK     BIT1                                  #  WAS IT NO.9-11
043892,000525: 16,3703           00006                           EXTEND                                         
043893,000526: 16,3704           13714                           BZF      NO.9-11                               #  NOT 9-11, SO USE IT THIS TIME
043894,000527: 
043895,000528: 16,3705           44770        NO.13-15           CS       BIT1                                  
043896,000529: 16,3706           71572                           MASK     ROLLWORD                              
043897,000530: 16,3707           55572                           TS       ROLLWORD                              #  CHANGE BIT 1 TO ZERO
043898,000531: 16,3710           35014                           CAF      +ROLL2                                
043899,000532: 16,3711           00006                           EXTEND                                         
043900,000533: 16,3712           01006                           WRITE    CHAN6                                 
043901,000534: 16,3713           13742                           TCF      T6ENABL                               
043902,000535: 
043903,000536: 16,3714           34770        NO.9-11            CAF      BIT1                                  #  1ST + JETS TO FIRE (MRCLEAN OS ROLLWORD)
043904,000537: 16,3715           27572                           ADS      ROLLWORD                              #  CHANGE BIT 1 TO ONE
043905,000538: 16,3716           34773                           CAF      +ROLL1                                
043906,000539: 16,3717           00006                           EXTEND                                         
043907,000540: 16,3720           01006                           WRITE    CHAN6                                 
043908,000541: 16,3721           13742                           TCF      T6ENABL                               
043909,000542: 
043910,000543: 16,3722           31572        -TORQUE            CA       ROLLWORD                              #   WHAT WAS LAST -TORQUE COMBINATION
043911,000544: 16,3723           74767                           MASK     BIT2                                  #  WAS IT NO.12-10
043912,000545: 16,3724           00006                           EXTEND                                         
043913,000546: 16,3725           13735                           BZF      NO.12-10                              #  NOT 12-10, SO USE IT THIS TIME
043914,000547: 
043915,000548: 16,3726           44767        NO.16-14           CS       BIT2                                  
043916,000549: 16,3727           71572                           MASK     ROLLWORD                              
043917,000550: 16,3730           55572                           TS       ROLLWORD                              #  CHANGE BIT 2 TO ZERO
043918,000551: 16,3731           33765                           CAF      -ROLL2                                
043919,000552: 16,3732           00006                           EXTEND                                         
043920,000553: 16,3733           01006                           WRITE    CHAN6                                 
043921,000554: 16,3734           13742                           TCF      T6ENABL                               
043922,000555: 
043923,000556: 16,3735           34767        NO.12-10           CAF      BIT2                                  #  1ST -JETS TO FIRE (MRCLEAN OS ROLLWORD)

Page 994

043925,000558: 16,3736           27572                           ADS      ROLLWORD                              #  CHANGE BIT 2 TO ONE
043926,000559: 16,3737           34355                           CAF      -ROLL1                                
043927,000560: 16,3740           00006                           EXTEND                                         
043928,000561: 16,3741           01006                           WRITE    CHAN6                                 
043929,000562: 
043930,000563: 16,3742           34752        T6ENABL            CAF      BIT15                                 
043931,000564: 16,3743           00006                           EXTEND                                         
043932,000565: 16,3744           05013                           WOR      CHAN13                                
043933,000566: 16,3745           15314        RDAPEND            TCF      TASKOVER                              #  EXIT ROLL DAP
043934,000567: 

Page 995

043936,000569: 
043937,000570:                                                                                                  #  THIS T6 TASK SHUTS OFF ALL ROLL JETS
043938,000571: 
043939,000572: 16,3746           22016        NOROLL1            LXCH     BANKRUPT                              #  SHUT OFF ALL (ROLL) JETS, (A T6 TASK
043940,000573: 16,3747           34772                           CAF      ZERO                                  #        CALLED BY ..JETROLL..)
043941,000574: 16,3750           55571                           TS       ROLLFIRE                              #  ZERO INDICATES JETS NOW OFF
043942,000575: 16,3751           00006                           EXTEND                                         
043943,000576: 16,3752           01006        KILLJETS           WRITE    CHAN6                                 
043944,000577: 16,3753           15325                           TCF      NOQRSM                                
043945,000578: 

Page 996

043947,000580: 
043948,000581:                                                                                                  #  CONSTANTS FOR ROLL AUTOPILOT....
043949,000582: 
043950,000583: 16,3754  E6,1446                                  EBANK=   CNTR                                  
043951,000584: 16,3754           03746 34066  NOROL1T6           2CADR    NOROLL1                               
043952,000585: 
043953,000586: 16,3756           00344        DB                 DEC      .01388889                             #  DEAD BAND (5 DEG), SC.AT B+0 REV
043954,000587: 
043955,000588: 16,3757           06315        -SLOPE             DEC      0.2                                   #  -SWITCHLINE SLOPE(0.2 PER SEC) SC.AT B+0
043956,000589:                                                                                                  #        PER SEC
043957,000590: 16,3760           00111        LMCRATE            DEC      .00027778  B+4                        #  LIMIT CYCLE RATE (0.1 DEG/SEC) SC.AT
043958,000591:                                                                                                  #        B-4 REV/SEC
043959,000592: 16,3761           00510        INTERCEP           DEC      .0025      B+3                        #  DB(-SLOPE) - LMCRATE, SC.AT B-3 REV/SC
043960,000593: 
043961,000594: 16,3762           01330        MINLIM             DEC      .00277778  B+4                        #  RATELIM,MIN (1DEG/SEC), SC.AT B-4 REV/SC
043962,000595: 
043963,000596: 16,3763           07071        MAXLIM             DEC      .01388889  B+4                        #  RATELIM,MAX (5DEG/SEC), SC.AT B-4 REV/SC
043964,000597: 
043965,000598:                                                                                                  # TMINFIRE       DEC     1.5 B+4         15 MS  (14MIN), SC.AT 16 BITS/CS
043966,000599: 16,3764     5001               TMINFIRE           =        BITS4&5                               
043967,000600: 
043968,000601: 16,3764           07640        TMAXFIRE           DEC      250        B+4                        #  2.5 SEC, SC.AT 16 BITS/CS
043969,000602: 
043970,000603: 16,3765     4766               1/TMXFIR           =        BIT3                                  #  RECIPROCAL THEREOF, SHIFTED 14 RIGHT,
043971,000604:                                                                                                  #        ROUNDS TO OCT00004, SO ALLOWS 2.56
043972,000605:                                                                                                  #        SEC FIRINGS BEFORE APPLYING LIMIT
043973,000606: 16,3765     7652               T6SCALE            =        PRIO31                                #  (B+3) (16 BITS/CS) (100CS/SEC)
043974,000607: 
043975,000608: 16,3765     4773               +ROLL1             =        FIVE                                  #  ONBITS FOR JETS 9 AND 11
043976,000609: 16,3765     5014               +ROLL2             =        OCT120                                #  ONBITS FOR JETS 13 AND 15
043977,000610: 16,3765     4355               -ROLL1             =        TEN                                   #  ONBITS FOR JETS 12 NAD 10
043978,000611: 16,3765           00240        -ROLL2             OCT      240                                   #  ONBITS FOR JETS 16 AND 14

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