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