Source Code

These source-code files are part of a reconstructed copy of Comanche 72/3 (AKA Manche72 revision 3), the final, flown mission release of the Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 13.

The starting point was the source code of Comanche 72 (itself previously reconstructed). Comanche 72 source code was then modified by incorporating changes known from contemporary documentation to have been made between revisions 72 and 72/3. The resulting code assembles to have identical memory-bank checksums as those specified in NASA drawing 2021153G; this gives reasonably high confidence that the changes that have been made are correct. In places where ambiguity exists, this ambiguity is discussed in "## Reconstruction:" comments.

Since no contemporary listings of Comanche 72/3 are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing.

022047,000002:                                                                                                  ## Copyright:   Public domain.
022048,000003:                                                                                                  ## Filename:    STABLE_ORBIT_-_P38-P39.agc
022049,000004:                                                                                                  ## Purpose:     A section of Manche72 revision 3.
022050,000005:                                                                                                  ##              It is part of the reconstructed source code for the final, flown
022051,000006:                                                                                                  ##              release of the software for the Command Module's (CM) Apollo
022052,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 13. No original listings
022053,000008:                                                                                                  ##              of this program are available; instead, this file was recreated
022054,000009:                                                                                                  ##              from a reconstructed copy of Comanche 072. It has been adapted
022055,000010:                                                                                                  ##              such that the resulting bugger words exactly match those
022056,000011:                                                                                                  ##              specified for Manche72 revision 3 in NASA drawing 2021153G,
022057,000012:                                                                                                  ##              which gives relatively high confidence that the reconstruction
022058,000013:                                                                                                  ##              is correct.
022059,000014:                                                                                                  ## Assembler:   yaYUL
022060,000015:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
022061,000016:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
022062,000017:                                                                                                  ## Mod history: 2024-05-19 MAS  Created from Comanche 072.
022063,000018: 
022064,000019:                                                                                                  #  STABLE ORBIT RENDEZVOUS PROGRAMS (P38 AND P78)
022065,000020: 
022066,000021:                                                                                                  #  MOD NO -1             LOG SECTION - STABLE ORBIT - P38-P39
022067,000022:                                                                                                  #  MOD BY RUDNICKI.S     DATE 25JAN68
022068,000023: 
022069,000024:                                                                                                  #  FUNCTIONAL DESCRIPTION
022070,000025: 
022071,000026:                                                                                                  #        P38 AND P78 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
022072,000027:                                                                                                  #        CONDITIONS REQUIRED BY THE AGC TO (1) PUT THE ACTIVE VEHICLE
022073,000028:                                                                                                  #        ON A TRANSFER TRAJECTORY THAT INTERCEPTS THE PASSIVE VEHICLE
022074,000029:                                                                                                  #        ORBIT A GIVEN DISTANCE, DELTA R, EITHER AHEAD OF OR BEHIND THE
022075,000030:                                                                                                  #        PASSIVE VEHICLE AND (2) ACTUALLY PLACE THE ACTIVE VEHICLE IN THE
022076,000031:                                                                                                  #        PASSIVE VEHICLE ORBIT WITH A DELTA R SEPARATION BETWEEN THE TWO
022077,000032:                                                                                                  #        VEHICLES
022078,000033: 
022079,000034:                                                                                                  #  CALLING SEQUENCE
022080,000035: 
022081,000036:                                                                                                  #        ASTRONAUT REQUEST THRU DSKY
022082,000037: 
022083,000038:                                                                                                  #        V37E38E         IF THIS VEHICLE IS ACTIVE VEHICLE
022084,000039:                                                                                                  #        V37E78E         IF OTHER VEHICLE IS ACTIVE VEHICLE
022085,000040: 
022086,000041:                                                                                                  #  INPUT
022087,000042: 
022088,000043:                                                                                                  #        (1)     SOI MANEUVER
022089,000044: 
022090,000045:                                                                                                  #                (A)  TIG        TIME OF SOI MANEUVER
022091,000046:                                                                                                  #                (B)  CENTANG    ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE
022092,000047:                                                                                                  #                                DURING TRANSFER FROM TIG TO TIME OF INTERCEPT
022093,000048:                                                                                                  #                (C)  DELTAR     THE DESIRED SEPARATION OF THE TWO VEHICLES
022094,000049:                                                                                                  #                                SPECIFIED AS A DISTANCE ALONG THE PASSIVE VEHICLE
022095,000050:                                                                                                  #                                ORBIT
022096,000051:                                                                                                  #                (D)  OPTION     EQUALS 1 FOR SOI
022097,000052: 
022098,000053:                                                                                                  #        (2)     SOR MANEUVER
022099,000054: 
022100,000055:                                                                                                  #                (A)  TIG        TIME OF SOR MANEUVER
022101,000056:                                                                                                  #                (B)  CENTANG    AN OPTIONAL RESPECIFICATION OF 1 (B) ABOVE
022102,000057:                                                                                                  #                (C)  OPTION     EQUALS 2 FOR SOR
022103,000058:                                                                                                  #                (D)  DELTTIME   THE TIME REQUIRED TO TRAVERSE DELTA R WHEN
022104,000059:                                                                                                  #                                TRAVELING AT A VELOCITY EQUAL TO THE HORIZONTAL
022105,000060:                                                                                                  #                                VELOCITY OF THE PASSIVE VEHICLE - SAVED FROM
022106,000061:                                                                                                  #                                SOI PHASE
022107,000062:                                                                                                  #                (E)  TINT       TIME OF INTERCEPT (SOI) - SAVED FROM SOI PHASE
022108,000063: 
022109,000064:                                                                                                  #  OUTPUT
022110,000065: 
022111,000066:                                                                                                  #        (1)  TRKMKCNT   NUMBER OF MARKS
022112,000067:                                                                                                  #        (2)  TTOGO      TIME TO GO
022113,000068:                                                                                                  #        (3)  +MGA       MIDDLE GIMBAL ANGLE
022114,000069:                                                                                                  #        (4)  DSPTEM1    TIME OF INTERCEPT OF PASSIVE VEHICLE ORBIT
022115,000070:                                                                                                  #                        (FOR SOI ONLY)
022116,000071:                                                                                                  #        (5)  POSTTPI    PERIGEE ALTITUDE OF ACTIVE VEHICLE ORBIT AFTER
022117,000072:                                                                                                  #                        THE SOI (SOR) MANEUVER
022118,000073:                                                                                                  #        (6)  DELVTPI    MAGNITUDE OF DELTA V AT SOI (SOR) TIME
022119,000074:                                                                                                  #        (7)  DELVTPF    MAGNITUDE OF DELTA V AT INTERCEPT TIME
022120,000075:                                                                                                  #        (8)  DELVLVC    DELTA VELOCITY AT SOI (AND SOR) - LOCAL VERTICAL
022121,000076:                                                                                                  #                        COORDINATES
022122,000077: 
022123,000078:                                                                                                  #  SUBROUTINES USED
022124,000079: 
022125,000080:                                                                                                  #        AVFLAGA
022126,000081:                                                                                                  #        AVFLAGP
022127,000082:                                                                                                  #        VNDSPLY
022128,000083:                                                                                                  #        BANKCALL
022129,000084:                                                                                                  #        GOFLASHR
022130,000085:                                                                                                  #        GOTOPOOH
022131,000086:                                                                                                  #        BLANKET
022132,000087:                                                                                                  #        ENDOFJOB
022133,000088:                                                                                                  #        PREC/TT
022134,000089:                                                                                                  #        SELECTMU
022135,000090:                                                                                                  #        INTRPVP
022136,000091:                                                                                                  #        MAINRTNE
022137,000092: 
022138,000093: 04,2742                                           BANK     04                                    
022139,000094: 04,2000                                           SETLOC   STBLEORB                              
022140,000095: 04,2000                                           BANK                                           
022141,000096: 
022142,000097: 04,2742  E4,1770                                  EBANK=   SUBEXIT                               
022143,000098: 04,2742                                           COUNT*   $$/P3879                              
022144,000099: 
022145,000100: 04,2742           04627        P38                TC       AVFLAGA                               #  THIS VEHICLE ACTIVE
022146,000101: 04,2743           02745                           TC       +2                                    
022147,000102: 04,2744           04642        P78                TC       AVFLAGP                               #  OTHER VEHICLE ACTIVE
022148,000103: 04,2745           04647                           TC       P20FLGON                              #  SET UPDATFLG, TRACKFLG
022149,000104: 04,2746           33274                           CAF      V06N33SR                              #  DISPLAY TIG
022150,000105: 04,2747           03263                           TC       VNDSPLY                               
022151,000106: 04,2750           33275                           CAF      V06N55SR                              #  DISPLAY CENTANG
022152,000107: 04,2751           04676                           TCR      BANKCALL                              
022153,000108: 04,2752           21057                           CADR     GOFLASHR                              
022154,000109: 04,2753           14106                           TCF      GOTOPOOH                              #  TERMINATE
022155,000110: 04,2754           12761                           TCF      +5                                    #  PROCEED
022156,000111: 04,2755           12750                           TCF      -5                                    #  RECYCLE
022157,000112: 04,2756           36214                           CAF      THREE                                 #  IMMEDIATE RETURN - BLANK R1, R2
022158,000113: 04,2757           05542                           TCR      BLANKET                               
022159,000114: 04,2760           15233                           TCF      ENDOFJOB                              
022160,000115: 04,2761           35036                           CAF      FIVE                                  
022161,000116: 04,2762           55131                           TS       OPTION1                               
022162,000117: 04,2763           35033                           CAF      ONE                                   
022163,000118: 04,2764           55132                           TS       OPTION2                               #  OPTION CODE IS SET TO 1
022164,000119: 04,2765           33276                           CAF      V04N06SR                              #  DISPLAY OPTION CODE -1 = SOI, 2 = SOR
022165,000120: 04,2766           04676                           TCR      BANKCALL                              
022166,000121: 04,2767           21057                           CADR     GOFLASHR                              
022167,000122: 04,2770           14106                           TCF      GOTOPOOH                              #  TERMINATE
022168,000123: 04,2771           12776                           TCF      +5                                    #  PROCEED
022169,000124: 04,2772           12765                           TCF      -5                                    #  RECYCLE
022170,000125: 04,2773           35031                           CAF      BIT3                                  #  IMMEDIATE RETURN - BLANK R3
022171,000126: 04,2774           05542                           TCR      BLANKET                               
022172,000127: 04,2775           15233                           TCF      ENDOFJOB                              
022173,000128: 04,2776           06006                           TC       INTPRET                               
022174,000129: 04,2777           77731                           SSP                                            
022175,000130: 04,3000           03766                                    NN                                    
022176,000131: 04,3001           00002                                    2                                     
022177,000132: 04,3002           70535                           SLOAD    SR1                                   
022178,000133: 04,3003           01133                                    OPTION2                               
022179,000134: 04,3004           71230                           BHIZ     DLOAD                                 
022180,000135: 04,3005           11013                                    OPTN1                                 
022181,000136: 04,3006           03656                                    TINT                                  
022182,000137: 04,3007           02611                           STORE    TINTSOI                               #  STORE FOR SOR PHASE
022183,000138: 04,3010           77614                           CLRGO                                          
022184,000139: 04,3011           01230                                    OPTNSW                                #  OPTNSW; ON = SOI, OFF = SOR
022185,000140: 04,3012           11042                                    JUNCTN1                               
022186,000141: 04,3013           43014        OPTN1              SET      CLEAR                                 #  SOI
022187,000142: 04,3014           01070                                    OPTNSW                                
022188,000143: 04,3015           00670                                    UPDATFLG                              
022189,000144: 04,3016           77624                           CALL                                           
022190,000145: 04,3017           11216                                    PREC/TT                               
022191,000146: 04,3020           43214                           SET      DAD                                   
022192,000147: 04,3021           00470                                    UPDATFLG                              
022193,000148: 04,3022           03413                                    TIG                                   
022194,000149: 04,3023           03656                           STORE    TINT                                  #  TI = TIG + TF
022195,000150: 04,3024           01046                           STORE    DSPTEM1                               #  FOR DISPLAY
022196,000151: 04,3025           77776                           EXIT                                           
022197,000152: 04,3026           33277                           CAF      V06N57SR                              #  DISPLAY DELTA R
022198,000153: 04,3027           04676                           TCR      BANKCALL                              
022199,000154: 04,3030           21057                           CADR     GOFLASHR                              
022200,000155: 04,3031           14106                           TCF      GOTOPOOH                              #  TERMINATE
022201,000156: 04,3032           13037                           TCF      +5                                    #  PROCEED
022202,000157: 04,3033           13026                           TCF      -5                                    #  RECYCLE
022203,000158: 04,3034           36211                           CAF      SIX                                   #  IMMEDIATE RETURN - BLANK R2, R3
022204,000159: 04,3035           05542                           TCR      BLANKET                               
022205,000160: 04,3036           15233                           TCF      ENDOFJOB                              
022206,000161: 04,3037           33300                           CAF      V06N34SR                              #  DISPLAY TIME OF INTERCEPT
022207,000162: 04,3040           03263                           TC       VNDSPLY                               
022208,000163: 04,3041           06006                           TC       INTPRET                               
022209,000164: 04,3042           45014        JUNCTN1            CLEAR    CALL                                  
022210,000165: 04,3043           04266                                    P39/79SW                              
022211,000166: 04,3044           10712                                    SELECTMU                              #  SELECT MU, CLEAR FINALFLG, GO TO VN1645
022212,000167: 04,3045           77624        RECYCLE            CALL                                           
022213,000168: 04,3046           11216                                    PREC/TT                               
022214,000169: 04,3047           71214                           BOFF     DLOAD                                 
022215,000170: 04,3050           01350                                    OPTNSW                                
022216,000171: 04,3051           11071                                    OPTN2                                 
022217,000172: 04,3052           03656                                    TINT                                  
022218,000173: 04,3053           34041                           STCALL   TDEC1                                 #  PRECISION UPDATE PASSIVE VEHICLE TO
022219,000174: 04,3054           11247                                    INTRPVP                               #  INTERCEPT TIME
022220,000175: 04,3055           53575                           VLOAD    UNIT                                  
022221,000176: 04,3056           00001                                    RATT                                  #  RP/(RP)
022222,000177: 04,3057           47315                           PDVL     VXV                                   
022223,000178: 04,3060           00007                                    VATT                                  
022224,000179: 04,3061           60246                           ABVAL    NORM                                  #  (VP X RP/(RP))
022225,000180: 04,3062           00047                                    X1                                    
022226,000181: 04,3063           56325                           PDDL     DDV                                   
022227,000182: 04,3064           02611                                    DELTAR                                
022228,000183: 04,3065           77657                           SL*                                            #  DELTA R / (VP X RP/RP)
022229,000184: 04,3066           20172                                    0          -7,1                       
022230,000185: 04,3067           36613                           STCALL   DELTTIME                              #  DELTA T = (RP) DELTA R / (VP X RP)
022231,000186: 04,3070           11075                                    JUNCTN2                               
022232,000187: 04,3071           43345        OPTN2              DLOAD    DAD                                   
022233,000188: 04,3072           02611                                    TINTSOI                               
022234,000189: 04,3073           00037                                    T                                     
022235,000190: 04,3074           03656                           STORE    TINT                                  #  TI = TI + TF
022236,000191: 04,3075           45345        JUNCTN2            DLOAD    DSU                                   
022237,000192: 04,3076           03656                                    TINT                                  
022238,000193: 04,3077           02613                                    DELTTIME                              
022239,000194: 04,3100           02615                           STORE    TARGTIME                              #  TT = TI - DELTA T
022240,000195: 
022241,000196:                                                                                                  #  .... MAINRTNE ....
022242,000197: 
022243,000198:                                                                                                  #  SUBROUTINES USED
022244,000199: 
022245,000200:                                                                                                  #        S3435.25
022246,000201:                                                                                                  #        PERIAPO1
022247,000202:                                                                                                  #        SHIFTR1
022248,000203:                                                                                                  #        VNDSPLY
022249,000204:                                                                                                  #        BANKCALL
022250,000205:                                                                                                  #        GOFLASH
022251,000206:                                                                                                  #        GOTOPOOH
022252,000207:                                                                                                  #        VN1645
022253,000208: 
022254,000209: 04,3101           34041        MAINRTNE           STCALL   TDEC1                                 #  PRECISION UPDATE PASSIVE VEHICLE TO
022255,000210: 04,3102           11247                                    INTRPVP                               #        TARGET TIME
022256,000211: 04,3103           77745                           DLOAD                                          
022257,000212: 04,3104           03413                                    TIG                                   
022258,000213: 04,3105           03503                           STORE    INTIME                                
022259,000214: 04,3106           77331                           SSP      VLOAD                                 
022260,000215: 04,3107           02371                                    SUBEXIT                               
022261,000216: 04,3110           11114                                    TEST3979                              
022262,000217: 04,3111           00001                                    RATT                                  
022263,000218: 04,3112           77624                           CALL                                           
022264,000219: 04,3113           72546                                    S3435.25                              
022265,000220: 04,3114           43014        TEST3979           BOFF     BON                                   
022266,000221: 04,3115           04346                                    P39/79SW                              
022267,000222: 04,3116           11125                                    MAINRTN1                              
022268,000223: 04,3117           01311                                    FINALFLG                              
022269,000224: 04,3120           11123                                    P39P79                                
022270,000225: 04,3121           77614                           SET                                            
022271,000226: 04,3122           00470                                    UPDATFLG                              
022272,000227: 04,3123           77776        P39P79             EXIT                                           
022273,000228: 04,3124           03152                           TC       DSPLY81                               #  FOR P39 AND P79
022274,000229: 04,3125           51575        MAINRTN1           VLOAD    ABVAL                                 
022275,000230: 04,3126           03646                                    DELVEET3                              
022276,000231: 04,3127           26635                           STOVL    DELVTPI                               #  DELTA V
022277,000232: 04,3130           03640                                    VPASS4                                
022278,000233: 04,3131           51451                           VSU      ABVAL                                 
022279,000234: 04,3132           03620                                    VTPRIME                               
022280,000235: 04,3133           26637                           STOVL    DELVTPF                               #  DELTA V (FINAL) = V'T - VT
022281,000236: 04,3134           03540                                    RACT3                                 
022282,000237: 04,3135           45115                           PDVL     CALL                                  
022283,000238: 04,3136           03612                                    VIPRIME                               
022284,000239: 04,3137           45153                                    PERIAPO1                              #  GET PERIGEE ALTITUDE
022285,000240: 04,3140           77624                           CALL                                           
022286,000241: 04,3141           45263                                    SHIFTR1                               
022287,000242: 04,3142           02641                           STORE    POSTTPI                               
022288,000243: 04,3143           43014                           BON      SET                                   
022289,000244: 04,3144           01311                                    FINALFLG                              
022290,000245: 04,3145           11147                                    DSPLY58                               
022291,000246: 04,3146           00470                                    UPDATFLG                              
022292,000247: 04,3147           77776        DSPLY58            EXIT                                           
022293,000248: 04,3150           33301                           CAF      V06N58SR                              #  DISPLAY HP, DELTA V, DELTA V (FINAL)
022294,000249: 04,3151           03263                           TC       VNDSPLY                               
022295,000250: 04,3152           33302        DSPLY81            CAF      V06N81SR                              #  DISPLAY DELTA V (LV)
022296,000251: 04,3153           03263                           TC       VNDSPLY                               
022297,000252: 04,3154           06006                           TC       INTPRET                               
022298,000253: 04,3155           77214                           CLEAR    VLOAD                                 
022299,000254: 04,3156           01267                                    XDELVFLG                              
022300,000255: 04,3157           03646                                    DELVEET3                              
022301,000256: 04,3160           37646                           STCALL   DELVSIN                               
022302,000257: 04,3161           73002                                    VN1645                                #  DISPLAY TRKMKCNT, TTOGO, +MGA
022303,000258: 04,3162           52014                           BON      GOTO                                  
022304,000259: 04,3163           04306                                    P39/79SW                              
022305,000260: 04,3164           11203                                    P39/P79B                              
022306,000261: 04,3165           11045                                    RECYCLE                               
022307,000262: 
022308,000263:                                                                                                  #  STABLE ORBIT MIDCOURSE PROGRAM (P39 AND P79)
022309,000264: 
022310,000265:                                                                                                  #  MOD NO -1             LOG SECTION - STABLE ORBIT - P38-P39
022311,000266:                                                                                                  #  MOD BY RUDNICKI.S     DATE 25JAN68
022312,000267: 
022313,000268:                                                                                                  #  FUNCTIONAL DESCRIPTION
022314,000269: 
022315,000270:                                                                                                  #        P39 AND P79 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
022316,000271:                                                                                                  #        CONDITIONS REQUIRED BY THE AGC TO MAKE A MIDCOURSE CORRECTION
022317,000272:                                                                                                  #        MANEUVER AFTER COMPLETING THE SOI MANEUVER BUT BEFORE MAKING
022318,000273:                                                                                                  #        THE SOR MANEUVER
022319,000274: 
022320,000275:                                                                                                  #  CALLING SEQUENCE
022321,000276: 
022322,000277:                                                                                                  #        ASTRONAUT REQUEST THRU DSKY
022323,000278: 
022324,000279:                                                                                                  #        V37E39E         IF THIS VEHICLE IS ACTIVE VEHICLE
022325,000280:                                                                                                  #        V37E79E         IF OTHER VEHICLE IS ACTIVE VEHICLE
022326,000281: 
022327,000282:                                                                                                  #  INPUT
022328,000283: 
022329,000284:                                                                                                  #        (1)  TPASS4     TIME OF INTERCEPT - SAVED FROM P38/P78
022330,000285:                                                                                                  #        (2)  TARGTIME   TIME THAT PASSIVE VEHICLE IS AT INTERCEPT POINT -
022331,000286:                                                                                                  #                        SAVED FROM P38/P78
022332,000287: 
022333,000288:                                                                                                  #  OUTPUT
022334,000289: 
022335,000290:                                                                                                  #        (1)  TRKMKCNT   NUMBER OF MARKS
022336,000291:                                                                                                  #        (2)  TTOGO      TIME TO GO
022337,000292:                                                                                                  #        (3)  +MGA       MIDDLE GIMBAL ANGLE
022338,000293:                                                                                                  #        (4)  DELVLVC    DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
022339,000294: 
022340,000295:                                                                                                  #  SUBROUTINES USED
022341,000296: 
022342,000297:                                                                                                  #        AVFLAGA
022343,000298:                                                                                                  #        AVFLAGP
022344,000299:                                                                                                  #        LOADTIME
022345,000300:                                                                                                  #        SELECTMU
022346,000301:                                                                                                  #        PRECSET
022347,000302:                                                                                                  #        S34/35.1
022348,000303:                                                                                                  #        MAINRTNE
022349,000304: 
022350,000305: 04,3166           04627        P39                TC       AVFLAGA                               #  THIS VEHICLE ACTIVE
022351,000306: 04,3167           00006                           EXTEND                                         
022352,000307: 04,3170           31422                           DCA      ATIGINC                               
022353,000308: 04,3171           03175                           TC       P39/P79A                              
022354,000309: 04,3172           04642        P79                TC       AVFLAGP                               #  OTHER VEHICLE ACTIVE
022355,000310: 04,3173           00006                           EXTEND                                         
022356,000311: 04,3174           31424                           DCA      PTIGINC                               
022357,000312: 04,3175           53764        P39/P79A           DXCH     KT                                    #  TIME TO PREPARE FOR BURN
022358,000313: 04,3176           04647                           TC       P20FLGON                              #  SET UPDATFLG, TRACKFLG
022359,000314: 04,3177           06006                           TC       INTPRET                               
022360,000315: 04,3200           45014                           SET      CALL                                  
022361,000316: 04,3201           04066                                    P39/79SW                              
022362,000317: 04,3202           10712                                    SELECTMU                              #  SELECT MU, CLEAR FINALFLG, GO TO VN1645
022363,000318: 04,3203           43234        P39/P79B           RTB      DAD                                   
022364,000319: 04,3204           45510                                    LOADTIME                              
022365,000320: 04,3205           02364                                    KT                                    
022366,000321: 04,3206           03413                           STORE    TIG                                   #  TIG = T (PRESENT) + PREPARATION TIME
022367,000322: 04,3207           34041                           STCALL   TDEC1                                 #  PRECISION UPDATE ACTIVE AND PASSIVE
022368,000323: 04,3210           45215                                    PRECSET                               #        VEHICLES TO TIG
022369,000324: 04,3211           77624                           CALL                                           
022370,000325: 04,3212           74000                                    S34/35.1                              #  GET UNIT NORMAL
022371,000326: 04,3213           52145                           DLOAD    GOTO                                  
022372,000327: 04,3214           02615                                    TARGTIME                              
022373,000328: 04,3215           11101                                    MAINRTNE                              #  CALCULATE DELTA V AND DELTA V (LV)
022374,000329: 
022375,000330:                                                                                                  #  .... PREC/TT ....
022376,000331: 
022377,000332:                                                                                                  #  SUBROUTINES USED
022378,000333: 
022379,000334:                                                                                                  #        PRECSET
022380,000335:                                                                                                  #        TIMETHET
022381,000336:                                                                                                  #        S34/35.1
022382,000337: 
022383,000338: 04,3216           71220        PREC/TT            STQ      DLOAD                                 
022384,000339: 04,3217           02367                                    RTRN                                  
022385,000340: 04,3220           03413                                    TIG                                   
022386,000341: 04,3221           34041                           STCALL   TDEC1                                 #  PRECISION UPDATE ACTIVE AND PASSIVE
022387,000342: 04,3222           45215                                    PRECSET                               #        VEHICLES TO TIG
022388,000343: 04,3223           53775                           VLOAD    VSR*                                  
022389,000344: 04,3224           03554                                    RPASS3                                
022390,000345: 04,3225           57176                                    0,2                                   
022391,000346: 04,3226           16657                           STODL    RVEC                                  
022392,000347: 04,3227           03754                                    CENTANG                               
022393,000348: 04,3230           71406                           PUSH     COS                                   
022394,000349: 04,3231           16734                           STODL    CSTH                                  
022395,000350: 04,3232           43156                           SIN      SET                                   
022396,000351: 04,3233           03466                                    RVSW                                  
022397,000352: 04,3234           26732                           STOVL    SNTH                                  
022398,000353: 04,3235           03562                                    VPASS3                                
022399,000354: 04,3236           77657                           VSR*                                           
022400,000355: 04,3237           57176                                    0,2                                   
022401,000356: 04,3240           36746                           STCALL   VVEC                                  #  GET TRANSFER TIME BASED ON CENTANG OF
022402,000357: 04,3241           24744                                    TIMETHET                              #        PASSIVE VEHICLE
022403,000358: 04,3242           77624                           CALL                                           
022404,000359: 04,3243           74000                                    S34/35.1                              #  GET UNIT NORMAL
022405,000360: 04,3244           52145                           DLOAD    GOTO                                  
022406,000361: 04,3245           00037                                    T                                     
022407,000362: 04,3246           02367                                    RTRN                                  
022408,000363: 
022409,000364:                                                                                                  #  .... INTRPVP ....
022410,000365: 
022411,000366:                                                                                                  #  SUBROUTINES USED
022412,000367: 
022413,000368:                                                                                                  #        CSMPREC
022414,000369:                                                                                                  #        LEMPREC
022415,000370: 
022416,000371: 04,3247           43020        INTRPVP            STQ      BOFF                                  #  PRECISION UPDATE PASSIVE VEHICLE TO
022417,000372: 04,3250           02367                                    RTRN                                  #        TDEC1
022418,000373: 04,3251           01352                                    AVFLAG                                
022419,000374: 04,3252           11257                                    OTHERV                                
022420,000375: 04,3253           77624                           CALL                                           
022421,000376: 04,3254           27100                                    CSMPREC                               
022422,000377: 04,3255           77650                           GOTO                                           
022423,000378: 04,3256           02367                                    RTRN                                  
022424,000379: 04,3257           77624        OTHERV             CALL                                           
022425,000380: 04,3260           27114                                    LEMPREC                               
022426,000381: 04,3261           77650                           GOTO                                           
022427,000382: 04,3262           02367                                    RTRN                                  
022428,000383: 
022429,000384:                                                                                                  #  .... VNDSPLY ....
022430,000385: 
022431,000386:                                                                                                  #  SUBROUTINES USED
022432,000387: 
022433,000388:                                                                                                  #        BANKCALL
022434,000389:                                                                                                  #        GOFLASH
022435,000390:                                                                                                  #        GOTOPOOH
022436,000391: 
022437,000392: 04,3263           00006        VNDSPLY            EXTEND                                         #  FLASH DISPLAY
022438,000393: 04,3264           23767                           QXCH     RTRN                                  
022439,000394: 04,3265           55765                           TS       VERBNOUN                              
022440,000395: 04,3266           31765                           CA       VERBNOUN                              
022441,000396: 04,3267           04676                           TCR      BANKCALL                              
022442,000397: 04,3270           20720                           CADR     GOFLASH                               
022443,000398: 04,3271           14106                           TCF      GOTOPOOH                              #  TERMINATE
022444,000399: 04,3272           01767                           TC       RTRN                                  #  PROCEED
022445,000400: 04,3273           13266                           TCF      -5                                    #  RECYCLE
022446,000401: 04,3274           01441        V06N33SR           VN       0633                                  
022447,000402: 04,3275           01467        V06N55SR           VN       0655                                  
022448,000403: 04,3276           01006        V04N06SR           VN       0406                                  
022449,000404: 04,3277           01471        V06N57SR           VN       0657                                  
022450,000405: 04,3300           01442        V06N34SR           VN       0634                                  
022451,000406: 04,3301           01472        V06N58SR           VN       0658                                  
022452,000407: 04,3302           01521        V06N81SR           VN       0681                                  
022453,000408: 

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