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