kjodle/Apollo-11
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fixing transcription errors in REENTRY_CONTROL. (#309)

Browse Source 
* Fixing transcription errors in REENTRY_CONTROL.

Pages proofed: 844 to 882

Fixes chrislgarry/Apollo-11#250

* Tabs instead of spaces in REENTRY_CONTROL
This commit is contained in:
abrogley 2018-03-03 14:24:42 -06:00 committed by oldmud0
parent e26485b8ea
commit 5bd4c56c6f
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
Comanche055/REENTRY_CONTROL.agc
View File

@ -54,8 +54,8 @@ STARTENT EXIT # MM = 63
INHINT INHINT
MASK CM/FLAGS MASK CM/FLAGS
# ENTRYDSP = 92D B13 # ENTRYDSP = 92D B13
# GONEPAST=95D B10 RELVELSW=96D B9 # GONEPAST=95D B10. RELVELSW=96D B9
# EGSW = 97D B8 # EGSW = 97D B8 NOSWITCH = 98D B7
# HIND=99D B6 INRLSW=100D B5 # HIND=99D B6 INRLSW=100D B5
# LATSW=101D B4 .05GSW=102D B3 # LATSW=101D B4 .05GSW=102D B3
@ -140,7 +140,7 @@ STARTEN1 STQ VLOAD
500SEC # NOMINAL ENTRY TIME FOR P63 500SEC # NOMINAL ENTRY TIME FOR P63
# TIME/RTO = PIPTIME, STILL. # TIME/RTO = PIPTIME, STILL.
STCALL DTEAROT # INITIALIZE EARROT STCALL DTEAROT # INITIALIZE EARROT
EARROT1 # GET R5 EARROT1 # GET RT
DOT SL1 DOT SL1
UNITR # RT/2 IN MPAC UNITR # RT/2 IN MPAC
ACOS ACOS
@ -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
@ -229,7 +229,7 @@ GETUNITV UNIT STQ
STORE VSQUARE # VSQ/4 STORE VSQUARE # VSQ/4
DSU # LEQ = VSQUARE - 1 DSU # LEQ = VSQUARE - 1
FOURTH # 4 G'S FULL SCALE FOURTH # 4 G-S FULL SCALE
STODL LEQ # LEQ/4 STODL LEQ # LEQ/4
36D 36D
@ -249,7 +249,7 @@ DSTORE STOVL D # ACCELERATION USED TO APPROX DRAG
VEL VEL
VXV UNIT # UNI = UNIT(V*R) VXV UNIT # UNI = UNIT(V*R)
# Page 849 # Page 849
UNITR UNITR
STORE UNI # .5 UNI REF COORDS. STORE UNI # .5 UNI REF COORDS.
BOFF DLOAD BOFF DLOAD
@ -734,7 +734,7 @@ RANGER DSQ SR2 # COSG = 1-GAMMAL SQ/2, TRUNCATED SERIES
DLOAD BPL DLOAD BPL
DIFF DIFF
DCONSTD # EVENTUALLY SETS MODE = HUNTEST. DCONSTD # EVENTUALLY SETS MODE = HUNTEST.
GETLEWD DLOAD DMP GETDLEWD DLOAD DMP
# DLEWD = DLEWD (DIFF/(DIFFOLD-DIFF)) # DLEWD = DLEWD (DIFF/(DIFFOLD-DIFF))
DLEWD DLEWD
DIFF DIFF
@ -761,7 +761,7 @@ SIDETRAK EXIT
TS PHSPRDT5 # GRP 4. TS PHSPRDT5 # GRP 4.
TC PHASCHNG 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: # FORCE RESTART TO PICK UP IN GRP 4:
# USE PRIO 17 FOR GRP 4 (< SERVICER PRIO) # USE PRIO 17 FOR GRP 4 (< SERVICER PRIO)
CA PRIO16 # CONTINUE GRP 5 AT LOWER PRIO THAN EITHER CA PRIO16 # CONTINUE GRP 5 AT LOWER PRIO THAN EITHER
@ -793,8 +793,8 @@ LEWDPTR DLOAD SR1
LWDSTORE LWDSTORE
# Page 862 # Page 862
# NEGAMA IS PART OF HUNTEST...
NEGAMA DMP DMP # ENTER WITH GAMMAL IN MPAC NEGAMA DMP DMP # ENTER WITH GAMMAL IN MPAC
VL VL
1/3RD 1/3RD
PDDL DMP # PUSH GAMMAL VL/3 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. .05GSW # IF D < .06G, 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)
P62.3 # CALC DESIRED GIMBAL ANGLES AT PRESENT P62.3 # CALC DESIRED GIMBAL ANGLES AT PRESENT
# RN, VN TO YIELD TRIM ATTITUDE. # RN, VN TO YIELD TRIM ATTITUDE.
# AVAILABLE IN CPHI'S FOR N22. # AVAILABLE IN CPHI'S FOR N22.
@ -1420,7 +1420,7 @@ VREFER DEC .019288 # REFERENCE VELOCITY SCALED V/51532.3946
DEC .017148 DEC .017148
DEC .027926 DEC .027926
DEC .037 DEC .037
DEC .063298 DEC .063296
DEC .077889 DEC .077889
DEC .098815 DEC .098815
DEC .127519 DEC .127519
@ -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
@ -1474,7 +1474,7 @@ 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
@ -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) 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 .05G 2DEC .002 # .05/25