Source Code

These source-code files were obtained by digitally photographing an Artemis 72 (Apollo 15-17 Command Module) program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Photography was by Ron Burkey, and transcription was performed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional images may be available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971
Note that the date is the date of the printout, not the date of the program revision.

028588,000002:                                                                                                  ## Copyright:   Public domain.
028589,000003:                                                                                                  ## Filename:    P30-P31.agc
028590,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
028591,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM)
028592,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for
028593,000007:                                                                                                  ##              Apollo 15-17.
028594,000008:                                                                                                  ## Assembler:   yaYUL
028595,000009:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
028596,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
028597,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
028598,000012:                                                                                                  ## Mod history: 2009-08-11 JL   Adapted from corresponding Comanche 055 file.
028599,000013:                                                                                                  ##              2009-09-03 JL   Fixed symbol names.
028600,000014:                                                                                                  ##              2010-02-01 JL   Fixed build errors.
028601,000015:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
028602,000016:                                                                                                  ##              2017-02-06 RSB  Proofed comment text using octopus/ProoferComments,
028603,000017:                                                                                                  ##                              though the printout/scan quality is really too poor, 
028604,000018:                                                                                                  ##                              since no corresponding file exists in any other AGC
028605,000019:                                                                                                  ##                              version against which it can be diff'd, and since 
028606,000020:                                                                                                  ##                              traditional proofing is so poor at catching errors.

Page 643

028608,000022: 
028609,000023:                                                                                                  #  PROGRAM DESCRIPTION   P30     DATE 5-1-69
028610,000024: 
028611,000025:                                                                                                  #  MOD.I BY S. ZELDIN-  TO ADD P31 AND ADAPT P30 FOR P31 USE.    22DEC67
028612,000026:                                                                                                  #  MOD.II BY P.WOLFF TO REDUCE CODING AND DELETE RESTART PROTECTION      4-30-69
028613,000027:                                                                                                  #  MOD.III BY C.BEALS TO DELETE P31      1NOV69
028614,000028: 
028615,000029:                                                                                                  #  FUNCTIONAL DESCRIPTION
028616,000030:                                                                                                  #        P30 (EXTERNAL DELTA-V TARGETTING PROGRAM)
028617,000031:                                                                                                  #                ACCEPTS ASTRONAUT INPUTS OF TIG,DELV(LV) AND COMPUTES, FOR DISPLAY,
028618,000032:                                                                                                  #                APOGEE, PERIGEE, DELV(MAG), MGA ASSOCIATED WITH DESIRED MANEUVER
028619,000033: 
028620,000034:                                                                                                  #  THE FOLLOWING SUBROUTINES ARE USED IN P30
028621,000035:                                                                                                  #        S30/31.1  COMPUTES APOGEE AND PERIGEE ALTITUDE
028622,000036:                                                                                                  #        P30/P31 - DISPLAYS TIG
028623,000037:                                                                                                  #        CNTUP30 - DISPLAYS DELV(LV)
028624,000038:                                                                                                  #        COMPTGO   CLOCKTASK COMPUTE TTOGO
028625,000039:                                                                                                  #        LOMAT     COMPUTE X,Y,Z IN LV COORDS
028626,000040:                                                                                                  #        PARAM30 - DISPLAYS APOGEE, PERIGEE, DELV(MAG), MGA, TIME FROM TIG,
028627,000041:                                                                                                  #                  MARKS SINCE LAST THRUSTING MANEUVER
028628,000042: 
028629,000043:                                                                                                  #  CALLING SEQUENCE VIA JOB FROM V37
028630,000044: 
028631,000045:                                                                                                  #  EXIT VIA V37 CALL OR GOTOPOOH
028632,000046: 
028633,000047:                                                                                                  #  OUTPUT FOR POWERED FLIGHT
028634,000048:                                                                                                  #        VTIG    X
028635,000049:                                                                                                  #        RTIG
028636,000050:                                                                                                  #        DELVSIN X
028637,000051: 
028638,000052:                                                                                                  #  P30 CALCULATIONS
028639,000053: 
028640,000054:                                                                                                  #  P30 CALC BASED ON STORED TARGET PARAMETERS (R OF IGNITION (RTIG), V OF
028641,000055:                                                                                                  #  IGNITION (VTIG), TIME OF IGNITION (TIG), DELV(LV), COMPUTE PERIGEE ALTITUDE
028642,000056:                                                                                                  #  APOGEE ALTITUDE AND DELTA-V REQUIRED IN REF. COORDS. (DELVSIN)
028643,000057:                                                                                                  #  
028644,000058:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
028645,000059:                                                                                                  #        TIG             TIME OF IGNITION                        DP      B28CS
028646,000060:                                                                                                  #        DELVSLV         SPECIFIED DELTA-V IN LOCAL VERT.
028647,000061:                                                                                                  #                        COORDS. OF ACTIVE VEHICLE AT
028648,000062:                                                                                                  #                        TIME OF IGNITION                        VCT.    B+7M/CS
028649,000063: 
028650,000064:                                                                                                  #  SUBROUTINES CALLED
028651,000065:                                                                                                  #        THISPREC
028652,000066: 
028653,000067:                                                                                                  #  OUTPUT
028654,000068:                                                                                                  #        RTIG            POSITION AT TIG                         VCT.    B+29M
028655,000069:                                                                                                  #        VTIG            VELOCITY AT TIG                         VCT.    B+7M
028656,000070:                                                                                                  #        DELVSIN         DELVSLV IN REF COORDS                   VCT.    B+7M/CS
028657,000071: 
028658,000072:                                                                                                  #  DEBRIS QTEMP    TEMP. ERASABLE
028659,000073:                                                                                                  #         QPRET, MPAC
028660,000074:                                                                                                  #         PUSHLIST
028661,000075: 
028662,000076: 35,2000                                           SETLOC   P30S1                                 
028663,000077: 35,2000                                           BANK                                           
028664,000078: 

Page 644

028666,000080: 35,3433  E7,1625                                  EBANK=   +MGA                                  
028667,000081: 
028668,000082: 35,3433                                           COUNT*   $$/P30                                
028669,000083: 35,3433           05547        P30                TC       UPFLAG                                
028670,000084: 35,3434           00027                           ADRES    UPDATFLG                              #  SET UPDATFLG
028671,000085: 35,3435           05547                           TC       UPFLAG                                
028672,000086: 35,3436           00031                           ADRES    TRACKFLG                              #  SET TRACKFLG
028673,000087: 35,3437           35026        DSP0633            CAF      V06N33                                #  DISPLAY TIME OF IGNITION
028674,000088: 35,3440           05535                           TC       VNFLASH                               
028675,000089: 35,3441           34535                           CAF      V06N81                                
028676,000090: 35,3442           05535                           TC       VNFLASH                               
028677,000091: 35,3443           05547                           TC       UPFLAG                                
028678,000092: 35,3444           00045                           ADRES    XDELVFLG                              #  BIT 8 FLAG 2
028679,000093: 35,3445           06006                           TC       INTPRET                               
028680,000094: 35,3446           71214                           CLEAR    DLOAD                                 
028681,000095: 35,3447           00670                                    UPDATFLG                              #  RESET UPDATFLG
028682,000096: 35,3450           03413                                    TIG                                   #  TIME IGNITION SCALED AT 2(+28)CS
028683,000097: 35,3451           34041                           STCALL   TDEC1                                 
028684,000098: 35,3452           27145                                    THISPREC                              #  ENCKE ROUTINE FOR
028685,000099: 
028686,000100: 35,3453           67175                           VLOAD    SXA,2                                 
028687,000101: 35,3454           00007                                    VATT                                  
028688,000102: 35,3455           03746                                    RTX2                                  
028689,000103: 35,3456           27640                           STOVL    VTIG                                  
028690,000104: 35,3457           00001                                    RATT                                  
028691,000105: 35,3460           03632                           STORE    RTIG                                  
028692,000106: 35,3461           03540                           STORE    RACT3                                 
028693,000107: 35,3462           53435                           VXV      UNIT                                  
028694,000108: 35,3463           03640                                    VTIG                                  
028695,000109: 35,3464           36617                           STCALL   UNRM                                  
028696,000110: 35,3465           72721                                    LOMAT                                 
028697,000111: 35,3466           61375                           VLOAD    VXM                                   
028698,000112: 35,3467           03405                                    DELVSLV                               
028699,000113: 35,3470           00001                                    0                                     
028700,000114: 35,3471           66172                           VSL1     SXA,1                                 
028701,000115: 35,3472           03745                                    RTX1                                  
028702,000116: 35,3473           03646                           STORE    DELVSIN                               
028703,000117: 35,3474           77646                           ABVAL                                          
028704,000118: 35,3475           27763                           STOVL    VGDISP                                #  MAG DELV
028705,000119: 35,3476           03632                                    RTIG                                  
028706,000120: 35,3477           53315                           PDVL     VAD                                   
028707,000121: 35,3500           03646                                    DELVSIN                               
028708,000122: 35,3501           03640                                    VTIG                                  
028709,000123: 35,3502           77624                           CALL                                           
028710,000124: 35,3503           54021                                    S30/31.1                              
028711,000125: 35,3504           77776                           EXIT                                           
028712,000126: 35,3505           33553        PARAM30            CAF      V06N42                                #  DISPLAY HAPO, HPER, DELTAV
028713,000127: 35,3506           05535                           TC       VNFLASH                               
028714,000128: 35,3507           06006        REFTEST            TC       INTPRET                               
028715,000129: 35,3510           77214                           BOFF     VLOAD                                 

Page 645

028717,000131: 35,3511           01742                                    REFSMFLG                              #  TEST FOR REFSMFLAG ON
028718,000132: 35,3512           73544                                    NOTSET                                
028719,000133: 35,3513           03646                                    DELVSIN                               
028720,000134: 35,3514           45006                           PUSH     CALL                                  
028721,000135: 35,3515           56444                                    GET+MGA                               
028722,000136: 35,3516           77776                           EXIT                                           
028723,000137: 35,3517           03525        DISPMGA            TC       COMPTGO                               
028724,000138: 
028725,000139: 35,3520           34536        DISP45             CAF      V16N45                                #  DISPLAY MARK CNT, TFI, +MGA
028726,000140: 35,3521           05535                           TC       VNFLASH                               
028727,000141: 35,3522           05561                           TC       DOWNFLAG                              
028728,000142: 35,3523           00155                           ADRES    TIMRFLAG                              #  RESET TIMRFLAG
028729,000143: 35,3524           14103                           TCF      GOTOPOOH                              
028730,000144: 
028731,000145: 35,3525           00006        COMPTGO            EXTEND                                         
028732,000146: 35,3526           23272                           QXCH     PHSPRDT6                              
028733,000147: 
028734,000148: 35,3527           05547                           TC       UPFLAG                                #  SET TIMRFLAG
028735,000149: 35,3530           00155                           ADRES    TIMRFLAG                              
028736,000150: 35,3531           34772                           CAF      ZERO                                  
028737,000151: 35,3532           54777                           TS       NVWORD1                               
028738,000152: 
028739,000153: 35,3533           34770                           CAF      ONE                                   
028740,000154: 35,3534           05233                           TC       WAITLIST                              
028741,000155: 35,3535  E7,1412                                  EBANK=   TIG                                   
028742,000156: 35,3535           03225 50067                     2CADR    CLOKTASK                              
028743,000157: 
028744,000158: 35,3537           05362                           TC       2PHSCHNG                              
028745,000159: 35,3540           40036                           OCT      40036                                 #  6.3SPOT FOR CLOKTASK
028746,000160: 35,3541           05024                           OCT      05024                                 #  GROUP 4 CONTINUES HERE
028747,000161: 35,3542           13000                           OCT      13000                                 
028748,000162: 
028749,000163: 35,3543  01,2325               6P3SPT1            =        6.3SPOT                               
028750,000164: 35,3543           01272                           TC       PHSPRDT6                              
028751,000165: 
028752,000166: 35,3544           57545        NOTSET             DLOAD    DCOMP                                 
028753,000167: 35,3545           33552                                    MARSDP                                
028754,000168: 35,3546           03626                           STORE    +MGA                                  
028755,000169: 35,3547           77634                           RTB                                            
028756,000170: 35,3550           73517                                    DISPMGA                               
028757,000171: 35,3551           00000        MARSDP             OCT      00000                                 #  (00000) (16440) = (+00001)
028758,000172: 35,3552           35100                           OCT      35100                                 
028759,000173:                                                                                                  #  ( .01 ) DEGREES IN THE LOW ORDER REGISTE
028760,000174: 
028761,000175: 35,3553           01452        V06N42             VN       0642                                  
028762,000176: 

Page 646

028764,000178: 
028765,000179:                                                                                                  #  S30/31.1      SUBROUTINE USED BY P30/P31 CALCULATIONS
028766,000180:                                                                                                  #  MOD NO 1              LOG SECTION P30,P37
028767,000181: 
028768,000182:                                                                                                  #  FUNCTIONAL DESCRIPTION
028769,000183:                                                                                                  #        THROUGH A SERIES OF CALLS COMPUTES APOGEE AND PERIGEE ALTITUDE
028770,000184: 
028771,000185:                                                                                                  #  SUBROUTINES CALLED
028772,000186:                                                                                                  #        PERIAPO1
028773,000187:                                                                                                  #        SHIFTR1
028774,000188:                                                                                                  #        MAXCHK
028775,000189: 
028776,000190:                                                                                                  #  CALLING SEQUENCE
028777,000191:                                                                                                  #        L       CALL
028778,000192:                                                                                                  #        L+1             S30/31.1
028779,000193: 
028780,000194:                                                                                                  #  NORMAL EXIT MODE
028781,000195:                                                                                                  #        AT L+2 OR CALLING SEQUENCE
028782,000196: 
028783,000197:                                                                                                  #  OUTPUT
028784,000198:                                                                                                  #        HAPO            APOGEE ALT.             DP      B+29 M
028785,000199:                                                                                                  #        HPER            PERIGEE ALT.            DP      B+29 M
028786,000200: 
028787,000201: 26,2000                                           SETLOC   P30S1A                                
028788,000202: 26,2000                                           BANK                                           
028789,000203: 
028790,000204: 26,2021                                           COUNT*   $$/P30                                
028791,000205: 26,2021           45020        S30/31.1           STQ      CALL                                  
028792,000206: 26,2022           03657                                    QTEMP                                 
028793,000207: 26,2023           45174                                    PERIAPO1                              
028794,000208: 26,2024           77624                           CALL                                           
028795,000209: 26,2025           45330                                    SHIFTR1                               
028796,000210: 26,2026           77624                           CALL                                           
028797,000211: 26,2027           46745                                    MAXCHK                                
028798,000212: 26,2030           16357                           STODL    HPER                                  #  PERIGEE ALT B+29
028799,000213: 26,2031           00005                                    4D                                    
028800,000214: 26,2032           77624                           CALL                                           
028801,000215: 26,2033           45330                                    SHIFTR1                               
028802,000216: 26,2034           77624                           CALL                                           
028803,000217: 26,2035           46745                                    MAXCHK                                
028804,000218: 26,2036           36355                           STCALL   HAPO                                  #  APOGEE ALT B+29
028805,000219: 26,2037           03657                                    QTEMP                                 
028806,000220: 

Page 647

028808,000222: 
028809,000223:                                                                                                  #  SUBROUTINE NAME:      DELRSPL         (CONTINUATION OF V 82 IN CSM IF P11 ACTI
028810,000224:                                                                                                  #  TRANSFERRED COMPLETELY FROM SUNDISK, P30S REV 33. 9 SEPT 67.
028811,000225:                                                                                                  #  MOD NO: 0     MOD BY: ZELDIN          DATE:
028812,000226:                                                                                                  #  MOD NO: 1     MOD BY: RR BAIRNSFATHER DATE: 11 APR 67
028813,000227:                                                                                                  #  MOD NO: 2     MOD BY: RR BAIRNSFATHER DATE: 12 MAY 67         ADD UR.RT CALC WHEN BELOW 300K FT
028814,000228:                                                                                                  #  MOD NO: 2.1   MOD BY: RR BAIRNSFATHER DATE: 5 JULY 67         FIX ERROR IN MOD. 2.
028815,000229:                                                                                                  #  MOD NO: 3     MOD BY: RR BAIRNSFATHER DATE: 12 JUL 67         CHANGE SIGN OF DISPLAYED ERROR.
028816,000230:                                                                                                  #  MOD 4         MOD BY  S.ZELDIN        DATE  3 APRIL 68        CHANGE EQUATIONS FOR L/D=.18 WHICH REPLA
028817,000231: 
028818,000232:                                                                                                  #  FUNCTION:     CALCULATE (FOR DISPLAY ON CALL) AN APPROXIMATE MEASURE OF IN-PLANE SPLASH DOWN
028819,000233:                                                                                                  #                ERROR. IF THE FREE-FALL TRANSFER ANGLE TO 300K FT ABOVE PAD RADIUS IS POSITIVE:
028820,000234:                                                                                                  #                SPLASH ERROR= -RANGE TO TARGET + FREE-FALL TRANSFER ANGLE + ESTIMATED ENTRY ANGLE.
028821,000235:                                                                                                  #                THE TARGET LOCATION AT ESTIMATED TIME OF IMPACT IS USED.  IF THE FREE-FALL TRANSFER
028822,000236:                                                                                                  #                ANGLE IS NEGATIVE:  SPLASH ERROR= -RANGE TO TARGET
028823,000237:                                                                                                  #                THE PRESENT TARGET LOCATION IS USED.
028824,000238: 
028825,000239:                                                                                                  #  CALLING SEQUENCE  CALLED AFTER SR30.1 IF IN CSM AND IF P11 OPERATING (UNDER CONTROL OF V82)
028826,000240: 
028827,000241:                                                                                                  #  SUBROUTINES CALLED:  VGAMCALC, TFF/TRIG, LALOTORV.
028828,000242: 
028829,000243:                                                                                                  #  EXIT          RETURN DIRECTLY TO V 82 PROG. AT SPLRET
028830,000244: 
028831,000245:                                                                                                  #  ERASABLE INITIALIZATION   LEFT BY SR30.1 AND V82GON1
028832,000246: 
028833,000247:                                                                                                  #  OUTPUT:       RSP-RREC  RANGE IN REVOLUTIONS                  DSKY DISPLAY IN N. MI.
028834,000248: 
028835,000249:                                                                                                  #  DEBRIS:       QPRET, PDL0 ... PDL7, PDL10
028836,000250:                                                                                                  #                THETA(1)
028837,000251: 
028838,000252: 32,2000                                           SETLOC   DELRSPL1                              
028839,000253: 32,2000                                           BANK                                           
028840,000254: 32,2027                                           COUNT*   $$/P30                                #  PROGRAMS: P30 EXTERNAL DELTA V
028841,000255: 
028842,000256: 32,2027           00011        DELRSPL            STORE    8D                                    
028843,000257: 32,2030           45244                           BPL      DSU                                   
028844,000258: 32,2031           64077                                    CANTDO                                #  GONE PAST 300K FT ALT
028845,000259: 32,2032           16425                                    1BITDP                                
028846,000260: 32,2033           45000                           BOV      CALL                                  
028847,000261: 32,2034           64077                                    CANTDO                                #  POSMAX INDICATES NO 300K FT SOLUTION.
028848,000262: 32,2035           55054                                    VGAMCALC                              #  +GAMMA(REV) IN PMAC,V300 MAG(B-7)=PDL 0
028849,000263: 32,2036           45006                           PUSH     CALL                                  
028850,000264: 32,2037           57052                                    TFF/TRIG                              
028851,000265: 32,2040           77624                           CALL                                           
028852,000266: 32,2041           64105                                    AUGEKUGL                              
028853,000267: 32,2042           65525                           PDDL     ACOS                                  #  T ENTRY PDL 6
028854,000268: 32,2043           00017                                    CDELF/2                               
028855,000269: 32,2044           77615                           DAD                                            
028856,000270: 32,2045           00005                                    4                                     
028857,000271: 32,2046           26341        GETARG             STOVL    THETA(1)                              
028858,000272: 32,2047           03401                                    LAT(SPL)                              
028859,000273: 32,2050           14747                           STODL    LAT                                   
028860,000274: 32,2051           15336                                    HI6ZEROS                              
028861,000275: 32,2052           14753                           STODL    ALT                                   #  ALT=0 = LAT +4
028862,000276: 32,2053           01044                                    PIPTIME                               
028863,000277: 32,2054           71214                           BON      DLOAD                                 

Page 648

028865,000279: 32,2055           03711                                    V37FLAG                               
028866,000280: 32,2056           64060                                    +2                                    
028867,000281: 32,2057           02316                                    TSTART82                              
028868,000282: 32,2060           43225                           DSU      DAD                                   
028869,000283: 32,2061           00011                                    8D                                    
028870,000284: 32,2062           45014                           CLEAR    CALL                                  
028871,000285: 32,2063           00662                                    ERADFLAG                              
028872,000286: 32,2064           26524                                    LALOTORV                              #  R RECOV. IN ALPHAV AND MPAC
028873,000287: 
028874,000288: 32,2065           63256                           UNIT     PDVL                                  
028875,000289: 32,2066           02320                                    RONE                                  
028876,000290: 32,2067           50256                           UNIT     DOT                                   
028877,000291: 32,2070           65552                           SL1      ARCCOS                                
028878,000292: 32,2071           77621                           BDSU                                           #  ERROR = THETA EST - THETA TARG
028879,000293:                                                                                                  #  NEGATIVE NUMBER SIGNIFIES THAT WILL FALL SHORT.
028880,000294:                                                                                                  #  POSITIVE NUMBER SIGNIFIES THAT WILL OVERSHOOT.
028881,000295: 32,2072           02341                                    THETA(1)                              
028882,000296: 32,2073           36347        DELRDONE           STCALL   RSP-RREC                              #  DOWNRANGE RECOVERY RANGE ERROR        /360
028883,000297: 32,2074           27525                                    INTWAKE0                              
028884,000298: 32,2075           77624                           CALL                                           
028885,000299: 32,2076           46616                                    SPLRET                                
028886,000300: 32,2077           65345        CANTDO             DLOAD    PDDL                                  #  INITIALIZE ERASE TO DOT TARGET AND UR
028887,000301:                                                                                                  #  FOR RANGE ANGLE.
028888,000302: 32,2100           15334                                    HIDPHALF                              #  TO PDL 0 FOR DEN IN DDV.
028889,000303: 32,2101           15336                                    HI6ZEROS                              
028890,000304: 32,2102           77606                           PUSH                                           #  ZERO TO PDL 2 FOR PHI ENTRY
028891,000305: 32,2103           34011                           STCALL   8D                                    
028892,000306: 32,2104           64046                                    GETARG                                #  GO SET RSP-RREC =0
028893,000307: 
028894,000308: 32,2105           77775        AUGEKUGL           VLOAD                                          
028895,000309: 32,2106           24266                                    X1CON      -2                         
028896,000310: 32,2107           14045                           STODL    X1         -2                         
028897,000311: 32,2110           00001                                    0                                     
028898,000312: 32,2111           50025                           DSU      BMN                                   
028899,000313: 32,2112           24260                                    V(21K)                                
028900,000314: 32,2113           64140                                    LOOPSET                               
028901,000315: 32,2114           65060                           XSU,1    XCHX,2                                
028902,000316: 32,2115           00050                                    S1                                    
028903,000317: 32,2116           00046                                    X1                                    
028904,000318: 32,2117           45324                           XCHX,2   DSU                                   
028905,000319: 32,2120           00050                                    S1                                    
028906,000320: 32,2121           24246                                    V(3K)                                 
028907,000321: 32,2122           65040                           BMN      XCHX,2                                
028908,000322: 32,2123           64140                                    LOOPSET                               
028909,000323: 32,2124           00050                                    S1                                    
028910,000324: 32,2125           50025                           DSU      BMN                                   
028911,000325: 32,2126           24256                                    V(4K)                                 
028912,000326: 32,2127           64140                                    LOOPSET                               
028913,000327: 32,2130           65124                           XCHX,2   XCHX,2                                
028914,000328: 32,2131           00050                                    S1                                    

Page 649

028916,000330: 32,2132           00046                                    X1                                    
028917,000331: 32,2133           50025                           DSU      BMN                                   
028918,000332: 32,2134           24242                                    V(400)                                
028919,000333: 32,2135           64140                                    LOOPSET                               
028920,000334: 32,2136           77730                           SXA,1                                          
028921,000335: 32,2137           00050                                    S1                                    
028922,000336: 32,2140           52110        LOOPSET            INCR,1   GOTO                                  
028923,000337: 32,2141           00001                           DEC      1          B-14                       
028924,000338: 32,2142           64145                                    K1K2LOOP                              
028925,000339: 32,2143           77730        K2CALC             SXA,1                                          
028926,000340: 32,2144           00050                                    S1                                    
028927,000341: 32,2145           44745        K1K2LOOP           DLOAD    DSU*                                  
028928,000342: 32,2146           00001                                    0                                     
028929,000343: 32,2147           24255                                    V(32K)     +1,1                       
028930,000344: 32,2150           42603                           DMP*     DAD*                                  
028931,000345: 32,2151           24241                                    YK1K2      +1,1                       
028932,000346: 32,2152           24225                                    CK1K2      +1,1                       
028933,000347: 32,2153           60125                           PDDL     TIX,1                                 
028934,000348: 32,2154           00003                                    2                                     
028935,000349: 32,2155           64143                                    K2CALC                                
028936,000350: 32,2156           55225                           DSU      BDDV                                  
028937,000351: 32,2157           40006                           PUSH     BOV                                   #  PHI ENTRY PDL 4D
028938,000352: 32,2160           64203                                    MAXPHI                                
028939,000353: 32,2161           45240                           BMN      DSU                                   
028940,000354: 32,2162           64203                                    MAXPHI                                
028941,000355: 32,2163           24210                                    MAXPHIC                               
028942,000356: 32,2164           77644                           BPL                                            
028943,000357: 32,2165           64203                                    MAXPHI                                
028944,000358: 32,2166           45345        PHICALC            DLOAD    DSU                                   
028945,000359: 32,2167           00001                                    0                                     
028946,000360: 32,2170           24266                                    V(26K)                                
028947,000361: 32,2171           71244                           BPL      DLOAD                                 
028948,000362: 32,2172           64200                                    TGR26                                 
028949,000363: 32,2173           24262                                    TLESS26                               
028950,000364: 32,2174           77671                           DDV                                            
028951,000365: 32,2175           00001                                    0                                     
028952,000366: 32,2176           43405        TENT               DMP      RVQ                                   
028953,000367: 32,2177           00005                                    4D                                    
028954,000368: 32,2200           52145        TGR26              DLOAD    GOTO                                  
028955,000369: 32,2201           24264                                    TGR26CON                              
028956,000370: 32,2202           64176                                    TENT                                  
028957,000371: 
028958,000372: 32,2203           65345        MAXPHI             DLOAD    PDDL                                  
028959,000373: 32,2204           24210                                    MAXPHIC                               
028960,000374: 32,2205           77650                           GOTO                                           
028961,000375: 32,2206           64166                                    PHICALC                               
028962,000376: 32,2207           02755 01307  MAXPHIC            2DEC     .09259298                             #  2000 NM FOR MAXIMUM PHI ENTRY
028963,000377: 
028964,000378: 32,2211                                           COUNT*   $$/P30                                

Page 650

028966,000380: 
028967,000381: 
028968,000382:                                                                                                  #                BELOW
028969,000383:                                                                                                  #  <<<< TABLE IS INDEXED. KEEP IN ORDER >>>
028970,000384: 
028971,000385: 32,2211           00013 22652                     2DEC     7.07304526 E-4                        #  5500
028972,000386: 
028973,000387: 32,2213           00005 01642                     2DEC     3.08641975 E-4                        #  2400
028974,000388: 
028975,000389: 32,2215           00005 01642                     2DEC     3.08641975 E-4                        #  2400
028976,000390: 
028977,000391: 32,2217           77556 53522                     2DEC     -8.8888888 E-3                        #  -3.2
028978,000392: 
028979,000393: 32,2221           00055 20266                     2DEC     2.7777777  E-3                        #  1
028980,000394: 
028981,000395: 32,2223           00155 07202  CK1K2              2DEC     6.6666666  E-3                        #  2.4
028982,000396: 
028983,000397: 32,2225           00000 00000                     2DEC     0          B-28                       #  0
028984,000398: 
028985,000399: 32,2227           77730 71525                     2DEC*    -1.86909989 E-5        B7*             #  -.443
028986,000400: 
028987,000401: 32,2231           00000 00000                     2DEC     0          B-28                       
028988,000402: 
028989,000403: 32,2233           04445 10102                     2DEC*    1.11639691 E-3        B7*             #  .001225
028990,000404: 
028991,000405: 32,2235           03726 31201                     2DEC*    9.56911636 E-4        B7*             #  .00105
028992,000406: 
028993,000407: 32,2237           01040 26313  YK1K2              2DEC*    2.59733157 E-4        B7*             #  .000285
028994,000408: 
028995,000409: 32,2241           00234 01660  V(400)             2DEC     1.2192     B-7                        
028996,000410: 
028997,000411: 32,2243           25254 01014  V(28K)             2DEC     85.344     B-7                        
028998,000412: 
028999,000413: 32,2245           02222 15646  V(3K)              2DEC     9.144      B-7                        
029000,000414: 
029001,000415: 32,2247           22223 16457  V(24K)             2DEC     73.152     B-7                        
029002,000416: 
029003,000417: 32,2251           25254 01014                     2DEC     85.344     B-7                        
029004,000418: 
029005,000419: 32,2253           30304 23351  V(32K)             2DEC     97.536     B-7                        
029006,000420: 
029007,000421: 32,2255           03030 22335  V(4K)              2DEC     12.192     B-7                        
029008,000422: 
029009,000423: 32,2257           20001 00611  V(21K)             2DEC     64.008     B-7                        
029010,000424: 
029011,000425: 32,2261           00033 05763  TLESS26            2DEC*    5.70146688 E7         B-35*           #  8660PHI/V
029012,000426: 
029013,000427: 32,2263           00053 36200  TGR26CON           2DEC     7.2        E5         B-28            #  PHI/3
029014,000428: 
029015,000429: 32,2265           23637 27636  V(26K)             2DEC     79.248     B-7                        #  26000
029016,000430: 
029017,000431: 32,2267           00012        X1CON              DEC      10         B-14                       
029018,000432: 

Page 651

029020,000434: 
029021,000435: 32,2270           00010                           DEC      8          B-14                       
029022,000436: 32,2271           00006                           DEC      6          B-14                       
029023,000437:                                                                                                  #  <<<< TABLE IS INDEXED. KEEP IN ORDER >>>
029024,000438:                                                                                                  #                ABOVE

Page 652

029026,000440: 
029027,000441:                                                                                                  #  ***** AVFLAGA/P *****
029028,000442: 
029029,000443:                                                                                                  #  SUBROUTINES USED
029030,000444: 
029031,000445:                                                                                                  #        UPFLAG
029032,000446:                                                                                                  #        DOWNFLAG
029033,000447: 
029034,000448:    4000                                           SETLOC   P30SUBS                               
029035,000449:    4000                                           BANK                                           
029036,000450:    4553                                           COUNT*   $$/P30                                
029037,000451:    4553  E4,1760                                  EBANK=   SUBEXIT                               
029038,000452:    4553           00006        AVFLAGA            EXTEND                                         #  AVFLAG = CSM
029039,000453:    4554           23760                           QXCH     SUBEXIT                               
029040,000454:    4555           05561                           TC       DOWNFLAG                              
029041,000455:    4556           00050                           ADRES    AVFLAG                                #  BIT 5  FLAG 2
029042,000456:    4557           04606                           TC       E7SETTER                              
029043,000457:    4560  E7,1424                                  EBANK=   ECSTEER                               
029044,000458:    4560           34754                           CAF      BIT13                                 
029045,000459:    4561           55424                           TS       ECSTEER                               #  SET ECSTEER = 1
029046,000460:    4562           34756                           CAF      EBANK4                                
029047,000461:    4563           54003                           TS       EBANK                                 
029048,000462:    4564  E4,1760                                  EBANK=   SUBEXIT                               
029049,000463:    4564           01760                           TC       SUBEXIT                               
029050,000464:    4565           00006        AVFLAGP            EXTEND                                         #  AVFLAG = LEM
029051,000465:    4566           23760                           QXCH     SUBEXIT                               
029052,000466:    4567           05547                           TC       UPFLAG                                
029053,000467:    4570           00050                           ADRES    AVFLAG                                #  BIT 5  FLAG 2
029054,000468:    4571           01760                           TC       SUBEXIT                               
029055,000469:    4572           00006        P20FLGON           EXTEND                                         
029056,000470:    4573           23760                           QXCH     SUBEXIT                               
029057,000471:    4574           05547                           TC       UPFLAG                                
029058,000472:    4575           00031                           ADRES    TRACKFLG                              
029059,000473:    4576           05547                           TC       UPFLAG                                
029060,000474:    4577           00027                           ADRES    UPDATFLG                              
029061,000475:    4600           05561                           TC       DOWNFLAG                              
029062,000476:    4601           00244                           ADRES    PCFLAG                                
029063,000477:    4602           01760                           TC       SUBEXIT                               
029064,000478: 

Page 653

029066,000480: 
029067,000481: 04,2000                                           SETLOC   P31TAG                                
029068,000482: 04,2000                                           BANK                                           
029069,000483: 
029070,000484: 04,3303                                           COUNT*   $$/P3136                              
029071,000485: 04,3303           04553        P31                TC       AVFLAGA                               
029072,000486: 04,3304           04572                           TC       P20FLGON                              #  SET TRACK,UPDATE, CLEAR FINAL FLAGS
029073,000487: 04,3305           06006                           TC       INTPRET                               
029074,000488: 04,3306           45014        P31ALMRT           CLEAR    CALL                                  
029075,000489: 04,3307           05671                                    CSISFLAG                              
029076,000490: 04,3310           11546                                    INPUTDSP                              
029077,000491: 04,3311           74014                           BOFF     AXC,1                                 
029078,000492: 04,3312           04343                                    CMOONFLG                              
029079,000493: 04,3313           11315                                    COMPMU                                
029080,000494: 04,3314           00012                                    10D                                   
029081,000495: 04,3315           51575        COMPMU             VLOAD    ABVAL                                 
029082,000496: 04,3316           01555                                    RRECTCSM                              
029083,000497: 04,3317           62606                           PUSH     PDVL*                                 #                        PL AT 04D
029084,000498: 04,3320           22301                                    MUTABLE,1                             #  RTX1=1/MU B+34,B+28, RTMU=SQRT(MU)
029085,000499: 04,3321           27746                           STOVL    RTX1                                  #  B-18,B-15, RTSR1/MU=1/SQRT(MU)        B+17,B+14
029086,000500: 04,3322           01563                                    VRECTCSM                              
029087,000501: 04,3323           57236                           VSQ      DMPR                                  
029088,000502: 04,3324           03746                                    RTX1                                  #  VSQ/MU                                B+2 ,B+18
029089,000503: 04,3325           52405                           DMP      SL3                                   #  R VSQ/MU              PL AT 02D       B-6
029090,000504: 04,3326           74421                           BDSU     SR1R                                  
029091,000505: 04,3327           33416                                    D1/32                                 #  ( 2 - R VSQ/MU )                      B-7
029092,000506: 04,3330           41471                           DDV      PUSH                                  #  ( 2 - R VSQ/MU )/R       AT 00D       B+22,B+20
029093,000507: 04,3331           55366                           SQRT     BDDV                                  #  2 PI R/(2 - R VSQ/MU)                 B-15,B-14
029094,000508: 04,3332           33430                                    2PISC                                 
029095,000509: 04,3333           65205                           DMP      PDDL                                  #  2PI R SQRT(MU)/(2MU-R VSQ)            B-2,B-0
029096,000510: 04,3334           03752                                    RTSR1/MU                              
029097,000511: 04,3335           65301                           NORM     PDDL                                  
029098,000512: 04,3336           00047                                    X1                                    
029099,000513: 04,3337           56257                           SL*      DDV                                   
029100,000514: 04,3340           20172                                    0          -7D,1                      #  HAFPA1 = PERIOD/2                     B-28
029101,000515: 04,3341           77621                           BDSU                                           #  TIG = ( TCSI - HAFPA1 )               B-28
029102,000516: 04,3342           02463                                    TCSI                                  
029103,000517: 04,3343           03413                           STORE    TIG                                   #  TIG = ( TCSI - PERIOD/2 )             B-28
029104,000518: 04,3344           77776                           EXIT                                           
029105,000519: 04,3345           35026                           CA       V06N33                                
029106,000520: 04,3346           05535                           TC       VNFLASH                               
029107,000521: 04,3347           06006                           TC       INTPRET                               
029108,000522: 04,3350           77624        P31ONWRD           CALL                                           
029109,000523: 04,3351           11217                                    SELECTMU                              
029110,000524: 04,3352           71214        P31RECYC           SET      DLOAD                                 
029111,000525: 04,3353           05470                                    HAFLAG                                
029112,000526: 04,3354           02463                                    TCSI                                  
029113,000527: 04,3355           77624                           CALL                                           
029114,000528: 04,3356           11441                                    P31ENT                                
029115,000529: 04,3357           77775        P31RT              VLOAD                                          

Page 654

029117,000531: 04,3360           11762                                    ZEROVEC                               
029118,000532: 04,3361           17405                           STODL    DELVLVC                               
029119,000533: 04,3362           02633                                    DIFFALT                               #  DELTA H AT CDH
029120,000534: 04,3363           57215                           DAD      DMPR                                  
029121,000535: 04,3364           02370                                    HAMDELH                               #  METERS        B-29
029122,000536: 04,3365           11376                                    25THOUS                               #  K = -.025                             B-0
029123,000537: 04,3366           45061                           SL       CALL                                  
029124,000538: 04,3367           20206                                    5D                                    
029125,000539: 04,3370           24005                                    N90/N81                               
029126,000540: 04,3371           77624                           CALL                                           #                 X
029127,000541: 04,3372           73027                                    VN1645                                #  S32/33.1, DISPLAYS AND COMPUTES DELVLVC
029128,000542: 04,3373           77650                           GOTO                                           #  AND DELVSIN.
029129,000543: 04,3374           11352                                    P31RECYC                              
029130,000544: 04,3375           56574 47556  25THOUS            2DEC*    -.4114470842 E-5        B+17*           #                                B+17
029131,000545: 
029132,000546: 04,3377           13434        130DEGLO           OCT      13434                                 
029133,000547: 04,3400           16163                           OCT      16163                                 
029134,000548: 04,3401           22407        208DEGLO           OCT      22407                                 
029135,000549: 04,3402           36673                           OCT      36673                                 
029136,000550: 22,2000                                           SETLOC   P36TAG                                
029137,000551: 22,2000                                           BANK                                           

Page 655

029139,000553: 
029140,000554:                                                                                                  #  PLANE CHANGE TARGETING PROGRAM        P36
029141,000555:                                                                                                  #  
029142,000556:                                                                                                  #  PURPOSE
029143,000557:                                                                                                  #        TO COMPUTE PARAMETERS FOR PLANE CHANGE MANEUVER
029144,000558: 
029145,000559:                                                                                                  #  INPUT
029146,000560:                                                                                                  #        TCSI
029147,000561:                                                                                                  #  
029148,000562:                                                                                                  #  OUTPUT
029149,000563:                                                                                                  #        TIG             TIME OF PLANE CHANGE MANEUVER  COMPUTED TO BE
029150,000564:                                                                                                  #                        TCSI + 90 DEG TRANSFER TIME
029151,000565:                                                                                                  #        DELVLVC         DELTA VELOCITY AT PC - LOCAL VERTICAL
029152,000566:                                                                                                  #        DELVSIN         DELTA VELOCITY AT PC - REFERENCE
029153,000567: 
029154,000568: 22,3334                                           COUNT*   $$/P3136                              
029155,000569: 22,3334           04553        P36                TC       AVFLAGA                               
029156,000570: 22,3335           04572                           TC       P20FLGON                              #  SET TRACK,UPDATE - CLEAR PC FLAGS
029157,000571: 22,3336           05547                           TC       UPFLAG                                
029158,000572: 22,3337           00244                           ADRES    PCFLAG                                
029159,000573: 
029160,000574: 22,3340           06006                           TC       INTPRET                               
029161,000575: 22,3341           77624                           CALL                                           
029162,000576: 22,3342           11217                                    SELECTMU                              
029163,000577: 22,3343           71214        P36A               SET      DLOAD                                 
029164,000578: 22,3344           01067                                    XDELVFLG                              
029165,000579: 22,3345           02463                                    TCSI                                  
029166,000580: 22,3346           34041                           STCALL   TDEC1                                 
029167,000581: 22,3347           27170                                    CSMCONIC                              #  INTEGRATE STATES TO TCSI
029168,000582: 22,3350           43145                           DLOAD    SET                                   
029169,000583: 22,3351           15336                                    ZEROVECS                              
029170,000584: 22,3352           03466                                    RVSW                                  
029171,000585: 22,3353           16734                           STODL    CSTH                                  #  COS 90 DEGREES
029172,000586: 22,3354           05547                                    CS359+                                
029173,000587: 22,3355           26732                           STOVL    SNTH                                  #  SINE 90 DEGREES
029174,000588: 22,3356           00001                                    RATT                                  
029175,000589: 22,3357           45115                           PDVL     CALL                                  
029176,000590: 22,3360           00007                                    VATT                                  
029177,000591: 22,3361           45320                                    VECSHIFT                              
029178,000592: 22,3362           26746                           STOVL    VVEC                                  
029179,000593: 22,3363           77626                           STADR                                          
029180,000594: 22,3364           41120                           STCALL   RVEC                                  #  COMPUTE TRANSFER TIME OF 90 DEG
029181,000595: 22,3365           25002                                    TIMETHET                              
029182,000596: 22,3366           77615                           DAD                                            
029183,000597: 22,3367           02463                                    TCSI                                  
029184,000598: 22,3370           03413                           STORE    TIG                                   
029185,000599: 22,3371           77776                           EXIT                                           
029186,000600: 22,3372           35026                           CAF      V06N33                                
029187,000601: 22,3373           05535                           TC       VNFLASH                               
029188,000602: 22,3374           06006                           TC       INTPRET                               
029189,000603: 22,3375           77624                           CALL                                           

Page 656

029191,000605: 22,3376           73027                                    VN1645                                
029192,000606: 22,3377           45175        P36RECYC           VLOAD    CALL                                  
029193,000607: 22,3400           15336                                    ZEROVECS                              
029194,000608: 22,3401           24005                                    N90/N81                               #  DISPLAY N90,N81 COMPUTE YDOT
029195,000609: 22,3402           77624                           CALL                                           
029196,000610: 22,3403           73027                                    VN1645                                
029197,000611: 22,3404           77650                           GOTO                                           
029198,000612: 22,3405           45377                                    P36RECYC                              
029199,000613: 12,2000                                           SETLOC   N90TAG                                
029200,000614: 12,2000                                           BANK                                           

Page 657

029202,000616: 
029203,000617:                                                                                                  #  ...... N90/N81 ....... COMPUTES YDOT, DISPLAYS N90 AND N81 FOR P31, P36
029204,000618: 12,2005                                           COUNT*   $$/P3136                              
029205,000619: 12,2005           77620        N90/N81            STQ                                            
029206,000620: 12,2006           02551                                    N90RET                                
029207,000621: 12,2007           17405                           STODL    DELVLVC                               
029208,000622: 12,2010           03413                                    TIG                                   
029209,000623: 12,2011           34041                           STCALL   TDEC1                                 
029210,000624: 12,2012           45236                                    PRECSET                               
029211,000625: 12,2013           43014                           BON      SET                                   
029212,000626: 12,2014           01311                                    FINALFLG                              
029213,000627: 12,2015           24017                                    +2                                    
029214,000628: 12,2016           00470                                    UPDATFLG                              
029215,000629: 12,2017           77775                 +2        VLOAD                                          
029216,000630: 12,2020           03546                                    VACT3                                 
029217,000631: 12,2021           27640                           STOVL    VTIG                                  
029218,000632: 12,2022           03540                                    RACT3                                 
029219,000633: 12,2023           37632                           STCALL   RTIG                                  
029220,000634: 12,2024           15756                                    DISPN90                               
029221,000635: 12,2025           77624                           CALL                                           
029222,000636: 12,2026           72721                                    LOMAT                                 
029223,000637: 12,2027           61375                           VLOAD    VXM                                   
029224,000638: 12,2030           03405                                    DELVLVC                               #  ROTATE DV (LV TO REF)
029225,000639: 12,2031           00001                                    0D                                    
029226,000640: 12,2032           77772                           VSL1                                           
029227,000641: 12,2033           37646                           STCALL   DELVSIN                               
029228,000642: 12,2034           02551                                    N90RET                                

End of include-file P30-P31.agc.  Parent file is MAIN.agc