Proofing commanche055 P61-P67

pull/804/head
Mike Wilson 2020-11-02 17:45:24 +00:00
parent 7019d48166
commit c63f0e5412
1 changed files with 40 additions and 39 deletions

View File

@ -47,7 +47,7 @@
# EMSALT (-29) M .05G ALTITUDE ABOVE FISCHER ELLIPSOID PAD LOADED. # EMSALT (-29) M .05G ALTITUDE ABOVE FISCHER ELLIPSOID PAD LOADED.
# ALFAPAD /180 HYPERSONIC CM TRIM ANGLE OF ATTACK PAD LOADED # ALFAPAD /180 HYPERSONIC CM TRIM ANGLE OF ATTACK PAD LOADED
# OUTPUT: THE FOLLOWING REGISTERS ARE WRITTEN IN FOR USE BY DISPLAYS # OUTPUT: THE FOLLOWING REGISTERS ARE WRITTEN IN FOR USE BY DISPLAYS
# GMAX 100 GMAX (-14) G,S MAXIMUM ACCELERATION # GMAX 100 GMAX (-14) G.S MAXIMUM ACCELERATION
# VPRED (-7) M/CS PREDICTED VELOCITY AT 400K FT # VPRED (-7) M/CS PREDICTED VELOCITY AT 400K FT
# GAMMAEI (GAMMA/360 PREDICTED GAMMA AT 400K FT # GAMMAEI (GAMMA/360 PREDICTED GAMMA AT 400K FT
# RTGO THETAH/360 RANGE ANGLE TO SPLASH FROM EMSALT EMSALT IS PAD LOADED # RTGO THETAH/360 RANGE ANGLE TO SPLASH FROM EMSALT EMSALT IS PAD LOADED
@ -55,7 +55,7 @@
# TTE (-28) CS TIME TO EMSALT EMSALT IS PAD LOADED # TTE (-28) CS TIME TO EMSALT EMSALT IS PAD LOADED
# LAT(SPL) /360 TARGET LOCATION LEFT BY DSKY # LAT(SPL) /360 TARGET LOCATION LEFT BY DSKY
# LNG(SPL) /360 TARGET LOCATION LEFT BY DSKY # LNG(SPL) /360 TARGET LOCATION LEFT BY DSKY
# HEADSUP (0) +1 = LIFT DOWN, -1 = LIFT UP LEFT BY DSKY # HEADSUP (0) +1 = LIFT DOWN. -1 = LIFT UP LEFT BY DSKY
# DEBRIS: SEE SUBROUTINES. # DEBRIS: SEE SUBROUTINES.
BANK 26 BANK 26
@ -120,7 +120,7 @@ DUMPP61 DLOAD DSU
S61.2 # GET DISPLAY DATA FOR N60 AND N63 S61.2 # GET DISPLAY DATA FOR N60 AND N63
# AND RETURN IN BASIC, BELOW. # AND RETURN IN BASIC, BELOW.
P61.1 TC CLEARMRK P61.1 TC CLEARMRK
CA V06N60 # GMAX VPRED GAMMAEI CA V06N60 # GMAX VPRED GAMMAE1
# XXX.XX G XXXXX. FPS XXX.XX DEG # XXX.XX G XXXXX. FPS XXX.XX DEG
TC BANKCALL TC BANKCALL
CADR GOFLASH CADR GOFLASH
@ -201,9 +201,9 @@ P62.2 EXTEND
TC GOTOPOOH TC GOTOPOOH
TC +3 # PROCEED TC +3 # PROCEED
# Page 793 # Page 793
# NOTE: NODOFLAG WILL BE SET IN CM/DAPON. *** # NOTE: NODOFLAG WILL BE SET IN CM/DAPON. <<<
TC -5 # ENTER TC -5 # ENTER
TC P61.3 # FOR PHASCHNG AND ENDOFJOB TC P61.3 # FOR PHASCHNG AND ENDOFJOB.
+3 TC POSTJUMP +3 TC POSTJUMP
CADR CM/DAPON # DISABLE RCS DAP, ENABLE ENTRY DAP AND CADR CM/DAPON # DISABLE RCS DAP, ENABLE ENTRY DAP AND
@ -342,6 +342,7 @@ POSECADR 2CADR CM/POSE
# MOD NO: 1 SEPT. 19, 1967 # MOD NO: 1 SEPT. 19, 1967
# MOD BY: R. HIRSCHKOP # MOD BY: R. HIRSCHKOP
# MOD NO: 2 MOD BY: RR BAIRNSFATHER DATE: 8 MAY 68 REVISED COMMENTS FOR COLOSSUS # MOD NO: 2 MOD BY: RR BAIRNSFATHER DATE: 8 MAY 68 REVISED COMMENTS FOR COLOSSUS
# MOD NO: 3 MOD BY: RR BAIRNSFATHER DATE: 1 MAR 69 N74
# FUNCTION: 1. TO START ENTRY GUIDANCE AT .05G SELECTING ROLL ATTITUDE, CONSTANT DRAG LEVEL, AND # FUNCTION: 1. TO START ENTRY GUIDANCE AT .05G SELECTING ROLL ATTITUDE, CONSTANT DRAG LEVEL, AND
# DRAG THRESHOLD, KA, WHICH ARE KEYED TO THE .05G POINT. # DRAG THRESHOLD, KA, WHICH ARE KEYED TO THE .05G POINT.
# 2. SELECT FINAL PHASE P67 IF V < 27000 FPS WHEN .2G OCCURS. # 2. SELECT FINAL PHASE P67 IF V < 27000 FPS WHEN .2G OCCURS.
@ -353,7 +354,7 @@ POSECADR 2CADR CM/POSE
# EXIT: BACK TO REENTRY CONTROL. # EXIT: BACK TO REENTRY CONTROL.
# SUBROUTINE CALLS: NEWMODEX # SUBROUTINE CALLS: NEWMODEX
BANK 25 BANK 26
SETLOC P60S1 SETLOC P60S1
BANK BANK
@ -383,7 +384,7 @@ V06N74 VN 0674
COUNT* $$/P65 COUNT* $$/P65
P65 TC NEWMODEX # ENTER VIA RTB WHEN RANGE < 25 N M OF P65 TC NEWMODEX # ENTER VIA RTB WHEN RANGE < 25 NM OF
MM 65 # TARGET. MM 65 # TARGET.
CA PRIO13 CA PRIO13
@ -517,10 +518,10 @@ SERVCAD2 = SERVCAD1
# MOD BY: RR BAIRNSFATHER LOG SECTION: P61-P67 # MOD BY: RR BAIRNSFATHER LOG SECTION: P61-P67
# MOD NO: 1 MOD BY: RR BAIRNSFATHER DATE: 22 JUN 67 RESTARTS. # MOD NO: 1 MOD BY: RR BAIRNSFATHER DATE: 22 JUN 67 RESTARTS.
# FUNCTIONAL DESCRIPTION: CALLED BY BOTH P61 AND P62 # FUNCTIONAL DESCRIPTION: CALLED BY BOTH P61 AND P62
# FIRST, TEST TO SEE IF AVERAGEG IS ON. IF NOT, UPDATE THE STATE VECTOR TO PRESENT TIME + TOLERANCE # FIRST, TEST TO SEE IF AVERAGEG IS ON. IF NOT, UPDATE THE STATE VECTOR TO PRESENT TIME + TOLERANCE
# AND TURN ON AVERAGEG AT THAT TIME, AND CONTINUE. OTHERWISE CONTINUE: SEE IF IMU Y AXIS IS # AND TURN ON AVERAGEG AT THAT TIME, AND CONTINUE. OTHERWISE CONTINUE: SEE IF IMU Y AXIS IS
# WITHIN 30 DEG OF VAR. IF YES, EXIT SUBROUTINE S61.1. IF SO, SEE IF -Y AXIS OF IMU IS WITHIN # WITHIN 30 DEG OF V*R. IF YES, EXIT SUBROUTINE S61.1. IF NO, SEE IF -Y AXIS OF IMU IS WITHIN
# 30 DEG OF VAR. IF YES, DISPLAY ALARM: 01427 IMU REVERSED. # 30 DEG OF V*R. IF YES, DISPLAY ALARM: 01427 IMU REVERSED.
# IF NO, DISPLAY ALARM: 01426 IMU UNSATISFACTORY. # IF NO, DISPLAY ALARM: 01426 IMU UNSATISFACTORY.
# IN EITHER OF THESE LAST 2 CASES, WAIT 10 SEC AND THEN EXIT SUBROUTINE S61.1. # IN EITHER OF THESE LAST 2 CASES, WAIT 10 SEC AND THEN EXIT SUBROUTINE S61.1.
# #
@ -533,7 +534,7 @@ SERVCAD2 = SERVCAD1
# C(MPAC) UNSPECIFIED # C(MPAC) UNSPECIFIED
# PUSHLOC UNSPECIFIED # PUSHLOC UNSPECIFIED
# #
# SUBROUTINES CALLED: LOADTIME, CSMPREC, TPAGTREE, # SUBROUTINES CALLED: LOADTIME, CSMPREC, TPAGREE,
# WAITLIST, JOBSLEEP, JOBWAKE, PREREAD, ALARM, GODSPR, BANKCALL, DELAYJOB # WAITLIST, JOBSLEEP, JOBWAKE, PREREAD, ALARM, GODSPR, BANKCALL, DELAYJOB
# #
# NORMAL EXIT MODES: RVQ # NORMAL EXIT MODES: RVQ
@ -555,7 +556,7 @@ SERVCAD2 = SERVCAD1
# POSSIBLY PIPTIME1, RATT, VATT, TDEC1, RN1, VN1, QTEMP, X1 IF UPDATED # POSSIBLY PIPTIME1, RATT, VATT, TDEC1, RN1, VN1, QTEMP, X1 IF UPDATED
# PUSH LIST LOCS USED BY CSMPREC # PUSH LIST LOCS USED BY CSMPREC
EBANK= AOG # FOR 60GENRET, S61DT EBANK= AOG # FOR 60GENRET. S61DT
BANK 26 BANK 26
SETLOC P60S3 SETLOC P60S3
BANK BANK
@ -650,17 +651,17 @@ C(30)LIM 2DEC .566985 # = 1.0 - .5 COS(30)
# Page 806 # Page 806
# PROGRAM NAME: S61.2 DATE: 14 FEB 67 # PROGRAM NAME: S61.2 DATE: 14 FEB 67
# MOD NO: 1 LOG SECTION: P61-P67 # MOD NO: 1 LOG SECTION: P61-P67
# MOD BY: NORTH / BAIRNSFATHER # MOD BY: MORTH / BAIRNSFATHER
# MOD NO: 2 MOD BY: NORTH/BAIRNSFATHER DATE: 11 MAY 67 ADD 2ND ITER FOR ERAD AT 400K FT. # MOD NO: 2 MOD BY: MORTH/BAIRNSFATHER DATE: 11 MAY 67 ADD 2ND ITER FOR ERAD AT 400K FT.
# MOD NO: 3 MOD BY: RR BAIRNSFATHER DATE: 21 NOV 67 VARIABLE MU ADDED. # MOD NO: 3 MOD BY: RR BAIRNSFATHER DATE: 21 NOV 67 VARIABLE MU ADDED.
# MOD NO: 4 MOD BY: RR BAIRNSFATHER DATE: 21 MAR 68 DIFFERENT EARTH/MOON SCALES IN TFF'S # MOD NO: 4 MOD BY: RR BAIRNSFATHER DATE: 21 MAR 68 DIFFERENT EARTH/MOON SCALES IN TFF'S
# #
# FUNCTIONAL DESCRIPTION: CALLED IN P61. PROVIDES DISPLAYS FOR NOUNS N60 AND N63 . # FUNCTIONAL DESCRIPTION: CALLED IN P61. PROVIDES DISPLAYS FOR NOUNS N60 AND N63.
# PROGRAM CALCULATES ENTRY DISPLAY OF MAXIMUM ACCELERATION EXPECTED (GMAX) AND ALSO THE EXPECTED # PROGRAM CALCULATES ENTRY DISPLAY OF MAXIMUM ACCELERATION EXPECTED (GMAX) AND ALSO THE EXPECTED
# INERTIAL VELOCITY (VPRED) AND ENTRY ANGLE (GAMMAEI) THAT WILL OBTAIN AT 400K FT ABOVE THE FISCHER # INERTIAL VELOCITY (VPRED) AND ENTRY ANGLE (GAMMAEI) THAT WILL OBTAIN AT 400K FT ABOVE THE FISCHER
# ELLIPSOID. PROGRAM ALSO CALCULATES A SECOND DISPLAY RELATIVE TO THE EMSALT ABOVE FISCHER ELLIPSOID # ELLIPSOID. PROGRAM ALSO CALCULATES A SECOND DISPLAY RELATIVE TO THE EMSALT ABOVE FISCHER ELLIPSOID
# AND CONSISTS OF RANGE TO SPLASH FROM NOW (RTGO) , PREDICTED INERTIAL VELOCITY (VIO) , AND THE TIME TO # AND CONSISTS OF RANGE TO SPLASH FROM NOW (RTGO), PREDICTED INERTIAL VELOCITY (VIO), AND THE TIME TO
# GO FROM NOW (TTE) . # GO FROM NOW (TTE).
# #
# CALLING SEQUENCE: CALL # CALLING SEQUENCE: CALL
# S61.2 # S61.2
@ -692,7 +693,7 @@ C(30)LIM 2DEC .566985 # = 1.0 - .5 COS(30)
# THETAH THETAH/360 RANGE ANGLE LEFT BY ENTRY / P61 # THETAH THETAH/360 RANGE ANGLE LEFT BY ENTRY / P61
# UNITW (0) UNIT POLAR VECTOR LEFT BY PAD LOAD # UNITW (0) UNIT POLAR VECTOR LEFT BY PAD LOAD
# EMSALT (-29) M EMS INTERFACE ALTITUDE LEFT BY PAD LOAD # EMSALT (-29) M EMS INTERFACE ALTITUDE LEFT BY PAD LOAD
# ORBITAL REENTRY: 284843 FT., LUNAR REENTRY: 297431 FT. # ORBITAL REENTRY: 284843 FT, LUNAR REENTRY: 297431 FT.
# #
# DEBRIS: QPRET, # DEBRIS: QPRET,
# ALL PDL LOCATIONS ABOVE 12D, INCLUDING X1,X2,S1,S2 # ALL PDL LOCATIONS ABOVE 12D, INCLUDING X1,X2,S1,S2
@ -790,7 +791,7 @@ CALLCON CALL
PREVGAM # VGAMCALC WITH NEW RTERM PREVGAM # VGAMCALC WITH NEW RTERM
# VBAR = (V(FPS) - 36KF/S) / 20 F/S # VBAR = (V(FPS) - 36KF/S) / 20KF/S
# GMAX = (4/(1 + 4.8 VBARSQ))(GAM - 6.05 - 2.4 VBARSQ) - 10(L/D - .3) + 10 ASSUME L/D = 0.3, BANK =0. # GMAX = (4/(1 + 4.8 VBARSQ))(GAM - 6.05 - 2.4 VBARSQ) - 10(L/D - .3) + 10 ASSUME L/D = 0.3, BANK =0.
# GMAXCALC # GMAXCALC
@ -822,7 +823,7 @@ CALLCON CALL
# Page 810 # Page 810
# DISPLAY USES GMAX AS SP, SO LO WORD IS WRITTEN OVER BY VPRED. # DISPLAY USES GMAX AS SP, SO LO WORD IS WRITTEN OVER BY VPRED.
ERADM # = FISCHER RADIUS (-29) M ERADM # = FISCHER RADIUS (-29) M
DAD CALL # 2 ND ITERATION FOR FISCHER RADIUS DAD CALL # 2ND ITERATION FOR FISCHER RADIUS
400KFT 400KFT
CALCTFF # ESTABLISH TRANSFER ANGLE DATA. CALCTFF # ESTABLISH TRANSFER ANGLE DATA.
CALL CALL
@ -855,7 +856,7 @@ LUNENT DLOAD GOTO
CALLCON CALLCON
290KFT 2DEC 88392.0 B-29 290KFT 2DEC 88392.0 B-29
KTETA1 2DEC* .421844723 E2 B-14* # 110 2PI/16384(163.84) KTETA1 2DEC* .421844723 E2 B-14* # 1100 2PI/16384(163.84)
36KFT/S 2DEC 109.728 B-7 # (-7) M/CS = 36 KFT/S (-7) 36KFT/S 2DEC 109.728 B-7 # (-7) M/CS = 36 KFT/S (-7)
@ -869,9 +870,9 @@ KR2 2DEC .54931641 # = (360/4) 100 (-14) = 9000 B-14
KR3 2DEC 1000 B-14 # = 100 (10.0) (-14) G,S KR3 2DEC 1000 B-14 # = 100 (10.0) (-14) G,S
# Page 811 # Page 811
# ASSUMES L/D = 0.3, BANK =0. # ASSUMES L/D = 0.3, BANK = 0.
RTRIAL 2DEC 6460097.18 B-29 # RPAD +264643 FT =21 194 545 FT RTRIAL 2DEC 6460097.18 B-29 # RPAD +284643 FT =21 194 545 FT
# RPAD DEFINED AS 20 909 901.57 FT =6 373 336 M # RPAD DEFINED AS 20 909 901.57 FT =6 373 338 M
400KFT 2DEC 121920 B-29 # METERS 400KFT 2DEC 121920 B-29 # METERS
# 300KFT 2DEC 91440 B-29 # (-29) M # 300KFT 2DEC 91440 B-29 # (-29) M
@ -895,14 +896,14 @@ VEMSCON 2DEC -.0389676 B-14 # = -HS D / 2 PI (-14) M SQ / CS SQ
# #
# FUNCTIONAL DESCRIPTION: GIVEN THE PRESENT POSITION, UNITR, CALCULATE A NEW UNITR THAT IS ROTATED THROUGH # FUNCTIONAL DESCRIPTION: GIVEN THE PRESENT POSITION, UNITR, CALCULATE A NEW UNITR THAT IS ROTATED THROUGH
# TRANSFER ANGLE, THETA, ALONG THE TRAJECTORY. THEN CALCULATE SIN(LAT) AND USE TO OBTAIN FISCHER RADIUS. # TRANSFER ANGLE, THETA, ALONG THE TRAJECTORY. THEN CALCULATE SIN(LAT) AND USE TO OBTAIN FISCHER RADIUS.
# SINCE FISHCALC USED UNI (LEFT BY ENTRY) EARTH SCALING IS ASSUMED. (WILL IMPROVE FOR SUITABLE TENNANT) # SINCE FISHCALC USES UNI (LEFT BY ENTRY) EARTH SCALING IS ASSUMED. (WILL IMPROVE FOR SUITABLE TENNANT)
# #
# CALLING SEQUENCE: CALL # CALLING SEQUENCE: CALL
# FISHCALC # FISHCALC
# ENTER WITH .5 SIN(THETA) IN MPAC. # ENTER WITH .5 SIN(THETA) IN MPAC.
# PUSHLOC IS AT PDL+0, AN ARBITRARY BASE VALUE IF LEQ 8D # PUSHLOC IS AT PDL+0, AN ARBITRARY BASE VALUE IF LEQ 8D
# #
# SUBROUTINES CALLED: GET ERAD # SUBROUTINES CALLED: GETERAD
# #
# NORMAL EXIT MODE: RVQ # NORMAL EXIT MODE: RVQ
# #
@ -956,7 +957,7 @@ DUMPFISH GOTO
# #
# VGAM = SQRT(VN VN/MU + 2(RN-RTERM)/(RN RTERM) ) RTMU # VGAM = SQRT(VN VN/MU + 2(RN-RTERM)/(RN RTERM) ) RTMU
# #
# COSGAM = H / RTERM VGAM = SQRT (LCP) / (RTERM VGAM/RTMU) # COSGAM = H / RTERM VGAM = SQRT(LCP) / (RTERM VGAM/RTMU)
# #
# VGAMCALC ASSUMES THAT THE TERMINAL RADIUS IS LESS THAN THE PRESENT RADIUS. BOTH CALCTFF AND CALCTPER # VGAMCALC ASSUMES THAT THE TERMINAL RADIUS IS LESS THAN THE PRESENT RADIUS. BOTH CALCTFF AND CALCTPER
# MAKE THIS ASSUMPTION. # MAKE THIS ASSUMPTION.
@ -977,7 +978,7 @@ DUMPFISH GOTO
# PUSHLOC AT PDL+2 # PUSHLOC AT PDL+2
# #
# ERASABLE INITIALIZATION REQD: # ERASABLE INITIALIZATION REQD:
# TFF/RTMU E: (17) M: (14) 1/SQRT(MU) LEFT BY TFFCONIC # TFF/RTMU E: (17) M: (14) 1/SQRT(MU) LEFT BY TFFCONIC.
# RMAG1 E: (-29) M: (-27) M PRESENT RADIUS LENGTH LEFT BY TFFCONIC # RMAG1 E: (-29) M: (-27) M PRESENT RADIUS LENGTH LEFT BY TFFCONIC
# NRMAG E: (-29+NR) M NORM LENGTH OF PRESENT POSITION LEFT BY TFFCONIC # NRMAG E: (-29+NR) M NORM LENGTH OF PRESENT POSITION LEFT BY TFFCONIC
# M: (-27+NR) # M: (-27+NR)
@ -994,7 +995,7 @@ DUMPFISH GOTO
PREVGAM SL* # ENTER WITH NEW RTERM IN MPAC PREVGAM SL* # ENTER WITH NEW RTERM IN MPAC
# E: (-29) M: (-27) # E: (-29) M: (-27)
0,1 # X1 = -NR 0.1 # X1 = -NR
STORE NRTERM # RTERM M E: (-29+NR) M: (-27+NR) STORE NRTERM # RTERM M E: (-29+NR) M: (-27+NR)
VGAMCALC DLOAD DMP VGAMCALC DLOAD DMP
@ -1060,7 +1061,7 @@ DUMPVGAM RVQ
# ERASABLE INITIALIZATION REQUIRED: # ERASABLE INITIALIZATION REQUIRED:
# TFFX X LEFT BY CALCTFF OR CALCTPER # TFFX X LEFT BY CALCTFF OR CALCTPER
# TFFTEM E: (-59+2NR) ARG LEFT BY CALCTFF OR CALCTPER # TFFTEM E: (-59+2NR) ARG LEFT BY CALCTFF OR CALCTPER
# M: (-55+2NR) WHERE ARG = LCF ZZ SGN(DELF) OR ARG = LCP/ALFA SGN(DELF) # M: (-55+2NR) WHERE ARG = LCP ZZ SGN(DELF) OR ARG = LCP/ALFA SGN(DELF)
# NRTERM E: (-29+NR) M NORM LENGTH OF TERMINAL RADIUS LEFT BY CALCTFF OR CALCTPER # NRTERM E: (-29+NR) M NORM LENGTH OF TERMINAL RADIUS LEFT BY CALCTFF OR CALCTPER
# M: (-27+NR) # M: (-27+NR)
# NRMAG E: (-29+NR) M NORM LENGTH OF PRESENT POSITION LEFT BY TFFCONIC # NRMAG E: (-29+NR) M NORM LENGTH OF PRESENT POSITION LEFT BY TFFCONIC
@ -1120,7 +1121,7 @@ VRCALC VLOAD DOT
# #
# FUNCTIONAL DESCRIPTION # FUNCTIONAL DESCRIPTION
# #
# COMPUTE DESIRED GIMBAL ANGLES FOR ENTRY ATTITUDE # COMPUTE DESIRED GIMBOL ANGLES FOR ENTRY ATTITUDE
# THE FOLLOWING TRAJECTORY TRIAD IS AVAILABLE IN MEMORY AND IS COMPUTED EACH 2 SECONDS BY CM/POSE IN # THE FOLLOWING TRAJECTORY TRIAD IS AVAILABLE IN MEMORY AND IS COMPUTED EACH 2 SECONDS BY CM/POSE IN
# REFERENCE COORDINATES (V = VELOCITY RELATIVE TO EARTH): # REFERENCE COORDINATES (V = VELOCITY RELATIVE TO EARTH):
# #
@ -1136,7 +1137,7 @@ VRCALC VLOAD DOT
# UZD = UXD * UYD # UZD = UXD * UYD
# #
# USE THE DESIRED SET (IN REFERENCE COORDS) AND REFSMMAT TO CALL CALCGA AND OBTAIN GIMBAL ANGLES # USE THE DESIRED SET (IN REFERENCE COORDS) AND REFSMMAT TO CALL CALCGA AND OBTAIN GIMBAL ANGLES
# IN 2S, C IN MPAC, +2 AND THETAD, +2. # IN 2S,C IN MPAC, +2 AND THETAD, +2.
# #
# CALLING SEQUENCE # CALLING SEQUENCE
# #
@ -1158,14 +1159,14 @@ VRCALC VLOAD DOT
# ERASABLE INITIALIZATION REQUIRED # ERASABLE INITIALIZATION REQUIRED
# #
# ROLLC ROLL COMMAND DP 1'S COMP AT 1REV # ROLLC ROLL COMMAND DP 1'S COMP AT 1REV
# ALFAPAD SP 1'S C / 180 LEFT BY PAD LOAD ALFATRIM IS NEGATIVE. # ALFAPAD SP 1S,C / 180 LEFT BY PAD LOAD ALFATRIM IS NEGATIVE.
# UXA/2 REF COORDS LEFT BY CM/POSE # UXA/2 REF COORDS LEFT BY CM/POSE
# UYA/2 REF COORDS LEFT BY CM/POSE # UYA/2 REF COORDS LEFT BY CM/POSE
# UZA/2 REF COORDS LEFT BY CM/POSE # UZA/2 REF COORDS LEFT BY CM/POSE
# #
# OUTPUT # OUTPUT
# #
# CPHI GIMBAL ANGLES (O,I,M) 2'S COMP TP (O,I,M)/180 # CPHI GIMBAL ANGLES (O,I,M) 2:S COMP TP (O,I,M)/180
# #
# DEBRIS # DEBRIS
# #
@ -1219,7 +1220,7 @@ S62.3 SETPD SLOAD
CPHIFLAG # CAUSE CALCGA TO STORE ANS IN TP CPHI CPHIFLAG # CAUSE CALCGA TO STORE ANS IN TP CPHI
CALCGA CALCGA
# CALCGA WILL RETURN TO ORIGINAL CALLER # CALCGA WILL RETURN TO ORIGINAL CALLER
# VIA QPRET WITH 2'S COMP. ANGLES IN CPHI # VIA QPRET WITH 2,S COMP. ANGLES IN CPHI