Transcription and Transposition Errors

This commit is contained in:
James Harris 2016-07-12 17:25:27 +01:00
parent 3f4cd123d8
commit 64ef3d932d
4 changed files with 436 additions and 460 deletions

View File

@ -23,83 +23,86 @@
# Notations on the hardcopy document read, in part: # Notations on the hardcopy document read, in part:
# #
# Assemble revision 055 of AGC program Comanche by NASA # 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 # This AGC program shall also be referred to as
# Colossus 2A # Colossus 2A
# Page 1394 # Page 1394
# PROGRAM DESCRIPTION DATE: 20 DECEMBER 1967 # PROGRAM DESCRIPTION DATE 20 DECEMBER 1967
# PROGRAM NAME -- SELF-CHECK LOG SECTION: AGC BLOCK TWO SELF-CHECK # PROGRAM NAME - SELF-CHECK LOG SECTION AGC BLOCK TWO SELF-CHECK
# MOD NO -- 1 ASSEMBLY SUBROUTINE UTILITYM REV 25 # MOD NO - 1 ASSEMBLY SUBROUTINE UTILITYM REV 25
# MOD BY -- GAUNTT # MOD BY - GAUNTT
#
# #
# FUNCTIONAL DESCRIPTION # 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 # WARNINGS
# USE OF E MEMORY RESERVED FOR SELF-CHECK (EVEN IN IDLE LOOP) AS TEMP STORAGE BY OTHER PROGRAMS IS DANGEROUS. # 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. # SMODE SET GREATER THAN OCT 10 PUTS COMPUTER INTO BACKUP IDLE LOOP.
#
# #
# CALLING SEQUENCE # CALLING SEQUENCE
# TO CALL SELF-CHECK KEY IN #
# V 21 N 27 E OPTION NUMBER E # TO CALL SELF-CHECK KEY IN
# TO CALL SHOW-BANKSUM KEY IN # V 21 N 27 E OPTION NUMBER E
# V 91 E DISPLAYS FIRST BANK # TO CALL SHOW-BANKSUM KEY IN
# V 33 E PROCEED, DISPLAYS NEXT BANK # V 91 E DISPLAYS FIRST BANK
# V 33 E PROCEED, DISPLAYS NEXT BANK
#
# #
# EXIT MODES, NORMAL AND ALARM # 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 # OUTPUT
# Page 1395 # Page 1395
# SELF-CHECK UPON DETECTING AN ERROR LOADS THE SELF-CHECK ALARM CONSTANT (01102) INTO THE FAILREG SET AND # 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 # 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, # 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 # 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). # 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 # ERASABLE INITIALIZATION REQUIRED
# ACCOMPLISHED BY FRESH START # ACCOMPLISHED BY FRESH START
# SMODE SET TO +0 # SMODE SET TO +0
# #
# DEBRIS # DEBRIS
# ALL EXITS FROM THE CHECK OF ERASABLE (ERASCHK) RESTORE ORIGINAL CONTENTS TO REGISTERS UNDER CHECK. # 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 # 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). # E MEMORY, IN WHICH CASE PROGRAM THEN DOES A FRESH START (DOFSTART).
BANK 25 BANK 25
SETLOC SELFCHEC SETLOC SELFCHEC
BANK BANK
COUNT 43/SELF COUNT 43/SELF
SBIT1 EQUALS BIT1 SBIT1 EQUALS BIT1
SBIT2 EQUALS BIT2 SBIT2 EQUALS BIT2
SBIT3 EQUALS BIT3 SBIT3 EQUALS BIT3
@ -150,7 +153,7 @@ S-ZERO EQUALS NEG0
EBANK= LST1 EBANK= LST1
ADRS1 ADRES SKEEP1 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 # IN SELFRET WHEN GOING FROM SELFCHK TO
# SHOWSUM AND PUT IN SKEEP1 WHEN GOING # SHOWSUM AND PUT IN SKEEP1 WHEN GOING
# FROM SHOWSUM TO SELF-CHECK. # FROM SHOWSUM TO SELF-CHECK.
@ -227,9 +230,7 @@ SELFCHK TC SMODECHK # ** CHARLEY, COME IN HERE
# Page 1398 # Page 1398
# SKEEP3 HOLDS LAST ADDRESS BEING CHECKED (HIGHEST ADDRESS). # SKEEP3 HOLDS LAST ADDRESS BEING CHECKED (HIGHEST ADDRESS).
# SKEEP2 CONTROLS CHECKING OF NON-SWITCHABLE ERASABLE MEMORY WITH BANK NUMBERS IN EB. # SKEEP2 CONTROLS CHECKING OF NON-SWITCHABLE ERASABLE MEMORY WITH BANK NUMBERS IN EB.
# # ERASCHK TAKES APPROXMATELY 7 SECONDS
# ERASCHK TAKES APPROXIMATELY 7 SECONDS.
ERASCHK CA S+1 ERASCHK CA S+1
TS SKEEP2 TS SKEEP2
0EBANK CA S+ZERO 0EBANK CA S+ZERO
@ -322,10 +323,8 @@ ELOOPFIN RELINT
TC E134567B # GO TO EBANKS 1,3,4,5,6, AND 7 TC E134567B # GO TO EBANKS 1,3,4,5,6, AND 7
CA ERASCON6 # END OF ERASCHK CA ERASCON6 # END OF ERASCHK
TS EBANK TS EBANK
# CNTRCHK PERFORMS A CS OF ALL REGISTERS FROM OCT. 60 THROUGH OCT. 10. # 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 # INCLUDED ARE ALL COUNTERS, T6-1, CYCLE AND SHIFT, AND ALL RUPT REGISTERS
CNTRCHK CA CNTRCON # 00050 CNTRCHK CA CNTRCON # 00050
CNTRLOOP TS SKEEP2 CNTRLOOP TS SKEEP2
AD SBIT4 # +10 OCTAL AD SBIT4 # +10 OCTAL
@ -336,7 +335,6 @@ CNTRLOOP TS SKEEP2
TC CNTRLOOP TC CNTRLOOP
# CYCLSHFT CHECKS THE CYCLE AND SHIFT REGISTERS # CYCLSHFT CHECKS THE CYCLE AND SHIFT REGISTERS
CYCLSHFT CA CONC+S1 # 25252 CYCLSHFT CA CONC+S1 # 25252
TS CYR # C(CYR) = 12525 TS CYR # C(CYR) = 12525
TS CYL # C(CYL) = 52524 TS CYL # C(CYL) = 52524
@ -357,7 +355,6 @@ CYCLSHFT CA CONC+S1 # 25252
INCR SCOUNT +1 INCR SCOUNT +1
TC SMODECHK TC SMODECHK
# SKEEP1 HOLDS SUM # SKEEP1 HOLDS SUM
# SKEEP2 HOLDS PRESENT CONTENTS OF ADDRESS IN ROPECHK AND SHOWSUM ROUTINES # SKEEP2 HOLDS PRESENT CONTENTS OF ADDRESS IN ROPECHK AND SHOWSUM ROUTINES
# SKEEP2 HOLDS BANK NUMBER IN LOW ORDER BITS DURING SHOWSUM DISPLAY # 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 # SKEEP4 HOLDS BANK NUMBER AND SUPER BANK NUMBER
# SKEEP5 COUNTS 2 SUCCESSIVE TC SELF WORDS # SKEEP5 COUNTS 2 SUCCESSIVE TC SELF WORDS
# SKEEP6 CONTROLS ROPECHK OR SHOWSUM OPTION # 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 # * ROPECHK CA S-ZERO # *
TS SKEEP6 # * -0 FOR ROPECHK TS SKEEP6 # * -0 FOR ROPECHK
@ -514,5 +511,3 @@ BNKCHK CS L # = - BANK NUMBER
EBANK= NEWJOB EBANK= NEWJOB
LSTBNKCH BBCON* # * CONSTANT, LAST BANK. LSTBNKCH BBCON* # * CONSTANT, LAST BANK.
SBANK= LOWSUPER SBANK= LOWSUPER

View File

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

View File

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

View File

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