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

Proof-read Comanche055\P40-P47 (pg. 0716-0736))

Browse source
This commit is contained in:
arda-guler 2021-11-17 16:57:03 +03:00
parent 4ed1904211
commit 149d275f8e
1 changed files with 93 additions and 124 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

217
Comanche055/P40-P47.agc
View file

@ -1494,15 +1494,15 @@ S40.2,3 VLOAD MXV
TSTRXUT TSTRXUT
VXV VCOMP VXV VCOMP
0 0
VSL1 PDVL # 2 RF/SC IN PDL 12D VSL1 PDVL # 2 RF/SC IN PDL 12D
XSCREF XSCREF
VXM VSL1 VXM VSL1
0 0
STOVL XSCREF # X OF PREF. IMU,X OF SC IN REF COOR. AT 2 STOVL XSCREF # X OF PREF IMU,X OF SC IN REF COOR. AT 2
YSCREF YSCREF
VXM VSL1 VXM VSL1
0 0
STOVL YSCREF # Y OF PREF. IMU,Y OF SC IN REF COOR. AT 2 STOVL YSCREF # Y OF PREF.IMU,Y OF SC IN REF COOR. AT 2
ZSCREF ZSCREF
VXM VSL1 VXM VSL1
0 0
@ -1547,49 +1547,32 @@ YBIAS 2DEC +.00263888889 # YAW MECH BIAS (+0.95 DEG, THRUST ON)
PBIAS 2DEC -.00597222222 # PITCH MECH BIAS (-2.15 DEG, THRUST ON) PBIAS 2DEC -.00597222222 # PITCH MECH BIAS (-2.15 DEG, THRUST ON)
# REFERENCE, TRW 68.6520.3.3-40 27 FEB, 1968 # REFERENCE, TRW 68.6520.3.3-40 27FEB,1968
# PROGRAM DESCRIPTION S41.1 DATE 8 DEC 66 # PROGRAM DESCRIPTION S41.1 DATE 8DEC66
# MOD NO 1 LOG SECTION P40-P47 # MOD NO 1 LOG SECTION P40-P47
# MOD BY ZELDIN # MOD BY ZELDIN
#
# FUNCTIONAL DESCRIPTION # FUNCTIONAL DESCRIPTION
#
# COMPUTE VELOCITY TO BE GAINED INITIALLY IN REF COORDS. # COMPUTE VELOCITY TO BE GAINED INITIALLY IN REF COORDS.
# TO CONTROL COORDS. # TO CONTROL COORDS.
#
# CALLING SEQUENCE # CALLING SEQUENCE
#
# L CALL # L CALL
# L+1 S41.1 # L+1 S41.1
#
# NORMAL EXIT MODE # NORMAL EXIT MODE
#
# AT L +2 OF CALLING SEQUENCE # AT L +2 OF CALLING SEQUENCE
#
# SUBROUTINES CALLED: # SUBROUTINES CALLED:
#
# CALCSMSC # CALCSMSC
# CDUTRIG # CDUTRIG
#
# ALARM OR ABORT MODES # ALARM OR ABORT MODES
#
# NONE # NONE
#
# ERASABLE INITIALIZATION REQUIRED # ERASABLE INITIALIZATION REQUIRED
# # VG IN REF. COORD. PDL L POINTER AT L+5 .S41.1 WILL RETURN WITH
# VG IN REF. COORD. PDL L POINTER AT L+5. S41.1 WILL RETURN WITH
# POINTER AT L (L MUST BE LESS THAN OR = TO 14D) # POINTER AT L (L MUST BE LESS THAN OR = TO 14D)
#
# OUTPUT # OUTPUT
# # MPAC CONTAINS VG IN CONTROL COORDS VECT. B7M/CS
# MPAC CONTAINS VG IN CONTROL COORDS VECT. B7 M/CS
#
# DEBRIS: # DEBRIS:
#
# QTEMP TEMP ERASABLE # QTEMP TEMP ERASABLE
# QPRET # QPRET
COUNT 22/S41.1 COUNT 22/S41.1
SETLOC P40S5 SETLOC P40S5
@ -1611,32 +1594,32 @@ S41.1 STQ CALL
TENBNK14 2DEC 10. B-4 TENBNK14 2DEC 10. B-4
# Page 719 # Page 719
# NAME S40.8 -- CROSS PRODUCT STEERING # NAME S40.8 - CROSS PRODUCT STEERING
# FUNCTION (1) UPDATES THE VELOCITY-TO-BE-GAINED VECTOR. # FUNCTION (1) UPDATES THE VELOCITY-TO-BE-GAINED VECTOR.
# (2) GENERATES ANGULAR RATE STEERING COMMANDS FOR AUTOPILOT. # (2) GENERATES ANGULAR RATE STEERING COMMANDS FOR AUTOPILOT.
# (3) ESTABLISHES ENGINE CUT-OFF SIGNALS AT APPROPRIATE TIMES. # (3) ESTABLISHES ENGINE CUT-OFF SIGNALS AT APPROPRIATE TIMES.
# (4) INITIATES THRUST-FAIL ROUTINE, R40 # (4) INITIATES THRUST-FAIL ROUTINE, R40
# CALLING SEQ CALL S40.6 # CALLING SEQ CALL S40.8
# INPUT VGPREV LAST VALUE OF THE VELOCITY-TO-BE-GAINED VECTOR # INPUT VGPREV - LAST VALUE OF THE VELOCITY-TO-BE-GAINED VECTOR
# PRIOR TO UPDATING IN METERS/CS AT +7. # PRIOR TO UPDATING IN METERS/CS AT +7.
# DELVREF CHANGE IN VEHICLE VELOCITY SINCE LAST MEASUREMENT # DELVREF - CHANGE IN VEHICLE VELOCITY SINCE LAST MEASUREMENT
# IN METERS/CS AT +7. # IN METERS/CS AT +7.
# BDT EFFECT OF RATE OF CHANGE OF REQUIRED VELOCITY AND # BDT - EFFECT OF RATE OF CHANGE OF REQUIRED VELOCITY AND
# GRAVITY DURING DT UPON VELOCITY-TO-BE-GAINED IN # GRAVITY DURING DT UPON VELOCITY-TO-BE-GAINED IN
# METERS/CS AT +7. # METERS/CS AT +7.
# CSTEER A SCALAR OF THE STEERING LAW, SC.AT B+1, USED FOR # CSTEER - A SCALAR OF THE STEERING LAW, SC.AT B+1, USED FOR
# SPS AIMPOINT STEERING MANEUVERS. # SPS AIMPOINT STEERING MANEUVERS
# IDLEFAIL A FLAG TO INHIBIT (IDLE) THE THRUST-FAIL ROUTINE. # IDLEFAIL - A FLAG TO INHIBIT (IDLE) THE THRUST-FAIL ROUTINE
# STEERSW A SWITCH TO PRECLUDE NEEDLESS CONDUCT OF STEERING. # STEERSW - A SWITCH TO PRECLUDE NEEDLESS CONDUCT OF STEERING
# REFSMMAT, DAPDATR1, PIPTIME # REFSMMAT, DAPDATR1, PIPTIME
# EREPFRAC, ETDECAY, KPRIMEDT FOR TVC. # EREPFRAC, ETDECAY, KPRIMEDT FOR TVC.
# OUTPUT TTOGO TIME REMAINING FOR ENGINE BURN IN CS AT +28. # OUTPUT TTOGO - TIME REMAINING FOR ENGINE BURN IN CS AT +28
# OMEGAC DP VECTOR RATE COMMAND, SC.AT 1/(2TVCDT) REVS/SEC. # OMEGAC - DP VECTOR RATE COMMAND, SC.AT 1/(2TVCDT) REVS/SEC
# VG, VGPREV, VGDISP, TGO, TIG, SCALED AS NOTED IN CODING # VG, VGPREV, VGDISP, TGO, TIG, SCALED AS NOTED IN CODING
# STEERSW, IMPULSW, NVWORD1 # STEERSW, IMPULSW, NVWORD1
# REPFRAC, CNTR, VCNTR, VCNTRTMP FOR TVC (R40 INTERFACING) # REPFRAC, CNTR, VCNTR, VCNTRTMP FOR TVC (R40 INTERFACING)
# DEBRIS OMEGAXC, +1 # DEBRIS OMEGAXC,+1
# SUBROUTINES USED: *SMNB*, ALARM # SUBROUTINES USED - *SMNB* , ALARM
SETLOC P40S1 SETLOC P40S1
BANK BANK
@ -1646,12 +1629,12 @@ TENBNK14 2DEC 10. B-4
S40.8 SETPD STQ S40.8 SETPD STQ
SPBIT1 00D SPBIT1 00D
QTEMP QTEMP
VLOAD BVSU # CONSTRUCT DELVG, SC.AT B+7 M/CS VLOAD BVSU # CONSTRUCT DELVG, SC.AT B+7 M/CS
DELVREF DELVREF
BDT BDT
VAD VAD
VGPREV VGPREV
STORE VG # VELOCITY-TO-BE-GAINED, SC.AT B+7 M/CS STORE VG # VELOCITY-TO-BE-GAINED, SC.AT B+7 M/CS
ABVAL ABVAL
STORE VGDISP # FOR DISPLAY PURPOSES STORE VGDISP # FOR DISPLAY PURPOSES
@ -1794,34 +1777,33 @@ LOTHRUST BON VLOAD # THRUST FAILURE (LO-OR-NO) INDICATED
QTEMP # RESTARTS OK QTEMP # RESTARTS OK
# Page 723 # Page 723
# NAME S40.9 -- VTOGAIN (AIMPOINT MANEUVERS ONLY) # NAME S40.9 - VTOGAIN (AIMPOINT MANEUVERS ONLY)
# FUNCTION (1) GENERATES REQUIRED VELOCITY AND VELOCITY-TO-BE-GAINED # FUNCTION (1) GENERATES REQUIRED VELOCITY AND VELOCITY-TO-BE-GAINED
# VECTORS FOR USE DURING AIMPOINT MANEUVERS. # VECTORS FOR USE DURING AIMPOINT MANEUVERS
# (2) UPDATES THE B VECTOR WHICH IS USED IN THE FINAL # (2) UPDATES THE B VECTOR WHICH IS USED IN THE FINAL
# CALCULATION OF EXTRAPOLATING THE VELOCITY-TO-BE-GAINED. # CALCULATION OF EXTRAPOLATING THE VELOCITY-TO-BE-GAINED
# CALLING SEQ VIA FINDVEC AS NEW JOB. # CALLING SEQ VIA FINDVEC AS NEW JOB.
# INPUT RNIT ACTIVE VEHICLE RADIUS VECTOR IN METERS AT +29. # INPUT RNIT - ACTIVE VEHICLE RADIUS VECTOR IN METERS AT +29.
# VNIT ACTIVE VEHICLE VELOCITY VECTOR IN METERS/CS AT +7. # VNIT - ACTIVE VEHICLE VELOCITY VECTOR IN METERS/CS AT +7.
# VRPREV LAST COMPUTED VELOCITY REQUIRED VECTOR IN # VRPREV - LAST COMPUTED VELOCITY REQUIRED VECTOR IN
# METERS/CS AT +7. # METERS/CS AT +7.
# NONTIG TIME OF IGN. USED IN TARGETTING ROUTINES B+28 # NONTIG - TIME OF IGN. USED IN TARGETTING ROUTINES%+28"
# DELLT4 TRANSFER TIME FROM PIPTIME TO TARGET B+28 # DELLT4 - TRANSFER TIME FROM PIPTIME TO TARGET%+28"
# TNIT TIME OF RNIT AND VNIT IN CS AT +28 # TNIT - TIME OF RNIT AND VNIT IN CS AT +28
# GDT/2 HALF OF VELOCITY GAINED IN DELTA T TIME DUE TO # GDT/2 - HALF OF VELOCITY GAINED IN DELTA T TIME DUE TO
# ACCELERATION OF GRAVITY IN METERS/CS AT +7. # ACCELERATION OF GRAVITY IN METERS/CS AT +7.
# DELVREF CHANGE IN VELOCITY DURING LAST 2 SEC IN # DELVREF - CHANGE IN VELOCITY DURING LAST 2 SEC IN
# METERS/CS AT +7. # METERS/CS AT +7.
# NORMSW SET=CENTRAL ANGLE BETWEEN RTARG AND RTIG IS BETWEEN # NORMSW SET=CENTRAL ANGLE BETWEEN RTARG AND RTIG IS BETWEEN
# 165 TO 195 DEGREES. # 165 TO 195 DEGREES
# RESET=CENTRAL ANGLE OUTSIDE CONE DESCRIBED ABOVE. # RESET=CENTRAL ANGLE OUTSIDE CONE DESCRIBED ABOVE.
# OUTPUT VGTEMP VELOCITY TO BE GAINED VECTOR IN METERS/CS AT +7. # OUTPUT VGTEMP - VELOCITY TO BE GAINED VECTOR IN METERS/CS AT +7.
# COGA INPUT OF INITIAL GUESS FOR LAMBERT FROM S40.1 # COGA - INPUT OF INITIAL GUESS FOR LAMBERT FROM S40.1
# OR PREVIOUS PASS THRU S40.9. # OR PREVIOUS PASS THRU S40.9.
# GOBL/2 OBLATENESS TERM IN AVG GRAV CALC: GOBL*RSQ/MU # GOBL/2 - OBLATENESS TERM IN AVG GRAV CALC: GOBL*RSQ/MU
# VRPREV/ VELOCITY REQUIRED VECTOR IN METERS/CS AT +7. # VRPREV - VELOCITY REQUIRED VECTOR IN METERS/CS AT +7.
# BDT B VECTOR IN METERS/CS AT +7. # BDT - B VECTOR IN METERS/CS AT +7.
# SUBROUTINES USED -- INITVEL # SUBROUTINES USED - INITVEL
SETLOC P40S1 SETLOC P40S1
BANK BANK
@ -1878,7 +1860,7 @@ FIRSTTME SLOAD DCOMP
34D 34D
VXSC VAD VXSC VAD
GOBL/2 GOBL/2
VGTEMP # NOTE: NO TEST IS MADE TO SUBTRACT GOBL VGTEMP # NOTE NO TEST IS MADE TO SUBTRACT GOBL
STORE VGTEMP # INSIDE 165-195 DEGREE CONE AREA. STORE VGTEMP # INSIDE 165-195 DEGREE CONE AREA.
MOONCASE EXIT MOONCASE EXIT
TC PHASCHNG TC PHASCHNG
@ -1892,7 +1874,7 @@ COPY40.9 TC INTPRET
STORE VRPREV STORE VRPREV
CLEAR EXIT CLEAR EXIT
FIRSTFLG FIRSTFLG
-2 CS ONE # REDO40.9 (RESTART) ENTRY TO END S40.9 -2 CS ONE # REDO40.9 (RESTART) ENTRY TO END S40.9
TS NBRCYCLS TS NBRCYCLS
ENDS40.9 TC PHASCHNG ENDS40.9 TC PHASCHNG
OCT 00001 OCT 00001
@ -1907,7 +1889,7 @@ REDO40.9 TC INTPRET # S40.9 RESTARTS COME HERE TO GRACEFULLY
STOVL NBRCYCLS # RATHER THAN LOSE TIME OF BRAND NEW STOVL NBRCYCLS # RATHER THAN LOSE TIME OF BRAND NEW
VGPREV # PASS -- QUICK OLD DATA BETTER THAN VGPREV # PASS -- QUICK OLD DATA BETTER THAN
STORE VGTEMP # NONE) NOW CAN GO THRU SETUP.9 STORE VGTEMP # NONE) NOW CAN GO THRU SETUP.9
EXIT # WITHOUT DISTURBING VGPREV. EXIT # WITHOUT DISTURBING VGPREV
TCF ENDS40.9 -2 # STORE 0,0 COVERED NBRCYCLS,P -- FIX UP S TCF ENDS40.9 -2 # STORE 0,0 COVERED NBRCYCLS,P -- FIX UP S
200CSHI 2DEC 200 B-12 200CSHI 2DEC 200 B-12
@ -1919,30 +1901,25 @@ EP4(45)L 2DEC .125
EP4(10)L 2DEC .027777777 EP4(10)L 2DEC .027777777
# Page 726 # Page 726
# NAME: S40.13 -- TIMEBURN # NAME: S40.13 - TIMEBURN
#
# FUNCTION (1) DETERMINE WHETHER A GIVEN COMBINATION OF VELOCITY-TO- # FUNCTION (1) DETERMINE WHETHER A GIVEN COMBINATION OF VELOCITY-TO-
# BE-GAINED AND ENGINE CHOICE RESULT IN A BURN TIME SUFFICIENT # BE-GAINED AND ENGINE CHOICE RESULT IN A BURN TIME SUFFICIENT
# TO ALLOW STEERING AT THE VEHICLE DURING THE BURN, AND # TO ALLOW STEERING AT THE VEHICLE DURING THE BURN, AND
# (2) THE MAGNITUDE OF THE RESULTING BURN TIME -- IF IT IS SHORT -- # (2) THE MAGNITUDE OF THE RESULTING BURN TIME - IF IT IS SHORT -
# AND THE ASSOCIATED TIME OF THE ENGINE OFF SIGNAL. # AND THE ASSOCIATED TIME OF THE ENGINE-OFF SIGNAL.
# # CALLING SEQ VIA FINDVAC AS A NEW JOB.
# CALLING SEQUENCE VIA FINDVAC AS A NEW JOB # INPUT VGTIG - VELOCITY TO BE GAINED VECTOR (METERS/CS) AT +7
# # WEIGHT/G - MASS OF VEHICLE IN KGM AT TIG
# INPUT VGTIG -- VELOCITY TO BE GAINED VECTOR (METERS/CS) AT +7 # F - ENGINE THRUST IN M.NEWTONS AT +7
# WEIGHT/G -- MASS OF VEHICLE IN KGM AT TIG # MDOT - RATE OF DECREASE OF VEHICLE MASS DURING ENGINE BURN
# F -- ENGINE THRUST IN M.NEWTONS AT +7 # IN KILOGRAMS/CENTISECOND AT +3. THIS SCALING MAY
# MDOT -- RATE OF DECREASE OF VEHICLE MASS DURING ENGINE BURN # REQUIRE MODIFICATION FOR SATURN BURNS.
# IN KILOGRAMS/CENTISECOND AT +3. THIS SCALING MAY # OUTPUT IMPULSW - ZERO FOR STEERING
# REQUIRE MODIFICATION FOR SATURN BURNS. # - ONE FOR ATTITUDE HOLD
# # TGO - TIME TO BURN IN CENTISECONDS AT +14
# OUTPUT IMPULSW ZERO FOR STEERING # THE QUANTITY M.NEWTON SHALL BE USED TO EXPRESS WEIGHT IN TERMS OF
# ONE FOR ATTITUDE HOLD # (KILOGRAM*METER)/(CENTISECOND*CENTISECOND)
# TGO TIME TO BURN IN CENTISECONDS AT +14 # (1) M.NEWTON = (10000) NEWTONS
# THE QUANTITY M.NEWTON SHALL BE USED TO EXPRESS WEIGHT IN TERMS OF
# (KILOGRAM*METER)/(CENTISECOND*CENTISECOND)
# (1) M.NEWTON = (10000) NEWTONS.
EBANK= TGO EBANK= TGO
COUNT 16/40.13 COUNT 16/40.13
@ -1995,7 +1972,7 @@ S40.130 BDSU
S40.131 DLOAD DMP # TGO LESS THAN 100 CS S40.131 DLOAD DMP # TGO LESS THAN 100 CS
WEIGHT/G WEIGHT/G
DAD DDV DAD DDV
K2VAL # M.NEWTON CS AT +24 K2VAL # M.NEWTON-CS AT +24
K3VAL # M.NEWTON AT +10 K3VAL # M.NEWTON AT +10
S40.132 EXIT S40.132 EXIT
EBANK= TGO EBANK= TGO
@ -2022,15 +1999,16 @@ NOTADDUL TC INTPRET
K1VAL = EK1VAL # DP PAD LOAD B+23 NEWTON-SEC/E+2 K1VAL = EK1VAL # DP PAD LOAD B+23 NEWTON-SEC/E+2
K2VAL = EK2VAL # DP PAD LOAD B+23 NEWTON-SEC/E+2 K2VAL = EK2VAL # DP PAD LOAD B+23 NEWTON-SEC/E+2
K3VAL = EK3VAL # DP PAD LOAD B+09 NEWTONS/E+4 K3VAL = EK3VAL # SP PAD LOAD B+09 NEWTONS/E+4
1SEC2D 2DEC 100.0 B-14 # 100.0 CS AT +14 1SEC2D 2DEC 100.0 B-14 # 100.0 CS AT +14
# Page 728 # Page 728
3.5SEC 2DEC 350.0 B-13 # 350 CS AT +13 3.5SEC 2DEC 350.0 B-13 # 350.0 CS AT +13
5SECOND 2DEC 500.0 B-14 # 500.0 CS AT +14 5SECOND 2DEC 500.0 B-14 # 500.0 CS AT +14
S40.135 2DEC 69.6005183 B-23 # IMPULSE FROM 7.96 SECS OF 2-JET FIRING S40.135 2DEC 69.6005183 B-23 # IMPULSE FROM 7.96 SECS OF 2-JET FIRING
# 7.96 (199.6)COS(10) LB-SEC, SC.AT #
# 7.96(199.6)COS(10) LB-SEC, SC.AT
# B+23 NEWTON-SEC/E+2 (7 SEC ULLAGE # B+23 NEWTON-SEC/E+2 (7 SEC ULLAGE
# TO GO, PLUS 0.96 SEC FROM PIPTIME) # TO GO, PLUS 0.96 SEC FROM PIPTIME)
@ -2038,42 +2016,34 @@ S40.135 2DEC 69.6005183 B-23 # IMPULSE FROM 7.96 SECS OF 2-JET FIRING
# NAME S40.6 GIMBAL DRIVE TEST AND/OR GIMBAL TRIM # NAME S40.6 GIMBAL DRIVE TEST AND/OR GIMBAL TRIM
# MOD NO 5 DATE 9 MARCH, 1967 # MOD NO 5 DATE 9 MARCH, 1967
# MOD BY ENGEL LOG SECTION P40-P47 # MOD BY ENGEL LOG SECTION P40-P47
#
# FUNCTIONAL DESCRIPTION # FUNCTIONAL DESCRIPTION
# GIMBAL DRIVE TEST....0,+2,-2,0 DEGREE ENGINE COMMANDS, AT 2 SECOND # GIMBAL DRIVE TEST....0,+2,-2,0 DEGREE ENGINE COMMANDS, AT 2 SECOND
# INTERVALS, FIRST IN PITCH, THEN IN YAW. ASTRONAUT VERIFICATION # INTERVALS, FIRST IN PITCH, THEN IN YAW. ASTRONAUT VERIFICATION
# OF GIMBAL MOTION ON GPI # OF GIMBAL MOTION ON GPI
# GIMBAL TRIM....AFTER A 4 SECOND DELAY, ENGINE COMMANDED TO # GIMBAL TRIM....AFTER A 4 SECOND DELAY,ENGINE COMMANDED TO
# PRE-COMPUTED TRIM POSITION. ASTRONAUT VERIFICATION ON GPI. # PRE-COMPUTED TRIM POSITION. ASTRONAUT VERIFICATION ON GPI.
# PRE40.6....RESTART ENTRY TO RE-DO S40.6, ONLY IF RCS IS ON --- IF TVC # PRE40.6....RESTART ENTRY TO RE-DO S40.6, ONLY IF RCS IS ON - IF TVC
# IS NOT ON --- PRIMARILY TO GET ACTUATORS TRIMMED FOR IGNITION. # IS NOT ON - PRIMARILY TO GET ACTUATORS TRIMMED FOR IGNITION.
# BYPASS 4 SEC DELAY. SPEED IS CRITICAL NEAR IGNITION. # BYPASS 4 SEC DELAY. SPEED IS CRITICAL NEAR IGNITION.
# IF TVC IS ON (TVCDAPON OR LATER) THEN REDOTVC WILL TAKE CARE # IF TVC IS ON (TVCDAPON OR LATER) THEN REDOTVC WILL TAKE CARE
# OF RESTARTING ACTUATORS. # OF RESTARTING ACTUATORS.
#
# CALLING SEQUENCE.... # CALLING SEQUENCE....
# WAITLIST, WITH 2CADR FOR S40.6 (OR PRE40.6), WITH EBANK= CNTR # WAITLIST, WITH 2CADR FOR S40.6 (OR PRE40.6), WITH EBANK= CNTR
# # NORMAL EXIT MODE - FIXDELAY, TASKOVER
# NORMAL EXIT MODE -- FIXDELAY, TASKOVER
#
# SUBROUTINES CALLED.... # SUBROUTINES CALLED....
# OUTPUT (INTERNAL) # OUTPUT (INTERNAL)
# FIXDELAY # FIXDELAY
# # ALARM OR ABORT EXIT MODES - NONE
# ALARM OR ABORT EXIT MODES --- NONE
#
# ERASABLE INITIALIZATION REQUIRED # ERASABLE INITIALIZATION REQUIRED
# CNTR = +0, NORMALLY SET BY THE P40 CALL AT TST,TRIM. # CNTR = +0, NORMALLY SET BY THE P40 CALL AT TST,TRIM.
# MRKRTMP....POSITIVE FOR GIMBAL DRIVE TEST AND GIMBAL TRIM (BOTH) # MRKRTMP....POSITIVE FOR GIMBAL DRIVE TEST AND GIMBAL TRIM (BOTH)
# NEGATIVE FOR GIMBAL TRIM ONLY # NEGATIVE FOR GIMBAL TRIM ONLY
# PACTOFF, YACTOFF SC.AT 85.41 ARCSEC/BIT (V48N48 P, YTRIM) # PACTOFF, YACTOFF SC.AT 85.41 ARCSEC/BIT (V48N48 P,YTRIM)
# "SC CONT" SWITCH AT "CMC" (A/P CONTROL SWITCH AT "GNC") # ..SC CONT.. SWITCH AT ..CMC.. (A/P CONTROL SWITCH AT ..GNC..)
# ACTIVE SPS GIMBAL MOTOR POWER(S), PITCH, YAW # ACTIVE SPS GIMBAL MOTOR POWER(S), PITCH, YAW
#
# OUTPUT # OUTPUT
# TVCYAW, TVCPITCH (BITS RELEASED) # TVCYAW, TVCPITCH (BITS RELEASED)
# TVC ENABLE AND OPTICS ERROR COUNTER ENABLE # TVC ENABLE AND OPTICS ERROR COUNTER ENABLE
#
# DEBRIS # DEBRIS
# TBMPR60, CNTR # TBMPR60, CNTR
@ -2095,7 +2065,7 @@ PRE40.6 CS FLAGWRD6 # RESTART ENTRY TO S40.6 (DO NOT PERMIT
TS MRKRTMP TS MRKRTMP
CAF BIT1 # FOR REVISED S40.6 TIMING FOR RESTARTS... CAF BIT1 # FOR REVISED S40.6 TIMING FOR RESTARTS...
TS CNTR # TO INDICATE A RESTART ENTRY (CNTR 1S TS CNTR # TO INDICATE A RESTART ENTRY (CNTR IS
# NORMALLY +0, BY S40.6) # NORMALLY +0, BY S40.6)
EBANK= CNTR EBANK= CNTR
@ -2103,7 +2073,7 @@ S40.6 CS ZERO # INHIBIT OPTICS ACTIVITY
TS OPTIND TS OPTIND
CS BIT2 # DISENABLE OPTICS ERROR COUNTERS (ZERO, CS BIT2 # DISENABLE OPTICS ERROR COUNTERS (ZERO,
EXTEND # AND INHIBIT PULSE TRANSMISSION -- EXTEND # AND INHIBIT PULSE TRANSMISSION -
WAND CHAN12 # NORMAL STATE) WAND CHAN12 # NORMAL STATE)
CAF OCT02200 # TVC ENABLE (SPS SERVO AMPS SEE DAC CAF OCT02200 # TVC ENABLE (SPS SERVO AMPS SEE DAC
@ -2139,7 +2109,7 @@ GIMDTEST CAF +2ACTDEG # GIMBAL DRIVE TEST, 1ST INCREMENT
CAF +2ACTDEG # 3RD INCREMENT (LEAVES GIMBAL AT -0) CAF +2ACTDEG # 3RD INCREMENT (LEAVES GIMBAL AT -0)
TC OUTPUT TC OUTPUT
CS CNTR # CHECK FOR COMPLETION OF YAW TEST. CS CNTR # CHECK FOR COMPLETION OF YAW TEST
# Page 731 # Page 731
CCS A CCS A
TCF GIMTRIM # COMPLETED, GO TO GIMBAL TRIM ROUTINE TCF GIMTRIM # COMPLETED, GO TO GIMBAL TRIM ROUTINE
@ -2182,7 +2152,7 @@ OCT02200 OCT 02200 # BITS 8,11 FOR CHANNEL 12 TVC/OPTICS
-4ACTDEG DEC -168 # -2(+2ACTDEG), WHOLE BITS, NO ROUNDUP -4ACTDEG DEC -168 # -2(+2ACTDEG), WHOLE BITS, NO ROUNDUP
+2ACTDEG DEC +84 # +2 DEG, SC.AT 85.41 ARCSEC/BIT (+84D) +2ACTDEG DEC +84 # +2 DEG, SC.AT 85.41 ARCSEC/BIT (+84D)
# CALLED BY "DONOUN46" (VERB 48), OR DIRECTLY BY "FRESHDAP" (RCS DAP) VIA IBNKCALL # CALLED BY ..DONOUN46.. (VERB 48), OR DIRECTLY BY ..FRESHDAP.. (RCS DAP) VIA IBNKCALL
COUNT 20/S41.2 COUNT 20/S41.2
@ -2251,7 +2221,7 @@ TOGETHER CS FLAGWRD7 # ATTACHED, SET FLAG FOR INTEGRATION
TCF +2 TCF +2
CS ONE CS ONE
COM COM
TS ACORBD # MINUS FOR A-C, PLUS FOR B-D TS ACORBD # MINUS FOR A-C,PLUS FOR B-D
CA DAPDATR2 CA DAPDATR2
MASK BIT10 MASK BIT10
@ -2285,7 +2255,7 @@ BDFAIL CA DAPDATR2
TS RBDFAIL TS RBDFAIL
TC Q TC Q
# DAPFIG ENTRY VIA TC POSTJUMP AS JOB FROM "STABLISH" (VERB 46) # DAPFIG ENTRY VIA TC POSTJUMP AS JOB FROM ..STABLISH.. (VERB 46)
BANK 42 BANK 42
SETLOC EXTVBS SETLOC EXTVBS
@ -2312,13 +2282,13 @@ RCSDAPUP INHINT # CALL TO ACTIVATE RCSDAP, AND RETURN
CADR RCSDAPON CADR RCSDAPON
RELINT RELINT
TCF ENDFIG # CAME IN VIA V46, GO OUT VIA GOPIN TCF ENDFIG # CAME IN VIA V46, GO OUT VIA GOPIN
NODAPUP EXTEND # T5 IDLE FOR NODAP (DON'T WORRY ABOUT T) NODAPUP EXTEND # T5 IDLE FOR NODAP (DONT WORRY ABOUT T)
DCA T5IDLDAP DCA T5IDLDAP
DXCH T5LOC DXCH T5LOC
TC DOWNFLAG # RESET T5-USAGE FLAGS FOR NODAP TC DOWNFLAG # RESET T5-USAGE FLAGS FOR NODAP
ADRES DAPBIT1 # BIT 15 FLAG 6 = 0 ADRES DAPBIT1 # BIT 15 FLAG 6 = 0
TC DOWNFLAG TC DOWNFLAG
ADRES DAPBIT2 # BIT 14 FLAG 6 = 0 ADRES DAPBIT2 # BIT 14 FLAG 6 = 0
INHINT INHINT
TC IBNKCALL # ZERO JET CHANNELS IN 14 MS AND THEN TC IBNKCALL # ZERO JET CHANNELS IN 14 MS AND THEN
CADR ZEROJET # LEAVE THE T6 CLOCK DISABLED. CADR ZEROJET # LEAVE THE T6 CLOCK DISABLED.
@ -2331,6 +2301,7 @@ ENDFIG TC POSTJUMP # CAME IN VIA V46, GO OUT VIA GOPIN
EBANK= PACTOFF EBANK= PACTOFF
T5IDLDAP 2CADR T5IDLOC T5IDLDAP 2CADR T5IDLOC
SBANK= LOWSUPER SBANK= LOWSUPER
BANK 17 BANK 17
SETLOC DAPS6 SETLOC DAPS6
@ -2341,7 +2312,7 @@ DEC46 DEC 46
# Page 735 # Page 735
# CALLED BY "DONOUN47" (VERB 48), OR DIRECTLY BY "FRESHDAP" (RCS DAP) # CALLED BY ..DONOUN47.. (VERB 48), OR DIRECTLY BY ..FRESHDAP.. (RCS DAP)
S40.14 CAE IXX # RCS ENTRY S40.14 CAE IXX # RCS ENTRY
EXTEND EXTEND
MP CONTONE MP CONTONE
@ -2425,5 +2396,3 @@ RCSDAPON CAF 0.6SECT5 # 0.6 SEC ALLOWS TVCEXEC/ROLLDAP TO DIE
TS FLAGWRD6 # KILLS TVCEXEC AND ROLLDAP STARTS TS FLAGWRD6 # KILLS TVCEXEC AND ROLLDAP STARTS
TC Q # RETURN TO CALLER (TVCDAPOF OR RCSDAPUP) TC Q # RETURN TO CALLER (TVCDAPOF OR RCSDAPUP)