mirrors
/
Apollo-11
mirror of https://github.com/chrislgarry/Apollo-11.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Merge remote-tracking branch 'upstream/master' into master

pull/781/head
Dhairya Gada 2020-10-26 19:55:52 +05:30
parent b6a0690dc2 0c6136893e
commit 02c58a5666
3 changed files with 57 additions and 63 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

59
Luminary099/LANDING_ANALOG_DISPLAYS.agc
View File

@ -53,10 +53,10 @@ ALTROUT TC DISINDAT # CHECK MODE SELECT SWITCH AND DIDFLG.
CAF BIT2 # RATE COMMAND IS EXECUTED BEFORE RANGE. CAF BIT2 # RATE COMMAND IS EXECUTED BEFORE RANGE.
EXTEND EXTEND
WOR CHAN14 # ALTRATE (BIT2 = 1), ALTITUDE (BIT2 = 0). WOR CHAN14 # ALTRATE (BIT2 = 1), ALTITUDE (BIT2 = 0).
ARCOMP CA RUNIT # COMPUTE ALTRATE = RUNIT.VVECT M/CS *(-6). ARCOMP CA RUNIT # COMPUTE ALTRATE=RUNIT.VVECT M/CS *2(-6).
EXTEND EXTEND
MP VVECT # MULTIPLY X-COMPONENTS. MP VVECT # MULTIPLY X-COMPONENTS.
XCH RUPTREG1 # SAVE SINGLE PRECISION RESULT M/CS*2(-6) XCH RUPTREG1 # SAVE SINGLE PRECISION RESULT M/CS*2(-6).
CA RUNIT +1 # MULTIPLY Y-COMPONENTS. CA RUNIT +1 # MULTIPLY Y-COMPONENTS.
EXTEND EXTEND
MP VVECT +1 MP VVECT +1
@ -80,10 +80,10 @@ ARCOMP CA RUNIT # COMPUTE ALTRATE = RUNIT.VVECT M/CS *(-6).
# Page 899 # Page 899
EXTEND # CHECK POLARITY OF ALTITUDE RATE. EXTEND # CHECK POLARITY OF ALTITUDE RATE.
BZMF +2 BZMF +2
TCF DATAOUT # NEGATIVE -- SEND POS. PULSES TO ALTM REG. TCF DATAOUT # NEGATIVE - SEND POS. PULSES TO ALTM REG.
CA ALTRATE # POSITIVE OR ZERO -- SET SIGN BIT = 1 AND CA ALTRATE # POSITIVE OR ZERO - SET SIGN BIT = 1 AND
AD BIT15 # SEND TO ALTM REGISTER. *DO NOT SEND +0* AD BIT15 # SEND TO ALTM REGISTER. *DO NOT SEND +0*
DATAOUT TS ALTM # ACTIVATE THE LANDING ANALOG DISPLAYS DATAOUT TS ALTM # ACTIVATE THE LANDING ANALOG DISPLAYS - -
CAF BIT3 CAF BIT3
EXTEND EXTEND
WOR CHAN14 # BIT3 DRIVES THE ALT/ALTRATE METER. WOR CHAN14 # BIT3 DRIVES THE ALT/ALTRATE METER.
@ -96,13 +96,13 @@ ALTOUT TC DISINDAT # CHECK MODE SELECT SWITCH AND DIDFLG.
CS BIT2 CS BIT2
EXTEND EXTEND
WAND CHAN14 WAND CHAN14
CCS ALTBITS # = -1 IF OLD ALT. DATA TO BE EXTRAPOLATED. CCS ALTBITS # =-1 IF OLD ALT. DATA TOBE EXTRAPOLATED.
TCF +4 TCF +4
TCF +3 TCF +3
TCF OLDDATA TCF OLDDATA
TS ALTBITS # SET ALTBITS FROM -0 TO +0. TS ALTBITS # SET ALTBITS FROM -0 TO +0.
CS ONE CS ONE
DXCH ALTBITS # SET ALTBITS = -1 FOR SWITCH USE NEXT PASS. DXCH ALTBITS # SET ALTBITS=-1 FOR SWITCH USE NEXT PASS.
DXCH ALTSAVE DXCH ALTSAVE
CA BIT10 # NEW ALTITUDE EXTRAPOLATION WITH ALTRATE. CA BIT10 # NEW ALTITUDE EXTRAPOLATION WITH ALTRATE.
XCH Q XCH Q
@ -150,11 +150,11 @@ DISINDAT EXTEND
RAND CHAN30 # DISPLAYS? I.E., RAND CHAN30 # DISPLAYS? I.E.,
CCS A # IS THE MODE SELECT SWITCH IN PGNCS? CCS A # IS THE MODE SELECT SWITCH IN PGNCS?
TCF DISPRSET # NO. ASTRONAUT REQUESTS NO INERTIAL DATA TCF DISPRSET # NO. ASTRONAUT REQUESTS NO INERTIAL DATA
CS FLAGWRD1 # YES. CHECK STATUS OF DIDFLAG. CS FLAGWRD1 # YES. CHECK STATUS OF DIDFLAG.
MASK DIDFLBIT MASK DIDFLBIT
EXTEND EXTEND
BZF SPEEDRUN # SET. PERFORM DATA DISPLAY SEQUENCE. BZF SPEEDRUN # SET. PERFORM DATA DISPLAY SEQUENCE.
CS FLAGWRD1 # RESET. PERFORM INITIALIZATION FUNCTIONS. CS FLAGWRD1 # RESET. PERFORM INITIALIZATION FUNCTIONS.
MASK DIDFLBIT MASK DIDFLBIT
ADS FLAGWRD1 # SET DIDFLAG. ADS FLAGWRD1 # SET DIDFLAG.
CS BIT7 CS BIT7
@ -262,24 +262,24 @@ SPEEDRUN CS PIPTIME +1 # UPDATE THE VELOCITY VECTOR
CA DELVS # HI X OF VELOCITY CORRECTION TERM. CA DELVS # HI X OF VELOCITY CORRECTION TERM.
AD VVECT # HI X OF UPDATED VELOCITY VECTOR. AD VVECT # HI X OF UPDATED VELOCITY VECTOR.
TS ITEMP1 # = VX - DVX M/CS *2(-5). TS ITEMP1 # = VX - DVX M/CS*2(-5).
CA DELVS +2 # Y CA DELVS +2 # Y
AD VVECT +1 # Y AD VVECT +1 # Y
TS ITEMP2 # = VY - DVY M/CS *2(-5) TS ITEMP2 # = VY - DVY M/CS*2(-5).
CA DELVS +4 # Z CA DELVS +4 # Z
AD VVECT +2 # Z AD VVECT +2 # Z
TS ITEMP3 # = VZ - DVZ M/CS *2(-5) TS ITEMP3 # = VZ - DVZ M/CS*2(-5).
CA ITEMP1 # COMPUTE VHY, VELOCITY DIRECTED ALONG THE CA ITEMP1 # COMPUTE VHY, VELOCITY DIRECTED ALONG THE
EXTEND # Y-COORDINATE. EXTEND # Y-COORDINATE.
MP UHYP # HI X OF CROSS-RANGE HALF-UNIT VECTOR MP UHYP # HI X OF CROSS-RANGE HALF-UNIT VECTOR.
XCH RUPTREG1 XCH RUPTREG1
CA ITEMP2 CA ITEMP2
EXTEND EXTEND
MP UHYP +2 # Y MP UHYP +2 # Y
ADS RUPTREG1 # ACCUMULATE PARTIAL PRODUCTS. ADS RUPTREG1 # ACCUMULATE PARTIAL PRODUCTS.
CA ITEMP3 CA ITEMP3
EXTEND EXTEND
MP UHYP +4 # Z MP UHYP +4 # Z
ADS RUPTREG1 ADS RUPTREG1
# Page 903 # Page 903
CA RUPTREG1 CA RUPTREG1
@ -291,11 +291,11 @@ SPEEDRUN CS PIPTIME +1 # UPDATE THE VELOCITY VECTOR
XCH RUPTREG1 XCH RUPTREG1
CA ITEMP2 CA ITEMP2
EXTEND EXTEND
MP UHZP +2 # Y MP UHZP +2 # Y
ADS RUPTREG1 # ACCUMULATE PARTIAL PRODUCTS. ADS RUPTREG1 # ACCUMULATE PARTIAL PRODUCTS.
CA ITEMP3 CA ITEMP3
EXTEND EXTEND
MP UHZP +4 # Z MP UHZP +4 # Z
ADS RUPTREG1 ADS RUPTREG1
CA RUPTREG1 CA RUPTREG1
DOUBLE DOUBLE
@ -317,7 +317,7 @@ LATFWDV CA ITEMP4 # COMPUTE LATERAL AND FORWARD VELOCITIES.
CA ITEMP3 CA ITEMP3
EXTEND EXTEND
MP VHZ MP VHZ
ADS RUPTREG1 # = VHY(COS)AOG+VHZ(SIN)AOG M/CS *2(-5) ADS RUPTREG1 # =VHY(COS)AOG+VHZ(SIN)AOG M/CS *2(-5)
CA VELCONV # CONVERT LATERAL VELOCITY TO BIT UNITS. CA VELCONV # CONVERT LATERAL VELOCITY TO BIT UNITS.
EXTEND EXTEND
MP RUPTREG1 MP RUPTREG1
@ -344,7 +344,7 @@ LATFWDV CA ITEMP4 # COMPUTE LATERAL AND FORWARD VELOCITIES.
CAF ONE # LOOP TWICE. CAF ONE # LOOP TWICE.
VMONITOR TS ITEMP5 # FORWARD AND LATERAL VELOCITY LANDING VMONITOR TS ITEMP5 # FORWARD AND LATERAL VELOCITY LANDING
INDEX ITEMP5 # ANALOG DISPLAYS MONITOR. INDEX ITEMP5 # ANALOG DISPLAYS MONITOR.
CCS LATVEL CCS LATVEL
TCF +4 TCF +4
TCF LVLIMITS TCF LVLIMITS
@ -427,7 +427,6 @@ LVLIMITS INDEX ITEMP5
BZMF +2 BZMF +2
TCF NEGLMLV TCF NEGLMLV
INDEX ITEMP5 INDEX ITEMP5
CS LATVEL CS LATVEL
EXTEND EXTEND
BZMF LVMINLM BZMF LVMINLM
@ -500,11 +499,11 @@ ZEROLSTY INDEX ITEMP5
EXTEND EXTEND
WOR CHAN14 WOR CHAN14
TC LADQSAVE # GO TO ALTROUT +1 OR TO ALTOUT +1 TC LADQSAVE # GO TO ALTROUT +1 OR TO ALTOUT +1
ZERODATA CAF ZERO # ZERO ALTSAVE AND ALTSAVE +1 ZERODATA CAF ZERO # ZERO ALTSAVE AND ALTSAVE +1 - - -
TS L # NO NEGATIVE ALTITUDES ALLOWED. TS L # NO NEGATIVE ALTITUDES ALLOWED.
TCF ZDATA2 TCF ZDATA2
# **************************************************************************** # ************************************************************************
DISPRSET CS FLAGWRD0 # ARE WE IN DESCENT TRAJECTORY? DISPRSET CS FLAGWRD0 # ARE WE IN DESCENT TRAJECTORY?
MASK R10FLBIT MASK R10FLBIT
@ -514,7 +513,7 @@ DISPRSET CS FLAGWRD0 # ARE WE IN DESCENT TRAJECTORY?
MASK IMODES33 # CHECK IF INERTIAL DATA JUST DISPLAYED. MASK IMODES33 # CHECK IF INERTIAL DATA JUST DISPLAYED.
CCS A CCS A
CAF BIT2 # YES. DISABLE RR ERROR COUNTER CAF BIT2 # YES. DISABLE RR ERROR COUNTER
AD BIT8 # NO. REMOVE DISPLAY INERTIAL DATA AD BIT8 # NO. REMOVE DISPLAY INERTIAL DATA
COM COM
EXTEND EXTEND
WAND CHAN12 WAND CHAN12
@ -525,12 +524,10 @@ ABORTON CS BITS8/7 # RESET INERTIAL DATA, INTERLEAVE FLAGS.
MASK FLAGWRD1 MASK FLAGWRD1
TS FLAGWRD1 # RESET DIDFLAG. TS FLAGWRD1 # RESET DIDFLAG.
TCF TASKOVER TCF TASKOVER
# ************************************************************************
# ******************************************************************************
BITS8/7 OCT 00300 # INERTIAL DATA AND INTERLEAVE FLAGS. BITS8/7 OCT 00300 # INERTIAL DATA AND INTERLEAVE FLAGS.
BITSET = PRIO6 BITSET = PRIO6
# ************************************************************************
# ******************************************************************************

57
Luminary099/LEM_GEOMETRY.agc
View File

@ -35,22 +35,22 @@
EBANK= XSM EBANK= XSM
# THESE TWO ROUTINES COMPUTE THE ACTUAL STATE VECTOR FOR LM,CSM BY ADDING # THESE TWO ROUTINES COMPUTE THE ACTUAL STATE VECTOR FOR LM,CSM BY ADDING
# THE CONIC R,V AND THE DEVIATIONS R,V. THE STATE VECTORS ARE CONVERTED TO # THE CONIC R,V AND THE DEVIATIONSR,V. THE STATE VECTORS ARE CONVERTED TO
# METERS B-29 AND METERS/CSEC B-7 AND STORED APPROPRIATELY IN RN,VN OR # METERS B-29 AND METERS/CSEC B-7 AND STORED APPROPRIATELY IN RN,VN OR
# R-OTHER,V-OTHER FOR DOWNLINK. THE ROUTINES NAMES ARE SWITCHED IN THE # R-OTHER , V-OTHER FOR DOWNLINK. THE ROUTINES NAMES ARE SWITCHED IN THE
# OTHER VEHICLES COMPUTER. # OTHER VEHICLES COMPUTER.
# #
# INPUT # INPUT
# STATE VECTOR IN TEMPORARY STORAGE AREA # STATE VECTOR IN TEMPORARY STORAGE AREA
# IF STATE VECTOR IS SCALED POS B27 AND VEL B5 # IF STATE VECTOR IS SCALED POS B27 AND VEL B5
# SET X2 TO +2 # SET X2 TO +2
# IF STATE VECTOR IS SCALED POS B29 AND VEL B7 # IF STATE VECTOR IS SCALED POS B29 AND VEL B7
# SET X2 TO 0 # SET X2 TO 0
# #
# OUTPUT # OUTPUT
# R(T) IN RN, V(T) IN VN, T IN PIPTIME # R(T) IN RN, V(T) IN VN, T IN PIPTIME
# OR # OR
# R(T) IN R-OTHER, V(T) IN V-OTHER (T IS DEFINED BY T-OTHER) # R(T) IN R-OTHER, V(T) IN V-OTHER (T IS DEFINED BY T-OTHER)
COUNT* $$/GEOM COUNT* $$/GEOM
SVDWN2 BOF RVQ # SW=1=AVETOMID DOING W-MATRIX INTEG. SVDWN2 BOF RVQ # SW=1=AVETOMID DOING W-MATRIX INTEG.
@ -58,14 +58,14 @@ SVDWN2 BOF RVQ # SW=1=AVETOMID DOING W-MATRIX INTEG.
+1 +1
VLOAD VSL* VLOAD VSL*
TDELTAV TDELTAV
0 -7,2 0 -7,2
VAD VSL* VAD VSL*
RCV RCV
0,2 0,2
STOVL RN STOVL RN
TNUV TNUV
VSL* VAD VSL* VAD
0 -4,2 0 -4,2
VCV VCV
VSL* VSL*
0,2 0,2
@ -76,14 +76,14 @@ SVDWN2 BOF RVQ # SW=1=AVETOMID DOING W-MATRIX INTEG.
# Page 321 # Page 321
SVDWN1 VLOAD VSL* SVDWN1 VLOAD VSL*
TDELTAV TDELTAV
0 -7,2 0 -7,2
VAD VSL* VAD VSL*
RCV RCV
0,2 0,2
STOVL R-OTHER STOVL R-OTHER
TNUV TNUV
VSL* VAD VSL* VAD
0 -4,2 0 -4,2
VCV VCV
VSL* VSL*
0,2 0,2
@ -91,32 +91,32 @@ SVDWN1 VLOAD VSL*
RVQ RVQ
# Page 322 # Page 322
# THE FOLLOWING ROUTINE TAKES A HALF UNIT TARGET VECTOR REFERRED TO NAV BASE COORDINATES AND FINDS BOTH # THE FOLLOWING ROUTINE TAKES A HALF UNIT TARGET VECTOR REFERRED TO NAV BASE COORDINATES AND FINDS BOTH
# GIMBAL ORIENTATIONS AT WHICH THE RR MIGHT SIGHT THE TARGET. THE GIMBAL ANGLES CORRESPONDING TO THE PRESENT MODE # GIMBAL ORIENTATIONS AT WHICH THE RR MIGHT SIGHT THE TARGET. THE GIMBAL ANGLES CORRESPONDING TO THE PRESENT MODE
# ARE LEFT IN MODEA AND THOSE WHICH WOULD BE USED AFTER A REMODE IN MODEB. THIS ROUTINE ASSUMES MODE 1 IS TRUNNION # ARE LEFT IN MODEA AND THOSE WHICH WOULD BE USED AFTER A REMODE IN MODEB. THIS ROUTINE ASSUMES MODE 1 IS TRUNNION
# ANGLE LESS THAN 90 DEGS IN ABS VALUE WITH ARBITRARY SHAFT, WITH A CORRESPONDING DEFINITION FOR MODE 2. MODE # ANGLE LESS THAN 90 DEGS IN ABS VALUE WITH ARBITRARY SHAFT, WITH A CORRESPONDING DEFINITION FOR MODE 2. MODE
# SELECTION AND LIMIT CHECKING ARE DONE ELSEWHERE. # SELECTION AND LIMIT CHECKING ARE DONE ELSEWHERE.
# #
# THE MODE 1 CONFIGURATION IS CALCULATED FROM THE VECTOR AND THEN MODE 2 IS FOUND USING THE RELATIONS # THE MODE 1 CONFIGURATION IS CALCULATED FROM THE VECTOR AND THEN MODE 2 IS FOUND USING THE RELATIONS
# #
# S(2) = 180 + S(1) # S(2) = 180 + S(1)
# T(2) = 180 - T(1) # T(2) = 180 - T(1)
# #
# THE VECTOR ARRIVES IN MPAC WHERE TRG*SMNG OR *SMNB* WILL HAVE LEFT IT. # THE VECTOR ARRIVES IN MPAC WHERE TRG*SMNB OR *SMNB* WILL HAVE LEFT IT.
RRANGLES STORE 32D RRANGLES STORE 32D
DLOAD DCOMP # SINCE WE WILL FIND THE MODE 1 SHAFT DLOAD DCOMP # SINCE WE WILL FIND THE MODE 1 SHAFT
34D # ANGLE LATER, WE CAN FIND THE MODE 1 34D # ANGLE LATER, WE CAN FIND THE MODE 1
SETPD ASIN # TRUNNION BY SIMPLY TAKING THE ARCSIN OF SETPD ASIN # TRUNNION BY SIMPLY TAKING THE ARCSIN OF
0 # THE Y COMPONENT, THE ASIN GIVIN AN 0 # THE Y COMPONENT, THE ASIN GIVIN AN
PUSH BDSU # ANSWER WHOSE ABS VAL IS LESS THAN 90 DEG. PUSH BDSU # ANSWER WHOSE ABS VAL IS LESS THAN 90 DEG
LODPHALF LODPHALF
STODL 4 # MODE 2 TRUNNION TO 4. STODL 4 # MODE 2 TRUNNION TO 4.
LO6ZEROS LO6ZEROS
STOVL 34D # UNIT THE PROJECTION OF THE VECTOR STOVL 34D # UNIT THE PROJECTION OF THE VECTOR
32D # IN THE X-Z PLANE 32D # IN THE X-Z PLANE
UNIT BOVB # IF OVERFLOW, TARGET VECTOR IS ALONG Y UNIT BOVB # IF OVERFLOW,TARGET VECTOR IS ALONG Y
LUNDESCH # CALL FOR MANEUVER UNLESS ON LUNAR SURF LUNDESCH # CALL FOR MANEUVER UNLESS ON LUNAR SURF
STODL 32D # PROJECTION VECTOR. STODL 32D # PROJECTION VECTOR.
32D 32D
@ -154,7 +154,7 @@ RRANGLES STORE 32D
GOTO GOTO
S2 S2
# Page 324 # Page 324
# GIVEN RR TRUNNION AND SHAFT (T,S) IN TANGNB,+1, FIND THE ASSOCIATED # GIVEN RR TRUNNION AND SHAFT (T,S) IN TANGNB,+1,FIND THE ASSOCIATED
# LINE OF SIGHT IN NAV BASE AXES. THE HALF UNIT VECTOR, .5(SIN(S)COS(T), # LINE OF SIGHT IN NAV BASE AXES. THE HALF UNIT VECTOR, .5(SIN(S)COS(T),
# -SIN(T),COS(S)COS(T)) IS LEFT IN MPAC AND 32D. # -SIN(T),COS(S)COS(T)) IS LEFT IN MPAC AND 32D.
@ -190,7 +190,7 @@ RRNB1 PUSH COS # SHAFT ANGLE TO 2
RRNBMPAC STODL 20D # SAVE SHAFT CDU IN 21. RRNBMPAC STODL 20D # SAVE SHAFT CDU IN 21.
MPAC # SET MODE TO DP. (THE PRECEEDING STORE MPAC # SET MODE TO DP. (THE PRECEEDING STORE
# MAY BE DP, TP OR VECTOR.) # MAY BE DP. TP OR VECTOR.)
RTB SETPD RTB SETPD
CDULOGIC CDULOGIC
0 0
@ -203,7 +203,4 @@ RRNBMPAC STODL 20D # SAVE SHAFT CDU IN 21.
CDULOGIC CDULOGIC
GOTO GOTO
RRNB1 RRNB1
# Page 325 # Page 325 (empty page)
# (This page has nothing on it.)

4
README.bd_bn.md
View File

@ -69,11 +69,11 @@
## অবদান ## অবদান
কোনো পুল রিকুয়েস্ট খোলার আগে দয়া করে পড়ুন [CONTRIBUTING.md][7]। কোনো পুল রিকুয়েস্ট খোলার আগে দয়া করে [CONTRIBUTING.md][7] তা পড়ুন।
## সংগ্রহ ## সংগ্রহ
যদি আপনি এই নিয়মগুলি পরিচালনা করেন তবে তা [Virtual AGC][8] দেখুন। যদি আপনি এই নিয়মগুলি পরিচালনা করেন তবে [Virtual AGC][8] তা দেখুন।
## আরোপণ ## আরোপণ