mirrors
/
Apollo-11
mirror of https://github.com/chrislgarry/Apollo-11.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Proof read #245 (closes #370) 

Hi @chrislgarry @wopian

PR for #245 

I've proof read the R30.agc file. And fixed several things.

PS: Each commit stand for an page. So you can cherry pick the fixes u needed.
If there are things still missing plz ping me to correct or add them. 

Kind Regards,
Tim Joosten
pull/371/head
Tim Joosten 2019-01-25 04:31:22 +01:00 committed by James Harris
parent ecc339601d
commit 53a5da8b42
1 changed files with 37 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

79
Comanche055/R30.agc
View File

@ -54,15 +54,16 @@
# ASTRONAUT HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E. # ASTRONAUT HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E.
# DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS # DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS
# ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S. # ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S.
# 2. IF AVERAGE G IS ON: # 2. IF AVERAGE G IS ON:
# CALLS SR30.1 APPROX EVERY TWO SECS. STATE VECTOR IS ALWAYS # CALLS SR30.1 APPROX EVERY TWO SECS. STATE VECTOR IS ALWAYS
# FOR THIS VEHICLE. V82 DOES NOT DISTURB STATE VECTOR. RESULTS # FOR THIS VEHICLE. V82 DOES NOT DISTURB STATE VECTOR. RESULTS
# OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF. # OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF.
# FLASH MONITOR V16N44 (HAPO, HPER, TFF). # FLASH MONITOR V16N44 (HAPO, HPER, TFF).
# IF MODE IS P11, THEN CALL DELRSPL SO ASTRONAUT CAN MONITOR # IF MODE IS P11, THEN CALL DELRSPL SO ASTRONAUT CAN MONITOR
# RESULTS BY N50E. SPLASH COMPUTATION DONE ONCE PER TWO SECS. # RESULTS BY N50E. SPLASH COMPUTATION DONE ONCE PER TWO SECS.
# ADDENDUM: HAPO AND HPER SHOULD BE CHANGED TO READ HAPOX AND HPERX IN THE
# ABOVE REMARKS. # ADDENDUM: HAPO AND HPER SHOULD BE CHANGED TO READ HAPOX AND HPERX IN THE
# ABOVE REMARKS.
# #
# CALLING SEQUENCE: VERB 82 ENTER. # CALLING SEQUENCE: VERB 82 ENTER.
# #
@ -84,9 +85,9 @@
# -TPER (-28) CS CONTAINS NEGATIVE QUANTITY # -TPER (-28) CS CONTAINS NEGATIVE QUANTITY
# RSP-RREC(-29) M IF DELRSPL CALLED # RSP-RREC(-29) M IF DELRSPL CALLED
# #
# ERASABLE INITIALIZATION REQUIRED: STATE VECTOR. # ERASABLE INITIALIZATION REQUIRED: STATE VECTOR.
# #
# DEBRIS: QPRET, RONE, VONE, TFF/RTMU, HPERMIN, RPADTEM, V82EMFLG. # DEBRIS: QPRET, RONE, VONE,TFF/RTMU, HPERMIN, RPADTEM, V82EMFLG.
# MAYBE: TSTART82, V82FLAGS, TDEC1. # MAYBE: TSTART82, V82FLAGS, TDEC1.
EBANK= HAPOX EBANK= HAPOX
@ -143,7 +144,7 @@ V82STALL CAF THREE # STALL IN THIS LOOP AND WITHOLD V 16 N 44
FLAGGON CAF V16N44 # MONITOR HAPO,HPER,TFF. FLAGGON CAF V16N44 # MONITOR HAPO,HPER,TFF.
TC BANKCALL TC BANKCALL
CADR GOXDSPF CADR GOXDSPF
TC B5OFF # TERM THIS TELLS TICKTEST TO KILL ITSELF TC B5OFF # TERM THIS TELLS TICKTEST TO KILL ITSELF
TC B5OFF # PROCEED DITTO TC B5OFF # PROCEED DITTO
TC V82GOFLP # RECYCLE RECOMPUTE STATE VECT + DISPLAY TC V82GOFLP # RECYCLE RECOMPUTE STATE VECT + DISPLAY
@ -171,8 +172,6 @@ BOTHSHIP VLOAD # MOVE RESULTS INTO TFFCONIC STORAGE AREAS
STORE VONE # VATT AT (-7)M/CS FOR EARTH OR MOON STORE VONE # VATT AT (-7)M/CS FOR EARTH OR MOON
DLOAD* DLOAD*
1/RTMUE,2 # X2 IS 0 FOR EARTH CENTERED STATE VEC 1/RTMUE,2 # X2 IS 0 FOR EARTH CENTERED STATE VEC
# HG remark: In Comanche055 scan this line (5324) looks pretty much like 1/RTMUF.2 can not decide, leave it
# as it is in start source
STORE TFF/RTMU # X2 IS 2 FOR MOON STORE TFF/RTMU # X2 IS 2 FOR MOON
DLOAD* # AS LEFT BY THISPREC OR OTHPREC. DLOAD* # AS LEFT BY THISPREC OR OTHPREC.
MINPERE,2 MINPERE,2
@ -197,7 +196,7 @@ THISSHIP TC INTPRET
MINPERM 2DEC 10668 B-27 # 35 KFT MIN PERIGEE HEIGHT FOR MOON(-27)M MINPERM 2DEC 10668 B-27 # 35 KFT MIN PERIGEE HEIGHT FOR MOON(-27)M
MINPERE 2DEC 91440 B-29 # 300 KFT (-29)M FOR EARTH MINPERE 2DEC 91440 B-29 # 300 KFT (-29)M FOR EARTH
EARTHPAD DLOAD CLRGO # PAD 37-B RADIUS. SCALED AT (-29)M EARTHPAD DLOAD CLRGO # PAD 37-B RADIUS. SCALED AT (-29)M.
RPAD RPAD
V82EMFLG # INDICATE EARTH SCALING FOR SR30.1 V82EMFLG # INDICATE EARTH SCALING FOR SR30.1
BOTHPAD BOTHPAD
@ -215,14 +214,14 @@ BOTHPAD STCALL RPADTEM
SPLRET1 TC INTPRET SPLRET1 TC INTPRET
RTB DSU RTB DSU
LOADTIME LOADTIME
TSTART82 # PRESENT TIME -- TIME V82GOFF1 BEGAN TSTART82 # PRESENT TIME - TIME V82GOFF1 BEGAN
STORE TSTART82 # SAVE IT STORE TSTART82 # SAVE IT
DLOAD BZE # SR30.1 SETS -TPER=0 IF HPER L/ DLOAD BZE # SR30.1 SETS -TPER=0 IF HPER L/
-TPER # HPERMIN (300 OR 35) KFT. -TPER # HPERMIN (300 OR 35) KFT.
TICKTFF # (-TPER = 0) TICKTFF # (-TPER = 0)
TICKTPER DLOAD DAD # (-TPER NON ZERO) TFF WAS NOT COMPUTED. TICKTPER DLOAD DAD # (-TPER NON ZERO) TFF WAS NOT COMPUTED,
-TPER # BUT WAS SET TO 59M59S. DON'T DICK TFF, DO -TPER # BUT WAS SET TO 59M59S.DON'T DICK TFF, DO
TSTART82 # TICK -TPER. DISPLAY BOTH. TSTART82 # TICK -TPER. DISPLAY BOTH.
STORE -TPER # -TPER CORRECTED FOR TIME SINCE V82GOFF1 STORE -TPER # -TPER CORRECTED FOR TIME SINCE V82GOFF1
EXIT # BEGAN. EXIT # BEGAN.
@ -231,9 +230,9 @@ TICKTPER DLOAD DAD # (-TPER NON ZERO) TFF WAS NOT COMPUTED.
TS V82FLAGS # INFORMS TICKTEST TO INCREMENT ONLY -TPER TS V82FLAGS # INFORMS TICKTEST TO INCREMENT ONLY -TPER
TC ENDOFJOB TC ENDOFJOB
TICKTFF DLOAD DAD # (-TPER=0) TFF WAS COMPUTED. TICK TFF. TICKTFF DLOAD DAD # (-TPER=0) TFF WAS COMPUTED.TICK TFF.
TFF # DO NOT TICK -TPER. DISPLAY TFF, BUT NOT TFF # DO NOT TICK -TPER.DISPLAY TFF, BUT NOT
TSTART82 # -TPER TSTART82 # -TPER.
STORE TFF # TFF CORRECTED FOR TIME SINCE V82GOFF1 STORE TFF # TFF CORRECTED FOR TIME SINCE V82GOFF1
EXIT # BEGAN. EXIT # BEGAN.
CAF BIT2 CAF BIT2
@ -245,7 +244,7 @@ TICKTEST CAF BIT5 # THIS WAITLIST PROGRAM PERPETUATES ITSELF
CCS A CCS A
TC DOTICK TC DOTICK
CAF PRIO25 CAF PRIO25
TC NOVAC # TERMINATE V 82. CAN'T CALL ENDEXT IN RUPT. TC NOVAC # TERMINATE V 82.CAN'T CALL ENDEXT IN RUPT.
EBANK= EXTVBACT EBANK= EXTVBACT
2CADR ENDEXT 2CADR ENDEXT
@ -261,8 +260,8 @@ DOTICK CAF 1SEC # RE-REQUEST TICKTEST.
TC +1 TC +1
TC TASKOVER # IF NO FLAGBITS SET DONT CHANGE TFF OR TC TASKOVER # IF NO FLAGBITS SET DONT CHANGE TFF OR
# -TPER, BUT CONTINUE LOOP. # -TPER, BUT CONTINUE LOOP.
TC TPERTICK # ONLY BIT 1 SET. INCR -TPER BY 1 SEC. TC TPERTICK # ONLY BIT 1 SET. INCR -TPER BY 1 SEC.
TFFTICK CAF 1SEC # ONLY BIT 2 SET. INCR TFF BY 1 SEC. TFFTICK CAF 1SEC # ONLY BIT 2 SET. INCR TFF BY 1 SEC.
TS L TS L
CAF ZERO CAF ZERO
DAS TFF DAS TFF
@ -273,7 +272,7 @@ TPERTICK CAF 1SEC
DAS -TPER DAS -TPER
TC TASKOVER TC TASKOVER
# Page 519 # Page 519
V82GON EXIT # AVERAGE G ON. USE CURRENT STATE VECTOR V82GON EXIT # AVERAGE G ON. USE CURRENT STATE VECTOR
# FOR ORBITAL PARAMETER CALCULATIONS. # FOR ORBITAL PARAMETER CALCULATIONS.
CAF PRIO7 # LESS THAN LAMBERT CAF PRIO7 # LESS THAN LAMBERT
TC FINDVAC # V82GON1 WILL PERFORM ORBIT CALCULATIONS TC FINDVAC # V82GON1 WILL PERFORM ORBIT CALCULATIONS
@ -282,7 +281,7 @@ V82GON EXIT # AVERAGE G ON. USE CURRENT STATE VECTOR
RELINT RELINT
CCS NEWJOB # WITHOLD V16 N44 UNTIL FIRST ORBIT CALC CCS NEWJOB # WITHOLD V16 N44 UNTIL FIRST ORBIT CALC
TC CHANG1 # IS DONE. NOTE: V82GON1 (PRIO7, FINDVAC TC CHANG1 # IS DONE. NOTE: V82GON1 (PRIO7, FINDVAC
# JOB) IS COMPLETED BEFORE V82GON (PRIO7, # JOB) IS COMPLETED BEFORE V82GON (PRIO7,
# NOVAC JOB). # NOVAC JOB).
V82REDSP CAF V16N44 # MONITOR HAPO, HPER, TFF V82REDSP CAF V16N44 # MONITOR HAPO, HPER, TFF
@ -295,7 +294,7 @@ V82REDSP CAF V16N44 # MONITOR HAPO, HPER, TFF
V82GON1 TC INTPRET # THIS EXEC PROGRAM PERPETUATES ITSELF V82GON1 TC INTPRET # THIS EXEC PROGRAM PERPETUATES ITSELF
# ONCE A SEC UNTIL BIT 5 OF EXTVBACT =0. # ONCE A SEC UNTIL BIT 5 OF EXTVBACT =0.
VLOAD GOTO # HOLDS OFF CCS NEWJOB BETWEEN RN AND VLOAD GOTO # HOLDS OFF CCS NEWJOB BETWEEN RN AND
RN # VN FETCH SO RN, VN ARE FROM SAME RN # VN FETCH SO RN , VN ARE FROM SAME
NEXTLINE # STATE VECTOR UPDATE. NEXTLINE # STATE VECTOR UPDATE.
NEXTLINE STOVL RONE # RN AT (-29)M FOR EARTH OR MOON NEXTLINE STOVL RONE # RN AT (-29)M FOR EARTH OR MOON
VN VN
@ -303,7 +302,7 @@ NEXTLINE STOVL RONE # RN AT (-29)M FOR EARTH OR MOON
BON GOTO BON GOTO
AMOONFLG # FLAG INDICATES BODY ABOUT WHICH ORBITAL AMOONFLG # FLAG INDICATES BODY ABOUT WHICH ORBITAL
MOONGON # CALCULATIONS ARE TO BE PERFORMED. MOONGON # CALCULATIONS ARE TO BE PERFORMED.
EARTHGON # IF SET - MOON, IF RESET - EARTH. EARTHGON # IF SET - MOON , IF RESET - EARTH.
MOONGON SET DLOAD MOONGON SET DLOAD
V82EMFLG # INDICATE MOON SCALING FOR SR30.1 V82EMFLG # INDICATE MOON SCALING FOR SR30.1
@ -333,7 +332,7 @@ CANDEL TC INTPRET # IN MODE 11 OR 00
INTSTALL # DELRSPL DOES INTWAKE INTSTALL # DELRSPL DOES INTWAKE
DLOAD CALL DLOAD CALL
TFF TFF
DELRSPL # RETURN IS TO NEXT LINE (SPLRET). DELRSPL # RETURN IS TO NEXT LINE ( SPLRET ).
SPLRET EXIT SPLRET EXIT
CA MODREG CA MODREG
@ -350,13 +349,13 @@ V82GON3 CAF BIT5
# Page 521 # Page 521
# SUBROUTINE NAME: SR30.1 # SUBROUTINE NAME: SR30.1
# MOD NO: 0 DATE: 16 FEB 67 # MOD NO: 0 DATE: 16 FEB 67
# MOD BY: R. R. BAIRNSFATHER LOG SECTION: R32 # MOD BY: R. R. BAIRNSFATHER LOG SECTION: R32
# MOD NO: 1 MOD BY: R. R. BAIRNSFATHER DATE: 11 APR 67 SR30.1 CHANGED TO ALLOW MONITOR OPERN # MOD NO: 1 MOD BY: R. R. BAIRNSFATHER DATE: 11 APR 67 SR30.1 CHANGED TO ALLOW MONITOR OPERN
# MOD NO: 2 MOD BY: R. R. BAIRNSFATHER DATE: 14 APR 67 ADD OVFL CK FOR RAPO # MOD NO: 2 MOD BY: R. R. BAIRNSFATHER DATE: 14 APR 67 ADD OVFL CK FOR RAPO
# MOD NO: 3 MOD BY ALONSO DATE: 11 DEC 67 SUBROUTINE REWRITTEN # MOD NO: 3 MOD BY ALONSO DATE: 11 DEC 67 SUBROUTINE REWRITTEN
# MOD NO: 4 MOD BY ALONSO DATE: 26 MAR 68 PROG MOD TO HANDLE DIF EARTH/MOON SCALE # MOD NO: 4 MOD BY ALONSO DATE: 26 MAR 68 PROG MOD TO HANDLE DIF EARTH/MOON SCALE
# MOD NO: 5 MOD BY: R. R. BAIRNSFATHER DATE: 6 AUG 68 OVFL CK FOR HAPO & HPER. VOIDS MOD #2. # MOD NO: 5 MOD BY: RR BAIRNSFATHER DATE: 6 AUG 68 OVFL CK FOR HAPO & HPER. VOIDS MOD #2.
# #
# NEW FUNCTIONAL DESCRIPTION: ORBITAL PARAMETERS DISPLAY FOR NOUNS 32 AND 44. # NEW FUNCTIONAL DESCRIPTION: ORBITAL PARAMETERS DISPLAY FOR NOUNS 32 AND 44.
# SR30.1 CALLS TFFCONMU AND TFFRP/RA TO CALCULATE RPER (PERIGEE RADIUS), # SR30.1 CALLS TFFCONMU AND TFFRP/RA TO CALCULATE RPER (PERIGEE RADIUS),
@ -364,8 +363,8 @@ V82GON3 CAF BIT5
# LANDING SITE), HAPO (APOGEE HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), # LANDING SITE), HAPO (APOGEE HEIGHT AS ABOVE), TPER (TIME TO PERIGEE),
# TFF (TIME TO INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE). # TFF (TIME TO INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
# IF HPER IS GREATER THAN OR EQUAL TO HPERMIN, CALCULATES TPER AND STORES # IF HPER IS GREATER THAN OR EQUAL TO HPERMIN, CALCULATES TPER AND STORES
# NEGATIVE. IN -TPER. OTHERWISE STORES +0 IN -TPER. WHENEVER TPER IS # NEGATIVE IN -TPER. OTHERWISE STORES +0 IN -TPER. WHENEVER TPER IS
# CALCULATED, TFF IS NOT COMPUTABLE AND DEFAULTS TO -59MIN 59SEC. IF HAPO # CALCULATED, TFF IS NOT COMPUTABLE AND DEFAULTS TO -59MIN 59SEC. IF HAPO
# WOULD EXCEED 9999.9 NM, IT IS LIMITED TO THAT VALUE FOR DISPLAY. # WOULD EXCEED 9999.9 NM, IT IS LIMITED TO THAT VALUE FOR DISPLAY.
# #
# ADDENDUM: HAPO AND HPER SHOULD BE CHANGED TO READ HAPOX AND HPERX IN THE # ADDENDUM: HAPO AND HPER SHOULD BE CHANGED TO READ HAPOX AND HPERX IN THE
@ -375,11 +374,8 @@ V82GON3 CAF BIT5
# SR30.1 # SR30.1
# #
# SUBROUTINES CALLED: TFFCONMU, TFFRP/RA, CALCTPER, CALCTFF # SUBROUTINES CALLED: TFFCONMU, TFFRP/RA, CALCTPER, CALCTFF
#
# NORMAL EXIT MODE: CALLING LINE +1 (STILL IN INTERPRETIVE MODE) # NORMAL EXIT MODE: CALLING LINE +1 (STILL IN INTERPRETIVE MODE)
#
# ALARMS: NONE # ALARMS: NONE
#
# OUTPUT: RAPO (-29) M EARTH APOGEE RADIUS EARTH CENTERED COORD. # OUTPUT: RAPO (-29) M EARTH APOGEE RADIUS EARTH CENTERED COORD.
# (-27) M MOON MOON CENTERED COORD. # (-27) M MOON MOON CENTERED COORD.
# RPER (-29) M EARTH PERIGEE RADIUS EARTH CENTERED COORD. # RPER (-29) M EARTH PERIGEE RADIUS EARTH CENTERED COORD.
@ -388,7 +384,6 @@ V82GON3 CAF BIT5
# HPERX (-29) M PERIGEE ALT. ABOVE PAD OR LAND. SITE MAX VALUE LIMITED TO 9999.9 NM. # HPERX (-29) M PERIGEE ALT. ABOVE PAD OR LAND. SITE MAX VALUE LIMITED TO 9999.9 NM.
# TFF (-28) CS TIME TO 300KFT OR 35KFT ALTITUDE # TFF (-28) CS TIME TO 300KFT OR 35KFT ALTITUDE
# -TPER (-28) CS TIME TO PERIGEE # -TPER (-28) CS TIME TO PERIGEE
#
# ERASABLE INITIALIZATION REQUIRED - # ERASABLE INITIALIZATION REQUIRED -
# TFF/RTMU (+17) EARTH RECIPROCAL OF PROPER GRAV CONSTANT FOR # TFF/RTMU (+17) EARTH RECIPROCAL OF PROPER GRAV CONSTANT FOR
# (+14) MOON EARTH OR MOON = 1/SQRT(MU). # (+14) MOON EARTH OR MOON = 1/SQRT(MU).
@ -410,7 +405,7 @@ SR30.1 SETPD STQ # INITIALIZE PUSHDOWN LIST.
S2 S2
# SR30.1 INPUT: RONE AT (-29)M EARTH/MOON # SR30.1 INPUT: RONE AT (-29)M EARTH/MOON
# VONE AT (-7)M/CS # VONE AT (-7)M/CS
# TFFCONMU, TFFRP/RA, CALCTPER, AND CALCTFF # TFFCONMU,TFFRP/RA,CALCTPER,AND CALCTFF
# CALLS REQUIRE: # CALLS REQUIRE:
# EARTH CENTERED (NO RESCALING REQUIRED) # EARTH CENTERED (NO RESCALING REQUIRED)
# RONE SCALED TO B-29 M # RONE SCALED TO B-29 M
@ -419,7 +414,7 @@ SR30.1 SETPD STQ # INITIALIZE PUSHDOWN LIST.
# RONE SCALED TO B-27 M # RONE SCALED TO B-27 M
# VONE SCALED TO B-5 M/CS # VONE SCALED TO B-5 M/CS
BOFF VLOAD BOFF VLOAD
V82EMFLG # OFF FOR EARTH, ON FOR MOON. V82EMFLG # OFF FOR EARTH , ON FOR MOON.
TFFCALLS TFFCALLS
RONE RONE
VSL2 VSL2
@ -437,7 +432,7 @@ TFFCALLS CALL
BOFF SR2R # NEED HAPO AT (-29)M FOR DISPLAY. BOFF SR2R # NEED HAPO AT (-29)M FOR DISPLAY.
# IF MOON CENTERED, RESCALE FROM (-27)M. # IF MOON CENTERED, RESCALE FROM (-27)M.
# IF EARTH CENTERED ALREADY AT (-29)M. # IF EARTH CENTERED ALREADY AT (-29)M.
V82EMFLG # OFF FOR EARTH, ON FOR MOON. V82EMFLG # OFF FOR EARTH , ON FOR MOON.
+1 +1
CALL # IF HAPO > MAXNM, SET HAPO =9999.9 NM. CALL # IF HAPO > MAXNM, SET HAPO =9999.9 NM.
MAXCHK # OTHERWISE STORE (RAPO-RPADTEM) IN HAPO. MAXCHK # OTHERWISE STORE (RAPO-RPADTEM) IN HAPO.