mirror of
https://github.com/chrislgarry/Apollo-11.git
synced 2025-02-19 10:20:28 +00:00
Proof Page #0155-0165
This commit is contained in:
Isha
parent
f68c091f80
commit
83163204e1
1 changed files with 36 additions and 36 deletions
|
|
@ -53,8 +53,8 @@ NORMT4 CAF SEVEN
|
|||
|
||||
COUNT* $$/T4RPT
|
||||
100MRUPT = OCT37766 # (DEC 16374)
|
||||
# RELTAB IS A PACKED TABLE. RELAYWORD CODE IN UPPER 4 BITS, RELAY CODE
|
||||
# IN LOWER 5 BITS.
|
||||
# RELTAB IS A PACKED TABLE. RELAYWORD CODE IN UPPER 4 BITS, RELAY CODE
|
||||
# IN LOWER 5 BITS.
|
||||
|
||||
RELTAB OCT 04025
|
||||
OCT 10003
|
||||
|
|
@ -70,7 +70,7 @@ RELTAB OCT 04025
|
|||
RELTAB11 OCT 60000
|
||||
|
||||
# Page 156
|
||||
# SWITCHED-BANK PORTION
|
||||
# SWITCHED-BANK PORTION
|
||||
|
||||
BANK 12
|
||||
SETLOC T4RUP
|
||||
|
|
@ -90,7 +90,7 @@ CDRVE CCS DSPTAB +11D
|
|||
TC HANG20
|
||||
|
||||
# Page 157
|
||||
# DSPOUT PROGRAM, PUTS OUT DISPLAYS
|
||||
# DSPOUT PROGRAM. PUTS OUT DISPLAYS.
|
||||
|
||||
DSPOUTSB TS NOUT
|
||||
CS ZERO
|
||||
|
|
@ -109,7 +109,7 @@ TABLNTH OCT 12 # DEC 10, LENGTH OF DSPTAB
|
|||
TS NOUT
|
||||
TC Q
|
||||
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
|
||||
|
||||
DSPLAY AD ONE
|
||||
|
|
@ -141,13 +141,13 @@ HANG20 CS 14,11,9
|
|||
SETTIME4 TS TIME4
|
||||
|
||||
# Page 158
|
||||
# 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.
|
||||
# IF PREV ON AND NOW ON -- BYPASS.
|
||||
# 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 OFF -- BYPASS.
|
||||
# THE LOGIC EMPLOYED REQUIRES ONLY 9 MCT (APPROX. 108 MICROSECONDS) OF COMPUTER TIME WHEN NO CHANGES OCCUR.
|
||||
# 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.
|
||||
# IF PREV ON AND NOW ON -- BYPASS
|
||||
# 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 OFF -- BYPASS
|
||||
# THE LOGIC EMPLOYED REQUIRES ONLY 9 MCT (APPROX. 108 MICROSECONDS) OF COMPUTER TIME WHEN NO CHANGES OCCUR.
|
||||
|
||||
PROCEEDE CA IMODES33 # MONITOR FOR PROCEED BUTTON
|
||||
EXTEND
|
||||
|
|
@ -162,15 +162,15 @@ PROCEEDE CA IMODES33 # MONITOR FOR PROCEED BUTTON
|
|||
TS IMODES33 # UPDATE IMODES33
|
||||
MASK BIT14
|
||||
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
|
||||
EBANK= DSPCOUNT
|
||||
2CADR PROCKEY
|
||||
|
||||
# Page 159
|
||||
# JUMP TO APPROPRIATE ONCE-PER SECOND (0.96 SEC ACTUALLY) ACTIVITY
|
||||
# JUMP TO APPROPRIATE ONCE-PER SECOND (0.96 SEC ACTUALLY) ACTIVITY
|
||||
|
||||
T4JUMP INDEX RUPTREG1
|
||||
TCF +1
|
||||
|
|
@ -187,12 +187,12 @@ T4JUMP INDEX RUPTREG1
|
|||
20MRUPT = OCT37776 # (DEC 16382)
|
||||
|
||||
# Page 160
|
||||
# ADDITIONAL ROUTINES FOR 20MS. KEYBOARD ACTIVITY
|
||||
# ADDITIONAL ROUTINES FOR 20MS. KEYBOARD ACTIVITY
|
||||
|
||||
NODSPOUT EXTEND
|
||||
WRITE OUT0
|
||||
|
||||
CAF 120MRUPT #SET FOR NEXT CCRIVE
|
||||
CAF 120MRUPT #SET FOR NEXT CDRIVE
|
||||
TCF SETTIME4
|
||||
|
||||
QUIKDSP CAF BIT14
|
||||
|
|
@ -251,17 +251,17 @@ QUIKOFF EXTEND
|
|||
# IMU CAGE 11 IMUCAGE
|
||||
# IMU OPERATE 9 IMUOP
|
||||
|
||||
# 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.
|
||||
# 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.
|
||||
|
||||
# CALLING SEQUENCE: T4RUPT EVERY 480 MILLISECONDS.
|
||||
|
||||
# JOBS OR TASKS INITIATED: NONE.
|
||||
|
||||
# SUBROUTINES CALLED: TLIM, TURNON, SETISSW, IMUCAGE, IMUOP.
|
||||
# SUBROUTINES CALLED: TLIM, ITURNON, SETISSW, IMUCAGE. IMUOP.
|
||||
|
||||
# ERASABELE INITIALIZATION:
|
||||
# FRESH START OR RESTART WITH NO GROUPS ACTIVE: C((MODES30) = OCT 37411).
|
||||
# ERASABLE INITIALIZATION:
|
||||
# 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.
|
||||
# THIS LEAVES IMU FAIL BITS INTACT.
|
||||
|
||||
|
|
@ -276,7 +276,7 @@ IMUMON CA IMODES30 # SEE IF THERE HAS BEEN A CHANGE IN THE
|
|||
RXOR CHAN30
|
||||
MASK 30RDMSK
|
||||
EXTEND
|
||||
BZF TNONTEST # NO CHANGE IN STATUS
|
||||
BZF TNONTEST # NO CHANGE IN STATUS.
|
||||
|
||||
TS RUPTREG1 # SAVE BITS WHICH HAVE CHANGED.
|
||||
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
|
||||
# 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
|
||||
# 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
|
||||
# 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
|
||||
# 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
|
||||
# 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
|
||||
# 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 +
|
||||
# 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
|
||||
# THE ISS TURN-ON REQUEST IS PRESENT TEH 90 SECOD WAIT IS REPEATED. OTHERWISE NO ACTION OCURS UNLESS A PROGRAM
|
||||
# WAS WAITING FOR THE INITIALIZATION IN WHIC CASE TH PROGRAM IS GIVEN AN IMUSTALL ERROR RETURN. IF THE DELAY
|
||||
# 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 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
|
||||
# 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
|
||||
# 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.
|
||||
|
||||
# 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
|
||||
# STARTED.
|
||||
|
||||
|
|
@ -372,7 +372,7 @@ TNONTEST CS IMODES30 # AFTER PROCESSING ALL CHANGES, SEE IF IT
|
|||
ADS IMODES30 # TIME.
|
||||
TCF C33TEST
|
||||
|
||||
# PROCESS IMU TURN-ON REQUESTS AFTER WAITING 1 SAMPLE FOR ALL SIGNALS TO ARRIVE.
|
||||
# PROCESS IMU TURN-ON REQUESTS AFTER WAITING 1 SAMPLE FOR ALL SIGNALS TO ARRIVE.
|
||||
|
||||
PROCTNON CS BITS7&8
|
||||
MASK IMODES30
|
||||
|
|
@ -386,7 +386,7 @@ PROCTNON CS BITS7&8
|
|||
CCS A
|
||||
TCF +3
|
||||
|
||||
TC ALARM # ALARM IF NOT
|
||||
TC ALARM # ALARM IF NOT.
|
||||
OCT 213
|
||||
|
||||
+3 TC CAGESUB
|
||||
|
|
@ -413,7 +413,7 @@ ENDTNON CS BIT2 # RESET TURN-ON REQUEST FAIL BIT.
|
|||
EXTEND
|
||||
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.
|
||||
CCS A
|
||||
TCF TASKOVER
|
||||
|
|
@ -436,7 +436,7 @@ UNZ2 TC ZEROICDU
|
|||
CAF BIT11 # WAIT 10 SECS FOR CTRS TO FIND GIMBALS
|
||||
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.
|
||||
TS IMODES30
|
||||
|
||||
|
|
@ -458,7 +458,7 @@ ISSUP CS OCT54 # REMOVE CAGING, IMU FAIL INHIBIT BIT, AND
|
|||
EXTEND
|
||||
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
|
||||
TC WAITLIST # ANOTHER 4 SECS.
|
||||
EBANK= CDUIND
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue