Proof P32-P33_P72-P73 (#530)
Closes #233 * WIP * more changes to comment formatting * more minor alignment fixes
This commit is contained in:
Samuel Burkhardt
GitHub
parent
614ddd76f9
commit
4bdf1ffbbf
@ -37,53 +37,67 @@
|
||||
|
||||
# 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
|
||||
# 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
|
||||
# Page 650
|
||||
# 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
|
||||
# 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
|
||||
@ -92,75 +106,81 @@
|
||||
# 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
|
||||
|
||||
# (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
|
||||
|
||||
# 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
|
||||
|
||||
# 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
|
||||
#
|
||||
|
||||
# (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.
|
||||
#
|
||||
|
||||
# P72 IF THIS VEHICLE IS PASSIVE VEHICLE.
|
||||
|
||||
# INPUT
|
||||
|
||||
# (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.
|
||||
# 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
|
||||
#
|
||||
# (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
|
||||
# (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
|
||||
# (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
|
||||
# (3) VTIG VELOCITY OF ACTIVE VEHICLE AT CSE - BEFORE ROTATION
|
||||
# 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
|
||||
# (6) XDELVFLG SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION
|
||||
#
|
||||
|
||||
# SUBROUTINES USED
|
||||
|
||||
# AVFLAGA
|
||||
# AVFLAGP
|
||||
# P20FLGON
|
||||
@ -187,6 +207,7 @@
|
||||
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,70 +313,70 @@ 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.
|
||||
#
|
||||
|
||||
# ASSUMPTIONS
|
||||
#
|
||||
|
||||
# (1) THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF THE
|
||||
# CO-ELLIPTIC SEQUENCE INITIATION (CSI) PROGRAM (P32/P72).
|
||||
# THEREFORE --
|
||||
#
|
||||
# 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.
|
||||
|
||||
# (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
|
||||
@ -363,73 +384,72 @@ P32/P72F STORE T2TOT3
|
||||
# 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
|
||||
|
||||
# (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
|
||||
|
||||
# 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
|
||||
|
||||
# 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.
|
||||
#
|
||||
|
||||
# (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
|
||||
# (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
|
||||
#
|
||||
# (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
|
||||
# (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.
|
||||
#
|
||||
# (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
|
||||
@ -550,15 +570,13 @@ 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
|
||||
|
||||
@ -589,13 +607,11 @@ V06N13 VN 0613
|
||||
V06N75 VN 0675
|
||||
|
||||
V06N50 VN 0650
|
||||
|
||||
# Page 663
|
||||
# ..... CSI/A .....
|
||||
|
||||
# ***** CSI/A *****
|
||||
#
|
||||
# SUBROUTINES USED
|
||||
#
|
||||
|
||||
# VECSHIFT
|
||||
# TIMETHET
|
||||
# PERIAPO
|
||||
@ -629,39 +645,36 @@ DVMAX1 2DEC 3.0480 B-7 # MAXIMUM DV1 = 1000 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
|
||||
@ -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
|
||||
@ -807,7 +820,7 @@ CSI/B23D STCALL VACT4
|
||||
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
|
||||
@ -927,10 +940,10 @@ 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
|
||||
STCALL 18D # PLUS
|
||||
@ -943,20 +956,20 @@ CSINEXT2 DLOAD VXSC # (SINLOS)(URA3) = U B2 PL00D
|
||||
VAD VSL1
|
||||
18D # B1
|
||||
PUSH DOT # PL06D
|
||||
RACT3 # (U . RA3) = TEMP1 B1 + B29 = B30
|
||||
RACT3 # (U . RA3) = TEMP1 B1 +B29=B30
|
||||
SL1 PUSH # B29 PL08D
|
||||
DSQ TLOAD # TEMP1**2 B58
|
||||
MPAC
|
||||
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
|
||||
TAD TAD # TEMP1**2+RA3.RA3+RP3.RP3=TEMP2 PL08D
|
||||
BPL DLOAD
|
||||
K10RK2
|
||||
LOOPCT
|
||||
@ -974,10 +987,10 @@ CSINEXT2 DLOAD VXSC # (SINLOS)(URA3) = U B2 PL00D
|
||||
CSI/B1
|
||||
K10RK2 SQRT PUSH # TEMP3 = TEMP2**.5 B29 PL10D
|
||||
DCOMP DSU
|
||||
06D # -TEMP1-TEMP3 = K2 AT 10D
|
||||
06D # -TEMP1-TEMP3 =K2 AT 10D
|
||||
STODL 10D # PL08D
|
||||
DSU STADR # PL06D
|
||||
STORE 12D # -TEMP1+TEMP3 = K1 AT 12D
|
||||
STORE 12D # -TEMP1+TEMP3 =K1 AT 12D
|
||||
ABS
|
||||
STODL 14D
|
||||
10D
|
||||
@ -995,12 +1008,12 @@ 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
|
||||
PDVL UNIT # PL06D
|
||||
RPASS3
|
||||
PDVL UNIT # PL12D
|
||||
VPASS3
|
||||
VXV PDVL # UVP3 X URP3 PL18D
|
||||
# Page 671
|
||||
06D
|
||||
@ -1008,11 +1021,11 @@ K2. DLOAD
|
||||
VXV DOT
|
||||
00D
|
||||
STADR # PL12D
|
||||
STOVL 12D # (URP3 X V).(UVP3 X URP3)=TEMP PL06D
|
||||
STOVL 12D # (URP3XV).(UVP3XURP3)=TEMP PL06D
|
||||
DOT SL1 # PL00D
|
||||
ARCCOS SIGN
|
||||
12D # B0
|
||||
SR1 PUSH # GAMMA = SIGN(TEMP)ARCOS(UNITV.URP3) PL02D
|
||||
SR1 PUSH # GAMMA=SIGN(TEMP)ARCOS(UNITV.URP3) PL02D
|
||||
BON DLOAD
|
||||
S32.1F2
|
||||
FRSTPAS
|
||||
@ -1054,7 +1067,6 @@ FRSTPAS DLOAD
|
||||
SETLOC CSIPROG8
|
||||
BANK
|
||||
# Page 672
|
||||
|
||||
CSINEXT3 DSU CLEAR
|
||||
DELDV
|
||||
S32.1F2
|
||||
@ -1163,11 +1175,11 @@ SCNDSOL BON BOFF
|
||||
S32.1F3B
|
||||
STCALL LOOPCT
|
||||
CSI/B
|
||||
|
||||
# Page 675
|
||||
# ***** ADVANCE *****
|
||||
#
|
||||
# ..... ADVANCE .....
|
||||
|
||||
# SUBROUTINES USED
|
||||
|
||||
# PRECSET
|
||||
# ROTATE
|
||||
|
||||
@ -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,10 +1248,9 @@ INTINT3P PDDL PDDL
|
||||
ZEROVECS
|
||||
GOTO
|
||||
INTINT
|
||||
|
||||
# Page 678
|
||||
# ***** S32/33.1 *****
|
||||
#
|
||||
# ..... S32/33.1 .....
|
||||
|
||||
# SUBROUTINES USED
|
||||
# S32/33.X
|
||||
|
||||
@ -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,11 +1290,11 @@ S32/33.X SETPD VLOAD
|
||||
VSL1
|
||||
STORE 0D
|
||||
RVQ
|
||||
|
||||
# Page 680
|
||||
# ***** CDHMVR *****
|
||||
#
|
||||
# ..... CDHMVR .....
|
||||
|
||||
# SUBROUTINES USED
|
||||
|
||||
# VECSHIFT
|
||||
# TIMETHET
|
||||
# SHIFTR1
|
||||
@ -1388,13 +1396,13 @@ 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
|
||||
|
||||
@ -1405,4 +1413,3 @@ CDHMVR STQ VLOAD
|
||||
EBANK= RTRN
|
||||
|
||||
COUNT* $$/P3575
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user