SevenOfAces/Apollo-Guidance-Computer
1
1
Fork 0
mirror of https://github.com/chrislgarry/Apollo-11.git synced 2025-02-18 18:00:29 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Proof read pages 155-171

Browse source
This commit is contained in:
dimitraz 2021-10-26 22:25:42 +01:00
parent c3ba960480
commit e5725d36cd
1 changed files with 29 additions and 28 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

53
Luminary099/T4RUPT_PROGRAM.agc
View file

@ -103,13 +103,13 @@ DSPSCAN INDEX DSPCNT
CCS DSPCNT # IF DSPTAB ENTRY +, SKIP CCS DSPCNT # IF DSPTAB ENTRY +, SKIP
TCF DSPSCAN -2 # IF DSPCNT +, TRY AGAIN TCF DSPSCAN -2 # IF DSPCNT +, TRY AGAIN
TCF DSPLAY # IF DSPTAB ENTRY -, DISPLAY TCF DSPLAY # IF DSPTAB ENTRY -, DISPLAY
TABLNTH OCT 12 # DEC 10, LENGTH OF DSPTAB TABLNTH OCT 12 # DEC 10 LENGTH OF DSPTAB
CCS DSRUPTEM # IF DSRUPTEM=+0, 2ND PASS THRU DSPTAB CCS DSRUPTEM # IF DSRUPTEM=+0, 2ND PASS THRU DSPTAB
120MRUPT DEC 16372 # (DSPCNT = 0). +0 INTO NOUT. 120MRUPT DEC 16372 # (DSPCNT = 0). +0 INTO NOUT.
TS NOUT TS NOUT
TC Q TC Q
TS DSRUPTEM # IF DSRUPTEM=-0, 1ST PASS THRU DSPTAB TS DSRUPTEM # IF DSRUPTEM=-0, 1ST PASS THRU DSPTAB
CAF TABLNTH # (DSPCNT=0).+0 INTO DSRUPTEM. PASS AGAIN CAF TABLNTH # (DSPCNT=0). +0 INTO DSRUPTEM. PASS AGAIN
TCF DSPSCAN -1 TCF DSPSCAN -1
DSPLAY AD ONE DSPLAY AD ONE
@ -170,7 +170,7 @@ PROCEEDE CA IMODES33 # MONITOR FOR PROCEED BUTTON
2CADR PROCKEY 2CADR PROCKEY
# Page 159 # Page 159
# JUMP TO APPROPRIATE ONCE-PER SECOND (0.96 SEC ACTUALLY) ACTIVITY # JUMP TO APPROPRIATE ONCE-PER SECOND (.96 SEC ACTUALLY) ACTIVITY
T4JUMP INDEX RUPTREG1 T4JUMP INDEX RUPTREG1
TCF +1 TCF +1
@ -192,7 +192,7 @@ T4JUMP INDEX RUPTREG1
NODSPOUT EXTEND NODSPOUT EXTEND
WRITE OUT0 WRITE OUT0
CAF 120MRUPT #SET FOR NEXT CCRIVE CAF 120MRUPT # SET FOR NEXT CDRIVE
TCF SETTIME4 TCF SETTIME4
QUIKDSP CAF BIT14 QUIKDSP CAF BIT14
@ -240,7 +240,7 @@ QUIKOFF EXTEND
# PROGRAM NAME: IMUMON # PROGRAM NAME: IMUMON
# FUNCTIONAL DESCRIPTION: THIS PROGRAM IS ENTERED EVERY 480 MS. IT DETECTS CHANGES OF THE IMU STATUS BITS IN # FUNCTIONAL DESCRIPTION: THIS PROGRAM IS ENTERED EVERY 480 MS. IT DETECTS CHANGES OF THE IMU STATUS BITS IN
# CHANNEL 30 AND CALLS THE APPROPRIATE SUBROUTINES. THE BITS PROCESSED AND THEIR RELEVANT SUROUTINES ARE: # CHANNEL 30 AND CALLS THE APPROPRIATE SUBROUTINES. THE BITS PROCESSED AND THEIR RELEVANT SUBROUTINES ARE:
# FUNCTION BIT SUBROUTINE CALLED # FUNCTION BIT SUBROUTINE CALLED
# -------- --- ----------------- # -------- --- -----------------
@ -258,10 +258,10 @@ QUIKOFF EXTEND
# JOBS OR TASKS INITIATED: NONE. # JOBS OR TASKS INITIATED: NONE.
# SUBROUTINES CALLED: TLIM, TURNON, SETISSW, IMUCAGE, IMUOP. # SUBROUTINES CALLED: TLIM, ITURNON SETISSW, IMUCAGE, IMUOP.
# ERASABELE INITIALIZATION: # ERASABELE INITIALIZATION:
# FRESH START OR RESTART WITH NO GROUPS ACTIVE: C((MODES30) = OCT 37411). # FRESH START OR RESTART WITH NO GROUPS ACTIVE: C(IMODES30) = OCT 37411.
# RESTART WITH ACTIVE GROUPS: C(IMODES30) = (B(IMODES30)AND(OCT 00035)) PLUS OCT 37400. # RESTART WITH ACTIVE GROUPS: C(IMODES30) = (B(IMODES30)AND(OCT 00035)) PLUS OCT 37400.
# THIS LEAVES IMU FAIL BITS INTACT. # THIS LEAVES IMU FAIL BITS INTACT.
@ -276,7 +276,7 @@ IMUMON CA IMODES30 # SEE IF THERE HAS BEEN A CHANGE IN THE
RXOR CHAN30 RXOR CHAN30
MASK 30RDMSK MASK 30RDMSK
EXTEND EXTEND
BZF TNONTEST # NO CHANGE IN STATUS BZF TNONTEST # NO CHANGE IN STATUS.
TS RUPTREG1 # SAVE BITS WHICH HAVE CHANGED. TS RUPTREG1 # SAVE BITS WHICH HAVE CHANGED.
LXCH IMODES30 # UPDATE IMODES30. LXCH IMODES30 # UPDATE IMODES30.
@ -319,25 +319,25 @@ NXTIFAIL CCS RUPTREG2 # PROCESS ANY ADDITIONAL CHANGES.
# SO THAT AT THE END OF THE PROCESS THE GIMBAL LOCK MONITOR WILL FUNCTION PROPERLY. # SO THAT AT THE END OF THE PROCESS THE GIMBAL LOCK MONITOR WILL FUNCTION PROPERLY.
# 2) ICDU INITIALIZATION: IN THIS CASE THE COMPUTER WAS PROBABLY TURNED ON WITH THE ISS IN OPERATE OR # 2) ICDU INITIALIZATION: IN THIS CASE THE COMPUTER WAS PROBABLY TURNED ON WITH THE ISS IN OPERATE OR
# A FRESH START WAS DONE WIT THE ISS IN OPERATE. IN THIS CASE ONLY ISS OPERATE IS ON. THE ICDU'S ARE # A FRESH START WAS DONE WITH THE ISS IN OPERATE. IN THIS CASE ONLY ISS OPERATE IS ON. THE ICDU'S ARE
# ZEROED SO THE GIMBAL LOCK MONITOR WILL FUNCTION. AN EXCEPTION IS IF THE ISS IS IN GIMBAL LOCK AFTER # ZEROED SO THE GIMBAL LOCK MONITOR WILL FUNCTION. AN EXCEPTION IS IF THE ISS IS IN GIMBAL LOCK AFTER
# A RESTART, THE ICDU'S WILL NOT BE ZEROED. # A RESTART, THE ICDU'S WILL NOT BE ZEROED.
# 3) RESTART WITH RESTARTABLE PROGRAM USING THE IMU: IN THIS CASE, NO INITIALIZATION TAKES PLACE SINCE # 3) RESTART WITH RESTARTABLE PROGRAM USING THE IMU: IN THIS CASE, NO INITIALIZATION TAKES PLACE SINCE
# IT IS ASSUMED THT THE USING PROGRAM DID THE INITIALIZATION AND THEREFORE T4RUPT SHOULD NOT INTERFERE. # IT IS ASSUMED THAT THE USING PROGRAM DID THE INITIALIZATION AND THEREFORE T4RUPT SHOULD NOT INTERFERE.
# IMODES30 BIT 7 IS SET = 1 BY THE FIRST BIT (CHANNEL 30 BIT 14 OR 9) WHICH ARRIVES. FOLLOWING THIS, TNONTEST IS # IMODES30 BIT 7 IS SET = 1 BY THE FIRST BIT (CHANNEL 30 BIT 14 OR 9) WHICH ARRIVES. FOLLOWING THIS, TNONTEST IS
# ENTERED, FINDS BIT 7 = 1 BUT BIT 8 = 0, SO IT SETS BIT 8 = 1 AND EXITS. THE NEXT TIME IT FINDS BIT 8 = 1 AND # ENTERED, FINDS BIT 7 = 1 BUT BIT 8 = 0, SO IT SETS BIT 8 = 1 AND EXITS. THE NEXT TIME IT FINDS BIT 8 = 1 AND
# PROCEEDS, SETTING BITS 8 AND 7 = 0. AT PROCTNON, IF ISS TURN-ON REQUEST IS PRESENT, THE ISS IS CAGED (ZERO + # PROCEEDS, SETTING BITS 8 AND 7 = 0. AT PROCTNON, IF ISS TURN-ON REQUEST IS PRESENT, THE ISS IS CAGED (ZERO +
# COARSE). IF ISS OPERATE IS NOT PRESENT PROGRAM ALARM 00213 IS ISSUED. AT THE END OF A 90 SECOND CAGE, BIT 2 # COARSE). IF ISS OPERATE IS NOT PRESENT PROGRAM ALARM 00213 IS ISSUED. AT THE END OF A 90 SECOND CAGE, BIT 2
# OF IMODES30 IS TESTED. IF IT IS = 1, ISS TURN-ON WAS NOT PRESENT FOR THE ENTIRE 90 SECONDS. IN THAT CASE, IF # OF IMODES30 IS TESTED. IF IT IS = 1, ISS TURN-ON WAS NOT PRESENT FOR THE ENTIRE 90 SECONDS. IN THAT CASE, IF
# THE ISS TURN-ON REQUEST IS PRESENT TEH 90 SECOD WAIT IS REPEATED. OTHERWISE NO ACTION OCURS UNLESS A PROGRAM # THE ISS TURN-ON REQUEST IS PRESENT THE 90 SECOND WAIT IS REPEATED, OTHERWISE NO ACTION OCCURS UNLESS A PROGRAM
# WAS WAITING FOR THE INITIALIZATION IN WHIC CASE TH PROGRAM IS GIVEN AN IMUSTALL ERROR RETURN. IF THE DELAY # WAS WAITING FOR THE INITIALIZATION IN WHICH CASE THE PROGRAM IS GIVEN AN IMUSTALL ERROR RETURN. IF THE DELAY
# WENT PROPERLY, THE ISS DELAY OUTBIT IS SENT AND THE ICDU'S ZEROED. A TASK IS INITIATED TO REMOVE THE PIPA FAIL # WENT PROPERLY, THE ISS DELAY OUTBIT IS SENT AND THE ICDU'S ZEROED. A TASK IS INITIATED TO REMOVE THE PIPA FAIL
# INHIBIT BIT IN 10.24 SECONDS. IF A MISSION PROGRAM WAS WAITING IT IS INFORMED VIA ENDIMU. # INHIBIT BIT IN 10.24 SECONDS. IF A MISSION PROGRAM WAS WAITING IT IS INFORMED VIA ENDIMU.
# AT PROCTNON, IF ONLY ISS OPERATE IS PRESENT (OPONLY), THE CDU'S ARE ZEROED UNLESS THE PLATFORM IS IN COARSE # AT PROCTNON, IF ONLY ISS OPERATE IS PRESENT (OPONLY), THE CDU'S ARE ZEROED UNLESS THE PLATFORM IS IN COARSE
# ALIGN (= GIMBAL LOCK HERE) OR A MISSIN PROGRAM IS USING THE IMU (INUSEFLG = 1). # ALIGN (= GIMBAL LOCK HERE) OR A MISSION PROGRAM IS USING THE IMU (IMUSEFLG = 1).
# CALLING SEQUENCE: T4RUPT EVERY 480 MILLISECONDS AFTER IMUMON. # CALLING SEQUENCE: T4RUPT EVERY 480 MILLISECONDS AFTER IMUMON.
@ -386,7 +386,7 @@ PROCTNON CS BITS7&8
CCS A CCS A
TCF +3 TCF +3
TC ALARM # ALARM IF NOT TC ALARM # ALARM IF NOT.
OCT 213 OCT 213
+3 TC CAGESUB +3 TC CAGESUB
@ -407,7 +407,7 @@ ENDTNON CS BIT2 # RESET TURN-ON REQUEST FAIL BIT.
EXTEND EXTEND
BZF ENDTNON2 BZF ENDTNON2
CAF BIT14 # IF IT WAS ON AND TURN-ON REQUEST NOW. CAF BIT14 # IF IT WAS ON AND TURN-ON REQUEST NOW
# Page 165 # Page 165
MASK IMODES30 # PRESENT, RE-ENTER 90 SEC DELAY IN WL. MASK IMODES30 # PRESENT, RE-ENTER 90 SEC DELAY IN WL.
EXTEND EXTEND
@ -436,7 +436,7 @@ UNZ2 TC ZEROICDU
CAF BIT11 # WAIT 10 SECS FOR CTRS TO FIND GIMBALS CAF BIT11 # WAIT 10 SECS FOR CTRS TO FIND GIMBALS
TC VARDELAY TC VARDELAY
ISSUP CS OCT54 # REMOVE CAGING, IMU FAIL INHIBIT BIT, AND ISSUP CS OCT54 # REMOVE CAGING, IMU FAIL INHIBIT, AND
MASK IMODES30 # ICDUFAIL INHIBIT FLAGS. MASK IMODES30 # ICDUFAIL INHIBIT FLAGS.
TS IMODES30 TS IMODES30
@ -468,26 +468,26 @@ ISSUP CS OCT54 # REMOVE CAGING, IMU FAIL INHIBIT BIT, AND
OPONLY CAF BIT4 # IF OPERATE ON ONLY, AND WE ARE IN COARSE OPONLY CAF BIT4 # IF OPERATE ON ONLY, AND WE ARE IN COARSE
EXTEND # ALIGN, DON'T ZERO THE CDUS BECAUSE WE EXTEND # ALIGN, DON'T ZERO THE CDUS BECAUSE WE
RAND CHAN12 # MIGHT BE IN GIMBAL LOCK. RAND CHAN12 # MIGHT BE IN GIMBAL LOCK
CCS A CCS A
TCF C33TEST TCF C33TEST
CAF IMUSEBIT # OTHERWISE, ZERO THE COUNTERS. CAF IMUSEBIT # OTHERWISE, ZERO THE COUNTERS.
MASK FLAGWRD0 # UNLESS SOMEONE IS USING TH IMU. MASK FLAGWRD0 # UNLESS SOMEONE IS USING THE IMU.
CCS A CCS A
TCF C33TEST TCF C33TEST
TC CAGESUB2 # SET TURNON FLAGS. TC CAGESUB2 # SET TURNON FLAGS.
ISSZERO TC IBNKCALL # TURN OFF NO ATT LAMP. ISSZERO TC IBNKCALL # TURN OFF NO ATT LAMP
CADR NOATTOFF # IMU CAGE OFF ENTRY. CADR NOATTOFF # IMU CAGE OFF ENTRY
CAF BIT5 # ISS CDU ZERO CAF BIT5 # ISS CDU ZERO
EXTEND EXTEND
WOR CHAN12 WOR CHAN12
TC ZEROICDU TC ZEROICDU
CAF BIT6 # WAIT 300 MS. FOR AGS TO RECEIVE SIGNAL. CAF BIT6 # WAIT 300 MS FOR AGS TO RECEIVE SIGNAL.
TC WAITLIST TC WAITLIST
EBANK= M11 EBANK= M11
2CADR UNZ2 2CADR UNZ2
@ -499,7 +499,7 @@ ISSZERO TC IBNKCALL # TURN OFF NO ATT LAMP.
# #
# FUNCTIONAL DESCRIPTION: THIS PROGRAM MONITORS THREE FLIP-FLOP INBITS OF CHANNEL 33 AND CALLS THE APPROPRIATE # FUNCTIONAL DESCRIPTION: THIS PROGRAM MONITORS THREE FLIP-FLOP INBITS OF CHANNEL 33 AND CALLS THE APPROPRIATE
# SUBROUTINE TO PROCESS A CHANGE. IT IS ANALOGOUS TO IMUMON, WHICH MONITORS CHANNEL 30, EXCEPT THAT IT READS # SUBROUTINE TO PROCESS A CHANGE. IT IS ANALOGOUS TO IMUMON, WHICH MONITORS CHANNEL 30, EXCEPT THAT IT READS
# CHANNEL 33 WITH A WAND INSTRUCTION BECAUSE A `WRITE' PULSE IS REQUIRED TO RESET THE FLIP-FLOPS. THE BITS # CHANNEL 33 WITH A WAND INSTRUCTION BECAUSE A 'WRITE' PULSE IS REQUIRED TO RESET THE FLIP-FLOPS. THE BITS
# PROCESSED AND THE SUBROUTINES CALLED ARE: # PROCESSED AND THE SUBROUTINES CALLED ARE:
# BIT FUNCTION SUBROUTINE # BIT FUNCTION SUBROUTINE
# --- -------- ---------- # --- -------- ----------
@ -559,6 +559,7 @@ NXTIBT INCR RUPTREG1
MASK IMODES33 MASK IMODES33
INDEX RUPTREG1 INDEX RUPTREG1
TC C33JMP TC C33JMP
NXTFL33 CCS RUPTREG2 # PROCESS POSSIBLE ADDITIONAL CHANGES. NXTFL33 CCS RUPTREG2 # PROCESS POSSIBLE ADDITIONAL CHANGES.
TCF NXTIBT -1 TCF NXTIBT -1
@ -598,7 +599,7 @@ GLOCKCHK AD -70DEGS
EXTEND EXTEND
BZMF SETGLOCK -1 # NO LOCK. BZMF SETGLOCK -1 # NO LOCK.
AD -15DEGS # SEE IF ABS(MGA) GREATER THAN 85 DEGREES AD -15DEGS # SEE IF ABS(MGA) GREATER THAN 85 DEGREES.
EXTEND EXTEND
BZMF NOGIMRUN BZMF NOGIMRUN
@ -611,7 +612,7 @@ GLOCKCHK AD -70DEGS
TC IBNKCALL TC IBNKCALL
CADR SETCOARS CADR SETCOARS
CAF SIX # ENABLE ISS ERROR COUNTERS IN 60 MS. CAF SIX # ENABLE ISS ERROR COUNTERS IN 60 MS
TC WAITLIST TC WAITLIST
# Page 170 # Page 170
EBANK= CDUIND EBANK= CDUIND
@ -659,13 +660,13 @@ GLAMPTST TC LAMPTEST # TURN OFF UNLESS LAMP TEST IN PROGRESS.
# #
# CALLING SEQUENCE: CALLED BY IMUMON ON A CHANGE OF BIT 15 OF CHANNEL 30. # CALLING SEQUENCE: CALLED BY IMUMON ON A CHANGE OF BIT 15 OF CHANNEL 30.
# #
# JOBS OR TASKS INITIATED: NON. # JOBS OR TASKS INITIATED: NONE.
# #
# SUBROUTINES CALLED: LAMPTEST. # SUBROUTINES CALLED: LAMPTEST.
# #
# ERASABLE INITIALIZATION: FRESH START AND RESTART TURN THE TEMP LAMP OFF. # ERASABLE INITIALIZATION: FRESH START AND RESTART TURN THE TEMP LAMP OFF.
# #
# ALARMS: TEMP LAMP TURNED ON WHEN THE IMU TEMP GOES OUT OF LIMITS. # ALARMS: TEMP LAMP TURNED ON WHEN IMU TEMP GOES OUT OF LIMITS.
# #
# EXIT: NXTIFAIL. # EXIT: NXTIFAIL.
# #