diff --git a/Comanche055/P32-P33_P72-P73.agc b/Comanche055/P32-P33_P72-P73.agc index cd141b2..7312f94 100644 --- a/Comanche055/P32-P33_P72-P73.agc +++ b/Comanche055/P32-P33_P72-P73.agc @@ -37,156 +37,177 @@ # Page 649 # COELLIPTIC SEQUENCE INITIATION (CSI) PROGRAMS (P32 AND P72) -# -# MOD NO -1 LOG SECTION -- P32-P35, P72-P75 + +# MOD NO -1 LOG SECTION - P32-P35, P72-P75 # MOD BY WHITE.P DATE 1JUNE67 -# + # PURPOSE -# (1) TO CALCULATE PARAMETERS ASSOCIATED WITH THE FOLLOWING -# CONCENTRIC FLIGHT PLAN MANEUVERS -- THE CO-ELLIPTIC SEQUENCE -# INITIATION (CSI) MANEUVER AND THE CONSTANT DELTA ALTITUDE -# (CDH) MANEUVER. -# (2) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA -# APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT. -# (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES -# ASSOCIATED WITH THE CONCENTRIC FLIGHT PLAN MANEUVERS FOR -# APPROVAL BY THE ASTRONAUT/GROUND. -# (4) TO STORE THE CSI TARGET PARAMETERS FOR USE BY THE DESIRED -# THRUSTING PROGRAM. -# + +# (1) TO CALCULATE PARAMETERS ASSOCIATED WITH THE FOLLOWING +# CONCENTRIC FLIGHT PLAN MANEUVERS - THE CO-ELLIPTIC SEQUENCE +# INITIATION (CSI) MANEUVER AND THE CONSTANT DELTA ALTITUDE +# (CDH) MANEUVER. + +# (2) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA +# APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT. + +# (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES +# ASSOCIATED WITH THE CONCENTRIC FLIGHT PLAN MANEUVERS FOR +# APPROVAL BY THE ASTRONAUT/GROUND. + +# (4) TO STORE THE CSI TARGET PARAMETERS FOR USE BY THE DESIRED +# THRUSTING PROGRAM. + # ASSUMPTIONS -# (1) AT A SELECTED TPI TIME THE LINE OF SIGHT BETWEEN THE ACTIVE -# AND PASSIVE VEHICLES IS SELECTED TO BE A PRESCRIBED ANGLE (E) -# FROM THE HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE -# POSITION. -# (2) THE TIME BETWEEN CSI IGNITION AND CDH IGNITION MUST BE -# COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL -# COMPLETION OF THE PROGRAM. -# (3) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION MUST BE -# COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL -# COMPLETION OF THE PROGRAM. -# (4) CDH DELTA V IS SELECTED TO MINIMIZE THE VARIATION OF THE -# ALTITUDE DIFFERENCE BETWEEN THE ORBITS. -# (5) CSI BURN IS DEFINED SUCH THAT THE IMPULSIVE DELTA V IS IN THE -# HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION AT CSI -# IGNITION. -# (6) THE PERICENTER ALTITUDE OF THE ORBIT FOLLOWING CSI AND CDH -# MUST BE GREATER THAN 35,000 FT (LUNAR ORBIT) OR 85 NM (EARTH -# ORBIT) FOR SUCCESSFUL COMPLETION OF THIS PROGRAM. -# (7) THE CSI AND CDH MANEUVERS ARE ORIGINALLY ASSUMED TO BE -# PARALLEL TO THE PLANE OF THE CSM ORBIT. HOWEVER, CREW + +# (1) AT A SELECTED TPI TIME THE LINE OF SIGHT BETWEEN THE ACTIVE +# AND PASSIVE VEHICLES IS SELECTED TO BE A PRESCRIBED ANGLE (E) +# FROM THE HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE +# POSITION. + +# (2) THE TIME BETWEEN CSI IGNITION AND CDH IGNITION MUST BE +# COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL +# COMPLETION OF THE PROGRAM. + +# (3) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION MUST BE +# COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL +# COMPLETION OF THE PROGRAM. + +# (4) CDH DELTA V IS SELECTED TO MINIMIZE THE VARIATION OF THE +# ALTITUDE DIFFERENCE BETWEEN THE ORBITS. + +# (5) CSI BURN IS DEFINED SUCH THAT THE IMPULSIVE DELTA V IS IN THE +# HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION AT CSI +# IGNITION. + +# (6) THE PERICENTER ALTITUDE OF THE ORBIT FOLLOWING CSI AND CDH +# MUST BE GREATER THAN 35,000 FT (LUNAR ORBIT) OR 85 NM (EARTH +# ORBIT) FOR SUCCESSFUL COMPLETION OF THIS PROGRAM. + +# (7) THE CSI AND CDH MANEUVERS ARE ORIGINALLY ASSUMED TO BE +# PARALLEL TO THE PLANE OF THE CSM ORBIT. HOWEVER, CREW # Page 650 -# MODIFICATION OF DELTA V (LV) COMPONENTS MAY RESULT IN AN -# OUT-OF-PLANE CSI MANEUVER -# (8) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC -# STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 10). -# (9) COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY -# THE GROUND. THESE STORAGE CAPABILITIES ARE NORMALLY LIMITED -# ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME -# EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES. -# (10) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM -# OR CSM STATE VECTORS FOR THIS PROGRAM. IF RADAR USE IS -# DESIRED THE RADAR WAS TURNED ON AND LOCKED BY THE CSM BY -# PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS WILL BE MADE -# AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE -# TRACK AND UPDATE FLAGS (SEE P20). THE RENDEZVOUS TRACKING -# MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH -# THRUSTING MANEUVER. -# (11) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM. -# (12) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -- -# -# ACTIVE VEHICLE FLAG -- DESIGNATES THE VEHICLE WHICH IS -# DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH -# CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF -# EACH RENDEZVOUS PRE-THRUSTING PROGRAM. -# -# FINAL FLAG -- SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS -# COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY -# CYCLE. -# -# EXTERNAL DELTA V STEERING FLAG -- DESIGNATES THE TYPE OF -# STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE -# THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS -# PROGRAM. -# -# (13) IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO -# A THRUSTING MANEUVER. -# -# (14) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -# -# P32 IF THIS VEHICLE IS ACTIVE VEHICLE. -# -# P72 IF THIS VEHICLE IS THE PASSIVE VEHICLE. -# +# MODIFICATION OF DELTA V (LV) COMPONENTS MAY RESULT IN AN +# OUT-OF-PLANE CSI MANEUVER. + +# (8) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC +# STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 10). + +# (9) COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY +# THE GROUND. THESE STORAGE CAPABILITIES ARE NORMALLY LIMITED +# ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME +# EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES. + +# (10) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM +# OR CSM STATE VECTORS FOR THIS PROGRAM. IF RADAR USE IS +# DESIRED THE RADAR WAS TURNED ON AND LOCKED BY THE CSM BY +# PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS WILL BE MADE +# AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE +# TRACK AND UPDATE FLAGS (SEE P20). THE RENDEZVOUS TRACKING +# MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH +# THRUSTING MANEUVER. + +# (11) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM. + +# (12) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS - + +# ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS +# DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH +# CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF +# EACH RENDEZVOUS PRE-THRUSTING PROGRAM. + +# FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS +# COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY +# CYCLE. + +# EXTERNAL DELTA V STEERING FLAG - DESIGNATES THE TYPE OF +# STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE +# THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS +# PROGRAM. + +# (13) IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO +# A THRUSTING MANEUVER. + +# (14) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY - + +# P32 IF THIS VEHICLE IS ACTIVE VEHICLE. + +# P72 IF THIS VEHICLE IS PASSIVE VEHICLE. + # INPUT -# (1) TCSI TIME OF THE CSI MANEUVER + +# (1) TCSI TIME OF THE CSI MANEUVER # Page 651 -# (2) NN NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE -# VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH -# MANEUVER POINT. -# (3) ELEV DESIRED LOS ANGLE AT TPI -# (4) TTPI TIME OF THE TPI MANEUVER -# +# (2) NN NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE +# VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH +# MANEUVER POINT +# (3) ELEV DESIRED LOS ANGLE AT TPI +# (4) TTPI TIME OF THE TPI MANEUVER # OUTPUT -# (1) TRKMKCNT NUMBER OF MARKS -# (2) TTOGO TIME TO GO -# (3) +MGA MIDDLE GIMBAL ANGLE -# (4) DIFFALT DELTA ALTITUDE AT CDH -# (5) T1TOT2 DELTA TIME FROM CSI TO CDH -# (6) T2TOT3 DELTA TIME FROM CDH TO TPI -# (7) DELVLVC DELTA VELOCITY AT CSI -- LOCAL VERTICAL COORDINATES -# (8) DELVLVC DELTA VELOCITY AT CDH -- LOCAL VERTICAL COORDINATES -# + +# (1) TRKMKCNT NUMBER OF MARKS +# (2) TTOGO TIME TO GO +# (3) +MGA MIDDLE GIMBAL ANGLE +# (4) DIFFALT DELTA ALTITUDE AT CDH +# (5) T1TOT2 DELTA TIME FROM CSI TO CDH +# (6) T2TOT3 DELTA TIME FROM CDH TO TPI +# (7) DELVLVC DELTA VELOCITY AT CSI - LOCAL VERTICAL COORDINATES +# (8) DELVLVC DELTA VELOCITY AT CDH - LOCAL VERTICAL COORDINATES + # DOWNLINK -# (1) TCSI TIME OF THE CSI MANEUVER -# (2) TCDH TIME OF THE CDH MANEUVER -# (3) TTPI TIME OF THE TPI MANEUVER -# (4) TIG TIME OF THE CSI MANEUVER -# (5) DELVEET1 DELTA VELOCITY AT CSI -- REFERENCE COORDINATES -# (6) DELVEET2 DELTA VELOCITY AT CDH -- REFERENCE COORDINATES -# (7) DIFFALT DELTA ALTITUDE AT CDH -# (8) NN NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE -# VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH -# MANEUVER POINT -# (9) ELEV DESIRED LOS ANGLE AT TPI -# + +# (1) TCSI TIME OF THE CSI MANEUVER +# (2) TCDH TIME OF THE CDH MANEUVER +# (3) TTPI TIME OF THE TPI MANEUVER +# (4) TIG TIME OF THE CSI MANEUVER +# (5) DELVEET1 DELTA VELOCITY AT CSI - REFERENCE COORDINATES +# (6) DELVEET2 DELTA VELOCITY AT CDH - REFERENCE COORDINATES +# (7) DIFFALT DELTA ALTITUDE AT CDH +# (8) NN NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE +# VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH +# MANEUVER POINT +# (9) ELEV DESIRED LOS ANGLE AT TPI + # COMMUNICATION TO THRUSTING PROGRAMS -# (1) TIG TIME OF THE CSI MANEUVER -# (2) RTIG POSITION OF ACTIVE VEHICLE AT CSI -- BEFORE ROTATION -# INTO PLANE OF PASSIVE VEHICLE -# (3) VTIG VELOCITY OF ACTIVE VEHICLE AT CSE -- BEFORE ROTATION -# INTO PLANE OF PASSIVE VEHICLE -# (4) DELVSIN DELTA VELOCITY AT CSI -- REFERENCE COORDINATES -# (5) DELVSAB MAGNITUDE OF DELTA VELOCITY AT CSI -# (6) XDELVFLG SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION -# + +# (1) TIG TIME OF THE CSI MANEUVER +# (2) RTIG POSITION OF ACTIVE VEHICLE AT CSI - BEFORE ROTATION +# INTO PLANE OF PASSIVE VEHICLE +# (3) VTIG VELOCITY OF ACTIVE VEHICLE AT CSE - BEFORE ROTATION +# INTO PLANE OF PASSIVE VEHICLE +# (4) DELVSIN DELTA VELOCITY AT CSI - REFERENCE COORDINATES +# (5) DELVSAB MAGNITUDE OF DELTA VELOCITY AT CSI +# (6) XDELVFLG SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION + # SUBROUTINES USED -# AVFLAGA -# AVFLAGP -# P20FLGON -# VARALARM -# BANKCALL -# GOFLASH -# GOTOP00H + +# AVFLAGA +# AVFLAGP +# P20FLGON +# VARALARM +# BANKCALL +# GOFLASH +# GOTOP00H # Page 652 -# VNP00H -# GOFLASHR -# BLANKET -# ENDOFJOB -# SELECTMU -# ADVANCE -# INTINT -# PASSIVE -# CSI/A -# S32/33.1 -# DISDVLVC -# VN1645 +# VNP00H +# GOFLASHR +# BLANKET +# ENDOFJOB +# SELECTMU +# ADVANCE +# INTINT +# PASSIVE +# CSI/A +# S32/33.1 +# DISDVLVC +# VN1645 BANK 35 SETLOC CSI/CDH1 BANK EBANK= SUBEXIT COUNT 35/P3272 + P32 TC AVFLAGA TC P32STRT P72 TC AVFLAGP @@ -217,7 +238,7 @@ P32/P72A TC P20FLGON EXIT CAF V06N11 # TCSI TC VNP00H - CAF V06N55 + CAF V06N55 # NN. ELEV(RGL05) # Page 653 TC BANKCALL CADR GOFLASH @@ -292,162 +313,161 @@ P32/P72F STORE T2TOT3 VN1645 GOTO P32/P72B - # Page 655 # CONSTANT DELTA HEIGHT (CDH) PROGRAMS (P33 AND P73) -# MOD NO -1 LOC SECTION -- P32-P35, P72-P75 -# MOD BY WHITE, P. DATE: 1 JUNE 67 -# + +# MOD NO -1 LOC SECTION - P32-P35, P72-P75 +# MOD BY WHITE.P DATE 1JUNE67 # PURPOSE -# -# (1) TO CALCULATE PARAMETERS ASSOCIATED WITH THE CONSTANT DELTA -# ALTITUDE MANEUVER (CDH). -# -# (2) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA -# APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT. -# -# (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES -# ASSOCIATED WITH THE CDH MANEUVER FOR APPROVAL BY THE -# ASTRONAUT/GROUND. -# -# (4) TO STORE THE CDH TARGET PARAMETERS FOR USE BY THE DESIRED -# THRUSTING PROGRAM. -# + +# (1) TO CALCULATE PARAMETERS ASSOCIATED WITH THE CONSTANT DELTA +# ALTITUDE MANEUVER (CDH). + +# (2) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA +# APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT. + +# (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES +# ASSOCIATED WITH THE CDH MANEUVER FOR APPROVAL BY THE +# ASTRONAUT/GROUND. + +# (4) TO STORE THE CDH TARGET PARAMETERS FOR USE BY THE DESIRED +# THRUSTING PROGRAM. + # ASSUMPTIONS -# -# (1) THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF THE -# CO-ELLIPTIC SEQUENCE INITIATION (CSI) PROGRAM (P32/P72). -# THEREFORE -- -# -# (A) AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT -# BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE -# A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE -# HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION. -# -# (B) THE TIME BETWEEN CSI IGNITION AND CDH IGNITION WAS -# COMPUTED TO BE GREATER THAN 10 MINUTES. -# -# (C) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS -# COMPUTED TO BE GREATER THAN 10 MINUTES. -# -# (D) THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE -# ORBITS WAS MINIMIZED. -# -# (E) CSI BURN WAS DEFINED SUCH THAT THE IMPULSIVE DELTA V WAS -# IN THE HORIZONTAL PLANE DEFINED BY ACTIVE VEHICLE -# POSITION AT CSI IGNITION. -# -# (F) THE PERICENTER ALTITUDES OF THE ORBITS FOLLOWING CSI AND -# CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR -# ORBIT OR 85 NM FOR EARTH ORBIT. -# -# (G) THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO -# THE PLANE OF THE PASSIVE VEHICLE ORBIT. HOWEVER, CREW + +# (1) THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF THE +# CO-ELLIPTIC SEQUENCE INITIATION (CSI) PROGRAM (P32/P72). +# THERFORE - + +# (A) AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT +# BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE +# A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE +# HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION. + +# (B) THE TIME BETWEEN CSI IGNITION AND CDH IGNITION WAS +# COMPUTED TO BE GREATER THAN 10 MINUTES. + +# (C) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS +# COMPUTED TO BE GREATER THAN 10 MINUTES. + +# (D) THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE +# ORBITS WAS MINIMIZED. + +# (E) CSI BURN WAS DEFINED SUCH THAT THE IMPULSIVE DELTA V WAS +# IN THE HORIZONTAL PLANE DEFINED BY ACTIVE VEHICLE + +# POSITION AT CSI IGNITION. + +# (F) THE PERICENTER ALTITUDES OF THE ORBITS FOLLOWING CSI AND +# CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR +# ORBIT OR 85 NM FOR EARTH ORBIT. + +# (G) THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO +# THE PLANE OF THE PASSIVE VEHICLE ORBIT. HOWEVER, CREW # Page 656 -# MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED -# IN AN OUT-OF-PLANE MANEUVER. -# -# (2) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC -# STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 4). -# -# (3) COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY -# THE GROUND. THESE STORAGE CAPABILITIES ARE NORMALLY LIMITED -# ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME -# EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES. -# -# (4) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM. -# OR CSM STATE VECTORS FOR THIS PROGRAM. IF RADAR USE IS -# DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY -# PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS WILL BE MADE -# AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE -# TRACK AND UPDATE FLAGS (SEE P20). THE RENDEZVOUS TRACKING -# MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH -# THRUSTING MANEUVER. -# -# (5) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM. -# -# (6) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -- -# -# ACTIVE VEHICLE FLAG -- DESIGNATES THE VEHICLE WHICH IS -# DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH -# CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF -# EACH RENDEZVOUS PRE-THRUSTING PROGRAM. -# -# FINAL FLAG -- SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS -# COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY -# CYCLE. -# -# EXTERNAL DELTA V STEERING FLAG -- DESIGNATES THE TYPE OF -# STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE -# THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS -# PROGRAM. -# -# (7) IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO -# A THRUSTING MANEUVER. -# -# (8) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY. -# -# P33 IF THIS VEHICLE IS ACTIVE VEHICLE. -# -# P73 IF THIS VEHICLE IS PASSIVE VEHICLE. -# +# MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED +# IN AN OUT-OF-PLANE MANEUVER. + +# (2) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC +# STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 4). + +# (3) COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY +# THE GROUND. THESE STORAGE CAPABILITIES ARE NORMALLY LIMITED +# ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME +# EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES. + +# (4) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM +# OR CSM STATE VECTORS FOR THIS PROGRAM. IF RADAR USE IS +# DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY +# PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS WILL BE MADE +# AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE +# TRACK AND UPDATE FLAGS (SEE P20). THE RENDEZVOUS TRACKING +# MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH +# THRUSTING MANEUVER. + +# (5) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM. + +# (6) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS - + +# ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS +# DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH +# CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF +# EACH RENDEZVOUS PRE-THRUSTING PROGRAM. + +# FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS +# COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY +# CYCLE. + +# EXTERNAL DELTA V STEERING FLAG - DESIGNATES THE TYPE OF +# STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE +# THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS +# PROGRAM. + +# (7) IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO +# A THRUSTING MANEUVER. + +# (8) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY - + +# P33 IF THIS VEHICLE IS ACTIVE VEHICLE. + +# P73 IF THIS VEHICLE IS PASSIVE VEHICLE. + # INPUT -# -# (1) TTPIO TIME OF THE TPI MANEUVER -- SAVED FROM P32/P72 + +# (1) TTPIO TIME OF THE TPI MANEUVER - SAVED FROM P32/P72 # Page 657 -# (2) ELEV DESIRED LOS ANGLE AT TPI -- SAVED FROM P32/P72 -# (3) TCDH TIME OF THE CDH MANEUVER -# +# (2) ELEV DESIRED LOS ANGLE AT TPI - SAVED FROM P32/P72 +# (3) TCDH TIME OF THE CDH MANEUVER + # OUTPUT -# -# (1) TRKMKCNT NUMBER OF MARKS -# (2) TTOGO TIME TO GO -# (3) +MGA MIDDLE GIMBAL ANGLE -# (4) DIFFALT DELTA ALTITUDE AT CDH -# (5) T2TOT3 DELTA TIME FROM CDH TO COMPUTED TPI -# (6) NOMTPI DELTA TIME FROM NOMINAL TPI TO COMPUTED TPI -# (7) DELVLVC DELTA VELOCITY AT CDH -- LOCAL VERTICAL COORDINATES -# + +# (1) TRKMKCNT NUMBER OF MARKS +# (2) TTOGO TIME TO GO +# (3) +MGA MIDDLE GIMBAL ANGLE +# (4) DIFFALT DELTA ALTITUDE AT CDH +# (5) T2TOT3 DELTA TIME FROM CDH TO COMPUTED TPI +# (6) NOMTPI DELTA TIME FROM NOMINAL TPI TO COMPUTED TPI +# (7) DELVLVC DELTA VELOCITY AT CDH - LOCAL VERTICAL COORDINATES + # DOWNLINK -# -# (1) TCDH TIME OF THE CDH MANEUVER -# (2) TTPI TIME OF THE TPI MANEUVER -# (3) TIG TIME OF THE CDH MANEUVER -# (4) DELLVEET2 DELTA VELOCITY AT CDH -- REFERENCE COORDINATES -# (5) DIFFALT DELTA ALTITUDE AT CDH -# (6) ELEV DESIRED LOS ANGLE AT TPI -# + +# (1) TCDH TIME OF THE CDH MANEUVER +# (2) TTPI TIME OF THE TPI MANEUVER +# (3) TIG TIME OF THE CDH MANEUVER +# (4) DELLVEET2 DELTA VELOCITY AT CDH - REFERENCE COORDINATES +# (5) DIFFALT DELTA ALTITUDE AT CDH +# (6) ELEV DESIRED LOS ANGLE AT TPI # COMMUNICATION TO THRUSTING PROGRAMS -# -# (1) TIG TIME OF THE CDH MANEUVER -# (2) RTIG POSITION OF ACTIVE VEHICLE AT CDH -- BEFORE ROTATION -# INTO PLANE OF PASSIVE VEHICLE. -# (3) VTIG VELOCITY OF ACTIVE VEHICLE AT CDH -- BEFORE ROTATION -# INTO PLANE OF PASSIVE VEHICLE. -# (4) DELVSIN DELTA VELOCITY AT CDH -- REFERENCE COORDINATES. -# (5) DELVSAB MAGNITUDE OF DELTA VELOCITY AT CDH. -# (6) XDELVFLG SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION. -# + +# (1) TIG TIME OF THE CDH MANEUVER +# (2) RTIG POSITION OF ACTIVE VEHICLE AT CDH - BEFORE ROTATION +# INTO PLANE OF PASSIVE VEHICLE +# (3) VTIG VELOCITY OF ACTIVE VEHICLE AT CDH - BEFORE ROTATION +# INTO PLANE OF PASSIVE VEHICLE +# (4) DELVSIN DELTA VELOCITY AT CDH - REFERENCE COORDINATES +# (5) DELVSAB MAGNITUDE OF DELTA VELOCITY AT CDH +# (6) XDELVFLG SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION + # SUBROUTINES USED -# -# AVFLAGA -# AVFLAGP -# P20FLGON -# VNP00H -# SELECTMU -# ADVANCE -# CDHMVR -# INTINT3P -# ACTIVE -# PASSIVE -# S33/S34.1 -# ALARM -# BANKCALL -# GOFLASH -# GOTOP00H -# S32/33.1 + +# AVFLAGA +# AVFLAGP +# P20FLGON +# VNP00H +# SELECTMU +# ADVANCE +# CDHMVR +# INTINT3P +# ACTIVE +# PASSIVE +# S33/S34.1 +# ALARM +# BANKCALL +# GOFLASH +# GOTOP00H +# S32/33.1 # Page 658 -# VN1645 +# VN1645 COUNT 35/P3373 @@ -550,17 +570,15 @@ P33/P73F ABS DSU GOTO # Page 660 P33/P73B - # Page 661 -# ***** AVFLAGA/P ***** - +# ..... AVFLAGA/P ..... # Page 662 -# ***** DISDVLVC ***** -# +# ..... DISDVLVC ..... + # SUBROUTINES USED -# -# S32/33.X -# VNP00H + +# S32/33.X +# VNP00H SETLOC CDHTAG3 BANK @@ -589,22 +607,20 @@ V06N13 VN 0613 V06N75 VN 0675 V06N50 VN 0650 - # Page 663 +# ..... CSI/A ..... -# ***** CSI/A ***** -# # SUBROUTINES USED -# -# VECSHIFT -# TIMETHET -# PERIAPO -# SHIFTR1 -# INTINT2C -# CDHMVR -# PERIAPO1 -# INTINT -# ACTIVE + +# VECSHIFT +# TIMETHET +# PERIAPO +# SHIFTR1 +# INTINT2C +# CDHMVR +# PERIAPO1 +# INTINT +# ACTIVE BANK 34 SETLOC CSIPROG @@ -627,41 +643,38 @@ INITST 2DEC .03048 B-7 # INITIAL DELDV = 10 FPS DVMAX1 2DEC 3.0480 B-7 # MAXIMUM DV1 = 1000 FPS -DVMAX2 2DEC 3.014472 B-7 # 989 FPS +DVMAX2 2DEC 3.014472 B-7 # 989 FPS -1DPB2 2DEC 1.0 B-2 +1DPB2 2DEC 1.08-2 1DPB28 2DEC 1 EPSILN1 2DEC .0003048 B-7 # .1 FPS - -FIFPSDP 2DEC -.152400 B-7 # 5 FPS +FIFPSDP 2DEC -.152400 B-7 # 50 FPS DELMAX1 2DEC .6096000 B-7 # 200 FPS SETLOC CSI/CDH BANK -PMINE 2DEC 157420 B-29 # 84 NM -- MUST BE 8 WORDS BEFORE PMINM - +PMINE 2DEC 157420 B-29 # 84 NM. - MUST BE 8 WORDS BEFORE PMINM # Page 664 - NICKELDP 2DEC .021336 B-7 # 7 FPS INITST1 2DEC .03048 B-7 # INITIAL DELDV = 10 FPS ONETHTH 2DEC .0001 B-3 -PMINM 2DEC 10668 B-29 # 35000 FT -- MUST BE 8 WORDS AFTER PMINE +PMINM 2DEC 10668 B-29 # 35000 FT - MUST BE 8 WORDS AFTER PMINE. SETLOC CSIPROG BANK CSI/A CLEAR SET # INITIALIZE INDICATORS S32.1F1 # DVT1 HAS EXCEEDED MAX INDICATOR - S32.1F2 # FIRST PASS FOR NEWTON ITERATION INDICATOR + S32.1F2 # FIRST PASS FOR NEWTON ITERATION INDICATR CLEAR SET - S32.1F3A # 00=1ST 2 PASSES 2ND CYCLE, 01=FIRST CYCLE + S32.1F3A # 00=1ST 2 PASSES 2ND CYCLE 01=FIRST CYCLE S32.1F3B # 10=2ND CYCLE, 11=50 FPS STAGE 2ND CYCLE DLOAD ZEROVEC @@ -670,32 +683,32 @@ CSI/A CLEAR SET # INITIALIZE INDICATORS CSI/B SETPD VLOAD 0D RACT1 - ABVAL PUSH # RA1 B29 PL02D + ABVAL PUSH # RA1 B29 PL02D NORM SR1 - X2 # B29-N2+ B1 PL04D + X2 # B29-N2+ B1 PL04D PDVL ABVAL RPASS3 - NORM BDDV # RA1/RP3 B1 PL02D + NORM BDDV # RA1/RP3 B1 PL02D X1 - XSU,2 SR* # B2 + XSU,2 SR* # B2 X1 1,2 - DAD DMP # (1+(RA1/RP3))RA1 B29+B2=B31 PL00D + DAD DMP # (1+(RA1/RP3))RA1 B29+B2=B31 PL00D 1DPB2 - NORM PDDL # PL02D + NORM PDDL # PL02D X1 RTMU - SR1 DDV # B38-B31= B7 PL00D - SL* SQRT # B7 + SR1 DDV # B38-B31= B7 PL00D + SL* SQRT # B7 0 -7,1 - PDVL UNIT # PL02D + PDVL UNIT # PL02D RACT1 PDVL VXV UP1 UNIT # UNIT(URP1 X UVP1 X URA1) = UH1 - DOT SL1 # VA1 . UH1 B7 + DOT SL1 # VA1 . UH1 B7 VACT1 - BDSU STADR # PL00D + BDSU STADR # PL00D # Page 665 STODL DELVCSI INITST # 10 FPS @@ -745,7 +758,7 @@ CSI/B23 VLOAD PUSH RACT1 UNIT PDVL UP1 - VXV UNIT # UNIT (URP1 X UVP1 X URA1) = UH1 + VXV UNIT # UNIT(URP1 X UVP1 X URA1) = UH1 VXSC VSL1 # Page 666 DELVCSI @@ -784,7 +797,7 @@ CSI/B23D STCALL VACT4 SETPD NORM 2D X1 - PDVL DOT # PL04D + PDVL DOT # PL04D RACT1 VACT4 ABS DDV @@ -800,14 +813,14 @@ CSI/B23D STCALL VACT4 STODL 14D # Page 667 RTSR1/MU - SR1 DDV # (1/ROOTMU)/R1 B-16-B29 = B-45 PL02D + SR1 DDV # (1/ROOTMU)/R1 B-16-B29 = B-45 PL02D PDDL DMP P R1 CALL SHIFTR1 SL4 SL1 - SQRT DMP # ((P/MU)**.5)/R1 B14+B-14 = B-31 BL02D + SQRT DMP # ((P/MU)**.5)/R1 B14+B-45 = B-31 PL02D BOFF SL3 CMOONFLG CSI/B3 @@ -816,7 +829,7 @@ CSI/B3 PDVL DOT VACT4 STORE RDOTV ABS - NORM DMP # ((P/MU)**.5)RDOTV/R1 PL02D + NORM DMP # ((P/MU)**.5)RDOTV/R1 PL02D X2 XSU,1 SL* # B-31+B36-B3 = B2 X2 @@ -927,36 +940,36 @@ CSINEXT1 CALL PDVL UNIT RACT3 STORE 00D # URA3 AT 00D - PDVL VXV # PL14D, PL08D + PDVL VXV # PL14D,PL08D UP1 UNIT - PDDL COSINE # UNIT(URA3 X UVA3 X URA3) = UH3 B1 PL14D + PDDL COSINE # UNIT(URA3XUVA3XURA3) = UH3 B1 PL14D ELEV - VXSC STADR # (COSLOS)(UH3) B2 PL08D + VXSC STADR # (COSLOS)(UH3) B2 PL08D STCALL 18D # PLUS CSINEXT2 SETLOC CSIPROG6 BANK -CSINEXT2 DLOAD VXSC # (SINLOS)(URA3) = U B2 PL00D +CSINEXT2 DLOAD VXSC # (SINLOS)(URA3) = U B2 PL00D VAD VSL1 - 18D # B1 - PUSH DOT # PL06D - RACT3 # (U . RA3) = TEMP1 B1 + B29 = B30 - SL1 PUSH # B29 PL08D - DSQ TLOAD # TEMP1**2 B58 + 18D # B1 + PUSH DOT # PL06D + RACT3 # (U . RA3) = TEMP1 B1 +B29=B30 + SL1 PUSH # B29 PL08D + DSQ TLOAD # TEMP1**2 B58 MPAC - PDVL DOT # PL11D + PDVL DOT # PL11D RACT3 RACT3 - TLOAD DCOMP # RA3 . RA3 + TLOAD DCOMP # RA3.RA3 # Page 670 MPAC - PDVL DOT # RP3 . RP3 B58 PL14D + PDVL DOT # RP3.RP3 B58 PL14D RPASS3 - RPASS3 # PL11D - TAD TAD # TEMP1**2 + RA3.RA3 + RP3.RP3 = TEMP2 PL08D + RPASS3 # PL11D + TAD TAD # TEMP1**2+RA3.RA3+RP3.RP3=TEMP2 PL08D BPL DLOAD K10RK2 LOOPCT @@ -972,12 +985,12 @@ CSINEXT2 DLOAD VXSC # (SINLOS)(URA3) = U B2 PL00D DVPREV STCALL DELVCSI CSI/B1 -K10RK2 SQRT PUSH # TEMP3 = TEMP2**.5 B29 PL10D +K10RK2 SQRT PUSH # TEMP3 = TEMP2**.5 B29 PL10D DCOMP DSU - 06D # -TEMP1-TEMP3 = K2 AT 10D - STODL 10D # PL08D - DSU STADR # PL06D - STORE 12D # -TEMP1+TEMP3 = K1 AT 12D + 06D # -TEMP1-TEMP3 =K2 AT 10D + STODL 10D # PL08D + DSU STADR # PL06D + STORE 12D # -TEMP1+TEMP3 =K1 AT 12D ABS STODL 14D 10D @@ -995,35 +1008,35 @@ K10RK2 SQRT PUSH # TEMP3 = TEMP2**.5 B29 PL10D K2. DLOAD 10D VXSC VSL1 - VAD UNIT # V = RA3 + KU UNIT B1 + VAD UNIT # V=RA3+KU UNIT B1 RACT3 - PDVL UNIT - RPASS3 # PL06D - PDVL UNIT - VPASS3 # PL12D - VXV PDVL # UVP3 X URP3 PL18D + PDVL UNIT # PL06D + RPASS3 + PDVL UNIT # PL12D + VPASS3 + VXV PDVL # UVP3 X URP3 PL18D # Page 671 06D 06D VXV DOT 00D - STADR # PL12D - STOVL 12D # (URP3 X V).(UVP3 X URP3)=TEMP PL06D - DOT SL1 # PL00D + STADR # PL12D + STOVL 12D # (URP3XV).(UVP3XURP3)=TEMP PL06D + DOT SL1 # PL00D ARCCOS SIGN - 12D # B0 - SR1 PUSH # GAMMA = SIGN(TEMP)ARCOS(UNITV.URP3) PL02D + 12D # B0 + SR1 PUSH # GAMMA=SIGN(TEMP)ARCOS(UNITV.URP3) PL02D BON DLOAD S32.1F2 FRSTPAS 00D # NOT THE FIRST PASS OF A CYCLE - DSU PDDL # GAMMA-GAMPREV B1 PL04D + DSU PDDL # GAMMA-GAMPREV B1 PL04D GAMPREV DELVCSI - DSU NORM # B7 + DSU NORM # B7 DVPREV X1 - BDDV PDDL # (GAM-GAMPREV)/(DV-DVPREV) B-6+N1 PL06D + BDDV PDDL # (GAM-GAMPREV)/(DV-DVPREV) B-6+N1 PL06D 02D # = SLOPE DELVCSI STORE DVPREV @@ -1054,7 +1067,6 @@ FRSTPAS DLOAD SETLOC CSIPROG8 BANK # Page 672 - CSINEXT3 DSU CLEAR DELDV S32.1F2 @@ -1093,7 +1105,7 @@ NEWTN DLOAD NORM STORE GAMPREV DLOAD ABS DELDV - PUSH DSU # PL08D + PUSH DSU # PL08D EPSILN1 BMN DLOAD CSI/SOL @@ -1163,13 +1175,13 @@ SCNDSOL BON BOFF S32.1F3B STCALL LOOPCT CSI/B - # Page 675 -# ***** ADVANCE ***** -# +# ..... ADVANCE ..... + # SUBROUTINES USED -# PRECSET -# ROTATE + +# PRECSET +# ROTATE SETLOC CDHTAG3 BANK @@ -1202,9 +1214,8 @@ ADVANCE STQ DLOAD STORE VACT2 STCALL VACT1 SUBEXIT - # Page 676 -# ***** ROTATE ***** +# ..... ROTATE ..... SETLOC CDHTAG BANK @@ -1217,9 +1228,8 @@ ROTATE PUSH PUSH UNIT PDVL ABVAL VXSC VSL1 RVQ - # Page 677 -# ***** INTINTNA ***** +# ..... INTINTNA ..... SETLOC CDHTAG2 BANK @@ -1238,12 +1248,11 @@ INTINT3P PDDL PDDL ZEROVECS GOTO INTINT - # Page 678 -# ***** S32/33.1 ***** -# +# ..... S32/33.1 ..... + # SUBROUTINES USED -# S32/33.X +# S32/33.X SETLOC CSI/CDH BANK @@ -1264,9 +1273,8 @@ S32/33.1 STQ AXT,1 STOVL DELVSAB GOTO SUBEXIT - # Page 679 -# ***** S32/33.X ***** +# ..... S32/33.X ..... SETLOC CDHTAGS BANK @@ -1282,14 +1290,14 @@ S32/33.X SETPD VLOAD VSL1 STORE 0D RVQ - # Page 680 -# ***** CDHMVR ***** -# +# ..... CDHMVR ..... + # SUBROUTINES USED -# VECSHIFT -# TIMETHET -# SHIFTR1 + +# VECSHIFT +# TIMETHET +# SHIFTR1 SETLOC CDHTAG BANK @@ -1388,15 +1396,15 @@ CDHMVR STQ VLOAD STORE VACT3 VSU VACT2 - STCALL DELVEET2 # DELTA VCDH -- REFERENCE COORDINATES + STCALL DELVEET2 # DELTA VCDH - REFERENCE COORDINATES SUBEXIT - # Page 683 -# ***** COMPTGO ***** -# +# ..... COMPTGO ..... + # SUBROUTINES USED -# CLOKTASK -# 2PHSCHNG + +# CLOKTASK +# 2PHSCHNG BANK 35 SETLOC CSI/CDH @@ -1405,4 +1413,3 @@ CDHMVR STQ VLOAD EBANK= RTRN COUNT* $$/P3575 -