mirror of
https://github.com/chrislgarry/Apollo-11.git
synced 2025-02-13 16:24:37 +00:00
Proofing commanche055 P61-P67
This commit is contained in:
Mike Wilson
parent
7019d48166
commit
c63f0e5412
1 changed files with 40 additions and 39 deletions
|
|
@ -47,7 +47,7 @@
|
||||||
# EMSALT (-29) M .05G ALTITUDE ABOVE FISCHER ELLIPSOID PAD LOADED.
|
# EMSALT (-29) M .05G ALTITUDE ABOVE FISCHER ELLIPSOID PAD LOADED.
|
||||||
# ALFAPAD /180 HYPERSONIC CM TRIM ANGLE OF ATTACK PAD LOADED
|
# ALFAPAD /180 HYPERSONIC CM TRIM ANGLE OF ATTACK PAD LOADED
|
||||||
# OUTPUT: THE FOLLOWING REGISTERS ARE WRITTEN IN FOR USE BY DISPLAYS
|
# OUTPUT: THE FOLLOWING REGISTERS ARE WRITTEN IN FOR USE BY DISPLAYS
|
||||||
# GMAX 100 GMAX (-14) G,S MAXIMUM ACCELERATION
|
# GMAX 100 GMAX (-14) G.S MAXIMUM ACCELERATION
|
||||||
# VPRED (-7) M/CS PREDICTED VELOCITY AT 400K FT
|
# VPRED (-7) M/CS PREDICTED VELOCITY AT 400K FT
|
||||||
# GAMMAEI (GAMMA/360 PREDICTED GAMMA AT 400K FT
|
# GAMMAEI (GAMMA/360 PREDICTED GAMMA AT 400K FT
|
||||||
# RTGO THETAH/360 RANGE ANGLE TO SPLASH FROM EMSALT EMSALT IS PAD LOADED
|
# RTGO THETAH/360 RANGE ANGLE TO SPLASH FROM EMSALT EMSALT IS PAD LOADED
|
||||||
|
|
@ -55,7 +55,7 @@
|
||||||
# TTE (-28) CS TIME TO EMSALT EMSALT IS PAD LOADED
|
# TTE (-28) CS TIME TO EMSALT EMSALT IS PAD LOADED
|
||||||
# LAT(SPL) /360 TARGET LOCATION LEFT BY DSKY
|
# LAT(SPL) /360 TARGET LOCATION LEFT BY DSKY
|
||||||
# LNG(SPL) /360 TARGET LOCATION LEFT BY DSKY
|
# LNG(SPL) /360 TARGET LOCATION LEFT BY DSKY
|
||||||
# HEADSUP (0) +1 = LIFT DOWN, -1 = LIFT UP LEFT BY DSKY
|
# HEADSUP (0) +1 = LIFT DOWN. -1 = LIFT UP LEFT BY DSKY
|
||||||
# DEBRIS: SEE SUBROUTINES.
|
# DEBRIS: SEE SUBROUTINES.
|
||||||
|
|
||||||
BANK 26
|
BANK 26
|
||||||
|
|
@ -120,7 +120,7 @@ DUMPP61 DLOAD DSU
|
||||||
S61.2 # GET DISPLAY DATA FOR N60 AND N63
|
S61.2 # GET DISPLAY DATA FOR N60 AND N63
|
||||||
# AND RETURN IN BASIC, BELOW.
|
# AND RETURN IN BASIC, BELOW.
|
||||||
P61.1 TC CLEARMRK
|
P61.1 TC CLEARMRK
|
||||||
CA V06N60 # GMAX VPRED GAMMAEI
|
CA V06N60 # GMAX VPRED GAMMAE1
|
||||||
# XXX.XX G XXXXX. FPS XXX.XX DEG
|
# XXX.XX G XXXXX. FPS XXX.XX DEG
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR GOFLASH
|
CADR GOFLASH
|
||||||
|
|
@ -201,9 +201,9 @@ P62.2 EXTEND
|
||||||
TC GOTOPOOH
|
TC GOTOPOOH
|
||||||
TC +3 # PROCEED
|
TC +3 # PROCEED
|
||||||
# Page 793
|
# Page 793
|
||||||
# NOTE: NODOFLAG WILL BE SET IN CM/DAPON. ***
|
# NOTE: NODOFLAG WILL BE SET IN CM/DAPON. <<<
|
||||||
TC -5 # ENTER
|
TC -5 # ENTER
|
||||||
TC P61.3 # FOR PHASCHNG AND ENDOFJOB
|
TC P61.3 # FOR PHASCHNG AND ENDOFJOB.
|
||||||
|
|
||||||
+3 TC POSTJUMP
|
+3 TC POSTJUMP
|
||||||
CADR CM/DAPON # DISABLE RCS DAP, ENABLE ENTRY DAP AND
|
CADR CM/DAPON # DISABLE RCS DAP, ENABLE ENTRY DAP AND
|
||||||
|
|
@ -342,6 +342,7 @@ POSECADR 2CADR CM/POSE
|
||||||
# MOD NO: 1 SEPT. 19, 1967
|
# MOD NO: 1 SEPT. 19, 1967
|
||||||
# MOD BY: R. HIRSCHKOP
|
# MOD BY: R. HIRSCHKOP
|
||||||
# MOD NO: 2 MOD BY: RR BAIRNSFATHER DATE: 8 MAY 68 REVISED COMMENTS FOR COLOSSUS
|
# MOD NO: 2 MOD BY: RR BAIRNSFATHER DATE: 8 MAY 68 REVISED COMMENTS FOR COLOSSUS
|
||||||
|
# MOD NO: 3 MOD BY: RR BAIRNSFATHER DATE: 1 MAR 69 N74
|
||||||
# FUNCTION: 1. TO START ENTRY GUIDANCE AT .05G SELECTING ROLL ATTITUDE, CONSTANT DRAG LEVEL, AND
|
# FUNCTION: 1. TO START ENTRY GUIDANCE AT .05G SELECTING ROLL ATTITUDE, CONSTANT DRAG LEVEL, AND
|
||||||
# DRAG THRESHOLD, KA, WHICH ARE KEYED TO THE .05G POINT.
|
# DRAG THRESHOLD, KA, WHICH ARE KEYED TO THE .05G POINT.
|
||||||
# 2. SELECT FINAL PHASE P67 IF V < 27000 FPS WHEN .2G OCCURS.
|
# 2. SELECT FINAL PHASE P67 IF V < 27000 FPS WHEN .2G OCCURS.
|
||||||
|
|
@ -353,7 +354,7 @@ POSECADR 2CADR CM/POSE
|
||||||
# EXIT: BACK TO REENTRY CONTROL.
|
# EXIT: BACK TO REENTRY CONTROL.
|
||||||
# SUBROUTINE CALLS: NEWMODEX
|
# SUBROUTINE CALLS: NEWMODEX
|
||||||
|
|
||||||
BANK 25
|
BANK 26
|
||||||
SETLOC P60S1
|
SETLOC P60S1
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
|
|
@ -383,7 +384,7 @@ V06N74 VN 0674
|
||||||
|
|
||||||
COUNT* $$/P65
|
COUNT* $$/P65
|
||||||
|
|
||||||
P65 TC NEWMODEX # ENTER VIA RTB WHEN RANGE < 25 N M OF
|
P65 TC NEWMODEX # ENTER VIA RTB WHEN RANGE < 25 NM OF
|
||||||
MM 65 # TARGET.
|
MM 65 # TARGET.
|
||||||
|
|
||||||
CA PRIO13
|
CA PRIO13
|
||||||
|
|
@ -517,10 +518,10 @@ SERVCAD2 = SERVCAD1
|
||||||
# MOD BY: RR BAIRNSFATHER LOG SECTION: P61-P67
|
# MOD BY: RR BAIRNSFATHER LOG SECTION: P61-P67
|
||||||
# MOD NO: 1 MOD BY: RR BAIRNSFATHER DATE: 22 JUN 67 RESTARTS.
|
# MOD NO: 1 MOD BY: RR BAIRNSFATHER DATE: 22 JUN 67 RESTARTS.
|
||||||
# FUNCTIONAL DESCRIPTION: CALLED BY BOTH P61 AND P62
|
# FUNCTIONAL DESCRIPTION: CALLED BY BOTH P61 AND P62
|
||||||
# FIRST, TEST TO SEE IF AVERAGEG IS ON. IF NOT, UPDATE THE STATE VECTOR TO PRESENT TIME + TOLERANCE
|
# FIRST, TEST TO SEE IF AVERAGEG IS ON. IF NOT, UPDATE THE STATE VECTOR TO PRESENT TIME + TOLERANCE
|
||||||
# AND TURN ON AVERAGEG AT THAT TIME, AND CONTINUE. OTHERWISE CONTINUE: SEE IF IMU Y AXIS IS
|
# AND TURN ON AVERAGEG AT THAT TIME, AND CONTINUE. OTHERWISE CONTINUE: SEE IF IMU Y AXIS IS
|
||||||
# WITHIN 30 DEG OF VAR. IF YES, EXIT SUBROUTINE S61.1. IF SO, SEE IF -Y AXIS OF IMU IS WITHIN
|
# WITHIN 30 DEG OF V*R. IF YES, EXIT SUBROUTINE S61.1. IF NO, SEE IF -Y AXIS OF IMU IS WITHIN
|
||||||
# 30 DEG OF VAR. IF YES, DISPLAY ALARM: 01427 IMU REVERSED.
|
# 30 DEG OF V*R. IF YES, DISPLAY ALARM: 01427 IMU REVERSED.
|
||||||
# IF NO, DISPLAY ALARM: 01426 IMU UNSATISFACTORY.
|
# IF NO, DISPLAY ALARM: 01426 IMU UNSATISFACTORY.
|
||||||
# IN EITHER OF THESE LAST 2 CASES, WAIT 10 SEC AND THEN EXIT SUBROUTINE S61.1.
|
# IN EITHER OF THESE LAST 2 CASES, WAIT 10 SEC AND THEN EXIT SUBROUTINE S61.1.
|
||||||
#
|
#
|
||||||
|
|
@ -533,7 +534,7 @@ SERVCAD2 = SERVCAD1
|
||||||
# C(MPAC) UNSPECIFIED
|
# C(MPAC) UNSPECIFIED
|
||||||
# PUSHLOC UNSPECIFIED
|
# PUSHLOC UNSPECIFIED
|
||||||
#
|
#
|
||||||
# SUBROUTINES CALLED: LOADTIME, CSMPREC, TPAGTREE,
|
# SUBROUTINES CALLED: LOADTIME, CSMPREC, TPAGREE,
|
||||||
# WAITLIST, JOBSLEEP, JOBWAKE, PREREAD, ALARM, GODSPR, BANKCALL, DELAYJOB
|
# WAITLIST, JOBSLEEP, JOBWAKE, PREREAD, ALARM, GODSPR, BANKCALL, DELAYJOB
|
||||||
#
|
#
|
||||||
# NORMAL EXIT MODES: RVQ
|
# NORMAL EXIT MODES: RVQ
|
||||||
|
|
@ -555,7 +556,7 @@ SERVCAD2 = SERVCAD1
|
||||||
# POSSIBLY PIPTIME1, RATT, VATT, TDEC1, RN1, VN1, QTEMP, X1 IF UPDATED
|
# POSSIBLY PIPTIME1, RATT, VATT, TDEC1, RN1, VN1, QTEMP, X1 IF UPDATED
|
||||||
# PUSH LIST LOCS USED BY CSMPREC
|
# PUSH LIST LOCS USED BY CSMPREC
|
||||||
|
|
||||||
EBANK= AOG # FOR 60GENRET, S61DT
|
EBANK= AOG # FOR 60GENRET. S61DT
|
||||||
BANK 26
|
BANK 26
|
||||||
SETLOC P60S3
|
SETLOC P60S3
|
||||||
BANK
|
BANK
|
||||||
|
|
@ -650,17 +651,17 @@ C(30)LIM 2DEC .566985 # = 1.0 - .5 COS(30)
|
||||||
# Page 806
|
# Page 806
|
||||||
# PROGRAM NAME: S61.2 DATE: 14 FEB 67
|
# PROGRAM NAME: S61.2 DATE: 14 FEB 67
|
||||||
# MOD NO: 1 LOG SECTION: P61-P67
|
# MOD NO: 1 LOG SECTION: P61-P67
|
||||||
# MOD BY: NORTH / BAIRNSFATHER
|
# MOD BY: MORTH / BAIRNSFATHER
|
||||||
# MOD NO: 2 MOD BY: NORTH/BAIRNSFATHER DATE: 11 MAY 67 ADD 2ND ITER FOR ERAD AT 400K FT.
|
# MOD NO: 2 MOD BY: MORTH/BAIRNSFATHER DATE: 11 MAY 67 ADD 2ND ITER FOR ERAD AT 400K FT.
|
||||||
# MOD NO: 3 MOD BY: RR BAIRNSFATHER DATE: 21 NOV 67 VARIABLE MU ADDED.
|
# MOD NO: 3 MOD BY: RR BAIRNSFATHER DATE: 21 NOV 67 VARIABLE MU ADDED.
|
||||||
# MOD NO: 4 MOD BY: RR BAIRNSFATHER DATE: 21 MAR 68 DIFFERENT EARTH/MOON SCALES IN TFF'S
|
# MOD NO: 4 MOD BY: RR BAIRNSFATHER DATE: 21 MAR 68 DIFFERENT EARTH/MOON SCALES IN TFF'S
|
||||||
#
|
#
|
||||||
# FUNCTIONAL DESCRIPTION: CALLED IN P61. PROVIDES DISPLAYS FOR NOUNS N60 AND N63 .
|
# FUNCTIONAL DESCRIPTION: CALLED IN P61. PROVIDES DISPLAYS FOR NOUNS N60 AND N63.
|
||||||
# PROGRAM CALCULATES ENTRY DISPLAY OF MAXIMUM ACCELERATION EXPECTED (GMAX) AND ALSO THE EXPECTED
|
# PROGRAM CALCULATES ENTRY DISPLAY OF MAXIMUM ACCELERATION EXPECTED (GMAX) AND ALSO THE EXPECTED
|
||||||
# INERTIAL VELOCITY (VPRED) AND ENTRY ANGLE (GAMMAEI) THAT WILL OBTAIN AT 400K FT ABOVE THE FISCHER
|
# INERTIAL VELOCITY (VPRED) AND ENTRY ANGLE (GAMMAEI) THAT WILL OBTAIN AT 400K FT ABOVE THE FISCHER
|
||||||
# ELLIPSOID. PROGRAM ALSO CALCULATES A SECOND DISPLAY RELATIVE TO THE EMSALT ABOVE FISCHER ELLIPSOID
|
# ELLIPSOID. PROGRAM ALSO CALCULATES A SECOND DISPLAY RELATIVE TO THE EMSALT ABOVE FISCHER ELLIPSOID
|
||||||
# AND CONSISTS OF RANGE TO SPLASH FROM NOW (RTGO) , PREDICTED INERTIAL VELOCITY (VIO) , AND THE TIME TO
|
# AND CONSISTS OF RANGE TO SPLASH FROM NOW (RTGO), PREDICTED INERTIAL VELOCITY (VIO), AND THE TIME TO
|
||||||
# GO FROM NOW (TTE) .
|
# GO FROM NOW (TTE).
|
||||||
#
|
#
|
||||||
# CALLING SEQUENCE: CALL
|
# CALLING SEQUENCE: CALL
|
||||||
# S61.2
|
# S61.2
|
||||||
|
|
@ -692,7 +693,7 @@ C(30)LIM 2DEC .566985 # = 1.0 - .5 COS(30)
|
||||||
# THETAH THETAH/360 RANGE ANGLE LEFT BY ENTRY / P61
|
# THETAH THETAH/360 RANGE ANGLE LEFT BY ENTRY / P61
|
||||||
# UNITW (0) UNIT POLAR VECTOR LEFT BY PAD LOAD
|
# UNITW (0) UNIT POLAR VECTOR LEFT BY PAD LOAD
|
||||||
# EMSALT (-29) M EMS INTERFACE ALTITUDE LEFT BY PAD LOAD
|
# EMSALT (-29) M EMS INTERFACE ALTITUDE LEFT BY PAD LOAD
|
||||||
# ORBITAL REENTRY: 284843 FT., LUNAR REENTRY: 297431 FT.
|
# ORBITAL REENTRY: 284843 FT, LUNAR REENTRY: 297431 FT.
|
||||||
#
|
#
|
||||||
# DEBRIS: QPRET,
|
# DEBRIS: QPRET,
|
||||||
# ALL PDL LOCATIONS ABOVE 12D, INCLUDING X1,X2,S1,S2
|
# ALL PDL LOCATIONS ABOVE 12D, INCLUDING X1,X2,S1,S2
|
||||||
|
|
@ -790,7 +791,7 @@ CALLCON CALL
|
||||||
|
|
||||||
PREVGAM # VGAMCALC WITH NEW RTERM
|
PREVGAM # VGAMCALC WITH NEW RTERM
|
||||||
|
|
||||||
# VBAR = (V(FPS) - 36KF/S) / 20 F/S
|
# VBAR = (V(FPS) - 36KF/S) / 20KF/S
|
||||||
# GMAX = (4/(1 + 4.8 VBARSQ))(GAM - 6.05 - 2.4 VBARSQ) - 10(L/D - .3) + 10 ASSUME L/D = 0.3, BANK =0.
|
# GMAX = (4/(1 + 4.8 VBARSQ))(GAM - 6.05 - 2.4 VBARSQ) - 10(L/D - .3) + 10 ASSUME L/D = 0.3, BANK =0.
|
||||||
|
|
||||||
# GMAXCALC
|
# GMAXCALC
|
||||||
|
|
@ -822,7 +823,7 @@ CALLCON CALL
|
||||||
# Page 810
|
# Page 810
|
||||||
# DISPLAY USES GMAX AS SP, SO LO WORD IS WRITTEN OVER BY VPRED.
|
# DISPLAY USES GMAX AS SP, SO LO WORD IS WRITTEN OVER BY VPRED.
|
||||||
ERADM # = FISCHER RADIUS (-29) M
|
ERADM # = FISCHER RADIUS (-29) M
|
||||||
DAD CALL # 2 ND ITERATION FOR FISCHER RADIUS
|
DAD CALL # 2ND ITERATION FOR FISCHER RADIUS
|
||||||
400KFT
|
400KFT
|
||||||
CALCTFF # ESTABLISH TRANSFER ANGLE DATA.
|
CALCTFF # ESTABLISH TRANSFER ANGLE DATA.
|
||||||
CALL
|
CALL
|
||||||
|
|
@ -855,7 +856,7 @@ LUNENT DLOAD GOTO
|
||||||
CALLCON
|
CALLCON
|
||||||
290KFT 2DEC 88392.0 B-29
|
290KFT 2DEC 88392.0 B-29
|
||||||
|
|
||||||
KTETA1 2DEC* .421844723 E2 B-14* # 110 2PI/16384(163.84)
|
KTETA1 2DEC* .421844723 E2 B-14* # 1100 2PI/16384(163.84)
|
||||||
|
|
||||||
36KFT/S 2DEC 109.728 B-7 # (-7) M/CS = 36 KFT/S (-7)
|
36KFT/S 2DEC 109.728 B-7 # (-7) M/CS = 36 KFT/S (-7)
|
||||||
|
|
||||||
|
|
@ -869,9 +870,9 @@ KR2 2DEC .54931641 # = (360/4) 100 (-14) = 9000 B-14
|
||||||
|
|
||||||
KR3 2DEC 1000 B-14 # = 100 (10.0) (-14) G,S
|
KR3 2DEC 1000 B-14 # = 100 (10.0) (-14) G,S
|
||||||
# Page 811
|
# Page 811
|
||||||
# ASSUMES L/D = 0.3, BANK =0.
|
# ASSUMES L/D = 0.3, BANK = 0.
|
||||||
RTRIAL 2DEC 6460097.18 B-29 # RPAD +264643 FT =21 194 545 FT
|
RTRIAL 2DEC 6460097.18 B-29 # RPAD +284643 FT =21 194 545 FT
|
||||||
# RPAD DEFINED AS 20 909 901.57 FT =6 373 336 M
|
# RPAD DEFINED AS 20 909 901.57 FT =6 373 338 M
|
||||||
400KFT 2DEC 121920 B-29 # METERS
|
400KFT 2DEC 121920 B-29 # METERS
|
||||||
|
|
||||||
# 300KFT 2DEC 91440 B-29 # (-29) M
|
# 300KFT 2DEC 91440 B-29 # (-29) M
|
||||||
|
|
@ -895,14 +896,14 @@ VEMSCON 2DEC -.0389676 B-14 # = -HS D / 2 PI (-14) M SQ / CS SQ
|
||||||
#
|
#
|
||||||
# FUNCTIONAL DESCRIPTION: GIVEN THE PRESENT POSITION, UNITR, CALCULATE A NEW UNITR THAT IS ROTATED THROUGH
|
# FUNCTIONAL DESCRIPTION: GIVEN THE PRESENT POSITION, UNITR, CALCULATE A NEW UNITR THAT IS ROTATED THROUGH
|
||||||
# TRANSFER ANGLE, THETA, ALONG THE TRAJECTORY. THEN CALCULATE SIN(LAT) AND USE TO OBTAIN FISCHER RADIUS.
|
# TRANSFER ANGLE, THETA, ALONG THE TRAJECTORY. THEN CALCULATE SIN(LAT) AND USE TO OBTAIN FISCHER RADIUS.
|
||||||
# SINCE FISHCALC USED UNI (LEFT BY ENTRY) EARTH SCALING IS ASSUMED. (WILL IMPROVE FOR SUITABLE TENNANT)
|
# SINCE FISHCALC USES UNI (LEFT BY ENTRY) EARTH SCALING IS ASSUMED. (WILL IMPROVE FOR SUITABLE TENNANT)
|
||||||
#
|
#
|
||||||
# CALLING SEQUENCE: CALL
|
# CALLING SEQUENCE: CALL
|
||||||
# FISHCALC
|
# FISHCALC
|
||||||
# ENTER WITH .5 SIN(THETA) IN MPAC.
|
# ENTER WITH .5 SIN(THETA) IN MPAC.
|
||||||
# PUSHLOC IS AT PDL+0, AN ARBITRARY BASE VALUE IF LEQ 8D
|
# PUSHLOC IS AT PDL+0, AN ARBITRARY BASE VALUE IF LEQ 8D
|
||||||
#
|
#
|
||||||
# SUBROUTINES CALLED: GET ERAD
|
# SUBROUTINES CALLED: GETERAD
|
||||||
#
|
#
|
||||||
# NORMAL EXIT MODE: RVQ
|
# NORMAL EXIT MODE: RVQ
|
||||||
#
|
#
|
||||||
|
|
@ -956,7 +957,7 @@ DUMPFISH GOTO
|
||||||
#
|
#
|
||||||
# VGAM = SQRT(VN VN/MU + 2(RN-RTERM)/(RN RTERM) ) RTMU
|
# VGAM = SQRT(VN VN/MU + 2(RN-RTERM)/(RN RTERM) ) RTMU
|
||||||
#
|
#
|
||||||
# COSGAM = H / RTERM VGAM = SQRT (LCP) / (RTERM VGAM/RTMU)
|
# COSGAM = H / RTERM VGAM = SQRT(LCP) / (RTERM VGAM/RTMU)
|
||||||
#
|
#
|
||||||
# VGAMCALC ASSUMES THAT THE TERMINAL RADIUS IS LESS THAN THE PRESENT RADIUS. BOTH CALCTFF AND CALCTPER
|
# VGAMCALC ASSUMES THAT THE TERMINAL RADIUS IS LESS THAN THE PRESENT RADIUS. BOTH CALCTFF AND CALCTPER
|
||||||
# MAKE THIS ASSUMPTION.
|
# MAKE THIS ASSUMPTION.
|
||||||
|
|
@ -977,7 +978,7 @@ DUMPFISH GOTO
|
||||||
# PUSHLOC AT PDL+2
|
# PUSHLOC AT PDL+2
|
||||||
#
|
#
|
||||||
# ERASABLE INITIALIZATION REQD:
|
# ERASABLE INITIALIZATION REQD:
|
||||||
# TFF/RTMU E: (17) M: (14) 1/SQRT(MU) LEFT BY TFFCONIC
|
# TFF/RTMU E: (17) M: (14) 1/SQRT(MU) LEFT BY TFFCONIC.
|
||||||
# RMAG1 E: (-29) M: (-27) M PRESENT RADIUS LENGTH LEFT BY TFFCONIC
|
# RMAG1 E: (-29) M: (-27) M PRESENT RADIUS LENGTH LEFT BY TFFCONIC
|
||||||
# NRMAG E: (-29+NR) M NORM LENGTH OF PRESENT POSITION LEFT BY TFFCONIC
|
# NRMAG E: (-29+NR) M NORM LENGTH OF PRESENT POSITION LEFT BY TFFCONIC
|
||||||
# M: (-27+NR)
|
# M: (-27+NR)
|
||||||
|
|
@ -994,7 +995,7 @@ DUMPFISH GOTO
|
||||||
|
|
||||||
PREVGAM SL* # ENTER WITH NEW RTERM IN MPAC
|
PREVGAM SL* # ENTER WITH NEW RTERM IN MPAC
|
||||||
# E: (-29) M: (-27)
|
# E: (-29) M: (-27)
|
||||||
0,1 # X1 = -NR
|
0.1 # X1 = -NR
|
||||||
STORE NRTERM # RTERM M E: (-29+NR) M: (-27+NR)
|
STORE NRTERM # RTERM M E: (-29+NR) M: (-27+NR)
|
||||||
|
|
||||||
VGAMCALC DLOAD DMP
|
VGAMCALC DLOAD DMP
|
||||||
|
|
@ -1060,7 +1061,7 @@ DUMPVGAM RVQ
|
||||||
# ERASABLE INITIALIZATION REQUIRED:
|
# ERASABLE INITIALIZATION REQUIRED:
|
||||||
# TFFX X LEFT BY CALCTFF OR CALCTPER
|
# TFFX X LEFT BY CALCTFF OR CALCTPER
|
||||||
# TFFTEM E: (-59+2NR) ARG LEFT BY CALCTFF OR CALCTPER
|
# TFFTEM E: (-59+2NR) ARG LEFT BY CALCTFF OR CALCTPER
|
||||||
# M: (-55+2NR) WHERE ARG = LCF ZZ SGN(DELF) OR ARG = LCP/ALFA SGN(DELF)
|
# M: (-55+2NR) WHERE ARG = LCP ZZ SGN(DELF) OR ARG = LCP/ALFA SGN(DELF)
|
||||||
# NRTERM E: (-29+NR) M NORM LENGTH OF TERMINAL RADIUS LEFT BY CALCTFF OR CALCTPER
|
# NRTERM E: (-29+NR) M NORM LENGTH OF TERMINAL RADIUS LEFT BY CALCTFF OR CALCTPER
|
||||||
# M: (-27+NR)
|
# M: (-27+NR)
|
||||||
# NRMAG E: (-29+NR) M NORM LENGTH OF PRESENT POSITION LEFT BY TFFCONIC
|
# NRMAG E: (-29+NR) M NORM LENGTH OF PRESENT POSITION LEFT BY TFFCONIC
|
||||||
|
|
@ -1120,7 +1121,7 @@ VRCALC VLOAD DOT
|
||||||
#
|
#
|
||||||
# FUNCTIONAL DESCRIPTION
|
# FUNCTIONAL DESCRIPTION
|
||||||
#
|
#
|
||||||
# COMPUTE DESIRED GIMBAL ANGLES FOR ENTRY ATTITUDE
|
# COMPUTE DESIRED GIMBOL ANGLES FOR ENTRY ATTITUDE
|
||||||
# THE FOLLOWING TRAJECTORY TRIAD IS AVAILABLE IN MEMORY AND IS COMPUTED EACH 2 SECONDS BY CM/POSE IN
|
# THE FOLLOWING TRAJECTORY TRIAD IS AVAILABLE IN MEMORY AND IS COMPUTED EACH 2 SECONDS BY CM/POSE IN
|
||||||
# REFERENCE COORDINATES (V = VELOCITY RELATIVE TO EARTH):
|
# REFERENCE COORDINATES (V = VELOCITY RELATIVE TO EARTH):
|
||||||
#
|
#
|
||||||
|
|
@ -1136,7 +1137,7 @@ VRCALC VLOAD DOT
|
||||||
# UZD = UXD * UYD
|
# UZD = UXD * UYD
|
||||||
#
|
#
|
||||||
# USE THE DESIRED SET (IN REFERENCE COORDS) AND REFSMMAT TO CALL CALCGA AND OBTAIN GIMBAL ANGLES
|
# USE THE DESIRED SET (IN REFERENCE COORDS) AND REFSMMAT TO CALL CALCGA AND OBTAIN GIMBAL ANGLES
|
||||||
# IN 2S, C IN MPAC, +2 AND THETAD, +2.
|
# IN 2S,C IN MPAC, +2 AND THETAD, +2.
|
||||||
#
|
#
|
||||||
# CALLING SEQUENCE
|
# CALLING SEQUENCE
|
||||||
#
|
#
|
||||||
|
|
@ -1158,14 +1159,14 @@ VRCALC VLOAD DOT
|
||||||
# ERASABLE INITIALIZATION REQUIRED
|
# ERASABLE INITIALIZATION REQUIRED
|
||||||
#
|
#
|
||||||
# ROLLC ROLL COMMAND DP 1'S COMP AT 1REV
|
# ROLLC ROLL COMMAND DP 1'S COMP AT 1REV
|
||||||
# ALFAPAD SP 1'S C / 180 LEFT BY PAD LOAD ALFATRIM IS NEGATIVE.
|
# ALFAPAD SP 1S,C / 180 LEFT BY PAD LOAD ALFATRIM IS NEGATIVE.
|
||||||
# UXA/2 REF COORDS LEFT BY CM/POSE
|
# UXA/2 REF COORDS LEFT BY CM/POSE
|
||||||
# UYA/2 REF COORDS LEFT BY CM/POSE
|
# UYA/2 REF COORDS LEFT BY CM/POSE
|
||||||
# UZA/2 REF COORDS LEFT BY CM/POSE
|
# UZA/2 REF COORDS LEFT BY CM/POSE
|
||||||
#
|
#
|
||||||
# OUTPUT
|
# OUTPUT
|
||||||
#
|
#
|
||||||
# CPHI GIMBAL ANGLES (O,I,M) 2'S COMP TP (O,I,M)/180
|
# CPHI GIMBAL ANGLES (O,I,M) 2:S COMP TP (O,I,M)/180
|
||||||
#
|
#
|
||||||
# DEBRIS
|
# DEBRIS
|
||||||
#
|
#
|
||||||
|
|
@ -1219,7 +1220,7 @@ S62.3 SETPD SLOAD
|
||||||
CPHIFLAG # CAUSE CALCGA TO STORE ANS IN TP CPHI
|
CPHIFLAG # CAUSE CALCGA TO STORE ANS IN TP CPHI
|
||||||
CALCGA
|
CALCGA
|
||||||
# CALCGA WILL RETURN TO ORIGINAL CALLER
|
# CALCGA WILL RETURN TO ORIGINAL CALLER
|
||||||
# VIA QPRET WITH 2'S COMP. ANGLES IN CPHI
|
# VIA QPRET WITH 2,S COMP. ANGLES IN CPHI
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Add table
Reference in a new issue