ryan/Apollo-11
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Many more diffs found in REENTRY_CONTROL (#310)

Browse Source 
* 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:
abrogley
2018-04-13 16:12:23 -05:00
committed by James Harris
parent bc2577e915
commit 401afa6f77
1 changed files with 31 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

62
Comanche055/REENTRY_CONTROL.agc
View File

@@ -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