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

Proof P30_P37 (#709)

Browse Source 
* Update P30_P37.agc

Fixing issue #613

* Apply suggestions from code review

* Update P30_P37.agc

* chore: final review

Co-authored-by: James Harris <wopian@wopian.me>
This commit is contained in:
Elena Sacchi 2021-01-06 20:32:24 +01:00 committed by GitHub
parent 59330826b4
commit 1277126ffd
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 30 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

68
Luminary099/P30_P37.agc
View File

@ -32,9 +32,8 @@
# PROGRAM DESCRIPTION P30 DATE 3-6-67 # PROGRAM DESCRIPTION P30 DATE 3-6-67
# #
# MOD.1 BY RAMA AIYAWAR # MOD.1 BY RAMA AIYAWAR
# # FUNCTIONAL DESCRIPTION
# FUNCTIONAL DESCRIPTIONS # ACCEPT ASTRONAUT INPUTS OF TIG.DELV(LV)
# ACCEPT ASTRONAUT INPUTS OF TIG,DELV(LV)
# CALL IMU STATUS CHECK ROUTINE (R02) # CALL IMU STATUS CHECK ROUTINE (R02)
# DISPLAY TIME TO GO, APOGEE, PERIGEE, DELV(MAG), MGA AT IGN # DISPLAY TIME TO GO, APOGEE, PERIGEE, DELV(MAG), MGA AT IGN
# REQUEST BURN PROGRAM # REQUEST BURN PROGRAM
@ -43,16 +42,16 @@
# #
# EXIT VIA V37 CALL OR TO GOTOPOOH (V34E) # EXIT VIA V37 CALL OR TO GOTOPOOH (V34E)
# #
# SUBROUTINE CALLS -- FLAGUP, PHASCHNG, BANKCALL, ENDOFJOB, GOFLASH, GOFLASHR # SUBROUTINE CALLS-FLAGUP, PHASCHNG, BANKCALL, ENDOFJOB, GOFLASH, GOFLASHR
# GOPERF3R, INTPRET, BLANKET, GOTOPOOH, R02BOTH, S30.1, # GOPERF3R, INTPRET, BLANKET, GOTOPOOH, R02BOTH, S30.1,
# TIG/N35, MIDGIM, DISPMGA # TIG/N35, MIDGIM, DISPMGA
# #
# ERASABLE INITIALIZATION -- STATE VECTOR # ERASABLE INITIALIZATION- STATE VECTOR
# #
# OUTPUT -- RINIT, VINIT, +MGA, VTIG, RTIG, DELVSIN, DELVSAB, DELVSLV, HAPO, # OUTPUT-RINIT, VINIT, +MGA, VTIG, RTIG, DELVSIN, DELVSAB, DELVSLV, HAPO,
# HPER, TTOGO # HPER, TTOGO
# #
# DEBRIS -- A, L, MPAC, PUSHLIST # DEBRIS- A,L, MPAC, PUSHLIST
BANK 32 BANK 32
SETLOC P30S SETLOC P30S
@ -65,10 +64,10 @@ P30 TC UPFLAG # SET UPDATE FLAG
ADRES TRACKFLG ADRES TRACKFLG
P30N33 CAF V06N33 # T OF IGN 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) CAF V06N81 # DISPLAY DELTA V (LV)
TC VNP00H # REDISPLAY ON RECYCLE TC VNPOOH # REDISPLAY ON RECYCLE
TC DOWNFLAG # RESET UPDATE FLAG TC DOWNFLAG # RESET UPDATE FLAG
ADRES UPDATFLG ADRES UPDATFLG
@ -77,8 +76,8 @@ P30N33 CAF V06N33 # T OF IGN
S30.1 S30.1
SET EXIT SET EXIT
UPDATFLG UPDATFLG
PARAM30 CAF V06N42 # DISPLAY APOGEE,PERIGEE,DELTA V PARAM30 CAF V06N42 # DISPLAY APOGEE,PERIGEE ,DELTA V
TC VNP00H TC VNPOOH
# Page 615 # Page 615
TC INTPRET TC INTPRET
@ -93,46 +92,40 @@ V06N42 VN 0642
# 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 **
#
# 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)), COMPUTE PERIGEE ALTITUDE # IGNITION(VTIG),TIME OF IGNITION (TIG)),COMPUTE PERIGEE ALTITUDE
# APOGEE ALTITUDE AND DELTAV REQUIRED (DELVSIN). # APOGEE ALTITUDE AND DELTAV REQUIRED(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
# LEMPREC # LEMPREC
# 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 VECTOR B+7 METERS/CS # TIME OF IGNITION VECTOR B+7 METERS/CS
# #
# OUTPUT # OUTPUT
# RTIG POSITION AT TIG VECTOR B+29 METERS # RTIG POSITION AT TIG VECTOR B+29 METERS
# VTIG VELOCITY AT TIG VECTOR B+29 METERS/CS # VTIG VELOCITY AT TIG VECTOR B+29 METERS/CS
# PDL 4D APOGEE ALTITUDE DP B+29 M, B+27 METERS. # PDL 4D APOGEE ALTITUDE DP B+29 M , B+27 METERS.
# HAPO APOGEE ALTITUDE DP B+29 METERS # HAPO APOGEE ALTITUDE DP B+29 METERS
# PDL 8D PERIGEE ALTITUDE DP B+29 M, B+27 METERS. # PDL 8D PERIGEE ALTITUDE DP B+29 M , B+27 METERS.
# HPER PERIGEE ALTITUDE DP B+29 METERS # HPER PERIGEE ALTITUDE DP B+29 METERS
# DELVSIN SPECIFIED DELTA-V IN INTERTIAL # DELVSIN SPECIFIED DELTA-V IN INTERTIAL
# COORD. OF ACTIVE VEHICLE AT # COORD. OF ACTIVE VEHICLE AT
# TIME OF IGNITION VECTOR B+7 METERS/CS # TIME OF IGNITION VECTOR B+7 METERS/CS
# DELVSAB MAG. OF DELVSIN VECTOR B+7 METERS/CS # DELVSAB MAG. OF DELVSIN VECTOR B+7 METERS/CS
# #
# DEBRIS QTEMP TEMP.ERASABLE # DEBRIS QTEMP TEMP. ERASABLE
# QPRET, MPAC # QPRET,MPAC
# PUSHLIST # PUSHLIST
SETLOC P30S1 SETLOC P30S1
@ -160,7 +153,7 @@ S30.1 STQ DLOAD
SETPD SXA,1 SETPD SXA,1
0 0
RTX1 RTX1
PUSH VXV # YRF/LV PDL 0 SCALED AT 2 PUSH VXV # YRF/LV PDL 0 SCALED AT 2
DELVSIN DELVSIN
VSL1 PDVL VSL1 PDVL
PDVL PDVL # YRF/LV PDL 6 SCALED AT 2 PDVL PDVL # YRF/LV PDL 6 SCALED AT 2
@ -181,13 +174,12 @@ S30.1 STQ DLOAD
SHIFTR1 # RESCALE IF NEEDED SHIFTR1 # RESCALE IF NEEDED
CALL # LIMIT DISPLAY TO 9999.9 N. MI. CALL # LIMIT DISPLAY TO 9999.9 N. MI.
MAXCHK MAXCHK
STODL HPER # PERIGEE ALT 2(29) METERS FOR DISPLAY STODL HPER # PERIGEE ALT 2(29) METERS, FOR DISPLAY
4D 4D
CALL CALL
SHIFTR1 # RESCALE IF NEEDED SHIFTR1 # RESCALE IF NEEDED
CALL # LIMIT DISPLAY TO 9999.9 N. MI. CALL # LIMIT DISPLAY TO 9999.9 N. MI.
MAXCHK MAXCHK
STCALL HAPO # APOGEE ALT 2(29) METERS FOR DISPLAY STCALL HAPO # APOGEE ALT 2(29) METERS, FOR DISPLAY
QTEMP QTEMP