Source Code
|
These source-code files are part of a reconstructed copy of Comanche 67, the
Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 12.
They have been adapted from sources files for Comanche 55, and updated via
disassembly of binary dumps of original core rope memory modules, part numbers
2003972-1081, 2003972-1091, 2003972-1111, 2003972-1121, 2003972-1131, and 2003972-1141.
Since only binary dumps (rather than listings) of Comanche 67 are available as source material,
all comments and labels are approximate.
They have been taken from other AGC programs where possible, or, in some places, written
from scratch to match what we believe would have been in the original listing.
|
027675,000002: ## Copyright: Public domain.
027676,000003: ## Filename: P32-P33,_P72-P73.agc
027677,000004: ## Purpose: A section of Comanche revision 067.
027678,000005: ## It is part of the reconstructed source code for the flight
027679,000006: ## software for the Command Module's (CM) Apollo Guidance Computer
027680,000007: ## (AGC) for Apollo 12. No original listings of this program are
027681,000008: ## available; instead, this file was created via dissassembly of
027682,000009: ## dumps of Comanche 067 core rope modules and comparison with
027683,000010: ## other AGC programs.
027684,000011: ## Assembler: yaYUL
027685,000012: ## Contact: Ron Burkey <info@sandroid.org>.
027686,000013: ## Website: www.ibiblio.org/apollo/index.html
027687,000014: ## Mod history: 2023-08-16 MAS Created from Comanche 055.
027688,000015:
027689,000016: # COELLIPTIC SEQUENCE INITIATION (CSI) PROGRAMS (P32 AND P72)
027690,000017:
027691,000018: # MOD NO -1 LOG SECTION - P32-P35, P72-P75
027692,000019: # MOD BY WHITE.P DATE 1 JUNE 67
027693,000020:
027694,000021: # PURPOSE
027695,000022: # (1) TO CALCULATE PARAMETERS ASSOCIATED WITH THE FOLLOWING
027696,000023: # CONCENTRIC FLIGHT PLAN MANEUVERS - THE CO-ELLIPTIC SEQUENCE
027697,000024: # INITIATION (CSI) MANEUVER AND THE CONSTANT DELTA ALTITUDE
027698,000025: # (CDH) MANEUVER.
027699,000026: # (2) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
027700,000027: # APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
027701,000028: # (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
027702,000029: # ASSOCIATED WITH THE CONCENTRIC FLIGNT PLAN MANEUVERS FOR
027703,000030: # APPROVAL BY THE ASTRONAUT/GROUND.
027704,000031: # (4) TO STORE THE CSI TARGET PARAMETERS FOR USE BY THE DESIRED
027705,000032: # THRUSTING PROGRAM.
027706,000033:
027707,000034: # ASSUMPTIONS
027708,000035: # (1) AT A SELECTED TPI TIME THE LINE OF SIGHT BETWEEN THE ACTIVE
027709,000036: # AND PASSIVE VEHICLES IS SELECTED TO BE A PRESCRIBED ANGLE (E)
027710,000037: # FROM THE HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE
027711,000038: # POSITION.
027712,000039: # (2) THE TIME BETWEEN CSI IGNITION AND CDH IGNITION MUST BE
027713,000040: # COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL
027714,000041: # COMPLETION OF THE PROGRAM.
027715,000042: # (3) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION MUST BE
027716,000043: # COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL
027717,000044: # COMPLETION OF THE PROGRAM.
027718,000045: # (4) CDH DELTA V IS SELECTED TO MINIMIZE THE VARIATION OF THE
027719,000046: # ALTITUDE DIFFERENCE BETWEEN THE ORBITS.
027720,000047: # (5) CSI BURN IS DEFINED SUCH THAT THE IMPULSIVE DELTA V IS IN THE
027721,000048: # HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION AT CSI
027722,000049: # IGNITION.
027723,000050: # (6) THE PERICENTER ALTITUDE OF THE ORBIT FOLLOWING CSI AND CDH
027724,000051: # MUST BE GREATER THAN 35,000 FT (LUNAR ORBIT) OR 85 NM (EARTH
027725,000052: # ORBIT) FOR SUCCESSFUL COMPLETION OF THIS PROGRAM.
027726,000053: # (7) THE CSI AND CDH MANEUVERS ARE ORIGINALLY ASSUMED TO BE
027727,000054: # PARALLEL TO THE PLANE OF THE CSM ORBIT. HOWEVER CREW
027728,000055: # MODIFICATION OF DELTA V (LV) COMPONENTS MAY RESULT IN AN
027729,000056: # OUT-OF-PLANE CSI MANEUVER.
027730,000057: # (8) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
027731,000058: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 10).
027732,000059: # (9) COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
027733,000060: # THE GROUND. THESE STORAGE CAPABILITIES ARE NORMALLY LIMITED
027734,000061: # ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
027735,000062: # EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
027736,000063: # (10) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
027737,000064: # OR CSM STATE VECTORS FOR THIS PROGRAM. IF RADAR USE IS
027738,000065: # DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
027739,000066: # PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS WILL BE MADE
027740,000067: # AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
027741,000068: # TRACK AND UPDATE FLAGS (SEE P20). THE RENDEZVOUS TRACKING
027742,000069: # MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
027743,000070: # THRUSTING MANEUVER.
027744,000071: # (11) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
027745,000072: # (12) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
027746,000073:
027747,000074: # ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
027748,000075: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
027749,000076: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF
027750,000077: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
027751,000078:
027752,000079: # FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
027753,000080: # COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
027754,000081: # CYCLE.
027755,000082:
027756,000083: # EXTERNAL DELTA V STEERING FLAG - DESIGNATES THE TYPE OF
027757,000084: # STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
027758,000085: # THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
027759,000086: # PROGRAM.
027760,000087:
027761,000088: # (13) IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
027762,000089: # A THRUSTING MANEUVER.
027763,000090:
027764,000091: # (14) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
027765,000092:
027766,000093: # P32 IF THIS VEHICLE IS ACTIVE VEHICLE.
027767,000094:
027768,000095: # P72 IF THIS VEHICLE IS PASSIVE VEHICLE.
027769,000096:
027770,000097: # INPUT
027771,000098: # (1) TCSI TIME OF THE CSI MANEUVER
027772,000099: # (2) NN NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE
027773,000100: # VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH
027774,000101: # MANEUVER POINT
027775,000102: # (3) ELEV DESIRED LOS ANGLE AT TPI
027776,000103: # (4) TTPI TIME OF THE TPI MANEUVER
027777,000104:
027778,000105: # OUTPUT
027779,000106: # (1) TRKMKCNT NUMBER OF MARKS
027780,000107: # (2) TTOGO TIME TO GO
027781,000108: # (3) +MGA MIDDLE GIMBAL ANGLE
027782,000109: # (4) DIFFALT DELTA ALTITUDE AT CDH
027783,000110: # (5) T1TOT2 DELTA TIME FROM CSI TO CDH
027784,000111: # (6) T2TOT3 DELTA TIME FROM CDH TO TPI
027785,000112: # (7) DELVLVC DELTA VELOCITY AT CSI - LOCAL VERTICAL COORDINATES
027786,000113: # (8) DELVLVC DELTA VELOCITY AT CDH - LOCAL VERTICAL COORDINATES
027787,000114:
027788,000115: # DOWNLINK
027789,000116: # (1) TCSI TIME OF THE CSI MANEUVER
027790,000117: # (2) TCDH TIME OF THE CDH MANEUVER
027791,000118: # (3) TTPI TIME OF THE TPI MANEUVER
027792,000119: # (4) TIG TIME OF THE CSI MANEUVER
027793,000120: # (5) DELVEET1 DELTA VELOCITY AT CSI - REFERENCE COORDINATES
027794,000121: # (6) DELVEET2 DELTA VELOCITY AT CDH - REFERENCE COORDINATES
027795,000122: # (7) DIFFALT DELTA ALTITUDE AT CDH
027796,000123: # (8) NN NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE
027797,000124: # VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH
027798,000125: # MANEUVER POINT
027799,000126: # (9) ELEV DESIRED LOS ANGLE AT TPI
027800,000127:
027801,000128: # COMMUNICATION TO THRUSTING PROGRAMS
027802,000129: # (1) TIG TIME OF THE CSI MANEUVER
027803,000130: # (2) RTIG POSITION OF ACTIVE VEHICLE AT CSI - BEFORE ROTATION
027804,000131: # INTO PLANE OF PASSIVE VEHICLE
027805,000132: # (3) VTIG VELOCITY OF ACTIVE VEHICLE AT CSE - BEFORE ROTATION
027806,000133: # INTO PLANE OF PASSIVE VEHICLE
027807,000134: # (4) DELVSIN DELTA VELOCITY AT CSI - REFERENCE COORDINATES
027808,000135: # (5) DELVSAB MAGNITUDE OF DELTA VELOCITY AT CSI
027809,000136: # (6) XDELVFLG SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION
027810,000137:
027811,000138: # SUBROUTINES USED
027812,000139: # AVFLAGA
027813,000140: # AVFLAGP
027814,000141: # P20FLGON
027815,000142: # VARALARM
027816,000143: # BANKCALL
027817,000144: # GOFLASH
027818,000145: # GOTOPOOH
027819,000146: # VNPOOH
027820,000147: # GOFLASHR
027821,000148: # BLANKET
027822,000149: # ENDOFJOB
027823,000150: # SELECTMU
027824,000151: # ADVANCE
027825,000152: # INTINT
027826,000153: # PASSIVE
027827,000154: # CSI/A
027828,000155: # S32/33.1
027829,000156: # DISDVLVC
027830,000157: # VN1645
027831,000158:
027832,000159: 35,3445 BANK 35
027833,000160: 04,2000 SETLOC CSI/CDH1
027834,000161: 04,2000 BANK
027835,000162: 04,3303 E4,1770 EBANK= SUBEXIT
027836,000163: 04,3303 COUNT 35/P3272
027837,000164: 04,3303 04627 P32 TC AVFLAGA
027838,000165: 04,3304 03306 TC P32STRT
027839,000166: 04,3305 04642 P72 TC AVFLAGP
027840,000167: 04,3306 06006 P32STRT TC INTPRET
027841,000168: 04,3307 77745 DLOAD
027842,000169: 04,3310 11566 ZEROVEC
027843,000170: 04,3311 03754 STORE CENTANG
027844,000171: 04,3312 77776 EXIT
027845,000172: 04,3313 03331 TC P32/P72A
027846,000173: 04,3314 77734 ALMXITA SXA,2
027847,000174: 04,3315 03664 CSIALRM
027848,000175: 04,3316 77740 ALMXIT LXC,1
027849,000176: 04,3317 03664 CSIALRM
027850,000177: 04,3320 77533 SLOAD* EXIT
027851,000178: 04,3321 15653 ALARM/TB -1,1
027852,000179: 04,3322 30154 CA MPAC
027853,000180: 04,3323 05770 TC VARALARM
027854,000181: 04,3324 35064 CAF V05N09
027855,000182: 04,3325 04676 TC BANKCALL
027856,000183: 04,3326 20720 CADR GOFLASH
027857,000184: 04,3327 04106 TC GOTOPOOH
027858,000185: 04,3330 03324 TC -4
027859,000186: 04,3331 04647 P32/P72A TC P20FLGON
027860,000187: 04,3332 06006 TC INTPRET
027861,000188: 04,3333 77745 DLOAD
027862,000189: 04,3334 11566 ZEROVEC
027863,000190: 04,3335 03766 STORE NN
027864,000191: 04,3336 77776 EXIT
027865,000192: 04,3337 34656 CAF V06N11 # TCSI
027866,000193: 04,3340 04575 TC VNPOOH
027867,000194: 04,3341 34615 CAF V06N55 # NN. ELEV(RGLOS)
027868,000195: 04,3342 04676 TC BANKCALL
027869,000196: 04,3343 20720 CADR GOFLASH
027870,000197: 04,3344 04106 TC GOTOPOOH
027871,000198: 04,3345 03347 TC +2
027872,000199: 04,3346 03341 TC -5
027873,000200: 04,3347 34614 CAF V06N37 # TTPI
027874,000201: 04,3350 04575 TC VNPOOH
027875,000202: 04,3351 06006 TC INTPRET
027876,000203: 04,3352 77745 DLOAD
027877,000204: 04,3353 02637 TCSI
027878,000205: 04,3354 37413 STCALL TIG
027879,000206: 04,3355 10712 SELECTMU
027880,000207: 04,3356 77624 P32/P72B CALL
027881,000208: 04,3357 76660 ADVANCE
027882,000209: 04,3360 77201 SETPD VLOAD
027883,000210: 04,3361 00001 0D
027884,000211: 04,3362 03512 VPASS1
027885,000212: 04,3363 65315 PDVL PDDL
027886,000213: 04,3364 03756 RPASS1
027887,000214: 04,3365 02637 TCSI
027888,000215: 04,3366 65325 PDDL PDDL
027889,000216: 04,3367 03663 TTPI
027890,000217: 04,3370 11630 2PISC
027891,000218: 04,3371 41512 SL2 PUSH
027892,000219: 04,3372 77624 CALL
027893,000220: 04,3373 72705 INTINT
027894,000221: 04,3374 77624 CALL
027895,000222: 04,3375 45247 PASSIVE
027896,000223: 04,3376 77624 CALL
027897,000224: 04,3377 15704 CSI/A
027898,000225: 04,3400 43014 P32/P72C BON SET
027899,000226: 04,3401 01311 FINALFLG
027900,000227: 04,3402 11404 P32/P72D
027901,000228: 04,3403 00470 UPDATFLG
027902,000229: 04,3404 52145 P32/P72D DLOAD GOTO
027903,000230: 04,3405 02547 T1TOT2
027904,000231: 04,3406 30002 P32/P72E
027905,000232: 14,2000 SETLOC CSI/CDH3
027906,000233: 14,2000 BANK
027907,000234: 14,2002 02547 P32/P72E STORE T1TOT2
027908,000235: 14,2003 51025 DSU BPL
027909,000236: 14,2004 15652 60MIN
027910,000237: 14,2005 30002 P32/P72E
027911,000238: 14,2006 52145 DLOAD GOTO
027912,000239: 14,2007 03656 T2TOT3
027913,000240: 14,2010 11407 P32/P72F
027914,000241: 04,2000 SETLOC CSI/CDH1
027915,000242: 04,2000 BANK
027916,000243: 04,3407 03656 P32/P72F STORE T2TOT3
027917,000244: 04,3410 51025 DSU BPL
027918,000245: 04,3411 15652 60MIN
027919,000246: 04,3412 11407 P32/P72F
027920,000247: 04,3413 77776 EXIT
027921,000248: 04,3414 34660 CAF V06N75
027922,000249: 04,3415 04575 TC VNPOOH
027923,000250: 04,3416 06006 TC INTPRET
027924,000251: 04,3417 45175 VLOAD CALL
027925,000252: 04,3420 02445 DELVEET1
027926,000253: 04,3421 73457 S32/33.1
027927,000254: 04,3422 26445 STOVL DELVEET1
027928,000255: 04,3423 02453 RACT2
027929,000256: 04,3424 26541 STOVL RACT1
027930,000257: 04,3425 03667 DELVEET2
027931,000258: 04,3426 45170 AXT,1 CALL
027932,000259: 04,3427 01522 VN 0682
027933,000260: 04,3430 76640 DISDVLVC
027934,000261: 04,3431 77745 DLOAD
027935,000262: 04,3432 03663 TTPI
027936,000263: 04,3433 36641 STCALL TTPIO
027937,000264: 04,3434 73002 VN1645
027938,000265: 04,3435 77650 GOTO
027939,000266: 04,3436 11356 P32/P72B
027940,000267:
027941,000268: # CONSTANT DELTA HEIGHT (CDH) PROGRAMS (P33 AND P73)
027942,000269: # MOD NO -1 LOG SECTION - P32-P35, P72-P75
027943,000270: # MOD BY WHITE.P DATE 1JUNE67
027944,000271:
027945,000272: # PURPOSE
027946,000273:
027947,000274: # (1) TO CALCULATE PARAMETERS ASSOCIATED WITH THE CONSTANT DELTA
027948,000275: # ALTITUDE MANEUVER (CDH).
027949,000276:
027950,000277: # (2) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
027951,000278: # APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
027952,000279:
027953,000280: # (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
027954,000281: # ASSOCIATED WITH THE CDH MANEUVER FOR APPROVAL BY THE
027955,000282: # ASTRONAUT/GROUND.
027956,000283:
027957,000284: # (4) TO STORE THE CDH TARGET PARAMETERS FOR USE BY THE DESIRED
027958,000285: # THRUSTING PROGRAM.
027959,000286:
027960,000287: # ASSUMPTIONS
027961,000288:
027962,000289: # (1) THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF THE
027963,000290: # CO-ELLIPTIC SEQUENCE INITIATION (CSI) PROGRAM (P32/P72).
027964,000291: # THERFORE -
027965,000292:
027966,000293: # (A) AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
027967,000294: # BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
027968,000295: # A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
027969,000296: # HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
027970,000297:
027971,000298: # (B) THE TIME BETWEEN CSI IGNITION AND CDH IGNITION WAS
027972,000299: # COMPUTED TO BE GREATER THAN 10 MINUTES.
027973,000300:
027974,000301: # (C) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
027975,000302: # COMPUTED TO BE GREATER THAN 10 MINUTES.
027976,000303:
027977,000304: # (D) THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
027978,000305: # ORBITS WAS MINMIZED.
027979,000306:
027980,000307: # (E) CSI BURN WAS DEFINED SUCH THAT THE IMPULSIVE DELTA V WAS
027981,000308: # IN THE HORIZONTAL PLANE DEFINED BY ACTIVE VEHICLE
027982,000309: # POSITION AT CSI IGNITION.
027983,000310:
027984,000311: # (F) THE PERICENTER ALTITUDES OF THE ORBITS FOLLOWING CSI AND
027985,000312: # CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR
027986,000313: # ORBIT OR 85 NM FOR EARTH ORBIT.
027987,000314:
027988,000315: # (G) THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
027989,000316: # THE PLANE OF THE PASSIVE VEHICLE ORBIT. HOWEVER, CREW
027990,000317: # MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
027991,000318: # IN AN OUT-OF-PLANE MANEUVER.
027992,000319:
027993,000320: # (2) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
027994,000321: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 4).
027995,000322:
027996,000323: # (3) COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
027997,000324: # THE GROUND. THESE STORAGE CAPABILITES ARE NORMALLY LIMITED
027998,000325: # ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
027999,000326: # EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
028000,000327:
028001,000328: # (4) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
028002,000329: # OR CSM STATE VECTORS FOR THIS PROGRAM. IF RADAR USE IS
028003,000330: # DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
028004,000331: # PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS WILL BE MADE
028005,000332: # AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
028006,000333: # TRACK AND UPDATE FLAGS (SEE P20). THE RENDEZVOUS TRACKING
028007,000334: # MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
028008,000335: # THRUSTING MANEUVER.
028009,000336:
028010,000337: # (5) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
028011,000338:
028012,000339: # (6) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
028013,000340:
028014,000341: # ACTIVE VEGICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
028015,000342: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
028016,000343: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF
028017,000344: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
028018,000345:
028019,000346: # FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
028020,000347: # COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
028021,000348: # CYCLE.
028022,000349:
028023,000350: # EXTERNAL DELTA V STEERING FLAG - DESIGNATES THE TYPE OF
028024,000351: # STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
028025,000352: # THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
028026,000353: # PROGRAM.
028027,000354:
028028,000355: # (7) IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
028029,000356: # A THRUSTING MANEUVER.
028030,000357:
028031,000358: # (8) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
028032,000359:
028033,000360: # P33 IF THIS VEHICLE IS ACTIVE VEHICLE.
028034,000361:
028035,000362: # P73 IF THIS VEHICLE IS PASSIVE VEHICLE.
028036,000363:
028037,000364: # INPUT
028038,000365:
028039,000366: # (1) TTPI0 TIME OF THE TPI MANEUVER - SAVED FROM P32/P72
028040,000367: # (2) ELEV DESIRED LOS ANGLE AT TPI - SAVED FROM P32/P72
028041,000368: # (3) TCDH TIME OF THE CDH MANEUVER
028042,000369:
028043,000370: # OUTPUT
028044,000371:
028045,000372: # (1) TRKMKCNT NUMBER OF MARKS
028046,000373: # (2) TTOGO TIME TO GO
028047,000374: # (3) +MGA MIDDLE GIMBAL ANGLE
028048,000375: # (4) DIFFALT DELTA ALTITUDE AT CDH
028049,000376: # (5) T2TOT3 DELTA TIME FROM CDH TO COMPUTED TPI
028050,000377: # (6) NOMTPI DELTA TIME FROM NOMINAL TPI TO COMPUTED TPI
028051,000378: # (7) DELVLVC DELTA VELOCITY AT CDH - LOCAL VERTICAL COORDINATES
028052,000379:
028053,000380: # DOWNLINK
028054,000381:
028055,000382: # (1) TCDH TIME OF THE CDH MANEUVER
028056,000383: # (2) TTPI TIME OF THE TPI MANEUVER
028057,000384: # (3) TIG TIME OF THE CDH MANEUVER
028058,000385: # (4) DELVEET2 DELTA VELOCITY AT CDH - REFERENCE COORDINATES
028059,000386: # (5) DIFFALT DELTA ALTITUDE AT CDH
028060,000387: # (6) ELEV DESIRED LOS ANGLE AT TPI
028061,000388:
028062,000389: # COMMUNICATION TO THRUSTING PROGRAMS
028063,000390:
028064,000391: # (1) TIG TIME OF THE CDH MANEUVER
028065,000392: # (2) RTIG POSITION OF ACTIVE VEHICLE AT CDH - BEFORE ROTATION
028066,000393: # INTO PLANE OF PASSIVE VEHICLE
028067,000394: # (3) VTIG VELOCITY OF ACTIVE VEHICLE AT CDH - BEFORE ROTATION
028068,000395: # INTO PLANE OF PASSIVE VEHICLE
028069,000396: # (4) DELVSIN DELTA VELOCITY AT CDH - REFERENCE COORDINATES
028070,000397: # (5) DELVSAB MAGNITUDE OF DELTA VELOCITY AT CDH
028071,000398: # (6) XDELVFLG SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION
028072,000399:
028073,000400: # SUBROUTINES USED
028074,000401:
028075,000402: # AVFLAGA
028076,000403: # AVFLAGP
028077,000404: # P20FLGON
028078,000405: # VNPOOH
028079,000406: # SELECTMU
028080,000407: # ADVANCE
028081,000408: # CDHMVR
028082,000409: # INTINT3P
028083,000410: # ACTIVE
028084,000411: # PASSIVE
028085,000412: # S33/34.1
028086,000413: # ALARM
028087,000414: # BANKCALL
028088,000415: # GOFLASH
028089,000416: # GOTOPOOH
028090,000417: # S32/33.1
028091,000418: # VN1645
028092,000419:
028093,000420: 04,3437 COUNT 35/P3373
028094,000421:
028095,000422: 04,3437 04627 P33 TC AVFLAGA
028096,000423: 04,3440 03442 TC P33/P73A
028097,000424: 04,3441 04642 P73 TC AVFLAGP
028098,000425: 04,3442 04647 P33/P73A TC P20FLGON
028099,000426: 04,3443 34657 CAF V06N13 # TCDH
028100,000427: 04,3444 04575 TC VNPOOH
028101,000428: 04,3445 06006 TC INTPRET
028102,000429: 04,3446 77745 DLOAD
028103,000430: 04,3447 02641 TTPIO
028104,000431: 04,3450 17663 STODL TTPI
028105,000432: 04,3451 02635 TCDH
028106,000433: 04,3452 37413 STCALL TIG
028107,000434: 04,3453 10712 SELECTMU
028108,000435: 04,3454 77624 P33/P73B CALL
028109,000436: 04,3455 76660 ADVANCE
028110,000437: 04,3456 77624 CALL
028111,000438: 04,3457 13232 CDHMVR
028112,000439: 04,3460 77201 SETPD VLOAD
028113,000440: 04,3461 00001 0D
028114,000441: 04,3462 03546 VACT3
028115,000442: 04,3463 45115 PDVL CALL
028116,000443: 04,3464 02453 RACT2
028117,000444: 04,3465 63671 INTINT3P
028118,000445: 04,3466 77624 CALL
028119,000446: 04,3467 45237 ACTIVE
028120,000447: 04,3470 77201 SETPD VLOAD
028121,000448: 04,3471 00001 0D
028122,000449: 04,3472 02617 VPASS2
028123,000450: 04,3473 45115 PDVL CALL
028124,000451: 04,3474 02625 RPASS2
028125,000452: 04,3475 63671 INTINT3P
028126,000453: 04,3476 77624 CALL
028127,000454: 04,3477 45247 PASSIVE
028128,000455: 04,3500 43145 DLOAD SET
028129,000456: 04,3501 11566 ZEROVEC
028130,000457: 04,3502 03461 ITSWICH
028131,000458: 04,3503 36364 STCALL NOMTPI
028132,000459: 04,3504 72216 S33/34.1
028133,000460: 04,3505 77454 BZE EXIT
028134,000461: 04,3506 24000 P33/P73C
028135,000462: 04,3507 05664 TC ALARM
028136,000463: 04,3510 00611 OCT 611
028137,000464: 04,3511 35064 CAF V05N09
028138,000465: 04,3512 04676 TC BANKCALL
028139,000466: 04,3513 20720 CADR GOFLASH
028140,000467: 04,3514 04106 TC GOTOPOOH
028141,000468: 04,3515 03517 TC +2
028142,000469: 04,3516 03442 TC P33/P73A
028143,000470: 04,3517 06006 TC INTPRET
028144,000471: 04,3520 77745 DLOAD
028145,000472: 04,3521 11566 ZEROVEC
028146,000473: 04,3522 36364 STCALL NOMTPI
028147,000474: 04,3523 24000 P33/P73C
028148,000475: 12,2000 SETLOC CSI/CDH2
028149,000476: 12,2000 BANK
028150,000477:
028151,000478: 12,2000 43014 P33/P73C BON SET
028152,000479: 12,2001 01311 FINALFLG
028153,000480: 12,2002 24004 P33/P73D
028154,000481: 12,2003 00470 UPDATFLG
028155,000482: 12,2004 43345 P33/P73D DLOAD DAD
028156,000483: 12,2005 02364 NOMTPI
028157,000484: 12,2006 03663 TTPI
028158,000485: 12,2007 03663 STORE TTPI
028159,000486: 12,2010 52025 DSU GOTO
028160,000487: 12,2011 02635 TCDH
028161,000488: 12,2012 11524 P33/P73E
028162,000489: 04,2000 SETLOC CSI/CDH1
028163,000490: 04,2000 BANK
028164,000491:
028165,000492: 04,3524 51025 P33/P73E DSU BPL
028166,000493: 04,3525 15652 60MIN
028167,000494: 04,3526 11524 P33/P73E
028168,000495: 04,3527 77615 DAD
028169,000496: 04,3530 15652 60MIN
028170,000497: 04,3531 16547 STODL T1TOT2
028171,000498: 04,3532 03663 TTPI
028172,000499: 04,3533 41425 DSU PUSH
028173,000500: 04,3534 02641 TTPIO
028174,000501: 04,3535 45246 P33/P73F ABS DSU
028175,000502: 04,3536 15652 60MIN
028176,000503: 04,3537 43244 BPL DAD
028177,000504: 04,3540 11535 P33/P73F
028178,000505: 04,3541 15652 60MIN
028179,000506: 04,3542 45565 SIGN STADR
028180,000507: 04,3543 74121 STORE T2TOT3
028181,000508: 04,3544 77776 EXIT
028182,000509: 04,3545 34660 CAF V06N75
028183,000510: 04,3546 04575 TC VNPOOH
028184,000511: 04,3547 06006 TC INTPRET
028185,000512: 04,3550 45175 VLOAD CALL
028186,000513: 04,3551 03667 DELVEET2
028187,000514: 04,3552 73457 S32/33.1
028188,000515: 04,3553 37667 STCALL DELVEET2
028189,000516: 04,3554 73002 VN1645
028190,000517: 04,3555 77650 GOTO
028191,000518: 04,3556 11454 P33/P73B
028192,000519:
028193,000520: # ..... AVFLAGA/P .....
028194,000521:
028195,000522: # ..... DISDVLVC .....
028196,000523:
028197,000524: # SUBROUTINES USED
028198,000525:
028199,000526: # S32/33.X
028200,000527: # VNPOOH
028201,000528:
028202,000529: 37,2000 SETLOC CDHTAG3
028203,000530: 37,2000 BANK
028204,000531:
028205,000532: 37,2640 03405 DISDVLVC STORE DELVLVC
028206,000533: 37,2641 45020 STQ CALL
028207,000534: 37,2642 01340 NORMEX
028208,000535: 37,2643 26231 S32/33.X
028209,000536: 37,2644 64375 VLOAD MXV
028210,000537: 37,2645 03405 DELVLVC
028211,000538: 37,2646 00001 0D
028212,000539: 37,2647 66172 VSL1 SXA,1
028213,000540: 37,2650 02365 VERBNOUN
028214,000541: 37,2651 03405 STORE DELVLVC
028215,000542: 37,2652 77776 EXIT
028216,000543: 37,2653 31765 CA VERBNOUN
028217,000544: 37,2654 04575 TC VNPOOH
028218,000545: 37,2655 06006 TC INTPRET
028219,000546: 37,2656 77650 GOTO
028220,000547: 37,2657 01340 NORMEX
028221,000548: 4000 SETLOC FFTAG12
028222,000549: 4000 BANK
028223,000550:
028224,000551: 4656 01413 V06N11 VN 0611
028225,000552: 4657 01415 V06N13 VN 0613
028226,000553: 4660 01513 V06N75 VN 0675
028227,000554:
028228,000555: 4661 01462 V06N50 VN 0650
028229,000556:
028230,000557:
028231,000558: # ..... CSI/A .....
028232,000559:
028233,000560: # SUBROUTINES USED
028234,000561:
028235,000562: # VECSHIFT
028236,000563: # TIMETHET
028237,000564: # PERIAPO
028238,000565: # SHIFTR1
028239,000566: # INTINT2C
028240,000567: # CDHMVR
028241,000568: # PERIAPO1
028242,000569: # INTINT
028243,000570: # ACTIVE
028244,000571:
028245,000572: 34,3763 BANK 34
028246,000573: 06,2000 SETLOC CSIPROG
028247,000574: 06,2000 BANK
028248,000575: 06,3651 E4,1770 EBANK= SUBEXIT
028249,000576: 06,3651 COUNT 34/CSI
028250,000577:
028251,000578: 06,3651 00025 37100 60MIN 2DEC 360000 B-28
028252,000579:
028253,000580: 06,3653 00600 ALARM/TB OCT 00600 # NO 1
028254,000581: 06,3654 00601 OCT 00601 # 2
028255,000582: 06,3655 00602 OCT 00602 # 3
028256,000583: 06,3656 00603 OCT 00603 # 4
028257,000584: 06,3657 00604 OCT 00604 # 5
028258,000585: 06,3660 00605 OCT 00605 # 6
028259,000586: 06,3661 00606 OCT 00606 # 7
028260,000587: 06,3662 00000 00020 LOOPMX 2DEC 16 B-28
028261,000588:
028262,000589: 06,3664 00003 34661 INITST 2DEC .03048 B-7 # INITIAL DELDV = 10 FPS
028263,000590:
028264,000591: 06,3666 00606 04467 DVMAX1 2DEC 3.0480 B-7 # MAXIMUM DV1 = 1000 FPS
028265,000592:
028266,000593: 06,3670 00601 33216 DVMAX2 2DEC 3.014472 B-7 # 989 FPS
028267,000594:
028268,000595: 06,3672 10000 00000 1DPB2 2DEC 1.0 B-2
028269,000596:
028270,000597: 06,3674 00000 00001 1DPB28 2DEC 1 B-28
028271,000598:
028272,000599: 06,3676 00000 01177 EPSILN1 2DEC .0003048 B-7 # .1 FPS
028273,000600:
028274,000601:
028275,000602: 06,3700 77754 57611 FIFPSDP 2DEC -.152400 B-7 # 50 FPS
028276,000603:
028277,000604: 06,3702 00116 00730 DELMAX1 2DEC .6096000 B-7 # 200 FPS
028278,000605:
028279,000606: 35,2000 SETLOC CSI/CDH
028280,000607: 35,2000 BANK
028281,000608: 35,3445 00004 31566 PMINE 2DEC 157420 B-29 # 84 NM. - MUST BE 8 WORDS BEFORE PMINM
028282,000609:
028283,000610:
028284,000611: 35,3447 00002 27311 NICKELDP 2DEC .021336 B-7 # 7 FPS
028285,000612:
028286,000613: 35,3451 00003 34661 INITST1 2DEC .03048 B-7 # INITIAL DELDV = 10 FPS
028287,000614:
028288,000615: 35,3453 00000 06433 ONETHTH 2DEC .0001 B-3
028289,000616:
028290,000617: 35,3455 00000 12326 PMINM 2DEC 10668 B-29 # 35000 FT - MUST BE 8 WORDS AFTER PMINE.
028291,000618:
028292,000619: 06,2000 SETLOC CSIPROG
028293,000620: 06,2000 BANK
028294,000621:
028295,000622: 06,3704 43014 CSI/A CLEAR SET # INITIALIZE INDICATORS
028296,000623: 06,3705 05660 S32.1F1 # DVT1 HAS EXCEEDED MAX INDICATOR
028297,000624: 06,3706 05461 S32.1F2 # FIRST PASS FOR NEWTON ITERATION INDICATR
028298,000625: 06,3707 43014 CLEAR SET
028299,000626: 06,3710 05662 S32.1F3A # 00=1ST 2 PASSES 2ND CYCLE 01=FIRST CYCLE
028300,000627: 06,3711 05463 S32.1F3B # 10=2ND CYCLE 11=50 FPS STAGE 2ND CYCLE
028301,000628: 06,3712 77745 DLOAD
028302,000629: 06,3713 11566 ZEROVEC
028303,000630: 06,3714 03764 STORE LOOPCT
028304,000631: 06,3715 03665 STORE CSIALRM
028305,000632: 06,3716 77201 CSI/B SETPD VLOAD
028306,000633: 06,3717 00001 0D
028307,000634: 06,3720 02541 RACT1
028308,000635: 06,3721 41446 ABVAL PUSH # RA1 B29 PL02D
028309,000636: 06,3722 70501 NORM SR1
028310,000637: 06,3723 00050 X2 # B29-N2+ B1 PL04D
028311,000638: 06,3724 51515 PDVL ABVAL
028312,000639: 06,3725 03554 RPASS3
028313,000640: 06,3726 55301 NORM BDDV # RA1/RP3 B1 PL02D
028314,000641: 06,3727 00047 X1
028315,000642: 06,3730 53664 XSU,2 SR* # B2
028316,000643: 06,3731 00046 X1
028317,000644: 06,3732 57175 1,2
028318,000645: 06,3733 41215 DAD DMP # (1+(RA1/RP3))RA1 B29+B2=B31 PL00D
028319,000646: 06,3734 15673 1DPB2
028320,000647: 06,3735 65301 NORM PDDL # PL02D
028321,000648: 06,3736 00047 X1
028322,000649: 06,3737 03750 RTMU
028323,000650: 06,3740 56342 SR1 DDV # B38-B31= B7 PL00D
028324,000651: 06,3741 75457 SL* SQRT # B7
028325,000652: 06,3742 20172 0 -7,1
028326,000653: 06,3743 53515 PDVL UNIT # PL02D
028327,000654: 06,3744 02541 RACT1
028328,000655: 06,3745 47315 PDVL VXV
028329,000656: 06,3746 02611 UP1
028330,000657: 06,3747 77656 UNIT # UNIT(URP1 X UVP1 X URA1) = UH1
028331,000658: 06,3750 72441 DOT SL1 # VA1 . UH1 B7
028332,000659: 06,3751 03504 VACT1
028333,000660: 06,3752 45421 BDSU STADR # PL00D
028334,000661: 06,3753 60315 STODL DELVCSI
028335,000662: 06,3754 15665 INITST # 10 FPS
028336,000663: 06,3755 03464 STORE DELDV
028337,000664: 06,3756 43345 CSI/B1 DLOAD DAD # IF LOOPCT = 16
028338,000665: 06,3757 03764 LOOPCT
028339,000666: 06,3760 15675 1DPB28
028340,000667: 06,3761 03764 STORE LOOPCT
028341,000668: 06,3762 77025 DSU AXT,2
028342,000669: 06,3763 15663 LOOPMX
028343,000670: 06,3764 00006 6
028344,000671: 06,3765 52044 BPL GOTO
028345,000672: 06,3766 63642 SCNDSOL
028346,000673: 06,3767 24013 CSI/B2
028347,000674:
028348,000675: 12,2000 SETLOC CSIPROG2
028349,000676: 12,2000 BANK
028350,000677:
028351,000678: 12,2013 77601 CSI/B2 SETPD
028352,000679: 12,2014 00001 0D
028353,000680: 12,2015 51545 DLOAD ABS
028354,000681: 12,2016 03462 DELVCSI
028355,000682: 12,2017 50025 DSU BMN
028356,000683: 12,2020 15667 DVMAX1
028357,000684: 12,2021 45267 CSI/B23
028358,000685: 12,2022 43174 AXT,2 BON
028359,000686: 12,2023 00007 7
028360,000687: 12,2024 05700 S32.1F1
028361,000688: 12,2025 63642 SCNDSOL
028362,000689: 12,2026 43014 BOFF BON
028363,000690: 12,2027 05742 S32.1F3A
028364,000691: 12,2030 24033 CSI/B22 # FLAG 3 NEQ 3
028365,000692: 12,2031 05703 S32.1F3B
028366,000693: 12,2032 63642 SCNDSOL
028367,000694: 12,2033 71214 CSI/B22 SET DLOAD
028368,000695: 12,2034 05460 S32.1F1
028369,000696: 12,2035 15671 DVMAX2
028370,000697: 12,2036 77765 SIGN
028371,000698: 12,2037 03462 DELVCSI
028372,000699: 12,2040 37462 STCALL DELVCSI
028373,000700: 12,2041 45267 CSI/B23
028374,000701:
028375,000702: 22,2000 SETLOC CSIPROG3
028376,000703: 22,2000 BANK
028377,000704:
028378,000705: 22,3267 41575 CSI/B23 VLOAD PUSH
028379,000706: 22,3270 02541 RACT1
028380,000707: 22,3271 63256 UNIT PDVL
028381,000708: 22,3272 02611 UP1
028382,000709: 22,3273 53435 VXV UNIT # UNIT (URP1 X UVP1 X URA1) = UH1
028383,000710: 22,3274 76561 VXSC VSL1
028384,000711: 22,3275 03462 DELVCSI
028385,000712: 22,3276 02445 STORE DELVEET1
028386,000713: 22,3277 40055 VAD BOV
028387,000714: 22,3300 03504 VACT1
028388,000715: 22,3301 45302 CSI/B23D
028389,000716: 22,3302 37474 CSI/B23D STCALL VACT4
028390,000717: 22,3303 45253 VECSHIFT
028391,000718: 22,3304 26746 STOVL VVEC
028392,000719: 22,3305 77614 SET
028393,000720: 22,3306 03466 RVSW
028394,000721: 22,3307 26657 STOVL RVEC
028395,000722: 22,3310 05426 SN359+
028396,000723: 22,3311 36732 STCALL SNTH # ALSO CSTH
028397,000724: 22,3312 24744 TIMETHET
028398,000725: 22,3313 72142 SR1 LXA,1
028399,000726: 22,3314 03745 RTX1
028400,000727: 22,3315 37472 STCALL HAFPA1
028401,000728: 22,3316 45163 PERIAPO
028402,000729: 22,3317 77624 CALL
028403,000730: 22,3320 45263 SHIFTR1
028404,000731: 22,3321 17460 STODL POSTCSI
028405,000732: 22,3322 03754 CENTANG
028406,000733: 22,3323 52054 BZE GOTO
028407,000734: 22,3324 45326 +2
028408,000735: 22,3325 47147 CIRCL
028409,000736: 22,3326 77745 DLOAD
028410,000737: 22,3327 02754 ECC
028411,000738: 22,3330 50025 DSU BMN
028412,000739: 22,3331 33454 ONETHTH
028413,000740: 22,3332 47147 CIRCL
028414,000741: 22,3333 45145 DLOAD CALL
028415,000742: 22,3334 00041 R1
028416,000743: 22,3335 45263 SHIFTR1
028417,000744: 22,3336 60201 SETPD NORM
028418,000745: 22,3337 00003 2D
028419,000746: 22,3340 00047 X1
028420,000747: 22,3341 50315 PDVL DOT # PL04D
028421,000748: 22,3342 02541 RACT1
028422,000749: 22,3343 03474 VACT4
028423,000750: 22,3344 56246 ABS DDV
028424,000751: 22,3345 00003 02D # (/RDOTV/)/R1 B36-B29= B7
028425,000752: 22,3346 45257 SL* DSU
028426,000753: 22,3347 20201 0,1
028427,000754: 22,3350 33450 NICKELDP
028428,000755: 22,3351 71240 BMN DLOAD
028429,000756: 22,3352 47147 CIRCL
028430,000757: 22,3353 02742 P
028431,000758: 22,3354 45312 SL2 DSU
028432,000759: 22,3355 33502 1RTEB2 # 1.B.2
028433,000760: 22,3356 14017 STODL 14D
028434,000761: 22,3357 03752 RTSR1/MU
028435,000762: 22,3360 56342 SR1 DDV # (1/ROOTMU)/R1 B-16-B29 = B-45 PL02D
028436,000763: 22,3361 41325 PDDL DMP
028437,000764: 22,3362 02742 P
028438,000765: 22,3363 00041 R1
028439,000766: 22,3364 77624 CALL
028440,000767: 22,3365 45263 SHIFTR1
028441,000768: 22,3366 72412 SL4 SL1
028442,000769: 22,3367 41366 SQRT DMP # ((P/MU)**.5)/R1 B14+B-45 = B-31 PL02D
028443,000770: 22,3370 52414 BOFF SL3
028444,000771: 22,3371 04343 CMOONFLG
028445,000772: 22,3372 45373 CSI/B3
028446,000773: 22,3373 50315 CSI/B3 PDVL DOT
028447,000774: 22,3374 02541 RACT1
028448,000775: 22,3375 03474 VACT4
028449,000776: 22,3376 03502 STORE RDOTV
028450,000777: 22,3377 77646 ABS
028451,000778: 22,3400 41301 NORM DMP # ((P/MU)**.5)RDOTV/R1 PL02D
028452,000779: 22,3401 00050 X2
028453,000780: 22,3402 53660 XSU,1 SL* # B-31+B36-B3 = B2
028454,000781: 22,3403 00047 X2
028455,000782: 22,3404 20204 3,1
028456,000783: 22,3405 14015 STODL 12D
028457,000784: 22,3406 15334 ZEROVECS
028458,000785: 22,3407 00021 STORE 16D
028459,000786: 22,3410 53575 VLOAD UNIT
028460,000787: 22,3411 00015 12D
028461,000788: 22,3412 26732 STOVL SNTH # ALSO STORES CSTH AND 0
028462,000789: 22,3413 02541 RACT1
028463,000790: 22,3414 75315 PDVL SIGN
028464,000791: 22,3415 03474 VACT4
028465,000792: 22,3416 03502 RDOTV
028466,000793: 22,3417 45076 VCOMP CALL
028467,000794: 22,3420 45253 VECSHIFT
028468,000795: 22,3421 26746 STOVL VVEC
028469,000796: 22,3422 77614 SETGO
028470,000797: 22,3423 03426 RVSW
028471,000798: 22,3424 47136 CSINEXT
028472,000799:
028473,000800: 22,3425 77776 62460 SN359+ 2DEC -.000086601
028474,000801:
028475,000802: 22,3427 17777 37776 CS359+ 2DEC +.499999992
028476,000803:
028477,000804: 23,2000 SETLOC CSIPROG4
028478,000805: 23,2000 BANK
028479,000806:
028480,000807: 23,3136 36657 CSINEXT STCALL RVEC
028481,000808: 23,3137 24744 TIMETHET
028482,000809: 23,3140 51125 PDDL BPL
028483,000810: 23,3141 03502 RDOTV
028484,000811: 23,3142 47153 NTP/2
028485,000812: 23,3143 45345 DLOAD DSU
028486,000813: 23,3144 03472 HAFPA1
028487,000814: 23,3145 52006 PUSH GOTO
028488,000815: 23,3146 47153 NTP/2
028489,000816: 23,3147 71201 CIRCL SETPD DLOAD
028490,000817: 23,3150 00001 00D
028491,000818: 23,3151 15334 ZEROVECS
028492,000819: 23,3152 77606 PUSH
028493,000820: 23,3153 41345 NTP/2 DLOAD DMP
028494,000821: 23,3154 03766 NN
028495,000822: 23,3155 03472 HAFPA1
028496,000823: 23,3156 45261 SL DSU
028497,000824: 23,3157 20217 14D
028498,000825: 23,3160 77615 DAD
028499,000826: 23,3161 02637 TCSI
028500,000827: 23,3162 02635 STORE TCDH
028501,000828: 23,3163 77021 BDSU AXT,2
028502,000829: 23,3164 03663 TTPI
028503,000830: 23,3165 00005 5D
028504,000831: 23,3166 40240 BMN SETPD
028505,000832: 23,3167 63642 SCNDSOL
028506,000833: 23,3170 00001 0D
028507,000834: 23,3171 63375 VLOAD PDVL
028508,000835: 23,3172 03474 VACT4
028509,000836: 23,3173 02541 RACT1
028510,000837: 23,3174 77624 CALL
028511,000838: 23,3175 63662 INTINT2C
028512,000839: 23,3176 26453 STOVL RACT2
028513,000840: 23,3177 00007 VATT
028514,000841: 23,3200 26533 STOVL VACT2
028515,000842: 23,3201 03512 VPASS1
028516,000843: 23,3202 63201 SETPD PDVL
028517,000844: 23,3203 00001 0D
028518,000845: 23,3204 03756 RPASS1
028519,000846: 23,3205 77650 GOTO
028520,000847: 23,3206 34020 CSINEXT1
028521,000848:
028522,000849: 16,2000 SETLOC CSIPROG5
028523,000850: 16,2000 BANK
028524,000851:
028525,000852: 16,2020 77624 CSINEXT1 CALL
028526,000853: 16,2021 63662 INTINT2C
028527,000854: 16,2022 26625 STOVL RPASS2
028528,000855: 16,2023 00007 VATT
028529,000856: 16,2024 36617 STCALL VPASS2
028530,000857: 16,2025 13232 CDHMVR
028531,000858: 16,2026 40375 VLOAD SETPD
028532,000859: 16,2027 02453 RACT2
028533,000860: 16,2030 00001 0D
028534,000861: 16,2031 45115 PDVL CALL
028535,000862: 16,2032 03546 VACT3
028536,000863: 16,2033 45153 PERIAPO1
028537,000864: 16,2034 77624 CALL
028538,000865: 16,2035 45263 SHIFTR1
028539,000866: 16,2036 27472 STOVL POSTCDH
028540,000867: 16,2037 03546 VACT3
028541,000868: 16,2040 63201 SETPD PDVL
028542,000869: 16,2041 00001 0D
028543,000870: 16,2042 02453 RACT2
028544,000871: 16,2043 65325 PDDL PDDL
028545,000872: 16,2044 02635 TCDH
028546,000873: 16,2045 03663 TTPI
028547,000874: 16,2046 62525 PDDL SL2
028548,000875: 16,2047 11630 2PISC
028549,000876: 16,2050 45006 PUSH CALL
028550,000877: 16,2051 72705 INTINT
028551,000878: 16,2052 77624 CALL
028552,000879: 16,2053 45237 ACTIVE
028553,000880: 16,2054 77745 DLOAD
028554,000881: 16,2055 03744 ELEV
028555,000882: 16,2056 73401 SETPD SINE
028556,000883: 16,2057 00007 6D
028557,000884: 16,2060 53515 PDVL UNIT
028558,000885: 16,2061 03540 RACT3
028559,000886: 16,2062 00001 STORE 00D # URA3 AT 00D
028560,000887: 16,2063 47315 PDVL VXV # PL14D, PL08D
028561,000888: 16,2064 02611 UP1
028562,000889: 16,2065 77656 UNIT
028563,000890: 16,2066 71525 PDDL COSINE # UNIT(URA3 X UVA3 X URA3) = UH3 B1 PL14D
028564,000891: 16,2067 03744 ELEV
028565,000892: 16,2070 45561 VXSC STADR # (COSLOS)(UH3) B2 PL08D
028566,000893: 16,2071 43754 STCALL 18D # PLUS
028567,000894: 16,2072 16517 CSINEXT2
028568,000895:
028569,000896: 07,2000 SETLOC CSIPROG6
028570,000897: 07,2000 BANK
028571,000898:
028572,000899: 07,2517 74345 CSINEXT2 DLOAD VXSC # (SINLOS)(URA3) = U B2 PL00D
028573,000900: 07,2520 76455 VAD VSL1
028574,000901: 07,2521 00023 18D # B1
028575,000902: 07,2522 50206 PUSH DOT # PL06D
028576,000903: 07,2523 03540 RACT3 # (U . RA3) = TEMP1 B1 + B29 = B30
028577,000904: 07,2524 41552 SL1 PUSH # B29 PL08D
028578,000905: 07,2525 72316 DSQ TLOAD # TEMP1**2 B58
028579,000906: 07,2526 00155 MPAC
028580,000907: 07,2527 50315 PDVL DOT # PL11D
028581,000908: 07,2530 03540 RACT3
028582,000909: 07,2531 03540 RACT3
028583,000910: 07,2532 57551 TLOAD DCOMP # RA3 . RA3
028584,000911: 07,2533 00155 MPAC
028585,000912: 07,2534 50315 PDVL DOT # RP3 . RP3 B58 PL14D
028586,000913: 07,2535 03554 RPASS3
028587,000914: 07,2536 03554 RPASS3 # PL11D
028588,000915: 07,2537 76371 TAD TAD # TEMP1**2 + RA3.RA3 + RP3.RP3 = TEMP2 PL08D
028589,000916: 07,2540 71244 BPL DLOAD
028590,000917: 07,2541 16557 K10RK2
028591,000918: 07,2542 03764 LOOPCT
028592,000919: 07,2543 77025 DSU AXT,2
028593,000920: 07,2544 15675 1DPB28
028594,000921: 07,2545 00001 1D
028595,000922: 07,2546 77654 BZE
028596,000923: 07,2547 11314 ALMXITA
028597,000924: 07,2550 70545 DLOAD SR1
028598,000925: 07,2551 03464 DELDV
028599,000926: 07,2552 03464 STORE DELDV
028600,000927: 07,2553 77621 BDSU
028601,000928: 07,2554 03470 DVPREV
028602,000929: 07,2555 37462 STCALL DELVCSI
028603,000930: 07,2556 15756 CSI/B1
028604,000931: 07,2557 41566 K10RK2 SQRT PUSH # TEMP3 = TEMP2**.5 B29 PL10D
028605,000932: 07,2560 45276 DCOMP DSU
028606,000933: 07,2561 00007 06D # -TEMP1-TEMP3 = K2 AT 10D
028607,000934: 07,2562 14013 STODL 10D # PL08D
028608,000935: 07,2563 45425 DSU STADR # PL06D
028609,000936: 07,2564 77762 STORE 12D # -TEMP1+TEMP3 = K1 AT 12D
028610,000937: 07,2565 77646 ABS
028611,000938: 07,2566 14017 STODL 14D
028612,000939: 07,2567 00013 10D
028613,000940: 07,2570 45246 ABS DSU
028614,000941: 07,2571 00017 14D
028615,000942: 07,2572 71240 BMN DLOAD
028616,000943: 07,2573 50002 K2.
028617,000944: 07,2574 00015 12D
028618,000945: 07,2575 34013 STCALL 10D # K EQUALS K1
028619,000946: 07,2576 50002 K2.
028620,000947:
028621,000948: 24,2000 SETLOC CSIPROG7
028622,000949: 24,2000 BANK
028623,000950:
028624,000951: 24,2002 77745 K2. DLOAD
028625,000952: 24,2003 00013 10D
028626,000953: 24,2004 76561 VXSC VSL1
028627,000954: 24,2005 53455 VAD UNIT # V = RA3 + KU UNIT B1
028628,000955: 24,2006 03540 RACT3
028629,000956: 24,2007 53515 PDVL UNIT
028630,000957: 24,2010 03554 RPASS3 # PL06D
028631,000958: 24,2011 53515 PDVL UNIT
028632,000959: 24,2012 03562 VPASS3 # PL12D
028633,000960: 24,2013 63235 VXV PDVL # UVP3 X URP3 PL18D
028634,000961: 24,2014 00007 06D
028635,000962: 24,2015 00007 06D
028636,000963: 24,2016 50235 VXV DOT
028637,000964: 24,2017 00001 00D
028638,000965: 24,2020 77626 STADR # PL12D
028639,000966: 24,2021 53762 STOVL 12D # (URP3 X V).(UVP3 X URP3)=TEMP PL06D
028640,000967: 24,2022 72441 DOT SL1 # PL00D
028641,000968: 24,2023 75326 ARCCOS SIGN
028642,000969: 24,2024 00015 12D # B0
028643,000970: 24,2025 41542 SR1 PUSH # GAMMA = SIGN(TEMP)ARCOS(UNITV.URP3) PL02D
028644,000971: 24,2026 71214 BON DLOAD
028645,000972: 24,2027 05701 S32.1F2
028646,000973: 24,2030 50065 FRSTPAS
028647,000974: 24,2031 00001 00D # NOT THE FIRST PASS OF A CYCLE
028648,000975: 24,2032 65225 DSU PDDL # GAMMA-GAMPREV B1 PL04D
028649,000976: 24,2033 03466 GAMPREV
028650,000977: 24,2034 03462 DELVCSI
028651,000978: 24,2035 60225 DSU NORM # B7
028652,000979: 24,2036 03470 DVPREV
028653,000980: 24,2037 00047 X1
028654,000981: 24,2040 65265 BDDV PDDL # (GAM-GAMPREV)/(DV-DVPREV) B-6+N1 PL06D
028655,000982: 24,2041 00003 02D # = SLOPE
028656,000983: 24,2042 03462 DELVCSI
028657,000984: 24,2043 03470 STORE DVPREV
028658,000985: 24,2044 43014 BOFF BOFF
028659,000986: 24,2045 05742 S32.1F3A
028660,000987: 24,2046 20307 THRDCHK
028661,000988: 24,2047 05743 S32.1F3B
028662,000989: 24,2050 20307 THRDCHK
028663,000990: 24,2051 41345 DLOAD DMP
028664,000991: 24,2052 00003 02D
028665,000992: 24,2053 03466 GAMPREV
028666,000993: 24,2054 71244 BPL DLOAD
028667,000994: 24,2055 20314 FIFTYFPS
028668,000995: 24,2056 33452 INITST1
028669,000996: 24,2057 77765 SIGN
028670,000997: 24,2060 03464 DELDV
028671,000998: 24,2061 03464 STORE DELDV
028672,000999: 24,2062 43014 SET CLEAR
028673,001000: 24,2063 05462 S32.1F3A
028674,001001: 24,2064 05663 S32.1F3B
028675,001002: 24,2065 77745 FRSTPAS DLOAD
028676,001003: 24,2066 00001 00D
028677,001004: 24,2067 17466 STODL GAMPREV
028678,001005: 24,2070 03462 DELVCSI
028679,001006: 24,2071 37470 STCALL DVPREV
028680,001007: 24,2072 20302 CSINEXT3
028681,001008:
028682,001009: 10,2000 SETLOC CSIPROG8
028683,001010: 10,2000 BANK
028684,001011:
028685,001012: 10,2302 43025 CSINEXT3 DSU CLEAR
028686,001013: 10,2303 03464 DELDV
028687,001014: 10,2304 05661 S32.1F2
028688,001015: 10,2305 37462 STCALL DELVCSI
028689,001016: 10,2306 15756 CSI/B1
028690,001017: 10,2307 43014 THRDCHK BON BON
028691,001018: 10,2310 05702 S32.1F3A
028692,001019: 10,2311 20333 NEWTN
028693,001020: 10,2312 05703 S32.1F3B
028694,001021: 10,2313 20333 NEWTN
028695,001022: 10,2314 75345 FIFTYFPS DLOAD SIGN
028696,001023: 10,2315 15701 FIFPSDP
028697,001024: 10,2316 00005 04D
028698,001025: 10,2317 77765 SIGN
028699,001026: 10,2320 03466 GAMPREV
028700,001027: 10,2321 03464 STORE DELDV
028701,001028: 10,2322 43276 DCOMP DAD
028702,001029: 10,2323 03462 DELVCSI
028703,001030: 10,2324 17462 STODL DELVCSI
028704,001031: 10,2325 00001 00D
028705,001032: 10,2326 43014 SET SET
028706,001033: 10,2327 05463 S32.1F3B
028707,001034: 10,2330 05462 S32.1F3A
028708,001035: 10,2331 37466 STCALL GAMPREV
028709,001036: 10,2332 24013 CSI/B2
028710,001037: 10,2333 60345 NEWTN DLOAD NORM
028711,001038: 10,2334 00005 04D
028712,001039: 10,2335 00050 X2
028713,001040: 10,2336 54065 BDDV XSU,1
028714,001041: 10,2337 00001 00D
028715,001042: 10,2340 00047 X2
028716,001043: 10,2341 77657 SR*
028717,001044: 10,2342 20601 0,1
028718,001045: 10,2343 17464 STODL DELDV
028719,001046: 10,2344 00001 00D
028720,001047: 10,2345 03466 STORE GAMPREV
028721,001048: 10,2346 51545 DLOAD ABS
028722,001049: 10,2347 03464 DELDV
028723,001050: 10,2350 45206 PUSH DSU # PL08D
028724,001051: 10,2351 15677 EPSILN1
028725,001052: 10,2352 71240 BMN DLOAD
028726,001053: 10,2353 20370 CSI/SOL
028727,001054: 10,2354 50025 DSU BMN
028728,001055: 10,2355 15703 DELMAX1
028729,001056: 10,2356 20363 CSISTEP
028730,001057: 10,2357 75345 DLOAD SIGN
028731,001058: 10,2360 15703 DELMAX1
028732,001059: 10,2361 03464 DELDV
028733,001060: 10,2362 03464 STORE DELDV
028734,001061: 10,2363 45345 CSISTEP DLOAD DSU
028735,001062: 10,2364 03462 DELVCSI
028736,001063: 10,2365 03464 DELDV
028737,001064: 10,2366 37462 STCALL DELVCSI
028738,001065: 10,2367 15756 CSI/B1
028739,001066: 10,2370 77145 CSI/SOL DLOAD AXT,2
028740,001067: 10,2371 03460 POSTCSI
028741,001068: 10,2372 00002 2
028742,001069: 10,2373 52150 LXA,1 GOTO
028743,001070: 10,2374 03745 RTX1
028744,001071: 10,2375 63610 CSINEXT4
028745,001072:
028746,001073: 31,2000 SETLOC CSIPROG9
028747,001074: 31,2000 BANK
028748,001075:
028749,001076: 31,3610 50023 CSINEXT4 DSU* BMN
028750,001077: 31,3611 33444 PMINE -2,1
028751,001078: 31,3612 63642 SCNDSOL
028752,001079: 31,3613 71374 AXT,2 DLOAD
028753,001080: 31,3614 00003 3
028754,001081: 31,3615 03472 POSTCDH
028755,001082: 31,3616 50023 DSU* BMN
028756,001083: 31,3617 33444 PMINE -2,1
028757,001084: 31,3620 63642 SCNDSOL
028758,001085: 31,3621 45345 DLOAD DSU
028759,001086: 31,3622 02635 TCDH
028760,001087: 31,3623 02637 TCSI
028761,001088: 31,3624 02547 STORE T1TOT2
028762,001089: 31,3625 45374 AXT,2 DSU
028763,001090: 31,3626 00004 4
028764,001091: 31,3627 36155 600SEC
028765,001092: 31,3630 77040 BMN AXT,2
028766,001093: 31,3631 63642 SCNDSOL
028767,001094: 31,3632 00005 5
028768,001095: 31,3633 45345 DLOAD DSU
028769,001096: 31,3634 03663 TTPI
028770,001097: 31,3635 02635 TCDH
028771,001098: 31,3636 03656 STORE T2TOT3
028772,001099: 31,3637 51025 DSU BPL
028773,001100: 31,3640 36155 600SEC
028774,001101: 31,3641 11400 P32/P72C
028775,001102: 31,3642 43014 SCNDSOL BON BOFF
028776,001103: 31,3643 05702 S32.1F3A
028777,001104: 31,3644 11316 ALMXIT
028778,001105: 31,3645 05743 S32.1F3B
028779,001106: 31,3646 11316 ALMXIT
028780,001107: 31,3647 71334 SXA,2 DLOAD
028781,001108: 31,3650 03664 CSIALRM
028782,001109: 31,3651 15334 ZEROVECS
028783,001110: 31,3652 43014 CLEAR SET
028784,001111: 31,3653 05660 S32.1F1
028785,001112: 31,3654 05461 S32.1F2
028786,001113: 31,3655 43014 CLEAR CLEAR
028787,001114: 31,3656 05662 S32.1F3A
028788,001115: 31,3657 05663 S32.1F3B
028789,001116: 31,3660 37764 STCALL LOOPCT
028790,001117: 31,3661 15716 CSI/B
028791,001118:
028792,001119: # ..... ADVANCE .....
028793,001120:
028794,001121: # SUBROUTINES USED
028795,001122: # PRECSET
028796,001123: # ROTATE
028797,001124:
028798,001125: 37,2000 SETLOC CDHTAG3
028799,001126: 37,2000 BANK
028800,001127:
028801,001128: 37,2660 71220 ADVANCE STQ DLOAD
028802,001129: 37,2661 02370 SUBEXIT
028803,001130: 37,2662 03413 TIG
028804,001131: 37,2663 34041 STCALL TDEC1
028805,001132: 37,2664 45215 PRECSET
028806,001133: 37,2665 77214 SET VLOAD
028807,001134: 37,2666 01067 XDELVFLG
028808,001135: 37,2667 03562 VPASS3
028809,001136: 37,2670 02617 STORE VPASS2
028810,001137: 37,2671 27512 STOVL VPASS1
028811,001138: 37,2672 03554 RPASS3
028812,001139: 37,2673 02625 STORE RPASS2
028813,001140: 37,2674 03756 STORE RPASS1
028814,001141: 37,2675 47256 UNIT VXV
028815,001142: 37,2676 03512 VPASS1
028816,001143: 37,2677 77656 UNIT
028817,001144: 37,2700 26611 STOVL UP1
028818,001145: 37,2701 03540 RACT3
028819,001146: 37,2702 37632 STCALL RTIG
028820,001147: 37,2703 13222 ROTATE
028821,001148: 37,2704 02453 STORE RACT2
028822,001149: 37,2705 26541 STOVL RACT1
028823,001150: 37,2706 03546 VACT3
028824,001151: 37,2707 37640 STCALL VTIG
028825,001152: 37,2710 13222 ROTATE
028826,001153: 37,2711 02533 STORE VACT2
028827,001154: 37,2712 37504 STCALL VACT1
028828,001155: 37,2713 02370 SUBEXIT
028829,001156:
028830,001157: # ..... ROTATE .....
028831,001158:
028832,001159: 05,2000 SETLOC CDHTAG
028833,001160: 05,2000 BANK
028834,001161:
028835,001162: 05,3222 41406 ROTATE PUSH PUSH
028836,001163: 05,3223 74241 DOT VXSC
028837,001164: 05,3224 02611 UP1
028838,001165: 05,3225 02611 UP1
028839,001166: 05,3226 51352 VSL2 BVSU
028840,001167: 05,3227 63256 UNIT PDVL
028841,001168: 05,3230 74246 ABVAL VXSC
028842,001169: 05,3231 43572 VSL1 RVQ
028843,001170:
028844,001171: # ..... INTINTNA .....
028845,001172:
028846,001173: 31,2000 SETLOC CDHTAG2
028847,001174: 31,2000 BANK
028848,001175:
028849,001176: 31,3662 65325 INTINT2C PDDL PDDL
028850,001177: 31,3663 02637 TCSI
028851,001178: 31,3664 02635 TCDH
028852,001179: 31,3665 41525 PDDL PUSH
028853,001180: 31,3666 33107 TWOPI
028854,001181: 31,3667 77650 GOTO
028855,001182: 31,3670 72705 INTINT
028856,001183: 31,3671 65325 INTINT3P PDDL PDDL
028857,001184: 31,3672 02635 TCDH
028858,001185: 31,3673 03663 TTPI
028859,001186: 31,3674 41525 PDDL PUSH
028860,001187: 31,3675 15334 ZEROVECS
028861,001188: 31,3676 77650 GOTO
028862,001189: 31,3677 72705 INTINT
028863,001190:
028864,001191: # ..... S32/33.1 .....
028865,001192:
028866,001193: # SUBROUTINES USED
028867,001194: # S32/33.X
028868,001195:
028869,001196: 35,2000 SETLOC CSI/CDH
028870,001197: 35,2000 BANK
028871,001198:
028872,001199: 35,3457 76020 S32/33.1 STQ AXT,1
028873,001200: 35,3460 02370 SUBEXIT
028874,001201: 35,3461 01521 VN 0681
028875,001202: 35,3462 77624 CALL
028876,001203: 35,3463 76640 DISDVLVC
028877,001204: 35,3464 77624 CALL
028878,001205: 35,3465 26231 S32/33.X
028879,001206: 35,3466 61375 VLOAD VXM
028880,001207: 35,3467 03405 DELVLVC
028881,001208: 35,3470 00001 0D
028882,001209: 35,3471 77772 VSL1
028883,001210: 35,3472 03646 STORE DELVSIN
028884,001211: 35,3473 51406 PUSH ABVAL
028885,001212: 35,3474 27654 STOVL DELVSAB
028886,001213: 35,3475 77650 GOTO
028887,001214: 35,3476 02370 SUBEXIT
028888,001215:
028889,001216: # ..... S32/33.X .....
028890,001217:
028891,001218: 13,2000 SETLOC CDHTAGS
028892,001219: 13,2000 BANK
028893,001220:
028894,001221: 13,2231 77201 S32/33.X SETPD VLOAD
028895,001222: 13,2232 00007 6D
028896,001223: 13,2233 02611 UP1
028897,001224: 13,2234 63276 VCOMP PDVL
028898,001225: 13,2235 02541 RACT1
028899,001226: 13,2236 57456 UNIT VCOMP
028900,001227: 13,2237 47206 PUSH VXV
028901,001228: 13,2240 02611 UP1
028902,001229: 13,2241 77772 VSL1
028903,001230: 13,2242 00001 STORE 0D
028904,001231: 13,2243 77616 RVQ
028905,001232:
028906,001233: # ..... CDHMVR .....
028907,001234:
028908,001235: # SUBROUTINES USED
028909,001236: # VECSHIFT
028910,001237: # TIMETHET
028911,001238: # SHIFTR1
028912,001239:
028913,001240: 05,2000 SETLOC CDHTAG
028914,001241: 05,2000 BANK
028915,001242:
028916,001243: 05,3232 77220 CDHMVR STQ VLOAD
028917,001244: 05,3233 02370 SUBEXIT
028918,001245: 05,3234 02453 RACT2
028919,001246: 05,3235 53406 PUSH UNIT
028920,001247: 05,3236 27546 STOVL UNVEC # UR SUB A
028921,001248: 05,3237 02625 RPASS2
028922,001249: 05,3240 50256 UNIT DOT
028923,001250: 05,3241 03546 UNVEC
028924,001251: 05,3242 72406 PUSH SL1
028925,001252: 05,3243 16734 STODL CSTH
028926,001253: 05,3244 65316 DSQ PDDL
028927,001254: 05,3245 23740 DP1/4
028928,001255: 05,3246 45302 SR2 DSU
028929,001256: 05,3247 72566 SQRT SL1
028930,001257: 05,3250 57515 PDVL VCOMP
028931,001258: 05,3251 77635 VXV
028932,001259: 05,3252 02625 RPASS2
028933,001260: 05,3253 65241 DOT PDDL
028934,001261: 05,3254 02611 UP1
028935,001262: 05,3255 45565 SIGN STADR
028936,001263: 05,3256 51045 STOVL SNTH
028937,001264: 05,3257 02625 RPASS2
028938,001265: 05,3260 45115 PDVL CALL
028939,001266: 05,3261 02617 VPASS2
028940,001267: 05,3262 45253 VECSHIFT
028941,001268: 05,3263 26746 STOVL VVEC
028942,001269: 05,3264 77614 CLEAR
028943,001270: 05,3265 03666 RVSW
028944,001271: 05,3266 36657 STCALL RVEC
028945,001272: 05,3267 24744 TIMETHET
028946,001273: 05,3270 53754 LXA,2 VSL*
028947,001274: 05,3271 03746 RTX2
028948,001275: 05,3272 57576 0,2
028949,001276: 05,3273 00023 STORE 18D
028950,001277: 05,3274 76441 DOT SL1R
028951,001278: 05,3275 03546 UNVEC
028952,001279: 05,3276 51515 PDVL ABVAL # 0D = V SUB PV
028953,001280: 05,3277 63257 SL* PDVL
028954,001281: 05,3300 57576 0,2
028955,001282: 05,3301 02453 RACT2
028956,001283: 05,3302 65246 ABVAL PDDL # 2D = LENGTH OF R SUB A
028957,001284: 05,3303 77625 DSU
028958,001285: 05,3304 00003 02D
028959,001286: 05,3305 16633 STODL DIFFALT # DELTA H IN METERS B+29
028960,001287: 05,3306 02744 R1A
028961,001288: 05,3307 65301 NORM PDDL # 2 - R V**/MU 04D
028962,001289: 05,3310 00047 X1
028963,001290: 05,3311 00041 R1
028964,001291: 05,3312 77624 CALL
028965,001292: 05,3313 45263 SHIFTR1
028966,001293: 05,3314 56362 SR1R DDV
028967,001294: 05,3315 41457 SL* PUSH
028968,001295: 05,3316 20174 0 -5,1
028969,001296: 05,3317 65225 DSU PDDL # A SUB A B+29 04D
028970,001297: 05,3320 02633 DIFFALT
028971,001298: 05,3321 56302 SR2 DDV # A SUB P B+31
028972,001299: 05,3322 00005 04D # B+2
028973,001300: 05,3323 75406 PUSH SQRT # A SUB P/A SUB A 06D
028974,001301: 05,3324 41275 DMPR DMP
028975,001302: 05,3325 00007 06D
028976,001303: 05,3326 00001 00D
028977,001304: 05,3327 65272 SL3R PDDL # V SUB A V METERS/CS B+7 08D
028978,001305: 05,3330 00003 02D # R SUB A MAGNITUDE B+29
028979,001306: 05,3331 65301 NORM PDDL
028980,001307: 05,3332 00047 X1
028981,001308: 05,3333 03750 RTMU
028982,001309: 05,3334 56342 SR1 DDV # 2MU B+38
028983,001310: 05,3335 65257 SL* PDDL # 2 MU/R SUBAA B+14 10D
028984,001311: 05,3336 20174 0 -5,1
028985,001312: 05,3337 00005 04D # ASUBA B+29
028986,001313: 05,3340 65301 NORM PDDL
028987,001314: 05,3341 00050 X2
028988,001315: 05,3342 03750 RTMU
028989,001316: 05,3343 56342 SR1 DDV
028990,001317: 05,3344 44257 SL* BDSU
028991,001318: 05,3345 57604 0 -6,2 # 2U/R - U/A B+14 (METERS/CS)SQ
028992,001319: 05,3346 63525 PDDL DSQ # 10D
028993,001320: 05,3347 00011 08D
028994,001321: 05,3350 75421 BDSU SQRT
028995,001322: 05,3351 47315 PDVL VXV # SQRT(MU(2/R SUB A-1/A SUB A)-VSUBA2) 10D
028996,001323: 05,3352 02611 UP1
028997,001324: 05,3353 03546 UNVEC
028998,001325: 05,3354 74256 UNIT VXSC
028999,001326: 05,3355 00013 10D
029000,001327: 05,3356 74315 PDVL VXSC
029001,001328: 05,3357 03546 UNVEC
029002,001329: 05,3360 00011 08D
029003,001330: 05,3361 76455 VAD VSL1
029004,001331: 05,3362 77626 STADR
029005,001332: 05,3363 74231 STORE VACT3
029006,001333: 05,3364 77651 VSU
029007,001334: 05,3365 02533 VACT2
029008,001335: 05,3366 37667 STCALL DELVEET2 # DELTA VCDH - REFERENCE COORDINATES
029009,001336: 05,3367 02370 SUBEXIT
029010,001337:
029011,001338: # ..... COMPTGO .....
029012,001339:
029013,001340: # SUBROUTINES USED
029014,001341: # CLOKTASK
029015,001342: # 2PHSCHNG
029016,001343:
029017,001344: 35,3477 BANK 35
029018,001345: 35,2000 SETLOC CSI/CDH
029019,001346: 35,2000 BANK
029020,001347:
029021,001348: 35,3477 E4,1767 EBANK= RTRN
029022,001349:
029023,001350: 35,3477 COUNT* $$/P3575
029024,001351:
End of include-file P32-P33,_P72-P73.agc. Parent file is MAIN.agc