Source Code

These source-code files are part of a reconstructed copy of Comanche 72, the first release of the Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 13.

They have been adapted from sources files created from a listing of Comanche 55. These source files were updated to match binary dumps of a set of Comanche 67 rope modules. They were then further modified by applying known changes between Comanche 67 and Comanche 72. A binary dump of module B2 of Comanche 72, part number 2010802-021, was also used to validate changes made to banks 05-13. 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 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.

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

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