Source Code

These source-code files are part of a reconstructed copy of Luminary 69/2, the flown, final release of the Apollo 10 Lunar Module (LM) Apollo Guidance Computer (AGC) software.

The reconstruction is based on the source code of Luminary 69 — i.e., the initial, unflown version, "revision 0" — of which a contemporary listing was available. The code was then updated by incorporating the differences between Luminary 69 and Luminary 69/2, known from other contemporary documentation. The only such difference is the implementation in Luminary 69/2 of the "R-2 Lunar Potential Model", the source code for which was taken from program Luminary 99/1 (Apollo 11 LM), of which a contemporary listing was also available. Finally, the now-reconstructed Luminary 69/2 was then validated by assembling it to executable form and verifying that its memory banks had the correct checksums, known from still other contemporary documentation.

Note that page numbers in the reconstructed code match those in the original Luminary 69 program listing, or in the ORBITAL INTEGRATION log section, in Luminary 99/1. Page numbers would certainly differ somewhat in a contemporary Luminary 69/2 listing. Moreover, annotations that were not present in the contemporary source code have been added to the reconstructed code to justify each change in Luminary 69/2 relative to Luminary 69. Here's a guide to the Apollo documentation referenced in those annotations:
Comments from the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository.

031669,000002:                                                                                                  ## Copyright:   Public domain.
031670,000003:                                                                                                  ## Filename:    STABLE_ORBIT_-_P38-P39.agc
031671,000004:                                                                                                  ## Purpose:     A section of LUM69 revision 2.
031672,000005:                                                                                                  ##              It is part of the reconstructed source code for the flown
031673,000006:                                                                                                  ##              version of the flight software for the Lunar Module's (LM)
031674,000007:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 10. The code has
031675,000008:                                                                                                  ##              been recreated from a copy of Luminary revsion 069, using
031676,000009:                                                                                                  ##              changes present in Luminary 099 which were described in
031677,000010:                                                                                                  ##              Luminary memos 75 and 78. The code has been adapted such
031678,000011:                                                                                                  ##              that the resulting bugger words exactly match those specified
031679,000012:                                                                                                  ##              for LUM69 revision 2 in NASA drawing 2021152B, which gives
031680,000013:                                                                                                  ##              relatively high confidence that the reconstruction is correct.
031681,000014:                                                                                                  ## Reference:   pp. 731-738
031682,000015:                                                                                                  ## Assembler:   yaYUL
031683,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
031684,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
031685,000018:                                                                                                  ## Mod history: 2019-07-27 MAS  Created from Luminary 69.
031686,000019: 

Page 731

031688,000021:                                                                                                  #  STABLE ORBIT RENDEZVOUS PROGRAMS (P38 AND P78)
031689,000022: 
031690,000023:                                                                                                  #  MOD NO -1             LOG SECTION - STABLE ORBIT - P38-P39
031691,000024:                                                                                                  #  MOD BY RUDNICKI.S     DATE 25JAN68
031692,000025: 
031693,000026:                                                                                                  #  FUNCTIONAL DESCRIPTION
031694,000027: 
031695,000028:                                                                                                  #        P38 AND P78 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
031696,000029:                                                                                                  #        CONDITIONS REQUIRED BY THE AGC TO (1) PUT THE ACTIVE VEHICLE
031697,000030:                                                                                                  #        ON A TRANSFER TRAJECTORY THAT INTERCEPTS THE PASSIVE VEHICLE
031698,000031:                                                                                                  #        ORBIT A GIVEN DISTANCE, DELTA R, EITHER AHEAD OF OR BEHIND THE
031699,000032:                                                                                                  #        PASSIVE VEHICLE AND (2) ACTUALLY PLACE THE ACTIVE VEHICLE IN THE
031700,000033:                                                                                                  #        PASSIVE VEHICLE ORBIT WITH A DELTA R SEPARATION BETWEEN THE TWO
031701,000034:                                                                                                  #        VEHICLES
031702,000035: 
031703,000036:                                                                                                  #  CALLING SEQUENCE
031704,000037: 
031705,000038:                                                                                                  #        ASTRONAUT REQUEST THRU DSKY
031706,000039: 
031707,000040:                                                                                                  #        V37E38E         IF THIS VEHICLE IS ACTIVE VEHICLE
031708,000041:                                                                                                  #        V37E78E         IF OTHER VEHICLE IS ACTIVE VEHICLE
031709,000042: 
031710,000043:                                                                                                  #  INPUT
031711,000044: 
031712,000045:                                                                                                  #        (1)     SOI MANEUVER
031713,000046: 
031714,000047:                                                                                                  #                (A)  TIG        TIME OF SOI MANEUVER
031715,000048:                                                                                                  #                (B)  CENTANG    ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE
031716,000049:                                                                                                  #                                DURING TRANSFER FROM TIG TO TIME OF INTERCEPT
031717,000050:                                                                                                  #                (C)  DELTAR     THE DESIRED SEPARATION OF THE TWO VEHICLES
031718,000051:                                                                                                  #                                SPECIFIED AS A DISTANCE ALONG THE PASSIVE VEHICLE
031719,000052:                                                                                                  #                                ORBIT
031720,000053:                                                                                                  #                (D)  OPTION     EQUALS 1 FOR SOI
031721,000054: 
031722,000055:                                                                                                  #        (2)     SOR MANEUVER
031723,000056: 
031724,000057:                                                                                                  #                (A)  TIG        TIME OF SOR MANEUVER
031725,000058:                                                                                                  #                (B)  CENTANG    AN OPTIONAL RESPECIFICATION OF 1 (B) ABOVE
031726,000059:                                                                                                  #                (C)  OPTION     EQUALS 2 FOR SOR
031727,000060:                                                                                                  #                (D)  DELTTIME   THE TIME REQUIRED TO TRAVERSE DELTA R WHEN
031728,000061:                                                                                                  #                                TRAVELING AT A VELOCITY EQUAL TO THE HORIZONTAL
031729,000062:                                                                                                  #                                VELOCITY OF THE PASSIVE VEHICLE - SAVED FROM
031730,000063:                                                                                                  #                                SOI PHASE
031731,000064:                                                                                                  #                (E)  TINT       TIME OF INTERCEPT (SOI) - SAVED FROM SOI PHASE
031732,000065: 
031733,000066:                                                                                                  #  OUTPUT
031734,000067: 
031735,000068:                                                                                                  #        (1)  TRKMKCNT   NUMBER OF MARKS
031736,000069:                                                                                                  #        (2)  TTOGO      TIME TO GO
031737,000070:                                                                                                  #        (3)  +MGA       MIDDLE GIMBAL ANGLE

Page 732

031739,000072:                                                                                                  #        (4)  DSPTEM1    TIME OF INTERCEPT OF PASSIVE VEHICLE ORBIT
031740,000073:                                                                                                  #                        (FOR SOI ONLY)
031741,000074:                                                                                                  #        (5)  POSTTPI    PERIGEE ALTITUDE OF ACTIVE VEHICLE ORBIT AFTER
031742,000075:                                                                                                  #                        THE SOI (SOR) MANEUVER
031743,000076:                                                                                                  #        (6)  DELVTPI    MAGNITUDE OF DELTA V AT SOI (SOR) TIME
031744,000077:                                                                                                  #        (7)  DELVTPF    MAGNITUDE OF DELTA V AT INTERCEPT TIME
031745,000078:                                                                                                  #        (8)  DELVLVC    DELTA VELOCITY AT SOI (AND SOR) - LOCAL VERTICAL
031746,000079:                                                                                                  #                        COORDINATES
031747,000080: 
031748,000081:                                                                                                  #  SUBROUTINES USED
031749,000082: 
031750,000083:                                                                                                  #        AVFLAGA
031751,000084:                                                                                                  #        AVFLAGP
031752,000085:                                                                                                  #        VNDSPLY
031753,000086:                                                                                                  #        BANKCALL
031754,000087:                                                                                                  #        GOFLASHR
031755,000088:                                                                                                  #        GOTOPOOH
031756,000089:                                                                                                  #        BLANKET
031757,000090:                                                                                                  #        ENDOFJOB
031758,000091:                                                                                                  #        PREC/TT
031759,000092:                                                                                                  #        SELECTMU
031760,000093:                                                                                                  #        INTRPVP
031761,000094:                                                                                                  #        MAINRTNE
031762,000095: 
031763,000096: 04,2750                                           BANK     04                                    
031764,000097: 34,2000                                           SETLOC   STBLEORB                              
031765,000098: 34,2000                                           BANK                                           
031766,000099: 
031767,000100: 34,3271  E7,1466                                  EBANK=   SUBEXIT                               
031768,000101: 34,3271                                           COUNT*   $$/P3879                              
031769,000102: 
031770,000103: 34,3271           04616        P38                TC       BANKCALL                              
031771,000104: 34,3272           72313                           CADR     AVFLAGA                               #  THIS VEHICLE ACTIVE
031772,000105: 34,3273           03276                           TC       +3                                    
031773,000106: 34,3274           04616        P78                TC       BANKCALL                              
031774,000107: 34,3275           72320                           CADR     AVFLAGP                               #  OTHER VEHICLE ACTIVE
031775,000108: 34,3276           04616                           TC       BANKCALL                              
031776,000109: 34,3277           72325                           CADR     P20FLGON                              #  SET UPDATFLG, TRACKFLG
031777,000110: 34,3300           33630                           CAF      V06N33SR                              #  DISPLAY TIG
031778,000111: 34,3301           03617                           TC       VNDSPLY                               
031779,000112: 34,3302           33631                           CAF      V06N55SR                              #  DISPLAY CENTANG
031780,000113: 34,3303           04616                           TCR      BANKCALL                              
031781,000114: 34,3304           20510                           CADR     GOFLASHR                              
031782,000115: 34,3305           16001                           TCF      GOTOPOOH                              #  TERMINATE
031783,000116: 34,3306           13313                           TCF      +5                                    #  PROCEED
031784,000117: 34,3307           13302                           TCF      -5                                    #  RECYCLE
031785,000118: 34,3310           36244                           CAF      THREE                                 #  IMMEDIATE RETURN - BLANK R1, R2
031786,000119: 34,3311           05464                           TCR      BLANKET                               
031787,000120: 34,3312           15155                           TCF      ENDOFJOB                              
031788,000121: 34,3313           34756                           CAF      FIVE                                  

Page 733

031790,000123: 34,3314           55144                           TS       OPTION1                               
031791,000124: 34,3315           34753                           CAF      ONE                                   
031792,000125: 34,3316           55145                           TS       OPTION2                               #  OPTION CODE IS SET TO 1
031793,000126: 34,3317           33632                           CAF      V04N06SR                              #  DISPLAY OPTION CODE - 1 = SOI, 2 = SOR
031794,000127: 34,3320           04616                           TCR      BANKCALL                              
031795,000128: 34,3321           20510                           CADR     GOFLASHR                              
031796,000129: 34,3322           16001                           TCF      GOTOPOOH                              #  TERMINATE
031797,000130: 34,3323           13330                           TCF      +5                                    #  PROCEED
031798,000131: 34,3324           13317                           TCF      -5                                    #  RECYCLE
031799,000132: 34,3325           34751                           CAF      BIT3                                  #  IMMEDIATE RETURN - BLANK R3
031800,000133: 34,3326           05464                           TCR      BLANKET                               
031801,000134: 34,3327           15155                           TCF      ENDOFJOB                              
031802,000135: 34,3330           06036                           TC       INTPRET                               
031803,000136: 34,3331           70535                           SLOAD    SR1                                   
031804,000137: 34,3332           01146                                    OPTION2                               
031805,000138: 34,3333           71230                           BHIZ     DLOAD                                 
031806,000139: 34,3334           71342                                    OPTN1                                 
031807,000140: 34,3335           03627                                    TINT                                  
031808,000141: 34,3336           02307                           STORE    TINTSOI                               #  STORE FOR SOR PHASE
031809,000142: 34,3337           77614                           CLRGO                                          
031810,000143: 34,3340           01230                                    OPTNSW                                #  OPTNSW; ON = SOI, OFF = SOR
031811,000144: 34,3341           71373                                    JUNCTN1                               
031812,000145: 34,3342           43014        OPTN1              SET      CLEAR                                 #  SOI
031813,000146: 34,3343           01070                                    OPTNSW                                
031814,000147: 34,3344           00670                                    UPDATFLG                              
031815,000148: 34,3345           77624                           CALL                                           
031816,000149: 34,3346           71552                                    PREC/TT                               
031817,000150: 34,3347           43015                           DAD      SET                                   
031818,000151: 34,3350           03440                                    TIG                                   
031819,000152: 34,3351           00470                                    UPDATFLG                              
031820,000153: 34,3352           03627                           STORE    TINT                                  #  TI = TIG + TF
031821,000154: 34,3353           77776                           EXIT                                           
031822,000155: 34,3354           33633                           CAF      V06N57SR                              #  DISPLAY DELTA R
031823,000156: 34,3355           04616                           TCR      BANKCALL                              
031824,000157: 34,3356           20510                           CADR     GOFLASHR                              
031825,000158: 34,3357           16001                           TCF      GOTOPOOH                              #  TERMINATE
031826,000159: 34,3360           13365                           TCF      +5                                    #  PROCEED
031827,000160: 34,3361           13354                           TCF      -5                                    #  RECYCLE
031828,000161: 34,3362           36241                           CAF      SIX                                   #  IMMEDIATE RETURN - BLANK R2, R3
031829,000162: 34,3363           05464                           TCR      BLANKET                               
031830,000163: 34,3364           15155                           TCF      ENDOFJOB                              
031831,000164: 34,3365           00006                 +5        EXTEND                                         
031832,000165: 34,3366           31627                           DCA      TINT                                  
031833,000166: 34,3367           53046                           DXCH     DSPTEM1                               #  FOR DISPLAY
031834,000167: 34,3370           33634                           CAF      V06N34SR                              #  DISPLAY TIME OF INTERCEPT
031835,000168: 34,3371           03617                           TC       VNDSPLY                               
031836,000169: 34,3372           06036                           TC       INTPRET                               
031837,000170: 34,3373           45014        JUNCTN1            CLEAR    CALL                                  
031838,000171: 34,3374           04266                                    P39/79SW                              
031839,000172: 34,3375           20041                                    SELECTMU                              #  SELECT MU, CLEAR FINALFLG, GO TO VN1645

Page 734

031841,000174: 34,3376           77624        RECYCLE            CALL                                           
031842,000175: 34,3377           71552                                    PREC/TT                               
031843,000176: 34,3400           71214                           BOFF     DLOAD                                 
031844,000177: 34,3401           01350                                    OPTNSW                                
031845,000178: 34,3402           71422                                    OPTN2                                 
031846,000179: 34,3403           03627                                    TINT                                  
031847,000180: 34,3404           34041                           STCALL   TDEC1                                 #  PRECISION UPDATE PASSIVE VEHICLE TO
031848,000181: 34,3405           71603                                    INTRPVP                               #     INTERCEPT TIME
031849,000182: 34,3406           53575                           VLOAD    UNIT                                  
031850,000183: 34,3407           00001                                    RATT                                  #  RP/(RP)
031851,000184: 34,3410           47315                           PDVL     VXV                                   
031852,000185: 34,3411           00007                                    VATT                                  
031853,000186: 34,3412           60246                           ABVAL    NORM                                  #  (VP X RP/(RP))
031854,000187: 34,3413           00047                                    X1                                    
031855,000188: 34,3414           56325                           PDDL     DDV                                   
031856,000189: 34,3415           02307                                    DELTAR                                
031857,000190: 34,3416           77657                           SL*                                            #  DELTA R / (VP X RP/RP)
031858,000191: 34,3417           20172                                    0          -7,1                       
031859,000192: 34,3420           36311                           STCALL   DELTTIME                              #  DELTA T = (RP) DELTA R / (VP X RP)
031860,000193: 34,3421           71426                                    JUNCTN2                               
031861,000194: 34,3422           43345        OPTN2              DLOAD    DAD                                   
031862,000195: 34,3423           02307                                    TINTSOI                               
031863,000196: 34,3424           00037                                    T                                     
031864,000197: 34,3425           03627                           STORE    TINT                                  #  TI = TI + TF
031865,000198: 34,3426           45345        JUNCTN2            DLOAD    DSU                                   
031866,000199: 34,3427           03627                                    TINT                                  
031867,000200: 34,3430           02311                                    DELTTIME                              
031868,000201: 34,3431           02313                           STORE    TARGTIME                              #  TT = TI - DELTA T
031869,000202: 
031870,000203:                                                                                                  #  .... MAINRTNE ....
031871,000204: 
031872,000205:                                                                                                  #  SUBROUTINES USED
031873,000206: 
031874,000207:                                                                                                  #        S3435.25
031875,000208:                                                                                                  #        PERIAPO1
031876,000209:                                                                                                  #        SHIFTR1
031877,000210:                                                                                                  #        VNDSPLY
031878,000211:                                                                                                  #        BANKCALL
031879,000212:                                                                                                  #        GOFLASH
031880,000213:                                                                                                  #        GOTOPOOH
031881,000214:                                                                                                  #        VN1645
031882,000215: 
031883,000216: 34,3432           34041        MAINRTNE           STCALL   TDEC1                                 #  PRECISION UPDATE PASSIVE VEHICLE TO
031884,000217: 34,3433           71603                                    INTRPVP                               #     TARGET TIME
031885,000218: 34,3434           77745                           DLOAD                                          
031886,000219: 34,3435           03440                                    TIG                                   
031887,000220: 34,3436           03606                           STORE    INTIME                                
031888,000221: 34,3437           77331                           SSP      VLOAD                                 
031889,000222: 34,3440           03467                                    SUBEXIT                               
031890,000223: 34,3441           71445                                    TEST3979                              
031891,000224: 34,3442           00001                                    RATT                                  
031892,000225: 34,3443           77624                           CALL                                           

Page 735

031894,000227: 34,3444           73263                                    S3435.25                              
031895,000228: 34,3445           43014        TEST3979           BOFF     BON                                   
031896,000229: 34,3446           04346                                    P39/79SW                              
031897,000230: 34,3447           71456                                    MAINRTN1                              
031898,000231: 34,3450           01311                                    FINALFLG                              
031899,000232: 34,3451           71454                                    P39P79                                
031900,000233: 34,3452           77614                           SET                                            
031901,000234: 34,3453           00470                                    UPDATFLG                              
031902,000235: 34,3454           77776        P39P79             EXIT                                           
031903,000236: 34,3455           03503                           TC       DSPLY81                               #  FOR P39 AND P79
031904,000237: 34,3456           51575        MAINRTN1           VLOAD    ABVAL                                 
031905,000238: 34,3457           03366                                    DELVEET3                              
031906,000239: 34,3460           27574                           STOVL    DELVTPI                               #  DELTA V
031907,000240: 34,3461           03504                                    VPASS4                                
031908,000241: 34,3462           51451                           VSU      ABVAL                                 
031909,000242: 34,3463           03564                                    VTPRIME                               
031910,000243: 34,3464           26354                           STOVL    DELVTPF                               #  DELTA V (FINAL) = V'T - VT
031911,000244: 34,3465           03534                                    RACT3                                 
031912,000245: 34,3466           45115                           PDVL     CALL                                  
031913,000246: 34,3467           02343                                    VIPRIME                               
031914,000247: 34,3470           46277                                    PERIAPO1                              #  GET PERIGEE ALTITUDE
031915,000248: 34,3471           77624                           CALL                                           
031916,000249: 34,3472           46407                                    SHIFTR1                               
031917,000250: 34,3473           03604                           STORE    POSTTPI                               
031918,000251: 34,3474           43014                           BON      SET                                   
031919,000252: 34,3475           01311                                    FINALFLG                              
031920,000253: 34,3476           71500                                    DSPLY58                               
031921,000254: 34,3477           00470                                    UPDATFLG                              
031922,000255: 34,3500           77776        DSPLY58            EXIT                                           
031923,000256: 34,3501           33635                           CAF      V06N58SR                              #  DISPLAY HP, DELTA V, DELTA V (FINAL)
031924,000257: 34,3502           03617                           TC       VNDSPLY                               
031925,000258: 34,3503           33636        DSPLY81            CAF      V06N81SR                              #  DISPLAY DELTA V (LV)
031926,000259: 34,3504           03617                           TC       VNDSPLY                               
031927,000260: 34,3505           06036                           TC       INTPRET                               
031928,000261: 34,3506           77214                           CLEAR    VLOAD                                 
031929,000262: 34,3507           01267                                    XDELVFLG                              
031930,000263: 34,3510           03366                                    DELVEET3                              
031931,000264: 34,3511           37654                           STCALL   DELVSIN                               
031932,000265: 34,3512           73542                                    VN1645                                #  DISPLAY TRKMKCNT, TTOGO, +MGA
031933,000266: 34,3513           52014                           BON      GOTO                                  
031934,000267: 34,3514           04306                                    P39/79SW                              
031935,000268: 34,3515           71537                                    P39/P79B                              
031936,000269: 34,3516           71376                                    RECYCLE                               
031937,000270: 
031938,000271:                                                                                                  #  STABLE ORBIT MIDCOURSE PROGRAM (P39 AND P79)
031939,000272: 
031940,000273:                                                                                                  #  MOD NO -1             LOG SECTION - STABLE ORBIT - P38-P39
031941,000274:                                                                                                  #  MOD BY RUDNICKI.S     DATE 25JAN68
031942,000275: 
031943,000276:                                                                                                  #  FUNCTIONAL DESCRIPTION

Page 736

031945,000278: 
031946,000279:                                                                                                  #        P39 AND P79 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
031947,000280:                                                                                                  #        CONDITIONS REQUIRED BY THE AGC TO MAKE A MIDCOURSE CORRECTION
031948,000281:                                                                                                  #        MANEUVER AFTER COMPLETING THE SOI MANEUVER BUT BEFORE MAKING
031949,000282:                                                                                                  #        THE SOR MANEUVER
031950,000283: 
031951,000284:                                                                                                  #  CALLING SEQUENCE
031952,000285: 
031953,000286:                                                                                                  #        ASTRONAUT REQUEST THRU DSKY
031954,000287: 
031955,000288:                                                                                                  #        V37E39E         IF THIS VEHICLE IS ACTIVE VEHICLE
031956,000289:                                                                                                  #        V37E79E         IF OTHER VEHICLE IS ACTIVE VEHICLE
031957,000290: 
031958,000291:                                                                                                  #  INPUT
031959,000292: 
031960,000293:                                                                                                  #        (1)  TPASS4     TIME OF INTERCEPT - SAVED FROM P38/P78
031961,000294:                                                                                                  #        (2)  TARGTIME   TIME THAT PASSIVE VEHICLE IS AT INTERCEPT POINT -
031962,000295:                                                                                                  #                        SAVED FROM P38/P78
031963,000296: 
031964,000297:                                                                                                  #  OUTPUT
031965,000298: 
031966,000299:                                                                                                  #        (1)  TRKMKCNT   NUMBER OF MARKS
031967,000300:                                                                                                  #        (2)  TTOGO      TIME TO GO
031968,000301:                                                                                                  #        (3)  +MGA       MIDDLE GIMBAL ANGLE
031969,000302:                                                                                                  #        (4)  DELVLVC    DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
031970,000303: 
031971,000304:                                                                                                  #  SUBROUTINES USED
031972,000305: 
031973,000306:                                                                                                  #        AVFLAGA
031974,000307:                                                                                                  #        AVFLAGP
031975,000308:                                                                                                  #        LOADTIME
031976,000309:                                                                                                  #        SELECTMU
031977,000310:                                                                                                  #        PRECSET
031978,000311:                                                                                                  #        S34/35.1
031979,000312:                                                                                                  #        MAINRTNE
031980,000313: 
031981,000314: 34,3517           04616        P39                TC       BANKCALL                              
031982,000315: 34,3520           72313                           CADR     AVFLAGA                               #  THIS VEHICLE ACTIVE
031983,000316: 34,3521           00006                           EXTEND                                         
031984,000317: 34,3522           31401                           DCA      ATIGINC                               
031985,000318: 34,3523           03530                           TC       P39/P79A                              
031986,000319: 34,3524           04616        P79                TC       BANKCALL                              
031987,000320: 34,3525           72320                           CADR     AVFLAGP                               #  OTHER VEHICLE ACTIVE
031988,000321: 34,3526           00006                           EXTEND                                         
031989,000322: 34,3527           31403                           DCA      PTIGINC                               
031990,000323: 34,3530           53574        P39/P79A           DXCH     KT                                    #  TIME TO PREPARE FOR BURN
031991,000324: 34,3531           04616                           TC       BANKCALL                              
031992,000325: 34,3532           72325                           CADR     P20FLGON                              #  SET UPDATFLG, TRACKFLG
031993,000326: 34,3533           06036                           TC       INTPRET                               
031994,000327: 34,3534           45014                           SET      CALL                                  
031995,000328: 34,3535           04066                                    P39/79SW                              

Page 737

031997,000330: 34,3536           20041                                    SELECTMU                              #  SELECT MU, CLEAR FINALFLG, GO TO VN1645
031998,000331: 34,3537           43234        P39/P79B           RTB      DAD                                   
031999,000332: 34,3540           21462                                    LOADTIME                              
032000,000333: 34,3541           03574                                    KT                                    
032001,000334: 34,3542           03440                           STORE    TIG                                   #  TIG = T (PRESENT) + PREPARATION TIME
032002,000335: 34,3543           34041                           STCALL   TDEC1                                 #  PRECISION UPDATE ACTIVE AND PASSIVE
032003,000336: 34,3544           46341                                    PRECSET                               #     VEHICLES TO TIG
032004,000337: 34,3545           77624                           CALL                                           
032005,000338: 34,3546           73236                                    S34/35.1                              #  GET UNIT NORMAL
032006,000339: 34,3547           52145                           DLOAD    GOTO                                  
032007,000340: 34,3550           02313                                    TARGTIME                              
032008,000341: 34,3551           71432                                    MAINRTNE                              #  CALCULATE DELTA V AND DELTA V (LV)
032009,000342: 
032010,000343:                                                                                                  #  .... PREC/TT ....
032011,000344:                                                                                                  #  SUBROUTINES USED
032012,000345: 
032013,000346:                                                                                                  #        PRECSET
032014,000347:                                                                                                  #        TIMETHET
032015,000348:                                                                                                  #        S34/35.1
032016,000349: 
032017,000350: 34,3552           71220        PREC/TT            STQ      DLOAD                                 
032018,000351: 34,3553           03463                                    RTRN                                  
032019,000352: 34,3554           03440                                    TIG                                   
032020,000353: 34,3555           34041                           STCALL   TDEC1                                 #  PRECISION UPDATE ACTIVE AND PASSIVE
032021,000354: 34,3556           46341                                    PRECSET                               #     VEHICLES TO TIG
032022,000355: 34,3557           53775                           VLOAD    VSR*                                  
032023,000356: 34,3560           03550                                    RPASS3                                
032024,000357: 34,3561           57176                                    0,2                                   
032025,000358: 34,3562           16655                           STODL    RVEC                                  
032026,000359: 34,3563           03617                                    CENTANG                               
032027,000360: 34,3564           71406                           PUSH     COS                                   
032028,000361: 34,3565           16732                           STODL    CSTH                                  
032029,000362: 34,3566           43156                           SIN      SET                                   
032030,000363: 34,3567           03466                                    RVSW                                  
032031,000364: 34,3570           26730                           STOVL    SNTH                                  
032032,000365: 34,3571           03556                                    VPASS3                                
032033,000366: 34,3572           77657                           VSR*                                           
032034,000367: 34,3573           57176                                    0,2                                   
032035,000368: 34,3574           36744                           STCALL   VVEC                                  #  GET TRANSFER TIME BASED ON CENTANG OF
032036,000369: 34,3575           24745                                    TIMETHET                              #     PASSIVE VEHICLE
032037,000370: 34,3576           77624                           CALL                                           
032038,000371: 34,3577           73236                                    S34/35.1                              #  GET UNIT NORMAL
032039,000372: 34,3600           52145                           DLOAD    GOTO                                  
032040,000373: 34,3601           00037                                    T                                     
032041,000374: 34,3602           03463                                    RTRN                                  
032042,000375: 
032043,000376:                                                                                                  #  .... INTRPVP ....
032044,000377:                                                                                                  #  SUBROUTINES USED
032045,000378: 
032046,000379:                                                                                                  #        CSMPREC
032047,000380:                                                                                                  #        LEMPREC

Page 738

032049,000382: 34,3603           43020        INTRPVP            STQ      BOFF                                  #  PRECISION UPDATE PASSIVE VEHICLE TO
032050,000383: 34,3604           03463                                    RTRN                                  #     TDEC1
032051,000384: 34,3605           01352                                    AVFLAG                                
032052,000385: 34,3606           71613                                    OTHERV                                
032053,000386: 34,3607           77624                           CALL                                           
032054,000387: 34,3610           27043                                    CSMPREC                               
032055,000388: 34,3611           77650                           GOTO                                           
032056,000389: 34,3612           03463                                    RTRN                                  
032057,000390: 34,3613           77624        OTHERV             CALL                                           
032058,000391: 34,3614           27057                                    LEMPREC                               
032059,000392: 34,3615           77650                           GOTO                                           
032060,000393: 34,3616           03463                                    RTRN                                  
032061,000394: 
032062,000395:                                                                                                  #  .... VNDSPLY ....
032063,000396:                                                                                                  #  SUBROUTINES USED
032064,000397: 
032065,000398:                                                                                                  #        BANKCALL
032066,000399:                                                                                                  #        GOFLASH
032067,000400:                                                                                                  #        GOTOPOOH
032068,000401: 
032069,000402: 34,3617           00006        VNDSPLY            EXTEND                                         #  FLASH DISPLAY
032070,000403: 34,3620           23463                           QXCH     RTRN                                  
032071,000404: 34,3621           55613                           TS       VERBNOUN                              
032072,000405: 34,3622           31613                           CA       VERBNOUN                              
032073,000406: 34,3623           04616                           TCR      BANKCALL                              
032074,000407: 34,3624           20351                           CADR     GOFLASH                               
032075,000408: 34,3625           16001                           TCF      GOTOPOOH                              #  TERMINATE
032076,000409: 34,3626           01463                           TC       RTRN                                  #  PROCEED
032077,000410: 34,3627           13622                           TCF      -5                                    #  RECYCLE
032078,000411: 34,3630           01441        V06N33SR           VN       0633                                  
032079,000412: 34,3631           01467        V06N55SR           VN       0655                                  
032080,000413: 34,3632           01006        V04N06SR           VN       0406                                  
032081,000414: 34,3633           01471        V06N57SR           VN       0657                                  
032082,000415: 34,3634           01442        V06N34SR           VN       0634                                  
032083,000416: 34,3635           01472        V06N58SR           VN       0658                                  
032084,000417: 34,3636           01521        V06N81SR           VN       0681                                  
032085,000418: 
032086,000419: 
032087,000420: 

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