diff --git a/Comanche055/REENTRY_CONTROL.agc b/Comanche055/REENTRY_CONTROL.agc index 70c78aa..9d08e8a 100644 --- a/Comanche055/REENTRY_CONTROL.agc +++ b/Comanche055/REENTRY_CONTROL.agc @@ -59,7 +59,7 @@ STARTENT EXIT # MM = 63 # HIND=99D B6 INRLSW=100D B5 # LATSW=101D B4 .05GSW=102D B3 - AD ENTRYSW + AD ENTRYSW # SET ENTRYDSP, LATSW, GONEPAST. TS CM/FLAGS RELINT @@ -117,7 +117,7 @@ STARTENT EXIT # MM = 63 RTB SERVNOUT # OMIT INITIAL DISPLAY, SINCE 1ST GUESSBAD -# CALCULATE THE INITIAL TARGET VECTOR: RTINIT, ALSO RTEAST, RTNORM, AND RT. ALL ARE .5 UNIT AND IN +# CALCULATE THE INITIAL TARGET VECTOR: RTINIT, ALSO RTEAST, RTNORM AND RT. ALL ARE .5 UNIT AND IN # REFERENCE COORDINATES. STARTEN1 STQ VLOAD @@ -147,10 +147,10 @@ STARTEN1 STQ VLOAD STCALL THETAH # RANGE ANGLE /360 GOTOADDR # RETURN TO CALLER -500SEC 2DEC 50000 B-28 # CS. +500SEC 2DEC 50000 B-28 # CS ENTMASK OCT 11774 -ENTRYSW OCT 11010 # ENTRYDSP B13. GONEPAST B10. LATSW B4 +ENTRYSW OCT 11010 # ENTRYDSP B13, GONEPAST B10, LATSW B4 # Page 847 SCALEPOP CALL @@ -164,7 +164,7 @@ REFAZE10 TC PHASCHNG TC INTPRET # JUMP TO PARTICULAR RE-ENTRY PHASE: -SEQUENCE +#SEQUENCE GOTO GOTOADDR @@ -196,7 +196,7 @@ SEQUENCE # # P67.1 THE LAST COMPUTED ROLL ANGLE IS MAINTAINED. RATE DAMPING IS DONE IN PITCH AND YAW. PRESENT LATITUDE # AND LONGITUDE ARE COMPUTED FOR DISPLAY. -# ENTRY IS TERMINATED WHEN DISKY RESPONSE IS MADE TO THIS FINAL FLASHING DISPLAY. +# ENTRY IS TERMINATED WHEN DISKY RESPONSE IS MADE TO TO THIS FINAL FLASHING DISPLAY. # Page 848 # PROCESS AVERAGE G OUTPUT...SCALE IT AND GET INPUT DATA @@ -320,7 +320,7 @@ NOLDCALC GOTO NO.05G CLEAR GOTO # THIS WAY FOR DAP. (MAY INTERRUPT) .05GSW # .05GSW = 102D B3 - NOLDCALC # KEEP SINGLE EXIT FOR TARGETING + NOLDCALC # KEEP SINGLE EXIT FOR TARGETNG # Page 851 # SUBROUTINES CALLED BY SCALEPOP (TARGETING): @@ -346,12 +346,12 @@ GETETA DLOAD DDV # D = D +D(-RDOT/HS -2D/V) DT/2 D STORE D - BON DLOAD # EGSW INDICATES FINAL PHASE + BON DLOAD # EGSW INDICATES FINAL PHASE. EGSW SUBETA THETAH DMP GOTO - KTETA # = 1000x2PI/(2)E14 163.84 + KTETA # = 1000X2PI/(2)E14 163.84 UPDATERT SUBETA DLOAD DSU # SWITCH FROM INERTIAL TO RELATIVE VEL. @@ -391,7 +391,7 @@ TINYTHET DSU ABS # ENTER WITH X-.249 COUNT* $$/ENTRY - # MM = 63, 64, ... + # MM = 63 , 64 .. INITROLL BON BOFF # IF D- .05G NEG, GO TO LIMITL/D INRLSW INITRL1 @@ -400,7 +400,7 @@ INITROLL BON BOFF # IF D- .05G NEG, GO TO LIMITL/D # MM = 64, NOW # 3 - # KA = KA1 LEG + KA2 + # KA = KA1 LEQ + KA2 DLOAD DSQ LEQ DMP DDV @@ -484,7 +484,7 @@ INITRL1 DLOAD DAD # IF RDOT + VRCONT POS, GO TO HUNTEST FOREHUNT # INITIALIZE HUNTEST. # Page 855 -# * START HUNT TEST ... +# * START HUNT TEST .. # MM = 64 SSP # INITIALIZE HUNTEST ON FIRST PASS GOTOADDR @@ -575,7 +575,7 @@ HUNTEST1 DLOAD DMP # ALP = 2 C1 HS A0/LEWD V1 V1 LEWD DDV VL - STODL GAMMAL1 # GAMMAL1 USED IN UPCONTROL. + STODL GAMMAL1 # GAMMAL1 USED IN UPCONTROL # GAMMAL1 = PDL 22D. VL @@ -643,7 +643,7 @@ HUNTEST3 STORE GAMMAL # Page 859 # *START RANGE PREDICTION ... - # C(MPAC) = GAMMAL. + # C(MPAC) = GAMMAL RANGER DSQ SR2 # COSG = 1-GAMMAL SQ/2, TRUNCATED SERIES BDSU HALVE @@ -793,7 +793,7 @@ LEWDPTR DLOAD SR1 LWDSTORE # Page 862 -# NEGAMA IS PART OF HUNTEST... +# NEGAMA IS PART OF HUNTEST ... NEGAMA DMP DMP # ENTER WITH GAMMAL IN MPAC VL 1/3RD @@ -828,7 +828,7 @@ NEGAMA DMP DMP # ENTER WITH GAMMAL IN MPAC GOTO # SET GAMMAL = 0 HUNTEST3 -DHOOKYQ7 SR1 DDV # SUBROUTINE TO CALC DHOOK OR Q7 +DHOOKYQ7 SR1 DDV # SUBROUTINE TO CALC DHOOK OR Q7) FACT1 BDSU SL1 HALVE @@ -867,7 +867,7 @@ GOTOUPSY RTB # END OF HUNTEST P65 # HUNTEST USE OF GRP4 IS DISABLED BY P65 # USE FOR DISPLAY. # SET MODE = UPCONTRL. - # RETURN FROM P65 DIRECTLY TO UPDONTRL + # RETURN FROM P65 DIRECTLY TO UPCONTRL # VIA THE GOTOADDR AT REFAZE10. UPCONTRL DLOAD DSU # IF D-140 POS, NOSWITCH =1 @@ -928,7 +928,7 @@ CONT3 DLOAD DMP # VREF=FACT1(1-SQRT(FACT2 D + ALP)) CONTINU2 PUSH PUSH # VS1-VREF TO PDL TWICE - DMP DDV # RDHOOK=CHI1(1+DV AHOOKDV/DVL) DV DV + DMP DDV # RDHOOK=CHI(1+DV AHOOKDV/DVL) DV DV AHOOKDV # /DHOOK VREF DVL # WHERE DV = (VS1-VREF) DAD DMP @@ -1085,7 +1085,7 @@ DOWNCNTL BOVB # INITIAL PART OF UPCONTROL. # DREF = (V/V1) A0 -(V-V1) LAD/2 C1 HS # Page 869 # * START BALLISTIC PHASE ... - # MM = 66 UPCONTRL ENTRY INTO KEP2 + # MM = 66 UPCONTRL ENTRY INTO KEP2. KEP RTB SSP P66 # DISPLAY TRIM GIMBAL ANGLE VALUES. GOTOADDR # SET GOTOADDR TO KEPLER PHASE. @@ -1103,7 +1103,7 @@ KEP2 DLOAD DSU # IF Q7F+KDMIN -D NEG, GO TO FINAL PHASE. # SET ROLLHOLD = ROLLC, IN CASE CMDAPMOD ROLLC # = +1 EVER ENTERED. BON TLOAD # IF D > .05G, KEEP PRESENT ROLL COMMAND. - .05GSW # IF D < .06G, SET ROLL COMMAND = 0. + .05GSW # IF D < .05G, SET ROLL COMMAND = 0. +2 3ZEROS # SET ROLLC & ROLLHOLD =0. +2 STCALL ROLLC # (SP ROLLHOLD FOLLOWS DP ROLLC) @@ -1116,11 +1116,11 @@ KEP2 DLOAD DSU # IF Q7F+KDMIN -D NEG, GO TO FINAL PHASE. PREFINAL SSP RTB GOTOADDR # RESTART PROTECT: RESET GOTOADDR IF CAME PREFINAL # FROM HUNTEST. - P67 # DISABLES GRP4. FINE IF FROM HUNTEST, BUT + P67 # DISABLES GRP4. FINE IF FROM HUNTEST.BUT # MAY ALSO REMOVE RESTART PROTECTION OF # N69 (P65). # ROLLC XRNGERR DNRNGERR - # XXX.XX DEG XXXX.X NM XXXX.XX NM + # XXX.XX DEG XXXX.X NM XXXX.X NM SET SSP EGSW @@ -1156,7 +1156,7 @@ BACK TS JJ ZL EXTEND DV TEM1B - TS GRAD # GRAD = (V-VREF)/(VK+1 - VK) (POS NUM) + TS GRAD # GRAD = (V-VREF)/(VK+1 - VK) (POS NUM CAF FIVE @@ -1212,7 +1212,7 @@ BACK2 TS MM HAVDNRNG STORE DNRNGERR # = (PREDANG - THETA) /360 # Page 872 - DCOMP # FALLS SHORT IF NEG, OVERSHOOT IF POS + DCOMP # FALL SHORT IF NEG, OVERSHOOT IF POS BOVB DDV TCDANZIG # CLEAR OVFIND IF ON. FX # FX= DRANGE/D L/D = Y @@ -1230,7 +1230,7 @@ HAVDNRNG STORE DNRNGERR # = (PREDANG - THETA) /360 GONEGLAD DLOAD # SET L/D = -LAD GONEGLAD # (ANY NEGATIVE NUMBER WILL DO) -GOMAXL/D RTB DMP L/D = LAD SIGN(MPAC) +GOMAXL/D RTB DMP # L/D = LAD SIGN(MPAC) SIGNMPAC LAD STORE L/D # AND FALL INTO GLIMITER SECTION @@ -1320,7 +1320,7 @@ NODISKY INHINT CCS NEWJOB # PROTECT READACCS GRP 5, IF SIDETRACKED. TC CHANG1 SERVNOUT TC POSTJUMP # ( COME HERE FROM P67.3 ) - CADR SERVEXIT # AND END AVERAGEG JOB VIA ENDOJOB. + CADR SERVEXIT # AND END AVERAGEG JOB VIA ENDOFJOB. # Page 875 # DISPLAY WHEN V IS LESS THAN VQUIT. @@ -1359,7 +1359,7 @@ L357 DLOAD SIGN # L/D = L/DCMINR SIGN(L/D) VREFER DEC .019288 # REFERENCE VELOCITY SCALED V/51532.3946 DEC .040809 # 13 POINTS ARE STORED AS THE INDEPENDENT - DEC .076107 # VARIABLE AND THEN SIX 13-POINT FUNCTIONS + DEC .076107 # VARIABLE AND THEN SIX 13 POINT FUNCTIONS DEC .122156 # OF V ARE STORED CONSECUTIVELY DEC .165546 DEC .196012 @@ -1463,7 +1463,7 @@ VREFER DEC .019288 # REFERENCE VELOCITY SCALED V/51532.3946 # DEFINED BY EQUALS DEC15 = LOW4 -GAMMAL1 = 22D +#GAMMAL1 = 22D MAXRNG 2OCT 1663106755 # DNRNGERR = 9999.9 IF GONEPAST=1 @@ -1473,8 +1473,8 @@ MAXRNG 2OCT 1663106755 # DNRNGERR = 9999.9 IF GONEPAST=1 COUNT* $$/ENTRY -BARELY1 = NEARONE # COMMON TO BOTH DISK,DANCE, DEFND IN TFF -1BITDP # COMMON TO BOTH DISK AND DANCE. DEFND IN VECPOINT. +BARELY1 = NEARONE # COMMON TO BOTH DISK,DANCE.DEFND IN TFF +#1BITDP # COMMON TO BOTH DISK AND DANCE. DEFND IN VECPOINT. 1/12TH DEC .083333 # DP 1/12 USES HI WORD IN 1/3 BELOW 1/3RD 2DEC .3333333333 # DP 1/3 @@ -1525,7 +1525,7 @@ C12 2DEC .00684572901 # 32 28500/(21202900 2 PI) 1/KB1 2DEC .29411765 # 1 / 3.4 --1/KB2 2DEC -.0057074322 B4 # - 1/(.0034 2 VS) EXP +4 +-1/KB2 2DEC -.0057074322 B4 # = -1/(.0034 2 VS) EXP +4 VQUIT 2DEC .019405269 # 1000 /2VS