GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011 11:40 FEB. 26, 1971Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were obtained by digitally photographing
an Artemis 72 (Apollo 15-17 Command Module) program listing from a private
collection and then
modifying pre-existing Comanche 55 (Apollo 11) source files to
incorporate changes. Photography was by Ron Burkey, and transcription
was performed by a team of volunteers. Note that the page images
presented online are of reduced quality, and that additional images
may be available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011 11:40 FEB. 26, 1971Note that the date is the date of the printout, not the date of the program revision. |
035293,000002: ## Copyright: Public domain.
035294,000003: ## Filename: P61-P67.agc
035295,000004: ## Purpose: Part of the source code for Artemis (i.e., Colossus 3),
035296,000005: ## build 072. This is for the Command Module's (CM)
035297,000006: ## Apollo Guidance Computer (AGC), for
035298,000007: ## Apollo 15-17.
035299,000008: ## Assembler: yaYUL
035300,000009: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
035301,000010: ## Website: www.ibiblio.org/apollo/index.html
035302,000011: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Artemis072/
035303,000012: ## Mod history: 2009-08-16 JL Adapted from corresponding Comanche 055 file.
035304,000013: ## 2010-02-01 JL White-space fixes. Added missing line.
035305,000014: ## 2010-02-20 RSB Un-##'d this header.
035306,000015: ## 2017-02-08 RSB Proofed comment text by diff'ing vs Comanche 55.
035307,000016: ## 2017-03-17 RSB Comment-text fixes identified by 4-way diff'ing
035308,000017: ## of Colossus 237 & 249, Comanche 55, and Artemis 72.
035309,000018: ## 2021-05-30 ABS DEC -> DEC* for extended address field.
035310,000019:
|
|
Page 792 |
035312,000021:
035313,000022: # PROGRAM: P61
035314,000023: # MOD NO.: 0 MAR. 13, 1967
035315,000024: # MOD BY: R. HIRSCHKOP
035316,000025: # MOD NO: 1 MOD BY: RR BAIRNSFATHER DATE: 22 JUN 67 RESTARTS.
035317,000026: # MOD NO: 2 MOD BY: RR BAIRNSFATHER DATE: 17 JAN 68 COLOSSUS GSOP CHANGES.
035318,000027: # MOD NO: 3 MOD BY: RR BAIRNSFATHER DATE: 8 MAY 68 DELETE CMSM MANEUVER (PCR 50)
035319,000028: # MOD NO: 4 MOD BY: RR BAIRNSFATHER DATE: 1 JUL 69 PCR 787: TICK TTE
035320,000029: # FUNCTION: TO CALCULATE AND DISPLAY EMS INITIALIZATION DATA
035321,000030: # CALLING SEQUENCE- BY V37
035322,000031: # EXIT- TO P62
035323,000032: # SUBROUTINE CALLS- S61.1 , S61.3 , GOFLASH , FLAGUP , R02BOTH
035324,000033: # ERASABLE INITIALIZATION:
035325,000034: # EMSALT (-29) M .05G ALTITUDE ABOVE FISCHER ELLIPSOID PAD LOADED.
035326,000035: # ALFAPAD /180 HYPERSONIC CM TRIM ANGLE OF ATTACK PAD LOADED
035327,000036: # OUTPUT: THE FOLLOWING REGISTERS ARE WRITTEN IN FOR USE BY DISPLAYS
035328,000037: # GMAX 100 GMAX (-14) G,S MAXIMUM ACCELERATION
035329,000038: # VPRED (-7) M/CS PREDICTED VELOCITY AT 400K FT
035330,000039: # GAMMAEI GAMMA/360 PREDICTED GAMMA AT 400K FT
035331,000040: # RTGO THETAH/360 RANGE ANGLE TO SPLASH FROM EMSALT EMSALT IS PAD LOADED
035332,000041: # VIO (-7) M/CS INERTIAL VELOCITY AT EMSALT EMSALT IS PAD LOADED
035333,000042: # TTE (-28) CS TIME TO EMSALT EMSALT IS PAD LOADED
035334,000043: # LAT(SPL) /360 TARGET LOCATION LEFT BY DSKY
035335,000044: # LNG(SPL) /360 TARGET LOCATION LEFT BY DSKY
035336,000045: # HEADSUP (0) +1 = LIFT DOWN, -1 = LIFT UP LEFT BY DSKY
035337,000046: # DEBRIS: SEE SUBROUTINES.
035338,000047:
035339,000048: 26,2000 SETLOC P60S
035340,000049: 26,2000 BANK
035341,000050:
035342,000051: 26,2234 E6,1661 EBANK= AOG
035343,000052:
035344,000053: 26,2234 COUNT* $$/P61
035345,000054:
035346,000055: 26,2234 34753 P61 CA BIT14 # EXTENDED VERB SHOULD BE FREE THIS CLOSE
035347,000056: 26,2235 55247 TS EXTVBACT # TO V37
035348,000057: # LOCK OUT EXTENDED VERBS SO CAN USE TFF
035349,000058: # ROUTINES.EXT VERB ERASE IS USED
035350,000059:
035351,000060: 26,2236 44770 CS ONE # REMOVE IF HEADSUP EVER ON UPLINK DATA
035352,000061: 26,2237 55726 TS HEADSUP # PRELOAD
035353,000062:
035354,000063: 26,2240 02546 TC S61.1 # CHECK STATE VECTOR AND IMU ORIENTATION
035355,000064: # RV 60GENRET. DOES PHASCHNG, GROUP 4.
035356,000065:
035357,000066: 26,2241 35034 CA V06N61 # LAT(SPL) LNG(SPL) HEADSUP
035358,000067: # XXX.XX DEG XXX.XX DEG XXXXX.
035359,000068: 26,2242 05540 TC VNFLASHR
035360,000069: 26,2243 02247 TC P61.4
035361,000070: 26,2244 05402 P61.3 TC PHASCHNG
|
|
Page 793 |
035363,000072: 26,2245 00014 OCT 00014
035364,000073:
035365,000074: 26,2246 05205 TC ENDOFJOB
035366,000075:
035367,000076: 26,2247 22007 P61.4 ZL
035368,000077: 26,2250 11726 CCS HEADSUP # C(HEADSUP)= +1/-1
035369,000078: 26,2251 34753 CA BIT14 # IF HEADSUP POS,ROLLC =180 DEG.(LIFT DWN)
035370,000079: 26,2252 12253 NOOP # IF HEADSUP NEG,ROLLC =0 (LIFT UP)
035371,000080: 26,2253 53716 DXCH ROLLC # ROLLC IS USED BY S62.3: GIM ANG AT .05G
035372,000081:
035373,000082: 26,2254 34753 AGIN,MON CA BIT14 # LOCK OUT EXTENDED VERBS.(REDUNDANT ON
035374,000083: 26,2255 55247 TS EXTVBACT # INITIAL PASS)
035375,000084:
035376,000085: 26,2256 06006 TC INTPRET
035377,000086: 26,2257 77745 NEWRNVN DLOAD
035378,000087: 26,2260 01044 PIPTIME # SAVE TIME OF RN,VN TO DETERMINE IF AN
035379,000088: 26,2261 37651 STCALL MM # UPDATE HAS OCCURRED
035380,000089: 26,2262 52063 STARTEN1 # INITIALIZE
035381,000090: 26,2263 43175 VLOAD CLEAR # 'TTE' WILL BE DECREMENTED UNTIL
035382,000091: 26,2264 01030 RN
035383,000092: 26,2265 03274 .05GSW # THE DRAG > 0.05 G .
035384,000093: # .05GSW SET =1 BY FRESH START.
035385,000094:
035386,000095: 26,2266 02320 STORE RONE
035387,000096: 26,2267 77656 UNIT
035388,000097: 26,2270 26334 STOVL URONE
035389,000098: 26,2271 01036 VN
035390,000099: 26,2272 02326 STORE VONE
035391,000100: 26,2273 53435 VXV UNIT
035392,000101: 26,2274 02334 URONE
035393,000102: 26,2275 03502 STORE UNI
035394,000103: 26,2276 45345 DUMPP61 DLOAD DSU
035395,000104: 26,2277 03651 MM # INITIAL VALUE OF PIPTIME
035396,000105: 26,2300 01044 PIPTIME
035397,000106: 26,2301 45040 BMN CALRB
035398,000107: 26,2302 54257 NEWRNVN # UPDATED... GO TRY AGAIN
035399,000108: 26,2303 54652 S61.2 # GET DISPLAY DATA FOR N60 AND N63
035400,000109: # AND RETURN IN BASIC, BELOW.
035401,000110: 26,2304 05527 P61.1 TC CLEARMRK
035402,000111: 26,2305 35033 CA V06N60 # GMAX VPRED GAMMAEI
035403,000112: # XXX.XX G XXXXX. FPS XXX.XX DEG
035404,000113: 26,2306 05535 TC VNFLASH
035405,000114:
035406,000115: # 'TICKTTE' DECREMENTS 'TTE' DISPLAY NOUN N63 AT A 2 SECOND RATE. 'TICKTTE' IS LOCATED IN 'SERVICER' AND
035407,000116: # OPERATES ONLY DURING P61 THROUGH P63. THUS N63 IS 'ON CALL' & ON ENTRY DOWNLIST THROUGH P63.
035408,000117: # 'TICKTTE' WILL GIVE PROPER ANSWER IN EVENT OF RESTART OR A RECYCLE VIA V32.
035409,000118:
035410,000119: 26,2307 32425 CA V16N63 # RTGO VIO TTE
035411,000120: # XXXX.X NM XXXXX. FPS XXBXX M,S
035412,000121: 26,2310 04636 TC BANKCALL
035413,000122: 26,2311 20743 CADR GOFLASH
035414,000123: 26,2312 04103 TC GOTOPOOH
|
|
Page 794 |
035416,000125: 26,2313 02315 TC +2
035417,000126: 26,2314 02254 TC AGIN,MON # REDO CONIC CALC. ASSUME EXT VB INACTIVE
035418,000127:
035419,000128: # .... THEN FALL INTO P62
035420,000129:
|
|
Page 795 |
035422,000131:
035423,000132: # PROGRAM- P62
035424,000133: # MOD NO.- 0 MAR. 13, 1967
035425,000134: # MOD BY- R. HIRSCHKOP
035426,000135: # MOD NO: 1 MOD BY: RR BAIRNSFATHER DATE: 21 MAR 67
035427,000136: # MOD NO: 2 MOD BY: RR BAIRNSFATHER DATE: 22 JUN 67 RESTARTS.
035428,000137: # MOD NO: 3 MOD BY: RR BAIRNSFATHER DATE: 17 JAN 68 COLOSSUS GSOP CHANGES.
035429,000138: # MOD NO: 4 MOD BY: RR BAIRNSFATHER DATE: 8 MAY 68 MOVE START OF DESIRED GIMBAL CALC.
035430,000139: # FUNCTION- 1) TO NOTIFY CREW WHEN GNC SYSTEM IS PREPARED FOR CM/SM SEPARATION
035431,000140: # 2) TO ORIENT THE CM TO THE CORRECT ATTITUDE FOR ATMOSPHERIC ENTRY
035432,000141: # CALLING SEQUENCE- BY V37 OR DIRECTLY FROM P61
035433,000142: # EXIT- TO P63
035434,000143: # ERASABLE INITIALIZATION:
035435,000144: # ALFAPAD LEFT BY PAD LOAD
035436,000145: # LADPAD LEFT BY PAD LOAD
035437,000146: # LODPAD LEFT BY PAD LOAD
035438,000147: # LAT(SPL) (MAY BE CHANGED BELOW) LEFT BY DSKY, VIA P61
035439,000148: # LNG(SPL) (MAY BE CHANGED BELOW) LEFT BY DSKY, VIA P61
035440,000149: # HEADSUP (MAY BE CHANGED BELOW) LEFT BY DSKY, VIA P61
035441,000150: # SUBROUTINE CALLS: NEWMODEX , S61.1 , CM/DAPIC , CM/DAPON , R02BOTH , GOPERF1 , GOFLASH , GODSPR
035442,000151:
035443,000152: 26,2315 COUNT* $$/P62
035444,000153:
035445,000154: 26,2315 05344 +2 TC NEWMODEX # MODE CHANGE IF ENTERED FROM P61
035446,000155: 26,2316 00076 MM 62 B-14 # MODE CHANGE AUTOMATIC VIA V 37.
035447,000156: 26,2317 34770 CA ONE
035448,000157: 26,2320 54332 TS DNLSTCOD
035449,000158:
035450,000159: 26,2321 02546 P62 TC S61.1 # CHECK STATE VECTOR AND IMU ORIENTATION.
035451,000160:
035452,000161: 26,2322 06006 TC INTPRET
035453,000162: 26,2323 47131 SSP RTB
035454,000163: 26,2324 03325 POSEXIT
035455,000164: 26,2325 54402 P62.3 # CALCULATE DESIRED .05G GIMBAL ANGLES,
035456,000165: # WITHOUT DISPLAY.
035457,000166: 26,2326 41703 CM/DAPIC # START CM/POSE AND BODY RATE CALC
035458,000167:
035459,000168: # DOES 2PHSCHNG, OCT 40116, OCT 05024, OCT 13000.
035460,000169: # CM/DAPIC SETS EBANK = EBAOG
035461,000170: # AND RETURNS IN BASIC TO P62.2.
035462,000171: 26,2327 00006 P62.2 EXTEND
035463,000172: 26,2330 32431 DCA POSECADR # CONTINUE WITH CM/POSE AFTER AV G.
035464,000173: 26,2331 53062 DXCH AVEGEXIT
035465,000174:
035466,000175: 26,2332 32545 CAF OCT41 # REQUEST SEPARATION
035467,000176: 26,2333 04636 TC BANKCALL
035468,000177: 26,2334 21147 CADR GOPERF1R
035469,000178: 26,2335 04103 TC GOTOPOOH
035470,000179: 26,2336 02341 TC +3 # PROCEED
|
|
Page 796 |
035472,000181: # NOTE: NODOFLAG WILL BE SET IN CM/DAPON. <<<
035473,000182: 26,2337 02332 TC -5 # ENTER
035474,000183: 26,2340 02244 TC P61.3 # FOR PHASCHNG AND ENDOFJOB.
035475,000184:
035476,000185: 26,2341 04655 +3 TC POSTJUMP
035477,000186: 26,2342 41624 CADR CM/DAPON # DISABLE RCS DAP, ENABLE ENTRY DAP AND
035478,000187: # DO ATTITUDE HOLD.
035479,000188:
035480,000189: # WILL IDLE UNTIL CM/POSE DOES ONE UPDATE.
035481,000190: # CM/DAPON DOES NO PHASCHNG.
035482,000191:
035483,000192: 26,2343 35034 P62.1 CA V06N61 # LAT(SPL) LNG(SPL) HEADSUP
035484,000193: # XXX.XX DEG XXX.XX DEG 0000X.
035485,000194:
035486,000195: # TERMINATE ATTITUDE HOLD. SET UP COMMANDS:
035487,000196: # ROLLC, ALFACOM, BETACOM. BEGIN MANUVER TO
035488,000197: # ENTRY ATTITUDE.
035489,000198:
035490,000199: 26,2344 04636 TC BANKCALL
035491,000200: 26,2345 20743 CADR GOFLASH
035492,000201: 26,2346 02343 TC -3
035493,000202: 26,2347 02351 TC +2
035494,000203: 26,2350 02343 TC -5
035495,000204:
035496,000205: 26,2351 05402 TC PHASCHNG
035497,000206: 26,2352 04024 OCT 04024 # USE ENTRYVN FOR DISPLAY BELOW.
035498,000207:
035499,000208: # EBANK WAS SET IN CM/DAPON TO EBAOG
035500,000209:
035501,000210: 26,2353 11726 CCS HEADSUP # C(HEADSUP) = +/- 1
035502,000211: 26,2354 34753 CA BIT14 # IF HEADSUP POS, ROLLC=180 DEG (LIFT DWN)
035503,000212: 26,2355 12356 NOOP # IF HEADSUP NEG, ROLLC=0 DEG (LIFT UP)
035504,000213: 26,2356 55715 TS ROLLC
035505,000214: 26,2357 31411 CA ALFAPAD # NOMINAL ALFATRIM PAD LOADED, NEG. NO.
035506,000215: 26,2360 22007 ZL
035507,000216: 26,2361 53604 DXCH ALFACOM # SET ALFACOM = ALFA TRIM, BETACOM=0
035508,000217:
035509,000218: 26,2362 34770 CA ONE # PERMITS EXDAP2 TO CHANGE FLAG TO +0
035510,000219: 26,2363 55727 TS P63FLAG # AS INDICATOR. STARTS UP P63.
035511,000220:
035512,000221: 26,2364 35025 CA V06N22 # SET UP DISPLAY FOR CDU DESIRED VALUES
035513,000222: 26,2365 55122 TS ENTRYVN # FROM ENTRY ATTITUDE CALC, THAT IS
035514,000223: # ALREADY GOING.
035515,000224: 26,2366 05547 TC UPFLAG # TURN ON ENTRY DISPLAY
035516,000225: 26,2367 00134 ADRES ENTRYDSP # ENTRYDSP = 92D BIT 13 FLAG 6
035517,000226: # SKIP
|
|
Page 797 |
035519,000228: 26,2370 41700 CS CMDAPMOD # GO DIRECTLY TO P63 IF BODY ATTITUDE
035520,000229: 26,2371 74770 MASK ONE # IS SUCH THAT THE DELAY TASK: WAKEP62
035521,000230: 26,2372 00006 EXTEND # WILL BE OMITTED.
035522,000231: 26,2373 12422 BZF P63.1 # DISABLE GRP 4, GO TO ENDOFJOB.
035523,000232: # (IE, CONTINUE IF CMDAPMOD = -1, OR +0)
035524,000233: 26,2374 02406 TC P63
035525,000234:
035526,000235: # PUT JOB TO SLEEP UNTIL VEHICLE MANUVER HAS
035527,000236: # REDUCED ALFA TO +/-45 DEG. CONSIDER REMAINING
035528,000237: # 65 DEG (25 DEG IF ALFA NEG) TO ALFA TRIM TO
035529,000238: # OCCUR AT 3 DEG/SEC, AND TERMINATE P62 AT THAT
035530,000239: # TIME.
035531,000240: # TASK WAKEP62 IS CALLED FROM ENTRY DAP.
035532,000241:
035533,000242: 26,2375 35052 WAKEP62 CA PRIO13
035534,000243: 26,2376 05121 TC NOVAC
035535,000244: 26,2377 E6,1661 EBANK= AOG
035536,000245: 26,2377 02406 54066 2CADR P63
035537,000246:
035538,000247: 26,2401 05314 TC TASKOVER
035539,000248:
035540,000249: # EACH 2 SEC, CALCULATE GIMBAL ANGLES FOR ENTRY CON-
035541,000250: # DITIONS THAT WILL HOLD IF REORIENTATION WERE MADE
035542,000251: # AT PRESENT RN, VN. COME HERE FROM CM/POSE AND ALSO
035543,000252: # IN KEPLER PHASE OF ENTRY.
035544,000253:
035545,000254: 26,2402 52131 P62.3 SSP GOTO # SET RETURN ADDRESS SO THAT ROUTINE
035546,000255: 26,2403 00053 QPRET # GOES DIRECTLY TO ENTRY GUIDANCE EXIT
035547,000256: 26,2404 53574 ENDEXIT # THAT DOES ENTRY DISPLAY, GRP 5.
035548,000257: 26,2405 20412 S62.3 # PUT DESIRED CDU VALUES IN CPHI'S FOR
035549,000258: # N22 DISPLAY.
035550,000259:
|
|
Page 798 |
035552,000261: # P63
035553,000262: # PROGRAM- P63
035554,000263: # MOD NO.- 0 MAR. 13, 1967
035555,000264: # MOD BY- R. HIRSCHKOP
035556,000265: # MOD NO: 1 MOD BY: RR BAIRNSFATHER DATE: 22 JIN 67 RESTARTS.
035557,000266: # MOD NO: 2 MOD BY: RR BAIRNSFATHER DATE: 14 JUL 67 REVISED RESTARTS
035558,000267: # FUNCTION- 1) TO INITIALIZE THE ENTRY EQUATIONS
035559,000268: # 2) TO CONTINUE TO HOLD THE CM TO THE CORRECT ATTITUDE WITH RESPECT TO THE ATMOSPHERE FOR
035560,000269: # THE ONSET OF ENTRY DECELERATION. ROLL ANGLE IS LIFT UP/DOWN AS SPECIFIED BY HEADSUP.
035561,000270: # 3) TO SENSE .05G
035562,000271: # CALLING SEQUENCE- DIRECTLY FROM P62
035563,000272: # EXIT- TO ENDOFJOB
035564,000273: # SUBROUTINE CALLS- NEWMODEX , GODSPR
035565,000274:
035566,000275: 26,2406 COUNT* $$/P63
035567,000276:
035568,000277: 26,2406 05344 P63 TC NEWMODEX
035569,000278: 26,2407 00077 MM 63 B-14
035570,000279:
035571,000280: # ARRIVE WITH EBANK = AOG.
035572,000281:
035573,000282: 26,2410 32427 CA ENTCADR # CONTINUE AT STARTENT AFTER CM/POSE.
035574,000283:
035575,000284: # AT END OF STARTENT, CHANGE ADDRESS IN GOTOADDR
035576,000285: # TO CONTINUE AT SCALEPOP THEREAFTER.
035577,000286:
035578,000287: 26,2411 55724 TS POSEXIT
035579,000288:
035580,000289: 26,2412 32426 CA V06N64 # G VI R TO SPLSH
035581,000290: # XXX.XX G XXXXX. FPS XXXX.X NM
035582,000291: 26,2413 55122 TS ENTRYVN # FOR DISPLAY CALL IN OVERNOUT.
035583,000292:
035584,000293: 26,2414 44770 CS ONE # IN CASE FLAG IS LEFT AT +1 BY DAP. THE
035585,000294: 26,2415 55727 TS P63FLAG # -1 ASSURES THAT EXO-ATM DAP WILL NOT
035586,000295: # CALL P63 OUT OF SEQUENCE IN P66.
035587,000296:
035588,000297: 26,2416 05402 TC PHASCHNG # THIS IS REQUIRED TO PRESERVE CLEANDSP
035589,000298: 26,2417 00004 OCT 00004 # RETURN IN EVENT OF AN EXTENDED VERB..
035590,000299:
035591,000300: 26,2420 04636 TC BANKCALL # FLUSH 'N22' DISPLAY, IF ON. (OMIT
035592,000301: 26,2421 20715 CADR CLEANDSP # DISPLAY DURING 'STARTENT' PASS.)
035593,000302:
035594,000303: 26,2422 05402 P63.1 TC PHASCHNG
035595,000304: 26,2423 00004 OCT 00004 # DISABLE. DISPLAY RESTARTED VIA ENTRY.
035596,000305:
035597,000306: 26,2424 05205 TC ENDOFJOB
035598,000307:
035599,000308: 26,2425 04077 V16N63 VN 1663
035600,000309: 26,2426 01500 V06N64 VN 0664
035601,000310: 26,2427 52000 ENTCADR CADR STARTENT
|
|
Page 799 |
035603,000312: 26,2430 E7,1451 EBANK= RTINIT # TO CARY OVER INTO ENTRY STEERING.
035604,000313: 26,2430 03404 76067 POSECADR 2CADR CM/POSE
035605,000314:
|
|
Page 800 |
035607,000316:
035608,000317: # PROGRAM- P64
035609,000318: # MOD NO.- 1 SEPT. 19, 1967
035610,000319: # MOD BY- R. HIRSCHKOP
035611,000320: # MOD NO: 2 MOD BY: RR BAIRNSFATHER DATE: 8 MAY 68 REVISED COMMENTS FOR COLOSSUS
035612,000321: # MOD NO: 3 MOD BY: RR BAIRNSFATHER DATE: 1 MAR '69 N74
035613,000322: # FUNCTION- 1. TO START ENTRY GUIDANCE AT .05G SELECTING ROLL ATTITUDE, CONSTANT DRAG LEVEL, AND
035614,000323: # DRAG THRESHOLD, KA , WHICH ARE KEYED TO THE .05G POINT.
035615,000324: # 2. SELECT FINAL PHASE P67 IF V < 27000 FPS WHEN .2G OCCURS.
035616,000325: # 3. ITERATE FOR UP-CONTROL SOLUTION P65 IF V > 27000 FPS AND IF ALTITUDE RATE AND DRAG
035617,000326: # LEVEL CONDITIONS ARE SATISFIED. ENTER P65 WHEN CONSTANT DRAG CONTROLLER HAS BROUGHT RANGE
035618,000327: # AS PREDICTED TO WITHIN 25 NM OF DESIRED RANGE.
035619,000328: # 4. SELECT FINAL PHASE P67 IF NO UP-CONTROL SOLUTION EXISTS WITH VL > 18000 FPS.
035620,000329: # CALLING SEQUENCE- BY RTB FROM REENTRY CONTROL
035621,000330: # EXIT- BACK TO REENTRY CONTROL
035622,000331: # SUBROUTINE CALLS- NEWMODEX
035623,000332:
035624,000333: 26,2000 SETLOC P60S1
035625,000334: 26,2000 BANK
035626,000335:
035627,000336: # THIS DISPLAY IS CALLED EACH PASS THROUGH STEERING. RESTART PROTECTION IS VIA STEERING.
035628,000337:
035629,000338: 26,2432 COUNT* $$/P64
035630,000339:
035631,000340: 26,2432 05344 P64 TC NEWMODEX # ENTER VIA RTB WHEN .05G IS EXCEEDED.
035632,000341: 26,2433 00100 MM 64 B-14
035633,000342: 26,2434 32437 CA V06N74 # ROLLC VI D
035634,000343: # XXX.XX DEG XXXXX. FPS XXX.XX G
035635,000344: 26,2435 55122 TS ENTRYVN # DISPLAY VIA OVERNOUT.
035636,000345:
035637,000346: 26,2436 06030 TC DANZIG # ... AND CONTINUE IN INITROLL ...
035638,000347:
035639,000348: 26,2437 01512 V06N74 VN 0674
035640,000349:
|
|
Page 801 |
035642,000351: # PROGRAM: P65
035643,000352: # MOD NO: 0 MOD BY: RR BAIRNSFATHER DATE: 17 JAN 68 COLOSSUS GSOP ADDITION.
035644,000353: # FUNCTION: TO CONTINUE ENTRY GUIDANCE, USING THE UP-CONTROL PHASE TO STEER TO A CONTROLLED EXIT
035645,000354: # CONDITION. THIS PHASE TERMINATES A) IF D < Q7 FPSS, GO TO P66 ,
035646,000355: # B) IF RDOT NEG, AND IF V < VL +500 FPS, GO TO P67.
035647,000356:
035648,000357: # CALLING SEQUENCE: BY RTB FROM REENTRY CONTROL
035649,000358: # EXIT: BACK TO REENTRY CONTROL, OR TO ENDOFJOB.
035650,000359: # SUBROUTINE CALLS: NEWMODEX
035651,000360:
035652,000361: 26,2440 COUNT* $$/P65
035653,000362:
035654,000363: 26,2440 05344 P65 TC NEWMODEX # ENTER VIA RTB WHEN RANGE < 25 N M OF
035655,000364: 26,2441 00101 MM 65 B-14 # TARGET.
035656,000365:
035657,000366: 26,2442 35052 CA PRIO13
035658,000367: 26,2443 05121 TC NOVAC
035659,000368: 26,2444 1122 EBANK= ENTRYVN
035660,000369: 26,2444 02456 54062 2CADR P65.1
035661,000370:
035662,000371: 26,2446 05362 TC 2PHSCHNG # 2 PHASE CHG REQUIRED TO PREVENT RE-
035663,000372: 26,2447 00554 OCT 00554 # STARTING FLASHING DISPLAY TWICE.
035664,000373: 26,2450 10035 OCT 10035 # 4.55 SPOT AND SERVICER, HERE.
035665,000374: 26,2451 01,2223 4P55SPT1 = 4.55SPOT
035666,000375: 26,2451 01,2250 5P3SPT8 = 5.3SPOT
035667,000376: 26,2451 06006 TC INTPRET
035668,000377: 26,2452 47131 SSP RTB
035669,000378: 26,2453 03646 GOTOADDR # CHANGE ENTRY MODE TO UPCONTRL.
035670,000379: 26,2454 53034 UPCONTRL
035671,000380: 26,2455 52120 REFAZE10 # GO HERE TO REESTABLISH ENTRY SEQUENCER.
035672,000381: # AND CONTINUE AT UPCONTRL...
035673,000382:
035674,000383: 26,2456 05561 P65.1 TC DOWNFLAG
035675,000384: 26,2457 00134 ADRES ENTRYDSP # ENTRYDSP = 92D BIT 13 FLAG 6
035676,000385:
035677,000386: 26,2460 32472 CA V16N69 # ROLLC DL (Q7) VL
035678,000387: 26,2461 04636 TC BANKCALL # XXX.XX DEG XXX.XX G XXXXX. FPS
035679,000388: 26,2462 21101 CADR GOFLASHR
035680,000389: 26,2463 02460 TC -3 # NODOFLAG IS SET..
035681,000390: 26,2464 02467 TC +3
035682,000391: 26,2465 02460 TC -5
035683,000392: 26,2466 02244 TC P61.3 # EST. GRP 4 FOR DSPLAY AND DO ENDOFJOB
035684,000393: # IF PROCEED, CONTINUE.
035685,000394: 26,2467 05547 TC UPFLAG
035686,000395: 26,2470 00134 ADRES ENTRYDSP # ENTRYDSP = 92D BIT 13 FLAG 6
035687,000396:
035688,000397: 26,2471 02422 TC P63.1 # DISABLE GRP 4, START UP ENTRY DISPLAY
035689,000398: # N06V68 VIA OVERNOUT, AS USED IN P64.
|
|
Page 802 |
035691,000400: 26,2472 04105 V16N69 VN 1669
035692,000401:
|
|
Page 803 |
035694,000403: # PROGRAM: P66
035695,000404: # MOD NO: 0 MOD BY: RR BAIRNSFATHER DATE: 17 JAN 68 COLOSSUS GSOP ADDITIONS.
035696,000405: # FUNCTION: KEEP CM ATTITUDE IN TRIM TO THE RELATIVE VELOCITY VECTOR. ENTRY GUIDANCE STOPS GENERATING
035697,000406: # ROLL COMMANDS UNTIL DRAG BUILDS UP TO Q7+0.5 FPSS.
035698,000407: # CALLING SEQUENCE: VIA RTB FROM REENTRY CONTROL.
035699,000408: # EXIT: BACK TO REENTRY CONTROL.
035700,000409: # SUBROUTINE CALLS: NEWMODEX
035701,000410:
035702,000411: 26,2473 COUNT* $$/P66
035703,000412:
035704,000413: 26,2473 05344 P66 TC NEWMODEX # ENTER VIA RTB WHEN D < Q7 FPSS
035705,000414: 26,2474 00102 MM 66 B-14
035706,000415:
035707,000416: 26,2475 35025 CA V06N22 # OGA IGA MGA
035708,000417: # XXX.XX DEG XXX.XX DEG XXX.XX DEG
035709,000418: 26,2476 02502 TC P66END # IN CASE CAME FROM P65, GO DISABLE GRP4,
035710,000419: # AND SET ENTRYDSP TO DO DISPLAY VIA
035711,000420: # OVERNOUT.
035712,000421:
035713,000422: # ... AND CONTINUE AT KEP2
035714,000423:
|
|
Page 804 |
035716,000425: # P67
035717,000426:
035718,000427: # PROGRAM- P67
035719,000428: # MOD NO.- 0 MAR. 16, 1967
035720,000429: # MOD BY- R. HIRSCHKOP
035721,000430: # FUNCTION- TO TERMINATE STEERING WHEN THE CM VELOCITY WRT EARTH = 1000 FT/SEC
035722,000431: # CALLING SEQUENCE-
035723,000432: # EXIT- TO POOH
035724,000433: # SUBROUTINE CALLS- GOFLASH
035725,000434:
035726,000435: # THIS DISPLAY IS CALLED EACH PASS THROUGH STEERING. RESTART PROTECTION IS VIA STEERING.
035727,000436:
035728,000437: 26,2477 COUNT* $$/P67
035729,000438:
035730,000439: 26,2477 05344 P67 TC NEWMODEX # ENTER VIA RTB
035731,000440: 26,2500 00103 MM 67 B-14
035732,000441: 26,2501 32510 CA V06N66 # ROLLC XRNGERR DNRNGERR
035733,000442: # XXX.XX DEG XXXX.X NM XXXX.X NM
035734,000443: 26,2502 55122 P66END TS ENTRYVN # DISPLAY VIA OVERNOUT.
035735,000444:
035736,000445: 26,2503 05547 TC UPFLAG # (IN CASE CAME FROM P65. ENTRY DISPLAY
035737,000446: 26,2504 00134 ADRES ENTRYDSP # WILL FLUSH FLASHING DISP. IF STILL ON)
035738,000447: # BIT 13 FLAG 6
035739,000448: 26,2505 05402 KILLGRP4 TC PHASCHNG # DISABLE GRP4, IN CASE CAME FROM HUNTEST.
035740,000449: 26,2506 00004 OCT 00004 # (COME TO KILLGRP4 VIA RTB, RET TO CALLER)
035741,000450:
035742,000451: 26,2507 06030 TC DANZIG # ... AND CONTINUE AT PREDICT3 ...
035743,000452:
035744,000453: 26,2510 01502 V06N66 VN 0666
035745,000454:
035746,000455: 26,2000 SETLOC P60S2
035747,000456: 26,2000 BANK
035748,000457:
035749,000458: 26,2511 32544 P67.1 CA V16N67 # RTOGO LAT LONG
035750,000459: # XXXX.X NM XXX.XX DEG XXX.XX DEG
035751,000460: 26,2512 04636 TC BANKCALL
035752,000461: 26,2513 20743 CADR GOFLASH
035753,000462: 26,2514 02517 TC +3 # EFFECTIVE GOTOPOOH
035754,000463: 26,2515 02517 TC +2
035755,000464: 26,2516 02511 TC P67.1 # REDO
035756,000465:
035757,000466: 26,2517 00004 INHINT
035758,000467: 26,2520 34767 CA CM/DSBIT
035759,000468: 26,2521 64770 AD GYMDIBIT
035760,000469: 26,2522 40000 COM
035761,000470: 26,2523 70102 MASK CM/FLAGS # CM/DSTBY, GAMDIFSW
035762,000471: 26,2524 54102 TS CM/FLAGS
035763,000472: 26,2525 00003 RELINT
|
|
Page 805 |
035765,000474: 26,2526 00006 EXTEND
035766,000475: 26,2527 32644 DCA SERVCAD2
035767,000476: 26,2530 53062 DXCH AVEGEXIT
035768,000477:
035769,000478: 26,2531 14103 TCF GOTOPOOH
035770,000479:
|
|
Page 806 |
035772,000481: 26,2532 43175 P67.2 VLOAD CLEAR # CALC PRESENT LAT, LONG, ALT.
035773,000482: 26,2533 01030 RN
035774,000483: 26,2534 00662 ERADFLAG # USE PAD RAD FOR ALT. (NOT SEEN ANYWAY)
035775,000484: 26,2535 16152 STODL ALPHAV
035776,000485: 26,2536 01044 PIPTIME # USE TIME OF RN
035777,000486: 26,2537 45014 CLEAR CALL
035778,000487: 26,2540 01663 LUNAFLAG
035779,000488: 26,2541 26453 LAT-LONG
035780,000489: 26,2542 77634 P67.3 RTB # ENTRY EXIT THAT OMITS DISPLAY.
035781,000490: 26,2543 53607 SERVNOUT
035782,000491:
035783,000492: 26,2544 04103 V16N67 VN 1667
035784,000493: 26,2545 00041 OCT41 OCT 41
035785,000494: 26,2546 26,2643 SERVCAD2 = SERVCAD1
035786,000495:
|
|
Page 807 |
035788,000497: # SUBROUTINE NAME: S61.1
035789,000498: # MOD NO: 0 DATE: 21 FEB 67
035790,000499: # MOD BY: RR BAIRNSFATHER LOG SECTION: P61-P67
035791,000500: # MOD NO: 1 MOD BY: RR BAIRNSFATHER DATE: 22 JUN 67 RESTARTS.
035792,000501: # FUNCTIONAL DESCRIPTION: CALLED BY BOTH P61 AND P62
035793,000502: # FIRST, TEST TO SEE IF AVERAGEG IS ON. IF NOT, UPDATE THE STATE VECTOR TO PRESENT TIME + TOLERANCE
035794,000503: # AND TURN ON AVERAGEG AT THAT TIME, AND CONTINUE. OTHERWISE CONTINUE: SEE IF IMU Y AXIS IS
035795,000504: # WITHIN 30 DEG OF V*R. IF YES, EXIT SUBROUTINE S61.1. IF NO, SEE IF -Y AXIS OF IMU IS WITHIN
035796,000505: # 30 DEG OF V*R. IF YES, DISPLAY ALARM: 01427 IMU REVERSED.
035797,000506: # IF NO, DISPLAY ALARM: 01426 IMU UNSATISFACTORY.
035798,000507: # IN EITHER OF THESE LAST 2 CASES, WAIT 10 SEC AND THEN EXIT SUBROUTINE S61.1.
035799,000508:
035800,000509: # REMARK: THERE WILL BE A SHORT 10 SEC DELAY IF AN ALARM EXIT IS TAKEN. THE DELAY FOR INTEGRATION IS
035801,000510: # AS SHORT AS CAN BE MADE, BUT IS ARBITRARY SINCE IT DEPENDS ON THE AGE OF THE STATE VECTOR.
035802,000511:
035803,000512: # CALLING SEQUENCE: CALL
035804,000513: # S61.1
035805,000514: # C(MPAC) UNSPECIFIED
035806,000515: # PUSHLOC UNSPECIFIED
035807,000516:
035808,000517: # SUBROUTINES CALLED: LOADTIME, CSMPREC, TPAGREE,
035809,000518: # WAITLIST, JOBSLEEP, JOBWAKE, PREREAD, ALARM, GODSPR, BANKCALL, DELAYJOB
035810,000519: # NORMAL EXIT MODES: RVQ
035811,000520: # ALARMS: 01426 IMU UNSATISFACTORY
035812,000521: # 01427 IMU REVERSED
035813,000522: # OUTPUT: POSSIBLE ALARMS
035814,000523: # POSSIBLY TDEC1, RATT, VATT, RN, VN
035815,000524: # ERASABLE INITIALIZATION REQUIRED:
035816,000525: # AVEGFLAG AVERAGEG ON OR OFF LEFT BY SERVICER
035817,000526: # PIPTIME (-28) CS TIME OF PIPA UPDATE LEFT BY READACCS
035818,000527: # RN (-29) M STATE VECTOR LEFT BY AVERAGEG
035819,000528: # VN (-7) M/CS STATE VECTOR LEFT BY AVERAGEG
035820,000529: # REFSMMAT (-1) .5 REF TO SM MATRIX LEFT BY LAST IMU ALIGNMENT
035821,000530:
035822,000531: # DEBRIS: QPRET
035823,000532: # POSSIBLY PIPTIME1, RATT, VATT, TDEC1, RN1, VN1, QTEMP, X1 IF UPDATED
035824,000533: # PUSH LIST LOCS USED BY CSMPREC
035825,000534:
035826,000535: 26,2546 E6,1661 EBANK= AOG # FOR 60GENRET, S61DT
035827,000536: 26,2000 SETLOC P60S3
035828,000537: 26,2000 BANK
035829,000538:
035830,000539: 26,2546 COUNT* $$/S61.1
035831,000540:
035832,000541: 26,2546 00006 S61.1 EXTEND
035833,000542: 26,2547 23773 QXCH 60GENRET # SAVE RET ADDR IN EB 6
035834,000543: 26,2550 04636 TC BANKCALL
035835,000544: 26,2551 03731 CADR R02BOTH
035836,000545: 26,2552 06006 TC INTPRET
035837,000546:
035838,000547: 26,2553 45014 BON CALRB
|
|
Page 808 |
035840,000549: 26,2554 00716 AVEGFLAG # IS AVERAGEG ON
035841,000550: 26,2555 54605 S61.1A # YES
035842,000551: 26,2556 27566 MIDTOAV2 # GET FUTURE STATE VECTOR SOON AS CAN
035843,000552:
035844,000553: 26,2557 30155 CA MPAC +1 # RETURN INHINTED ***
035845,000554: 26,2560 55774 TS S61DT # FOR RESTART.
035846,000555: 26,2561 05233 TC WAITLIST
035847,000556: 26,2562 E7,1425 EBANK= DVTOTAL
035848,000557: 26,2562 02567 54067 2CADR S61.1C
035849,000558:
035850,000559: 26,2564 05402 TC PHASCHNG
035851,000560: 26,2565 40434 OCT 40434
035852,000561: 26,2566 01,2204 4P43SPT1 = 4.43SPOT
035853,000562: 26,2566 05205 TC ENDOFJOB
035854,000563:
035855,000564: 26,2567 35052 S61.1C CA PRIO13
035856,000565: 26,2570 05135 TC FINDVAC
035857,000566: 26,2571 E6,1661 EBANK= AOG
035858,000567: 26,2571 02604 54066 2CADR S61.1A-1
035859,000568:
035860,000569: 26,2573 00006 EXTEND
035861,000570: 26,2574 32644 DCA SERVCAD1 # HE WHO STARTS AVERAGEG MUST SERVICE
035862,000571: 26,2575 53062 DXCH AVEGEXIT # THE EXIT.
035863,000572:
035864,000573: 26,2576 05362 TC 2PHSCHNG
035865,000574: 26,2577 00454 OCT 00454
035866,000575: 26,2600 00175 OCT 00175
035867,000576: 26,2601 01,2207 4P45SPT1 = 4.45SPOT
035868,000577: 26,2601 01,2272 5P17SPT1 = 5.17SPOT
035869,000578: 26,2601 04606 TC E7SETTER
035870,000579:
035871,000580: 26,2602 04655 TC POSTJUMP
035872,000581: 26,2603 76607 CADR PREREAD # PREREAD DOES TC TASKOVER.
035873,000582:
035874,000583: 26,2604 06006 S61.1A-1 TC INTPRET
035875,000584: 26,2605 77204 S61.1A BOVB VLOAD
035876,000585: 26,2606 57544 TCDANZIG # TURN OFF OVFIND, IF ON
035877,000586: 26,2607 01036 VN # VN (-7) M/CS
035878,000587: 26,2610 64235 VXV MXV
035879,000588: 26,2611 01030 RN # RN (-29) M
035880,000589: 26,2612 01734 REFSMMAT # .5 UNIT MATRIX
035881,000590: 26,2613 71256 UNIT DLOAD
035882,000591: 26,2614 00160 MPAC +3 # GET COS(THETA)/2
035883,000592: 26,2615 43240 BMN DAD
035884,000593: 26,2616 54623 S61.1B # DO TEST ON -YSM
035885,000594: 26,2617 14646 C(30)LIM # = 1.0 -.5 COS(30)
035886,000595: 26,2620 47004 BOVB RTB
035887,000596: 26,2621 54642 RETRN1
035888,000597: 26,2622 54627 RETRN3
|
|
Page 809 |
035890,000599: 26,2623 43276 S61.1B DCOMP DAD
035891,000600: 26,2624 14646 C(30)LIM # = 1.0 - .5 COS(30)
035892,000601: 26,2625 77404 BOVB EXIT
035893,000602: 26,2626 54632 RETRN2
035894,000603:
035895,000604: 26,2627 05671 RETRN3 TC ALARM
035896,000605: 26,2630 01426 OCT 01426 # IMU UNSATISFACTORY
035897,000606: 26,2631 02634 TC RETRN2 +2
035898,000607:
035899,000608: 26,2632 05671 RETRN2 TC ALARM
035900,000609: 26,2633 01427 OCT 01427 # IMU REVERSED
035901,000610:
035902,000611: 26,2634 35023 +2 CAF V05N09
035903,000612: 26,2635 04636 TC BANKCALL
035904,000613: 26,2636 20710 CADR GODSPR # DO DISPLAY
035905,000614: 26,2637 32647 CA 10SECS
035906,000615: 26,2640 04636 TC BANKCALL
035907,000616: 26,2641 01731 CADR DELAYJOB
035908,000617:
035909,000618: 26,2642 01773 RETRN1 TC 60GENRET
035910,000619:
035911,000620: 26,2643 E7,1425 EBANK= DVTOTAL
035912,000621: 26,2643 03143 76067 SERVCAD1 2CADR SERVEXIT
035913,000622: 26,2645 22111 17335 C(30)LIM 2DEC .566985 # = 1.0 - .5 COS(30)
035914,000623: 26,2647 01750 10SECS DEC 1000 B-14 # 1000 CS
035915,000624: 26,2650 00000 13560 60SECDP 2DEC 6000 B-28 # 6000 CS
035916,000625:
|
|
Page 810 |
035918,000627: # PROGRAM NAME: S61.2 DATE: 14 FEB 67
035919,000628: # MOD NO: 1 LOG SECTION: P61-P67
035920,000629: # MOD BY: MORTH / BAIRNSFATHER
035921,000630: # MOD NO: 2 MOD BY: MORTH/BAIRNSFATHER DATE: 11 MAY 67 ADD 2ND ITER FOR ERAD AT 400K FT.
035922,000631: # MOD NO: 3 MOD BY: RR BAIRNSFATHER DATE: 21 NOV 67 VARIABLE MU ADDED.
035923,000632: # MOD NO: 4 MOD BY: RR BAIRNSFATHER DATE: 21 MAR 68 DIFFERENT EARTH/MOON SCALES IN TFF'S
035924,000633: # FUNCTIONAL DESCRIPTION: CALLED BY P61. PROVIDES DISPLAYS FOR NOUNS N60 AND N63 .
035925,000634: # PROGRAM CALCULATES ENTRY DISPLAY OF MAXIMUM ACCELERATION EXPECTED (GMAX) AND ALSO THE EXPECTED
035926,000635: # INERTIAL VELOCITY (VPRED) AND ENTRY ANGLE (GAMMAEI) THAT WILL OBTAIN AT 400K FT ABOVE THE FISCHER
035927,000636: # ELLIPSOID. PROGRAM ALSO CALCULATES A SECOND DISPLAY RELATIVE TO THE EMSALT ABOVE FISCHER ELLIPSOID
035928,000637: # AND CONSISTS OF RANGE TO SPLASH FROM NOW (RTGO) , PREDICTED INERTIAL VELOCITY (VIO) , AND THE TIME TO
035929,000638: # GO FROM NOW (TTE) .
035930,000639: # CALLING SEQUENCE: CALL
035931,000640: # S61.2
035932,000641: # C(MPAC) UNSPECIFIED
035933,000642: # PUSHLOC WILL BE SET TO ZERO.
035934,000643:
035935,000644: # SUBROUTINES CALLED: TFFCONIC, CALCTFF, TFF/TRIG, FISHCALC, GETERAD, VGAMCALC
035936,000645: # NORMAL EXIT MODES: RTB P61.1
035937,000646: # ALARMS: NONE
035938,000647: # OUTPUT: THE FOLLOWING REGISTERS ARE WRITTEN IN FOR USE BY DISPLAYS
035939,000648: # GMAX 100 GMAX (-14) G,S MAXIMUM ACCELERATION
035940,000649: # VPRED (-7) M/CS PREDICTED VELOCITY AT 400K FT
035941,000650: # GAMMAEI GAMMA/360 PREDICTED GAMMA AT 400K FT
035942,000651: # FOR TM, DP(GAMMAEI) = (GAMMAEI, RTGO) / 360
035943,000652: # RTGO THETAH/360 RANGE ANGLE TO SPLASH FROM EMSALT EMSALT IS PAD LOADED
035944,000653: # VIO (-7) M/CS INERTIAL VELOCITY AT EMSALT EMSALT IS PAD LOADED
035945,000654: # TTE (-28) CS TIME TO EMSALT EMSALT IS PAD LOADED
035946,000655:
035947,000656: # PUSHLOC = 0
035948,000657: # CONIC PARAMETERS STORED IN VAC AREA (SEE TFF SUBROUTINES)
035949,000658: # ERASABLE INITIALIZATION REQUIRED:
035950,000659: # RONE (-29) M STATE VECTOR LEFT BY USER
035951,000660: # VONE (-7) M/CS STATE VECTOR LEFT BY USER
035952,000661: # URONE UR/2 LEFT BY USER
035953,000662: # UNI (-1) UNIT NORMAL V*R LEFT BY ENTRY / P61
035954,000663: # THETAH THETAH/360 RANGE ANGLE LEFT BY ENTRY / P61
035955,000664: # UNITW (0) UNIT POLAR VECTOR LEFT BY PAD LOAD
035956,000665: # EMSALT (-29) M EMS INTERFACE ALTITUDE LEFT BY PAD LOAD
035957,000666: # ORBITAL REENTRY: 284643 FT, LUNAR REENTRY: 297431 FT.
035958,000667: # DEBRIS: QPRET,
035959,000668: # ALL PDL LOCATIONS ABOVE 12D, INCLUDING X1,X2,S1,S2
035960,000669: # ALSO PDL+0 ... PDL+5, WHERE INITIAL PUSHLOC = PDL
035961,000670:
|
|
Page 811 |
035963,000672:
035964,000673: # THE FOLLOWING PUSH LIST LOCATIONS HAVE BEEN RESERVED FOR TFF ROUTINES AND ARE REPEATED HERE FOR CONVENIENCE.
035965,000674: # OF COURSE FOR S61.2 USAGE, EARTH ORIGIN SCALING IS USED.
035966,000675:
035967,000676: # BELOW E: IS USED FOR EARTH ORIGIN SCALE
035968,000677: # M: IS USED FOR MOON ORIGIN SCALE
035969,000678:
035970,000679: # RTERM = 18D TERMINAL RADIUS M E: (-29) M: (-27)
035971,000680: # NRTERM = 16D TERMINAL RADIUS M E: (-29+NR)
035972,000681: # M: (-27+NR)
035973,000682: # RMAG1 = 12D PRESENT RADIUS M E: (-29) M: (-27)
035974,000683: # NRMAG = 32D PRESENT RADIUS M E: (-29+NR)
035975,000684: # M: (-27+NR)
035976,000685: # SDELF/2 SIN(THETA) / 2
035977,000686: # CDELF/2 = 14D COS(THETA) / 2
035978,000687: # TFFX = 34D X, ARGUMENT OF SERIES T(X).
035979,000688: # TFFTEM = 36D ARG FOR TRANSFER ANGLE CALCULATION.
035980,000689: # TFFNP = 28D LC P M E: (-38+2NR) M: (-36+2NR)
035981,000690: # TFF/RTMU= 30D 1/SQRT(MU) E: (17) M: (14)
035982,000691: # TFFVSQ = 20D -(VN.VN/MU) 1/M E: (20) M: (18)
035983,000692:
|
|
Page 812 |
035985,000694: 26,2000 SETLOC P60S2
035986,000695: 26,2000 BANK
035987,000696:
035988,000697: 26,2652 COUNT* $$/S61.2
035989,000698:
035990,000699: # PDL LEFT AT ZERO BY TARGETNG
035991,000700:
035992,000701: 26,2652 45345 S61.2 DLOAD DSU
035993,000702: 26,2653 02020 EMSALT
035994,000703: 26,2654 15006 290KFT
035995,000704: 26,2655 71244 BPL DLOAD
035996,000705: 26,2656 55002 LUNENT
035997,000706: 26,2657 31757 1/RTMU # ESTABLISH MU FOR ORBITAL ENTRIES
035998,000707: 26,2660 77624 CALLCON CALL
035999,000708: 26,2661 57151 TFFCONIC # FILL VAC AREA WITH CONIC PARAMETERS
036000,000709:
036001,000710: 26,2662 45145 DLOAD CALL
036002,000711: 26,2663 15024 RTRIAL # 1 ST GUESS AT TERMINAL RADIUS (-29)
036003,000712: 26,2664 57261 CALCTFF # SAVES MPAC IN RTERM (18D)
036004,000713:
036005,000714: 26,2665 77624 CALL # CALC SDELF/2, CDELF/2
036006,000715: 26,2666 57052 TFF/TRIG # RETURN WITH S(THETA) IN MPAC
036007,000716:
036008,000717: 26,2667 77624 CALL # GET FISCHER RADIUS (-29) M
036009,000718: 26,2670 55033 FISHCALC # ANS IN MPAC AND IN ERADM.
036010,000719:
036011,000720: 26,2671 45015 DAD CALL
036012,000721: 26,2672 02020 EMSALT
036013,000722: 26,2673 57261 CALCTFF # SAVES MPAC IN RTERM (18D)
036014,000723:
036015,000724: 26,2674 03733 STORE TTE1 # USED IN TARGET ITERATION (DISPTARG)
036016,000725: 26,2675 57415 DAD DCOMP # DECR 'TTE' FROM BASE 'TTE2' IN 'SERVICER
036017,000726: 26,2676 03651 MM # 'PIPTIME' FOR STATE VECTOR
036018,000727: # DNLIST AND DSKY WILL USE TTE.
036019,000728: 26,2677 03735 STORE TTE2 # TTE=PIPTIME+TTE2=-(TTE1+MM-PIPTIME)
036020,000729: 26,2700 77615 DAD # DECREMENT 'TTE' FOR DISPLAY AND DOWNLINK
036021,000730: 26,2701 01044 PIPTIME # UNTIL SERVICER COMES ALONG.
036022,000731: 26,2702 37727 STCALL TTE # 'TTE' IS NEGATIVE AS IN COUNTDOWN.
036023,000732:
036024,000733: # TTE= TIME FROM NOW TO EMSALT +FISCHER
036025,000734:
036026,000735: 26,2703 57052 TFF/TRIG # S(THETA) IN MPAC ON RETURNING
036027,000736: # AND THETA= RANGE FROM NOW TO EMSALT
036028,000737:
036029,000738: 26,2704 77624 CALL
036030,000739: 26,2705 55033 FISHCALC
036031,000740: 26,2706 77624 CALL
036032,000741: 26,2707 11744 VRCALC
036033,000742: 26,2710 77624 CALL
|
|
Page 813 |
036035,000744: 26,2711 11731 DISPTARG
036036,000745: 26,2712 77624 CALL
036037,000746: 26,2713 11731 DISPTARG
036038,000747: 26,2714 37714 STCALL RTGO
036039,000748: 26,2715 55054 VGAMCALC
036040,000749:
036041,000750: 26,2716 77605 DMP # MPAC = GAMMA
036042,000751: # PDL0 HAS VGAM.
036043,000752: 26,2717 43265 BDDV DAD
036044,000753: 26,2720 15032 VEMSCON # -HS D 180/PI (-14)
036045,000754: 26,2721 00001 0 # VGAM FROM PDL0.
036046,000755: 26,2722 17725 STODL VIO # PREDICTED VELOCITY AT EMSALT.
036047,000756:
036048,000757: # GAMMA AND VGAM AT 300K FT ARE REQUIRED BY GMAX
036049,000758: # ALGORITHM.
036050,000759:
036051,000760: 26,2723 02240 ERADM # EARTH RADIUS FROM GETERAD (-29) M
036052,000761: # = FISCHER RADIUS (-29)
036053,000762: 26,2724 77615 DAD
036054,000763: 26,2725 06456 300KFT # M (-29)
036055,000764: 26,2726 34023 STCALL RTERM # TERMINAL RADIUS M (-29)
036056,000765:
036057,000766: 26,2727 55051 PREVGAM # VGAMCALC WITH NEW RTERM
036058,000767:
036059,000768: # VBAR = (V(FPS) - 36KF/S) / 20KF/S
036060,000769: # GMAX = (4/(1 + 4.8 VBARSQ))(GAM -6.05 -2.4 VBARSQ) - 10(L/D - .3) + 10 ASSUME L/D = 0.3, BANK =0.
036061,000770:
036062,000771: # GMAXCALC
036063,000772: 26,2730 45325 PDDL DSU # GAM TO PDL2
036064,000773: 26,2731 00001 0 # VGAM IS IN PDL0 (-7)
036065,000774: 26,2732 15010 36KFT/S # (-7) M/CS
036066,000775: 26,2733 63471 DDV DSQ
036067,000776: 26,2734 15012 20KFT/S # (-6) M/CS
036068,000777: 26,2735 00001 STORE 0 # VBARSQ (-2) TO PDL0
036069,000778:
036070,000779: 26,2736 43205 DMP DAD
036071,000780: 26,2737 15014 KR1
036072,000781: # GAM, POS DOWN, FROM PDL2
036073,000782: 26,2740 41215 DAD DMP
036074,000783: 26,2741 15016 -6.05DEG
036075,000784: 26,2742 15020 KR2
036076,000785: 26,2743 77725 PDDL # XCH PDL+0 FOR VBARSQ (-2)
036077,000786: 26,2744 43271 DDV DAD
036078,000787: 26,2745 15030 KR4
036079,000788: 26,2746 31771 DP2(-4)
036080,000789: 26,2747 77665 BDDV
036081,000790: # NUM FROM PDL+0
036082,000791: 26,2750 51015 DAD BPL
036083,000792: 26,2751 15022 KR3
|
|
Page 814 |
036085,000794: 26,2752 54755 +3
036086,000795: 26,2753 77745 DLOAD
036087,000796: 26,2754 15336 HI6ZEROS
036088,000797: 26,2755 17722 STODL GMAX # 100 GMAX (-14)
036089,000798:
036090,000799: # DISPLAY USES GMAX AS SP, SO LO WORD IS WRITTEN OVER BY VPRED.
036091,000800:
036092,000801: 26,2756 02240 ERADM # = FISCHER RADIUS (-29) M
036093,000802: 26,2757 45015 DAD CALL # 2 ND ITERATION FOR FISCHER RADIUS
036094,000803: 26,2760 15026 400KFT
036095,000804: 26,2761 57261 CALCTFF # ESTABLISH TRANSFER ANGLE DATA.
036096,000805: 26,2762 77624 CALL
036097,000806: 26,2763 57052 TFF/TRIG # GET SIN, COS DELF
036098,000807: 26,2764 77624 CALL
036099,000808: 26,2765 55033 FISHCALC # GET CORRESPONDING FISCHER RADIUS.
036100,000809:
036101,000810: 26,2766 73015 DAD LXA,2 # SAVE HI-WORD FOR DOWNLIST.
036102,000811: 26,2767 15026 400KFT # M (-29)
036103,000812: 26,2770 03713 RTGO # (RANGE ANGLE FROM EMSALT)/360
036104,000813: 26,2771 34023 STCALL RTERM
036105,000814: 26,2772 55051 PREVGAM # VGAMCALC WITH NEW RTERM
036106,000815:
036107,000816: 26,2773 67076 DCOMP SXA,2 # HI-WORD OF EACH ON DOWNLIST.
036108,000817: 26,2774 00155 MPAC +1
036109,000818: 26,2775 17761 STODL GAMMAEI # CONIC GAMMA/360 AT 400K FT. ( HI-WORD)
036110,000819: # CONIC RTGO/360 FROM EMSALT (LOW-WORD)
036111,000820: # FOR TM, DP(GAMMAEI) = (GAMMA, RTGO)/360
036112,000821:
036113,000822: # VGAM FROM PDL+0 (-7)
036114,000823: 26,2776 77626 STADR
036115,000824: 26,2777 74020 STORE VPRED # CONIC VELOCITY AT 400K FT
036116,000825:
036117,000826: 26,3000 77634 RTB
036118,000827: 26,3001 54304 P61.1
036119,000828: # PDL BACK TO ZERO.
036120,000829:
036121,000830: 26,3002 52145 LUNENT DLOAD GOTO
036122,000831: 26,3003 06452 1/RTMUE # ESTABLISH MU FOR LUNAR TYPE ENTRIES
036123,000832: 26,3004 54660 CALLCON
036124,000833: 26,3005 00002 26244 290KFT 2DEC 88392.0 B-29
036125,000834: 26,3007 33335 05707 36KFT/S 2DEC 109.728 B-7 # (-7) M/CS = 36 KFT/S (-7)
036126,000835: 26,3011 36365 30244 20KFT/S 2DEC 121.92 B-7 # (-6) M/CS = 2 20KFT/S (-7)
036127,000836: 26,3013 77113 42770 KR1 2DEC -.026666667 # = -2.4 4 / 360
036128,000837: 26,3015 77354 65030 -6.05DEG 2DEC -.016805556 # = -6.05 / 360
036129,000838: 26,3017 21450 00001 KR2 2DEC .54931641 # = (360/4) 100 (-14) = 9000 B-14
|
|
Page 815 |
036131,000840: 26,3021 01750 00000 KR3 2DEC 1000 B-14 # = 100 (10.0) (-14) G,S
036132,000841: # ASSUMES L/D = 0.3, BANK =0.
036133,000842: 26,3023 00305 04541 RTRIAL 2DEC 6460097.18 B-29 # RPAD +284643 FT =21 194 545 FT
036134,000843: # RPAD DEFINED AS 20 909 901.57 FT =6 373 338 M
036135,000844: 26,3025 00003 27040 400KFT 2DEC 121920 B-29 # METERS
036136,000845:
036137,000846: # 300KFT 2DEC 91440 B-29 (-29) M
036138,000847:
036139,000848: # EMSALT 2DEC 86759.2 B-29 284643 FT (-29) M (ORBITAL REENTRY)
036140,000849:
036141,000850: # EMSALT 2DEC 90657 B-29 297431 FT (-29) M (LUNAR REENTRY)
036142,000851:
036143,000852: 26,3027 32525 12525 KR4 2DEC .833333333
036144,000853: 26,3031 23,2455 300KFT EQUALS MINPERE
036145,000854: 26,3031 77777 76601 VEMSCON 2DEC -.0389676 B-14 # = -HS D / 2 PI (-14) M SQ / CS SQ
036146,000855: # =- 16369 .05G 32.2 .3048 .3048/2 PI (-14)
036147,000856:
|
|
Page 816 |
036149,000858: # SUBROUTINE NAME: FISHCALC (USED BY S61.2) DATE: 01.21.67
036150,000859: # MOD NO: 0 LOG SECTION: P61-P67
036151,000860: # MOD BY: MORTH / BAIRNSFATHER
036152,000861: # MOD NO: 1 MOD BY: RR BAIRNSFATHER DATE: 11 MAY 67 INCLUDE GETERAD CALL
036153,000862: # FUNCTIONAL DESCRIPTION: GIVEN THE PRESENT POSITION, UNITR, CALCULATE A NEW UNITR THAT IS ROTATED THROUGH
036154,000863: # TRANSFER ANGLE, THETA, ALONG TRAJECTORY. THEN CALCULATE SIN(LAT) AND USE TO OBTAIN FISCHER RADIUS.
036155,000864:
036156,000865: # SINCE FISHCALC USES UNI (LEFT BY ENTRY) EARTH SCALING IS ASSUMED. (WILL IMPROVE FOR SUITABLE TENNANT)
036157,000866:
036158,000867: # CALLING SEQUENCE: CALL
036159,000868: # FISHCALC
036160,000869: # ENTER WITH .5 SIN(THETA) IN MPAC.
036161,000870: # PUSHLOC IS AT PDL+0, AN ARBITRARY BASE VALUE IF LEQ 8D
036162,000871:
036163,000872: # SUBROUTINES CALLED: GET ERAD
036164,000873: # NORMAL EXIT MODE: RVQ
036165,000874: # EXIT MODES: NONE
036166,000875: # OUTPUT: ERADM (-29) M IN MPAC ON RETURNING
036167,000876: # NEW UNIT VECTOR NOT SAVED.
036168,000877: # SIN(LAT) NOT SAVED.
036169,000878: # PUSHLOC AT PDL+0
036170,000879:
036171,000880: # ERASEABLE INITIALIZATION REQUIRED:
036172,000881: # SDELF/2 =SIN(THETA) /2, IN MPAC LEFT BY TFF/TRIG
036173,000882: # CDELF/2 =COS(THETA) /2, STORED IN PDL 14D LEFT BY TFF/TRIG
036174,000883: # RONE (-29) M LEFT BY USER
036175,000884: # VONE (-7) M/CS LEFT BY USER
036176,000885: # URONE UR/2 LEFT BY USER
036177,000886: # UNI .5 UNIT(V*R) LEFT BY ENTRY / P61
036178,000887: # UNITW UNIT NORTH POLE LEFT BY PAD LOAD
036179,000888: # DEBRIS: QPRET, PDL+0 ... PDL+5
036180,000889:
036181,000890: # - - -
036182,000891: 26,3033 47315 FISHCALC PDVL VXV # URPR = UR CDELF + UHOR SDELF
036183,000892: 26,3034 02334 URONE
036184,000893: 26,3035 03502 UNI
036185,000894: 26,3036 76561 VXSC VSL1
036186,000895: # SIN(THETA) / 2 FROM PDL+0
036187,000896: 26,3037 74315 PDVL VXSC # TO PDL+0, +5
036188,000897: 26,3040 02334 URONE
036189,000898: 26,3041 00017 CDELF/2 # COS(THETA) /2
036190,000899: 26,3042 45455 VAD STADR
036191,000900: 26,3043 74235 STORE URH # FOR USE IN RTGO FROM EMS DISPLAY
036192,000901: 26,3044 72441 DOT SL1
036193,000902: 26,3045 01712 UNITW # FULL UNIT VECTOR UNIT NORTH
036194,000903: 26,3046 02156 STORE ALPHAV +4 # = .5 SIN(LAT)
036195,000904: 26,3047 77650 DUMPFISH GOTO
036196,000905: 26,3050 26570 GETERAD # SAVES FISCHER RAD (-29) M IN ERADM AND
036197,000906: # IN MPAC. RETURNS TO CALLER VIQ QPRET.
036198,000907:
|
|
Page 817 |
036200,000909: # SUBROUTINE NAME: VGAMCALC (USED BY S61.2) DATE: 01.21.67
036201,000910: # MOD NO: 0 LOG SECTION: P61-P67
036202,000911: # MOD BY: MORTH / BAIRNSFATHER
036203,000912: # MOD NO: 1 MOD BY: RR BAIRNSFATHER DATE: 11 APR 67
036204,000913: # MOD NO: 2 MOD BY: RR BAIRNSFATHER DATE: 21 NOV 67 VARIABLE MU ADDED.
036205,000914: # MOD NO: 3 MOD BY: RR BAIRNSFATHER DATE: 21 MAR 68 ACCEPT DIFFERENT EARTH/MOON SCALE
036206,000915: # FUNCTIONAL DESCRIPTION: EARTH CENTERED VIS VIVA CALCULATION OF TERMINAL VELOCITY AND GAMMA (REL TO
036207,000916: # HORIZONTAL) GIVEN THE SCALAR QUANTITIES: PRESENT RADIUS AND VELOCITY AND THE TERMINAL RADIUS.
036208,000917: # THE USER MUST APPEND PROPER SIGN TO GAMMA, SINCE IT IS CALCULATED AS A POSITIVE NUMBER.
036209,000918: # THE EQUATIONS ARE
036210,000919:
036211,000920: # VGAM = SQRT(VN VN/MU + 2(RN-RTERM)/(RN RTERM) ) RTMU
036212,000921:
036213,000922: # COSGAM = H /RTERM VGAM = SQRT(LCP)/ (RTERM VGAM/RTMU)
036214,000923:
036215,000924: # VGAMCALC ASSUMES THAT THE TERMINAL RADIUS IS LESS THAN THE PRESENT RADIUS. BOTH CALCTFF AND CALCTPER
036216,000925: # MAKE THIS ASSUMPTION.
036217,000926:
036218,000927: # CALLING SEQUENCE: CALL STCALL RTERM
036219,000928: # VGAMCALC PREVGAM
036220,000929: # PUSHLOC AT PDL+0, ARBITRARY IF LEQ 12D
036221,000930: # C(MPAC) UNSPECIFIED C(MPAC)=NEW RTERM
036222,000931:
036223,000932: # SUBROUTINES CALLED: NONE
036224,000933: # NORMAL EXIT MODE: RVQ
036225,000934: # ALARMS: NONE
036226,000935: # OUTPUT: GAMMA / 360 IN MPAC, POSITIVE NUMBER
036227,000936: # VGAM E:(-7) M:(-5) M/CS IN PDL+0
036228,000937: # PUSHLOC AT PDL+2
036229,000938: # ERASABLE INITIALIZATION REQD:
036230,000939: # TFF/RTMU E:(17) M:(14) 1/SQRT(MU) LEFT BY TFFCONIC.
036231,000940: # RMAG1 E:(-29) M:(-27) M PRESENT RADIUS LENGTH LEFT BY TFFCONIC
036232,000941: # NRMAG E:(-29+NR) M NORM LENGTH OF PRESENT POSITION LEFT BY TFFCONIC
036233,000942: # M:(-27+NR)
036234,000943: # RTERM E:(-29) M:(-27) M TERMINAL RADIUS LENGTH LEFT BY CALCTFF
036235,000944: # NRTERM E:(-29+NR) M NORM LENGTH OF TERMINAL RADIUS LEFT BY CALCTFF
036236,000945: # M:(-27+NR)
036237,000946: # TFFVSQ E:(20) M:(18) 1/M -(V SQ/MU): PRESENT VELOCITY, NORM LEFT BY TFFCONIC
036238,000947: # TFFNP E:(-38+2NR) M LCP, SEMI-LATUS RECTUM, WEIGHT NR LEFT BY TFFCONIC
036239,000948: # M:(-36+2NR)
036240,000949: # DEBRIS: QPRET, PDL+0 ... PDL+3
036241,000950: # RTERM, NRTERM IF PREVGAM ENTERED.
|
|
Page 818 |
036243,000952:
036244,000953: 26,3051 77657 PREVGAM SL* # ENTER WITH NEW RTERM IN MPAC
036245,000954: # E: (-29) M: (-27)
036246,000955: 26,3052 20201 0,1 # X1 = -NR
036247,000956: 26,3053 00021 STORE NRTERM # RTERM M E: (-29+NR) M: (-27+NR)
036248,000957:
036249,000958: 26,3054 41345 VGAMCALC DLOAD DMP
036250,000959: 26,3055 00041 NRMAG # RMAG M E: (-29+NR) M: (-27+NR)
036251,000960: 26,3056 00021 NRTERM # RTERM M E: (-29+NR) M: (-27+NR)
036252,000961: 26,3057 45325 PDDL DSU # RMAG RTERM M E: (-58+2NR) M: (-54+2NR)
036253,000962: 26,3060 00041 NRMAG # RMAG M E: (-29+NR) M: (-27+NR)
036254,000963: 26,3061 00021 NRTERM # RTERM M E: (-29+NR) M: (-27+NR)
036255,000964: 26,3062 56257 SL* DDV # 2(RN-RTERM) E: (-30+NR) M: (-28+NR)
036256,000965: 26,3063 20171 0 -8D,1 # (-8+NR)
036257,000966: # PUSH UP PRODUCT.
036258,000967: 26,3064 77625 DSU
036259,000968: 26,3065 00025 TFFVSQ # -(V SQ/MU) E: (20) M: (18)
036260,000969: 26,3066 41566 SQRT PUSH # SAVE VGAM/RT(MU) FOR NOW. E: (10) M: (9)
036261,000970: 26,3067 65271 DDV PDDL # XCH PDL+0, LEAVING VGAM FOR OUTPUT.
036262,000971: # VGAM TO PDL M/CS E: (-7) M: (-2)
036263,000972: 26,3070 00037 TFF/RTMU # E: (17) M: (14)
036264,000973: 26,3071 65205 DMP PDDL # RTERM VGAM/RTMU E: (-19+NR) M: (-18+NR)
036265,000974: 26,3072 00021 NRTERM # RTERM M E: (-29+NR) M: (-27+NR)
036266,000975: 26,3073 00035 TFFNP # LC P =H.H/MU M E: (-38+2NR) M: (-36+2NR)
036267,000976: 26,3074 56366 SQRT DDV # E: (-19+NR) M: (-18+NR)
036268,000977: # PUSH UP DEN E: (-19+NR) M: (-18+NR)
036269,000978: # USE DDV OVFL AS LIMITER (|COS| <1.0)
036270,000979: 26,3075 65542 SR1 ACOS
036271,000980: 26,3076 77616 DUMPVGAM RVQ
036272,000981: # CALLER MUST SUPPLY OWN SIGN ...
036273,000982: # 22W 27MS
036274,000983:
|
|
Page 819 |
036276,000985: # SUBROUTINE NAME: TFF/TRIG (USED BY S61.2) DATE 01.17.67
036277,000986: # MOD NO: 0 LOG SECTION: P61-P67
036278,000987: # MOD BY: RR BAIRNSFATHER
036279,000988: # MOD NO: 1 MOD BY: RR BAIRNSFATHER DATE: 14 APR 67
036280,000989: # MOD NO: 2 MOD BY: RR BAIRNSFATHER DATE: 21 MAR 68 ACCEPT DIFFERENT EARTH/MOON SCALE
036281,000990: # FUNCTIONAL DESCRIPTION: USED BY ENTRY DISPLAY TO CALCULATE SIN(THETA), COS(THETA) FROM DATA LEFT IN
036282,000991: # PDL BY TFF SUBROUTINES. THE EQNS ARE
036283,000992:
036284,000993: # COS(THETA) = 1-2 ABS(ARG) / (RN RTERM (1+X) )
036285,000994: # 2
036286,000995: # SIN(THETA) = SGN(ARG) SQRT(1-COS (THETA) )
036287,000996:
036288,000997: # WHERE THETA = TRANSFER ANGLE
036289,000998: # AND ARG = P Z ABS(Z) IF ALFA ZZ LEQ 1
036290,000999: # ARG = (P / ALFA) SGN(Q1 + R 1/Z) IF ALFA Z Z G 1
036291,001000: # AND ARG HAS BEEN AFFIXED WITH THE SIGN OF SIN(THETA).
036292,001001: # CALLING SEQUENCE: CALL
036293,001002: # TFF/TRIG
036294,001003: # PUSHLOC AT PDL+0, ARBITRARY IF NOT EQ 14D
036295,001004: # C(MPAC) UNSPECIFIED
036296,001005:
036297,001006: # SUBROUTINES CALLED: NONE
036298,001007: # NORMAL EXIT MODES: RVQ
036299,001008: # ALARMS: NONE
036300,001009: # OUTPUT: C(MPAC) = .5 SIN(THETA)
036301,001010: # CDELF/2 = .5 COS(THETA) (IN PDL 14D)
036302,001011: # PUSHLOC AT PDL+0
036303,001012: # ERASABLE INITIALIZATION REQUIRED:
036304,001013: # TFFX X LEFT BY CALCTFF OR CALCTPER
036305,001014: # TFFTEM E: (-59+2NR) ARG LEFT BY CALCTFF OR CALCTPER
036306,001015: # M: (-55+2NR) WHERE ARG = LCP ZZ SGN(DELF) OR ARG = LCP/ALFA SGN(DELF)
036307,001016: # NRTERM E: (-29+NR) M NORM LENGTH OF TERMINAL RADIUS LEFT BY CALCTFF OR CALCTPER
036308,001017: # M: (-27+NR)
036309,001018: # NRMAG E: (-29+NR) M NORM LENGTH OF PRESENT POSITION LEFT BY TFFCONIC
036310,001019: # M: (-27+NR)
036311,001020: # DEBRIS: QPRET, CDELF/2
036312,001021:
036313,001022: 27,2000 SETLOC P60S5
036314,001023: 27,2000 BANK
036315,001024: 27,3052 COUNT* $$/S61.2
036316,001025: 27,3052 70545 TFF/TRIG DLOAD SR1
036317,001026: 27,3053 00043 TFFX
036318,001027: 27,3054 41215 DAD DMP
036319,001028: 27,3055 15334 HIDPHALF
036320,001029: 27,3056 00041 NRMAG # RMAG M E: (-29+NR) M: (-27+NR)
036321,001030: 27,3057 55205 DMP BDDV
036322,001031: 27,3060 00021 NRTERM # RTERM M E: (-29+NR) M: (-27+NR)
036323,001032: 27,3061 00045 TFFTEM # P ZSQ OR P/ALFA E: (-59+2NR) M: (-55+2NR)
036324,001033: 27,3062 44246 ABS BDSU # THE SIGN IS FOR SDELF.
036325,001034: 27,3063 15334 HIDPHALF
036326,001035: 27,3064 00017 STORE CDELF/2 # .5 COS(THETA)
036327,001036: 27,3065 57516 DSQ DCOMP # KEEP HONEST FOR SQRT.
|
|
Page 820 |
036329,001038: 27,3066 75415 DAD SQRT
036330,001039: 27,3067 15326 HIDP1/4
036331,001040: 27,3070 43565 DUMPTRIG SIGN RVQ
036332,001041: 27,3071 00045 TFFTEM # AFFIX SIGN(DELE/2)
036333,001042: # RETURN WITH .5 SIN(THETA) IN MPAC
036334,001043:
036335,001044: 04,2000 SETLOC P60S6
036336,001045: 04,2000 BANK
036337,001046:
036338,001047: 04,3731 COUNT* $$/S61.1
036339,001048: # 16W 15MS
036340,001049:
036341,001050: 04,3731 77620 DISPTARG STQ # C(MPAC) = TRGO ESTIMATE
036342,001051: 04,3732 03373 60GENRET
036343,001052: 04,3733 43205 DMP DAD # (TTE1 IS POSITIVE)
036344,001053: 04,3734 11752 KTETA1
036345,001054: 04,3735 03733 TTE1
036346,001055: 04,3736 37606 STCALL DTEAROT
036347,001056: 04,3737 46223 EARROT2
036348,001057: 04,3740 77624 CALL
036349,001058: 04,3741 11744 VRCALC
036350,001059: 04,3742 77650 GOTO
036351,001060: 04,3743 03373 60GENRET
036352,001061: 04,3744 50375 VRCALC VLOAD DOT
036353,001062: 04,3745 03542 URH
036354,001063: 04,3746 03474 RT
036355,001064: 04,3747 65512 SL2 ACOS
036356,001065: 04,3750 77616 RVQ
036357,001066: 04,3751 00052 05716 KTETA1 2DEC* .421844723 E2 B-14* # 1100 2PI/16384(163.84)
036358,001067: # END OF PROGRAM S61.2
036359,001068:
|
|
Page 821 |
036361,001070: # PROGRAM DESCRIPTION S62.3 DATE 10JAN67
036362,001071: # MOD NO 1 LOG SECTION P60-P67
036363,001072: # MOD BY ZELDIN
036364,001073: # MOD NO: 2 MOD BY: RR BAIRNSFATHER DATE: 15 MAY 67 CHANGED TO REF COORDS.
036365,001074: # MOD NO: 3 MOD BY: RR BAIRNSFATHER DATE: 17 JAN 68 ALFAPAD CHANGES MADE.
036366,001075: # FUNCTIONAL DESCRIPTION
036367,001076: # COMPUTE DESIRED GIMBOL ANGLES FOR ENTRY ATTITUDE
036368,001077: # THE FOLLOWING TRAJECTORY TRIAD IS AVAILABLE IN MEMORY AND IS COMPUTED EACH 2 SECONDS BY CM/POSE IN
036369,001078: # REFERENCE COORDINATES (V = VELOCITY RELATIVE TO EARTH) :
036370,001079:
036371,001080: # UXA = -UNIT(V)
036372,001081: # UYA = UNIT(V*R)
036373,001082: # UZA = UXA*UYA
036374,001083:
036375,001084: # GENERATE A DESIRED BODY TRIAD FOR TRIMMED FLIGHT WITH RESPECT TO THE RELATIVE VELOCITY VECTOR, USING
036376,001085: # ROLL COMMAND AND TRIM ANGLE OF ATTACK:
036377,001086:
036378,001087: # UXD = UNIT(UYD*UXA) SIN(ALFATRIM) + UXA COS(ALFATRIM)
036379,001088: # UYD = UYA COS(ROLLC) + UZA SIN(ROLLC)
036380,001089: # UZD = UXD * UYD
036381,001090:
036382,001091: # USE THE DESIRED SET (IN REFERENCE COORDS) AND REFSMMAT TO CALL CALCGA AND OBTAIN GIMBAL ANGLES
036383,001092: # IN 2S,C IN MPAC, +2 AND THETAD, +2.
036384,001093:
036385,001094: # CALLING SEQUENCE
036386,001095: # L CALL
036387,001096: # L+1 S62.3
036388,001097: # NORMAL EXIT MODE
036389,001098: # RETURN VIA QPRET DIRECTLY FROM CALCGA.
036390,001099: # SUBROUTINES CALLED
036391,001100: # CALCGA
036392,001101: # ALARM OR ABORT MODES
036393,001102: # NONE
036394,001103: # ERASABLE INITIALIZATION REQUIRED
036395,001104: # ROLLC ROLL COMMAND DP 1:S COMP AT 1REV
036396,001105: # ALFAPAD SP 1S,C /180 LEFT BY PAD LOAD ALFATRIM IS NEGATIVE.
036397,001106: # UXA/2 REF COORDS LEFT BY CM/POSE
036398,001107: # UYA/2 REF COORDS LEFT BY CM/POSE
036399,001108: # UZA/2 REF COORDS LEFT BY CM/POSE
036400,001109: # OUTPUT
036401,001110: # CPHI GIMBAL ANGLES (O,I,M) 2:S COMP TP (O,I,M)/180
036402,001111: # DEBRIS
036403,001112: # QTEMP, QPRET, PUSHLIST
036404,001113:
036405,001114: 10,2000 SETLOC P60S4
036406,001115: 10,2000 BANK
036407,001116:
036408,001117: 10,2412 COUNT* $$/S62.3
036409,001118:
|
|
Page 822 |
036411,001120: 10,2412 67201 S62.3 SETPD SLOAD
036412,001121: 10,2413 00001 0
036413,001122: 10,2414 03012 ALFAPAD # ALFATRIM /180, ALFA IS NEG.
036414,001123: 10,2415 41542 SR1 PUSH
036415,001124: 10,2416 65346 COS PDDL # XCH PDL, COS TO PDL0
036416,001125: 10,2417 65356 SIN PDDL # SIN TO PDL2
036417,001126: 10,2420 03316 ROLLC
036418,001127: 10,2421 74346 COS VXSC
036419,001128: 10,2422 03550 UYA/2 # REF COORDS
036420,001129: 10,2423 73525 PDDL SIN # PUSH VECTOR INTO PDL4,.9
036421,001130: 10,2424 03316 ROLLC
036422,001131: 10,2425 53361 VXSC VAD
036423,001132: 10,2426 03556 UZA/2 # REF COORDS
036424,001133: # VECTOR FROM PDL4, 9
036425,001134: 10,2427 77772 VSL1
036426,001135: 10,2430 02722 STORE YNB # = UYD REF COORDS
036427,001136:
036428,001137: 10,2431 76435 VXV VSL1
036429,001138: 10,2432 03542 UXA/2 # REF COORDS
036430,001139: 10,2433 65361 VXSC PDDL
036431,001140: # SIN TRIM FROM PDL2
036432,001141: # XCH PDL0 FOR COS TRIM
036433,001142: 10,2434 53361 VXSC VAD
036434,001143: 10,2435 03542 UXA/2 # REF COORDS
036435,001144: # FROM PDL0
036436,001145: 10,2436 77772 VSL1
036437,001146: 10,2437 02714 STORE XNB # X SC AXIS (.5 UNIT) REF COORDS
036438,001147:
036439,001148: 10,2440 76435 VXV VSL1
036440,001149: 10,2441 02722 YNB
036441,001150: 10,2442 26730 STOVL ZNB # Z SC IN REF COOR. SCALED AT 2
036442,001151: 10,2443 01734 REFSMMAT
036443,001152: 10,2444 26672 STOVL XSM
036444,001153: 10,2445 01742 REFSMMAT +6
036445,001154: 10,2446 26700 STOVL YSM
036446,001155: 10,2447 01750 REFSMMAT +12D
036447,001156: 10,2450 02706 STORE ZSM
036448,001157:
036449,001158: 10,2451 77650 GOTO
036450,001159: 10,2452 47344 CALCGA
036451,001160: # CALCGA WILL RETURN TO ORIGINAL CALLER
036452,001161: # VIA QPRET WITH 2,S COMP. ANGLES IN CPHI
End of include-file P61-P67.agc. Parent file is MAIN.agc