kjodle/Apollo-11
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Proof P32-P33_P72-P73 (#530)

Browse Source 
Closes #233 

* WIP

* more changes to comment formatting

* more minor alignment fixes
This commit is contained in:
Samuel Burkhardt 2020-02-20 00:45:36 +01:00 committed by GitHub
parent 614ddd76f9
commit 4bdf1ffbbf
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 395 additions and 388 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

277
Comanche055/P32-P33_P72-P73.agc
View File

@ -37,53 +37,67 @@
# Page 649 # Page 649
# COELLIPTIC SEQUENCE INITIATION (CSI) PROGRAMS (P32 AND P72) # 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 # MOD BY WHITE.P DATE 1JUNE67
#
# PURPOSE # PURPOSE
# (1) TO CALCULATE PARAMETERS ASSOCIATED WITH THE FOLLOWING # (1) TO CALCULATE PARAMETERS ASSOCIATED WITH THE FOLLOWING
# CONCENTRIC FLIGHT PLAN MANEUVERS -- THE CO-ELLIPTIC SEQUENCE # CONCENTRIC FLIGHT PLAN MANEUVERS - THE CO-ELLIPTIC SEQUENCE
# INITIATION (CSI) MANEUVER AND THE CONSTANT DELTA ALTITUDE # INITIATION (CSI) MANEUVER AND THE CONSTANT DELTA ALTITUDE
# (CDH) MANEUVER. # (CDH) MANEUVER.
# (2) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA # (2) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
# APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT. # APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
# (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES # (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
# ASSOCIATED WITH THE CONCENTRIC FLIGHT PLAN MANEUVERS FOR # ASSOCIATED WITH THE CONCENTRIC FLIGHT PLAN MANEUVERS FOR
# APPROVAL BY THE ASTRONAUT/GROUND. # APPROVAL BY THE ASTRONAUT/GROUND.
# (4) TO STORE THE CSI TARGET PARAMETERS FOR USE BY THE DESIRED # (4) TO STORE THE CSI TARGET PARAMETERS FOR USE BY THE DESIRED
# THRUSTING PROGRAM. # THRUSTING PROGRAM.
#
# ASSUMPTIONS # ASSUMPTIONS
# (1) AT A SELECTED TPI TIME THE LINE OF SIGHT BETWEEN THE ACTIVE # (1) AT A SELECTED TPI TIME THE LINE OF SIGHT BETWEEN THE ACTIVE
# AND PASSIVE VEHICLES IS SELECTED TO BE A PRESCRIBED ANGLE (E) # AND PASSIVE VEHICLES IS SELECTED TO BE A PRESCRIBED ANGLE (E)
# FROM THE HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE # FROM THE HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE
# POSITION. # POSITION.
# (2) THE TIME BETWEEN CSI IGNITION AND CDH IGNITION MUST BE # (2) THE TIME BETWEEN CSI IGNITION AND CDH IGNITION MUST BE
# COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL # COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL
# COMPLETION OF THE PROGRAM. # COMPLETION OF THE PROGRAM.
# (3) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION MUST BE # (3) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION MUST BE
# COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL # COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL
# COMPLETION OF THE PROGRAM. # COMPLETION OF THE PROGRAM.
# (4) CDH DELTA V IS SELECTED TO MINIMIZE THE VARIATION OF THE # (4) CDH DELTA V IS SELECTED TO MINIMIZE THE VARIATION OF THE
# ALTITUDE DIFFERENCE BETWEEN THE ORBITS. # ALTITUDE DIFFERENCE BETWEEN THE ORBITS.
# (5) CSI BURN IS DEFINED SUCH THAT THE IMPULSIVE DELTA V IS IN THE # (5) CSI BURN IS DEFINED SUCH THAT THE IMPULSIVE DELTA V IS IN THE
# HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION AT CSI # HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION AT CSI
# IGNITION. # IGNITION.
# (6) THE PERICENTER ALTITUDE OF THE ORBIT FOLLOWING CSI AND CDH # (6) THE PERICENTER ALTITUDE OF THE ORBIT FOLLOWING CSI AND CDH
# MUST BE GREATER THAN 35,000 FT (LUNAR ORBIT) OR 85 NM (EARTH # MUST BE GREATER THAN 35,000 FT (LUNAR ORBIT) OR 85 NM (EARTH
# ORBIT) FOR SUCCESSFUL COMPLETION OF THIS PROGRAM. # ORBIT) FOR SUCCESSFUL COMPLETION OF THIS PROGRAM.
# (7) THE CSI AND CDH MANEUVERS ARE ORIGINALLY ASSUMED TO BE # (7) THE CSI AND CDH MANEUVERS ARE ORIGINALLY ASSUMED TO BE
# PARALLEL TO THE PLANE OF THE CSM ORBIT. HOWEVER, CREW # PARALLEL TO THE PLANE OF THE CSM ORBIT. HOWEVER, CREW
# Page 650 # Page 650
# MODIFICATION OF DELTA V (LV) COMPONENTS MAY RESULT IN AN # MODIFICATION OF DELTA V (LV) COMPONENTS MAY RESULT IN AN
# OUT-OF-PLANE CSI MANEUVER # OUT-OF-PLANE CSI MANEUVER.
# (8) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC # (8) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
# STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 10). # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 10).
# (9) COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY # (9) COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
# THE GROUND. THESE STORAGE CAPABILITIES ARE NORMALLY LIMITED # THE GROUND. THESE STORAGE CAPABILITIES ARE NORMALLY LIMITED
# ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME # ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
# EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES. # EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
# (10) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM # (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 # OR CSM STATE VECTORS FOR THIS PROGRAM. IF RADAR USE IS
# DESIRED THE RADAR WAS TURNED ON AND LOCKED BY THE CSM BY # DESIRED THE RADAR WAS TURNED ON AND LOCKED BY THE CSM BY
@ -92,75 +106,81 @@
# TRACK AND UPDATE FLAGS (SEE P20). THE RENDEZVOUS TRACKING # TRACK AND UPDATE FLAGS (SEE P20). THE RENDEZVOUS TRACKING
# MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH # MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
# THRUSTING MANEUVER. # THRUSTING MANEUVER.
# (11) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM. # (11) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
# (12) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS --
# # (12) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
# ACTIVE VEHICLE FLAG -- DESIGNATES THE VEHICLE WHICH IS
# ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
# DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
# CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF
# EACH RENDEZVOUS PRE-THRUSTING PROGRAM. # EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
#
# FINAL FLAG -- SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS # FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
# COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY # COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
# CYCLE. # CYCLE.
#
# EXTERNAL DELTA V STEERING FLAG -- DESIGNATES THE TYPE OF # EXTERNAL DELTA V STEERING FLAG - DESIGNATES THE TYPE OF
# STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE # STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
# THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS # THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
# PROGRAM. # PROGRAM.
#
# (13) IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO # (13) IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
# A THRUSTING MANEUVER. # A THRUSTING MANEUVER.
#
# (14) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY # (14) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
#
# P32 IF THIS VEHICLE IS ACTIVE VEHICLE. # P32 IF THIS VEHICLE IS ACTIVE VEHICLE.
#
# P72 IF THIS VEHICLE IS THE PASSIVE VEHICLE. # P72 IF THIS VEHICLE IS PASSIVE VEHICLE.
#
# INPUT # INPUT
# (1) TCSI TIME OF THE CSI MANEUVER # (1) TCSI TIME OF THE CSI MANEUVER
# Page 651 # Page 651
# (2) NN NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE # (2) NN NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE
# VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH # VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH
# MANEUVER POINT. # MANEUVER POINT
# (3) ELEV DESIRED LOS ANGLE AT TPI # (3) ELEV DESIRED LOS ANGLE AT TPI
# (4) TTPI TIME OF THE TPI MANEUVER # (4) TTPI TIME OF THE TPI MANEUVER
#
# OUTPUT # OUTPUT
# (1) TRKMKCNT NUMBER OF MARKS # (1) TRKMKCNT NUMBER OF MARKS
# (2) TTOGO TIME TO GO # (2) TTOGO TIME TO GO
# (3) +MGA MIDDLE GIMBAL ANGLE # (3) +MGA MIDDLE GIMBAL ANGLE
# (4) DIFFALT DELTA ALTITUDE AT CDH # (4) DIFFALT DELTA ALTITUDE AT CDH
# (5) T1TOT2 DELTA TIME FROM CSI TO CDH # (5) T1TOT2 DELTA TIME FROM CSI TO CDH
# (6) T2TOT3 DELTA TIME FROM CDH TO TPI # (6) T2TOT3 DELTA TIME FROM CDH TO TPI
# (7) DELVLVC DELTA VELOCITY AT CSI -- LOCAL VERTICAL COORDINATES # (7) DELVLVC DELTA VELOCITY AT CSI - LOCAL VERTICAL COORDINATES
# (8) DELVLVC DELTA VELOCITY AT CDH -- LOCAL VERTICAL COORDINATES # (8) DELVLVC DELTA VELOCITY AT CDH - LOCAL VERTICAL COORDINATES
#
# DOWNLINK # DOWNLINK
# (1) TCSI TIME OF THE CSI MANEUVER # (1) TCSI TIME OF THE CSI MANEUVER
# (2) TCDH TIME OF THE CDH MANEUVER # (2) TCDH TIME OF THE CDH MANEUVER
# (3) TTPI TIME OF THE TPI MANEUVER # (3) TTPI TIME OF THE TPI MANEUVER
# (4) TIG TIME OF THE CSI MANEUVER # (4) TIG TIME OF THE CSI MANEUVER
# (5) DELVEET1 DELTA VELOCITY AT CSI -- REFERENCE COORDINATES # (5) DELVEET1 DELTA VELOCITY AT CSI - REFERENCE COORDINATES
# (6) DELVEET2 DELTA VELOCITY AT CDH -- REFERENCE COORDINATES # (6) DELVEET2 DELTA VELOCITY AT CDH - REFERENCE COORDINATES
# (7) DIFFALT DELTA ALTITUDE AT CDH # (7) DIFFALT DELTA ALTITUDE AT CDH
# (8) NN NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE # (8) NN NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE
# VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH # VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH
# MANEUVER POINT # MANEUVER POINT
# (9) ELEV DESIRED LOS ANGLE AT TPI # (9) ELEV DESIRED LOS ANGLE AT TPI
#
# COMMUNICATION TO THRUSTING PROGRAMS # COMMUNICATION TO THRUSTING PROGRAMS
# (1) TIG TIME OF THE CSI MANEUVER # (1) TIG TIME OF THE CSI MANEUVER
# (2) RTIG POSITION OF ACTIVE VEHICLE AT CSI -- BEFORE ROTATION # (2) RTIG POSITION OF ACTIVE VEHICLE AT CSI - BEFORE ROTATION
# INTO PLANE OF PASSIVE VEHICLE # INTO PLANE OF PASSIVE VEHICLE
# (3) VTIG VELOCITY OF ACTIVE VEHICLE AT CSE -- BEFORE ROTATION # (3) VTIG VELOCITY OF ACTIVE VEHICLE AT CSE - BEFORE ROTATION
# INTO PLANE OF PASSIVE VEHICLE # INTO PLANE OF PASSIVE VEHICLE
# (4) DELVSIN DELTA VELOCITY AT CSI -- REFERENCE COORDINATES # (4) DELVSIN DELTA VELOCITY AT CSI - REFERENCE COORDINATES
# (5) DELVSAB MAGNITUDE OF DELTA VELOCITY AT CSI # (5) DELVSAB MAGNITUDE OF DELTA VELOCITY AT CSI
# (6) XDELVFLG SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION # (6) XDELVFLG SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION
#
# SUBROUTINES USED # SUBROUTINES USED
# AVFLAGA # AVFLAGA
# AVFLAGP # AVFLAGP
# P20FLGON # P20FLGON
@ -187,6 +207,7 @@
BANK BANK
EBANK= SUBEXIT EBANK= SUBEXIT
COUNT 35/P3272 COUNT 35/P3272
P32 TC AVFLAGA P32 TC AVFLAGA
TC P32STRT TC P32STRT
P72 TC AVFLAGP P72 TC AVFLAGP
@ -217,7 +238,7 @@ P32/P72A TC P20FLGON
EXIT EXIT
CAF V06N11 # TCSI CAF V06N11 # TCSI
TC VNP00H TC VNP00H
CAF V06N55 CAF V06N55 # NN. ELEV(RGL05)
# Page 653 # Page 653
TC BANKCALL TC BANKCALL
CADR GOFLASH CADR GOFLASH
@ -292,70 +313,70 @@ P32/P72F STORE T2TOT3
VN1645 VN1645
GOTO GOTO
P32/P72B P32/P72B
# Page 655 # Page 655
# CONSTANT DELTA HEIGHT (CDH) PROGRAMS (P33 AND P73) # 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 # PURPOSE
#
# (1) TO CALCULATE PARAMETERS ASSOCIATED WITH THE CONSTANT DELTA # (1) TO CALCULATE PARAMETERS ASSOCIATED WITH THE CONSTANT DELTA
# ALTITUDE MANEUVER (CDH). # ALTITUDE MANEUVER (CDH).
#
# (2) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA # (2) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
# APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT. # APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
#
# (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES # (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
# ASSOCIATED WITH THE CDH MANEUVER FOR APPROVAL BY THE # ASSOCIATED WITH THE CDH MANEUVER FOR APPROVAL BY THE
# ASTRONAUT/GROUND. # ASTRONAUT/GROUND.
#
# (4) TO STORE THE CDH TARGET PARAMETERS FOR USE BY THE DESIRED # (4) TO STORE THE CDH TARGET PARAMETERS FOR USE BY THE DESIRED
# THRUSTING PROGRAM. # THRUSTING PROGRAM.
#
# ASSUMPTIONS # ASSUMPTIONS
#
# (1) THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF THE # (1) THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF THE
# CO-ELLIPTIC SEQUENCE INITIATION (CSI) PROGRAM (P32/P72). # CO-ELLIPTIC SEQUENCE INITIATION (CSI) PROGRAM (P32/P72).
# THEREFORE -- # THERFORE -
#
# (A) AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT # (A) AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
# BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE # BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
# A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE # A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
# HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION. # HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
#
# (B) THE TIME BETWEEN CSI IGNITION AND CDH IGNITION WAS # (B) THE TIME BETWEEN CSI IGNITION AND CDH IGNITION WAS
# COMPUTED TO BE GREATER THAN 10 MINUTES. # COMPUTED TO BE GREATER THAN 10 MINUTES.
#
# (C) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS # (C) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
# COMPUTED TO BE GREATER THAN 10 MINUTES. # COMPUTED TO BE GREATER THAN 10 MINUTES.
#
# (D) THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE # (D) THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
# ORBITS WAS MINIMIZED. # ORBITS WAS MINIMIZED.
#
# (E) CSI BURN WAS DEFINED SUCH THAT THE IMPULSIVE DELTA V WAS # (E) CSI BURN WAS DEFINED SUCH THAT THE IMPULSIVE DELTA V WAS
# IN THE HORIZONTAL PLANE DEFINED BY ACTIVE VEHICLE # IN THE HORIZONTAL PLANE DEFINED BY ACTIVE VEHICLE
# POSITION AT CSI IGNITION. # POSITION AT CSI IGNITION.
#
# (F) THE PERICENTER ALTITUDES OF THE ORBITS FOLLOWING CSI AND # (F) THE PERICENTER ALTITUDES OF THE ORBITS FOLLOWING CSI AND
# CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR # CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR
# ORBIT OR 85 NM FOR EARTH ORBIT. # ORBIT OR 85 NM FOR EARTH ORBIT.
#
# (G) THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO # (G) THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
# THE PLANE OF THE PASSIVE VEHICLE ORBIT. HOWEVER, CREW # THE PLANE OF THE PASSIVE VEHICLE ORBIT. HOWEVER, CREW
# Page 656 # Page 656
# MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED # MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
# IN AN OUT-OF-PLANE MANEUVER. # IN AN OUT-OF-PLANE MANEUVER.
#
# (2) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC # (2) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
# STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 4). # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 4).
#
# (3) COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY # (3) COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
# THE GROUND. THESE STORAGE CAPABILITIES ARE NORMALLY LIMITED # THE GROUND. THESE STORAGE CAPABILITIES ARE NORMALLY LIMITED
# ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME # ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
# EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES. # EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
#
# (4) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM. # (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 # OR CSM STATE VECTORS FOR THIS PROGRAM. IF RADAR USE IS
# DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY # DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
# PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS WILL BE MADE # PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS WILL BE MADE
@ -363,73 +384,72 @@ P32/P72F STORE T2TOT3
# TRACK AND UPDATE FLAGS (SEE P20). THE RENDEZVOUS TRACKING # TRACK AND UPDATE FLAGS (SEE P20). THE RENDEZVOUS TRACKING
# MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH # MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
# THRUSTING MANEUVER. # THRUSTING MANEUVER.
#
# (5) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM. # (5) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
#
# (6) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -- # (6) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
#
# ACTIVE VEHICLE FLAG -- DESIGNATES THE VEHICLE WHICH IS # ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
# DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
# CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF
# EACH RENDEZVOUS PRE-THRUSTING PROGRAM. # EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
#
# FINAL FLAG -- SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS # FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
# COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY # COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
# CYCLE. # CYCLE.
#
# EXTERNAL DELTA V STEERING FLAG -- DESIGNATES THE TYPE OF # EXTERNAL DELTA V STEERING FLAG - DESIGNATES THE TYPE OF
# STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE # STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
# THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS # THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
# PROGRAM. # PROGRAM.
#
# (7) IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO # (7) IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
# A THRUSTING MANEUVER. # A THRUSTING MANEUVER.
#
# (8) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY. # (8) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
#
# P33 IF THIS VEHICLE IS ACTIVE VEHICLE. # P33 IF THIS VEHICLE IS ACTIVE VEHICLE.
#
# P73 IF THIS VEHICLE IS PASSIVE VEHICLE. # P73 IF THIS VEHICLE IS PASSIVE VEHICLE.
#
# INPUT # 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 # Page 657
# (2) ELEV DESIRED LOS ANGLE AT TPI -- SAVED FROM P32/P72 # (2) ELEV DESIRED LOS ANGLE AT TPI - SAVED FROM P32/P72
# (3) TCDH TIME OF THE CDH MANEUVER # (3) TCDH TIME OF THE CDH MANEUVER
#
# OUTPUT # OUTPUT
#
# (1) TRKMKCNT NUMBER OF MARKS # (1) TRKMKCNT NUMBER OF MARKS
# (2) TTOGO TIME TO GO # (2) TTOGO TIME TO GO
# (3) +MGA MIDDLE GIMBAL ANGLE # (3) +MGA MIDDLE GIMBAL ANGLE
# (4) DIFFALT DELTA ALTITUDE AT CDH # (4) DIFFALT DELTA ALTITUDE AT CDH
# (5) T2TOT3 DELTA TIME FROM CDH TO COMPUTED TPI # (5) T2TOT3 DELTA TIME FROM CDH TO COMPUTED TPI
# (6) NOMTPI DELTA TIME FROM NOMINAL TPI TO COMPUTED TPI # (6) NOMTPI DELTA TIME FROM NOMINAL TPI TO COMPUTED TPI
# (7) DELVLVC DELTA VELOCITY AT CDH -- LOCAL VERTICAL COORDINATES # (7) DELVLVC DELTA VELOCITY AT CDH - LOCAL VERTICAL COORDINATES
#
# DOWNLINK # DOWNLINK
#
# (1) TCDH TIME OF THE CDH MANEUVER # (1) TCDH TIME OF THE CDH MANEUVER
# (2) TTPI TIME OF THE TPI MANEUVER # (2) TTPI TIME OF THE TPI MANEUVER
# (3) TIG TIME OF THE CDH MANEUVER # (3) TIG TIME OF THE CDH MANEUVER
# (4) DELLVEET2 DELTA VELOCITY AT CDH -- REFERENCE COORDINATES # (4) DELLVEET2 DELTA VELOCITY AT CDH - REFERENCE COORDINATES
# (5) DIFFALT DELTA ALTITUDE AT CDH # (5) DIFFALT DELTA ALTITUDE AT CDH
# (6) ELEV DESIRED LOS ANGLE AT TPI # (6) ELEV DESIRED LOS ANGLE AT TPI
#
# COMMUNICATION TO THRUSTING PROGRAMS # COMMUNICATION TO THRUSTING PROGRAMS
#
# (1) TIG TIME OF THE CDH MANEUVER # (1) TIG TIME OF THE CDH MANEUVER
# (2) RTIG POSITION OF ACTIVE VEHICLE AT CDH -- BEFORE ROTATION # (2) RTIG POSITION OF ACTIVE VEHICLE AT CDH - BEFORE ROTATION
# INTO PLANE OF PASSIVE VEHICLE. # INTO PLANE OF PASSIVE VEHICLE
# (3) VTIG VELOCITY OF ACTIVE VEHICLE AT CDH -- BEFORE ROTATION # (3) VTIG VELOCITY OF ACTIVE VEHICLE AT CDH - BEFORE ROTATION
# INTO PLANE OF PASSIVE VEHICLE. # INTO PLANE OF PASSIVE VEHICLE
# (4) DELVSIN DELTA VELOCITY AT CDH -- REFERENCE COORDINATES. # (4) DELVSIN DELTA VELOCITY AT CDH - REFERENCE COORDINATES
# (5) DELVSAB MAGNITUDE OF DELTA VELOCITY AT CDH. # (5) DELVSAB MAGNITUDE OF DELTA VELOCITY AT CDH
# (6) XDELVFLG SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION. # (6) XDELVFLG SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION
#
# SUBROUTINES USED # SUBROUTINES USED
#
# AVFLAGA # AVFLAGA
# AVFLAGP # AVFLAGP
# P20FLGON # P20FLGON
@ -550,15 +570,13 @@ P33/P73F ABS DSU
GOTO GOTO
# Page 660 # Page 660
P33/P73B P33/P73B
# Page 661 # Page 661
# ***** AVFLAGA/P ***** # ..... AVFLAGA/P .....
# Page 662 # Page 662
# ***** DISDVLVC ***** # ..... DISDVLVC .....
#
# SUBROUTINES USED # SUBROUTINES USED
#
# S32/33.X # S32/33.X
# VNP00H # VNP00H
@ -589,13 +607,11 @@ V06N13 VN 0613
V06N75 VN 0675 V06N75 VN 0675
V06N50 VN 0650 V06N50 VN 0650
# Page 663 # Page 663
# ..... CSI/A .....
# ***** CSI/A *****
#
# SUBROUTINES USED # SUBROUTINES USED
#
# VECSHIFT # VECSHIFT
# TIMETHET # TIMETHET
# PERIAPO # PERIAPO
@ -629,39 +645,36 @@ 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 1DPB28 2DEC 1
EPSILN1 2DEC .0003048 B-7 # .1 FPS EPSILN1 2DEC .0003048 B-7 # .1 FPS
FIFPSDP 2DEC -.152400 B-7 # 50 FPS
FIFPSDP 2DEC -.152400 B-7 # 5 FPS
DELMAX1 2DEC .6096000 B-7 # 200 FPS DELMAX1 2DEC .6096000 B-7 # 200 FPS
SETLOC CSI/CDH SETLOC CSI/CDH
BANK 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 # Page 664
NICKELDP 2DEC .021336 B-7 # 7 FPS NICKELDP 2DEC .021336 B-7 # 7 FPS
INITST1 2DEC .03048 B-7 # INITIAL DELDV = 10 FPS INITST1 2DEC .03048 B-7 # INITIAL DELDV = 10 FPS
ONETHTH 2DEC .0001 B-3 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 SETLOC CSIPROG
BANK BANK
CSI/A CLEAR SET # INITIALIZE INDICATORS CSI/A CLEAR SET # INITIALIZE INDICATORS
S32.1F1 # DVT1 HAS EXCEEDED MAX INDICATOR 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 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 S32.1F3B # 10=2ND CYCLE, 11=50 FPS STAGE 2ND CYCLE
DLOAD DLOAD
ZEROVEC ZEROVEC
@ -807,7 +820,7 @@ CSI/B23D STCALL VACT4
CALL CALL
SHIFTR1 SHIFTR1
SL4 SL1 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 BOFF SL3
CMOONFLG CMOONFLG
CSI/B3 CSI/B3
@ -997,10 +1010,10 @@ K2. DLOAD
VXSC VSL1 VXSC VSL1
VAD UNIT # V=RA3+KU UNIT B1 VAD UNIT # V=RA3+KU UNIT B1
RACT3 RACT3
PDVL UNIT PDVL UNIT # PL06D
RPASS3 # PL06D RPASS3
PDVL UNIT PDVL UNIT # PL12D
VPASS3 # PL12D VPASS3
VXV PDVL # UVP3 X URP3 PL18D VXV PDVL # UVP3 X URP3 PL18D
# Page 671 # Page 671
06D 06D
@ -1054,7 +1067,6 @@ FRSTPAS DLOAD
SETLOC CSIPROG8 SETLOC CSIPROG8
BANK BANK
# Page 672 # Page 672
CSINEXT3 DSU CLEAR CSINEXT3 DSU CLEAR
DELDV DELDV
S32.1F2 S32.1F2
@ -1163,11 +1175,11 @@ SCNDSOL BON BOFF
S32.1F3B S32.1F3B
STCALL LOOPCT STCALL LOOPCT
CSI/B CSI/B
# Page 675 # Page 675
# ***** ADVANCE ***** # ..... ADVANCE .....
#
# SUBROUTINES USED # SUBROUTINES USED
# PRECSET # PRECSET
# ROTATE # ROTATE
@ -1202,9 +1214,8 @@ ADVANCE STQ DLOAD
STORE VACT2 STORE VACT2
STCALL VACT1 STCALL VACT1
SUBEXIT SUBEXIT
# Page 676 # Page 676
# ***** ROTATE ***** # ..... ROTATE .....
SETLOC CDHTAG SETLOC CDHTAG
BANK BANK
@ -1217,9 +1228,8 @@ ROTATE PUSH PUSH
UNIT PDVL UNIT PDVL
ABVAL VXSC ABVAL VXSC
VSL1 RVQ VSL1 RVQ
# Page 677 # Page 677
# ***** INTINTNA ***** # ..... INTINTNA .....
SETLOC CDHTAG2 SETLOC CDHTAG2
BANK BANK
@ -1238,10 +1248,9 @@ INTINT3P PDDL PDDL
ZEROVECS ZEROVECS
GOTO GOTO
INTINT INTINT
# Page 678 # Page 678
# ***** S32/33.1 ***** # ..... S32/33.1 .....
#
# SUBROUTINES USED # SUBROUTINES USED
# S32/33.X # S32/33.X
@ -1264,9 +1273,8 @@ S32/33.1 STQ AXT,1
STOVL DELVSAB STOVL DELVSAB
GOTO GOTO
SUBEXIT SUBEXIT
# Page 679 # Page 679
# ***** S32/33.X ***** # ..... S32/33.X .....
SETLOC CDHTAGS SETLOC CDHTAGS
BANK BANK
@ -1282,11 +1290,11 @@ S32/33.X SETPD VLOAD
VSL1 VSL1
STORE 0D STORE 0D
RVQ RVQ
# Page 680 # Page 680
# ***** CDHMVR ***** # ..... CDHMVR .....
#
# SUBROUTINES USED # SUBROUTINES USED
# VECSHIFT # VECSHIFT
# TIMETHET # TIMETHET
# SHIFTR1 # SHIFTR1
@ -1388,13 +1396,13 @@ CDHMVR STQ VLOAD
STORE VACT3 STORE VACT3
VSU VSU
VACT2 VACT2
STCALL DELVEET2 # DELTA VCDH -- REFERENCE COORDINATES STCALL DELVEET2 # DELTA VCDH - REFERENCE COORDINATES
SUBEXIT SUBEXIT
# Page 683 # Page 683
# ***** COMPTGO ***** # ..... COMPTGO .....
#
# SUBROUTINES USED # SUBROUTINES USED
# CLOKTASK # CLOKTASK
# 2PHSCHNG # 2PHSCHNG
@ -1405,4 +1413,3 @@ CDHMVR STQ VLOAD
EBANK= RTRN EBANK= RTRN
COUNT* $$/P3575 COUNT* $$/P3575