Source Code

These source-code files were from the printout at the MIT Museum, with many thanks to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing it to us. The printout was digitally photographed by Paul Fjeld. A team of volunteers transcribed the source code manually from these images or, where appropriate, modified already-transcribed but similar source Luminary 131 (Apollo 13) source code to agree with the images from the printout. Note that the page images presented online are of reduced quality, and that higher-quality images are 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 001 OF AGC PROGRAM LMY99 BY NASA 2021112-061
	16:27 JULY 14,1969
Note that the date is the date of the printout, not the date of the program revision.

063008,000002:                                                                                                  ## Copyright:   Public domain.
063009,000003:                                                                                                  ## Filename:    TJET_LAW.agc
063010,000004:                                                                                                  ## Purpose:     Part of the source code for Luminary 1A build 099.
063011,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
063012,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 11.
063013,000007:                                                                                                  ## Assembler:   yaYUL
063014,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
063015,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo.
063016,000010:                                                                                                  ## Pages:       1460-1469
063017,000011:                                                                                                  ## Mod history: 2009-05-27 RSB  Adapted from the corresponding 
063018,000012:                                                                                                  ##                              Luminary131 file, using page 
063019,000013:                                                                                                  ##                              images from Luminary 1A.
063020,000014:                                                                                                  ##              2009-06-06 RSB  Eliminated a stray instruction that had crept
063021,000015:                                                                                                  ##                              in somehow.
063022,000016:                                                                                                  ##              2011-01-06 JL   Fixed pseudo-label indentation.
063023,000017:                                                                                                  ##              2016-12-18 RSB  Proofed text comments with octopus/ProoferComments
063024,000018:                                                                                                  ##                              and corrected the errors found.
063025,000019:                                                                                                  ##              2017-03-14 RSB  Comment-text fixes noted in proofing Luminary 116.
063026,000020:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
063027,000021:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
063028,000022: 
063029,000023:                                                                                                  ## This source code has been transcribed or otherwise adapted from
063030,000024:                                                                                                  ## digitized images of a hardcopy from the MIT Museum.  The digitization
063031,000025:                                                                                                  ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
063032,000026:                                                                                                  ## the Museum.  Many thanks to both.  The images (with suitable reduction
063033,000027:                                                                                                  ## in storage size and consequent reduction in image quality as well) are
063034,000028:                                                                                                  ## available online at www.ibiblio.org/apollo.  If for some reason you
063035,000029:                                                                                                  ## find that the images are illegible, contact me at info@sandroid.org
063036,000030:                                                                                                  ## about getting access to the (much) higher-quality images which Paul
063037,000031:                                                                                                  ## actually created.
063038,000032:                                                                                                  ##
063039,000033:                                                                                                  ## Notations on the hardcopy document read, in part:
063040,000034:                                                                                                  ##
063041,000035:                                                                                                  ##      Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
063042,000036:                                                                                                  ##      16:27 JULY 14, 1969 
063043,000037: 

Page 1460

063045,000039:                                                                                                  #  PROGRAM DESCRIPTION
063046,000040:                                                                                                  #  DESIGNED BY:  R. D. GOSS AND P. S. WEISSMAN
063047,000041:                                                                                                  #  CODED BY:  P. S. WEISSMAN 28 FEBRUARY 1968
063048,000042: 
063049,000043:                                                                                                  #  TJETLAW IS CALLED AS A SUBROUTINE WHEN THE LEM IS NOT DOCKED AND THE AUTOPILOT IS IN THE AUTOMATIC OR
063050,000044:                                                                                                  #  ATTITUDE-HOLD MODE TO CALCULATE THE JET-FIRING-TIME (TJET) REQUIRED FOR THE AXIS INDICATED BY AXISCTR:
063051,000045:                                                                                                  #        -1      INDICATES THE P-AXIS
063052,000046:                                                                                                  #        +0      INDICATES THE U-AXIS
063053,000047:                                                                                                  #        +1      INDICATES THE V-AXIS.
063054,000048:                                                                                                  #  THE REGISTERS E AND EDOT CONTAIN THE APPROPRIATE ATTITUDE ERROR AND ERROR RATE AND SENSETYP SHOWS WHETHER
063055,000049:                                                                                                  #  UNBALANCED COUPLES ARE PREFERRED.  TJETLAW ALSO USES VARIOUS FUNCTIONS OF ACCELERATION AND DEADBAND WHICH ARE
063056,000050:                                                                                                  #  COMPUTED IN THE 1/ACCONT SECTION OF 1/ACCS AND ARE STORED IN SUCH AN ORDER THAT THEY CAN BE CONVENIENTLY
063057,000051:                                                                                                  #  ACCESSED BY INDEXING.
063058,000052: 
063059,000053:                                                                                                  #  THE SIGN OF THE REQUIRED ROTATION IS CARRIED THROUGH TJETLAW AS ROTSENSE AND IS FINALLY APPLIED TO TJET JUST
063060,000054:                                                                                                  #  PREVIOUS TO ITS STORAGE IN THE LOCATION CORRESPONDING TO THE AXIS (TJP, TJU OR TJV).  THE NUMBER OF JETS THAT
063061,000055:                                                                                                  #  TJETLAW ASSUMES WILL BE USED IS INDICATED BY THE SETTING OF NUMBERT FOR THE U- OR V-AXIS.  TWO JETS ARE ALWAYS
063062,000056:                                                                                                  #  ASSUMED FOR THE P-AXIS ALTHOUGH FOUR JETS WILL BE FIRED WHEN FIREFCT IS MORE NEGATIVE THAN -4.0 DEGREES
063063,000057:                                                                                                  #  (FIREFCT IS THE DISTANCE TO A SWITCH CURVE IN THE PHASE PLANE) AND A LONG FIRING IS CALLED FOR.
063064,000058: 
063065,000059:                                                                                                  #  IN ORDER TO AVOID SCALING DIFFICULTIES, SIMPLE ALGORITHMS TAGGED RUFLAW1, -2 AND -3 ARE RESORTED TO WHEN THE
063066,000060:                                                                                                  #  ERROR AND/OR ERROR RATE ARE LARGE.
063067,000061: 
063068,000062:                                                                                                  #  CALLING SEQUENCE:
063069,000063:                                                                                                  #                TC      TJETLAW         (MUST BE IN JASK)
063070,000064:                                                                                                  #        OR
063071,000065:                                                                                                  #                INHINT                  (MUST BE IN JASK)
063072,000066:                                                                                                  #                TC      IBNKCALL
063073,000067:                                                                                                  #                CADR    TJETLAW
063074,000068:                                                                                                  #                RELINT
063075,000069: 
063076,000070:                                                                                                  #  EXIT:         RETURN TO Q.
063077,000071: 
063078,000072:                                                                                                  #  INPUT:
063079,000073:                                                                                                  #        FROM THE CALLER:  E, EDOT, AXISCTR, SENSETYP, TJP, -U, -V.
063080,000074:                                                                                                  #        FROM 1/ACCONT:  48 ERASABLES BEGINNING AT BLOCKTOP (INCLUDING FLAT, ZONE3LIM AND ACCSWU, -V).
063081,000075: 
063082,000076:                                                                                                  #  OUTPUT:
063083,000077:                                                                                                  #        TJP, -U OR -V, NUMBERT (DAPTEMP5), FIREFCT (DAPTEMP3).
063084,000078: 
063085,000079:                                                                                                  #  DEBRIS:
063086,000080:                                                                                                  #        A, L, Q, E, EDOT, DAPTEMP1-6, DAPTREG1-4.
063087,000081: 
063088,000082:                                                                                                  #  ALARM:  NONE
063089,000083: 
063090,000084: 17,3252                                           BANK     17                                    
063091,000085: 17,2000                                           SETLOC   DAPS2                                 
063092,000086: 17,2000                                           BANK                                           
063093,000087: 17,3252  E6,1524                                  EBANK=   TJP                                   

Page 1461

063095,000089: 17,3252                                           COUNT*   $$/DAPTJ                              
063096,000090: 
063097,000091: 17,3252           00006        TJETLAW            EXTEND                                         #  SAVE Q FOR RETURN.
063098,000092: 17,3253           23745                           QXCH     HOLDQ                                 
063099,000093: 
063100,000094:                                                                                                  #  SET INDEXERS TO CORRESPOND TO THE AXIS AND TO THE SIGN OF EDOT
063101,000095: 
063102,000096: 17,3254           51505                           INDEX    AXISCTR                               #  AXISDIFF(-1)=NO OF LOCATIONS BER P AND U
063103,000097: 17,3255           33722                           CAF      AXISDIFF                              #  AXISDIFF(0)=0
063104,000098: 17,3256           55746                           TS       ADRSDIF1                              #  AXISDIFF(+1)=NO OF LOCATIONS BET V AND U
063105,000099: 
063106,000100: 17,3257           31427                           CAE      EDOT                                  #  IF EDOT NEGATIVE, PICK UP SET OF VALUES
063107,000101: 17,3260           00006                           EXTEND                                         #        THAT ALLOW USE OF SAME CODING AS FOR
063108,000102: 17,3261           63266                           BZMF     NEGEDOT                               #        POSITIVE EDOT.
063109,000103: 17,3262           31746                           CAE      ADRSDIF1                              #  SET A SECOND INDEXER WHICH MAY BE
063110,000104: 17,3263           55744                           TS       ADRSDIF2                              #        MODIFIED BY A DECISION FOR MAX JETS.
063111,000105: 17,3264           33724                           CAF      SENSOR                                #  FOR POSITIVE EDOT, ROTSENSE IS
063112,000106: 17,3265           13276                           TCF      SETSENSE                              #        INITIALIZED POSITIVE.
063113,000107: 
063114,000108: 17,3266           41752        NEGEDOT            CS       E                                     #  IN ORDER FOR NEG EDOT CASE TO USE CODING
063115,000109: 17,3267           55752                           TS       E                                     #        OF POS EDOT, MUST MODIFY AS FOLLOWS:
063116,000110: 17,3270           41427                           CS       EDOT                                  #        1. COMPLEMENT E AND EDOT.
063117,000111: 17,3271           55427                           TS       EDOT                                  #        2. SET SENSE OF ROTATION TO NEGATIVE
063118,000112: 17,3272           34753                           CAF      BIT1                                  #           (REVERSED LATER IF NECESSARY).
063119,000113: 17,3273           27746                           ADS      ADRSDIF1                              #        3. INCREMENT INDEXERS BY ONE SO THAT
063120,000114: 17,3274           55744                           TS       ADRSDIF2                              #           THE PROPER PARAMETERS ARE ACCESSED.
063121,000115: 17,3275           43724                           CS       SENSOR                                
063122,000116: 17,3276           55740        SETSENSE           TS       ROTSENSE                              
063123,000117: 
063124,000118:                                                                                                  #  TEST MAGNITUDE OF E (ATTITUDE ERROR, SINGLE-PRECISION, SCALED AT PI RADIANS):
063125,000119:                                                                                                  #        IF GREATER THAN (OR EQUAL TO) PI/16 RADIANS, GO TO THE SIMPLIFIED TJET ROUTINE.
063126,000120:                                                                                                  #        IF LESS THAN PI/16 RADIANS, RESCALE TO PI/4.
063127,000121: 
063128,000122: 17,3277           31752                           CAE      E                                     #  PICK UP ATTITUDE ERROR FOR THIS AXIS
063129,000123: 17,3300           00006                           EXTEND                                         
063130,000124: 17,3301           74747                           MP       BIT5                                  #  SHIFT RIGHT TEN BITS:  IF A-REGISTER IS
063131,000125: 17,3302           10000                           CCS      A                                     #        ZERO, RESCALE AND TEST EDOT.
063132,000126: 17,3303           13664                           TCF      RUFLAW2                               
063133,000127: 17,3304           13306                           TCF      SCALEE                                
063134,000128: 17,3305           13630                           TCF      RUFLAW1                               
063135,000129: 17,3306           34737        SCALEE             CAF      BIT13                                 #  ERROR IS IN L SCALED AT PI/16.  RESCALE
063136,000130: 17,3307           00006                           EXTEND                                         #        IT TO PI/4 AND SAVE IT.
063137,000131: 17,3310           70001                           MP       L                                     
063138,000132: 17,3311           55752                           TS       E                                     
063139,000133: 
063140,000134:                                                                                                  #  TEST MAGNITUDE OF EDOT (ERROR RATE SCALED AT PI/4 RADIANS/SECOND)
063141,000135:                                                                                                  #        IF GREATER THAN (OR EQUAL TO) PI/32 RADIANS/SECOND, GO TO THE SIMPLIFIED TJET ROUTINE.
063142,000136:                                                                                                  #        IF LESS THAN PI/32 RADIANS/SECOND, THEN RESCALE TO PI/32 RADIANS/SECOND.
063143,000137: 
063144,000138: 17,3312           31427                           CAE      EDOT                                  #  PICK UP SINGLE-PRECISION ERROR-RATE

Page 1462

063146,000140: 17,3313           00006                           EXTEND                                         #  FOR THIS AXIS=
063147,000141: 17,3314           74750                           MP       BIT4                                  #  SHIFT RIGHT ELEVEN BITS, IF THE A-REG IS
063148,000142: 17,3315           00006                           EXTEND                                         #  ZERO, THEN RESCALE AND USE FINELAW.
063149,000143: 17,3316           13320                           BZF      SCALEDOT                              
063150,000144: 17,3317           13672                           TCF      RUFLAW3                               
063151,000145: 
063152,000146:                                                                                                  #  *** FINELAW STARTS HERE ***
063153,000147: 
063154,000148: 17,3320           23427        SCALEDOT           LXCH     EDOT                                  #  EDOT IS SCALED AT PI/32 RADIANS/SECOND.
063155,000149: 
063156,000150: 17,3321           31427                           CAE      EDOT                                  #  COMPUTE (EDOT)(EDOT)
063157,000151: 17,3322           00006                           EXTEND                                         
063158,000152: 17,3323           70000                           SQUARE                                         #  PRODUCT SCALED AT PI(2)/2(10) RAD/SEC.
063159,000153: 17,3324           00006                           EXTEND                                         
063160,000154: 17,3325           74737                           MP       BIT13                                 #  SHIFT RIGHT TWO BITS TO RESCALE EDOTSQ
063161,000155: 17,3326           55737                           TS       EDOTSQ                                #        TO PI(2)/2(8) RAD(2)/SEC(2).
063162,000156: 
063163,000157: 17,3327           11752        ERRTEST            CCS      E                                     #  DOES BIG ERROR (THREE DEG BEYOND THE
063164,000158: 17,3330           63725                           AD       -3DEG                                 #  DEADBAND) REQUIRE MAXIMUM JETS?
063165,000159: 17,3331           13333                           TCF      +2                                    
063166,000160: 17,3332           63725                           AD       -3DEG                                 
063167,000161: 17,3333           00006                           EXTEND                                         
063168,000162: 17,3334           51746                           INDEX    ADRSDIF1                              
063169,000163: 17,3335           61601                           SU       FIREDB                                
063170,000164: 17,3336           00006                           EXTEND                                         
063171,000165: 17,3337           63344                           BZMF     SENSTEST                              #  IF NOT:  ARE UNBALANCED JETS PREFERRED|
063172,000166: 17,3340           34752        MAXJETS            CAF      TWO                                   #  IF YES:  INCREMENT ADDRESS LOCATOR AND
063173,000167: 17,3341           27744                           ADS      ADRSDIF2                              #           SET SWITCH FOR JET SELECT LOGIC TO 4.
063174,000168: 17,3342           34751                           CAF      FOUR                                  #           (ALWAYS DO THIS FOR P-AXIS)
063175,000169: 17,3343           13347                           TCF      TJCALC                                
063176,000170: 17,3344           11500        SENSTEST           CCS      SENSETYP                              #  DOES TRANSLATION PREFER MIN JETS.
063177,000171: 17,3345           13347                           TCF      TJCALC                                #  YES.  USE MIN-JET PARAMETERS.
063178,000172: 17,3346           13340                           TCF      MAXJETS                               #  NO.  GET MAX-JET PARAMETERS.
063179,000173: 17,3347           55743        TJCALC             TS       NUMBERT                               #  SET TO +0,1,4 FOR (U,V-AXES) JET SELECT.
063180,000174: 
063181,000175:                                                                                                  #  BEGINNING OF TJET CALCULATIONS:
063182,000176: 
063183,000177: 17,3350           41737                           CS       EDOTSQ                                #  SCALED AT PI(2)/2(8).
063184,000178: 17,3351           00006                           EXTEND                                         
063185,000179: 17,3352           51744                           INDEX    ADRSDIF2                              
063186,000180: 17,3353           71567                           MP       1/ANET1                               #  .5/ACC SCALED AT 2(6)/PI SEC(2)/RADIAN.
063187,000181: 17,3354           51746                           INDEX    ADRSDIF1                              
063188,000182: 17,3355           61601                           AD       FIREDB                                #  DEADBAND SCALED AT PI/4 RADIAN.
063189,000183: 17,3356           00006                           EXTEND                                         
063190,000184: 17,3357           61752                           SU       E                                     #  ATTITUDE ERROR SCALED AT PI/4 RADIAN.
063191,000185: 17,3360           55741                           TS       FIREFCT                               #  -E-.5(EDOTSQ)/ACC-DB AT PI/4 RADIAN.
063192,000186: 17,3361           00006                           EXTEND                                         
063193,000187: 17,3362           63542                           BZMF     ZON1,2,3                              
063194,000188: 
063195,000189: 17,3363           51746        ZONE4,5            INDEX    ADRSDIF1                              
063196,000190: 17,3364           31573                           CAE      1/ACOAST                              #  .5/ACC SCALED AT 2(6)/PI WHERE

Page 1463

063198,000192: 17,3365           00006                           EXTEND                                         #  ACC = MAX(AMIN, AOS-).
063199,000193: 17,3366           71737                           MP       EDOTSQ                                #  SCALED AT PI/2(8).
063200,000194: 17,3367           61752                           AD       E                                     #  SCALED AT PI/4
063201,000195: 17,3370           51746                           INDEX    ADRSDIF1                              
063202,000196: 17,3371           61603                           AD       COASTDB                               #  SCALED AT PI/4 POS. FOR NEG. INTERCEPT.
063203,000197: 17,3372           00006                           EXTEND                                         #  TEST E+.5(EDOTSQ)/ACC+DB AT PI/4 RADIAN.
063204,000198: 17,3373           63426                           BZMF     ZONE5                                 #  IF FUNCTION NEGATIVE, FIND TJET.
063205,000199:                                                                                                  #  IF FUNCTION POSITIVE, IN ZONE 4.
063206,000200: 
063207,000201:                                                                                                  #  ZONE 4 IS THE COAST REGION.  HOWEVER, IF THE JETS ARE ON AND DRIVING TOWARD
063208,000202:                                                                                                  #        A. THE AXIS WITHIN + OR - (DB + FLAT) FOR DRIFTING FLIGHT, OR
063209,000203:                                                                                                  #        B. THE USUAL TARGET PARABOLA FOR POWERED FLIGHT
063210,000204:                                                                                                  #  THEN THE THRUSTERS ARE KEPT ON.
063211,000205: 
063212,000206: 17,3374           51505        ZONE4              INDEX    AXISCTR                               #  IS THE CURRENT VALUE IN TJET NON-ZERO
063213,000207: 17,3375           41525                           CS       TJETU                                 #        WITH SENSE OPPOSITE TO EDOT,
063214,000208: 17,3376           00006                           EXTEND                                         #        (I.E., ARE JETS ON AND FIRING TOWARD
063215,000209: 17,3377           71740                           MP       ROTSENSE                              #        THE DESIRABLE STATE).
063216,000210: 17,3400           00006                           EXTEND                                         
063217,000211: 17,3401           63422                           BZMF     COASTTJ                               #  NO.  COAST.
063218,000212: 
063219,000213: 17,3402           11555        JETSON             CCS      FLAT                                  #  YES.  IS THIS DRIFTING OR POWERED FLIGHT|
063220,000214: 17,3403           13414                           TCF      DRIFT/ON                              #  DRIFTING.  GO MAKE FURTHER TEST.
063221,000215: 
063222,000216: 17,3404           41741                           CS       FIREFCT                               #  POWERED (OR ULLAGE).  CAN TARGET PARABOLA
063223,000217: 17,3405           51746                           INDEX    ADRSDIF1                              #        BE REACHED FROM THIS POINT IN THE
063224,000218: 17,3406           61605                           AD       AXISDIST                              #        PHASE PLANE|
063225,000219: 17,3407           00006                           EXTEND                                         
063226,000220: 17,3410           63422                           BZMF     COASTTJ                               #  NO. SET TJET = 0.
063227,000221: 17,3411           03526                           TC       Z123COMP                              #  YES.  CALCULATE TJET AS THOUGH IN ZONE 1
063228,000222: 17,3412           31741                           CAE      FIREFCT                               #        AFTER COMPUTING THE REQUIRED
063229,000223: 17,3413           13562                           TCF      ZONE1                                 #        PARAMETERS.
063230,000224: 
063231,000225: 17,3414           51746        DRIFT/ON           INDEX    ADRSDIF1                              #  CAN TARGET STRIP OF AXIS BE REACHED FROM
063232,000226: 17,3415           41601                           CS       FIREDB                                #        THIS POINT IN THE PHASE PLANE|
063233,000227: 17,3416           60000                           DOUBLE                                         
063234,000228: 17,3417           61741                           AD       FIREFCT                               
063235,000229: 17,3420           00006                           EXTEND                                         
063236,000230: 17,3421           63424                           BZMF     +3                                    
063237,000231: 17,3422           34755        COASTTJ            CAF      ZERO                                  #  NO.  SET TJET = 0.
063238,000232: 17,3423           13466                           TCF      RETURNTJ                              
063239,000233: 
063240,000234: 17,3424           03526                           TC       Z123COMP                              #  YES. CALCULATE TJET AS THOUGH IN ZONE 2
063241,000235: 17,3425           13547                           TCF      ZONE2,3                               #        OR 3 AFTER COMPUTING REQUIRED VALUES.
063242,000236: 
063243,000237: 17,3426           54001        ZONE5              TS       L                                     #  TEMPORARILY STORE FUNCTION IN L.
063244,000238: 17,3427           11740                           CCS      ROTSENSE                              #  MODIFY ADRSDIF2 FOR ACCESSING 1/ANET2
063245,000239: 17,3430           13434                           TCF      +4                                    #  AND ACCFCTZ5, WHICH MUST BE PICKED UP
063246,000240: 17,3431           05705                           TC       CCSHOLE                               #  FROM THE NEXT LOWER REGISTER IF THE
063247,000241: 17,3432           44752                           CS       TWO                                   #  (ACTUAL) ERROR RATE IS NEGATIVE.

Page 1464

063249,000243: 17,3433           27744                           ADS      ADRSDIF2                              
063250,000244: 
063251,000245: 17,3434           30001                 +4        CAE      L                                     
063252,000246: 17,3435           00006                           EXTEND                                         
063253,000247: 17,3436           51744                           INDEX    ADRSDIF2                              #  TTOAXIS AND HH ARE THE PARAMETERS UPON
063254,000248: 17,3437           71576                           MP       ACCFCTZ5                              #        WHICH THE APPROXIMATIONS TO TJET ARE
063255,000249: 17,3440           20001                           DDOUBL                                         #        BASED.
063256,000250: 17,3441           20001                           DDOUBL                                         
063257,000251: 17,3442           53750                           DXCH     HH                                    #  DOUBLE PRECISION H SCALED AT 8 SEC(2).
063258,000252: 17,3443           51744                           INDEX    ADRSDIF2                              
063259,000253: 17,3444           31570                           CAE      1/ANET2                               #  SCALED AT 2(7)/PI SEC(2)/RAD.
063260,000254: 17,3445           00006                           EXTEND                                         
063261,000255: 17,3446           71427                           MP       EDOT                                  #  SCALED AT PI/2(5)
063262,000256: 17,3447           55742                           TS       TTOAXIS                               #  SCALED AT 4 SEC.
063263,000257: 
063264,000258:                                                                                                  #  TEST WHETHER TJET GREATER THAN 50 MSEC.
063265,000259: 
063266,000260: 17,3450           00006                           EXTEND                                         
063267,000261: 17,3451           73734                           MP       -.05AT2                               #  H - .05 TTOAXIS - .00125 G.T. ZERO
063268,000262: 17,3452           61747                           AD       HH                                    #        (SCALED AT 8 SEC(2) ).
063269,000263: 17,3453           67746                           AD       NEG2                                  
063270,000264: 17,3454           00006                           EXTEND                                         
063271,000265: 17,3455           63503                           BZMF     FORMULA1                              
063272,000266: 
063273,000267:                                                                                                  #  TEST WHETHER TJET GREATER THAN 150 MSEC.
063274,000268: 
063275,000269: 17,3456           31742                           CAE      TTOAXIS                               
063276,000270: 17,3457           00006                           EXTEND                                         
063277,000271: 17,3460           73735                           MP       -.15AT2                               #  H - .15 TTOAXIS - .01125 G.T. ZERO
063278,000272: 17,3461           61747                           AD       HH                                    #        (SCALED AT 8 SEC(2) )
063279,000273: 17,3462           63726                           AD       -.0112A8                              
063280,000274: 17,3463           00006                           EXTEND                                         
063281,000275: 17,3464           63513                           BZMF     FORMULA2                              
063282,000276: 
063283,000277:                                                                                                  #  IF TJET GREATER THAN 150 MSEC, ASSIGN IT VALUE OF 250 MSEC, SINCE THIS
063284,000278:                                                                                                  #  IS ENOUGH TO ASSURE NO SKIP NEXT CSP (100 MSEC).
063285,000279: 
063286,000280: 17,3465           34741        FULLTIME           CAF      BIT11                                 #  250 MSEC SCALED AT 4 SEC.
063287,000281: 
063288,000282:                                                                                                  #  RETURN TO CALLING PROGRAM WITH JET TIME SCALED AS TIME6 AND SIGNED.
063289,000283: 
063290,000284: 17,3466           00006        RETURNTJ           EXTEND                                         #  ALL BRANCHES TERMINATE HERE WITH TJET
063291,000285: 17,3467           71740                           MP       ROTSENSE                              #        (SCALED AT 4 SEC) IN THE ACCUMULATOR.
063292,000286: 17,3470           51505                           INDEX    AXISCTR                               #  ROTSENSE APPLIES SIGN AND CHANGES SCALE.
063293,000287: 17,3471           55525                           TS       TJETU                                 
063294,000288: 17,3472           00006                           EXTEND                                         
063295,000289: 17,3473           51505                           INDEX    AXISCTR                               
063296,000290: 17,3474           71547                           MP       ACCSWU                                #  SET SWITCH FOR JET SELECT IF ROTATION IS
063297,000291: 17,3475           30001                           CAE      L                                     
063298,000292: 17,3476           00006                           EXTEND                                         #        IN A SENSE FOR WHICH 1/ACCS HAS FORCED
063299,000293: 17,3477           63502                           BZMF     +3                                    #        A MAX-JET CALCULATION.
063300,000294: 17,3500           34751                           CAF      FOUR                                  

Page 1465

063302,000296: 17,3501           55743                           TS       NUMBERT                               
063303,000297: 17,3502           01745                           TC       HOLDQ                                 #  RETURN VIA SAVED Q.
063304,000298: 
063305,000299:                                                                                                  #  TJET = H/(.025 + TTOAXIS)     FOR TJET LESS THAN 50 MSEC.
063306,000300: 
063307,000301: 17,3503           43733        FORMULA1           CS       -.025AT4                              #  .025 SEC SCALED AT 4.
063308,000302: 17,3504           61742                           AD       TTOAXIS                               #  SCALED AT 4 SECONDS.
063309,000303: 17,3505           53750                           DXCH     HH                                    #  STORE DENOMINATOR IN FIRST WORD OF H,
063310,000304: 17,3506           00006                           EXTEND                                         #        WHICH NEED NOT BE PRESERVED.  PICK UP
063311,000305: 17,3507           11747                           DV       HH                                    #        DP H AND DIVIDE BY DENOMINATOR.
063312,000306: 17,3510           00006                           EXTEND                                         
063313,000307: 17,3511           74736                           MP       BIT14                                 #  RESCALE TJET FROM 2 TO USUAL 4 SEC.
063314,000308: 17,3512           13623                           TCF      CHKMINTJ                              #  CHECK THAT TJET IS NOT LESS THAN MINIMUM
063315,000309: 
063316,000310:                                                                                                  #  TJET = (H + .00375)/(0.1 + TTOAXIS)   FOR TJET GREATER THAN 50 MSEC.
063317,000311: 
063318,000312: 17,3513           00006        FORMULA2           EXTEND                                         
063319,000313: 17,3514           33737                           DCA      .00375A8                              #  .00375 SEC(2) SCALED AT 8.
063320,000314: 17,3515           21750                           DAS      HH                                    #  STORE NUMERATOR IN DP H, WHICH NEED NOT
063321,000315:                                                                                                  #        BE PRESERVED.
063322,000316: 17,3516           31742                           CAE      TTOAXIS                               #  SCALED AT 4 SEC.
063323,000317: 17,3517           63727                           AD       .1AT4                                 #  0.1 SEC SCALED AT 4.
063324,000318: 17,3520           53750                           DXCH     HH                                    #  STORE DENOMINATOR IN FIRST WORD OF H,
063325,000319: 17,3521           00006                           EXTEND                                         #        WHICH NEED NOT BE PRESERVED.  PICK UP
063326,000320: 17,3522           11747                           DV       HH                                    #        DP NUMERATOR AND DIVIDE BY DENOMINATOR
063327,000321: 17,3523           00006                           EXTEND                                         
063328,000322: 17,3524           74736                           MP       BIT14                                 #  RESCALE TJET FROM 2 TO USUAL 4 SEC.
063329,000323: 17,3525           13466                           TCF      RETURNTJ                              #  END SUBROUTINE.
063330,000324: 
063331,000325:                                                                                                  #  SUBROUTINIZED COMPUTATIONS REQUIRED FOR ALL ENTRIES INTO CODING FOR ZONES 1, 2, AND 3.
063332,000326:                                                                                                  #  REACHED BY TC FROM 3 POINTS IN TJETLAW.
063333,000327: 
063334,000328: 17,3526           41740        Z123COMP           CS       ROTSENSE                              #  USED IN RETURNTJ SECTION TO RESCALE TJET
063335,000329: 17,3527           55740                           TS       ROTSENSE                              #        AS TIME6 AND GIVE IT PROPER SIGN.
063336,000330: 17,3530           31427                           CAE      EDOT                                  #  SCALED AT PI/2(5) RAD/SEC.
063337,000331: 17,3531           00006                           EXTEND                                         
063338,000332: 17,3532           51744                           INDEX    ADRSDIF2                              
063339,000333: 17,3533           71567                           MP       1/ANET1                               #  SCALED AT 2(7)/PI SEC(2)/RAD.
063340,000334: 17,3534           55742                           TS       TTOAXIS                               #  STORE TIME-TO-AXIS SCALED AT 4 SECONDS.
063341,000335: 17,3535           63740                           AD       -TJMAX                                
063342,000336: 17,3536           00006                           EXTEND                                         #  IS TIME TO AXIS LESS THAN 150 MSEC.
063343,000337: 17,3537           63541                           BZMF     +2                                    
063344,000338: 17,3540           13465                           TCF      FULLTIME                              #  NO. FIRE JETS, DO NOT CALCULATE TJET.
063345,000339: 17,3541           00002                           RETURN                                         #  YES.  GO ON TO FIND TJET
063346,000340: 
063347,000341: 17,3542           03526        ZON1,2,3           TC       Z123COMP                              #  SUBROUTINIZED PREPARATION FOR ZONE1,2,3.
063348,000342: 
063349,000343:                                                                                                  #  IF THE (NEG) DISTANCE BEYOND PARABOLA IS LESS THAN FLAT, USE SPECIAL
063350,000344:                                                                                                  #  LOGIC TO ACQUIRE MINIMUM IMPULSE LIMIT CYCLE.  DURING POWERED FLIGHT

Page 1466

063352,000346:                                                                                                  #  OR ULLAGE, FLAT = 0
063353,000347: 
063354,000348: 17,3543           31741                           CAE      FIREFCT                               #  SCALED AT PI/4 RAD.
063355,000349: 17,3544           61555                           AD       FLAT                                  
063356,000350: 17,3545           00006                           EXTEND                                         
063357,000351: 17,3546           63562                           BZMF     ZONE1                                 #  NOT IN SPECIAL ZONES.
063358,000352: 
063359,000353:                                                                                                  #  FIRE FOR AXIS OR, IF CLOSE, FIRE MINIMUM IMPULSE.  IF ON AXIS, COAST.
063360,000354: 
063361,000355: 17,3547           41556        ZONE2,3            CS       ZONE3LIM                              #  HEIGHT OF MIN-IMPULSE ZONE SET BY 1/ACCS
063362,000356: 17,3550           61742                           AD       TTOAXIS                               #        35 MSEC IN DRIFTING FLIGHT
063363,000357: 17,3551           00006                           EXTEND                                         #        ZERO WHEN TRYING TO ENTER GTS CONTROL.
063364,000358: 17,3552           63555                           BZMF     ZONE3                                 
063365,000359: 17,3553           31742        ZONE2              CAE      TTOAXIS                               #  FIRE TO AXIS.
063366,000360: 17,3554           13466                           TCF      RETURNTJ                              
063367,000361: 17,3555           11427        ZONE3              CCS      EDOT                                  #  CHECK IF EDOT IS ZERO.
063368,000362: 17,3556           34746                           CAF      BIT6                                  #  FIRE A ONE-JET MINIMUM IMPULSE.
063369,000363: 17,3557           13466                           TCF      RETURNTJ                              #  TJET = +0.
063370,000364: 17,3560           05705                           TC       CCSHOLE                               #  CANNOT BE BECAUSE NEG EDOT COMPLEMENTED.
063371,000365: 17,3561           13466                           TCF      RETURNTJ                              #  TJET = +0.
063372,000366: 
063373,000367: 17,3562           00006        ZONE1              EXTEND                                         
063374,000368: 17,3563           51746                           INDEX    ADRSDIF1                              
063375,000369: 17,3564           61605                           SU       AXISDIST                              #  SCALED AT PI/4 RAD.
063376,000370: 17,3565           00006                           EXTEND                                         
063377,000371: 17,3566           51744                           INDEX    ADRSDIF2                              
063378,000372: 17,3567           71575                           MP       ACCFCTZ1                              #  SCALED AT 2(7)/PI SEC(2)/RAD.
063379,000373: 17,3570           20001                           DDOUBL                                         
063380,000374: 17,3571           20001                           DDOUBL                                         
063381,000375: 17,3572           53750                           DXCH     HH                                    #  DOUBLE PRECISION H SCALED AT 8 SEC(2).
063382,000376: 
063383,000377:                                                                                                  #  TEST WHETHER TOTAL TIME REQUIRED GREATER THAN 150 MSEC:
063384,000378:                                                                                                  #                             2                                   2
063385,000379:                                                                                                  #        IS .5(.150 - TTOAXIS)  - H  NEGATIVE (SCALED AT 8 SECONDS )
063386,000380: 
063387,000381: 17,3573           31742                           CAE      TTOAXIS                               #  TTOAXIS SCALED AT 4 SECONDS.
063388,000382: 17,3574           63740                           AD       -TJMAX                                #  -.150 SECOND SCALED AT 4.
063389,000383: 17,3575           00006                           EXTEND                                         
063390,000384: 17,3576           70000                           SQUARE                                         
063391,000385: 17,3577           00006                           EXTEND                                         
063392,000386: 17,3600           61747                           SU       HH                                    #  HIGH WORD OF H SCALED AT 8 SEC(2).
063393,000387: 17,3601           00006                           EXTEND                                         
063394,000388: 17,3602           63465                           BZMF     FULLTIME                              #  YES.  NEED NOT CALCULATE TJET.
063395,000389: 
063396,000390:                                                                                                  #  TEST WHETHER TIME BEYOND AXIS GREATER THAN 50 MSEC TO DETERMINE WHICH APPROXIMATION TO USE.
063397,000391: 
063398,000392: 17,3603           31747                           CAE      HH                                    
063399,000393: 17,3604           67746                           AD       NEG2                                  
063400,000394: 17,3605           00006                           EXTEND                                         
063401,000395: 17,3606           63616                           BZMF     FORMULA3                              
063402,000396: 

Page 1467

063404,000398:                                                                                                  #  TJET = H/0.1 + TTOAXIS + .0375        FOR APPROXIMATION OVER MORE THAN 50 MSEC.
063405,000399: 
063406,000400: 17,3607           33730                           CAF      .1AT2                                 #  STORE .1 SEC SCALED AT 2 FOR DIVISION.
063407,000401: 17,3610           53750                           DXCH     HH                                    #  DP H SCALED AT 8 SEC(2) NEED NOT BE
063408,000402: 17,3611           00006                           EXTEND                                         #        PRESERVED.
063409,000403: 17,3612           11747                           DV       HH                                    #  QUOTIENT SCALED AT 4 SECONDS.
063410,000404: 17,3613           61742                           AD       TTOAXIS                               #  SCALED AT 4 SEC.
063411,000405: 17,3614           63731                           AD       .0375AT4                              #  .0375 SEC SCALED AT 4.
063412,000406: 17,3615           13466                           TCF      RETURNTJ                              #  END COMPUTATION.
063413,000407: 
063414,000408:                                                                                                  #  TJET = H/.O25 + TTOAXIS       FOR APPROXIMATION OVER LESS THAN 50 MSEC.
063415,000409: 
063416,000410: 17,3616           43732        FORMULA3           CS       -.025AT2                              #  STORE +.025 SEC SCALED AT 2 FOR DIVISION
063417,000411: 17,3617           53750                           DXCH     HH                                    #  PICK UP DP H AT 8, WHICH NEED NOT BE
063418,000412: 17,3620           00006                           EXTEND                                         #        PRESERVED.
063419,000413: 17,3621           11747                           DV       HH                                    #  QUOTIENT SCALED AT 4 SECONDS.
063420,000414: 17,3622           61742                           AD       TTOAXIS                               #  SCALED AT 4 SEC.
063421,000415: 
063422,000416:                                                                                                  #  IF COMPUTED JET TIME IS LESS THAN TJMIN, TJET IS SET TO ZERO.
063423,000417:                                                                                                  #  MINIMUM IMPULSES REQUIRED IN ZONE 3 ARE NOT SUBJECT TO THIS CONSTRAINT, NATURALLY.
063424,000418: 
063425,000419: 17,3623           63742        CHKMINTJ           AD       -TJMIN                                #  IS COMPUTED TIME LESS THAN THE MINIMUM.
063426,000420: 17,3624           00006                           EXTEND                                         
063427,000421: 17,3625           63422                           BZMF     COASTTJ                               #  YES, SET TIME TO ZERO.
063428,000422: 17,3626           63741                           AD       TJMIN                                 #  NO, RESTORE COMPUTED TIME.
063429,000423: 17,3627           13466                           TCF      RETURNTJ                              #  END COMPUTATION.
063430,000424: 

Page 1468

063432,000426:                                                                                                  #  *** ROUGHLAW ***
063433,000427: 
063434,000428:                                                                                                  #  BEFORE ENTRY TO RUFLAW:
063435,000429:                                                                                                  #        1. INDEXERS ADRSDIF1 AND ADRSDIF2 ARE SET ON BASIS OF AXIS, AND SIGN OF EDOT.
063436,000430:                                                                                                  #        2. IF EDOT WAS NEGATIVE, E AND EDOT ARE ROTATED INTO UPPER HALF-PLANE AND ROTSENSE IS MADE NEGATIVE.
063437,000431:                                                                                                  #        3. E IS SCALED AT PI RADIANS AND EDOT AT PI/4 RAD/SEC.
063438,000432:                                                                                                  #           (EXCEPT THE RUFLAW3 ENTRY WHEN E IS AT PI/4)
063439,000433: 
063440,000434:                                                                                                  #  RUFLAW1:      ERROR MORE NEGATIVE THAN PI/16 RAD.  FIRE TO A RATE OF 6.5 DEG/SEC (IF JET TIME EXCEEDS 20 MSEC.).
063441,000435:                                                                                                  #  RUFLAW2:      ERROR MORE POSITIVE THAN PI/16 RAD.  FIRE TO AN OPPOSING RATE OF 6.5 DEG/SEC.
063442,000436:                                                                                                  #  RUFLAW3:      ERROR RATE GREATER THAN PI/32 RAD/SEC AND ERROR WITHIN BOUNDS.  COAST IF BELOW FIREFCT, FIRE IF ABOVE
063443,000437: 
063444,000438: 17,3630           43743        RUFLAW1            CS       RUFRATE                               #  DECREMENT EDOT BY .1444 RAD/SEC AT PI/4
063445,000439: 17,3631           27427                           ADS      EDOT                                  #        WHICH IS THE TARGET RATE
063446,000440: 17,3632           00006                           EXTEND                                         
063447,000441: 17,3633           63654                           BZMF     SMALRATE                              #  BRANCH IF RATE LESS THAN TARGET.
063448,000442: 17,3634           03712                           TC       RUFSETUP                              #  REVERSE ROTSENSE AND INDICATE MAX JETS.
063449,000443: 17,3635           31427                           CAE      EDOT                                  #  PICK UP DESIRED RATE CHANGE.
063450,000444: 
063451,000445: 17,3636           00006        RUFLAW12           EXTEND                                         #  COMPUTE TJET
063452,000446: 17,3637           51744                           INDEX    ADRSDIF2                              #        = (DESIRED RATE CHANGE)/(2-JET ACCEL.)
063453,000447: 17,3640           71571                           MP       1/ANET1    +2                         
063454,000448: 17,3641           67741                           AD       -1/8                                  #  IF TJET, SCALED AT 32 SEC, EXCEEDS
063455,000449: 17,3642           00006                           EXTEND                                         #        4 SECONDS, SET TJET TO TJMAX.
063456,000450: 17,3643           63645                           BZMF     +2                                    
063457,000451: 17,3644           13465                           TCF      FULLTIME                              
063458,000452: 17,3645           00006                           EXTEND                                         
063459,000453: 17,3646           13465                           BZF      FULLTIME                              
063460,000454: 17,3647           64740                           AD       BIT12                                 #  RESTORE COMPUTED TJET TO ACCUMULATOR.
063461,000455: 17,3650           20001                           DAS      A                                     
063462,000456: 17,3651           20001                           DAS      A                                     
063463,000457: 17,3652           20001                           DAS      A                                     #  RESCALED TJET AT 4 SECONDS.
063464,000458: 17,3653           13623                           TCF      CHKMINTJ                              #  RETURN AS FROM FINELAW.
063465,000459: 
063466,000460: 17,3654           03714        SMALRATE           TC       RUFSETUP   +2                         #  SET NUMBERT AND FIREFCT FOR MAXIMUM JETS
063467,000461: 17,3655           11740                           CCS      ROTSENSE                              
063468,000462: 17,3656           34753                           CAF      ONE                                   #  MODIFY INDEXER TO POINT TO 1/ANET
063469,000463: 17,3657           13661                           TCF      +2                                    #        CORRESPONDING TO THE PROPER SENSE.
063470,000464: 17,3660           37747                           CAF      NEGONE                                
063471,000465: 17,3661           27744                           ADS      ADRSDIF2                              
063472,000466: 
063473,000467: 17,3662           41427                           CS       EDOT                                  #  (.144 AT PI/4 - EDOT) = DESIRED RATE CHNG.
063474,000468: 17,3663           13636                           TCF      RUFLAW12                              
063475,000469: 
063476,000470: 17,3664           03712        RUFLAW2            TC       RUFSETUP                              #  REVERSE ROTSENSE AND INDICATE MAX JETS.
063477,000471: 17,3665           33743                           CAF      RUFRATE                               
063478,000472: 17,3666           61427                           AD       EDOT                                  #  (.144 AT PI/4 + EDOT) = DESIRED RATE CHNG.
063479,000473: 17,3667           54000                           TS       A                                     #  IF OVERFLOW SKIP, FIRE FOR FULL TIME.
063480,000474: 17,3670           13636                           TCF      RUFLAW12                              #  OTHERWISE, COMPUTE JET TIME.
063481,000475: 17,3671           13465                           TCF      FULLTIME                              
063482,000476: 

Page 1469

063484,000478: 17,3672           03712        RUFLAW3            TC       RUFSETUP                              #  EXECUTE COMMON RUFLAW SUBROUTINE.
063485,000479: 17,3673           51746                           INDEX    ADRSDIF1                              
063486,000480: 17,3674           41601                           CS       FIREDB                                #  CALCULATE DISTANCE FROM SWITCH CURVE
063487,000481: 17,3675           61752                           AD       E                                     #        1/ANET1*EDOT*EDOT +E - FIREDB = 0
063488,000482: 17,3676           00006                           EXTEND                                         #                SCALED AT 4 PI RADIANS
063489,000483: 17,3677           74741                           MP       BIT11                                 
063490,000484: 17,3700           57427                           XCH      EDOT                                  
063491,000485: 17,3701           00006                           EXTEND                                         
063492,000486: 17,3702           70000                           SQUARE                                         
063493,000487: 17,3703           00006                           EXTEND                                         
063494,000488: 17,3704           51746                           INDEX    ADRSDIF1                              
063495,000489: 17,3705           71571                           MP       1/ANET1    +2                         
063496,000490: 17,3706           61427                           AD       EDOT                                  
063497,000491: 17,3707           00006                           EXTEND                                         
063498,000492: 17,3710           63422                           BZMF     COASTTJ                               #  COAST IF BELOW IT.
063499,000493: 17,3711           13465                           TCF      FULLTIME                              #  FIRE FOR FULL PERIOD IF ABOVE IT.
063500,000494: 
063501,000495:                                                                                                  #  SUBROUTINE USED IN ALL ENTRIES TO ROUGHLAW.
063502,000496: 
063503,000497: 17,3712           41740        RUFSETUP           CS       ROTSENSE                              #  REVERSE ROTSENSE WHEN ENTER HERE.
063504,000498: 17,3713           55740                           TS       ROTSENSE                              
063505,000499: 17,3714           34751                 +2        CAF      FOUR                                  #  REQUIRE MAXIMUM (2) JETS IN U,V-AXES.
063506,000500: 17,3715           55743                           TS       NUMBERT                               
063507,000501: 17,3716           34735                           CAF      NEGMAX                                #  SUGGEST MAXIMUM (4) JETS IN P-AXIS.
063508,000502: 17,3717           55741                           TS       FIREFCT                               
063509,000503: 17,3720           00002                           TC       Q                                     
063510,000504: 
063511,000505:                                                                                                  #  CONSTANTS FOR TJETLAW
063512,000506: 
063513,000507: 17,3721           77757                           DEC      -16        B-14                       #  AXISDIFF(INDEX) = NUMBER OF REGISTERS
063514,000508: 17,3722           00000        AXISDIFF           DEC      +0         B-14                       #        BETWEEN STORED 1/ACCS PARAMETERS FOR
063515,000509: 17,3723           00020                           DEC      16         B-14                       #        THE INDEXED AXIS AND THE U-AXIS.
063516,000510: 17,3724           14400        SENSOR             OCT      14400                                 #  RATIO OF TJET SCALING WITHIN TJETLAW
063517,000511:                                                                                                  #        (4 SEC) TO SCALING FOR T6 (10.24 SEC).
063518,000512: 17,3725           75673        -3DEG              DEC      -.06667                               #  -3.0 DEGREES SCALED AT 45.
063519,000513: 17,3726           77750        -.0112A8           DEC      -.00141                               #  -.01125 SEC(2) SCALED AT 8.
063520,000514: 17,3727           00632        .1AT4              DEC      .025                                  #  0.1 SECOND SCALED AT 4.
063521,000515: 17,3730           01463        .1AT2              DEC      .05                                   #  0.1 SEC SCALED AT 2.
063522,000516: 17,3731           00232        .0375AT4           DEC      .00938                                #  .0375 SEC SCALED AT 4.
063523,000517: 17,3732           77462        -.025AT2           DEC      -.0125                                #  -.025 SEC SCALED AT 2.
063524,000518: 17,3733           77631        -.025AT4           DEC      -.00625                               
063525,000519: 17,3734           77145        -.05AT2            DEC      -.025                                 
063526,000520: 17,3735           75462        -.15AT2            DEC      -.075                                 
063527,000521: 17,3736           00007 25605  .00375A8           2DEC     .00375     B-3                        
063528,000522: 
063529,000523: 17,3740           76631        -TJMAX             DEC      -.0375                                #  LARGEST CALCULATED TIME.  .150 SEC AT 4.
063530,000524: 17,3741           00122        TJMIN              DEC      .005                                  #  SMALLEST ALLOWABLE TIME.  .020 SEC AT 4.
063531,000525: 17,3742           77655        -TJMIN             DEC      -.005                                 
063532,000526: 17,3743           04476        RUFRATE            DEC      .1444                                 #  CORRESPONDS TO TARGET RATE OF 6.5 DEG/S.

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