Reorganized files to separate Luminary099 source code from Comanche055 source code
This commit is contained in:
Clifford Richardson
421
Luminary099/IMU_PERFORMANCE_TEST_2.s
Normal file
421
Luminary099/IMU_PERFORMANCE_TEST_2.s
Normal file
@ -0,0 +1,421 @@
|
||||
# Copyright: Public domain.
|
||||
# Filename: IMU_PERFORMANCE_TEST_2.agc
|
||||
# Purpose: Part of the source code for Luminary 1A build 099.
|
||||
# It is part of the source code for the Lunar Module's (LM)
|
||||
# Apollo Guidance Computer (AGC), for Apollo 11.
|
||||
# Assembler: yaYUL
|
||||
# Contact: Ron Burkey <info@sandroid.org>.
|
||||
# Website: www.ibiblio.org/apollo.
|
||||
# Pages: 373-381
|
||||
# Mod history: 2009-05-17 RSB Adapted from the corresponding
|
||||
# Luminary131 file, using page
|
||||
# images from Luminary 1A.
|
||||
#
|
||||
# This source code has been transcribed or otherwise adapted from
|
||||
# digitized images of a hardcopy from the MIT Museum. The digitization
|
||||
# was performed by Paul Fjeld, and arranged for by Deborah Douglas of
|
||||
# the Museum. Many thanks to both. The images (with suitable reduction
|
||||
# in storage size and consequent reduction in image quality as well) are
|
||||
# available online at www.ibiblio.org/apollo. If for some reason you
|
||||
# find that the images are illegible, contact me at info@sandroid.org
|
||||
# about getting access to the (much) higher-quality images which Paul
|
||||
# actually created.
|
||||
#
|
||||
# Notations on the hardcopy document read, in part:
|
||||
#
|
||||
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
|
||||
# 16:27 JULY 14, 1969
|
||||
|
||||
# Page 373
|
||||
# NAME -- IMU PERFORMANCE TESTS 2
|
||||
#
|
||||
# DATE -- MARCH 20, 1967
|
||||
#
|
||||
# BY -- SYSTEM TEST GROUP 864-6900 EXT. 1274
|
||||
#
|
||||
# MODNO. -- ZERO
|
||||
#
|
||||
# FUNCTIONAL DESCRIPTION
|
||||
#
|
||||
# POSITIONING ROUTINES FOR THE IMU PERFORMANCE TESTS AS WELL AS SOME OF
|
||||
# THE TESTS THEMSELVES. FOR A DESCRIPTION OF THESE SUBROUTINES AND THE
|
||||
# OPERATING PROCEDURES (TYPICALLY) SEE STG MEMO 685. THEORETICAL REF. E-1973
|
||||
|
||||
BANK 33
|
||||
SETLOC IMU2
|
||||
BANK
|
||||
EBANK= POSITON
|
||||
COUNT* $$/P07
|
||||
|
||||
REDO TC NEWMODEX
|
||||
MM 07
|
||||
|
||||
GEOIMUTT TC IMUZERR
|
||||
IMUBACK CA ZERO
|
||||
TS NDXCTR
|
||||
TS TORQNDX
|
||||
TS TORQNDX +1
|
||||
TS OVFLOWCK
|
||||
NBPOSPL CA DEC17
|
||||
TS ZERONDX
|
||||
CA XNBADR
|
||||
TC ZEROING
|
||||
CA HALF
|
||||
TS XNB
|
||||
GUESS TC INTPRET
|
||||
LATAZCHK DLOAD SL2
|
||||
LATITUDE
|
||||
STODL DSPTEM1 +1
|
||||
AZIMUTH
|
||||
RTB EXIT
|
||||
1STO2S
|
||||
XCH MPAC
|
||||
TS DSPTEM1
|
||||
CAF VN0641
|
||||
TC BANKCALL
|
||||
CADR GOFLASH
|
||||
TC ENDTEST1
|
||||
TC +2
|
||||
TC -5
|
||||
# Page 374
|
||||
TC INTPRET
|
||||
SLOAD RTB
|
||||
DSPTEM1
|
||||
CDULOGIC
|
||||
STORE AZIMUTH
|
||||
SLOAD SR2
|
||||
DSPTEM1 +1
|
||||
STORE LATITUDE
|
||||
COS DCOMP
|
||||
SL1
|
||||
STODL WANGI
|
||||
LATITUDE
|
||||
SIN SL1
|
||||
STODL WANGO
|
||||
AZIMUTH
|
||||
PUSH SIN
|
||||
STORE YNB +2
|
||||
STODL ZNB +4
|
||||
COS
|
||||
STORE YNB +4
|
||||
DCOMP
|
||||
POSGMBL STCALL ZNB +2
|
||||
CALCGA
|
||||
EXIT
|
||||
TC BANKCALL
|
||||
CADR IMUCOARS
|
||||
CAF BIT14 # IF BIT14 SET, GIMBAL LOCK
|
||||
MASK FLAGWRD3
|
||||
EXTEND
|
||||
BZF +2
|
||||
INCR NDXCTR # +1 IF IN GIMBAL LOCK, OTHERWISE 0
|
||||
TC DOWNFLAG
|
||||
ADRES GLOKFAIL # RESET GIMBAL LOCK FLAG
|
||||
TC IMUSLLLG
|
||||
CCS NDXCTR # IF ONE GO AND DO A PIPA TEST ONLY
|
||||
TC PIPACHK # ALIGN AND MEASURE VERTICAL PIPA RATE
|
||||
TC FINIMUDD
|
||||
EXTEND
|
||||
DCA PERFDLAY
|
||||
TC LONGCALL # DELAY WHILE SUSPENSION STABILIZES
|
||||
EBANK= POSITON
|
||||
2CADR GOESTIMS
|
||||
|
||||
CA ESTICADR
|
||||
TC JOBSLEEP
|
||||
GOESTIMS CA ESTICADR
|
||||
TC JOBWAKE
|
||||
TC TASKOVER
|
||||
ESTICADR CADR ESTIMS
|
||||
TORQUE CA ZERO
|
||||
# Page 375
|
||||
TS DSPTEM2
|
||||
CA DRIFTI
|
||||
TS DSPTEM2 +1
|
||||
INDEX POSITON
|
||||
TS SOUTHDR -1
|
||||
TC SHOW
|
||||
|
||||
PIPACHK INDEX NDXCTR # PIPA TEST
|
||||
TC +1
|
||||
TC EARTHR*
|
||||
CA DEC17 # ALLOW PIP COUNTER TO OVERFLOW 17 TIMES
|
||||
TS DATAPL +4 # IN THE ALLOTTED TIME INTERVAL
|
||||
CA DEC58
|
||||
TS LENGTHOT
|
||||
CA ONE
|
||||
TS RESULTCT
|
||||
CA ZERO
|
||||
INDEX PIPINDEX
|
||||
TS PIPAX
|
||||
TS DATAPL
|
||||
TC CHECKG
|
||||
INHINT
|
||||
CAF TWO
|
||||
TC TWIDDLE
|
||||
EBANK= XSM
|
||||
ADRES PIPATASK
|
||||
TC ENDOFJOB
|
||||
|
||||
PIPATASK EXTEND
|
||||
DIM LENGTHOT
|
||||
CA LENGTHOT
|
||||
EXTEND
|
||||
BZMF STARTPIP
|
||||
CAF BIT10
|
||||
TC TWIDDLE
|
||||
EBANK= XSM
|
||||
ADRES PIPATASK
|
||||
STARTPIP CAF PRIO20
|
||||
TC FINDVAC
|
||||
EBANK= XSM
|
||||
2CADR PIPJOBB
|
||||
|
||||
TC TASKOVER
|
||||
|
||||
PIPJOBB INDEX NDXCTR
|
||||
TC +1
|
||||
TC EARTHR*
|
||||
CA LENGTHOT
|
||||
# Page 376
|
||||
EXTEND
|
||||
BZMF +2
|
||||
TC ENDOFJOB
|
||||
|
||||
CA FIVE
|
||||
TS RESULTCT
|
||||
TC CHECKG
|
||||
CCS DATAPL +1
|
||||
TC +4
|
||||
TC CCSHOLE
|
||||
CS DATAPL +4
|
||||
TS DATAPL +4
|
||||
EXTEND
|
||||
DCS DATAPL
|
||||
DAS DATAPL +4
|
||||
|
||||
TC INTPRET
|
||||
DLOAD DSU
|
||||
DATAPL +6
|
||||
DATAPL +2
|
||||
BPL CALL
|
||||
AINGOTN
|
||||
OVERFFIX
|
||||
AINGOTN PDDL DDV
|
||||
DATAPL +4
|
||||
DMPR RTB
|
||||
DEC585 # DEC585 HAS BEEN REDEFINED FOR LEM
|
||||
SGNAGREE
|
||||
STORE DSPTEM2
|
||||
EXIT
|
||||
CCS NDXCTR
|
||||
TC COAALIGN # TAKE PLATFORM OUT OF GIMBAL LOCK
|
||||
TC SHOW
|
||||
VERTDRFT CA 3990DEC # ABOUT 1 HOUR VERTICAL DRIFT TEST
|
||||
TS LENGTHOT
|
||||
INDEX POSITON
|
||||
CS SOUTHDR -2
|
||||
TS DRIFTT
|
||||
CCS PIPINDEX # OFFSET PLATFORM TO MISS PIP DEAD-ZONES
|
||||
TCF PON4 # Z-UP IN POS 4
|
||||
PON2 CS BIT5 # X-UP
|
||||
ADS ERCOMP +2
|
||||
CA BIT5
|
||||
ADS ERCOMP +4
|
||||
TCF PON
|
||||
PON4 CS BIT5
|
||||
ADS ERCOMP +2
|
||||
CA BIT5
|
||||
ADS ERCOMP
|
||||
PON TC EARTHR*
|
||||
# Page 377
|
||||
CA ZERO # ALLOW ONLY SOUTH GYRO EARTH RATE COMPENS
|
||||
TS ERVECTOR
|
||||
TS ERVECTOR +1
|
||||
GUESS1 CAF POSMAX
|
||||
TS TORQNDX
|
||||
TS TORQNDX +1
|
||||
CA CDUX
|
||||
TS LOSVEC
|
||||
TC ESTIMS
|
||||
VALMIS CA DRIFTO
|
||||
TS DSPTEM2 +1
|
||||
CA ZERO
|
||||
TS DSPTEM2
|
||||
TC SHOW
|
||||
|
||||
ENDTEST1 TC DOWNFLAG
|
||||
ADRES IMUSE
|
||||
CS ZERO
|
||||
TC NEWMODEA
|
||||
TC ENDEXT
|
||||
|
||||
# Page 378
|
||||
OVERFFIX DAD DAD
|
||||
DPPOSMAX
|
||||
ONEDPP
|
||||
RVQ
|
||||
|
||||
COAALIGN EXTEND # COARSE ALIGN SUBROUTINE
|
||||
QXCH ZERONDX
|
||||
CA ZERO
|
||||
TS THETAD
|
||||
TS THETAD +1
|
||||
TS THETAD +2
|
||||
TC BANKCALL
|
||||
CADR IMUCOARS
|
||||
ALIGNCOA TC BANKCALL
|
||||
CADR IMUSTALL
|
||||
TC SOMERR2
|
||||
TC ZERONDX
|
||||
|
||||
IMUSLLLG EXTEND
|
||||
QXCH ZERONDX
|
||||
TC ALIGNCOA
|
||||
|
||||
FINIMUDD EXTEND
|
||||
QXCH ZERONDX
|
||||
TC BANKCALL
|
||||
CADR IMUFINE
|
||||
TC ALIGNCOA
|
||||
|
||||
IMUZERR EXTEND
|
||||
QXCH ZERONDX
|
||||
TC BANKCALL
|
||||
CADR IMUZERO
|
||||
TC ALIGNCOA
|
||||
|
||||
CHECKG EXTEND # PIP PULSE CATCHING ROUTINE
|
||||
QXCH QPLACE
|
||||
TC +6
|
||||
CHECKG1 RELINT
|
||||
CA NEWJOB
|
||||
EXTEND
|
||||
BZMF +6
|
||||
TC CHANG1
|
||||
INHINT
|
||||
INDEX PIPINDEX
|
||||
CS PIPAX
|
||||
TS ZERONDX
|
||||
INHINT
|
||||
# Page 379
|
||||
INDEX PIPINDEX
|
||||
CA PIPAX
|
||||
AD ZERONDX
|
||||
EXTEND
|
||||
BZF CHECKG1
|
||||
INDEX PIPINDEX
|
||||
CA PIPAX
|
||||
INDEX RESULTCT
|
||||
TS DATAPL
|
||||
TC FINETIME
|
||||
INDEX RESULTCT
|
||||
TS DATAPL +1
|
||||
INDEX RESULTCT
|
||||
LXCH DATAPL +2
|
||||
RELINT
|
||||
ENDCHKG TC QPLACE
|
||||
|
||||
ZEROING TS L
|
||||
TCF +2
|
||||
ZEROING1 TS ZERONDX
|
||||
CAF ZERO
|
||||
INDEX L
|
||||
TS 0
|
||||
INCR L
|
||||
CCS ZERONDX
|
||||
TCF ZEROING1
|
||||
TC Q
|
||||
|
||||
# Page 380
|
||||
ERTHRVSE DLOAD PDDL
|
||||
SCHZEROS # PD24 = (SIN -COS 0)(OMEG/MS)
|
||||
LATITUDE
|
||||
COS DCOMP
|
||||
PDDL SIN
|
||||
LATITUDE
|
||||
VDEF VXSC
|
||||
OMEG/MS
|
||||
STORE ERVECTOR
|
||||
RTB
|
||||
LOADTIME
|
||||
STOVL TMARK
|
||||
SCHZEROS
|
||||
STORE ERCOMP
|
||||
RVQ
|
||||
|
||||
EARTHR ITA RTB
|
||||
S2
|
||||
LOADTIME
|
||||
STORE TEMPTIME
|
||||
DSU BPL
|
||||
TMARK
|
||||
ERTHR
|
||||
CALL
|
||||
OVERFFIX
|
||||
ERTHR SL VXSC
|
||||
9D
|
||||
ERVECTOR
|
||||
MXV VAD
|
||||
XSM
|
||||
ERCOMP
|
||||
STODL ERCOMP
|
||||
TEMPTIME
|
||||
STORE TMARK
|
||||
AXT,1 RTB
|
||||
ECADR ERCOMP
|
||||
PULSEIMU
|
||||
GOTO
|
||||
S2
|
||||
|
||||
EARTHR* EXTEND
|
||||
QXCH QPLACES
|
||||
TC INTPRET
|
||||
CALL
|
||||
EARTHR
|
||||
EXIT
|
||||
TC IMUSLLLG
|
||||
TC QPLACES
|
||||
|
||||
SHOW EXTEND
|
||||
# Page 381
|
||||
QXCH QPLACE
|
||||
SHOW1 CA POSITON
|
||||
TS DSPTEM2 +2
|
||||
CA VB06N98
|
||||
TC BANKCALL
|
||||
CADR GOFLASH
|
||||
TC ENDTEST1 # V34
|
||||
TC QPLACE # V33
|
||||
TCF SHOW1
|
||||
|
||||
3990DEC DEC 3990
|
||||
VB06N98 VN 0698
|
||||
VN0641 VN 0641
|
||||
DEC17 = ND1
|
||||
DEC58 DEC 58
|
||||
OGCPL ECADR OGC
|
||||
1SECX = 1SEC
|
||||
XNBADR GENADR XNB
|
||||
XSMADR GENADR XSM
|
||||
BLOCK 2
|
||||
COUNT* $$/P07
|
||||
FINETIME INHINT # RETURNS WITH INTERRUPT INHIBITED
|
||||
EXTEND
|
||||
READ LOSCALAR
|
||||
TS L
|
||||
EXTEND
|
||||
RXOR LOSCALAR
|
||||
EXTEND
|
||||
BZF +4
|
||||
EXTEND
|
||||
READ LOSCALAR
|
||||
TS L
|
||||
+4 CS POSMAX
|
||||
AD L
|
||||
EXTEND
|
||||
BZF FINETIME +1
|
||||
EXTEND
|
||||
READ HISCALAR
|
||||
TC Q
|
||||
|
||||
Reference in New Issue
Block a user