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