diff --git a/Comanche055/R30.agc b/Comanche055/R30.agc index c65295c..0cb8a6f 100644 --- a/Comanche055/R30.agc +++ b/Comanche055/R30.agc @@ -54,15 +54,16 @@ # ASTRONAUT HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E. # DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS # ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S. -# 2. IF AVERAGE G IS ON: -# CALLS SR30.1 APPROX EVERY TWO SECS. STATE VECTOR IS ALWAYS -# FOR THIS VEHICLE. V82 DOES NOT DISTURB STATE VECTOR. RESULTS -# OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF. -# FLASH MONITOR V16N44 (HAPO, HPER, TFF). +# 2. IF AVERAGE G IS ON: +# CALLS SR30.1 APPROX EVERY TWO SECS. STATE VECTOR IS ALWAYS +# FOR THIS VEHICLE. V82 DOES NOT DISTURB STATE VECTOR. RESULTS +# OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF. +# FLASH MONITOR V16N44 (HAPO, HPER, TFF). # IF MODE IS P11, THEN CALL DELRSPL SO ASTRONAUT CAN MONITOR -# 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. +# 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. # # CALLING SEQUENCE: VERB 82 ENTER. # @@ -84,9 +85,9 @@ # -TPER (-28) CS CONTAINS NEGATIVE QUANTITY # 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. 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. TC BANKCALL 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 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 DLOAD* 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 DLOAD* # AS LEFT BY THISPREC OR OTHPREC. MINPERE,2 @@ -197,7 +196,7 @@ THISSHIP TC INTPRET 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 -EARTHPAD DLOAD CLRGO # PAD 37-B RADIUS. SCALED AT (-29)M +EARTHPAD DLOAD CLRGO # PAD 37-B RADIUS. SCALED AT (-29)M. RPAD V82EMFLG # INDICATE EARTH SCALING FOR SR30.1 BOTHPAD @@ -215,14 +214,14 @@ BOTHPAD STCALL RPADTEM SPLRET1 TC INTPRET RTB DSU LOADTIME - TSTART82 # PRESENT TIME -- TIME V82GOFF1 BEGAN - STORE TSTART82 # SAVE IT + TSTART82 # PRESENT TIME - TIME V82GOFF1 BEGAN + STORE TSTART82 # SAVE IT DLOAD BZE # SR30.1 SETS -TPER=0 IF HPER L/ -TPER # HPERMIN (300 OR 35) KFT. TICKTFF # (-TPER = 0) -TICKTPER DLOAD DAD # (-TPER NON ZERO) TFF WAS NOT COMPUTED. - -TPER # BUT WAS SET TO 59M59S. DON'T DICK TFF, DO - TSTART82 # TICK -TPER. DISPLAY BOTH. +TICKTPER DLOAD DAD # (-TPER NON ZERO) TFF WAS NOT COMPUTED, + -TPER # BUT WAS SET TO 59M59S.DON'T DICK TFF, DO + TSTART82 # TICK -TPER. DISPLAY BOTH. STORE -TPER # -TPER CORRECTED FOR TIME SINCE V82GOFF1 EXIT # BEGAN. @@ -231,9 +230,9 @@ TICKTPER DLOAD DAD # (-TPER NON ZERO) TFF WAS NOT COMPUTED. TS V82FLAGS # INFORMS TICKTEST TO INCREMENT ONLY -TPER TC ENDOFJOB -TICKTFF DLOAD DAD # (-TPER=0) TFF WAS COMPUTED. TICK TFF. - TFF # DO NOT TICK -TPER. DISPLAY TFF, BUT NOT - TSTART82 # -TPER +TICKTFF DLOAD DAD # (-TPER=0) TFF WAS COMPUTED.TICK TFF. + TFF # DO NOT TICK -TPER.DISPLAY TFF, BUT NOT + TSTART82 # -TPER. STORE TFF # TFF CORRECTED FOR TIME SINCE V82GOFF1 EXIT # BEGAN. CAF BIT2 @@ -245,7 +244,7 @@ TICKTEST CAF BIT5 # THIS WAITLIST PROGRAM PERPETUATES ITSELF CCS A TC DOTICK 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 2CADR ENDEXT @@ -261,8 +260,8 @@ DOTICK CAF 1SEC # RE-REQUEST TICKTEST. TC +1 TC TASKOVER # IF NO FLAGBITS SET DONT CHANGE TFF OR # -TPER, BUT CONTINUE LOOP. - TC TPERTICK # ONLY BIT 1 SET. INCR -TPER BY 1 SEC. -TFFTICK CAF 1SEC # ONLY BIT 2 SET. INCR TFF 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. TS L CAF ZERO DAS TFF @@ -273,7 +272,7 @@ TPERTICK CAF 1SEC DAS -TPER TC TASKOVER # Page 519 -V82GON EXIT # AVERAGE G ON. USE CURRENT STATE VECTOR +V82GON EXIT # AVERAGE G ON. USE CURRENT STATE VECTOR # FOR ORBITAL PARAMETER CALCULATIONS. CAF PRIO7 # LESS THAN LAMBERT TC FINDVAC # V82GON1 WILL PERFORM ORBIT CALCULATIONS @@ -282,7 +281,7 @@ V82GON EXIT # AVERAGE G ON. USE CURRENT STATE VECTOR RELINT 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, # NOVAC JOB). 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 # ONCE A SEC UNTIL BIT 5 OF EXTVBACT =0. 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 STOVL RONE # RN AT (-29)M FOR EARTH OR MOON VN @@ -303,7 +302,7 @@ NEXTLINE STOVL RONE # RN AT (-29)M FOR EARTH OR MOON BON GOTO AMOONFLG # FLAG INDICATES BODY ABOUT WHICH ORBITAL MOONGON # CALCULATIONS ARE TO BE PERFORMED. - EARTHGON # IF SET - MOON, IF RESET - EARTH. + EARTHGON # IF SET - MOON , IF RESET - EARTH. MOONGON SET DLOAD V82EMFLG # INDICATE MOON SCALING FOR SR30.1 @@ -333,7 +332,7 @@ CANDEL TC INTPRET # IN MODE 11 OR 00 INTSTALL # DELRSPL DOES INTWAKE DLOAD CALL TFF - DELRSPL # RETURN IS TO NEXT LINE (SPLRET). + DELRSPL # RETURN IS TO NEXT LINE ( SPLRET ). SPLRET EXIT CA MODREG @@ -350,13 +349,13 @@ V82GON3 CAF BIT5 # Page 521 # SUBROUTINE NAME: SR30.1 -# MOD NO: 0 DATE: 16 FEB 67 -# MOD BY: R. R. BAIRNSFATHER LOG SECTION: R32 +# MOD NO: 0 DATE: 16 FEB 67 +# 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: 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: 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. # 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), # 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 -# NEGATIVE. IN -TPER. OTHERWISE STORES +0 IN -TPER. WHENEVER TPER IS -# CALCULATED, TFF IS NOT COMPUTABLE AND DEFAULTS TO -59MIN 59SEC. IF HAPO +# NEGATIVE IN -TPER. OTHERWISE STORES +0 IN -TPER. WHENEVER TPER IS +# 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. # # ADDENDUM: HAPO AND HPER SHOULD BE CHANGED TO READ HAPOX AND HPERX IN THE @@ -375,11 +374,8 @@ V82GON3 CAF BIT5 # SR30.1 # # SUBROUTINES CALLED: TFFCONMU, TFFRP/RA, CALCTPER, CALCTFF -# # NORMAL EXIT MODE: CALLING LINE +1 (STILL IN INTERPRETIVE MODE) -# # ALARMS: NONE -# # OUTPUT: RAPO (-29) M EARTH APOGEE RADIUS EARTH CENTERED COORD. # (-27) M MOON MOON 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. # TFF (-28) CS TIME TO 300KFT OR 35KFT ALTITUDE # -TPER (-28) CS TIME TO PERIGEE -# # ERASABLE INITIALIZATION REQUIRED - # TFF/RTMU (+17) EARTH RECIPROCAL OF PROPER GRAV CONSTANT FOR # (+14) MOON EARTH OR MOON = 1/SQRT(MU). @@ -410,7 +405,7 @@ SR30.1 SETPD STQ # INITIALIZE PUSHDOWN LIST. S2 # SR30.1 INPUT: RONE AT (-29)M EARTH/MOON # VONE AT (-7)M/CS - # TFFCONMU, TFFRP/RA, CALCTPER, AND CALCTFF + # TFFCONMU,TFFRP/RA,CALCTPER,AND CALCTFF # CALLS REQUIRE: # EARTH CENTERED (NO RESCALING REQUIRED) # RONE SCALED TO B-29 M @@ -419,7 +414,7 @@ SR30.1 SETPD STQ # INITIALIZE PUSHDOWN LIST. # RONE SCALED TO B-27 M # VONE SCALED TO B-5 M/CS BOFF VLOAD - V82EMFLG # OFF FOR EARTH, ON FOR MOON. + V82EMFLG # OFF FOR EARTH , ON FOR MOON. TFFCALLS RONE VSL2 @@ -437,7 +432,7 @@ TFFCALLS CALL BOFF SR2R # NEED HAPO AT (-29)M FOR DISPLAY. # IF MOON CENTERED, RESCALE FROM (-27)M. # IF EARTH CENTERED ALREADY AT (-29)M. - V82EMFLG # OFF FOR EARTH, ON FOR MOON. + V82EMFLG # OFF FOR EARTH , ON FOR MOON. +1 CALL # IF HAPO > MAXNM, SET HAPO =9999.9 NM. MAXCHK # OTHERWISE STORE (RAPO-RPADTEM) IN HAPO.