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.

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

Page 525

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

Page 526

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

Page 527

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

Page 528

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

Page 529

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

Page 530

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

Page 531

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

Page 532

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

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