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
|
||||
# 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
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user