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

Proof Page #0155-0165

Browse source
This commit is contained in:
Isha 2020-10-31 00:21:53 -04:00
parent f68c091f80
commit 83163204e1
1 changed files with 36 additions and 36 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

50
Luminary099/T4RUPT_PROGRAM.agc
View file

@ -90,7 +90,7 @@ CDRVE CCS DSPTAB +11D
TC HANG20 TC HANG20
# Page 157 # Page 157
# DSPOUT PROGRAM, PUTS OUT DISPLAYS # DSPOUT PROGRAM. PUTS OUT DISPLAYS.
DSPOUTSB TS NOUT DSPOUTSB TS NOUT
CS ZERO CS ZERO
@ -143,10 +143,10 @@ SETTIME4 TS TIME4
# Page 158 # Page 158
# THE STATUS OF THE PROCEED PUSHBUTTON IS MONITORED EVERY 120 MILLISECONDS VIA THE CHANNEL 32 BIT 14 INBIT. # THE STATUS OF THE PROCEED PUSHBUTTON IS MONITORED EVERY 120 MILLISECONDS VIA THE CHANNEL 32 BIT 14 INBIT.
# THE STATE OF THIS INBIT IS COMPARED WITH ITS STATE DURING THE PREVIOUS T4RUPT AND IS PROCESSED AS FOLLOWS. # THE STATE OF THIS INBIT IS COMPARED WITH ITS STATE DURING THE PREVIOUS T4RUPT AND IS PROCESSED AS FOLLOWS.
# IF PREV ON AND NOW ON -- BYPASS. # IF PREV ON AND NOW ON -- BYPASS
# IF PREV ON AND NOW OFF -- UPDATE IMODES33. # IF PREV ON AND NOW OFF -- UPDATE IMODES33
# IF PREV OFF AND NOW ON -- UPDATE IMODES33 AND PROCESS VIA PINBALL. # IF PREV OFF AND NOW ON -- UPDATE IMODES33 AND PROCESS VIA PINBALL
# IF PREV OFF AND NOW OFF -- BYPASS. # IF PREV OFF AND NOW OFF -- BYPASS
# THE LOGIC EMPLOYED REQUIRES ONLY 9 MCT (APPROX. 108 MICROSECONDS) OF COMPUTER TIME WHEN NO CHANGES OCCUR. # THE LOGIC EMPLOYED REQUIRES ONLY 9 MCT (APPROX. 108 MICROSECONDS) OF COMPUTER TIME WHEN NO CHANGES OCCUR.
PROCEEDE CA IMODES33 # MONITOR FOR PROCEED BUTTON PROCEEDE CA IMODES33 # MONITOR FOR PROCEED BUTTON
@ -162,9 +162,9 @@ PROCEEDE CA IMODES33 # MONITOR FOR PROCEED BUTTON
TS IMODES33 # UPDATE IMODES33 TS IMODES33 # UPDATE IMODES33
MASK BIT14 MASK BIT14
CCS A CCS A
TCF T4JUMP # WAS ON -- NOW OFF TCF T4JUMP # WAS ON - NOW OFF
CAF CHRPRIO # WAS OFF -- NOW ON CAF CHRPRIO # WAS OFF - NOW ON
TC NOVAC TC NOVAC
EBANK= DSPCOUNT EBANK= DSPCOUNT
2CADR PROCKEY 2CADR PROCKEY
@ -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
@ -252,16 +252,16 @@ QUIKOFF EXTEND
# IMU OPERATE 9 IMUOP # IMU OPERATE 9 IMUOP
# THE LAST SAMPLED STATE OF THESE BITS IS LEFT IN IMODES30. ALSO, EACH SUBROUTINE CALLED FINDS THE NEW # THE LAST SAMPLED STATE OF THESE BITS IS LEFT IN IMODES30. ALSO, EACH SUBROUTINE CALLED FINDS THE NEW
# VALUE OF THE BIT IN A, WITH Q SET TO THE PROPER RETURN LOCATION NXTIFAIL. # VALUE OF THE BIT IN A, WITH Q SET TO THE PROPER RETURN LOCATION, NXTIFAIL.
# CALLING SEQUENCE: T4RUPT EVERY 480 MILLISECONDS. # CALLING SEQUENCE: T4RUPT EVERY 480 MILLISECONDS.
# 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: # ERASABLE 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.
@ -314,34 +314,34 @@ NXTIFAIL CCS RUPTREG2 # PROCESS ANY ADDITIONAL CHANGES.
# AND ISS OPERATE (CHANNEL 30 BIT 9) REQUESTS ARE TREATED AS A PAIR AND PROCESSING TAKES PLACE .480 SECONDS # AND ISS OPERATE (CHANNEL 30 BIT 9) REQUESTS ARE TREATED AS A PAIR AND PROCESSING TAKES PLACE .480 SECONDS
# AFTER EITHER ONE APPEARS. THIS INITIALIZATION TAKES ON ONE OF THE FOLLOWING THREE FORMS: # AFTER EITHER ONE APPEARS. THIS INITIALIZATION TAKES ON ONE OF THE FOLLOWING THREE FORMS:
# 1) ISS TURN-ON: IN THIS SITUATION THE COMPUTER IS OPERATING WHEN THE ISS IS TURNED ON. NOMINALLY, # 1) ISS TURN-ON: IN THIS SITUATION THE COMPUTER IS OPERATING WHEN THE ISS IS TURNED ON. NOMINALLY.
# BOTH ISS TURN-ON AND ISS OPERATE APPEAR. THE PLATFORM IS CAGED FOR 90 SECONDS AND THE ICDU'S ZEROED # BOTH ISS TURN-ON AND ISS OPERATE APPEAR. THE PLATFORM IS CAGED FOR 90 SECONDS AND THE ICDU'S ZEROED
# 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 TEH 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.
# JOBS OR TASKS INITIATED: 1) ENDTNON, 90 SECONDS AFER CAGING STARTED. 2) ISSUP, 4 SECONDS AFTER CAGING DONE. # JOBS OR TASKS INITIATED: 1) ENDTNON, 90 SECONDS AFTER CAGING STARTED. 2) ISSUP, 4 SECONDS AFTER CAGING DONE.
# 3) PFAILOK, 10.24 SECONDS AFTER INITIALIZATION COMPLETED. 4) UNZ2, 320 MILLISECONDS AFTER ZEROING # 3) PFAILOK, 10.24 SECONDS AFTER INITIALIZATION COMPLETED. 4) UNZ2, 320 MILLISECONDS AFTER ZEROING
# STARTED. # STARTED.
@ -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
@ -413,7 +413,7 @@ ENDTNON CS BIT2 # RESET TURN-ON REQUEST FAIL BIT.
EXTEND EXTEND
BZF RETNON BZF RETNON
CS FLAGWRD0 # IF IT IS NOT ON NOW, SEE IF A PROG WAS CS FLAGWRDD # IF IT IS NOT ON NOW, SEE IF A PROG WAS
MASK IMUSEBIT # WAITING. MASK IMUSEBIT # WAITING.
CCS A CCS A
TCF TASKOVER TCF TASKOVER
@ -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
@ -458,7 +458,7 @@ ISSUP CS OCT54 # REMOVE CAGING, IMU FAIL INHIBIT BIT, AND
EXTEND EXTEND
WAND CHAN12 WAND CHAN12
CAF 4SECS # DON'T ENABLE PROG ALARM ON PIP FAIL FOR CAF 4SECS # DONT ENABLE PROG ALARM ON PIP FAIL FOR
# Page 166 # Page 166
TC WAITLIST # ANOTHER 4 SECS. TC WAITLIST # ANOTHER 4 SECS.
EBANK= CDUIND EBANK= CDUIND