Source Code

This is the source-code for the Apollo 9 Command Module's Guidance Computer. These files were derived originally from the scan from MIT's Dibner Institute's now-discontinued website titled "History of Recent Science and Technology", which in turn was originally created by Gary Neff, though his high-quality scans were unfortunately reduced in legibility when presented online. The markings on the front of the printout imply that it was the original AGC developer Norm Brodeur's copy. A scan by Ron Burkey has superceded it, made from a more-legible copy from the collection of original AGC developer Fred Martin. The source code was transcribed from those images by Ron Burkey. 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:

	ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041
	20'35 OCT. 28,1968
Note that the date is the date of the printout, not the date of the program revision.

022585,000002:                                                                                                  ## Copyright:   Public domain.
022586,000003:                                                                                                  ## Filename:    STABLE_ORBIT_-_P38-P39.agc
022587,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus, build 249.
022588,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
022589,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 9.
022590,000007:                                                                                                  ## Assembler:   yaYUL
022591,000008:                                                                                                  ## Reference:   pp. 516-523.
022592,000009:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
022593,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo.
022594,000011:                                                                                                  ## Mod history: 08/12/04 RSB.   Began transcribing.
022595,000012:                                                                                                  ##              2017-01-06 RSB  Page numbers now agree with those on the
022596,000013:                                                                                                  ##                              original harcopy, as opposed to the PDF page
022597,000014:                                                                                                  ##                              numbers in 1701.pdf.
022598,000015:                                                                                                  ##              2017-01-19 RSB  Renamed from STABLE_ORBIT.agc to agree with 
022599,000016:                                                                                                  ##                              the actual name from the log section, and with
022600,000017:                                                                                                  ##                              the naming in Colossus 237.
022601,000018:                                                                                                  ##              2017-01-19 RSB  A few comment-text typos were corrected.
022602,000019:                                                                                                  ##              2017-01-20 RSB  Cross-diff'd comment text (not whitespace)
022603,000020:                                                                                                  ##                              vs the already-proofed corresponding Colossus
022604,000021:                                                                                                  ##                              237 and Comanche 55 source-code files
022605,000022:                                                                                                  ##                              and corrected errors found.
022606,000023:                                                                                                  ##
022607,000024:                                                                                                  ## The contents of the "Colossus249" files, in general, are transcribed 
022608,000025:                                                                                                  ## from a scanned copy of the program listing.  Notations on this
022609,000026:                                                                                                  ## document read, in part:
022610,000027:                                                                                                  ##
022611,000028:                                                                                                  ##      Assemble revision 249 of AGC program Colossus by NASA
022612,000029:                                                                                                  ##      2021111-041.  October 28, 1968.  
022613,000030:                                                                                                  ##
022614,000031:                                                                                                  ##      This AGC program shall also be referred to as
022615,000032:                                                                                                  ##                              Colossus 1A
022616,000033:                                                                                                  ##
022617,000034:                                                                                                  ##      Prepared by
022618,000035:                                                                                                  ##                      Massachusetts Institute of Technology
022619,000036:                                                                                                  ##                      75 Cambridge Parkway
022620,000037:                                                                                                  ##                      Cambridge, Massachusetts
022621,000038:                                                                                                  ##      under NASA contract NAS 9-4065.
022622,000039:                                                                                                  ##
022623,000040:                                                                                                  ## Refer directly to the online document mentioned above for further information.
022624,000041:                                                                                                  ## Please report any errors (relative to the scanned pages) to info@sandroid.org.
022625,000042:                                                                                                  ##
022626,000043:                                                                                                  ## In some cases, where the source code for Luminary 131 overlaps that of 
022627,000044:                                                                                                  ## Colossus 249, this code is instead copied from the corresponding Luminary 131
022628,000045:                                                                                                  ## source file, and then is proofed to incorporate any changes.
022629,000046: 

Page 516

022631,000048:                                                                                                  #  STABLE ORBIT RENDEZVOUS PROGRAMS (P38 AND P78)
022632,000049: 
022633,000050:                                                                                                  #  MOD NO -1             LOG SECTION - STABLE ORBIT - P38-P39
022634,000051:                                                                                                  #  MOD BY RUDNICKI.S     DATE 25JAN68
022635,000052: 
022636,000053:                                                                                                  #  FUNCTIONAL DESCRIPTION
022637,000054: 
022638,000055:                                                                                                  #        P38 AND P78 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
022639,000056:                                                                                                  #        CONDITIONS REQUIRED BY THE AGC TO (1) PUT THE ACTIVE VEHICLE
022640,000057:                                                                                                  #        ON A TRANSFER TRAJECTORY THAT INTERCEPTS THE PASSIVE VEHICLE
022641,000058:                                                                                                  #        ORBIT A GIVEN DISTANCE, DELTA R, EITHER AHEAD OF OR BEHIND THE
022642,000059:                                                                                                  #        PASSIVE VEHICLE AND (2) ACTUALLY PLACE THE ACTIVE VEHICLE IN THE
022643,000060:                                                                                                  #        PASSIVE VEHICLE ORBIT WITH A DELTA R SEPARATION BETWEEN THE TWO
022644,000061:                                                                                                  #        VEHICLES
022645,000062: 
022646,000063:                                                                                                  #  CALLING SEQUENCE
022647,000064: 
022648,000065:                                                                                                  #        ASTRONAUT REQUEST THRU DSKY
022649,000066: 
022650,000067:                                                                                                  #        V37E38E         IF THIS VEHICLE IS ACTIVE VEHICLE
022651,000068:                                                                                                  #        V37E78E         IF OTHER VEHICLE IS ACTIVE VEHICLE
022652,000069: 
022653,000070:                                                                                                  #  INPUT
022654,000071: 
022655,000072:                                                                                                  #        (1)     SOI MANEUVER
022656,000073: 
022657,000074:                                                                                                  #                (A)  TIG        TIME OF SOI MANEUVER
022658,000075:                                                                                                  #                (B)  CENTANG    ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE
022659,000076:                                                                                                  #                                DURING TRANSFER FROM TIG TO TIME OF INTERCEPT
022660,000077:                                                                                                  #                (C)  DELTAR     THE DESIRED SEPARATION OF THE TWO VEHICLES
022661,000078:                                                                                                  #                                SPECIFIED AS A DISTANCE ALONG THE PASSIVE VEHICLE
022662,000079:                                                                                                  #                                ORBIT
022663,000080:                                                                                                  #                (D)  OPTION     EQUALS 1 FOR SOI
022664,000081: 
022665,000082:                                                                                                  #        (2)     SOR MANEUVER
022666,000083: 
022667,000084:                                                                                                  #                (A)  TIG        TIME OF SOR MANEUVER
022668,000085:                                                                                                  #                (B)  CENTANG    AN OPTIONAL RESPECIFICATION OF 1 (B) ABOVE
022669,000086:                                                                                                  #                (C)  OPTION     EQUALS 2 FOR SOR
022670,000087:                                                                                                  #                (D)  DELTTIME   THE TIME REQUIRED TO TRAVERSE DELTA R WHEN
022671,000088:                                                                                                  #                                TRAVELING AT A VELOCITY EQUAL TO THE HORIZONTAL
022672,000089:                                                                                                  #                                VELOCITY OF THE PASSIVE VEHICLE - SAVED FROM
022673,000090:                                                                                                  #                                SOI PHASE
022674,000091:                                                                                                  #                (E)  TINT       TIME OF INTERCEPT (SOI) - SAVED FROM SOI PHASE
022675,000092: 
022676,000093:                                                                                                  #  OUTPUT
022677,000094: 
022678,000095:                                                                                                  #        (1)  TRKMKCNT   NUMBER OF MARKS
022679,000096:                                                                                                  #        (2)  TTOGO      TIME TO GO
022680,000097:                                                                                                  #        (3)  +MGA       MIDDLE GIMBAL ANGLE

Page 517

022682,000099:                                                                                                  #        (4)  DSPTEM1    TIME OF INTERCEPT OF PASSIVE VEHICLE ORBIT
022683,000100:                                                                                                  #                        (FOR SOI ONLY)
022684,000101:                                                                                                  #        (5)  POSTTPI    PERIGEE ALTITUDE OF ACTIVE VEHICLE ORBIT AFTER
022685,000102:                                                                                                  #                        THE SOI (SOR) MANEUVER
022686,000103:                                                                                                  #        (6)  DELVTPI    MAGNITUDE OF DELTA V AT SOI (SOR) TIME
022687,000104:                                                                                                  #        (7)  DELVTPF    MAGNITUDE OF DELTA V AT INTERCEPT TIME
022688,000105:                                                                                                  #        (8)  DELVLVC    DELTA VELOCITY AT SOI (AND SOR) - LOCAL VERTICAL
022689,000106:                                                                                                  #                        COORDINATES
022690,000107: 
022691,000108:                                                                                                  #  SUBROUTINES USED
022692,000109: 
022693,000110:                                                                                                  #        AVFLAGA
022694,000111:                                                                                                  #        AVFLAGP
022695,000112:                                                                                                  #        VNDSPLY
022696,000113:                                                                                                  #        BANKCALL
022697,000114:                                                                                                  #        GOFLASHR
022698,000115:                                                                                                  #        GOTOPOOH
022699,000116:                                                                                                  #        BLANKET
022700,000117:                                                                                                  #        ENDOFJOB
022701,000118:                                                                                                  #        PREC/TT
022702,000119:                                                                                                  #        SELECTMU
022703,000120:                                                                                                  #        INTRPVP
022704,000121:                                                                                                  #        MAINRTNE
022705,000122: 
022706,000123: 04,3103                                           BANK     04                                    
022707,000124: 04,2000                                           SETLOC   STBLEORB                              
022708,000125: 04,2000                                           BANK                                           
022709,000126: 
022710,000127: 04,3103  E4,1770                                  EBANK=   SUBEXIT                               
022711,000128: 04,3103                                           COUNT*   $$/P3879                              
022712,000129: 
022713,000130: 04,3103           04555        P38                TC       BANKCALL                              
022714,000131: 04,3104           73726                           CADR     AVFLAGA                               #  THIS VEHICLE ACTIVE
022715,000132: 04,3105           03110                           TC       +3                                    
022716,000133: 04,3106           04555        P78                TC       BANKCALL                              
022717,000134: 04,3107           73741                           CADR     AVFLAGP                               #  OTHER VEHICLE ACTIVE
022718,000135: 04,3110           04555                           TC       BANKCALL                              
022719,000136: 04,3111           73746                           CADR     P20FLGON                              #  SET UPDATFLG, TRACKFLG
022720,000137: 04,3112           33440                           CAF      V06N33SR                              #  DISPLAY TIG
022721,000138: 04,3113           03427                           TC       VNDSPLY                               
022722,000139: 04,3114           33441                           CAF      V06N55SR                              #  DISPLAY CENTANG
022723,000140: 04,3115           04555                           TCR      BANKCALL                              
022724,000141: 04,3116           20763                           CADR     GOFLASHR                              
022725,000142: 04,3117           14106                           TCF      GOTOPOOH                              #  TERMINATE
022726,000143: 04,3120           13125                           TCF      +5                                    #  PROCEED
022727,000144: 04,3121           13114                           TCF      -5                                    #  RECYCLE
022728,000145: 04,3122           36214                           CAF      THREE                                 #  IMMEDIATE RETURN - BLANK R1, R2
022729,000146: 04,3123           05415                           TCR      BLANKET                               
022730,000147: 04,3124           15112                           TCF      ENDOFJOB                              
022731,000148: 04,3125           34715                           CAF      FIVE                                  

Page 518

022733,000150: 04,3126           55131                           TS       OPTION1                               
022734,000151: 04,3127           34712                           CAF      ONE                                   
022735,000152: 04,3130           55132                           TS       OPTION2                               #  OPTION CODE IS SET TO 1
022736,000153: 04,3131           33442                           CAF      V04N06SR                              #  DISPLAY OPTION CODE -1 = SOI, 2 = SOR
022737,000154: 04,3132           04555                           TCR      BANKCALL                              
022738,000155: 04,3133           20763                           CADR     GOFLASHR                              
022739,000156: 04,3134           14106                           TCF      GOTOPOOH                              #  TERMINATE
022740,000157: 04,3135           13142                           TCF      +5                                    #  PROCEED
022741,000158: 04,3136           13131                           TCF      -5                                    #  RECYCLE
022742,000159: 04,3137           34710                           CAF      BIT3                                  #  IMMEDIATE RETURN - BLANK R3
022743,000160: 04,3140           05415                           TCR      BLANKET                               
022744,000161: 04,3141           15112                           TCF      ENDOFJOB                              
022745,000162: 04,3142           06006                           TC       INTPRET                               
022746,000163: 04,3143           70535                           SLOAD    SR1                                   
022747,000164: 04,3144           01133                                    OPTION2                               
022748,000165: 04,3145           71230                           BHIZ     DLOAD                                 
022749,000166: 04,3146           11154                                    OPTN1                                 
022750,000167: 04,3147           03656                                    TINT                                  
022751,000168: 04,3150           02611                           STORE    TINTSOI                               #  STORE FOR SOR PHASE
022752,000169: 04,3151           77614                           CLRGO                                          
022753,000170: 04,3152           01230                                    OPTNSW                                #  OPTNSW
022754,000171: 
022755,000172: 04,3153           11203                                    JUNCTN1                               
022756,000173: 04,3154           43014        OPTN1              SET      CLEAR                                 #  SOI
022757,000174: 04,3155           01070                                    OPTNSW                                
022758,000175: 04,3156           00670                                    UPDATFLG                              
022759,000176: 04,3157           77624                           CALL                                           
022760,000177: 04,3160           11362                                    PREC/TT                               
022761,000178: 04,3161           43214                           SET      DAD                                   
022762,000179: 04,3162           00470                                    UPDATFLG                              
022763,000180: 04,3163           03413                                    TIG                                   
022764,000181: 04,3164           03656                           STORE    TINT                                  #  TI = TIG + TF
022765,000182: 04,3165           01046                           STORE    DSPTEM1                               #  FOR DISPLAY
022766,000183: 04,3166           77776                           EXIT                                           
022767,000184: 04,3167           33443                           CAF      V06N57SR                              #  DISPLAY DELTA R
022768,000185: 04,3170           04555                           TCR      BANKCALL                              
022769,000186: 04,3171           20763                           CADR     GOFLASHR                              
022770,000187: 04,3172           14106                           TCF      GOTOPOOH                              #  TERMINATE
022771,000188: 04,3173           13200                           TCF      +5                                    #  PROCEED
022772,000189: 04,3174           13167                           TCF      -5                                    #  RECYCLE
022773,000190: 04,3175           36211                           CAF      SIX                                   #  IMMEDIATE RETURN - BLANK R2, R3
022774,000191: 04,3176           05415                           TCR      BLANKET                               
022775,000192: 04,3177           15112                           TCF      ENDOFJOB                              
022776,000193: 04,3200           33444                           CAF      V06N34SR                              #  DISPLAY TIME OF INTERCEPT
022777,000194: 04,3201           03427                           TC       VNDSPLY                               
022778,000195: 04,3202           06006                           TC       INTPRET                               
022779,000196: 04,3203           45014        JUNCTN1            CLEAR    CALL                                  
022780,000197: 04,3204           04266                                    P39/79SW                              
022781,000198: 04,3205           10716                                    SELECTMU                              #  SELECT MU, CLEAR FINALFLG, GO TO VN1645
022782,000199: 04,3206           77624        RECYCLE            CALL                                           
022783,000200: 04,3207           11362                                    PREC/TT                               

Page 519

022785,000202: 04,3210           71214                           BOFF     DLOAD                                 
022786,000203: 04,3211           01350                                    OPTNSW                                
022787,000204: 04,3212           11232                                    OPTN2                                 
022788,000205: 04,3213           03656                                    TINT                                  
022789,000206: 04,3214           34041                           STCALL   TDEC1                                 #  PRECISION UPDATE PASSIVE VEHICLE TO
022790,000207: 04,3215           11413                                    INTRPVP                               #  INTERCEPT TIME
022791,000208: 04,3216           53575                           VLOAD    UNIT                                  
022792,000209: 04,3217           00001                                    RATT                                  #  RP/(RP)
022793,000210: 04,3220           47315                           PDVL     VXV                                   
022794,000211: 04,3221           00007                                    VATT                                  
022795,000212: 04,3222           60246                           ABVAL    NORM                                  #  (VP X RP/(RP))
022796,000213: 04,3223           00047                                    X1                                    
022797,000214: 04,3224           56325                           PDDL     DDV                                   
022798,000215: 04,3225           02611                                    DELTAR                                
022799,000216: 04,3226           77657                           SL*                                            #  DELTA R / (VP X RP/RP)
022800,000217: 04,3227           20172                                    0          -7,1                       
022801,000218: 04,3230           36613                           STCALL   DELTTIME                              #  DELTA T = (RP) DELTA R / (VP X RP)
022802,000219: 04,3231           11236                                    JUNCTN2                               
022803,000220: 04,3232           43345        OPTN2              DLOAD    DAD                                   
022804,000221: 04,3233           02611                                    TINTSOI                               
022805,000222: 04,3234           00037                                    T                                     
022806,000223: 04,3235           03656                           STORE    TINT                                  #  TI = TI + TF
022807,000224: 04,3236           45345        JUNCTN2            DLOAD    DSU                                   
022808,000225: 04,3237           03656                                    TINT                                  
022809,000226: 04,3240           02613                                    DELTTIME                              
022810,000227: 04,3241           02615                           STORE    TARGTIME                              #  TT = TI - DELTA T
022811,000228: 
022812,000229:                                                                                                  #  .... MAINRTNE ....
022813,000230: 
022814,000231:                                                                                                  #  SUBROUTINES USED
022815,000232: 
022816,000233:                                                                                                  #        S3435.25
022817,000234:                                                                                                  #        PERIAPO1
022818,000235:                                                                                                  #        SHIFTR1
022819,000236:                                                                                                  #        VNDSPLY
022820,000237:                                                                                                  #        BANKCALL
022821,000238:                                                                                                  #        GOFLASH
022822,000239:                                                                                                  #        GOTOPOOH
022823,000240:                                                                                                  #        VN1645
022824,000241: 
022825,000242: 04,3242           34041        MAINRTNE           STCALL   TDEC1                                 #  PRECISION UPDATE PASSIVE VEHICLE TO
022826,000243: 04,3243           11413                                    INTRPVP                               #        TARGET TIME
022827,000244: 04,3244           77745                           DLOAD                                          
022828,000245: 04,3245           03413                                    TIG                                   
022829,000246: 04,3246           03503                           STORE    INTIME                                
022830,000247: 04,3247           77331                           SSP      VLOAD                                 
022831,000248: 04,3250           02371                                    SUBEXIT                               
022832,000249: 04,3251           11255                                    TEST3979                              
022833,000250: 04,3252           00001                                    RATT                                  
022834,000251: 04,3253           77624                           CALL                                           
022835,000252: 04,3254           72547                                    S3435.25                              
022836,000253: 04,3255           43014        TEST3979           BOFF     BON                                   
022837,000254: 

Page 520

022839,000256: 04,3256           04346                                    P39/79SW                              
022840,000257: 04,3257           11266                                    MAINRTN1                              
022841,000258: 04,3260           01311                                    FINALFLG                              
022842,000259: 04,3261           11264                                    P39P79                                
022843,000260: 04,3262           77614                           SET                                            
022844,000261: 04,3263           00470                                    UPDATFLG                              
022845,000262: 04,3264           77776        P39P79             EXIT                                           
022846,000263: 04,3265           03313                           TC       DSPLY81                               #  FOR P39 AND P79
022847,000264: 04,3266           51575        MAINRTN1           VLOAD    ABVAL                                 
022848,000265: 04,3267           03646                                    DELVEET3                              
022849,000266: 04,3270           26635                           STOVL    DELVTPI                               #  DELTA V
022850,000267: 04,3271           03640                                    VPASS4                                
022851,000268: 04,3272           51451                           VSU      ABVAL                                 
022852,000269: 04,3273           03620                                    VTPRIME                               
022853,000270: 04,3274           26637                           STOVL    DELVTPF                               #  DELTA V (FINAL) = V'T - VT
022854,000271: 04,3275           03540                                    RACT3                                 
022855,000272: 04,3276           45115                           PDVL     CALL                                  
022856,000273: 04,3277           03612                                    VIPRIME                               
022857,000274: 04,3300           45312                                    PERIAPO1                              #  GET PERIGEE ALTITUDE
022858,000275: 04,3301           77624                           CALL                                           
022859,000276: 04,3302           45422                                    SHIFTR1                               
022860,000277: 04,3303           02641                           STORE    POSTTPI                               
022861,000278: 04,3304           43014                           BON      SET                                   
022862,000279: 04,3305           01311                                    FINALFLG                              
022863,000280: 04,3306           11310                                    DSPLY58                               
022864,000281: 04,3307           00470                                    UPDATFLG                              
022865,000282: 04,3310           77776        DSPLY58            EXIT                                           
022866,000283: 04,3311           33445                           CAF      V06N58SR                              #  DISPLAY HP, DELTA V, DELTA V (FINAL)
022867,000284: 04,3312           03427                           TC       VNDSPLY                               
022868,000285: 04,3313           33446        DSPLY81            CAF      V06N81SR                              #  DISPLAY DELTA V (LV)
022869,000286: 04,3314           03427                           TC       VNDSPLY                               
022870,000287: 04,3315           06006                           TC       INTPRET                               
022871,000288: 04,3316           77214                           CLEAR    VLOAD                                 
022872,000289: 04,3317           01267                                    XDELVFLG                              
022873,000290: 04,3320           03646                                    DELVEET3                              
022874,000291: 04,3321           37646                           STCALL   DELVSIN                               
022875,000292: 04,3322           73005                                    VN1645                                #  DISPLAY TRKMKCNT, TTOGO, +MGA
022876,000293: 04,3323           52014                           BON      GOTO                                  
022877,000294: 04,3324           04306                                    P39/79SW                              
022878,000295: 04,3325           11347                                    P39/P79B                              
022879,000296: 04,3326           11206                                    RECYCLE                               
022880,000297: 
022881,000298:                                                                                                  #  STABLE ORBIT MIDCOURSE PROGRAM (P39 AND P79)
022882,000299: 
022883,000300:                                                                                                  #  MOD NO -1             LOG SECTION - STABLE ORBIT - P38-P39
022884,000301:                                                                                                  #  MOD BY RUDNICKI.S     DATE 25JAN68
022885,000302: 
022886,000303:                                                                                                  #  FUNCTIONAL DESCRIPTION
022887,000304: 
022888,000305:                                                                                                  #        P39 AND P79 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
022889,000306:                                                                                                  #        CONDITIONS REQUIRED BY THE AGC TO MAKE A MIDCOURSE CORRECTION

Page 521

022891,000308:                                                                                                  #        MANEUVER AFTER COMPLETING THE SOI MANEUVER BUT BEFORE MAKING
022892,000309:                                                                                                  #        THE SOR MANEUVER
022893,000310: 
022894,000311:                                                                                                  #  CALLING SEQUENCE
022895,000312: 
022896,000313:                                                                                                  #        ASTRONAUT REQUEST THRU DSKY
022897,000314: 
022898,000315:                                                                                                  #        V37E39E         IF THIS VEHICLE IS ACTIVE VEHICLE
022899,000316:                                                                                                  #        V37E79E         IF OTHER VEHICLE IS ACTIVE VEHICLE
022900,000317: 
022901,000318:                                                                                                  #  INPUT
022902,000319: 
022903,000320:                                                                                                  #        (1)  TPASS4     TIME OF INTERCEPT - SAVED FROM P38/P78
022904,000321:                                                                                                  #        (2)  TARGTIME   TIME THAT PASSIVE VEHICLE IS AT INTERCEPT POINT -
022905,000322:                                                                                                  #                        SAVED FROM P38/P78
022906,000323: 
022907,000324:                                                                                                  #  OUTPUT
022908,000325: 
022909,000326:                                                                                                  #        (1)  TRKMKCNT   NUMBER OF MARKS
022910,000327:                                                                                                  #        (2)  TTOGO      TIME TO GO
022911,000328:                                                                                                  #        (3)  +MGA       MIDDLE GIMBAL ANGLE
022912,000329:                                                                                                  #        (4)  DELVLVC    DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
022913,000330: 
022914,000331:                                                                                                  #  SUBROUTINES USED
022915,000332: 
022916,000333:                                                                                                  #        AVFLAGA
022917,000334:                                                                                                  #        AVFLAGP
022918,000335:                                                                                                  #        LOADTIME
022919,000336:                                                                                                  #        SELECTMU
022920,000337:                                                                                                  #        PRECSET
022921,000338:                                                                                                  #        S34/35.1
022922,000339:                                                                                                  #        MAINRTNE
022923,000340: 
022924,000341: 04,3327           04555        P39                TC       BANKCALL                              
022925,000342: 04,3330           73726                           CADR     AVFLAGA                               #  THIS VEHICLE ACTIVE
022926,000343: 04,3331           00006                           EXTEND                                         
022927,000344: 04,3332           31422                           DCA      ATIGINC                               
022928,000345: 04,3333           03340                           TC       P39/P79A                              
022929,000346: 04,3334           04555        P79                TC       BANKCALL                              
022930,000347: 04,3335           73741                           CADR     AVFLAGP                               #  OTHER VEHICLE ACTIVE
022931,000348: 04,3336           00006                           EXTEND                                         
022932,000349: 04,3337           31424                           DCA      PTIGINC                               
022933,000350: 04,3340           53764        P39/P79A           DXCH     KT                                    #  TIME TO PREPARE FOR BURN
022934,000351: 04,3341           04555                           TC       BANKCALL                              
022935,000352: 04,3342           73746                           CADR     P20FLGON                              #  SET UPDATFLG, TRACKFLG
022936,000353: 04,3343           06006                           TC       INTPRET                               
022937,000354: 04,3344           45014                           SET      CALL                                  
022938,000355: 04,3345           04066                                    P39/79SW                              
022939,000356: 04,3346           10716                                    SELECTMU                              #  SELECT MU, CLEAR FINALFLG, GO TO VN1645
022940,000357: 04,3347           43234        P39/P79B           RTB      DAD                                   

Page 522

022942,000359: 04,3350           45505                                    LOADTIME                              
022943,000360: 04,3351           02364                                    KT                                    
022944,000361: 04,3352           03413                           STORE    TIG                                   #  TIG = T (PRESENT) + PREPARATION TIME
022945,000362: 04,3353           34041                           STCALL   TDEC1                                 #  PRECISION UPDATE ACTIVE AND PASSIVE
022946,000363: 04,3354           45354                                    PRECSET                               #        VEHICLES TO TIG
022947,000364: 04,3355           77624                           CALL                                           
022948,000365: 04,3356           72522                                    S34/35.1                              #  GET UNIT NORMAL
022949,000366: 04,3357           52145                           DLOAD    GOTO                                  
022950,000367: 04,3360           02615                                    TARGTIME                              
022951,000368: 04,3361           11242                                    MAINRTNE                              #  CALCULATE DELTA V AND DELTA V (LV)
022952,000369: 
022953,000370:                                                                                                  #  .... PREC/TT ....
022954,000371: 
022955,000372:                                                                                                  #  SUBROUTINES USED
022956,000373: 
022957,000374:                                                                                                  #        PRECSET
022958,000375:                                                                                                  #        TIMETHET
022959,000376:                                                                                                  #        S34/35.1
022960,000377: 
022961,000378: 04,3362           71220        PREC/TT            STQ      DLOAD                                 
022962,000379: 04,3363           02367                                    RTRN                                  
022963,000380: 04,3364           03413                                    TIG                                   
022964,000381: 04,3365           34041                           STCALL   TDEC1                                 #  PRECISION UPDATE ACTIVE AND PASSIVE
022965,000382: 04,3366           45354                                    PRECSET                               #        VEHICLES TO TIG
022966,000383: 04,3367           53775                           VLOAD    VSR*                                  
022967,000384: 04,3370           03554                                    RPASS3                                
022968,000385: 04,3371           57176                                    0,2                                   
022969,000386: 04,3372           16657                           STODL    RVEC                                  
022970,000387: 04,3373           03754                                    CENTANG                               
022971,000388: 04,3374           71406                           PUSH     COS                                   
022972,000389: 04,3375           16734                           STODL    CSTH                                  
022973,000390: 04,3376           43156                           SIN      SET                                   
022974,000391: 04,3377           03466                                    RVSW                                  
022975,000392: 04,3400           26732                           STOVL    SNTH                                  
022976,000393: 
022977,000394: 04,3401           03562                                    VPASS3                                
022978,000395: 04,3402           77657                           VSR*                                           
022979,000396: 04,3403           57176                                    0,2                                   
022980,000397: 04,3404           36746                           STCALL   VVEC                                  #  GET TRANSFER TIME BASED ON CENTANG OF
022981,000398: 04,3405           24737                                    TIMETHET                              #        PASSIVE VEHICLE
022982,000399: 04,3406           77624                           CALL                                           
022983,000400: 04,3407           72522                                    S34/35.1                              #  GET UNIT NORMAL
022984,000401: 04,3410           52145                           DLOAD    GOTO                                  
022985,000402: 04,3411           00037                                    T                                     
022986,000403: 04,3412           02367                                    RTRN                                  
022987,000404: 
022988,000405:                                                                                                  #  .... INTRPVP ....
022989,000406: 
022990,000407:                                                                                                  #  SUBROUTINES USED
022991,000408: 
022992,000409:                                                                                                  #        CSMPREC
022993,000410:                                                                                                  #        LEMPREC
022994,000411: 
022995,000412: 04,3413           43020        INTRPVP            STQ      BOFF                                  #  PRECISION UPDATE PASSIVE VEHICLE TO
022996,000413: 04,3414           02367                                    RTRN                                  #        TDEC1

Page 523

022998,000415: 04,3415           01352                                    AVFLAG                                
022999,000416: 04,3416           11423                                    OTHERV                                
023000,000417: 04,3417           77624                           CALL                                           
023001,000418: 04,3420           27022                                    CSMPREC                               
023002,000419: 04,3421           77650                           GOTO                                           
023003,000420: 04,3422           02367                                    RTRN                                  
023004,000421: 04,3423           77624        OTHERV             CALL                                           
023005,000422: 04,3424           27036                                    LEMPREC                               
023006,000423: 04,3425           77650                           GOTO                                           
023007,000424: 04,3426           02367                                    RTRN                                  
023008,000425: 
023009,000426:                                                                                                  #  .... VNDSPLY ....
023010,000427: 
023011,000428:                                                                                                  #  SUBROUTINES USED
023012,000429: 
023013,000430:                                                                                                  #        BANKCALL
023014,000431:                                                                                                  #        GOFLASH
023015,000432:                                                                                                  #        GOTOPOOH
023016,000433: 
023017,000434: 04,3427           00006        VNDSPLY            EXTEND                                         #  FLASH DISPLAY
023018,000435: 04,3430           23767                           QXCH     RTRN                                  
023019,000436: 04,3431           55765                           TS       VERBNOUN                              
023020,000437: 04,3432           31765                           CA       VERBNOUN                              
023021,000438: 04,3433           04555                           TCR      BANKCALL                              
023022,000439: 04,3434           20624                           CADR     GOFLASH                               
023023,000440: 04,3435           14106                           TCF      GOTOPOOH                              #  TERMINATE
023024,000441: 04,3436           01767                           TC       RTRN                                  #  PROCEED
023025,000442: 04,3437           13432                           TCF      -5                                    #  RECYCLE
023026,000443: 04,3440           01441        V06N33SR           VN       0633                                  
023027,000444: 04,3441           01467        V06N55SR           VN       0655                                  
023028,000445: 04,3442           01006        V04N06SR           VN       0406                                  
023029,000446: 04,3443           01471        V06N57SR           VN       0657                                  
023030,000447: 04,3444           01442        V06N34SR           VN       0634                                  
023031,000448: 04,3445           01472        V06N58SR           VN       0658                                  
023032,000449: 04,3446           01521        V06N81SR           VN       0681                                  
023033,000450: 
023034,000451: 

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