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

80
Luminary099/AOSTASK_AND_AOSJOB.agc
View file

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