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

Make changes required in page 1496-1506

Browse source 
Fixes #565
This commit is contained in:
HeroicHitesh 2020-10-31 23:28:53 +05:30
parent 7019d48166
commit 3ceecbaf65
1 changed files with 40 additions and 40 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
Luminary099/AOSTASK_AND_AOSJOB.agc
View file

@ -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
@ -898,7 +898,7 @@ STORV CA ACCSW # STORE V AXIS VALUES
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
@ -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