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.

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

Page 1460

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

Page 1461

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

Page 1462

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

Page 1463

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

Page 1464

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

Page 1465

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

Page 1466

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

Page 1467

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

Page 1468

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

Page 1469

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