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.

022939,000002:                                                                                                  ## Copyright:   Public domain.
022940,000003:                                                                                                  ## Filename:    STABLE_ORBIT_-_P38-P39.agc
022941,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus 2A, AKA Comanche 055.
022942,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
022943,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 11.
022944,000007:                                                                                                  ## Assembler:   yaYUL
022945,000008:                                                                                                  ## Contact:     Hartmuth Gutsche <hgutsche@xplornet.com>.
022946,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo.
022947,000010:                                                                                                  ## Pages:       525-532
022948,000011:                                                                                                  ## Mod history: 2009-05-10 HG   Started adapting from the Colossus249/ file
022949,000012:                                                                                                  ##                              of the same name, using Comanche055 page
022950,000013:                                                                                                  ##                              images 0525.jpg - 0532.jpg.
022951,000014:                                                                                                  ##              2010-08-20 JL   Fixed page number comment (p531).
022952,000015:                                                                                                  ##              2016-12-10 RSB  Proofed comments with octopus/ProoferComments
022953,000016:                                                                                                  ##                              and fixed the errors found.
022954,000017:                                                                                                  ##              2016-12-10 RSB  All of the GOTOPOOH's should have been
022955,000018:                                                                                                  ##                              GOTOPOOH, and I've changed them back.
022956,000019:                                                                                                  ##              2017-01-19 RSB  Renamed from STABLE_ORBIT.agc to agree with 
022957,000020:                                                                                                  ##                              the actual name from the log section, and with
022958,000021:                                                                                                  ##                              the naming in Colossus 237.
022959,000022:                                                                                                  ##              2017-01-18 RSB  Fixed comment-text errors noted while diff'ing
022960,000023:                                                                                                  ##                              vs Colossus 249.
022961,000024:                                                                                                  ##              2017-03-17 RSB  Comment-text fixes identified in diff'ing
022962,000025:                                                                                                  ##                              Luminary 99 vs Comanche 55.
022963,000026: 
022964,000027:                                                                                                  ## This source code has been transcribed or otherwise adapted from digitized
022965,000028:                                                                                                  ## images of a hardcopy from the MIT Museum.  The digitization was performed
022966,000029:                                                                                                  ## by Paul Fjeld, and arranged for by Deborah Douglas of the Museum.  Many
022967,000030:                                                                                                  ## thanks to both.  The images (with suitable reduction in storage size and
022968,000031:                                                                                                  ## consequent reduction in image quality as well) are available online at
022969,000032:                                                                                                  ## www.ibiblio.org/apollo.  If for some reason you find that the images are
022970,000033:                                                                                                  ## illegible, contact me at info@sandroid.org about getting access to the 
022971,000034:                                                                                                  ## (much) higher-quality images which Paul actually created.
022972,000035:                                                                                                  ##
022973,000036:                                                                                                  ## Notations on the hardcopy document read, in part:
022974,000037:                                                                                                  ##
022975,000038:                                                                                                  ##    Assemble revision 055 of AGC program Comanche by NASA
022976,000039:                                                                                                  ##    2021113-051.  10:28 APR. 1, 1969  
022977,000040:                                                                                                  ##
022978,000041:                                                                                                  ##    This AGC program shall also be referred to as
022979,000042:                                                                                                  ##            Colossus 2A

Page 525

022981,000044:                                                                                                  #  STABLE ORBIT RENDEZVOUS PROGRAMS (P38 AND P78)
022982,000045: 
022983,000046:                                                                                                  #  MOD NO -1             LOG SECTION - STABLE ORBIT - P38-P39
022984,000047:                                                                                                  #  MOD BY RUDNICKI.S     DATE 25JAN68
022985,000048: 
022986,000049:                                                                                                  #  FUNCTIONAL DESCRIPTION
022987,000050: 
022988,000051:                                                                                                  #        P38 AND P78 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
022989,000052:                                                                                                  #        CONDITIONS REQUIRED BY THE AGC TO (1) PUT THE ACTIVE VEHICLE
022990,000053:                                                                                                  #        ON A TRANSFER TRAJECTORY THAT INTERCEPTS THE PASSIVE VEHICLE
022991,000054:                                                                                                  #        ORBIT A GIVEN DISTANCE, DELTA R, EITHER AHEAD OF OR BEHIND THE
022992,000055:                                                                                                  #        PASSIVE VEHICLE AND (2) ACTUALLY PLACE THE ACTIVE VEHICLE IN THE
022993,000056:                                                                                                  #        PASSIVE VEHICLE ORBIT WITH A DELTA R SEPARATION BETWEEN THE TWO
022994,000057:                                                                                                  #        VEHICLES
022995,000058: 
022996,000059:                                                                                                  #  CALLING SEQUENCE
022997,000060: 
022998,000061:                                                                                                  #        ASTRONAUT REQUEST THRU DSKY
022999,000062: 
023000,000063:                                                                                                  #        V37E38E         IF THIS VEHICLE IS ACTIVE VEHICLE
023001,000064:                                                                                                  #        V37E78E         IF OTHER VEHICLE IS ACTIVE VEHICLE
023002,000065: 
023003,000066:                                                                                                  #  INPUT
023004,000067: 
023005,000068:                                                                                                  #        (1)     SOI MANEUVER
023006,000069: 
023007,000070:                                                                                                  #                (A)  TIG        TIME OF SOI MANEUVER
023008,000071:                                                                                                  #                (B)  CENTANG    ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE
023009,000072:                                                                                                  #                                DURING TRANSFER FROM TIG TO TIME OF INTERCEPT
023010,000073:                                                                                                  #                (C)  DELTAR     THE DESIRED SEPARATION OF THE TWO VEHICLES
023011,000074:                                                                                                  #                                SPECIFIED AS A DISTANCE ALONG THE PASSIVE VEHICLE
023012,000075:                                                                                                  #                                ORBIT
023013,000076:                                                                                                  #                (D)  OPTION     EQUALS 1 FOR SOI
023014,000077: 
023015,000078:                                                                                                  #        (2)     SOR MANEUVER
023016,000079: 
023017,000080:                                                                                                  #                (A)  TIG        TIME OF SOR MANEUVER
023018,000081:                                                                                                  #                (B)  CENTANG    AN OPTIONAL RESPECIFICATION OF 1 (B) ABOVE
023019,000082:                                                                                                  #                (C)  OPTION     EQUALS 2 FOR SOR
023020,000083:                                                                                                  #                (D)  DELTTIME   THE TIME REQUIRED TO TRAVERSE DELTA R WHEN
023021,000084:                                                                                                  #                                TRAVELING AT A VELOCITY EQUAL TO THE HORIZONTAL
023022,000085:                                                                                                  #                                VELOCITY OF THE PASSIVE VEHICLE - SAVED FROM
023023,000086:                                                                                                  #                                SOI PHASE
023024,000087:                                                                                                  #                (E)  TINT       TIME OF INTERCEPT (SOI) - SAVED FROM SOI PHASE
023025,000088: 
023026,000089:                                                                                                  #  OUTPUT
023027,000090: 
023028,000091:                                                                                                  #        (1)  TRKMKCNT   NUMBER OF MARKS
023029,000092:                                                                                                  #        (2)  TTOGO      TIME TO GO
023030,000093:                                                                                                  #        (3)  +MGA       MIDDLE GIMBAL ANGLE

Page 526

023032,000095:                                                                                                  #        (4)  DSPTEM1    TIME OF INTERCEPT OF PASSIVE VEHICLE ORBIT
023033,000096:                                                                                                  #                        (FOR SOI ONLY)
023034,000097:                                                                                                  #        (5)  POSTTPI    PERIGEE ALTITUDE OF ACTIVE VEHICLE ORBIT AFTER
023035,000098:                                                                                                  #                        THE SOI (SOR) MANEUVER
023036,000099:                                                                                                  #        (6)  DELVTPI    MAGNITUDE OF DELTA V AT SOI (SOR) TIME
023037,000100:                                                                                                  #        (7)  DELVTPF    MAGNITUDE OF DELTA V AT INTERCEPT TIME
023038,000101:                                                                                                  #        (8)  DELVLVC    DELTA VELOCITY AT SOI (AND SOR) - LOCAL VERTICAL
023039,000102:                                                                                                  #                        COORDINATES
023040,000103: 
023041,000104:                                                                                                  #  SUBROUTINES USED
023042,000105: 
023043,000106:                                                                                                  #        AVFLAGA
023044,000107:                                                                                                  #        AVFLAGP
023045,000108:                                                                                                  #        VNDSPLY
023046,000109:                                                                                                  #        BANKCALL
023047,000110:                                                                                                  #        GOFLASHR
023048,000111:                                                                                                  #        GOTOPOOH
023049,000112:                                                                                                  #        BLANKET
023050,000113:                                                                                                  #        ENDOFJOB
023051,000114:                                                                                                  #        PREC/TT
023052,000115:                                                                                                  #        SELECTMU
023053,000116:                                                                                                  #        INTRPVP
023054,000117:                                                                                                  #        MAINRTNE
023055,000118: 
023056,000119: 04,2742                                           BANK     04                                    
023057,000120: 04,2000                                           SETLOC   STBLEORB                              
023058,000121: 04,2000                                           BANK                                           
023059,000122: 
023060,000123: 04,2742  E4,1770                                  EBANK=   SUBEXIT                               
023061,000124: 04,2742                                           COUNT*   $$/P3879                              
023062,000125: 
023063,000126: 04,2742           04627        P38                TC       AVFLAGA                               #  THIS VEHICLE ACTIVE
023064,000127: 04,2743           02745                           TC       +2                                    
023065,000128: 04,2744           04642        P78                TC       AVFLAGP                               #  OTHER VEHICLE ACTIVE
023066,000129: 04,2745           04647                           TC       P20FLGON                              #  SET UPDATFLG, TRACKFLG
023067,000130: 04,2746           33274                           CAF      V06N33SR                              #  DISPLAY TIG
023068,000131: 04,2747           03263                           TC       VNDSPLY                               
023069,000132: 04,2750           33275                           CAF      V06N55SR                              #  DISPLAY CENTANG
023070,000133: 04,2751           04662                           TCR      BANKCALL                              
023071,000134: 04,2752           21057                           CADR     GOFLASHR                              
023072,000135: 04,2753           14106                           TCF      GOTOPOOH                              #  TERMINATE
023073,000136: 04,2754           12761                           TCF      +5                                    #  PROCEED
023074,000137: 04,2755           12750                           TCF      -5                                    #  RECYCLE
023075,000138: 04,2756           36214                           CAF      THREE                                 #  IMMEDIATE RETURN - BLANK R1, R2
023076,000139: 04,2757           05526                           TCR      BLANKET                               
023077,000140: 04,2760           15217                           TCF      ENDOFJOB                              
023078,000141: 04,2761           35022                           CAF      FIVE                                  
023079,000142: 04,2762           55131                           TS       OPTION1                               
023080,000143: 04,2763           35017                           CAF      ONE                                   
023081,000144: 04,2764           55132                           TS       OPTION2                               #  OPTION CODE IS SET TO 1

Page 527

023083,000146: 04,2765           33276                           CAF      V04N06SR                              #  DISPLAY OPTION CODE -1 = SOI, 2 = SOR
023084,000147: 04,2766           04662                           TCR      BANKCALL                              
023085,000148: 04,2767           21057                           CADR     GOFLASHR                              
023086,000149: 04,2770           14106                           TCF      GOTOPOOH                              #  TERMINATE
023087,000150: 04,2771           12776                           TCF      +5                                    #  PROCEED
023088,000151: 04,2772           12765                           TCF      -5                                    #  RECYCLE
023089,000152: 04,2773           35015                           CAF      BIT3                                  #  IMMEDIATE RETURN - BLANK R3
023090,000153: 04,2774           05526                           TCR      BLANKET                               
023091,000154: 04,2775           15217                           TCF      ENDOFJOB                              
023092,000155: 04,2776           06006                           TC       INTPRET                               
023093,000156: 04,2777           77731                           SSP                                            
023094,000157: 04,3000           03766                                    NN                                    
023095,000158: 04,3001           00002                                    2                                     
023096,000159: 04,3002           70535                           SLOAD    SR1                                   
023097,000160: 04,3003           01133                                    OPTION2                               
023098,000161: 04,3004           71230                           BHIZ     DLOAD                                 
023099,000162: 04,3005           11013                                    OPTN1                                 
023100,000163: 04,3006           03656                                    TINT                                  
023101,000164: 04,3007           02611                           STORE    TINTSOI                               #  STORE FOR SOR PHASE
023102,000165: 04,3010           77614                           CLRGO                                          
023103,000166: 04,3011           01230                                    OPTNSW                                #  OPTNSW; ON = SOI, OFF = SOR
023104,000167: 04,3012           11042                                    JUNCTN1                               
023105,000168: 04,3013           43014        OPTN1              SET      CLEAR                                 #  SOI
023106,000169: 04,3014           01070                                    OPTNSW                                
023107,000170: 04,3015           00670                                    UPDATFLG                              
023108,000171: 04,3016           77624                           CALL                                           
023109,000172: 04,3017           11216                                    PREC/TT                               
023110,000173: 04,3020           43214                           SET      DAD                                   
023111,000174: 04,3021           00470                                    UPDATFLG                              
023112,000175: 04,3022           03413                                    TIG                                   
023113,000176: 04,3023           03656                           STORE    TINT                                  #  TI = TIG + TF
023114,000177: 04,3024           01046                           STORE    DSPTEM1                               #  FOR DISPLAY
023115,000178: 04,3025           77776                           EXIT                                           
023116,000179: 04,3026           33277                           CAF      V06N57SR                              #  DISPLAY DELTA R
023117,000180: 04,3027           04662                           TCR      BANKCALL                              
023118,000181: 04,3030           21057                           CADR     GOFLASHR                              
023119,000182: 04,3031           14106                           TCF      GOTOPOOH                              #  TERMINATE
023120,000183: 04,3032           13037                           TCF      +5                                    #  PROCEED
023121,000184: 04,3033           13026                           TCF      -5                                    #  RECYCLE
023122,000185: 04,3034           36211                           CAF      SIX                                   #  IMMEDIATE RETURN - BLANK R2, R3
023123,000186: 04,3035           05526                           TCR      BLANKET                               
023124,000187: 04,3036           15217                           TCF      ENDOFJOB                              
023125,000188: 04,3037           33300                           CAF      V06N34SR                              #  DISPLAY TIME OF INTERCEPT
023126,000189: 04,3040           03263                           TC       VNDSPLY                               
023127,000190: 04,3041           06006                           TC       INTPRET                               
023128,000191: 04,3042           45014        JUNCTN1            CLEAR    CALL                                  
023129,000192: 04,3043           04266                                    P39/79SW                              
023130,000193: 04,3044           10712                                    SELECTMU                              #  SELECT MU, CLEAR FINALFLG, GO TO VN1645
023131,000194: 04,3045           77624        RECYCLE            CALL                                           
023132,000195: 04,3046           11216                                    PREC/TT                               

Page 528

023134,000197: 04,3047           71214                           BOFF     DLOAD                                 
023135,000198: 04,3050           01350                                    OPTNSW                                
023136,000199: 04,3051           11071                                    OPTN2                                 
023137,000200: 04,3052           03656                                    TINT                                  
023138,000201: 04,3053           34041                           STCALL   TDEC1                                 #  PRECISION UPDATE PASSIVE VEHICLE TO
023139,000202: 04,3054           11247                                    INTRPVP                               #  INTERCEPT TIME
023140,000203: 04,3055           53575                           VLOAD    UNIT                                  
023141,000204: 04,3056           00001                                    RATT                                  #  RP/(RP)
023142,000205: 04,3057           47315                           PDVL     VXV                                   
023143,000206: 04,3060           00007                                    VATT                                  
023144,000207: 04,3061           60246                           ABVAL    NORM                                  #  (VP X RP/(RP))
023145,000208: 04,3062           00047                                    X1                                    
023146,000209: 04,3063           56325                           PDDL     DDV                                   
023147,000210: 04,3064           02611                                    DELTAR                                
023148,000211: 04,3065           77657                           SL*                                            #  DELTA R / (VP X RP/RP)
023149,000212: 04,3066           20172                                    0          -7,1                       
023150,000213: 04,3067           36613                           STCALL   DELTTIME                              #  DELTA T = (RP) DELTA R / (VP X RP)
023151,000214: 04,3070           11075                                    JUNCTN2                               
023152,000215: 04,3071           43345        OPTN2              DLOAD    DAD                                   
023153,000216: 04,3072           02611                                    TINTSOI                               
023154,000217: 04,3073           00037                                    T                                     
023155,000218: 04,3074           03656                           STORE    TINT                                  #  TI = TI + TF
023156,000219: 04,3075           45345        JUNCTN2            DLOAD    DSU                                   
023157,000220: 04,3076           03656                                    TINT                                  
023158,000221: 04,3077           02613                                    DELTTIME                              
023159,000222: 04,3100           02615                           STORE    TARGTIME                              #  TT = TI - DELTA T
023160,000223: 
023161,000224:                                                                                                  #  .... MAINRTNE ....
023162,000225: 
023163,000226:                                                                                                  #  SUBROUTINES USED
023164,000227: 
023165,000228:                                                                                                  #        S3435.25
023166,000229:                                                                                                  #        PERIAPO1
023167,000230:                                                                                                  #        SHIFTR1
023168,000231:                                                                                                  #        VNDSPLY
023169,000232:                                                                                                  #        BANKCALL
023170,000233:                                                                                                  #        GOFLASH
023171,000234:                                                                                                  #        GOTOPOOH
023172,000235:                                                                                                  #        VN1645
023173,000236: 
023174,000237: 04,3101           34041        MAINRTNE           STCALL   TDEC1                                 #  PRECISION UPDATE PASSIVE VEHICLE TO
023175,000238: 04,3102           11247                                    INTRPVP                               #        TARGET TIME
023176,000239: 04,3103           77745                           DLOAD                                          
023177,000240: 04,3104           03413                                    TIG                                   
023178,000241: 04,3105           03503                           STORE    INTIME                                
023179,000242: 04,3106           77331                           SSP      VLOAD                                 
023180,000243: 04,3107           02371                                    SUBEXIT                               
023181,000244: 04,3110           11114                                    TEST3979                              
023182,000245: 04,3111           00001                                    RATT                                  
023183,000246: 04,3112           77624                           CALL                                           
023184,000247: 04,3113           72546                                    S3435.25                              
023185,000248: 04,3114           43014        TEST3979           BOFF     BON                                   

Page 529

023187,000250: 04,3115           04346                                    P39/79SW                              
023188,000251: 04,3116           11125                                    MAINRTN1                              
023189,000252: 04,3117           01311                                    FINALFLG                              
023190,000253: 04,3120           11123                                    P39P79                                
023191,000254: 04,3121           77614                           SET                                            
023192,000255: 04,3122           00470                                    UPDATFLG                              
023193,000256: 04,3123           77776        P39P79             EXIT                                           
023194,000257: 04,3124           03152                           TC       DSPLY81                               #  FOR P39 AND P79
023195,000258: 04,3125           51575        MAINRTN1           VLOAD    ABVAL                                 
023196,000259: 04,3126           03646                                    DELVEET3                              
023197,000260: 04,3127           26635                           STOVL    DELVTPI                               #  DELTA V
023198,000261: 04,3130           03640                                    VPASS4                                
023199,000262: 04,3131           51451                           VSU      ABVAL                                 
023200,000263: 04,3132           03620                                    VTPRIME                               
023201,000264: 04,3133           26637                           STOVL    DELVTPF                               #  DELTA V (FINAL) = V'T - VT
023202,000265: 04,3134           03540                                    RACT3                                 
023203,000266: 04,3135           45115                           PDVL     CALL                                  
023204,000267: 04,3136           03612                                    VIPRIME                               
023205,000268: 04,3137           45153                                    PERIAPO1                              #  GET PERIGEE ALTITUDE
023206,000269: 04,3140           77624                           CALL                                           
023207,000270: 04,3141           45263                                    SHIFTR1                               
023208,000271: 04,3142           02641                           STORE    POSTTPI                               
023209,000272: 04,3143           43014                           BON      SET                                   
023210,000273: 04,3144           01311                                    FINALFLG                              
023211,000274: 04,3145           11147                                    DSPLY58                               
023212,000275: 04,3146           00470                                    UPDATFLG                              
023213,000276: 04,3147           77776        DSPLY58            EXIT                                           
023214,000277: 04,3150           33301                           CAF      V06N58SR                              #  DISPLAY HP, DELTA V, DELTA V (FINAL)
023215,000278: 04,3151           03263                           TC       VNDSPLY                               
023216,000279: 04,3152           33302        DSPLY81            CAF      V06N81SR                              #  DISPLAY DELTA V (LV)
023217,000280: 04,3153           03263                           TC       VNDSPLY                               
023218,000281: 04,3154           06006                           TC       INTPRET                               
023219,000282: 04,3155           77214                           CLEAR    VLOAD                                 
023220,000283: 04,3156           01267                                    XDELVFLG                              
023221,000284: 04,3157           03646                                    DELVEET3                              
023222,000285: 04,3160           37646                           STCALL   DELVSIN                               
023223,000286: 04,3161           73002                                    VN1645                                #  DISPLAY TRKMKCNT, TTOGO, +MGA
023224,000287: 04,3162           52014                           BON      GOTO                                  
023225,000288: 04,3163           04306                                    P39/79SW                              
023226,000289: 04,3164           11203                                    P39/P79B                              
023227,000290: 04,3165           11045                                    RECYCLE                               
023228,000291: 
023229,000292:                                                                                                  #  STABLE ORBIT MIDCOURSE PROGRAM (P39 AND P79)
023230,000293: 
023231,000294:                                                                                                  #  MOD NO -1             LOG SECTION - STABLE ORBIT - P38-P39
023232,000295:                                                                                                  #  MOD BY RUDNICKI.S     DATE 25JAN68
023233,000296: 
023234,000297:                                                                                                  #  FUNCTIONAL DESCRIPTION
023235,000298: 
023236,000299:                                                                                                  #        P39 AND P79 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
023237,000300:                                                                                                  #        CONDITIONS REQUIRED BY THE AGC TO MAKE A MIDCOURSE CORRECTION

Page 530

023239,000302:                                                                                                  #        MANEUVER AFTER COMPLETING THE SOI MANEUVER BUT BEFORE MAKING
023240,000303:                                                                                                  #        THE SOR MANEUVER
023241,000304: 
023242,000305:                                                                                                  #  CALLING SEQUENCE
023243,000306: 
023244,000307:                                                                                                  #        ASTRONAUT REQUEST THRU DSKY
023245,000308: 
023246,000309:                                                                                                  #        V37E39E         IF THIS VEHICLE IS ACTIVE VEHICLE
023247,000310:                                                                                                  #        V37E79E         IF OTHER VEHICLE IS ACTIVE VEHICLE
023248,000311: 
023249,000312:                                                                                                  #  INPUT
023250,000313: 
023251,000314:                                                                                                  #        (1)  TPASS4     TIME OF INTERCEPT - SAVED FROM P38/P78
023252,000315:                                                                                                  #        (2)  TARGTIME   TIME THAT PASSIVE VEHICLE IS AT INTERCEPT POINT -
023253,000316:                                                                                                  #                        SAVED FROM P38/P78
023254,000317: 
023255,000318:                                                                                                  #  OUTPUT
023256,000319: 
023257,000320:                                                                                                  #        (1)  TRKMKCNT   NUMBER OF MARKS
023258,000321:                                                                                                  #        (2)  TTOGO      TIME TO GO
023259,000322:                                                                                                  #        (3)  +MGA       MIDDLE GIMBAL ANGLE
023260,000323:                                                                                                  #        (4)  DELVLVC    DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
023261,000324: 
023262,000325:                                                                                                  #  SUBROUTINES USED
023263,000326: 
023264,000327:                                                                                                  #        AVFLAGA
023265,000328:                                                                                                  #        AVFLAGP
023266,000329:                                                                                                  #        LOADTIME
023267,000330:                                                                                                  #        SELECTMU
023268,000331:                                                                                                  #        PRECSET
023269,000332:                                                                                                  #        S34/35.1
023270,000333:                                                                                                  #        MAINRTNE
023271,000334: 
023272,000335: 04,3166           04627        P39                TC       AVFLAGA                               #  THIS VEHICLE ACTIVE
023273,000336: 04,3167           00006                           EXTEND                                         
023274,000337: 04,3170           31422                           DCA      ATIGINC                               
023275,000338: 04,3171           03175                           TC       P39/P79A                              
023276,000339: 04,3172           04642        P79                TC       AVFLAGP                               #  OTHER VEHICLE ACTIVE
023277,000340: 04,3173           00006                           EXTEND                                         
023278,000341: 04,3174           31424                           DCA      PTIGINC                               
023279,000342: 04,3175           53764        P39/P79A           DXCH     KT                                    #  TIME TO PREPARE FOR BURN
023280,000343: 04,3176           04647                           TC       P20FLGON                              #  SET UPDATFLG, TRACKFLG
023281,000344: 04,3177           06006                           TC       INTPRET                               
023282,000345: 04,3200           45014                           SET      CALL                                  
023283,000346: 04,3201           04066                                    P39/79SW                              
023284,000347: 04,3202           10712                                    SELECTMU                              #  SELECT MU, CLEAR FINALFLG, GO TO VN1645
023285,000348: 04,3203           43234        P39/P79B           RTB      DAD                                   
023286,000349: 04,3204           45510                                    LOADTIME                              
023287,000350: 04,3205           02364                                    KT                                    
023288,000351: 04,3206           03413                           STORE    TIG                                   #  TIG = T (PRESENT) + PREPARATION TIME

Page 531

023290,000353: 04,3207           34041                           STCALL   TDEC1                                 #  PRECISION UPDATE ACTIVE AND PASSIVE
023291,000354: 04,3210           45215                                    PRECSET                               #        VEHICLES TO TIG
023292,000355: 04,3211           77624                           CALL                                           
023293,000356: 04,3212           74000                                    S34/35.1                              #  GET UNIT NORMAL
023294,000357: 04,3213           52145                           DLOAD    GOTO                                  
023295,000358: 04,3214           02615                                    TARGTIME                              
023296,000359: 04,3215           11101                                    MAINRTNE                              #  CALCULATE DELTA V AND DELTA V (LV)
023297,000360: 
023298,000361:                                                                                                  #  .... PREC/TT ....
023299,000362: 
023300,000363:                                                                                                  #  SUBROUTINES USED
023301,000364: 
023302,000365:                                                                                                  #        PRECSET
023303,000366:                                                                                                  #        TIMETHET
023304,000367:                                                                                                  #        S34/35.1
023305,000368: 
023306,000369: 04,3216           71220        PREC/TT            STQ      DLOAD                                 
023307,000370: 04,3217           02367                                    RTRN                                  
023308,000371: 04,3220           03413                                    TIG                                   
023309,000372: 04,3221           34041                           STCALL   TDEC1                                 #  PRECISION UPDATE ACTIVE AND PASSIVE
023310,000373: 04,3222           45215                                    PRECSET                               #        VEHICLES TO TIG
023311,000374: 04,3223           53775                           VLOAD    VSR*                                  
023312,000375: 04,3224           03554                                    RPASS3                                
023313,000376: 04,3225           57176                                    0,2                                   
023314,000377: 04,3226           16657                           STODL    RVEC                                  
023315,000378: 04,3227           03754                                    CENTANG                               
023316,000379: 04,3230           71406                           PUSH     COS                                   
023317,000380: 04,3231           16734                           STODL    CSTH                                  
023318,000381: 04,3232           43156                           SIN      SET                                   
023319,000382: 04,3233           03466                                    RVSW                                  
023320,000383: 04,3234           26732                           STOVL    SNTH                                  
023321,000384: 04,3235           03562                                    VPASS3                                
023322,000385: 04,3236           77657                           VSR*                                           
023323,000386: 04,3237           57176                                    0,2                                   
023324,000387: 04,3240           36746                           STCALL   VVEC                                  #  GET TRANSFER TIME BASED ON CENTANG OF
023325,000388: 04,3241           24744                                    TIMETHET                              #        PASSIVE VEHICLE
023326,000389: 04,3242           77624                           CALL                                           
023327,000390: 04,3243           74000                                    S34/35.1                              #  GET UNIT NORMAL
023328,000391: 04,3244           52145                           DLOAD    GOTO                                  
023329,000392: 04,3245           00037                                    T                                     
023330,000393: 04,3246           02367                                    RTRN                                  
023331,000394: 
023332,000395:                                                                                                  #  .... INTRPVP ....
023333,000396: 
023334,000397:                                                                                                  #  SUBROUTINES USED
023335,000398: 
023336,000399:                                                                                                  #        CSMPREC
023337,000400:                                                                                                  #        LEMPREC
023338,000401: 
023339,000402: 04,3247           43020        INTRPVP            STQ      BOFF                                  #  PRECISION UPDATE PASSIVE VEHICLE TO
023340,000403: 04,3250           02367                                    RTRN                                  #        TDEC1
023341,000404: 04,3251           01352                                    AVFLAG                                
023342,000405: 04,3252           11257                                    OTHERV                                
023343,000406: 04,3253           77624                           CALL                                           

Page 532

023345,000408: 04,3254           27071                                    CSMPREC                               
023346,000409: 04,3255           77650                           GOTO                                           
023347,000410: 04,3256           02367                                    RTRN                                  
023348,000411: 04,3257           77624        OTHERV             CALL                                           
023349,000412: 04,3260           27105                                    LEMPREC                               
023350,000413: 04,3261           77650                           GOTO                                           
023351,000414: 04,3262           02367                                    RTRN                                  
023352,000415: 
023353,000416:                                                                                                  #  .... VNDSPLY ....
023354,000417: 
023355,000418:                                                                                                  #  SUBROUTINES USED
023356,000419: 
023357,000420:                                                                                                  #        BANKCALL
023358,000421:                                                                                                  #        GOFLASH
023359,000422:                                                                                                  #        GOTOPOOH
023360,000423: 
023361,000424: 04,3263           00006        VNDSPLY            EXTEND                                         #  FLASH DISPLAY
023362,000425: 04,3264           23767                           QXCH     RTRN                                  
023363,000426: 04,3265           55765                           TS       VERBNOUN                              
023364,000427: 04,3266           31765                           CA       VERBNOUN                              
023365,000428: 04,3267           04662                           TCR      BANKCALL                              
023366,000429: 04,3270           20720                           CADR     GOFLASH                               
023367,000430: 04,3271           14106                           TCF      GOTOPOOH                              #  TERMINATE
023368,000431: 04,3272           01767                           TC       RTRN                                  #  PROCEED
023369,000432: 04,3273           13266                           TCF      -5                                    #  RECYCLE
023370,000433: 04,3274           01441        V06N33SR           VN       0633                                  
023371,000434: 04,3275           01467        V06N55SR           VN       0655                                  
023372,000435: 04,3276           01006        V04N06SR           VN       0406                                  
023373,000436: 04,3277           01471        V06N57SR           VN       0657                                  
023374,000437: 04,3300           01442        V06N34SR           VN       0634                                  
023375,000438: 04,3301           01472        V06N58SR           VN       0658                                  
023376,000439: 04,3302           01521        V06N81SR           VN       0681                                  
023377,000440: 

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