Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

Proof Comanche055\P40-P47 #236 (pg: 0700-0715) #851

Open
wants to merge 1 commit into
base: master
Choose a base branch
from
Open

Proof Comanche055\P40-P47 #236 (pg: 0700-0715) #851

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
113 changes: 48 additions & 65 deletions Comanche055/P40-P47.agc
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -750,7 +750,6 @@ UPDATEVG STQ BON
NBRCYCLS
SETUP.9
# Page 700

VLOAD VAD
DELVSUM
DELVREF
Expand All @@ -760,7 +759,7 @@ UPDATEVG STQ BON
AD NBRCYCLS
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

CA NBRCYCLP
Expand All @@ -779,7 +778,7 @@ SETUP.9 BON SLOAD
FIRSTFLG
SURELY.9
NBRCYCLP
NORM VXSC # (NORM HANDLES ZERO PROPERLY)
NORM VXSC # (NORM HANDLES ZERO PROPERLY)
X1
BDT
VSR* VAD
Expand Down Expand Up @@ -857,14 +856,14 @@ SERVXT TC POSTJUMP
2CADR ENGINOFF

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
TC DOWNFLAG # CLEAR IMPULSW, ENGINOFF IS NOW SET UP
ADRES IMPULSW # RESTARTS OK
TCF SERVXT

# Page 703
# ROUTINE ** CLOKTASK ** DESCRIPTION
# ROUTINE **CLOKTASK** DESCRIPTION

EBANK= TIG
CLOKTASK CAF BIT11 # IS TIMRFLAG SET
Expand Down Expand Up @@ -913,14 +912,14 @@ SETUPDYN CAF PRIO27 # SET UP A JOB TO UPDATE N85 (FOR P41=V06)

TCF SETTB6 # CLOSE OUT CLOCKTASK
# 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)
P40CNV85
EXIT
TCF CKNVWRD1

# Page 705
# ROUTINE ** CLOCKJOB ** DESCRIPTION
# ROUTINE **CLOCKJOB** DESCRIPTION

EBANK= DAPDATR1
CLOCKJOB CA CDUX
Expand All @@ -945,7 +944,7 @@ FAILDSP CAF V06N40 # SPS ENGINE-FAILED V97 FLASH

ENGREQST CAF V06N40
TC BANKCALL
CADR CLOCPLAY # LINUS MAKES IT A REDO, INHINT OK
CADR CLOCPLAY
TCF V99T # TERMINATE
TCF V99P # PROCEED
TCF V99E # ENTER
Expand Down Expand Up @@ -1039,6 +1038,7 @@ V97TRCS TC IBNKCALL # RCS DAP IN 0.6SEC, SETTING T5 BITS TO

ENDV97T TCF TASKOVER


EBANK= V97VCNTR
V97P TC PHASCHNG
OCT 40734 # A, 4.73 = V97PTASK (-0 CS), TBASE NOW
Expand Down Expand Up @@ -1071,6 +1071,7 @@ R40ENABL TC DOWNFLAG # RE-ENABLE R40 BY CLEARING IDLEFAIL
# Page 708
ENDV97P TCF TASKOVER


EBANK= WHOCARES
V97E TC PHASCHNG
OCT 40534 # A, 4.53 = V97ETASK (-0 CS), TBASE NOW
Expand All @@ -1096,7 +1097,7 @@ V97ETASK CS OCT24 # FORCE R1 OF V06N40 TO READ 59X59
SPSOFF97 TCR SPSOFF
TC PHASCHNG
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)

EBANK= DAPDATR1
Expand All @@ -1108,9 +1109,8 @@ V97E40.6 CAF BIT1
TC IBNKCALL # RCS DAP IN 0.6SEC, SETTING T5 BITS TO
CADR RCSDAPON # KILL TVCEXEC/TVCROLLDAP STARTS.
# LEAVE NARROW DEADBAND FOR REIGNITE.

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
DEC -0 # -0 CS.

Expand All @@ -1125,7 +1125,7 @@ QUICKIGN CS PRIO14 # CLEAR ASTNFLAG AND SET IGNFLAG FOR
V99FLASH CS BIT9 # CAUSE V99 TO FLASH
TS NVWORD1
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)
CAF PRIO20 # SET UP TIMEBURN
TC FINDVAC
Expand All @@ -1141,54 +1141,47 @@ ENDV97E TCF TASKOVER # WAIT FOR CLOCKJOB (IMMEDIATE) REACTION
# FUNCTIONAL DESCRIPTION
# COMPUTE INITIAL THRUST DIRECTION(UT) AND INITIAL VALUE OF VG
# VECTOR(VGTIG).
#
# CALLING SEQUENCE
# L CALL
# L CALL
# L+1 S40.1
#
# 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
#
# SUBROUTINES CALLED
# CSMPREC
# INITVEL
# CALCGRAV
# MIDGIM
#
# 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
# WEIGHT/G ANTICIPATED VEHICLE MASS SP B16 KGM
# XDELVFLG 1=DELTA-V MANEUVER, 0=AIMPT STEER
# IF DELTA-V MANEUVER:
# WEIGHT/G ANTICIPATED VEHICLE MASS SP B16KGM
# XDELVFLG 1=DELTA-V MANEUVER,0=AIMPT STEER
# IF DELTA-V MANEUVER
# DELVSIN SPECIFIED DELTA-V REQUIRED IN
# INERTIAL COORDS. OF ACTIVE VEHICLE
# AT TIME OF IGNITION VECTOR B7 M/CS
# DELVSAB MAG. OF DELVSIN DP B7 M/CS
# RTIG POSITION AT TIME OF IGNITION VECTOR B29 M
# VTIG VELOCITY AT TIME OF IGNITION VECTOR B7 M/CS.
# CSTEER = 0 DP
# IF AIMPOINT STEERING:
# AT TIME OF IGNITION VECTOR B7M/CS
# DELVSAB MAG. OF DELVSIN DP B7M/CS
# RTIG POSITION AT TIME OF IGNITION VECTOR B29M
# VTIG VELOCITY AT TIME OF IGNITION VECTOR B7M/CS.
# CSTEER = 0 DP
# IF AIMPOINT STEERING
# IF AIMPT STEER
# TIG TIME OF IGNITION DP B28 CS
# RTARG POSITION TARGET TIME VECTOR B29 M
# CSTEER = ECSTEER (GR 0) DP B1
# TIG TIME OF IGNITION DP B28CS
# RTARG POSITION TARGET TIME VECTOR B29M
# CSTEER = ECSTEER(GR 0) DP B1
# Page 710
# TPASS4 -- TIME OF ARRIVAL AT AIMPOINT
#
# TPASS4 - TIME OF ARRIVAL AT AIMPOINT
# OUTPUT
# UT 1/2 UNIT VECTOR ALIGNED WITH THRUST DIRETION IN REF COOR
# VGTIG INITIAL VALUE OF VELOCITY
# TO BE GAINED (INERT. COORD.) VECTOR B7 M/CS
# DELVLVC VGTIG IN LOC. VERT. COORDS. B7 M/CS
# TO BE GAINED (INERT. COORD.) VECTOR B7M/CS
# DELVLVC VGTIG IN LOC. VERT. COORDS. B7M/CS
# F NOMINAL THRUST FOR ENG USED FOR S40.13 DP B7 M-NEWT
# 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
# POSITION AT TIME OF IGNITION
#
# DEBRIS QTEMP1
# MPAC, QPRET
# PUSHLIST
Expand Down Expand Up @@ -1246,7 +1239,7 @@ S40.1 SET VLOAD
VXV UNIT
UT
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
14D
COS VXSC
Expand All @@ -1255,7 +1248,7 @@ S40.1 SET VLOAD
36D
VSL2 VAD
STADR
STORE VGTIG # VG IGNITION SCALED AT 2(+7) M/CS
STORE VGTIG # VG IGNITION SCALED AT 2(+7)M/CS

UNIT
STOVL UT # THRUST DIRECTION SCALED AT 2(+1)
Expand Down Expand Up @@ -1336,9 +1329,9 @@ AGAIN STQ CALL
QTEMP1
CALCUT VLOAD CALL
RTIG
CALCGRAV # GDELTAT IN MPAC AT 2(+7) M/CS
CALCGRAV # GDELTAT IN MPAC AT 2(+7)M/CS
VSL1 V/SC
200CS # G AT 2(-5) M/CS. CS
200CS # G AT 2(-5) M/CS.CS
PDVL VSU
VIPRIME
UT
Expand All @@ -1360,7 +1353,7 @@ CALCUT VLOAD CALL
SRR DDV
4
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
VSQ
BDSU SQRT
Expand All @@ -1372,54 +1365,44 @@ CALCUT VLOAD CALL
200CS 2DEC 200 B-12

# 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 BY ZELDIN
#
# FUNCTIONAL DESCRIPTION
#
# 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 PREFERRED IMU ORIENTATION (XSCREF)
# FOR THIS CALCULATION, ASSUME X AXIS OF SC ALONG UT INITIALLY,
# YSC=UNIT(XXR), ZSC=UNIT(XX(XXR)) AND ROTATE ENGINE BELL ALONG UT.
# COMPUTE PREFERRED IMU ORIENTATION(XSCREF)
# FOR THIS CALCULATION,ASSUME X AXIS OF SC ALONG UT INITIALLY,
# 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.
# COORDS. WILL BE PREFERRED IMU ORIENTATION.
# COMPUTE DESIRED THRUST DIRECTION IN SM COORDS.
#
# CALLING SEQUENCE
# L CALL
# L+1 S40.2,3
#
# L CALL
# L+1 S40.2,3
# NORMAL EXIT MODE
# AT L+2 OF CALLING SEQUENCE (GOTO L+2)
#
# SUBROUTINES CALLED
# CALCGA
#
# ALARM OR ABORT MODES
# NONE
#
# ERASABLE INITIALIZATION REQUIRED
# PACTOFF TOTAL PITCH 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)
# RTIG POSITION AT TIME OF IGNITION VECT. B29 M
# UT DESIRED THRUST DIRECTION VECT.B2M/(CS.CS)
# RTIG POSITION AT TIME OF IGNITION VECT. B29M
# ENG2FLAG ON=RCS OFF=SPS
#
# 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
# YSCREF
# ZSCREF
# GIMBAL ANGLES IN THETAD
# POINTVSM UNIT VECT ALONG DESIRED THRUST DIRECTION IN SM B1
#
# DEBRIS
# PUSHLIST, QPRET, MPAC
# PUSHLIST,QPRET,MPAC
# QTEMP TEMP. ERASABLE

BANK 24
SETLOC P40S
BANK
Expand Down Expand Up @@ -1453,7 +1436,7 @@ S40.2,3 VLOAD MXV
PBIAS
COS PDDL # COS(P +P0) PDL 6
SIN PUSH # SIN(P +P0) PDL 8D
STODL ZSCREF # SIN(P +P0)
STODL ZSCREF # SIN(P+P0)
6
DMP SL1
4
Expand Down