Source Code

This is a reconstruction of the AGC program Luminary 99 Rev 0. It was the second release of the Lunar Module flight software targeted for use in Apollo 11, after Luminary 97. A bug (which had been around since at least Apollo 10, Luminary 69) was discovered in Rev 0 shortly before the Apollo 11 flight, resulting in a last minute revision into Rev 1, which is what actually flew rather than the Rev 0 presented here. A hardcopy of Rev 0 is known to exist — it belonged to AGC developer Allan Klumpp for many years — but unfortunately the Virtual AGC Project has not had access to that hardcopy. Thus the code you see here had been reconstructed (we believe accurately) rather than transcribed. The first step of the reconstruction of the Rev 0 source code was the transcription of the Rev 1 source code from a hardcopy in the MIT Museum collection. The process of reverting the active portion of the source code (i.e., other than program comments) from Rev 1 to Rev 0 was very minor, consisting only of moving the position of the STARTSB1 label in FRESH START AND RESTART. Allan had previously given us the checksums of the memory banks of Rev 0, and we have verified the program presented here has checksums identical to all banks of Allan's listing of Rev 0. The notations on Allan's Rev 0 program listing read, in part:

	GAP:  ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-051

A single program comment is known to differ between Rev 0 and Rev 1, but these are harder to reconstruct and verify than changes to the active portion of the code. Thus it is possible that there are additional differences between the program comments in Rev 0 and Rev 1 that are unknown to us, and therefore are not reflected in the code presented here.

031654,000002:                                                                                                  ## Copyright:   Public domain.
031655,000003:                                                                                                  ## Filename:    STABLE_ORBIT_-_P38-P39.agc
031656,000004:                                                                                                  ## Purpose:     Part of the reconstructed source code for LMY99 Rev 0,
031657,000005:                                                                                                  ##              otherwise known as Luminary Rev 99, the second release
031658,000006:                                                                                                  ##              of the Apollo Guidance Computer (AGC) software for Apollo 11.
031659,000007:                                                                                                  ##              It differs from LMY99 Rev 1 (the flown version) only in the
031660,000008:                                                                                                  ##              placement of a single label. The corrections shown here have
031661,000009:                                                                                                  ##              been verified to have the same bank checksums as AGC developer
031662,000010:                                                                                                  ##              Allan Klumpp's copy of Luminary Rev 99, and so are believed
031663,000011:                                                                                                  ##              to be accurate. This file is intended to be a faithful 
031664,000012:                                                                                                  ##              recreation, except that the code format has been changed to 
031665,000013:                                                                                                  ##              conform to the requirements of the yaYUL assembler rather than 
031666,000014:                                                                                                  ##              the original YUL assembler.
031667,000015:                                                                                                  ##
031668,000016:                                                                                                  ## Assembler:   yaYUL
031669,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
031670,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo.
031671,000019:                                                                                                  ## Pages:       723-730
031672,000020:                                                                                                  ## Mod history: 2009-05-19 RSB  Adapted from the corresponding 
031673,000021:                                                                                                  ##                              Colossus249 file (there being no corresponding
031674,000022:                                                                                                  ##                              Luminary131 source-code file), using page 
031675,000023:                                                                                                  ##                              images from Luminary 1A.
031676,000024:                                                                                                  ##              2009-06-07 RSB  Eliminated an extraneous instruction.
031677,000025:                                                                                                  ##              2011-01-06 JL   Fixed pseudo-label indentation.
031678,000026:                                                                                                  ##              2016-12-13 RSB  GOTOP00H -> GOTOPOOH
031679,000027:                                                                                                  ##              2016-12-15 RSB  Proofed text comments with octopus/ProoferComments
031680,000028:                                                                                                  ##                              and corrected the errors found.
031681,000029:                                                                                                  ##              2017-01-28 RSB  Back-ported a comment-text fix from proofing
031682,000030:                                                                                                  ##                              of Luminary 69.  Also, changed the filename
031683,000031:                                                                                                  ##                              (from STABLE_ORBIT.agc) so as to agree with 
031684,000032:                                                                                                  ##                              the other AGC versions having a corresponding
031685,000033:                                                                                                  ##                              log section (making it easier to perform diffs 
031686,000034:                                                                                                  ##                              between versions), and to agree with what it 
031687,000035:                                                                                                  ##                              says in ASSEMBLY AND OPERATION INFORMATION.
031688,000036:                                                                                                  ##              2017-03-17 RSB  Comment-text fixes identified in diff'ing
031689,000037:                                                                                                  ##                              Luminary 99 vs Comanche 55.
031690,000038:                                                                                                  ##              2017-08-01 MAS  Created from LMY99 Rev 1.
031691,000039: 
031692,000040:                                                                                                  ## This source code has been transcribed or otherwise adapted from
031693,000041:                                                                                                  ## digitized images of a hardcopy from the MIT Museum.  The digitization
031694,000042:                                                                                                  ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
031695,000043:                                                                                                  ## the Museum.  Many thanks to both.  The images (with suitable reduction
031696,000044:                                                                                                  ## in storage size and consequent reduction in image quality as well) are
031697,000045:                                                                                                  ## available online at www.ibiblio.org/apollo.  If for some reason you
031698,000046:                                                                                                  ## find that the images are illegible, contact me at info@sandroid.org
031699,000047:                                                                                                  ## about getting access to the (much) higher-quality images which Paul
031700,000048:                                                                                                  ## actually created.
031701,000049:                                                                                                  ##
031702,000050:                                                                                                  ## The code has been modified to match LMY99 Revision 0, otherwise
031703,000051:                                                                                                  ## known as Luminary Revision 99, the Apollo 11 software release preceeding
031704,000052:                                                                                                  ## the listing from which it was transcribed. It has been verified to
031705,000053:                                                                                                  ## contain the same bank checksums as AGC developer Allan Klumpp's listing
031706,000054:                                                                                                  ## of Luminary Revision 99 (for which we do not have scans).
031707,000055:                                                                                                  ##
031708,000056:                                                                                                  ## Notations on Allan Klumpp's listing read, in part:
031709,000057:                                                                                                  ##
031710,000058:                                                                                                  ##      ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-51
031711,000059: 

Page 723

031713,000061:                                                                                                  #  STABLE ORBIT RENDEZVOUS PROGRAMS (P38 AND P78)
031714,000062: 
031715,000063:                                                                                                  #  MOD NO -1             LOG SECTION - STABLE ORBIT - P38-P39
031716,000064:                                                                                                  #  MOD BY RUDNICKI.S     DATE 25JAN68
031717,000065: 
031718,000066:                                                                                                  #  FUNCTIONAL DESCRIPTION
031719,000067: 
031720,000068:                                                                                                  #        P38 AND P78 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
031721,000069:                                                                                                  #        CONDITIONS REQUIRED BY THE AGC TO (1) PUT THE ACTIVE VEHICLE
031722,000070:                                                                                                  #        ON A TRANSFER TRAJECTORY THAT INTERCEPTS THE PASSIVE VEHICLE
031723,000071:                                                                                                  #        ORBIT A GIVEN DISTANCE, DELTA R, EITHER AHEAD OF OR BEHIND THE
031724,000072:                                                                                                  #        PASSIVE VEHICLE AND (2) ACTUALLY PLACE THE ACTIVE VEHICLE IN THE
031725,000073:                                                                                                  #        PASSIVE VEHICLE ORBIT WITH A DELTA R SEPARATION BETWEEN THE TWO
031726,000074:                                                                                                  #        VEHICLES
031727,000075: 
031728,000076:                                                                                                  #  CALLING SEQUENCE
031729,000077: 
031730,000078:                                                                                                  #        ASTRONAUT REQUEST THRU DSKY
031731,000079: 
031732,000080:                                                                                                  #        V37E38E         IF THIS VEHICLE IS ACTIVE VEHICLE
031733,000081:                                                                                                  #        V37E78E         IF OTHER VEHICLE IS ACTIVE VEHICLE
031734,000082: 
031735,000083:                                                                                                  #  INPUT
031736,000084: 
031737,000085:                                                                                                  #        (1)     SOI MANEUVER
031738,000086: 
031739,000087:                                                                                                  #                (A)  TIG        TIME OF SOI MANEUVER
031740,000088:                                                                                                  #                (B)  CENTANG    ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE
031741,000089:                                                                                                  #                                DURING TRANSFER FROM TIG TO TIME OF INTERCEPT
031742,000090:                                                                                                  #                (C)  DELTAR     THE DESIRED SEPARATION OF THE TWO VEHICLES
031743,000091:                                                                                                  #                                SPECIFIED AS A DISTANCE ALONG THE PASSIVE VEHICLE
031744,000092:                                                                                                  #                                ORBIT
031745,000093:                                                                                                  #                (D)  OPTION     EQUALS 1 FOR SOI
031746,000094: 
031747,000095:                                                                                                  #        (2)     SOR MANEUVER
031748,000096: 
031749,000097:                                                                                                  #                (A)  TIG        TIME OF SOR MANEUVER
031750,000098:                                                                                                  #                (B)  CENTANG    AN OPTIONAL RESPECIFICATION OF 1 (B) ABOVE
031751,000099:                                                                                                  #                (C)  OPTION     EQUALS 2 FOR SOR
031752,000100:                                                                                                  #                (D)  DELTTIME   THE TIME REQUIRED TO TRAVERSE DELTA R WHEN
031753,000101:                                                                                                  #                                TRAVELING AT A VELOCITY EQUAL TO THE HORIZONTAL
031754,000102:                                                                                                  #                                VELOCITY OF THE PASSIVE VEHICLE - SAVED FROM
031755,000103:                                                                                                  #                                SOI PHASE
031756,000104:                                                                                                  #                (E)  TINT       TIME OF INTERCEPT (SOI) - SAVED FROM SOI PHASE
031757,000105: 
031758,000106:                                                                                                  #  OUTPUT
031759,000107: 
031760,000108:                                                                                                  #        (1)  TRKMKCNT   NUMBER OF MARKS
031761,000109:                                                                                                  #        (2)  TTOGO      TIME TO GO
031762,000110:                                                                                                  #        (3)  +MGA       MIDDLE GIMBAL ANGLE

Page 724

031764,000112:                                                                                                  #        (4)  DSPTEM1    TIME OF INTERCEPT OF PASSIVE VEHICLE ORBIT
031765,000113:                                                                                                  #                        (FOR SOI ONLY)
031766,000114:                                                                                                  #        (5)  POSTTPI    PERIGEE ALTITUDE OF ACTIVE VEHICLE ORBIT AFTER
031767,000115:                                                                                                  #                        THE SOI (SOR) MANEUVER
031768,000116:                                                                                                  #        (6)  DELVTPI    MAGNITUDE OF DELTA V AT SOI (SOR) TIME
031769,000117:                                                                                                  #        (7)  DELVTPF    MAGNITUDE OF DELTA V AT INTERCEPT TIME
031770,000118:                                                                                                  #        (8)  DELVLVC    DELTA VELOCITY AT SOI (AND SOR) - LOCAL VERTICAL
031771,000119:                                                                                                  #                        COORDINATES
031772,000120: 
031773,000121:                                                                                                  #  SUBROUTINES USED
031774,000122: 
031775,000123:                                                                                                  #        AVFLAGA
031776,000124:                                                                                                  #        AVFLAGP
031777,000125:                                                                                                  #        VNDSPLY
031778,000126:                                                                                                  #        BANKCALL
031779,000127:                                                                                                  #        GOFLASHR
031780,000128:                                                                                                  #        GOTOPOOH
031781,000129:                                                                                                  #        BLANKET
031782,000130:                                                                                                  #        ENDOFJOB
031783,000131:                                                                                                  #        PREC/TT
031784,000132:                                                                                                  #        SELECTMU
031785,000133:                                                                                                  #        INTRPVP
031786,000134:                                                                                                  #        MAINRTNE
031787,000135: 
031788,000136: 04,3013                                           BANK     04                                    
031789,000137: 34,2000                                           SETLOC   STBLEORB                              
031790,000138: 34,2000                                           BANK                                           
031791,000139: 
031792,000140: 34,3271  E7,1470                                  EBANK=   SUBEXIT                               
031793,000141: 34,3271                                           COUNT*   $$/P3879                              
031794,000142: 
031795,000143: 34,3271           04616        P38                TC       BANKCALL                              
031796,000144: 34,3272           72347                           CADR     AVFLAGA                               #  THIS VEHICLE ACTIVE
031797,000145: 34,3273           03276                           TC       +3                                    
031798,000146: 34,3274           04616        P78                TC       BANKCALL                              
031799,000147: 34,3275           72354                           CADR     AVFLAGP                               #  OTHER VEHICLE ACTIVE
031800,000148: 34,3276           04616                           TC       BANKCALL                              
031801,000149: 34,3277           72361                           CADR     P20FLGON                              #  SET UPDATFLG, TRACKFLG
031802,000150: 34,3300           33641                           CAF      DECTWO                                
031803,000151: 34,3301           55466                           TS       NN                                    
031804,000152: 34,3302           33632                           CAF      V06N33SR                              #  DISPLAY TIG
031805,000153: 34,3303           03621                           TC       VNDSPLY                               
031806,000154: 34,3304           33633                           CAF      V06N55SR                              #  DISPLAY CENTANG
031807,000155: 34,3305           04616                           TCR      BANKCALL                              
031808,000156: 34,3306           20635                           CADR     GOFLASHR                              
031809,000157: 34,3307           16001                           TCF      GOTOPOOH                              #  TERMINATE
031810,000158: 34,3310           13315                           TCF      +5                                    #  PROCEED
031811,000159: 34,3311           13304                           TCF      -5                                    #  RECYCLE
031812,000160: 34,3312           36245                           CAF      THREE                                 #  IMMEDIATE RETURN - BLANK R1, R2
031813,000161: 34,3313           05464                           TCR      BLANKET                               

Page 725

031815,000163: 34,3314           15155                           TCF      ENDOFJOB                              
031816,000164: 34,3315           34756                           CAF      FIVE                                  
031817,000165: 34,3316           55144                           TS       OPTION1                               
031818,000166: 34,3317           34753                           CAF      ONE                                   
031819,000167: 34,3320           55145                           TS       OPTION2                               #  OPTION CODE IS SET TO 1
031820,000168: 34,3321           33634                           CAF      V04N06SR                              #  DISPLAY OPTION CODE - 1 = SOI, 2 = SOR
031821,000169: 34,3322           04616                           TCR      BANKCALL                              
031822,000170: 34,3323           20635                           CADR     GOFLASHR                              
031823,000171: 34,3324           16001                           TCF      GOTOPOOH                              #  TERMINATE
031824,000172: 34,3325           13332                           TCF      +5                                    #  PROCEED
031825,000173: 34,3326           13321                           TCF      -5                                    #  RECYCLE
031826,000174: 34,3327           34751                           CAF      BIT3                                  #  IMMEDIATE RETURN - BLANK R3
031827,000175: 34,3330           05464                           TCR      BLANKET                               
031828,000176: 34,3331           15155                           TCF      ENDOFJOB                              
031829,000177: 34,3332           06037                           TC       INTPRET                               
031830,000178: 34,3333           70535                           SLOAD    SR1                                   
031831,000179: 34,3334           01146                                    OPTION2                               
031832,000180: 34,3335           71230                           BHIZ     DLOAD                                 
031833,000181: 34,3336           71344                                    OPTN1                                 
031834,000182: 34,3337           03631                                    TINT                                  
031835,000183: 34,3340           02303                           STORE    TINTSOI                               #  STORE FOR SOR PHASE
031836,000184: 34,3341           77614                           CLRGO                                          
031837,000185: 34,3342           01230                                    OPTNSW                                #  OPTNSW; ON = SOI, OFF = SOR
031838,000186: 34,3343           71375                                    JUNCTN1                               
031839,000187: 34,3344           43014        OPTN1              SET      CLEAR                                 #  SOI
031840,000188: 34,3345           01070                                    OPTNSW                                
031841,000189: 34,3346           00670                                    UPDATFLG                              
031842,000190: 34,3347           77624                           CALL                                           
031843,000191: 34,3350           71554                                    PREC/TT                               
031844,000192: 34,3351           43015                           DAD      SET                                   
031845,000193: 34,3352           03442                                    TIG                                   
031846,000194: 34,3353           00470                                    UPDATFLG                              
031847,000195: 34,3354           03631                           STORE    TINT                                  #  TI = TIG + TF
031848,000196: 34,3355           77776                           EXIT                                           
031849,000197: 34,3356           33635                           CAF      V06N57SR                              #  DISPLAY DELTA R
031850,000198: 34,3357           04616                           TCR      BANKCALL                              
031851,000199: 34,3360           20635                           CADR     GOFLASHR                              
031852,000200: 34,3361           16001                           TCF      GOTOPOOH                              #  TERMINATE
031853,000201: 34,3362           13367                           TCF      +5                                    #  PROCEED
031854,000202: 34,3363           13356                           TCF      -5                                    #  RECYCLE
031855,000203: 34,3364           36242                           CAF      SIX                                   #  IMMEDIATE RETURN - BLANK R2, R3
031856,000204: 34,3365           05464                           TCR      BLANKET                               
031857,000205: 34,3366           15155                           TCF      ENDOFJOB                              
031858,000206: 34,3367           00006                 +5        EXTEND                                         
031859,000207: 34,3370           31631                           DCA      TINT                                  
031860,000208: 34,3371           53046                           DXCH     DSPTEM1                               #  FOR DISPLAY
031861,000209: 34,3372           33636                           CAF      V06N34SR                              #  DISPLAY TIME OF INTERCEPT
031862,000210: 34,3373           03621                           TC       VNDSPLY                               
031863,000211: 34,3374           06037                           TC       INTPRET                               
031864,000212: 34,3375           45014        JUNCTN1            CLEAR    CALL                                  

Page 726

031866,000214: 34,3376           04266                                    P39/79SW                              
031867,000215: 34,3377           20000                                    SELECTMU                              #  SELECT MU, CLEAR FINALFLG, GO TO VN1645
031868,000216: 34,3400           77624        RECYCLE            CALL                                           
031869,000217: 34,3401           71554                                    PREC/TT                               
031870,000218: 34,3402           71214                           BOFF     DLOAD                                 
031871,000219: 34,3403           01350                                    OPTNSW                                
031872,000220: 34,3404           71424                                    OPTN2                                 
031873,000221: 34,3405           03631                                    TINT                                  
031874,000222: 34,3406           34041                           STCALL   TDEC1                                 #  PRECISION UPDATE PASSIVE VEHICLE TO
031875,000223: 34,3407           71605                                    INTRPVP                               #        INTERCEPT TIME
031876,000224: 34,3410           53575                           VLOAD    UNIT                                  
031877,000225: 34,3411           00001                                    RATT                                  #  RP/(RP)
031878,000226: 34,3412           47315                           PDVL     VXV                                   
031879,000227: 34,3413           00007                                    VATT                                  
031880,000228: 34,3414           60246                           ABVAL    NORM                                  #  (VP X RP/(RP))
031881,000229: 34,3415           00047                                    X1                                    
031882,000230: 34,3416           56325                           PDDL     DDV                                   
031883,000231: 34,3417           02303                                    DELTAR                                
031884,000232: 34,3420           77657                           SL*                                            #  DELTA R / (VP X RP/RP)
031885,000233: 34,3421           20172                                    0          -7,1                       
031886,000234: 34,3422           36305                           STCALL   DELTTIME                              #  DELTA T = (RP) DELTA R / (VP X RP)
031887,000235: 34,3423           71430                                    JUNCTN2                               
031888,000236: 34,3424           43345        OPTN2              DLOAD    DAD                                   
031889,000237: 34,3425           02303                                    TINTSOI                               
031890,000238: 34,3426           00037                                    T                                     
031891,000239: 34,3427           03631                           STORE    TINT                                  #  TI = TI + TF
031892,000240: 34,3430           45345        JUNCTN2            DLOAD    DSU                                   
031893,000241: 34,3431           03631                                    TINT                                  
031894,000242: 34,3432           02305                                    DELTTIME                              
031895,000243: 34,3433           02307                           STORE    TARGTIME                              #  TT = TI - DELTA T
031896,000244: 
031897,000245:                                                                                                  #  .... MAINRTNE ....
031898,000246: 
031899,000247:                                                                                                  #  SUBROUTINES USED
031900,000248: 
031901,000249:                                                                                                  #        S3435.25
031902,000250:                                                                                                  #        PERIAPO1
031903,000251:                                                                                                  #        SHIFTR1
031904,000252:                                                                                                  #        VNDSPLY
031905,000253:                                                                                                  #        BANKCALL
031906,000254:                                                                                                  #        GOFLASH
031907,000255:                                                                                                  #        GOTOPOOH
031908,000256:                                                                                                  #        VN1645
031909,000257: 
031910,000258: 34,3434           34041        MAINRTNE           STCALL   TDEC1                                 #  PRECISION UPDATE PASSIVE VEHICLE TO
031911,000259: 34,3435           71605                                    INTRPVP                               #        TARGET TIME
031912,000260: 34,3436           77745                           DLOAD                                          
031913,000261: 34,3437           03442                                    TIG                                   
031914,000262: 34,3440           03610                           STORE    INTIME                                
031915,000263: 34,3441           77331                           SSP      VLOAD                                 
031916,000264: 34,3442           03471                                    SUBEXIT                               
031917,000265: 34,3443           71447                                    TEST3979                              

Page 727

031919,000267: 34,3444           00001                                    RATT                                  
031920,000268: 34,3445           77624                           CALL                                           
031921,000269: 34,3446           73327                                    S3435.25                              
031922,000270: 34,3447           43014        TEST3979           BOFF     BON                                   
031923,000271: 34,3450           04346                                    P39/79SW                              
031924,000272: 34,3451           71460                                    MAINRTN1                              
031925,000273: 34,3452           01311                                    FINALFLG                              
031926,000274: 34,3453           71456                                    P39P79                                
031927,000275: 34,3454           77614                           SET                                            
031928,000276: 34,3455           00470                                    UPDATFLG                              
031929,000277: 34,3456           77776        P39P79             EXIT                                           
031930,000278: 34,3457           03505                           TC       DSPLY81                               #  FOR P39 AND P79
031931,000279: 34,3460           51575        MAINRTN1           VLOAD    ABVAL                                 
031932,000280: 34,3461           02366                                    DELVEET3                              
031933,000281: 34,3462           27576                           STOVL    DELVTPI                               #  DELTA V
031934,000282: 34,3463           03506                                    VPASS4                                
031935,000283: 34,3464           51451                           VSU      ABVAL                                 
031936,000284: 34,3465           03566                                    VTPRIME                               
031937,000285: 34,3466           26350                           STOVL    DELVTPF                               #  DELTA V (FINAL) = V'T - VT
031938,000286: 34,3467           03536                                    RACT3                                 
031939,000287: 34,3470           45115                           PDVL     CALL                                  
031940,000288: 34,3471           02337                                    VIPRIME                               
031941,000289: 34,3472           46316                                    PERIAPO1                              #  GET PERIGEE ALTITUDE
031942,000290: 34,3473           77624                           CALL                                           
031943,000291: 34,3474           46426                                    SHIFTR1                               
031944,000292: 34,3475           03606                           STORE    POSTTPI                               
031945,000293: 34,3476           43014                           BON      SET                                   
031946,000294: 34,3477           01311                                    FINALFLG                              
031947,000295: 34,3500           71502                                    DSPLY58                               
031948,000296: 34,3501           00470                                    UPDATFLG                              
031949,000297: 34,3502           77776        DSPLY58            EXIT                                           
031950,000298: 34,3503           33637                           CAF      V06N58SR                              #  DISPLAY HP, DELTA V, DELTA V (FINAL)
031951,000299: 34,3504           03621                           TC       VNDSPLY                               
031952,000300: 34,3505           33640        DSPLY81            CAF      V06N81SR                              #  DISPLAY DELTA V (LV)
031953,000301: 34,3506           03621                           TC       VNDSPLY                               
031954,000302: 34,3507           06037                           TC       INTPRET                               
031955,000303: 34,3510           77214                           CLEAR    VLOAD                                 
031956,000304: 34,3511           01267                                    XDELVFLG                              
031957,000305: 34,3512           02366                                    DELVEET3                              
031958,000306: 34,3513           37656                           STCALL   DELVSIN                               
031959,000307: 34,3514           73606                                    VN1645                                #  DISPLAY TRKMKCNT, TTOGO, +MGA
031960,000308: 34,3515           52014                           BON      GOTO                                  
031961,000309: 34,3516           04306                                    P39/79SW                              
031962,000310: 34,3517           71541                                    P39/P79B                              
031963,000311: 34,3520           71400                                    RECYCLE                               
031964,000312: 
031965,000313:                                                                                                  #  STABLE ORBIT MIDCOURSE PROGRAM (P39 AND P79)
031966,000314: 
031967,000315:                                                                                                  #  MOD NO -1             LOG SECTION - STABLE ORBIT - P38-P39
031968,000316:                                                                                                  #  MOD BY RUDNICKI.S     DATE 25JAN68
031969,000317: 

Page 728

031971,000319:                                                                                                  #  FUNCTIONAL DESCRIPTION
031972,000320: 
031973,000321:                                                                                                  #        P39 AND P79 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
031974,000322:                                                                                                  #        CONDITIONS REQUIRED BY THE AGC TO MAKE A MIDCOURSE CORRECTION
031975,000323:                                                                                                  #        MANEUVER AFTER COMPLETING THE SOI MANEUVER BUT BEFORE MAKING
031976,000324:                                                                                                  #        THE SOR MANEUVER
031977,000325: 
031978,000326:                                                                                                  #  CALLING SEQUENCE
031979,000327: 
031980,000328:                                                                                                  #        ASTRONAUT REQUEST THRU DSKY
031981,000329: 
031982,000330:                                                                                                  #        V37E39E         IF THIS VEHICLE IS ACTIVE VEHICLE
031983,000331:                                                                                                  #        V37E79E         IF OTHER VEHICLE IS ACTIVE VEHICLE
031984,000332: 
031985,000333:                                                                                                  #  INPUT
031986,000334: 
031987,000335:                                                                                                  #        (1)  TPASS4     TIME OF INTERCEPT - SAVED FROM P38/P78
031988,000336:                                                                                                  #        (2)  TARGTIME   TIME THAT PASSIVE VEHICLE IS AT INTERCEPT POINT -
031989,000337:                                                                                                  #                        SAVED FROM P38/P78
031990,000338: 
031991,000339:                                                                                                  #  OUTPUT
031992,000340: 
031993,000341:                                                                                                  #        (1)  TRKMKCNT   NUMBER OF MARKS
031994,000342:                                                                                                  #        (2)  TTOGO      TIME TO GO
031995,000343:                                                                                                  #        (3)  +MGA       MIDDLE GIMBAL ANGLE
031996,000344:                                                                                                  #        (4)  DELVLVC    DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
031997,000345: 
031998,000346:                                                                                                  #  SUBROUTINES USED
031999,000347: 
032000,000348:                                                                                                  #        AVFLAGA
032001,000349:                                                                                                  #        AVFLAGP
032002,000350:                                                                                                  #        LOADTIME
032003,000351:                                                                                                  #        SELECTMU
032004,000352:                                                                                                  #        PRECSET
032005,000353:                                                                                                  #        S34/35.1
032006,000354:                                                                                                  #        MAINRTNE
032007,000355: 
032008,000356: 34,3521           04616        P39                TC       BANKCALL                              
032009,000357: 34,3522           72347                           CADR     AVFLAGA                               #  THIS VEHICLE ACTIVE
032010,000358: 34,3523           00006                           EXTEND                                         
032011,000359: 34,3524           31401                           DCA      ATIGINC                               
032012,000360: 34,3525           03532                           TC       P39/P79A                              
032013,000361: 34,3526           04616        P79                TC       BANKCALL                              
032014,000362: 34,3527           72354                           CADR     AVFLAGP                               #  OTHER VEHICLE ACTIVE
032015,000363: 34,3530           00006                           EXTEND                                         
032016,000364: 34,3531           31403                           DCA      PTIGINC                               
032017,000365: 34,3532           53576        P39/P79A           DXCH     KT                                    #  TIME TO PREPARE FOR BURN
032018,000366: 34,3533           04616                           TC       BANKCALL                              
032019,000367: 34,3534           72361                           CADR     P20FLGON                              #  SET UPDATFLG, TRACKFLG
032020,000368: 34,3535           06037                           TC       INTPRET                               

Page 729

032022,000370: 34,3536           45014                           SET      CALL                                  
032023,000371: 34,3537           04066                                    P39/79SW                              
032024,000372: 34,3540           20000                                    SELECTMU                              #  SELECT MU, CLEAR FINALFLG, GO TO VN1645
032025,000373: 34,3541           43234        P39/P79B           RTB      DAD                                   
032026,000374: 34,3542           21573                                    LOADTIME                              
032027,000375: 34,3543           03576                                    KT                                    
032028,000376: 34,3544           03442                           STORE    TIG                                   #  TIG = T (PRESENT) + PREPARATION TIME
032029,000377: 34,3545           34041                           STCALL   TDEC1                                 #  PRECISION UPDATE ACTIVE AND PASSIVE
032030,000378: 34,3546           46360                                    PRECSET                               #        VEHICLES TO TIG
032031,000379: 34,3547           77624                           CALL                                           
032032,000380: 34,3550           73274                                    S34/35.1                              #  GET UNIT NORMAL
032033,000381: 34,3551           52145                           DLOAD    GOTO                                  
032034,000382: 34,3552           02307                                    TARGTIME                              
032035,000383: 34,3553           71434                                    MAINRTNE                              #  CALCULATE DELTA V AND DELTA V (LV)
032036,000384: 
032037,000385:                                                                                                  #  .... PREC/TT ....
032038,000386: 
032039,000387:                                                                                                  #  SUBROUTINES USED
032040,000388: 
032041,000389:                                                                                                  #        PRECSET
032042,000390:                                                                                                  #        TIMETHET
032043,000391:                                                                                                  #        S34/35.1
032044,000392: 
032045,000393: 34,3554           71220        PREC/TT            STQ      DLOAD                                 
032046,000394: 34,3555           03465                                    RTRN                                  
032047,000395: 34,3556           03442                                    TIG                                   
032048,000396: 34,3557           34041                           STCALL   TDEC1                                 #  PRECISION UPDATE ACTIVE AND PASSIVE
032049,000397: 34,3560           46360                                    PRECSET                               #        VEHICLES TO TIG
032050,000398: 34,3561           53775                           VLOAD    VSR*                                  
032051,000399: 34,3562           03552                                    RPASS3                                
032052,000400: 34,3563           57176                                    0,2                                   
032053,000401: 34,3564           16655                           STODL    RVEC                                  
032054,000402: 34,3565           03621                                    CENTANG                               
032055,000403: 34,3566           71406                           PUSH     COS                                   
032056,000404: 34,3567           16732                           STODL    CSTH                                  
032057,000405: 34,3570           43156                           SIN      SET                                   
032058,000406: 34,3571           03466                                    RVSW                                  
032059,000407: 34,3572           26730                           STOVL    SNTH                                  
032060,000408: 34,3573           03560                                    VPASS3                                
032061,000409: 34,3574           77657                           VSR*                                           
032062,000410: 34,3575           57176                                    0,2                                   
032063,000411: 34,3576           36744                           STCALL   VVEC                                  #  GET TRANSFER TIME BASED ON CENTANG OF
032064,000412: 34,3577           24732                                    TIMETHET                              #        PASSIVE VEHICLE
032065,000413: 34,3600           77624                           CALL                                           
032066,000414: 34,3601           73274                                    S34/35.1                              #  GET UNIT NORMAL
032067,000415: 34,3602           52145                           DLOAD    GOTO                                  
032068,000416: 34,3603           00037                                    T                                     
032069,000417: 34,3604           03465                                    RTRN                                  
032070,000418: 
032071,000419:                                                                                                  #  .... INTRPVP ....
032072,000420: 
032073,000421:                                                                                                  #  SUBROUTINES USED
032074,000422: 
032075,000423:                                                                                                  #        CSMPREC

Page 730

032077,000425:                                                                                                  #        LEMPREC
032078,000426: 
032079,000427: 34,3605           43020        INTRPVP            STQ      BOFF                                  #  PRECISION UPDATE PASSIVE VEHICLE TO
032080,000428: 34,3606           03465                                    RTRN                                  #        TDEC1
032081,000429: 34,3607           01352                                    AVFLAG                                
032082,000430: 34,3610           71615                                    OTHERV                                
032083,000431: 34,3611           77624                           CALL                                           
032084,000432: 34,3612           27043                                    CSMPREC                               
032085,000433: 34,3613           77650                           GOTO                                           
032086,000434: 34,3614           03465                                    RTRN                                  
032087,000435: 34,3615           77624        OTHERV             CALL                                           
032088,000436: 34,3616           27057                                    LEMPREC                               
032089,000437: 34,3617           77650                           GOTO                                           
032090,000438: 34,3620           03465                                    RTRN                                  
032091,000439: 
032092,000440:                                                                                                  #  .... VNDSPLY ....
032093,000441: 
032094,000442:                                                                                                  #  SUBROUTINES USED
032095,000443: 
032096,000444:                                                                                                  #        BANKCALL
032097,000445:                                                                                                  #        GOFLASH
032098,000446:                                                                                                  #        GOTOPOOH
032099,000447: 
032100,000448: 34,3621           00006        VNDSPLY            EXTEND                                         #  FLASH DISPLAY
032101,000449: 34,3622           23465                           QXCH     RTRN                                  
032102,000450: 34,3623           55615                           TS       VERBNOUN                              
032103,000451: 34,3624           31615                           CA       VERBNOUN                              
032104,000452: 34,3625           04616                           TCR      BANKCALL                              
032105,000453: 34,3626           20476                           CADR     GOFLASH                               
032106,000454: 34,3627           16001                           TCF      GOTOPOOH                              #  TERMINATE
032107,000455: 34,3630           01465                           TC       RTRN                                  #  PROCEED
032108,000456: 34,3631           13624                           TCF      -5                                    #  RECYCLE
032109,000457: 34,3632           01441        V06N33SR           VN       0633                                  
032110,000458: 34,3633           01467        V06N55SR           VN       0655                                  
032111,000459: 34,3634           01006        V04N06SR           VN       0406                                  
032112,000460: 34,3635           01471        V06N57SR           VN       0657                                  
032113,000461: 34,3636           01442        V06N34SR           VN       0634                                  
032114,000462: 34,3637           01472        V06N58SR           VN       0658                                  
032115,000463: 34,3640           01521        V06N81SR           VN       0681                                  
032116,000464: 34,3641           00002        DECTWO             OCT      2                                     
032117,000465: 
032118,000466: 
032119,000467: 
032120,000468: 
032121,000469: 

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