mirror of
https://github.com/chrislgarry/Apollo-11.git
synced 2025-02-18 18:00:29 +00:00
HeroicHitesh
parent
3ceecbaf65
commit
a16401cb34
1 changed files with 134 additions and 124 deletions
|
|
@ -54,25 +54,27 @@
|
|||
# MINIMUM IMPULSE ZONE, ARE COMPUTED. 1/ACCONT ALSO SETS ACCSWU AND ACCSWV, WHICH INDICATE WHEN 1 JET ACCELERATION
|
||||
# IS NOT SUFFICIENT TO PRODUCE MINIMUM ACCELERATION. AT THE COMPLETION OF 1/ACCS, THE ACCSOKAY BIT IS SET.
|
||||
#
|
||||
#
|
||||
# SUBROUTINES CALLED:
|
||||
#
|
||||
# TIMEGMBL
|
||||
# MAKECADR
|
||||
# ROT45DEG
|
||||
#
|
||||
# CALLING SEQUENCE:
|
||||
# TC BANKCALL # (1/ACCS MUST BE CALLED BY BANKCALL)
|
||||
# TC BANKCALL # (1/ACCS MUST BE CALL BY BANKCALL)
|
||||
# CADR 1/ACCS
|
||||
#
|
||||
# NORMAL EXIT: VIA BANKJUMP
|
||||
#
|
||||
# ALARM AND EXIT MODES: NONE
|
||||
# NORMAL EXIT: VIA BANKJUMP ALARM AND EXIT MODES: NONE.
|
||||
#
|
||||
# INPUT/OUTPUT: SEE PROGRAM DESCRIPTION.
|
||||
#
|
||||
# DEBRIS:
|
||||
#
|
||||
# ALL OF THE EXECUTIVE TEMPORARY REGISTERS, EXCEPT FIXLOC AND OVFIND, AND THE CORE SET AREA FROM MPAC TO BANKSET.
|
||||
#
|
||||
# RESTRICTIONS:
|
||||
#
|
||||
# 1/ACCS MUST BE CALLED BY BANKCALL
|
||||
# EBANK IS SET TO 6, BUT NOT RESTORED.
|
||||
# Page 1486
|
||||
|
|
@ -85,7 +87,8 @@
|
|||
|
||||
EBANK= AOSQ
|
||||
|
||||
# ENTRY IS THROUGH 1/ACCJOB OR 1/ACCSIT WHEN 1/ACCS IS TO BE DONE AS A SEPARATE NOVAC JOB.
|
||||
# ENTRY IS THROUGH 1/ACCJOB OR 1/ACCSET WHEN 1/ACCS IS TO BE DONE AS A SEPARATE NOVAC JOB.
|
||||
#
|
||||
# IT IS POSSIBLE FOR MORE THAN ONE OF THESE JOBS TO BE SET UP CONCURRENTLY. HOWEVER, SINCE THERE IS NO CHECK OF
|
||||
# NEWJOB, A SECOND MANIFESTATION CANNOT BE STARTED UNTIL THE FIRST IS COMPLETED.
|
||||
|
||||
|
|
@ -107,8 +110,7 @@
|
|||
TS ACCRETRN
|
||||
|
||||
# DETERMINE MASS OF THE LEM.
|
||||
|
||||
CA DAPBOOLS # IS THE CSM DOCKED
|
||||
CA DAPBOOLS # IS CSM DOCKED
|
||||
MASK CSMDOCKD
|
||||
TS DOCKTEMP # STORE RECORD OF STATE IN TEMP (MPAC +3).
|
||||
CCS A
|
||||
|
|
@ -117,7 +119,7 @@
|
|||
TS LEMMASS
|
||||
|
||||
# ON THE BASIS OF APSFLAG:
|
||||
# SET THE P-AXIS RATE COMMAND LIMIT FOR 2-JET/2-JET CONTROL
|
||||
# SET THE P-AXIS RATE COMMAND LIMIT FOR 2-JET/4-JET CONTROL
|
||||
# SET MPAC, WHICH INDICATES THE PROPER SET OF COEFFICIENTS FOR THE LEM-ALONE F(MASS) CALCULATIONS
|
||||
# ENSURE THAT THE LEM MASS VALUE IS WITHIN THE ACCEPTABLE RANGE
|
||||
|
||||
|
|
@ -162,7 +164,6 @@ DPSFLITE CS BIT10 # FOUR JETS FOR P-AXIS RATE COMMAND ERRORS
|
|||
EXTEND
|
||||
BZMF F(MASS)
|
||||
TCF MASSFIX
|
||||
|
||||
# COMPUTATION OF FUNCTIONS OF MASS
|
||||
|
||||
F(MASS) RELINT
|
||||
|
|
@ -262,9 +263,8 @@ JACCUV CS COEFFQ
|
|||
CS ONE
|
||||
TS MPAC +1
|
||||
TCF STCTR1
|
||||
|
||||
# THIS SECTION COMPUTES THE RATE OF CHANGE OF ACCELERATION DUE TO THE ROTATION OF THE GIMBALS. THE EQUATION
|
||||
# IMPLEMENTED IN BOTH THE Y-X PLANE AND THE Z-X PLANE IS -- D(ALPHA)/DT = TL/I*D(DELTA)/DT, WHERE
|
||||
# THIS SECTION COMPUTES THE RATE OF CHANGE OF ACCELERATION DUE TO THE ROTATION OF THE GIMBALS. THE EQUATION IMPLE
|
||||
# MENTED IN BOTH THE Y-X PLANE AND THE Z-X PLANE IS -- D(ALPHA)/DT = TL/I*D(DELTA)/DT, WHERE
|
||||
# T = ENGINE THRUST FORCE
|
||||
# L = PIVOT TO CG DISTANCE OF ENGINE
|
||||
# I = MOMENT OF INERTIA
|
||||
|
|
@ -277,7 +277,7 @@ LRESC CAE ABDELV # SCALED AT 2(13) CM/SEC(2)
|
|||
|
||||
# MASS IS DIVIDED BY ACCELERATION OF GRAVITY IN ORDER TO MATCH THE UNITS OF IXX,IYY,IZZ, WHICH ARE SLUG-FT(2).
|
||||
# THE RATIO OF ACCELERATION FROM PIPAS TO ACCELERATION OF GRAVITY IS THE SAME IN METRIC OR ENGINEERING UNITS, SO
|
||||
# THAT IS UNCONVERTED. 2.20462 CONVERTS KG. TO LB. NOW T IN IN A SCALED AT 2(14).
|
||||
# THAT IS UNCONVERTED. 2.20462 CONVERTS KG. TO LB. NOW T IS IN A SCALED AT 2(14).
|
||||
|
||||
EXTEND
|
||||
MP L,PVT-CG # SCALED AT 8 FEET.
|
||||
|
|
@ -305,8 +305,8 @@ SPSCONT TS ACCDOTQ # SCALED AT PI/2(7)
|
|||
MP DGBF
|
||||
TS KRDAP
|
||||
EXTEND # NOW COMPUTE QACCDOT, RACCDOT, THE SIGNED
|
||||
READ CHAN12 # JERK TERMS. STORE CHANNEL 12. WITH GIMBAL
|
||||
TS MPAC +1 # DRIVE BITS 9 THROUGH 12 SET LOOP
|
||||
READ CHAN12 # JERK TERMS. STORE CHANNEL 12. WITH GIM
|
||||
TS MPAC +1 # BAL DRIVE BITS 9 THROUGH 12. SET LOOP
|
||||
CAF BIT2 # INDEX TO COMPUTE RACCDOT, THEN QACCDOT.
|
||||
TCF LOOP3
|
||||
CAF ZERO # ACCDOTQ AND ACCDOTR ARE NOT NEGATIVE,
|
||||
|
|
@ -337,7 +337,7 @@ STACCDOT INDEX MPAC
|
|||
MASK USEQRJTS
|
||||
EXTEND
|
||||
BZF DOWNGTS # NO. BE SURE THE GIMBAL SWITCHES ARE DOWN
|
||||
CS T5ADR # YES. IS THE DAP RUNNINT?
|
||||
CS T5ADR # YES. IS THE DAP RUNNING?
|
||||
AD PAXISADR
|
||||
EXTEND
|
||||
BZF +2
|
||||
|
|
@ -353,24 +353,31 @@ DOCKTEST CCS DOCKTEMP # BYPASS 1/ACCONT WHEN DOCKED.
|
|||
|
||||
# Page 1492
|
||||
# SUBROUTINE: DVOVSUB
|
||||
# AUTHOR: C. WORK, MOD 0, 12 JUNE 68
|
||||
# AUTHOR: C. WORK, MOD 0 12 JUNE 68
|
||||
# PURPOSE: THIS SUBROUTINE PROVIDES A SINGLE-PRECISION MACHINE LANGUAGE DIVISION OPERATION WHICH RETURNS
|
||||
# (1) THE QUOTIENT, IF THE DIVISION WAS NORMAL.
|
||||
# (2) NEGMAX, IF THE QUOTIENT WAS IMPROPER AND NEGATIVE.
|
||||
# (3) POSMAX, IF THE QUOTIENT WAS IMPROPER AND POSITIVE OR IF THERE WAS A ZERO DIVISOR.
|
||||
# THE CALLING PROGRAM IS PRESUMED TO BE A JOB IN THE F BANK WHICH CONTAINS DVOVSUB. E BANK MUST BE 6.
|
||||
# THE DIVISOR FOR THIS ROUTINE MAY BE IN EITHER FIXED OR ERASABLE STORAGE. SIGN AGREEMENT IS
|
||||
# ASSUMED BETWEEN THE TWO HALVES OF THE DIVIDEND. (THIS IS CERTAIN IF THE A AND L REGISTERS ARE THE
|
||||
# RESULT OF A MULTIPLICATION OPERATION.)
|
||||
# CALL SEQUENCE: L TC DVOVSUB
|
||||
# ASSUMED BETWEEN THE TWO HALVES OF THE DIVIDEND. (THIS IS CERTAIN IF THE A AND L REGISTERS ARE THE RE-
|
||||
# SULT OF A MULTIPLICATION OPERATION.)
|
||||
# CALL SEQUENCE:
|
||||
# L TC DVOVSUB
|
||||
# L +1 ADRES (DIVISOR)
|
||||
# L +2 RETURN HERE, WITH RESULT IN A,L
|
||||
#
|
||||
# INPUT: DIVIDEND IN A,L (SIGN AGREEMENT ASSUMED), DIVISOR IN LOCATION DESIGNATED BY "ADRES".
|
||||
# DIVISOR MAY BE IN THE DVOVSUB FBANK,FIXED-FIXED FBANK,EBANK 6, OR UNSWITCHED ERASABLE.
|
||||
#
|
||||
# OUTPUT: QUOTIENT AND REMAINDER, OR POSMAX (NEGMAX), WHICHEVER IS APPROPRIATE.
|
||||
#
|
||||
# DEBRIS: SCRATCHX,SCRATCHY,SCRATCHZ,A,L (NOTE: SCRATCHX,Y,Z ARE EQUATED TO MPAC +4,+5,AND +6.)
|
||||
#
|
||||
# ABORTS OR ALARMS: NONE
|
||||
#
|
||||
# EXITS: TO THE CALL POINT + 2.
|
||||
#
|
||||
# SUBROUTINES CALLED: NONE.
|
||||
|
||||
DVOVSUB TS SCRATCHY # SAVE UPPER HALF OF DIVIDEND
|
||||
|
|
@ -400,7 +407,7 @@ GOODNEG AD SCRATCHY # ABS(DIVISOR) - ABS(DIVIDEND)
|
|||
EXTEND
|
||||
BZMF MAKEMAX # BRANCH IF DIVISION IS NOT PROPER.
|
||||
|
||||
CA SCRATCHX # RE-ESTABLISH THE DIVIDEND
|
||||
CA SCRATCHX # RE-ESTABLISH THE DIVIDEND.
|
||||
EXTEND
|
||||
DV SCRATCHZ # QUOTIENT IN THE A, REMAINDER IN L.
|
||||
TC Q # RETURN TO CALLER.
|
||||
|
|
@ -415,7 +422,7 @@ MAXPLUS CAF POSMAX # -,- OR +,+
|
|||
TC Q
|
||||
|
||||
# COEFFICIENTS FOR THE JET ACCELERATION CURVE FITS
|
||||
# THE CURVE FITS ARE OF THE FORM --
|
||||
# THE CURVE FITS ARE OF THE FORM -
|
||||
#
|
||||
# 1JACC = A/(MASS + C) + B
|
||||
#
|
||||
|
|
@ -424,20 +431,24 @@ MAXPLUS CAF POSMAX # -,- OR +,+
|
|||
# THE CURVE FIT FOR L,PVT-CG IS OF THE SAME FORM, EXCEPT THAT A IS SCALED AT 8 FT B+16 KG, B IS SCALED AT 8 FT,
|
||||
# AND C IS SCALED AT B+16 KG.
|
||||
|
||||
|
||||
2DEC +.0410511917 # L A DESCENT
|
||||
|
||||
|
||||
INERCONA 2DEC +.0059347674 # 1JACCP A DESCENT
|
||||
|
||||
2DEC +.0014979264 # 1JACCQ A DESCENT
|
||||
|
||||
2DEC +.0010451889 # 1JACCR A DESCENT
|
||||
|
||||
|
||||
2DEC +.0065443852 # 1JACCP A ASCENT
|
||||
|
||||
2DEC +.0035784354 # 1JACCQ A ASCENT
|
||||
|
||||
2DEC +.0056946631 # 1JACCR A ASCENT
|
||||
|
||||
|
||||
DEC +.155044 # L B DESCENT
|
||||
DEC -.025233 # L C DESCENT
|
||||
# Page 1494
|
||||
|
|
@ -465,7 +476,6 @@ GFACTM OCT 337 # 979.24/2.20462 AT B+15
|
|||
.7071 DEC .70711
|
||||
-.7071 DEC -.70711
|
||||
-EPSMAX DEC -.42265
|
||||
|
||||
# CSM-DOCKED INERTIA COMPUTATIONS
|
||||
|
||||
DOCKED CA ONE # COEFTR = 1 FOR INERTIA COEFFICIENTS
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue