Source Code

These source-code files were from the printout at the MIT Museum, with many thanks to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing it to us. The printout was digitally photographed by Paul Fjeld. A team of volunteers transcribed the source code manually from these images or, where appropriate, modified already-transcribed but similar source Colossus 249 (Apollo 9) source code to agree with the images from the printout. Note that the page images presented online are of reduced quality, and that higher-quality images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051
	10:28 APR.  1,1969
Note that the date is the date of the printout, not the date of the program revision.

022790,000002:                                                                                                  ## Copyright:   Public domain.
022791,000003:                                                                                                  ## Filename:    STABLE_ORBIT.agc
022792,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus 2A, AKA Comanche 055.
022793,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
022794,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 11.
022795,000007:                                                                                                  ## Assembler:   yaYUL
022796,000008:                                                                                                  ## Contact:     Hartmuth Gutsche <hgutsche@xplornet.com>.
022797,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo.
022798,000010:                                                                                                  ## Pages:       525-532
022799,000011:                                                                                                  ## Mod history: 2009-05-10 HG   Started adapting from the Colossus249/ file
022800,000012:                                                                                                  ##                              of the same name, using Comanche055 page
022801,000013:                                                                                                  ##                              images 0525.jpg - 0532.jpg.
022802,000014:                                                                                                  ##              2010-08-20 JL   Fixed page number comment (p531).
022803,000015:                                                                                                  ##
022804,000016:                                                                                                  ## This source code has been transcribed or otherwise adapted from digitized
022805,000017:                                                                                                  ## images of a hardcopy from the MIT Museum.  The digitization was performed
022806,000018:                                                                                                  ## by Paul Fjeld, and arranged for by Deborah Douglas of the Museum.  Many
022807,000019:                                                                                                  ## thanks to both.  The images (with suitable reduction in storage size and
022808,000020:                                                                                                  ## consequent reduction in image quality as well) are available online at
022809,000021:                                                                                                  ## www.ibiblio.org/apollo.  If for some reason you find that the images are
022810,000022:                                                                                                  ## illegible, contact me at info@sandroid.org about getting access to the 
022811,000023:                                                                                                  ## (much) higher-quality images which Paul actually created.
022812,000024:                                                                                                  ##
022813,000025:                                                                                                  ## Notations on the hardcopy document read, in part:
022814,000026:                                                                                                  ##
022815,000027:                                                                                                  ##    Assemble revision 055 of AGC program Comanche by NASA
022816,000028:                                                                                                  ##    2021113-051.  10:28 APR. 1, 1969  
022817,000029:                                                                                                  ##
022818,000030:                                                                                                  ##    This AGC program shall also be referred to as
022819,000031:                                                                                                  ##            Colossus 2A

Page 525

022821,000033:                                                                                                  #  STABLE ORBIT RENDEZVOUS PROGRAMS (P38 AND P78)
022822,000034: 
022823,000035:                                                                                                  #  MOD NO -1             LOG SECTION - STABLE ORBIT - P38-P39
022824,000036:                                                                                                  #  MOD BY RUDNICKI.S     DATE 25JAN68
022825,000037: 
022826,000038:                                                                                                  #  FUNCTIONAL DESCRIPTION
022827,000039: 
022828,000040:                                                                                                  #        P38 AND P78 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
022829,000041:                                                                                                  #        CONDITIONS REQUIRED BY THE AGC TO (1) PUT THE ACTIVE VEHICLE
022830,000042:                                                                                                  #        ON A TRANSFER TRAJECTORY THAT INTERCEPTS THE PASSIVE VEHICLE
022831,000043:                                                                                                  #        ORBIT A GIVEN DISTANCE, DELTA R, EITHER AHEAD OF OR BEHIND THE
022832,000044:                                                                                                  #        PASSIVE VEHICLE AND (2) ACTUALLY PLACE THE ACTIVE VEHICLE IN THE
022833,000045:                                                                                                  #        PASSIVE VEHICLE ORBIT WITH A DELTA R SEPARATION BETWEEN THE TWO
022834,000046:                                                                                                  #        VEHICLES
022835,000047: 
022836,000048:                                                                                                  #  CALLING SEQUENCE
022837,000049: 
022838,000050:                                                                                                  #        ASTRONAUT REQUEST THRU DSKY
022839,000051: 
022840,000052:                                                                                                  #        V37E38E         IF THIS VEHICLE IS ACTIVE VEHICLE
022841,000053:                                                                                                  #        V37E78E         IF OTHER VEHICLE IS ACTIVE VEHICLE
022842,000054: 
022843,000055:                                                                                                  #  INPUT
022844,000056: 
022845,000057:                                                                                                  #        (1)     SOI MANEUVER
022846,000058: 
022847,000059:                                                                                                  #                (A)  TIG        TIME OF SOI MANEUVER
022848,000060:                                                                                                  #                (B)  CENTANG    ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE
022849,000061:                                                                                                  #                                DURING THE TRANSFER FROM TIG TO TIME OF INTERCEPT
022850,000062:                                                                                                  #                (C)  DELTAR     THE DESIRED SEPARATION OF THE TWO VEHICLES
022851,000063:                                                                                                  #                                SPECIFIED AS A DISTANCE ALONG THE PASSIVE VEHICLE
022852,000064:                                                                                                  #                                ORBIT
022853,000065:                                                                                                  #                (D)  OPTION     EQUALS 1 FOR SOI
022854,000066: 
022855,000067:                                                                                                  #        (2)     SOR MANEUVER
022856,000068: 
022857,000069:                                                                                                  #                (A)  TIG        TIME OF SOR MANEUVER
022858,000070:                                                                                                  #                (B)  CENTANG    AN OPTIONAL RESPECIFICATION OF 1 (B) ABOVE
022859,000071:                                                                                                  #                (C)  OPTION     EQUALS 2 FOR SOR
022860,000072:                                                                                                  #                (D)  DELTTIME   THE TIME REQUIRED TO TRAVERSE DELTA R WHEN
022861,000073:                                                                                                  #                                TRAVELING AT A VELOCITY EQUAL TO THE HORIZONTAL
022862,000074:                                                                                                  #                                VELOCITY OF THE PASSIVE VEHICLE - SAVED FROM
022863,000075:                                                                                                  #                                SOI PHASE
022864,000076:                                                                                                  #                (E)  TINT       TIME OF INTERCEPT (SOI) - SAVED FROM SOI PHASE
022865,000077: 
022866,000078:                                                                                                  #  OUTPUT
022867,000079: 
022868,000080:                                                                                                  #        (1)  TRKMKCNT   NUMBER OF MARKS
022869,000081:                                                                                                  #        (2)  TTOGO      TIME TO GO
022870,000082:                                                                                                  #        (3)  +MGA       MIDDLE GIMBAL ANGLE

Page 526

022872,000084:                                                                                                  #        (4)  DSPTEM1    TIME OF INTERCEPT OF PASSIVE VEHICLE ORBIT
022873,000085:                                                                                                  #                        (FOR SOI ONLY)
022874,000086:                                                                                                  #        (5)  POSTTPI    PERIGEE ALTITUDE OF ACTIVE VEHICLE ORBIT AFTER
022875,000087:                                                                                                  #                        THE SOI (SOR) MANEUVER
022876,000088:                                                                                                  #        (6)  DELVTPI    MAGNITUDE OF DELTA V AT SOI (SOR) TIME
022877,000089:                                                                                                  #        (7)  DELVTPF    MAGNITUDE OF DELTA V AT INTERCEPT TIME
022878,000090:                                                                                                  #        (8)  DELTA      VELOCITY AT SOI (AND SOR) - LOCAL VERTICAL
022879,000091:                                                                                                  #                        CORDINATES
022880,000092: 
022881,000093:                                                                                                  #  SUBROUTINES USED
022882,000094: 
022883,000095:                                                                                                  #        AVFLAGA
022884,000096:                                                                                                  #        AVFLAGP
022885,000097:                                                                                                  #        VNDSPLY
022886,000098:                                                                                                  #        BANKCALL
022887,000099:                                                                                                  #        GOFLASHR
022888,000100:                                                                                                  #        GOTOP00H
022889,000101:                                                                                                  #        BLANKET
022890,000102:                                                                                                  #        ENDOFJOB
022891,000103:                                                                                                  #        PREC/TT
022892,000104:                                                                                                  #        SELECTMU
022893,000105:                                                                                                  #        INTRPVP
022894,000106:                                                                                                  #        MAINRTNE
022895,000107: 
022896,000108: 04,2742                                           BANK     04                                    
022897,000109: 04,2000                                           SETLOC   STBLEORB                              
022898,000110: 04,2000                                           BANK                                           
022899,000111: 
022900,000112: 04,2742  E4,1770                                  EBANK=   SUBEXIT                               
022901,000113: 04,2742                                           COUNT*   $$/P3879                              
022902,000114: 
022903,000115: 04,2742           04627        P38                TC       AVFLAGA                               #  THIS VEHICLE ACTIVE
022904,000116: 04,2743           02745                           TC       +2                                    
022905,000117: 04,2744           04642        P78                TC       AVFLAGP                               #  OTHER VEHICLE ACTIVE
022906,000118: 04,2745           04647                           TC       P20FLGON                              #  SET UPDATFLG, TRACKFLG
022907,000119: 04,2746           33274                           CAF      V06N33SR                              #  DISPLAY TIG
022908,000120: 04,2747           03263                           TC       VNDSPLY                               
022909,000121: 04,2750           33275                           CAF      V06N55SR                              #  DISPLAY CENTANG
022910,000122: 04,2751           04662                           TCR      BANKCALL                              
022911,000123: 04,2752           21057                           CADR     GOFLASHR                              
022912,000124: 04,2753           14106                           TCF      GOTOP00H                              #  TERMINATE
022913,000125: 04,2754           12761                           TCF      +5                                    #  PROCEED
022914,000126: 04,2755           12750                           TCF      -5                                    #  RECYCLE
022915,000127: 04,2756           36214                           CAF      THREE                                 #  IMMEDIATE RETURN -- BLANK R1, R2
022916,000128: 04,2757           05526                           TCR      BLANKET                               
022917,000129: 04,2760           15217                           TCF      ENDOFJOB                              
022918,000130: 04,2761           35022                           CAF      FIVE                                  
022919,000131: 04,2762           55131                           TS       OPTION1                               
022920,000132: 04,2763           35017                           CAF      ONE                                   
022921,000133: 04,2764           55132                           TS       OPTION2                               #  OPTION CODE IS SET TO 1

Page 527

022923,000135: 04,2765           33276                           CAF      V04N06SR                              #  DISPLAY OPTION CODE -1 = SOI, 2 = SOR
022924,000136: 04,2766           04662                           TCR      BANKCALL                              
022925,000137: 04,2767           21057                           CADR     GOFLASHR                              
022926,000138: 04,2770           14106                           TCF      GOTOP00H                              #  TERMINATE
022927,000139: 04,2771           12776                           TCF      +5                                    #  PROCEED
022928,000140: 04,2772           12765                           TCF      -5                                    #  RECYCLE
022929,000141: 04,2773           35015                           CAF      BIT3                                  #  IMMEDIATE RETURN -- BLANK R3
022930,000142: 04,2774           05526                           TCR      BLANKET                               
022931,000143: 04,2775           15217                           TCF      ENDOFJOB                              
022932,000144: 04,2776           06006                           TC       INTPRET                               
022933,000145: 04,2777           77731                           SSP                                            
022934,000146: 04,3000           03766                                    NN                                    
022935,000147: 04,3001           00002                                    2                                     
022936,000148: 04,3002           70535                           SLOAD    SR1                                   
022937,000149: 04,3003           01133                                    OPTION2                               
022938,000150: 04,3004           71230                           BHIZ     DLOAD                                 
022939,000151: 04,3005           11013                                    OPTN1                                 
022940,000152: 04,3006           03656                                    TINT                                  
022941,000153: 04,3007           02611                           STORE    TINTSOI                               #  STORE FOR SOR PHASE
022942,000154: 04,3010           77614                           CLRGO                                          
022943,000155: 04,3011           01230                                    OPTNSW                                #  OPTNSW: ON = SOI. OFF = SOR
022944,000156: 04,3012           11042                                    JUNCTN1                               
022945,000157: 04,3013           43014        OPTN1              SET      CLEAR                                 #  SOI
022946,000158: 04,3014           01070                                    OPTNSW                                
022947,000159: 04,3015           00670                                    UPDATFLG                              
022948,000160: 04,3016           77624                           CALL                                           
022949,000161: 04,3017           11216                                    PREC/TT                               
022950,000162: 04,3020           43214                           SET      DAD                                   
022951,000163: 04,3021           00470                                    UPDATFLG                              
022952,000164: 04,3022           03413                                    TIG                                   
022953,000165: 04,3023           03656                           STORE    TINT                                  #  TI = TIG + TF
022954,000166: 04,3024           01046                           STORE    DSPTEM1                               #  FOR DISPLAY
022955,000167: 04,3025           77776                           EXIT                                           
022956,000168: 04,3026           33277                           CAF      V06N57SR                              #  DISPLAY DELTA R
022957,000169: 04,3027           04662                           TCR      BANKCALL                              
022958,000170: 04,3030           21057                           CADR     GOFLASHR                              
022959,000171: 04,3031           14106                           TCF      GOTOP00H                              #  TERMINATE
022960,000172: 04,3032           13037                           TCF      +5                                    #  PROCEED
022961,000173: 04,3033           13026                           TCF      -5                                    #  RECYCLE
022962,000174: 04,3034           36211                           CAF      SIX                                   #  IMMEDIATE RETURN - BLANK R2, R3
022963,000175: 04,3035           05526                           TCR      BLANKET                               
022964,000176: 04,3036           15217                           TCF      ENDOFJOB                              
022965,000177: 04,3037           33300                           CAF      V06N34SR                              #  DISPLAY TIME OF INTERCEPT
022966,000178: 04,3040           03263                           TC       VNDSPLY                               
022967,000179: 04,3041           06006                           TC       INTPRET                               
022968,000180: 04,3042           45014        JUNCTN1            CLEAR    CALL                                  
022969,000181: 04,3043           04266                                    P39/79SW                              
022970,000182: 04,3044           10712                                    SELECTMU                              #  SELECT MU, CLEAR FINALFLG, GO TO VN1645
022971,000183: 04,3045           77624        RECYCLE            CALL                                           
022972,000184: 04,3046           11216                                    PREC/TT                               

Page 528

022974,000186: 04,3047           71214                           BOFF     DLOAD                                 
022975,000187: 04,3050           01350                                    OPTNSW                                
022976,000188: 04,3051           11071                                    OPTN2                                 
022977,000189: 04,3052           03656                                    TINT                                  
022978,000190: 04,3053           34041                           STCALL   TDEC1                                 #  PRECISION UPDATE PASSIVE VEHICLE TO
022979,000191: 04,3054           11247                                    INTRPVP                               #  INTERCEPT TIME
022980,000192: 04,3055           53575                           VLOAD    UNIT                                  
022981,000193: 04,3056           00001                                    RATT                                  #  RP/(RP)
022982,000194: 04,3057           47315                           PDVL     VXV                                   
022983,000195: 04,3060           00007                                    VATT                                  
022984,000196: 04,3061           60246                           ABVAL    NORM                                  #  (VP X RP/(RP))
022985,000197: 04,3062           00047                                    X1                                    
022986,000198: 04,3063           56325                           PDDL     DDV                                   
022987,000199: 04,3064           02611                                    DELTAR                                
022988,000200: 04,3065           77657                           SL*                                            #  DELTA R / (VP X RP/RP)
022989,000201: 04,3066           20172                                    0          -7,1                       
022990,000202: 04,3067           36613                           STCALL   DELTTIME                              #  DELTA T = (RP) DELTA R / (VP X RP)
022991,000203: 04,3070           11075                                    JUNCTN2                               
022992,000204: 04,3071           43345        OPTN2              DLOAD    DAD                                   
022993,000205: 04,3072           02611                                    TINTSOI                               
022994,000206: 04,3073           00037                                    T                                     
022995,000207: 04,3074           03656                           STORE    TINT                                  #  TI = TI + TF
022996,000208: 04,3075           45345        JUNCTN2            DLOAD    DSU                                   
022997,000209: 04,3076           03656                                    TINT                                  
022998,000210: 04,3077           02613                                    DELTTIME                              
022999,000211: 04,3100           02615                           STORE    TARGTIME                              #  TT = TI - DELTA T
023000,000212: 
023001,000213:                                                                                                  #  .... MAINRTNE ....
023002,000214: 
023003,000215:                                                                                                  #  SUBROUTINES USED
023004,000216: 
023005,000217:                                                                                                  #        S3435.25
023006,000218:                                                                                                  #        PERIAPO1
023007,000219:                                                                                                  #        SHIFTR1
023008,000220:                                                                                                  #        VNDSPLY
023009,000221:                                                                                                  #        BANKCALL
023010,000222:                                                                                                  #        GOFLASH
023011,000223:                                                                                                  #        GOTOP00H
023012,000224:                                                                                                  #        VN1645
023013,000225: 
023014,000226: 04,3101           34041        MAINRTNE           STCALL   TDEC1                                 #  PRECISION UPDATE PASSIVE VEHICLE TO
023015,000227: 04,3102           11247                                    INTRPVP                               #        TARGET TIME
023016,000228: 04,3103           77745                           DLOAD                                          
023017,000229: 04,3104           03413                                    TIG                                   
023018,000230: 04,3105           03503                           STORE    INTIME                                
023019,000231: 04,3106           77331                           SSP      VLOAD                                 
023020,000232: 04,3107           02371                                    SUBEXIT                               
023021,000233: 04,3110           11114                                    TEST3979                              
023022,000234: 04,3111           00001                                    RATT                                  
023023,000235: 04,3112           77624                           CALL                                           
023024,000236: 04,3113           72546                                    S3435.25                              
023025,000237: 04,3114           43014        TEST3979           BOFF     BON                                   

Page 529

023027,000239: 04,3115           04346                                    P39/79SW                              
023028,000240: 04,3116           11125                                    MAINRTN1                              
023029,000241: 04,3117           01311                                    FINALFLG                              
023030,000242: 04,3120           11123                                    P39P79                                
023031,000243: 04,3121           77614                           SET                                            
023032,000244: 04,3122           00470                                    UPDATFLG                              
023033,000245: 04,3123           77776        P39P79             EXIT                                           
023034,000246: 04,3124           03152                           TC       DSPLY81                               #  FOR P39 AND P79
023035,000247: 04,3125           51575        MAINRTN1           VLOAD    ABVAL                                 
023036,000248: 04,3126           03646                                    DELVEET3                              
023037,000249: 04,3127           26635                           STOVL    DELVTPI                               #  DELTA V
023038,000250: 04,3130           03640                                    VPASS4                                
023039,000251: 04,3131           51451                           VSU      ABVAL                                 
023040,000252: 04,3132           03620                                    VTPRIME                               
023041,000253: 04,3133           26637                           STOVL    DELVTPF                               #  DELTA V (FINAL) = V-T - VT
023042,000254: 04,3134           03540                                    RACT3                                 
023043,000255: 04,3135           45115                           PDVL     CALL                                  
023044,000256: 04,3136           03612                                    VIPRIME                               
023045,000257: 04,3137           45153                                    PERIAPO1                              #  GET PERIGEE ALTITUDE
023046,000258: 04,3140           77624                           CALL                                           
023047,000259: 04,3141           45263                                    SHIFTR1                               
023048,000260: 04,3142           02641                           STORE    POSTTPI                               
023049,000261: 04,3143           43014                           BON      SET                                   
023050,000262: 04,3144           01311                                    FINALFLG                              
023051,000263: 04,3145           11147                                    DSPLY58                               
023052,000264: 04,3146           00470                                    UPDATFLG                              
023053,000265: 04,3147           77776        DSPLY58            EXIT                                           
023054,000266: 04,3150           33301                           CAF      V06N58SR                              #  DISPLAY HP, DELTA V, DELTA V (FINAL)
023055,000267: 04,3151           03263                           TC       VNDSPLY                               
023056,000268: 04,3152           33302        DSPLY81            CAF      V06N81SR                              #  DISPLAY DELTA V (LV)
023057,000269: 04,3153           03263                           TC       VNDSPLY                               
023058,000270: 04,3154           06006                           TC       INTPRET                               
023059,000271: 04,3155           77214                           CLEAR    VLOAD                                 
023060,000272: 04,3156           01267                                    XDELVFLG                              
023061,000273: 04,3157           03646                                    DELVEET3                              
023062,000274: 04,3160           37646                           STCALL   DELVSIN                               
023063,000275: 04,3161           73002                                    VN1645                                #  DISPLAY TRKMKCNT, TTOGO, +MGA
023064,000276: 04,3162           52014                           BON      GOTO                                  
023065,000277: 04,3163           04306                                    P39/79SW                              
023066,000278: 04,3164           11203                                    P39/P79B                              
023067,000279: 04,3165           11045                                    RECYCLE                               
023068,000280: 
023069,000281:                                                                                                  #  STABLE ORBIT MIDCOURSE PROGRAM (P39 AND P79)
023070,000282: 
023071,000283:                                                                                                  #  MOD NO -1             LOG SECTION - STABLE ORBIT - P38-P39
023072,000284:                                                                                                  #  MOD BY RUDNICKI, S    DATE 25JAN68
023073,000285: 
023074,000286:                                                                                                  #  FUNCTIONAL DESCRIPTION
023075,000287: 
023076,000288:                                                                                                  #        P39 AND P79 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
023077,000289:                                                                                                  #        CONDITIONS REQUIRED BY THE AGC TO MAKE A MIDCOURSE CORRECTION

Page 530

023079,000291:                                                                                                  #        MANEUVER AFTER COMPLETING THE SOI MANEUVER BUT BEFORE MAKING
023080,000292:                                                                                                  #        THE SOR MANEUVER.
023081,000293: 
023082,000294:                                                                                                  #  CALLING SEQUENCE
023083,000295: 
023084,000296:                                                                                                  #        ASTRONAUT REQUEST THRU DSKY
023085,000297: 
023086,000298:                                                                                                  #        V37E39E         IF THIS VEHICLE IS ACTIVE VEHICLE
023087,000299:                                                                                                  #        V37E79E         IF OTHER VEHICLE IS ACTIVE VEHICLE
023088,000300: 
023089,000301:                                                                                                  #  INPUT
023090,000302: 
023091,000303:                                                                                                  #        (1)  TPASS4     TIME OF INTERCEPT -- SAVED FROM P38/P78
023092,000304:                                                                                                  #        (2)  TARGTIME   TIME THAT PASSIVE VEHICLE IS AT INTERCEPT POINT --
023093,000305:                                                                                                  #                        SAVED FROM P38/P78
023094,000306: 
023095,000307:                                                                                                  #  OUTPUT
023096,000308: 
023097,000309:                                                                                                  #        (1)  TRKMKCNT   NUMBER OF MARKS
023098,000310:                                                                                                  #        (2)  TTOGO      TIME TO GO
023099,000311:                                                                                                  #        (3)  +MGA       MIDDLE GIMBAL ANGLE
023100,000312:                                                                                                  #        (4)  DELVLVC    DELTA VELOCITY AT MID -- LOCAL VERTICAL COORDINATES
023101,000313: 
023102,000314:                                                                                                  #  SUBROUTINES USED
023103,000315: 
023104,000316:                                                                                                  #        AVFLAGA
023105,000317:                                                                                                  #        AVFLAGP
023106,000318:                                                                                                  #        LOADTIME
023107,000319:                                                                                                  #        SELECTMU
023108,000320:                                                                                                  #        PRECSET
023109,000321:                                                                                                  #        S34/35.1
023110,000322:                                                                                                  #        MAINRTNE
023111,000323: 
023112,000324: 04,3166           04627        P39                TC       AVFLAGA                               #  THIS VEHICLE ACTIVE
023113,000325: 04,3167           00006                           EXTEND                                         
023114,000326: 04,3170           31422                           DCA      ATIGINC                               
023115,000327: 04,3171           03175                           TC       P39/P79A                              
023116,000328: 04,3172           04642        P79                TC       AVFLAGP                               #  OTHER VEHICLE ACTIVE
023117,000329: 04,3173           00006                           EXTEND                                         
023118,000330: 04,3174           31424                           DCA      PTIGINC                               
023119,000331: 04,3175           53764        P39/P79A           DXCH     KT                                    #  TIME TO PREPARE FOR BURN
023120,000332: 04,3176           04647                           TC       P20FLGON                              #  SET UPDATFLG, TRACKFLG
023121,000333: 04,3177           06006                           TC       INTPRET                               
023122,000334: 04,3200           45014                           SET      CALL                                  
023123,000335: 04,3201           04066                                    P39/79SW                              
023124,000336: 04,3202           10712                                    SELECTMU                              #  SELECT MU, CLEAR FINALFLG, GO TO VN1645
023125,000337: 04,3203           43234        P39/P79B           RTB      DAD                                   
023126,000338: 04,3204           45510                                    LOADTIME                              
023127,000339: 04,3205           02364                                    KT                                    
023128,000340: 04,3206           03413                           STORE    TIG                                   #  TIG = T (PRESENT) + PREPARATION TIME

Page 531

023130,000342: 04,3207           34041                           STCALL   TDEC1                                 #  PRECISION UPDATE ACTIVE AND PASSIVE
023131,000343: 04,3210           45215                                    PRECSET                               #        VEHICLES TO TIG
023132,000344: 04,3211           77624                           CALL                                           
023133,000345: 04,3212           74000                                    S34/35.1                              #  GET UNIT NORMAL
023134,000346: 04,3213           52145                           DLOAD    GOTO                                  
023135,000347: 04,3214           02615                                    TARGTIME                              
023136,000348: 04,3215           11101                                    MAINRTNE                              #  CALCULATE DELTA V AND DELTA V (LV)
023137,000349: 
023138,000350:                                                                                                  #  .... PREC/TT ....
023139,000351: 
023140,000352:                                                                                                  #  SUBROUTINES USED
023141,000353: 
023142,000354:                                                                                                  #        PRECSET
023143,000355:                                                                                                  #        TIMETHET
023144,000356:                                                                                                  #        S34/35.1
023145,000357: 
023146,000358: 04,3216           71220        PREC/TT            STQ      DLOAD                                 
023147,000359: 04,3217           02367                                    RTRN                                  
023148,000360: 04,3220           03413                                    TIG                                   
023149,000361: 04,3221           34041                           STCALL   TDEC1                                 #  PRECISION UPDATE ACTIVE AND PASSIVE
023150,000362: 04,3222           45215                                    PRECSET                               #        VEHICLES TO TIG
023151,000363: 04,3223           53775                           VLOAD    VSR*                                  
023152,000364: 04,3224           03554                                    RPASS3                                
023153,000365: 04,3225           57176                                    0,2                                   
023154,000366: 04,3226           16657                           STODL    RVEC                                  
023155,000367: 04,3227           03754                                    CENTANG                               
023156,000368: 04,3230           71406                           PUSH     COS                                   
023157,000369: 04,3231           16734                           STODL    CSTH                                  
023158,000370: 04,3232           43156                           SIN      SET                                   
023159,000371: 04,3233           03466                                    RVSW                                  
023160,000372: 04,3234           26732                           STOVL    SNTH                                  
023161,000373: 04,3235           03562                                    VPASS3                                
023162,000374: 04,3236           77657                           VSR*                                           
023163,000375: 04,3237           57176                                    0,2                                   
023164,000376: 04,3240           36746                           STCALL   VVEC                                  #  GET TRANSFER TIME BASED ON CENTANG OF
023165,000377: 04,3241           24744                                    TIMETHET                              #        PASSIVE VEHICLE
023166,000378: 04,3242           77624                           CALL                                           
023167,000379: 04,3243           74000                                    S34/35.1                              #  GET UNIT NORMAL
023168,000380: 04,3244           52145                           DLOAD    GOTO                                  
023169,000381: 04,3245           00037                                    T                                     
023170,000382: 04,3246           02367                                    RTRN                                  
023171,000383: 
023172,000384:                                                                                                  #  .... INTRPVP ....
023173,000385: 
023174,000386:                                                                                                  #  SUBROUTINES USED
023175,000387: 
023176,000388:                                                                                                  #        CSMPREC
023177,000389:                                                                                                  #        LEMPREC
023178,000390: 
023179,000391: 04,3247           43020        INTRPVP            STQ      BOFF                                  #  PRECISION UPDATE PASSIVE VEHICLE TO
023180,000392: 04,3250           02367                                    RTRN                                  #        TDEC1
023181,000393: 04,3251           01352                                    AVFLAG                                
023182,000394: 04,3252           11257                                    OTHERV                                
023183,000395: 04,3253           77624                           CALL                                           

Page 532

023185,000397: 04,3254           27071                                    CSMPREC                               
023186,000398: 04,3255           77650                           GOTO                                           
023187,000399: 04,3256           02367                                    RTRN                                  
023188,000400: 04,3257           77624        OTHERV             CALL                                           
023189,000401: 04,3260           27105                                    LEMPREC                               
023190,000402: 04,3261           77650                           GOTO                                           
023191,000403: 04,3262           02367                                    RTRN                                  
023192,000404: 
023193,000405:                                                                                                  #  .... VNDSPLY ....
023194,000406: 
023195,000407:                                                                                                  #  SUBROUTINES USED
023196,000408: 
023197,000409:                                                                                                  #        BANKCALL
023198,000410:                                                                                                  #        GOFLASH
023199,000411:                                                                                                  #        GOTOP00H
023200,000412: 
023201,000413: 04,3263           00006        VNDSPLY            EXTEND                                         #  FLASH DISPLAY
023202,000414: 04,3264           23767                           QXCH     RTRN                                  
023203,000415: 04,3265           55765                           TS       VERBNOUN                              
023204,000416: 04,3266           31765                           CA       VERBNOUN                              
023205,000417: 04,3267           04662                           TCR      BANKCALL                              
023206,000418: 04,3270           20720                           CADR     GOFLASH                               
023207,000419: 04,3271           14106                           TCF      GOTOP00H                              #  TERMINATE
023208,000420: 04,3272           01767                           TC       RTRN                                  #  PROCEED
023209,000421: 04,3273           13266                           TCF      -5                                    #  RECYCLE
023210,000422: 04,3274           01441        V06N33SR           VN       0633                                  
023211,000423: 04,3275           01467        V06N55SR           VN       0655                                  
023212,000424: 04,3276           01006        V04N06SR           VN       0406                                  
023213,000425: 04,3277           01471        V06N57SR           VN       0657                                  
023214,000426: 04,3300           01442        V06N34SR           VN       0634                                  
023215,000427: 04,3301           01472        V06N58SR           VN       0658                                  
023216,000428: 04,3302           01521        V06N81SR           VN       0681                                  
023217,000429: 
023218,000430:                                                                                                  #  *** END OF COMEKISS.020 ***

End of include-file STABLE_ORBIT.agc.  Parent file is MAIN.agc