From 1277126ffdaab018b8b5aa344528db53dbbd3f11 Mon Sep 17 00:00:00 2001 From: Elena Sacchi Date: Wed, 6 Jan 2021 20:32:24 +0100 Subject: [PATCH] Proof P30_P37 (#709) * Update P30_P37.agc Fixing issue #613 * Apply suggestions from code review * Update P30_P37.agc * chore: final review Co-authored-by: James Harris --- Luminary099/P30_P37.agc | 68 ++++++++++++++++++----------------------- 1 file changed, 30 insertions(+), 38 deletions(-) diff --git a/Luminary099/P30_P37.agc b/Luminary099/P30_P37.agc index 5a2a093..69d8f7a 100644 --- a/Luminary099/P30_P37.agc +++ b/Luminary099/P30_P37.agc @@ -32,9 +32,8 @@ # PROGRAM DESCRIPTION P30 DATE 3-6-67 # # MOD.1 BY RAMA AIYAWAR -# -# FUNCTIONAL DESCRIPTIONS -# ACCEPT ASTRONAUT INPUTS OF TIG,DELV(LV) +# FUNCTIONAL DESCRIPTION +# ACCEPT ASTRONAUT INPUTS OF TIG.DELV(LV) # CALL IMU STATUS CHECK ROUTINE (R02) # DISPLAY TIME TO GO, APOGEE, PERIGEE, DELV(MAG), MGA AT IGN # REQUEST BURN PROGRAM @@ -43,16 +42,16 @@ # # EXIT VIA V37 CALL OR TO GOTOPOOH (V34E) # -# SUBROUTINE CALLS -- FLAGUP, PHASCHNG, BANKCALL, ENDOFJOB, GOFLASH, GOFLASHR -# GOPERF3R, INTPRET, BLANKET, GOTOPOOH, R02BOTH, S30.1, -# TIG/N35, MIDGIM, DISPMGA +# SUBROUTINE CALLS-FLAGUP, PHASCHNG, BANKCALL, ENDOFJOB, GOFLASH, GOFLASHR +# GOPERF3R, INTPRET, BLANKET, GOTOPOOH, R02BOTH, S30.1, +# TIG/N35, MIDGIM, DISPMGA # -# ERASABLE INITIALIZATION -- STATE VECTOR +# ERASABLE INITIALIZATION- STATE VECTOR # -# OUTPUT -- RINIT, VINIT, +MGA, VTIG, RTIG, DELVSIN, DELVSAB, DELVSLV, HAPO, -# HPER, TTOGO +# OUTPUT-RINIT, VINIT, +MGA, VTIG, RTIG, DELVSIN, DELVSAB, DELVSLV, HAPO, +# HPER, TTOGO # -# DEBRIS -- A, L, MPAC, PUSHLIST +# DEBRIS- A,L, MPAC, PUSHLIST BANK 32 SETLOC P30S @@ -65,10 +64,10 @@ P30 TC UPFLAG # SET UPDATE FLAG ADRES TRACKFLG P30N33 CAF V06N33 # T OF IGN - TC VNP00H # RETURN ON PROCEED, P00H ON TERMINATE + TC VNPOOH # RETURNS ON PROCEED, POOH ON TERMINATE CAF V06N81 # DISPLAY DELTA V (LV) - TC VNP00H # REDISPLAY ON RECYCLE + TC VNPOOH # REDISPLAY ON RECYCLE TC DOWNFLAG # RESET UPDATE FLAG ADRES UPDATFLG @@ -77,8 +76,8 @@ P30N33 CAF V06N33 # T OF IGN S30.1 SET EXIT UPDATFLG -PARAM30 CAF V06N42 # DISPLAY APOGEE,PERIGEE,DELTA V - TC VNP00H +PARAM30 CAF V06N42 # DISPLAY APOGEE,PERIGEE ,DELTA V + TC VNPOOH # Page 615 TC INTPRET @@ -93,46 +92,40 @@ V06N42 VN 0642 # PROGRAM DESCRIPTION S30.1 DATE 9NOV66 # MOD NO 1 LOG SECTION P30,P37 # MOD BY RAMA AIYAWAR ** -# # FUNCTIONAL DESCRIPTION -# BASED ON STORED TARGET PARAMETERS (R OF IGNITION (RTIG), V OF -# IGNITION (VTIG), TIME OF IGNITION (TIG)), COMPUTE PERIGEE ALTITUDE -# APOGEE ALTITUDE AND DELTAV REQUIRED (DELVSIN). -# +# BASED ON STORED TARGET PARAMETERS(R OF IGNITION(RTIG),V OF +# IGNITION(VTIG),TIME OF IGNITION (TIG)),COMPUTE PERIGEE ALTITUDE +# APOGEE ALTITUDE AND DELTAV REQUIRED(DELVSIN). # CALLING SEQUENCE # L CALL # L+1 s30.1 -# # NORMAL EXIT MODE # AT L+2 OR CALLING SEQUENCE (GOTO L+2) -# # SUBROUTINES CALLED # LEMPREC # PERIAPO -# # ALARM OR ABORT EXIT MODES # NONE -# # ERASABLE INITIALIZATION REQUIRED # TIG TIME OF IGNITION DP B28CS # DELVSLV SPECIFIED DELTA-V IN LOCAL VERT. # COORDS. OF ACTIVE VEHICLE AT -# TIME OF IGNITION VECTOR B+7 METERS/CS +# TIME OF IGNITION VECTOR B+7 METERS/CS # # OUTPUT -# RTIG POSITION AT TIG VECTOR B+29 METERS -# VTIG VELOCITY AT TIG VECTOR B+29 METERS/CS -# PDL 4D APOGEE ALTITUDE DP B+29 M, B+27 METERS. -# HAPO APOGEE ALTITUDE DP B+29 METERS -# PDL 8D PERIGEE ALTITUDE DP B+29 M, B+27 METERS. -# HPER PERIGEE ALTITUDE DP B+29 METERS +# RTIG POSITION AT TIG VECTOR B+29 METERS +# VTIG VELOCITY AT TIG VECTOR B+29 METERS/CS +# PDL 4D APOGEE ALTITUDE DP B+29 M , B+27 METERS. +# HAPO APOGEE ALTITUDE DP B+29 METERS +# PDL 8D PERIGEE ALTITUDE DP B+29 M , B+27 METERS. +# HPER PERIGEE ALTITUDE DP B+29 METERS # DELVSIN SPECIFIED DELTA-V IN INTERTIAL # COORD. OF ACTIVE VEHICLE AT -# TIME OF IGNITION VECTOR B+7 METERS/CS -# DELVSAB MAG. OF DELVSIN VECTOR B+7 METERS/CS +# TIME OF IGNITION VECTOR B+7 METERS/CS +# DELVSAB MAG. OF DELVSIN VECTOR B+7 METERS/CS # -# DEBRIS QTEMP TEMP.ERASABLE -# QPRET, MPAC +# DEBRIS QTEMP TEMP. ERASABLE +# QPRET,MPAC # PUSHLIST SETLOC P30S1 @@ -160,7 +153,7 @@ S30.1 STQ DLOAD SETPD SXA,1 0 RTX1 - PUSH VXV # YRF/LV PDL 0 SCALED AT 2 + PUSH VXV # YRF/LV PDL 0 SCALED AT 2 DELVSIN VSL1 PDVL PDVL PDVL # YRF/LV PDL 6 SCALED AT 2 @@ -181,13 +174,12 @@ S30.1 STQ DLOAD SHIFTR1 # RESCALE IF NEEDED CALL # LIMIT DISPLAY TO 9999.9 N. MI. MAXCHK - STODL HPER # PERIGEE ALT 2(29) METERS FOR DISPLAY + STODL HPER # PERIGEE ALT 2(29) METERS, FOR DISPLAY 4D CALL SHIFTR1 # RESCALE IF NEEDED CALL # LIMIT DISPLAY TO 9999.9 N. MI. MAXCHK - STCALL HAPO # APOGEE ALT 2(29) METERS FOR DISPLAY + STCALL HAPO # APOGEE ALT 2(29) METERS, FOR DISPLAY QTEMP -