kjodle/Apollo-11
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Proof P30-P37 #232 (#391)

Browse Source 
* 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
This commit is contained in:
Glenn Dwiyatcita 2019-07-19 12:18:31 +02:00 committed by James Harris
parent 3913f198f4
commit 55bff79224
1 changed files with 91 additions and 109 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

200
Comanche055/P30-P37.agc
View File

@ -59,7 +59,7 @@ END45 TC INTPRET
RGEXIT RGEXIT
COMPTGO EXTEND # USED TO COMPUTE TTOGO COMPTGO EXTEND # USED TO COMPUTE TTOGO
QXCH PHSPRDT6 # ** GROUP 6 TEMPORARY USED, BEWARE ** QXCH PHSPRDT6 # ** GROUP 6 TEMPORARY USED .. BEWARE **
TC UPFLAG # SET TIMRFLAG TC UPFLAG # SET TIMRFLAG
ADRES TIMRFLAG # BIT 11 FLAG 7 ADRES TIMRFLAG # BIT 11 FLAG 7
@ -79,47 +79,49 @@ COMPTGO EXTEND # USED TO COMPUTE TTOGO
TC PHSPRDT6 TC PHSPRDT6
# Page 636 # Page 636
# PROGRAM DESCRIPTION P30 DATE 3-6-67 # 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 # 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, # 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 # P31(GENERAL LAMBERT AIMPOINT GUIDANCE)
# POSITION VECTOR AT TIG IS NOT 165-195 DEGREES APART # A GROUND RULE FOR P31 IS THE ANGLE BETWEEN THE TARGET VECTOR AND
# BASED ON STORED INPUT OF OFFSET TARGET(B+29) AND DELTA T TRANS, AND # POSITION VECTOR AT TIG IS NOT 165-195 DEGREES APART
# ASTRONAUT ENTRY OF TIG, P31 COMPUTES REQUIRED VELOCITY FOR MANEUVER # BASED ON STORED INPUT OF OFFSET TARGET(B+29) AND DELTA T TRANS,AND
# AND, FOR DISPLAY, APOGEE, PERIGEE, DELV(7AG), +MGA ASSOCIATED WITH # ASTRONAUT ENTRY OF TIG,P31 COMPUTES REQUIRED VELOCITY FOR MANEUVER
# DESIRED MANEUVER. # AND,FOR DISPLAY,APOGEE,PERIGEE,DELV(7AG),+MGA ASSOCIATED WITH
# # DESIRED MANEUVER
# THE FOLLOWING SUBROUTINES ARE USED IN P30 AND P31 # THE FOLLOWING SUBROUTINES ARE USED IN P30 AND P31
# S30.1 (P30 ONLY) # S30.1 (P30 ONLY)
# S31.1 (P31 ONLY) # S31.1 (P31 ONLY)
# P30/P31 -- DISPLAYS TIG # P30/P31 - DISPLAYS TIG
# CNTUP30 -- DISPLAYS DELV(LV) # CNTUP30 - DISPLAYS DELV(LV)
# PARAM30 -- DISPLAYS APOGEE, PERIGEE, DELV(MAG), MGA, TIME FROM TIG, # PARAM30 - DISPLAYS APOGEE,PERIGEE,DELV(MAG),MGA,TIME FROM TIG,
# MARKS SINCE LAST THRUSTING MANEUVER # MARKS SINCE LAST THRUSTING MANEUVER
#
# CALLING SEQUENCE VIA JOB FROM V37 # CALLING SEQUENCE VIA JOB FROM V37
#
# EXIT VIA V37 OR GOTOP00H # EXIT VIA V37 OR GOTOP00H
#
# OUTPUT FOR POWERED FLIGHT # OUTPUT FOR POWERED FLIGHT
# VTIG X # VTIG X
# RTIG X SEE S30.1 # RTIG XSEE S30.1
# DELVSIN X # DELVSIN X
# VGDISP # VGDISP
# RTARG X # RTARG X
# TPASS4 X SEE S31.1 # TPASS4 X SEE S31.1
# X # X
COUNT 35/P30 COUNT 35/P30
P30 TC P30/P31 P30 TC P30/P31
TC CNTNUP30 TC CNTNUP30
TC DOWNFLAG # RESET UPDATFLG TC DOWNFLAG # RESET UPDATFLG
ADRES UPDATFLG # BIT 7 FLAG 1 ADRES UPDATFLG # BIT 7 FLAG 1
TC INTPRET TC INTPRET
CALL CALL
S30.1 S30.1
@ -134,7 +136,7 @@ P31 TC P30/P31
TC DOWNFLAG TC DOWNFLAG
ADRES UPDATFLG # RESET UPDATFLG BIT 7 FLAG 1 ADRES UPDATFLG # RESET UPDATFLG BIT 7 FLAG 1
TC DOWNFLAG TC DOWNFLAG
ADRES NORMSW # RESET NORMSW BIT 10 FLAG 7 ADRES NORMSW # RESET NORMSW BIT 10 FLAG 7
TC INTPRET TC INTPRET
CALL CALL
S31.1 S31.1
@ -142,7 +144,7 @@ P31 TC P30/P31
TC CNTNUP30 TC CNTNUP30
TC PARAM30 TC PARAM30
TC DOWNFLAG TC DOWNFLAG
ADRES XDELVFLG # BIT 8 FLAG 2. ADRES XDELVFLG # BIT 8 FLAG 2
TCF GOTOP00H TCF GOTOP00H
P30/P31 XCH Q P30/P31 XCH Q
@ -181,7 +183,7 @@ PARAM30 XCH Q
REFTEST CAF BIT13 REFTEST CAF BIT13
MASK STATE +3 # REFSMFLAG MASK STATE +3 # REFSMFLAG
EXTEND EXTEND
BZF NOTSET # REFSMFLAG =0, THEN BRANCH TO NOTSET BZF NOTSET # REFSMFLAG =0 , THEN BRANCH TO NOTSET
TC INTPRET TC INTPRET
VLOAD PUSH VLOAD PUSH
DELVSIN DELVSIN
@ -199,7 +201,7 @@ FLASHMGA CALL
TC P30/31RT TC P30/31RT
MARSDP OCT 00000 # (00000) (16440) = (+00001) MARSDP OCT 00000 # (00000) (16440) = (+00001)
OCT 35100 OCT 35100
# ( .01 ) DEGREES IN THE LOW ORDER REGISTER # ( .01 ) DEGREES IN THE LOW ORDER REGISTE
V06N33 VN 0633 V06N33 VN 0633
V06N42 VN 0642 V06N42 VN 0642
@ -208,45 +210,39 @@ V06N45 VN 0645
# Page 639 # Page 639
# PROGRAM DESCRIPTION S30.1 DATE 9NOV66 # PROGRAM DESCRIPTION S30.1 DATE 9NOV66
# MOD NO 1 LOG SECTION P30,P37 # MOD NO 1 LOG SECTION P30,P37
# MOD BY RAMA AIYAWAR ** # 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 # FUNCTIONAL DESCRIPTION
# BASED ON STORED TARGET PARAMETERS (R OF IGNITION (RTIG), V OF # BASED ON STORED TARGET PARAMETERS(R OF IGNITION(RTIG),V OF
# IGNITION (VTIG), TIME OF IGNITION (TIG)), DELV(LV), COMPUTE PERIGEE ALTITUDE # IGNITION(VTIG),TIME OF IGNITION(TIG),DELV(LV),COMPUTE PERIGEE ALTITUDE
# APOGEE ALTITUDE AND DELTA-V REQUIRED IN REF. COORDS. (DELVSIN). # A+OGEE ALTITUDE AND DELTA-V REQUIRED IN REF. COORDS.(DELVSIN)
#
# CALLING SEQUENCE # CALLING SEQUENCE
# L CALL # L CALL
# L+1 S30.1 # L+1 S30.1
#
# NORMAL EXIT MODE # NORMAL EXIT MODE
# AT L+2 OR CALLING SEQUENCE (GOTO L+2) # AT L+2 OR CALLING SEQUENCE (GOTO L+2)
#
# SUBROUTINES CALLED # SUBROUTINES CALLED
# THISPREC # THISPREC
# PERIAPO # PERIAPO
#
# ALARM OR ABORT EXIT MODES # ALARM OR ABORT EXIT MODES
# NONE # NONE
#
# ERASABLE INITIALIZATION REQUIRED # ERASABLE INITIALIZATION REQUIRED
# TIG TIME OF IGNITION DP B28CS # TIG TIME OF IGNITION DP B28CS
# DELVSLV SPECIFIED DELTA-V IN LOCAL VERT. # DELVSLV SPECIFIED DELTA-V IN LOCAL VERT.
# COORDS. OF ACTIVE VEHICLE AT # COORDS. OF ACTIVE VEHICLE AT
# TIME OF IGNITION VCT. B+7 M/CS # TIME OF IGNITION VCT. B+7M/CS
# #
# OUTPUT # OUTPUT
# RTIG POSITION AT TIG VCT. B+29 M # RTIG POSITION AT TIG VCT. B+29M
# VTIG VELOCITY AT TIG VCT. B+7 M # VTIG VELOCITY AT TIG VCT. B+7M
# HAPO APOGEE ALT. DP B+29 M # HAPO APOGEE ALT. DP B+29M
# HPER PERIGEE ALT. DP B+29 M # HPER PERIGEE ALT. DP B+29M
# DELVSIN DELVSLV IN REF COORDS VCT. B+7 M/CS # DELVSIN DELVSLV IN REF COORDS VCT. B+7M/CS
# VGDISP MAG. OF DELVSIN DP B+7 M/CS # VGDISP MAG. OF DELVSIN DP B+7M/CS
# # DEBRIS QTEMP TEMP. ERASABLE
# DEBRIS QTEMP TEMP.ERASABLE # QPRET,MPAC
# QPRET, MPAC
# PUSHLIST # PUSHLIST
SETLOC P30S1A SETLOC P30S1A
@ -302,38 +298,33 @@ S30.1 STQ DLOAD
# Page 641 # Page 641
# S31.1 PROGRAM DESCRIPTION 28DEC67 # S31.1 PROGRAM DESCRIPTION 28DEC67
# MOD.1 BY S.ZELDIN # MOD.1 BY S.ZELDIN
#
# S31.1 COMPUTES DELV IN REF AND LV COORDS,MAG OF DELV,INTERCEPT TIME, # S31.1 COMPUTES DELV IN REF AND LV COORDS,MAG OF DELV,INTERCEPT TIME,
# APOGEE AND PERIGEE ALT FOR REQUIRED MANEUVER # APOGEE AND PERIGEE ALT FOR REQUIRED MANEUVER
#
# CALLING SEQUENCE # CALLING SEQUENCE
# L CALL # L CALL
# L+1 S31.1 # L+1 S31.1
#
# NORMAL EXIT MODE # NORMAL EXIT MODE
# AT L +2 OF CALLING SEQUENCE (GOTO L+2) # AT L +2 OF CALLING SEQUENCE(GOTO L+2)
#
# SUBROUTINES CALLED # SUBROUTINES CALLED
# AGAIN # AGAIN
# PERIAPO1 # PERIAPO1
# SHIFTR1 # SHIFTR1
# MIDGIM # MIDGIM
#
# NO ALARM OR ABORT MODES # NO ALARM OR ABORT MODES
#
# INPUT # INPUT
# DELLT4 DP +28 # DELLT4 DP +28
# TIG DP +28 # TIG DP +28
# RTARG VCT +29 # RTARG VCT +29
#
# OUTPUT # OUTPUT
# DELVLVC VCT +7 # DELVLVC VCT +7
# VGDISP DP +7 # VGDISP DP +7
# HAPO DP +29 # HAPO DP +29
# HPER DP +29 # HPER DP +29
# TPASS4 DP +28 # TPASS4 DP +28
# # DEBRIS - QTEMP
# DEBRIS -- QTEMP
S31.1 STQ DLOAD S31.1 STQ DLOAD
QTEMP QTEMP
@ -361,7 +352,7 @@ S31.1 STQ DLOAD
STORE 0 STORE 0
SET CALL SET CALL
AVFLAG AVFLAG
MIDGIM # GET DELVLVC B7 FOR DISPLAY MIDGIM # GET DELVLVC B7 FORDISPLAY
ABVAL ABVAL
STODL VGDISP # B+7 FOR DISPLAY STODL VGDISP # B+7 FOR DISPLAY
DELLT4 DELLT4
@ -371,35 +362,28 @@ S31.1 STQ DLOAD
QTEMP QTEMP
# Page 643 # 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. # TRANSFERRED COMPLETELY FROM SUNDISK, P30S REV 33. 9 SEPT 67.
# MOD NO: 0 MOD BY: ZELDIN DATE: # MOD NO: 0 MOD BY: ZELDIN DATE:
# MOD NO: 1 MOD BY: RR BAIRNSFATHER DATE: 11 APR 67 # 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 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 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
# 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:
# 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.
# 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
# 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.
# 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. # SUBROUTINES CALLED: VGAMCALC, TFF/TRIG, LALOTORV.
# # EXIT: RETURN DIRECTLY TO V 82 PROG. AT SPLRET
# 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.
# ERASABLE INITIALIZATION: LEFT BY SR30.1 AND V82GON1 # DEBRIS: QPRET, PDL0 ...PDL7 ,PDL10
#
# OUTPUT: RSP-RREC RANGE IN REVOLUTIONS. DSKY DISPLAY IN N. MI.
#
# DEBRIS: QPRET, PDL0 ... PDL7, PDL10.
# THETA(1) # THETA(1)
BANK 32 BANK 32
SETLOC DELRSPL1 SETLOC DELRSPL1
@ -452,7 +436,7 @@ DELRDONE STCALL RSP-RREC # DOWNRANGE RECOVERY RANGE ERROR /360
SPLRET SPLRET
CANTDO DLOAD PDDL # INITIALIZE ERASE TO DOT TARGET AND UR CANTDO DLOAD PDDL # INITIALIZE ERASE TO DOT TARGET AND UR
# FOR RANGE ANGLE. # FOR RANGE ANGLE.
HIDPHALF # TO PDL 0 FOR DEN INDDV. HIDPHALF # TO PDL 0 FOR DEN IN DDV.
HI6ZEROS HI6ZEROS
PUSH # ZERO TO PDL 2 FOR PHI ENTRY PUSH # ZERO TO PDL 2 FOR PHI ENTRY
STCALL 8D STCALL 8D
@ -533,20 +517,21 @@ MAXPHIC 2DEC .09259298 # 2000 NM FOR MAXIMUM PHI ENTRY
COUNT* $$/P30 COUNT* $$/P30
# BELOW # 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 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 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 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 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 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 # Page 647
@ -587,16 +572,15 @@ X1CON DEC 10
DEC 8 DEC 8
DEC 6 DEC 6
# **** TABLE IS INDEXED. KEEP IN ORDER *** # <<<< TABLE IS INDEXED. KEEP IN ORDER >>>>
# ABOVE # ABOVE
# Page 648 # Page 648
# ***** AVFLAG/P ***** # ***** AVFLAGA/P *****
#
# SUBROUTINES USED # SUBROUTINES USED
#
# UPFLAG # UPFLAG
# DOWNFLAG # DOWNFLAG
SETLOC P30SUBS SETLOC P30SUBS
BANK BANK
EBANK= SUBEXIT EBANK= SUBEXIT
@ -624,6 +608,4 @@ P20FLGON EXTEND
ADRES TRACKFLG ADRES TRACKFLG
TC UPFLAG TC UPFLAG
ADRES UPDATFLG ADRES UPDATFLG
TC SUBEXIT # DP B4 TC SUBEXIT # DP B4