Source Code

These source-code files are part of a reconstructed copy of Comanche 51, the initial release (though not the final mission release) of the Apollo 11 Command Module (CM) Apollo Guidance Computer (AGC) software. The flown, final release was Comanche 55. The reconstruction is believed to be exactly accurate, but in the absence of an actual Apollo-era listing of Comanche 51, some explanation of the reconstruction process is needed to insure confidence in that accuracy.

The starting point was the source code of Comanche 55, whose original source code is available. Comanche 55 source code was then modified by undoing changes known to have been made between revisions 51 and 55. The most-significant steps involved reverting changes related to the R-2 lunar potential model, the details of which were known from the previous, separate, independent reconstruction of the Apollo 10 Lunar Module software Luminary 69/2. The now-reconstructed Comanche 51 source code was verified by assembling it and checking that the assembled code had the expected known-correct memory-bank checksums. Note that page numbers in the reconstructed code match those on the Comanche 55 or Luminary 69 printouts, although the source code would likely have different page numbers in a contemporary Comanche 51 listing.

Annotations that were not present in the contemporary source code have been added to the reconstructed code to justify each change relative to Comanche 55. Here's a guide to some of the Apollo documentation relevant to those annotations:
Among documentation not actually referenced in the annotations, there is a short writeup about the reconstruction process in our software repository that may be helpful in understanding it from a different perspective. There's also a handy table that lists what the number of memory-words should be for each routine in Comanche 51, which could make a nice double-check; however, we've not performed that double-check ourselves.

Comments expected to have been present in 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.

022393,000002:                                                                                                  ## Copyright:   Public domain.
022394,000003:                                                                                                  ## Filename:    STABLE_ORBIT_-_P38-P39.agc
022395,000004:                                                                                                  ## Purpose:     A section of Comanche revision 051.
022396,000005:                                                                                                  ##              It is part of the reconstructed source code for the
022397,000006:                                                                                                  ##              original release of the flight software for the Command
022398,000007:                                                                                                  ##              Module's (CM) Apollo Guidance Computer (AGC) for Apollo 11.
022399,000008:                                                                                                  ##              The code has been recreated from a copy of Comanche 055. It
022400,000009:                                                                                                  ##              has been adapted such that the resulting bugger words
022401,000010:                                                                                                  ##              exactly match those specified for Comanche 51 in NASA drawing
022402,000011:                                                                                                  ##              2021153D, which gives relatively high confidence that the
022403,000012:                                                                                                  ##              reconstruction is correct.
022404,000013:                                                                                                  ## Reference:   pp. 525-532
022405,000014:                                                                                                  ## Assembler:   yaYUL
022406,000015:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
022407,000016:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
022408,000017:                                                                                                  ## Mod history: 2019-07-30 MAS  Created from Comanche 55.
022409,000018: 

Page 525

022411,000020:                                                                                                  #  STABLE ORBIT RENDEZVOUS PROGRAMS (P38 AND P78)
022412,000021: 
022413,000022:                                                                                                  #  MOD NO -1             LOG SECTION - STABLE ORBIT - P38-P39
022414,000023:                                                                                                  #  MOD BY RUDNICKI.S     DATE 25JAN68
022415,000024: 
022416,000025:                                                                                                  #  FUNCTIONAL DESCRIPTION
022417,000026: 
022418,000027:                                                                                                  #        P38 AND P78 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
022419,000028:                                                                                                  #        CONDITIONS REQUIRED BY THE AGC TO (1) PUT THE ACTIVE VEHICLE
022420,000029:                                                                                                  #        ON A TRANSFER TRAJECTORY THAT INTERCEPTS THE PASSIVE VEHICLE
022421,000030:                                                                                                  #        ORBIT A GIVEN DISTANCE, DELTA R, EITHER AHEAD OF OR BEHIND THE
022422,000031:                                                                                                  #        PASSIVE VEHICLE AND (2) ACTUALLY PLACE THE ACTIVE VEHICLE IN THE
022423,000032:                                                                                                  #        PASSIVE VEHICLE ORBIT WITH A DELTA R SEPARATION BETWEEN THE TWO
022424,000033:                                                                                                  #        VEHICLES
022425,000034: 
022426,000035:                                                                                                  #  CALLING SEQUENCE
022427,000036: 
022428,000037:                                                                                                  #        ASTRONAUT REQUEST THRU DSKY
022429,000038: 
022430,000039:                                                                                                  #        V37E38E         IF THIS VEHICLE IS ACTIVE VEHICLE
022431,000040:                                                                                                  #        V37E78E         IF OTHER VEHICLE IS ACTIVE VEHICLE
022432,000041: 
022433,000042:                                                                                                  #  INPUT
022434,000043: 
022435,000044:                                                                                                  #        (1)     SOI MANEUVER
022436,000045: 
022437,000046:                                                                                                  #                (A)  TIG        TIME OF SOI MANEUVER
022438,000047:                                                                                                  #                (B)  CENTANG    ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE
022439,000048:                                                                                                  #                                DURING TRANSFER FROM TIG TO TIME OF INTERCEPT
022440,000049:                                                                                                  #                (C)  DELTAR     THE DESIRED SEPARATION OF THE TWO VEHICLES
022441,000050:                                                                                                  #                                SPECIFIED AS A DISTANCE ALONG THE PASSIVE VEHICLE
022442,000051:                                                                                                  #                                ORBIT
022443,000052:                                                                                                  #                (D)  OPTION     EQUALS 1 FOR SOI
022444,000053: 
022445,000054:                                                                                                  #        (2)     SOR MANEUVER
022446,000055: 
022447,000056:                                                                                                  #                (A)  TIG        TIME OF SOR MANEUVER
022448,000057:                                                                                                  #                (B)  CENTANG    AN OPTIONAL RESPECIFICATION OF 1 (B) ABOVE
022449,000058:                                                                                                  #                (C)  OPTION     EQUALS 2 FOR SOR
022450,000059:                                                                                                  #                (D)  DELTTIME   THE TIME REQUIRED TO TRAVERSE DELTA R WHEN
022451,000060:                                                                                                  #                                TRAVELING AT A VELOCITY EQUAL TO THE HORIZONTAL
022452,000061:                                                                                                  #                                VELOCITY OF THE PASSIVE VEHICLE - SAVED FROM
022453,000062:                                                                                                  #                                SOI PHASE
022454,000063:                                                                                                  #                (E)  TINT       TIME OF INTERCEPT (SOI) - SAVED FROM SOI PHASE
022455,000064: 
022456,000065:                                                                                                  #  OUTPUT
022457,000066: 
022458,000067:                                                                                                  #        (1)  TRKMKCNT   NUMBER OF MARKS
022459,000068:                                                                                                  #        (2)  TTOGO      TIME TO GO
022460,000069:                                                                                                  #        (3)  +MGA       MIDDLE GIMBAL ANGLE

Page 526

022462,000071:                                                                                                  #        (4)  DSPTEM1    TIME OF INTERCEPT OF PASSIVE VEHICLE ORBIT
022463,000072:                                                                                                  #                        (FOR SOI ONLY)
022464,000073:                                                                                                  #        (5)  POSTTPI    PERIGEE ALTITUDE OF ACTIVE VEHICLE ORBIT AFTER
022465,000074:                                                                                                  #                        THE SOI (SOR) MANEUVER
022466,000075:                                                                                                  #        (6)  DELVTPI    MAGNITUDE OF DELTA V AT SOI (SOR) TIME
022467,000076:                                                                                                  #        (7)  DELVTPF    MAGNITUDE OF DELTA V AT INTERCEPT TIME
022468,000077:                                                                                                  #        (8)  DELVLVC    DELTA VELOCITY AT SOI (AND SOR) - LOCAL VERTICAL
022469,000078:                                                                                                  #                        COORDINATES
022470,000079: 
022471,000080:                                                                                                  #  SUBROUTINES USED
022472,000081: 
022473,000082:                                                                                                  #        AVFLAGA
022474,000083:                                                                                                  #        AVFLAGP
022475,000084:                                                                                                  #        VNDSPLY
022476,000085:                                                                                                  #        BANKCALL
022477,000086:                                                                                                  #        GOFLASHR
022478,000087:                                                                                                  #        GOTOPOOH
022479,000088:                                                                                                  #        BLANKET
022480,000089:                                                                                                  #        ENDOFJOB
022481,000090:                                                                                                  #        PREC/TT
022482,000091:                                                                                                  #        SELECTMU
022483,000092:                                                                                                  #        INTRPVP
022484,000093:                                                                                                  #        MAINRTNE
022485,000094: 
022486,000095: 04,2742                                           BANK     04                                    
022487,000096: 04,2000                                           SETLOC   STBLEORB                              
022488,000097: 04,2000                                           BANK                                           
022489,000098: 
022490,000099: 04,2742  E4,1770                                  EBANK=   SUBEXIT                               
022491,000100: 04,2742                                           COUNT*   $$/P3879                              
022492,000101: 
022493,000102: 04,2742           04627        P38                TC       AVFLAGA                               #  THIS VEHICLE ACTIVE
022494,000103: 04,2743           02745                           TC       +2                                    
022495,000104: 04,2744           04642        P78                TC       AVFLAGP                               #  OTHER VEHICLE ACTIVE
022496,000105: 04,2745           04647                           TC       P20FLGON                              #  SET UPDATFLG, TRACKFLG
022497,000106: 04,2746           33274                           CAF      V06N33SR                              #  DISPLAY TIG
022498,000107: 04,2747           03263                           TC       VNDSPLY                               
022499,000108: 04,2750           33275                           CAF      V06N55SR                              #  DISPLAY CENTANG
022500,000109: 04,2751           04662                           TCR      BANKCALL                              
022501,000110: 04,2752           21057                           CADR     GOFLASHR                              
022502,000111: 04,2753           14106                           TCF      GOTOPOOH                              #  TERMINATE
022503,000112: 04,2754           12761                           TCF      +5                                    #  PROCEED
022504,000113: 04,2755           12750                           TCF      -5                                    #  RECYCLE
022505,000114: 04,2756           36214                           CAF      THREE                                 #  IMMEDIATE RETURN - BLANK R1, R2
022506,000115: 04,2757           05526                           TCR      BLANKET                               
022507,000116: 04,2760           15217                           TCF      ENDOFJOB                              
022508,000117: 04,2761           35022                           CAF      FIVE                                  
022509,000118: 04,2762           55131                           TS       OPTION1                               
022510,000119: 04,2763           35017                           CAF      ONE                                   
022511,000120: 04,2764           55132                           TS       OPTION2                               #  OPTION CODE IS SET TO 1

Page 527

022513,000122: 04,2765           33276                           CAF      V04N06SR                              #  DISPLAY OPTION CODE -1 = SOI, 2 = SOR
022514,000123: 04,2766           04662                           TCR      BANKCALL                              
022515,000124: 04,2767           21057                           CADR     GOFLASHR                              
022516,000125: 04,2770           14106                           TCF      GOTOPOOH                              #  TERMINATE
022517,000126: 04,2771           12776                           TCF      +5                                    #  PROCEED
022518,000127: 04,2772           12765                           TCF      -5                                    #  RECYCLE
022519,000128: 04,2773           35015                           CAF      BIT3                                  #  IMMEDIATE RETURN - BLANK R3
022520,000129: 04,2774           05526                           TCR      BLANKET                               
022521,000130: 04,2775           15217                           TCF      ENDOFJOB                              
022522,000131: 04,2776           06006                           TC       INTPRET                               
022523,000132: 04,2777           77731                           SSP                                            
022524,000133: 04,3000           03766                                    NN                                    
022525,000134: 04,3001           00002                                    2                                     
022526,000135: 04,3002           70535                           SLOAD    SR1                                   
022527,000136: 04,3003           01133                                    OPTION2                               
022528,000137: 04,3004           71230                           BHIZ     DLOAD                                 
022529,000138: 04,3005           11013                                    OPTN1                                 
022530,000139: 04,3006           03656                                    TINT                                  
022531,000140: 04,3007           02611                           STORE    TINTSOI                               #  STORE FOR SOR PHASE
022532,000141: 04,3010           77614                           CLRGO                                          
022533,000142: 04,3011           01230                                    OPTNSW                                #  OPTNSW; ON = SOI, OFF = SOR
022534,000143: 04,3012           11042                                    JUNCTN1                               
022535,000144: 04,3013           43014        OPTN1              SET      CLEAR                                 #  SOI
022536,000145: 04,3014           01070                                    OPTNSW                                
022537,000146: 04,3015           00670                                    UPDATFLG                              
022538,000147: 04,3016           77624                           CALL                                           
022539,000148: 04,3017           11216                                    PREC/TT                               
022540,000149: 04,3020           43214                           SET      DAD                                   
022541,000150: 04,3021           00470                                    UPDATFLG                              
022542,000151: 04,3022           03413                                    TIG                                   
022543,000152: 04,3023           03656                           STORE    TINT                                  #  TI = TIG + TF
022544,000153: 04,3024           01046                           STORE    DSPTEM1                               #  FOR DISPLAY
022545,000154: 04,3025           77776                           EXIT                                           
022546,000155: 04,3026           33277                           CAF      V06N57SR                              #  DISPLAY DELTA R
022547,000156: 04,3027           04662                           TCR      BANKCALL                              
022548,000157: 04,3030           21057                           CADR     GOFLASHR                              
022549,000158: 04,3031           14106                           TCF      GOTOPOOH                              #  TERMINATE
022550,000159: 04,3032           13037                           TCF      +5                                    #  PROCEED
022551,000160: 04,3033           13026                           TCF      -5                                    #  RECYCLE
022552,000161: 04,3034           36211                           CAF      SIX                                   #  IMMEDIATE RETURN - BLANK R2, R3
022553,000162: 04,3035           05526                           TCR      BLANKET                               
022554,000163: 04,3036           15217                           TCF      ENDOFJOB                              
022555,000164: 04,3037           33300                           CAF      V06N34SR                              #  DISPLAY TIME OF INTERCEPT
022556,000165: 04,3040           03263                           TC       VNDSPLY                               
022557,000166: 04,3041           06006                           TC       INTPRET                               
022558,000167: 04,3042           45014        JUNCTN1            CLEAR    CALL                                  
022559,000168: 04,3043           04266                                    P39/79SW                              
022560,000169: 04,3044           10712                                    SELECTMU                              #  SELECT MU, CLEAR FINALFLG, GO TO VN1645
022561,000170: 04,3045           77624        RECYCLE            CALL                                           
022562,000171: 04,3046           11216                                    PREC/TT                               

Page 528

022564,000173: 04,3047           71214                           BOFF     DLOAD                                 
022565,000174: 04,3050           01350                                    OPTNSW                                
022566,000175: 04,3051           11071                                    OPTN2                                 
022567,000176: 04,3052           03656                                    TINT                                  
022568,000177: 04,3053           34041                           STCALL   TDEC1                                 #  PRECISION UPDATE PASSIVE VEHICLE TO
022569,000178: 04,3054           11247                                    INTRPVP                               #  INTERCEPT TIME
022570,000179: 04,3055           53575                           VLOAD    UNIT                                  
022571,000180: 04,3056           00001                                    RATT                                  #  RP/(RP)
022572,000181: 04,3057           47315                           PDVL     VXV                                   
022573,000182: 04,3060           00007                                    VATT                                  
022574,000183: 04,3061           60246                           ABVAL    NORM                                  #  (VP X RP/(RP))
022575,000184: 04,3062           00047                                    X1                                    
022576,000185: 04,3063           56325                           PDDL     DDV                                   
022577,000186: 04,3064           02611                                    DELTAR                                
022578,000187: 04,3065           77657                           SL*                                            #  DELTA R / (VP X RP/RP)
022579,000188: 04,3066           20172                                    0          -7,1                       
022580,000189: 04,3067           36613                           STCALL   DELTTIME                              #  DELTA T = (RP) DELTA R / (VP X RP)
022581,000190: 04,3070           11075                                    JUNCTN2                               
022582,000191: 04,3071           43345        OPTN2              DLOAD    DAD                                   
022583,000192: 04,3072           02611                                    TINTSOI                               
022584,000193: 04,3073           00037                                    T                                     
022585,000194: 04,3074           03656                           STORE    TINT                                  #  TI = TI + TF
022586,000195: 04,3075           45345        JUNCTN2            DLOAD    DSU                                   
022587,000196: 04,3076           03656                                    TINT                                  
022588,000197: 04,3077           02613                                    DELTTIME                              
022589,000198: 04,3100           02615                           STORE    TARGTIME                              #  TT = TI - DELTA T
022590,000199: 
022591,000200:                                                                                                  #  .... MAINRTNE ....
022592,000201: 
022593,000202:                                                                                                  #  SUBROUTINES USED
022594,000203: 
022595,000204:                                                                                                  #        S3435.25
022596,000205:                                                                                                  #        PERIAPO1
022597,000206:                                                                                                  #        SHIFTR1
022598,000207:                                                                                                  #        VNDSPLY
022599,000208:                                                                                                  #        BANKCALL
022600,000209:                                                                                                  #        GOFLASH
022601,000210:                                                                                                  #        GOTOPOOH
022602,000211:                                                                                                  #        VN1645
022603,000212: 
022604,000213: 04,3101           34041        MAINRTNE           STCALL   TDEC1                                 #  PRECISION UPDATE PASSIVE VEHICLE TO
022605,000214: 04,3102           11247                                    INTRPVP                               #        TARGET TIME
022606,000215: 04,3103           77745                           DLOAD                                          
022607,000216: 04,3104           03413                                    TIG                                   
022608,000217: 04,3105           03503                           STORE    INTIME                                
022609,000218: 04,3106           77331                           SSP      VLOAD                                 
022610,000219: 04,3107           02371                                    SUBEXIT                               
022611,000220: 04,3110           11114                                    TEST3979                              
022612,000221: 04,3111           00001                                    RATT                                  
022613,000222: 04,3112           77624                           CALL                                           
022614,000223: 04,3113           72546                                    S3435.25                              
022615,000224: 04,3114           43014        TEST3979           BOFF     BON                                   

Page 529

022617,000226: 04,3115           04346                                    P39/79SW                              
022618,000227: 04,3116           11125                                    MAINRTN1                              
022619,000228: 04,3117           01311                                    FINALFLG                              
022620,000229: 04,3120           11123                                    P39P79                                
022621,000230: 04,3121           77614                           SET                                            
022622,000231: 04,3122           00470                                    UPDATFLG                              
022623,000232: 04,3123           77776        P39P79             EXIT                                           
022624,000233: 04,3124           03152                           TC       DSPLY81                               #  FOR P39 AND P79
022625,000234: 04,3125           51575        MAINRTN1           VLOAD    ABVAL                                 
022626,000235: 04,3126           03646                                    DELVEET3                              
022627,000236: 04,3127           26635                           STOVL    DELVTPI                               #  DELTA V
022628,000237: 04,3130           03640                                    VPASS4                                
022629,000238: 04,3131           51451                           VSU      ABVAL                                 
022630,000239: 04,3132           03620                                    VTPRIME                               
022631,000240: 04,3133           26637                           STOVL    DELVTPF                               #  DELTA V (FINAL) = V'T - VT
022632,000241: 04,3134           03540                                    RACT3                                 
022633,000242: 04,3135           45115                           PDVL     CALL                                  
022634,000243: 04,3136           03612                                    VIPRIME                               
022635,000244: 04,3137           45153                                    PERIAPO1                              #  GET PERIGEE ALTITUDE
022636,000245: 04,3140           77624                           CALL                                           
022637,000246: 04,3141           45263                                    SHIFTR1                               
022638,000247: 04,3142           02641                           STORE    POSTTPI                               
022639,000248: 04,3143           43014                           BON      SET                                   
022640,000249: 04,3144           01311                                    FINALFLG                              
022641,000250: 04,3145           11147                                    DSPLY58                               
022642,000251: 04,3146           00470                                    UPDATFLG                              
022643,000252: 04,3147           77776        DSPLY58            EXIT                                           
022644,000253: 04,3150           33301                           CAF      V06N58SR                              #  DISPLAY HP, DELTA V, DELTA V (FINAL)
022645,000254: 04,3151           03263                           TC       VNDSPLY                               
022646,000255: 04,3152           33302        DSPLY81            CAF      V06N81SR                              #  DISPLAY DELTA V (LV)
022647,000256: 04,3153           03263                           TC       VNDSPLY                               
022648,000257: 04,3154           06006                           TC       INTPRET                               
022649,000258: 04,3155           77214                           CLEAR    VLOAD                                 
022650,000259: 04,3156           01267                                    XDELVFLG                              
022651,000260: 04,3157           03646                                    DELVEET3                              
022652,000261: 04,3160           37646                           STCALL   DELVSIN                               
022653,000262: 04,3161           73002                                    VN1645                                #  DISPLAY TRKMKCNT, TTOGO, +MGA
022654,000263: 04,3162           52014                           BON      GOTO                                  
022655,000264: 04,3163           04306                                    P39/79SW                              
022656,000265: 04,3164           11203                                    P39/P79B                              
022657,000266: 04,3165           11045                                    RECYCLE                               
022658,000267: 
022659,000268:                                                                                                  #  STABLE ORBIT MIDCOURSE PROGRAM (P39 AND P79)
022660,000269: 
022661,000270:                                                                                                  #  MOD NO -1             LOG SECTION - STABLE ORBIT - P38-P39
022662,000271:                                                                                                  #  MOD BY RUDNICKI.S     DATE 25JAN68
022663,000272: 
022664,000273:                                                                                                  #  FUNCTIONAL DESCRIPTION
022665,000274: 
022666,000275:                                                                                                  #        P39 AND P79 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
022667,000276:                                                                                                  #        CONDITIONS REQUIRED BY THE AGC TO MAKE A MIDCOURSE CORRECTION

Page 530

022669,000278:                                                                                                  #        MANEUVER AFTER COMPLETING THE SOI MANEUVER BUT BEFORE MAKING
022670,000279:                                                                                                  #        THE SOR MANEUVER
022671,000280: 
022672,000281:                                                                                                  #  CALLING SEQUENCE
022673,000282: 
022674,000283:                                                                                                  #        ASTRONAUT REQUEST THRU DSKY
022675,000284: 
022676,000285:                                                                                                  #        V37E39E         IF THIS VEHICLE IS ACTIVE VEHICLE
022677,000286:                                                                                                  #        V37E79E         IF OTHER VEHICLE IS ACTIVE VEHICLE
022678,000287: 
022679,000288:                                                                                                  #  INPUT
022680,000289: 
022681,000290:                                                                                                  #        (1)  TPASS4     TIME OF INTERCEPT - SAVED FROM P38/P78
022682,000291:                                                                                                  #        (2)  TARGTIME   TIME THAT PASSIVE VEHICLE IS AT INTERCEPT POINT -
022683,000292:                                                                                                  #                        SAVED FROM P38/P78
022684,000293: 
022685,000294:                                                                                                  #  OUTPUT
022686,000295: 
022687,000296:                                                                                                  #        (1)  TRKMKCNT   NUMBER OF MARKS
022688,000297:                                                                                                  #        (2)  TTOGO      TIME TO GO
022689,000298:                                                                                                  #        (3)  +MGA       MIDDLE GIMBAL ANGLE
022690,000299:                                                                                                  #        (4)  DELVLVC    DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
022691,000300: 
022692,000301:                                                                                                  #  SUBROUTINES USED
022693,000302: 
022694,000303:                                                                                                  #        AVFLAGA
022695,000304:                                                                                                  #        AVFLAGP
022696,000305:                                                                                                  #        LOADTIME
022697,000306:                                                                                                  #        SELECTMU
022698,000307:                                                                                                  #        PRECSET
022699,000308:                                                                                                  #        S34/35.1
022700,000309:                                                                                                  #        MAINRTNE
022701,000310: 
022702,000311: 04,3166           04627        P39                TC       AVFLAGA                               #  THIS VEHICLE ACTIVE
022703,000312: 04,3167           00006                           EXTEND                                         
022704,000313: 04,3170           31422                           DCA      ATIGINC                               
022705,000314: 04,3171           03175                           TC       P39/P79A                              
022706,000315: 04,3172           04642        P79                TC       AVFLAGP                               #  OTHER VEHICLE ACTIVE
022707,000316: 04,3173           00006                           EXTEND                                         
022708,000317: 04,3174           31424                           DCA      PTIGINC                               
022709,000318: 04,3175           53764        P39/P79A           DXCH     KT                                    #  TIME TO PREPARE FOR BURN
022710,000319: 04,3176           04647                           TC       P20FLGON                              #  SET UPDATFLG, TRACKFLG
022711,000320: 04,3177           06006                           TC       INTPRET                               
022712,000321: 04,3200           45014                           SET      CALL                                  
022713,000322: 04,3201           04066                                    P39/79SW                              
022714,000323: 04,3202           10712                                    SELECTMU                              #  SELECT MU, CLEAR FINALFLG, GO TO VN1645
022715,000324: 04,3203           43234        P39/P79B           RTB      DAD                                   
022716,000325: 04,3204           45510                                    LOADTIME                              
022717,000326: 04,3205           02364                                    KT                                    
022718,000327: 04,3206           03413                           STORE    TIG                                   #  TIG = T (PRESENT) + PREPARATION TIME

Page 531

022720,000329: 04,3207           34041                           STCALL   TDEC1                                 #  PRECISION UPDATE ACTIVE AND PASSIVE
022721,000330: 04,3210           45215                                    PRECSET                               #        VEHICLES TO TIG
022722,000331: 04,3211           77624                           CALL                                           
022723,000332: 04,3212           74000                                    S34/35.1                              #  GET UNIT NORMAL
022724,000333: 04,3213           52145                           DLOAD    GOTO                                  
022725,000334: 04,3214           02615                                    TARGTIME                              
022726,000335: 04,3215           11101                                    MAINRTNE                              #  CALCULATE DELTA V AND DELTA V (LV)
022727,000336: 
022728,000337:                                                                                                  #  .... PREC/TT ....
022729,000338: 
022730,000339:                                                                                                  #  SUBROUTINES USED
022731,000340: 
022732,000341:                                                                                                  #        PRECSET
022733,000342:                                                                                                  #        TIMETHET
022734,000343:                                                                                                  #        S34/35.1
022735,000344: 
022736,000345: 04,3216           71220        PREC/TT            STQ      DLOAD                                 
022737,000346: 04,3217           02367                                    RTRN                                  
022738,000347: 04,3220           03413                                    TIG                                   
022739,000348: 04,3221           34041                           STCALL   TDEC1                                 #  PRECISION UPDATE ACTIVE AND PASSIVE
022740,000349: 04,3222           45215                                    PRECSET                               #        VEHICLES TO TIG
022741,000350: 04,3223           53775                           VLOAD    VSR*                                  
022742,000351: 04,3224           03554                                    RPASS3                                
022743,000352: 04,3225           57176                                    0,2                                   
022744,000353: 04,3226           16657                           STODL    RVEC                                  
022745,000354: 04,3227           03754                                    CENTANG                               
022746,000355: 04,3230           71406                           PUSH     COS                                   
022747,000356: 04,3231           16734                           STODL    CSTH                                  
022748,000357: 04,3232           43156                           SIN      SET                                   
022749,000358: 04,3233           03466                                    RVSW                                  
022750,000359: 04,3234           26732                           STOVL    SNTH                                  
022751,000360: 04,3235           03562                                    VPASS3                                
022752,000361: 04,3236           77657                           VSR*                                           
022753,000362: 04,3237           57176                                    0,2                                   
022754,000363: 04,3240           36746                           STCALL   VVEC                                  #  GET TRANSFER TIME BASED ON CENTANG OF
022755,000364: 04,3241           24744                                    TIMETHET                              #        PASSIVE VEHICLE
022756,000365: 04,3242           77624                           CALL                                           
022757,000366: 04,3243           74000                                    S34/35.1                              #  GET UNIT NORMAL
022758,000367: 04,3244           52145                           DLOAD    GOTO                                  
022759,000368: 04,3245           00037                                    T                                     
022760,000369: 04,3246           02367                                    RTRN                                  
022761,000370: 
022762,000371:                                                                                                  #  .... INTRPVP ....
022763,000372: 
022764,000373:                                                                                                  #  SUBROUTINES USED
022765,000374: 
022766,000375:                                                                                                  #        CSMPREC
022767,000376:                                                                                                  #        LEMPREC
022768,000377: 
022769,000378: 04,3247           43020        INTRPVP            STQ      BOFF                                  #  PRECISION UPDATE PASSIVE VEHICLE TO
022770,000379: 04,3250           02367                                    RTRN                                  #        TDEC1
022771,000380: 04,3251           01352                                    AVFLAG                                
022772,000381: 04,3252           11257                                    OTHERV                                
022773,000382: 04,3253           77624                           CALL                                           

Page 532

022775,000384: 04,3254           27071                                    CSMPREC                               
022776,000385: 04,3255           77650                           GOTO                                           
022777,000386: 04,3256           02367                                    RTRN                                  
022778,000387: 04,3257           77624        OTHERV             CALL                                           
022779,000388: 04,3260           27105                                    LEMPREC                               
022780,000389: 04,3261           77650                           GOTO                                           
022781,000390: 04,3262           02367                                    RTRN                                  
022782,000391: 
022783,000392:                                                                                                  #  .... VNDSPLY ....
022784,000393: 
022785,000394:                                                                                                  #  SUBROUTINES USED
022786,000395: 
022787,000396:                                                                                                  #        BANKCALL
022788,000397:                                                                                                  #        GOFLASH
022789,000398:                                                                                                  #        GOTOPOOH
022790,000399: 
022791,000400: 04,3263           00006        VNDSPLY            EXTEND                                         #  FLASH DISPLAY
022792,000401: 04,3264           23767                           QXCH     RTRN                                  
022793,000402: 04,3265           55765                           TS       VERBNOUN                              
022794,000403: 04,3266           31765                           CA       VERBNOUN                              
022795,000404: 04,3267           04662                           TCR      BANKCALL                              
022796,000405: 04,3270           20720                           CADR     GOFLASH                               
022797,000406: 04,3271           14106                           TCF      GOTOPOOH                              #  TERMINATE
022798,000407: 04,3272           01767                           TC       RTRN                                  #  PROCEED
022799,000408: 04,3273           13266                           TCF      -5                                    #  RECYCLE
022800,000409: 04,3274           01441        V06N33SR           VN       0633                                  
022801,000410: 04,3275           01467        V06N55SR           VN       0655                                  
022802,000411: 04,3276           01006        V04N06SR           VN       0406                                  
022803,000412: 04,3277           01471        V06N57SR           VN       0657                                  
022804,000413: 04,3300           01442        V06N34SR           VN       0634                                  
022805,000414: 04,3301           01472        V06N58SR           VN       0658                                  
022806,000415: 04,3302           01521        V06N81SR           VN       0681                                  
022807,000416: 

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