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