Source Code

These source-code files are part of a reconstructed copy of Comanche 45/2 (AKA Manche45 revision 2), the final, flown mission release of the Apollo 10 Command Module (CM) Apollo Guidance Computer (AGC) software. Comanche 45/2 was preceded by Comanche 44 and Comanche 45. The reconstruction is believed to be exactly accurate, but in the absence of an actual Apollo-era listing of Comanche 45/2, some explanation of the reconstruction process is needed to insure confidence in that accuracy.

The starting point was the source code of Comanche 45 (itself previously accurately reconstructed). Comanche 45 source code was then modified by incorporating changes known from contemporary documentation to have been made between revisions 45 and 45/2. The now-reconstructed Comanche 45/2 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 tend to match those in the Comanche 55, the most-similar revision of Comanche for which we have access to an actual non-reconstructed hardcopy; the source code would likely have different page numbers in a contemporary Comanche 45 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 44. Here's a guide to the Apollo documentation referenced in those annotations:
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.

022369,000002:                                                                                                  ## Copyright:   Public domain.
022370,000003:                                                                                                  ## Filename:    STABLE_ORBIT_-_P38-P39.agc
022371,000004:                                                                                                  ## Purpose:     A section of Manche45 revision 2.
022372,000005:                                                                                                  ##              It is part of the reconstructed source code for the
022373,000006:                                                                                                  ##              final, flown release of the flight software for the Command
022374,000007:                                                                                                  ##              Module's (CM) Apollo Guidance Computer (AGC) for Apollo 10.
022375,000008:                                                                                                  ##              The code has been recreated from a copy of Comanche 055. It
022376,000009:                                                                                                  ##              has been adapted such that the resulting bugger words
022377,000010:                                                                                                  ##              exactly match those specified for Manche 45/2 in NASA drawing
022378,000011:                                                                                                  ##              2021153D, which gives relatively high confidence that the
022379,000012:                                                                                                  ##              reconstruction is correct.
022380,000013:                                                                                                  ## Assembler:   yaYUL
022381,000014:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
022382,000015:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
022383,000016:                                                                                                  ## Mod history: 2020-12-24 MAS  Created from Comanche 45.
022384,000017: 

Page 525

022386,000019:                                                                                                  #  STABLE ORBIT RENDEZVOUS PROGRAMS (P38 AND P78)
022387,000020: 
022388,000021:                                                                                                  #  MOD NO -1             LOG SECTION - STABLE ORBIT - P38-P39
022389,000022:                                                                                                  #  MOD BY RUDNICKI.S     DATE 25JAN68
022390,000023: 
022391,000024:                                                                                                  #  FUNCTIONAL DESCRIPTION
022392,000025: 
022393,000026:                                                                                                  #        P38 AND P78 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
022394,000027:                                                                                                  #        CONDITIONS REQUIRED BY THE AGC TO (1) PUT THE ACTIVE VEHICLE
022395,000028:                                                                                                  #        ON A TRANSFER TRAJECTORY THAT INTERCEPTS THE PASSIVE VEHICLE
022396,000029:                                                                                                  #        ORBIT A GIVEN DISTANCE, DELTA R, EITHER AHEAD OF OR BEHIND THE
022397,000030:                                                                                                  #        PASSIVE VEHICLE AND (2) ACTUALLY PLACE THE ACTIVE VEHICLE IN THE
022398,000031:                                                                                                  #        PASSIVE VEHICLE ORBIT WITH A DELTA R SEPARATION BETWEEN THE TWO
022399,000032:                                                                                                  #        VEHICLES
022400,000033: 
022401,000034:                                                                                                  #  CALLING SEQUENCE
022402,000035: 
022403,000036:                                                                                                  #        ASTRONAUT REQUEST THRU DSKY
022404,000037: 
022405,000038:                                                                                                  #        V37E38E         IF THIS VEHICLE IS ACTIVE VEHICLE
022406,000039:                                                                                                  #        V37E78E         IF OTHER VEHICLE IS ACTIVE VEHICLE
022407,000040: 
022408,000041:                                                                                                  #  INPUT
022409,000042: 
022410,000043:                                                                                                  #        (1)     SOI MANEUVER
022411,000044: 
022412,000045:                                                                                                  #                (A)  TIG        TIME OF SOI MANEUVER
022413,000046:                                                                                                  #                (B)  CENTANG    ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE
022414,000047:                                                                                                  #                                DURING TRANSFER FROM TIG TO TIME OF INTERCEPT
022415,000048:                                                                                                  #                (C)  DELTAR     THE DESIRED SEPARATION OF THE TWO VEHICLES
022416,000049:                                                                                                  #                                SPECIFIED AS A DISTANCE ALONG THE PASSIVE VEHICLE
022417,000050:                                                                                                  #                                ORBIT
022418,000051:                                                                                                  #                (D)  OPTION     EQUALS 1 FOR SOI
022419,000052: 
022420,000053:                                                                                                  #        (2)     SOR MANEUVER
022421,000054: 
022422,000055:                                                                                                  #                (A)  TIG        TIME OF SOR MANEUVER
022423,000056:                                                                                                  #                (B)  CENTANG    AN OPTIONAL RESPECIFICATION OF 1 (B) ABOVE
022424,000057:                                                                                                  #                (C)  OPTION     EQUALS 2 FOR SOR
022425,000058:                                                                                                  #                (D)  DELTTIME   THE TIME REQUIRED TO TRAVERSE DELTA R WHEN
022426,000059:                                                                                                  #                                TRAVELING AT A VELOCITY EQUAL TO THE HORIZONTAL
022427,000060:                                                                                                  #                                VELOCITY OF THE PASSIVE VEHICLE - SAVED FROM
022428,000061:                                                                                                  #                                SOI PHASE
022429,000062:                                                                                                  #                (E)  TINT       TIME OF INTERCEPT (SOI) - SAVED FROM SOI PHASE
022430,000063: 
022431,000064:                                                                                                  #  OUTPUT
022432,000065: 
022433,000066:                                                                                                  #        (1)  TRKMKCNT   NUMBER OF MARKS
022434,000067:                                                                                                  #        (2)  TTOGO      TIME TO GO
022435,000068:                                                                                                  #        (3)  +MGA       MIDDLE GIMBAL ANGLE

Page 526

022437,000070:                                                                                                  #        (4)  DSPTEM1    TIME OF INTERCEPT OF PASSIVE VEHICLE ORBIT
022438,000071:                                                                                                  #                        (FOR SOI ONLY)
022439,000072:                                                                                                  #        (5)  POSTTPI    PERIGEE ALTITUDE OF ACTIVE VEHICLE ORBIT AFTER
022440,000073:                                                                                                  #                        THE SOI (SOR) MANEUVER
022441,000074:                                                                                                  #        (6)  DELVTPI    MAGNITUDE OF DELTA V AT SOI (SOR) TIME
022442,000075:                                                                                                  #        (7)  DELVTPF    MAGNITUDE OF DELTA V AT INTERCEPT TIME
022443,000076:                                                                                                  #        (8)  DELVLVC    DELTA VELOCITY AT SOI (AND SOR) - LOCAL VERTICAL
022444,000077:                                                                                                  #                        COORDINATES
022445,000078: 
022446,000079:                                                                                                  #  SUBROUTINES USED
022447,000080: 
022448,000081:                                                                                                  #        AVFLAGA
022449,000082:                                                                                                  #        AVFLAGP
022450,000083:                                                                                                  #        VNDSPLY
022451,000084:                                                                                                  #        BANKCALL
022452,000085:                                                                                                  #        GOFLASHR
022453,000086:                                                                                                  #        GOTOPOOH
022454,000087:                                                                                                  #        BLANKET
022455,000088:                                                                                                  #        ENDOFJOB
022456,000089:                                                                                                  #        PREC/TT
022457,000090:                                                                                                  #        SELECTMU
022458,000091:                                                                                                  #        INTRPVP
022459,000092:                                                                                                  #        MAINRTNE
022460,000093: 
022461,000094: 04,2742                                           BANK     04                                    
022462,000095: 04,2000                                           SETLOC   STBLEORB                              
022463,000096: 04,2000                                           BANK                                           
022464,000097: 
022465,000098: 04,2742  E4,1770                                  EBANK=   SUBEXIT                               
022466,000099: 04,2742                                           COUNT*   $$/P3879                              
022467,000100: 
022468,000101: 04,2742           04627        P38                TC       AVFLAGA                               #  THIS VEHICLE ACTIVE
022469,000102: 04,2743           02745                           TC       +2                                    
022470,000103: 04,2744           04642        P78                TC       AVFLAGP                               #  OTHER VEHICLE ACTIVE
022471,000104: 04,2745           04647                           TC       P20FLGON                              #  SET UPDATFLG, TRACKFLG
022472,000105: 04,2746           33271                           CAF      V06N33SR                              #  DISPLAY TIG
022473,000106: 04,2747           03260                           TC       VNDSPLY                               
022474,000107: 04,2750           33272                           CAF      V06N55SR                              #  DISPLAY CENTANG
022475,000108: 04,2751           04662                           TCR      BANKCALL                              
022476,000109: 04,2752           21057                           CADR     GOFLASHR                              
022477,000110: 04,2753           14106                           TCF      GOTOPOOH                              #  TERMINATE
022478,000111: 04,2754           12761                           TCF      +5                                    #  PROCEED
022479,000112: 04,2755           12750                           TCF      -5                                    #  RECYCLE
022480,000113: 04,2756           36214                           CAF      THREE                                 #  IMMEDIATE RETURN - BLANK R1, R2
022481,000114: 04,2757           05526                           TCR      BLANKET                               
022482,000115: 04,2760           15217                           TCF      ENDOFJOB                              
022483,000116: 04,2761           35022                           CAF      FIVE                                  
022484,000117: 04,2762           55131                           TS       OPTION1                               
022485,000118: 04,2763           35017                           CAF      ONE                                   
022486,000119: 04,2764           55132                           TS       OPTION2                               #  OPTION CODE IS SET TO 1

Page 527

022488,000121: 04,2765           33273                           CAF      V04N06SR                              #  DISPLAY OPTION CODE -1 = SOI, 2 = SOR
022489,000122: 04,2766           04662                           TCR      BANKCALL                              
022490,000123: 04,2767           21057                           CADR     GOFLASHR                              
022491,000124: 04,2770           14106                           TCF      GOTOPOOH                              #  TERMINATE
022492,000125: 04,2771           12776                           TCF      +5                                    #  PROCEED
022493,000126: 04,2772           12765                           TCF      -5                                    #  RECYCLE
022494,000127: 04,2773           35015                           CAF      BIT3                                  #  IMMEDIATE RETURN - BLANK R3
022495,000128: 04,2774           05526                           TCR      BLANKET                               
022496,000129: 04,2775           15217                           TCF      ENDOFJOB                              
022497,000130: 04,2776           06006                           TC       INTPRET                               
022498,000131: 04,2777           70535                           SLOAD    SR1                                   
022499,000132: 04,3000           01133                                    OPTION2                               
022500,000133: 04,3001           71230                           BHIZ     DLOAD                                 
022501,000134: 04,3002           11010                                    OPTN1                                 
022502,000135: 04,3003           03656                                    TINT                                  
022503,000136: 04,3004           02611                           STORE    TINTSOI                               #  STORE FOR SOR PHASE
022504,000137: 04,3005           77614                           CLRGO                                          
022505,000138: 04,3006           01230                                    OPTNSW                                #  OPTNSW; ON = SOI, OFF = SOR
022506,000139: 04,3007           11037                                    JUNCTN1                               
022507,000140: 04,3010           43014        OPTN1              SET      CLEAR                                 #  SOI
022508,000141: 04,3011           01070                                    OPTNSW                                
022509,000142: 04,3012           00670                                    UPDATFLG                              
022510,000143: 04,3013           77624                           CALL                                           
022511,000144: 04,3014           11213                                    PREC/TT                               
022512,000145: 04,3015           43214                           SET      DAD                                   
022513,000146: 04,3016           00470                                    UPDATFLG                              
022514,000147: 04,3017           03413                                    TIG                                   
022515,000148: 04,3020           03656                           STORE    TINT                                  #  TI = TIG + TF
022516,000149: 04,3021           01046                           STORE    DSPTEM1                               #  FOR DISPLAY
022517,000150: 04,3022           77776                           EXIT                                           
022518,000151: 04,3023           33274                           CAF      V06N57SR                              #  DISPLAY DELTA R
022519,000152: 04,3024           04662                           TCR      BANKCALL                              
022520,000153: 04,3025           21057                           CADR     GOFLASHR                              
022521,000154: 04,3026           14106                           TCF      GOTOPOOH                              #  TERMINATE
022522,000155: 04,3027           13034                           TCF      +5                                    #  PROCEED
022523,000156: 04,3030           13023                           TCF      -5                                    #  RECYCLE
022524,000157: 04,3031           36211                           CAF      SIX                                   #  IMMEDIATE RETURN - BLANK R2, R3
022525,000158: 04,3032           05526                           TCR      BLANKET                               
022526,000159: 04,3033           15217                           TCF      ENDOFJOB                              
022527,000160: 04,3034           33275                           CAF      V06N34SR                              #  DISPLAY TIME OF INTERCEPT
022528,000161: 04,3035           03260                           TC       VNDSPLY                               
022529,000162: 04,3036           06006                           TC       INTPRET                               
022530,000163: 04,3037           45014        JUNCTN1            CLEAR    CALL                                  
022531,000164: 04,3040           04266                                    P39/79SW                              
022532,000165: 04,3041           10712                                    SELECTMU                              #  SELECT MU, CLEAR FINALFLG, GO TO VN1645
022533,000166: 04,3042           77624        RECYCLE            CALL                                           
022534,000167: 04,3043           11213                                    PREC/TT                               

Page 528

022536,000169: 04,3044           71214                           BOFF     DLOAD                                 
022537,000170: 04,3045           01350                                    OPTNSW                                
022538,000171: 04,3046           11066                                    OPTN2                                 
022539,000172: 04,3047           03656                                    TINT                                  
022540,000173: 04,3050           34041                           STCALL   TDEC1                                 #  PRECISION UPDATE PASSIVE VEHICLE TO
022541,000174: 04,3051           11244                                    INTRPVP                               #  INTERCEPT TIME
022542,000175: 04,3052           53575                           VLOAD    UNIT                                  
022543,000176: 04,3053           00001                                    RATT                                  #  RP/(RP)
022544,000177: 04,3054           47315                           PDVL     VXV                                   
022545,000178: 04,3055           00007                                    VATT                                  
022546,000179: 04,3056           60246                           ABVAL    NORM                                  #  (VP X RP/(RP))
022547,000180: 04,3057           00047                                    X1                                    
022548,000181: 04,3060           56325                           PDDL     DDV                                   
022549,000182: 04,3061           02611                                    DELTAR                                
022550,000183: 04,3062           77657                           SL*                                            #  DELTA R / (VP X RP/RP)
022551,000184: 04,3063           20172                                    0          -7,1                       
022552,000185: 04,3064           36613                           STCALL   DELTTIME                              #  DELTA T = (RP) DELTA R / (VP X RP)
022553,000186: 04,3065           11072                                    JUNCTN2                               
022554,000187: 04,3066           43345        OPTN2              DLOAD    DAD                                   
022555,000188: 04,3067           02611                                    TINTSOI                               
022556,000189: 04,3070           00037                                    T                                     
022557,000190: 04,3071           03656                           STORE    TINT                                  #  TI = TI + TF
022558,000191: 04,3072           45345        JUNCTN2            DLOAD    DSU                                   
022559,000192: 04,3073           03656                                    TINT                                  
022560,000193: 04,3074           02613                                    DELTTIME                              
022561,000194: 04,3075           02615                           STORE    TARGTIME                              #  TT = TI - DELTA T
022562,000195: 
022563,000196:                                                                                                  #  .... MAINRTNE ....
022564,000197: 
022565,000198:                                                                                                  #  SUBROUTINES USED
022566,000199: 
022567,000200:                                                                                                  #        S3435.25
022568,000201:                                                                                                  #        PERIAPO1
022569,000202:                                                                                                  #        SHIFTR1
022570,000203:                                                                                                  #        VNDSPLY
022571,000204:                                                                                                  #        BANKCALL
022572,000205:                                                                                                  #        GOFLASH
022573,000206:                                                                                                  #        GOTOPOOH
022574,000207:                                                                                                  #        VN1645
022575,000208: 
022576,000209: 04,3076           34041        MAINRTNE           STCALL   TDEC1                                 #  PRECISION UPDATE PASSIVE VEHICLE TO
022577,000210: 04,3077           11244                                    INTRPVP                               #        TARGET TIME
022578,000211: 04,3100           77745                           DLOAD                                          
022579,000212: 04,3101           03413                                    TIG                                   
022580,000213: 04,3102           03503                           STORE    INTIME                                
022581,000214: 04,3103           77331                           SSP      VLOAD                                 
022582,000215: 04,3104           02371                                    SUBEXIT                               
022583,000216: 04,3105           11111                                    TEST3979                              
022584,000217: 04,3106           00001                                    RATT                                  
022585,000218: 04,3107           77624                           CALL                                           
022586,000219: 04,3110           72547                                    S3435.25                              
022587,000220: 04,3111           43014        TEST3979           BOFF     BON                                   

Page 529

022589,000222: 04,3112           04346                                    P39/79SW                              
022590,000223: 04,3113           11122                                    MAINRTN1                              
022591,000224: 04,3114           01311                                    FINALFLG                              
022592,000225: 04,3115           11120                                    P39P79                                
022593,000226: 04,3116           77614                           SET                                            
022594,000227: 04,3117           00470                                    UPDATFLG                              
022595,000228: 04,3120           77776        P39P79             EXIT                                           
022596,000229: 04,3121           03147                           TC       DSPLY81                               #  FOR P39 AND P79
022597,000230: 04,3122           51575        MAINRTN1           VLOAD    ABVAL                                 
022598,000231: 04,3123           03646                                    DELVEET3                              
022599,000232: 04,3124           26635                           STOVL    DELVTPI                               #  DELTA V
022600,000233: 04,3125           03640                                    VPASS4                                
022601,000234: 04,3126           51451                           VSU      ABVAL                                 
022602,000235: 04,3127           03620                                    VTPRIME                               
022603,000236: 04,3130           26637                           STOVL    DELVTPF                               #  DELTA V (FINAL) = V'T - VT
022604,000237: 04,3131           03540                                    RACT3                                 
022605,000238: 04,3132           45115                           PDVL     CALL                                  
022606,000239: 04,3133           03612                                    VIPRIME                               
022607,000240: 04,3134           45153                                    PERIAPO1                              #  GET PERIGEE ALTITUDE
022608,000241: 04,3135           77624                           CALL                                           
022609,000242: 04,3136           45263                                    SHIFTR1                               
022610,000243: 04,3137           02641                           STORE    POSTTPI                               
022611,000244: 04,3140           43014                           BON      SET                                   
022612,000245: 04,3141           01311                                    FINALFLG                              
022613,000246: 04,3142           11144                                    DSPLY58                               
022614,000247: 04,3143           00470                                    UPDATFLG                              
022615,000248: 04,3144           77776        DSPLY58            EXIT                                           
022616,000249: 04,3145           33276                           CAF      V06N58SR                              #  DISPLAY HP, DELTA V, DELTA V (FINAL)
022617,000250: 04,3146           03260                           TC       VNDSPLY                               
022618,000251: 04,3147           33277        DSPLY81            CAF      V06N81SR                              #  DISPLAY DELTA V (LV)
022619,000252: 04,3150           03260                           TC       VNDSPLY                               
022620,000253: 04,3151           06006                           TC       INTPRET                               
022621,000254: 04,3152           77214                           CLEAR    VLOAD                                 
022622,000255: 04,3153           01267                                    XDELVFLG                              
022623,000256: 04,3154           03646                                    DELVEET3                              
022624,000257: 04,3155           37646                           STCALL   DELVSIN                               
022625,000258: 04,3156           73003                                    VN1645                                #  DISPLAY TRKMKCNT, TTOGO, +MGA
022626,000259: 04,3157           52014                           BON      GOTO                                  
022627,000260: 04,3160           04306                                    P39/79SW                              
022628,000261: 04,3161           11200                                    P39/P79B                              
022629,000262: 04,3162           11042                                    RECYCLE                               
022630,000263: 
022631,000264:                                                                                                  #  STABLE ORBIT MIDCOURSE PROGRAM (P39 AND P79)
022632,000265: 
022633,000266:                                                                                                  #  MOD NO -1             LOG SECTION - STABLE ORBIT - P38-P39
022634,000267:                                                                                                  #  MOD BY RUDNICKI.S     DATE 25JAN68
022635,000268: 
022636,000269:                                                                                                  #  FUNCTIONAL DESCRIPTION
022637,000270: 
022638,000271:                                                                                                  #        P39 AND P79 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
022639,000272:                                                                                                  #        CONDITIONS REQUIRED BY THE AGC TO MAKE A MIDCOURSE CORRECTION

Page 530

022641,000274:                                                                                                  #        MANEUVER AFTER COMPLETING THE SOI MANEUVER BUT BEFORE MAKING
022642,000275:                                                                                                  #        THE SOR MANEUVER
022643,000276: 
022644,000277:                                                                                                  #  CALLING SEQUENCE
022645,000278: 
022646,000279:                                                                                                  #        ASTRONAUT REQUEST THRU DSKY
022647,000280: 
022648,000281:                                                                                                  #        V37E39E         IF THIS VEHICLE IS ACTIVE VEHICLE
022649,000282:                                                                                                  #        V37E79E         IF OTHER VEHICLE IS ACTIVE VEHICLE
022650,000283: 
022651,000284:                                                                                                  #  INPUT
022652,000285: 
022653,000286:                                                                                                  #        (1)  TPASS4     TIME OF INTERCEPT - SAVED FROM P38/P78
022654,000287:                                                                                                  #        (2)  TARGTIME   TIME THAT PASSIVE VEHICLE IS AT INTERCEPT POINT -
022655,000288:                                                                                                  #                        SAVED FROM P38/P78
022656,000289: 
022657,000290:                                                                                                  #  OUTPUT
022658,000291: 
022659,000292:                                                                                                  #        (1)  TRKMKCNT   NUMBER OF MARKS
022660,000293:                                                                                                  #        (2)  TTOGO      TIME TO GO
022661,000294:                                                                                                  #        (3)  +MGA       MIDDLE GIMBAL ANGLE
022662,000295:                                                                                                  #        (4)  DELVLVC    DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
022663,000296: 
022664,000297:                                                                                                  #  SUBROUTINES USED
022665,000298: 
022666,000299:                                                                                                  #        AVFLAGA
022667,000300:                                                                                                  #        AVFLAGP
022668,000301:                                                                                                  #        LOADTIME
022669,000302:                                                                                                  #        SELECTMU
022670,000303:                                                                                                  #        PRECSET
022671,000304:                                                                                                  #        S34/35.1
022672,000305:                                                                                                  #        MAINRTNE
022673,000306: 
022674,000307: 04,3163           04627        P39                TC       AVFLAGA                               #  THIS VEHICLE ACTIVE
022675,000308: 04,3164           00006                           EXTEND                                         
022676,000309: 04,3165           31422                           DCA      ATIGINC                               
022677,000310: 04,3166           03172                           TC       P39/P79A                              
022678,000311: 04,3167           04642        P79                TC       AVFLAGP                               #  OTHER VEHICLE ACTIVE
022679,000312: 04,3170           00006                           EXTEND                                         
022680,000313: 04,3171           31424                           DCA      PTIGINC                               
022681,000314: 04,3172           53764        P39/P79A           DXCH     KT                                    #  TIME TO PREPARE FOR BURN
022682,000315: 04,3173           04647                           TC       P20FLGON                              #  SET UPDATFLG, TRACKFLG
022683,000316: 04,3174           06006                           TC       INTPRET                               
022684,000317: 04,3175           45014                           SET      CALL                                  
022685,000318: 04,3176           04066                                    P39/79SW                              
022686,000319: 04,3177           10712                                    SELECTMU                              #  SELECT MU, CLEAR FINALFLG, GO TO VN1645
022687,000320: 04,3200           43234        P39/P79B           RTB      DAD                                   
022688,000321: 04,3201           45510                                    LOADTIME                              
022689,000322: 04,3202           02364                                    KT                                    
022690,000323: 04,3203           03413                           STORE    TIG                                   #  TIG = T (PRESENT) + PREPARATION TIME

Page 531

022692,000325: 04,3204           34041                           STCALL   TDEC1                                 #  PRECISION UPDATE ACTIVE AND PASSIVE
022693,000326: 04,3205           45215                                    PRECSET                               #        VEHICLES TO TIG
022694,000327: 04,3206           77624                           CALL                                           
022695,000328: 04,3207           72522                                    S34/35.1                              #  GET UNIT NORMAL
022696,000329: 04,3210           52145                           DLOAD    GOTO                                  
022697,000330: 04,3211           02615                                    TARGTIME                              
022698,000331: 04,3212           11076                                    MAINRTNE                              #  CALCULATE DELTA V AND DELTA V (LV)
022699,000332: 
022700,000333:                                                                                                  #  .... PREC/TT ....
022701,000334: 
022702,000335:                                                                                                  #  SUBROUTINES USED
022703,000336: 
022704,000337:                                                                                                  #        PRECSET
022705,000338:                                                                                                  #        TIMETHET
022706,000339:                                                                                                  #        S34/35.1
022707,000340: 
022708,000341: 04,3213           71220        PREC/TT            STQ      DLOAD                                 
022709,000342: 04,3214           02367                                    RTRN                                  
022710,000343: 04,3215           03413                                    TIG                                   
022711,000344: 04,3216           34041                           STCALL   TDEC1                                 #  PRECISION UPDATE ACTIVE AND PASSIVE
022712,000345: 04,3217           45215                                    PRECSET                               #        VEHICLES TO TIG
022713,000346: 04,3220           53775                           VLOAD    VSR*                                  
022714,000347: 04,3221           03554                                    RPASS3                                
022715,000348: 04,3222           57176                                    0,2                                   
022716,000349: 04,3223           16657                           STODL    RVEC                                  
022717,000350: 04,3224           03754                                    CENTANG                               
022718,000351: 04,3225           71406                           PUSH     COS                                   
022719,000352: 04,3226           16734                           STODL    CSTH                                  
022720,000353: 04,3227           43156                           SIN      SET                                   
022721,000354: 04,3230           03466                                    RVSW                                  
022722,000355: 04,3231           26732                           STOVL    SNTH                                  
022723,000356: 04,3232           03562                                    VPASS3                                
022724,000357: 04,3233           77657                           VSR*                                           
022725,000358: 04,3234           57176                                    0,2                                   
022726,000359: 04,3235           36746                           STCALL   VVEC                                  #  GET TRANSFER TIME BASED ON CENTANG OF
022727,000360: 04,3236           24744                                    TIMETHET                              #        PASSIVE VEHICLE
022728,000361: 04,3237           77624                           CALL                                           
022729,000362: 04,3240           72522                                    S34/35.1                              #  GET UNIT NORMAL
022730,000363: 04,3241           52145                           DLOAD    GOTO                                  
022731,000364: 04,3242           00037                                    T                                     
022732,000365: 04,3243           02367                                    RTRN                                  
022733,000366: 
022734,000367:                                                                                                  #  .... INTRPVP ....
022735,000368: 
022736,000369:                                                                                                  #  SUBROUTINES USED
022737,000370: 
022738,000371:                                                                                                  #        CSMPREC
022739,000372:                                                                                                  #        LEMPREC
022740,000373: 
022741,000374: 04,3244           43020        INTRPVP            STQ      BOFF                                  #  PRECISION UPDATE PASSIVE VEHICLE TO
022742,000375: 04,3245           02367                                    RTRN                                  #        TDEC1
022743,000376: 04,3246           01352                                    AVFLAG                                
022744,000377: 04,3247           11254                                    OTHERV                                
022745,000378: 04,3250           77624                           CALL                                           

Page 532

022747,000380: 04,3251           27071                                    CSMPREC                               
022748,000381: 04,3252           77650                           GOTO                                           
022749,000382: 04,3253           02367                                    RTRN                                  
022750,000383: 04,3254           77624        OTHERV             CALL                                           
022751,000384: 04,3255           27105                                    LEMPREC                               
022752,000385: 04,3256           77650                           GOTO                                           
022753,000386: 04,3257           02367                                    RTRN                                  
022754,000387: 
022755,000388:                                                                                                  #  .... VNDSPLY ....
022756,000389: 
022757,000390:                                                                                                  #  SUBROUTINES USED
022758,000391: 
022759,000392:                                                                                                  #        BANKCALL
022760,000393:                                                                                                  #        GOFLASH
022761,000394:                                                                                                  #        GOTOPOOH
022762,000395: 
022763,000396: 04,3260           00006        VNDSPLY            EXTEND                                         #  FLASH DISPLAY
022764,000397: 04,3261           23767                           QXCH     RTRN                                  
022765,000398: 04,3262           55765                           TS       VERBNOUN                              
022766,000399: 04,3263           31765                           CA       VERBNOUN                              
022767,000400: 04,3264           04662                           TCR      BANKCALL                              
022768,000401: 04,3265           20720                           CADR     GOFLASH                               
022769,000402: 04,3266           14106                           TCF      GOTOPOOH                              #  TERMINATE
022770,000403: 04,3267           01767                           TC       RTRN                                  #  PROCEED
022771,000404: 04,3270           13263                           TCF      -5                                    #  RECYCLE
022772,000405: 04,3271           01441        V06N33SR           VN       0633                                  
022773,000406: 04,3272           01467        V06N55SR           VN       0655                                  
022774,000407: 04,3273           01006        V04N06SR           VN       0406                                  
022775,000408: 04,3274           01471        V06N57SR           VN       0657                                  
022776,000409: 04,3275           01442        V06N34SR           VN       0634                                  
022777,000410: 04,3276           01472        V06N58SR           VN       0658                                  
022778,000411: 04,3277           01521        V06N81SR           VN       0681                                  
022779,000412: 

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