Source Code

012684,000002: ## Copyright: Public domain. 012685,000003: ## Filename: ORBITAL_INTEGRATION_FOR_501.agc 012686,000004: ## Purpose: Part of the source code for Solarium build 55. This 012687,000005: ## is for the Command Module's (CM) Apollo Guidance 012688,000006: ## Computer (AGC), for Apollo 6. 012689,000007: ## Assembler: yaYUL --block1 012690,000008: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com> 012691,000009: ## Website: www.ibiblio.org/apollo/index.html 012692,000010: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Solarium055/ 012693,000011: ## Mod history: 2009-09-22 JL Created. 012694,000012: ## 2009-09-22 JL Fixed typo. 012695,000013: ## 2009-10-30 JL Fixed filename comment. 012696,000014: ## 2016-12-28 RSB Proofed comment text using octopus/ProoferComments, 012697,000015: ## and fixed errors found. 012698,000016:

Page 326

012700,000018: 
012701,000019: 30,6000                                           SETLOC   60000                                 
012702,000020: 
012703,000021: 30,6000           53574        AVETOMD1           AXC,1    2                                     
012704,000022: 30,6001           45535                           ITA      SXA,1                                 
012705,000023: 30,6002           76776                           ITC                                            
012706,000024: 30,6003           00002                                    1                                     
012707,000025: 30,6004           01303                                    MIDEXIT                               
012708,000026: 30,6005           01301                                    MEASMODE                              
012709,000027: 30,6006           20015                                    AVETOMID                              
012710,000028: 
012711,000029: 30,6007           53575        AVETOMD2           AXC,1    1                                     
012712,000030: 30,6010           45535                           ITA      SXA,1                                 
012713,000031: 30,6011           00003                                    2                                     
012714,000032: 30,6012           01303                                    MIDEXIT                               
012715,000033: 30,6013           01301                                    MEASMODE                              
012716,000034: 
012717,000035: 30,6014           75170        AVETOMID           VMOVE    6                                     
012718,000036: 30,6015           75535                           AXT,1    SXA,1                                 
012719,000037: 30,6016           75535                           AXT,1    SXA,1                                 
012720,000038: 30,6017           75535                           AXT,1    SXA,1                                 
012721,000039: 30,6020           75535                           AXT,1    SXA,1                                 
012722,000040: 30,6021           75535                           AXT,1    SXA,1                                 
012723,000041: 30,6022           75535                           AXT,1    SXA,1                                 
012724,000042: 30,6023           15575                                    ZEROVEC                               
012725,000043: 30,6024           00001                                    0                                     
012726,000044: 30,6025           01304                                    WMATFLAG                              #  TURN OFF WMATRIX INTEGRATION.
012727,000045: 30,6026           00021                                    RSCALE                                
012728,000046: 30,6027           01313                                    SCALER                                #  SET SCALE OF POSITION.
012729,000047: 30,6030           00005                                    4                                     
012730,000048: 30,6031           01312                                    SCALDELT                              #  ALSO DEVIATION.
012731,000049: 30,6032           00023                                    18D                                   
012732,000050: 30,6033           01311                                    SCALEDT                               #  AND TIME STEP.
012733,000051: 30,6034           07431                                    EARTHTAB                              
012734,000052: 30,6035           01040                                    PBODY                                 
012735,000053: 30,6036           20070                                    TESTTET                               
012736,000054: 30,6037           01305                                    STEPEXIT                              
012737,000055: 30,6040           33115                           STORE    TDELTAV                               #  ZERO POSITION DEVIATION.
012738,000056: 
012739,000057: 30,6041           47576                           NOLOD    0                                     
012740,000058: 30,6042           33123                           STORE    TNUV                                  #  ALSO VELOCITY.
012741,000059: 
012742,000060: 30,6043           47576                           NOLOD    0                                     #  AND TIME SINCE RECTIFICATION, TIME, 
012743,000061: 30,6044           33145                           STORE    TC                                    #  AND KEPLER X.

Page 327

012745,000063: 30,6045           75575                           AXT,1    1                                     
012746,000064: 30,6046           55576                           AST,1                                          
012747,000065: 30,6047           00015                                    12D                                   
012748,000066: 30,6050           00007                                    6                                     
012749,000067: 
012750,000068: 30,6051           75375        RVTOMID            VXSC*    1                                     #  TRANSFORM POSITION AND VELOCITY TO
012751,000069: 30,6052           51622                           VXM      VSLT                                  
012752,000070: 30,6053           02231                                    RRECT      +12D,1                     
012753,000071: 30,6054           27273                                    SCLRAVMD   +12D,1                     
012754,000072: 30,6055           01052                                    REFSMMAT                              
012755,000073: 30,6056           00003                                    2                                     
012756,000074: 30,6057           36231                           STORE    RRECT      +12D,1                     
012757,000075: 
012758,000076: 30,6060           47576                           NOLOD    0                                     
012759,000077: 30,6061           36311                           STORE    RCV        +12D,1                     
012760,000078: 
012761,000079: 30,6062           51576                           TIX,1    0                                     
012762,000080: 30,6063           20052                                    RVTOMID                               
012763,000081: 
012764,000082: 30,6064           45176                           DMOVE    0                                     
012765,000083: 30,6065           01211                                    TAVEGON                               
012766,000084: 30,6066           33267                           STORE    TDEC                                  
012767,000085: 

Page 328

012769,000087: 
012770,000088: 30,6067           77576        TESTTET            EXIT     0                                     #  FOR DUMP ONLY
012771,000089: 30,6070           04000                           TC       INTPRET                               
012772,000090: 30,6071           71575                           LXC,1    1                                     
012773,000091: 30,6072           55445                           AST,1    TIX,1                                 
012774,000092: 30,6073           01301                                    MEASMODE                              
012775,000093: 30,6074           00002                                    1                                     
012776,000094: 30,6075           20101                                    +3                                    
012777,000095: 
012778,000096: 30,6076           76776                           ITC      0                                     
012779,000097: 30,6077           20104                                    +4                                    
012780,000098: 
012781,000099: 30,6100           43576                           TEST     0                                     
012782,000100: 30,6101           00023                                    UPDATFLG                              
012783,000101: 30,6102           10310                                    NOSTATE                               
012784,000102: 
012785,000103: 30,6103           72776                           STZ      0                                     
012786,000104: 30,6104           00123                                    OVFIND                                
012787,000105: 
012788,000106: 30,6105           66774                           DSU      2                                     
012789,000107: 30,6106           76516                           RTB      TSLT                                  
012790,000108: 30,6107           62776                           DDV                                            
012791,000109: 30,6110           01267                                    TDEC                                  
012792,000110: 30,6111           01147                                    TET                                   
012793,000111: 30,6112           20404                                    SGNAGREE                              
012794,000112: 30,6113           00014                                    11D                                   
012795,000113: 30,6114           07431                                    EARTHTAB                              
012796,000114: 30,6115           33263                           STORE    DT/2                                  
012797,000115: 
012798,000116: 30,6116           71773                           BOV      3                                     
012799,000117: 30,6117           65132                           ABS      DSU                                   
012800,000118: 30,6120           73742                           BMN      DAD                                   
012801,000119: 30,6121           66756                           DSU      BMN                                   
012802,000120: 30,6122           20132                                    USEMAXDT                              
012803,000121: 30,6123           01263                                    DT/2                                  
012804,000122: 30,6124           20246                                    DT/2MIN                               
012805,000123: 30,6125           20141                                    DODCSION                              
012806,000124: 30,6126           20246                                    DT/2MIN                               
012807,000125: 30,6127           20250                                    DT/2MAX                               
012808,000126: 30,6130           07110                                    TIMESTEP                              
012809,000127: 
012810,000128: 30,6131           45175        USEMAXDT           DMOVE    1                                     
012811,000129: 30,6132           53776                           SIGN                                           
012812,000130: 30,6133           20250                                    DT/2MAX                               
012813,000131: 30,6134           01263                                    DT/2                                  
012814,000132: 30,6135           33263                           STORE    DT/2                                  
012815,000133: 
012816,000134: 30,6136           76776                           ITC      0                                     
012817,000135: 30,6137           07110                                    TIMESTEP                              
012818,000136: 

Page 329

012820,000138: 
012821,000139: 30,6140           76776        DODCSION           ITC      0                                     #  RECTIFY TO OBTAIN FULL POSITION
012822,000140: 30,6141           07144                                    RECTIFY                               #  AND VELOCUTY VECTORS.
012823,000141: 
012824,000142: 30,6142           43175                           SMOVE    1                                     
012825,000143: 30,6143           73636                           BMN      BZE                                   
012826,000144: 30,6144           01301                                    MEASMODE                              #  TEST MEASMODE.
012827,000145: 30,6145           20176                                    AVEGON                                #  MEASMODE = -1.
012828,000146: 30,6146           20222                                    IGN-4SEC                              #  MEASMODE = 0.
012829,000147: 
012830,000148: 30,6147           75575                           AXT,1    1                                     #  MEASMODE = +1.
012831,000149: 30,6150           55576                           AST,1                                          
012832,000150: 30,6151           00015                                    12D                                   
012833,000151: 30,6152           00007                                    6                                     
012834,000152: 
012835,000153: 30,6153           75375        RVTOAVE            VXSC*    1                                     #  TRANSFORM POSITION AND VELOCITY VECTORS
012836,000154: 30,6154           52622                           MXV      VSLT                                  
012837,000155: 30,6155           02231                                    RRECT      +12D,1                     
012838,000156: 30,6156           27277                                    SCLRMDAV   +12D,1                     
012839,000157: 30,6157           01052                                    REFSMMAT                              
012840,000158: 30,6160           00002                                    1                                     
012841,000159: 30,6161           36231                           STORE    RIGNTION   +12D,1                     
012842,000160: 
012843,000161: 30,6162           75375                           VXSC*    1                                     
012844,000162: 30,6163           52622                           MXV      VSLT                                  
012845,000163: 30,6164           02461                                    RAVEGON    +12D,1                     
012846,000164: 30,6165           27277                                    SCLRMDAV   +12D,1                     
012847,000165: 30,6166           01052                                    REFSMMAT                              
012848,000166: 30,6167           00002                                    1                                     
012849,000167: 30,6170           36461                           STORE    RAVEGON    +12D,1                     
012850,000168: 
012851,000169: 30,6171           51576                           TIX,1    0                                     
012852,000170: 30,6172           20154                                    RVTOAVE                               
012853,000171: 
012854,000172: 30,6173           44576                           ITCI     0                                     
012855,000173: 30,6174           01303                                    MIDEXIT                               #  RETURN. 
012856,000174: 

Page 330

012858,000176: 
012859,000177: 30,6175           75176        AVEGON             VMOVE    0                                     #  SAVE POSITION AND VELOCITY AT
012860,000178: 30,6176           01101                                    RRECT                                 #  AVERAGE G ON TIME.
012861,000179: 30,6177           33215                           STORE    RAVEGON                               
012862,000180: 
012863,000181: 30,6200           75176                           VMOVE    0                                     
012864,000182: 30,6201           01107                                    VRECT                                 
012865,000183: 30,6202           33223                           STORE    VAVEGON                               
012866,000184: 
012867,000185: 30,6203           71575                           LXC,1    1                                     
012868,000186: 30,6204           55445                           AST,1    TIX,1                                 
012869,000187: 30,6205           01301                                    MEASMODE                              
012870,000188: 30,6206           00002                                    1                                     
012871,000189: 30,6207           20150                                    RVTOAVE    -4                         
012872,000190: 
012873,000191: 30,6210           70775                           DAD      1                                     
012874,000192: 30,6211           75535                           AXT,1    SXA,1                                 
012875,000193: 30,6212           01267                                    TDEC                                  
012876,000194: 30,6213           20242                                    12M56S                                #  12 MINUTES, 56 SECS
012877,000195: 30,6214           00001                                    0                                     
012878,000196: 30,6215           01301                                    MEASMODE                              #  MAKE MEASMODE 0.
012879,000197: 30,6216           33267                           STORE    TDEC                                  
012880,000198: 
012881,000199: 30,6217           76776                           ITC      0                                     
012882,000200: 30,6220           20070                                    TESTTET                               #  CONTINUE INTEGRATION.
012883,000201: 
012884,000202: 
012885,000203: 
012886,000204: 30,6221           75775        IGN-4SEC           VXSC     1                                     #  TRANSFORM AND SAVE POSITION ONLY
012887,000205: 30,6222           52622                           MXV      VSLT                                  
012888,000206: 30,6223           01101                                    RRECT                                 
012889,000207: 30,6224           13524                                    SCLRMDAV                              
012890,000208: 30,6225           01052                                    REFSMMAT                              
012891,000209: 30,6226           00002                                    1                                     
012892,000210: 30,6227           33231                           STORE    RIG-4SEC                              
012893,000211: 
012894,000212: 30,6230           70775                           DAD      1                                     
012895,000213: 30,6231           75535                           AXT,1    SXA,1                                 
012896,000214: 30,6232           01267                                    TDEC                                  
012897,000215: 30,6233           20244                                    4SECONDS                              #  ADD 4 SECONDS TO DECISION TIME.
012898,000216: 30,6234           00002                                    1                                     
012899,000217: 30,6235           01301                                    MEASMODE                              #  MAKE MEASMODE +1.
012900,000218: 30,6236           33267                           STORE    TDEC                                  
012901,000219: 
012902,000220: 30,6237           76776                           ITC      0                                     
012903,000221: 30,6240           20070                                    TESTTET                               #  DO LAST INTEGRATION STEP.
012904,000222: 

Page 331

012906,000224: 30,6241           00004 27440  12M56S             2DEC     77600      B-28                       #  12 MINUTES, 56 SECS
012907,000225: 30,6243           00000 00620  4SECONDS           2DEC     400        B-28                       
012908,000226: 30,6245           00000 14452  DT/2MIN            2DEC     .000024                               
012909,000227: 30,6247           12317 00451  DT/2MAX            2DEC     .65027077  B-1                        #  .075 HOUR MAXIMUM TIME STEP
012910,000228: 30,6251           30000        INITMSK            OCT      30000                                 

End of include-file ORBITAL_INTEGRATION_FOR_501.agc.  Parent file is MAIN.agc