Chris Garry
GitHub
@ -391,7 +391,7 @@ DVOVSUB TS SCRATCHY # SAVE UPPER HALF OF DIVIDEND
|
||||
AD BIT1
|
||||
|
||||
ZEROPLUS XCH SCRATCHY # STORE ABS(DIVISOR). PICK UP TOP HALF OF
|
||||
EXTEND # DIVIDENT.
|
||||
EXTEND # DIVIDEND.
|
||||
BZMF GOODNEG # GET -ABS(DIVIDEND)
|
||||
# Page 1493
|
||||
CS A
|
||||
|
||||
@ -157,7 +157,7 @@ COASCODE INDEX FIXLOC
|
||||
TC INTPRET # COMPUTE X AND Y PLANE VECTORS
|
||||
|
||||
# Page 248
|
||||
# THE OPTAXIS SOBROUTINE COMPUTES THE X AND Y MARK PLANE VECS AND
|
||||
# THE OPTAXIS SUBROUTINE COMPUTES THE X AND Y MARK PLANE VECS AND
|
||||
# ROTATES THEM THRU THE APPARENT FIELD OF VIEW ROTATION UNIQUE TO AOT
|
||||
# OPTAXIS USES OANB TO COMPUTE THE OPTIC AXIS
|
||||
#
|
||||
@ -243,7 +243,7 @@ OANB SETPD STQ
|
||||
GOTO
|
||||
GCTR
|
||||
# Page 250
|
||||
# SURFSTAR COMPUTES A STAR VECTOR IN SM COORDINAGES FOR LUNAR
|
||||
# SURFSTAR COMPUTES A STAR VECTOR IN SM COORDINATES FOR LUNAR
|
||||
# SURFACE ALIGNMENT AND EXITS TO AVEIT TO AVERAGE STAR VECTORS.
|
||||
#
|
||||
# GIVEN X-MARK PLANE 1/4 VEC IN NB AT 18D OF LOCAL VAC
|
||||
|
||||
@ -374,7 +374,7 @@ ASCTERM3 TCF ENDOFJOB
|
||||
ASCTERM4 EXIT
|
||||
INHINT
|
||||
TC IBNKCALL # NO GUIDANCE THIS CYCLE -- HENCE ZERO
|
||||
CADR ZATTEROR # THE DAP COMMANDED ERRORSss.
|
||||
CADR ZATTEROR # THE DAP COMMANDED ERRORS.
|
||||
TCF ASCTERM1 +1
|
||||
|
||||
CHECKALT DLOAD DSU
|
||||
@ -425,7 +425,7 @@ OFFROT CLRGO
|
||||
SETXFLAG = CHECKYAW
|
||||
|
||||
CHECKYAW SET
|
||||
XOVINFLG # PROHIBIT X-AXIS OVERRRIDE
|
||||
XOVINFLG # PROHIBIT X-AXIS OVERRIDE
|
||||
DLOAD VXSC
|
||||
ATY
|
||||
LAXIS
|
||||
@ -473,7 +473,7 @@ ENGOFF RTB
|
||||
PIPTIME
|
||||
TTOGO
|
||||
DCOMP EXIT
|
||||
TC TPAGREE # FORCH SIGN AGREEMENT ON MPAC, MPAC +1.
|
||||
TC TPAGREE # FORCE SIGN AGREEMENT ON MPAC, MPAC +1.
|
||||
CAF EBANK7
|
||||
TS EBANK
|
||||
EBANK= TGO
|
||||
|
||||
@ -46,7 +46,7 @@
|
||||
# WHEN POINTING A SPACECRAFT AXIS (I.E., X, Y, Z, THE AOT, THRUST AXIS, ETC.) THE SUBROUTINE VECPOINT MAY BE
|
||||
# USED TO GENERATE THIS SET OF DESIRED CDU ANGLES (SEE DESCRIPTION IN R60).
|
||||
#
|
||||
# WITH THIS INFORMATION KALCMANU DETERMINES THE DIRECTION OF THE SINGLE EQUIVALEN ROTATION (COF ALSO U) AND THE
|
||||
# WITH THIS INFORMATION KALCMANU DETERMINES THE DIRECTION OF THE SINGLE EQUIVALENT ROTATION (COF ALSO U) AND THE
|
||||
# MAGNITUDE OF THE ROTATION (AM) TO BRING THE S/C FROM ITS INITIAL ORIENTATION TO ITS FINAL ORIENTATION.
|
||||
# THIS DIRECTION REMAINS FIXED BOTH IN INERTIAL COORDINATES AND IN COMMANDED S/C AXES THROUGHOUT THE
|
||||
# _
|
||||
@ -86,7 +86,7 @@
|
||||
# A) AM LESS THAN .25 DEGREES (MINANG)
|
||||
# B) AM GREATER THAN 170 DEGREES (MAXANG)
|
||||
#
|
||||
# IF AM IS LESS THAN .25 DEGREES, NO COMPLICATED AUTOMATIC MANEUVERING IS NECESSARY. THREFORE, WE CAN SIMPLY
|
||||
# IF AM IS LESS THAN .25 DEGREES, NO COMPLICATED AUTOMATIC MANEUVERING IS NECESSARY. THEREFORE, WE CAN SIMPLY
|
||||
# SET CDU DESIRED EQUAL TO THE FINAL CDU DESIRED ANGLES AND TERMINATE THE JOB.
|
||||
#
|
||||
# IF AM IS GREATER THAN .25 DEGREES BUT LESS THAN 170 DEGREES THE AXES OF THE SINGLE EQUIVALENT ROTATION
|
||||
@ -141,7 +141,7 @@
|
||||
# RELINT
|
||||
#
|
||||
# THE USER'S PROGRAM MAY EITHER CONTINUE OR WAIT FOR THE TERMINATION OF THE MANEUVER. IF THE USER WISHES TO
|
||||
# WAIT, HE MAY PUT HIS JOB TO SLEEP WTH THE FOLLOWING INSTRUCTIONS:
|
||||
# WAIT, HE MAY PUT HIS JOB TO SLEEP WITH THE FOLLOWING INSTRUCTIONS:
|
||||
#
|
||||
# L TC BANKCALL
|
||||
# L+1 CADR ATTSTALL
|
||||
@ -260,7 +260,7 @@
|
||||
# THIS ROUTINE EXTRACTS THE CDU ANGLES FROM A DIRECTION COSINE MATRIX (M SCALED BY 2) RELATING S/C AXIS TO
|
||||
# *
|
||||
# STABLE MEMBER AXES. X1 MUST CONTAIN THE COMPLEMENT OF THE STARTING ADDRESS FOR M. THE SUBROUTINE LEAVES THE
|
||||
# CORRESPONDING GIMBAL ANGLES IN V(MPAC) AS DOUBLE PRECISION 1'S COMPLEMENT ANGLES ACALED BY 2PI. THE FORMULAS
|
||||
# CORRESPONDING GIMBAL ANGLES IN V(MPAC) AS DOUBLE PRECISION 1'S COMPLEMENT ANGLES SCALED BY 2PI. THE FORMULAS
|
||||
# FOR THIS CONVERSION ARE
|
||||
#
|
||||
# Z = ARCSIN (M )
|
||||
|
||||
@ -594,7 +594,7 @@ ZOOM = P40ZOOMA
|
||||
|
||||
COMFAIL TC UPFLAG # (15)
|
||||
ADRES IDLEFLAG
|
||||
TC UPFLAG # SET FLAG TO SUPRESS CONFLICTING DISPLAY
|
||||
TC UPFLAG # SET FLAG TO SUPPRESS CONFLICTING DISPLAY
|
||||
ADRES FLUNDISP
|
||||
CAF FOUR # RESET DVMON
|
||||
TS DVCNTR
|
||||
@ -890,7 +890,7 @@ REP40ALM CAF V05N09 # (14)
|
||||
TCF +2 # PROCEED CHECK FOR P42
|
||||
TCF REP40ALM # V32E REDISPLAY ALARM
|
||||
|
||||
INDEX WHICH # FOR P42, ALLOW CREW TO PRECEED EVEN
|
||||
INDEX WHICH # FOR P42, ALLOW CREW TO PROCEED EVEN
|
||||
TCF 14 # THOUGH VEHICLE IS UNSTAGED.
|
||||
|
||||
# ********************************
|
||||
|
||||
@ -115,7 +115,7 @@
|
||||
# SAME AS ECADR, BUT USED WHEN THE WORD ADDRESSED IS THE LEFT
|
||||
# HALF OF A DOUBLE-PRECISION WORD FOR DOWN TELEMETRY.
|
||||
# B. 2DNADR - 6DNADR N-WORD DOWNLIST ADDRESS, N = 2 - 6.
|
||||
# SAME AS 1DNADR, BUT WTIH THE 4 UNUSED BITS OF THE ECADR FORMAT
|
||||
# SAME AS 1DNADR, BUT WITH THE 4 UNUSED BITS OF THE ECADR FORMAT
|
||||
# FILLED IN WITH 0001-0101. USED TO POINT TO A LIST OF N DOUBLE-
|
||||
# PRECISION WORDS, STORED CONSECUTIVELY, FOR DOWN TELEMETRY.
|
||||
# C. DNCHAN DOWNLIST CHANNEL ADDRESS.
|
||||
@ -321,7 +321,7 @@ DNTMEXIT EXTEND # DOWN-TELEMETRY EXIT
|
||||
CA L # RESPECTIVELY
|
||||
TMEXITL EXTEND
|
||||
WRITE DNTM2
|
||||
TMRESUME TCF RESUME # EXIT TELEMTRY PROGRAM VIA RESUME.
|
||||
TMRESUME TCF RESUME # EXIT TELEMETRY PROGRAM VIA RESUME.
|
||||
|
||||
MINB12 EQUALS -1/8
|
||||
DNECADR EQUALS TMINDEX
|
||||
@ -339,7 +339,7 @@ SUBLIST EQUALS DNQ
|
||||
# AFTER KEYING IN V74E THE CURRENT DOWNLIST WILL BE IMMEDIATELY TERMINATED AND THE DOWNLINK ERASABLE DUMP
|
||||
# WILL BEGIN.
|
||||
#
|
||||
# ONCE INITITIATED THE DOWNLINK ERASABLE DUMP CAN BE TERMINATED (AND INTERRUPTED DOWNLIST REINSTATED) ONLY
|
||||
# ONCE INITIATED THE DOWNLINK ERASABLE DUMP CAN BE TERMINATED (AND INTERRUPTED DOWNLIST REINSTATED) ONLY
|
||||
# BY THE FOLLOWING:
|
||||
#
|
||||
# 1. A FRESH START
|
||||
|
||||
@ -45,7 +45,7 @@
|
||||
# FINDCDUW PROVIDES THE INTERFACES BETWEEN THE VARIOUS POWERED FLITE GUIDANCE PROGRAMS
|
||||
# AND THE DIGITAL AUTOPILOT. THE INPUTS TO FINDCDUW ARE THE THRUST COMMAND VECTOR
|
||||
# AND THE WINDOW COMMAND VECTOR, AND THE OUTPUTS ARE THE GIMBAL ANGLE
|
||||
# INCRMENTS, THE COMMANDED ATTITUDE ANGLE RATES, AND THE COMMANDED
|
||||
# INCREMENTS, THE COMMANDED ATTITUDE ANGLE RATES, AND THE COMMANDED
|
||||
# ATTITUDE LAG ANGLES (WHICH ACCOUNT FOR THE ANGLES BY WHICH THE BODY WILL
|
||||
# LAG BEHIND A RAMP COMMAND IN ATTITUDE ANGLE DUE TO THE FINITE ANGULAR
|
||||
# ACCELERATIONS AVAILABLE).
|
||||
@ -289,7 +289,7 @@ DELGMBLP TS TEM2
|
||||
TS CPHI # OUTPUTS TO NOUN22
|
||||
EXTEND
|
||||
INDEX TEM2
|
||||
MSU CDUXD # NO MATTER THAT THESE SLIGHLTY DIFFERENT
|
||||
MSU CDUXD # NO MATTER THAT THESE SLIGHTLY DIFFERENT
|
||||
COM # FROM WHEN WE INITIALLY FETCHED THEM
|
||||
INDEX TEM2
|
||||
TS -DELGMB # -UNLIMITED GIMBAL ANGLE CHGS, 1'S, PI
|
||||
|
||||
@ -687,7 +687,7 @@ FLAGWRD6 = STATE +6 # (090-104)
|
||||
|
||||
# BIT 15 FLAG 6 (S)
|
||||
S32.1F1 = 090D # DELTA V AT CSI TIME DVT1 LESS THAN MAX
|
||||
S32BIT1 = BIT15 # ONE EXEEDS MAX
|
||||
S32BIT1 = BIT15 # ONE EXCEEDS MAX
|
||||
|
||||
# BIT 14 FLAG 6 (S)
|
||||
S32.1F2 = 091D # FIRST PASS OF REITERATION OF
|
||||
|
||||
@ -32,7 +32,7 @@
|
||||
# BY -- GEORGE SCHMIDT IL7-146 EXT 1126
|
||||
# MOD NO-ZERO
|
||||
#
|
||||
# FUNCITONAL DESCRIPTION
|
||||
# FUNCTIONAL DESCRIPTION
|
||||
#
|
||||
# THIS SECTION CONSISTS OF THE FILTER FOR THE GYRO DRIFT TESTS. NO COMPASS
|
||||
# IS DONE IN LEM. FOR A DESCRIPTION OF THE FILTER SEE E-1973. THIS
|
||||
|
||||
@ -158,7 +158,7 @@
|
||||
# BIT 10 LM COMPUTER (NOT AGS) HAS CONTROL OF LM.
|
||||
# BIT 11 IMU CAGE COMMAND TO DRIVE IMU GIMBAL ANGLES TO 0.
|
||||
# BIT 12 IMU CDU FAIL (MALFUNCTION OF IMU CDU,S)
|
||||
# BIT 13 IMU FAIL (MALFUCTION OF IMU STABILIZATION LOOPS)
|
||||
# BIT 13 IMU FAIL (MALFUNCTION OF IMU STABILIZATION LOOPS)
|
||||
# BIT 14 ISS TURN ON REQUESTED
|
||||
# BIT 15 TEMPERATURE OF STABLE MEMBER WITHIN DESIGN LIMITS
|
||||
|
||||
|
||||
@ -17,7 +17,7 @@
|
||||
# 2021112-061. July 14, 1969.
|
||||
#
|
||||
# Prepared by
|
||||
# Massachussets Institute of Technology
|
||||
# Massachusetts Institute of Technology
|
||||
# 75 Cambridge Parkway
|
||||
# Cambridge, Massachusetts
|
||||
#
|
||||
|
||||
@ -412,10 +412,10 @@ REDES1 DLOAD DSU
|
||||
# *********************************************************************
|
||||
#
|
||||
# RGVGCALC COMPUTATIONS ARE AS FOLLOWS:--
|
||||
# VELOCITY RELATIVE TO THE SURFACE
|
||||
# VELOCITY RELATIVE TO THE SURFACE:
|
||||
# _______ _ _ __
|
||||
# ANGTERM = V + R * WM
|
||||
# STATE IN GUIDANCE COORDINTES:
|
||||
# STATE IN GUIDANCE COORDINATES:
|
||||
# ___ * _ ____
|
||||
# RGU = CG (R - LAND)
|
||||
# ___ * _ __ _
|
||||
@ -960,7 +960,7 @@ RODCOMP INHINT
|
||||
XCH OLDPIPAZ
|
||||
XCH RUPTREG3
|
||||
|
||||
EXTEND # SHAPSHOT TIME OF PIPA READING.
|
||||
EXTEND # SNAPSHOT TIME OF PIPA READING.
|
||||
DCA TIME2
|
||||
# Page 817
|
||||
DXCH THISTPIP
|
||||
@ -1093,7 +1093,7 @@ AFCSPOT DLOAD # (2), (4), OR (6)
|
||||
2D
|
||||
STODL /AFC/ # (0)
|
||||
ITRPNT2 EXIT
|
||||
DXCH MPAC # MPAC = MEASURED ACCELARATION.
|
||||
DXCH MPAC # MPAC = MEASURED ACCELERATION.
|
||||
TC BANKCALL
|
||||
CADR THROTTLE +3
|
||||
TC INTPRET
|
||||
@ -1257,11 +1257,11 @@ DESCBITS MASK BIT7 # COME HERE FROM MARKRUPT CODING WITH BIT
|
||||
#
|
||||
# PRECAUTION: ROOTPSRS MAKES NO CHECKS FOR OVERFLOW OR FOR IMPROPER USAGE. IMPROPER USAGE COULD
|
||||
# PRECLUDE CONVERGENCE OR REQUIRE EXCESSIVE ITERATIONS. AS A SPECIFIC EXAMPLE, ROOTPSRS FORMS A DERIVATIVE
|
||||
# COEFFICIENT TABLE BY MULTIPLYINE EACH A(I) BY I, WHERE I RANGES FROM 1 TO N. IF AN ELEMENT OF THE DERIVATIVE
|
||||
# COEFFICIENT TABLE = 1 OR >1 IN MAGNITUDE, ONLY THE EXCESS IS RETAINED. ROOTPSRS MAY CONVERGE ON THE COREECT
|
||||
# COEFFICIENT TABLE BY MULTIPLYING EACH A(I) BY I, WHERE I RANGES FROM 1 TO N. IF AN ELEMENT OF THE DERIVATIVE
|
||||
# COEFFICIENT TABLE = 1 OR >1 IN MAGNITUDE, ONLY THE EXCESS IS RETAINED. ROOTPSRS MAY CONVERGE ON THE CORRECT
|
||||
# ROOT NONETHELESS, BUT IT MAY TAKE AN EXCESSIVE NUMBER OF ITERATIONS. THEREFORE THE USER SHOULD RECOGNIZE:
|
||||
# 1. USER'S RESPONSIBILITY TO ASSUR THAT I X A(I) < 1 IN MAGNITUDE FOR ALL I.
|
||||
# 2. USER'S RESPONSIBILITY TO ASSURE OVERFLOW WILL NOT OCCUR IN EVALUTATING EITHER THE RESIDUAL OR THE DERIVATIVE
|
||||
# 2. USER'S RESPONSIBILITY TO ASSURE OVERFLOW WILL NOT OCCUR IN EVALUATING EITHER THE RESIDUAL OR THE DERIVATIVE
|
||||
# POWER SERIES. THIS OVERFLOW WOULD BE PRODUCED BY SUBROUTINE POWRSERS, CALLED BY ROOTPSRS, AND MIGHT NOT
|
||||
# PRECLUDE EVENTUAL CONVERGENCE.
|
||||
# 3. AT PRESENT, ERASABLE LOCATIONS ARE RESERVED ONLY FOR N UP TO 5. AN N IN EXCESS OF 5 WILL PRODUCE CHAOS.
|
||||
|
||||
@ -964,7 +964,7 @@ HEADTJET CA ZERO
|
||||
-FOURDEG DEC -.08888
|
||||
|
||||
# Page 1440
|
||||
# JET POLICY CONTSTRUCTION SUBROUTINE
|
||||
# JET POLICY CONSTRUCTION SUBROUTINE
|
||||
#
|
||||
# INPUT: ROTINDEX, NUMBERT
|
||||
#
|
||||
|
||||
@ -47,9 +47,9 @@ P12LM TC PHASCHNG
|
||||
TC UPFLAG # PREVENT R10 FROM ISSUING CROSS-POINTER
|
||||
ADRES R10FLAG # OUTPUTS.
|
||||
|
||||
TC CLRADMOD # INITIALIZE RADMODES FOR R29
|
||||
TC CLRADMOD # INITIALIZE RADMODES FOR R29.
|
||||
|
||||
TC DOWNFLAG # CLEAR RENDEVOUS FLAG FOR P22
|
||||
TC DOWNFLAG # CLEAR RENDEZVOUS FLAG FOR P22
|
||||
ADRES RNDVZFLG
|
||||
|
||||
CAF THRESH2 # INITIALIZE DVMON
|
||||
|
||||
@ -90,7 +90,7 @@ V06N33 VN 0633
|
||||
V06N42 VN 0642
|
||||
|
||||
# Page 616
|
||||
# PROGRAM DESCRPTION S30.1 DATE 9NOV66
|
||||
# PROGRAM DESCRIPTION S30.1 DATE 9NOV66
|
||||
# MOD NO 1 LOG SECTION P30,P37
|
||||
# MOD BY RAMA AIYAWAR **
|
||||
#
|
||||
|
||||
@ -30,11 +30,11 @@
|
||||
# COELLIPTIC SEQUENCE INITIATION (CSI) PROGRAMS (P32 AND P72)
|
||||
#
|
||||
# MOD NO -1 LOG SECTION -- P32-P35, P72-P75
|
||||
# MOD BY WHITE, P. DATE 1 JUNE 67
|
||||
# MOD BY WHITE.P DATE 1JUNE67
|
||||
#
|
||||
# PURPOSE
|
||||
|
||||
# (1) TO CALCULATE PARAMETERS ASSOCIATED WTIH THE TIME FOLLOWING
|
||||
# (1) TO CALCULATE PARAMETERS ASSOCIATED WITH THE TIME FOLLOWING
|
||||
# CONCENTRIC FLIGHT PLAN MANEUVERS -- THE CO-ELLIPTIC SEQUENCE
|
||||
# INITIATION (CSI) MANEUVER AND THE CONSTANT DELTA ALTITUDE
|
||||
# (CDH) MANEUVER.
|
||||
@ -44,14 +44,14 @@
|
||||
|
||||
# (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
|
||||
# ASSOCIATED WITH THE CONCENTRIC FLIGHT PLAN MANEUVERS FOR
|
||||
# APPROVAL BY THE ASTRRONAUT/GROUND.
|
||||
# APPROVAL BY THE ASTRONAUT/GROUND.
|
||||
|
||||
# (4) TO STORE THE CSI TARGET PARAMETERS FOR USE BY THE DESIRED
|
||||
# THRUSTING PROGRAM.
|
||||
#
|
||||
# ASSUMPTIONS
|
||||
|
||||
# (1) AT A SELECTED TPI TIME THE LINE OF SIGNT BETWEEN THE ACTIVE
|
||||
# (1) AT A SELECTED TPI TIME THE LINE OF SIGHT BETWEEN THE ACTIVE
|
||||
# AND PASSIVE VEHICLES IS SELECTED TO BE A PRESCRIBED ANGLE (E)
|
||||
# FROM THE HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE
|
||||
# POSITION.
|
||||
@ -72,7 +72,7 @@
|
||||
# IGNITION.
|
||||
|
||||
# (6) THE PERICENTER ALTITUDE OF THE ORBIT FOLLOWING CSI AND CDH
|
||||
# MUST BE GREATER THAN 35,000 FT (LUNAR ORBIT) OR 85 NM (EARCH
|
||||
# MUST BE GREATER THAN 35,000 FT (LUNAR ORBIT) OR 85 NM (EARTH
|
||||
# ORBIT) FOR SUCCESSFUL COMPLETION OF THIS PROGRAM.
|
||||
|
||||
# (7) THE CSI AND CDH MANEUVERS ARE ORIGINALLY ASSUMED TO BE
|
||||
@ -107,7 +107,7 @@
|
||||
# CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF
|
||||
# EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
|
||||
#
|
||||
# FINAL FLAG -- SELECTES FINAL PROGRAM DISPLAYS AFTER CREW HAS
|
||||
# FINAL FLAG -- SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
|
||||
# COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
|
||||
# CYCLE.
|
||||
#
|
||||
|
||||
@ -236,7 +236,7 @@ GOABORT TC INTPRET
|
||||
TC DOWNFLAG
|
||||
ADRES IDLEFLAG
|
||||
|
||||
TC UPFLAG # INSURE 4-JET TRANSLATION CAPABILIITY.
|
||||
TC UPFLAG # INSURE 4-JET TRANSLATION CAPABILITY.
|
||||
ADRES ACC4-2FL
|
||||
|
||||
TC CHECKMM
|
||||
|
||||
@ -45,7 +45,7 @@ CALLQERR CA BIT13 # CALCULATE Q,R ERRORS UNLESS THESE AXES
|
||||
CS DAPBOOLS # IN MANUAL RATE COMMAND?
|
||||
MASK OURRCBIT
|
||||
EXTEND
|
||||
BZF Q,RORGTS # IF SO BYPASS CALCULATION OF ERROS.
|
||||
BZF Q,RORGTS # IF SO BYPASS CALCULATION OF ERRORS.
|
||||
TC QERRCALC
|
||||
|
||||
Q,RORGTS CCS COTROLER # CHOOSE CONTROL SYSTEM FOR THIS DAP PASS:
|
||||
@ -538,7 +538,7 @@ TJLAW CA TJLAWADR
|
||||
CADR SPSRCS # DETERMINE RCS CONTROL
|
||||
RELINT
|
||||
CAF FOUR # ALWAYS CALL FOR 2-JET CONTROL ABOUT U,V.
|
||||
TS NUMBERT # FALL THROUGH TO JET SLECTION, ETC.
|
||||
TS NUMBERT # FALL THROUGH TO JET SELECTION, ETC.
|
||||
|
||||
# Q,R-JET-SELECTION-LOGIC
|
||||
#
|
||||
|
||||
@ -36,7 +36,7 @@
|
||||
# RADAR SAMPLING LOOP.
|
||||
|
||||
COUNT* $$/RLEAD
|
||||
RADSAMP CCS RSAMPDT # TIMES NORMAL ONCE PER SECOND SAMLING
|
||||
RADSAMP CCS RSAMPDT # TIMES NORMAL ONCE-PER-SECOND SAMPLING
|
||||
TCF +2
|
||||
TCF TASKOVER # +0 INSERTED MANUALLY TERMINATES TEST.
|
||||
|
||||
|
||||
@ -34,7 +34,7 @@
|
||||
# THIS ROUTINE IS ATTACHED TO T4RUPT, AND IS ENTERED EVERY 480 MS. ITS FUNCTION IS TO EXAMINE THE LOW 8 BITS
|
||||
# OF CHANNEL 32 TO SEE IF ANY ISOLATION-VALVE CLOSURE BITS HAVE APPEARED OR DISAPPEARED (THE CREW IS WARNED OF JET
|
||||
# FAILURES BY LAMPS LIT BY THE GRUMMAN FAILURE-DETECTION CIRCUITRY; THEY MAY RESPOND BY OPERATING SWITCHES WHICH
|
||||
# ISOLATE PAIRS OF JETS FROM THE PROPELLANT TANKS AND SET BITS IN CHANNEL 32). iN THE EVENT THAT CHANNEL 32 BITS
|
||||
# ISOLATE PAIRS OF JETS FROM THE PROPELLANT TANKS AND SET BITS IN CHANNEL 32). IN THE EVENT THAT CHANNEL 32 BITS
|
||||
# DIFFER FROM `PVALVEST', THE RECORD OF ACTIONS TAKEN BY THIS ROUTINE, THE APPROPRIATE BITS IN `CH5MASK' &
|
||||
# `CH6MASK', USED BY THE DAP JET-SELECTION LOGIC, ARE UPDATED, AS IS `PVALVEST'. TO SPEED UP & SHORTEN THE
|
||||
# ROUTINE, NO MORE THAN ONE CHANGE IS ACCEPTED PER ENTRY. THE HIGHEST-NUMBERED BIT IN CHANNEL 32 WHICH REQUIRES
|
||||
@ -47,7 +47,7 @@
|
||||
# FORMER STATE. THE CONSEQUENCE OF THIS IS THAT THE NEXT ENTRY WOULD NOT SEE THE CHANGE INCOMPLETELY INCORP-
|
||||
# ORATED BY THE LAST PASS (BECAUSE IT WENT AWAY AT JUST THE RIGHT TIME), BUT THE DAP MASK-WORDS WILL BE INCORRECT.
|
||||
# THIS COMBINATION OF EVENTS SEEMS QUITE REMOTE, BUT NOT IMPOSSIBLE UNLESS THE CREW OPERATES THE SWITCHES AT HALF-
|
||||
# SECOND INTERVALS OR LONGER. IN ANY EVENT, A DISAGREEMENT BETWEEN REALITY AND THE DAP MASKS WILL BE CUREED IF
|
||||
# SECOND INTERVALS OR LONGER. IN ANY EVENT, A DISAGREEMENT BETWEEN REALITY AND THE DAP MASKS WILL BE CURED IF
|
||||
# THE MISINTERPRETED SWITCH IS REVERSED AND THEN RESTORED TO ITS CORRECT POSITION (SLOWLY).
|
||||
#
|
||||
# CALLING SEQUENCE:
|
||||
|
||||
@ -119,7 +119,7 @@ TPMODE CAF ONE # MODE IS TP.
|
||||
TC Q
|
||||
|
||||
# THE FOLLOWING ROUTINE INCREMENTS IN 2S COMPLEMENT THE REGISTER WHOSE ADDRESS IS IN BUF BY THE 1S COMPL.
|
||||
# QUANTITY FOUND IN TEM2. THIS MAY BE USED TO INCRMENT DESIRED IMU AND OPTICS CDU ANGLES OR ANY OTHER 2S COMPL.
|
||||
# QUANTITY FOUND IN TEM2. THIS MAY BE USED TO INCREMENT DESIRED IMU AND OPTICS CDU ANGLES OR ANY OTHER 2S COMPL.
|
||||
# (+0 UNEQUAL TO -0) QUANTITY. MAY BE CALLED BY BANKCALL/SWCALL.
|
||||
|
||||
CDUINC TS TEM2 # 1S COMPL.QUANT. ARRIVES IN ACC. STORE IT
|
||||
|
||||
@ -19,7 +19,7 @@
|
||||
# 2021112-061. July 14, 1969.
|
||||
#
|
||||
# Prepared by
|
||||
# Massachussets Institute of Technology
|
||||
# Massachusetts Institute of Technology
|
||||
# 75 Cambridge Parkway
|
||||
# Cambridge, Massachusetts
|
||||
#
|
||||
@ -1067,7 +1067,7 @@ MUNRVG VLOAD VXSC
|
||||
R1S
|
||||
VXV VSL2
|
||||
WM
|
||||
STODL DELVS # LUNAR ROTATION CORRECTON TERM*2(5) M/CS.
|
||||
STODL DELVS # LUNAR ROTATION CORRECTION TERM*2(5) M/CS.
|
||||
36D
|
||||
DSU
|
||||
/LAND/
|
||||
|
||||
@ -114,7 +114,7 @@ NEGCHECK INDEX AXISCTR # JETS FIRING NEGATIVELY
|
||||
TCF +2
|
||||
TCF +1 # JETS COMMANDED OFF. SET CTR AND RETURN
|
||||
SETCTR INDEX AXISCTR # JET FIRING REVERSAL COMMANDED. SET CTR,
|
||||
CA UTIME # SET JET TIME TO ZER, AND RETURN
|
||||
CA UTIME # SET JET TIME TO ZERO, AND RETURN
|
||||
# Page 1509
|
||||
INDEX AXISCTR
|
||||
TS UJETCTR
|
||||
|
||||
@ -126,7 +126,7 @@ IGNALOOP DLOAD
|
||||
# 10
|
||||
# 2 (VGU - 16 VGU KIGNX/B4)
|
||||
# 2 0
|
||||
# Page 787 new page is actually one line earlier but this would put the indices on a seperate line
|
||||
# Page 787 new page is actually one line earlier but this would put the indices on a separate line
|
||||
# disconnected from their respective variables
|
||||
# THE NUMERATOR IS SCALED IN METERS AT 2(28). THE DENOMINATOR IS A VELOCITY IN UNITS OF 2(10) M/CS.
|
||||
# THE QUOTIENT IS THUS A TIME IN UNITS OF 2(18) CENTISECONDS. THE FINAL SHIFT RESCALES TO UNITS OF 2(28) CS.
|
||||
|
||||
@ -131,7 +131,7 @@ DOIT CA PIF
|
||||
CA TIME1
|
||||
TS TTHROT
|
||||
|
||||
# SINCE /AF/ IS NOT AN INSTANTANEOUS ACELERATION, BUT RATHER AN "AVERAGE" OF THE ACCELERATION LEVELS DURING
|
||||
# SINCE /AF/ IS NOT AN INSTANTANEOUS ACCELERATION, BUT RATHER AN "AVERAGE" OF THE ACCELERATION LEVELS DURING
|
||||
# THE PRECEEDING PIPA INTERVAL, AND SINCE FP IS COMPUTED DIRECTLY FROM /AF/, FP IN ORDER TO CORRESPOND TO THE
|
||||
# ACTUAL THRUST LEVEL AT THE END OF THE INTERVAL MUST BE WEIGHTED BY
|
||||
#
|
||||
|
||||
@ -31,7 +31,7 @@
|
||||
# Page 1460
|
||||
# PROGRAM DESCRIPTION
|
||||
# DESIGNED BY: R. D. GOSS AND P. S. WEISSMAN
|
||||
# CODED BY: P. S. WEISSMAN, 28 FEBRURARY 1968
|
||||
# CODED BY: P. S. WEISSMAN, 28 FEBRUARY 1968
|
||||
#
|
||||
# TJETLAW IS CALLED AS A SUBROUTINE WHEN THE LEM IS NOT DOCKED AND THE AUTOPILOT IS IN THE AUTOMATIC OR
|
||||
# ATTITUDE-HOLD MODE TO CALCULATE THE JET-FIRING-TIME (TJET) REQUIRED FOR THE AXIS INDICATED BY AXISCTR:
|
||||
@ -156,7 +156,7 @@ ERRTEST CCS E # DOES BIG ERROR (THREE DEG BEYOND THE
|
||||
SU FIREDB
|
||||
EXTEND
|
||||
BZMF SENSTEST # IF NOT: ARE UNBALANCED JETS PREFERRED?
|
||||
MAXJETS CAF TWO # IF YES: INCRMENT ADDRESS LOCATOR AND
|
||||
MAXJETS CAF TWO # IF YES: INCREMENT ADDRESS LOCATOR AND
|
||||
ADS ADRSDIF2 # SET SWITCH FOR JET SELECT LOGIC TO 4.
|
||||
CAF FOUR # (ALWAYS DO THIS FOR P-AXIS)
|
||||
TCF TJCALC
|
||||
|
||||
@ -603,7 +603,7 @@ GMBLBITB OCTAL 06000 # INDEXED WRT GMBLBITA DO NOT MOVE *******
|
||||
|
||||
# SUBROUTINE ROOTCYCL: BY CRAIG WORK, 3 APRIL 68
|
||||
#
|
||||
# ROOTCYCL IS A SUBROUTINE WHICH EXECUTS ONE NEWTON SQUARE ALGORITHM ITERATION. THE INITIAL GUESS AT THE
|
||||
# ROOTCYCL IS A SUBROUTINE WHICH EXECUTES ONE NEWTON SQUARE ALGORITHM ITERATION. THE INITIAL GUESS AT THE
|
||||
# SQUARE ROOT IS PRESUMED TO BE IN THE A REGISTER AND ONE-HALF THE SQUARE IS TAKEN FROM HALFARG. THE NEW APPROXIMATION
|
||||
# TO THE SQUARE ROOT IS RETURNED IN THE A REGISTER. DEBRIS: A, L, SR, SCRATCH. ROOTCYCL IS CALLED FROM
|
||||
# LOCATION (LOC) BY A TC ROOTCYCL, AND RETURNS (TC Q) TO LOC +1.
|
||||
|
||||
Reference in New Issue
Block a user