mirror of
https://github.com/chrislgarry/Apollo-11.git
synced 2025-02-18 18:00:29 +00:00
HeroicHitesh
parent
7019d48166
commit
3ceecbaf65
1 changed files with 40 additions and 40 deletions
|
|
@ -495,7 +495,7 @@ SPSLOOP2 TS MASSCTR # LOOP TWICE THROUGH HERE TO OBTAIN
|
|||
INDEX MASSCTR
|
||||
MP LEMMASS
|
||||
INDEX COEFCTR
|
||||
AD COEFF +4 # COEFF +4 = E OR D
|
||||
AD COEFF +4 # COEFF +4 = E OR D
|
||||
EXTEND
|
||||
INDEX MASSCTR
|
||||
MP LEMMASS
|
||||
|
|
@ -508,7 +508,7 @@ SPSLOOP2 TS MASSCTR # LOOP TWICE THROUGH HERE TO OBTAIN
|
|||
TORQCONS 2DEC 0.51443 B-14 # CORRESPONDS TO 500 LB-FT
|
||||
|
||||
CA MPAC
|
||||
TS MPAC +1 # INERTIA = (MPAC +1) X 2(38) KG-CM(2)
|
||||
TS MPAC +1 # INERTIA = (MPAC +1) X 2(38) KG-CM(2)
|
||||
CA SEVEN
|
||||
TCF SPSLOOP1
|
||||
|
||||
|
|
@ -527,7 +527,7 @@ TORQCONS 2DEC 0.51443 B-14 # CORRESPONDS TO 500 LB-FT
|
|||
EXTEND
|
||||
DCA TORQCONS
|
||||
EXTEND
|
||||
DV MPAC +1
|
||||
DV MPAC +1
|
||||
INHINT
|
||||
TS 1JACCQ # SCALED AT PI/4
|
||||
TS 1JACCR
|
||||
|
|
@ -543,7 +543,7 @@ TORQCONS 2DEC 0.51443 B-14 # CORRESPONDS TO 500 LB-FT
|
|||
MP ABDELV # SCALED AT 2(13) CM/SEC(2)
|
||||
TC DVOVSUB # GET QUOTIENT WITH OVERFLOW PROTECTION
|
||||
# Page 1496
|
||||
ADRES MPAC +1
|
||||
ADRES MPAC +1
|
||||
|
||||
TS ACCDOTR
|
||||
TCF SPSCONT # CONTINUE K, KSQ CALCULATIONS
|
||||
|
|
@ -569,14 +569,14 @@ COEFF DEC .19518 # C COEFFICIENT OF INERTIA
|
|||
|
||||
# ASSIGNMENT OF TEMPORARIES FOR 1/ACCS (EXCLUDING 1/ACCONT)
|
||||
# MPAC, MPAC +1, MPAC +2 USED EXPLICITLY
|
||||
COEFCTR EQUALS MPAC +4
|
||||
MASSCTR EQUALS MPAC +5
|
||||
SCRATCHX EQUALS MPAC +4 # SCRATCH AREA FOR DVOVSUB ROUTINE.
|
||||
COEFCTR EQUALS MPAC +4
|
||||
MASSCTR EQUALS MPAC +5
|
||||
SCRATCHX EQUALS MPAC +4 # SCRATCH AREA FOR DVOVSUB ROUTINE.
|
||||
SCRATCHY EQUALS SCRATCHX +1
|
||||
SCRATCHZ EQUALS SCRATCHX +2
|
||||
|
||||
DOCKTEMP EQUALS MPAC +3 # RECORD OF CSMDOCKED BIT OF DAPBOOLS
|
||||
EPSILON EQUALS MPAC +1
|
||||
DOCKTEMP EQUALS MPAC +3 # RECORD OF CSMDOCKED BIT OF DAPBOOLS
|
||||
EPSILON EQUALS MPAC +1
|
||||
-EPSILON EQUALS EPSILON
|
||||
-.1875 DEC -.18750
|
||||
|
||||
|
|
@ -589,7 +589,7 @@ EPSILON EQUALS MPAC +1
|
|||
|
||||
COUNT* $$/DAPAO
|
||||
|
||||
-1 TS INGTS # ZERO INGTS IN ASCENT
|
||||
-1 TS INGTS # ZERO INGTS IN ASCENT
|
||||
1/ACCONT CA DB # INITIALIZE DBVAL1,2,3
|
||||
EXTEND
|
||||
MP BIT13
|
||||
|
|
@ -611,7 +611,7 @@ GETAOSUV INHINT
|
|||
RELINT
|
||||
CA DAPBOOLS
|
||||
MASK DRIFTBIT # ZERO DURING ULLAGE AND POWERED FLIGHT.
|
||||
CCS A # IF DRIFTING LIGHT,
|
||||
CCS A # IF DRIFTING FLIGHT,
|
||||
CA ONE # SET DRIFTER TO 1
|
||||
TS DRIFTER # SAVE TO TEST FOR DRIFTING FLIGHT LATER
|
||||
AD ALLOWGTS # NON-ZERO IF DRIFT OR GTS NEAR
|
||||
|
|
@ -709,7 +709,7 @@ SKIPDB1 CA ABSAOS # ABS(AOS) GREATER THAN AMIN, SO IT IS
|
|||
AD ABSAOS # (9/8) ABSAOS.
|
||||
TC INVERT # ALL RIGHT TO DIVIDE
|
||||
INDEX -SIGNAOS
|
||||
TS 1/ACOSTT +1 # 1/ACOASTPOS(NET) = 1/ABS(AOS)
|
||||
TS 1/ACOSTT +1 # 1/ACOASTPOS(NEG) = 1/ABS(AOS)
|
||||
CA 1/.03
|
||||
INDEX SIGNAOS
|
||||
TS 1/ACOSTT # 1/ACOASTNEG(POS) = 1/AIN
|
||||
|
|
@ -784,7 +784,7 @@ ACCTHERE INDEX -SIGNAOS
|
|||
# Page 1501
|
||||
AD BIT9 # MAXIMUM POSSIBLE VALUE
|
||||
TS A # OVERFLOW POSSIBLE BUT REMOTE
|
||||
TCF +2
|
||||
TCF +2
|
||||
CA POSMAX # IF OVERFLOW, TRUNCATE TO PI/2
|
||||
AD -.03R/S2 # RESTORE TO CORRECT VALUE
|
||||
TS ANET
|
||||
|
|
@ -801,7 +801,7 @@ ACCTHERE INDEX -SIGNAOS
|
|||
AD 1JACCU # ANETNEG(POS) MAX
|
||||
TC 1/ANET- # COMPUTE 1/ANET, ACCFUN, AND ACCSW
|
||||
INDEX SIGNAOS # STORE NEG(POS) VALUES JUST AS POS(NEG)
|
||||
TS Z1TEM +2
|
||||
TS Z1TEM +2
|
||||
TS L # SAVE IN L FOR POSSIBLE FUTURE USE
|
||||
CA 1/ANET
|
||||
INDEX SIGNAOS
|
||||
|
|
@ -828,7 +828,7 @@ STMIN- INDEX SIGNAOS # STORE VALUES
|
|||
CA 1/ATEM2 # REPLACE FUNCTION VALUES DEPENDING ON THE
|
||||
TS 1/ATEM2 +2 # FAILED JET PAIR WITH CORRESPONDING ONE-
|
||||
CA Z5TEM # JET (OR AMIN) FUNCTION VALUES
|
||||
TS Z5TEM +2
|
||||
TS Z5TEM +2
|
||||
FAIL- INDEX UV
|
||||
# Page 1502
|
||||
CA -UMASK
|
||||
|
|
@ -838,7 +838,7 @@ FAIL- INDEX UV
|
|||
CA 1/ATEM1 # REPLACE FUNCTION VALUES DEPENDING ON THE
|
||||
TS 1/ATEM1 +2 # FAILED JET PAIR WITH CORRESPONDING ONE-
|
||||
CA Z1TEM # JET (OR AMIN) FUNCTION VALUES
|
||||
TS Z1TEM +2
|
||||
TS Z1TEM +2
|
||||
|
||||
DBFUN CS DBB3 # COMPUTE AXISDIST
|
||||
AD DBB1
|
||||
|
|
@ -847,13 +847,13 @@ DBFUN CS DBB3 # COMPUTE AXISDIST
|
|||
CS DBB4
|
||||
AD DBB2
|
||||
AD FLATEMP
|
||||
TS AXDSTEM +1
|
||||
TS AXDSTEM +1
|
||||
|
||||
INHINT
|
||||
CCS UV # TEST FOR U OR V AXIS
|
||||
TCF STORV # V AXIS STORE V VALUES
|
||||
TCF STORV # V AXIS STORE V VALUES
|
||||
|
||||
CA ACCSW # U AXIS STORE U VALUES
|
||||
CA ACCSW # U AXIS STORE U VALUES
|
||||
TS ACCSWU
|
||||
|
||||
CA NINE # TRANSFER 10 WORDS VIA GENTRAN
|
||||
|
|
@ -878,7 +878,7 @@ DBFUN CS DBB3 # COMPUTE AXISDIST
|
|||
STORV CA ACCSW # STORE V AXIS VALUES
|
||||
TS ACCSWV
|
||||
CA NINE
|
||||
TC GENTRAN +1
|
||||
TC GENTRAN +1
|
||||
# Page 1503
|
||||
ADRES 1/ATEM1 # TEMPORARY BUFFER
|
||||
ADRES 1/ANET1 +16D # THE REAL PLACE
|
||||
|
|
@ -895,10 +895,10 @@ STORV CA ACCSW # STORE V AXIS VALUES
|
|||
TS PDB4
|
||||
CA ZERO
|
||||
TS PAXDIST
|
||||
TS PAXDIST +1
|
||||
TS PAXDIST +1
|
||||
|
||||
CCS FLAT
|
||||
TCF DRFDB # DRIFT OR GTS -- COMPUTE DBS
|
||||
TCF DRFDB # DRIFT OR GTS - COMPUTE DBS
|
||||
|
||||
DXCH UDB1 # STORE U DEADBANDS
|
||||
DXCH FIREDB # CANNOT USE GENTRAN BECAUSE OF RELINT
|
||||
|
|
@ -939,7 +939,7 @@ DRFDB CA DBVAL1 # DRIFT DEADBANDS
|
|||
CA ACCRETRN
|
||||
TC BANKJUMP # RETURN TO CALLER
|
||||
|
||||
INVERT TS HOLD # ROUTINE TO INVERT -INPUT AT PI/2
|
||||
INVERT TS HOLD # ROUTINE TO INVERT -INPUT AT PI/2
|
||||
CA BIT9 # 1 AT 2(6)
|
||||
ZL # ZERO L FOR ACCURACY AND TO PREVENT OVFLO
|
||||
EXTEND
|
||||
|
|
@ -947,7 +947,7 @@ INVERT TS HOLD # ROUTINE TO INVERT -INPUT AT PI/2
|
|||
TC Q # RESULT AT 2(7)/PI
|
||||
|
||||
DOWNGTS CAF ZERO # ZERO SWITCHES WHEN USEQRJTS BIT IS UP
|
||||
TS ALLOWGTS # OR DAP IS OFF
|
||||
TS ALLOWGTS # OR DAP IS OFF.
|
||||
TS INGTS
|
||||
TCF DOCKTEST
|
||||
|
||||
|
|
@ -962,8 +962,8 @@ DOWNGTS CAF ZERO # ZERO SWITCHES WHEN USEQRJTS BIT IS UP
|
|||
INDEX -SIGNAOS
|
||||
MP 1/ACOSTT +1 # ANETNEG(POS)/ACOASTPOS(NEG) AT 2(6)
|
||||
|
||||
# THE FOLLOWING CODING IS VALID FOR BOTH POS OR NEG
|
||||
# VALUES OF AOS
|
||||
# THE FOLLOWING CODING IS VALID FOR BOTH POS OR NEG
|
||||
# VALUES OF AOS
|
||||
|
||||
DO1/NET+ AD BIT9 # 1 + ANET/ACOAST AT 2(6)
|
||||
XCH ANET # SAVE AND PICK UP ANET
|
||||
|
|
@ -978,7 +978,7 @@ DOACCFUN EXTEND
|
|||
DV ANET # ACCFUN AT 2(7)/PI
|
||||
TC ARET # RETURN
|
||||
|
||||
NETNEG CS -.03R/S2 # ANET LESS THAN AMIN -- SET EQUAL TO AMIN
|
||||
NETNEG CS -.03R/S2 # ANET LESS THAN AMIN - SET EQUAL TO AMIN
|
||||
TS ANET
|
||||
# Page 1505
|
||||
TCF 1/NETMIN +1 # CONTINUE AS IF NOTHING HAPPENED.
|
||||
|
|
@ -993,7 +993,7 @@ FIXMIN CCS SIGNAOS
|
|||
MASK CH5MASK
|
||||
EXTEND
|
||||
BZF +4
|
||||
CS -.03R/S2 # JET FAILURE -- CANNOT USE 2-JET VALUES
|
||||
CS -.03R/S2 # JET FAILURE - CANNOT USE 2-JET VALUES
|
||||
TS ANET # ANET = AMIN
|
||||
TCF STMIN- -1 # CALCULATE FUNCTIONS USING AMIN
|
||||
CA L # L HAS ACCFUN
|
||||
|
|
@ -1011,8 +1011,8 @@ PDB3 EQUALS BLOCKTOP +13D
|
|||
PAXDIST EQUALS BLOCKTOP +14D
|
||||
|
||||
ACCSW EQUALS VBUF # EXECUTIVE TEMPORARIES
|
||||
# CANNOT DO CCS NEWJOB DURING 1/ACCS
|
||||
1/ATEM1 EQUALS ACCSW +1 # TEMP BUFFER FOR U AND V AXES
|
||||
# CANNOT DO CCS NEWJOB DURING 1/ACCS
|
||||
1/ATEM1 EQUALS ACCSW +1 # TEMP BUFFER FOR U AND V AXES
|
||||
1/ATEM2 EQUALS 1/ATEM1 +1
|
||||
1/ACOSTT EQUALS 1/ATEM1 +4
|
||||
Z1TEM EQUALS 1/ATEM1 +6
|
||||
|
|
@ -1041,22 +1041,22 @@ DBVAL3 EQUALS INTB15+ +1
|
|||
DRIFTER EQUALS INTB15+ +2
|
||||
|
||||
UV EQUALS MPAC
|
||||
ANET EQUALS MPAC +3
|
||||
FUNTEM EQUALS MPAC +3
|
||||
1/ANET EQUALS MPAC +4
|
||||
ARET EQUALS MPAC +5
|
||||
ABSAOS EQUALS MPAC +6
|
||||
SIGNAOS EQUALS MPAC +7
|
||||
-SIGNAOS EQUALS MPAC +8D
|
||||
HOLD EQUALS MPAC +9D
|
||||
ACCRETRN EQUALS FIXLOC -1
|
||||
ANET EQUALS MPAC +3
|
||||
FUNTEM EQUALS MPAC +3
|
||||
1/ANET EQUALS MPAC +4
|
||||
ARET EQUALS MPAC +5
|
||||
ABSAOS EQUALS MPAC +6
|
||||
SIGNAOS EQUALS MPAC +7
|
||||
-SIGNAOS EQUALS MPAC +8D
|
||||
HOLD EQUALS MPAC +9D
|
||||
ACCRETRN EQUALS FIXLOC -1
|
||||
|
||||
ZONE3MAX DEC .004375 # 17.5 MS (35 MS FOR 1 JET) AT 4 SECONDS
|
||||
FLATVAL DEC .01778 # .8 AT PI/4 RAD
|
||||
-.03R/S2 OCT 77377 # -PI/2(7) AT PI/2
|
||||
|
||||
.0125RS EQUALS BIT8 # PI/2(+8) AT PI/2
|
||||
1/.03 EQUALS POSMAX # 2(7)/PI AT 2(7)/PI
|
||||
1/.03 EQUALS POSMAX # 2(7)/PI AT 2(7)/PI
|
||||
|
||||
PAXISADR GENADR PAXIS
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue