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