diff --git a/Comanche055/REENTRY_CONTROL.agc b/Comanche055/REENTRY_CONTROL.agc index 0ac72e9..70c78aa 100644 --- a/Comanche055/REENTRY_CONTROL.agc +++ b/Comanche055/REENTRY_CONTROL.agc @@ -54,8 +54,8 @@ STARTENT EXIT # MM = 63 INHINT MASK CM/FLAGS # ENTRYDSP = 92D B13 - # GONEPAST=95D B10 RELVELSW=96D B9 - # EGSW = 97D B8 + # GONEPAST=95D B10. RELVELSW=96D B9 + # EGSW = 97D B8 NOSWITCH = 98D B7 # HIND=99D B6 INRLSW=100D B5 # LATSW=101D B4 .05GSW=102D B3 @@ -140,7 +140,7 @@ STARTEN1 STQ VLOAD 500SEC # NOMINAL ENTRY TIME FOR P63 # TIME/RTO = PIPTIME, STILL. STCALL DTEAROT # INITIALIZE EARROT - EARROT1 # GET R5 + EARROT1 # GET RT DOT SL1 UNITR # RT/2 IN MPAC ACOS @@ -164,7 +164,7 @@ REFAZE10 TC PHASCHNG TC INTPRET # JUMP TO PARTICULAR RE-ENTRY PHASE: -# SEQUENCE +SEQUENCE GOTO GOTOADDR @@ -229,7 +229,7 @@ GETUNITV UNIT STQ STORE VSQUARE # VSQ/4 DSU # LEQ = VSQUARE - 1 - FOURTH # 4 G'S FULL SCALE + FOURTH # 4 G-S FULL SCALE STODL LEQ # LEQ/4 36D @@ -249,7 +249,7 @@ DSTORE STOVL D # ACCELERATION USED TO APPROX DRAG VEL VXV UNIT # UNI = UNIT(V*R) # Page 849 - UNITR + UNITR STORE UNI # .5 UNI REF COORDS. BOFF DLOAD @@ -734,7 +734,7 @@ RANGER DSQ SR2 # COSG = 1-GAMMAL SQ/2, TRUNCATED SERIES DLOAD BPL DIFF DCONSTD # EVENTUALLY SETS MODE = HUNTEST. -GETLEWD DLOAD DMP +GETDLEWD DLOAD DMP # DLEWD = DLEWD (DIFF/(DIFFOLD-DIFF)) DLEWD DIFF @@ -761,7 +761,7 @@ SIDETRAK EXIT TS PHSPRDT5 # GRP 4. TC PHASCHNG - OCT 00474 # RESTART GRP 4 AT PRE-HUN. + OCT 00474 # RESTART GRP 4 AT PRE-HUNT. # FORCE RESTART TO PICK UP IN GRP 4: # USE PRIO 17 FOR GRP 4 (< SERVICER PRIO) CA PRIO16 # CONTINUE GRP 5 AT LOWER PRIO THAN EITHER @@ -793,8 +793,8 @@ LEWDPTR DLOAD SR1 LWDSTORE # Page 862 +# NEGAMA IS PART OF HUNTEST... NEGAMA DMP DMP # ENTER WITH GAMMAL IN MPAC - VL 1/3RD PDDL DMP # PUSH GAMMAL VL/3 @@ -1106,7 +1106,7 @@ KEP2 DLOAD DSU # IF Q7F+KDMIN -D NEG, GO TO FINAL PHASE. .05GSW # IF D < .06G, SET ROLL COMMAND = 0. +2 3ZEROS # SET ROLLC & ROLLHOLD =0. - +2 STCALL ROLLC # (SP ROLLHOLD FOLLOWS DP ROLLC) ++2 STCALL ROLLC # (SP ROLLHOLD FOLLOWS DP ROLLC) P62.3 # CALC DESIRED GIMBAL ANGLES AT PRESENT # RN, VN TO YIELD TRIM ATTITUDE. # AVAILABLE IN CPHI'S FOR N22. @@ -1420,7 +1420,7 @@ VREFER DEC .019288 # REFERENCE VELOCITY SCALED V/51532.3946 DEC .017148 DEC .027926 DEC .037 - DEC .063298 + DEC .063296 DEC .077889 DEC .098815 DEC .127519 @@ -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 @@ -1474,7 +1474,7 @@ 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. +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 @@ -1545,7 +1545,7 @@ KASCALE 2DEC .97657358 # 5.85 16384/(4 .3048 100 805) KTETA 2DEC* .383495203 E2 B-14* # 1000 2PI/16384(163.84) -KT1 2DEC* .157788327 E2 B-14* # RE(2PI)/2 VS(16384) 163.84 +KT1 2DEC* .157788327 E 2 B-14* # RE(2PI)/2 VS(16384) 163.84 .05G 2DEC .002 # .05/25