Many more diffs found in REENTRY_CONTROL (#310)
* Many more diffs found in REENTRY_CONTROL. Found by diffing against: - https://github.com/virtualagc/virtualagc/blob/master/Comanche055/REENTRY_CONTROL.agc Scanned pages still ultimate source of truth. * Reverting earlier uncommenting of lines starting with 'A' There seems to be a pattern where lines starting with 'A' are commented out code blocks, so it's better to leave them commented.
This commit is contained in:
parent
bc2577e915
commit
401afa6f77
@ -59,7 +59,7 @@ STARTENT EXIT # MM = 63
|
|||||||
# HIND=99D B6 INRLSW=100D B5
|
# HIND=99D B6 INRLSW=100D B5
|
||||||
# LATSW=101D B4 .05GSW=102D B3
|
# LATSW=101D B4 .05GSW=102D B3
|
||||||
|
|
||||||
AD ENTRYSW
|
AD ENTRYSW # SET ENTRYDSP, LATSW, GONEPAST.
|
||||||
TS CM/FLAGS
|
TS CM/FLAGS
|
||||||
|
|
||||||
RELINT
|
RELINT
|
||||||
@ -117,7 +117,7 @@ STARTENT EXIT # MM = 63
|
|||||||
RTB
|
RTB
|
||||||
SERVNOUT # OMIT INITIAL DISPLAY, SINCE 1ST GUESSBAD
|
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.
|
# REFERENCE COORDINATES.
|
||||||
|
|
||||||
STARTEN1 STQ VLOAD
|
STARTEN1 STQ VLOAD
|
||||||
@ -147,10 +147,10 @@ STARTEN1 STQ VLOAD
|
|||||||
STCALL THETAH # RANGE ANGLE /360
|
STCALL THETAH # RANGE ANGLE /360
|
||||||
GOTOADDR # RETURN TO CALLER
|
GOTOADDR # RETURN TO CALLER
|
||||||
|
|
||||||
500SEC 2DEC 50000 B-28 # CS.
|
500SEC 2DEC 50000 B-28 # CS
|
||||||
|
|
||||||
ENTMASK OCT 11774
|
ENTMASK OCT 11774
|
||||||
ENTRYSW OCT 11010 # ENTRYDSP B13. GONEPAST B10. LATSW B4
|
ENTRYSW OCT 11010 # ENTRYDSP B13, GONEPAST B10, LATSW B4
|
||||||
# Page 847
|
# Page 847
|
||||||
|
|
||||||
SCALEPOP CALL
|
SCALEPOP CALL
|
||||||
@ -164,7 +164,7 @@ REFAZE10 TC PHASCHNG
|
|||||||
TC INTPRET
|
TC INTPRET
|
||||||
|
|
||||||
# JUMP TO PARTICULAR RE-ENTRY PHASE:
|
# JUMP TO PARTICULAR RE-ENTRY PHASE:
|
||||||
SEQUENCE
|
#SEQUENCE
|
||||||
GOTO
|
GOTO
|
||||||
GOTOADDR
|
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
|
# 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.
|
# 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
|
# Page 848
|
||||||
# PROCESS AVERAGE G OUTPUT...SCALE IT AND GET INPUT DATA
|
# 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)
|
NO.05G CLEAR GOTO # THIS WAY FOR DAP. (MAY INTERRUPT)
|
||||||
.05GSW # .05GSW = 102D B3
|
.05GSW # .05GSW = 102D B3
|
||||||
NOLDCALC # KEEP SINGLE EXIT FOR TARGETING
|
NOLDCALC # KEEP SINGLE EXIT FOR TARGETNG
|
||||||
|
|
||||||
# Page 851
|
# Page 851
|
||||||
# SUBROUTINES CALLED BY SCALEPOP (TARGETING):
|
# SUBROUTINES CALLED BY SCALEPOP (TARGETING):
|
||||||
@ -346,12 +346,12 @@ GETETA DLOAD DDV # D = D +D(-RDOT/HS -2D/V) DT/2
|
|||||||
D
|
D
|
||||||
STORE D
|
STORE D
|
||||||
|
|
||||||
BON DLOAD # EGSW INDICATES FINAL PHASE
|
BON DLOAD # EGSW INDICATES FINAL PHASE.
|
||||||
EGSW
|
EGSW
|
||||||
SUBETA
|
SUBETA
|
||||||
THETAH
|
THETAH
|
||||||
DMP GOTO
|
DMP GOTO
|
||||||
KTETA # = 1000x2PI/(2)E14 163.84
|
KTETA # = 1000X2PI/(2)E14 163.84
|
||||||
UPDATERT
|
UPDATERT
|
||||||
|
|
||||||
SUBETA DLOAD DSU # SWITCH FROM INERTIAL TO RELATIVE VEL.
|
SUBETA DLOAD DSU # SWITCH FROM INERTIAL TO RELATIVE VEL.
|
||||||
@ -391,7 +391,7 @@ TINYTHET DSU ABS # ENTER WITH X-.249
|
|||||||
|
|
||||||
COUNT* $$/ENTRY
|
COUNT* $$/ENTRY
|
||||||
|
|
||||||
# MM = 63, 64, ...
|
# MM = 63 , 64 ..
|
||||||
INITROLL BON BOFF # IF D- .05G NEG, GO TO LIMITL/D
|
INITROLL BON BOFF # IF D- .05G NEG, GO TO LIMITL/D
|
||||||
INRLSW
|
INRLSW
|
||||||
INITRL1
|
INITRL1
|
||||||
@ -400,7 +400,7 @@ INITROLL BON BOFF # IF D- .05G NEG, GO TO LIMITL/D
|
|||||||
|
|
||||||
# MM = 64, NOW
|
# MM = 64, NOW
|
||||||
# 3
|
# 3
|
||||||
# KA = KA1 LEG + KA2
|
# KA = KA1 LEQ + KA2
|
||||||
DLOAD DSQ
|
DLOAD DSQ
|
||||||
LEQ
|
LEQ
|
||||||
DMP DDV
|
DMP DDV
|
||||||
@ -484,7 +484,7 @@ INITRL1 DLOAD DAD # IF RDOT + VRCONT POS, GO TO HUNTEST
|
|||||||
FOREHUNT # INITIALIZE HUNTEST.
|
FOREHUNT # INITIALIZE HUNTEST.
|
||||||
|
|
||||||
# Page 855
|
# Page 855
|
||||||
# * START HUNT TEST ...
|
# * START HUNT TEST ..
|
||||||
# MM = 64
|
# MM = 64
|
||||||
SSP # INITIALIZE HUNTEST ON FIRST PASS
|
SSP # INITIALIZE HUNTEST ON FIRST PASS
|
||||||
GOTOADDR
|
GOTOADDR
|
||||||
@ -575,7 +575,7 @@ HUNTEST1 DLOAD DMP # ALP = 2 C1 HS A0/LEWD V1 V1
|
|||||||
LEWD
|
LEWD
|
||||||
DDV
|
DDV
|
||||||
VL
|
VL
|
||||||
STODL GAMMAL1 # GAMMAL1 USED IN UPCONTROL.
|
STODL GAMMAL1 # GAMMAL1 USED IN UPCONTROL
|
||||||
|
|
||||||
# GAMMAL1 = PDL 22D.
|
# GAMMAL1 = PDL 22D.
|
||||||
VL
|
VL
|
||||||
@ -643,7 +643,7 @@ HUNTEST3 STORE GAMMAL
|
|||||||
|
|
||||||
# Page 859
|
# Page 859
|
||||||
# *START RANGE PREDICTION ...
|
# *START RANGE PREDICTION ...
|
||||||
# C(MPAC) = GAMMAL.
|
# C(MPAC) = GAMMAL
|
||||||
RANGER DSQ SR2 # COSG = 1-GAMMAL SQ/2, TRUNCATED SERIES
|
RANGER DSQ SR2 # COSG = 1-GAMMAL SQ/2, TRUNCATED SERIES
|
||||||
BDSU
|
BDSU
|
||||||
HALVE
|
HALVE
|
||||||
@ -828,7 +828,7 @@ NEGAMA DMP DMP # ENTER WITH GAMMAL IN MPAC
|
|||||||
GOTO # SET GAMMAL = 0
|
GOTO # SET GAMMAL = 0
|
||||||
HUNTEST3
|
HUNTEST3
|
||||||
|
|
||||||
DHOOKYQ7 SR1 DDV # SUBROUTINE TO CALC DHOOK OR Q7
|
DHOOKYQ7 SR1 DDV # SUBROUTINE TO CALC DHOOK OR Q7)
|
||||||
FACT1
|
FACT1
|
||||||
BDSU SL1
|
BDSU SL1
|
||||||
HALVE
|
HALVE
|
||||||
@ -867,7 +867,7 @@ GOTOUPSY RTB # END OF HUNTEST
|
|||||||
P65 # HUNTEST USE OF GRP4 IS DISABLED BY P65
|
P65 # HUNTEST USE OF GRP4 IS DISABLED BY P65
|
||||||
# USE FOR DISPLAY.
|
# USE FOR DISPLAY.
|
||||||
# SET MODE = UPCONTRL.
|
# SET MODE = UPCONTRL.
|
||||||
# RETURN FROM P65 DIRECTLY TO UPDONTRL
|
# RETURN FROM P65 DIRECTLY TO UPCONTRL
|
||||||
# VIA THE GOTOADDR AT REFAZE10.
|
# VIA THE GOTOADDR AT REFAZE10.
|
||||||
|
|
||||||
UPCONTRL DLOAD DSU # IF D-140 POS, NOSWITCH =1
|
UPCONTRL DLOAD DSU # IF D-140 POS, NOSWITCH =1
|
||||||
@ -928,7 +928,7 @@ CONT3 DLOAD DMP # VREF=FACT1(1-SQRT(FACT2 D + ALP))
|
|||||||
CONTINU2
|
CONTINU2
|
||||||
|
|
||||||
PUSH PUSH # VS1-VREF TO PDL TWICE
|
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
|
AHOOKDV # /DHOOK VREF
|
||||||
DVL # WHERE DV = (VS1-VREF)
|
DVL # WHERE DV = (VS1-VREF)
|
||||||
DAD DMP
|
DAD DMP
|
||||||
@ -1085,7 +1085,7 @@ DOWNCNTL BOVB # INITIAL PART OF UPCONTROL.
|
|||||||
# DREF = (V/V1) A0 -(V-V1) LAD/2 C1 HS
|
# DREF = (V/V1) A0 -(V-V1) LAD/2 C1 HS
|
||||||
# Page 869
|
# Page 869
|
||||||
# * START BALLISTIC PHASE ...
|
# * START BALLISTIC PHASE ...
|
||||||
# MM = 66 UPCONTRL ENTRY INTO KEP2
|
# MM = 66 UPCONTRL ENTRY INTO KEP2.
|
||||||
KEP RTB SSP
|
KEP RTB SSP
|
||||||
P66 # DISPLAY TRIM GIMBAL ANGLE VALUES.
|
P66 # DISPLAY TRIM GIMBAL ANGLE VALUES.
|
||||||
GOTOADDR # SET GOTOADDR TO KEPLER PHASE.
|
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
|
# SET ROLLHOLD = ROLLC, IN CASE CMDAPMOD
|
||||||
ROLLC # = +1 EVER ENTERED.
|
ROLLC # = +1 EVER ENTERED.
|
||||||
BON TLOAD # IF D > .05G, KEEP PRESENT ROLL COMMAND.
|
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
|
+2
|
||||||
3ZEROS # SET ROLLC & ROLLHOLD =0.
|
3ZEROS # SET ROLLC & ROLLHOLD =0.
|
||||||
+2 STCALL ROLLC # (SP ROLLHOLD FOLLOWS DP ROLLC)
|
+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
|
PREFINAL SSP RTB
|
||||||
GOTOADDR # RESTART PROTECT: RESET GOTOADDR IF CAME
|
GOTOADDR # RESTART PROTECT: RESET GOTOADDR IF CAME
|
||||||
PREFINAL # FROM HUNTEST.
|
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
|
# MAY ALSO REMOVE RESTART PROTECTION OF
|
||||||
# N69 (P65).
|
# N69 (P65).
|
||||||
# ROLLC XRNGERR DNRNGERR
|
# ROLLC XRNGERR DNRNGERR
|
||||||
# XXX.XX DEG XXXX.X NM XXXX.XX NM
|
# XXX.XX DEG XXXX.X NM XXXX.X NM
|
||||||
|
|
||||||
SET SSP
|
SET SSP
|
||||||
EGSW
|
EGSW
|
||||||
@ -1156,7 +1156,7 @@ BACK TS JJ
|
|||||||
ZL
|
ZL
|
||||||
EXTEND
|
EXTEND
|
||||||
DV TEM1B
|
DV TEM1B
|
||||||
TS GRAD # GRAD = (V-VREF)/(VK+1 - VK) (POS NUM)
|
TS GRAD # GRAD = (V-VREF)/(VK+1 - VK) (POS NUM
|
||||||
|
|
||||||
CAF FIVE
|
CAF FIVE
|
||||||
|
|
||||||
@ -1212,7 +1212,7 @@ BACK2 TS MM
|
|||||||
|
|
||||||
HAVDNRNG STORE DNRNGERR # = (PREDANG - THETA) /360
|
HAVDNRNG STORE DNRNGERR # = (PREDANG - THETA) /360
|
||||||
# Page 872
|
# Page 872
|
||||||
DCOMP # FALLS SHORT IF NEG, OVERSHOOT IF POS
|
DCOMP # FALL SHORT IF NEG, OVERSHOOT IF POS
|
||||||
BOVB DDV
|
BOVB DDV
|
||||||
TCDANZIG # CLEAR OVFIND IF ON.
|
TCDANZIG # CLEAR OVFIND IF ON.
|
||||||
FX # FX= DRANGE/D L/D = Y
|
FX # FX= DRANGE/D L/D = Y
|
||||||
@ -1230,7 +1230,7 @@ HAVDNRNG STORE DNRNGERR # = (PREDANG - THETA) /360
|
|||||||
GONEGLAD DLOAD # SET L/D = -LAD
|
GONEGLAD DLOAD # SET L/D = -LAD
|
||||||
GONEGLAD # (ANY NEGATIVE NUMBER WILL DO)
|
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
|
SIGNMPAC
|
||||||
LAD
|
LAD
|
||||||
STORE L/D # AND FALL INTO GLIMITER SECTION
|
STORE L/D # AND FALL INTO GLIMITER SECTION
|
||||||
@ -1320,7 +1320,7 @@ NODISKY INHINT
|
|||||||
CCS NEWJOB # PROTECT READACCS GRP 5, IF SIDETRACKED.
|
CCS NEWJOB # PROTECT READACCS GRP 5, IF SIDETRACKED.
|
||||||
TC CHANG1
|
TC CHANG1
|
||||||
SERVNOUT TC POSTJUMP # ( COME HERE FROM P67.3 )
|
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
|
# Page 875
|
||||||
# DISPLAY WHEN V IS LESS THAN VQUIT.
|
# 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
|
VREFER DEC .019288 # REFERENCE VELOCITY SCALED V/51532.3946
|
||||||
DEC .040809 # 13 POINTS ARE STORED AS THE INDEPENDENT
|
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 .122156 # OF V ARE STORED CONSECUTIVELY
|
||||||
DEC .165546
|
DEC .165546
|
||||||
DEC .196012
|
DEC .196012
|
||||||
@ -1463,7 +1463,7 @@ VREFER DEC .019288 # REFERENCE VELOCITY SCALED V/51532.3946
|
|||||||
# DEFINED BY EQUALS
|
# DEFINED BY EQUALS
|
||||||
|
|
||||||
DEC15 = LOW4
|
DEC15 = LOW4
|
||||||
GAMMAL1 = 22D
|
#GAMMAL1 = 22D
|
||||||
|
|
||||||
MAXRNG 2OCT 1663106755 # DNRNGERR = 9999.9 IF GONEPAST=1
|
MAXRNG 2OCT 1663106755 # DNRNGERR = 9999.9 IF GONEPAST=1
|
||||||
|
|
||||||
@ -1473,8 +1473,8 @@ MAXRNG 2OCT 1663106755 # DNRNGERR = 9999.9 IF GONEPAST=1
|
|||||||
|
|
||||||
COUNT* $$/ENTRY
|
COUNT* $$/ENTRY
|
||||||
|
|
||||||
BARELY1 = NEARONE # COMMON TO BOTH DISK,DANCE, DEFND IN TFF
|
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/12TH DEC .083333 # DP 1/12 USES HI WORD IN 1/3 BELOW
|
||||||
1/3RD 2DEC .3333333333 # DP 1/3
|
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/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
|
VQUIT 2DEC .019405269 # 1000 /2VS
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user