diff --git a/Comanche055/P61-P67.agc b/Comanche055/P61-P67.agc index 1c2dbac..9f6615b 100644 --- a/Comanche055/P61-P67.agc +++ b/Comanche055/P61-P67.agc @@ -47,7 +47,7 @@ # EMSALT (-29) M .05G ALTITUDE ABOVE FISCHER ELLIPSOID PAD LOADED. # ALFAPAD /180 HYPERSONIC CM TRIM ANGLE OF ATTACK PAD LOADED # 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 # GAMMAEI (GAMMA/360 PREDICTED GAMMA AT 400K FT # 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 # LAT(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. BANK 26 @@ -120,7 +120,7 @@ DUMPP61 DLOAD DSU S61.2 # GET DISPLAY DATA FOR N60 AND N63 # AND RETURN IN BASIC, BELOW. P61.1 TC CLEARMRK - CA V06N60 # GMAX VPRED GAMMAEI + CA V06N60 # GMAX VPRED GAMMAE1 # XXX.XX G XXXXX. FPS XXX.XX DEG TC BANKCALL CADR GOFLASH @@ -201,9 +201,9 @@ P62.2 EXTEND TC GOTOPOOH TC +3 # PROCEED # Page 793 - # NOTE: NODOFLAG WILL BE SET IN CM/DAPON. *** + # NOTE: NODOFLAG WILL BE SET IN CM/DAPON. <<< TC -5 # ENTER - TC P61.3 # FOR PHASCHNG AND ENDOFJOB + TC P61.3 # FOR PHASCHNG AND ENDOFJOB. +3 TC POSTJUMP 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 BY: R. HIRSCHKOP # 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 # DRAG THRESHOLD, KA, WHICH ARE KEYED TO THE .05G POINT. # 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. # SUBROUTINE CALLS: NEWMODEX - BANK 25 + BANK 26 SETLOC P60S1 BANK @@ -383,7 +384,7 @@ V06N74 VN 0674 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. CA PRIO13 @@ -517,10 +518,10 @@ SERVCAD2 = SERVCAD1 # MOD BY: RR BAIRNSFATHER LOG SECTION: P61-P67 # MOD NO: 1 MOD BY: RR BAIRNSFATHER DATE: 22 JUN 67 RESTARTS. # 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 -# 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 -# 30 DEG OF VAR. IF YES, DISPLAY ALARM: 01427 IMU REVERSED. +# 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 +# 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 V*R. IF YES, DISPLAY ALARM: 01427 IMU REVERSED. # IF NO, DISPLAY ALARM: 01426 IMU UNSATISFACTORY. # 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 # PUSHLOC UNSPECIFIED # -# SUBROUTINES CALLED: LOADTIME, CSMPREC, TPAGTREE, +# SUBROUTINES CALLED: LOADTIME, CSMPREC, TPAGREE, # WAITLIST, JOBSLEEP, JOBWAKE, PREREAD, ALARM, GODSPR, BANKCALL, DELAYJOB # # NORMAL EXIT MODES: RVQ @@ -555,7 +556,7 @@ SERVCAD2 = SERVCAD1 # POSSIBLY PIPTIME1, RATT, VATT, TDEC1, RN1, VN1, QTEMP, X1 IF UPDATED # PUSH LIST LOCS USED BY CSMPREC - EBANK= AOG # FOR 60GENRET, S61DT + EBANK= AOG # FOR 60GENRET. S61DT BANK 26 SETLOC P60S3 BANK @@ -650,17 +651,17 @@ C(30)LIM 2DEC .566985 # = 1.0 - .5 COS(30) # Page 806 # PROGRAM NAME: S61.2 DATE: 14 FEB 67 # MOD NO: 1 LOG SECTION: P61-P67 -# MOD BY: NORTH / BAIRNSFATHER -# MOD NO: 2 MOD BY: NORTH/BAIRNSFATHER DATE: 11 MAY 67 ADD 2ND ITER FOR ERAD AT 400K FT. +# MOD BY: MORTH / BAIRNSFATHER +# 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: 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 . -# 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 -# 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 -# GO FROM NOW (TTE) . +# 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 +# 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 +# AND CONSISTS OF RANGE TO SPLASH FROM NOW (RTGO), PREDICTED INERTIAL VELOCITY (VIO), AND THE TIME TO +# GO FROM NOW (TTE). # # CALLING SEQUENCE: CALL # 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 # UNITW (0) UNIT POLAR VECTOR 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, # ALL PDL LOCATIONS ABOVE 12D, INCLUDING X1,X2,S1,S2 @@ -790,7 +791,7 @@ CALLCON CALL 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. # GMAXCALC @@ -822,7 +823,7 @@ CALLCON CALL # Page 810 # DISPLAY USES GMAX AS SP, SO LO WORD IS WRITTEN OVER BY VPRED. ERADM # = FISCHER RADIUS (-29) M - DAD CALL # 2 ND ITERATION FOR FISCHER RADIUS + DAD CALL # 2ND ITERATION FOR FISCHER RADIUS 400KFT CALCTFF # ESTABLISH TRANSFER ANGLE DATA. CALL @@ -855,7 +856,7 @@ LUNENT DLOAD GOTO CALLCON 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) @@ -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 # Page 811 - # ASSUMES L/D = 0.3, BANK =0. -RTRIAL 2DEC 6460097.18 B-29 # RPAD +264643 FT =21 194 545 FT - # RPAD DEFINED AS 20 909 901.57 FT =6 373 336 M + # ASSUMES L/D = 0.3, BANK = 0. +RTRIAL 2DEC 6460097.18 B-29 # RPAD +284643 FT =21 194 545 FT + # RPAD DEFINED AS 20 909 901.57 FT =6 373 338 M 400KFT 2DEC 121920 B-29 # METERS # 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 # 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 # FISHCALC # ENTER WITH .5 SIN(THETA) IN MPAC. # PUSHLOC IS AT PDL+0, AN ARBITRARY BASE VALUE IF LEQ 8D # -# SUBROUTINES CALLED: GET ERAD +# SUBROUTINES CALLED: GETERAD # # NORMAL EXIT MODE: RVQ # @@ -956,7 +957,7 @@ DUMPFISH GOTO # # 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 # MAKE THIS ASSUMPTION. @@ -977,7 +978,7 @@ DUMPFISH GOTO # PUSHLOC AT PDL+2 # # 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 # NRMAG E: (-29+NR) M NORM LENGTH OF PRESENT POSITION LEFT BY TFFCONIC # M: (-27+NR) @@ -994,7 +995,7 @@ DUMPFISH GOTO PREVGAM SL* # ENTER WITH NEW RTERM IN MPAC # E: (-29) M: (-27) - 0,1 # X1 = -NR + 0.1 # X1 = -NR STORE NRTERM # RTERM M E: (-29+NR) M: (-27+NR) VGAMCALC DLOAD DMP @@ -1060,7 +1061,7 @@ DUMPVGAM RVQ # ERASABLE INITIALIZATION REQUIRED: # TFFX X 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 # M: (-27+NR) # NRMAG E: (-29+NR) M NORM LENGTH OF PRESENT POSITION LEFT BY TFFCONIC @@ -1120,7 +1121,7 @@ VRCALC VLOAD DOT # # 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 # REFERENCE COORDINATES (V = VELOCITY RELATIVE TO EARTH): # @@ -1136,7 +1137,7 @@ VRCALC VLOAD DOT # UZD = UXD * UYD # # 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 # @@ -1158,14 +1159,14 @@ VRCALC VLOAD DOT # ERASABLE INITIALIZATION REQUIRED # # 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 # UYA/2 REF COORDS LEFT BY CM/POSE # UZA/2 REF COORDS LEFT BY CM/POSE # # 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 # @@ -1219,7 +1220,7 @@ S62.3 SETPD SLOAD CPHIFLAG # CAUSE CALCGA TO STORE ANS IN TP CPHI CALCGA # CALCGA WILL RETURN TO ORIGINAL CALLER - # VIA QPRET WITH 2'S COMP. ANGLES IN CPHI + # VIA QPRET WITH 2,S COMP. ANGLES IN CPHI