mirrors
/
Apollo-11
mirror of https://github.com/chrislgarry/Apollo-11.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Proof-read Comanche055\P40-P47 (pg. 0700-0715)

pull/851/head
arda-guler 2021-11-15 19:43:08 +03:00
parent 4ed1904211
commit c6df2f3b02
1 changed files with 48 additions and 65 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

113
Comanche055/P40-P47.agc
View File

@ -750,7 +750,6 @@ UPDATEVG STQ BON
NBRCYCLS NBRCYCLS
SETUP.9 SETUP.9
# Page 700 # Page 700
VLOAD VAD VLOAD VAD
DELVSUM DELVSUM
DELVREF DELVREF
@ -760,7 +759,7 @@ UPDATEVG STQ BON
AD NBRCYCLS AD NBRCYCLS
TS NBRCYCLP TS NBRCYCLP
TC PHASCHNG # TYPE B RESTART RESTART BELOW AND 5.3 REREADACCS TC PHASCHNG # TYPE B RESTART BELOW AND 5.3 REREADACCS
OCT 10035 OCT 10035
CA NBRCYCLP CA NBRCYCLP
@ -779,7 +778,7 @@ SETUP.9 BON SLOAD
FIRSTFLG FIRSTFLG
SURELY.9 SURELY.9
NBRCYCLP NBRCYCLP
NORM VXSC # (NORM HANDLES ZERO PROPERLY) NORM VXSC # (NORM HANDLES ZERO PROPERLY)
X1 X1
BDT BDT
VSR* VAD VSR* VAD
@ -857,14 +856,14 @@ SERVXT TC POSTJUMP
2CADR ENGINOFF 2CADR ENGINOFF
TC 2PHSCHNG TC 2PHSCHNG
OCT 40153 # A, 3.15 = ENGINOFF (TGO+1) .... NOTE GROUP OCT 40153 # A, 3.15 = ENGINOFF (TGO+1)....NOTE GROUP
OCT 10035 # B, 5.3 = REREADAC, AND START BELOW OCT 10035 # B, 5.3 = REREADAC, AND START BELOW
TC DOWNFLAG # CLEAR IMPULSW, ENGINOFF IS NOW SET UP TC DOWNFLAG # CLEAR IMPULSW, ENGINOFF IS NOW SET UP
ADRES IMPULSW # RESTARTS OK ADRES IMPULSW # RESTARTS OK
TCF SERVXT TCF SERVXT
# Page 703 # Page 703
# ROUTINE ** CLOKTASK ** DESCRIPTION # ROUTINE **CLOKTASK** DESCRIPTION
EBANK= TIG EBANK= TIG
CLOKTASK CAF BIT11 # IS TIMRFLAG SET CLOKTASK CAF BIT11 # IS TIMRFLAG SET
@ -913,14 +912,14 @@ SETUPDYN CAF PRIO27 # SET UP A JOB TO UPDATE N85 (FOR P41=V06)
TCF SETTB6 # CLOSE OUT CLOCKTASK TCF SETTB6 # CLOSE OUT CLOCKTASK
# Page 704 # Page 704
DYNDISP TC INTPRET # UPDATE N85 FOR A DYNAMIC V06N85 IN P41. DYNDISP TC INTPRET # UPDATE N85 FOR A DYNAMIC V06N85 IN P41,
CALL # PRIOR TO BLANKING AND AVEG (V16N85) CALL # PRIOR TO BLANKING AND AVEG (V16N85)
P40CNV85 P40CNV85
EXIT EXIT
TCF CKNVWRD1 TCF CKNVWRD1
# Page 705 # Page 705
# ROUTINE ** CLOCKJOB ** DESCRIPTION # ROUTINE **CLOCKJOB** DESCRIPTION
EBANK= DAPDATR1 EBANK= DAPDATR1
CLOCKJOB CA CDUX CLOCKJOB CA CDUX
@ -945,7 +944,7 @@ FAILDSP CAF V06N40 # SPS ENGINE-FAILED V97 FLASH
ENGREQST CAF V06N40 ENGREQST CAF V06N40
TC BANKCALL TC BANKCALL
CADR CLOCPLAY # LINUS MAKES IT A REDO, INHINT OK CADR CLOCPLAY
TCF V99T # TERMINATE TCF V99T # TERMINATE
TCF V99P # PROCEED TCF V99P # PROCEED
TCF V99E # ENTER TCF V99E # ENTER
@ -1039,6 +1038,7 @@ V97TRCS TC IBNKCALL # RCS DAP IN 0.6SEC, SETTING T5 BITS TO
ENDV97T TCF TASKOVER ENDV97T TCF TASKOVER
EBANK= V97VCNTR EBANK= V97VCNTR
V97P TC PHASCHNG V97P TC PHASCHNG
OCT 40734 # A, 4.73 = V97PTASK (-0 CS), TBASE NOW OCT 40734 # A, 4.73 = V97PTASK (-0 CS), TBASE NOW
@ -1071,6 +1071,7 @@ R40ENABL TC DOWNFLAG # RE-ENABLE R40 BY CLEARING IDLEFAIL
# Page 708 # Page 708
ENDV97P TCF TASKOVER ENDV97P TCF TASKOVER
EBANK= WHOCARES EBANK= WHOCARES
V97E TC PHASCHNG V97E TC PHASCHNG
OCT 40534 # A, 4.53 = V97ETASK (-0 CS), TBASE NOW OCT 40534 # A, 4.53 = V97ETASK (-0 CS), TBASE NOW
@ -1096,7 +1097,7 @@ V97ETASK CS OCT24 # FORCE R1 OF V06N40 TO READ 59X59
SPSOFF97 TCR SPSOFF SPSOFF97 TCR SPSOFF
TC PHASCHNG TC PHASCHNG
OCT 00114 # A, 4.11 = V97E40.6 (250 CS), TBASE OLD OCT 00114 # A, 4.11 = V97E40.6 (250 CS), TBASE OLD
TC FIXDELAY # DELAY 2.5 SECONDS FOR (POSSIBLE) TAIL- TC FIXDELAY # DELAY 2.5 SECONDS FOR (POSSIBLE) TAIL-
DEC 250 # OFF (FALSE THRUST-LOSS) DEC 250 # OFF (FALSE THRUST-LOSS)
EBANK= DAPDATR1 EBANK= DAPDATR1
@ -1108,9 +1109,8 @@ V97E40.6 CAF BIT1
TC IBNKCALL # RCS DAP IN 0.6SEC, SETTING T5 BITS TO TC IBNKCALL # RCS DAP IN 0.6SEC, SETTING T5 BITS TO
CADR RCSDAPON # KILL TVCEXEC/TVCROLLDAP STARTS. CADR RCSDAPON # KILL TVCEXEC/TVCROLLDAP STARTS.
# LEAVE NARROW DEADBAND FOR REIGNITE. # LEAVE NARROW DEADBAND FOR REIGNITE.
TC 2PHSCHNG TC 2PHSCHNG
OCT 00026 # A, 6.2 = PRE40.6 (-0 CS), CLOKTASK (1 SEC) OCT 00026 # A, 6.2 = PRE40.6 (-0 CS), CLOKTASK (1SEC)
OCT 05014 # C, DELTAT NEXT, TASK BELOW, IN OCT 05014 # C, DELTAT NEXT, TASK BELOW, IN
DEC -0 # -0 CS. DEC -0 # -0 CS.
@ -1125,7 +1125,7 @@ QUICKIGN CS PRIO14 # CLEAR ASTNFLAG AND SET IGNFLAG FOR
V99FLASH CS BIT9 # CAUSE V99 TO FLASH V99FLASH CS BIT9 # CAUSE V99 TO FLASH
TS NVWORD1 TS NVWORD1
TC 2PHSCHNG TC 2PHSCHNG
OCT 40774 # A, 4.77 = TIG-0 (-0 CS) TBASE FOR PREPTVC OCT 40774 # A, 4.77 = TIG-0 (-0CS) TBASE FOR PREPTVC
OCT 00033 # A, 3.3 = S40.13 (PRIO 20) OCT 00033 # A, 3.3 = S40.13 (PRIO 20)
CAF PRIO20 # SET UP TIMEBURN CAF PRIO20 # SET UP TIMEBURN
TC FINDVAC TC FINDVAC
@ -1141,54 +1141,47 @@ ENDV97E TCF TASKOVER # WAIT FOR CLOCKJOB (IMMEDIATE) REACTION
# FUNCTIONAL DESCRIPTION # FUNCTIONAL DESCRIPTION
# COMPUTE INITIAL THRUST DIRECTION(UT) AND INITIAL VALUE OF VG # COMPUTE INITIAL THRUST DIRECTION(UT) AND INITIAL VALUE OF VG
# VECTOR(VGTIG). # VECTOR(VGTIG).
#
# CALLING SEQUENCE # CALLING SEQUENCE
# L CALL # L CALL
# L+1 S40.1 # L+1 S40.1
#
# NORMAL EXIT MODE # NORMAL EXIT MODE
# AT L+2 OF CALLING SEQUENCE (GOTO L+2) NORMAL RETURN OR # AT L+2 OF CALLING SEQUENCE (GOTO L+2) NORMAL RETURN OR
# ERROR RETURN IF NOSOFLAG =1 # ERROR RETURN IF NOSOFLAG =1
#
# SUBROUTINES CALLED # SUBROUTINES CALLED
# CSMPREC # CSMPREC
# INITVEL # INITVEL
# CALCGRAV # CALCGRAV
# MIDGIM # MIDGIM
#
# ALARM OR ABORT EXIT MODES # ALARM OR ABORT EXIT MODES
# L+2 OF CALLING SEQUENCE, UNSOLVABLE CONIC IF NOSOFLAG=1 # L+2 OF CALLING SEQUENCE,UNSOLVABLE CONIC IF NOSOFLAG=1
#
# ERASABLE INITIALIZATION REQUIRED # ERASABLE INITIALIZATION REQUIRED
# WEIGHT/G ANTICIPATED VEHICLE MASS SP B16 KGM # WEIGHT/G ANTICIPATED VEHICLE MASS SP B16KGM
# XDELVFLG 1=DELTA-V MANEUVER, 0=AIMPT STEER # XDELVFLG 1=DELTA-V MANEUVER,0=AIMPT STEER
# IF DELTA-V MANEUVER: # IF DELTA-V MANEUVER
# DELVSIN SPECIFIED DELTA-V REQUIRED IN # DELVSIN SPECIFIED DELTA-V REQUIRED IN
# INERTIAL COORDS. OF ACTIVE VEHICLE # INERTIAL COORDS. OF ACTIVE VEHICLE
# AT TIME OF IGNITION VECTOR B7 M/CS # AT TIME OF IGNITION VECTOR B7M/CS
# DELVSAB MAG. OF DELVSIN DP B7 M/CS # DELVSAB MAG. OF DELVSIN DP B7M/CS
# RTIG POSITION AT TIME OF IGNITION VECTOR B29 M # RTIG POSITION AT TIME OF IGNITION VECTOR B29M
# VTIG VELOCITY AT TIME OF IGNITION VECTOR B7 M/CS. # VTIG VELOCITY AT TIME OF IGNITION VECTOR B7M/CS.
# CSTEER = 0 DP # CSTEER = 0 DP
# IF AIMPOINT STEERING: # IF AIMPOINT STEERING
# IF AIMPT STEER # IF AIMPT STEER
# TIG TIME OF IGNITION DP B28 CS # TIG TIME OF IGNITION DP B28CS
# RTARG POSITION TARGET TIME VECTOR B29 M # RTARG POSITION TARGET TIME VECTOR B29M
# CSTEER = ECSTEER (GR 0) DP B1 # CSTEER = ECSTEER(GR 0) DP B1
# Page 710 # Page 710
# TPASS4 -- TIME OF ARRIVAL AT AIMPOINT # TPASS4 - TIME OF ARRIVAL AT AIMPOINT
#
# OUTPUT # OUTPUT
# UT 1/2 UNIT VECTOR ALIGNED WITH THRUST DIRETION IN REF COOR # UT 1/2 UNIT VECTOR ALIGNED WITH THRUST DIRETION IN REF COOR
# VGTIG INITIAL VALUE OF VELOCITY # VGTIG INITIAL VALUE OF VELOCITY
# TO BE GAINED (INERT. COORD.) VECTOR B7 M/CS # TO BE GAINED (INERT. COORD.) VECTOR B7M/CS
# DELVLVC VGTIG IN LOC. VERT. COORDS. B7 M/CS # DELVLVC VGTIG IN LOC. VERT. COORDS. B7M/CS
# F NOMINAL THRUST FOR ENG USED FOR S40.13 DP B7 M-NEWT # F NOMINAL THRUST FOR ENG USED FOR S40.13 DP B7 M-NEWT
# BDT V REQUIRED AT TIG -V REQUIRED AT (TIG-2SEC) # BDT V REQUIRED AT TIG -V REQUIRED AT (TIG-2SEC)
# -GDT FOR S40.13 VECT B7 M/CS # -GDT FOR S40.13 VECT B7M/CS
# RTIG CALC IN S40.1B (AIMPT) FOR S40.2,3 VECTOR B29M # RTIG CALC IN S40.1B (AIMPT) FOR S40.2,3 VECTOR B29M
# POSITION AT TIME OF IGNITION # POSITION AT TIME OF IGNITION
#
# DEBRIS QTEMP1 # DEBRIS QTEMP1
# MPAC, QPRET # MPAC, QPRET
# PUSHLIST # PUSHLIST
@ -1246,7 +1239,7 @@ S40.1 SET VLOAD
VXV UNIT VXV UNIT
UT UT
VXSC STADR VXSC STADR
STOVL VGTIG # UNIT(VP X UP)SIN(THETAT/2) IN VGTIG. STOVL VGTIG # UNIT(VP X UP)SIN(THETAT) IN VGTIG.
UNIT PDDL # UNIT(DELTA VP) IN P.D.L. 6 UNIT PDDL # UNIT(DELTA VP) IN P.D.L. 6
14D 14D
COS VXSC COS VXSC
@ -1255,7 +1248,7 @@ S40.1 SET VLOAD
36D 36D
VSL2 VAD VSL2 VAD
STADR STADR
STORE VGTIG # VG IGNITION SCALED AT 2(+7) M/CS STORE VGTIG # VG IGNITION SCALED AT 2(+7)M/CS
UNIT UNIT
STOVL UT # THRUST DIRECTION SCALED AT 2(+1) STOVL UT # THRUST DIRECTION SCALED AT 2(+1)
@ -1336,9 +1329,9 @@ AGAIN STQ CALL
QTEMP1 QTEMP1
CALCUT VLOAD CALL CALCUT VLOAD CALL
RTIG RTIG
CALCGRAV # GDELTAT IN MPAC AT 2(+7) M/CS CALCGRAV # GDELTAT IN MPAC AT 2(+7)M/CS
VSL1 V/SC VSL1 V/SC
200CS # G AT 2(-5) M/CS. CS 200CS # G AT 2(-5) M/CS.CS
PDVL VSU PDVL VSU
VIPRIME VIPRIME
UT UT
@ -1360,7 +1353,7 @@ CALCUT VLOAD CALL
SRR DDV SRR DDV
4 4
WEIGHT/G WEIGHT/G
DSQ PDVL # F/MASS SQUARED PDL 6 AT 2(-10M/(CS.CS) DSQ PDVL # F/MASS SQUARED PDL 6 AT 2(-10)M/(CS.CS)
12D 12D
VSQ VSQ
BDSU SQRT BDSU SQRT
@ -1372,54 +1365,44 @@ CALCUT VLOAD CALL
200CS 2DEC 200 B-12 200CS 2DEC 200 B-12
# Page 714 # Page 714
# PROGRAM DESCRIPTION S40.2,3 DATE 15 NOV 66 # PROGRAM DESCRIPTION S40.2,3 DATE 15,NOV,66
# MOD NO 2 LOG SECTIONS P40-P47 # MOD NO 2 LOG SECTIONS P40-P47
# MOD BY ZELDIN # MOD BY ZELDIN
#
# FUNCTIONAL DESCRIPTION # FUNCTIONAL DESCRIPTION
#
# COMPUTE GIMBAL ANGLES IF THRUSTING OCCURRED WITH PRESENT IMU # COMPUTE GIMBAL ANGLES IF THRUSTING OCCURRED WITH PRESENT IMU
# ORIENTATION, WINGS LEVEL SPACECRAFT, HEADS UP # ORIENTATION, WINGS LEVEL SPACECRAFT,HEADS UP
# COMPUTE X AXIS OF ENGINE BELL # COMPUTE X AXIS OF ENGINE BELL
# COMPUTE PREFERRED IMU ORIENTATION (XSCREF) # COMPUTE PREFERRED IMU ORIENTATION(XSCREF)
# FOR THIS CALCULATION, ASSUME X AXIS OF SC ALONG UT INITIALLY, # FOR THIS CALCULATION,ASSUME X AXIS OF SC ALONG UT INITIALLY,
# YSC=UNIT(XXR), ZSC=UNIT(XX(XXR)) AND ROTATE ENGINE BELL ALONG UT. # YSC=UNIT(XXR),ZSC=UNIT(XX(XXR)) AND ROTATE ENGINE BELL ALONG UT
# NEW SC AXES WILL BE APPROX. WINGS LEVEL AND NEW SC AXES IN REF. # NEW SC AXES WILL BE APPROX. WINGS LEVEL AND NEW SC AXES IN REF.
# COORDS. WILL BE PREFERRED IMU ORIENTATION. # COORDS. WILL BE PREFERRED IMU ORIENTATION.
# COMPUTE DESIRED THRUST DIRECTION IN SM COORDS. # COMPUTE DESIRED THRUST DIRECTION IN SM COORDS.
#
# CALLING SEQUENCE # CALLING SEQUENCE
# L CALL # L CALL
# L+1 S40.2,3 # L+1 S40.2,3
#
# NORMAL EXIT MODE # NORMAL EXIT MODE
# AT L+2 OF CALLING SEQUENCE (GOTO L+2) # AT L+2 OF CALLING SEQUENCE (GOTO L+2)
#
# SUBROUTINES CALLED # SUBROUTINES CALLED
# CALCGA # CALCGA
#
# ALARM OR ABORT MODES # ALARM OR ABORT MODES
# NONE # NONE
#
# ERASABLE INITIALIZATION REQUIRED # ERASABLE INITIALIZATION REQUIRED
# PACTOFF TOTAL PITCH TRIM ANGLE SP AT 1.0795111 REV. # PACTOFF TOTAL PITCH TRIM ANGLE SP AT 1.0795111 REV.
# YACTOFF TOTAL YAW TRIM ANGLE SP AT 1.0795111 REV. # YACTOFF TOTAL YAW TRIM ANGLE SP AT 1.0795111 REV.
# UT DESIRED THRUST DIRECTION VECT. B2 M/(CS.CS) # UT DESIRED THRUST DIRECTION VECT.B2M/(CS.CS)
# RTIG POSITION AT TIME OF IGNITION VECT. B29 M # RTIG POSITION AT TIME OF IGNITION VECT. B29M
# ENG2FLAG ON=RCS OFF=SPS # ENG2FLAG ON=RCS OFF=SPS
#
# OUTPUT # OUTPUT
# SCAXIS UNIT VECT. ALIGNED WITH ENG BELL IN SC COOR. B1 # SCAXIS UNIT VECT. ALIGNED WITH ENG BELL IN SC COOR B1
# XSCREF UNIT VECTORS ALIGNED WTH PREFERRED IMU B1 # XSCREF UNIT VECTORS ALIGNED WTH PREFERRED IMU B1
# YSCREF # YSCREF
# ZSCREF # ZSCREF
# GIMBAL ANGLES IN THETAD # GIMBAL ANGLES IN THETAD
# POINTVSM UNIT VECT ALONG DESIRED THRUST DIRECTION IN SM B1 # POINTVSM UNIT VECT ALONG DESIRED THRUST DIRECTION IN SM B1
#
# DEBRIS # DEBRIS
# PUSHLIST, QPRET, MPAC # PUSHLIST,QPRET,MPAC
# QTEMP TEMP. ERASABLE # QTEMP TEMP. ERASABLE
BANK 24 BANK 24
SETLOC P40S SETLOC P40S
BANK BANK
@ -1453,7 +1436,7 @@ S40.2,3 VLOAD MXV
PBIAS PBIAS
COS PDDL # COS(P +P0) PDL 6 COS PDDL # COS(P +P0) PDL 6
SIN PUSH # SIN(P +P0) PDL 8D SIN PUSH # SIN(P +P0) PDL 8D
STODL ZSCREF # SIN(P +P0) STODL ZSCREF # SIN(P+P0)
6 6
DMP SL1 DMP SL1
4 4