Source Code

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