From 55bff792244bd2c3cc17291f8c8a72879cae900b Mon Sep 17 00:00:00 2001 From: Glenn Dwiyatcita Date: Fri, 19 Jul 2019 12:18:31 +0200 Subject: [PATCH] Proof P30-P37 #232 (#391) * Proof FIXED_FIXED_CONSTANT_POOL (#207) * wip(p636/648): Proof P30-P37 #232 * wip(p645/648): Proof P30-P37 #232 * done(p648/648): Proof P30-P37 #232 --- Comanche055/P30-P37.agc | 200 ++++++++++++++++++---------------------- 1 file changed, 91 insertions(+), 109 deletions(-) diff --git a/Comanche055/P30-P37.agc b/Comanche055/P30-P37.agc index be599c3..c984b37 100644 --- a/Comanche055/P30-P37.agc +++ b/Comanche055/P30-P37.agc @@ -59,7 +59,7 @@ END45 TC INTPRET RGEXIT COMPTGO EXTEND # USED TO COMPUTE TTOGO - QXCH PHSPRDT6 # ** GROUP 6 TEMPORARY USED, BEWARE ** + QXCH PHSPRDT6 # ** GROUP 6 TEMPORARY USED .. BEWARE ** TC UPFLAG # SET TIMRFLAG ADRES TIMRFLAG # BIT 11 FLAG 7 @@ -79,47 +79,49 @@ COMPTGO EXTEND # USED TO COMPUTE TTOGO TC PHSPRDT6 # Page 636 # PROGRAM DESCRIPTION P30 DATE 3-6-67 -# MOD. I BY S. ZELDIN: TO ADD P31 AND ADAPT P30 FOR P31 USE. 22DEC67 -# + +# MOD.I BY S. ZELDIN- TO ADD P31 AND AD APT P30 FOR P31 USE. 22DEC67 # FUNCTIONAL DESCRIPTION -# P30 (EXTERNAL DELTA-V TARGETING PROGRAM) -# ACCEPTS ASTRONAUT INPUTS OF TIG,DELV(LV) AND COMPUTES, FOR DISPLAY, -# APOGEE, PERIGEE, DELV(MAG), MGA ASSOCIATED WITH DESIRED MANEUVER. -# P31 (GENERAL LAMBERT AIMPOINT GUIDANCE) -# A GROUND RULE FOR P31 IS THE ANGLE BETWEEN THE TARGET VECTOR AND -# POSITION VECTOR AT TIG IS NOT 165-195 DEGREES APART -# BASED ON STORED INPUT OF OFFSET TARGET(B+29) AND DELTA T TRANS, AND -# ASTRONAUT ENTRY OF TIG, P31 COMPUTES REQUIRED VELOCITY FOR MANEUVER -# AND, FOR DISPLAY, APOGEE, PERIGEE, DELV(7AG), +MGA ASSOCIATED WITH -# DESIRED MANEUVER. -# +# +30(EXTERNAL DELTA-V TARGETTING PROGRAM) +# ACCEPTS ASTRONAUT INPUTS OF TIG,DELV(LV) AND COMPUTES,FOR DISPLAY, +# APOGEE,PERIGEE,DELV(MAG),MGA ASSOCIATED WITH DESIRED MANEUVER + +# P31(GENERAL LAMBERT AIMPOINT GUIDANCE) +# A GROUND RULE FOR P31 IS THE ANGLE BETWEEN THE TARGET VECTOR AND +# POSITION VECTOR AT TIG IS NOT 165-195 DEGREES APART +# BASED ON STORED INPUT OF OFFSET TARGET(B+29) AND DELTA T TRANS,AND +# ASTRONAUT ENTRY OF TIG,P31 COMPUTES REQUIRED VELOCITY FOR MANEUVER +# AND,FOR DISPLAY,APOGEE,PERIGEE,DELV(7AG),+MGA ASSOCIATED WITH +# DESIRED MANEUVER + # THE FOLLOWING SUBROUTINES ARE USED IN P30 AND P31 # S30.1 (P30 ONLY) # S31.1 (P31 ONLY) -# P30/P31 -- DISPLAYS TIG -# CNTUP30 -- DISPLAYS DELV(LV) -# PARAM30 -- DISPLAYS APOGEE, PERIGEE, DELV(MAG), MGA, TIME FROM TIG, -# MARKS SINCE LAST THRUSTING MANEUVER -# +# P30/P31 - DISPLAYS TIG +# CNTUP30 - DISPLAYS DELV(LV) +# PARAM30 - DISPLAYS APOGEE,PERIGEE,DELV(MAG),MGA,TIME FROM TIG, +# MARKS SINCE LAST THRUSTING MANEUVER + # CALLING SEQUENCE VIA JOB FROM V37 -# + # EXIT VIA V37 OR GOTOP00H -# + # OUTPUT FOR POWERED FLIGHT # VTIG X -# RTIG X SEE S30.1 -# DELVSIN X +# RTIG XSEE S30.1 +# DELVSIN X # VGDISP # RTARG X -# TPASS4 X SEE S31.1 +# TPASS4 X SEE S31.1 # X + COUNT 35/P30 P30 TC P30/P31 TC CNTNUP30 TC DOWNFLAG # RESET UPDATFLG - ADRES UPDATFLG # BIT 7 FLAG 1 + ADRES UPDATFLG # BIT 7 FLAG 1 TC INTPRET CALL S30.1 @@ -134,7 +136,7 @@ P31 TC P30/P31 TC DOWNFLAG ADRES UPDATFLG # RESET UPDATFLG BIT 7 FLAG 1 TC DOWNFLAG - ADRES NORMSW # RESET NORMSW BIT 10 FLAG 7 + ADRES NORMSW # RESET NORMSW BIT 10 FLAG 7 TC INTPRET CALL S31.1 @@ -142,7 +144,7 @@ P31 TC P30/P31 TC CNTNUP30 TC PARAM30 TC DOWNFLAG - ADRES XDELVFLG # BIT 8 FLAG 2. + ADRES XDELVFLG # BIT 8 FLAG 2 TCF GOTOP00H P30/P31 XCH Q @@ -181,7 +183,7 @@ PARAM30 XCH Q REFTEST CAF BIT13 MASK STATE +3 # REFSMFLAG EXTEND - BZF NOTSET # REFSMFLAG =0, THEN BRANCH TO NOTSET + BZF NOTSET # REFSMFLAG =0 , THEN BRANCH TO NOTSET TC INTPRET VLOAD PUSH DELVSIN @@ -199,7 +201,7 @@ FLASHMGA CALL TC P30/31RT MARSDP OCT 00000 # (00000) (16440) = (+00001) OCT 35100 - # ( .01 ) DEGREES IN THE LOW ORDER REGISTER + # ( .01 ) DEGREES IN THE LOW ORDER REGISTE V06N33 VN 0633 V06N42 VN 0642 @@ -208,45 +210,39 @@ V06N45 VN 0645 # Page 639 # PROGRAM DESCRIPTION S30.1 DATE 9NOV66 + # MOD NO 1 LOG SECTION P30,P37 # MOD BY RAMA AIYAWAR ** -# MOD.2 BY S.ZELDIN -- TO CORRECT MOD.1 FOR COLOSSUS 29DEC67 -# +# MOD.2 BY S.ZELDIN - TO CORRECT MOD.1 FOR COLOSSUS 29DEC67 # FUNCTIONAL DESCRIPTION -# BASED ON STORED TARGET PARAMETERS (R OF IGNITION (RTIG), V OF -# IGNITION (VTIG), TIME OF IGNITION (TIG)), DELV(LV), COMPUTE PERIGEE ALTITUDE -# APOGEE ALTITUDE AND DELTA-V REQUIRED IN REF. COORDS. (DELVSIN). -# +# BASED ON STORED TARGET PARAMETERS(R OF IGNITION(RTIG),V OF +# IGNITION(VTIG),TIME OF IGNITION(TIG),DELV(LV),COMPUTE PERIGEE ALTITUDE +# A+OGEE ALTITUDE AND DELTA-V REQUIRED IN REF. COORDS.(DELVSIN) # CALLING SEQUENCE # L CALL # L+1 S30.1 -# # NORMAL EXIT MODE # AT L+2 OR CALLING SEQUENCE (GOTO L+2) -# # SUBROUTINES CALLED # THISPREC # PERIAPO -# # ALARM OR ABORT EXIT MODES -# NONE -# +# NONE # ERASABLE INITIALIZATION REQUIRED -# TIG TIME OF IGNITION DP B28CS +# TIG TIME OF IGNITION DP B28CS # DELVSLV SPECIFIED DELTA-V IN LOCAL VERT. # COORDS. OF ACTIVE VEHICLE AT -# TIME OF IGNITION VCT. B+7 M/CS +# TIME OF IGNITION VCT. B+7M/CS # # OUTPUT -# RTIG POSITION AT TIG VCT. B+29 M -# VTIG VELOCITY AT TIG VCT. B+7 M -# HAPO APOGEE ALT. DP B+29 M -# HPER PERIGEE ALT. DP B+29 M -# DELVSIN DELVSLV IN REF COORDS VCT. B+7 M/CS -# VGDISP MAG. OF DELVSIN DP B+7 M/CS -# -# DEBRIS QTEMP TEMP.ERASABLE -# QPRET, MPAC +# RTIG POSITION AT TIG VCT. B+29M +# VTIG VELOCITY AT TIG VCT. B+7M +# HAPO APOGEE ALT. DP B+29M +# HPER PERIGEE ALT. DP B+29M +# DELVSIN DELVSLV IN REF COORDS VCT. B+7M/CS +# VGDISP MAG. OF DELVSIN DP B+7M/CS +# DEBRIS QTEMP TEMP. ERASABLE +# QPRET,MPAC # PUSHLIST SETLOC P30S1A @@ -302,38 +298,33 @@ S30.1 STQ DLOAD # Page 641 # S31.1 PROGRAM DESCRIPTION 28DEC67 # MOD.1 BY S.ZELDIN -# + # S31.1 COMPUTES DELV IN REF AND LV COORDS,MAG OF DELV,INTERCEPT TIME, # APOGEE AND PERIGEE ALT FOR REQUIRED MANEUVER -# + # CALLING SEQUENCE # L CALL # L+1 S31.1 -# + # NORMAL EXIT MODE -# AT L +2 OF CALLING SEQUENCE (GOTO L+2) -# +# AT L +2 OF CALLING SEQUENCE(GOTO L+2) # SUBROUTINES CALLED # AGAIN # PERIAPO1 # SHIFTR1 # MIDGIM -# # NO ALARM OR ABORT MODES -# # INPUT # DELLT4 DP +28 -# TIG DP +28 +# TIG DP +28 # RTARG VCT +29 -# # OUTPUT # DELVLVC VCT +7 # VGDISP DP +7 # HAPO DP +29 # HPER DP +29 # TPASS4 DP +28 -# -# DEBRIS -- QTEMP +# DEBRIS - QTEMP S31.1 STQ DLOAD QTEMP @@ -361,7 +352,7 @@ S31.1 STQ DLOAD STORE 0 SET CALL AVFLAG - MIDGIM # GET DELVLVC B7 FOR DISPLAY + MIDGIM # GET DELVLVC B7 FORDISPLAY ABVAL STODL VGDISP # B+7 FOR DISPLAY DELLT4 @@ -371,35 +362,28 @@ S31.1 STQ DLOAD QTEMP # Page 643 -# SUBROUTINE NAME: DELRSPL (CONTINUATION OF V 82 IN CSM IF P11 ACTIVE) +# SUBROUTINE NAME: DELRSPL (CONTINUATION OF V 82 IN CSM IF P11 ACTI # TRANSFERRED COMPLETELY FROM SUNDISK, P30S REV 33. 9 SEPT 67. -# MOD NO: 0 MOD BY: ZELDIN DATE: -# MOD NO: 1 MOD BY: RR BAIRNSFATHER DATE: 11 APR 67 -# MOD NO: 2 MOD BY: RR BAIRNSFATHER DATE: 12 MAY 67 ADD UR.RT CALC WHEN BELOW 300K FT -# MOD NO: 2.1 MOD BY: RR BAIRNSFATHER DATE: 5 JULY 67 FIX ERROR ON MOD. 2 -# MOD NO: 3 MOD BY: RR BAIRNSFATHER DATE: 12 JUL 67 CHANGE SIGN OF DISPLAYED ERROR. -# MOD 4 MOD BY S.ZELDIN DATE: 3 APRIL 68 CHANGE EQUATIONS FOR L/D=.16 WHICH REPLA -# -# FUNCTION: CALCULATE (FOR DISPLAY ON CALL) AN APPROXIMATE MEASURE OF IN-PLANE SPLASH DOWN -# ERROR. IF THE FREE-FALL TRANSFER ANGLE TO 300K FT ABOVE PAD RADIUS IS POSITIVE: -# SPLASH ERROR= -RANGE TO TARGET + FREE-FALL TRANSFER ANGLE + ESTIMATED ENTRY ANGLE. -# THE TARGET LOCATION AT ESTIMATED TIME OF IMPACT IS USED. IF THE FREE-FALL TRANSFER -# ANGLE IS NEGATIVE: SPASH ERROR= -RANGE TO TARGET. -# THE PRESENT TARGET LOCATION IS USED. -# -# CALLING SEQUENCE: CALLED AFTER SR30.1 IF IN CSM AND IF P11 OPERATING (UNDER CONTROL OF V82) -# +# MOD NO: 0 MOD BY: ZELDIN DATE: +# MOD NO: 1 MOD BY: RR BAIRNSFATHER DATE: 11 APR 67 +# MOD NO: 2 MOD BY: RR BAIRNSFATHER DATE: 12 MAY 67 ADD UR.RT CALC WHEN BELOW 300K FT +# MOD NO: 2.1 MOD BY: RR BAIRNSFATHER DATE: 5 JULY 67 FIX ERROR ON MOD. 2. +# MOD NO: 3 MOD BY: RR BAIRNSFATHER DATE: 12 JUL 67 CHANGE SIGN OF DISPLAYED ERROR. +# MOD 4 MOD BY S.ZELDIN DATE 3 APRIL 68 CHANGE EQUATIONS FOR L/D=.18 WHICH REPLA +# FUNCTION: CALCULATE (FOR DISPLAY ON CALL) AN APPROXIMATE MEASURE OF IN-PLANE SPLASH DOWN +# ERROR. IF THE FREE-FALL TRANSFER ANGLE TO 300K FT ABOVE PAD RADIUS IS POSITIVE: +# SPLASH ERROR= -RANGE TO TARGET + FREE-FALL TRANSFER ANGLE + ESTIMATED ENTRY ANGLE. +# THE TARGET LOCATION AT ESTIMATED TIME OF IMPACT IS USED. IF THE FREE-FALL TRANSFER +# ANGLE IS NEGATIVE: SPASH ERROR= -RANGE TO TARGET +# THE PRESENT TARGET LOCATION IS USED. +# CALLING SEQUENCE CALLED AFTER SR30.1 IF IN CSM AND IF P11 OPERATING (UNDER CONTROL OF V82) # SUBROUTINES CALLED: VGAMCALC, TFF/TRIG, LALOTORV. -# -# EXIT: RETURN DIRECTLY TO V 82 PROG. AT SPLRET -# -# ERASABLE INITIALIZATION: LEFT BY SR30.1 AND V82GON1 -# -# OUTPUT: RSP-RREC RANGE IN REVOLUTIONS. DSKY DISPLAY IN N. MI. -# -# DEBRIS: QPRET, PDL0 ... PDL7, PDL10. +# EXIT: RETURN DIRECTLY TO V 82 PROG. AT SPLRET +# ERASABLE INITIALIZATION LEFT BY SR30.1 AND V82GON1 +# OUTPUT: RSP-RREC RANGE IN REVOLUTIONS. DSKY DISPLAY IN N. MI. +# DEBRIS: QPRET, PDL0 ...PDL7 ,PDL10 -# THETA(1) +# THETA(1) BANK 32 SETLOC DELRSPL1 @@ -452,7 +436,7 @@ DELRDONE STCALL RSP-RREC # DOWNRANGE RECOVERY RANGE ERROR /360 SPLRET CANTDO DLOAD PDDL # INITIALIZE ERASE TO DOT TARGET AND UR # FOR RANGE ANGLE. - HIDPHALF # TO PDL 0 FOR DEN INDDV. + HIDPHALF # TO PDL 0 FOR DEN IN DDV. HI6ZEROS PUSH # ZERO TO PDL 2 FOR PHI ENTRY STCALL 8D @@ -533,20 +517,21 @@ MAXPHIC 2DEC .09259298 # 2000 NM FOR MAXIMUM PHI ENTRY COUNT* $$/P30 # BELOW - # **** TABLE IS INDEXED. KEEP IN ORDER *** - 2DEC 7.07304526 E-4 # 5500 + # <<<< TABLE IS INDEXED. KEEP IN ORDER >>>> - 2DEC 3.08641975 E-4 # 2400 + 2DEC 7.07304526 E-4 # 5500 - 2DEC 3.08641975 E-4 # 2400 + 2DEC 3.08641975 E-4 # 2400 - 2DEC -8.8888888 E-3 # -3.2 + 2DEC 3.08641975 E-4 # 2400 - 2DEC 2.7777777 E-3 # 1 + 2DEC -8.8888888 E-3 # -3.2 -CK1K2 2DEC 6.6666666 E-3 # 2.4 + 2DEC 2.7777777 E-3 # 1 - 2DEC 0 # 0 +CK1K2 2DEC 6.6666666 E-3 # 2.4 + + 2DEC 0 # 0 2DEC* -1.86909989 E-5 B7* # -.443 @@ -556,7 +541,7 @@ CK1K2 2DEC 6.6666666 E-3 # 2.4 2DEC* 9.56911636 E-4 B7* # .00105 -YK1K2 2DEC* 2.59733157 E-4 B7* # .000285 +YK1K2 2DEC* 2.59733157 E-4 B7* # .000285 V(400) 2DEC 1.2192 B-7 @@ -576,9 +561,9 @@ V(21K) 2DEC 64.000 B-7 TLESS26 2DEC* 5.70146688 E7 B-35* # 8660PHI/V -TGR26CON 2DEC 7.2 E5 B-28 # PHI/3 +TGR26CON 2DEC 7.2 E5 B-28 # PHI/3 -V(26K) 2DEC 79.248 B-7 # 26000 +V(26K) 2DEC 79.248 B-7 # 26000 # Page 647 @@ -587,16 +572,15 @@ X1CON DEC 10 DEC 8 DEC 6 - # **** TABLE IS INDEXED. KEEP IN ORDER *** + # <<<< TABLE IS INDEXED. KEEP IN ORDER >>>> # ABOVE # Page 648 -# ***** AVFLAG/P ***** -# +# ***** AVFLAGA/P ***** + # SUBROUTINES USED -# + # UPFLAG # DOWNFLAG - SETLOC P30SUBS BANK EBANK= SUBEXIT @@ -624,6 +608,4 @@ P20FLGON EXTEND ADRES TRACKFLG TC UPFLAG ADRES UPDATFLG - TC SUBEXIT # DP B4 - - + TC SUBEXIT # DP B4