Source Code

028781,000001: # Copyright: Public domain. 028782,000002: # Filename: P32-P33_P72-P73.agc 028783,000003: # Purpose: Part of the source code for Colossus 2A, AKA Comanche 055. 028784,000004: # It is part of the source code for the Command Module's (CM) 028785,000005: # Apollo Guidance Computer (AGC), for Apollo 11. 028786,000006: # Assembler: yaYUL 028787,000007: # Contact: Ron Burkey <info@sandroid.org>. 028788,000008: # Website: www.ibiblio.org/apollo. 028789,000009: # Pages: 649-683 028790,000010: # Mod history: 2009-05-09 RSB Adapted from the Luminary131/ file 028791,000011: # P32-P35_P72-P75.agc and Comanche055 page 028792,000012: # images. 028793,000013: # 2009-05-20 RSB Corrected CSI/COM3 -> CSI/CDH3, 028794,000014: # CSI/CDHI -> CSI/CDH1, CDHTAB -> CDHTAG, 028795,000015: # changed a SETLOC from CSI/CDH to CSI/CDH1, 028796,000016: # a SETLOC CSI/CDH1 to CSIPROG. 028797,000017: # 2009-05-21 RSB Changed a P32/P72D to P32/P72E in 028798,000018: # P32/P72D. DP1/4TH changed to DP1/4 in 028799,000019: # CDHMVR. 028800,000020: 028801,000021: # This source code has been transcribed or otherwise adapted from digitized 028802,000022: # images of a hardcopy from the MIT Museum. The digitization was performed 028803,000023: # by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many 028804,000024: # thanks to both. The images (with suitable reduction in storage size and 028805,000025: # consequent reduction in image quality as well) are available online at 028806,000026: # www.ibiblio.org/apollo. If for some reason you find that the images are 028807,000027: # illegible, contact me at info@sandroid.org about getting access to the 028808,000028: # (much) higher-quality images which Paul actually created. 028809,000029: 028810,000030: # Notations on the hardcopy document read, in part: 028811,000031: 028812,000032: # Assemble revision 055 of AGC program Comanche by NASA 028813,000033: # 2021113-051. 10:28 APR. 1, 1969 028814,000034: 028815,000035: # This AGC program shall also be referred to as 028816,000036: # Colossus 2A 028817,000037: 028818,000038: # Page 649 028819,000039: # COELLIPTIC SEQUENCE INITIATION (CSI) PROGRAMS (P32 AND P72) 028820,000040: 028821,000041: # MOD NO -1 LOG SECTION -- P32-P35, P72-P75 028822,000042: # MOD BY WHITE, P. DATE 1 JUNE 67 028823,000043: 028824,000044: # PURPOSE 028825,000045: # (1) TO CALCULATE PARAMETERS ASSOCIATED WTIH THE FOLLOWING 028826,000046: # CONCENTRIC FLIGHT PLAN MANEUVERS -- THE CO-ELLIPTIC SEQUENCE 028827,000047: # INITIATION (CSI) MANEUVER AND THE CONSTANT DELTA ALTITUDE 028828,000048: # (CDH) MANEUVER. 028829,000049: # (2) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA 028830,000050: # APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT. 028831,000051: # (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES 028832,000052: # ASSOCIATED WITH THE CONCENTRIC FLIGHT PLAN MANEUVERS FOR 028833,000053: # APPROVAL BY THE ASTRRONAUT/GROUND. 028834,000054: # (4) TO STORE THE CSI TARGET PARAMETERS FOR USE BY THE DESIRED 028835,000055: # THRUSTING PROGRAM. 028836,000056: 028837,000057: # ASSUMPTIONS 028838,000058: # (1) AT A SELECTED TPI TIME THE LINE OF SIGNT BETWEEN THE ACTIVE 028839,000059: # AND PASSIVE VEHICLES IS SELECTED TO BE A PRESCRIBED ANGLE (E) 028840,000060: # FROM THE HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE 028841,000061: # POSITION. 028842,000062: # (2) THE TIME BETWEEN CSI IGNITION AND CDH IGNITION MUST BE 028843,000063: # COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL 028844,000064: # COMPLETION OF THE PROGRAM. 028845,000065: # (3) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION MUST BE 028846,000066: # COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL 028847,000067: # COMPLETION OF THE PROGRAM. 028848,000068: # (4) CDH DELTA V IS SELECTED TO MINIMIZE THE VARIATION OF THE 028849,000069: # ALTITUDE DIFFERENCE BETWEEN THE ORBITS. 028850,000070: # (5) CSI BURN IS DEFINED SUCH THAT THE IMPULSIVE DELTA V IS IN THE 028851,000071: # HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION AT CSI 028852,000072: # IGNITION. 028853,000073: # (6) THE PERICENTER ALTITUDE OF THE ORBIT FOLLOWING CSI AND CDH 028854,000074: # MUST BE GREATER THAN 35,000 FT (LUNAR ORBIT) OR 85 NM (EARTH 028855,000075: # ORBIT) FOR SUCCESSFUL COMPLETION OF THIS PROGRAM. 028856,000076: # (7) THE CSI AND CDH MANEUVERS ARE ORIGINALLY ASSUMED TO BE 028857,000077: # PARALLEL TO THE PLANE OF THE CSM ORBIT. HOWEVER, CREW 028858,000078: # Page 650 028859,000079: # MODIFICATION OF DELTA V (LV) COMPONENTS MAY RESULT IN AN 028860,000080: # OUT-OF-PLANE CSI MANEUVER 028861,000081: # (8) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC 028862,000082: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 10). 028863,000083: # (9) COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY 028864,000084: # THE GROUND. THESE STORAGE CAPABILITIES ARE NORMALLY LIMITED 028865,000085: # ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME 028866,000086: # EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES. 028867,000087: # (10) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM 028868,000088: # OR CSM STATE VECTORS FOR THIS PROGRAM. IF RADAR USE IS 028869,000089: # DESIRED THE RADAR WAS TURNED ON AND LOCKED BY THE CSM BY 028870,000090: # PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS WILL BE MADE 028871,000091: # AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE 028872,000092: # TRACK AND UPDATE FLAGS (SEE P20). THE RENDEZVOUS TRACKING 028873,000093: # MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH 028874,000094: # THRUSTING MANEUVER. 028875,000095: # (11) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM. 028876,000096: # (12) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -- 028877,000097: 028878,000098: # ACTIVE VEHICLE FLAG -- DESIGNATES THE VEHICLE WHICH IS 028879,000099: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH 028880,000100: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF 028881,000101: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM. 028882,000102: 028883,000103: # FINAL FLAG -- SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS 028884,000104: # COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY 028885,000105: # CYCLE. 028886,000106: 028887,000107: # EXTERNAL DELTA V STEERING FLAG -- DESIGNATES THE TYPE OF 028888,000108: # STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE 028889,000109: # THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS 028890,000110: # PROGRAM. 028891,000111: 028892,000112: # (13) IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO 028893,000113: # A THRUSTING MANEUVER. 028894,000114: 028895,000115: # (14) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY 028896,000116: 028897,000117: # P32 IF THIS VEHICLE IS ACTIVE VEHICLE. 028898,000118: 028899,000119: # P72 IF THIS VEHICLE IS THE PASSIVE VEHICLE. 028900,000120: 028901,000121: # INPUT 028902,000122: # (1) TCSI TIME OF THE CSI MANEUVER 028903,000123: # Page 651 028904,000124: # (2) NN NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE 028905,000125: # VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH 028906,000126: # MANEUVER POINT. 028907,000127: # (3) ELEV DESIRED LOS ANGLE AT TPI 028908,000128: # (4) TTPI TIME OF THE TPI MANEUVER 028909,000129: 028910,000130: # OUTPUT 028911,000131: # (1) TRKMKCNT NUMBER OF MARKS 028912,000132: # (2) TTOGO TIME TO GO 028913,000133: # (3) +MGA MIDDLE GIMBAL ANGLE 028914,000134: # (4) DIFFALT DELTA ALTITUDE AT CDH 028915,000135: # (5) T1TOT2 DELTA TIME FROM CSI TO CDH 028916,000136: # (6) T2TOT3 DELTA TIME FROM CDH TO TPI 028917,000137: # (7) DELVLVC DELTA VELOCITY AT CSI -- LOCAL VERTICAL COORDINATES 028918,000138: # (8) DELVLVC DELTA VELOCITY AT CDH -- LOCAL VERTICAL COORDINATES 028919,000139: 028920,000140: # DOWNLINK 028921,000141: # (1) TCSI TIME OF THE CSI MANEUVER 028922,000142: # (2) TCDH TIME OF THE CDH MANEUVER 028923,000143: # (3) TTPI TIME OF THE TPI MANEUVER 028924,000144: # (4) TIG TIME OF THE CSI MANEUVER 028925,000145: # (5) DELVEET1 DELTA VELOCITY AT CSI -- REFERENCE COORDINATES 028926,000146: # (6) DELVEET2 DELTA VELOCITY AT CDH -- REFERENCE COORDINATES 028927,000147: # (7) DIFFALT DELTA ALTITUDE AT CDH 028928,000148: # (8) NN NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE 028929,000149: # VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH 028930,000150: # MANEUVER POINT 028931,000151: # (9) ELEV DESIRED LOS ANGLE AT TPI 028932,000152: 028933,000153: # COMMUNICATION TO THRUSTING PROGRAMS 028934,000154: # (1) TIG TIME OF THE CSI MANEUVER 028935,000155: # (2) RTIG POSITION OF ACTIVE VEHICLE AT CSI -- BEFORE ROTATION 028936,000156: # INTO PLANE OF PASSIVE VEHICLE 028937,000157: # (3) VTIG VELOCITY OF ACTIVE VEHICLE AT CSE -- BEFORE ROTATION 028938,000158: # INTO PLANE OF PASSIVE VEHICLE 028939,000159: # (4) DELVSIN DELTA VELOCITY AT CSI -- REFERENCE COORDINATES 028940,000160: # (5) DELVSAB MAGNITUDE OF DELTA VELOCITY AT CSI 028941,000161: # (6) XDELVFLG SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION 028942,000162: 028943,000163: # SUBROUTINES USED 028944,000164: # AVFLAGA 028945,000165: # AVFLAGP 028946,000166: # P20FLGON 028947,000167: # VARALARM 028948,000168: # BANKCALL 028949,000169: # GOFLASH 028950,000170: # GOTOP00H 028951,000171: # Page 652 028952,000172: # VNP00H 028953,000173: # GOFLASHR 028954,000174: # BLANKET 028955,000175: # ENDOFJOB 028956,000176: # SELECTMU 028957,000177: # ADVANCE 028958,000178: # INTINT 028959,000179: # PASSIVE 028960,000180: # CSI/A 028961,000181: # S32/33.1 028962,000182: # DISDVLVC 028963,000183: # VN1645 028964,000184: 028965,000185: 35,3445 BANK 35 028966,000186: 04,2000 SETLOC CSI/CDH1 028967,000187: 04,2000 BANK 028968,000188: 04,3303 E4,1770 EBANK= SUBEXIT 028969,000189: 04,3303 COUNT 35/P3272 028970,000190: 04,3303 04627 P32 TC AVFLAGA 028971,000191: 04,3304 03306 TC P32STRT 028972,000192: 04,3305 04642 P72 TC AVFLAGP 028973,000193: 04,3306 06006 P32STRT TC INTPRET 028974,000194: 04,3307 77745 DLOAD 028975,000195: 04,3310 11566 ZEROVEC 028976,000196: 04,3311 03754 STORE CENTANG 028977,000197: 04,3312 77776 EXIT 028978,000198: 04,3313 03331 TC P32/P72A 028979,000199: 04,3314 77734 ALMXITA SXA,2 028980,000200: 04,3315 03664 CSIALRM 028981,000201: 04,3316 77740 ALMXIT LXC,1 028982,000202: 04,3317 03664 CSIALRM 028983,000203: 04,3320 77533 SLOAD* EXIT 028984,000204: 04,3321 15653 ALARM/TB -1,1 028985,000205: 04,3322 30154 CA MPAC 028986,000206: 04,3323 05764 TC VARALARM 028987,000207: 04,3324 35050 CAF V05N09 028988,000208: 04,3325 04662 TC BANKCALL 028989,000209: 04,3326 20720 CADR GOFLASH 028990,000210: 04,3327 04106 TC GOTOP00H 028991,000211: 04,3330 03324 TC -4 028992,000212: 04,3331 04647 P32/P72A TC P20FLGON 028993,000213: 04,3332 06006 TC INTPRET 028994,000214: 04,3333 77745 DLOAD 028995,000215: 04,3334 11566 ZEROVEC 028996,000216: 04,3335 03766 STORE NN 028997,000217: 04,3336 77776 EXIT 028998,000218: 04,3337 34656 CAF V06N11 # TCSI 028999,000219: 04,3340 04575 TC VNP00H 029000,000220: 04,3341 34615 CAF V06N55 029001,000221: # Page 653 029002,000222: 04,3342 04662 TC BANKCALL 029003,000223: 04,3343 20720 CADR GOFLASH 029004,000224: 04,3344 04106 TC GOTOP00H 029005,000225: 04,3345 03347 TC +2 029006,000226: 04,3346 03341 TC -5 029007,000227: 04,3347 34614 CAF V06N37 # TTPI 029008,000228: 04,3350 04575 TC VNP00H 029009,000229: 04,3351 06006 TC INTPRET 029010,000230: 04,3352 77745 DLOAD 029011,000231: 04,3353 02637 TCSI 029012,000232: 04,3354 37413 STCALL TIG 029013,000233: 04,3355 10712 SELECTMU 029014,000234: 04,3356 77624 P32/P72B CALL 029015,000235: 04,3357 76645 ADVANCE 029016,000236: 04,3360 77201 SETPD VLOAD 029017,000237: 04,3361 00001 0D 029018,000238: 04,3362 03512 VPASS1 029019,000239: 04,3363 65315 PDVL PDDL 029020,000240: 04,3364 03756 RPASS1 029021,000241: 04,3365 02637 TCSI 029022,000242: 04,3366 65325 PDDL PDDL 029023,000243: 04,3367 03663 TTPI 029024,000244: 04,3370 11630 2PISC 029025,000245: 04,3371 41512 SL2 PUSH 029026,000246: 04,3372 77624 CALL 029027,000247: 04,3373 72705 INTINT 029028,000248: 04,3374 77624 CALL 029029,000249: 04,3375 45247 PASSIVE 029030,000250: 04,3376 77624 CALL 029031,000251: 04,3377 15704 CSI/A 029032,000252: 04,3400 43014 P32/P72C BON SET 029033,000253: 04,3401 01311 FINALFLG 029034,000254: 04,3402 11404 P32/P72D 029035,000255: 04,3403 00470 UPDATFLG 029036,000256: 04,3404 52145 P32/P72D DLOAD GOTO 029037,000257: 04,3405 02547 T1TOT2 029038,000258: 04,3406 30002 P32/P72E 029039,000259: 14,2000 SETLOC CSI/CDH3 029040,000260: 14,2000 BANK 029041,000261: 14,2002 02547 P32/P72E STORE T1TOT2 029042,000262: 14,2003 51025 DSU BPL 029043,000263: 14,2004 15652 60MIN 029044,000264: 14,2005 30002 P32/P72E 029045,000265: 14,2006 52145 DLOAD GOTO 029046,000266: 14,2007 03656 T2TOT3 029047,000267: 14,2010 11407 P32/P72F 029048,000268: 04,2000 SETLOC CSI/CDH1 029049,000269: 04,2000 BANK 029050,000270: 04,3407 03656 P32/P72F STORE T2TOT3 029051,000271: 04,3410 51025 DSU BPL 029052,000272: # Page 654 029053,000273: 04,3411 15652 60MIN 029054,000274: 04,3412 11407 P32/P72F 029055,000275: 04,3413 77776 EXIT 029056,000276: 04,3414 34660 CAF V06N75 029057,000277: 04,3415 04575 TC VNP00H 029058,000278: 04,3416 06006 TC INTPRET 029059,000279: 04,3417 45175 VLOAD CALL 029060,000280: 04,3420 02445 DELVEET1 029061,000281: 04,3421 73457 S32/33.1 029062,000282: 04,3422 26445 STOVL DELVEET1 029063,000283: 04,3423 02453 RACT2 029064,000284: 04,3424 26541 STOVL RACT1 029065,000285: 04,3425 03667 DELVEET2 029066,000286: 04,3426 45170 AXT,1 CALL 029067,000287: 04,3427 01522 VN 0682 029068,000288: 04,3430 76625 DISDVLVC 029069,000289: 04,3431 77745 DLOAD 029070,000290: 04,3432 03663 TTPI 029071,000291: 04,3433 36641 STCALL TTPIO 029072,000292: 04,3434 73002 VN1645 029073,000293: 04,3435 77650 GOTO 029074,000294: 04,3436 11356 P32/P72B 029075,000295: 029076,000296: # Page 655 029077,000297: # CONSTANT DELTA HEIGHT (CDH) PROGRAMS (P33 AND P73) 029078,000298: # MOD NO -1 LOC SECTION -- P32-P35, P72-P75 029079,000299: # MOD BY WHITE, P. DATE: 1 JUNE 67 029080,000300: 029081,000301: # PURPOSE 029082,000302: 029083,000303: # (1) TO CALCULATE PARAMETERS ASSOCIATED WITH THE CONSTANT DELTA 029084,000304: # ALTITUDE MANEUVER (CDH). 029085,000305: 029086,000306: # (2) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA 029087,000307: # APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT. 029088,000308: 029089,000309: # (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES 029090,000310: # ASSOCIATED WITH THE CDH MANEUVER FOR APPROVAL BY THE 029091,000311: # ASTRONAUT/GROUND. 029092,000312: 029093,000313: # (4) TO STORE THE CDH TARGET PARAMETERS FOR USE BY THE DESIRED 029094,000314: # THRUSTING PROGRAM. 029095,000315: 029096,000316: # ASSUMPTIONS 029097,000317: 029098,000318: # (1) THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF THE 029099,000319: # CO-ELLIPTIC SEQUENCE INITIATION (CSI) PROGRAM (P32/P72). 029100,000320: # THEREFORE -- 029101,000321: 029102,000322: # (A) AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT 029103,000323: # BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE 029104,000324: # A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE 029105,000325: # HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION. 029106,000326: 029107,000327: # (B) THE TIME BETWEEN CSI IGNITION AND CDH IGNITION WAS 029108,000328: # COMPUTED TO BE GREATER THAN 10 MINUTES. 029109,000329: 029110,000330: # (C) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS 029111,000331: # COMPUTED TO BE GREATER THAN 10 MINUTES. 029112,000332: 029113,000333: # (D) THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE 029114,000334: # ORBITS WAS MINIMIZED. 029115,000335: 029116,000336: # (E) CSI BURN WAS DEFINED SUCH THAT THE IMPULSIVE DELTA V WAS 029117,000337: # IN THE HORIZONTAL PLANE DEFINED BY ACTIVE VEHICLE 029118,000338: # POSITION AT CSI IGNITION. 029119,000339: 029120,000340: # (F) THE PERICENTER ALTITUDES OF THE ORBITS FOLLOWING CSI AND 029121,000341: # CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR 029122,000342: # ORBIT OR 85 NM FOR EARTH ORBIT. 029123,000343: 029124,000344: # (G) THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO 029125,000345: # THE PLANE OF THE PASSIVE VEHICLE ORBIT. HOWEVER, CREW 029126,000346: # Page 656 029127,000347: # MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED 029128,000348: # IN AN OUT-OF-PLANE MANEUVER. 029129,000349: 029130,000350: # (2) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC 029131,000351: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 4). 029132,000352: 029133,000353: # (3) COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY 029134,000354: # THE GROUND. THESE STORAGE CAPABILITIES ARE NORMALLY LIMITED 029135,000355: # ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME 029136,000356: # EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES. 029137,000357: 029138,000358: # (4) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM. 029139,000359: # OR CSM STATE VECTORS FOR THIS PROGRAM. IF RADAR USE IS 029140,000360: # DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY 029141,000361: # PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS WILL BE MADE 029142,000362: # AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE 029143,000363: # TRACK AND UPDATE FLAGS (SEE P20). THE RENDEZVOUS TRACKING 029144,000364: # MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH 029145,000365: # THRUSTING MANEUVER. 029146,000366: 029147,000367: # (5) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM. 029148,000368: 029149,000369: # (6) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -- 029150,000370: 029151,000371: # ACTIVE VEHICLE FLAG -- DESIGNATES THE VEHICLE WHICH IS 029152,000372: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH 029153,000373: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF 029154,000374: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM. 029155,000375: 029156,000376: # FINAL FLAG -- SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS 029157,000377: # COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY 029158,000378: # CYCLE. 029159,000379: 029160,000380: # EXTERNAL DELTA V STEERING FLAG -- DESIGNATES THE TYPE OF 029161,000381: # STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE 029162,000382: # THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS 029163,000383: # PROGRAM. 029164,000384: 029165,000385: # (7) IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO 029166,000386: # A THRUSTING MANEUVER. 029167,000387: 029168,000388: # (8) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY. 029169,000389: 029170,000390: # P33 IF THIS VEHICLE IS ACTIVE VEHICLE. 029171,000391: 029172,000392: # P73 IF THIS VEHICLE IS PASSIVE VEHICLE. 029173,000393: 029174,000394: # INPUT 029175,000395: 029176,000396: # (1) TTPIO TIME OF THE TPI MANEUVER -- SAVED FROM P32/P72 029177,000397: # Page 657 029178,000398: # (2) ELEV DESIRED LOS ANGLE AT TPI -- SAVED FROM P32/P72 029179,000399: # (3) TCDH TIME OF THE CDH MANEUVER 029180,000400: 029181,000401: # OUTPUT 029182,000402: 029183,000403: # (1) TRKMKCNT NUMBER OF MARKS 029184,000404: # (2) TTOGO TIME TO GO 029185,000405: # (3) +MGA MIDDLE GIMBAL ANGLE 029186,000406: # (4) DIFFALT DELTA ALTITUDE AT CDH 029187,000407: # (5) T2TOT3 DELTA TIME FROM CDH TO COMPUTED TPI 029188,000408: # (6) NOMTPI DELTA TIME FROM NOMINAL TPI TO COMPUTED TPI 029189,000409: # (7) DELVLVC DELTA VELOCITY AT CDH -- LOCAL VERTICAL COORDINATES 029190,000410: 029191,000411: # DOWNLINK 029192,000412: 029193,000413: # (1) TCDH TIME OF THE CDH MANEUVER 029194,000414: # (2) TTPI TIME OF THE TPI MANEUVER 029195,000415: # (3) TIG TIME OF THE CDH MANEUVER 029196,000416: # (4) DELLVEET2 DELTA VELOCITY AT CDH -- REFERENCE COORDINATES 029197,000417: # (5) DIFFALT DELTA ALTITUDE AT CDH 029198,000418: # (6) ELEV DESIRED LOS ANGLE AT TPI 029199,000419: 029200,000420: # COMMUNICATION TO THRUSTING PROGRAMS 029201,000421: 029202,000422: # (1) TIG TIME OF THE CDH MANEUVER 029203,000423: # (2) RTIG POSITION OF ACTIVE VEHICLE AT CDH -- BEFORE ROTATION 029204,000424: # INTO PLANE OF PASSIVE VEHICLE. 029205,000425: # (3) VTIG VELOCITY OF ACTIVE VEHICLE AT CDH -- BEFORE ROTATION 029206,000426: # INTO PLANE OF PASSIVE VEHICLE. 029207,000427: # (4) DELVSIN DELTA VELOCITY AT CDH -- REFERENCE COORDINATES. 029208,000428: # (5) DELVSAB MAGNITUDE OF DELTA VELOCITY AT CDH. 029209,000429: # (6) XDELVFLG SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION. 029210,000430: 029211,000431: # SUBROUTINES USED 029212,000432: 029213,000433: # AVFLAGA 029214,000434: # AVFLAGP 029215,000435: # P20FLGON 029216,000436: # VNP00H 029217,000437: # SELECTMU 029218,000438: # ADVANCE 029219,000439: # CDHMVR 029220,000440: # INTINT3P 029221,000441: # ACTIVE 029222,000442: # PASSIVE 029223,000443: # S33/S34.1 029224,000444: # ALARM 029225,000445: # BANKCALL 029226,000446: # GOFLASH 029227,000447: # GOTOP00H 029228,000448: # S32/33.1 029229,000449: # Page 658 029230,000450: # VN1645 029231,000451: 029232,000452: 04,3437 COUNT 35/P3373 029233,000453: 029234,000454: 04,3437 04627 P33 TC AVFLAGA 029235,000455: 04,3440 03442 TC P33/P73A 029236,000456: 04,3441 04642 P73 TC AVFLAGP 029237,000457: 04,3442 04647 P33/P73A TC P20FLGON 029238,000458: 04,3443 34657 CAF V06N13 # TCDH 029239,000459: 04,3444 04575 TC VNP00H 029240,000460: 04,3445 06006 TC INTPRET 029241,000461: 04,3446 77745 DLOAD 029242,000462: 04,3447 02641 TTPIO 029243,000463: 04,3450 17663 STODL TTPI 029244,000464: 04,3451 02635 TCDH 029245,000465: 04,3452 37413 STCALL TIG 029246,000466: 04,3453 10712 SELECTMU 029247,000467: 04,3454 77624 P33/P73B CALL 029248,000468: 04,3455 76645 ADVANCE 029249,000469: 04,3456 77624 CALL 029250,000470: 04,3457 13230 CDHMVR 029251,000471: 04,3460 77201 SETPD VLOAD 029252,000472: 04,3461 00001 0D 029253,000473: 04,3462 03546 VACT3 029254,000474: 04,3463 45115 PDVL CALL 029255,000475: 04,3464 02453 RACT2 029256,000476: 04,3465 63671 INTINT3P 029257,000477: 04,3466 77624 CALL 029258,000478: 04,3467 45237 ACTIVE 029259,000479: 04,3470 77201 SETPD VLOAD 029260,000480: 04,3471 00001 0D 029261,000481: 04,3472 02617 VPASS2 029262,000482: 04,3473 45115 PDVL CALL 029263,000483: 04,3474 02625 RPASS2 029264,000484: 04,3475 63671 INTINT3P 029265,000485: 04,3476 77624 CALL 029266,000486: 04,3477 45247 PASSIVE 029267,000487: 04,3500 43145 DLOAD SET 029268,000488: 04,3501 11566 ZEROVEC 029269,000489: 04,3502 03461 ITSWICH 029270,000490: 04,3503 36364 STCALL NOMTPI 029271,000491: 04,3504 72216 S33/34.1 029272,000492: 04,3505 77454 BZE EXIT 029273,000493: 04,3506 24000 P33/P73C 029274,000494: 04,3507 05650 TC ALARM 029275,000495: 04,3510 00611 OCT 611 029276,000496: 04,3511 35050 CAF V05N09 029277,000497: 04,3512 04662 TC BANKCALL 029278,000498: 04,3513 20720 CADR GOFLASH 029279,000499: 04,3514 04106 TC GOTOP00H 029280,000500: # Page 659 029281,000501: 04,3515 03517 TC +2 029282,000502: 04,3516 03442 TC P33/P73A 029283,000503: 04,3517 06006 TC INTPRET 029284,000504: 04,3520 77745 DLOAD 029285,000505: 04,3521 11566 ZEROVEC 029286,000506: 04,3522 36364 STCALL NOMTPI 029287,000507: 04,3523 24000 P33/P73C 029288,000508: 12,2000 SETLOC CSI/CDH2 029289,000509: 12,2000 BANK 029290,000510: 029291,000511: 12,2000 43014 P33/P73C BON SET 029292,000512: 12,2001 01311 FINALFLG 029293,000513: 12,2002 24004 P33/P73D 029294,000514: 12,2003 00470 UPDATFLG 029295,000515: 12,2004 43345 P33/P73D DLOAD DAD 029296,000516: 12,2005 02364 NOMTPI 029297,000517: 12,2006 03663 TTPI 029298,000518: 12,2007 03663 STORE TTPI 029299,000519: 12,2010 52025 DSU GOTO 029300,000520: 12,2011 02635 TCDH 029301,000521: 12,2012 11524 P33/P73E 029302,000522: 04,2000 SETLOC CSI/CDH1 029303,000523: 04,2000 BANK 029304,000524: 029305,000525: 04,3524 51025 P33/P73E DSU BPL 029306,000526: 04,3525 15652 60MIN 029307,000527: 04,3526 11524 P33/P73E 029308,000528: 04,3527 77615 DAD 029309,000529: 04,3530 15652 60MIN 029310,000530: 04,3531 16547 STODL T1TOT2 029311,000531: 04,3532 03663 TTPI 029312,000532: 04,3533 41425 DSU PUSH 029313,000533: 04,3534 02641 TTPIO 029314,000534: 04,3535 45246 P33/P73F ABS DSU 029315,000535: 04,3536 15652 60MIN 029316,000536: 04,3537 43244 BPL DAD 029317,000537: 04,3540 11535 P33/P73F 029318,000538: 04,3541 15652 60MIN 029319,000539: 04,3542 45565 SIGN STADR 029320,000540: 04,3543 74121 STORE T2TOT3 029321,000541: 04,3544 77776 EXIT 029322,000542: 04,3545 34660 CAF V06N75 029323,000543: 04,3546 04575 TC VNP00H 029324,000544: 04,3547 06006 TC INTPRET 029325,000545: 04,3550 45175 VLOAD CALL 029326,000546: 04,3551 03667 DELVEET2 029327,000547: 04,3552 73457 S32/33.1 029328,000548: 04,3553 37667 STCALL DELVEET2 029329,000549: 04,3554 73002 VN1645 029330,000550: 04,3555 77650 GOTO 029331,000551: # Page 660 029332,000552: 04,3556 11454 P33/P73B 029333,000553: 029334,000554: # Page 661 029335,000555: # ***** AVFLAGA/P ***** 029336,000556: 029337,000557: # Page 662 029338,000558: # ***** DISDVLVC ***** 029339,000559: 029340,000560: # SUBROUTINES USED 029341,000561: 029342,000562: # S32/33.X 029343,000563: # VNP00H 029344,000564: 029345,000565: 37,2000 SETLOC CDHTAG3 029346,000566: 37,2000 BANK 029347,000567: 029348,000568: 37,2625 03405 DISDVLVC STORE DELVLVC 029349,000569: 37,2626 45020 STQ CALL 029350,000570: 37,2627 01340 NORMEX 029351,000571: 37,2630 26231 S32/33.X 029352,000572: 37,2631 64375 VLOAD MXV 029353,000573: 37,2632 03405 DELVLVC 029354,000574: 37,2633 00001 0D 029355,000575: 37,2634 66172 VSL1 SXA,1 029356,000576: 37,2635 02365 VERBNOUN 029357,000577: 37,2636 03405 STORE DELVLVC 029358,000578: 37,2637 77776 EXIT 029359,000579: 37,2640 31765 CA VERBNOUN 029360,000580: 37,2641 04575 TC VNP00H 029361,000581: 37,2642 06006 TC INTPRET 029362,000582: 37,2643 77650 GOTO 029363,000583: 37,2644 01340 NORMEX 029364,000584: 4000 SETLOC FFTAG12 029365,000585: 4000 BANK 029366,000586: 029367,000587: 4656 01413 V06N11 VN 0611 029368,000588: 4657 01415 V06N13 VN 0613 029369,000589: 4660 01513 V06N75 VN 0675 029370,000590: 029371,000591: 4661 01462 V06N50 VN 0650 029372,000592: 029373,000593: # Page 663 029374,000594: 029375,000595: # ***** CSI/A ***** 029376,000596: 029377,000597: # SUBROUTINES USED 029378,000598: 029379,000599: # VECSHIFT 029380,000600: # TIMETHET 029381,000601: # PERIAPO 029382,000602: # SHIFTR1 029383,000603: # INTINT2C 029384,000604: # CDHMVR 029385,000605: # PERIAPO1 029386,000606: # INTINT 029387,000607: # ACTIVE 029388,000608: 029389,000609: 34,3763 BANK 34 029390,000610: 06,2000 SETLOC CSIPROG 029391,000611: 06,2000 BANK 029392,000612: 06,3651 E4,1770 EBANK= SUBEXIT 029393,000613: 06,3651 COUNT 34/CSI 029394,000614: 029395,000615: 06,3651 00025 37100 60MIN 2DEC 360000 B-28 029396,000616: 029397,000617: 06,3653 00600 ALARM/TB OCT 00600 # NO 1 029398,000618: 06,3654 00601 OCT 00601 # 2 029399,000619: 06,3655 00602 OCT 00602 # 3 029400,000620: 06,3656 00603 OCT 00603 # 4 029401,000621: 06,3657 00604 OCT 00604 # 5 029402,000622: 06,3660 00605 OCT 00605 # 6 029403,000623: 06,3661 00606 OCT 00606 # 7 029404,000624: 06,3662 00000 00020 LOOPMX 2DEC 16 B-28 029405,000625: 029406,000626: 06,3664 00003 34661 INITST 2DEC .03048 B-7 # INITIAL DELDV = 10 FPS 029407,000627: 029408,000628: 06,3666 00606 04467 DVMAX1 2DEC 3.0480 B-7 # MAXIMUM DV1 = 1000 FPS 029409,000629: 029410,000630: 06,3670 00601 33216 DVMAX2 2DEC 3.014472 B-7 # 989 FPS 029411,000631: 029412,000632: 06,3672 10000 00000 1DPB2 2DEC 1.0 B-2 029413,000633: 029414,000634: 06,3674 00000 00001 1DPB28 2DEC 1 B-28 029415,000635: 029416,000636: 06,3676 00000 01177 EPSILN1 2DEC .0003048 B-7 # .1 FPS 029417,000637: 029418,000638: 029419,000639: 06,3700 77754 57611 FIFPSDP 2DEC -.152400 B-7 # 5 FPS 029420,000640: 029421,000641: 06,3702 00116 00730 DELMAX1 2DEC .6096000 B-7 # 200 FPS 029422,000642: 029423,000643: 35,2000 SETLOC CSI/CDH 029424,000644: 35,2000 BANK 029425,000645: 35,3445 00004 31566 PMINE 2DEC 157420 B-29 # 84 NM -- MUST BE 8 WORDS BEFORE PMINM 029426,000646: 029427,000647: # Page 664 029428,000648: 029429,000649: 35,3447 00002 27311 NICKELDP 2DEC .021336 B-7 # 7 FPS 029430,000650: 029431,000651: 35,3451 00003 34661 INITST1 2DEC .03048 B-7 # INITIAL DELDV = 10 FPS 029432,000652: 029433,000653: 35,3453 00000 06433 ONETHTH 2DEC .0001 B-3 029434,000654: 029435,000655: 35,3455 00000 12326 PMINM 2DEC 10668 B-29 # 35000 FT -- MUST BE 8 WORDS AFTER PMINE 029436,000656: 029437,000657: 06,2000 SETLOC CSIPROG 029438,000658: 06,2000 BANK 029439,000659: 029440,000660: 06,3704 43014 CSI/A CLEAR SET # INITIALIZE INDICATORS 029441,000661: 06,3705 05660 S32.1F1 # DVT1 HAS EXCEEDED MAX INDICATOR 029442,000662: 06,3706 05461 S32.1F2 # FIRST PASS FOR NEWTON ITERATION INDICATOR 029443,000663: 06,3707 43014 CLEAR SET 029444,000664: 06,3710 05662 S32.1F3A # 00=1ST 2 PASSES 2ND CYCLE, 01=FIRST CYCLE 029445,000665: 06,3711 05463 S32.1F3B # 10=2ND CYCLE, 11=50 FPS STAGE 2ND CYCLE 029446,000666: 06,3712 77745 DLOAD 029447,000667: 06,3713 11566 ZEROVEC 029448,000668: 06,3714 03764 STORE LOOPCT 029449,000669: 06,3715 03665 STORE CSIALRM 029450,000670: 06,3716 77201 CSI/B SETPD VLOAD 029451,000671: 06,3717 00001 0D 029452,000672: 06,3720 02541 RACT1 029453,000673: 06,3721 41446 ABVAL PUSH # RA1 B29 PL02D 029454,000674: 06,3722 70501 NORM SR1 029455,000675: 06,3723 00050 X2 # B29-N2+ B1 PL04D 029456,000676: 06,3724 51515 PDVL ABVAL 029457,000677: 06,3725 03554 RPASS3 029458,000678: 06,3726 55301 NORM BDDV # RA1/RP3 B1 PL02D 029459,000679: 06,3727 00047 X1 029460,000680: 06,3730 53664 XSU,2 SR* # B2 029461,000681: 06,3731 00046 X1 029462,000682: 06,3732 57175 1,2 029463,000683: 06,3733 41215 DAD DMP # (1+(RA1/RP3))RA1 B29+B2=B31 PL00D 029464,000684: 06,3734 15673 1DPB2 029465,000685: 06,3735 65301 NORM PDDL # PL02D 029466,000686: 06,3736 00047 X1 029467,000687: 06,3737 03750 RTMU 029468,000688: 06,3740 56342 SR1 DDV # B38-B31= B7 PL00D 029469,000689: 06,3741 75457 SL* SQRT # B7 029470,000690: 06,3742 20172 0 -7,1 029471,000691: 06,3743 53515 PDVL UNIT # PL02D 029472,000692: 06,3744 02541 RACT1 029473,000693: 06,3745 47315 PDVL VXV 029474,000694: 06,3746 02611 UP1 029475,000695: 06,3747 77656 UNIT # UNIT(URP1 X UVP1 X URA1) = UH1 029476,000696: 06,3750 72441 DOT SL1 # VA1 . UH1 B7 029477,000697: 06,3751 03504 VACT1 029478,000698: 06,3752 45421 BDSU STADR # PL00D 029479,000699: # Page 665 029480,000700: 06,3753 60315 STODL DELVCSI 029481,000701: 06,3754 15665 INITST # 10 FPS 029482,000702: 06,3755 03464 STORE DELDV 029483,000703: 06,3756 43345 CSI/B1 DLOAD DAD # IF LOOPCT = 16 029484,000704: 06,3757 03764 LOOPCT 029485,000705: 06,3760 15675 1DPB28 029486,000706: 06,3761 03764 STORE LOOPCT 029487,000707: 06,3762 77025 DSU AXT,2 029488,000708: 06,3763 15663 LOOPMX 029489,000709: 06,3764 00006 6 029490,000710: 06,3765 52044 BPL GOTO 029491,000711: 06,3766 63642 SCNDSOL 029492,000712: 06,3767 24013 CSI/B2 029493,000713: 029494,000714: 12,2000 SETLOC CSIPROG2 029495,000715: 12,2000 BANK 029496,000716: 029497,000717: 12,2013 77601 CSI/B2 SETPD 029498,000718: 12,2014 00001 0D 029499,000719: 12,2015 51545 DLOAD ABS 029500,000720: 12,2016 03462 DELVCSI 029501,000721: 12,2017 50025 DSU BMN 029502,000722: 12,2020 15667 DVMAX1 029503,000723: 12,2021 45267 CSI/B23 029504,000724: 12,2022 43174 AXT,2 BON 029505,000725: 12,2023 00007 7 029506,000726: 12,2024 05700 S32.1F1 029507,000727: 12,2025 63642 SCNDSOL 029508,000728: 12,2026 43014 BOFF BON 029509,000729: 12,2027 05742 S32.1F3A 029510,000730: 12,2030 24033 CSI/B22 # FLAG 3 NEQ 3 029511,000731: 12,2031 05703 S32.1F3B 029512,000732: 12,2032 63642 SCNDSOL 029513,000733: 12,2033 71214 CSI/B22 SET DLOAD 029514,000734: 12,2034 05460 S32.1F1 029515,000735: 12,2035 15671 DVMAX2 029516,000736: 12,2036 77765 SIGN 029517,000737: 12,2037 03462 DELVCSI 029518,000738: 12,2040 37462 STCALL DELVCSI 029519,000739: 12,2041 45267 CSI/B23 029520,000740: 029521,000741: 22,2000 SETLOC CSIPROG3 029522,000742: 22,2000 BANK 029523,000743: 029524,000744: 22,3267 41575 CSI/B23 VLOAD PUSH 029525,000745: 22,3270 02541 RACT1 029526,000746: 22,3271 63256 UNIT PDVL 029527,000747: 22,3272 02611 UP1 029528,000748: 22,3273 53435 VXV UNIT # UNIT (URP1 X UVP1 X URA1) = UH1 029529,000749: 22,3274 76561 VXSC VSL1 029530,000750: # Page 666 029531,000751: 22,3275 03462 DELVCSI 029532,000752: 22,3276 02445 STORE DELVEET1 029533,000753: 22,3277 40055 VAD BOV 029534,000754: 22,3300 03504 VACT1 029535,000755: 22,3301 45302 CSI/B23D 029536,000756: 22,3302 37474 CSI/B23D STCALL VACT4 029537,000757: 22,3303 45253 VECSHIFT 029538,000758: 22,3304 26746 STOVL VVEC 029539,000759: 22,3305 77614 SET 029540,000760: 22,3306 03466 RVSW 029541,000761: 22,3307 26657 STOVL RVEC 029542,000762: 22,3310 05426 SN359+ 029543,000763: 22,3311 36732 STCALL SNTH # ALSO CSTH 029544,000764: 22,3312 24744 TIMETHET 029545,000765: 22,3313 72142 SR1 LXA,1 029546,000766: 22,3314 03745 RTX1 029547,000767: 22,3315 37472 STCALL HAFPA1 029548,000768: 22,3316 45163 PERIAPO 029549,000769: 22,3317 77624 CALL 029550,000770: 22,3320 45263 SHIFTR1 029551,000771: 22,3321 17460 STODL POSTCSI 029552,000772: 22,3322 03754 CENTANG 029553,000773: 22,3323 52054 BZE GOTO 029554,000774: 22,3324 45326 +2 029555,000775: 22,3325 47145 CIRCL 029556,000776: 22,3326 77745 DLOAD 029557,000777: 22,3327 02754 ECC 029558,000778: 22,3330 50025 DSU BMN 029559,000779: 22,3331 33454 ONETHTH 029560,000780: 22,3332 47145 CIRCL 029561,000781: 22,3333 45145 DLOAD CALL 029562,000782: 22,3334 00041 R1 029563,000783: 22,3335 45263 SHIFTR1 029564,000784: 22,3336 60201 SETPD NORM 029565,000785: 22,3337 00003 2D 029566,000786: 22,3340 00047 X1 029567,000787: 22,3341 50315 PDVL DOT # PL04D 029568,000788: 22,3342 02541 RACT1 029569,000789: 22,3343 03474 VACT4 029570,000790: 22,3344 56246 ABS DDV 029571,000791: 22,3345 00003 02D # (/RDOTV/)/R1 B36-B29= B7 029572,000792: 22,3346 45257 SL* DSU 029573,000793: 22,3347 20201 0,1 029574,000794: 22,3350 33450 NICKELDP 029575,000795: 22,3351 71240 BMN DLOAD 029576,000796: 22,3352 47145 CIRCL 029577,000797: 22,3353 02742 P 029578,000798: 22,3354 45312 SL2 DSU 029579,000799: 22,3355 33502 1RTEB2 # 1.B.2 029580,000800: 22,3356 14017 STODL 14D 029581,000801: # Page 667 029582,000802: 22,3357 03752 RTSR1/MU 029583,000803: 22,3360 56342 SR1 DDV # (1/ROOTMU)/R1 B-16-B29 = B-45 PL02D 029584,000804: 22,3361 41325 PDDL DMP 029585,000805: 22,3362 02742 P 029586,000806: 22,3363 00041 R1 029587,000807: 22,3364 77624 CALL 029588,000808: 22,3365 45263 SHIFTR1 029589,000809: 22,3366 72412 SL4 SL1 029590,000810: 22,3367 41366 SQRT DMP # ((P/MU)**.5)/R1 B14+B-14 = B-31 BL02D 029591,000811: 22,3370 52414 BOFF SL3 029592,000812: 22,3371 04343 CMOONFLG 029593,000813: 22,3372 45373 CSI/B3 029594,000814: 22,3373 50315 CSI/B3 PDVL DOT 029595,000815: 22,3374 02541 RACT1 029596,000816: 22,3375 03474 VACT4 029597,000817: 22,3376 03502 STORE RDOTV 029598,000818: 22,3377 77646 ABS 029599,000819: 22,3400 41301 NORM DMP # ((P/MU)**.5)RDOTV/R1 PL02D 029600,000820: 22,3401 00050 X2 029601,000821: 22,3402 53660 XSU,1 SL* # B-31+B36-B3 = B2 029602,000822: 22,3403 00047 X2 029603,000823: 22,3404 20204 3,1 029604,000824: 22,3405 14015 STODL 12D 029605,000825: 22,3406 15335 ZEROVECS 029606,000826: 22,3407 00021 STORE 16D 029607,000827: 22,3410 53575 VLOAD UNIT 029608,000828: 22,3411 00015 12D 029609,000829: 22,3412 26732 STOVL SNTH # ALSO STORES CSTH AND 0 029610,000830: 22,3413 02541 RACT1 029611,000831: 22,3414 75315 PDVL SIGN 029612,000832: 22,3415 03474 VACT4 029613,000833: 22,3416 03502 RDOTV 029614,000834: 22,3417 45076 VCOMP CALL 029615,000835: 22,3420 45253 VECSHIFT 029616,000836: 22,3421 26746 STOVL VVEC 029617,000837: 22,3422 77614 SETGO 029618,000838: 22,3423 03426 RVSW 029619,000839: 22,3424 47134 CSINEXT 029620,000840: 029621,000841: 22,3425 77776 62460 SN359+ 2DEC -.000086601 029622,000842: 029623,000843: 22,3427 17777 37776 CS359+ 2DEC +.499999992 029624,000844: 029625,000845: 23,2000 SETLOC CSIPROG4 029626,000846: 23,2000 BANK 029627,000847: 029628,000848: 23,3134 36657 CSINEXT STCALL RVEC 029629,000849: 23,3135 24744 TIMETHET 029630,000850: 23,3136 51125 PDDL BPL 029631,000851: 23,3137 03502 RDOTV 029632,000852: # Page 668 029633,000853: 23,3140 47151 NTP/2 029634,000854: 23,3141 45345 DLOAD DSU 029635,000855: 23,3142 03472 HAFPA1 029636,000856: 23,3143 52006 PUSH GOTO 029637,000857: 23,3144 47151 NTP/2 029638,000858: 23,3145 71201 CIRCL SETPD DLOAD 029639,000859: 23,3146 00001 00D 029640,000860: 23,3147 15335 ZEROVECS 029641,000861: 23,3150 77606 PUSH 029642,000862: 23,3151 41345 NTP/2 DLOAD DMP 029643,000863: 23,3152 03766 NN 029644,000864: 23,3153 03472 HAFPA1 029645,000865: 23,3154 45261 SL DSU 029646,000866: 23,3155 20217 14D 029647,000867: 23,3156 77615 DAD 029648,000868: 23,3157 02637 TCSI 029649,000869: 23,3160 02635 STORE TCDH 029650,000870: 23,3161 77021 BDSU AXT,2 029651,000871: 23,3162 03663 TTPI 029652,000872: 23,3163 00005 5D 029653,000873: 23,3164 40240 BMN SETPD 029654,000874: 23,3165 63642 SCNDSOL 029655,000875: 23,3166 00001 0D 029656,000876: 23,3167 63375 VLOAD PDVL 029657,000877: 23,3170 03474 VACT4 029658,000878: 23,3171 02541 RACT1 029659,000879: 23,3172 77624 CALL 029660,000880: 23,3173 63662 INTINT2C 029661,000881: 23,3174 26453 STOVL RACT2 029662,000882: 23,3175 00007 VATT 029663,000883: 23,3176 26533 STOVL VACT2 029664,000884: 23,3177 03512 VPASS1 029665,000885: 23,3200 63201 SETPD PDVL 029666,000886: 23,3201 00001 0D 029667,000887: 23,3202 03756 RPASS1 029668,000888: 23,3203 77650 GOTO 029669,000889: 23,3204 22256 CSINEXT1 029670,000890: 029671,000891: 11,2000 SETLOC CSIPROG5 029672,000892: 11,2000 BANK 029673,000893: 029674,000894: 11,2256 77624 CSINEXT1 CALL 029675,000895: 11,2257 63662 INTINT2C 029676,000896: 11,2260 26625 STOVL RPASS2 029677,000897: 11,2261 00007 VATT 029678,000898: 11,2262 36617 STCALL VPASS2 029679,000899: 11,2263 13230 CDHMVR 029680,000900: 11,2264 40375 VLOAD SETPD 029681,000901: 11,2265 02453 RACT2 029682,000902: 11,2266 00001 0D 029683,000903: # Page 669 029684,000904: 11,2267 45115 PDVL CALL 029685,000905: 11,2270 03546 VACT3 029686,000906: 11,2271 45153 PERIAPO1 029687,000907: 11,2272 77624 CALL 029688,000908: 11,2273 45263 SHIFTR1 029689,000909: 11,2274 27472 STOVL POSTCDH 029690,000910: 11,2275 03546 VACT3 029691,000911: 11,2276 63201 SETPD PDVL 029692,000912: 11,2277 00001 0D 029693,000913: 11,2300 02453 RACT2 029694,000914: 11,2301 65325 PDDL PDDL 029695,000915: 11,2302 02635 TCDH 029696,000916: 11,2303 03663 TTPI 029697,000917: 11,2304 62525 PDDL SL2 029698,000918: 11,2305 11630 2PISC 029699,000919: 11,2306 45006 PUSH CALL 029700,000920: 11,2307 72705 INTINT 029701,000921: 11,2310 77624 CALL 029702,000922: 11,2311 45237 ACTIVE 029703,000923: 11,2312 77745 DLOAD 029704,000924: 11,2313 03744 ELEV 029705,000925: 11,2314 73401 SETPD SINE 029706,000926: 11,2315 00007 6D 029707,000927: 11,2316 53515 PDVL UNIT 029708,000928: 11,2317 03540 RACT3 029709,000929: 11,2320 00001 STORE 00D # URA3 AT 00D 029710,000930: 11,2321 47315 PDVL VXV # PL14D, PL08D 029711,000931: 11,2322 02611 UP1 029712,000932: 11,2323 77656 UNIT 029713,000933: 11,2324 71525 PDDL COSINE # UNIT(URA3 X UVA3 X URA3) = UH3 B1 PL14D 029714,000934: 11,2325 03744 ELEV 029715,000935: 11,2326 45561 VXSC STADR # (COSLOS)(UH3) B2 PL08D 029716,000936: 11,2327 43754 STCALL 18D # PLUS 029717,000937: 11,2330 16517 CSINEXT2 029718,000938: 029719,000939: 07,2000 SETLOC CSIPROG6 029720,000940: 07,2000 BANK 029721,000941: 029722,000942: 07,2517 74345 CSINEXT2 DLOAD VXSC # (SINLOS)(URA3) = U B2 PL00D 029723,000943: 07,2520 76455 VAD VSL1 029724,000944: 07,2521 00023 18D # B1 029725,000945: 07,2522 50206 PUSH DOT # PL06D 029726,000946: 07,2523 03540 RACT3 # (U . RA3) = TEMP1 B1 + B29 = B30 029727,000947: 07,2524 41552 SL1 PUSH # B29 PL08D 029728,000948: 07,2525 72316 DSQ TLOAD # TEMP1**2 B58 029729,000949: 07,2526 00155 MPAC 029730,000950: 07,2527 50315 PDVL DOT # PL11D 029731,000951: 07,2530 03540 RACT3 029732,000952: 07,2531 03540 RACT3 029733,000953: 07,2532 57551 TLOAD DCOMP # RA3 . RA3 029734,000954: # Page 670 029735,000955: 07,2533 00155 MPAC 029736,000956: 07,2534 50315 PDVL DOT # RP3 . RP3 B58 PL14D 029737,000957: 07,2535 03554 RPASS3 029738,000958: 07,2536 03554 RPASS3 # PL11D 029739,000959: 07,2537 76371 TAD TAD # TEMP1**2 + RA3.RA3 + RP3.RP3 = TEMP2 PL08D 029740,000960: 07,2540 71244 BPL DLOAD 029741,000961: 07,2541 16557 K10RK2 029742,000962: 07,2542 03764 LOOPCT 029743,000963: 07,2543 77025 DSU AXT,2 029744,000964: 07,2544 15675 1DPB28 029745,000965: 07,2545 00001 1D 029746,000966: 07,2546 77654 BZE 029747,000967: 07,2547 11314 ALMXITA 029748,000968: 07,2550 70545 DLOAD SR1 029749,000969: 07,2551 03464 DELDV 029750,000970: 07,2552 03464 STORE DELDV 029751,000971: 07,2553 77621 BDSU 029752,000972: 07,2554 03470 DVPREV 029753,000973: 07,2555 37462 STCALL DELVCSI 029754,000974: 07,2556 15756 CSI/B1 029755,000975: 07,2557 41566 K10RK2 SQRT PUSH # TEMP3 = TEMP2**.5 B29 PL10D 029756,000976: 07,2560 45276 DCOMP DSU 029757,000977: 07,2561 00007 06D # -TEMP1-TEMP3 = K2 AT 10D 029758,000978: 07,2562 14013 STODL 10D # PL08D 029759,000979: 07,2563 45425 DSU STADR # PL06D 029760,000980: 07,2564 77762 STORE 12D # -TEMP1+TEMP3 = K1 AT 12D 029761,000981: 07,2565 77646 ABS 029762,000982: 07,2566 14017 STODL 14D 029763,000983: 07,2567 00013 10D 029764,000984: 07,2570 45246 ABS DSU 029765,000985: 07,2571 00017 14D 029766,000986: 07,2572 71240 BMN DLOAD 029767,000987: 07,2573 50002 K2. 029768,000988: 07,2574 00015 12D 029769,000989: 07,2575 34013 STCALL 10D # K EQUALS K1 029770,000990: 07,2576 50002 K2. 029771,000991: 029772,000992: 24,2000 SETLOC CSIPROG7 029773,000993: 24,2000 BANK 029774,000994: 029775,000995: 24,2002 77745 K2. DLOAD 029776,000996: 24,2003 00013 10D 029777,000997: 24,2004 76561 VXSC VSL1 029778,000998: 24,2005 53455 VAD UNIT # V = RA3 + KU UNIT B1 029779,000999: 24,2006 03540 RACT3 029780,001000: 24,2007 53515 PDVL UNIT 029781,001001: 24,2010 03554 RPASS3 # PL06D 029782,001002: 24,2011 53515 PDVL UNIT 029783,001003: 24,2012 03562 VPASS3 # PL12D 029784,001004: 24,2013 63235 VXV PDVL # UVP3 X URP3 PL18D 029785,001005: # Page 671 029786,001006: 24,2014 00007 06D 029787,001007: 24,2015 00007 06D 029788,001008: 24,2016 50235 VXV DOT 029789,001009: 24,2017 00001 00D 029790,001010: 24,2020 77626 STADR # PL12D 029791,001011: 24,2021 53762 STOVL 12D # (URP3 X V).(UVP3 X URP3)=TEMP PL06D 029792,001012: 24,2022 72441 DOT SL1 # PL00D 029793,001013: 24,2023 75326 ARCCOS SIGN 029794,001014: 24,2024 00015 12D # B0 029795,001015: 24,2025 41542 SR1 PUSH # GAMMA = SIGN(TEMP)ARCOS(UNITV.URP3) PL02D 029796,001016: 24,2026 71214 BON DLOAD 029797,001017: 24,2027 05701 S32.1F2 029798,001018: 24,2030 50065 FRSTPAS 029799,001019: 24,2031 00001 00D # NOT THE FIRST PASS OF A CYCLE 029800,001020: 24,2032 65225 DSU PDDL # GAMMA-GAMPREV B1 PL04D 029801,001021: 24,2033 03466 GAMPREV 029802,001022: 24,2034 03462 DELVCSI 029803,001023: 24,2035 60225 DSU NORM # B7 029804,001024: 24,2036 03470 DVPREV 029805,001025: 24,2037 00047 X1 029806,001026: 24,2040 65265 BDDV PDDL # (GAM-GAMPREV)/(DV-DVPREV) B-6+N1 PL06D 029807,001027: 24,2041 00003 02D # = SLOPE 029808,001028: 24,2042 03462 DELVCSI 029809,001029: 24,2043 03470 STORE DVPREV 029810,001030: 24,2044 43014 BOFF BOFF 029811,001031: 24,2045 05742 S32.1F3A 029812,001032: 24,2046 20307 THRDCHK 029813,001033: 24,2047 05743 S32.1F3B 029814,001034: 24,2050 20307 THRDCHK 029815,001035: 24,2051 41345 DLOAD DMP 029816,001036: 24,2052 00003 02D 029817,001037: 24,2053 03466 GAMPREV 029818,001038: 24,2054 71244 BPL DLOAD 029819,001039: 24,2055 20314 FIFTYFPS 029820,001040: 24,2056 33452 INITST1 029821,001041: 24,2057 77765 SIGN 029822,001042: 24,2060 03464 DELDV 029823,001043: 24,2061 03464 STORE DELDV 029824,001044: 24,2062 43014 SET CLEAR 029825,001045: 24,2063 05462 S32.1F3A 029826,001046: 24,2064 05663 S32.1F3B 029827,001047: 24,2065 77745 FRSTPAS DLOAD 029828,001048: 24,2066 00001 00D 029829,001049: 24,2067 17466 STODL GAMPREV 029830,001050: 24,2070 03462 DELVCSI 029831,001051: 24,2071 37470 STCALL DVPREV 029832,001052: 24,2072 20302 CSINEXT3 029833,001053: 029834,001054: 10,2000 SETLOC CSIPROG8 029835,001055: 10,2000 BANK 029836,001056: # Page 672 029837,001057: 029838,001058: 10,2302 43025 CSINEXT3 DSU CLEAR 029839,001059: 10,2303 03464 DELDV 029840,001060: 10,2304 05661 S32.1F2 029841,001061: 10,2305 37462 STCALL DELVCSI 029842,001062: 10,2306 15756 CSI/B1 029843,001063: 10,2307 43014 THRDCHK BON BON 029844,001064: 10,2310 05702 S32.1F3A 029845,001065: 10,2311 20333 NEWTN 029846,001066: 10,2312 05703 S32.1F3B 029847,001067: 10,2313 20333 NEWTN 029848,001068: 10,2314 75345 FIFTYFPS DLOAD SIGN 029849,001069: 10,2315 15701 FIFPSDP 029850,001070: 10,2316 00005 04D 029851,001071: 10,2317 77765 SIGN 029852,001072: 10,2320 03466 GAMPREV 029853,001073: 10,2321 03464 STORE DELDV 029854,001074: 10,2322 43276 DCOMP DAD 029855,001075: 10,2323 03462 DELVCSI 029856,001076: 10,2324 17462 STODL DELVCSI 029857,001077: 10,2325 00001 00D 029858,001078: 10,2326 43014 SET SET 029859,001079: 10,2327 05463 S32.1F3B 029860,001080: 10,2330 05462 S32.1F3A 029861,001081: 10,2331 37466 STCALL GAMPREV 029862,001082: 10,2332 24013 CSI/B2 029863,001083: 10,2333 60345 NEWTN DLOAD NORM 029864,001084: 10,2334 00005 04D 029865,001085: 10,2335 00050 X2 029866,001086: 10,2336 54065 BDDV XSU,1 029867,001087: 10,2337 00001 00D 029868,001088: 10,2340 00047 X2 029869,001089: 10,2341 77657 SR* 029870,001090: 10,2342 20601 0,1 029871,001091: 10,2343 17464 STODL DELDV 029872,001092: 10,2344 00001 00D 029873,001093: 10,2345 03466 STORE GAMPREV 029874,001094: 10,2346 51545 DLOAD ABS 029875,001095: 10,2347 03464 DELDV 029876,001096: 10,2350 45206 PUSH DSU # PL08D 029877,001097: 10,2351 15677 EPSILN1 029878,001098: 10,2352 71240 BMN DLOAD 029879,001099: 10,2353 20370 CSI/SOL 029880,001100: 10,2354 50025 DSU BMN 029881,001101: 10,2355 15703 DELMAX1 029882,001102: 10,2356 20363 CSISTEP 029883,001103: 10,2357 75345 DLOAD SIGN 029884,001104: 10,2360 15703 DELMAX1 029885,001105: 10,2361 03464 DELDV 029886,001106: 10,2362 03464 STORE DELDV 029887,001107: 10,2363 45345 CSISTEP DLOAD DSU 029888,001108: # Page 673 029889,001109: 10,2364 03462 DELVCSI 029890,001110: 10,2365 03464 DELDV 029891,001111: 10,2366 37462 STCALL DELVCSI 029892,001112: 10,2367 15756 CSI/B1 029893,001113: 10,2370 77145 CSI/SOL DLOAD AXT,2 029894,001114: 10,2371 03460 POSTCSI 029895,001115: 10,2372 00002 2 029896,001116: 10,2373 52150 LXA,1 GOTO 029897,001117: 10,2374 03745 RTX1 029898,001118: 10,2375 63610 CSINEXT4 029899,001119: 029900,001120: 31,2000 SETLOC CSIPROG9 029901,001121: 31,2000 BANK 029902,001122: 029903,001123: 31,3610 50023 CSINEXT4 DSU* BMN 029904,001124: 31,3611 33444 PMINE -2,1 029905,001125: 31,3612 63642 SCNDSOL 029906,001126: 31,3613 71374 AXT,2 DLOAD 029907,001127: 31,3614 00003 3 029908,001128: 31,3615 03472 POSTCDH 029909,001129: 31,3616 50023 DSU* BMN 029910,001130: 31,3617 33444 PMINE -2,1 029911,001131: 31,3620 63642 SCNDSOL 029912,001132: 31,3621 45345 DLOAD DSU 029913,001133: 31,3622 02635 TCDH 029914,001134: 31,3623 02637 TCSI 029915,001135: 31,3624 02547 STORE T1TOT2 029916,001136: 31,3625 45374 AXT,2 DSU 029917,001137: 31,3626 00004 4 029918,001138: 31,3627 36146 600SEC 029919,001139: 31,3630 77040 BMN AXT,2 029920,001140: 31,3631 63642 SCNDSOL 029921,001141: 31,3632 00005 5 029922,001142: 31,3633 45345 DLOAD DSU 029923,001143: 31,3634 03663 TTPI 029924,001144: 31,3635 02635 TCDH 029925,001145: 31,3636 03656 STORE T2TOT3 029926,001146: 31,3637 51025 DSU BPL 029927,001147: 31,3640 36146 600SEC 029928,001148: 31,3641 11400 P32/P72C 029929,001149: 31,3642 43014 SCNDSOL BON BOFF 029930,001150: 31,3643 05702 S32.1F3A 029931,001151: 31,3644 11316 ALMXIT 029932,001152: 31,3645 05743 S32.1F3B 029933,001153: 31,3646 11316 ALMXIT 029934,001154: 31,3647 71334 SXA,2 DLOAD 029935,001155: 31,3650 03664 CSIALRM 029936,001156: 31,3651 15335 ZEROVECS 029937,001157: 31,3652 43014 CLEAR SET 029938,001158: 31,3653 05660 S32.1F1 029939,001159: # Page 674 029940,001160: 31,3654 05461 S32.1F2 029941,001161: 31,3655 43014 CLEAR CLEAR 029942,001162: 31,3656 05662 S32.1F3A 029943,001163: 31,3657 05663 S32.1F3B 029944,001164: 31,3660 37764 STCALL LOOPCT 029945,001165: 31,3661 15716 CSI/B 029946,001166: 029947,001167: # Page 675 029948,001168: # ***** ADVANCE ***** 029949,001169: 029950,001170: # SUBROUTINES USED 029951,001171: # PRECSET 029952,001172: # ROTATE 029953,001173: 029954,001174: 37,2000 SETLOC CDHTAG3 029955,001175: 37,2000 BANK 029956,001176: 029957,001177: 37,2645 71220 ADVANCE STQ DLOAD 029958,001178: 37,2646 02370 SUBEXIT 029959,001179: 37,2647 03413 TIG 029960,001180: 37,2650 34041 STCALL TDEC1 029961,001181: 37,2651 45215 PRECSET 029962,001182: 37,2652 77214 SET VLOAD 029963,001183: 37,2653 01067 XDELVFLG 029964,001184: 37,2654 03562 VPASS3 029965,001185: 37,2655 02617 STORE VPASS2 029966,001186: 37,2656 27512 STOVL VPASS1 029967,001187: 37,2657 03554 RPASS3 029968,001188: 37,2660 02625 STORE RPASS2 029969,001189: 37,2661 03756 STORE RPASS1 029970,001190: 37,2662 47256 UNIT VXV 029971,001191: 37,2663 03512 VPASS1 029972,001192: 37,2664 77656 UNIT 029973,001193: 37,2665 26611 STOVL UP1 029974,001194: 37,2666 03540 RACT3 029975,001195: 37,2667 37632 STCALL RTIG 029976,001196: 37,2670 13220 ROTATE 029977,001197: 37,2671 02453 STORE RACT2 029978,001198: 37,2672 26541 STOVL RACT1 029979,001199: 37,2673 03546 VACT3 029980,001200: 37,2674 37640 STCALL VTIG 029981,001201: 37,2675 13220 ROTATE 029982,001202: 37,2676 02533 STORE VACT2 029983,001203: 37,2677 37504 STCALL VACT1 029984,001204: 37,2700 02370 SUBEXIT 029985,001205: 029986,001206: # Page 676 029987,001207: # ***** ROTATE ***** 029988,001208: 029989,001209: 05,2000 SETLOC CDHTAG 029990,001210: 05,2000 BANK 029991,001211: 029992,001212: 05,3220 41406 ROTATE PUSH PUSH 029993,001213: 05,3221 74241 DOT VXSC 029994,001214: 05,3222 02611 UP1 029995,001215: 05,3223 02611 UP1 029996,001216: 05,3224 51352 VSL2 BVSU 029997,001217: 05,3225 63256 UNIT PDVL 029998,001218: 05,3226 74246 ABVAL VXSC 029999,001219: 05,3227 43572 VSL1 RVQ 030000,001220: 030001,001221: # Page 677 030002,001222: # ***** INTINTNA ***** 030003,001223: 030004,001224: 31,2000 SETLOC CDHTAG2 030005,001225: 31,2000 BANK 030006,001226: 030007,001227: 31,3662 65325 INTINT2C PDDL PDDL 030008,001228: 31,3663 02637 TCSI 030009,001229: 31,3664 02635 TCDH 030010,001230: 31,3665 41525 PDDL PUSH 030011,001231: 31,3666 33107 TWOPI 030012,001232: 31,3667 77650 GOTO 030013,001233: 31,3670 72705 INTINT 030014,001234: 31,3671 65325 INTINT3P PDDL PDDL 030015,001235: 31,3672 02635 TCDH 030016,001236: 31,3673 03663 TTPI 030017,001237: 31,3674 41525 PDDL PUSH 030018,001238: 31,3675 15335 ZEROVECS 030019,001239: 31,3676 77650 GOTO 030020,001240: 31,3677 72705 INTINT 030021,001241: 030022,001242: # Page 678 030023,001243: # ***** S32/33.1 ***** 030024,001244: 030025,001245: # SUBROUTINES USED 030026,001246: # S32/33.X 030027,001247: 030028,001248: 35,2000 SETLOC CSI/CDH 030029,001249: 35,2000 BANK 030030,001250: 030031,001251: 35,3457 76020 S32/33.1 STQ AXT,1 030032,001252: 35,3460 02370 SUBEXIT 030033,001253: 35,3461 01521 VN 0681 030034,001254: 35,3462 77624 CALL 030035,001255: 35,3463 76625 DISDVLVC 030036,001256: 35,3464 77624 CALL 030037,001257: 35,3465 26231 S32/33.X 030038,001258: 35,3466 61375 VLOAD VXM 030039,001259: 35,3467 03405 DELVLVC 030040,001260: 35,3470 00001 0D 030041,001261: 35,3471 77772 VSL1 030042,001262: 35,3472 03646 STORE DELVSIN 030043,001263: 35,3473 51406 PUSH ABVAL 030044,001264: 35,3474 27654 STOVL DELVSAB 030045,001265: 35,3475 77650 GOTO 030046,001266: 35,3476 02370 SUBEXIT 030047,001267: 030048,001268: # Page 679 030049,001269: # ***** S32/33.X ***** 030050,001270: 030051,001271: 13,2000 SETLOC CDHTAGS 030052,001272: 13,2000 BANK 030053,001273: 030054,001274: 13,2231 77201 S32/33.X SETPD VLOAD 030055,001275: 13,2232 00007 6D 030056,001276: 13,2233 02611 UP1 030057,001277: 13,2234 63276 VCOMP PDVL 030058,001278: 13,2235 02541 RACT1 030059,001279: 13,2236 57456 UNIT VCOMP 030060,001280: 13,2237 47206 PUSH VXV 030061,001281: 13,2240 02611 UP1 030062,001282: 13,2241 77772 VSL1 030063,001283: 13,2242 00001 STORE 0D 030064,001284: 13,2243 77616 RVQ 030065,001285: 030066,001286: # Page 680 030067,001287: # ***** CDHMVR ***** 030068,001288: 030069,001289: # SUBROUTINES USED 030070,001290: # VECSHIFT 030071,001291: # TIMETHET 030072,001292: # SHIFTR1 030073,001293: 030074,001294: 05,2000 SETLOC CDHTAG 030075,001295: 05,2000 BANK 030076,001296: 030077,001297: 05,3230 77220 CDHMVR STQ VLOAD 030078,001298: 05,3231 02370 SUBEXIT 030079,001299: 05,3232 02453 RACT2 030080,001300: 05,3233 53406 PUSH UNIT 030081,001301: 05,3234 27546 STOVL UNVEC # UR SUB A 030082,001302: 05,3235 02625 RPASS2 030083,001303: 05,3236 50256 UNIT DOT 030084,001304: 05,3237 03546 UNVEC 030085,001305: 05,3240 72406 PUSH SL1 030086,001306: 05,3241 16734 STODL CSTH 030087,001307: 05,3242 65316 DSQ PDDL 030088,001308: 05,3243 23756 DP1/4 030089,001309: 05,3244 45302 SR2 DSU 030090,001310: 05,3245 72566 SQRT SL1 030091,001311: 05,3246 57515 PDVL VCOMP 030092,001312: 05,3247 77635 VXV 030093,001313: 05,3250 02625 RPASS2 030094,001314: 05,3251 65241 DOT PDDL 030095,001315: 05,3252 02611 UP1 030096,001316: 05,3253 45565 SIGN STADR 030097,001317: 05,3254 51045 STOVL SNTH 030098,001318: 05,3255 02625 RPASS2 030099,001319: 05,3256 45115 PDVL CALL 030100,001320: 05,3257 02617 VPASS2 030101,001321: 05,3260 45253 VECSHIFT 030102,001322: 05,3261 26746 STOVL VVEC 030103,001323: 05,3262 77614 CLEAR 030104,001324: 05,3263 03666 RVSW 030105,001325: 05,3264 36657 STCALL RVEC 030106,001326: 05,3265 24744 TIMETHET 030107,001327: 05,3266 53754 LXA,2 VSL* 030108,001328: 05,3267 03746 RTX2 030109,001329: 05,3270 57576 0,2 030110,001330: 05,3271 00023 STORE 18D 030111,001331: 05,3272 76441 DOT SL1R 030112,001332: 05,3273 03546 UNVEC 030113,001333: 05,3274 51515 PDVL ABVAL # 0D = V SUB PV 030114,001334: 05,3275 63257 SL* PDVL 030115,001335: 05,3276 57576 0,2 030116,001336: # Page 681 030117,001337: 05,3277 02453 RACT2 030118,001338: 05,3300 65246 ABVAL PDDL # 2D = LENGTH OF R SUB A 030119,001339: 05,3301 77625 DSU 030120,001340: 05,3302 00003 02D 030121,001341: 05,3303 16633 STODL DIFFALT # DELTA H IN METERS B+29 030122,001342: 05,3304 02744 R1A 030123,001343: 05,3305 65301 NORM PDDL # 2 - R V**/MU 04D 030124,001344: 05,3306 00047 X1 030125,001345: 05,3307 00041 R1 030126,001346: 05,3310 77624 CALL 030127,001347: 05,3311 45263 SHIFTR1 030128,001348: 05,3312 56362 SR1R DDV 030129,001349: 05,3313 41457 SL* PUSH 030130,001350: 05,3314 20174 0 -5,1 030131,001351: 05,3315 65225 DSU PDDL # A SUB A B+29 04D 030132,001352: 05,3316 02633 DIFFALT 030133,001353: 05,3317 56302 SR2 DDV # A SUB P B+31 030134,001354: 05,3320 00005 04D # B+2 030135,001355: 05,3321 75406 PUSH SQRT # A SUB P/A SUB A 06D 030136,001356: 05,3322 41275 DMPR DMP 030137,001357: 05,3323 00007 06D 030138,001358: 05,3324 00001 00D 030139,001359: 05,3325 65272 SL3R PDDL # V SUB A V METERS/CS B+7 08D 030140,001360: 05,3326 00003 02D # R SUB A MAGNITUDE B+29 030141,001361: 05,3327 65301 NORM PDDL 030142,001362: 05,3330 00047 X1 030143,001363: 05,3331 03750 RTMU 030144,001364: 05,3332 56342 SR1 DDV # 2MU B+38 030145,001365: 05,3333 65257 SL* PDDL # 2 MU/R SUBAA B+14 10D 030146,001366: 05,3334 20174 0 -5,1 030147,001367: 05,3335 00005 04D # ASUBA B+29 030148,001368: 05,3336 65301 NORM PDDL 030149,001369: 05,3337 00050 X2 030150,001370: 05,3340 03750 RTMU 030151,001371: 05,3341 56342 SR1 DDV 030152,001372: 05,3342 44257 SL* BDSU 030153,001373: 05,3343 57604 0 -6,2 # 2U/R - U/A B+14 (METERS/CS)SQ 030154,001374: 05,3344 63525 PDDL DSQ # 10D 030155,001375: 05,3345 00011 08D 030156,001376: 05,3346 75421 BDSU SQRT 030157,001377: 05,3347 47315 PDVL VXV # SQRT(MU(2/R SUB A-1/A SUB A)-VSUBA2) 10D 030158,001378: 05,3350 02611 UP1 030159,001379: 05,3351 03546 UNVEC 030160,001380: 05,3352 74256 UNIT VXSC 030161,001381: 05,3353 00013 10D 030162,001382: 05,3354 74315 PDVL VXSC 030163,001383: 05,3355 03546 UNVEC 030164,001384: 05,3356 00011 08D 030165,001385: 05,3357 76455 VAD VSL1 030166,001386: 05,3360 77626 STADR 030167,001387: # Page 682 030168,001388: 05,3361 74231 STORE VACT3 030169,001389: 05,3362 77651 VSU 030170,001390: 05,3363 02533 VACT2 030171,001391: 05,3364 37667 STCALL DELVEET2 # DELTA VCDH -- REFERENCE COORDINATES 030172,001392: 05,3365 02370 SUBEXIT 030173,001393: 030174,001394: # Page 683 030175,001395: # ***** COMPTGO ***** 030176,001396: 030177,001397: # SUBROUTINES USED 030178,001398: # CLOKTASK 030179,001399: # 2PHSCHNG 030180,001400: 030181,001401: 35,3477 BANK 35 030182,001402: 35,2000 SETLOC CSI/CDH 030183,001403: 35,2000 BANK 030184,001404: 030185,001405: 35,3477 E4,1767 EBANK= RTRN 030186,001406: 030187,001407: 35,3477 COUNT* $$/P3575 030188,001408: End of include-file P32-P33_P72-P73.agc. Parent file is MAIN.agc