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.

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

Page 525

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

Page 526

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

Page 527

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

Page 528

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

Page 529

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

Page 530

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

Page 531

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

Page 532

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

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