From 3ceecbaf65862a28a65747e979d4682e8faa1a69 Mon Sep 17 00:00:00 2001 From: HeroicHitesh Date: Sat, 31 Oct 2020 23:28:53 +0530 Subject: [PATCH] Make changes required in page 1496-1506 Fixes #565 --- Luminary099/AOSTASK_AND_AOSJOB.agc | 80 +++++++++++++++--------------- 1 file changed, 40 insertions(+), 40 deletions(-) diff --git a/Luminary099/AOSTASK_AND_AOSJOB.agc b/Luminary099/AOSTASK_AND_AOSJOB.agc index f694917..f1ab800 100644 --- a/Luminary099/AOSTASK_AND_AOSJOB.agc +++ b/Luminary099/AOSTASK_AND_AOSJOB.agc @@ -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