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 Luminary 131 (Apollo 13) 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 001 OF AGC PROGRAM LMY99 BY NASA 2021112-061
	20'35 OCT. 28,1968
Note that the date is the date of the printout, not the date of the program revision.

031082,000002:                                                                                                  ## Copyright:   Public domain.
031083,000003:                                                                                                  ## Filename:    STABLE_ORBIT_-_P38-P39.agc
031084,000004:                                                                                                  ## Purpose:     Part of the source code for Luminary 1A build 099.
031085,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
031086,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 11.
031087,000007:                                                                                                  ## Assembler:   yaYUL
031088,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
031089,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo.
031090,000010:                                                                                                  ## Pages:       723-730
031091,000011:                                                                                                  ## Mod history: 2009-05-19 RSB  Adapted from the corresponding 
031092,000012:                                                                                                  ##                              Colossus249 file (there being no corresponding
031093,000013:                                                                                                  ##                              Luminary131 source-code file), using page 
031094,000014:                                                                                                  ##                              images from Luminary 1A.
031095,000015:                                                                                                  ##              2009-06-07 RSB  Eliminated an extraneous instruction.
031096,000016:                                                                                                  ##              2011-01-06 JL   Fixed pseudo-label indentation.
031097,000017:                                                                                                  ##              2016-12-13 RSB  GOTOP00H -> GOTOPOOH
031098,000018:                                                                                                  ##              2016-12-15 RSB  Proofed text comments with octopus/ProoferComments
031099,000019:                                                                                                  ##                              and corrected the errors found.
031100,000020:                                                                                                  ##              2017-01-28 RSB  Back-ported a comment-text fix from proofing
031101,000021:                                                                                                  ##                              of Luminary 69.  Also, changed the filename
031102,000022:                                                                                                  ##                              (from STABLE_ORBIT.agc) so as to agree with 
031103,000023:                                                                                                  ##                              the other AGC versions having a corresponding
031104,000024:                                                                                                  ##                              log section (making it easier to perform diffs 
031105,000025:                                                                                                  ##                              between versions), and to agree with what it 
031106,000026:                                                                                                  ##                              says in ASSEMBLY AND OPERATION INFORMATION.
031107,000027:                                                                                                  ##              2017-03-17 RSB  Comment-text fixes identified in diff'ing
031108,000028:                                                                                                  ##                              Luminary 99 vs Comanche 55.
031109,000029: 
031110,000030:                                                                                                  ## This source code has been transcribed or otherwise adapted from
031111,000031:                                                                                                  ## digitized images of a hardcopy from the MIT Museum.  The digitization
031112,000032:                                                                                                  ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
031113,000033:                                                                                                  ## the Museum.  Many thanks to both.  The images (with suitable reduction
031114,000034:                                                                                                  ## in storage size and consequent reduction in image quality as well) are
031115,000035:                                                                                                  ## available online at www.ibiblio.org/apollo.  If for some reason you
031116,000036:                                                                                                  ## find that the images are illegible, contact me at info@sandroid.org
031117,000037:                                                                                                  ## about getting access to the (much) higher-quality images which Paul
031118,000038:                                                                                                  ## actually created.
031119,000039:                                                                                                  ##
031120,000040:                                                                                                  ## Notations on the hardcopy document read, in part:
031121,000041:                                                                                                  ##
031122,000042:                                                                                                  ##      Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
031123,000043:                                                                                                  ##      16:27 JULY 14, 1969 
031124,000044: 

Page 723

031126,000046:                                                                                                  #  STABLE ORBIT RENDEZVOUS PROGRAMS (P38 AND P78)
031127,000047: 
031128,000048:                                                                                                  #  MOD NO -1             LOG SECTION - STABLE ORBIT - P38-P39
031129,000049:                                                                                                  #  MOD BY RUDNICKI.S     DATE 25JAN68
031130,000050: 
031131,000051:                                                                                                  #  FUNCTIONAL DESCRIPTION
031132,000052: 
031133,000053:                                                                                                  #        P38 AND P78 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
031134,000054:                                                                                                  #        CONDITIONS REQUIRED BY THE AGC TO (1) PUT THE ACTIVE VEHICLE
031135,000055:                                                                                                  #        ON A TRANSFER TRAJECTORY THAT INTERCEPTS THE PASSIVE VEHICLE
031136,000056:                                                                                                  #        ORBIT A GIVEN DISTANCE, DELTA R, EITHER AHEAD OF OR BEHIND THE
031137,000057:                                                                                                  #        PASSIVE VEHICLE AND (2) ACTUALLY PLACE THE ACTIVE VEHICLE IN THE
031138,000058:                                                                                                  #        PASSIVE VEHICLE ORBIT WITH A DELTA R SEPARATION BETWEEN THE TWO
031139,000059:                                                                                                  #        VEHICLES
031140,000060: 
031141,000061:                                                                                                  #  CALLING SEQUENCE
031142,000062: 
031143,000063:                                                                                                  #        ASTRONAUT REQUEST THRU DSKY
031144,000064: 
031145,000065:                                                                                                  #        V37E38E         IF THIS VEHICLE IS ACTIVE VEHICLE
031146,000066:                                                                                                  #        V37E78E         IF OTHER VEHICLE IS ACTIVE VEHICLE
031147,000067: 
031148,000068:                                                                                                  #  INPUT
031149,000069: 
031150,000070:                                                                                                  #        (1)     SOI MANEUVER
031151,000071: 
031152,000072:                                                                                                  #                (A)  TIG        TIME OF SOI MANEUVER
031153,000073:                                                                                                  #                (B)  CENTANG    ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE
031154,000074:                                                                                                  #                                DURING TRANSFER FROM TIG TO TIME OF INTERCEPT
031155,000075:                                                                                                  #                (C)  DELTAR     THE DESIRED SEPARATION OF THE TWO VEHICLES
031156,000076:                                                                                                  #                                SPECIFIED AS A DISTANCE ALONG THE PASSIVE VEHICLE
031157,000077:                                                                                                  #                                ORBIT
031158,000078:                                                                                                  #                (D)  OPTION     EQUALS 1 FOR SOI
031159,000079: 
031160,000080:                                                                                                  #        (2)     SOR MANEUVER
031161,000081: 
031162,000082:                                                                                                  #                (A)  TIG        TIME OF SOR MANEUVER
031163,000083:                                                                                                  #                (B)  CENTANG    AN OPTIONAL RESPECIFICATION OF 1 (B) ABOVE
031164,000084:                                                                                                  #                (C)  OPTION     EQUALS 2 FOR SOR
031165,000085:                                                                                                  #                (D)  DELTTIME   THE TIME REQUIRED TO TRAVERSE DELTA R WHEN
031166,000086:                                                                                                  #                                TRAVELING AT A VELOCITY EQUAL TO THE HORIZONTAL
031167,000087:                                                                                                  #                                VELOCITY OF THE PASSIVE VEHICLE - SAVED FROM
031168,000088:                                                                                                  #                                SOI PHASE
031169,000089:                                                                                                  #                (E)  TINT       TIME OF INTERCEPT (SOI) - SAVED FROM SOI PHASE
031170,000090: 
031171,000091:                                                                                                  #  OUTPUT
031172,000092: 
031173,000093:                                                                                                  #        (1)  TRKMKCNT   NUMBER OF MARKS
031174,000094:                                                                                                  #        (2)  TTOGO      TIME TO GO
031175,000095:                                                                                                  #        (3)  +MGA       MIDDLE GIMBAL ANGLE

Page 724

031177,000097:                                                                                                  #        (4)  DSPTEM1    TIME OF INTERCEPT OF PASSIVE VEHICLE ORBIT
031178,000098:                                                                                                  #                        (FOR SOI ONLY)
031179,000099:                                                                                                  #        (5)  POSTTPI    PERIGEE ALTITUDE OF ACTIVE VEHICLE ORBIT AFTER
031180,000100:                                                                                                  #                        THE SOI (SOR) MANEUVER
031181,000101:                                                                                                  #        (6)  DELVTPI    MAGNITUDE OF DELTA V AT SOI (SOR) TIME
031182,000102:                                                                                                  #        (7)  DELVTPF    MAGNITUDE OF DELTA V AT INTERCEPT TIME
031183,000103:                                                                                                  #        (8)  DELVLVC    DELTA VELOCITY AT SOI (AND SOR) - LOCAL VERTICAL
031184,000104:                                                                                                  #                        COORDINATES
031185,000105: 
031186,000106:                                                                                                  #  SUBROUTINES USED
031187,000107: 
031188,000108:                                                                                                  #        AVFLAGA
031189,000109:                                                                                                  #        AVFLAGP
031190,000110:                                                                                                  #        VNDSPLY
031191,000111:                                                                                                  #        BANKCALL
031192,000112:                                                                                                  #        GOFLASHR
031193,000113:                                                                                                  #        GOTOPOOH
031194,000114:                                                                                                  #        BLANKET
031195,000115:                                                                                                  #        ENDOFJOB
031196,000116:                                                                                                  #        PREC/TT
031197,000117:                                                                                                  #        SELECTMU
031198,000118:                                                                                                  #        INTRPVP
031199,000119:                                                                                                  #        MAINRTNE
031200,000120: 
031201,000121: 04,3013                                           BANK     04                                    
031202,000122: 34,2000                                           SETLOC   STBLEORB                              
031203,000123: 34,2000                                           BANK                                           
031204,000124: 
031205,000125: 34,3271  E7,1470                                  EBANK=   SUBEXIT                               
031206,000126: 34,3271                                           COUNT*   $$/P3879                              
031207,000127: 
031208,000128: 34,3271           04616        P38                TC       BANKCALL                              
031209,000129: 34,3272           72347                           CADR     AVFLAGA                               #  THIS VEHICLE ACTIVE
031210,000130: 34,3273           03276                           TC       +3                                    
031211,000131: 34,3274           04616        P78                TC       BANKCALL                              
031212,000132: 34,3275           72354                           CADR     AVFLAGP                               #  OTHER VEHICLE ACTIVE
031213,000133: 34,3276           04616                           TC       BANKCALL                              
031214,000134: 34,3277           72361                           CADR     P20FLGON                              #  SET UPDATFLG, TRACKFLG
031215,000135: 34,3300           33641                           CAF      DECTWO                                
031216,000136: 34,3301           55466                           TS       NN                                    
031217,000137: 34,3302           33632                           CAF      V06N33SR                              #  DISPLAY TIG
031218,000138: 34,3303           03621                           TC       VNDSPLY                               
031219,000139: 34,3304           33633                           CAF      V06N55SR                              #  DISPLAY CENTANG
031220,000140: 34,3305           04616                           TCR      BANKCALL                              
031221,000141: 34,3306           20635                           CADR     GOFLASHR                              
031222,000142: 34,3307           16001                           TCF      GOTOPOOH                              #  TERMINATE
031223,000143: 34,3310           13315                           TCF      +5                                    #  PROCEED
031224,000144: 34,3311           13304                           TCF      -5                                    #  RECYCLE
031225,000145: 34,3312           36245                           CAF      THREE                                 #  IMMEDIATE RETURN - BLANK R1, R2
031226,000146: 34,3313           05464                           TCR      BLANKET                               

Page 725

031228,000148: 34,3314           15155                           TCF      ENDOFJOB                              
031229,000149: 34,3315           34756                           CAF      FIVE                                  
031230,000150: 34,3316           55144                           TS       OPTION1                               
031231,000151: 34,3317           34753                           CAF      ONE                                   
031232,000152: 34,3320           55145                           TS       OPTION2                               #  OPTION CODE IS SET TO 1
031233,000153: 34,3321           33634                           CAF      V04N06SR                              #  DISPLAY OPTION CODE - 1 = SOI, 2 = SOR
031234,000154: 34,3322           04616                           TCR      BANKCALL                              
031235,000155: 34,3323           20635                           CADR     GOFLASHR                              
031236,000156: 34,3324           16001                           TCF      GOTOPOOH                              #  TERMINATE
031237,000157: 34,3325           13332                           TCF      +5                                    #  PROCEED
031238,000158: 34,3326           13321                           TCF      -5                                    #  RECYCLE
031239,000159: 34,3327           34751                           CAF      BIT3                                  #  IMMEDIATE RETURN - BLANK R3
031240,000160: 34,3330           05464                           TCR      BLANKET                               
031241,000161: 34,3331           15155                           TCF      ENDOFJOB                              
031242,000162: 34,3332           06037                           TC       INTPRET                               
031243,000163: 34,3333           70535                           SLOAD    SR1                                   
031244,000164: 34,3334           01146                                    OPTION2                               
031245,000165: 34,3335           71230                           BHIZ     DLOAD                                 
031246,000166: 34,3336           71344                                    OPTN1                                 
031247,000167: 34,3337           03631                                    TINT                                  
031248,000168: 34,3340           02303                           STORE    TINTSOI                               #  STORE FOR SOR PHASE
031249,000169: 34,3341           77614                           CLRGO                                          
031250,000170: 34,3342           01230                                    OPTNSW                                #  OPTNSW; ON = SOI, OFF = SOR
031251,000171: 34,3343           71375                                    JUNCTN1                               
031252,000172: 34,3344           43014        OPTN1              SET      CLEAR                                 #  SOI
031253,000173: 34,3345           01070                                    OPTNSW                                
031254,000174: 34,3346           00670                                    UPDATFLG                              
031255,000175: 34,3347           77624                           CALL                                           
031256,000176: 34,3350           71554                                    PREC/TT                               
031257,000177: 34,3351           43015                           DAD      SET                                   
031258,000178: 34,3352           03442                                    TIG                                   
031259,000179: 34,3353           00470                                    UPDATFLG                              
031260,000180: 34,3354           03631                           STORE    TINT                                  #  TI = TIG + TF
031261,000181: 34,3355           77776                           EXIT                                           
031262,000182: 34,3356           33635                           CAF      V06N57SR                              #  DISPLAY DELTA R
031263,000183: 34,3357           04616                           TCR      BANKCALL                              
031264,000184: 34,3360           20635                           CADR     GOFLASHR                              
031265,000185: 34,3361           16001                           TCF      GOTOPOOH                              #  TERMINATE
031266,000186: 34,3362           13367                           TCF      +5                                    #  PROCEED
031267,000187: 34,3363           13356                           TCF      -5                                    #  RECYCLE
031268,000188: 34,3364           36242                           CAF      SIX                                   #  IMMEDIATE RETURN - BLANK R2, R3
031269,000189: 34,3365           05464                           TCR      BLANKET                               
031270,000190: 34,3366           15155                           TCF      ENDOFJOB                              
031271,000191: 34,3367           00006                 +5        EXTEND                                         
031272,000192: 34,3370           31631                           DCA      TINT                                  
031273,000193: 34,3371           53046                           DXCH     DSPTEM1                               #  FOR DISPLAY
031274,000194: 34,3372           33636                           CAF      V06N34SR                              #  DISPLAY TIME OF INTERCEPT
031275,000195: 34,3373           03621                           TC       VNDSPLY                               
031276,000196: 34,3374           06037                           TC       INTPRET                               
031277,000197: 34,3375           45014        JUNCTN1            CLEAR    CALL                                  

Page 726

031279,000199: 34,3376           04266                                    P39/79SW                              
031280,000200: 34,3377           20000                                    SELECTMU                              #  SELECT MU, CLEAR FINALFLG, GO TO VN1645
031281,000201: 34,3400           77624        RECYCLE            CALL                                           
031282,000202: 34,3401           71554                                    PREC/TT                               
031283,000203: 34,3402           71214                           BOFF     DLOAD                                 
031284,000204: 34,3403           01350                                    OPTNSW                                
031285,000205: 34,3404           71424                                    OPTN2                                 
031286,000206: 34,3405           03631                                    TINT                                  
031287,000207: 34,3406           34041                           STCALL   TDEC1                                 #  PRECISION UPDATE PASSIVE VEHICLE TO
031288,000208: 34,3407           71605                                    INTRPVP                               #        INTERCEPT TIME
031289,000209: 34,3410           53575                           VLOAD    UNIT                                  
031290,000210: 34,3411           00001                                    RATT                                  #  RP/(RP)
031291,000211: 34,3412           47315                           PDVL     VXV                                   
031292,000212: 34,3413           00007                                    VATT                                  
031293,000213: 34,3414           60246                           ABVAL    NORM                                  #  (VP X RP/(RP))
031294,000214: 34,3415           00047                                    X1                                    
031295,000215: 34,3416           56325                           PDDL     DDV                                   
031296,000216: 34,3417           02303                                    DELTAR                                
031297,000217: 34,3420           77657                           SL*                                            #  DELTA R / (VP X RP/RP)
031298,000218: 34,3421           20172                                    0          -7,1                       
031299,000219: 34,3422           36305                           STCALL   DELTTIME                              #  DELTA T = (RP) DELTA R / (VP X RP)
031300,000220: 34,3423           71430                                    JUNCTN2                               
031301,000221: 34,3424           43345        OPTN2              DLOAD    DAD                                   
031302,000222: 34,3425           02303                                    TINTSOI                               
031303,000223: 34,3426           00037                                    T                                     
031304,000224: 34,3427           03631                           STORE    TINT                                  #  TI = TI + TF
031305,000225: 34,3430           45345        JUNCTN2            DLOAD    DSU                                   
031306,000226: 34,3431           03631                                    TINT                                  
031307,000227: 34,3432           02305                                    DELTTIME                              
031308,000228: 34,3433           02307                           STORE    TARGTIME                              #  TT = TI - DELTA T
031309,000229: 
031310,000230:                                                                                                  #  .... MAINRTNE ....
031311,000231: 
031312,000232:                                                                                                  #  SUBROUTINES USED
031313,000233: 
031314,000234:                                                                                                  #        S3435.25
031315,000235:                                                                                                  #        PERIAPO1
031316,000236:                                                                                                  #        SHIFTR1
031317,000237:                                                                                                  #        VNDSPLY
031318,000238:                                                                                                  #        BANKCALL
031319,000239:                                                                                                  #        GOFLASH
031320,000240:                                                                                                  #        GOTOPOOH
031321,000241:                                                                                                  #        VN1645
031322,000242: 
031323,000243: 34,3434           34041        MAINRTNE           STCALL   TDEC1                                 #  PRECISION UPDATE PASSIVE VEHICLE TO
031324,000244: 34,3435           71605                                    INTRPVP                               #        TARGET TIME
031325,000245: 34,3436           77745                           DLOAD                                          
031326,000246: 34,3437           03442                                    TIG                                   
031327,000247: 34,3440           03610                           STORE    INTIME                                
031328,000248: 34,3441           77331                           SSP      VLOAD                                 
031329,000249: 34,3442           03471                                    SUBEXIT                               
031330,000250: 34,3443           71447                                    TEST3979                              

Page 727

031332,000252: 34,3444           00001                                    RATT                                  
031333,000253: 34,3445           77624                           CALL                                           
031334,000254: 34,3446           73327                                    S3435.25                              
031335,000255: 34,3447           43014        TEST3979           BOFF     BON                                   
031336,000256: 34,3450           04346                                    P39/79SW                              
031337,000257: 34,3451           71460                                    MAINRTN1                              
031338,000258: 34,3452           01311                                    FINALFLG                              
031339,000259: 34,3453           71456                                    P39P79                                
031340,000260: 34,3454           77614                           SET                                            
031341,000261: 34,3455           00470                                    UPDATFLG                              
031342,000262: 34,3456           77776        P39P79             EXIT                                           
031343,000263: 34,3457           03505                           TC       DSPLY81                               #  FOR P39 AND P79
031344,000264: 34,3460           51575        MAINRTN1           VLOAD    ABVAL                                 
031345,000265: 34,3461           02366                                    DELVEET3                              
031346,000266: 34,3462           27576                           STOVL    DELVTPI                               #  DELTA V
031347,000267: 34,3463           03506                                    VPASS4                                
031348,000268: 34,3464           51451                           VSU      ABVAL                                 
031349,000269: 34,3465           03566                                    VTPRIME                               
031350,000270: 34,3466           26350                           STOVL    DELVTPF                               #  DELTA V (FINAL) = V'T - VT
031351,000271: 34,3467           03536                                    RACT3                                 
031352,000272: 34,3470           45115                           PDVL     CALL                                  
031353,000273: 34,3471           02337                                    VIPRIME                               
031354,000274: 34,3472           46316                                    PERIAPO1                              #  GET PERIGEE ALTITUDE
031355,000275: 34,3473           77624                           CALL                                           
031356,000276: 34,3474           46426                                    SHIFTR1                               
031357,000277: 34,3475           03606                           STORE    POSTTPI                               
031358,000278: 34,3476           43014                           BON      SET                                   
031359,000279: 34,3477           01311                                    FINALFLG                              
031360,000280: 34,3500           71502                                    DSPLY58                               
031361,000281: 34,3501           00470                                    UPDATFLG                              
031362,000282: 34,3502           77776        DSPLY58            EXIT                                           
031363,000283: 34,3503           33637                           CAF      V06N58SR                              #  DISPLAY HP, DELTA V, DELTA V (FINAL)
031364,000284: 34,3504           03621                           TC       VNDSPLY                               
031365,000285: 34,3505           33640        DSPLY81            CAF      V06N81SR                              #  DISPLAY DELTA V (LV)
031366,000286: 34,3506           03621                           TC       VNDSPLY                               
031367,000287: 34,3507           06037                           TC       INTPRET                               
031368,000288: 34,3510           77214                           CLEAR    VLOAD                                 
031369,000289: 34,3511           01267                                    XDELVFLG                              
031370,000290: 34,3512           02366                                    DELVEET3                              
031371,000291: 34,3513           37656                           STCALL   DELVSIN                               
031372,000292: 34,3514           73606                                    VN1645                                #  DISPLAY TRKMKCNT, TTOGO, +MGA
031373,000293: 34,3515           52014                           BON      GOTO                                  
031374,000294: 34,3516           04306                                    P39/79SW                              
031375,000295: 34,3517           71541                                    P39/P79B                              
031376,000296: 34,3520           71400                                    RECYCLE                               
031377,000297: 
031378,000298:                                                                                                  #  STABLE ORBIT MIDCOURSE PROGRAM (P39 AND P79)
031379,000299: 
031380,000300:                                                                                                  #  MOD NO -1             LOG SECTION - STABLE ORBIT - P38-P39
031381,000301:                                                                                                  #  MOD BY RUDNICKI.S     DATE 25JAN68
031382,000302: 

Page 728

031384,000304:                                                                                                  #  FUNCTIONAL DESCRIPTION
031385,000305: 
031386,000306:                                                                                                  #        P39 AND P79 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
031387,000307:                                                                                                  #        CONDITIONS REQUIRED BY THE AGC TO MAKE A MIDCOURSE CORRECTION
031388,000308:                                                                                                  #        MANEUVER AFTER COMPLETING THE SOI MANEUVER BUT BEFORE MAKING
031389,000309:                                                                                                  #        THE SOR MANEUVER
031390,000310: 
031391,000311:                                                                                                  #  CALLING SEQUENCE
031392,000312: 
031393,000313:                                                                                                  #        ASTRONAUT REQUEST THRU DSKY
031394,000314: 
031395,000315:                                                                                                  #        V37E39E         IF THIS VEHICLE IS ACTIVE VEHICLE
031396,000316:                                                                                                  #        V37E79E         IF OTHER VEHICLE IS ACTIVE VEHICLE
031397,000317: 
031398,000318:                                                                                                  #  INPUT
031399,000319: 
031400,000320:                                                                                                  #        (1)  TPASS4     TIME OF INTERCEPT - SAVED FROM P38/P78
031401,000321:                                                                                                  #        (2)  TARGTIME   TIME THAT PASSIVE VEHICLE IS AT INTERCEPT POINT -
031402,000322:                                                                                                  #                        SAVED FROM P38/P78
031403,000323: 
031404,000324:                                                                                                  #  OUTPUT
031405,000325: 
031406,000326:                                                                                                  #        (1)  TRKMKCNT   NUMBER OF MARKS
031407,000327:                                                                                                  #        (2)  TTOGO      TIME TO GO
031408,000328:                                                                                                  #        (3)  +MGA       MIDDLE GIMBAL ANGLE
031409,000329:                                                                                                  #        (4)  DELVLVC    DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
031410,000330: 
031411,000331:                                                                                                  #  SUBROUTINES USED
031412,000332: 
031413,000333:                                                                                                  #        AVFLAGA
031414,000334:                                                                                                  #        AVFLAGP
031415,000335:                                                                                                  #        LOADTIME
031416,000336:                                                                                                  #        SELECTMU
031417,000337:                                                                                                  #        PRECSET
031418,000338:                                                                                                  #        S34/35.1
031419,000339:                                                                                                  #        MAINRTNE
031420,000340: 
031421,000341: 34,3521           04616        P39                TC       BANKCALL                              
031422,000342: 34,3522           72347                           CADR     AVFLAGA                               #  THIS VEHICLE ACTIVE
031423,000343: 34,3523           00006                           EXTEND                                         
031424,000344: 34,3524           31401                           DCA      ATIGINC                               
031425,000345: 34,3525           03532                           TC       P39/P79A                              
031426,000346: 34,3526           04616        P79                TC       BANKCALL                              
031427,000347: 34,3527           72354                           CADR     AVFLAGP                               #  OTHER VEHICLE ACTIVE
031428,000348: 34,3530           00006                           EXTEND                                         
031429,000349: 34,3531           31403                           DCA      PTIGINC                               
031430,000350: 34,3532           53576        P39/P79A           DXCH     KT                                    #  TIME TO PREPARE FOR BURN
031431,000351: 34,3533           04616                           TC       BANKCALL                              
031432,000352: 34,3534           72361                           CADR     P20FLGON                              #  SET UPDATFLG, TRACKFLG
031433,000353: 34,3535           06037                           TC       INTPRET                               

Page 729

031435,000355: 34,3536           45014                           SET      CALL                                  
031436,000356: 34,3537           04066                                    P39/79SW                              
031437,000357: 34,3540           20000                                    SELECTMU                              #  SELECT MU, CLEAR FINALFLG, GO TO VN1645
031438,000358: 34,3541           43234        P39/P79B           RTB      DAD                                   
031439,000359: 34,3542           21573                                    LOADTIME                              
031440,000360: 34,3543           03576                                    KT                                    
031441,000361: 34,3544           03442                           STORE    TIG                                   #  TIG = T (PRESENT) + PREPARATION TIME
031442,000362: 34,3545           34041                           STCALL   TDEC1                                 #  PRECISION UPDATE ACTIVE AND PASSIVE
031443,000363: 34,3546           46360                                    PRECSET                               #        VEHICLES TO TIG
031444,000364: 34,3547           77624                           CALL                                           
031445,000365: 34,3550           73274                                    S34/35.1                              #  GET UNIT NORMAL
031446,000366: 34,3551           52145                           DLOAD    GOTO                                  
031447,000367: 34,3552           02307                                    TARGTIME                              
031448,000368: 34,3553           71434                                    MAINRTNE                              #  CALCULATE DELTA V AND DELTA V (LV)
031449,000369: 
031450,000370:                                                                                                  #  .... PREC/TT ....
031451,000371: 
031452,000372:                                                                                                  #  SUBROUTINES USED
031453,000373: 
031454,000374:                                                                                                  #        PRECSET
031455,000375:                                                                                                  #        TIMETHET
031456,000376:                                                                                                  #        S34/35.1
031457,000377: 
031458,000378: 34,3554           71220        PREC/TT            STQ      DLOAD                                 
031459,000379: 34,3555           03465                                    RTRN                                  
031460,000380: 34,3556           03442                                    TIG                                   
031461,000381: 34,3557           34041                           STCALL   TDEC1                                 #  PRECISION UPDATE ACTIVE AND PASSIVE
031462,000382: 34,3560           46360                                    PRECSET                               #        VEHICLES TO TIG
031463,000383: 34,3561           53775                           VLOAD    VSR*                                  
031464,000384: 34,3562           03552                                    RPASS3                                
031465,000385: 34,3563           57176                                    0,2                                   
031466,000386: 34,3564           16655                           STODL    RVEC                                  
031467,000387: 34,3565           03621                                    CENTANG                               
031468,000388: 34,3566           71406                           PUSH     COS                                   
031469,000389: 34,3567           16732                           STODL    CSTH                                  
031470,000390: 34,3570           43156                           SIN      SET                                   
031471,000391: 34,3571           03466                                    RVSW                                  
031472,000392: 34,3572           26730                           STOVL    SNTH                                  
031473,000393: 34,3573           03560                                    VPASS3                                
031474,000394: 34,3574           77657                           VSR*                                           
031475,000395: 34,3575           57176                                    0,2                                   
031476,000396: 34,3576           36744                           STCALL   VVEC                                  #  GET TRANSFER TIME BASED ON CENTANG OF
031477,000397: 34,3577           24732                                    TIMETHET                              #        PASSIVE VEHICLE
031478,000398: 34,3600           77624                           CALL                                           
031479,000399: 34,3601           73274                                    S34/35.1                              #  GET UNIT NORMAL
031480,000400: 34,3602           52145                           DLOAD    GOTO                                  
031481,000401: 34,3603           00037                                    T                                     
031482,000402: 34,3604           03465                                    RTRN                                  
031483,000403: 
031484,000404:                                                                                                  #  .... INTRPVP ....
031485,000405: 
031486,000406:                                                                                                  #  SUBROUTINES USED
031487,000407: 
031488,000408:                                                                                                  #        CSMPREC

Page 730

031490,000410:                                                                                                  #        LEMPREC
031491,000411: 
031492,000412: 34,3605           43020        INTRPVP            STQ      BOFF                                  #  PRECISION UPDATE PASSIVE VEHICLE TO
031493,000413: 34,3606           03465                                    RTRN                                  #        TDEC1
031494,000414: 34,3607           01352                                    AVFLAG                                
031495,000415: 34,3610           71615                                    OTHERV                                
031496,000416: 34,3611           77624                           CALL                                           
031497,000417: 34,3612           27043                                    CSMPREC                               
031498,000418: 34,3613           77650                           GOTO                                           
031499,000419: 34,3614           03465                                    RTRN                                  
031500,000420: 34,3615           77624        OTHERV             CALL                                           
031501,000421: 34,3616           27057                                    LEMPREC                               
031502,000422: 34,3617           77650                           GOTO                                           
031503,000423: 34,3620           03465                                    RTRN                                  
031504,000424: 
031505,000425:                                                                                                  #  .... VNDSPLY ....
031506,000426: 
031507,000427:                                                                                                  #  SUBROUTINES USED
031508,000428: 
031509,000429:                                                                                                  #        BANKCALL
031510,000430:                                                                                                  #        GOFLASH
031511,000431:                                                                                                  #        GOTOPOOH
031512,000432: 
031513,000433: 34,3621           00006        VNDSPLY            EXTEND                                         #  FLASH DISPLAY
031514,000434: 34,3622           23465                           QXCH     RTRN                                  
031515,000435: 34,3623           55615                           TS       VERBNOUN                              
031516,000436: 34,3624           31615                           CA       VERBNOUN                              
031517,000437: 34,3625           04616                           TCR      BANKCALL                              
031518,000438: 34,3626           20476                           CADR     GOFLASH                               
031519,000439: 34,3627           16001                           TCF      GOTOPOOH                              #  TERMINATE
031520,000440: 34,3630           01465                           TC       RTRN                                  #  PROCEED
031521,000441: 34,3631           13624                           TCF      -5                                    #  RECYCLE
031522,000442: 34,3632           01441        V06N33SR           VN       0633                                  
031523,000443: 34,3633           01467        V06N55SR           VN       0655                                  
031524,000444: 34,3634           01006        V04N06SR           VN       0406                                  
031525,000445: 34,3635           01471        V06N57SR           VN       0657                                  
031526,000446: 34,3636           01442        V06N34SR           VN       0634                                  
031527,000447: 34,3637           01472        V06N58SR           VN       0658                                  
031528,000448: 34,3640           01521        V06N81SR           VN       0681                                  
031529,000449: 34,3641           00002        DECTWO             OCT      2                                     
031530,000450: 
031531,000451: 
031532,000452: 
031533,000453: 
031534,000454: 

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