Merge pull request #121 from wopian/Transcription-and-Transposition-Errors-Part-I

Transcription and Transposition Fixes
This commit is contained in:
Chris Garry 2016-07-16 01:28:15 -04:00 committed by GitHub
commit 1926773603
4 changed files with 435 additions and 459 deletions

View File

@ -23,83 +23,86 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 055 of AGC program Comanche by NASA
# 2021113-051. 10:28 APR. 1, 1969
# 2021113-051. 10:28 APR. 1, 1969
#
# This AGC program shall also be referred to as
# Colossus 2A
# Page 1394
# PROGRAM DESCRIPTION DATE: 20 DECEMBER 1967
# PROGRAM NAME -- SELF-CHECK LOG SECTION: AGC BLOCK TWO SELF-CHECK
# MOD NO -- 1 ASSEMBLY SUBROUTINE UTILITYM REV 25
# MOD BY -- GAUNTT
# PROGRAM DESCRIPTION DATE 20 DECEMBER 1967
# PROGRAM NAME - SELF-CHECK LOG SECTION AGC BLOCK TWO SELF-CHECK
# MOD NO - 1 ASSEMBLY SUBROUTINE UTILITYM REV 25
# MOD BY - GAUNTT
#
#
# FUNCTIONAL DESCRIPTION
# PROGRAM HAS TWO MAIN PARTS. THE FIRST IS SELF-CHECK WHICH RUNS AS A ZERO PRIORITY JOB WITH NO CORE SET, AS
# PART OF THE BACK-UP IDLE LOOP. THE SECOND IS SHOW-BANKSUM WHICH RUNS AS A REGULAR EXECUTIVE JOB WITH ITS OWN
# STARTING VERB.
#
# THE PURPOSE OF SELF-CHECK IS TO CHECK OUT VARIOUS PARTS OF THE COMPUTER AS OUTLINED BELOW IN THE OPTIONS.
# PROGRAM HAS TWO MAIN PARTS. THE FIRST IS SELF-CHECK WHICH RUNS AS A ZERO PRIORITY JOB WITH NO CORE SET, AS
# PART OF THE BACK-UP IDLE LOOP. THE SECOND IS SHOW-BANKSUM WHICH RUNS AS A REGULAR EXECUTIVE JOB WITH ITS OWN
# STARTING VERB.
# THE PURPOSE OF SELF-CHECK IS TO CHECK OUT VARIOUS PARTS OF THE COMPUTER AS OUTLINED BELOW IN THE OPTIONS.
# THE PURPOSE OF SHOW-BANKSUM IS TO DISPLAY THE SUM OF EACH BANK , ONE AT A TIME.
# IN ALL THERE ARE 7 POSSIBLE OPTIONS IN THIS BLOCK II VERSION OF SELF-CHECK. MORE DETAIL DESCRIPTION MAY BE
# FOUND IN E-2065 BLOCK II AGC SELF-CHECK AND SHOW BANKSUM BY EDWIN D. SMALLY DECEMBER 1966, AND ADDENDA 2 AND 3.
# THE DIFFERENT OPTIONS ARE CONTROLLED BY PUTTING DIFFERENT NUMBERS IN THE SMODE REGISTER (NOUN 27). BELOW IS
# A DESCRIPTION OF WHAT PARTS OF THE COMPUTER THAT ARE CHECKED BY THE OPTIONS, AND THE CORRESPONDING NUMBER, IN
# OCTAL, TO LOAD INTO SMODE.
# +-4 ERASABLE MEMORY
# +-5 FIXED MEMORY
# +-1,2,3,6,7,10 EVERYTHING IN OPTIONS 4 AND 5.
# -0 SAME AS +-10 UNTIL AN ERROR IS DETECTED.
# +0 NO CHECK, PUTS COMPUTER INTO THE BACKUP IDLE LOOP.
#
# THE PURPOSE OF SHOW-BANKSUM IS TO DISPLAY THE SUM OF EACH BANK, ONE AT A TIME.
#
# IN ALL THERE ARE 7 POSSIBLE OPTIONS IN THIS BLOCK II VERSION OF SELF-CHECK. MORE DETAIL DESCRIPTION MAY BE
# FOUND IN E-2065 BLOCK II AGC SELF-CHECK AND SHOW BANKSUM BY EDWIN D. SMALLY DECEMBER 1966, AND ADDENDA 2 AND 3.
#
# THE DIFFERENT OPTIONS ARE CONTROLLED BY PUTTING DIFFERENT NUMBERS IN THE SMODE REGISTER (NOUN 27). BELOW IS
# A DESCRIPTION OF WHAT PARTS OF THE COMPUTER THAT ARE CHECKED BY THE OPTIONS, AND THE CORRESPONDING NUMBER, IN
# OCTAL, TO LOAD INTO SMODE.
# +-4 ERASABLE MEMORY
# +-5 FIXED MEMORY
# +-1,2,3,6,7,10 EVERYTHING IN OPTIONS 4 AND 5.
# -0 SAME AS +-10 UNTIL AN ERROR IS DETECTED.
# +0 NO CHECK, PUTS COMPUTER INTO THE BACKUP IDLE LOOP.
#
# WARNINGS
# USE OF E MEMORY RESERVED FOR SELF-CHECK (EVEN IN IDLE LOOP) AS TEMP STORAGE BY OTHER PROGRAMS IS DANGEROUS.
# SMODE SET GREATER THAN OCT 10 PUTS COMPUTER INTO BACKUP IDLE LOOP.
# USE OF E MEMORY RESERVED FOR SELF-CHECK (EVEN IN IDLE LOOP) AS TEMP STORAGE BY OTHER PROGRAMS IS DANGEROUS.
# SMODE SET GREATER THAN OCT 10 PUTS COMPUTER INTO BACKUP IDLE LOOP.
#
#
# CALLING SEQUENCE
# TO CALL SELF-CHECK KEY IN
# V 21 N 27 E OPTION NUMBER E
# TO CALL SHOW-BANKSUM KEY IN
# V 91 E DISPLAYS FIRST BANK
# V 33 E PROCEED, DISPLAYS NEXT BANK
#
# TO CALL SELF-CHECK KEY IN
# V 21 N 27 E OPTION NUMBER E
# TO CALL SHOW-BANKSUM KEY IN
# V 91 E DISPLAYS FIRST BANK
# V 33 E PROCEED, DISPLAYS NEXT BANK
#
#
# EXIT MODES, NORMAL AND ALARM
# SELF-CHECK NORMALLY CONTINUES INDEFINITELY UNLESS THERE IS AN ERROR DETECTED. IF SO + OPTION NUMBERS PUT
# COMPUTER INTO BACKUP IDLE LOOP, - OPTION NUMBERS RESTART THE OPTION.
#
# THE -0 OPTION PROCEEDS FROM THE LINE FOLLOWING THE LINE WHERE THE ERROR WAS DETECTED.
# SELF-CHECK NORMALLY CONTINUES INDEFINITELY UNLESS THERE IS AN ERROR DETECTED. IF SO + OPTION NUMBERS PUT
# COMPUTER INTO BACKUP IDLE LOOP, - OPTION NUMBERS RESTART THE OPTION.
# THE -0 OPTION PROCEEDS FROM THE LINE FOLLOWING THE LINE WHERE THE ERROR WAS DETECTED.
# SHOW-BANKSUM PROCEEDS UNTIL A TERMINATE IS KEYED IN (V 34 E). THE COMPUTER IS PUT INTO THE BACKUP IDLE LOOP
#
#
# SHOW-BANKSUM PROCEEDS UNTIL A TERMINATE IS KEYED IN (V 34 E). THE COMPUTER IS PUT INTO THE BACKUP IDLE LOOP.
#
# OUTPUT
# Page 1395
# SELF-CHECK UPON DETECTING AN ERROR LOADS THE SELF-CHECK ALARM CONSTANT (01102) INTO THE FAILREG SET AND
# TURNS ON THE ALARM LIGHT. THE OPERATOR MAY THEN DISPLAY THE THREE FAILREGS BY KEYING IN V 05 N 09 E. FOR FURTHER
# INFORMATION HE MAY KEY IN V 05 N 08 E, THE DSKY DISPLAY IN R1 WILL BE ADDRESS+1 OF WHERE THE ERROR WAS DETECTED,
# IN R2 THE BBCON OF SELF-CHECK, AND IN R3 THE TOTAL NUMBER OF ERRORS DETECTED BY SELF-CHECK SINCE THE LAST MAN
# INITIATED FRESH START (SLAP1).
# SELF-CHECK UPON DETECTING AN ERROR LOADS THE SELF-CHECK ALARM CONSTANT (01102) INTO THE FAILREG SET AND
# TURNS ON THE ALARM LIGHT. THE OPERATOR MAY THEN DISPLAY THE THREE FAILREGS BY KEYING IN V 05 N 09 E. FOR FURTHER
# INFORMATION HE MAY KEY IN V 05 N 08 E, THE DSKY DISPLAY IN R1 WILL BE ADDRESS+1 OF WHERE THE ERROR WAS DETECTED,
# IN R2 THE BBCON OF SELF-CHECK, AND IN R3 THE TOTAL NUMBER OF ERRORS DETECTED BY SELF-CHECK SINCE THE LAST MAN
# INITIATED FRESH START (SLAP1).
# SHOW-BANKSUM STARTING WITH BANK 0 DISPLAYS IN R1 THE BANK SUM (A +-NUMBER EQUAL TO THE BANK NUMBER), IN R2
# THE BANK NUMBER, AND IN R3 THE BUGGER WORD.
#
# SHOW-BANKSUM STARTING WITH BANK 0 DISPLAYS IN R1 THE BANK SUM (A +-NUMBER EQUAL TO THE BANK NUMBER), IN R2
# THE BANK NUMBER, AND IN R3 THE BUGGER WORD.
#
# ERASABLE INITIALIZATION REQUIRED
# ACCOMPLISHED BY FRESH START
# SMODE SET TO +0
# ACCOMPLISHED BY FRESH START
# SMODE SET TO +0
#
# DEBRIS
# ALL EXITS FROM THE CHECK OF ERASABLE (ERASCHK) RESTORE ORIGINAL CONTENTS TO REGISTERS UNDER CHECK.
# EXCEPTION IS A RESTART. RESTART THAT OCCURS DURING ERASCHK RESTORES ERASABLE, UNLESS THERE IS EVIDENCE TO DOUBT
# E MEMORY, IN WHICH CASE PROGRAM THEN DOES A FRESH START (DOFSTART).
# ALL EXITS FROM THE CHECK OF ERASABLE (ERASCHK) RESTORE ORIGINAL CONTENTS TO REGISTERS UNDER CHECK.
# EXCEPTION IS A RESTART. RESTART THAT OCCURS DURING ERASCHK RESTORES ERASABLE, UNLESS THERE IS EVIDENCE TO DOUBT
# E MEMORY, IN WHICH CASE PROGRAM THEN DOES A FRESH START (DOFSTART).
BANK 25
SETLOC SELFCHEC
BANK
COUNT 43/SELF
SBIT1 EQUALS BIT1
SBIT2 EQUALS BIT2
SBIT3 EQUALS BIT3
@ -150,7 +153,7 @@ S-ZERO EQUALS NEG0
EBANK= LST1
ADRS1 ADRES SKEEP1
SELFADRS ADRES SELFCHK # SELFCHK RETURN ADDRESS. SHOULD BE PUT
SELFADRS ADRES SELFCHK # SELFCHK RETURN ADDRESS. SHOULD BE PUT
# IN SELFRET WHEN GOING FROM SELFCHK TO
# SHOWSUM AND PUT IN SKEEP1 WHEN GOING
# FROM SHOWSUM TO SELF-CHECK.
@ -227,9 +230,7 @@ SELFCHK TC SMODECHK # ** CHARLEY, COME IN HERE
# Page 1398
# SKEEP3 HOLDS LAST ADDRESS BEING CHECKED (HIGHEST ADDRESS).
# SKEEP2 CONTROLS CHECKING OF NON-SWITCHABLE ERASABLE MEMORY WITH BANK NUMBERS IN EB.
#
# ERASCHK TAKES APPROXIMATELY 7 SECONDS.
# ERASCHK TAKES APPROXMATELY 7 SECONDS
ERASCHK CA S+1
TS SKEEP2
0EBANK CA S+ZERO
@ -322,10 +323,8 @@ ELOOPFIN RELINT
TC E134567B # GO TO EBANKS 1,3,4,5,6, AND 7
CA ERASCON6 # END OF ERASCHK
TS EBANK
# CNTRCHK PERFORMS A CS OF ALL REGISTERS FROM OCT. 60 THROUGH OCT. 10.
# INCLUDED ARE ALL COUNTERS, T6-1, CYCLE AND SHIFT, AND ALL RUPT REGISTERS
CNTRCHK CA CNTRCON # 00050
CNTRLOOP TS SKEEP2
AD SBIT4 # +10 OCTAL
@ -336,7 +335,6 @@ CNTRLOOP TS SKEEP2
TC CNTRLOOP
# CYCLSHFT CHECKS THE CYCLE AND SHIFT REGISTERS
CYCLSHFT CA CONC+S1 # 25252
TS CYR # C(CYR) = 12525
TS CYL # C(CYL) = 52524
@ -357,7 +355,6 @@ CYCLSHFT CA CONC+S1 # 25252
INCR SCOUNT +1
TC SMODECHK
# SKEEP1 HOLDS SUM
# SKEEP2 HOLDS PRESENT CONTENTS OF ADDRESS IN ROPECHK AND SHOWSUM ROUTINES
# SKEEP2 HOLDS BANK NUMBER IN LOW ORDER BITS DURING SHOWSUM DISPLAY
@ -367,7 +364,7 @@ CYCLSHFT CA CONC+S1 # 25252
# SKEEP4 HOLDS BANK NUMBER AND SUPER BANK NUMBER
# SKEEP5 COUNTS 2 SUCCESSIVE TC SELF WORDS
# SKEEP6 CONTROLS ROPECHK OR SHOWSUM OPTION
# SKEEP7 CONTROLS WHEN ROUTINE IS IN COMMON FIXED OR FIXED FIXED BANKS
# SKEEP7 CONTROLS WHEN ROUNTINE IS IN COMMON FIXED OR FIXED FIXED BANKS
ROPECHK CA S-ZERO # *
TS SKEEP6 # * -0 FOR ROPECHK
@ -514,5 +511,3 @@ BNKCHK CS L # = - BANK NUMBER
EBANK= NEWJOB
LSTBNKCH BBCON* # * CONSTANT, LAST BANK.
SBANK= LOWSUPER

View File

@ -8,16 +8,16 @@
# Contact: Ron Burkey <info@sandroid.org>
# Website: http://www.ibiblio.org/apollo.
# Mod history: 2009-05-07 RSB Adapted from Colossus249 file of the same
# name, and page images. Corrected various
# typos in the transcription of program
# comments, and these should be back-ported
# name, and page images. Corrected various
# typos in the transcription of program
# comments, and these should be back-ported
# to Colossus249.
#
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
#
# Assemble revision 055 of AGC program Comanche by NASA
# 2021113-051. April 1, 1969.
# 2021113-051. April 1, 1969.
#
# This AGC program shall also be referred to as Colossus 2A
#
@ -31,11 +31,11 @@
# Refer directly to the online document mentioned above for further
# information. Please report any errors to info@sandroid.org.
# Page 1483
# THE FOLLOWING SUBROUTINE MAY BE CALLED TO DISPLAY A NON-ABORTIVE ALARM CONDITION. IT MAY BE CALLED
# Page 1493
# THE FOLLOWING SUBROUTINE MAY BE CALLED TO DISPLAY A NON-ABORTIVE ALARM CONDITION. IT MAY BE CALLED
# EITHER IN INTERRUPT OR UNDER EXECUTIVE CONTROL.
#
# THE CALLING SEQUENCE IS AS FOLLOWS:
# THE CALLING SEQUENCE IS AS FOLLOWS:
# TC ALARM
# OCT NNNNN
# # (RETURNS HERE)
@ -59,7 +59,7 @@ ALARM2 TS ALMCADR
BORTENT TS L
PRIOENT CA BBANK
+1 EXTEND
+1 EXTEND
ROR SUPERBNK # ADD SUPER BITS.
TS ALMCADR +1
@ -80,7 +80,7 @@ CHKFAIL2 CCS FAILREG +1
TCF FAIL3
LXCH FAILREG +1
TCF MULTEXIT
FAIL3 CA FAILREG +2
# Page 1494
MASK POSMAX
@ -88,7 +88,7 @@ FAIL3 CA FAILREG +2
TCF MULTFAIL
LXCH FAILREG +2
TCF MULTEXIT
PROGLARM CS DSPTAB +11D
MASK OCT40400
ADS DSPTAB +11D
@ -101,18 +101,18 @@ MULTEXIT XCH ITEMP1 # OBTAIN RETURN ADDRESS IN A
MULTFAIL CA L
AD BIT15
TS FAILREG +2
TCF MULTEXIT
# PRIOLARM DISPLAYS V05N09 VIA PRIODSPR WITH 3 RETURNS TO THE USER FROM THE ASTRONAUT AT CALL LOC +1,+2,+3 AND
# AN IMMEDIATE RETURN TO THE USER AT CALL LOC +4. EXAMPLE FOLLOWS,
# AN IMMEDIATE RETURN TO THE USER AT CALL LOC +4. EXAMPLE FOLLOWS,
# CAF OCTXX # ALARM CODE
# TC BANKCALL
# CADR PRIOLARM
# ... ...
# ... ...
# ... ... # ASTRONAUT RETURN
# TC PHASCHNG # IMMEDIATE RETURN TO USER. RESTART
# TC PHASCHNG # IMMEDIATE RETURN TO USER. RESTART
# OCT X.1 # PHASE CHANGE FOR PRIO DISPLAY
BANK 10
@ -120,32 +120,33 @@ MULTFAIL CA L
BANK
COUNT 10/DSPLA
PRIOLARM INHINT # * * * KEEP IN DISPLAY ROUTINE'S BANK
PRIOLARM INHINT # * * * KEEP IN DISPLAY ROUTINES BANK
TS L # SAVE ALARM CODE
CA BUF2 # 2 CADR OF PRIOLARM USER
TS ALMCADR
CA BUF2 +1
TC PRIOENT +1 # * LEAVE L ALONE
-2SEC DEC -200 # *** DON'T MOVE
-2SEC DEC -200 # *** DONT MOVE
CAF V05N09
TCF PRIODSPR
# Page 1495
# Page 1495
BLOCK 02
SETLOC FFTAG13
BANK
COUNT 02/ALARM
BAILOUT INHINT
CA Q
TS ALMCADR
TC BANKCALL
CADR VAC5STOR
INDEX ALMCADR
CAF 0
TC BORTENT
@ -158,41 +159,42 @@ WHIMPER CA TWO
RESUME
TC POSTJUMP # RESUME SENDS CONTROL HERE
CADR ENEMA
SETLOC FFTAG7
BANK
P00DOO INHINT
CA Q
TS ALMCADR
TC BANKCALL
CADR VAC5STOR # STORE ERASABLES FOR DEBUGGING PURPOSES.
INDEX ALMCADR
CAF 0
ABORT2 TC BORTENT
OCT77770 OCT 77770 # DON'T MOVE
OCT77770 OCT 77770 # DONT MOVE
CA V37FLBIT # IS AVERAGE G ON
MASK FLAGWRD7
CCS A
TC WHIMPER -1 # YES. DON'T DO POODOO. DO BAILOUT.
TC WHIMPER -1 # YES. DONT DO POODOO. DO BAILOUT.
TC DOWNFLAG
ADRES STATEFLG
TC DOWNFLAG
# Page 1496
ADRES REINTFLG
TC DOWNFLAG
ADRES NODOFLAG
TC BANKCALL
CADR MR.KLEAN
TC WHIMPER
CCSHOLE INHINT
CA Q
TS ALMCADR
@ -208,23 +210,20 @@ OCT217 OCT 00217
TC ALMCADR # RETURN TO USER
DOALARM EQUALS ENDOFJOB
# CALLING SEQUENCE FOR VARALARM
# CAF (ALARM)
# TC VARALARM
# Page 1486
#
# VARALARM TURNS ON PROGRAM ALARM LIGHT BUT DOES NOT DISPLAY
VARALARM INHINT
TS L # SAVE USER'S ALARM CODE
TS L # SAVE USERS ALARM CODE
CA Q # SAVE USER'S Q
CA Q # SAVE USERS Q
TS ALMCADR
TC PRIOENT
OCT14 OCT 14 # DON'T MOVE
OCT14 OCT 14 # DONT MOVE
TC ALMCADR # RETURN TO USER

View File

@ -7,10 +7,10 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 399-411
# Mod history: 2009-05-09 RSB Adapted from the Colossus249/ file
# of the same name, using Comanche055 page
# Mod history: 2009-05-09 RSB Adapted from the Colossus249/ file
# of the same name, using Comanche055 page
# images.
# 2009-05-22 RSB In NOGOM2, TC ZEROEROR corrected to
# 2009-05-22 RSB In NOGOM2, TC ZEROEROR corrected to
# CADR ZEROEROR.
#
# This source code has been transcribed or otherwise adapted from digitized
@ -19,13 +19,13 @@
# 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
# 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 055 of AGC program Comanche by NASA
# 2021113-051. 10:28 APR. 1, 1969
# 2021113-051. 10:28 APR. 1, 1969
#
# This AGC program shall also be referred to as
# Colossus 2A
@ -34,11 +34,11 @@
BANK 15
SETLOC KALCMON1
BANK
EBANK= BCDU
COUNT 22/KALC
KALCMAN3 TC INTPRET
RTB
READCDUK # PICK UP CURRENT CDU ANGLES
@ -47,7 +47,7 @@ KALCMAN3 TC INTPRET
MIS # INITIAL S/C AXES TO STABLE MEMBER AXES
BCDU # (MIS)
CALL
CDUTODCM
CDUTODCM
AXC,2 TLOAD # COMPUTE THE TRANSFORMATION FROM
MFS # FINAL S/C AXES TO STABLE MEMBER AXES
CPHI # (MFS)
@ -58,9 +58,9 @@ SECAD AXC,1 CALL # MIS AND MFS ARRAYS CALCULATED $2
TRANSPOS
VLOAD
STADR
STOVL TMIS +12D
STOVL TMIS +12D
STADR
STOVL TMIS +6
STOVL TMIS +6
STADR
STORE TMIS # TMIS = TRANSPOSE(MIS) SCALED BY 2
AXC,1 AXC,2
@ -69,45 +69,45 @@ SECAD AXC,1 CALL # MIS AND MFS ARRAYS CALCULATED $2
CALL
MXM3
VLOAD STADR
STOVL MFI +12D
STOVL MFI +12D
STADR
STOVL MFI +6
STOVL MFI +6
STADR
STORE MFI # MFI = TMIS MFS (SCALED BY 4)
SETPD CALL # TRANSPOSE MFI IN PD LIST
18D
TRNSPSPD
VLOAD STADR
STOVL TMFI +12D
STOVL TMFI +12D
STADR
STOVL TMFI +6
STOVL TMFI +6
# Page 400
STADR
STORE TMFI # TMFI = TRANSPOSE (MFI) SCALED BY 4
STORE TMFI # TMFI = TRANSPOSE (MFI) SCALED BY 4
# CALCULATE COFSKEW AND MFISYM
DLOAD DSU
TMFI +2
MFI +2
TMFI +2
MFI +2
PDDL DSU # CALCULATE COF SCALED BY 2/SIN(AM)
MFI +4
TMFI +4
MFI +4
TMFI +4
PDDL DSU
TMFI +10D
MFI +10D
TMFI +10D
MFI +10D
VDEF
STORE COFSKEW # EQUALS MFISKEW
# CALCULATE AM AND PROCEED ACCORDING TO ITS MAGNITUDE
DLOAD DAD
MFI
MFI +16D
MFI +16D
DSU DAD
DP1/4TH
MFI +8D
STORE CAM # CAM = (MFI0+MFI4+MFI8-1)/2 HALF-SCALE
MFI +8D
STORE CAM # CAM = (MFI0+MFI4+MFI8-1)/2 HALF SCALE
ARCCOS
STORE AM # AM=ARCCOS(CAM) (AM SCALED BY 2)
DSU BPL
@ -119,7 +119,7 @@ SECAD AXC,1 CALL # MIS AND MFS ARRAYS CALCULATED $2
TS HOLDFLAG # NOGO WILL STOP ANY RATE AND SET UP FOR A
TC LOADCDUD # GOOD RETURN
TCF NOGO
CHECKMAX DLOAD DSU
AM
MAXANG
@ -136,15 +136,15 @@ ALTCALC VLOAD VAD # IF AM GREATER THAN 170 DEGREES
TMFI
VSR1
STOVL MFISYM
MFI +6
MFI +6
VAD VSR1
TMFI +6
STOVL MFISYM +6
MFI +12D
TMFI +6
STOVL MFISYM +6
MFI +12D
VAD VSR1
TMFI +12D
STORE MFISYM +12D # MFISYM=(MFI+TMFI)/2 SCALED BY 4
TMFI +12D
STORE MFISYM +12D # MFISYM=(MFI+TMFI)/2 SCALED BY 4
# CALCULATE COF
DLOAD SR1
@ -154,12 +154,12 @@ ALTCALC VLOAD VAD # IF AM GREATER THAN 170 DEGREES
CAM
BOVB PDDL # PD2 1 - CAM $2
SIGNMPAC
MFISYM +16D
MFISYM +16D
DSU DDV
0
2
SQRT PDDL # COFZ = SQRT(MFISYM8-CAM)/(1-CAM)
MFISYM +8D # $ ROOT 2
MFISYM +8D # $ ROOT 2
DSU DDV
0
2
@ -171,45 +171,45 @@ ALTCALC VLOAD VAD # IF AM GREATER THAN 170 DEGREES
SQRT VDEF # COFX = SQRT(MFISYM-CAM)/(1-CAM) $ROOT 2
UNIT
STORE COF
# DETERMINE LARGEST COF AND ADJUST ACCORDINGLY
COFMAXGO DLOAD DSU
COF
COF +2
COF +2
BMN DLOAD # COFY G COFX
COMP12
COF
DSU BMN
COF +4
COF +4
# Page 402
METHOD3 # COFZ G COFX OR COFY
GOTO
METHOD1 # COFX G COFY OR COFZ
COMP12 DLOAD DSU
COF +2
COF +4
COF +2
COF +4
BMN
METHOD3 # COFZ G COFY OR COFX
METHOD2 DLOAD BPL # COFY MAX
COFSKEW +2 # UY
COFSKEW +2 # UY
U2POS
VLOAD VCOMP
COF
STORE COF
U2POS DLOAD BPL
MFISYM +2 # UX UY
MFISYM +2 # UX UY
OKU21
DLOAD DCOMP # SIGN OF UX OPPOSITE TO UY
COF
STORE COF
OKU21 DLOAD BPL
MFISYM +10D # UY UZ
MFISYM +10D # UY UZ
LOCSKIRT
DLOAD DCOMP # SIGN OF UZ OPPOSITE TO UY
COF +4
STORE COF +4
COF +4
STORE COF +4
GOTO
LOCSKIRT
METHOD1 DLOAD BPL # COFX MAX
@ -219,17 +219,17 @@ METHOD1 DLOAD BPL # COFX MAX
COF
STORE COF
U1POS DLOAD BPL
MFISYM +2 # UX UY
MFISYM +2 # UX UY
OKU12
DLOAD DCOMP
COF +2 # SIGN OF UY OPPOSITE TO UX
STORE COF +2
COF +2 # SIGN OF UY OPPOSITE TO UX
STORE COF +2
OKU12 DLOAD BPL
MFISYM +4 # UX UZ
MFISYM +4 # UX UZ
LOCSKIRT
DLOAD DCOMP # SIGN OF UZ OPPOSITE TO UY
COF +4
STORE COF +4
COF +4
STORE COF +4
GOTO
LOCSKIRT
METHOD3 DLOAD BPL # COFZ MAX
@ -240,17 +240,17 @@ METHOD3 DLOAD BPL # COFZ MAX
COF
STORE COF
U3POS DLOAD BPL
MFISYM +4 # UX UZ
MFISYM +4 # UX UZ
OKU31
DLOAD DCOMP
COF # SIGN OF UX OPPOSITE TO UZ
STORE COF
OKU31 DLOAD BPL
MFISYM +10D # UY UZ
MFISYM +10D # UY UZ
LOCSKIRT
DLOAD DCOMP
COF +2 # SIGN OF UY OPPOSITE TO UZ
STORE COF +2
COF +2 # SIGN OF UY OPPOSITE TO UZ
STORE COF +2
GOTO
LOCSKIRT
@ -281,10 +281,10 @@ MXM3 SETPD # MXM3 MULTIPLIES 2 3X3 MATRICES
0,1
GOTO
TRNSPSPD # REVERSE ROWS AND COLS IN PD AND
# RETURN WITH M1XM2 IN PD LIST
TRANSPOS SETPD VLOAD* # TRANSPOS TRANSPOSES A 3X3 MATRIX
0 # AND LEAVES RESULT IN PD LIST
0 # AND LEAVES RESULT IN PD LIST
0,1 # MATRIX ADDRESS IN XR1
PDVL* PDVL*
6,1
@ -312,7 +312,6 @@ TRNSPSPD DLOAD PDDL # ENTER WITH MATRIX IN PD LIST
RVQ # RETURN WITH TRANSPOSED MATRIX IN PD LIST
MINANG DEC .00069375
MAXANG DEC .472222
# GIMBAL LOCK CONSTANTS
# D = MGA CORRESPONDING TO GIMBAL LOCK = 60 DEGREES
@ -326,19 +325,19 @@ SNGLCD DEC .008725 # = SIN(NGL)COS(D) $2
CNGL DEC .499695 # = COS(NGL) $2
READCDUK INHINT # LOAD T(MPAC) WITH THE CURRENT CDU ANGLES
CA CDUZ
TS MPAC +2
TS MPAC +2
EXTEND
DCA CDUX
RELINT
TCF TLOAD +6
TCF TLOAD +6
BANK 16
SETLOC KALCMON2
BANK
COUNT* $$/KALC
CDUTODCM AXT,1 SSP # SUBROUTINE TO COMPUTE DIRECTION COSINE
OCT 3 # MATRIX RELATING S/C AXES TO STARLE
CDUTODCM AXT,1 SSP # SUBROUTINE TO COMPUTE DIRECTION COSINE
OCT 3 # MATRIX RELATING S/C AXES TO STABLE
S1 # MEMBER AXES FROM 3 CDU ANGLES IN T(MPAC)
OCT 1 # SET XR1, S1, AND PD FOR LOOP
STORE 7
@ -347,12 +346,12 @@ CDUTODCM AXT,1 SSP # SUBROUTINE TO COMPUTE DIRECTION COSINE
LOOPSIN SLOAD* RTB
10D,1
CDULOGIC
STORE 10D # LOAD PD WITH 0 SIN(PHI)
SIN PDDL # 2 COS(PHI)
10D # 4 SIN(THETA)
COS PUSH # 6 COS(THETA)
TIX,1 DLOAD # 8 SIN(PSI)
LOOPSIN # 10 COS(PSI)
STORE 10D # LOAD PD WITH 0 SIN(PHI)
SIN PDDL # 2 COS(PHI)
10D # 4 SIN(THETA)
COS PUSH # 6 COS(THETA)
TIX,1 DLOAD # 8 SIN(PSI)
LOOPSIN # 10 COS(PSI)
6
DMP SL1
10D
@ -405,42 +404,42 @@ LOOPSIN SLOAD* RTB
DLOAD
DMP SL1 # (PUSH UP 7)
8D
PDDL DMP # (PD7 COS(PHI)SIN(THETA)SIN(PSI)) SCALE 4
PDDL DMP # (PD7 COS(PHI)SIN(THETA)SIN(PSI)) SCALE4
6
# Page 407
0
DAD SL1 # (PUSH UP 7)
DAD SL1 # (PUSH UP 7)
STADR # C7=COS(PHI)SIN(THETA)SIN(PSI)
STORE 14D,2
DLOAD
DMP SL1 # (PUSH UP 6)
DMP SL1 # (PUSH UP 6)
8D
PDDL DMP # (PD6 SIN(THETA)SIN(PHI)SIN(PSI)) SCALE 4
PDDL DMP # (PD6 SIN(THETA)SIN(PHI)SIN(PSI)) SCALE4
6
2
DSU SL1 # (PUSH UP 6)
DSU SL1 # (PUSH UP 6)
STADR
STORE 16D,2 # C8=-SIN(THETA)SIN(PHI)SIN(PSI)
RVQ # +COS(THETA)COS(PHI)
RVQ # +COS(THETA)COS(PHI)
ENDOCM EQUALS
BANK 15
SETLOC KALCMON1
BANK
# CALCULATION OF THE MATRIX DEL.......
#
# * * __T *
# * * --T *
# DEL = (IDMATRIX)COS(A)+UU (1-COS(A))+UX SIN(A) SCALED 1
#
# _
# -
# WHERE U IS A UNIT VECTOR (DP SCALED 2) ALONG THE AXIS OF ROTATION.
# A IS THE ANGLE OF ROTATION (DP SCALED 2).
# _
# UPON ENTRY THE STARTING ADDRESS OF U IS COF, AND A IS IN MPAC.
# A IS THE ANGLE OF ROTATION (DP SCALED 2)
# -
# UPON ENTRY THE STARTING ADDRESS OF U IS COF, AND A IS IN MPAC
COUNT 22/KALC
DELCOMP SETPD PUSH # MPAC CONTAINS THE ANGLE A
0
SIN PDDL # PD0 = SIN(A)
@ -449,7 +448,7 @@ DELCOMP SETPD PUSH # MPAC CONTAINS THE ANGLE A
BDSU BOVB # PD4 = 1-COS(A) $2
DPHALF
SIGNMPAC
# COMPUTE THE DIAGONAL COMPONENTS OF DEL
PDDL
@ -462,48 +461,48 @@ DELCOMP SETPD PUSH # MPAC CONTAINS THE ANGLE A
BOVB
SIGNMPAC
STODL DEL # UX UX(U-COS(A)) +COS(A) $1
COF +2
DSQ DMP
4
DAD SL3
2
BOVB
SIGNMPAC
STODL DEL +8D # UY UY(1-COS(A)) +COS(A) $1
COF +4
COF +2
DSQ DMP
4
DAD SL3
2
BOVB
SIGNMPAC
STORE DEL +16D # UZ UZ(1-COS(A)) +COS(A) $1
# COMPUTE THE OFF-DIAGONAL TERMS OF DEL
STODL DEL +8D # UY UY(1-COS(A)) +COS(A) $1
COF +4
DSQ DMP
4
DAD SL3
2
BOVB
SIGNMPAC
STORE DEL +16D # UZ UZ(1-COS(A)) +COS(A) $1
# COMPUTE THE OFF DIAGONAL TERMS OF DEL
DLOAD DMP
COF
COF +2
COF +2
DMP SL1
4
PDDL DMP # D6 UX UY (1-COS A) $ 4
COF +4
PDDL DMP # D6 UX UY (1-COS A) $ 4
COF +4
0
PUSH DAD # D8 UZ SIN A $ 4
PUSH DAD # D8 UZ SIN A $ 4
6
SL2 BOVB
SIGNMPAC
STODL DEL +6
STODL DEL +6
BDSU SL2
BOVB
SIGNMPAC
STODL DEL +2
STODL DEL +2
COF
DMP DMP
COF +4
COF +4
4
SL1 PDDL # D6 UX UZ (1-COS A) $ 4
COF +2
SL1 PDDL # D6 UX UZ (1-COS A ) $ 4
COF +2
DMP PUSH # D8 UY SIN(A)
0
DAD SL2
@ -511,14 +510,14 @@ DELCOMP SETPD PUSH # MPAC CONTAINS THE ANGLE A
# Page 409
BOVB
SIGNMPAC
STODL DEL +4 # UX UZ (1-COS(A))+UY SIN(A)
STODL DEL +4 # UX UZ (1-COS(A))+UY SIN(A)
BDSU SL2
BOVB
SIGNMPAC
STODL DEL +12D # UX UZ (U-COS(A))-UY SIGN(A)
COF +2
STODL DEL +12D # UX UZ (U-COS(A))-UY SIGN(A)
COF +2
DMP DMP
COF +4
COF +4
4
SL1 PDDL # D6 UY UZ (1-COS(A)) $ 4
COF
@ -528,41 +527,34 @@ DELCOMP SETPD PUSH # MPAC CONTAINS THE ANGLE A
6
BOVB
SIGNMPAC
STODL DEL +14D # UY UZ(1-COS(A)) +UX SIN(A)
STODL DEL +14D # UY UZ(1-COS(A)) +UX SIN(A)
BDSU SL2
BOVB
BOVB
SIGNMPAC
STORE DEL +10D # UY UZ(1-COS(A)) -UX SIN(A)
STORE DEL +10D # UY UZ(1-COS(A)) -UX SIN(A)
RVQ
# DIRECTION COSINE MATRIX TO CDU ANGLE ROUTINE
# X1 CONTAINS THE COMPLEMENT OF THE STARTING ADDRESS FOR MATRIX (SCALED 2)
# LEAVES CDU ANGLES SCALED 2PI IN V(MPAC)
# COS(MGA) WILL BE LEFT IN S1 (SCALED 1)
#
# THE DIRECTION COSINE MATRIX RELATING S/C AXES TO STABLE MEMBER AXES CAN BE WRITTEN AS ***
# THE DIRECTION COSINE MATRIX RELATING S/C AXES TO STABLE MEMBER AXES CAN BE WRITTEN AS***
#
# C =COS(THETA)COS(PSI)
# 0
#
# C =-COS(THETA)SIN(PSI)COS(PHI)+SIN(THETA)SIN(PHI)
# 1
#
# C =COS(THETA)SIN(PSI)SIN(PHI)+SIN(THETA)COS(PHI)
# 2
#
# C =SIN(PSI)
# 3
#
# C =COS(PSI)COS(PHI)
# 4
#
# C =-COS(PSI)SIN(PHI)
# 5
#
# C =-SIN(THETA)COS(PSI)
# 6
#
# C =SIN(THETA)SIN(PSI)COS(PHI)+COS(THETA)SIN(PHI)
# 7
# Page 410
@ -620,15 +612,15 @@ VECOFANG VDEF RVQ
NOGOM2 INHINT # THIS LOCATION ACCESSED BY A BZMF NOGO -2
TC BANKCALL
CADR ZEROERROR
NOGO INHINT
TC STOPRATE
# TERMINATE MANEUVER
CAF TWO # NOTE: ALL RETURNS ARE NOW MADE VIA
CAF TWO # NOTE - ALL RETURNS ARE NOW MADE VIA
TC WAITLIST # GOODEND
EBANK= BCDU
2CADR ENDMANU
TCF ENDOFJOB

View File

@ -6,7 +6,7 @@
# Assembler: yaYUL
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Mod history: 2009-05-05 RSB Adapted from the Colossus249/ file of the
# Mod history: 2009-05-05 RSB Adapted from the Colossus249/ file of the
# same name, using Comanche055 page images.
#
# This source code has been transcribed or otherwise adapted from digitized
@ -15,13 +15,13 @@
# 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
# 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 055 of AGC program Comanche by NASA
# 2021113-051. 10:28 APR. 1, 1969
# 2021113-051. 10:28 APR. 1, 1969
#
# This AGC program shall also be referred to as
# Colossus 2A
@ -31,6 +31,8 @@
# ASSEMBLY AND OPERATIONS INFORMATION
# TAGS FOR RELATIVE SETLOC AND BLANK BANK CARDS
# SUBROUTINE CALLS
#
#
# COMERASE
# ERASABLE ASSIGNMENTS
# COMAID
@ -52,12 +54,12 @@
# SYSTEM TEST STANDARD LEAD INS
# IMU CALIBRATION AND ALIGNMENT
# COMEKISS
# GROUND TRACKING DETERMINATION PROGRAM -- P21
# GROUND TRACKING DETERMINATION PROGRAM - P21
# P34-P35, P74-P75
# R31
# P76
# R30
# STABLE ORBIT -- P38-P39
# STABLE ORBIT - P38-P39
# TROUBLE
# P11
# TP1 SEARCH
@ -73,12 +75,9 @@
# CM BODY ATTITUDE
# P37,P70
# S-BAND ANTENNA FOR CM
# LUNAR LANDMARK SELECTION FOR CM
# TVCDAPS
# TVC INITIALIZE
# Page 3
# TVC EXECUTIVE
# TVC MASSPROP
# TVC RESTARTS
@ -120,19 +119,19 @@
# ALARM AND ABORT
# UPDATE PROGRAM
# RTB OP CODES
# SYMBOL TABLE LISTING
# UNREFERENCED SYMBOL LISTING
# ERASABLE & EQUALS CROSS-REFERENCE TABLE
# SUMMARY OF SYMBOL TABLE LISTINGS
# MEMORY TYPE & AVAILABILITY DISPLAY
# COUNT TABLE
# PARAGRAPHS GENERATED FOR THIS DISPLAY
#
#
# SYMBOL TABLE LISTING
# UNREFERANCED SYMBOL LISTING
# ERASABLE & EQUALS CROSS-REFERENCE TABLE
# SUMMARY OF SYMBOL TABLE LISTINGS
# MEMORY TYPE & AVAILABILITY DISPLAY
# COUNT TABLE
# PARAGRAPHS GENERATED FOR THIS ASSEMBLY
# Page 4
# OCTAL LISTING
# OCCUPIED LOCATIONS TABLE
# SUBROS CALLED & PROGRAM STATUS
# OCTAL LISTING
# OCCUPIED LOCATIONS TABLE
# SUBROS CALLED & PROGRAM STATUS
# Page 5
# VERB LIST FOR CSM
@ -184,30 +183,30 @@
# EXTENDED VERBS
# 40 ZERO CDU'S
# 41 COARSE ALIGN CDU'S
# 42 FINE ALIGN IMU'S
# 40 ZERO CDU-S
# 41 COARSE ALIGN CDU-S
# 42 FINE ALIGN IMU-S
# 43 LOAD IMU ATT ERROR METERS
# 44 SET SURFACE FLAG
# 45 RESET SURFACE FLAG
# 46 ESTABLISH G&C CONTROL
# 47 MOVE LM STATE VECTOR INTO CM STATE VECTOR
# 47 MOVE LM STATE VECTOR INTO CM STATE VECTOR.
# 48 REQUEST DAP DATA LOAD ROUTINE (R03)
# 49 REQUES CREW DEFINED MANEUVER ROUTINE (R62)
# 49 REQUEST CREW DEFINED MANEUVER ROUTINE (R62)
# 50 PLEASE PERFORM
# 51 PLEASE MARK
# 52 MARK ON OFFSET LANDING SITE
# 53 PLEASE PERFORM ALTERNATE LOS MARK
# 54 REQUEST RENDEZVOUS BACKUP SIGHTING MARK ROUTIEN (R23)
# 54 REQUEST RENDEZVOUS BACKUP SIGHTING MARK ROUTINE (R23)
# 55 INCREMENT AGC TIME (DECIMAL)
# 56 TERMINATE TRACKING (P20 & P25)
# 56 TERMINATE TRACKING (P20 + P25)
# 57 REQUEST RENDEZVOUS SIGHTING MARK ROUTINE (R21)
# 58 RESET STICK FLAG
# 59 PLEASE CALIBRATE
# 60 SET ASTRONAUT TOTAL ATTITUDE (N17) TO PRESENT ATTITUDE
# 61 DISPLAY DAP ATTITUDE ERROR
# 62 DISPLAY TOTAL ATTITUDE ERROR (W.R.T. N22 (THETAD))
# 63 DISPLAY TOTAL ASTRONAUT ATTITUDE ERROR (W.R.T. N17 (CPHIX))
# 62 DISPLAY TOTAL ATTITUDE ERROR (WRT N22 (THETAD))
# 63 DISPLAY TOTAL ASTRONAUT ATTITUDE ERROR (WRT N17 (CPHIX))
# 64 REQUEST S-BAND ANTENNA ROUTINE
# 65 OPTICAL VERIFICATION OF PRELAUNCH ALIGNMENT
# 66 VEHICLES ARE ATTACHED. MOVE THIS VEHICLE STATE TO OTHER VEHICLE.
@ -215,8 +214,8 @@
# 68 CSM STROKE TEST ON
# 69 CAUSE RESTART
# 70 UPDATE LIFTOFF TIME
# 71 UNIVERSAL UPDATE - BLOCK ADR
# 72 UNIVERSAL UPDATE - SINGLE ADR
# 71 UNIVERSAL UPDATE-BLOCK ADR
# 72 UNIVERSAL UPDATE-SINGLE ADR
# 73 UPDATE AGC TIME (OCTAL)
# 74 INITIALIZE ERASABLE DUMP VIA DOWNLINK
# 75 BACKUP LIFTOFF
@ -232,16 +231,14 @@
# 85 REQUEST RENDEZVOUS PARAMETER DISPLAY NO. 2 (R34)
# 86 REJECT RENDEZVOUS BACKUP SIGHTING MARK
# 87 SET VHF RANGE FLAG
# Page 7
# 88 RESET VHF RANGE FLAG
# 89 REQUEST RENDEZVOUS FINAL ATTITUDE ROUTINE (R63)
# 90 REQUEST RENDEZVOUS OUT OF PLANE DISPLAY ROUTINE (R36)
# 91 DISPLAY BANK SUM
# 92 OPERATE IMU PERFORMANCE TEST (P07)
# 93 ENABLE W MATRIX INITIALIZATION
# 94 PERFORM SYSLUNAR ATTITUDE MANEUVER (P23)
# 94 PERFORM CYSLUNAR ATTITUDE MANEUVER (P23)
# 95 NO UPDATE OF EITHER STATE VECTOR (P20 OR P22)
# 96 TERMINATE INTEGRATION AND GO TO P00
# 97 PERFORM ENGINE FAIL PROCEDURE
@ -249,18 +246,16 @@
# 99 PLEASE ENABLE ENGINE
# Page 8
# IN THE FOLLOWING NOUN LIST THE 'NO LOAD' RESTRICTION MEANS THE NOUN
# IN THE FOLLOWING NOUN LIST THE :NO LOAD: RESTRICTION MEANS THE NOUN
# CONTAINS AT LEAST ONE COMPONENT WHICH CANNOT BE LOADED, I.E. OF
# SCALE TYPE L (MIN/SEC) OR PP (2 INTEGERS).
# IN THIS CASE VERBS 24 AND 25 ARE NOT ALLOWED, BUT VERBS 21, 22, OR 23
# MAY BE USED TO LOAD ANY OF THE NOUN'S COMPONENTS WHICH ARE NOT OF THE
# MAY BE USED TO LOAD ANY OF THE NOUN:S COMPONENTS WHICH ARE NOT OF THE
# ABOVE SCALE TYPES.
# THE :DEC ONLY: RESTRICTION MEANS ONLY DECIMAL OPERATION IS ALLOWED ON
# EVERY COMPONENT IN THE NOUN. (NOTE THAT :NO LOAD: IMPLIES :DEC ONLY:.)
# THE 'DEC ONLY' RESTRICTION MEANS ONLY DECIMAL OPERATION IS ALLOWED ON
# EVERY COMPONENT IN THE NOUN. (NOT THAT 'NO LOAD' IMLIES 'DEC ONLY'.)
# NORMAL NOUNS COMPONENTS SCALE & DECIMAL POINT RESTRICTION
# NORMAL NOUNS COMPONENTS SCALE & DECIMAL POINT RESTRICTIONS
#
# 00 NOT IN USE
# 01 SPECIFY MACHINE ADDRESS (FRACTIONAL) 3COMP .XXXXX FOR EACH
@ -269,7 +264,7 @@
# 04 SPARE
# 05 ANGULAR ERROR/DIFFERENCE 1COMP XXX.XX DEG
# 06 OPTION CODE 2COMP OCTAL ONLY FOR EACH
# LOADING NOUN 07 WILL SET OR RESET SELECTED BITS IN ANY ERASABLE REGISTER.
# LOADING NOUN 07 WILL SET OR RESET SELECTED BITS IN ANY ERASABLE REGISTER
# 07 ECADR OF WORD TO BE MODIFIED 3COMP OCTAL ONLY FOR EACH
# ONES FOR BITS TO BE MODIFIED
# 1 TO SET OR 0 TO RESET SELECTED BITS
@ -300,7 +295,7 @@
# 000XX. MIN MUST LOAD 3 COMPS
# 0XX.XX SEC
# 25 CHECKLIST 3COMP XXXXX. FOR EACH
# (USED WITH PLEASE PERFORM ONLY)
# (USED WITH PLEASE PERFORM ONLY)
# Page 9
@ -342,21 +337,21 @@
# Page 11
# MIXED NOUNS COMPONENTS SCALE & DECIMAL POINT RESTRICTION
# MIXED NOUNS COMPONENTS SCALE & DECIMAL POINT RESTRICTIONS
#
# 40 TIME FROM IGNITION/CUTOFF 3COMP XXBXX MIN/SEC NO LOAD, DEC ONLY
# VG XXXX.X FT/SEC
# VG, XXXX.X FT/SEC
# DELTA V (ACCUMULATED) XXXX.X FT/SEC
# 41 TARGET AZIMUTH 2COMP XXX.XX DEG
# 41 TARGET AZIMUTH, 2COMP XXX.XX DEG
# ELEVATION XX.XXX DEG
# 42 APOGEE 3COMP XXXX.X NAUT MI DEC ONLY
# PERIGEE XXXX.X NAUT MI
# 42 APOGEE, 3COMP XXXX.X NAUT MI DEC ONLY
# PERIGEE, XXXX.X NAUT MI
# DELTA V (REQUIRED) XXXX.X FT/SEC
# 43 LATITUDE 3COMP XXX.XX DEG DEC ONLY
# LONGITUDE XXX.XX DEG
# 43 LATITUDE, 3COMP XXX.XX DEG DEC ONLY
# LONGITUDE, XXX.XX DEG
# ALTITUDE XXXX.X NAUT MI
# 44 APOGEE 3COMP XXXX.X NAUT MI NO LOAD, DEC ONLY
# PERIGEE XXXX.X NAUT MI
# 44 APOGEE, 3COMP XXXX.X NAUT MI NO LOAD, DEC ONLY
# PERIGEE, XXXX.X NAUT MI
# TFF XXBXX MIN/SEC
# 45 MARKS (VHF - OPTICS) 3COMP +XXBXX NO LOAD, DEC ONLY
# TFI OF NEXT BURN XXBXX MIN/SEC
@ -365,67 +360,67 @@
# 47 THIS VEHICLE WEIGHT 2COMP XXXXX. LBS DEC ONLY
# OTHER VEHICLE WEIGHT XXXXX. LBS
# 48 PITCH TRIM 2COMP XXX.XX DEG DEC ONLY
# YAW TRIM XXX.XX DEG
# YAW TRIM, XXX.XX DEG
# 49 DELTA R 3COMP XXXX.X NAUT MI DEC ONLY
# DELTA V XXXX.X FT/SEC
# VHF OR OPTICS CODE XXXXX.
# 50 SPLASH ERROR 3COMP XXXX.X NAUT MI NO LOAD, DEC ONLY
# PERIGEE XXXX.X NAUT MI
# 50 SPLASH ERROR, 3COMP XXXX.X NAUT MI NO LOAD, DEC ONLY
# PERIGEE, XXXX.X NAUT MI
# TFF XXBXX MIN/SEC
# 51 S-BAND ANTENNA ANGLES PITCH 2COMP XXX.XX DEG DEC ONLY
# YAW XXX.XX DEG
# 51 S-BAND ANTENNA ANGLES PITCH 2COMP XXX.XX DEG DEC ONLY
# YAW XXX.XX DEG
# 52 CENTRAL ANGLE OF ACTIVE VEHICLE 1COMP XXX.XX DEG
# 53 RANGE 3COMP XXX.XX NAUT MI DEC ONLY
# RANGE RATE XXXX.X FT/SEC
# 53 RANGE, 3COMP XXX.XX NAUT MI DEC ONLY
# RANGE RATE, XXXX.X FT/SEC
# PHI XXX.X DEG
# 54 RANGE 3COMP XXX.XX NAUT MI DEC ONLY
# RANGE RATE XXXX.X FT/SEC
# 54 RANGE, 3COMP XXX.XX NAUT MI DEC ONLY
# RANGE RATE, XXXX.X FT/SEC
# THETA XXX.XX DEG
# 55 PERIGEE CODE 3COMP XXXXX. DEC ONLY
# ELEVATION ANGLE XXX.XX DEG
# CENTRAL ANGLE OF PASSIVE VEHICLE XXX.XX DEG
# 56 REENTRY ANGLE 2COMP XXX.XX DEG DEC ONLY
# 56 REENTRY ANGLE, 2COMP XXX.XX DEG DEC ONLY
# DELTA V XXXXX. FT/SEC
# 57 DELTA R 1COMP XXXX.X NAUT MI DEC ONLY
# 58 PERIGEE ALT (POST TPI) 3COMP XXXX.X NAUT MI DEC ONLY
# DELTA V TPI XXXX.X FT/SEC
# DELTA V TPF XXXX.X FT/SEC
# 59 DELTA VELOCITY LOS 3COMP XXXX.X FT/SEC FOR EACH DEC ONLY
# 60 GMAX 3COMP XXX.XX G DEC ONLY
# 59 DELTA VELOCITY LOS 3COMP XXXX.X FT/SEC FOR EA. DEC ONLY
# 60 GMAX, 3COMP XXX.XX G DEC ONLY
# Page 12
# VPRED XXXXX. FT/SEC
# VPRED, XXXXX. FT/SEC
# GAMMA EI XXX.XX DEG
# 61 IMPACT LATITUDE 3COMP XXX.XX DEG DEC ONLY
# IMPACT LONGITUDE XXX.XX DEG
# 61 IMPACT LATITUDE, 3COMP XXX.XX DEG DEC ONLY
# IMPACT LONGITUDE, XXX.XX DEG
# HEADS UP/DOWN +/- 00001
# 62 INERTIAL VEL MAG (VI) 3COMP XXXXX. FT/SEC DEC ONLY
# ALT RATE CHANGE (HDOT) XXXXX. FT/SEC
# 62 INERTIAL VEL MAG (VI), 3COMP XXXXX. FT/SEC DEC ONLY
# ALT RATE CHANGE (HDOT), XXXXX. FT/SEC
# ALT ABOVE PAD RADIUS (H) XXXX.X NAUT MI
# 63 RANGE 297,431 TO SPLASH (RTGO) 3COMP XXXX.X NAUT MI NO LOAD, DEC ONLY
# PREDICTED INERT VEL (VIO) XXXXX. FT/SEC
# TIME FROM 297,431 (TFE) XXBXX MIN/SEC
# 64 DRAG ACCELERATION 3COMP XXX.XX G DEC ONLY
# INERTIAL VELOCITY (VI) XXXXX. FT/SEC
# 63 RANGE 297,431 TO SPLASH (RTGO), 3COMP XXXX.X NAUT MI NO LOAD, DEC ONLY
# PREDICTED INERT VEL (VIO), XXXXX. FT/SEC
# TIME FROM 297,431 (TFE), XXBXX MIN/SEC
# 64 DRAG ACCELERATION, 3COMP XXX.XX G DEC ONLY
# INERTIAL VELOCITY (VI), XXXXX. FT/SEC
# RANGE TO SPLASH XXXX.X NAUT MI
# 65 SAMPLED AGC TIME 3COMP 00XXX. HRS DEC ONLY
# (FETCHED IN INTERRUPT) 000XX. MIN
# (FETCHED IN INTERRUPT) 000XX. MIN MUST LOAD 3 COMPS
# 0XX.XX SEC
# 66 COMMAND BANK ANGLE (BETA) 3COMP XXX.XX DEG DEC ONLY
# CROSS RANGE ERROR XXXX.X NAUT MI
# 66 COMMAND BANK ANGLE (BETA), 3COMP XXX.XX DEG DEC ONLY
# CROSS RANGE ERROR, XXXX.X NAUT MI
# DOWN RANGE ERROR XXXX.X NAUT MI
# 67 RANGE TO TARGET 3COMP XXXX.X NAUT MI DEC ONLY
# PRESENT LATITUDE XXX.XX DEG
# 67 RANGE TO TARGET, 3COMP XXXX.X NAUT MI DEC ONLY
# PRESENT LATITUDE, XXX.XX DEG
# PRESENT LONGITUDE XXX.XX DEG
# 68 COMMAND BANK ANGLE (BETA) 3COMP XXX.XX DEG DEC ONLY
# INERTIAL VELOCITY (VI) XXXXX. FT/SEC
# ALT RATE CHANGE (RDOT) XXXXX. FT/SEC
# 69 BETA 3COMP XXX.XX DEG
# DL XXX.XX G
# VL XXXXX. FT/SEC
# 70 STAR CODE 3COMP OCTAL ONLY
# LANDMARK DATA OCTAL ONLY
# 68 COMMAND BANK ANGLE (BETA), 3COMP XXX.XX DEG DEC ONLY
# INERTIAL VELOCITY (VI), XXXXX. FT/SEC
# ALT RATE CHANGE (RDOT) XXXXX. FT/SEC
# 69 BETA 3COMP XXX.XX DEG
# DL XXX.XX G
# VL XXXXX. FT/SEC
# 70 STAR CODE, 3COMP OCTAL ONLY
# LANDMARK DATA, OCTAL ONLY
# HORIZON DATA OCTAL ONLY
# 71 STAR CODE 3COMP OCTAL ONLY
# LANDMARK DATA OCTAL ONLY
@ -456,18 +451,18 @@
# 84 DELTA V (OTHER VEHICLE) 3COMP XXXX.X FT/SEC FOR EACH DEC ONLY
# 85 VG (BODY) 3COMP XXXX.X FT/SEC FOR EACH DEC ONLY
# 86 DELTA V (LV) 3COMP XXXXX. FT/SEC FOR EACH DEC ONLY
# 87 MARK DATA SHAFT 2COMP XXX.XX DEG
# 87 MARK DATA SHAFT, 2COMP XXX.XX DEG
# TRUNION XX.XXX DEG
# 88 HALF UNIT SUN OR PLANET VECTOR 3COMP .XXXXX FOR EACH DEC ONLY
# 89 LANDMARK LATITUDE 3COMP XX.XXX DEG DEC ONLY
# LONGITUDE/2 XX.XXX DEG
# 89 LANDMARK LATITUDE, 3COMP XX.XXX DEG DEC ONLY
# LONGITUDE/2, XX.XXX DEG
# ALTITUDE XXX.XX NAUT MI
# 90 Y 3COMP XXX.XX NM DEC ONLY
# Y DOT XXXX.X FPS
# PSI XXX.XX DEG
# 91 OCDU ANGLES SHAFT 2COMP XXX.XX DEG
# 91 OCDU ANGLES SHAFT, 2COMP XXX.XX DEG
# TRUNION XX.XXX DEG
# 92 NEW OPTICS ANGLES SHAFT 2COMP XXX.XX DEG
# 92 NEW OPTICS ANGLES SHAFT, 2COMP XXX.XX DEG
# TRUNON XX.XXX DEG
# 93 DELTA GYRO ANGLES 3COMP XX.XXX DEG FOR EACH
# 94 NEW OPTICS ANGLES SHAFT 2COMP XXX.XX DEG
@ -478,18 +473,18 @@
# 98 SYSTEM TEST RESULTS AND INPUTS 3COMP XXXXX.
# .XXXXX
# XXXXX.
# 99 RMS IN POSITION 3COMP XXX.XX NAUT MI DEC ONLY
# 99 RMS IN POSITION 3COMP XXXXX.FT DEC ONLY
# RMS IN VELOCITY XXXX.X FT/SEC
# RMS OPTION XXXXX.
# Page 14
# REGISTERS AND SCALING FOR NORMAL NOUNS
# REGISTERS AND SCALING FOR NORMAL NOUNS
#
# NOUN REGISTER SCALE TYPE
# NOUN REGISTER SCALE TYPE
#
# 00 NOT IN USE
# 01 SPECIFY ADDRESS H
# 01 SPECIFY ADDRESS B
# 02 SPECIFY ADDRESS C
# 03 SPECIFY ADDRESS D
# 04 SPARE
@ -591,8 +586,8 @@
# 60 1 GMAX T
# 2 VPRED P
# 3 GAMMAEI H
# 61 1 LAT (SPL) H
# 2 LNG (SPL) H
# 61 1 LAT(SPL) H
# 2 LNG(SPL) H
# 3 HEADSUP C
# 62 1 VMAGI P
# 2 HDOT P
@ -705,7 +700,7 @@
# NOUN SCALES AND FORMATS
#
# -SCALE TYPE- PRECISION
# -SCALE TYPE- PRECISION
# UNITS DECIMAL FORMAT -- AGC FORMAT
# ------------ -------------- -- ----------
#
@ -723,7 +718,7 @@
# -D- 15
# CDU DEGREES XXX.XX DEGREES SP BIT 1 = 360/2 DEGREES
# (MAX 359.99) (USES 15 BITS FOR MAGNI-
# TUDE AND 2'S COMP.)
# TUDE AND 2-S COMP.)
#
# -E- 14
# ELEVATION DEGREES XX.XXX DEGREES SP BIT 1 = 90/2 DEGREES
@ -734,23 +729,23 @@
# (MAX 179.99)
#
# -G-
# DP DEGREES (90) XX.XXX DEGREES DP BIT 1 OF LOW REGISTER =
# DP DEGREES(90) XX.XXX DEGREES DP BIT 1 OF LOW REGISTER =
# 28
# 360/2 DEGREES
#
# -H-
# DP DEGREES (360) XXX.XX DEGREES DP BIT 1 OF LOW REGISTER =
# (MAX 359.99) 28
# 360/2 DEGREES
# 28
# (MAX 359.99) 360/2 DEGREES
#
# -J- 15
# Y OPTICS DEGREES XX.XXX DEGREES SP BIT 1 = 90/2 DEGREES
# (BIAS OF 19.775 (USES 15 BITS FOR MAGNI-
# DEGREES ADDED FOR TUDE AND S'S COMP.)
# DEGREES ADDED FOR TUDE AND 2-S COMP.)
# DISPLAY, SUBTRACTED
# FOR LOAD.)
# NOTE: NEGATIVE NUM-
# BERS CANNOT BE
# NOTE: NEGATIVE NUM-
# BERS CANNOT BE
# LOADED.
#
# -K-
@ -761,11 +756,11 @@
# 000XX. MIN -2
# 0XX.XX SEC 10 SEC
# (DECIMAL ONLY.
# MAX MIN COMP = 59
# MAX SEC COMP = 59.99
# MAX CAPACITY = 745 HRS
# 39 MINS
# 14.55 SECS.
# MAX MIN COMP=59
# MAX SEC COMP=59.99
# MAX CAPACITY=745 HRS
# 39 MINS
# 14.55 SECS.
# WHEN LOADING, ALL 3
# COMPONENTS MUST BE
# SUPPLIED.)
@ -774,11 +769,11 @@
# TIME (MIN/SEC) XXBXX MIN/SEC DP BIT 1 OF LOW REGISTER =
# (B IS A BLANK -2
# POSITION, DECIMAL 10 SEC
# ONLY, DISPLAY OR
# MONITOR ONLY. CANNOT
# ONLY, DISPLAY OR
# MONITOR ONLY. CANNOT
# BE LOADED.
# MAX MIN COMP = 59
# MAX SEC COMP = 59
# MAX MIN COMP=59
# MAX SEC COMP=59
# VALUES GREATER THAN
# 59 MIN 59 SEC
# ARE DISPLAYED AS
@ -789,7 +784,7 @@
# (MAX 163.83)
#
# -N-
# TIME (SEC) DP XXX.XX SEC DP BIT 1 OF LOW REGISTER =
# TIME(SEC) DP XXX.XX SEC DP BIT 1 OF LOW REGISTER =
# -2
# 10 SEC
#
@ -800,7 +795,7 @@
#
# -Q-
# POSITION 4 XXXX.XX NAUTICAL MILES DP BIT 1 OF LOW REGISTER =
# 2 METERS.
# 2 METERS
#
# -S-
# VELOCITY 3 XXXX.X FT/SEC DP BIT 1 OF HIGH REGISTER =
@ -836,27 +831,27 @@
# -LL-
# POSITION6 XXXX.X NAUT MI DP BIT 1 OF LOW REG =
# -28
# (6,373,338)(2(PI))x2
# (6,373,338)(2(PI))X2
# -----------------------
# 1852
# NAUT MI.
# 1852
# NAUT. MI.
#
# -MM-
# DRAG ACCELERATION XXX.XX G DP BIT 1 OF LOW REGISTER =
# MAX (024.99) -28
# 25x2 G
# 25X2 G
#
# -PP-
# 2 INTEGERS +XXBYY DP BIT 1 OF HIGH REGISTER =
# (B IS A BLANK 1 UNIT OF XX
# (B IS A BLANK 1 UNIT OF XX
# POSITION. DECIMAL BIT 1 OF LOW REGISTER =
# ONLY, DISPLAY, OR 1 UNIT OF YY
# MONITOR ONLY. CANNOT (EACH REGISTER MUST
# BE LOADED.) LESS THAN 100.)
# (MAX 99B99)
# ONLY, DISPLAY, OR 1 UNIT OF YY
# MONITOR ONLY. CANNOT (EACH REGISTER MUST
# BE LOADED.) CONTAIN A POSITIVE INTEGER
# (MAX 99B99) LESS THAN 100)
#
# -UU-
# VELOCITY/2VS XXXXX. FEET/SEC DP FRACTIONAL PART OF
# VELOCITY/2VS XXXXX. FEET/SEC DP FRACTIONAL PART OF
# (MAX 51532.) 2VS FEET/SEC
# (VS = 25766.1973)
@ -865,15 +860,15 @@
# -VV-
# POSITION8 XXXX.X NAUT MI DP BIT 1 OF LOW REGISTER =
# -28
# 4 x 6,373,338 x 2
# 4 X 6,373,338 X 2
# --------------------
# 1852
# 1852
# NAUT MI.
#
# -XX-
# POSITION 9 XXX.XX NAUT MI DP BIT 1 OF LOW REGISTER =
# (MAX 283.09) -9
# 2 METERS.
# POSITION 9 XXXXX. FEET DP BIT 1 OF LOW REGISTER =
# -9
# 2 METERS
#
# -YY-
# VELOCITY 4 XXXX.X FEET/SEC DP FRACTIONAL PART OF
@ -884,114 +879,111 @@
# -14
# 2 UNITS
# THAT'S ALL ON THE NOUNS.
# THAT-S ALL ON THE NOUNS.
# Page 23
# ALARM CODES FOR 504
# REPORT DEFICIENCIES TO JOHN SUTHERLAND: MIT 617-864-6900 X1458
# REPORT DEFICIENCIES TO JOHN SUTHERLAND @ MIT 617-864-6900 X1458
# *9 *18 *60 *25 COLUMN
# *9 *18 *60 *25 COLUMN
#
# CODE * TYPE SET BY ALARM ROUTINE
# CODE * TYPE SET BY ALARM ROUTINE
#
# 00110 NO MARK SINCE LAST MARK REJECT SXTMARK ALARM
# 00112 MARK NOT BEING ACCEPTED SXTMARK ALARM
# 00113 NO NBITS SXTMARK ALARM
# 00114 MARK MADE BUT NOT DESIRED SXTMARK ALARM
# 00115 OPTICS TORQUE REQUEST WITH SWITCH NOT AT EXT VERB OPTICS CDU ALARM
# CGC
# 00116 OPTICS SWITCH ALTERED BEFORE 15 SEC ZERO T4RUPT ALARM
# TIME ELAPSED.
# 00117 OPTICS TORQUE REQUEST WITH OPTICS NOT EXT VERB OPTICS CDU ALARM
# AVAILABLE (OPTIND=-0)
# 00120 OPTICS TORQUE REQUEST WITH OPTICS T4RUPT ALARM
# NOT ZEROED.
# 00121 CDUS NO GOOD AT TIME OF MARK SXTMARK ALARM
# 00122 MARKING NOT CALLED FOR SXTMARK ALARM
# 00124 P17 TPI SEARCH - NO SAFE PERICTR HERE. TPI SEARCH ALARM
# 00205 BAD PIPA READING SERVICER ALARM
# 00206 ZERO ENCODE NOT ALLOWED WITH COARSE ALIGN IMU MODE SWITCHING ALARM
# + GIMBAL LOCK.
# 00207 ISS TURNON REQUEST NOT PRESENT FOR 90 SEC T4RUPT ALARM
# 00210 IMU NOT OPERATING IMU MODE SWITCH, ALARM, VARALARM
# IMU-2, R02, P51
# 00211 COARSE ALIGN ERROR - DRIVE > 2 DEGREES IMU MODE SWITCH ALARM
# 00212 PIPA FAIL BUT PIPA IS NOT BEING USED IMU MODE SWITCH, T4RUPT ALARM
# 00213 IMU NOT OPERATING WITH TURN-ON REQUEST T4RUPT ALARM
# 00214 PROGRAM USING IMU WHEN TURNED OFF T4RUPT ALARM
# 00215 PREFERRED ORIENTATION NOT SPECIFIED P52,P54 ALARM
# 00217 BAD RETURN FROM STALL ROUTINES CURTAINS ALARM2
# 00220 IMU NOT ALIGNED - NO REFSMMAT R02,P51 VARALARM
# 00401 DESIRED GIMBAL ANGLES YIELD GIMBAL LOCK IMF ALIGN, IMU-2 ALARM
# 00404 TARGET OUT OF VIEW - TRUN ANGLE > 90 DEG R52 PRIOLARM
# 00405 TWO STARS NOT AVAILABLE P52,P54 ALARM
# 00406 REND NAVIGATION NOT OPERATING P21,R23 ALARM
# 00407 AUTO OPTICS REQUEST TRUN ANGLE > 50 DEG. R52 ALARM
# 00421 W-MATRIX OVERFLOW INTEGRV ALARM
# 00430 * INTEG. ABORT DUE TO SUBSURFACE S. V. ALL CALLS TO INTEG POODOO
# 00600 IMAGINARY ROOTS ON FIRST ITERATION P32, P72 VARALARM
# 00601 PERIGEE ALTITUDE LT PMIN1 P32,P72 VARALARM
# 00602 PERIGEE ALTITUDE LT PMIN2 P32,P72 VARALARM
# 00603 CSI TO CDH TIME LT PMIN22 P32,P72,P33,P73 VARALARM
# 00604 CDH TO TPI TIME LT PMIN23 P32,P72 VARALARM
# 00605 NUMBER OF ITERATIONS EXCEEDS LOOP MAXIMUM P32,P72,P37 VARALARM
# 00606 DV EXCEEDS MAXIMUM P32,P72 VARALARM
# 00607 * NO SOLN FROM TIME-THETA OR TIME-RADIUS TIMETHET,TIMERAD POODOO
# 00110 NO MARK SINCE LAST MARK REJECT SXTMARK ALARM
# 00112 MARK NOT BEING ACCEPTED SXTMARK ALARM
# 00113 NO INBITS SXTMARK ALARM
# 00114 MARK MADE BUT NOT DESIRED SXTMARK ALARM
# 00115 OPTICS TORQUE REQUESTWITH SWITCH NOT AT EXT VERB OPTICS CDU ALARM
# CGC
# 00116 OPTICS SWITCH ALTERED BEFORE 15 SEC ZERO T4RUPT ALARM
# TIME ELAPSED.
# 00117 OPTICS TORQUE REQUEST WITH OPTICS NOT EXT VERB OPTICS CDU ALARM
# AVAILABLE (OPTIND=-0)
# 00120 OPTICS TORQUE REQUEST WITH OPTICS T4RUPT ALARM
# NOT ZEROED
# 00121 CDUS NO GOOD AT TIME OF MARK SXTMARK ALARM
# 00122 MARKING NOT CALLED FOR SXTMARK ALARM
# 00124 P17 TPI SEARCH - NO SAFE PERICTR HERE. TPI SEARCH ALARM
# 00205 BAD PIPA READING SERVICER ALARM
# 00206 ZERO ENCODE NOT ALLOWED WITH COARSE ALIGN IMU MODE SWITCHING ALARM
# + GIMBAL LOCK
# 00207 ISS TURNON REQUEST NOT PRESENT FOR 90 SEC T4RUPT ALARM
# 00210 IMU NOT OPERATING IMU MODE SWITCH, IMU-2, R02, P51 ALARM,VARALARM
# 00211 COARSE ALIGN ERROR - DRIVE > 2 DEGREES IMU MODE SWITCH ALARM
# 00212 PIPA FAIL BUT PIPA IS NOT BEING USED IMU MODE SWITCH,T4RUPT ALARM
# 00213 IMU NOT OPERATING WITH TURN-ON REQUEST T4RUPT ALARM
# 00214 PROGRAM USING IMU WHEN TURNED OFF T4RUPT ALARM
# 00215 PREFERRED ORIENTATION NOT SPECIFIED P52,P54 ALARM
# 00217 BAD RETURN FROM STALL ROUTINES. CURTAINS ALARM2
# 00220 IMU NOT ALIGNED - NO REFSMMAT R02,P51 VARALARM
# 00401 DESIRED GIMBAL ANGLES YIELD GIMBAL LOCK IMF ALIGN, IMU-2 ALARM
# 00404 TARGET OUT OF VIEW - TRUN ANGLE > 90 DEG R52 PRIOLARM
# 00405 TWO STARS NOT AVAILABLE P52,P54 ALARM
# 00406 REND NAVIGATION NOT OPERATING P21,R23 ALARM
# 00407 AUTO OPTICS REQUEST TRUN ANGLE > 50 DEG. R52 ALARM
# 00421 W-MATRIX OVERFLOW INTEGRV ALARM
# 00430 * INTEG. ABORT DUE TO SUBSURFACE S. V. ALL CALLS TO INTEG POODOO
# 00600 IMAGINARY ROOTS ON FIRST ITERATION P32, P72 VARALARM
# 00601 PERIGEE ALTITUDE LT PMIN1 P32,P72, VARALARM
# 00602 PERIGEE ALTITUDE LT PMIN2 P32,P72, VARALARM
# 00603 CSI TO CDH TIME LT PMIN22 P32,P72,P33,P73 VARALARM
# 00604 CDH TO TPI TIME LT PMIN23 P32,P72 VARALARM
# 00605 NUMBER OF ITERATIONS EXCEEDS LOOP MAXIMUM P32,P72,P37 VARALARM
# 00606 DV EXCEEDS MAXIMUM P32,P72 VARALARM
# 00607 * NO SOLN FROM TIME-THETA OR TIME-RADIUS TIMETHET,TIMERAD POODOO
# Page 24
# 00610 * LAMBDA LESS THAN UNITY P37 POODOO
# 00611 NO TIG FOR GIVEN ELEV ANGLE P34,P74 VARALARM
# 00612 STATE VECTOR IN WRONG SPHERE OF INFLUENCE P37 VARALARM
# 00613 REENTRY ANGLE OUT OF LIMITS P37 VARALARM
# 00777 PIPA FAIL CAUSED ISS WARNING. T4RUPT VARALARM
# 01102 CMC SELF TEST ERROR ALARM2
# 01103 * UNUSED CCS BRANCH EXECUTED ABORT ALARM2
# 01104 * DELAY ROUTINE BUSY EXEC BAILOUT
# 01105 DOWNLINK TOO FAST T4RUPT ALARM
# 01106 UPLINK TOO FAST T4RUPT ALARM
# 01107 PHASE TABLE FAILURE. ASSUME RESATRT ALARM
# 00610 * LAMBDA LESS THAN UNITY P37 POODOO
# 00611 NO TIG FOR GIVEN ELEV ANGLE P34,P74 VARALARM
# 00612 STATE VECTOR IN WRONG SPHERE OF INFLUENCE P37 VARALARM
# 00613 REENTRY ANGLE OUT OF LIMITS P37 VARALARM
# 00777 PIPA FAIL CAUSED ISS WARNING. T4RUPT VARALARM
# 01102 CMC SELF TEST ERROR ALARM2
# 01103 * UNUSED CCS BRANCH EXECUTED ABORT ALARM2
# 01104 * DELAY ROUTINE BUSY EXEC BAILOUT
# 01105 DOWNLINK TOO FAST T4RUPT ALARM
# 01106 UPLINK TOO FAST T4RUPT ALARM
# 01107 PHASE TABLE FAILURE. ASSUME RESATRT ALARM
# ERASABLE MEMORY IS DESTROYED
# 01201 * EXECUTIVE OVERFLOW - NO VAC AREAS EXEC BAILOUT
# 01202 * EXECUTIVE OVERFLOW - NO CORE SETS EXEC BAILOUT
# 01203 * WAITLIST OVERFLOW - TOO MANY TASKS WAITLIST BAILOUT
# 01204 * NEGATIVE OR ZERO WAITLIST CALL WAITLIST POODOO
# 01206 * SECOND JOB ATTEMPTS TO GO TO SLEEP PINBALL P00DOO
# VIA KEYBOARD AND DISPLAY PROGRAM
# 01207 * NO VAC AREA FOR MARKS SXTMARK BAILOUT
# 01210 * TWO PROGRAMS USING DEVICE AT SAME TIME IMU MODE SWITCH P00DOO
# 01211 * ILLEGAL INTERRUPT OF EXTENDED VERB SXTMARK BAILOUT
# 01301 ARCSIN-ARCCOS ARGUMENT TOO LARGE INTERPRETER ALARM
# 01302 * SQRT CALLED WITH NEGATIVE ARGUMENT. ABORT. INTERPRETER P00DOO
# 01407 VG INCREASING S40.8 ALARM
# 01426 IMU UNSATISFACTORY P61,P62 ALARM
# 01427 IMU REVERSED P61,P62 ALARM
# 01501 * KEYBOARD AND DISPLAY ALARM DURING PINBALL P00DOO
# INTERNAL USE (NVSUB). ABORT.
# 01502 * ILLEGAL FLASHING DISPLAY GOPLAY P00DOO
# 01520 V37 REQUEST NOT PERMITTED AT THIS TIME V37 ALARM
# 01521 * P01 ILLEGALLY SELECTED P01, P07 POODOO
# 01600 OVERFLOW IN DRIFT TEST OPT PRE ALIGN CALIB ALARM
# 01601 * BAD IMU TORQUE - ABORT. OPT PRE ALIGN CALIB ALARM
# 01602 BAD OPTICS DURING VERIFICATION OPTALGN CALIB (CSM) ALARM
# 01703 INSUF. TIME FOR INTEG., TIG WAS SLIPPED R41 ALARM
# 03777 ICDU FAIL CAUSED THE ISS WARNING T4RUPT VARALARM
# 04777 ICDU, PIPA FAILS CAUSED THE ISS WARNING T4RUPT VARALARM
# 07777 IMU FAIL CAUSED THE ISS WARNING T4RUPT VARALARM
# 10777 IMU, PIPA FAILS CAUSED THE ISS WARNING T4RUPT VARALARM
# 13777 IMU, ICDU FAILS CAUSED THE ISS WARNING T4RUPT VARALARM
# 14777 IMU, ICDU, PIPA FAILS CAUSED THE ISS WARNING T4RUPT VARALARM
#
# * INDICATES ABORT TYPE. ALL OTHERS ARE NON-ABORTIVE
# 01201 * EXECUTIVE OVERFLOW-NO VAC AREAS EXEC BAILOUT
# 01202 * EXECUTIVE OVERFLOW-NO CORE SETS EXEC BAILOUT
# 01203 * WAITLIST OVERFLOW-TOO MANY TASKS WAITLIST BAILOUT
# 01204 * NEGATIVE OR ZERO WAITLIST CALL WAITLIST POODOO
# 01206 * SECOND JOB ATTEMPTS TO GO TO SLEEP PINBALL P00DOO
# VIA KEYBOARD AND DISPLAY PROGRAM
# 01207 * NO VAC AREA FOR MARKS SXTMARK BAILOUT
# 01210 * TWO PROGRAMS USING DEVICE AT SAME TIME IMU MODE SWITCH P00DOO
# 01211 * ILLEGAL INTERRUPT OF EXTENDED VERB SXTMARK BAILOUT
# 01301 ARCSIN-ARCCOS ARGUMENT TOO LARGE INTERPRETER ALARM
# 01302 * SQRT CALLED WITH NEGATIVE ARGUMENT.ABORT INTERPRETER P00DOO
# 01407 VG INCREASING S40.8 ALARM
# 01426 IMU UNSATISFACTORY P61, P62 ALARM
# 01427 IMU REVERSED P61, P62 ALARM
# 01501 * KEYBOARD AND DISPLAY ALARM DURING PINBALL P00DOO
# INTERNAL USE (NVSUB). ABORT.
# 01502 * ILLEGAL FLASHING DISPLAY GOPLAY P00DOO
# 01520 V37 REQUEST NOT PERMITTED AT THIS TIME V37 ALARM
# 01521 * P01 ILLEGALLY SELECTED P01, P07 POODOO
# 01600 OVERFLOW IN DRIFT TEST OPT PRE ALIGN CALIB ALARM
# 01601 BAD IMU TORQUE OPT PRE ALIGN CALIB ALARM
# 01602 BAD OPTICS DURING VERIFICATION OPTALGN CALIB (CSM) ALARM
# 01703 INSUF. TIME FOR INTEG., TIG WAS SLIPPED R41 ALARM
# 03777 ICDU FAIL CAUSED THE ISS WARNING T4RUPT VARALARM
# 04777 ICDU , PIPA FAILS CAUSED THE ISS WARNING T4RUPT VARALARM
# 07777 IMU FAIL CAUSED THE ISS WARNING T4RUPT VARALARM
# 10777 IMU , PIPA FAILS CAUSED THE ISS WARNING T4RUPT VARALARM
# 13777 IMU , ICDU FAILS CAUSED THE ISS WARNING T4RUPT VARALARM
# 14777 IMU,ICDU,PIPA FAILS CAUSED THE ISSWNING T4RUPT VARALARM
# * INDICATES ABORT TYPE.ALL OTHERS ARE NON-ABORTIVE
# Page 25
# CHECKLIST CODES FOR 504
# CHECKLIST CODES FOR 504
# PLEASE REPORT ANY DEFICIENCIES IN THIS LIST TO JOHN SUTHERLAND.
# PLEASE REPORT ANY DEFICIENCIES IN THIS LIST TO JOHN SUTHERLAND
# *9 *17 *26 COLUMN
#
@ -1006,24 +998,23 @@
# 00203 SWITCH TO CMC-AUTO
# 00204 PERFORM SPS GIMBAL TRIM
# 00403 SWITCH OPTICS TO MANUAL OR ZERO
#
# SWITCH DENOTES CHANGE OF POSITION OF A CONSOLE SWITCH
# PERFORM DENOTES START OF END OF A TASK
# KEY IN DENOTES KEY IN OF DATA THRU THE DSKY
# SWITCH DENOTES CHANGE POSITION OF A CONSOLE SWITCH
# PERFORM DENOTES START OF END OF A TASK
# KEY IN DENOTES KEY IN OF DATA THRU THE DSKY
# Page 26
# OPTION CODES FOR 504
# OPTION CODES FOR 504
# PLEASE REPORT ANY DEFICIENCIES IN THIS LIST TO JOHN SUTHERLAND.
# PLEASE REPORT ANY DEFICIENCIES IN THIS LIST TO JOHN SUTHERLAND
# THE SPECIFIED OPTION CODES WILL BE FLASHED IN COMPONENT R1 IN
# THE SPECIFIED OPTION CODES WILL BE FLASHED IN COMPONENT R1 IN
# CONJUNCTION WITH VERB04NOUN06 TO REQUEST THE ASTRONAUT TO LOAD INTO
# COMPONENT R2 THE OPTION HE DESIRES.
# *9 *17 #52 #11 #25 COLUMNN
#
# OPTION
# OPTION
# CODE PURPOSE INPUT FOR COMPONENT 2 PROGRAM(S) APPLICABILITY
#
# 00001 SPECIFY IMU ORIENTATION 1=PREF 2=NOM 3=REFSMMAT P50'S ALL
@ -1033,9 +1024,8 @@
# 00005 SPECIFY SOR PHASE 1=FIRST 2=SECOND P38 COLOSSUS + LUMINARY
# 00006 SPECIFY RR COARSE ALIGN OPTION 1=LOCKON 2=CONTINUOUS DESIG. V41N72 SUNDANCE + LUMINARY
# 00007 SPECIFY PROPULSION SYSTEM 1=SPS 2=RCS P37 COLOSSUS
# 00010 SPECIFY ALIGNMENT MODE 0=ANY TIME 1=REFSMMAT + G P57 LUMINARY
# 00010 SPECIFY ALIGNMENT MODE 0=ANY TIME 1=REFSMMAT +G P57 LUMINARY
# 2=TWO BODIES 3=ONE BODY + G
# 00011 SPEC. SEPARATION MONITOR PHASE 1=DELTAV 2=STATE VECTOR UPDATE P46 LUMINARY
# 00012 SPECIFY CSM ORBIT OPTION 1=NO ORBIT CHANGE 2=CHANGE P22 LUMINARY
# ORBIT TO PASS OVER LM