Source Code

These source-code files were transcribed from a printout in Don Eyles's personal collection, scanned by archive.org, and financially sponsored by Linden Sims. A team of volunteers performed the transcription and proof-reading. The scanned page images are available at the Virtual AGC Project website, as well as higher-quality (but much larger) images at the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating "issues" at the Virtual AGC Project's GitHub Repository.

Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER
	9:12 OCT. 21,1970
Note that the date is the date of the printout, not the date of the program revision.

049261,000002:                                                                                                  ## Copyright:   Public domain.
049262,000003:                                                                                                  ## Filename:    PLANETARY_INERTIAL_ORIENTATION.agc
049263,000004:                                                                                                  ## Purpose:     A log section of Zerlina 56, the final revision of
049264,000005:                                                                                                  ##              Don Eyles's offline development program for the variable 
049265,000006:                                                                                                  ##              guidance period servicer. It also includes a new P66 with LPD 
049266,000007:                                                                                                  ##              (Landing Point Designator) capability, based on an idea of John 
049267,000008:                                                                                                  ##              Young's. Neither of these advanced features were actually flown,
049268,000009:                                                                                                  ##              but Zerlina was also the birthplace of other big improvements to
049269,000010:                                                                                                  ##              Luminary including the terrain model and new (Luminary 1E)
049270,000011:                                                                                                  ##              analog display programs. Zerlina was branched off of Luminary 145,
049271,000012:                                                                                                  ##              and revision 56 includes all changes up to and including Luminary
049272,000013:                                                                                                  ##              183. It is therefore quite close to the Apollo 14 program,
049273,000014:                                                                                                  ##              Luminary 178, where not modified with new features.
049274,000015:                                                                                                  ## Reference:   pp. 1131-1139
049275,000016:                                                                                                  ## Assembler:   yaYUL
049276,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
049277,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
049278,000019:                                                                                                  ## Mod history: 2017-07-28 MAS  Created from Luminary 210.
049279,000020:                                                                                                  ##              2017-08-28 MAS  Updated for Zerlina 56.
049280,000021: 

Page 1131

049282,000023:                                                                                                  #  ..... RP-TO-R SUBROUTINE .....
049283,000024:                                                                                                  #  SUBROUTINE TO CONVERT RP (VECTOR IN PLANETARY COORDINATE SYSTEM,EITHER
049284,000025:                                                                                                  #   EARTH-FIXED OR MOON-FIXED) TO R (SAME VECTOR IN THE BASIC REF. SYSTEM)
049285,000026: 
049286,000027:                                                                                                  #   R=MT(T)*(RP+LPXRP)    MT = M MATRIX TRANSPOSE
049287,000028: 
049288,000029:                                                                                                  #  CALLING SEQUENCE
049289,000030:                                                                                                  #   L       CALL
049290,000031:                                                                                                  #   L+1            RP-TO-R
049291,000032: 
049292,000033:                                                                                                  #  SUBROUTINES USED
049293,000034:                                                                                                  #   EARTHMX,MOONMX,EARTHL
049294,000035: 
049295,000036:                                                                                                  #     ITEMS AVAILABLE FROM LAUNCH DATA
049296,000037:                                                                                                  #      504LM= THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL,EXPRESSED
049297,000038:                                                                                                  #      IN THE MOON-FIXED COORD. SYSTEM   RADIANS  B0
049298,000039:                                                                                                  #        ITEMS NECESSARY FOR SUBR. USED (SEE DESCRIPTION OF SUBR.)
049299,000040: 
049300,000041:                                                                                                  #  INPUT
049301,000042:                                                                                                  #   MPAC= 0 FOR EARTH,NON-ZERO FOR MOON
049302,000043:                                                                                                  #   0-5D= RP VECTOR
049303,000044:                                                                                                  #   6-7D= TIME
049304,000045: 
049305,000046:                                                                                                  #  OUTPUT
049306,000047:                                                                                                  #   MPAC= R VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
049307,000048: 
049308,000049: 26,2000                                           SETLOC   PLANTIN1                              
049309,000050: 26,2000                                           BANK                                           
049310,000051: 
049311,000052: 26,3720                                           COUNT*   $$/LUROT                              
049312,000053: 
049313,000054: 26,3720           46020        RP-TO-R            STQ      BHIZ                                  
049314,000055: 26,3721           00050                                    RPREXIT                               
049315,000056: 26,3722           55735                                    RPTORA                                
049316,000057: 26,3723           77624                           CALL                                           #  COMPUTE M MATRIX FOR MOON
049317,000058: 26,3724           51674                                    MOONMX                                #  LP=LM FOR MOON  RADIANS B0
049318,000059: 26,3725           77775                           VLOAD                                          
049319,000060: 26,3726           02013                                    504LM                                 
049320,000061: 26,3727           53235        RPTORB             VXV      VAD                                   
049321,000062: 26,3730           00001                                    504RPR                                
049322,000063: 26,3731           00001                                    504RPR                                
049323,000064: 26,3732           52105                           VXM      GOTO                                  
049324,000065: 26,3733           00025                                    MMATRIX                               #  MPAC=R=MT(T)*(RP+LPXRP)
049325,000066: 26,3734           51662                                    RPRPXXXX                              #  RESET PUSHLOC TO 0 BEFORE EXITING
049326,000067: 26,3735           77624        RPTORA             CALL                                           #  EARTH COMPUTATIONS
049327,000068: 26,3736           55745                                    EARTHMX                               #  M MATRIX B-1
049328,000069: 26,3737           77624                           CALL                                           
049329,000070: 26,3740           15761                                    EARTHL                                #  L VECTOR RADIANS B0
049330,000071: 26,3741           76521                           MXV      VSL1                                  #  LP=M(T)*L  RAD B-0
049331,000072: 26,3742           00025                                    MMATRIX                               

Page 1132

049333,000074: 26,3743           77650                           GOTO                                           
049334,000075: 26,3744           55727                                    RPTORB                                
049335,000076: 24,2000                                           SETLOC   PLANTIN                               
049336,000077: 24,2000                                           BANK                                           
049337,000078: 24,3644                                           COUNT*   $$/LUROT                              
049338,000079: 

Page 1133

049340,000081:                                                                                                  #  ..... R-TO-RP SUBROUTINE .....
049341,000082:                                                                                                  #  SUBROUTINE TO CONVERT R (VECTOR IN REFERENCE COORD. SYSTEM) TO RP
049342,000083:                                                                                                  #   (VECTOR IN PLANETARY COORD SYSTEM) EITHER EARTH-FIXED OR MOON-FIXED
049343,000084: 
049344,000085:                                                                                                  #   RP=M(T)*(R-LXR)
049345,000086: 
049346,000087:                                                                                                  #  CALLING SEQUENCE
049347,000088:                                                                                                  #   L       CALL
049348,000089:                                                                                                  #   L+1            R-TO-RP
049349,000090: 
049350,000091:                                                                                                  #  SUBROUTINES USED
049351,000092:                                                                                                  #   EARTHMX,MOONMX,EARTHL
049352,000093: 
049353,000094:                                                                                                  #  INPUT
049354,000095:                                                                                                  #   MPAC= 0 FOR EARTH,NON-ZERO FOR MOON
049355,000096:                                                                                                  #   0-5D= R VECTOR
049356,000097:                                                                                                  #   6-7D= TIME
049357,000098: 
049358,000099:                                                                                                  #     ITEMS AVAILABLE FROM LAUNCH DATA
049359,000100:                                                                                                  #      504LM= THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL,EXPRESSED
049360,000101:                                                                                                  #      IN THE MOON-FIXED COORD. SYSTEM   RADIANS B0
049361,000102:                                                                                                  #        ITEMS NECESSARY FOR SUBROUTINES USED (SEE DESCRIPTION OF SUBR.)
049362,000103: 
049363,000104:                                                                                                  #  OUTPUT
049364,000105:                                                                                                  #   MPAC=RP VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
049365,000106: 
049366,000107: 24,3644           46020        R-TO-RP            STQ      BHIZ                                  
049367,000108: 24,3645           00050                                    RPREXIT                               
049368,000109: 24,3646           51666                                    RTORPA                                
049369,000110: 24,3647           77624                           CALL                                           
049370,000111: 24,3650           51674                                    MOONMX                                
049371,000112: 24,3651           61375                           VLOAD    VXM                                   
049372,000113: 24,3652           02013                                    504LM                                 #  LP=LM
049373,000114: 24,3653           00025                                    MMATRIX                               
049374,000115: 24,3654           77772                           VSL1                                           #   L=MT(T)*LP  RADIANS B0
049375,000116: 24,3655           51235        RTORPB             VXV      BVSU                                  
049376,000117: 24,3656           00001                                    504RPR                                
049377,000118: 24,3657           00001                                    504RPR                                
049378,000119: 24,3660           77721                           MXV                                            #  M(T)*(R-LXR) B-2
049379,000120: 24,3661           00025                                    MMATRIX                               
049380,000121: 24,3662           40372        RPRPXXXX           VSL1     SETPD                                 
049381,000122: 24,3663           00001                                    0D                                    
049382,000123: 24,3664           77650                           GOTO                                           
049383,000124: 24,3665           00050                                    RPREXIT                               
049384,000125: 24,3666           77624        RTORPA             CALL                                           #  EARTH COMPUTATIONS
049385,000126: 24,3667           55745                                    EARTHMX                               
049386,000127: 24,3670           77624                           CALL                                           
049387,000128: 24,3671           15761                                    EARTHL                                
049388,000129: 24,3672           77650                           GOTO                                           #  MPAC=L=(-AX,-AY,0) RAD B-0
049389,000130: 24,3673           51655                                    RTORPB                                
049390,000131: 

Page 1134

049392,000133:                                                                                                  #  ..... MOONMX SUBROUTINE .....
049393,000134:                                                                                                  #  SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE MOON
049394,000135: 
049395,000136:                                                                                                  #  CALLING SEQUENCE
049396,000137:                                                                                                  #   L       CALL
049397,000138:                                                                                                  #   L+1            MOONMX
049398,000139: 
049399,000140:                                                                                                  #  SUBROUTINES USED
049400,000141:                                                                                                  #   NEWANGLE
049401,000142: 
049402,000143:                                                                                                  #  INPUT
049403,000144:                                                                                                  #   6-7D= TIME
049404,000145:                                                                                                  #     ITEMS AVAILABLE FROM LAUNCH DATA
049405,000146:                                                                                                  #      BSUBO,BDOT
049406,000147:                                                                                                  #      TIMSUBO,NODIO,NODDOT,FSUBO,FDOT
049407,000148:                                                                                                  #      COSI= COS(I) B-1
049408,000149:                                                                                                  #      SINI= SIN(I) B-1
049409,000150:                                                                                                  #        I  IS THE ANGLE BETWEEN THE MEAN LUNAR EQUATORIAL PLANE AND THE
049410,000151:                                                                                                  #        PLANE OF THE ECLIPTIC  (1 DEGREE  32.1 MINUTES)
049411,000152: 
049412,000153:                                                                                                  #  OUTPUT
049413,000154:                                                                                                  #   MMATRIX= 3X3 M MATRIX B-1   (STORED IN VAC AREA)
049414,000155: 
049415,000156: 24,3674           40220        MOONMX             STQ      SETPD                                 
049416,000157: 24,3675           00051                                    EARTHMXX                              
049417,000158: 24,3676           00011                                    8D                                    
049418,000159: 24,3677           77770                           AXT,1                                          #  B REQUIRES SL 0, SL 5 IN NEWANGLE
049419,000160: 24,3700           00005                                    5                                     
049420,000161: 24,3701           65345                           DLOAD    PDDL                                  #  PD 10D            8-9D=BSUBO
049421,000162: 24,3702           14017                                    BSUBO                                 #                    10-11D= BDOT
049422,000163: 24,3703           14011                                    BDOT                                  
049423,000164: 24,3704           45006                           PUSH     CALL                                  #  PD 12D
049424,000165: 24,3705           51743                                    NEWANGLE                              #  EXIT WITH PD 8D AND MPAC= B  REVS B0
049425,000166: 24,3706           71406                           PUSH     COS                                   #  PD 10D
049426,000167: 24,3707           14041                           STODL    COB                                   #  PD 8D    COS(B) B-1
049427,000168: 24,3710           77756                           SIN                                            #           SIN(B) B-1
049428,000169: 24,3711           14043                           STODL    SOB                                   #            SETUP INPUT FOR NEWANGLE
049429,000170: 24,3712           14015                                    FSUBO                                 #                      8-9D=FSUBO
049430,000171: 24,3713           41525                           PDDL     PUSH                                  #  PD 10D THEN 12D   10-11D=FDOT
049431,000172: 24,3714           14007                                    FDOT                                  
049432,000173: 24,3715           45170                           AXT,1    CALL                                  #  F REQUIRES SL 1, SL 6 IN NEWANGLE
049433,000174: 24,3716           00004                                    4                                     
049434,000175: 24,3717           51743                                    NEWANGLE                              #  EXIT WITH PD 8D AND MPAC= F REVS B0
049435,000176: 24,3720           14027                           STODL    AVECTR     +2                         #  SAVE F TEMP
049436,000177: 24,3721           14013                                    NODIO                                 #                      8-9D=NODIO
049437,000178: 24,3722           41525                           PDDL     PUSH                                  #  PD 10D THEN 12D   10-11D=NODDOT
049438,000179: 24,3723           14005                                    NODDOT                                #                      MPAC=T
049439,000180: 24,3724           45170                           AXT,1    CALL                                  #  NODE REQUIRES SL 0, SL 5 IN NEWANGLE
049440,000181: 24,3725           00005                                    5                                     
049441,000182: 24,3726           51743                                    NEWANGLE                              #  EXIT WITH PD 8D AND MPAC= NODI REVS B0

Page 1135

049443,000184: 24,3727           71406                           PUSH     COS                                   #  PD 10D   8-9D= NODI  REVS  B0
049444,000185: 24,3730           77606                           PUSH                                           #  PD 12D 10-11D= COS(NODI)  B-1
049445,000186: 24,3731           00025                           STORE    AVECTR                                
049446,000187: 24,3732           76405                           DMP      SL1R                                  
049447,000188: 24,3733           00041                                    COB                                   #                          COS(NODI)    B-1
049448,000189: 24,3734           14035                           STODL    BVECTR     +2                         #  PD 10D   20-25D=AVECTR= COB*SIN(NODI)
049449,000190: 24,3735           76405                           DMP      SL1R                                  #                          SOB*SIN(NODI)
049450,000191: 24,3736           00043                                    SOB                                   
049451,000192: 24,3737           14037                           STODL    BVECTR     +4                         #  PD 8D
049452,000193: 24,3740           41556                           SIN      PUSH                                  #  PD 10D                 -SIN(NODI)   B-1
049453,000194: 24,3741           52076                           DCOMP    GOTO                                  #           26-31D=BVECTR= COV*COS(NODI)
049454,000195: 24,3742           53710                                    MOONMXA                               
049455,000196: 25,3710                                           BANK     25                                    
049456,000197: 25,2000                                           SETLOC   PLANTIN3                              
049457,000198: 25,2000                                           BANK                                           
049458,000199: 25,3710                                           COUNT*   $$/LUROT                              
049459,000200: 
049460,000201: 25,3710           14033        MOONMXA            STODL    BVECTR                                #  PD 8D                    SOB*COS(NODI)
049461,000202: 25,3711           00027                                    AVECTR     +2                         #  MOVE F FROM TEMP LOC. TO 504F
049462,000203: 25,3712           14007                           STODL    504F                                  
049463,000204: 25,3713           76405                           DMP      SL1R                                  
049464,000205: 25,3714           00041                                    COB                                   
049465,000206: 25,3715           14027                           STODL    AVECTR     +2                         
049466,000207: 25,3716           00011                                    SINNODI                               #  8-9D=SIN(NODI)  B-1
049467,000208: 25,3717           76405                           DMP      SL1R                                  
049468,000209: 25,3720           00043                                    SOB                                   
049469,000210: 25,3721           14031                           STODL    AVECTR     +4                         #                           0
049470,000211: 25,3722           06520                                    HI6ZEROS                              #          8-13D= CVECTR= -SOB  B-1
049471,000212: 25,3723           57525                           PDDL     DCOMP                                 #  PD 10D                  COB
049472,000213: 25,3724           00043                                    SOB                                   
049473,000214: 25,3725           63325                           PDDL     PDVL                                  #  PD 12D THEN PD 14D
049474,000215: 25,3726           00041                                    COB                                   
049475,000216: 25,3727           00033                                    BVECTR                                
049476,000217: 25,3730           63361                           VXSC     PDVL                                  #  PD 20D         BVECTR*SINI  B-2
049477,000218: 25,3731           14003                                    SINI                                  
049478,000219: 25,3732           00011                                    CVECTR                                
049479,000220: 25,3733           53361                           VXSC     VAD                                   #  PD 14D         CVECTR*COSI  B-2
049480,000221: 25,3734           14001                                    COSI                                  
049481,000222: 25,3735           77772                           VSL1                                           
049482,000223: 25,3736           24041                           STOVL    MMATRIX    +12D                       #  PD 8D  M2=BVECTR*SINI+CVECTR*COSI  B-1
049483,000224: 25,3737           63361                           VXSC     PDVL                                  #  PD 14D
049484,000225: 25,3740           14003                                    SINI                                  #                 CVECTR*SINI  B-2
049485,000226: 25,3741           00033                                    BVECTR                                
049486,000227: 25,3742           52361                           VXSC     VSU                                   #  PD 8D          BVECTR*COSI  B-2
049487,000228: 25,3743           14001                                    COSI                                  
049488,000229: 25,3744           65372                           VSL1     PDDL                                  #  PD 14D
049489,000230: 25,3745           00007                                    504F                                  #  8-13D=DVECTR=BVECTR*COSI-CVECTR*SINI B-1
049490,000231: 25,3746           74346                           COS      VXSC                                  
049491,000232: 25,3747           00011                                    DVECTR                                
049492,000233: 25,3750           73525                           PDDL     SIN                                   #  PD 20D  14-19D= DVECTR*COSF  B-2

Page 1136

049494,000235: 25,3751           00007                                    504F                                  
049495,000236: 25,3752           52361                           VXSC     VSU                                   #  PD 14D          AVECTR*SINF  B-2
049496,000237: 25,3753           00025                                    AVECTR                                
049497,000238: 25,3754           77772                           VSL1                                           
049498,000239: 25,3755           14033                           STODL    MMATRIX    +6                         #  M1= AVECTR*SINF-DVECTR*COSF  B-1
049499,000240: 25,3756           00007                                    504F                                  
049500,000241: 25,3757           74356                           SIN      VXSC                                  #  PD 8D
049501,000242: 25,3760           71525                           PDDL     COS                                   #  PD 14D  8-13D=DVECTR*SINF B-2
049502,000243: 25,3761           00007                                    504F                                  
049503,000244: 25,3762           53361                           VXSC     VAD                                   #  PD 8D         AVECTR*COSF B-2
049504,000245: 25,3763           00025                                    AVECTR                                
049505,000246: 25,3764           57572                           VSL1     VCOMP                                 
049506,000247: 25,3765           34025                           STCALL   MMATRIX                               #  M0= -(AVECTR*COSF+DVECTR*SINF)  B-1
049507,000248: 25,3766           00051                                    EARTHMXX                              
049508,000249:                                                                                                  #  COMPUTE X=X0+(XDOT)(T+T0)
049509,000250:                                                                                                  #  8-9D= XO (REVS B-0),PUSHLOC SET AT 12D
049510,000251:                                                                                                  #  10-11D=XDOT (REVS/CSEC) SCALED B+23 FOR WEARTH,B+28 FOR NODDOT AND BDOT
049511,000252:                                                                                                  #                          AND B+27 FOR FDOT
049512,000253:                                                                                                  #   X1=DIFFERENCE IN 23 AND SCALING OF XDOT,=0 FOR WEARTH,5 FOR NODDOT AND
049513,000254:                                                                                                  #                                           BDOT AND 4 FOR FDOT
049514,000255:                                                                                                  #  6-7D=T (CSEC B-28), TIMSUBO= (CSEC B-42 TRIPLE PREC.)
049515,000256: 
049516,000257: 24,3743                                           BANK     24                                    
049517,000258: 24,2000                                           SETLOC   PLANTIN                               
049518,000259: 24,2000                                           BANK                                           
049519,000260: 
049520,000261: 24,3743           54345        NEWANGLE           DLOAD    SR                                    #  ENTER PD 12D
049521,000262: 24,3744           00007                                    6D                                    
049522,000263: 24,3745           20617                                    14D                                   
049523,000264: 24,3746           72371                           TAD      TLOAD                                 #  CHANGE MODE TO TP
049524,000265: 24,3747           01707                                    TIMSUBO                               
049525,000266: 24,3750           00155                                    MPAC                                  
049526,000267: 24,3751           14017                           STODL    TIMSUBM                               #  T+T0 CSEC B-42
049527,000268: 24,3752           00020                                    TIMSUBM    +1                         
049528,000269: 24,3753           77605                           DMP                                            #  PD 10D  MULT BY XDOT IN 10-11D
049529,000270: 24,3754           43257                           SL*      DAD                                   #  PD 8D   ADD XO IN 8-9D AFTER SHIFTING
049530,000271: 24,3755           20206                                    5,1                                   #          SUCH THAT SCALING IS B-0
049531,000272: 24,3756           67206                           PUSH     SLOAD                                 #  PD 10D SAVE PARTIAL (X0+XDOT*T) IN 8-9D
049532,000273: 24,3757           00017                                    TIMSUBM                               
049533,000274: 24,3760           41261                           SL       DMP                                   
049534,000275: 24,3761           20212                                    9D                                    
049535,000276: 24,3762           00013                                    10D                                   #  XDOT
049536,000277: 24,3763           43257                           SL*      DAD                                   #  PD 8D   SHIFT SUCH THAT THIS PART OF X
049537,000278: 24,3764           20213                                    10D,1                                 #          IS SCALED REVS/CSEC B-0
049538,000279: 24,3765           77600                           BOV                                            #  TURN OFF OVERFLOW IF SET BY SHIFT
049539,000280: 24,3766           51767                                    +1                                    #  INSTRUCTION BEFORE EXITING
049540,000281: 24,3767           77616                           RVQ                                            #  MPAC=X= X0+(XDOT)(T+T0)  REVS B0
049541,000282: 

Page 1137

049543,000284:                                                                                                  #  ..... EARTHMX SUBROUTINE .....
049544,000285:                                                                                                  #  SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE EARTH
049545,000286: 
049546,000287:                                                                                                  #  CALLING SEQUENCE
049547,000288:                                                                                                  #   L       CALL
049548,000289:                                                                                                  #   L+1            EARTHMX
049549,000290: 
049550,000291:                                                                                                  #  SUBROUTINES USED
049551,000292:                                                                                                  #   NEWANGLE
049552,000293: 
049553,000294:                                                                                                  #  INPUT
049554,000295:                                                                                                  #     INPUT AVAILABLE FROM LAUNCH DATA     AZO  REVS B-0
049555,000296:                                                                                                  #                                          TEPHEM  CSEC B-42
049556,000297:                                                                                                  #   6-7D= TIME CSEC B-28
049557,000298: 
049558,000299:                                                                                                  #  OUTPUT
049559,000300:                                                                                                  #   MMATRIX= 3X3 M MATRIX B-1   (STORED IN VAC AREA)
049560,000301: 
049561,000302: 26,3745                                           BANK     26                                    
049562,000303: 26,2000                                           SETLOC   PLANTIN1                              
049563,000304: 26,2000                                           BANK                                           
049564,000305: 26,3745                                           COUNT*   $$/LUROT                              
049565,000306: 
049566,000307: 26,3745           40220        EARTHMX            STQ      SETPD                                 #  SET   8-9D=AZO
049567,000308: 26,3746           00051                                    EARTHMXX                              
049568,000309: 26,3747           00011                                    8D                                    #  10-11D=WEARTH
049569,000310: 26,3750           77770                           AXT,1                                          #  FOR SL 5, AND SL 10  IN NEWANGLE
049570,000311: 26,3751           00000                                    0                                     
049571,000312: 26,3752           65345                           DLOAD    PDDL                                  #    LEAVING PD SET AT 12D FOR NEWANGLE
049572,000313: 26,3753           14023                                    AZO                                   
049573,000314: 26,3754           14021                                    WEARTH                                
049574,000315: 26,3755           45006                           PUSH     CALL                                  
049575,000316: 26,3756           51743                                    NEWANGLE                              
049576,000317: 26,3757           41401                           SETPD    PUSH                                  #  18-19D=504AZ
049577,000318: 26,3760           00023                                    18D                                   #                     COS(AZ) SIN(AZ) 0
049578,000319: 26,3761           65346                           COS      PDDL                                  #  20-37D=  MMATRIX= -SIN(AZ) COS(AZ) 0 B-1
049579,000320: 26,3762           00023                                    504AZ                                 #                      0       0      1
049580,000321: 26,3763           65356                           SIN      PDDL                                  
049581,000322: 26,3764           06520                                    HI6ZEROS                              
049582,000323: 26,3765           73525                           PDDL     SIN                                   
049583,000324: 26,3766           00023                                    504AZ                                 
049584,000325: 26,3767           65276                           DCOMP    PDDL                                  
049585,000326: 26,3770           00023                                    504AZ                                 
049586,000327: 26,3771           63346                           COS      PDVL                                  
049587,000328: 26,3772           06520                                    HI6ZEROS                              
049588,000329: 26,3773           41525                           PDDL     PUSH                                  
049589,000330: 26,3774           06516                                    HIDPHALF                              
049590,000331: 26,3775           77650                           GOTO                                           
049591,000332: 26,3776           00051                                    EARTHMXX                              
049592,000333: 

Page 1138

049594,000335:                                                                                                  #  ..... EARTHL SUBROUTINE .....
049595,000336:                                                                                                  #  SUBROUTINE TO COMPUTE L VECTOR FOR EARTH
049596,000337: 
049597,000338:                                                                                                  #  CALLING SEQUENCE
049598,000339:                                                                                                  #   L       CALL
049599,000340:                                                                                                  #   L+1            EARTHL
049600,000341: 
049601,000342:                                                                                                  #  INPUT
049602,000343:                                                                                                  #   AXO,AYO SET AT LAUNCH TIME WITH AYO IMMEDIATELY FOLLOWING AXO IN CORE
049603,000344: 
049604,000345:                                                                                                  #  OUTPUT
049605,000346:                                                                                                  #            -AX
049606,000347:                                                                                                  #    MPAC=   -AY    RADIANS B-0
049607,000348:                                                                                                  #              0
049608,000349: 
049609,000350: 06,3761                                           BANK     06                                    
049610,000351: 06,2000                                           SETLOC   EARTHLOC                              
049611,000352: 06,2000                                           BANK                                           
049612,000353: 06,3761                                           COUNT*   $$/LUROT                              
049613,000354: 
049614,000355: 06,3761           57545        EARTHL             DLOAD    DCOMP                                 
049615,000356: 06,3762           01714                                    AXO                                   
049616,000357: 06,3763           14017                           STODL    504LPL                                
049617,000358: 06,3764           01712                                    -AYO                                  
049618,000359: 06,3765           14021                           STODL    504LPL     +2                         
049619,000360: 06,3766           24007                                    LO6ZEROS                              
049620,000361: 06,3767           24023                           STOVL    504LPL     +4                         
049621,000362: 06,3770           00017                                    504LPL                                
049622,000363: 06,3771           77616                           RVQ                                            
049623,000364: 

Page 1139

049625,000366:                                                                                                  #  CONSTANTS AND ERASABLE ASSIGNMENTS
049626,000367: 06,3772  12,2004               1B1                =        DP1/2                                 #  1  SCALED B-1
049627,000368: 06,3772  0000050               RPREXIT            =        S1                                    #  R-TO-RP AND RP-TO-R SUBR EXIT
049628,000369: 06,3772  0000051               EARTHMXX           =        S2                                    #  EARTHMX,MOONMX SUBR. EXITS
049629,000370: 06,3772                        504RPR             =        0D                                    #  6 REGS  R OR RP VECTOR
049630,000371: 06,3772                        SINNODI            =        8D                                    #  2       SIN(NODI)
049631,000372: 06,3772                        DVECTR             =        8D                                    #  6       D VECTOR MOON
049632,000373: 06,3772                        CVECTR             =        8D                                    #  6       C VECTR MOON
049633,000374: 06,3772                        504AZ              =        18D                                   #  2      AZ
049634,000375: 06,3772                        TIMSUBM            =        14D                                   #  3       TIME SUB M (MOON) T+T0 IN GETAZ
049635,000376: 06,3772                        504LPL             =        14D                                   #  6       L OR LP VECTOR
049636,000377: 06,3772                        AVECTR             =        20D                                   #  6       A VECTOR (MOON)
049637,000378: 06,3772                        BVECTR             =        26D                                   #  6       B VECTOR (MOON)
049638,000379: 06,3772                        MMATRIX            =        20D                                   #  18      M MATRIX
049639,000380: 06,3772                        COB                =        32D                                   #  2       COS(B) B-1
049640,000381: 06,3772                        SOB                =        34D                                   #  2       SIN(B) B-1
049641,000382: 06,3772                        504F               =        6D                                    #  2       F(MOON)

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