Page 293 # SUBROUTINE NAME: EARTH ROTATOR (EARROT1 OR EARROT2) DATE: 15 FEB 67 MOD NO: N +1 LOG SECTION: POWERED FLIGHT SUBROS BY: ENTRY GROUP (BAIRNSFATHER) FUNCTIONAL DESCRIPTION: THIS ROUTINE PROJECTS THE INITIAL EARTH TARGET VECTOR RTINIT AHEAD THROUGH # THE ESTIMATED TIME OF FLIGHT. CALL RESOLVES INTO EASTERLY # AND NORMAL COMPONENTS RTEAST AND RTNORM . SUBSEQUENT CALLS ROTATE THIS # ABOUT (FULL) UNIT POLAR AXIS UNITW ANGLE WIE DTEAROT TO OBTAIN ROTATED # TARGET RT ALL VECTORS EXCEPT ARE HALF UNIT. EQUATIONS # - - # RT = + (COS(WT) 1) SIN(WT) # WHERE WT # RTINIT # RTEAST UNITW*RTINIT # RTNORM RTEAST*UNITW # FOR CONTINUOUS UPDATING ONLY ONE EARROT1 IS REQUIRED WITH ENTRIES AT EARROT2. CALLING SEQUENCE: FIRST CALL SUBSEQUENT # STCALL DTEAROT STCALL DTEAROT # EARROT1 EARROT2 # C(MPAC) UNSPECIFIED C(MPAC) # PUSHLOC PDL+0 ARBITRARY. 6 LOCATIONS USED. SUBROUTINES USED: NONE EXIT MODES: RVQ ALARMS: OUTPUT: (-1) .5 EAST COMPNT RTINIT LEFT BY FIRST # NORML RT VECTOR ROTATED LEFT (-28) CS MAY BE CHANGED EARROT2 IF OVER 1 DAY ERASABLE INITIALIZATION REQUIRED: (0) UNIT VECTOR PAD LOADED VECTOR LEFT CS TIME FLIGHT LEFT CALLER DEBRIS: QPRET PDL+0 ... PDL+5 294 EBANK= RTINIT EARROT1 VLOAD VXV UNITW # FULL RTINIT # .5 STORE RTEAST # VXV STODL RTNORM # DTEAROT # CS EARROT2 BOVB DDV TCDANZIG # RESET OVFIND ON 1/WIE BOV PUSH OVERADAY COS DSU HIDPHALF VXSC PDDL # XCH W PUSH LIST RTNORM # SIN VXSC RTEAST # VAD VSL1 VAD UNIT # INSURE THAT 'UNIT'. STORE RT # RVQ OVERADAY DLOAD SIGN DTEAROT BDSU STORE DTEAROT GOTO EARROT2 #WIE 2DEC .1901487997 1/WIE 2DEC 8616410 NB2NB1 2DEC +.8431756920 B-1 2DEC 0 2DEC -.5376381241 295 ZERINFLT 2DEC 0 HALFNFLT 2DEC .5 2DEC +.5376381241 2DEC +.8431756920 NB1NB2 2DEC +.8431756920 2DEC .5 296 10DEGS- DEC 3600 270DEG OCT 60000 # SHAFT 270 DEGREES 2S COMP. OCT 00000 20DEGS- DEC -07199 DEC -00000