SevenOfAces/Apollo-Guidance-Computer
1
1
Fork 0
mirror of https://github.com/chrislgarry/Apollo-11.git synced 2025-02-13 16:24:37 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Proofed until page 1450

Browse source
This commit is contained in:
Murtaza 2020-10-27 16:56:05 +08:00
parent 7b5ea33dfd
commit 3cc7110c16
1 changed files with 17 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
Luminary099/Q_R-AXIS_RCS_AUTOPILOT.agc
View file

@ -232,7 +232,7 @@ MIMRET CA DAPBOOLS
# Page 1446
TCF AFTERTJ
60MS DEC 96 # RSB 2009 -- was 96.0.
60MS DEC 96.0
MINADR GENADR MINRTN
OCT63 OCT 63
14MS = +TJMINT6
@ -263,24 +263,24 @@ CHEKSTIK TS INGTS # NOT IN GTS WHEN IN ATT HOLD
1/10S OCT 1
LINRAT DEC 46
# ===========================================================
# ================================
DAMPING CA ZERO
TS SAVEHAND
TS SAVEHAND +1
RHCACTIV CCS SAVEHAND # ******************
RHCACTIV CCS SAVEHAND # *******************
TCF +3 # Q,R MANUAL CONTROL WC = A*(B+|D|)*D
TCF +2 # ******************
TCF +2 # *******************
TCF +1
DOUBLE # WHERE
DOUBLE #
DOUBLE
AD LINRAT # WC = COMMANDED ROTATIONAL RATE
EXTEND # A = QUADRATIC SENSITIVITY FACTOR
MP SAVEHAND # B = LINEAR/QUADRATIC SENSITIVITY
CA L # |D| = ABS. VALUE OF DEFLECTION
EXTEND # D = HAND CONTROLLER DEFLECTION
MP STIKSENS
XCH QLAST # COMMAND Q RATE, SCALED 45 DEG/SEC
XCH QLAST # COMMAND Q RATE SCALED 45 DEG/SEC
COM
# Page 1447
AD QLAST
@ -335,7 +335,7 @@ ENTERQR DXCH QRATEDIF # TRANSFORM RATES FROM Q,R TO U,V AXES
CA 40CYCL
# Page 1448
TS TCQR
ENTERUV INHINT # DIRECT RATE CONTROL
ENTERUV INHINT # DIRECT RATE CONTROL.
TC IBNKCALL
FCADR ZATTEROR
RELINT
@ -400,22 +400,22 @@ BACKHAND TS AXISCTR
TCF LOOPER
INDEX AXISCTR
CCS URATEDIF # INDEX AXIS QUANTITY
CA ZERO # 0 -U 1/JETACC-AOSU
TCF +2 # 1 +U 1/JETACC+AOSU
CA ONE # 16 -V 1/JETACC-AOSV
INDEX AXISCTR # 17 +V 1/JETACC+AOSV
CCS URATEDIF # INDEX AXIS QUANTITY
CA ZERO # 0 -U 1/JETACC-AOSU
TCF +2 # 1 +U 1/JETACC+AOSU
CA ONE # 16 -V 1/JETACC-AOSV
INDEX AXISCTR # 17 +V 1/JETACC+AOSV
AD AXISDIFF # JETACC = 2 JET ACCELERATION (1 FOR FAIL)
INDEX A
CS 1/ANET2 +1
EXTEND
INDEX AXISCTR # UPRATEDIF IS SCALED AT PI/4 RAD/SEC
MP URATEDIF # JET TIME IN A, SCALED 32 SEC
INDEX AXISCTR # URATEDIF IS SCALED AT PI/4 RAD/SEC
MP URATEDIF # JET TIME IN A SCALED 32 SEC
TS Q
DAS A
AD Q
TS A # OVERFLOW SKIP
TS A # OVERFLOW SKIP
TCF +2
CA Q # RIGHT SIGN AND BIGGER THAN 150MS
SETTIME INDEX AXISCTR
@ -430,10 +430,10 @@ HANDADR GENADR BACKHAND
# GTS WILL BE TRIED IF
# 1. USEQRJTS = 0,
# 2. ALLOWGTS POS,
# 3. JETS ARE OFF (Q,R-AXES)
# 3. JETS ARE OFF(Q,R-AXES)
TRYGTS CAF USEQRJTS # IS JET USE MANDATORY. (AS LONG AS
MASK DAPBOOLS # USEQRJTS BIT IS NOT BIT 15, CCS IS SAFE.)
MASK DAPBOOLS # USEQRJTS BIT IS NOT BIT 15, CCS IS SAFE)
CCS A
TCF RCS
CCS ALLOWGTS # NO. DOES AOSTASK OK CONTROL FOR GTS?