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