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