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