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
	20'35 OCT. 28,1968
Note that the date is the date of the printout, not the date of the program revision.

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

Page 1460

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

Page 1461

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

Page 1462

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

Page 1463

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

Page 1464

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

Page 1465

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

Page 1466

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

Page 1467

063381,000398:                                                                                                  #  TJET = H/0.1 + TTOAXIS + .0375        FOR APPROXIMATION OVER MORE THAN 50 MSEC.
063382,000399: 
063383,000400: 17,3607           33730                           CAF      .1AT2                                 #  STORE .1 SEC SCALED AT 2 FOR DIVISION.
063384,000401: 17,3610           53750                           DXCH     HH                                    #  DP H SCALED AT 8 SEC(2) NEED NOT BE
063385,000402: 17,3611           00006                           EXTEND                                         #        PRESERVED.
063386,000403: 17,3612           11747                           DV       HH                                    #  QUOTIENT SCALED AT 4 SECONDS.
063387,000404: 17,3613           61742                           AD       TTOAXIS                               #  SCALED AT 4 SEC.
063388,000405: 17,3614           63731                           AD       .0375AT4                              #  .0375 SEC SCALED AT 4.
063389,000406: 17,3615           13466                           TCF      RETURNTJ                              #  END COMPUTATION.
063390,000407: 
063391,000408:                                                                                                  #  TJET = H/.O25 + TTOAXIS       FOR APPROXIMATION OVER LESS THAN 50 MSEC.
063392,000409: 
063393,000410: 17,3616           43732        FORMULA3           CS       -.025AT2                              #  STORE +.025 SEC SCALED AT 2 FOR DIVISION
063394,000411: 17,3617           53750                           DXCH     HH                                    #  PICK UP DP H AT 8, WHICH NEED NOT BE
063395,000412: 17,3620           00006                           EXTEND                                         #        PRESERVED.
063396,000413: 17,3621           11747                           DV       HH                                    #  QUOTIENT SCALED AT 4 SECONDS.
063397,000414: 17,3622           61742                           AD       TTOAXIS                               #  SCALED AT 4 SEC.
063398,000415: 
063399,000416:                                                                                                  #  IF COMPUTED JET TIME IS LESS THAN TJMIN, TJET IS SET TO ZERO.
063400,000417:                                                                                                  #  MINIMUM IMPULSES REQUIRED IN ZONE 3 ARE NOT SUBJECT TO THIS CONSTRAINT, NATURALLY.
063401,000418: 
063402,000419: 17,3623           63742        CHKMINTJ           AD       -TJMIN                                #  IS COMPUTED TIME LESS THAN THE MINIMUM.
063403,000420: 17,3624           00006                           EXTEND                                         
063404,000421: 17,3625           63422                           BZMF     COASTTJ                               #  YES, SET TIME TO ZERO.
063405,000422: 17,3626           63741                           AD       TJMIN                                 #  NO, RESTORE COMPUTED TIME.
063406,000423: 17,3627           13466                           TCF      RETURNTJ                              #  END COMPUTATION.
063407,000424: 

Page 1468

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

Page 1469

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