Source Code
![]() |
These source-code files were obtained by digitally photographing
an Artemis 72 program listing from a private collection and then
modifying pre-existing Comanche 55 (Apollo 11) source files to
incorporate changes. Note that the page images
presented online are of reduced quality, and that additional images
may be 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 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011 11:40 FEB. 26, 1971 THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS COLOSSUS 3 THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED IN REPORT R-577. THIS PROGRAM WAS PREPARED UNDER OSR PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT CENTER OF THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF TECHNOLOGY, CAMBRIDGE, MASS. |
029084,000002: # Copyright: Public domain.
029085,000003: # Filename: P32-P33_P72-P73.agc
029086,000004: # Purpose: Part of the source code for Artemis (i.e., Colossus 3),
029087,000005: # build 072. This is for the Command Module's (CM)
029088,000006: # Apollo Guidance Computer (AGC), we believe for
029089,000007: # Apollo 15-17.
029090,000008: # Assembler: yaYUL
029091,000009: # Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
029092,000010: # Website: www.ibiblio.org/apollo/index.html
029093,000011: # Page scans: www.ibiblio.org/apollo/ScansForConversion/Artemis072/
029094,000012: # Mod history: 2009-08-12 JL Adapted from corresponding Comanche 055 file.
029095,000013: # 2009-09-04 JL Fixed a bunch of typos. Fixed page numbers.
029096,000014: # 2010-02-07 JL Removed spurious STORE instruction on p682.
029097,000015: # 2010-02-09 JL Added missing code on p685.
029098,000016: # 2010-02-11 JL Fixed error on p663.
029099,000017: # 2010-02-20 RSB Un-##'d this header.
029100,000018:
029101,000019: # # Page 658
029102,000020:
029103,000021: # COELLIPTIC SEQUENCE INITIATION (CSI) PROGRAMS (P32 AND P72)
029104,000022:
029105,000023: # MOD NO -1 LOG SECTION - P32-P35, P72-P75
029106,000024: # MOD BY WHITE.P DATE 1 JUNE 67
029107,000025:
029108,000026: # PURPOSE
029109,000027:
029110,000028: # (1) TO CALCULATE PARAMETERS ASSOCIATED WTIH THE FOLLOWING
029111,000029: # CONCENTRIC FLIGHT PLAN MANEUVERS - THE CO-ELLIPTIC SEQUENCE
029112,000030: # INITIATION (CSI) MANEUVER AND THE CONSTANT DELTA ALTITUDE
029113,000031: # (CDH) MANEUVER.
029114,000032:
029115,000033: # (2) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
029116,000034: # APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
029117,000035:
029118,000036: # (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
029119,000037: # ASSOCIATED WITH THE CONCENTRIC FLIGHT PLAN MANEUVERS FOR
029120,000038: # APPROVAL BY THE ASTRRONAUT/GROUND.
029121,000039:
029122,000040: # (4) TO STORE THE CSI TARGET PARAMETERS FOR USE BY THE DESIRED
029123,000041: # THRUSTING PROGRAM.
029124,000042:
029125,000043: # ASSUMPTIONS
029126,000044:
029127,000045: # (1) AT A SELECTED TPI TIME THE LINE OF SIGNT BETWEEN THE ACTIVE
029128,000046: # AND PASSIVE VEHICLES IS SELECTED TO BE A PRESCRIBED ANGLE (E)
029129,000047: # FROM THE HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE
029130,000048: # POSITION.
029131,000049:
029132,000050: # (2) THE TIME BETWEEN CSI IGNITION AND CDH IGNITION MUST BE
029133,000051: # COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL
029134,000052: # COMPLETION OF THE PROGRAM.
029135,000053:
029136,000054: # (3) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION MUST BE
029137,000055: # COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL
029138,000056: # COMPLETION OF THE PROGRAM.
029139,000057:
029140,000058: # (4) CDH DELTA V IS SELECTED TO MINIMIZE THE VARIATION OF THE
029141,000059: # ALTITUDE DIFFERENCE BETWEEN THE ORBITS.
029142,000060:
029143,000061: # (5) CSI BURN IS DEFINED SUCH THAT THE IMPULSIVE DELTA V IS IN THE
029144,000062: # HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION AT CSI
029145,000063: # IGNITION.
029146,000064:
029147,000065: # (6) THE PERICENTER ALTITUDE OF THE ORBIT FOLLOWING CSI AND CDH
029148,000066: # MUST BE GREATER THAN 35,000 FT (LUNAR ORBIT) OR 85 NM (EARTH
029149,000067: # ORBIT) FOR SUCCESSFUL COMPLETION OF THIS PROGRAM.
029150,000068:
029151,000069: # (7) THE CSI AND CDH MANEUVERS ARE ORIGINALLY ASSUMED TO BE
029152,000070: # PARALLEL TO THE PLANE OF THE CSM ORBIT. HOWEVER, CREW
029153,000071: # # Page 659
029154,000072: # MODIFICATION OF DELTA V (LV) COMPONENTS MAY RESULT IN AN
029155,000073: # OUT-OF-PLANE CSI MANEUVER.
029156,000074:
029157,000075: # (8) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
029158,000076: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 10).
029159,000077:
029160,000078: # (9) COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
029161,000079: # THE GROUND. THESE STORAGE CAPABILITIES ARE NORMALLY LIMITED
029162,000080: # ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
029163,000081: # EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
029164,000082:
029165,000083: # (10) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
029166,000084: # OR CSM STATE VECTORS FOR THIS PROGRAM. IF RADAR USE IS
029167,000085: # DESIRED THE RADAR WAS TURNED ON AND LOCKED BY THE CSM BY
029168,000086: # PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS WILL BE MADE
029169,000087: # AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
029170,000088: # TRACK AND UPDATE FLAGS (SEE P20). THE RENDEZVOUS TRACKING
029171,000089: # MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
029172,000090: # THRUSTING MANEUVER.
029173,000091:
029174,000092: # (11) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
029175,000093:
029176,000094: # (12) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
029177,000095:
029178,000096: # ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
029179,000097: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
029180,000098: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF
029181,000099: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
029182,000100:
029183,000101: # FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
029184,000102: # COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
029185,000103: # CYCLE.
029186,000104:
029187,000105: # EXTERNAL DELTA V STEERING FLAG - DESIGNATES THE TYPE OF
029188,000106: # STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
029189,000107: # THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
029190,000108: # PROGRAM.
029191,000109:
029192,000110: # (13) IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
029193,000111: # A THRUSTING MANEUVER.
029194,000112:
029195,000113: # (14) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
029196,000114:
029197,000115: # P32 IF THIS VEHICLE IS ACTIVE VEHICLE.
029198,000116:
029199,000117: # P72 IF THIS VEHICLE IS THE PASSIVE VEHICLE.
029200,000118:
029201,000119: # INPUT
029202,000120:
029203,000121: # (1) TCSI TIME OF THE CSI MANEUVER
029204,000122: # # Page 660
029205,000123: # (2) NN NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE
029206,000124: # VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH
029207,000125: # MANEUVER POINT.
029208,000126: # (3) ELEV DESIRED LOS ANGLE AT TPI
029209,000127: # (4) TTPI TIME OF THE TPI MANEUVER
029210,000128:
029211,000129: # OUTPUT
029212,000130:
029213,000131: # (1) TRKMKCNT NUMBER OF MARKS
029214,000132: # (2) TTOGO TIME TO GO
029215,000133: # (3) +MGA MIDDLE GIMBAL ANGLE
029216,000134: # (4) DIFFALT DELTA ALTITUDE AT CDH
029217,000135: # (5) T1TOT2 DELTA TIME FROM CSI TO CDH
029218,000136: # (6) T2TOT3 DELTA TIME FROM CDH TO TPI
029219,000137: # (7) DELVLVC DELTA VELOCITY AT CSI - LOCAL VERTICAL COORDINATES
029220,000138: # (8) DELVLVC DELTA VELOCITY AT CDH - LOCAL VERTICAL COORDINATES
029221,000139:
029222,000140: # DOWNLINK
029223,000141:
029224,000142: # (1) TCSI TIME OF THE CSI MANEUVER
029225,000143: # (2) TCDH TIME OF THE CDH MANEUVER
029226,000144: # (3) TTPI TIME OF THE TPI MANEUVER
029227,000145: # (4) TIG TIME OF THE CSI MANEUVER
029228,000146: # (5) DELVEET1 DELTA VELOCITY AT CSI - REFERENCE COORDINATES
029229,000147: # (6) DELVEET2 DELTA VELOCITY AT CDH - REFERENCE COORDINATES
029230,000148: # (7) DIFFALT DELTA ALTITUDE AT CDH
029231,000149: # (8) NN NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE
029232,000150: # VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH
029233,000151: # MANEUVER POINT
029234,000152: # (9) ELEV DESIRED LOS ANGLE AT TPI
029235,000153:
029236,000154: # COMMUNICATION TO THRUSTING PROGRAMS
029237,000155:
029238,000156: # (1) TIG TIME OF THE CSI MANEUVER
029239,000157: # (2) RTIG POSITION OF ACTIVE VEHICLE AT CSI - BEFORE ROTATION
029240,000158: # INTO PLANE OF PASSIVE VEHICLE
029241,000159: # (3) VTIG VELOCITY OF ACTIVE VEHICLE AT CSE - BEFORE ROTATION
029242,000160: # INTO PLANE OF PASSIVE VEHICLE
029243,000161: # (4) DELVSIN DELTA VELOCITY AT CSI - REFERENCE COORDINATES
029244,000162: # (5) DELVSAB MAGNITUDE OF DELTA VELOCITY AT CSI
029245,000163: # (6) XDELVFLG SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION
029246,000164:
029247,000165: # SUBROUTINES USED
029248,000166:
029249,000167: # AVFLAGA
029250,000168: # AVFLAGP
029251,000169: # P20FLGON
029252,000170: # VARALARM
029253,000171: # BANKCALL
029254,000172: # GOFLASH
029255,000173: # GOTOPOOH
029256,000174: # # Page 661
029257,000175: # VNPOOH
029258,000176: # GOFLASHR
029259,000177: # BLANKET
029260,000178: # ENDOFJOB
029261,000179: # SELECTMU
029262,000180: # ADVANCE
029263,000181: # INTINT
029264,000182: # PASSIVE
029265,000183: # CSI/A
029266,000184: # S32/33.1
029267,000185: # DISDVLVC
029268,000186: # VN1645
029269,000187:
029270,000188: 04,2000 SETLOC CSI/CDH1
029271,000189: 04,2000 BANK
029272,000190: 04,3403 E4,1760 EBANK= SUBEXIT
029273,000191: 04,3403 COUNT* $$/P3272
029274,000192: 04,3403 04553 P32 TC AVFLAGA
029275,000193: 04,3404 03424 TC P32/P72A
029276,000194:
029277,000195: 04,3405 04565 P72 TC AVFLAGP
029278,000196: 04,3406 03424 TC P32/P72A
029279,000197: 04,3407 77734 ALMXITA SXA,2
029280,000198: 04,3410 03664 CSIALRM
029281,000199: 04,3411 77740 ALMXIT LXC,1
029282,000200: 04,3412 03664 CSIALRM
029283,000201: 04,3413 77533 SLOAD* EXIT
029284,000202: 04,3414 13270 ALARM/TB -1,1
029285,000203: 04,3415 30154 CA MPAC
029286,000204: 04,3416 05770 TC VARALARM
029287,000205: 04,3417 35023 CAF V05N09
029288,000206: 04,3420 04636 TC BANKCALL
029289,000207: 04,3421 20743 CADR GOFLASH
029290,000208: 04,3422 04103 TC GOTOPOOH
029291,000209: 04,3423 03417 TC -4
029292,000210: 04,3424 04572 P32/P72A TC P20FLGON
029293,000211: 04,3425 06006 TC INTPRET
029294,000212: 04,3426 45014 BON CALL
029295,000213: 04,3427 05710 HAFLAG
029296,000214: 04,3430 11306 P31ALMRT
029297,000215: 04,3431 11546 INPUTDSP
029298,000216: 04,3432 71214 CLEAR DLOAD
029299,000217: 04,3433 05671 CSISFLAG
029300,000218: 04,3434 02463 TCSI
029301,000219: 04,3435 37413 STCALL TIG
029302,000220: 04,3436 11217 SELECTMU
029303,000221: 04,3437 77745 P32/P72B DLOAD
029304,000222: 04,3440 03413 TIG
029305,000223: 04,3441 77624 P31ENT CALL
029306,000224: 04,3442 76560 ADVANCE
029307,000225: # # Page 662
029308,000226: 04,3443 77201 SETPD VLOAD
029309,000227: 04,3444 00001 0D
029310,000228: 04,3445 03512 VPASS1
029311,000229: 04,3446 65315 PDVL PDDL
029312,000230: 04,3447 03756 RPASS1
029313,000231: 04,3450 02463 TCSI
029314,000232: 04,3451 65325 PDDL PDDL
029315,000233: 04,3452 03663 TTPI
029316,000234: 04,3453 33430 2PISC
029317,000235: 04,3454 41512 SL2 PUSH
029318,000236: 04,3455 77624 CALL
029319,000237: 04,3456 72740 INTINT
029320,000238: 04,3457 77624 CALL
029321,000239: 04,3460 45314 PASSIVE
029322,000240: 04,3461 77624 CALL
029323,000241: 04,3462 15672 CSI/A
029324,000242: 04,3463 43214 P32/P72C BONCLR DAD
029325,000243: 04,3464 05610 HAFLAG
029326,000244: 04,3465 11357 P31RT
029327,000245: 04,3466 26731 600SECS
029328,000246: 04,3467 03656 STORE T2TOT3
029329,000247:
029330,000248: 04,3470 43014 BON SET
029331,000249: 04,3471 01311 FINALFLG
029332,000250: 04,3472 11474 P32/P72D
029333,000251: 04,3473 00470 UPDATFLG
029334,000252: 04,3474 77745 P32/P72D DLOAD
029335,000253: 04,3475 02547 T1TOT2
029336,000254: 04,3476 02547 P32/P72E STORE T1TOT2
029337,000255: 04,3477 51025 DSU BPL
029338,000256: 04,3500 13267 60MIN
029339,000257: 04,3501 11476 P32/P72E
029340,000258: 04,3502 77745 DLOAD
029341,000259: 04,3503 03656 T2TOT3
029342,000260: 04,3504 03656 P32/P72F STORE T2TOT3
029343,000261: 04,3505 51025 DSU BPL
029344,000262: 04,3506 13267 60MIN
029345,000263: 04,3507 11504 P32/P72F
029346,000264: 04,3510 77414 BON EXIT # BYPASS N75 IN MINKEY
029347,000265: 04,3511 05310 AUTOSEQ
029348,000266: 04,3512 11516 PASS75
029349,000267:
029350,000268: 04,3513 34605 CAF V06N75
029351,000269: 04,3514 05535 TC VNFLASH
029352,000270: 04,3515 06006 TC INTPRET
029353,000271: 04,3516 77624 PASS75 CALL
029354,000272: 04,3517 76537 DISDVLVC # ROTATE TO LV, DISP N90, ROTATE TO REF
029355,000273: 04,3520 77775 VLOAD
029356,000274: 04,3521 02453 RACT2
029357,000275: 04,3522 36541 STCALL RACT1
029358,000276: # # Page 663
029359,000277: 04,3523 32050 S32/33.X # GET REF/LV MATRIX AT 0D
029360,000278: 04,3524 64375 VLOAD MXV
029361,000279: 04,3525 03667 DELVEET2
029362,000280: 04,3526 00001 0D
029363,000281: 04,3527 77772 VSL1
029364,000282: 04,3530 03540 STORE DELVOV # LV FOR N 82 DISPLAY
029365,000283: 04,3531 77414 BON EXIT
029366,000284: 04,3532 05310 AUTOSEQ
029367,000285: 04,3533 11537 PASS82
029368,000286: 04,3534 33545 CAF V06N82
029369,000287: 04,3535 05535 TC VNFLASH
029370,000288: 04,3536 06006 TC INTPRET
029371,000289: 04,3537 77745 PASS82 DLOAD
029372,000290: 04,3540 03663 TTPI
029373,000291: 04,3541 36465 STCALL TTPI0
029374,000292: 04,3542 73027 VN1645
029375,000293: 04,3543 77650 GOTO
029376,000294: 04,3544 11437 P32/P72B
029377,000295: 04,3545 01522 V06N82 VN 0682
029378,000296:
029379,000297: 04,3546 15,3432 HIGH1 EQUALS ONEBIT +1
029380,000298:
029381,000299: 04,3546 71220 INPUTDSP STQ DLOAD
029382,000300: 04,3547 02551 N90RET
029383,000301: 04,3550 11400 130DEGLO
029384,000302: 04,3551 17754 STODL CENTANG
029385,000303: 04,3552 11402 208DEGLO
029386,000304: 04,3553 03744 STORE ELEV
029387,000305: 04,3554 67214 BON SLOAD
029388,000306: 04,3555 05711 CSISFLAG
029389,000307: 04,3556 11561 PASSNN
029390,000308: 04,3557 33433 HIGH1
029391,000309: 04,3560 03766 STORE NN
029392,000310: 04,3561 77776 PASSNN EXIT
029393,000311: 04,3562 34603 CAF V06N11
029394,000312: 04,3563 05535 TC VNFLASH
029395,000313: 04,3564 34533 CAF V06N55
029396,000314: 04,3565 05535 TC VNFLASH
029397,000315: 04,3566 34532 CAF V06N37
029398,000316: 04,3567 05535 TC VNFLASH
029399,000317: 04,3570 06006 TC INTPRET
029400,000318: 04,3571 77650 GOTO
029401,000319: 04,3572 02551 N90RET
029402,000320:
029403,000321: # # Page 664
029404,000322: # CONSTANT DELTA HEIGHT (CDH) PROGRAMS (P33 AND P73)
029405,000323: # MOD NO -1 LOG SECTION - P32-P35, P72-P75
029406,000324: # MOD BY WHITE.P DATE: 1 JUNE 67
029407,000325:
029408,000326: # PURPOSE
029409,000327:
029410,000328: # (1) TO CALCULATE PARAMETERS ASSOCIATED WITH THE CONSTANT DELTA
029411,000329: # ALTITUDE MANEUVER (CDH).
029412,000330:
029413,000331: # (2) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
029414,000332: # APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
029415,000333:
029416,000334: # (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
029417,000335: # ASSOCIATED WITH THE CDH MANEUVER FOR APPROVAL BY THE
029418,000336: # ASTRONAUT/GROUND.
029419,000337:
029420,000338: # (4) TO STORE THE CDH TARGET PARAMETERS FOR USE BY THE DESIRED
029421,000339: # THRUSTING PROGRAM.
029422,000340:
029423,000341: # ASSUMPTIONS
029424,000342:
029425,000343: # (1) THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF THE
029426,000344: # CO-ELLIPTIC SEQUENCE INITIATION (CSI) PROGRAM (P32/P72).
029427,000345: # THEREFORE -
029428,000346:
029429,000347: # (A) AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
029430,000348: # BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
029431,000349: # A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
029432,000350: # HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
029433,000351:
029434,000352: # (B) THE TIME BETWEEN CSI IGNITION AND CDH IGNITION WAS
029435,000353: # COMPUTED TO BE GREATER THAN 10 MINUTES.
029436,000354:
029437,000355: # (C) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
029438,000356: # COMPUTED TO BE GREATER THAN 10 MINUTES.
029439,000357:
029440,000358: # (D) THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
029441,000359: # ORBITS WAS MINIMIZED.
029442,000360:
029443,000361: # (E) CSI BURN WAS DEFINED SUCH THAT THE IMPULSIVE DELTA V WAS
029444,000362: # IN THE HORIZONTAL PLANE DEFINED BY ACTIVE VEHICLE
029445,000363: # POSITION AT CSI IGNITION.
029446,000364:
029447,000365: # (F) THE PERICENTER ALTITUDES OF THE ORBITS FOLLOWING CSI AND
029448,000366: # CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR
029449,000367: # ORBIT OR 85 NM FOR EARTH ORBIT.
029450,000368:
029451,000369: # (G) THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
029452,000370: # THE PLANE OF THE PASSIVE VEHICLE ORBIT. HOWEVER, CREW
029453,000371: # # Page 665
029454,000372: # MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
029455,000373: # IN AN OUT-OF-PLANE MANEUVER.
029456,000374:
029457,000375: # (2) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
029458,000376: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 4).
029459,000377:
029460,000378: # (3) COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
029461,000379: # THE GROUND. THESE STORAGE CAPABILITIES ARE NORMALLY LIMITED
029462,000380: # ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
029463,000381: # EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
029464,000382:
029465,000383: # (4) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
029466,000384: # OR CSM STATE VECTORS FOR THIS PROGRAM. IF RADAR USE IS
029467,000385: # DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
029468,000386: # PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS WILL BE MADE
029469,000387: # AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
029470,000388: # TRACK AND UPDATE FLAGS (SEE P20). THE RENDEZVOUS TRACKING
029471,000389: # MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
029472,000390: # THRUSTING MANEUVER.
029473,000391:
029474,000392: # (5) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
029475,000393:
029476,000394: # (6) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
029477,000395:
029478,000396: # ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
029479,000397: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
029480,000398: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF
029481,000399: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
029482,000400:
029483,000401: # FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
029484,000402: # COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
029485,000403: # CYCLE.
029486,000404:
029487,000405: # EXTERNAL DELTA V STEERING FLAG - DESIGNATES THE TYPE OF
029488,000406: # STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
029489,000407: # THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
029490,000408: # PROGRAM.
029491,000409:
029492,000410: # (7) IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
029493,000411: # A THRUSTING MANEUVER.
029494,000412:
029495,000413: # (8) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY.
029496,000414:
029497,000415: # P33 IF THIS VEHICLE IS ACTIVE VEHICLE.
029498,000416:
029499,000417: # P73 IF THIS VEHICLE IS PASSIVE VEHICLE.
029500,000418:
029501,000419: # INPUT
029502,000420:
029503,000421: # (1) TTPI0 TIME OF THE TPI MANEUVER - SAVED FROM P32/P72
029504,000422: # # Page 666
029505,000423: # (2) ELEV DESIRED LOS ANGLE AT TPI - SAVED FROM P32/P72
029506,000424: # (3) TCDH TIME OF THE CDH MANEUVER
029507,000425:
029508,000426: # OUTPUT
029509,000427:
029510,000428: # (1) TRKMKCNT NUMBER OF MARKS
029511,000429: # (2) TTOGO TIME TO GO
029512,000430: # (3) +MGA MIDDLE GIMBAL ANGLE
029513,000431: # (4) DIFFALT DELTA ALTITUDE AT CDH
029514,000432: # (5) T2TOT3 DELTA TIME FROM CDH TO COMPUTED TPI
029515,000433: # (6) NOMTPI DELTA TIME FROM NOMINAL TPI TO COMPUTED TPI
029516,000434: # (7) DELVLVC DELTA VELOCITY AT CDH - LOCAL VERTICAL COORDINATES
029517,000435:
029518,000436: # DOWNLINK
029519,000437:
029520,000438: # (1) TCDH TIME OF THE CDH MANEUVER
029521,000439: # (2) TTPI TIME OF THE TPI MANEUVER
029522,000440: # (3) TIG TIME OF THE CDH MANEUVER
029523,000441: # (4) DELVEET2 DELTA VELOCITY AT CDH - REFERENCE COORDINATES
029524,000442: # (5) DIFFALT DELTA ALTITUDE AT CDH
029525,000443: # (6) ELEV DESIRED LOS ANGLE AT TPI
029526,000444:
029527,000445: # COMMUNICATION TO THRUSTING PROGRAMS
029528,000446:
029529,000447: # (1) TIG TIME OF THE CDH MANEUVER
029530,000448: # (2) RTIG POSITION OF ACTIVE VEHICLE AT CDH - BEFORE ROTATION
029531,000449: # INTO PLANE OF PASSIVE VEHICLE
029532,000450: # (3) VTIG VELOCITY OF ACTIVE VEHICLE AT CDH - BEFORE ROTATION
029533,000451: # INTO PLANE OF PASSIVE VEHICLE
029534,000452: # (4) DELVSIN DELTA VELOCITY AT CDH - REFERENCE COORDINATES
029535,000453: # (5) DELVSAB MAGNITUDE OF DELTA VELOCITY AT CDH
029536,000454: # (6) XDELVFLG SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION
029537,000455:
029538,000456: # SUBROUTINES USED
029539,000457:
029540,000458: # AVFLAGA
029541,000459: # AVFLAGP
029542,000460: # P20FLGON
029543,000461: # VNPOOH
029544,000462: # SELECTMU
029545,000463: # ADVANCE
029546,000464: # CDHMVR
029547,000465: # INTINT3P
029548,000466: # ACTIVE
029549,000467: # PASSIVE
029550,000468: # S33/34.1
029551,000469: # ALARM
029552,000470: # BANKCALL
029553,000471: # GOFLASH
029554,000472: # GOTOPOOH
029555,000473: # S32/33.1
029556,000474: # # Page 667
029557,000475: # VN1645
029558,000476:
029559,000477: 04,3573 COUNT* $$/P3373
029560,000478: 04,3573 04553 P33 TC AVFLAGA
029561,000479: 04,3574 03576 TC P33/P73A
029562,000480: 04,3575 04565 P73 TC AVFLAGP
029563,000481: 04,3576 04572 P33/P73A TC P20FLGON
029564,000482: 04,3577 34604 CAF V06N13 # TCDH
029565,000483: 04,3600 05535 TC VNFLASH
029566,000484: 04,3601 06006 TC INTPRET
029567,000485: 04,3602 77745 DLOAD
029568,000486: 04,3603 02465 TTPI0
029569,000487: 04,3604 17663 STODL TTPI
029570,000488: 04,3605 02461 TCDH
029571,000489: 04,3606 37413 STCALL TIG
029572,000490: 04,3607 11217 SELECTMU
029573,000491: 04,3610 45145 P33/P73B DLOAD CALL
029574,000492: 04,3611 03413 TIG
029575,000493: 04,3612 76560 ADVANCE
029576,000494: 04,3613 77624 CALL
029577,000495: 04,3614 56674 CDHMVR
029578,000496: 04,3615 02445 STORE DELVEET1 # CDH DV TO USE DISDVLVC SUB FOR N81 DISP
029579,000497: 04,3616 77201 SETPD VLOAD
029580,000498: 04,3617 00001 0D
029581,000499: 04,3620 03546 VACT3
029582,000500: 04,3621 45115 PDVL CALL
029583,000501: 04,3622 02453 RACT2
029584,000502: 04,3623 63615 INTINT3P
029585,000503: 04,3624 77624 CALL
029586,000504: 04,3625 45304 ACTIVE
029587,000505: 04,3626 77201 SETPD VLOAD
029588,000506: 04,3627 00001 0D
029589,000507: 04,3630 02617 VPASS2
029590,000508: 04,3631 45115 PDVL CALL
029591,000509: 04,3632 02625 RPASS2
029592,000510: 04,3633 63615 INTINT3P
029593,000511: 04,3634 77624 CALL
029594,000512: 04,3635 45314 PASSIVE
029595,000513: 04,3636 43145 DLOAD SET
029596,000514: 04,3637 11762 ZEROVEC
029597,000515: 04,3640 03461 ITSWICH
029598,000516: 04,3641 36355 STCALL NOMTPI
029599,000517: 04,3642 72251 S33/34.1
029600,000518: 04,3643 77454 BZE EXIT
029601,000519: 04,3644 24035 P33/P73C
029602,000520: 04,3645 05671 TC ALARM
029603,000521: 04,3646 00611 OCT 611
029604,000522: 04,3647 35023 CAF V05N09
029605,000523: 04,3650 04636 TC BANKCALL
029606,000524: 04,3651 20743 CADR GOFLASH
029607,000525: # # Page 668
029608,000526: 04,3652 04103 TC GOTOPOOH
029609,000527: 04,3653 03655 TC +2
029610,000528: 04,3654 03576 TC P33/P73A
029611,000529: 04,3655 06006 TC INTPRET
029612,000530: 04,3656 77745 DLOAD
029613,000531: 04,3657 11762 ZEROVEC
029614,000532: 04,3660 36355 STCALL NOMTPI
029615,000533: 04,3661 24035 P33/P73C
029616,000534: 12,2000 SETLOC CSI/CDH2
029617,000535: 12,2000 BANK
029618,000536:
029619,000537: 12,2035 COUNT* $$/P3373
029620,000538: 12,2035 43014 P33/P73C BON SET
029621,000539: 12,2036 01311 FINALFLG
029622,000540: 12,2037 24041 P33/P73D
029623,000541: 12,2040 00470 UPDATFLG
029624,000542: 12,2041 43345 P33/P73D DLOAD DAD
029625,000543: 12,2042 02355 NOMTPI
029626,000544: 12,2043 03663 TTPI
029627,000545: 12,2044 03663 STORE TTPI
029628,000546: 12,2045 52025 DSU GOTO
029629,000547: 12,2046 02461 TCDH
029630,000548: 12,2047 11662 P33/P73E
029631,000549: 04,2000 SETLOC CSI/CDH1
029632,000550: 04,2000 BANK
029633,000551:
029634,000552: 04,3662 COUNT* $$/P3373
029635,000553: 04,3662 51025 P33/P73E DSU BPL
029636,000554: 04,3663 13267 60MIN
029637,000555: 04,3664 11662 P33/P73E
029638,000556: 04,3665 77615 DAD
029639,000557: 04,3666 13267 60MIN
029640,000558: 04,3667 16547 STODL T1TOT2
029641,000559: 04,3670 03663 TTPI
029642,000560: 04,3671 41425 DSU PUSH
029643,000561: 04,3672 02465 TTPI0
029644,000562: 04,3673 45246 P33/P73F ABS DSU
029645,000563: 04,3674 13267 60MIN
029646,000564: 04,3675 43244 BPL DAD
029647,000565: 04,3676 11673 P33/P73F
029648,000566: 04,3677 13267 60MIN
029649,000567: 04,3700 45565 SIGN STADR
029650,000568: 04,3701 74121 STORE T2TOT3
029651,000569: 04,3702 77414 BON EXIT
029652,000570: 04,3703 05310 AUTOSEQ
029653,000571: 04,3704 11710 SKIP75
029654,000572:
029655,000573: 04,3705 34605 CAF V06N75
029656,000574: 04,3706 05535 TC VNFLASH
029657,000575: 04,3707 06006 TC INTPRET
029658,000576: # # Page 669
029659,000577: 04,3710 77624 SKIP75 CALL
029660,000578: 04,3711 76537 DISDVLVC # PUT UP N81, COMPUTE DELVSIN
029661,000579: 04,3712 77624 CALL
029662,000580: 04,3713 73027 VN1645
029663,000581: 04,3714 77650 GOTO
029664,000582: 04,3715 11610 P33/P73B
029665,000583: 4000 SETLOC FFTAG12
029666,000584: 4000 BANK
029667,000585:
029668,000586: 4603 COUNT* $$/P3272
029669,000587: 4603 01413 V06N11 VN 0611
029670,000588: 4604 01415 V06N13 VN 0613
029671,000589: 4605 01513 V06N75 VN 0675
029672,000590:
029673,000591: # # Page 670
029674,000592:
029675,000593: # ..... DISDVLVC .....
029676,000594:
029677,000595: # SUBROUTINES USED
029678,000596:
029679,000597: # S32/33.X
029680,000598: # VNPOOH
029681,000599:
029682,000600: 37,2000 SETLOC CDHTAG3
029683,000601: 37,2000 BANK
029684,000602:
029685,000603: 37,2537 COUNT* $$/CSI
029686,000604: 37,2537 45020 DISDVLVC STQ CALL
029687,000605: 37,2540 01023 NORMEX
029688,000606: 37,2541 32050 S32/33.X
029689,000607: 37,2542 64375 VLOAD MXV
029690,000608: 37,2543 02445 DELVEET1
029691,000609: 37,2544 00001 0D
029692,000610: 37,2545 77772 VSL1
029693,000611: 37,2546 37405 STCALL DELVLVC # REF TO L V
029694,000612: 37,2547 15756 DISPN90
029695,000613: 37,2550 77624 CALL
029696,000614: 37,2551 32050 S32/33.X
029697,000615: 37,2552 61375 VLOAD VXM
029698,000616: 37,2553 03405 DELVLVC
029699,000617: 37,2554 00001 0D
029700,000618: 37,2555 77772 VSL1
029701,000619: 37,2556 37646 STCALL DELVSIN # L V TO REF
029702,000620: 37,2557 01023 NORMEX
029703,000621:
029704,000622: # # Page 671
029705,000623:
029706,000624: # ..... CSI/A .....
029707,000625:
029708,000626: # SUBROUTINES USED
029709,000627:
029710,000628: # VECSHIFT
029711,000629: # TIMETHET
029712,000630: # PERIAPO
029713,000631: # SHIFTR1
029714,000632: # INTINT2C
029715,000633: # CDHMVR
029716,000634: # PERIAPO1
029717,000635: # INTINT
029718,000636: # ACTIVE
029719,000637:
029720,000638: 05,2000 SETLOC CSITAG1
029721,000639: 05,2000 BANK
029722,000640: 05,3266 E4,1760 EBANK= SUBEXIT
029723,000641: 05,3266 COUNT* $$/CSI
029724,000642: 05,3266 00025 37100 60MIN 2DEC 360000 B-28
029725,000643:
029726,000644: 05,3270 00600 ALARM/TB OCT 00600 # NO 1
029727,000645: 05,3271 00601 OCT 00601 # 2
029728,000646: 05,3272 00602 OCT 00602 # 3
029729,000647: 05,3273 00603 OCT 00603 # 4
029730,000648: 05,3274 00604 OCT 00604 # 5
029731,000649: 05,3275 00605 OCT 00605 # 6
029732,000650: 05,3276 00606 OCT 00606 # 7
029733,000651: 05,3277 15,3416 LOOPMX = D1/1024 -1 # 16 B-28
029734,000652: 05,3277 00003 34661 INITST 2DEC .03048 B-7 # INITIAL DELDV = 10 FPS
029735,000653:
029736,000654: 05,3301 00606 04467 DVMAX1 2DEC 3.0480 B-7 # MAXIMUM DV1 = 1000 FPS
029737,000655:
029738,000656: 05,3303 00601 33216 DVMAX2 2DEC 3.014472 B-7 # 989 FPS
029739,000657:
029740,000658: 05,3305 15,3411 1DPB2 = D1/4 # 1 B-2
029741,000659: 05,3305 15,3431 1DPB28 = ONEBIT # 1 B-28
029742,000660: 05,3305 00000 01177 EPSILN1 2DEC .0003048 B-7 # .1 FPS
029743,000661:
029744,000662: 05,3307 77754 57611 FIFPSDP 2DEC -.152400 B-7 # 50 FPS
029745,000663:
029746,000664: 05,3311 00116 00730 DELMAX1 2DEC .6096000 B-7 # 200 FPS
029747,000665:
029748,000666: 35,2000 SETLOC CSI/CDH
029749,000667: 35,2000 BANK
029750,000668: 35,3554 COUNT* $$/CSI
029751,000669: 35,3554 00004 31566 PMINE 2DEC 157420 B-29 # 84 NM. - MUST BE 8 WORDS BEFORE PMINM
029752,000670:
029753,000671: 35,3556 00002 27311 NICKELDP 2DEC .021336 B-7 # 7 FPS
029754,000672:
029755,000673: 35,3560 00003 34661 INITST1 2DEC .03048 B-7 # INITIAL DELDV = 10 FPS
029756,000674:
029757,000675: # # Page 672
029758,000676: 35,3562 00000 06433 ONETHTH 2DEC .0001 B-3
029759,000677:
029760,000678: 35,3564 00000 12326 PMINM 2DEC 10668 B-29 # 35000 FT - MUST BE 8 WORDS AFTER PMINE.
029761,000679:
029762,000680: 06,2000 SETLOC CSIPROG
029763,000681: 06,2000 BANK
029764,000682:
029765,000683: 06,3672 COUNT* $$/CSI
029766,000684: 06,3672 43014 CSI/A CLEAR SET # INITIALIZE INDICATORS
029767,000685: 06,3673 05660 S32.1F1 # DVT1 HAS EXCEEDED MAX INDICATOR
029768,000686: 06,3674 05461 S32.1F2 # FIRST PASS FOR NEWTON ITERATION INDICATOR
029769,000687: 06,3675 43014 CLEAR SET
029770,000688: 06,3676 05662 S32.1F3A # 00=1ST 2 PASSES 2ND CYCLE, 01=FIRST CYCLE
029771,000689: 06,3677 05463 S32.1F3B # 10=2ND CYCLE, 11=50 FPS STAGE 2ND CYCLE
029772,000690: 06,3700 77745 DLOAD
029773,000691: 06,3701 11762 ZEROVEC
029774,000692: 06,3702 03764 STORE LOOPCT
029775,000693: 06,3703 03665 STORE CSIALRM
029776,000694: 06,3704 77201 CSI/B SETPD VLOAD
029777,000695: 06,3705 00001 0D
029778,000696: 06,3706 02541 RACT1
029779,000697: 06,3707 41446 ABVAL PUSH # RA1 B29 PL02D
029780,000698: 06,3710 70501 NORM SR1
029781,000699: 06,3711 00050 X2 # B29-N2+ B1 PL04D
029782,000700: 06,3712 51515 PDVL ABVAL
029783,000701: 06,3713 03554 RPASS3
029784,000702: 06,3714 55301 NORM BDDV # RA1/RP3 B1 PL02D
029785,000703: 06,3715 00047 X1
029786,000704: 06,3716 53664 XSU,2 SR* # B2
029787,000705: 06,3717 00046 X1
029788,000706: 06,3720 57175 1,2
029789,000707: 06,3721 41215 DAD DMP # (1+(RA1/RP3))RA1 B29+B2=B31 PL00D
029790,000708: 06,3722 33412 1DPB2
029791,000709: 06,3723 65301 NORM PDDL # PL02D
029792,000710: 06,3724 00047 X1
029793,000711: 06,3725 03750 RTMU
029794,000712: 06,3726 56342 SR1 DDV # B38-B31 = B7 PL00D
029795,000713: 06,3727 75457 SL* SQRT # B7
029796,000714: 06,3730 20172 0 -7,1
029797,000715: 06,3731 53515 PDVL UNIT # PL02D
029798,000716: 06,3732 02541 RACT1
029799,000717: 06,3733 47315 PDVL VXV
029800,000718: 06,3734 02611 UP1
029801,000719: 06,3735 77656 UNIT # UNIT(URP1 X UVP1 X URA1) = UH1
029802,000720: 06,3736 72441 DOT SL1 # VA1 . UH1 B7
029803,000721: 06,3737 03504 VACT1
029804,000722: 06,3740 45421 BDSU STADR # PL00D
029805,000723: 06,3741 60315 STODL DELVCSI
029806,000724: 06,3742 13300 INITST # 10 FPS
029807,000725: 06,3743 03464 STORE DELDV
029808,000726: # # Page 673
029809,000727: 06,3744 43345 CSI/B1 DLOAD DAD # IF LOOPCT = 16
029810,000728: 06,3745 03764 LOOPCT
029811,000729: 06,3746 33432 1DPB28
029812,000730: 06,3747 03764 STORE LOOPCT
029813,000731: 06,3750 77025 DSU AXT,2
029814,000732: 06,3751 33417 LOOPMX
029815,000733: 06,3752 00006 6
029816,000734: 06,3753 52044 BPL GOTO
029817,000735: 06,3754 63566 SCNDSOL
029818,000736: 06,3755 24050 CSI/B2
029819,000737:
029820,000738: 12,2000 SETLOC CSIPROG2
029821,000739: 12,2000 BANK
029822,000740:
029823,000741: 12,2050 COUNT* $$/CSI
029824,000742: 12,2050 77601 CSI/B2 SETPD
029825,000743: 12,2051 00001 0D
029826,000744: 12,2052 51545 DLOAD ABS
029827,000745: 12,2053 03462 DELVCSI
029828,000746: 12,2054 50025 DSU BMN
029829,000747: 12,2055 13302 DVMAX1
029830,000748: 12,2056 45406 CSI/B23
029831,000749: 12,2057 43174 AXT,2 BON
029832,000750: 12,2060 00007 7
029833,000751: 12,2061 05700 S32.1F1
029834,000752: 12,2062 63566 SCNDSOL
029835,000753: 12,2063 43014 BOFF BON
029836,000754: 12,2064 05742 S32.1F3A
029837,000755: 12,2065 24070 CSI/B22 # FLAG 3 NEQ 3
029838,000756: 12,2066 05703 S32.1F3B
029839,000757: 12,2067 63566 SCNDSOL
029840,000758: 12,2070 71214 CSI/B22 SET DLOAD
029841,000759: 12,2071 05460 S32.1F1
029842,000760: 12,2072 13304 DVMAX2
029843,000761: 12,2073 77765 SIGN
029844,000762: 12,2074 03462 DELVCSI
029845,000763: 12,2075 37462 STCALL DELVCSI
029846,000764: 12,2076 45406 CSI/B23
029847,000765:
029848,000766: 22,2000 SETLOC CSIPROG3
029849,000767: 22,2000 BANK
029850,000768:
029851,000769: 22,3406 COUNT* $$/CSI
029852,000770: 22,3406 41575 CSI/B23 VLOAD PUSH
029853,000771: 22,3407 02541 RACT1
029854,000772: 22,3410 63256 UNIT PDVL
029855,000773: 22,3411 02611 UP1
029856,000774: 22,3412 53435 VXV UNIT # UNIT (URP1 X UVP1 X URA1) = UH1
029857,000775: 22,3413 76561 VXSC VSL1
029858,000776: 22,3414 03462 DELVCSI
029859,000777: # # Page 674
029860,000778: 22,3415 02445 STORE DELVEET1
029861,000779: 22,3416 40055 VAD BOV
029862,000780: 22,3417 03504 VACT1
029863,000781: 22,3420 45421 CSI/B23D
029864,000782: 22,3421 37474 CSI/B23D STCALL VACT4
029865,000783: 22,3422 45320 VECSHIFT
029866,000784: 22,3423 26746 STOVL VVEC
029867,000785: 22,3424 77614 SET
029868,000786: 22,3425 03466 RVSW
029869,000787: 22,3426 26657 STOVL RVEC
029870,000788: 22,3427 05545 SN359+
029871,000789: 22,3430 36732 STCALL SNTH # ALSO CSTH
029872,000790: 22,3431 25002 TIMETHET
029873,000791: 22,3432 72142 SR1 LXA,1
029874,000792: 22,3433 03745 RTX1
029875,000793: 22,3434 37472 STCALL HAFPA1
029876,000794: 22,3435 45204 PERIAPO
029877,000795: 22,3436 77624 CALL
029878,000796: 22,3437 45330 SHIFTR1
029879,000797: 22,3440 17460 STODL POSTCSI
029880,000798: 22,3441 03754 CENTANG
029881,000799: 22,3442 52054 BZE GOTO
029882,000800: 22,3443 45445 +2
029883,000801: 22,3444 47161 CIRCL
029884,000802: 22,3445 77745 DLOAD
029885,000803: 22,3446 02754 ECC
029886,000804: 22,3447 50025 DSU BMN
029887,000805: 22,3450 33563 ONETHTH
029888,000806: 22,3451 47161 CIRCL
029889,000807: 22,3452 45145 DLOAD CALL
029890,000808: 22,3453 00041 R1
029891,000809: 22,3454 45330 SHIFTR1
029892,000810: 22,3455 60201 SETPD NORM
029893,000811: 22,3456 00003 2D
029894,000812: 22,3457 00047 X1
029895,000813: 22,3460 50315 PDVL DOT # PL04D
029896,000814: 22,3461 02541 RACT1
029897,000815: 22,3462 03474 VACT4
029898,000816: 22,3463 56246 ABS DDV
029899,000817: 22,3464 00003 02D # (/RDOTV/)/R1 B36-B29= B7
029900,000818: 22,3465 45257 SL* DSU
029901,000819: 22,3466 20201 0,1
029902,000820: 22,3467 33557 NICKELDP
029903,000821: 22,3470 71240 BMN DLOAD
029904,000822: 22,3471 47161 CIRCL
029905,000823: 22,3472 02742 P
029906,000824: 22,3473 45312 SL2 DSU
029907,000825: 22,3474 15326 1RTEB2 # 1.B.2
029908,000826: 22,3475 14017 STODL 14D
029909,000827: 22,3476 03752 RTSR1/MU
029910,000828: # # Page 675
029911,000829: 22,3477 56342 SR1 DDV # (1/ROOTMU)/R1 B-16-B29 = B-45 PL02D
029912,000830: 22,3500 41325 PDDL DMP
029913,000831: 22,3501 02742 P
029914,000832: 22,3502 00041 R1
029915,000833: 22,3503 77624 CALL
029916,000834: 22,3504 45330 SHIFTR1
029917,000835: 22,3505 72412 SL4 SL1
029918,000836: 22,3506 41366 SQRT DMP # ((P/MU)**.5)/R1 B14+B-14 = B-31 PL02D
029919,000837: 22,3507 52414 BOFF SL3
029920,000838: 22,3510 04343 CMOONFLG
029921,000839: 22,3511 45512 CSI/B3
029922,000840: 22,3512 50315 CSI/B3 PDVL DOT
029923,000841: 22,3513 02541 RACT1
029924,000842: 22,3514 03474 VACT4
029925,000843: 22,3515 03502 STORE RDOTV
029926,000844: 22,3516 77646 ABS
029927,000845: 22,3517 41301 NORM DMP # ((P/MU)**.5)RDOTV/R1 PL02D
029928,000846: 22,3520 00050 X2
029929,000847: 22,3521 53660 XSU,1 SL* # B-31+B36-B3 = B2
029930,000848: 22,3522 00047 X2
029931,000849: 22,3523 20204 3,1
029932,000850: 22,3524 14015 STODL 12D
029933,000851: 22,3525 15336 ZEROVECS
029934,000852: 22,3526 00021 STORE 16D
029935,000853: 22,3527 53575 VLOAD UNIT
029936,000854: 22,3530 00015 12D
029937,000855: 22,3531 26732 STOVL SNTH # ALSO STORES CSTH AND 0
029938,000856: 22,3532 02541 RACT1
029939,000857: 22,3533 75315 PDVL SIGN
029940,000858: 22,3534 03474 VACT4
029941,000859: 22,3535 03502 RDOTV
029942,000860: 22,3536 45076 VCOMP CALL
029943,000861: 22,3537 45320 VECSHIFT
029944,000862: 22,3540 26746 STOVL VVEC
029945,000863: 22,3541 77614 SETGO
029946,000864: 22,3542 03426 RVSW
029947,000865: 22,3543 47145 CSINEXT
029948,000866:
029949,000867: 22,3544 77776 62460 SN359+ 2DEC -.000086601
029950,000868:
029951,000869: 22,3546 17777 37776 CS359+ 2DEC +.499999992
029952,000870:
029953,000871: 23,2000 SETLOC CSIPROG4
029954,000872: 23,2000 BANK
029955,000873:
029956,000874: 23,3145 COUNT* $$/CSI
029957,000875: 23,3145 36657 CSINEXT STCALL RVEC
029958,000876: 23,3146 25002 TIMETHET
029959,000877: 23,3147 43206 PUSH DAD
029960,000878: 23,3150 02463 TCSI
029961,000879: # # Page 676
029962,000880:
029963,000881: 23,3151 16351 STODL TCSI2 # TIME OF NEXT CSI
029964,000882: 23,3152 03502 RDOTV
029965,000883: 23,3153 77644 BPL
029966,000884: 23,3154 47165 NTP/2
029967,000885: 23,3155 45345 DLOAD DSU
029968,000886: 23,3156 03472 HAFPA1
029969,000887: 23,3157 52006 PUSH GOTO
029970,000888: 23,3160 47165 NTP/2
029971,000889: 23,3161 71201 CIRCL SETPD DLOAD
029972,000890: 23,3162 00001 00D
029973,000891: 23,3163 15336 ZEROVECS
029974,000892: 23,3164 77606 PUSH
029975,000893: 23,3165 72545 NTP/2 DLOAD SL1
029976,000894: 23,3166 03472 HAFPA1
029977,000895: 23,3167 77615 DAD
029978,000896: 23,3170 02463 TCSI
029979,000897: 23,3171 16351 STODL TCSI2
029980,000898: 23,3172 03766 NN # COMPUTE NEXT CSI 1 REV AWAY
029981,000899: 23,3173 45342 SR1 DSU
029982,000900: 23,3174 07140 HIGH2
029983,000901: 23,3175 77654 BZE # # NN = 4
029984,000902: 23,3176 47233 HMCSI
029985,000903: 23,3177 41345 NTP/2A DLOAD DMP
029986,000904: 23,3200 03766 NN
029987,000905: 23,3201 03472 HAFPA1
029988,000906: 23,3202 45261 SL DSU
029989,000907: 23,3203 20217 14D
029990,000908: 23,3204 77615 DAD
029991,000909: 23,3205 02463 TCSI
029992,000910: 23,3206 02461 STORE TCDH
029993,000911: 23,3207 77021 BDSU AXT,2
029994,000912: 23,3210 03663 TTPI
029995,000913: 23,3211 00005 5D
029996,000914: 23,3212 40240 BMN SETPD
029997,000915: 23,3213 63566 SCNDSOL
029998,000916: 23,3214 00001 0D
029999,000917: 23,3215 63375 VLOAD PDVL
030000,000918: 23,3216 03474 VACT4
030001,000919: 23,3217 02541 RACT1
030002,000920: 23,3220 77624 CALL
030003,000921: 23,3221 63606 INTINT2C
030004,000922: 23,3222 26453 STOVL RACT2
030005,000923: 23,3223 00007 VATT
030006,000924: 23,3224 26533 STOVL VACT2
030007,000925: 23,3225 03512 VPASS1
030008,000926: 23,3226 63201 SETPD PDVL
030009,000927: 23,3227 00001 0D
030010,000928: 23,3230 03756 RPASS1
030011,000929: 23,3231 77650 GOTO
030012,000930: 23,3232 34012 CSINEXT1
030013,000931: # # Page 677
030014,000932: 23,3233 43345 HMCSI DLOAD DAD # COMPUTE NEXT CSI 1 + 1/2 REVS AWAY
030015,000933: 23,3234 03472 HAFPA1
030016,000934: 23,3235 02351 TCSI2
030017,000935: 23,3236 36351 STCALL TCSI2
030018,000936: 23,3237 47177 NTP/2A
030019,000937: 16,2000 SETLOC CSIPROG5
030020,000938: 16,2000 BANK
030021,000939:
030022,000940: 16,2012 COUNT* $$/CSI
030023,000941: 16,2012 77624 CSINEXT1 CALL
030024,000942: 16,2013 63606 INTINT2C
030025,000943: 16,2014 26625 STOVL RPASS2
030026,000944: 16,2015 00007 VATT
030027,000945: 16,2016 36617 STCALL VPASS2
030028,000946: 16,2017 56674 CDHMVR
030029,000947: 16,2020 40375 VLOAD SETPD
030030,000948: 16,2021 02453 RACT2
030031,000949: 16,2022 00001 0D
030032,000950: 16,2023 45115 PDVL CALL
030033,000951: 16,2024 03546 VACT3
030034,000952: 16,2025 45174 PERIAPO1
030035,000953: 16,2026 77624 CALL
030036,000954: 16,2027 45330 SHIFTR1
030037,000955: 16,2030 27472 STOVL POSTCDH
030038,000956: 16,2031 03546 VACT3
030039,000957: 16,2032 63201 SETPD PDVL
030040,000958: 16,2033 00001 0D
030041,000959: 16,2034 02453 RACT2
030042,000960: 16,2035 65325 PDDL PDDL
030043,000961: 16,2036 02461 TCDH
030044,000962: 16,2037 03663 TTPI
030045,000963: 16,2040 62525 PDDL SL2
030046,000964: 16,2041 33430 2PISC
030047,000965: 16,2042 45006 PUSH CALL
030048,000966: 16,2043 72740 INTINT
030049,000967: 16,2044 77624 CALL
030050,000968: 16,2045 45304 ACTIVE
030051,000969: 16,2046 77745 DLOAD
030052,000970: 16,2047 03744 ELEV
030053,000971: 16,2050 73401 SETPD SINE
030054,000972: 16,2051 00007 6D
030055,000973: 16,2052 53515 PDVL UNIT
030056,000974: 16,2053 03540 RACT3
030057,000975: 16,2054 00001 STORE 00D # URA3 AT 00D
030058,000976: 16,2055 47315 PDVL VXV # PL14D, PL08D
030059,000977: 16,2056 02611 UP1
030060,000978: 16,2057 77656 UNIT
030061,000979: 16,2060 71525 PDDL COSINE # UNIT(URA3 X UVA3 X URA3) = UH3 B1 PL14D
030062,000980: 16,2061 03744 ELEV
030063,000981: 16,2062 45561 VXSC STADR # (COSLOS)(UH3) B2 PL08D
030064,000982: # # Page 678
030065,000983: 16,2063 43754 STCALL 18D # PLUS
030066,000984: 16,2064 16440 CSINEXT2
030067,000985:
030068,000986: 07,2000 SETLOC CSIPROG6
030069,000987: 07,2000 BANK
030070,000988:
030071,000989: 07,2440 COUNT* $$/CSI
030072,000990: 07,2440 74345 CSINEXT2 DLOAD VXSC # (SINLOS)(URA3) = U B2 PL00D
030073,000991: 07,2441 76455 VAD VSL1
030074,000992: 07,2442 00023 18D # B1
030075,000993: 07,2443 50206 PUSH DOT # PL06D
030076,000994: 07,2444 03540 RACT3 # (U . RA3) = TEMP1 B1 + B29 = B30
030077,000995: 07,2445 41552 SL1 PUSH # B29 PL08D
030078,000996: 07,2446 72316 DSQ TLOAD # TEMP1**2 B58
030079,000997: 07,2447 00155 MPAC
030080,000998: 07,2450 50315 PDVL DOT # PL11D
030081,000999: 07,2451 03540 RACT3
030082,001000: 07,2452 03540 RACT3
030083,001001: 07,2453 57551 TLOAD DCOMP # RA3 . RA3
030084,001002: 07,2454 00155 MPAC
030085,001003: 07,2455 50315 PDVL DOT # RP3 . RP3 B58 PL14D
030086,001004: 07,2456 03554 RPASS3
030087,001005: 07,2457 03554 RPASS3 # PL11D
030088,001006: 07,2460 76371 TAD TAD # TEMP1**2 + RA3.RA3 + RP3.RP3 = TEMP2 PL08D
030089,001007: 07,2461 71244 BPL DLOAD
030090,001008: 07,2462 16500 K1ORK2
030091,001009: 07,2463 03764 LOOPCT
030092,001010: 07,2464 77025 DSU AXT,2
030093,001011: 07,2465 33432 1DPB28
030094,001012: 07,2466 00001 1D
030095,001013: 07,2467 77654 BZE
030096,001014: 07,2470 11407 ALMXITA
030097,001015: 07,2471 70545 DLOAD SR1
030098,001016: 07,2472 03464 DELDV
030099,001017: 07,2473 03464 STORE DELDV
030100,001018: 07,2474 77621 BDSU
030101,001019: 07,2475 03470 DVPREV
030102,001020: 07,2476 37462 STCALL DELVCSI
030103,001021: 07,2477 15744 CSI/B1
030104,001022: 07,2500 41566 K1ORK2 SQRT PUSH # TEMP3 = TEMP2**.5 B29 PL10D
030105,001023: 07,2501 45276 DCOMP DSU
030106,001024: 07,2502 00007 06D # -TEMP1-TEMP3 = K2 AT 10D
030107,001025: 07,2503 14013 STODL 10D # PL08D
030108,001026: 07,2504 45425 DSU STADR # PL06D
030109,001027: 07,2505 77762 STORE 12D # -TEMP1+TEMP3 = K1 AT 12D
030110,001028: 07,2506 77646 ABS
030111,001029: 07,2507 14017 STODL 14D
030112,001030: 07,2510 00013 10D
030113,001031: 07,2511 45246 ABS DSU
030114,001032: 07,2512 00017 14D
030115,001033: # # Page 679
030116,001034: 07,2513 71240 BMN DLOAD
030117,001035: 07,2514 50123 K2.
030118,001036: 07,2515 00015 12D
030119,001037: 07,2516 34013 STCALL 10D # K EQUALS K1
030120,001038: 07,2517 50123 K2.
030121,001039:
030122,001040: 24,2000 SETLOC CSIPROG7
030123,001041: 24,2000 BANK
030124,001042:
030125,001043: 24,2123 COUNT* $$/CSI
030126,001044: 24,2123 77745 K2. DLOAD
030127,001045: 24,2124 00013 10D
030128,001046: 24,2125 76561 VXSC VSL1
030129,001047: 24,2126 53455 VAD UNIT # V = RA3 + KU UNIT B1
030130,001048: 24,2127 03540 RACT3
030131,001049: 24,2130 53515 PDVL UNIT # PL06D
030132,001050: 24,2131 03554 RPASS3
030133,001051: 24,2132 53515 PDVL UNIT # PL12D
030134,001052: 24,2133 03562 VPASS3
030135,001053: 24,2134 63235 VXV PDVL # UVP3 X URP3 PL18D
030136,001054: 24,2135 00007 06D
030137,001055: 24,2136 00007 06D
030138,001056: 24,2137 50235 VXV DOT
030139,001057: 24,2140 00001 00D
030140,001058: 24,2141 77626 STADR # PL12D
030141,001059: 24,2142 53762 STOVL 12D # (URP3 X V).(UVP3 X URP3)=TEMP PL06D
030142,001060: 24,2143 72441 DOT SL1 # PL00D
030143,001061: 24,2144 75326 ARCCOS SIGN
030144,001062: 24,2145 00015 12D # B0
030145,001063: 24,2146 41542 SR1 PUSH # GAMMA = SIGN(TEMP)ARCOS(UNITV.URP3) PL02D
030146,001064: 24,2147 71214 BON DLOAD
030147,001065: 24,2150 05701 S32.1F2
030148,001066: 24,2151 50206 FRSTPAS
030149,001067: 24,2152 00001 00D # NOT THE FIRST PASS OF A CYCLE
030150,001068: 24,2153 65225 DSU PDDL # GAMMA-GAMPREV B1 PL04D
030151,001069: 24,2154 03466 GAMPREV
030152,001070: 24,2155 03462 DELVCSI
030153,001071: 24,2156 60225 DSU NORM # B7
030154,001072: 24,2157 03470 DVPREV
030155,001073: 24,2160 00047 X1
030156,001074: 24,2161 65265 BDDV PDDL # (GAM-GAMPREV)/(DV-DVPREV) B-6+N1 PL06D
030157,001075: 24,2162 00003 02D # = SLOPE
030158,001076: 24,2163 03462 DELVCSI
030159,001077: 24,2164 03470 STORE DVPREV
030160,001078: 24,2165 43014 BOFF BOFF
030161,001079: 24,2166 05742 S32.1F3A
030162,001080: 24,2167 20323 THRDCHK
030163,001081: 24,2170 05743 S32.1F3B
030164,001082: 24,2171 20323 THRDCHK
030165,001083: 24,2172 41345 DLOAD DMP
030166,001084: # # Page 680
030167,001085: 24,2173 00003 02D
030168,001086: 24,2174 03466 GAMPREV
030169,001087: 24,2175 71244 BPL DLOAD
030170,001088: 24,2176 20330 FIFTYFPS
030171,001089: 24,2177 33561 INITST1
030172,001090: 24,2200 77765 SIGN
030173,001091: 24,2201 03464 DELDV
030174,001092: 24,2202 03464 STORE DELDV
030175,001093: 24,2203 43014 SET CLEAR
030176,001094: 24,2204 05462 S32.1F3A
030177,001095: 24,2205 05663 S32.1F3B
030178,001096: 24,2206 77745 FRSTPAS DLOAD
030179,001097: 24,2207 00001 00D
030180,001098: 24,2210 17466 STODL GAMPREV
030181,001099: 24,2211 03462 DELVCSI
030182,001100: 24,2212 37470 STCALL DVPREV
030183,001101: 24,2213 20316 CSINEXT3
030184,001102:
030185,001103: 10,2000 SETLOC CSIPROG8
030186,001104: 10,2000 BANK
030187,001105:
030188,001106: 10,2316 COUNT* $$/CSI
030189,001107: 10,2316 43025 CSINEXT3 DSU CLEAR
030190,001108: 10,2317 03464 DELDV
030191,001109: 10,2320 05661 S32.1F2
030192,001110: 10,2321 37462 STCALL DELVCSI
030193,001111: 10,2322 15744 CSI/B1
030194,001112: 10,2323 43014 THRDCHK BON BON
030195,001113: 10,2324 05702 S32.1F3A
030196,001114: 10,2325 20347 NEWTN
030197,001115: 10,2326 05703 S32.1F3B
030198,001116: 10,2327 20347 NEWTN
030199,001117: 10,2330 75345 FIFTYFPS DLOAD SIGN
030200,001118: 10,2331 13310 FIFPSDP
030201,001119: 10,2332 00005 04D
030202,001120: 10,2333 77765 SIGN
030203,001121: 10,2334 03466 GAMPREV
030204,001122: 10,2335 03464 STORE DELDV
030205,001123: 10,2336 43276 DCOMP DAD
030206,001124: 10,2337 03462 DELVCSI
030207,001125: 10,2340 17462 STODL DELVCSI
030208,001126: 10,2341 00001 00D
030209,001127: 10,2342 43014 SET SET
030210,001128: 10,2343 05463 S32.1F3B
030211,001129: 10,2344 05462 S32.1F3A
030212,001130: 10,2345 37466 STCALL GAMPREV
030213,001131: 10,2346 24050 CSI/B2
030214,001132: 10,2347 60345 NEWTN DLOAD NORM
030215,001133: 10,2350 00005 04D
030216,001134: 10,2351 00050 X2
030217,001135: # # Page 681
030218,001136: 10,2352 54065 BDDV XSU,1
030219,001137: 10,2353 00001 00D
030220,001138: 10,2354 00047 X2
030221,001139: 10,2355 77657 SR*
030222,001140: 10,2356 20601 0,1
030223,001141: 10,2357 17464 STODL DELDV
030224,001142: 10,2360 00001 00D
030225,001143: 10,2361 03466 STORE GAMPREV
030226,001144: 10,2362 51545 DLOAD ABS
030227,001145: 10,2363 03464 DELDV
030228,001146: 10,2364 45206 PUSH DSU # PL08D
030229,001147: 10,2365 13306 EPSILN1
030230,001148: 10,2366 71240 BMN DLOAD
030231,001149: 10,2367 20404 CSI/SOL
030232,001150: 10,2370 50025 DSU BMN
030233,001151: 10,2371 13312 DELMAX1
030234,001152: 10,2372 20377 CSISTEP
030235,001153: 10,2373 75345 DLOAD SIGN
030236,001154: 10,2374 13312 DELMAX1
030237,001155: 10,2375 03464 DELDV
030238,001156: 10,2376 03464 STORE DELDV
030239,001157: 10,2377 45345 CSISTEP DLOAD DSU
030240,001158: 10,2400 03462 DELVCSI
030241,001159: 10,2401 03464 DELDV
030242,001160: 10,2402 37462 STCALL DELVCSI
030243,001161: 10,2403 15744 CSI/B1
030244,001162: 10,2404 77145 CSI/SOL DLOAD AXT,2
030245,001163: 10,2405 03460 POSTCSI
030246,001164: 10,2406 00002 2
030247,001165: 10,2407 52150 LXA,1 GOTO
030248,001166: 10,2410 03745 RTX1
030249,001167: 10,2411 63535 CSINEXT4
030250,001168:
030251,001169: 31,2000 SETLOC CSIPROG9
030252,001170: 31,2000 BANK
030253,001171:
030254,001172: 31,3535 COUNT* $$/CSI
030255,001173: 31,3535 50023 CSINEXT4 DSU* BMN
030256,001174: 31,3536 33553 PMINE -2,1
030257,001175: 31,3537 63566 SCNDSOL
030258,001176: 31,3540 71374 AXT,2 DLOAD
030259,001177: 31,3541 00003 3
030260,001178: 31,3542 03472 POSTCDH
030261,001179: 31,3543 50023 DSU* BMN
030262,001180: 31,3544 33553 PMINE -2,1
030263,001181: 31,3545 63566 SCNDSOL
030264,001182: 31,3546 45345 DLOAD DSU
030265,001183: 31,3547 02461 TCDH
030266,001184: 31,3550 02463 TCSI
030267,001185: 31,3551 02547 STORE T1TOT2
030268,001186: # # Page 682
030269,001187: 31,3552 45374 AXT,2 DSU
030270,001188: 31,3553 00004 4
030271,001189: 31,3554 36161 600SEC
030272,001190: 31,3555 77040 BMN AXT,2
030273,001191: 31,3556 63566 SCNDSOL
030274,001192: 31,3557 00005 5
030275,001193: 31,3560 45345 DLOAD DSU
030276,001194: 31,3561 03663 TTPI
030277,001195: 31,3562 02461 TCDH
030278,001196: 31,3563 51025 DSU BPL
030279,001197: 31,3564 36161 600SEC
030280,001198: 31,3565 11463 P32/P72C
030281,001199: 31,3566 43014 SCNDSOL BON BOFF
030282,001200: 31,3567 05702 S32.1F3A
030283,001201: 31,3570 11411 ALMXIT
030284,001202: 31,3571 05743 S32.1F3B
030285,001203: 31,3572 11411 ALMXIT
030286,001204: 31,3573 71334 SXA,2 DLOAD
030287,001205: 31,3574 03664 CSIALRM
030288,001206: 31,3575 15336 ZEROVECS
030289,001207: 31,3576 43014 CLEAR SET
030290,001208: 31,3577 05660 S32.1F1
030291,001209: 31,3600 05461 S32.1F2
030292,001210: 31,3601 43014 CLEAR CLEAR
030293,001211: 31,3602 05662 S32.1F3A
030294,001212: 31,3603 05663 S32.1F3B
030295,001213: 31,3604 37764 STCALL LOOPCT
030296,001214: 31,3605 15704 CSI/B
030297,001215:
030298,001216: # # Page 683
030299,001217: # ..... ADVANCE .....
030300,001218:
030301,001219: # SUBROUTINES USED
030302,001220: # PRECSET
030303,001221: # ROTATE
030304,001222:
030305,001223: 37,2000 SETLOC CDHTAG3
030306,001224: 37,2000 BANK
030307,001225:
030308,001226: 37,2560 COUNT* $$/CDH
030309,001227: 37,2560 77620 ADVANCE STQ
030310,001228: 37,2561 02360 SUBEXIT
030311,001229: 37,2562 34041 STCALL TDEC1
030312,001230: 37,2563 45236 PRECSET
030313,001231: 37,2564 77214 SET VLOAD
030314,001232: 37,2565 01067 XDELVFLG
030315,001233: 37,2566 03562 VPASS3
030316,001234: 37,2567 02617 STORE VPASS2
030317,001235: 37,2570 27512 STOVL VPASS1
030318,001236: 37,2571 03554 RPASS3
030319,001237: 37,2572 02625 STORE RPASS2
030320,001238: 37,2573 27756 STOVL RPASS1
030321,001239: 37,2574 03540 RACT3
030322,001240: 37,2575 37632 STCALL RTIG
030323,001241: 37,2576 16520 ROTATE
030324,001242: 37,2577 02453 STORE RACT2
030325,001243: 37,2600 26541 STOVL RACT1
030326,001244: 37,2601 03546 VACT3
030327,001245: 37,2602 37640 STCALL VTIG
030328,001246: 37,2603 16520 ROTATE
030329,001247: 37,2604 02533 STORE VACT2
030330,001248: 37,2605 37504 STCALL VACT1
030331,001249: 37,2606 02360 SUBEXIT
030332,001250:
030333,001251: # # Page 684
030334,001252: # ..... ROTATE .....
030335,001253:
030336,001254: 07,2000 SETLOC CSIPROG6
030337,001255: 07,2000 BANK
030338,001256:
030339,001257: 07,2520 COUNT* $$/CSI
030340,001258: 07,2520 41406 ROTATE PUSH PUSH
030341,001259: 07,2521 74241 DOT VXSC
030342,001260: 07,2522 02611 UP1
030343,001261: 07,2523 02611 UP1
030344,001262: 07,2524 51352 VSL2 BVSU
030345,001263: 07,2525 63256 UNIT PDVL
030346,001264: 07,2526 74246 ABVAL VXSC
030347,001265: 07,2527 43572 VSL1 RVQ
030348,001266:
030349,001267: # # Page 685
030350,001268: # .... DISPN90 .....
030351,001269:
030352,001270: 06,2000 SETLOC CSIPROG
030353,001271: 06,2000 BANK
030354,001272: 06,3756 COUNT* $$/CSI
030355,001273: 06,3756 77620 DISPN90 STQ
030356,001274: 06,3757 02356 ANEXIT
030357,001275: 06,3760 57575 VLOAD VCOMP
030358,001276: 06,3761 02601 AUTOY
030359,001277: 06,3762 15756 STODL YCSM # COMPLEMENT VALUES FOR N90 DISPLAYS
030360,001278: 06,3763 02603 CMYDOT
030361,001279: 06,3764 03407 STORE DELVLVC +2
030362,001280: 06,3765 51414 BOFF ABS
030363,001281: 06,3766 05356 PCFLAG
030364,001282: 06,3767 45550 OKN81 # NOT IN P36
030365,001283: 06,3770 51025 DSU BPL # IS YDOT LESS THAN .1 FPS
030366,001284: 06,3771 13306 1/10FPS
030367,001285: 06,3772 45550 OKN81 # NO
030368,001286: 06,3773 77775 VLOAD # YES - FORCE DSKY DISPLAY TO BE 0
030369,001287: 06,3774 11762 ZEROVEC
030370,001288: 06,3775 37405 STCALL DELVLVC
030371,001289: 06,3776 45550 OKN81
030372,001290:
030373,001291: 22,2000 SETLOC CSIPROG3
030374,001292: 22,2000 BANK
030375,001293:
030376,001294: 22,3550 COUNT* $$/CSI
030377,001295: 22,3550 77776 OKN81 EXIT
030378,001296: 22,3551 35037 CA V06N90
030379,001297: 22,3552 05535 TC VNFLASH
030380,001298:
030381,001299: 22,3553 34535 CAF V06N81
030382,001300: 22,3554 05535 TC VNFLASH
030383,001301:
030384,001302: 22,3555 06006 TC INTPRET
030385,001303: 22,3556 77650 GOTO
030386,001304: 22,3557 02356 ANEXIT
030387,001305:
030388,001306: 22,3560 05,3305 1/10FPS = EPSILN1 # ,1 FPS
030389,001307:
030390,001308: # # Page 686
030391,001309: # ..... INTINTNA .....
030392,001310:
030393,001311: 31,2000 SETLOC CDHTAG2
030394,001312: 31,2000 BANK
030395,001313:
030396,001314: 31,3606 COUNT* $$/CDH
030397,001315: 31,3606 65325 INTINT2C PDDL PDDL
030398,001316: 31,3607 02463 TCSI
030399,001317: 31,3610 02461 TCDH
030400,001318: 31,3611 41525 PDDL PUSH
030401,001319: 31,3612 33143 TWOPI
030402,001320: 31,3613 77650 GOTO
030403,001321: 31,3614 72740 INTINT
030404,001322: 31,3615 65325 INTINT3P PDDL PDDL
030405,001323: 31,3616 02461 TCDH
030406,001324: 31,3617 03663 TTPI
030407,001325: 31,3620 41525 PDDL PUSH
030408,001326: 31,3621 33143 TWOPI # FOR CONIC INTEGRATION
030409,001327: 31,3622 77650 GOTO
030410,001328: 31,3623 72740 INTINT
030411,001329:
030412,001330: # # Page 687
030413,001331: # ..... S32/33.X .....
030414,001332:
030415,001333: 15,2000 SETLOC CDHTAGS
030416,001334: 15,2000 BANK
030417,001335:
030418,001336: 15,2050 COUNT* $$/CDH
030419,001337: 15,2050 77201 S32/33.X SETPD VLOAD
030420,001338: 15,2051 00007 6D
030421,001339: 15,2052 02611 UP1
030422,001340: 15,2053 63276 VCOMP PDVL
030423,001341: 15,2054 02541 RACT1
030424,001342: 15,2055 57456 UNIT VCOMP
030425,001343: 15,2056 47206 PUSH VXV
030426,001344: 15,2057 02611 UP1
030427,001345: 15,2060 77772 VSL1
030428,001346: 15,2061 00001 STORE 0D
030429,001347: 15,2062 77616 RVQ
030430,001348:
030431,001349: # # Page 688
030432,001350: # ..... CDHMVR .....
030433,001351:
030434,001352: # SUBROUTINES USED
030435,001353: # VECSHIFT
030436,001354: # TIMETHET
030437,001355: # SHIFTR1
030438,001356:
030439,001357: 27,2000 SETLOC CDHTAG
030440,001358: 27,2000 BANK
030441,001359:
030442,001360: 27,2674 COUNT* $$/CDH
030443,001361: 27,2674 77220 CDHMVR STQ VLOAD
030444,001362: 27,2675 02360 SUBEXIT
030445,001363: 27,2676 02453 RACT2
030446,001364: 27,2677 53406 PUSH UNIT
030447,001365: 27,2700 27546 STOVL UNVEC # UR SUB A
030448,001366: 27,2701 02625 RPASS2
030449,001367: 27,2702 50256 UNIT DOT
030450,001368: 27,2703 03546 UNVEC
030451,001369: 27,2704 72406 PUSH SL1
030452,001370: 27,2705 16734 STODL CSTH
030453,001371: 27,2706 65316 DSQ PDDL
030454,001372: 27,2707 15326 DP1/4TH
030455,001373: 27,2710 45302 SR2 DSU
030456,001374: 27,2711 72566 SQRT SL1
030457,001375: 27,2712 57515 PDVL VCOMP
030458,001376: 27,2713 77635 VXV
030459,001377: 27,2714 02625 RPASS2
030460,001378: 27,2715 65241 DOT PDDL
030461,001379: 27,2716 02611 UP1
030462,001380: 27,2717 45565 SIGN STADR
030463,001381: 27,2720 51045 STOVL SNTH
030464,001382: 27,2721 02625 RPASS2
030465,001383: 27,2722 45115 PDVL CALL
030466,001384: 27,2723 02617 VPASS2
030467,001385: 27,2724 45320 VECSHIFT
030468,001386: 27,2725 26746 STOVL VVEC
030469,001387: 27,2726 77614 CLEAR
030470,001388: 27,2727 03666 RVSW
030471,001389: 27,2730 36657 STCALL RVEC
030472,001390: 27,2731 25002 TIMETHET
030473,001391: 27,2732 53754 LXA,2 VSL*
030474,001392: 27,2733 03746 RTX2
030475,001393: 27,2734 57576 0,2
030476,001394: 27,2735 00023 STORE 18D
030477,001395: 27,2736 76441 DOT SL1R
030478,001396: 27,2737 03546 UNVEC
030479,001397: 27,2740 51515 PDVL ABVAL # 0D = V SUB PV
030480,001398: 27,2741 63257 SL* PDVL
030481,001399: # # Page 689
030482,001400: 27,2742 57576 0,2
030483,001401: 27,2743 02453 RACT2
030484,001402: 27,2744 65246 ABVAL PDDL # 2D = LENGTH OF R SUB A
030485,001403: 27,2745 77625 DSU
030486,001404: 27,2746 00003 02D
030487,001405: 27,2747 16633 STODL DIFFALT # DELTA H IN METERS B+29
030488,001406: 27,2750 02744 R1A
030489,001407: 27,2751 65301 NORM PDDL # 2 - R V**/MU 04D
030490,001408: 27,2752 00047 X1
030491,001409: 27,2753 00041 R1
030492,001410: 27,2754 77624 CALL
030493,001411: 27,2755 45330 SHIFTR1
030494,001412: 27,2756 56362 SR1R DDV
030495,001413: 27,2757 41457 SL* PUSH
030496,001414: 27,2760 20174 0 -5,1
030497,001415: 27,2761 65225 DSU PDDL # A SUB A B+29 04D
030498,001416: 27,2762 02633 DIFFALT
030499,001417: 27,2763 56302 SR2 DDV # A SUB P B+31
030500,001418: 27,2764 00005 04D # B+2
030501,001419: 27,2765 75406 PUSH SQRT # A SUB P/A SUB A 06D
030502,001420: 27,2766 41275 DMPR DMP
030503,001421: 27,2767 00007 06D
030504,001422: 27,2770 00001 00D
030505,001423: 27,2771 65272 SL3R PDDL # V SUB AV METERS/CS B+7 08D
030506,001424: 27,2772 00003 02D # R SUB A MAGNITUDE B+29
030507,001425: 27,2773 65301 NORM PDDL
030508,001426: 27,2774 00047 X1
030509,001427: 27,2775 03750 RTMU
030510,001428: 27,2776 56342 SR1 DDV # 2MU B+38
030511,001429: 27,2777 65257 SL* PDDL # 2 MU/R SUBAA B+14 10D
030512,001430: 27,3000 20174 0 -5,1
030513,001431: 27,3001 00005 04D # ASUBA B+29
030514,001432: 27,3002 65301 NORM PDDL
030515,001433: 27,3003 00050 X2
030516,001434: 27,3004 03750 RTMU
030517,001435: 27,3005 56342 SR1 DDV
030518,001436: 27,3006 44257 SL* BDSU
030519,001437: 27,3007 57604 0 -6,2 # 2U/R - U/A B+14 (METERS/CS)SQ
030520,001438: 27,3010 63525 PDDL DSQ # 10D
030521,001439: 27,3011 00011 08D
030522,001440: 27,3012 75421 BDSU SQRT
030523,001441: 27,3013 47315 PDVL VXV # SQRT(MU(2/R SUB A-1/A SUB A)-VSUBA2) 10D
030524,001442: 27,3014 02611 UP1
030525,001443: 27,3015 03546 UNVEC
030526,001444: 27,3016 74256 UNIT VXSC
030527,001445: 27,3017 00013 10D
030528,001446: 27,3020 74315 PDVL VXSC
030529,001447: 27,3021 03546 UNVEC
030530,001448: 27,3022 00011 08D
030531,001449: 27,3023 76455 VAD VSL1
030532,001450: # # Page 690
030533,001451: 27,3024 77626 STADR
030534,001452: 27,3025 74231 STORE VACT3
030535,001453: 27,3026 77651 VSU
030536,001454: 27,3027 02533 VACT2
030537,001455: 27,3030 37667 STCALL DELVEET2 # DELTA VCDH - REFERENCE COORDINATES
030538,001456: 27,3031 02360 SUBEXIT
End of include-file P32-P33_P72-P73.agc. Parent file is MAIN.agc