Source Code

This is an attempt to recreate Luminary 99 Rev 2, otherwise known as LUM99R2, from Luminary 99 Rev 1 and ephemeris data from Luminary 116. The differences are confined to the last 10-12 lines of the CONTROLLED CONSTANTS. Luminary 99 Rev 1 source-code was transcribed from a printout in the MIT Museum, while Luminary 116 source code was transcribed from a printout belonging to Don Eyles. AGC developer James Kernan, the "rope mother" for the Apollo 11 Lunar Module's AGC, explains as follows: "At the last minute, Dan Lickly, our chief engineer, appeared with ephemerides updates and it took two tries to get it right. The result was that we created Lum99 Revision 1 and Lum99 Revision 2." It is suspected that the former is what's in the MIT Museum, and the latter is what we are trying to recreate here. As for which revision actually flew in Apollo 11, all of the other available surviving evidence points to Rev 1 rather than to Rev 2, so we're just not sure!

030506,000002:                                                                                                  ## Copyright:   Public domain.
030507,000003:                                                                                                  ## Filename:    STABLE_ORBIT_-_P38-P39.agc
030508,000004:                                                                                                  ## Purpose:     Part of the source code for Luminary 1A build 099.
030509,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
030510,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 11.
030511,000007:                                                                                                  ## Assembler:   yaYUL
030512,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
030513,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo.
030514,000010:                                                                                                  ## Pages:       723-730
030515,000011:                                                                                                  ## Mod history: 2009-05-19 RSB  Adapted from the corresponding 
030516,000012:                                                                                                  ##                              Colossus249 file (there being no corresponding
030517,000013:                                                                                                  ##                              Luminary131 source-code file), using page 
030518,000014:                                                                                                  ##                              images from Luminary 1A.
030519,000015:                                                                                                  ##              2009-06-07 RSB  Eliminated an extraneous instruction.
030520,000016:                                                                                                  ##              2011-01-06 JL   Fixed pseudo-label indentation.
030521,000017:                                                                                                  ##              2016-12-13 RSB  GOTOP00H -> GOTOPOOH
030522,000018:                                                                                                  ##              2016-12-15 RSB  Proofed text comments with octopus/ProoferComments
030523,000019:                                                                                                  ##                              and corrected the errors found.
030524,000020:                                                                                                  ##              2017-01-28 RSB  Back-ported a comment-text fix from proofing
030525,000021:                                                                                                  ##                              of Luminary 69.  Also, changed the filename
030526,000022:                                                                                                  ##                              (from STABLE_ORBIT.agc) so as to agree with 
030527,000023:                                                                                                  ##                              the other AGC versions having a corresponding
030528,000024:                                                                                                  ##                              log section (making it easier to perform diffs 
030529,000025:                                                                                                  ##                              between versions), and to agree with what it 
030530,000026:                                                                                                  ##                              says in ASSEMBLY AND OPERATION INFORMATION.
030531,000027:                                                                                                  ##              2017-03-03 RSB  Snapshot of Luminary 99 Rev 1. 
030532,000028:                                                                                                  ##              2017-03-17 RSB  Comment-text fixes identified in diff'ing
030533,000029:                                                                                                  ##                              Luminary 99 vs Comanche 55.
030534,000030: 

Page 723

030536,000032:                                                                                                  #  STABLE ORBIT RENDEZVOUS PROGRAMS (P38 AND P78)
030537,000033: 
030538,000034:                                                                                                  #  MOD NO -1             LOG SECTION - STABLE ORBIT - P38-P39
030539,000035:                                                                                                  #  MOD BY RUDNICKI.S     DATE 25JAN68
030540,000036: 
030541,000037:                                                                                                  #  FUNCTIONAL DESCRIPTION
030542,000038: 
030543,000039:                                                                                                  #        P38 AND P78 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
030544,000040:                                                                                                  #        CONDITIONS REQUIRED BY THE AGC TO (1) PUT THE ACTIVE VEHICLE
030545,000041:                                                                                                  #        ON A TRANSFER TRAJECTORY THAT INTERCEPTS THE PASSIVE VEHICLE
030546,000042:                                                                                                  #        ORBIT A GIVEN DISTANCE, DELTA R, EITHER AHEAD OF OR BEHIND THE
030547,000043:                                                                                                  #        PASSIVE VEHICLE AND (2) ACTUALLY PLACE THE ACTIVE VEHICLE IN THE
030548,000044:                                                                                                  #        PASSIVE VEHICLE ORBIT WITH A DELTA R SEPARATION BETWEEN THE TWO
030549,000045:                                                                                                  #        VEHICLES
030550,000046: 
030551,000047:                                                                                                  #  CALLING SEQUENCE
030552,000048: 
030553,000049:                                                                                                  #        ASTRONAUT REQUEST THRU DSKY
030554,000050: 
030555,000051:                                                                                                  #        V37E38E         IF THIS VEHICLE IS ACTIVE VEHICLE
030556,000052:                                                                                                  #        V37E78E         IF OTHER VEHICLE IS ACTIVE VEHICLE
030557,000053: 
030558,000054:                                                                                                  #  INPUT
030559,000055: 
030560,000056:                                                                                                  #        (1)     SOI MANEUVER
030561,000057: 
030562,000058:                                                                                                  #                (A)  TIG        TIME OF SOI MANEUVER
030563,000059:                                                                                                  #                (B)  CENTANG    ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE
030564,000060:                                                                                                  #                                DURING TRANSFER FROM TIG TO TIME OF INTERCEPT
030565,000061:                                                                                                  #                (C)  DELTAR     THE DESIRED SEPARATION OF THE TWO VEHICLES
030566,000062:                                                                                                  #                                SPECIFIED AS A DISTANCE ALONG THE PASSIVE VEHICLE
030567,000063:                                                                                                  #                                ORBIT
030568,000064:                                                                                                  #                (D)  OPTION     EQUALS 1 FOR SOI
030569,000065: 
030570,000066:                                                                                                  #        (2)     SOR MANEUVER
030571,000067: 
030572,000068:                                                                                                  #                (A)  TIG        TIME OF SOR MANEUVER
030573,000069:                                                                                                  #                (B)  CENTANG    AN OPTIONAL RESPECIFICATION OF 1 (B) ABOVE
030574,000070:                                                                                                  #                (C)  OPTION     EQUALS 2 FOR SOR
030575,000071:                                                                                                  #                (D)  DELTTIME   THE TIME REQUIRED TO TRAVERSE DELTA R WHEN
030576,000072:                                                                                                  #                                TRAVELING AT A VELOCITY EQUAL TO THE HORIZONTAL
030577,000073:                                                                                                  #                                VELOCITY OF THE PASSIVE VEHICLE - SAVED FROM
030578,000074:                                                                                                  #                                SOI PHASE
030579,000075:                                                                                                  #                (E)  TINT       TIME OF INTERCEPT (SOI) - SAVED FROM SOI PHASE
030580,000076: 
030581,000077:                                                                                                  #  OUTPUT
030582,000078: 
030583,000079:                                                                                                  #        (1)  TRKMKCNT   NUMBER OF MARKS
030584,000080:                                                                                                  #        (2)  TTOGO      TIME TO GO
030585,000081:                                                                                                  #        (3)  +MGA       MIDDLE GIMBAL ANGLE

Page 724

030587,000083:                                                                                                  #        (4)  DSPTEM1    TIME OF INTERCEPT OF PASSIVE VEHICLE ORBIT
030588,000084:                                                                                                  #                        (FOR SOI ONLY)
030589,000085:                                                                                                  #        (5)  POSTTPI    PERIGEE ALTITUDE OF ACTIVE VEHICLE ORBIT AFTER
030590,000086:                                                                                                  #                        THE SOI (SOR) MANEUVER
030591,000087:                                                                                                  #        (6)  DELVTPI    MAGNITUDE OF DELTA V AT SOI (SOR) TIME
030592,000088:                                                                                                  #        (7)  DELVTPF    MAGNITUDE OF DELTA V AT INTERCEPT TIME
030593,000089:                                                                                                  #        (8)  DELVLVC    DELTA VELOCITY AT SOI (AND SOR) - LOCAL VERTICAL
030594,000090:                                                                                                  #                        COORDINATES
030595,000091: 
030596,000092:                                                                                                  #  SUBROUTINES USED
030597,000093: 
030598,000094:                                                                                                  #        AVFLAGA
030599,000095:                                                                                                  #        AVFLAGP
030600,000096:                                                                                                  #        VNDSPLY
030601,000097:                                                                                                  #        BANKCALL
030602,000098:                                                                                                  #        GOFLASHR
030603,000099:                                                                                                  #        GOTOPOOH
030604,000100:                                                                                                  #        BLANKET
030605,000101:                                                                                                  #        ENDOFJOB
030606,000102:                                                                                                  #        PREC/TT
030607,000103:                                                                                                  #        SELECTMU
030608,000104:                                                                                                  #        INTRPVP
030609,000105:                                                                                                  #        MAINRTNE
030610,000106: 
030611,000107: 04,3013                                           BANK     04                                    
030612,000108: 34,2000                                           SETLOC   STBLEORB                              
030613,000109: 34,2000                                           BANK                                           
030614,000110: 
030615,000111: 34,3271  E7,1470                                  EBANK=   SUBEXIT                               
030616,000112: 34,3271                                           COUNT*   $$/P3879                              
030617,000113: 
030618,000114: 34,3271           04616        P38                TC       BANKCALL                              
030619,000115: 34,3272           72347                           CADR     AVFLAGA                               #  THIS VEHICLE ACTIVE
030620,000116: 34,3273           03276                           TC       +3                                    
030621,000117: 34,3274           04616        P78                TC       BANKCALL                              
030622,000118: 34,3275           72354                           CADR     AVFLAGP                               #  OTHER VEHICLE ACTIVE
030623,000119: 34,3276           04616                           TC       BANKCALL                              
030624,000120: 34,3277           72361                           CADR     P20FLGON                              #  SET UPDATFLG, TRACKFLG
030625,000121: 34,3300           33641                           CAF      DECTWO                                
030626,000122: 34,3301           55466                           TS       NN                                    
030627,000123: 34,3302           33632                           CAF      V06N33SR                              #  DISPLAY TIG
030628,000124: 34,3303           03621                           TC       VNDSPLY                               
030629,000125: 34,3304           33633                           CAF      V06N55SR                              #  DISPLAY CENTANG
030630,000126: 34,3305           04616                           TCR      BANKCALL                              
030631,000127: 34,3306           20635                           CADR     GOFLASHR                              
030632,000128: 34,3307           16001                           TCF      GOTOPOOH                              #  TERMINATE
030633,000129: 34,3310           13315                           TCF      +5                                    #  PROCEED
030634,000130: 34,3311           13304                           TCF      -5                                    #  RECYCLE
030635,000131: 34,3312           36245                           CAF      THREE                                 #  IMMEDIATE RETURN - BLANK R1, R2
030636,000132: 34,3313           05464                           TCR      BLANKET                               

Page 725

030638,000134: 34,3314           15155                           TCF      ENDOFJOB                              
030639,000135: 34,3315           34756                           CAF      FIVE                                  
030640,000136: 34,3316           55144                           TS       OPTION1                               
030641,000137: 34,3317           34753                           CAF      ONE                                   
030642,000138: 34,3320           55145                           TS       OPTION2                               #  OPTION CODE IS SET TO 1
030643,000139: 34,3321           33634                           CAF      V04N06SR                              #  DISPLAY OPTION CODE - 1 = SOI, 2 = SOR
030644,000140: 34,3322           04616                           TCR      BANKCALL                              
030645,000141: 34,3323           20635                           CADR     GOFLASHR                              
030646,000142: 34,3324           16001                           TCF      GOTOPOOH                              #  TERMINATE
030647,000143: 34,3325           13332                           TCF      +5                                    #  PROCEED
030648,000144: 34,3326           13321                           TCF      -5                                    #  RECYCLE
030649,000145: 34,3327           34751                           CAF      BIT3                                  #  IMMEDIATE RETURN - BLANK R3
030650,000146: 34,3330           05464                           TCR      BLANKET                               
030651,000147: 34,3331           15155                           TCF      ENDOFJOB                              
030652,000148: 34,3332           06037                           TC       INTPRET                               
030653,000149: 34,3333           70535                           SLOAD    SR1                                   
030654,000150: 34,3334           01146                                    OPTION2                               
030655,000151: 34,3335           71230                           BHIZ     DLOAD                                 
030656,000152: 34,3336           71344                                    OPTN1                                 
030657,000153: 34,3337           03631                                    TINT                                  
030658,000154: 34,3340           02303                           STORE    TINTSOI                               #  STORE FOR SOR PHASE
030659,000155: 34,3341           77614                           CLRGO                                          
030660,000156: 34,3342           01230                                    OPTNSW                                #  OPTNSW, ON = SOI, OFF = SOR
030661,000157: 34,3343           71375                                    JUNCTN1                               
030662,000158: 34,3344           43014        OPTN1              SET      CLEAR                                 #  SOI
030663,000159: 34,3345           01070                                    OPTNSW                                
030664,000160: 34,3346           00670                                    UPDATFLG                              
030665,000161: 34,3347           77624                           CALL                                           
030666,000162: 34,3350           71554                                    PREC/TT                               
030667,000163: 34,3351           43015                           DAD      SET                                   
030668,000164: 34,3352           03442                                    TIG                                   
030669,000165: 34,3353           00470                                    UPDATFLG                              
030670,000166: 34,3354           03631                           STORE    TINT                                  #  TI = TIG + TF
030671,000167: 34,3355           77776                           EXIT                                           
030672,000168: 34,3356           33635                           CAF      V06N57SR                              #  DISPLAY DELTA R
030673,000169: 34,3357           04616                           TCR      BANKCALL                              
030674,000170: 34,3360           20635                           CADR     GOFLASHR                              
030675,000171: 34,3361           16001                           TCF      GOTOPOOH                              #  TERMINATE
030676,000172: 34,3362           13367                           TCF      +5                                    #  PROCEED
030677,000173: 34,3363           13356                           TCF      -5                                    #  RECYCLE
030678,000174: 34,3364           36242                           CAF      SIX                                   #  IMMEDIATE RETURN - BLANK R2, R3
030679,000175: 34,3365           05464                           TCR      BLANKET                               
030680,000176: 34,3366           15155                           TCF      ENDOFJOB                              
030681,000177: 34,3367           00006                 +5        EXTEND                                         
030682,000178: 34,3370           31631                           DCA      TINT                                  
030683,000179: 34,3371           53046                           DXCH     DSPTEM1                               #  FOR DISPLAY
030684,000180: 34,3372           33636                           CAF      V06N34SR                              #  DISPLAY TIME OF INTERCEPT
030685,000181: 34,3373           03621                           TC       VNDSPLY                               
030686,000182: 34,3374           06037                           TC       INTPRET                               
030687,000183: 34,3375           45014        JUNCTN1            CLEAR    CALL                                  

Page 726

030689,000185: 34,3376           04266                                    P39/79SW                              
030690,000186: 34,3377           20000                                    SELECTMU                              #  SELECT MU, CLEAR FINALFLG, GO TO VN1645
030691,000187: 34,3400           77624        RECYCLE            CALL                                           
030692,000188: 34,3401           71554                                    PREC/TT                               
030693,000189: 34,3402           71214                           BOFF     DLOAD                                 
030694,000190: 34,3403           01350                                    OPTNSW                                
030695,000191: 34,3404           71424                                    OPTN2                                 
030696,000192: 34,3405           03631                                    TINT                                  
030697,000193: 34,3406           34041                           STCALL   TDEC1                                 #  PRECISION UPDATE PASSIVE VEHICLE TO
030698,000194: 34,3407           71605                                    INTRPVP                               #        INTERCEPT TIME
030699,000195: 34,3410           53575                           VLOAD    UNIT                                  
030700,000196: 34,3411           00001                                    RATT                                  #  RP/(RP)
030701,000197: 34,3412           47315                           PDVL     VXV                                   
030702,000198: 34,3413           00007                                    VATT                                  
030703,000199: 34,3414           60246                           ABVAL    NORM                                  #  (VP X RP/(RP))
030704,000200: 34,3415           00047                                    X1                                    
030705,000201: 34,3416           56325                           PDDL     DDV                                   
030706,000202: 34,3417           02303                                    DELTAR                                
030707,000203: 34,3420           77657                           SL*                                            #  DELTA R / (VP X RP/RP)
030708,000204: 34,3421           20172                                    0          -7,1                       
030709,000205: 34,3422           36305                           STCALL   DELTTIME                              #  DELTA T = (RP) DELTA R / (VP X RP)
030710,000206: 34,3423           71430                                    JUNCTN2                               
030711,000207: 34,3424           43345        OPTN2              DLOAD    DAD                                   
030712,000208: 34,3425           02303                                    TINTSOI                               
030713,000209: 34,3426           00037                                    T                                     
030714,000210: 34,3427           03631                           STORE    TINT                                  #  TI = TI + TF
030715,000211: 34,3430           45345        JUNCTN2            DLOAD    DSU                                   
030716,000212: 34,3431           03631                                    TINT                                  
030717,000213: 34,3432           02305                                    DELTTIME                              
030718,000214: 34,3433           02307                           STORE    TARGTIME                              #  TT = TI - DELTA T
030719,000215: 
030720,000216:                                                                                                  #  .... MAINRTNE ....
030721,000217: 
030722,000218:                                                                                                  #  SUBROUTINES USED
030723,000219: 
030724,000220:                                                                                                  #        S3435.25
030725,000221:                                                                                                  #        PERIAPO1
030726,000222:                                                                                                  #        SHIFTR1
030727,000223:                                                                                                  #        VNDSPLY
030728,000224:                                                                                                  #        BANKCALL
030729,000225:                                                                                                  #        GOFLASH
030730,000226:                                                                                                  #        GOTOPOOH
030731,000227:                                                                                                  #        VN1645
030732,000228: 
030733,000229: 34,3434           34041        MAINRTNE           STCALL   TDEC1                                 #  PRECISION UPDATE PASSIVE VEHICLE TO
030734,000230: 34,3435           71605                                    INTRPVP                               #        TARGET TIME
030735,000231: 34,3436           77745                           DLOAD                                          
030736,000232: 34,3437           03442                                    TIG                                   
030737,000233: 34,3440           03610                           STORE    INTIME                                
030738,000234: 34,3441           77331                           SSP      VLOAD                                 
030739,000235: 34,3442           03471                                    SUBEXIT                               
030740,000236: 34,3443           71447                                    TEST3979                              

Page 727

030742,000238: 34,3444           00001                                    RATT                                  
030743,000239: 34,3445           77624                           CALL                                           
030744,000240: 34,3446           73327                                    S3435.25                              
030745,000241: 34,3447           43014        TEST3979           BOFF     BON                                   
030746,000242: 34,3450           04346                                    P39/79SW                              
030747,000243: 34,3451           71460                                    MAINRTN1                              
030748,000244: 34,3452           01311                                    FINALFLG                              
030749,000245: 34,3453           71456                                    P39P79                                
030750,000246: 34,3454           77614                           SET                                            
030751,000247: 34,3455           00470                                    UPDATFLG                              
030752,000248: 34,3456           77776        P39P79             EXIT                                           
030753,000249: 34,3457           03505                           TC       DSPLY81                               #  FOR P39 AND P79
030754,000250: 34,3460           51575        MAINRTN1           VLOAD    ABVAL                                 
030755,000251: 34,3461           02366                                    DELVEET3                              
030756,000252: 34,3462           27576                           STOVL    DELVTPI                               #  DELTA V
030757,000253: 34,3463           03506                                    VPASS4                                
030758,000254: 34,3464           51451                           VSU      ABVAL                                 
030759,000255: 34,3465           03566                                    VTPRIME                               
030760,000256: 34,3466           26350                           STOVL    DELVTPF                               #  DELTA V (FINAL) = V'T - VT
030761,000257: 34,3467           03536                                    RACT3                                 
030762,000258: 34,3470           45115                           PDVL     CALL                                  
030763,000259: 34,3471           02337                                    VIPRIME                               
030764,000260: 34,3472           46316                                    PERIAPO1                              #  GET PERIGEE ALTITUDE
030765,000261: 34,3473           77624                           CALL                                           
030766,000262: 34,3474           46426                                    SHIFTR1                               
030767,000263: 34,3475           03606                           STORE    POSTTPI                               
030768,000264: 34,3476           43014                           BON      SET                                   
030769,000265: 34,3477           01311                                    FINALFLG                              
030770,000266: 34,3500           71502                                    DSPLY58                               
030771,000267: 34,3501           00470                                    UPDATFLG                              
030772,000268: 34,3502           77776        DSPLY58            EXIT                                           
030773,000269: 34,3503           33637                           CAF      V06N58SR                              #  DISPLAY HP, DELTA V, DELTA V (FINAL)
030774,000270: 34,3504           03621                           TC       VNDSPLY                               
030775,000271: 34,3505           33640        DSPLY81            CAF      V06N81SR                              #  DISPLAY DELTA V (LV)
030776,000272: 34,3506           03621                           TC       VNDSPLY                               
030777,000273: 34,3507           06037                           TC       INTPRET                               
030778,000274: 34,3510           77214                           CLEAR    VLOAD                                 
030779,000275: 34,3511           01267                                    XDELVFLG                              
030780,000276: 34,3512           02366                                    DELVEET3                              
030781,000277: 34,3513           37656                           STCALL   DELVSIN                               
030782,000278: 34,3514           73606                                    VN1645                                #  DISPLAY TRKMKCNT, TTOGO, +MGA
030783,000279: 34,3515           52014                           BON      GOTO                                  
030784,000280: 34,3516           04306                                    P39/79SW                              
030785,000281: 34,3517           71541                                    P39/P79B                              
030786,000282: 34,3520           71400                                    RECYCLE                               
030787,000283: 
030788,000284:                                                                                                  #  STABLE ORBIT MIDCOURSE PROGRAM (P39 AND P79)
030789,000285: 
030790,000286:                                                                                                  #  MOD NO -1             LOG SECTION - STABLE ORBIT - P38-P39
030791,000287:                                                                                                  #  MOD BY RUDNICKI.S     DATE 25JAN68
030792,000288: 

Page 728

030794,000290:                                                                                                  #  FUNCTIONAL DESCRIPTION
030795,000291: 
030796,000292:                                                                                                  #        P39 AND P79 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
030797,000293:                                                                                                  #        CONDITIONS REQUIRED BY THE AGC TO MAKE A MIDCOURSE CORRECTION
030798,000294:                                                                                                  #        MANEUVER AFTER COMPLETING THE SOI MANEUVER BUT BEFORE MAKING
030799,000295:                                                                                                  #        THE SOR MANEUVER
030800,000296: 
030801,000297:                                                                                                  #  CALLING SEQUENCE
030802,000298: 
030803,000299:                                                                                                  #        ASTRONAUT REQUEST THRU DSKY
030804,000300: 
030805,000301:                                                                                                  #        V37E39E         IF THIS VEHICLE IS ACTIVE VEHICLE
030806,000302:                                                                                                  #        V37E79E         IF OTHER VEHICLE IS ACTIVE VEHICLE
030807,000303: 
030808,000304:                                                                                                  #  INPUT
030809,000305: 
030810,000306:                                                                                                  #        (1)  TPASS4     TIME OF INTERCEPT - SAVED FROM P38/P78
030811,000307:                                                                                                  #        (2)  TARGTIME   TIME THAT PASSIVE VEHICLE IS AT INTERCEPT POINT -
030812,000308:                                                                                                  #                        SAVED FROM P38/P78
030813,000309: 
030814,000310:                                                                                                  #  OUTPUT
030815,000311: 
030816,000312:                                                                                                  #        (1)  TRKMKCNT   NUMBER OF MARKS
030817,000313:                                                                                                  #        (2)  TTOGO      TIME TO GO
030818,000314:                                                                                                  #        (3)  +MGA       MIDDLE GIMBAL ANGLE
030819,000315:                                                                                                  #        (4)  DELVLVC    DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
030820,000316: 
030821,000317:                                                                                                  #  SUBROUTINES USED
030822,000318: 
030823,000319:                                                                                                  #        AVFLAGA
030824,000320:                                                                                                  #        AVFLAGP
030825,000321:                                                                                                  #        LOADTIME
030826,000322:                                                                                                  #        SELECTMU
030827,000323:                                                                                                  #        PRECSET
030828,000324:                                                                                                  #        S34/35.1
030829,000325:                                                                                                  #        MAINRTNE
030830,000326: 
030831,000327: 34,3521           04616        P39                TC       BANKCALL                              
030832,000328: 34,3522           72347                           CADR     AVFLAGA                               #  THIS VEHICLE ACTIVE
030833,000329: 34,3523           00006                           EXTEND                                         
030834,000330: 34,3524           31401                           DCA      ATIGINC                               
030835,000331: 34,3525           03532                           TC       P39/P79A                              
030836,000332: 34,3526           04616        P79                TC       BANKCALL                              
030837,000333: 34,3527           72354                           CADR     AVFLAGP                               #  OTHER VEHICLE ACTIVE
030838,000334: 34,3530           00006                           EXTEND                                         
030839,000335: 34,3531           31403                           DCA      PTIGINC                               
030840,000336: 34,3532           53576        P39/P79A           DXCH     KT                                    #  TIME TO PREPARE FOR BURN
030841,000337: 34,3533           04616                           TC       BANKCALL                              
030842,000338: 34,3534           72361                           CADR     P20FLGON                              #  SET UPDATFLG, TRACKFLG
030843,000339: 34,3535           06037                           TC       INTPRET                               

Page 729

030845,000341: 34,3536           45014                           SET      CALL                                  
030846,000342: 34,3537           04066                                    P39/79SW                              
030847,000343: 34,3540           20000                                    SELECTMU                              #  SELECT MU, CLEAR FINALFLG, GO TO VN1645
030848,000344: 34,3541           43234        P39/P79B           RTB      DAD                                   
030849,000345: 34,3542           21573                                    LOADTIME                              
030850,000346: 34,3543           03576                                    KT                                    
030851,000347: 34,3544           03442                           STORE    TIG                                   #  TIG = T (PRESENT) + PREPARATION TIME
030852,000348: 34,3545           34041                           STCALL   TDEC1                                 #  PRECISION UPDATE ACTIVE AND PASSIVE
030853,000349: 34,3546           46360                                    PRECSET                               #        VEHICLES TO TIG
030854,000350: 34,3547           77624                           CALL                                           
030855,000351: 34,3550           73274                                    S34/35.1                              #  GET UNIT NORMAL
030856,000352: 34,3551           52145                           DLOAD    GOTO                                  
030857,000353: 34,3552           02307                                    TARGTIME                              
030858,000354: 34,3553           71434                                    MAINRTNE                              #  CALCULATE DELTA V AND DELTA V (LV)
030859,000355: 
030860,000356:                                                                                                  #  .... PREC/TT ....
030861,000357: 
030862,000358:                                                                                                  #  SUBROUTINES USED
030863,000359: 
030864,000360:                                                                                                  #        PRECSET
030865,000361:                                                                                                  #        TIMETHET
030866,000362:                                                                                                  #        S34/35.1
030867,000363: 
030868,000364: 34,3554           71220        PREC/TT            STQ      DLOAD                                 
030869,000365: 34,3555           03465                                    RTRN                                  
030870,000366: 34,3556           03442                                    TIG                                   
030871,000367: 34,3557           34041                           STCALL   TDEC1                                 #  PRECISION UPDATE ACTIVE AND PASSIVE
030872,000368: 34,3560           46360                                    PRECSET                               #        VEHICLES TO TIG
030873,000369: 34,3561           53775                           VLOAD    VSR*                                  
030874,000370: 34,3562           03552                                    RPASS3                                
030875,000371: 34,3563           57176                                    0,2                                   
030876,000372: 34,3564           16655                           STODL    RVEC                                  
030877,000373: 34,3565           03621                                    CENTANG                               
030878,000374: 34,3566           71406                           PUSH     COS                                   
030879,000375: 34,3567           16732                           STODL    CSTH                                  
030880,000376: 34,3570           43156                           SIN      SET                                   
030881,000377: 34,3571           03466                                    RVSW                                  
030882,000378: 34,3572           26730                           STOVL    SNTH                                  
030883,000379: 34,3573           03560                                    VPASS3                                
030884,000380: 34,3574           77657                           VSR*                                           
030885,000381: 34,3575           57176                                    0,2                                   
030886,000382: 34,3576           36744                           STCALL   VVEC                                  #  GET TRANSFER TIME BASED ON CENTANG OF
030887,000383: 34,3577           24732                                    TIMETHET                              #        PASSIVE VEHICLE
030888,000384: 34,3600           77624                           CALL                                           
030889,000385: 34,3601           73274                                    S34/35.1                              #  GET UNIT NORMAL
030890,000386: 34,3602           52145                           DLOAD    GOTO                                  
030891,000387: 34,3603           00037                                    T                                     
030892,000388: 34,3604           03465                                    RTRN                                  
030893,000389: 
030894,000390:                                                                                                  #  .... INTRPVP ....
030895,000391: 
030896,000392:                                                                                                  #  SUBROUTINES USED
030897,000393: 
030898,000394:                                                                                                  #        CSMPREC

Page 730

030900,000396:                                                                                                  #        LEMPREC
030901,000397: 
030902,000398: 34,3605           43020        INTRPVP            STQ      BOFF                                  #  PRECISION UPDATE PASSIVE VEHICLE TO
030903,000399: 34,3606           03465                                    RTRN                                  #        TDEC1
030904,000400: 34,3607           01352                                    AVFLAG                                
030905,000401: 34,3610           71615                                    OTHERV                                
030906,000402: 34,3611           77624                           CALL                                           
030907,000403: 34,3612           27043                                    CSMPREC                               
030908,000404: 34,3613           77650                           GOTO                                           
030909,000405: 34,3614           03465                                    RTRN                                  
030910,000406: 34,3615           77624        OTHERV             CALL                                           
030911,000407: 34,3616           27057                                    LEMPREC                               
030912,000408: 34,3617           77650                           GOTO                                           
030913,000409: 34,3620           03465                                    RTRN                                  
030914,000410: 
030915,000411:                                                                                                  #  .... VNDSPLY ....
030916,000412: 
030917,000413:                                                                                                  #  SUBROUTINES USED
030918,000414: 
030919,000415:                                                                                                  #        BANKCALL
030920,000416:                                                                                                  #        GOFLASH
030921,000417:                                                                                                  #        GOTOPOOH
030922,000418: 
030923,000419: 34,3621           00006        VNDSPLY            EXTEND                                         #  FLASH DISPLAY
030924,000420: 34,3622           23465                           QXCH     RTRN                                  
030925,000421: 34,3623           55615                           TS       VERBNOUN                              
030926,000422: 34,3624           31615                           CA       VERBNOUN                              
030927,000423: 34,3625           04616                           TCR      BANKCALL                              
030928,000424: 34,3626           20476                           CADR     GOFLASH                               
030929,000425: 34,3627           16001                           TCF      GOTOPOOH                              #  TERMINATE
030930,000426: 34,3630           01465                           TC       RTRN                                  #  PROCEED
030931,000427: 34,3631           13624                           TCF      -5                                    #  RECYCLE
030932,000428: 34,3632           01441        V06N33SR           VN       0633                                  
030933,000429: 34,3633           01467        V06N55SR           VN       0655                                  
030934,000430: 34,3634           01006        V04N06SR           VN       0406                                  
030935,000431: 34,3635           01471        V06N57SR           VN       0657                                  
030936,000432: 34,3636           01442        V06N34SR           VN       0634                                  
030937,000433: 34,3637           01472        V06N58SR           VN       0658                                  
030938,000434: 34,3640           01521        V06N81SR           VN       0681                                  
030939,000435: 34,3641           00002        DECTWO             OCT      2                                     
030940,000436: 
030941,000437: 
030942,000438: 
030943,000439: 
030944,000440: 

End of include-file STABLE_ORBIT_-_P38-P39.agc.  Parent file is MAIN.agc