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:
abrogley 2018-04-13 16:12:23 -05:00 committed by James Harris
parent bc2577e915
commit 401afa6f77

View File

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