Source Code

This is an attempt to recreate Luminary 99 Rev 2, otherwise known as LUM99R2, from Luminary 99 Rev 1 and ephemeris data from Luminary 116. The differences are confined to the last 10-12 lines of the CONTROLLED CONSTANTS. Luminary 99 Rev 1 source-code was transcribed from a printout in the MIT Museum, while Luminary 116 source code was transcribed from a printout belonging to Don Eyles. AGC developer James Kernan, the "rope mother" for the Apollo 11 Lunar Module's AGC, explains as follows: "At the last minute, Dan Lickly, our chief engineer, appeared with ephemerides updates and it took two tries to get it right. The result was that we created Lum99 Revision 1 and Lum99 Revision 2." It is suspected that the former is what's in the MIT Museum, and the latter is what we are trying to recreate here. As for which revision actually flew in Apollo 11, all of the other available surviving evidence points to Rev 1 rather than to Rev 2, so we're just not sure!

027663,000002:                                                                                                  ## Copyright:   Public domain.
027664,000003:                                                                                                  ## Filename:    GROUND_TRACKING_DETERMINATION_PROGRAM.agc
027665,000004:                                                                                                  ## Purpose:     Part of the source code for Luminary 1A build 099.
027666,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
027667,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 11.
027668,000007:                                                                                                  ## Assembler:   yaYUL
027669,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
027670,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo.
027671,000010:                                                                                                  ## Pages:       654-657
027672,000011:                                                                                                  ## Mod history: 2009-05-18 RSB  Adapted from the corresponding 
027673,000012:                                                                                                  ##                              Luminary131 file, using page 
027674,000013:                                                                                                  ##                              images from Luminary 1A.
027675,000014:                                                                                                  ##              2016-12-13 RSB  GOTOP00H -> GOTOPOOH
027676,000015:                                                                                                  ##              2016-12-14 RSB  Proofed text comments with octopus/ProoferComments
027677,000016:                                                                                                  ##                              but no errors found.
027678,000017:                                                                                                  ##              2017-03-03 RSB  Snapshot of Luminary 99 Rev 1. 
027679,000018:                                                                                                  ##              2017-03-15 RSB  Comment-text fixes identified in 5-way
027680,000019:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
027681,000020: 

Page 654

027683,000022:                                                                                                  #  GROUND TRACKING DETERMINATION PROGRAM P21
027684,000023:                                                                                                  #  PROGRAM DESCRIPTION
027685,000024:                                                                                                  #        MOD NO - 1
027686,000025:                                                                                                  #        MOD BY - N. M. NEVILLE
027687,000026: 
027688,000027:                                                                                                  #  FUNCTIONAL DECRIPTION -
027689,000028:                                                                                                  #        TO PROVIDE THE ASTRONAUT DETAILS OF THE LM OR CSM GROUND TRACK WITHOUT
027690,000029:                                                                                                  #        THE NEED FOR GROUND COMMUNICATION (REQUESTED BY DSKY).
027691,000030: 
027692,000031:                                                                                                  #  CALLING SEQUENCE -
027693,000032:                                                                                                  #        ASTRONAUT REQUEST THROUGH DSKY V37E21E
027694,000033: 
027695,000034:                                                                                                  #  SUBROUTINES CALLED -
027696,000035:                                                                                                  #        GOPERF4
027697,000036:                                                                                                  #        GOFLASH
027698,000037:                                                                                                  #        THISPREC
027699,000038:                                                                                                  #        OTHPREC
027700,000039:                                                                                                  #        LAT-LONG
027701,000040: 
027702,000041:                                                                                                  #  NORMAL EXIT MODES -
027703,000042:                                                                                                  #        ASTRONAUT REQUEST TROUGH DSKY TO TERMINATE PROGRAM V34E
027704,000043: 
027705,000044:                                                                                                  #  ALARM OR ABORT EXIT MODES -
027706,000045:                                                                                                  #        NONE
027707,000046: 
027708,000047:                                                                                                  #  OUTPUT -
027709,000048:                                                                                                  #        OCTAL DISPLAY OF OPTION CODE AND VEHICLE WHOSE GROUND TRACK IS TO BE
027710,000049:                                                                                                  #        COMPUTED
027711,000050:                                                                                                  #                OPTION CODE     00002
027712,000051:                                                                                                  #                THIS            00001
027713,000052:                                                                                                  #                OTHER           00002
027714,000053:                                                                                                  #        DECIMAL DISPLAY OF TIME TO BE INTEGRATED TO HOURS, MINUTES, SECONDS
027715,000054:                                                                                                  #        DECIMAL DISPLAY OF LAT,LONG,ALT
027716,000055: 
027717,000056:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
027718,000057:                                                                                                  #        AX0             2DEC    4.652459653 E-5 RADIANS         %68-69 CONSTANTS"
027719,000058:                                                                                                  #        -AY0            2DEC    2.147535898 E-5 RADIANS
027720,000059:                                                                                                  #        AZ0             2DEC    .7753206164     REVOLUTIONS
027721,000060:                                                                                                  #        FOR LUNAR ORBITS 504LM VECTOR IS NEEDED
027722,000061:                                                                                                  #        504LM           2DEC    -2.700340600 E-5 RADIANS
027723,000062:                                                                                                  #        504LM _2        2DEC    -7.514128400 E-4 RADIANS
027724,000063:                                                                                                  #        504LM _4        2DEC    _2.553198641 E-4 RADIANS
027725,000064: 
027726,000065:                                                                                                  #        NONE
027727,000066: 
027728,000067:                                                                                                  #  DEBRIS

Page 655

027730,000069:                                                                                                  #        CENTRALS - A,Q,L
027731,000070:                                                                                                  #        OTHER - THOSE USED BY THE ABOVE LISTED SUBROUTINES
027732,000071:                                                                                                  #        SEE LEMPREC, LAT-LONG
027733,000072: 
027734,000073: 35,2545  30,2000                                  SBANK=   LOWSUPER                              #  FOR LOW 2CADR'S.
027735,000074: 
027736,000075: 33,2200                                           BANK     33                                    
027737,000076: 24,2000                                           SETLOC   P20S                                  
027738,000077: 24,2000                                           BANK                                           
027739,000078: 
027740,000079: 24,3505  E7,1762                                  EBANK=   P21TIME                               
027741,000080: 24,3505                                           COUNT*   $$/P21                                
027742,000081: 24,3505           34753        PROG21             CAF      ONE                                   
027743,000082: 24,3506           55145                           TS       OPTION2                               #  ASSUMED VEHICLE IS LM, R2 = 00001
027744,000083: 24,3507           34752                           CAF      BIT2                                  #  OPTION 2
027745,000084: 24,3510           04616                           TC       BANKCALL                              
027746,000085: 24,3511           20633                           CADR     GOPERF4                               
027747,000086: 24,3512           06001                           TC       GOTOPOOH                              #  TERMINATE
027748,000087: 24,3513           03515                           TC       +2                                    #  PROCEED VALUE OF ASSUMED VEHICLE OK
027749,000088: 24,3514           03507                           TC       -5                                    #  R2 LOADED THROUGH DSKY
027750,000089: 24,3515           33665        P21PROG1           CAF      V6N34                                 #  LOAD DESIRED TIME OF LAT-LONG.
027751,000090: 24,3516           04616                           TC       BANKCALL                              
027752,000091: 24,3517           20476                           CADR     GOFLASH                               
027753,000092: 24,3520           06001                           TC       GOTOPOOH                              #  TERM
027754,000093: 24,3521           03523                           TC       +2                                    #  PROCEED VALUES OK
027755,000094: 24,3522           03515                           TC       -5                                    #  TIME LOADED THROUGH DSKY
027756,000095: 24,3523           06037                           TC       INTPRET                               
027757,000096: 24,3524           77745                           DLOAD                                          
027758,000097: 24,3525           01046                                    DSPTEM1                               
027759,000098: 24,3526           34041                           STCALL   TDEC1                                 #  INTEGRATE TO TIME SPECIFIED IN TDEC
027760,000099: 24,3527           27414                                    INTSTALL                              
027761,000100: 24,3530           43014                           BON      CLEAR                                 
027762,000101: 24,3531           00304                                    P21FLAG                               
027763,000102: 24,3532           51550                                    P21CONT                               #  ON --- RECYCLE USING BASE VECTOR
027764,000103: 24,3533           01674                                    VINTFLAG                              #  OFF -- 1ST PASS CALL BASE VECTOR
027765,000104: 24,3534           70535                           SLOAD    SR1                                   
027766,000105: 24,3535           01146                                    OPTION2                               
027767,000106: 24,3536           43030                           BHIZ     SET                                   
027768,000107: 24,3537           51541                                    +2                                    #  ZERO -- THIS VEHICLE (LM)
027769,000108: 24,3540           01474                                    VINTFLAG                              #  ONE -- OTHER VEHICLE (CM)
027770,000109: 24,3541           43014                           CLEAR    CLEAR                                 
027771,000110: 24,3542           01676                                    DIM0FLAG                              
027772,000111: 24,3543           01673                                    INTYPFLG                              #  PRECISION
027773,000112: 24,3544           77624                           CALL                                           
027774,000113: 24,3545           27134                                    INTEGRV                               #  CALCULATE
027775,000114: 24,3546           77650                           GOTO                                           #  -AND
027776,000115: 24,3547           51571                                    P21VSAVE                              #  -SAVE BASE VECTOR
027777,000116: 24,3550           77775        P21CONT            VLOAD                                          
027778,000117: 24,3551           03676                                    P21BASER                              #  RECYCLE -- INTEG FROM BASE VECTOR
027779,000118: 24,3552           25535                           STOVL    RCV                                   #  --POS

Page 656

027781,000120: 24,3553           03704                                    P21BASEV                              
027782,000121: 24,3554           15543                           STODL    VCV                                   #  --VEL
027783,000122: 24,3555           03763                                    P21TIME                               
027784,000123: 24,3556           01517                           STORE    TET                                   #  --TIME
027785,000124: 24,3557           43014                           CLEAR    CLEAR                                 
027786,000125: 24,3560           01676                                    DIM0FLAG                              
027787,000126: 24,3561           00263                                    MOONFLAG                              
027788,000127: 24,3562           53135                           SLOAD    BZE                                   
027789,000128: 24,3563           01164                                    P21ORIG                               
027790,000129: 24,3564           51567                                    +3                                    #  ZERO = EARTH
027791,000130: 24,3565           77614                           SET                                            #  ---2 = MOON
027792,000131: 24,3566           00063                                    MOONFLAG                              
027793,000132: 24,3567           77624                 +3        CALL                                           
027794,000133: 24,3570           27107                                    INTEGRVS                              
027795,000134: 24,3571           77745        P21VSAVE           DLOAD                                          #  SAVE CURRENT BASE VECTOR
027796,000135: 24,3572           00015                                    TAT                                   
027797,000136: 24,3573           27763                           STOVL    P21TIME                               #  --TIME
027798,000137: 24,3574           00017                                    RATT1                                 
027799,000138: 24,3575           27676                           STOVL    P21BASER                              #  --POS B-29 OR B-27
027800,000139: 24,3576           00025                                    VATT1                                 
027801,000140: 24,3577           03704                           STORE    P21BASEV                              #  --VEL B-07 OR B-05
027802,000141: 24,3600           53646                           ABVAL    SL*                                   
027803,000142: 24,3601           57576                                    0,2                                   
027804,000143: 24,3602           27712                           STOVL    P21VEL                                #  VEL/ FOR N91 DISP
027805,000144: 24,3603           00001                                    RATT                                  
027806,000145: 24,3604           50256                           UNIT     DOT                                   
027807,000146: 24,3605           00007                                    VATT                                  #  U(R).V
027808,000147: 24,3606           67471                           DDV      ASIN                                  #  U(R).U(V)
027809,000148: 24,3607           03712                                    P21VEL                                
027810,000149: 24,3610           03714                           STORE    P21GAM                                #  SIN-1 U(R).U(V) , -90 TO &90
027811,000150: 24,3611           67334                           SXA,2    SLOAD                                 
027812,000151: 24,3612           01163                                    P21ORIG                               #  0 = EARTH
027813,000152: 24,3613           01146                                    OPTION2                               
027814,000153: 24,3614           46142                           SR1      BHIZ                                  
027815,000154: 24,3615           51620                                    +3                                    
027816,000155: 24,3616           77650                           GOTO                                           
027817,000156: 24,3617           51623                                    +4                                    
027818,000157: 24,3620           77614                 +3        BON                                            
027819,000158: 24,3621           04307                                    SURFFLAG                              
027820,000159: 24,3622           51625                                    P21DSP                                
027821,000160: 24,3623           77614                 +4        SET                                            
027822,000161: 24,3624           00064                                    P21FLAG                               
027823,000162: 24,3625           67214        P21DSP             CLEAR    SLOAD                                 #  GENERATE DISPLAY DATA
027824,000163: 24,3626           01663                                    LUNAFLAG                              
027825,000164: 24,3627           00050                                    X2                                    
027826,000165: 24,3630           43054                           BZE      SET                                   
027827,000166: 24,3631           51633                                    +2                                    #  0 = EARTH
027828,000167: 24,3632           01463                                    LUNAFLAG                              
027829,000168: 24,3633           77775                           VLOAD                                          
027830,000169: 24,3634           00001                                    RATT                                  

Page 657

027832,000171: 24,3635           16032                           STODL    ALPHAV                                
027833,000172: 24,3636           00015                                    TAT                                   
027834,000173: 24,3637           45014                           CLEAR    CALL                                  
027835,000174: 24,3640           00662                                    ERADFLAG                              
027836,000175: 24,3641           26351                                    LAT-LONG                              
027837,000176: 24,3642           77605                           DMP                                            #  MPAC = ALT, METERS B-29
027838,000177: 24,3643           11667                                    K.01                                  
027839,000178: 24,3644           03716                           STORE    P21ALT                                #  ALT/100 FOR N91 DISP
027840,000179: 24,3645           77776                           EXIT                                           
027841,000180: 24,3646           33664                           CAF      V06N43                                #  DISPLAY LAT, LONG, ALT
027842,000181: 24,3647           04616                           TC       BANKCALL                              #  LAT, LONG = 1/2 REVS B0
027843,000182: 24,3650           20476                           CADR     GOFLASH                               #  ALT = KM B14
027844,000183: 24,3651           06001                           TC       GOTOPOOH                              #  TERM
027845,000184: 24,3652           06001                           TC       GOTOPOOH                              
027846,000185: 24,3653           06037                           TC       INTPRET                               #  V32E RECYCLE
027847,000186: 24,3654           43345                           DLOAD    DAD                                   
027848,000187: 24,3655           03763                                    P21TIME                               
027849,000188: 24,3656           11663                                    600SEC                                #  600 SECONDS OR 10 MIN
027850,000189: 24,3657           01046                           STORE    DSPTEM1                               
027851,000190: 24,3660           77634                           RTB                                            
027852,000191: 24,3661           51515                                    P21PROG1                              
027853,000192: 24,3662           00003 25140  600SEC             2DEC     60000      B-28                       #  10 MIN
027854,000193: 
027855,000194: 24,3664           01453        V06N43             VN       00643                                 
027856,000195: 24,3665           01442        V6N34              VN       00634                                 
027857,000196: 24,3666           00243 32703  K.01               2DEC     .01                                   
027858,000197: 

End of include-file GROUND_TRACKING_DETERMINATION_PROGRAM_-_P21.agc.  Parent file is MAIN.agc