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
2019-07-19 12:18:31 +02:00 · 2019-07-19 12:18:31 +02:00 · 55bff79224
commit 55bff79224
parent 3913f198f4
1 changed files with 91 additions and 109 deletions
--- 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,32 +79,33 @@ 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)
+# +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.
+#	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.
-#
+#	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,
+#	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	 XSEE S30.1
@ -114,6 +115,7 @@ COMPTGO		EXTEND			# USED TO COMPUTE TTOGO
 #	TPASS4	 X SEE S31.1
 #		X

+
 		COUNT	35/P30

 P30		TC	P30/P31
@ -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
@ -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,29 +210,24 @@ 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).
-#
+# 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
-#
 # ERASABLE INITIALIZATION REQUIRED
 #	TIG		TIME OF IGNITION	DP	B28CS
 #	DELVSLV		SPECIFIED DELTA-V IN LOCAL VERT.
@ -244,7 +241,6 @@ V06N45		VN	0645
 #	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
@ -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)
-#
 # SUBROUTINES CALLED
 #	AGAIN
 #	PERIAPO1
 #	SHIFTR1
 #	MIDGIM
-#
 # NO ALARM OR ABORT MODES
-#
 # INPUT
 #	DELLT4		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
@ -371,33 +362,26 @@ 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: 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
-#
+# 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.
+#			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)
-#
+# 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
-#
+# ERASABLE INITIALIZATION  LEFT BY SR30.1 AND V82GON1
 # OUTPUT:	RSP-RREC RANGE IN REVOLUTIONS.  			DSKY DISPLAY IN N. MI.
-#
-# DEBRIS:	QPRET, PDL0 ... PDL7, PDL10.
+# DEBRIS:	QPRET, PDL0 ...PDL7 ,PDL10

 # 		THETA(1)

@ -533,7 +517,8 @@ MAXPHIC		2DEC	.09259298	# 2000 NM FOR MAXIMUM PHI ENTRY
 		COUNT*	$$/P30

 					# 		BELOW
-					# **** TABLE IS INDEXED. KEEP IN ORDER ***
+					# <<<< TABLE IS INDEXED. KEEP IN ORDER >>>>
+
 		2DEC	7.07304526 E-4	# 5500

 		2DEC	3.08641975 E-4	# 2400
@ -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
@ -625,5 +609,3 @@ P20FLGON	EXTEND
 		TC	UPFLAG
 		ADRES	UPDATFLG
 		TC	SUBEXIT		# DP	B4
-
-