Source Code
|
These source-code files are part of a reconstructed copy of Skylark 048, the
Block II Command Module (CM) Apollo Guidance Computer (AGC) software for the
Skylab-2, Skylab-3, Skylab-4, and Apollo-Soyuz Test Project missions.
They have been created via disassembly of binary dumps of the original core rope
memory modules actually flown on Skylab-2, part numbers 2010802-541, 2010802-551,
2010802-561, 2010802-571, 2010802-581, and 2010802-591. Access to these modules
was provided by the New Mexico Museum of Space History, who we are much indebted to.
The source code for the Apollo 15, 16, and 17 software, Artemis 072, was used as
a starting point. Heavy use was made of TRW 4900.5-244, Programmed Guidance Equations
for Skylark Command Module Earth Orbital Program, dated 14 February 1972. This document
contains pseudocode of essentially all of Skylark, using original program labels which
have been copied for this source reconstruction.
Since only binary dumps (rather than listings) of Skylark are available as source material,
all comments and labels are approximate.
They have been taken from the Programmed Guidance Equations or other AGC programs where
possible, or, in some places, written from scratch to match what we believe would have
been in the original listing.
|
021616,000002: ## Copyright: Public domain.
021617,000003: ## Filename: P20-P25.agc
021618,000004: ## Purpose: A section of Skylark revision 048.
021619,000005: ## It is part of the source code for the Apollo Guidance Computer (AGC)
021620,000006: ## for Skylab-2, Skylab-3, Skylab-4, and ASTP. No original listings of
021621,000007: ## this software are available; instead, this file was created via
021622,000008: ## disassembly of dumps of the core rope modules actually flown on
021623,000009: ## Skylab-2. Access to these modules was provided by the New Mexico
021624,000010: ## Museum of Space History.
021625,000011: ## Assembler: yaYUL
021626,000012: ## Contact: Ron Burkey <info@sandroid.org>.
021627,000013: ## Website: www.ibiblio.org/apollo/index.html
021628,000014: ## Mod history: 2023-09-04 MAS Created from Artemis 072.
021629,000015:
021630,000016:
021631,000017: # RENDEZVOUS NAVIGATION PROGRAM 20
021632,000018: # PROGRAM DESCRIPTION
021633,000019: # MOD NO -1
021634,000020: # MOD BY - N.BRODEUR
021635,000021:
021636,000022: # FUNCTIONAL DESCRIPTION
021637,000023:
021638,000024: # TO INITIALIZE THE RENDEZVOUS NAVIGATION SUBROUTINES R22, R61CSM, AND
021639,000025: # R52, WHICH IN TURN CONTROL THE CSM ATTITUDE AND OPTICS POSITIONING,
021640,000026: # PROCESS BOTH OPTICS AND VHF TRACKING DATA, AND UPDATE EITHER THE LM
021641,000027: # OR THE CSM STATE VECTORS.
021642,000028:
021643,000029: # CALLING SEQUENCE
021644,000030: # V37E20E
021645,000031:
021646,000032: # SUBROUTINES CALLED
021647,000033: # R22 (RENDEZVOUS TRACK DATA PROCESSING)
021648,000034: # R52 (AUTO OPTICS POSITIONING)
021649,000035: # R61CSM (PREFERRED TRACKING ATTITUDE)
021650,000036: # R02BOTH BANKCALL UPFLAG
021651,000037: # DOWNFLAG 2PHSCHNG LOADTIME
021652,000038: # PRIOCHNG UPSTATE INTPRET
021653,000039: # ENDOFJOB MKRLEES FINDVAC
021654,000040:
021655,000041: # NORMAL EXIT MODES
021656,000042: # RENDEZVOUS NAVIGATION MAY BE TERMINATED BY THE SELECTION OF
021657,000043: # P00, P06, P22, P23, V34E FROM R60, AND V56E
021658,000044:
021659,000045: # ALARM OR ABORT EXIT MODES
021660,000046: # NONE DIRECTLY FROM P20
021661,000047:
021662,000048: # OUTPUT
021663,000049: # NONE DIRECTLY FROM P20
021664,000050:
021665,000051: # FLAGS SET + RESET
021666,000052: # RNDVZFLG, VEHUPFLG, UPDATFLG, TRACKFLG, TARG1FLG
021667,000053: # PRFTRKAT, V50N18FL
021668,000054:
021669,000055: 36,2000 SETLOC P20S7
021670,000056: 36,2000 BANK
021671,000057:
021672,000058: 36,2243 E6,1776 EBANK= R61CNTR
021673,000059: 36,2243 COUNT* $$/P20
021674,000060:
021675,000061: 36,2243 04647 PROG20 TC BANKCALL
021676,000062: 36,2244 03737 CADR R02BOTH # IMU STATUS CHECK
021677,000063: # BLOCKING OF UPLINK IS DONE BY UPLINK PRG
021678,000064: 36,2245 31706 CA ADB
021679,000065: 36,2246 55775 TS DBPTC
021680,000066:
021681,000067: 36,2247 07722 TC DOWNFLAG
021682,000068: 36,2250 00250 ADRES R27FLAG
021683,000069:
021684,000070: 36,2251 06006 TC INTPRET
021685,000071: 36,2252 43014 SET SET
021686,000072: 36,2253 00467 VEHUPFLG # UPDATE CSM
021687,000073: 36,2254 01460 V50N18FL
021688,000074: 36,2255 66214 SET SSP
021689,000075: 36,2256 00472 TRACKFLG
021690,000076: 36,2257 00772 OPTION2
021691,000077: 36,2260 00000 0
021692,000078: 36,2261 77414 BON EXIT
021693,000079: 36,2262 05310 AUTOSEQ
021694,000080: 36,2263 74277 PRELOD78 # MINKEY (PRELOAD N78)
021695,000081: 36,2264 34124 CAF OCT24
021696,000082: 36,2265 04647 TC BANKCALL
021697,000083: 36,2266 20754 CADR GOPERF4
021698,000084: 36,2267 04103 TC GOTOPOOH
021699,000085: 36,2270 12272 TCF +2
021700,000086: 36,2271 12264 TCF -5
021701,000087:
021702,000088: 36,2272 30771 CA OPTION2
021703,000089: 36,2273 76214 MASK THREE
021704,000090: 36,2274 10000 CCS A
021705,000091: 36,2275 02310 TC DOV6N78 # OPTIONS 1,2,5 (DO NOT PRELOAD N78)
021706,000092: 36,2276 06006 TC INTPRET # OPTIONS 0,4 (PRELOAD N78)
021707,000093: 36,2277 77745 PRELOD78 DLOAD
021708,000094: 36,2300 34733 35DEGANG
021709,000095: 36,2301 17720 STODL UTPIT
021710,000096: 36,2302 15204 ZEROVECS
021711,000097: 36,2303 03722 STORE UTYAW
021712,000098: 36,2304 01345 STORE AZIMANGL
021713,000099: 36,2305 77414 BON EXIT
021714,000100: 36,2306 05310 AUTOSEQ
021715,000101: 36,2307 74333 P20OPT # MINKEY, BYPASS V04N06 AND V06N78
021716,000102: 36,2310 32734 DOV6N78 CAF V06N78UT
021717,000103: 36,2311 05550 TC VNFLASH
021718,000104: 36,2312 32735 CAF V06N79UT
021719,000105: 36,2313 05553 TC VNFLASHR
021720,000106:
021721,000107: 36,2314 12324 TCF ENDV6N79
021722,000108:
021723,000109: 36,2315 30771 CA OPTION2
021724,000110: 36,2316 75000 MASK BIT2
021725,000111: 36,2317 10000 CCS A
021726,000112: 36,2320 05220 TC ENDOFJOB # OPTION 2, BLANK ONLY R31
021727,000113: 36,2321 35004 CAF FIVE # BLANK BOTH R1,R3
021728,000114: 36,2322 05531 TC BLANKET
021729,000115: 36,2323 05220 TC ENDOFJOB
021730,000116: 36,2324 30771 ENDV6N79 CA OPTION2
021731,000117: 36,2325 74777 MASK BIT3
021732,000118: 36,2326 00006 EXTEND
021733,000119: 36,2327 12334 BZF NOAZIM
021734,000120: 36,2330 07710 TC UPFLAG
021735,000121: 36,2331 00254 ADRES AZIMFLAG
021736,000122:
021737,000123: 36,2332 12336 TCF COMAZM
021738,000124:
021739,000125: 36,2333 77776 P20OPT EXIT
021740,000126: 36,2334 07722 NOAZIM TC DOWNFLAG
021741,000127: 36,2335 00254 ADRES AZIMFLAG
021742,000128:
021743,000129: 36,2336 30771 COMAZM CA OPTION2
021744,000130: 36,2337 76214 MASK THREE
021745,000131: 36,2340 10000 CCS A
021746,000132: 36,2341 12453 TCF UTKINPUT
021747,000133: 36,2342 07722 TC DOWNFLAG
021748,000134: 36,2343 00176 ADRES UTFLAG
021749,000135:
021750,000136: 36,2344 07710 TC UPFLAG
021751,000137: 36,2345 00027 ADRES UPDATFLG
021752,000138:
021753,000139: 36,2346 05375 NDUTINPT TC 2PHSCHNG
021754,000140: 36,2347 00004 OCT 00004
021755,000141: 36,2350 05022 OCT 05022
021756,000142: 36,2351 26000 OCT 26000
021757,000143: 36,2352 34771 CAF UTBIT
021758,000144: 36,2353 70104 MASK FLAGWRD8
021759,000145: 36,2354 10000 CCS A
021760,000146: 36,2355 12377 TCF INTSETUP
021761,000147:
021762,000148: 36,2356 06006 TC INTPRET
021763,000149: 36,2357 77634 RTB
021764,000150: 36,2360 45563 LOADTIME
021765,000151: 36,2361 35116 STCALL MARKTIME
021766,000152: 36,2362 60130 UPSTATE
021767,000153: 36,2363 77776 EXIT
021768,000154:
021769,000155: 36,2364 07710 TC UPFLAG
021770,000156: 36,2365 00010 ADRES RNDVZFLG
021771,000157:
021772,000158: 36,2366 37650 CAF PRIO26
021773,000159: 36,2367 05150 TC FINDVAC
021774,000160: 36,2370 E7,1702 EBANK= MRKBUF1
021775,000161: 36,2370 02617 70067 2CADR R22
021776,000162: 36,2372 05375 TC 2PHSCHNG
021777,000163: 36,2373 00072 OCT 00072
021778,000164: 36,2374 00111 OCT 00111
021779,000165: 36,2375 01,2025 1P11SPT3 = 1.11SPOT
021780,000166: 36,2375 01,2041 2P7SPT1 = 2.7SPOT
021781,000167: 36,2375 04112 TC AUTOCHK
021782,000168: 36,2376 12406 TCF PIKUP20
021783,000169:
021784,000170: 36,2377 35061 INTSETUP CAF PRIO5
021785,000171: 36,2400 05150 TC FINDVAC
021786,000172: 36,2401 E3,1554 EBANK= RRECTCSM
021787,000173: 36,2401 03237 10063 2CADR STATINT1
021788,000174:
021789,000175: 36,2403 05375 TC 2PHSCHNG
021790,000176: 36,2404 00052 OCT 0052
021791,000177: 36,2405 00111 OCT 00111
021792,000178:
021793,000179: 36,2406 01,2025 1P11SPT4 = 1.11SPOT
021794,000180: 36,2406 01,2036 2P5SPT3 = 2.5SPOT
021795,000181: 36,2406 35065 PIKUP20 CAF PRIO14 # ALLOW HIGHER PRIO THAN LAMBERT
021796,000182: 36,2407 05211 TC PRIOCHNG
021797,000183: 36,2410 34775 CAF TRACKBIT
021798,000184: 36,2411 70075 MASK FLAGWRD1 # IS TRACK FLAG SET
021799,000185: 36,2412 00006 EXTEND
021800,000186: 36,2413 12662 BZF FIXDB
021801,000187: 36,2414 34765 CAF REFSMBIT
021802,000188: 36,2415 70077 MASK FLAGWRD3 # IS REFSMFLAG SET
021803,000189: 36,2416 00006 EXTEND
021804,000190: 36,2417 12662 BZF FIXDB
021805,000191:
021806,000192: 36,2420 35003 CAF ZERO
021807,000193: 36,2421 55776 TS R61CNTR # INITIALIZE R61 COUNTER
021808,000194: 36,2422 30104 CA FLAGWRD8
021809,000195: 36,2423 74771 MASK UTBIT
021810,000196: 36,2424 10000 CCS A
021811,000197: 36,2425 02517 TC CALLR6X
021812,000198:
021813,000199: 36,2426 35001 CAF BIT1
021814,000200: 36,2427 05246 TC WAITLIST
021815,000201: 36,2430 1333 EBANK= FIXTIME
021816,000202: 36,2430 02264 60062 2CADR CTASK
021817,000203:
021818,000204: 36,2432 07710 TC UPFLAG
021819,000205: 36,2433 00037 ADRES R21MARK
021820,000206: 36,2434 04647 TC BANKCALL
021821,000207: 36,2435 76222 CADR R61CSM
021822,000208: 36,2436 40106 CS FLGWRD10 # CHECK IF PC MANEUVER TO TRACK
021823,000209: 36,2437 74763 MASK PCMANBIT # ATTITUDE
021824,000210: 36,2440 00006 EXTEND
021825,000211: 36,2441 14116 BZF AUTOCHK1
021826,000212: 36,2442 07710 P20TRACK TC UPFLAG # SET TARG FLAG TO LEM FOR R52
021827,000213: 36,2443 00024 ADRES TARG1FLG # BIT 10 FLAG 1
021828,000214: 36,2444 06006 P20R52JB TC INTPRET
021829,000215: 36,2445 77624 CALL
021830,000216: 36,2446 31010 R52 # SET UP AUTO OPTICS JOB
021831,000217: 36,2447 77776 EXIT
021832,000218: 36,2450 04647 TC BANKCALL
021833,000219: 36,2451 16057 CADR MKRLEES
021834,000220: 36,2452 12662 TCF FIXDB
021835,000221:
021836,000222: 36,2453 55343 UTKINPUT TS OPTNTYPE
021837,000223: 36,2454 07710 TC UPFLAG
021838,000224: 36,2455 00176 ADRES UTFLAG
021839,000225:
021840,000226: 36,2456 07722 TC DOWNFLAG
021841,000227: 36,2457 00010 ADRES RNDVZFLG
021842,000228:
021843,000229: 36,2460 11343 CCS OPTNTYPE
021844,000230: 36,2461 02511 TC TYPE2IN
021845,000231:
021846,000232: 36,2462 35031 V1N70DSP CAF V01N70UT
021847,000233: 36,2463 05550 TC VNFLASH
021848,000234: 36,2464 11130 CCS STARCODE
021849,000235: 36,2465 62740 AD NEG46UT
021850,000236: 36,2466 10000 CCS A
021851,000237: 36,2467 12507 TCF NOGOOD
021852,000238:
021853,000239: 36,2470 12472 TCF +2
021854,000240: 36,2471 12472 TCF +1
021855,000241: 36,2472 31130 CA STARCODE
021856,000242: 36,2473 72741 MASK LOW6
021857,000243: 36,2474 55347 TS UTSTARNO
021858,000244:
021859,000245: 36,2475 10000 CCS A
021860,000246: 36,2476 12346 TCF NDUTINPT
021861,000247:
021862,000248: 36,2477 35050 CAF V06N88UT
021863,000249: 36,2500 05550 TC VNFLASH
021864,000250: 36,2501 06006 TC INTPRET
021865,000251: 36,2502 77775 VLOAD
021866,000252: 36,2503 03665 STARSAV3
021867,000253: 36,2504 03712 STORE PLANVCUT
021868,000254: 36,2505 77776 EXIT
021869,000255: 36,2506 02346 TC NDUTINPT
021870,000256:
021871,000257: 36,2507 04362 NOGOOD TC FALTON
021872,000258: 36,2510 02462 TC V1N70DSP
021873,000259:
021874,000260: 36,2511 35042 TYPE2IN CAF V06N34UT
021875,000261: 36,2512 05550 TC VNFLASH
021876,000262: 36,2513 00006 EXTEND
021877,000263: 36,2514 31241 DCA DSPTEM1
021878,000264: 36,2515 53350 DXCH R67TIME
021879,000265: 36,2516 12346 TCF NDUTINPT
021880,000266:
021881,000267: 36,2517 07722 CALLR6X TC DOWNFLAG
021882,000268: 36,2520 00037 ADRES R21MARK
021883,000269:
021884,000270: 36,2521 11343 CCS OPTNTYPE
021885,000271: 36,2522 12525 TCF TYPE2
021886,000272:
021887,000273: 36,2523 04666 TC POSTJUMP
021888,000274: 36,2524 74720 CADR R66CSM
021889,000275:
021890,000276: 36,2525 00006 TYPE2 EXTEND
021891,000277: 36,2526 40025 DCS TIME2
021892,000278: 36,2527 52155 DXCH MPAC
021893,000279: 36,2530 00006 EXTEND
021894,000280: 36,2531 31350 DCA R67TIME
021895,000281: 36,2532 20155 DAS MPAC
021896,000282: 36,2533 07224 TC DPAGREE
021897,000283: 36,2534 10154 CCS MPAC
021898,000284: 36,2535 12550 TCF DODELAY
021899,000285:
021900,000286: 36,2536 12541 TCF +3
021901,000287: 36,2537 35003 CAF ZERO
021902,000288: 36,2540 54155 TS MPAC +1
021903,000289: 36,2541 10155 CCS MPAC +1
021904,000290: 36,2542 12543 TCF +1
021905,000291: 36,2543 65001 AD ONE
021906,000292: 36,2544 05246 TC WAITLIST
021907,000293: 36,2545 E6,1776 EBANK= R61CNTR
021908,000294: 36,2545 02554 74066 2CADR R67
021909,000295:
021910,000296: 36,2547 05220 TC ENDOFJOB
021911,000297:
021912,000298: 36,2550 34761 DODELAY CAF POSMAX
021913,000299: 36,2551 04647 TC BANKCALL
021914,000300: 36,2552 01731 CADR DELAYJOB
021915,000301: 36,2553 12525 TCF TYPE2
021916,000302:
021917,000303: 36,2554 37650 R67 CAF PRIO26
021918,000304: 36,2555 05150 TC FINDVAC
021919,000305: 36,2556 E6,1776 EBANK= R61CNTR
021920,000306: 36,2556 02563 74066 2CADR R67START
021921,000307:
021922,000308: 36,2560 07710 TC UPFLAG
021923,000309: 36,2561 00205 ADRES R67FLAG
021924,000310:
021925,000311: 36,2562 05327 TC TASKOVER
021926,000312:
021927,000313: 36,2563 37673 R67START CAF FURST3 # BITS 15,14,13 OF CHAN31 = 011
021928,000314: 36,2564 05627 TC C31BTCHK # FOR AUTO AND G&N CONTROL
021929,000315: 36,2565 12566 TCF +1
021930,000316: 36,2566 67671 AD NEG30000
021931,000317: 36,2567 00006 EXTEND # AUTO MODE SELECTED (BITS 15-13=011)
021932,000318: 36,2570 12573 BZF +3 # YES-CONTINUE.
021933,000319:
021934,000320: 36,2571 04647 TC BANKCALL
021935,000321: 36,2572 44723 CADR NOGO
021936,000322:
021937,000323: 36,2573 06006 TC INTPRET
021938,000324: 36,2574 47014 BON RTB
021939,000325: 36,2575 00701 STIKFLAG
021940,000326: 36,2576 44717 NOGOM3
021941,000327: 36,2577 44370 READCDUK
021942,000328: 36,2600 37313 STCALL BCDU
021943,000329: 36,2601 74703 UTPRFAX
021944,000330: 36,2602 02314 STORE COF
021945,000331: 36,2603 77776 EXIT
021946,000332:
021947,000333: 36,2604 00004 INHINT
021948,000334: 36,2605 35021 CAF MINDB
021949,000335: 36,2606 55706 TS ADB
021950,000336: 36,2607 11775 CCS DBPTC
021951,000337: 36,2610 65001 AD ONE
021952,000338: 36,2611 02613 TC +2
021953,000339: 36,2612 65001 AD ONE
021954,000340: 36,2613 00006 EXTEND
021955,000341: 36,2614 12616 BZF +2
021956,000342: 36,2615 55706 TS ADB
021957,000343:
021958,000344: 36,2616 06006 TC INTPRET
021959,000345: 36,2617 41335 SLOAD DMP
021960,000346: 36,2620 03375 RATEPTC
021961,000347: 36,2621 34737 TUFITS # SCALING FACTOR(.4 DEC)
021962,000348: 36,2622 45002 SR4 CALL # COMPUTE THE INCREMENTAL ROTATION MATRIX
021963,000349: 36,2623 44522 DELCOMP # DEL CORRESPONDING TO A 1 SEC ROTATION
021964,000350: 36,2624 41335 SLOAD DMP # ABOUT COF
021965,000351: 36,2625 03375 RATEPTC
021966,000352: 36,2626 34737 TUFITS
021967,000353: 36,2627 64361 VXSC MXV
021968,000354: 36,2630 02314 COF
021969,000355: 36,2631 05057 QUADROT
021970,000356: 36,2632 27342 STOVL BRATE
021971,000357: 36,2633 15204 ZEROVECS
021972,000358: 36,2634 03326 STORE BIASTEMP
021973,000359: 36,2635 77776 EXIT
021974,000360:
021975,000361: 36,2636 05415 TC PHASCHNG
021976,000362: 36,2637 00131 OCT 00131
021977,000363:
021978,000364: 36,2640 01,2030 1P13SPT1 = 1.13SPOT
021979,000365: 36,2640 30075 R67RSTRT CA FLAGWRD1
021980,000366: 36,2641 74775 MASK TRACKBIT
021981,000367: 36,2642 00006 EXTEND
021982,000368: 36,2643 12662 BZF FIXDB
021983,000369: 36,2644 34766 CAF BIT12
021984,000370: 36,2645 55776 TS R61CNTR
021985,000371:
021986,000372: 36,2646 37650 CAF PRIO26
021987,000373: 36,2647 05211 TC PRIOCHNG
021988,000374:
021989,000375: 36,2650 06006 TC INTPRET
021990,000376: 36,2651 72364 AXC,2 TLOAD
021991,000377: 36,2652 02271 MIS
021992,000378: 36,2653 03313 BCDU
021993,000379: 36,2654 45014 SET CALL
021994,000380: 36,2655 04075 R67FLAG
021995,000381: 36,2656 44377 CDUTODCM
021996,000382: 36,2657 77614 SETGO
021997,000383: 36,2660 01035 CALCMAN2 # SET CALCMAN2 TO START MANEUVER
021998,000384: 36,2661 45120 NEWANGL +1
021999,000385:
022000,000386: 36,2662 30105 FIXDB CA FLAGWRD9 # RESTORE DAP DEADBAND
022001,000387: 36,2663 00004 INHINT
022002,000388: 36,2664 74766 MASK MAXDBBIT
022003,000389: 36,2665 10000 CCS A
022004,000390: 36,2666 12672 TCF +4
022005,000391:
022006,000392: 36,2667 04647 TC BANKCALL
022007,000393: 36,2670 51035 CADR SETMINDB
022008,000394: 36,2671 12674 TCF +3
022009,000395:
022010,000396: 36,2672 04647 TC BANKCALL
022011,000397: 36,2673 51057 CADR SETMAXDB
022012,000398:
022013,000399: 36,2674 07722 TC DOWNFLAG
022014,000400: 36,2675 00205 ADRES R67FLAG
022015,000401: 36,2676 05415 TC PHASCHNG
022016,000402: 36,2677 00111 OCT 00111
022017,000403: 36,2700 01,2025 1P11SPT5 = 1.11SPOT
022018,000404: 36,2700 00004 STOPVEH INHINT
022019,000405: 36,2701 04463 TC STOPRATE
022020,000406: 36,2702 15220 TCF ENDOFJOB
022021,000407:
022022,000408: 36,2703 73545 UTPRFAX DLOAD SIN # COMPUTE PREFERRED UNIT VECTOR
022023,000409: 36,2704 03720 UTPIT # MPAC =COS(P)COS(Y)
022024,000410: 36,2705 65276 DCOMP PDDL # PDX=-SIN(P) MPAC +2=COS(P)SIN(Y)
022025,000411: 36,2706 03720 UTPIT # MPAC +4=-SIN(P)
022026,000412: 36,2707 41546 COS PUSH # PDX+2=COS(P) USED WITH SECOND DMP BELOW
022027,000413: 36,2710 73525 PDDL SIN # PDX+4=COS(P) USED WITH FIRST DMP BELOW
022028,000414: 36,2711 03722 UTYAW
022029,000415: 36,2712 72405 DMP SL1 # MPAC=COS(P)SIN(Y)
022030,000416: 36,2713 77725 PDDL # REPLACE PDX+2 WITH COS"P)SIN(Y)
022031,000417: 36,2714 71525 PDDL COS # REPLACE PDX+4 WITH COS(P) IN ORDER TO
022032,000418: 36,2715 03722 UTYAW # POSITION PD COUNTER FOR DMP
022033,000419: 36,2716 72405 DMP SL1
022034,000420: 36,2717 43466 VDEF RVQ # PUSHUP FOR Y,Z COMPONENTS
022035,000421:
022036,000422: 36,2720 40075 R66CSM CS FLAGWRD1 # R66 CONTROL
022037,000423: 36,2721 74775 MASK TRACKBIT
022038,000424: 36,2722 10000 CCS A
022039,000425: 36,2723 12662 TCF FIXDB
022040,000426:
022041,000427: 36,2724 04647 TC BANKCALL # TRACKFLG SET, CONTINUE R66
022042,000428: 36,2725 76222 CADR R61CSM # CALL R61
022043,000429:
022044,000430: 36,2726 35023 CAF .5SEC
022045,000431: 36,2727 04647 TC BANKCALL # WAIT .5 SEC AND REPEAT
022046,000432: 36,2730 01731 CADR DELAYJOB
022047,000433: 36,2731 02720 TC R66CSM
022048,000434:
022049,000435: 36,2732 74707 43433 35DEGANG 2DEC -.097222222222
022050,000436: 36,2734 01516 V06N78UT VN 0678
022051,000437: 36,2735 5031 V01N70UT = V01N70
022052,000438: 36,2735 5050 V06N88UT = V06N88
022053,000439: 36,2735 01517 V06N79UT VN 0679
022054,000440: 36,2736 5042 V06N34UT = V06N34
022055,000441: 36,2736 14631 23146 TUFITS 2DEC .4
022056,000442: 36,2740 77731 NEG46UT OCT 77731
022057,000443: 36,2741 00077 LOW6 OCT 00077
022058,000444:
022059,000445:
022060,000446: # RENDEZVOUS TRACKING SIGHTING MARK ROUTINE (R21)
022061,000447: # AND BACKUP SIGHTING MARK ROUTINE (R23)
022062,000448:
022063,000449: # PROGRAM DESCRIPTION
022064,000450: # MOD NO - 1
022065,000451: # MOD BY - N.BRODEUR
022066,000452: # FUNCTIONAL DESCRIPTION
022067,000453:
022068,000454: # TO PERFORM SIGHTING MARKS IN CONJUNCTION WITH THE RENDEZVOUS NAVIG-
022069,000455: # ATION PROGRAM. CALLED BY ASTRONAUT VIA EXTENDED VERB
022070,000456: # CALLING SEQUENCE -
022071,000457: # R21 VIA V 57
022072,000458: # R23 VIA V 54
022073,000459: # SUBROUTINES CALLED -
022074,000460: # FLAGUP FLAGDOWN BANKCALL
022075,000461: # ENDOFJOB GOMARK2 GOMARKF
022076,000462: # INTPRET GENTRAN KLEENEX
022077,000463: # ENDMARK
022078,000464: # NORMAL EXIT MODES-
022079,000465: # MARKRUPT USED BY SXTMARK HAS BEEN MODIFIED TO STORE MARK IN MRKBUF2
022080,000466: # FOR USE BY R22. WHEN ASTRONAUT IS FINISHED TAKING MARKS, HE HITS AN
022081,000467: # PROCEED , R21 IS TERMINATED THUS CAUSING THE FINAL MARK TO BE TRANSFRD
022082,000468: # TO MRKBUF2 FOR PROCESSING BY R22
022083,000469: # ALARM OR ABORT EXIT MODES -
022084,000470: # NONE
022085,000471: # OUTPUT -
022086,000472: # 7 REGISTER MRKBUF2 CONTAINING TIME2,TIME1,CDUY,OPTICS X,CDUZ, OPTICS Y,
022087,000473: # CDUX.
022088,000474: # ERASABLE INITIALIZATION REQUIRED
022089,000475: # FLAGS SET AND RESET
022090,000476: # R21MARK (COMMUNICATION TO MARKRUPT TO STORE MARKS IN MRKBUF1 + 2)
022091,000477: # R23FLG INDICATES COAS MARKING
022092,000478: # DEBRIS
022093,000479: 36,2742 E7,1702 EBANK= MRKBUF1
022094,000480: 37,2000 SETLOC RENDEZ
022095,000481: 37,2000 BANK
022096,000482:
022097,000483: 37,2152 COUNT* $$/R23
022098,000484:
022099,000485: 37,2152 07722 R23CSM TC DOWNFLAG
022100,000486: 37,2153 00037 ADRES R21MARK
022101,000487: 37,2154 37702 CAF NEGONE
022102,000488: 37,2155 55702 TS MRKBUF1
022103,000489: 37,2156 37651 CAF PRIO27
022104,000490: 37,2157 05211 TC PRIOCHNG # HIGHER THAN R22
022105,000491:
022106,000492: 37,2160 32221 CAF V0694 # R23 BACKUP MARKING
022107,000493: 37,2161 04647 TC BANKCALL # DISPLAY SHAFT + TRUNNION
022108,000494: 37,2162 20456 CADR GOMARKF
022109,000495: 37,2163 02207 TC R21END # TERM
022110,000496: 37,2164 02166 TC +2 # PROC
022111,000497: 37,2165 02160 TC -5 # ENTER
022112,000498: 37,2166 32220 R23CSM1 CAF V53N45 # PERFORM ALT LOS SIGHT MARK
022113,000499: 37,2167 04647 TC BANKCALL
022114,000500: 37,2170 20472 CADR MARKMONR
022115,000501: 37,2171 02207 TC R21END # V34-TERMINATE R23
022116,000502: 37,2172 12207 TCF R21END # PRO END BACK-UP MARKING (R23)
022117,000503: 37,2173 00004 INHINT
022118,000504: 37,2174 00006 EXTEND
022119,000505: 37,2175 30025 DCA TIME2
022120,000506: 37,2176 53703 DXCH MRKBUF1 # READ TIME
022121,000507: 37,2177 30033 CA CDUY # READ CDU ANGLES
022122,000508: 37,2200 55704 TS MRKBUF1 +2
022123,000509: 37,2201 30034 CA CDUZ
022124,000510: 37,2202 55706 TS MRKBUF1 +4
022125,000511: 37,2203 30032 CA CDUX
022126,000512: 37,2204 55710 TS MRKBUF1 +6
022127,000513: 37,2205 00003 RELINT
022128,000514: 37,2206 02166 TC R23CSM1
022129,000515: 37,2207 04647 R21END TC BANKCALL
022130,000516: 37,2210 20455 CADR KLEENEX
022131,000517: 37,2211 37702 CA NEGONE
022132,000518: 37,2212 55702 TS MRKBUF1 # CLEAR BUFFERS FOR REGULAR MARKING
022133,000519: 37,2213 35067 CAF PRIO16
022134,000520: 37,2214 05211 TC PRIOCHNG # LOWER THAN R22
022135,000521:
022136,000522: 37,2215 07710 TC UPFLAG # SET R21MARK TO ALLOW REG OPTICS MARKING
022137,000523: 37,2216 00037 ADRES R21MARK # BIT 14 FLAG 2
022138,000524: 37,2217 05537 TC ENDMARK # END MARKING AND ENDJOB
022139,000525: 37,2220 15255 V53N45 VN 5345
022140,000526: 37,2221 01536 V0694 VN 0694
022141,000527:
022142,000528:
022143,000529: # PREFERRED TRACKING ATTITUDE ROUTINE R61CSM
022144,000530: # PROGRAM DESCRIPTION
022145,000531: # MOD NO - 2
022146,000532: # MOD BY - N.BRODEUR
022147,000533: # FUNCTIONAL DESCRIPTION-
022148,000534: # TO COMPUTE THE PREFERRED TRACKING ATTITUDE OF THE CSM TO ENABLE OPTICS
022149,000535: # TRACKING OF THE LM AND TO PERFORM THE MANEUVER TO THE PREFERRED
022150,000536: # OR X-AXIS TRACKING ATTITUDE.
022151,000537: # CALLING SEQUENCE-
022152,000538: # TC BANKCALL
022153,000539: # CADR R61CSM
022154,000540: # SUBROUTINES CALLED
022155,000541: # MAKECADR BANKCALL
022156,000542: # INTPRET FLAGUP FLAGDOWN
022157,000543: # BANKJUMP CRS61.1 R60CSM
022158,000544: # PHASCHNG
022159,000545: # NORMAL EXIT MODES-
022160,000546: # NORMAL RETURN IS TO CALLER + 1
022161,000547: # OUTPUT -
022162,000548: # SEE OUTPUT FOR CRS61.1 & ATTITUDE MANEUVER ROUTINE (R60CSM)
022163,000549: # ERASABLE INITIALIZATION REQUIRED
022164,000550: # GENRET USED TO SAVE Q FOR RETURN
022165,000551: # R61CNTR MUST BE PRESET TO ZERO
022166,000552: # FLAGS SET + RESET
022167,000553: # 3-AXIS FLAG
022168,000554: # DEBRIS
022169,000555: # SEE SUBROUTINES
022170,000556: 37,2222 E6,1772 EBANK= GENRET
022171,000557: 37,2222 COUNT* $$/R61 # ROUTINES - NAVIGATION - PREF. TR. 9TT=
022172,000558:
022173,000559: 37,2222 04611 R61CSM TC E6SETTER # SWITCH TO E6 - RETURNS WITH OLD SETTING
022174,000560: 37,2223 55773 TS SAVBNK # SAVE EBANK
022175,000561: 37,2224 04676 TC MAKECADR
022176,000562: 37,2225 55772 TS GENRET
022177,000563: 37,2226 11776 CCS R61CNTR # TEST R61CNTR
022178,000564: 37,2227 02305 TC DECRM61 # NOT READY TO DO R61.
022179,000565: 37,2230 02232 TC +2 # DO R61
022180,000566: 37,2231 02306 TC DECRM61 +1
022181,000567: 37,2232 00004 INHINT
022182,000568: 37,2233 35021 CAF MINDB
022183,000569: 37,2234 55706 TS ADB
022184,000570: 37,2235 11775 CCS DBPTC
022185,000571: 37,2236 65001 AD ONE
022186,000572: 37,2237 12241 TCF +2
022187,000573: 37,2240 65001 AD ONE
022188,000574: 37,2241 00006 EXTEND
022189,000575: 37,2242 12244 BZF +2 # IGNOR ZERO DEADBAND
022190,000576: 37,2243 55706 TS ADB
022191,000577:
022192,000578: 37,2244 06006 TC INTPRET
022193,000579: 37,2245 77624 CALL
022194,000580: 37,2246 71441 CRS61.1 # LOS DETERMINATION + VEH ATTITUDE
022195,000581: 37,2247 77776 R61DMPTG EXIT # DEFINE TAG FOR P20 EDIT DUMP
022196,000582: 37,2250 07722 TC DOWNFLAG # RESET FLAG TO INHIBIT FURTHER R60
022197,000583: 37,2251 00055 ADRES V50N18FL # ATTITUDE MANEUVERS
022198,000584: 37,2252 50154 INDEX MPAC
022199,000585: 37,2253 02254 TC +1
022200,000586: 37,2254 02304 TC R61END # SUBROUTINE DRIVING DAP (EXIT R61)
022201,000587: # OR AUTO MODE NOT SET (EXIT R61)
022202,000588: # OR STIKFLAG SET (EXIT R61)
022203,000589: 37,2255 07722 R61C1 TC DOWNFLAG # RESET 3-AXIS FLAG
022204,000590: 37,2256 00124 ADRES 3AXISFLG # BIT 6 FLAG 5
022205,000591: 37,2257 40107 CS FLGWRD11
022206,000592: 37,2260 74772 MASK AZIMBIT
022207,000593: 37,2261 10000 CCS A
022208,000594: 37,2262 02265 TC +3 # AZIMFLAG NOT SET,CLEAR 3AXISFLA7
022209,000595:
022210,000596: 37,2263 07710 TC UPFLAG # AZIMFLAG SET ,SET 3AXISFLAG
022211,000597: 37,2264 00124 ADRES 3AXISFLG
022212,000598:
022213,000599: 37,2265 45001 CS ONE # SET R61CNTR NEG. TO INDICATE KALCMANU
022214,000600: 37,2266 55776 TS R61CNTR
022215,000601:
022216,000602: 37,2267 07710 TC UPFLAG # SET FLAG FOR PROIRITY DISPLAYS FOR R60
022217,000603: 37,2270 00077 ADRES PDSPFLAG # BIT 12 FLAG 4
022218,000604: 37,2271 04647 TC BANKCALL
022219,000605: 37,2272 56000 CADR R60CSM
022220,000606: 37,2273 07722 TC DOWNFLAG # RESET FLAG FOR PRIORITY DISPLAYS IN R60
022221,000607: 37,2274 00077 ADRES PDSPFLAG # BIT 12 FLAG 4
022222,000608: 37,2275 35003 CAF ZERO
022223,000609: 37,2276 04647 TC BANKCALL
022224,000610: 37,2277 20633 CADR PRIODSP # RELEASE DISPLAY
022225,000611: 37,2300 05415 TC PHASCHNG
022226,000612: 37,2301 00111 OCT 00111
022227,000613: 37,2302 01,2025 1P11SPT6 = 1.11SPOT
022228,000614: 37,2302 35003 CAF ZERO
022229,000615: 37,2303 02305 TC DECRM61
022230,000616: 37,2304 36214 R61END CAF THREE
022231,000617:
022232,000618: 37,2305 55776 DECRM61 TS R61CNTR
022233,000619:
022234,000620: 37,2306 31772 +1 CAE GENRET
022235,000621: 37,2307 22000 LXCH A # RETURN IS IN L
022236,000622: 37,2310 31773 CA SAVBNK # RESTORE EBANK
022237,000623: 37,2311 56003 XCH EBANK
022238,000624: 37,2312 22000 LXCH A # RETURN IS NOW BACK IN A
022239,000625: 37,2313 04671 TC BANKJUMP # EXIT R61
022240,000626: 23,2000 SETLOC P20S2
022241,000627: 23,2000 BANK
022242,000628: 23,2775 E7,1702 EBANK= MRKBUF1
022243,000629:
022244,000630:
022245,000631: # BVECTOR PERFORMS COMPUTATIONS FOR
022246,000632: # DELTAQ,THE MEASURED DEVIATION BASED ON THE DIFFERENCE BETWEEN THE CSM-LE
022247,000633: # M STATE VECTOR ESTIMATES AND THE ACTUAL TRACKING MEASUREMENT.
022248,000634: # US,THE MODIFIED FICTITIOUS STAR DIRECTION VECTOR
022249,000635: # GEOMETRY VECTOR B ASSOCIATED WITH EACH TRACKING MEASUREMENT.
022250,000636: # INPUT
022251,000637: # UM,1/2 UNIT VECTOR ALONG THE CSM-LM LINE OF SIGHT (BASIC REF.SYSTEM)
022252,000638: # USTAR,FICTITIOUS STAR DIRECTION (1/2 UNIT VECTOR)
022253,000639: # RCLP,RELATIVE CSM TO LM POSITION VECTOR
022254,000640: # OUTPUT
022255,000641: # USTAR,MODIFIED FICTITOUS STAR DIRECTION (1/2 UNIT VECTOR)
022256,000642: # BVECTOR = 6 DIMENSIONAL BVECTOR (1/2 UNIT VEC.)
022257,000643: # DELTAQ = MEASURED DEVIATION
022258,000644: # CALLING SEQUENCE
022259,000645: # L CALL BVECTORS
022260,000646: # NORMAL EXIT
022261,000647: # L+1 OF CALLING SEQUENCE
022262,000648:
022263,000649: 23,2775 COUNT* $$/INCOR
022264,000650: 23,2775 77620 BVECTORS STQ
022265,000651: 23,2776 02200 EGRESS
022266,000652: 23,2777 53575 VLOAD UNIT
022267,000653: 23,3000 03507 RCLP # RELATIVE POSITION VECTOR
022268,000654: 23,3001 14033 STODL 26D # RCLP UNIT VEC
022269,000655: 23,3002 00045 36D # RCLP ABS VALUE
022270,000656: 23,3003 25126 STOVL TEMPOR1 # MOVE TO SAFE LOCATION
022271,000657: 23,3004 01062 USTAR
022272,000658: 23,3005 53435 VXV UNIT
022273,000659: 23,3006 00033 26D # USTAR = UNIT(US X UCL)
022274,000660: 23,3007 37466 STCALL BVECTOR
022275,000661: 23,3010 57046 GRP2PC # PHASE CHANGE
022276,000662: 23,3011 77775 VLOAD
022277,000663: 23,3012 03466 BVECTOR
022278,000664: 23,3013 01062 STORE USTAR
022279,000665: 23,3014 72441 DOT SL1
022280,000666: 23,3015 01054 UM # USTAR DOT UM
022281,000667: 23,3016 45326 ACOS DSU
022282,000668: 23,3017 15174 DP1/4TH
022283,000669: 23,3020 41301 NORM DMP
022284,000670: 23,3021 00047 X1
022285,000671: 23,3022 07034 PI/4.0
022286,000672: 23,3023 53605 DMP SRR*
022287,000673: 23,3024 01126 TEMPOR1 # RCLP ABS VALUE
022288,000674: 23,3025 21576 0 -3,1 # ADJUST SCALING
022289,000675: 23,3026 27502 STOVL DELTAQ
022290,000676: 23,3027 15204 ZEROVECS
022291,000677: 23,3030 03474 STORE BVECTOR +6
022292,000678: 23,3031 77650 GOTO
022293,000679: 23,3032 02200 EGRESS
022294,000680: 23,3033 31103 36652 PI/4.0 2DEC .785398164
022295,000681:
022296,000682:
022297,000683: # GETUM-DETERMINES THE LINE OF SIGHT UNIT VECTOR UM IN THE BASIC REFERENC
022298,000684: # E COORDINATE SYSTEM FROM THE OPTICS SHAFT AND TRUNNION ANGLES AND THE IM
022299,000685: # U GIMBAL ANGLES.
022300,000686: # INPUT
022301,000687: # MARKDATA,BASE ADDRESS OF MARK DATA
022302,000688: # REFSMMAT,ROTATION MATRIX FROM STABLE MEMBER TO BASIC REF.COORD.SYSTEM
022303,000689:
022304,000690: # SUBROUTINES CALLED-
022305,000691: # SXTNB - SEXT. ANGULAR READINGS TO NAV. BASE COOR.
022306,000692: # NBSM - TRANSFORM FROM NAV. BASE TO STABLE MEMBER
022307,000693: # OUTPUT
022308,000694: # MPAC = LINE OF SIGHT 1/2 UNIT VECTOR IN BASIC REFERENCE SYSTEM
022309,000695: # CALLING SEQUENCE
022310,000696: # L CALL GETUM
022311,000697:
022312,000698: # NORMAL EXIT
022313,000699: # L+1 OF CALLING SEQUENCE
022314,000700:
022315,000701: 23,3035 40220 GETUM STQ SETPD
022316,000702: 23,3036 02200 EGRESS
022317,000703: 23,3037 00001 0
022318,000704: 23,3040 77624 CALL
022319,000705: 23,3041 36073 SXTSM1
022320,000706: 23,3042 76505 VXM VSL1
022321,000707: 23,3043 01720 REFSMMAT
022322,000708: 23,3044 77650 GOTO # MPAC = (UM)LINE OF SIGHT VECTOR
022323,000709: 23,3045 02200 EGRESS # EXIT
022324,000710:
022325,000711:
022326,000712: # RENDEZVOUS TRACKING DATA PROCESSING ROUTINE (R22)
022327,000713:
022328,000714: # FUNCTIONAL DESCRIPTION
022329,000715:
022330,000716: # TO PROCESS RENDEZVOUS SIGHTING MARK AND VHF RANGING DATA TO UPDATE
022331,000717: # THE STATE VECTOR OF EITHER THE CSM OR LM AS DEFINED BY VEHUPFLG.
022332,000718: # (VEHUPFLG IS SET TO LM BY P20, CSM BY V81E, AND LM BY V80E.)
022333,000719:
022334,000720: # CALLING SEQUENCE
022335,000721: # AUTOMATICALLY SELECTED BY P20
022336,000722:
022337,000723: # SUBROUTINES CALLED
022338,000724: # PRIOCHNG INTPRET GRP2PC
022339,000725: # GETUM BVECTORS INCORP1
022340,000726: # INCORP2 INTEGRV PHASCHNG
022341,000727: # NOVAC BANKCALL GOTOV56
022342,000728: # ENDOFJOB INSTALL DOWNFLAG
022343,000729: # TRFAILOF TRFAILON TASKOVER
022344,000730: # POSTJUMP
022345,000731:
022346,000732: # NORMAL EXIT MODES
022347,000733: # RENDEZVOUS NAVIGATION MAY BE TERMINATED BY THE SELECTION OF
022348,000734: # P00, P06, P22, P23, V34E FROM R60, AND V56E
022349,000735:
022350,000736: # ALARMS OR ABORT EXIT MODES
022351,000737: # NONE
022352,000738:
022353,000739: # INPUT
022354,000740: # MARK DATA, SEE R21 AND R23
022355,000741: # VHF RANGING DATA
022356,000742:
022357,000743: # OUTPUT
022358,000744: # TRKMKCNT, NO OF RENDEZVOUS TRACKING MARKS INCORPORATED (COUNTER)
022359,000745: # VHFCNT, NO OF VHF RANGING MARKS INCORPORATED (COUNTER)
022360,000746: # V06N49, EXCESSIVE UPDATE PARAMETERS-DELTA R AND DELTA V
022361,000747:
022362,000748: # FLAGS SET + RESET
022363,000749: # SOURCFLG, VINTFLAG, DIM0FLAG, INCORFLG, ORBWFLAG, RENDWFLG
022364,000750: # STATEFLG, D6OR9FLG, SKIPVHF, DMENFLG AT THE INTERRUPTED DISPLAY.
022365,000751:
022366,000752: 34,2000 SETLOC P20S3
022367,000753: 34,2000 BANK
022368,000754:
022369,000755: 34,2617 COUNT* $$/R22
022370,000756: 34,2617 37650 R22 CAF PRIO26
022371,000757: 34,2620 55252 TS PHSPRDT2
022372,000758: 34,2621 05211 TC PRIOCHNG
022373,000759: 34,2622 37700 CA NEG3
022374,000760: 34,2623 55702 TS MRKBUF1
022375,000761: 34,2624 06006 TC INTPRET
022376,000762: 34,2625 77634 RTB
022377,000763: 34,2626 45563 LOADTIME
022378,000764: 34,2627 01003 STORE VHFTIME # PRESENT TIME
022379,000765: 34,2630 77624 REND1 CALL
022380,000766: 34,2631 57046 GRP2PC
022381,000767: 34,2632 77624 CALL
022382,000768: 34,2633 56425 WAITONE
022383,000769: 34,2634 77776 REND1A EXIT
022384,000770: 34,2635 31702 CA MRKBUF1
022385,000771: 34,2636 00006 EXTEND
022386,000772: 34,2637 12642 BZF REND2
022387,000773: 34,2640 00006 EXTEND
022388,000774: 34,2641 62660 BZMF REND3A
022389,000775: 34,2642 36211 REND2 CAF SIX
022390,000776: 34,2643 05562 TC GENTRAN
022391,000777: 34,2644 01702 ADRES MRKBUF1
022392,000778: 34,2645 01115 ADRES MARKTIME # MARKTIME MUST BE CONTIGUOUS WITH VTEMP
022393,000779: 34,2646 37700 CAF NEG3 # NEG VALUE TO INDICATE VALUES USED
022394,000780: 34,2647 55702 TS MRKBUF1
022395,000781: 34,2650 07710 TC UPFLAG # SET FLAG TO INDICATE THAT OPTICS MARK IS
022396,000782: 34,2651 00217 ADRES R22CAFLG # BEING PROCESSED (TESTED IN MARK REJCT)
022397,000783: 34,2652 06006 TC INTPRET
022398,000784: 34,2653 45014 CLEAR CALL
022399,000785: 34,2654 04667 SOURCFLG # 0 = OPTICS DATA
022400,000786: 34,2655 57046 GRP2PC # PHASE CHANGE
022401,000787: 34,2656 77650 GOTO
022402,000788: 34,2657 70757 REND4
022403,000789: 34,2660 06006 REND3A TC INTPRET
022404,000790: 34,2661 77624 REND3 CALL
022405,000791: 34,2662 57046 GRP2PC
022406,000792: 34,2663 77624 CALL
022407,000793: 34,2664 56425 WAITONE
022408,000794: 34,2665 47014 BOFF RTB
022409,000795: 34,2666 04746 VHFRFLAG
022410,000796: 34,2667 70634 REND1A
022411,000797: 34,2670 45563 LOADTIME # PRESENT TIME
022412,000798: 34,2671 45225 DSU DSU
022413,000799: 34,2672 14517 60SECDP # 1 MIN
022414,000800: 34,2673 01003 VHFTIME # LAST READING OF RADAR
022415,000801: 34,2674 77440 BMN EXIT
022416,000802: 34,2675 70634 REND1A
022417,000803: 34,2676 04647 TC BANKCALL
022418,000804: 34,2677 70702 CADR RANGERD
022419,000805: 34,2700 12740 TCF R22BAD
022420,000806: 34,2701 12745 TCF R22GOOD
022421,000807:
022422,000808: 34,2702 04676 RANGERD TC MAKECADR
022423,000809: 34,2703 54363 TS RREADRET
022424,000810: 34,2704 00004 INHINT # READ RADAR RANGE
022425,000811: 34,2705 45010 CS OCT17
022426,000812: 34,2706 00006 EXTEND
022427,000813: 34,2707 03013 WAND CHAN13 # ZERO OUT BITS 1-4 OF CHANNEL 13
022428,000814: 34,2710 00006 RADSTART EXTEND
022429,000815: 34,2711 00004 READ LOSCALAR # READ PRESENT TIME
022430,000816: 34,2712 54001 TS L
022431,000817:
022432,000818: 34,2713 74342 MASK LOW5 # ONLY THE 5 BITS MATTER
022433,000819: 34,2714 40000 COM
022434,000820: 34,2715 64774 AD BIT6 # COMPUTE DELTA TIME TO NEXT T5 TICK
022435,000821: 34,2716 74342 MASK LOW5
022436,000822:
022437,000823: 34,2717 55120 TS RADDEL
022438,000824: 34,2720 67701 AD NEG2 # IF A TICK OF T5 IS NEAR, WAIT TILL IT
022439,000825: 34,2721 00006 EXTEND # HAS TICKED. MAX DELAY HERE IS
022440,000826: 34,2722 62710 BZMF RADSTART # 937.5 MICROSEC.
022441,000827:
022442,000828: 34,2723 34322 CA OCT11 # SET RADAD BITS NOW
022443,000829: 34,2724 00006 EXTEND
022444,000830: 34,2725 05013 WOR CHAN13
022445,000831: 34,2726 40001 CS L
022446,000832: 34,2727 55117 TS RADTIME # SAVE NEG TIME OF READ
022447,000833:
022448,000834: 34,2730 00003 RELINT
022449,000835: 34,2731 00006 EXTEND
022450,000836: 34,2732 30025 DCA TIME2
022451,000837: 34,2733 53116 DXCH MARKTIME # READ PRESENT TIME
022452,000838: 34,2734 07722 TC DOWNFLAG
022453,000839: 34,2735 00043 ADRES SKIPVHF # CLEAR VHF RESTART FLAG
022454,000840: 34,2736 30363 CA RREADRET # WAIT FOR RADAR READ
022455,000841: 34,2737 05176 TC JOBSLEEP
022456,000842: 34,2740 06006 R22BAD TC INTPRET
022457,000843: 34,2741 77745 DLOAD
022458,000844: 34,2742 01116 MARKTIME
022459,000845: 34,2743 35003 STCALL VHFTIME
022460,000846: 34,2744 70630 REND1
022461,000847: 34,2745 06006 R22GOOD TC INTPRET
022462,000848: 34,2746 43014 BOFF BON
022463,000849: 34,2747 00750 UPDATFLG
022464,000850: 34,2750 70741 R22BAD +1
022465,000851: 34,2751 02303 PDSPFLAG
022466,000852: 34,2752 70741 R22BAD +1
022467,000853: 34,2753 71214 SET DLOAD
022468,000854: 34,2754 04467 SOURCFLG # SOURCE OF DATA TO VHF RADAR
022469,000855: 34,2755 01116 MARKTIME
022470,000856: 34,2756 01003 STORE VHFTIME # FOR DOWNLINK
022471,000857: 34,2757 77624 REND4 CALL
022472,000858: 34,2760 60130 UPSTATE # INTEGRATE CSM,LM,W MATRIX
022473,000859: 34,2761 77624 CALL
022474,000860: 34,2762 71304 CMPOS # SET CSM POSITION
022475,000861: 34,2763 45014 SET CALL
022476,000862: 34,2764 02464 INCORFLG # SET FOR FIRST PASS
022477,000863: 34,2765 71313 LMPOS # SET LM POSITION
022478,000864: 34,2766 77614 BON
022479,000865: 34,2767 05310 AUTOSEQ
022480,000866: 34,2770 47046 AUTOW # AUTOMATIC W MATRIX REINITIALIZATION
022481,000867: 34,2771 77614 REND5B BON
022482,000868: 34,2772 02716 RENDWFLG
022483,000869: 34,2773 71012 REND6
022484,000870: 34,2774 77745 REND5C DLOAD
022485,000871: 34,2775 15204 ZEROVECS
022486,000872: 34,2776 14765 STODL VHFCNT # ZERO OUT VHFCNT AND TRKMKCNT
022487,000873: 34,2777 02001 WRENDPOS
022488,000874: 34,3000 34001 STCALL 0 # 0=WRENDPOS 1=WRENDVEL
022489,000875: 34,3001 56502 INITIALW # INITIALIZE W MATRIX
022490,000876: 34,3002 71214 CLEAR DLOAD
022491,000877: 34,3003 05267 P35FLAG
022492,000878: 34,3004 01116 MARKTIME
022493,000879: 34,3005 03716 STORE AGEOFW
022494,000880: 34,3006 66214 CLEAR SSP
022495,000881: 34,3007 05273 PTV93FLG
022496,000882: 34,3010 02554 COUNT3MK
022497,000883: 34,3011 00001 1
022498,000884: 34,3012 77614 REND6 SET
022499,000885: 34,3013 02476 RENDWFLG
022500,000886: 34,3014 52375 REND7 VLOAD VSU
022501,000887: 34,3015 01046 LEMPOS
022502,000888: 34,3016 01040 CSMPOS
022503,000889: 34,3017 03507 STORE RCLP # LM - CSM
022504,000890: 34,3020 43056 UNIT BON
022505,000891: 34,3021 04707 SOURCFLG
022506,000892: 34,3022 71231 REND14 # BRANCH IF DATA IS RADAR
022507,000893: 34,3023 01110 STORE UCL
022508,000894: 34,3024 74014 BOFF AXC,1
022509,000895: 34,3025 02744 INCORFLG
022510,000896: 34,3026 71042 REND9
022511,000897: 34,3027 01115 MARKTIME
022512,000898: 34,3030 77624 CALL
022513,000899: 34,3031 47035 GETUM # CALCULATE UM LINE OF SIGHT
022514,000900: 34,3032 25054 STOVL UM
022515,000901: 34,3033 01110 UCL
022516,000902: 34,3034 40035 VXV BOV
022517,000903: 34,3035 01054 UM # UCL X UM
022518,000904: 34,3036 71037 REND8
022519,000905: 34,3037 40056 REND8 UNIT BOV
022520,000906: 34,3040 71352 RENDISP3 # IGNORE MARK RESET FLAGS FOR REJECT
022521,000907: 34,3041 01062 STORE USTAR
022522,000908: 34,3042 77624 REND9 CALL
022523,000909: 34,3043 46775 BVECTORS
022524,000910: 34,3044 77214 BON VLOAD
022525,000911: 34,3045 00707 VEHUPFLG
022526,000912: 34,3046 71052 REND9A
022527,000913: 34,3047 03466 BVECTOR
022528,000914: 34,3050 77676 VCOMP
022529,000915: 34,3051 03466 STORE BVECTOR
022530,000916: 34,3052 77624 REND9A CALL
022531,000917: 34,3053 57046 GRP2PC
022532,000918: 34,3054 77614 BOFF
022533,000919: 34,3055 01341 R21MARK
022534,000920: 34,3056 71257 REND15 # BRANCH IF BACKUP OPTICS (R23 WORKING)
022535,000921: 34,3057 43345 DLOAD DAD
022536,000922: 34,3060 16353 SXTVAR
022537,000923: 34,3061 16355 IMUVAR
022538,000924: 34,3062 27504 REND10 STOVL VARIANCE # TEMP STORAGE FOR VARIANCE CALC.
022539,000925: 34,3063 03507 RCLP
022540,000926: 34,3064 60246 ABVAL NORM
022541,000927: 34,3065 00047 X1
022542,000928: 34,3066 41316 DSQ DMP
022543,000929: 34,3067 03504 VARIANCE
022544,000930: 34,3070 77670 XAD,1
022545,000931: 34,3071 00046 X1
022546,000932: 34,3072 72257 SR* TLOAD
022547,000933: 34,3073 20577 0 -2,1 # ADJUST SCALING TO B-40
022548,000934: 34,3074 00155 MPAC
022549,000935: 34,3075 03504 STORE VARIANCE
022550,000936: 34,3076 54335 SLOAD SR
022551,000937: 34,3077 02247 INTVAR # INTEGRATION VARIANCE SCALED B-15
022552,000938: 34,3100 20632 25D # SCALE IT B-40
022553,000939: 34,3101 47171 TAD RTB
022554,000940: 34,3102 03504 VARIANCE
022555,000941: 34,3103 45640 TPMODE
022556,000942: 34,3104 03504 STORE VARIANCE
022557,000943: 34,3105 76214 BOFF TAD
022558,000944: 34,3106 04747 SOURCFLG # BRANCH IF NOT VHF RADAR
022559,000945: 34,3107 71116 REND10A
022560,000946: 34,3110 01745 RVARMIN # VHF RADAR MIN. VARIANCE
022561,000947: 34,3111 72244 BPL TLOAD
022562,000948: 34,3112 71116 REND10A
022563,000949: 34,3113 01745 RVARMIN
022564,000950: 34,3114 77646 ABS # MIN. VALUE WAS STORED AS NEG.
022565,000951: 34,3115 03504 STORE VARIANCE # STORE MIN. VALUE
022566,000952: 34,3116 77624 REND10A CALL
022567,000953: 34,3117 74775 INCORP1 # CALCULATE UPDATE
022568,000954: 34,3120 77624 CALL
022569,000955: 34,3121 57046 GRP2PC
022570,000956: 34,3122 77614 BOFF
022571,000957: 34,3123 02744 INCORFLG
022572,000958: 34,3124 71160 REND12
022573,000959: 34,3125 51575 VLOAD ABVAL
022574,000960: 34,3126 01102 DELTAX +6
022575,000961: 34,3127 27470 STOVL N49DISP +2
022576,000962: 34,3130 01074 DELTAX
022577,000963: 34,3131 77646 ABVAL
022578,000964: 34,3132 03466 STORE N49DISP
022579,000965: 34,3133 43131 SSP BON
022580,000966: 34,3134 03472 N49DISP +4
022581,000967: 34,3135 00002 OCT 2
022582,000968: 34,3136 04707 SOURCFLG
022583,000969: 34,3137 71145 REND10B # VHF MARK CODE
022584,000970: 34,3140 66214 BON SSP
022585,000971: 34,3141 05303 REJCTFLG
022586,000972: 34,3142 71352 RENDISP3
022587,000973: 34,3143 03472 N49DISP +4 # OPTICS MARK CODE
022588,000974: 34,3144 00001 OCT 1
022589,000975: 34,3145 77735 REND10B SLOAD
022590,000976: 34,3146 02003 RMAX
022591,000977: 34,3147 45261 SR DSU
022592,000978: 34,3150 20613 10D
022593,000979: 34,3151 03466 N49DISP
022594,000980: 34,3152 67240 BMN SLOAD
022595,000981: 34,3153 71322 RENDISP # BRANCH IF POS UP.GREATER THAN MAX.
022596,000982: 34,3154 02004 VMAX
022597,000983: 34,3155 50025 DSU BMN
022598,000984: 34,3156 03470 N49DISP +2
022599,000985: 34,3157 71322 RENDISP # BRANCH IF VEL.UPDATE GREATER THAN MAX.
022600,000986: 34,3160 77624 REND12 CALL
022601,000987: 34,3161 75155 INCORP2 # INCORPORATE UPDATE VALUES INTO STATE VEC
022602,000988: 34,3162 71214 BOFF DLOAD
022603,000989: 34,3163 02744 INCORFLG
022604,000990: 34,3164 71201 REND12A # BRANCH IF 1ST PASS OPTICS
022605,000991: 34,3165 01116 MARKTIME
022606,000992: 34,3166 03714 STORE OLDMKTME # SAVE OLD MARK TIME
022607,000993: 34,3167 67214 CLEAR SLOAD
022608,000994: 34,3170 05272 MANEUFLG # CLEAR MANEUVER FLAG
022609,000995: 34,3171 02554 COUNT3MK
022610,000996: 34,3172 45254 BZE DSU
022611,000997: 34,3173 71201 REND12A
022612,000998: 34,3174 07157 HIGH3 # CHECK IF 3 MARKS TAKEN
022613,000999: 34,3175 66240 BMN SSP
022614,001000: 34,3176 71217 REND13A # BRANCH IF NOT 3 YET
022615,001001: 34,3177 02554 COUNT3MK # SET COUNT EQUAL TO 0
022616,001002: 34,3200 00000 DEC 0 B-14
022617,001003: 34,3201 43014 REND12A BON BOFF
022618,001004: 34,3202 04707 SOURCFLG
022619,001005: 34,3203 71264 REND16 # BRANCH IF DATA IS RADAR
022620,001006: 34,3204 02744 INCORFLG
022621,001007: 34,3205 71272 REND17
022622,001008: 34,3206 45014 BON CALL
022623,001009: 34,3207 00707 VEHUPFLG
022624,001010: 34,3210 71300 REND18 # BRANCH IF CSM UPDATE
022625,001011: 34,3211 71313 LMPOS # GET LM POSITION
022626,001012: 34,3212 77624 REND13 CALL
022627,001013: 34,3213 57046 GRP2PC # PHASE CHANGE
022628,001014: 34,3214 77614 CLRGO
022629,001015: 34,3215 02624 INCORFLG
022630,001016: 34,3216 71014 REND7 # BRANCH FOR 2ND PASS THIS OPTICS MARK
022631,001017: 34,3217 77735 REND13A SLOAD
022632,001018: 34,3220 02554 COUNT3MK
022633,001019: 34,3221 37712 STCALL CNT3TEMP
022634,001020: 34,3222 57046 GRP2PC
022635,001021: 34,3223 62150 LXA,1 INCR,1
022636,001022: 34,3224 03711 CNT3TEMP
022637,001023: 34,3225 00001 DEC 1 B-14 # ADD ONE TO MARK COUNT
022638,001024: 34,3226 52130 SXA,1 GOTO
022639,001025: 34,3227 02553 COUNT3MK
022640,001026: 34,3230 71201 REND12A
022641,001027: 30,2000 SETLOC P20S1
022642,001028: 30,2000 BANK
022643,001029:
022644,001030: 30,2130 COUNT* $$/R22
022645,001031: 30,2130 45020 UPSTATE STQ CALL # INTEGRATE NON-UPDATED VEHICLE STATE
022646,001032: 30,2131 01001 POINTEX # VECTOR
022647,001033: 30,2132 56356 SETINTG # SET INTEGRV FLAGS VINTFLAG=1 FOR CSM
022648,001034: 30,2133 43014 BOFF CLEAR
022649,001035: 30,2134 00747 VEHUPFLG # 0=LM 1=CSM FOR UPDATE VEHICLE
022650,001036: 30,2135 60137 REND4A # INTEGRATE CSM
022651,001037: 30,2136 01674 VINTFLAG # INTEGRATE LM
022652,001038: 30,2137 77624 REND4A CALL
022653,001039: 30,2140 11460 INTEGRV
022654,001040: 30,2141 77624 CALL
022655,001041: 30,2142 57046 GRP2PC # PHASE CHANGE
022656,001042: 30,2143 77624 CALL # INTEGRATE UPDATED VEHICLE
022657,001043: 30,2144 56356 SETINTG # SET INTEGRV FLAGS VINTFLAG=1 FOR CSM
022658,001044: 30,2145 43014 BOFF SET
022659,001045: 30,2146 02756 RENDWFLG
022660,001046: 30,2147 60151 REND5 # IF FLAG=0 DO NOT INTEGRATE W MATRIX
022661,001047: 30,2150 01476 DIM0FLAG # INTEGRATE VALID W MATRIX
022662,001048: 30,2151 43014 REND5 BON CLEAR
022663,001049: 30,2152 00707 VEHUPFLG
022664,001050: 30,2153 60155 REND5A # INTEGRATE CSM
022665,001051: 30,2154 01674 VINTFLAG # INTEGRATE LM
022666,001052: 30,2155 77624 REND5A CALL
022667,001053: 30,2156 11460 INTEGRV
022668,001054: 30,2157 77650 GOTO
022669,001055: 30,2160 01001 POINTEX
022670,001056: 34,2000 SETLOC P20S3
022671,001057: 34,2000 BANK
022672,001058:
022673,001059: 34,3231 COUNT* $$/R22
022674,001060: 34,3231 27466 REND14 STOVL BVECTOR # VHF RADAR BVECTOR
022675,001061: 34,3232 15204 ZEROVECS
022676,001062: 34,3233 27474 STOVL BVECTOR +6
022677,001063: 34,3234 03507 RCLP
022678,001064: 34,3235 71256 UNIT DLOAD
022679,001065: 34,3236 01122 VHFRANGE # VHFRANGE SCALED B-27
022680,001066: 34,3237 77702 SR2
022681,001067: 34,3240 43025 DSU SET
022682,001068: 34,3241 00045 36D # ABVAL (RCLP)
022683,001069: 34,3242 02464 INCORFLG
022684,001070: 34,3243 03502 STORE DELTAQ
022685,001071: 34,3244 77214 BOFF VLOAD
022686,001072: 34,3245 00747 VEHUPFLG
022687,001073: 34,3246 71252 REND14A
022688,001074: 34,3247 03466 BVECTOR
022689,001075: 34,3250 77676 VCOMP
022690,001076: 34,3251 03466 STORE BVECTOR
022691,001077: 34,3252 77624 REND14A CALL
022692,001078: 34,3253 57046 GRP2PC
022693,001079: 34,3254 52145 DLOAD GOTO
022694,001080: 34,3255 01743 RVAR
022695,001081: 34,3256 71062 REND10
022696,001082: 34,3257 43335 REND15 SLOAD DAD # GET ALT LOS VARIANCE
022697,001083: 34,3260 01756 ALTVAR # BACKUP OPTICS
022698,001084: 34,3261 16355 IMUVAR # IMU VARIANCE
022699,001085: 34,3262 77650 GOTO
022700,001086: 34,3263 71062 REND10
022701,001087: 34,3264 62150 REND16 LXA,1 INCR,1
022702,001088: 34,3265 00764 VHFCNT # VHF RADAR UPDATE COUNT
022703,001089: 34,3266 00001 DEC 1 B-14
022704,001090: 34,3267 52130 SXA,1 GOTO
022705,001091: 34,3270 00764 VHFCNT # UPDATE COUNT
022706,001092: 34,3271 71352 RENDISP3
022707,001093: 34,3272 62150 REND17 LXA,1 INCR,1
022708,001094: 34,3273 00765 TRKMKCNT # OPTICS MARK COUNT
022709,001095: 34,3274 00001 DEC 1 B-14
022710,001096: 34,3275 52130 SXA,1 GOTO
022711,001097: 34,3276 00765 TRKMKCNT # UPDATE COUNT
022712,001098: 34,3277 71352 RENDISP3
022713,001099: 34,3300 77624 REND18 CALL
022714,001100: 34,3301 71304 CMPOS # GET CSM POSITION
022715,001101: 34,3302 77650 GOTO
022716,001102: 34,3303 71212 REND13
022717,001103: 34,2000 SETLOC P20S3
022718,001104: 34,2000 BANK
022719,001105:
022720,001106: 34,3304 COUNT* $$/R22
022721,001107: 34,3304 54375 CMPOS VLOAD VSR
022722,001108: 34,3305 01573 DELTACSM
022723,001109: 34,3306 20610 7
022724,001110: 34,3307 77655 VAD
022725,001111: 34,3310 01607 RCVCSM
022726,001112: 34,3311 01040 STORE CSMPOS # CSM POSITION SCALED B-27 OR B-29
022727,001113: 34,3312 77616 RVQ
022728,001114: 34,3313 54375 LMPOS VLOAD VSR
022729,001115: 34,3314 01645 DELTALEM
022730,001116: 34,3315 20610 7
022731,001117: 34,3316 77655 VAD
022732,001118: 34,3317 01661 RCVLEM
022733,001119: 34,3320 01046 STORE LEMPOS # LM POSITION SCALED B-27 OR B-29
022734,001120: 34,3321 77616 RVQ
022735,001121: 34,2000 SETLOC P20S3
022736,001122: 34,2000 BANK
022737,001123:
022738,001124: 34,3322 COUNT* $$/R22
022739,001125: 34,3322 77776 RENDISP EXIT
022740,001126: 34,3323 35003 CAF ZERO # SET TEMPOR1 > ZERO TO INDICATE
022741,001127: 34,3324 55125 TS TEMPOR1 # V06 N49 DISPLAY HASNT BEEN ANSWERED
022742,001128: 34,3325 05415 TC PHASCHNG
022743,001129: 34,3326 04022 OCT 04022
022744,001130: 34,3327 37651 CAF PRIO27 # SET UP DISPLAY JOB WITH HIGHER PRIORITY
022745,001131: 34,3330 05134 TC NOVAC
022746,001132: 34,3331 E7,1702 EBANK= MRKBUF1 # THAN PRESENT JOB
022747,001133: 34,3331 03343 70067 2CADR RENDISP2
022748,001134:
022749,001135: 34,3333 06006 RENDISP7 TC INTPRET
022750,001136: 34,3334 00155 STORE MPAC
022751,001137: 34,3335 53135 SLOAD BZE
022752,001138: 34,3336 01126 TEMPOR1
022753,001139: 34,3337 71334 RENDISP7 +1 # DISPLAY HAS NOT BEEN ANSWERED YET
022754,001140: 34,3340 52040 BMN GOTO
022755,001141: 34,3341 71160 REND12 # NEG INDICATES PROCEED
022756,001142: 34,3342 71352 RENDISP3 # POS INDICATES RECYCLE
022757,001143: 34,3343 35043 RENDISP2 CAF V06N49
022758,001144: 34,3344 04647 TC BANKCALL
022759,001145: 34,3345 20633 CADR PRIODSP
022760,001146: 34,3346 04557 TC GOTOV56 # TERM EXIT P20 VIA V56
022761,001147: 34,3347 45001 CS ONE # NEG INDICATES PROCEED RENDISP7 JOB
022762,001148: 34,3350 55125 TS TEMPOR1 # POS INDICATES RECYCLE RENDISP7 JOB
022763,001149: 34,3351 05220 TC ENDOFJOB # GO COMPLETE ABOVE JOB
022764,001150: 34,3352 77624 RENDISP3 CALL
022765,001151: 34,3353 57046 GRP2PC
022766,001152: 34,3354 43014 CLEAR CLEAR # RESET FLAGS
022767,001153: 34,3355 04670 R22CAFLG
022768,001154: 34,3356 05263 REJCTFLG
022769,001155: 34,3357 52014 BON GOTO
022770,001156: 34,3360 04707 SOURCFLG
022771,001157: 34,3361 70630 REND1 # DATA WAS RADAR GO LOOK FOR OPTICS NEXT
022772,001158: 34,3362 70661 REND3
022773,001159:
022774,001160: 34,3363 05605 RANGERD1 TC TRFAILOF # TURN TRACKER LIGHT OFF
022775,001161: 34,3364 11663 CCS RM # 15 BIT UNSIGNED RANGE
022776,001162: 34,3365 03371 TC RANGERD4 # GR + 0
022777,001163: 34,3366 03437 TC LIGHTON +4 # = + 0
022778,001164: 34,3367 03421 TC RANGERD3 # L - 0
022779,001165: 34,3370 03421 TC RANGERD3 # = - 0
022780,001166: 34,3371 06006 RANGERD4 TC INTPRET
022781,001167: 34,3372 41335 SLOAD DMP
022782,001168: 34,3373 03664 RM
022783,001169: 34,3374 16437 CONVRNGE # CONVERT RANGE TO METERS B-27
022784,001170: 34,3375 01122 RANGERD7 STORE VHFRANGE
022785,001171: 34,3376 77702 SR2
022786,001172: 34,3377 57414 BOFF DCOMP
022787,001173: 34,3400 05346 EXTRANGE
022788,001174: 34,3401 71415 RANGERD8
022789,001175: 34,3402 45215 DAD DSU
022790,001176: 34,3403 02177 R63RANGE
022791,001177: 34,3404 31414 VHFMODLO
022792,001178: 34,3405 71240 BMN DLOAD
022793,001179: 34,3406 71415 RANGERD8
022794,001180: 34,3407 01122 VHFRANGE
022795,001181: 34,3410 52015 DAD GOTO
022796,001182: 34,3411 32001 328NM
022797,001183: 34,3412 71375 RANGERD7
022798,001184:
022799,001185: 34,3413 00020 36450 VHFMODLO 2DEC 555600 B-29
022800,001186:
|
|
The name of the following label is a guess.
|
022802,001188: 34,3415 77776 RANGERD8 EXIT
022803,001189: 34,3416 30363 CA RREADRET
022804,001190: 34,3417 24000 INCR A
022805,001191: 34,3420 04671 TC BANKJUMP
022806,001192:
022807,001193: 23,2000 SETLOC P20S2
022808,001194: 23,2000 BANK
022809,001195:
022810,001196: 23,3046 COUNT* $$/R22
022811,001197:
022812,001198: 23,3046 67214 AUTOW BON SLOAD
022813,001199: 23,3047 05312 MANEUFLG # MANEUVER DONE IF SET
022814,001200: 23,3050 47160 AUTOW3
022815,001201: 23,3051 02554 COUNT3MK # COUNT OF MARKS SINCE W REINITIALIZED
022816,001202: 23,3052 52054 BZE GOTO
022817,001203: 23,3053 47055 AUTOW1A
022818,001204: 23,3054 47151 AUTOW2
022819,001205: 23,3055 77614 AUTOW1A BOFF
022820,001206: 23,3056 05354 TPIMNFLG # NOT AFTER TPI
022821,001207: 23,3057 47064 AUTOW1 # NOT AFTER TPI
022822,001208: 23,3060 52014 BOFF GOTO
022823,001209: 23,3061 05347 P35FLAG
022824,001210: 23,3062 47151 AUTOW2
022825,001211: 23,3063 70774 REND5C
022826,001212: 23,3064 71201 AUTOW1 SETPD DLOAD # PUT TIG
022827,001213: 23,3065 00001 0 # OR
022828,001214: 23,3066 03413 TIG # TCDH IF P. C.
022829,001215: 23,3067 71214 BOFF DLOAD
022830,001216: 23,3070 05356 PCFLAG # PUSH LIST 0
022831,001217: 23,3071 47073 AUTOW11
022832,001218: 23,3072 02461 TCDH
022833,001219: 23,3073 67206 AUTOW11 PUSH SLOAD # PD 0,1 = TIG OR TCDH IF P C
022834,001220: 23,3074 02241 WRDTIME
022835,001221: 23,3075 67206 PUSH SLOAD # PD 2,3 = WRDTIME
022836,001222: 23,3076 02242 MINBLKTM
022837,001223: 23,3077 67206 PUSH SLOAD # PD 4,5 = MINBLKTM
022838,001224: 23,3100 02243 TBEFCOMP
022839,001225: 23,3101 67206 PUSH SLOAD # PD 6,7 = TBEFCOMP
022840,001226: 23,3102 02244 BRNBLKTM
022841,001227: 23,3103 67206 PUSH SLOAD # PD 8,9 = BRNBLKTM
022842,001228: 23,3104 02245 MAXWTIME
022843,001229: 23,3105 67206 PUSH SLOAD # PD 10,11 == MAXWTIME
022844,001230: 23,3106 02246 FINCMPTM
022845,001231: 23,3107 71206 PUSH DLOAD # PD 12,13 = FINCMPTM
022846,001232: 23,3110 01116 MARKTIME
022847,001233: 23,3111 45225 DSU DSU
022848,001234: 23,3112 00003 2 # WRDTIME
022849,001235: 23,3113 03716 AGEOFW
022850,001236: 23,3114 71240 BMN DLOAD
022851,001237: 23,3115 47151 AUTOW2 # AGEOFW GR WRDTIME
022852,001238: 23,3116 03714 OLDMKTME
022853,001239: 23,3117 43225 DSU DAD
022854,001240: 23,3120 01116 MARKTIME # MARK TIME
022855,001241: 23,3121 00005 4 # MINBLKTM
022856,001242: 23,3122 71240 BMN DLOAD
022857,001243: 23,3123 47170 AUTOW4 # (TIME - OLDMKTME) GR MIN
022858,001244: 23,3124 01116 MARKTIME
022859,001245: 23,3125 51025 DSU BPL
022860,001246: 23,3126 00001 0D # TIG
022861,001247: 23,3127 47174 AUTOW5 # REINITIALIZE - TIG IS IN THE PAST
022862,001248: 23,3130 77615 DAD
022863,001249: 23,3131 00015 12D # FINCMPTM
022864,001250: 23,3132 50015 DAD BMN
022865,001251: 23,3133 00007 6D # TBEFCOMP
022866,001252: 23,3134 47174 AUTOW5 # (FINCMPTM - TIME) GR TBEFCOMP
022867,001253: 23,3135 43345 DLOAD DAD
022868,001254: 23,3136 00001 0
022869,001255: 23,3137 07154 3MINCON # 3 MIN CONSTANT (APPROX)
022870,001256: 23,3140 43225 DSU DAD
022871,001257: 23,3141 00015 12D # FINCMPTM
022872,001258: 23,3142 00011 8D # BRNBLKTM
022873,001259: 23,3143 45225 DSU DSU
022874,001260: 23,3144 03716 AGEOFW
022875,001261: 23,3145 00013 10D # MAXWTIME
022876,001262: 23,3146 43040 BMN SET
022877,001263: 23,3147 47151 AUTOW2 # FINCOM + BRNBLK+3MIN+AGE GR MAXWTIME
022878,001264: 23,3150 05073 PTV93FLG # POST BURN V93 REQUEST FLAG
022879,001265: 23,3151 77650 AUTOW2 GOTO
022880,001266: 23,3152 70771 REND5B
022881,001267: 23,3153 00001 3MINCON DEC 1.0 B-14 # 2.74 MIN
022882,001268: 23,3154 00002 00000 HIGH2 2DEC 2.0 B-14
022883,001269: 23,3156 00003 00000 HIGH3 2DEC 3.0 B-14
022884,001270:
022885,001271: 23,2000 SETLOC P20S5
022886,001272: 23,2000 BANK
022887,001273:
022888,001274: 23,3160 COUNT* $$/R22
022889,001275: 23,3160 43014 AUTOW3 BON BOFF
022890,001276: 23,3161 05313 PTV93FLG
022891,001277: 23,3162 70774 REND5C
022892,001278: 23,3163 05354 TPIMNFLG
022893,001279: 23,3164 47170 AUTOW4
022894,001280: 23,3165 77614 BOFF
022895,001281: 23,3166 05355 FULTKFLG
022896,001282: 23,3167 70774 REND5C # BRANCH IF VHF AND OPTICS MARKING
022897,001283: 23,3170 52131 AUTOW4 SSP GOTO
022898,001284: 23,3171 02554 COUNT3MK # SET 3 MARK COUNTER EQ 1
022899,001285: 23,3172 00001 DEC 1 B-14
022900,001286: 23,3173 47151 AUTOW2 # BYPASS REINITIALIZING W MATRIX
022901,001287: 23,3174 52014 AUTOW5 CLEAR GOTO
022902,001288: 23,3175 05273 PTV93FLG
022903,001289: 23,3176 70774 REND5C
022904,001290:
022905,001291: 27,2000 SETLOC R22S1
022906,001292: 27,2000 BANK
022907,001293:
022908,001294: 27,2352 COUNT* $$/R22
022909,001295: 27,2352 00052 36307 SXTVAR 2DEC 0.04 E-6 B+16 # SXT ERROR VARIANCE = .04 (MR)SQ
022910,001296: 27,2354 00052 36307 IMUVAR 2DEC 0.04 E-6 B+16 # IMU ERROR VARIANCE = .04 (MR)SQ
022911,001297: 27,2356 45020 SETINTG STQ CALL
022912,001298: 27,2357 02200 EGRESS
022913,001299: 27,2360 11720 INTSTALL # RESERVE INTEGRATION
022914,001300: 27,2361 43145 DLOAD SET
022915,001301: 27,2362 01116 MARKTIME
022916,001302: 27,2363 01472 STATEFLG
022917,001303: 27,2364 00041 STORE TDEC1 # MARKTIME
022918,001304: 27,2365 43014 CLEAR CLEAR
022919,001305: 27,2366 01673 INTYPFLG # PRECISION INTEGRATION
022920,001306: 27,2367 01676 DIM0FLAG
022921,001307: 27,2370 77614 SETGO
022922,001308: 27,2371 01434 VINTFLAG # SET VEHICLE EQ. CSM
022923,001309: 27,2372 02200 EGRESS # EXIT
022924,001310: 27,2373 43014 CONTCHK BOFF BOFF
022925,001311: 27,2374 00350 RNDVZFLG
022926,001312: 27,2375 31222 ENDPLAC
022927,001313:
022928,001314: 27,2376 01742 REFSMFLG # BRANCH TO END OF JOB IF REFSMMAT NO GOOD
022929,001315: 27,2377 31222 ENDPLAC
022930,001316: 27,2400 67214 BOFF SLOAD # IS TRACK FLAG SET
022931,001317: 27,2401 00752 TRACKFLG
022932,001318: 27,2402 31222 ENDPLAC
022933,001319: 27,2403 03377 R61CNTR
022934,001320: 27,2404 43040 BMN BOFF
022935,001321: 27,2405 56427 WAITONE1
022936,001322: 27,2406 05743 R27FLAG
022937,001323: 27,2407 56415 SKIPR27
022938,001324: 27,2410 77624 CALL
022939,001325: 27,2411 60512 R27GO
022940,001326: 27,2412 77614 BON
022941,001327: 27,2413 05711 SNAPFLAG
022942,001328: 27,2414 56427 WAITONE1
|
|
The name of the following label is a guess.
|
022944,001330: 27,2415 77414 SKIPR27 BON EXIT
022945,001331: 27,2416 00710 UPDATFLG
022946,001332: 27,2417 01001 POINTEX
022947,001333: 27,2420 05415 REDOR22 TC PHASCHNG
022948,001334: 27,2421 00132 OCT 00132
022949,001335: 27,2422 01,2047 2P13SPT1 = 2.13SPOT
022950,001336: 27,2422 37650 CAF PRIO26
022951,001337: 27,2423 05211 TC PRIOCHNG
022952,001338: 27,2424 12430 TCF WAITONE1 +1
022953,001339:
022954,001340: 27,2425 77620 WAITONE STQ
022955,001341: 27,2426 01001 POINTEX
022956,001342: 27,2427 77776 WAITONE1 EXIT
022957,001343: 27,2430 35033 +1 CAF 4SECS # WAIT 4 SECS.
022958,001344: 27,2431 04647 TC BANKCALL
022959,001345: 27,2432 01731 CADR DELAYJOB
022960,001346: 27,2433 06006 TC INTPRET
022961,001347: 27,2434 77650 GOTO
022962,001348: 27,2435 56373 CONTCHK # CHECK AGAIN NOW
022963,001349: 34,2000 SETLOC P20S3
022964,001350: 34,2000 BANK
022965,001351:
022966,001352: 34,3421 COUNT* $$/R22
022967,001353: 34,3421 31663 RANGERD3 CA RM
022968,001354: 34,3422 74761 MASK POSMAX
022969,001355: 34,3423 54154 TS MPAC # MASK OUT NEG. SIGN BIT
022970,001356: 34,3424 06006 TC INTPRET
022971,001357: 34,3425 41335 SLOAD DMP
022972,001358: 34,3426 00155 MPAC # CLEAR MPAC +1
022973,001359: 34,3427 16437 CONVRNGE # CONVERT FROM NM TO METERS AND SCALE B-27
022974,001360: 34,3430 52015 DAD GOTO
022975,001361: 34,3431 16437 CONVRNGE # VALUE IN METERS OF SIGN BIT SCALED B-27
022976,001362: 34,3432 71375 RANGERD7
022977,001363: 34,3433 31121 LIGHTON CA VHFRANGE
022978,001364: 34,3434 00006 EXTEND
022979,001365: 34,3435 13437 BZF +2
022980,001366: 34,3436 05617 TC TRFAILON
022981,001367: 34,3437 30363 CA RREADRET
022982,001368: 34,3440 04671 TC BANKJUMP
022983,001369: 34,3441 5010 OCT17 EQUALS LOW4
022984,001370: 27,2000 SETLOC R22S1
022985,001371: 27,2000 BANK
022986,001372:
022987,001373: 27,2436 COUNT* $$/R22
022988,001374: 27,2436 00045 01217 CONVRNGE 2DEC 18.52 B-13 # VHF INPUT RANGE CONV.FROM.01 NM TO M
022989,001375: # AND 16384 X 18.52 = METERS FOR SIGN BIT
022990,001376: 27,2440 00006 VHFREAD EXTEND
022991,001377: 27,2441 04007 ROR SUPERBNK # MUST SAVE SBANK BECAUSE OF RUPT
022992,001378: 27,2442 54016 TS BANKRUPT # EXITS VIA RESUME, LIGHTON, RANGERD1
022993,001379: 27,2443 00006 EXTEND
022994,001380: 27,2444 22012 QXCH QRUPT
022995,001381: 27,2445 40076 CS FLAGWRD2
022996,001382: 27,2446 74770 MASK SKIPVBIT # SKIPVHF FLAG
022997,001383: 27,2447 00006 EXTEND
022998,001384: 27,2450 15336 BZF RESUME # BRANCH IF VHF RESTART BIT SET
022999,001385: 27,2451 30046 CA RNRAD
023000,001386: 27,2452 55663 TS RM # SAVE RANGE
023001,001387: 27,2453 35000 CAF BIT2
023002,001388: 27,2454 00006 EXTEND
023003,001389: 27,2455 02033 RAND CHAN33 # READ DATA GOOD BIT
023004,001390: 27,2456 00006 EXTEND
023005,001391: 27,2457 12464 BZF VHFGOOD # BRANCH IF DATA GOOD BIT EQUALS GOOD
023006,001392: 27,2460 55121 BYPASS TS VHFRANGE # STORE NON ZERO VALUE
023007,001393: 27,2461 00006 EXTEND
023008,001394: 27,2462 32477 DCA LITONCAD
023009,001395: 27,2463 12466 TCF VHFGOOD +2
023010,001396:
023011,001397: 27,2464 00006 VHFGOOD EXTEND
023012,001398: 27,2465 32501 DCA RNGRDCAD
023013,001399: 27,2466 52073 +2 DXCH RUPTREG3
023014,001400:
023015,001401: 27,2467 30363 CA RREADRET
023016,001402: 27,2470 05202 TC JOBWAKE
023017,001403:
023018,001404: 27,2471 00006 EXTEND
023019,001405: 27,2472 30073 DCA RUPTREG3
023020,001406: 27,2473 50064 INDEX LOCCTR
023021,001407: 27,2474 52165 DXCH LOC
023022,001408:
023023,001409: 27,2475 05336 TC RESUME
023024,001410:
|
|
The names of the following two constants are guesses.
|
023026,001412: 27,2476 E7,1702 EBANK= MRKBUF1
023027,001413: 27,2476 03433 70067 LITONCAD 2CADR LIGHTON
023028,001414:
023029,001415: 27,2500 E7,1702 EBANK= MRKBUF1
023030,001416: 27,2500 03363 70067 RNGRDCAD 2CADR RANGERD1
023031,001417:
023032,001418:
023033,001419: 27,2502 66370 INITIALW AXT,1 SSP
023034,001420: 27,2503 00044 36D
023035,001421: 27,2504 00051 S1
023036,001422: 27,2505 00006 6
023037,001423: 27,2506 77775 VLOAD
023038,001424: 27,2507 15204 ZEROVECS
023039,001425: 27,2510 06445 INITA STORE W +36D,1 # CLEAR 0 - 35
023040,001426: 27,2511 06533 STORE W +90D,1 # CLEAR 54-89
023041,001427: 27,2512 67300 TIX,1 SLOAD
023042,001428: 27,2513 56510 INITA
023043,001429: 27,2514 00001 0 # POSITION VALUE
023044,001430: 27,2515 02401 STORE W # INITIALIZE DIAGONAL W POSITION
023045,001431: 27,2516 02411 STORE W +8D
023046,001432: 27,2517 02421 STORE W +16D
023047,001433: 27,2520 77735 SLOAD
023048,001434: 27,2521 00002 1 # VELOCITY VALUE
023049,001435: 27,2522 02511 STORE W +72D # INITIALIZE DIAGONAL W VELOCITY
023050,001436: 27,2523 02521 STORE W +80D
023051,001437: 27,2524 02531 STORE W +88D
023052,001438: 27,2525 77616 RVQ
023053,001439:
023054,001440:
023055,001441: # STALL ROUTINE FOR USERS OF CHANNEL 13.
023056,001442:
023057,001443:
023058,001444: 4000 SETLOC FFTAG12
023059,001445: 4000 BANK
023060,001446:
023061,001447: 4553 COUNT* $$/CHN13
023062,001448: 4553 34765 C13STALL CAF PRIO10 # = BANK 04
023063,001449: 4554 56004 XCH FBANK
023064,001450: 4555 54071 TS RUPTREG2
023065,001451: 4556 13075 TCF C13STAL1
023066,001452: 04,2000 SETLOC C13BANK
023067,001453: 04,2000 BANK
023068,001454:
023069,001455: 04,3075 COUNT* $$/CHN13
023070,001456: 04,3075 34776 C13STAL1 CAF BIT4
023071,001457: 04,3076 00006 EXTEND
023072,001458: 04,3077 02013 RAND CHAN13
023073,001459: 04,3100 00006 EXTEND
023074,001460: 04,3101 13122 BZF TCQSTAL # NO RADAR ACTIVITY. OK TO WRITE.
023075,001461:
023076,001462: 04,3102 13103 C13SLOOP NOOP # TO PREVENT TC TRAP
023077,001463: 04,3103 00006 EXTEND
023078,001464: 04,3104 00004 READ LOSCALAR
023079,001465: 04,3105 61117 AD RADTIME # COMPUTE DELTA T SINCE LAST RADAR READ
023080,001466: 04,3106 64764 AD HALF
023081,001467: 04,3107 64764 AD HALF # FOR OVERFLOW
023082,001468: 04,3110 56001 XCH L
023083,001469:
023084,001470: 04,3111 33125 CA 90MSCALR
023085,001471: 04,3112 61120 AD RADDEL
023086,001472: 04,3113 00006 EXTEND
023087,001473: 04,3114 60001 SU L
023088,001474:
023089,001475: 04,3115 00006 EXTEND
023090,001476: 04,3116 63122 BZMF TCQSTAL # GR THAN 90 MS. OK
023091,001477:
023092,001478: 04,3117 63126 AD -DTSCALR
023093,001479: 04,3120 00006 EXTEND
023094,001480: 04,3121 63102 BZMF C13SLOOP # IN FORBIDDEN PERIOD. LOOP UNTIL OK
023095,001481:
023096,001482: 04,3122 30071 TCQSTAL CA RUPTREG2
023097,001483: 04,3123 22002 LXCH Q
023098,001484: 04,3124 52005 DTCF
023099,001485:
023100,001486: 04,3125 00440 90MSCALR OCT 440 # 90 MILLISEC IN SCALAR
023101,001487: 04,3126 77754 -DTSCALR OCT 77754 # -5.9375 MS IN SCALAR
023102,001488:
023103,001489: # CRS61.1 4/10/68
023104,001490: # TO COMPUTE THE PREFERRED TRACKING ATTITUDE OF THE CSM WHICH ENABLES
023105,001491: # OPTICS TRACKING OF THE LM AND LM TRACKING OF THE CSM RADAR TRANSPONDER
023106,001492: # AND TO COMPUTE THE &X-AXIS TRACKING ATTITUDE OF THE CSM WHICH ENABLES
023107,001493: # COAS TRACKING OF THE LM.
023108,001494: # TO PERFORM THE MANEUVER TO THE SELECTED TRACKING ATTITUDE IF THE
023109,001495: # MANEUVER IS LESS THAN 10 DEGREES BUT TO CALL R60 IF THE MANEUVER IS
023110,001496: # GREATER THAN 10 DEGREES OR IF THE R60FLAG IS SET.
023111,001497: # (1) EXTRAPOLATE LM AND CSM STATE VECTORS TO PRESENT TIME USING
023112,001498: # CONIC EQUATIONS.
023113,001499:
023114,001500: # (2) CALCULATE LOS FROM CSM TO LM = RL - RC.
023115,001501:
023116,001502: # (3) THE PREFERRED TRACKING ATTITUDE IS DEFINED AS FOLLOWS:
023117,001503: # THE TRACK AXIS (I) IS ALIGNED ALONG THE LOS TO THE LM. THE
023118,001504: # TRACK AXIS (I) IS DEFINED AS:
023119,001505:
023120,001506: # UNIT(I)=UNIT(Z )COS55 &UNIT(X )SIN55
023121,001507: # - -SC -SC
023122,001508: # (4) COMPUTE DESIRED CDU ANGLES, USING VECPOINT.
023123,001509: # (7) FORM DIFFERENCE BETWEEN DESIRED AND ACTUAL CDUS.
023124,001510: # IF ANY OF THE THREE ANGLE DIFFERENCES EXCEEDS 10 DEGREES,
023125,001511: # GROSS MANEUVER IS REQUIRED. SIGNAL R61 (SET MPAC=1) TO
023126,001512: # OPERATE KALCMANU AND EXIT CRS61.1.
023127,001513: # IF ALL DIFFERENCES ARE LESS THAN 10 DEGREES, CONTINUE.
023128,001514:
023129,001515: # (8) CALCULATE ORTHOGONAL LOS RATE IN REF COORDS AS
023130,001516:
023131,001517: # OMEGATH = (UNITLOS(B1) X UNITDV(B1))(ABSDV(B7)/ABSLOS(B29))
023132,001518: # CONVERSION FACTOR OF 100/2PI (B4) REV CSEC PER RAD SEC IS
023133,001519: # APPLIED TO YIELD UNITS OF REVS/SEC. SCALE IS CARRIED AS
023134,001520: # B+1+1+7-29+4+1 PLUS RESULTS OF NORMALIZING ABSDV, ABSLOS.
023135,001521: # THE EXTRA B+1 RESULTS FROM RESCALING ABSDV B8 AFTER NORM
023136,001522: # TO AVOID OVFLOW ON DIVIDE.
023137,001523:
023138,001524: # UNITLOS = UNIT( RL - RC) B1.
023139,001525: # UNITDY = UNIT( VL - VC) B1.
023140,001526: # ABSLOS = LENGTH OF LOS, METERS B29.
023141,001527: # ABSDV = LENGTH OF DV , METERS/CSEC B7.
023142,001528:
023143,001529: # (9) OBTAIN RATE IN SM COORDS.
023144,001530:
023145,001531: # OMEGATHSM = (REFSMMAT)(OMEGATH).
023146,001532:
023147,001533: # (10)OBTAIN GIMBAL ANGLE INCREMENTS FOR 0.1 SECOND.
023148,001534:
023149,001535: # DTHETASM = (0.1)(OMEGATHSM)
023150,001536:
023151,001537: # (11)OBTAIN DELCDUX,Y,Z USING SUBR SMCDURES.
023152,001538: # INPUT CONSISTS OF
023153,001539:
023154,001540: # (A) VECTOR OF ANGULAR INCREMENTS, DTHETASM, STORED
023155,001541: # IN V(DTHETASM).
023156,001542:
023157,001543: # (B) SIN,COS CDUX,Y,Z FROM SUBR CDUTRIG.
023158,001544:
023159,001545: # TRANSFER OUTPUT OF SMCDURES FROM V(DCDU) TO VAC14D.
023160,001546:
023161,001547: # (12)CALCULATE ANG LOS RATE IN BODY(NB) COORDS USING SUBR SMNB.
023162,001548:
023163,001549: # OMEGANB = (SMNB)(OMEGATHSM)
023164,001550:
023165,001551: # SUBR SMNB REQUIRES OMEGATHSM IN V(VAC32D) AND ACTUAL CDUS
023166,001552: # (Y,X,Z ORDER) IN V(VAC20D) WITH S1 OF VAC = BASE ADDRESS
023167,001553: # OF CDUS (FIXLOC + 20D).
023168,001554:
023169,001555: # (13)CALCULATE ANG LOS RATE IN CONTROL COORDS AS FOLLOWS
023170,001556:
023171,001557: # WBODY = (MBDYTCTL)(OMEGANB) UNITS=REVS/SEC(B0).
023172,001558:
023173,001559: # ( 0.5 0 0 ) BODY TO
023174,001560: # MBDYTCTL(B1) = ( 0 COS(7.25)B1 -SIN(7.25)B1 )=CONTROL
023175,001561: # ( 0 SIN(7.25)B1 COS(7.25)B1 ) AXES
023176,001562: # CONVERSION
023177,001563: # MATRIX
023178,001564:
023179,001565: # (14)RESCALE WBODY TO UNITS OF 450 DEG/SEC BY APPLYING FACTOR
023180,001566: # OF 0.8 TO REVS/SEC.
023181,001567:
023182,001568: # (15)ADDRESS LIVE AUTOPILOT REGISTERS IN BASIC (UNDER INHINT).
023183,001569:
023184,001570: # TRANSFER DESIRED CDUS, SCALED 180 DEGREES, FROM T(SAVEDCDU)
023185,001571: # TO V(CDUXD).
023186,001572: # TRANSFER DELCDUS, SCALED 180 DEG, FROM V(VAC14D)
023187,001573: # TO V(DELCDUX).
023188,001574: # TRANSFER OMEGA CONTROL, SCALED 450 DEG/SEC, FROM V(MPAC)
023189,001575: # TO V(WBODY).
023190,001576: # RELINT, SET MPAC=0, EXIT CRS61.1
023191,001577:
023192,001578: # CALL L CALL CRS61.1
023193,001579:
023194,001580: # RETURNS ALL TO L+1.
023195,001581:
023196,001582: # (1) S(MPAC)=0. NORMAL EXIT. 3 SETS OF INPUTS FED TO DAP.
023197,001583: # (2) S(MPAC)=1. CALCULATED DESIRED CDUS,SP, SET IN T(CPHI)
023198,001584: # FOR KALCMANU. ABS(ACDU - DCDU) EXCEEDS 10 DEGREES.
023199,001585: # (3) S(MPAC)=2. GNCS AUTO MODE NOT SELECTED (BIT10=1).
023200,001586: # (4) S(MPAC)=3. DAP HOLD FLAG (HOLDFLAG) NOT EQUAL -1.
023201,001587:
023202,001588: # INPUT (1) TIME2,TIME1. COMPUTER CLOCK TIME,DP, CENTISEC B28.
023203,001589: # (2) CDUX,Y,Z. PRESENT CDU ANGLES,SP,2S COMPL HALF-REVS B0.
023204,001590: # (3) M(REFSMMAT),STABLE MEMBER COORDS B1.
023205,001591:
023206,001592: # OUTPUT NORMAL. EXIT WITH S(MPAC) = 0.
023207,001593:
023208,001594: # (1) CDUXD,CDUYD,CDUZD, DESIRED OUTER, INNER, MIDDLE CDU ANGLES,
023209,001595: # DP, 1S COMPL, SCALED 180 DEGREES (HALF-REVS B0).
023210,001596: # (2) DELCDUX,DELCDUY,DELCDUZ. 0.1 SEC DCU ANGULAR INCREMENTS,
023211,001597: # DP, 1S COMPL, SCALED 180 DEG.
023212,001598: # (3) WBODY,WBODY1,WBODY2. LOS ANGULAR RATE IN CONTROL COORDS,
023213,001599: # DP, 1S COMPL, SCALED 450 DEG/SEC.
023214,001600:
023215,001601: # SPECIAL. EXIT WITH S(MPAC) = 1.
023216,001602:
023217,001603: # (1) CPHI,CTHETA,CPSI. DESIRED OUTER, INNER, MIDDLE CDU ANGLES,
023218,001604: # SP, 2S COMPL, SCALED 180 DEGREES.
023219,001605:
023220,001606: # EXTERNAL SUBROUTINES USED (B)=BASIC
023221,001607:
023222,001608: # (1) CALCGA (5) LOADTIME(B) (9) SMNB
023223,001609: # (2) CDUTRIG (6) MATMOVE
023224,001610: # (3) CSMCONIC (7) RDCDUS(B)
023225,001611: # (4) LEMCONIC (8) SMCDURES
023226,001612:
023227,001613: # ERASABLE (1) S(Q611),EBANK7 CRS61.1 EXIT .
023228,001614: # (2) S(Q6111)EBANK7 CALCDCDU EXIT.
023229,001615: # (3) T(SAVEDCDU) E6 SP VECTOR OF CDUDS.
023230,001616: # (4) V(SAVEPOS) E7 CSM POS VEC AND D(SAVEPOS)= LENGTH OF LOS.
023231,001617: # (5) V(SAVEVEL) E7 CSM VEL VEC.
023232,001618:
023233,001619: # FLAGWDS HOLDFLAG. USED, NOT SET.
023234,001620:
023235,001621: # MISC (1) ERASABLE ITEMP1 USED TO TEMP STORE EBANK UNDER INHINT.
023236,001622: # (2) ERASABLE P21TIME USED AS TEMP STORE DURING CRS61.1
023237,001623: # (3) ERAS DTHETASM USED AS TEMP STORE DURING EARLY CRS61.1
023238,001624:
023239,001625: # DEBRIS - CURRENT VAC AREA, CRS61.1 ERASABLES, ITEMP1, P21TIME
023240,001626:
023241,001627: 34,2000 SETLOC P20S4
023242,001628: 34,2000 BANK
023243,001629:
023244,001630: 34,3441 E6,1677 EBANK= CDUXD
023245,001631: 34,3441 COUNT* $$/CRS61
023246,001632:
023247,001633: 34,3441 40220 CRS61.1 STQ SETPD
023248,001634: 34,3442 03664 Q611
023249,001635: 34,3443 00001 0
023250,001636: 34,3444 77751 TLOAD
023251,001637: 34,3445 03224 THETADX
023252,001638: 34,3446 03370 STORE THETTEMP
023253,001639: 34,3447 77634 RTB
023254,001640: 34,3450 45563 LOADTIME # LOAD CLOCK TIME2,1 INTO MPAC.
023255,001641:
023256,001642: 34,3451 36175 STORT STCALL R63TIME # STORE CLOCK TIME FOR SUBR R63
023257,001643: 34,3452 72010 R63 # SUBR TO CALC DCDU(T=PRESENT,PASS1)
023258,001644: 34,3453 77745 DLOAD
023259,001645: 34,3454 02175 R63TIME
023260,001646: 34,3455 02177 STORE R63RANGE
023261,001647: 34,3456 77414 SET EXIT
023262,001648: 34,3457 05066 EXTRANGE
023263,001649: 34,3460 05367 STEP2CK TC CHECKMM # CHECK MAJOR MODE = 27 (UPDATE PROG)
023264,001650: 34,3461 00033 MM 27 B-14
023265,001651: 34,3462 04415 TC UPACTOFF # NO TURN OFF UPLINK LITE
023266,001652: # YES LEAVE UPLINK AS IS
023267,001653: 34,3463 11330 CCS HOLDFLAG
023268,001654: 34,3464 03566 TC ASET # EXIT IF HOLDFLAG IS + NONZERO
023269,001655: 34,3465 03467 TC +2
023270,001656: 34,3466 03467 TC +1
023271,001657: 34,3467 40107 CS FLGWRD11
023272,001658: 34,3470 74772 MASK AZIMBIT
023273,001659: 34,3471 10000 CCS A
023274,001660: 34,3472 03513 TC NOAZFLG1 # AZIMFLAG NOT SET
023275,001661:
023276,001662: 34,3473 35000 CAF TWO # AZIMFLAG SET
023277,001663: 34,3474 55642 CDULOOP TS DTHETASM
023278,001664: 34,3475 51642 INDEX DTHETASM
023279,001665: 34,3476 31767 CA THETTEMP
023280,001666: 34,3477 00006 EXTEND
023281,001667: 34,3500 51642 INDEX DTHETASM
023282,001668: 34,3501 21277 MSU THETAD
023283,001669: 34,3502 54154 TS MPAC
023284,001670:
023285,001671: 34,3503 06006 TC INTPRET
023286,001672: 34,3504 45246 ABS DSU
023287,001673: 34,3505 16535 DEGREE10
023288,001674: 34,3506 77444 BPL EXIT
023289,001675: 34,3507 71574 STKTEST
023290,001676:
023291,001677: 34,3510 11642 CCS DTHETASM
023292,001678: 34,3511 03474 TC CDULOOP
023293,001679:
023294,001680: 34,3512 03553 TC AUTOCK
023295,001681:
023296,001682: 34,3513 31767 NOAZFLG1 CA THETTEMP
023297,001683: 34,3514 55165 TS CDUSPOT +4
023298,001684: 34,3515 31770 CA THETTEMP +1
023299,001685: 34,3516 55161 TS CDUSPOT
023300,001686: 34,3517 31771 CA THETTEMP +2
023301,001687: 34,3520 55163 TS CDUSPOT +2 # STORE IN CDUSPOT FOR TRG*NBSM
023302,001688: 34,3521 06006 TC INTPRET
023303,001689: 34,3522 45175 VLOAD CALL
023304,001690: 34,3523 03354 SCAXIS
023305,001691: 34,3524 47616 TRG*NBSM
023306,001692: 34,3525 50206 PUSH DOT # PD 0-5
023307,001693: 34,3526 03362 POINTVSM
023308,001694: 34,3527 50025 DSU BMN # BRANCH IF GR. 10 DEG.
023309,001695: 34,3530 16531 COSTEN
023310,001696: 34,3531 71574 STKTEST
023311,001697: 34,3532 47375 VLOAD VXV
023312,001698: 34,3533 00001 0 # SCAXIS IN S.M.
023313,001699: 34,3534 03362 POINTVSM
023314,001700: 34,3535 41561 VXSC PUSH # PD 6-11 B2
023315,001701: 34,3536 16534 DELTYME # 1/(DELTA TIME) B-2
023316,001702: 34,3537 45246 ABVAL DSU
023317,001703: 34,3540 16532 MAXRATE # .1 DEG. / SEC. B0
023318,001704: 34,3541 77240 BMN VLOAD # PUSH UP 6-11
023319,001705: 34,3542 71546 STEP2CKB # BRANCH IF LESS .1 DEG./SEC.
023320,001706: 34,3543 74256 UNIT VXSC
023321,001707: 34,3544 16532 MAXRATE
023322,001708: 34,3545 41572 VSL1 PUSH # PD 6-11 .1 DEG./SEC DISTRIBUTED
023323,001709: 34,3546 74375 STEP2CKB VLOAD VXSC
023324,001710: 34,3547 00007 6
023325,001711: 34,3550 16527 RADTOREV # RAD. TO REV. B0
023326,001712: 34,3551 03243 STORE DTHETASM # B0
023327,001713: 34,3552 77776 EXIT
023328,001714: 34,3553 37673 AUTOCK CAF FURST3 # BITS 15,14,13 OF CHAN31 = 011
023329,001715: 34,3554 05627 TC C31BTCHK # FOR AUTO AND G&N CONTROL
023330,001716: 34,3555 13556 TCF +1
023331,001717: 34,3556 67671 AD NEG30000
023332,001718: 34,3557 00006 EXTEND # AUTO MODE SELECTED (BITS 15-13=011)
023333,001719: 34,3560 13562 BZF DAPCK # YES-CONTINUE.
023334,001720: 34,3561 03566 TC ASET
023335,001721: 34,3562 40075 DAPCK CS FLAGWRD1 # IS STIKFLAG SET (I.E. IS SOMEONE ON RHC)
023336,001722: 34,3563 74764 MASK STIKBIT
023337,001723: 34,3564 10000 CCS A
023338,001724: 34,3565 03606 TC STEP3CK
023339,001725: 34,3566 06006 ASET TC INTPRET
023340,001726: 34,3567 77614 CLEAR
023341,001727: 34,3570 00273 CYC61FLG
023342,001728: 34,3571 52135 SLOAD GOTO
023343,001729: 34,3572 15204 ZEROVECS
023344,001730: 34,3573 03664 Q611
023345,001731: 34,3574 77614 STKTEST BOFINV
023346,001732: 34,3575 00153 CYC61FLG
023347,001733: 34,3576 44001 KALCMAN3 +1
023348,001734: 34,3577 77414 BON EXIT
023349,001735: 34,3600 01700 V50N18FL
023350,001736: 34,3601 72005 MANUEXIT
023351,001737: 34,3602 34777 CAF BIT3
023352,001738: 34,3603 00006 EXTEND # STIKFLG IS SET
023353,001739: 34,3604 05011 WOR DSALMOUT # TURN ON UPACTY LIGHT
023354,001740: 34,3605 03566 TC ASET # EXIT AND SET R61CNTR
023355,001741: 34,3606 06006 STEP3CK TC INTPRET
023356,001742: 34,3607 43001 SETPD BOFF
023357,001743: 34,3610 00001 0D
023358,001744: 34,3611 04346 UTFLAG
023359,001745: 34,3612 71616 CRS61.2 # NORMAL P-20 (OPTION 0) IF UTFLAG NOT SET
023360,001746:
023361,001747: 34,3613 53145 DLOAD BZE # OPTION 1,TEST FOR STAR OR PLANET
023362,001748: 34,3614 02175 R63TIME # =0 IF STAR
023363,001749: 34,3615 72002 UTSTAR1
023364,001750: # USE NORMAL P20 PATH FOR PLANET
023365,001751: # WITH VL AND RL = 0
023366,001752: # NOW HAVE DCDUS STORED IN T(SAVEDCDU).
023367,001753: # GO CALC OTHER DAP INPUTS (DELCDU,WBODY)
023368,001754: 34,3616 52375 CRS61.2 VLOAD VSU
023369,001755: 34,3617 03235 DCDU
023370,001756: 34,3620 03675 SAVEVEL # DV = VL - VC
023371,001757: 34,3621 57456 UNIT VCOMP # V(MPAC)=-UNITDV.VAC36D=ABSDV.
023372,001758: 34,3622 74235 VXV VXSC # (-UNITDV)CROSS(UNITLOS).
023373,001759: 34,3623 03667 SAVEPOS
023374,001760: 34,3624 16536 RVCS/RDS # (UNITLOS B1)(UNITDV B1)(CONST B4)=CROSS.
023375,001761: 34,3625 60325 PDDL NORM
023376,001762: 34,3626 02175 R63TIME # R63TIME IS TEMP STORE FOR ABS(LOS)
023377,001763: 34,3627 00047 X1
023378,001764: 34,3630 60325 PDDL NORM
023379,001765: 34,3631 00045 36D # NORM ABS VALUE OF DV(NUM).
023380,001766: 34,3632 00051 S1
023381,001767:
023382,001768: 34,3633 70460 XSU,1 SR1 # X1 = X1(N DENOM)-S1(N NUM).
023383,001769: 34,3634 00050 S1 # SR1 TO AVOID OFLOW ON DDV.
023384,001770: 34,3635 74271 DDV VXSC # ABSDV(MPAC)/ABSLOS(PUSH1) = QUOT.
023385,001771: 34,3636 53721 MXV VSL*
023386,001772: 34,3637 01720 REFSMMAT
023387,001773: 34,3640 20163 0 -14D,1 # UNNORMALIZE,ADJUST FOR REF. AND SCALE B0
023388,001774: 34,3641 53214 CRS61.2A BON VAD
023389,001775: 34,3642 05707 AZIMFLAG
023390,001776: 34,3643 71645 +2
023391,001777: 34,3644 03243 DTHETASM # SCALED B0
023392,001778: 34,3645 00025 STORE 20D
023393,001779: 34,3646 77761 VXSC
023394,001780: 34,3647 16540 TENTH
023395,001781: 34,3650 37243 STCALL DTHETASM # STORE SM INCREM. ANGLES FOR SMCDURES
023396,001782: 34,3651 47471 CDUTRIG # OBTAIN SIN,COSCDUS FOR SMCDURES.
023397,001783: 34,3652 45001 SETPD CALL # SMCDURES USES PUSH
023398,001784: 34,3653 00001 0
023399,001785: 34,3654 47721 SMCDURES # OBTAIN DELCDU IN V(DCDU).
023400,001786: 34,3655 70575 VLOAD VSR2
023401,001787: 34,3656 03235 DCDU
023402,001788: 34,3657 34017 STCALL 14D
023403,001789: 34,3660 47471 CDUTRIG
023404,001790: 34,3661 45175 VLOAD CALL # LOAD VECTOR AND CALL TRANSFORMATION
023405,001791: 34,3662 00025 20D # VECTOR FOR TRG*SMNB INTO MPAC
023406,001792: 34,3663 47623 *SMNB* # OBTAIN ANG. RATE REFERRED TO NB (BODY)
023407,001793: 34,3664 77721 MXV
023408,001794: 34,3665 16542 MBDYTCTL # CONVERT RATE(OMEGA) TO CONTROL COORDS.
023409,001795: 34,3666 76561 VXSC VSL1 # MULT. BY 0.8 TO RESCALE REVS TO 450 DEG.
023410,001796: 34,3667 15140 POINT8
023411,001797:
023412,001798: 34,3670 77776 EXIT
023413,001799: 34,3671 00004 INHINT
023414,001800: 34,3672 40107 CS FLGWRD11
023415,001801: 34,3673 74772 MASK AZIMBIT
023416,001802: 34,3674 10000 CCS A
023417,001803: 34,3675 03716 TC THTDXYZ # AZIMFLAG NOT SET,USE THETADX,Y,Z
023418,001804:
023419,001805: 34,3676 35000 CAF TWO # AZIMFLAG SET, MODIFY DELCDUS
023420,001806: 34,3677 55642 DCDULOOP TS DTHETASM
023421,001807: 34,3700 60000 DOUBLE
023422,001808: 34,3701 60120 AD FIXLOC
023423,001809: 34,3702 55643 TS DTHETASM +1
023424,001810: 34,3703 51642 INDEX DTHETASM
023425,001811: 34,3704 31277 CA THETAD
023426,001812: 34,3705 00006 EXTEND
023427,001813: 34,3706 51642 INDEX DTHETASM
023428,001814: 34,3707 21767 MSU THETTEMP
023429,001815: 34,3710 00006 EXTEND
023430,001816: 34,3711 73776 MP 1/200
023431,001817: 34,3712 51643 INDEX DTHETASM +1
023432,001818: 34,3713 20017 DAS 14D
023433,001819: 34,3714 11642 CCS DTHETASM
023434,001820: 34,3715 13677 TCF DCDULOOP
023435,001821: 34,3716 31623 THTDXYZ CA THETADX
023436,001822: 34,3717 55677 TS CDUXD
023437,001823: 34,3720 31624 CA THETADY
023438,001824: 34,3721 55701 TS CDUYD
023439,001825: 34,3722 31625 CA THETADZ
023440,001826: 34,3723 55703 TS CDUZD
023441,001827:
023442,001828: 34,3724 00006 THTD123 EXTEND # TRANSFER OMEGA CONTROL (ANG LOS RATE)
023443,001829: 34,3725 30155 DCA MPAC # FROM V(MPAC) TO V(WBODY ).
023444,001830: 34,3726 53555 DXCH WBODY
023445,001831: 34,3727 00006 EXTEND
023446,001832: 34,3730 30160 DCA MPAC +3
023447,001833: 34,3731 53557 DXCH WBODY1
023448,001834: 34,3732 00006 EXTEND
023449,001835: 34,3733 30162 DCA MPAC +5
023450,001836: 34,3734 53561 DXCH WBODY2
023451,001837:
023452,001838: 34,3735 00006 EXTEND # TRANSFER CDU INCREMENTS
023453,001839: 34,3736 50120 INDEX FIXLOC # FROM V(VAC14D) TO V(DELCDUX).
023454,001840: 34,3737 30017 DCA 14D
023455,001841: 34,3740 53627 DXCH DELCDUX
023456,001842: 34,3741 00006 EXTEND
023457,001843: 34,3742 50120 INDEX FIXLOC
023458,001844: 34,3743 30021 DCA 16D
023459,001845: 34,3744 53631 DXCH DELCDUY
023460,001846: 34,3745 00006 EXTEND
023461,001847: 34,3746 50120 INDEX FIXLOC
023462,001848: 34,3747 30023 DCA 18D
023463,001849: 34,3750 53633 DXCH DELCDUZ
023464,001850: 34,3751 31330 CA HOLDFLAG
023465,001851: 34,3752 00006 EXTEND
023466,001852: 34,3753 13755 BZF +2
023467,001853: 34,3754 13762 TCF SETHOLDF
023468,001854: 34,3755 51475 INDEX WHICHDAP
023469,001855: 34,3756 13757 TCF +1
023470,001856: 34,3757 13762 TCF SETHOLDF
023471,001857: 34,3760 44353 CS OCT25
023472,001858: 34,3761 55663 TS CH31TEMP
|
|
The name of the following label is a guess.
|
023474,001860: 34,3762 45001 SETHOLDF CS ONE # NOW DAP VARIABLES LOADED. SET HOLDFLAG.
023475,001861: 34,3763 55330 TS HOLDFLAG # TO -1.
023476,001862: 34,3764 00003 RELINT
023477,001863: 34,3765 03566 TC ASET
023478,001864:
023479,001865: 34,3766 43234 RCYCLR61 RTB DAD
023480,001866: 34,3767 45563 LOADTIME
023481,001867: 34,3770 31775 20.48SEC
023482,001868: 34,3771 52015 DAD GOTO
023483,001869: 34,3772 03350 TM
023484,001870: 34,3773 71451 STORT
023485,001871: 34,3774 00000 04000 20.48SEC 2DEC 1. B-17
023486,001872: 34,3776 00122 1/200 DEC .005
023487,001873: 35,2000 SETLOC P20S8
023488,001874: 35,2000 BANK
023489,001875:
023490,001876: 35,2000 COUNT* $$/CRS61
023491,001877: 35,2000 00112 02437 328NM 2DEC 606863.36 B-27 # 327.68 N.M.
023492,001878: 35,2002 52175 UTSTAR1 VLOAD GOTO # STAR, N88 PATH SET WCA, DELTA GA = 0
023493,001879: 35,2003 15204 ZEROVECS # DELTA GA AT PD1J (INCR GIMB CHANGES)
023494,001880: 35,2004 71641 CRS61.2A # WCA IS IN MPAC (LOS RATE). SET RCS DAP
023495,001881:
023496,001882: 35,2005 52135 MANUEXIT SLOAD GOTO
023497,001883: 35,2006 16564 LOONE # OCTAL 00001
023498,001884: 35,2007 03664 Q611
023499,001885:
023500,001886: 35,2010 71220 R63 STQ DLOAD # SUBR TO CALL DESIRED CDUS(T)
023501,001887: 35,2011 03665 Q6111
023502,001888: 35,2012 02175 R63TIME
023503,001889: 35,2013 34041 STCALL TDEC1
023504,001890: 35,2014 11423 CSMCONIC
023505,001891: 35,2015 77775 VLOAD # SAVE CSM POSITION AND VEL
023506,001892: 35,2016 00001 RATT # RC B-29
023507,001893: 35,2017 27667 STOVL SAVEPOS
023508,001894: 35,2020 00007 VATT # VC B-7
023509,001895: 35,2021 03675 STORE SAVEVEL
023510,001896: 35,2022 77635 VXV
023511,001897: 35,2023 03667 SAVEPOS
023512,001898: 35,2024 03362 STORE POINTVSM # SAVE VXR
023513,001899: 35,2025 71214 BON DLOAD
023514,001900: 35,2026 04306 UTFLAG
023515,001901: 35,2027 76314 UTAREA1 # UT OPTION 1 PROCESSING
023516,001902: 35,2030 02175 R63TIME # NORMAL P-20 PATH
023517,001903: 35,2031 34041 STCALL TDEC1
023518,001904: 35,2032 11435 LEMCONIC
023519,001905: 35,2033 77775 VLOAD # SAVE LM VEL
023520,001906: 35,2034 00007 VATT # VL B-7
023521,001907: 35,2035 27235 STOVL DCDU
023522,001908: 35,2036 00001 RATT # RL B-29
023523,001909: 35,2037 53451 VSU UNIT
023524,001910: 35,2040 03667 SAVEPOS
023525,001911: 35,2041 17667 STODL SAVEPOS # SAVE UNITLOS FOR CRS61.2 RATE CALC.
023526,001912: 35,2042 00045 36D
023527,001913: 35,2043 26175 STOVL R63TIME # SAVE ABS VAL OF LOS FOR CRS61.2
023528,001914: 35,2044 03667 SAVEPOS
023529,001915: 35,2045 77614 R63COM1 BON
023530,001916: 35,2046 05707 AZIMFLAG
023531,001917: 35,2047 76326 UTOPT45 # OPTIONS 4,5
023532,001918: 35,2050 76521 MXV VSL1 # COMMON PATH NORMAL P20,OPTION 1
023533,001919: 35,2051 01720 REFSMMAT
023534,001920: 35,2052 37362 STCALL POINTVSM # ULOS IN STABLE MEM
023535,001921: 35,2053 74703 UTPRFAX # COMPUTE UNIT PREFERRED VECTOR
023536,001922: 35,2054 37354 STCALL SCAXIS
023537,001923: 35,2055 56135 VECPOINT
023538,001924: 35,2056 01300 STORE THETAD # DESIRED GIMBALS
023539,001925: 35,2057 77650 GOTO
023540,001926: 35,2060 03665 Q6111
023541,001927:
023542,001928: 37,2000 SETLOC P20S
023543,001929: 37,2000 BANK
023544,001930:
023545,001931: 37,2314 COUNT* $$/CRS61
023546,001932: 37,2314 45145 UTAREA1 DLOAD CALL # UT OPTION 1 PATH
023547,001933: 37,2315 02175 R63TIME
023548,001934: 37,2316 54034 LSPOS
023549,001935: 37,2317 77775 VLOAD
023550,001936: 37,2320 03667 SAVEPOS # RC B-29
023551,001937: 37,2321 57456 UNIT VCOMP
023552,001938: 37,2322 24011 STOVL 8D # VEARTH=-UNIT(RC)
023553,001939: 37,2323 00003 2D # RS B-38
023554,001940: 37,2324 77650 GOTO
023555,001941: 37,2325 32000 SAVESTAR
023556,001942:
023557,001943: 15,2000 SETLOC STARTAB
023558,001944: 15,2000 BANK
023559,001945:
023560,001946: 15,2000 COUNT* $$/CRS61
023561,001947: 15,2000 47201 SAVESTAR SETPD VXV
023562,001948: 15,2001 00001 0D
023563,001949: 15,2002 34633 ECLIPOL
023564,001950: 15,2003 27452 STOVL VEL/C
023565,001951: 15,2004 03675 SAVEVEL
023566,001952: 15,2005 53361 VXSC VAD
023567,001953: 15,2006 34631 1/C
023568,001954: 15,2007 03452 VEL/C
023569,001955: 15,2010 27452 STOVL VEL/C
023570,001956: 15,2011 15726 ZEROVEC
023571,001957: 15,2012 27235 STOVL DCDU # VL=0 FOR STAR AND PLANET
023572,001958: 15,2013 03667 SAVEPOS
023573,001959: 15,2014 53476 VCOMP UNIT
023574,001960: 15,2015 17667 STODL SAVEPOS # UNIT(0-RC) FOR PLANET
023575,001961: 15,2016 00045 36D
023576,001962: 15,2017 02175 STORE R63TIME # ABS(O-RC) FOR PLANET
023577,001963: 15,2020 41535 SLOAD PUSH # PD0= STARCODE
023578,001964: 15,2021 01350 UTSTARNO # STARCODE
023579,001965: 15,2022 67254 BZE SLOAD
023580,001966: 15,2023 72074 UTVIAN88 # UNITLOS WAS VIA N88
023581,001967: 15,2024 32050 UTSP46
023582,001968: 15,2025 77621 BDSU # STARCODE-46(OCTAL)
023583,001969: 15,2026 77244 BPL VLOAD # BRANCH IF STARCODE=46,47,50 OCTAL
023584,001970: 15,2027 72061 UTST4650
023585,001971: 15,2030 15726 ZEROVEC
023586,001972: 15,2031 17675 STODL SAVEVEL # VC=0 FOR STAR
023587,001973: 15,2032 15726 ZEROVEC
023588,001974: 15,2033 02175 STORE R63TIME # STAR INDICATOR USED LATER IN CRS61.2
023589,001975: 15,2034 41335 SLOAD DMP
023590,001976: 15,2035 32047 UTSP6
023591,001977: 15,2036 00001 0D # 0D STILL = STARCODE
023592,001978: 15,2037 76750 LXA,1 VLOAD*
023593,001979: 15,2040 00155 MPAC +1 # STARCODE*6
023594,001980: 15,2041 33776 CATLOG,1 # MPAC= UNIT STAR VECTOR
023595,001981: 15,2042 53455 UTABERR VAD UNIT # CORRECT FOR ABERRATION
023596,001982: 15,2043 03452 VEL/C
023597,001983: 15,2044 77650 GOTO # GOTO COMMON AREA
023598,001984: 15,2045 72045 R63COM1
023599,001985:
023600,001986: 15,2046 00006 UTSP6 OCT 6 # SINGLE PRE 6 FOR MULT STARCODE
023601,001987: 15,2047 00046 UTSP46 OCT 46 # SINGLE PRE 46 FOR DETERMINING PLANET
023602,001988:
023603,001989: 35,2000 SETLOC P20S8
023604,001990: 35,2000 BANK
023605,001991:
023606,001992: 35,2061 COUNT* $$/CRS61
023607,001993: 35,2061 77254 UTST4650 BZE VLOAD # SUN,EARTH,MOON OR PLANET PATH
023608,001994: 35,2062 72066 UTSUN # STARCODE=46 OCTAL (SUN)
023609,001995: 35,2063 00011 8D
023610,001996: 35,2064 77650 GOTO
023611,001997: 35,2065 32042 UTABERR
023612,001998:
023613,001999: 35,2066 77745 UTSUN DLOAD
023614,002000: 35,2067 15204 ZEROVECS
023615,002001: 35,2070 26175 STOVL R63TIME
023616,002002: 35,2071 00003 2D # VSUN
023617,002003: 35,2072 77650 GOTO
023618,002004: 35,2073 32042 UTABERR
023619,002005:
023620,002006: 35,2074 77775 UTVIAN88 VLOAD # UNITLOS IN STARSAV3 VIA N88
023621,002007: 35,2075 15204 ZEROVECS
023622,002008: 35,2076 17675 STODL SAVEVEL # VC = 0 FOR N88 VECTOR
023623,002009: 35,2077 15204 ZEROVECS
023624,002010: 35,2100 26175 STOVL R63TIME # STAR INDICATOR USED LATER IN CRS61.2
023625,002011: 35,2101 03712 PLANVCUT # N88 UNIT VECTOR BAS REF
023626,002012: 35,2102 53561 VXSC UNIT
023627,002013: 35,2103 32107 1/SQRT3
023628,002014: 35,2104 77650 GOTO
023629,002015: 35,2105 32042 UTABERR
023630,002016:
023631,002017: 35,2106 22363 11623 1/SQRT3 2DEC .57735021 # 1/SQUARE ROOT 3 B-0
023632,002018:
023633,002019:
023634,002020: 37,2000 SETLOC P20S
023635,002021: 37,2000 BANK
023636,002022:
023637,002023: 37,2326 COUNT* $$/CRS61
023638,002024: 37,2326 23,3467 UT166 EQUALS .166...
023639,002025: 37,2326 UTSAP = 0D # SA PRIME
023640,002026: 37,2326 UTSBP = 6D # SB PRIME
023641,002027: 37,2326 UTSA = 18D # SA
023642,002028: 37,2326 UTSB = 24D # SB
023643,002029: 37,2326 UTUXP = 0D # UX PRIME
023644,002030: 37,2326 UTUYP = 6D # UY PRIME
023645,002031: 37,2326 UTUZP = 12D # UZ PRIME
023646,002032: 37,2326 UTUX = 18D # UX
023647,002033: 37,2326 UTUY = 24D # UY
023648,002034: 37,2326 UTUZ = 30D # UZ
023649,002035: # UTX = SCAXIS X
023650,002036: # UTY = POINTVSM Y
023651,002037: 37,2326 UTZ = 0D # Z AFTER UNIT
023652,002038: 37,2326 UTZINIT = 36D # Z BEFORE UNIT
023653,002039: 37,2326 UTAMG = 6D # AMG
023654,002040: 37,2326 UTOGA = 24D # OGA REVS B-0
023655,002041: 37,2326 0032 UTIGA = UTOGA +2 # IGA REVS B-0
023656,002042: 37,2326 0034 UTMGA = UTOGA +4 # MGA REVS B-0
023657,002043:
023658,002044: 37,2326 34031 UTOPT45 STCALL UTSB # SB= ULOS BASIC REF. IN MPAC B-1
023659,002045: 37,2327 74703 UTPRFAX
023660,002046: 37,2330 00007 STORE UTSBP # SB PRIME NAV BASE B-1
023661,002047:
023662,002048: 37,2331 53435 VXV UNIT
023663,002049: 37,2332 15200 UNITY
023664,002050: 37,2333 24001 STOVL UTSAP # SA PRIME=(SB PRIME)X(0,1,0) B-1 NAV B
023665,002051: 37,2334 00031 UTSB
023666,002052: 37,2335 53435 VXV UNIT
023667,002053: 37,2336 03362 POINTVSM # VXR SAVED ABOVE
023668,002054: 37,2337 17362 STODL POINTVSM # ULOS X (VXR) B-1
023669,002055: 37,2340 01345 AZIMANGL
023670,002056: 37,2341 74346 COS VXSC
023671,002057: 37,2342 03362 POINTVSM
023672,002058: 37,2343 27354 STOVL SCAXIS # B-2
023673,002059: 37,2344 00031 UTSB
023674,002060: 37,2345 53435 VXV UNIT
023675,002061: 37,2346 03362 POINTVSM
023676,002062: 37,2347 17362 STODL POINTVSM # ULOS X (ULOS X (VXR)) B-1
023677,002063: 37,2350 01345 AZIMANGL
023678,002064: 37,2351 74356 SIN VXSC # B-2
023679,002065: 37,2352 03362 POINTVSM
023680,002066: 37,2353 76455 VAD VSL1
023681,002067: 37,2354 03354 SCAXIS
023682,002068: 37,2355 24023 STOVL UTSA # SA B-1
023683,002069: 37,2356 00001 UTSAP # START AXISGEN
023684,002070: 37,2357 53435 VXV UNIT # UX PRIME ALREADY IN UTUXP B-1
023685,002071: 37,2360 00007 UTSBP # UY ALREADY IN UTUX B-1
023686,002072: 37,2361 24007 STOVL UTUYP # UZ PRIME B-1
023687,002073: 37,2362 00001 UTUXP
023688,002074: 37,2363 76435 VXV VSL1
023689,002075: 37,2364 00007 UTUYP
023690,002076: 37,2365 24015 STOVL UTUZP # UZ PRIME B-1
023691,002077: 37,2366 00023 UTSA
023692,002078: 37,2367 53435 VXV UNIT
023693,002079: 37,2370 00031 UTSB
023694,002080: 37,2371 24031 STOVL UTUY # UY B-1
023695,002081: 37,2372 00023 UTUX
023696,002082: 37,2373 76435 VXV VSL1
023697,002083: 37,2374 00031 UTUY
023698,002084: 37,2375 24037 STOVL UTUZ # UZ B-1
023699,002085: 37,2376 00023 UTUX
023700,002086: 37,2377 77761 VXSC
023701,002087: 37,2400 00001 UTUXP
023702,002088: 37,2401 37354 STCALL UTX
023703,002089: 37,2402 72110 UTOPT45A
023704,002090:
023705,002091: 35,2000 SETLOC P20S8
023706,002092: 35,2000 BANK
023707,002093:
023708,002094: 35,2110 COUNT* $$/CRS61
023709,002095: 35,2110 77775 UTOPT45A VLOAD
023710,002096: 35,2111 00031 UTUY
023711,002097: 35,2112 53361 VXSC VAD
023712,002098: 35,2113 00007 UTUYP
023713,002099: 35,2114 03354 UTX
023714,002100: 35,2115 27354 STOVL UTX
023715,002101: 35,2116 00037 UTUZ
023716,002102: 35,2117 53361 VXSC VAD
023717,002103: 35,2120 00015 UTUZP
023718,002104: 35,2121 03354 UTX
023719,002105: 35,2122 27354 STOVL UTX # UX NOT UNIT YET
023720,002106: 35,2123 00023 UTUX
023721,002107: 35,2124 77761 VXSC
023722,002108: 35,2125 00003 UTUXP +2
023723,002109: 35,2126 27362 STOVL UTY
023724,002110: 35,2127 00031 UTUY
023725,002111: 35,2130 53361 VXSC VAD
023726,002112: 35,2131 00011 UTUYP +2
023727,002113: 35,2132 03362 UTY
023728,002114: 35,2133 27362 STOVL UTY
023729,002115: 35,2134 00037 UTUZ
023730,002116: 35,2135 53361 VXSC VAD
023731,002117: 35,2136 00017 UTUZP +2
023732,002118: 35,2137 03362 UTY
023733,002119: 35,2140 27362 STOVL UTY # UY NOT UNIT YET
023734,002120: 35,2141 00023 UTUX
023735,002121: 35,2142 77761 VXSC
023736,002122: 35,2143 00005 UTUXP +4
023737,002123: 35,2144 24045 STOVL UTZINIT
023738,002124: 35,2145 00031 UTUY
023739,002125: 35,2146 53361 VXSC VAD
023740,002126: 35,2147 00013 UTUYP +4
023741,002127: 35,2150 00045 UTZINIT
023742,002128: 35,2151 24045 STOVL UTZINIT
023743,002129: 35,2152 00037 UTUZ
023744,002130: 35,2153 53361 VXSC VAD
023745,002131: 35,2154 00021 UTUZP +4
023746,002132: 35,2155 00045 UTZINIT
023747,002133: 35,2156 77656 UNIT # UTUZ AND UTZINIT ARE CLOBBERED BY UNIT
023748,002134: 35,2157 24001 STOVL UTZ # UZ B-1
023749,002135: 35,2160 03362 UTY
023750,002136: 35,2161 77656 UNIT
023751,002137: 35,2162 27362 STOVL UTY # UY B-1
023752,002138: 35,2163 03354 UTX
023753,002139: 35,2164 77656 UNIT
023754,002140: 35,2165 03354 STORE UTX # UX B-1 END AXISGEN
023755,002141: 35,2166 53435 VXV UNIT # STATR CALCGA
023756,002142: 35,2167 01726 REFSMMAT +6 # YSM
023757,002143: 35,2170 00007 STORE UTAMG # AMG B-1
023758,002144: 35,2171 77641 DOT
023759,002145: 35,2172 00001 UTZ
023760,002146: 35,2173 24021 STOVL COSTH # COS(OGA)= AMG.ZNB B-2
023761,002147: 35,2174 00007 UTAMG
023762,002148: 35,2175 77641 DOT
023763,002149: 35,2176 03362 UTY
023764,002150: 35,2177 34023 STCALL SINTH # SIN(OGA)= AMG.YNB B-2
023765,002151: 35,2200 47250 ARCTRIG
023766,002152: 35,2201 24031 STOVL UTOGA # OGA REVS B-0
023767,002153: 35,2202 00007 UTAMG
023768,002154: 35,2203 50235 VXV DOT
023769,002155: 35,2204 03354 UTX
023770,002156: 35,2205 01726 REFSMMAT +6
023771,002157: 35,2206 77752 SL1
023772,002158: 35,2207 24021 STOVL COSTH # COS(MGA)= YSM.(AMG X XNB) B-2
023773,002159: 35,2210 01726 REFSMMAT +6
023774,002160: 35,2211 77641 DOT
023775,002161: 35,2212 03354 UTX
023776,002162: 35,2213 34023 STCALL SINTH # SIN(MGS)= YSM.XNB B-2
023777,002163: 35,2214 47250 ARCTRIG
023778,002164: 35,2215 00035 STORE UTMGA # MGA REVS B-0
023779,002165: 35,2216 45246 ABS DSU
023780,002166: 35,2217 07470 UT166
023781,002167: 35,2220 77644 BPL
023782,002168: 35,2221 72242 UTGMLOCK
023783,002169: 35,2222 50375 UTCGA1 VLOAD DOT
023784,002170: 35,2223 01734 REFSMMAT +12D
023785,002171: 35,2224 00007 UTAMG
023786,002172: 35,2225 24021 STOVL COSTH # COS(IGA)= AMG.ZSM B-2
023787,002173: 35,2226 01720 REFSMMAT
023788,002174: 35,2227 77641 DOT
023789,002175: 35,2230 00007 UTAMG
023790,002176: 35,2231 34023 STCALL SINTH # SIN(IGA)= ANG.XSM B-2
023791,002177: 35,2232 47250 ARCTRIG
023792,002178: 35,2233 00033 STORE UTIGA # IGA REVS B-0
023793,002179: 35,2234 47175 VLOAD RTB
023794,002180: 35,2235 00031 UTOGA # CONVERT TO 2S COMP
023795,002181: 35,2236 45625 V1STO2S # ORDER IS OGA,IGA,MGA
023796,002182: 35,2237 01300 STORE THETAD # TRIPLE PREC
023797,002183: 35,2240 77650 GOTO
023798,002184: 35,2241 03665 Q6111 # EXIT R63
023799,002185:
023800,002186: 35,2242 77776 UTGMLOCK EXIT # GIMBAL LOCK HAS OCCURED
023801,002187: 35,2243 05644 TC ALARM
023802,002188: 35,2244 00401 OCT 00401
023803,002189:
023804,002190: 35,2245 06006 TC INTPRET
023805,002191: 35,2246 77650 GOTO
023806,002192: 35,2247 72222 UTCGA1
023807,002193:
023808,002194: 27,2000 SETLOC R22S1
023809,002195: 27,2000 BANK
023810,002196:
023811,002197: 27,2526 COUNT* $$/CRS61
023812,002198: 27,2526 05057 23015 RADTOREV 2DEC 0.15915494 # RADIANS TO REV
023813,002199: 27,2530 07702 COSTEN DEC 0.98481 B-2 # COSINE OF 10 DEG.
023814,002200: 27,2531 00034 20206 MAXRATE 2DEC 0.00174 # .1 DEG./SEC. RATE
023815,002201: 27,2533 06315 DELTYME DEC 0.05 B2 # 1/DELTA TIME = 1/20 SEC
023816,002202: 27,2534 01616 DEGREE10 DEC .05556 # 10 DEG IN REV
023817,002203: 27,2535 37651 16721 RVCS/RDS 2DEC 15.915494 B-4 # 100/2PI REV-CSEC/RAD-SEC.
023818,002204: 27,2537 31463 06315 TENTH 2DEC .1 B+3 # .1 B-3 (TO SCALE ANG.RATE TO .1 INREMS)
023819,002205: 27,2541 20000 00000 MBDYTCTL 2DEC .5 # 7.25 DEG NEGATIVE
023820,002206: 27,2543 00000 00000 2DEC 0 B-28 # X-AXIS ROTATION MATRIX
023821,002207: 27,2545 00000 00000 2DEC 0 B-28 # CONVERTS BODY TO CTL
023822,002208: 27,2547 00000 00000 2DEC 0 B-28 # AXES. SAME AS QUADROT
023823,002209: 27,2551 17676 20113 2DEC .99200495 B-1 # COS7.25 B1 BUT SCALED B1
023824,002210: 27,2553 75766 45544 2DEC -.12619897 B-1 # -SIN7.25 B1
023825,002211: 27,2555 00000 00000 2DEC 0 B-28
023826,002212: 27,2557 02011 32233 2DEC .12619897 B-1 # SIN7.25 B1
023827,002213: 27,2561 17676 20113 2DEC .99200495 B-1 # COS7.25 B1
023828,002214: 27,2563 00001 LOONE OCT 00001 # TO SET MPAC = 00001 FOR SPECIAL EXIT.
023829,002215: 27,2564 7673 FURST3 EQUALS 13,14,15 # CONSTANT FOR AUTOCK (OCT 70000).
023830,002216:
023831,002217:
023832,002218: 27,2000 SETLOC P20S6
023833,002219: 27,2000 BANK
023834,002220: 27,2564 COUNT* $$/R63
023835,002221:
023836,002222:
023837,002223: # SUBROUTINE NAME: V89CALL
023838,002224: # MOD NO: 0 DATE: 8 FEB 1968
023839,002225: # MOD BY: DIGITAL DEVEL GROUP LOG SECTION: P20-P25
023840,002226:
023841,002227: # FUNCTIONAL DESCRIPTION:
023842,002228:
023843,002229: # CALLED BY VERB 89 ENTER DURING P00. PRIO 10 USED. CALCULATES AND
023844,002230: # DISPLAYS FINAL GIMBAL ANGLES TO POINT CSM +X AXIS OR PREFERRED AXIS
023845,002231: # (UNIT(Z)COS55 DEG + UNIT(X)SIN55 DEG) AT LM.
023846,002232:
023847,002233: # 1. KEY IN V 89 E ONLY IF IN PROG 00. IF NOT IN P00, OPERATOR ERROR AND
023848,002234: # EXIT R63, OTHERWISE CONTINUE.
023849,002235:
023850,002236: # 2. IF IN P00, DO IMU STATUS CHECK (R02BOTH). IF IMU ON AND ITS
023851,002237: # ORIENTATION KNOWN TO CGC, CONTINUE.
023852,002238:
023853,002239: # 3. FLASH DISPLAY V 04 N 06. R2 INDICATES WHICH SPACECRAFT AXIS IS TO
023854,002240: # BE POINTED AT LM. INITIAL CHOICE IS PREFERRED AXIS. (R2=1).
023855,002241: # ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT= 1) BY V22 E 2 E. CONTINUE
023856,002242: # AFTER KEYING IN PROCEED.
023857,002243:
023858,002244: # 4. SET PREFERRED ATTITUDE FLAG ACCORDING TO OPTION DESIRED. SET FLAG
023859,002245: # FOR PREFERRED AXIS. RESET FLAG FOR X AXIS.
023860,002246:
023861,002247: # 5. CURRENT TIME IS STORED AND R63COMP IS CALLED
023862,002248:
023863,002249: # R63COMP JOB:
023864,002250: #
023865,002251: # UPDATES CSM AND LM STATE VECTORS USING CONIC EQUATIONS
023866,002252:
023867,002253: # CALCULATES BOTH PREFERRED AND X AXIS TRACKING ATT FROM 3SM TO LM.
023868,002254:
023869,002255: # DESIRED GIMBAL ANGLES AS INDICATED BY PREFERRED ATTITUDE FLAG
023870,002256: # ARE STORED FOR LATER R60CSM CALL.
023871,002257:
023872,002258: # 6. FLASH DISPLAY V 06 N18 AND AWAIT RESPONSE.
023873,002259:
023874,002260: # 7. RECYCLE- RETURN TO STEP 5.
023875,002261: # TERMINATE- EXIT R63 ROUTINE
023876,002262: # PROCEED- RESET 3AXISFLG AND CALL R60CSM FOR ATTITUDE MANEUVER.
023877,002263:
023878,002264:
023879,002265: # CALLING SEQUENCE: V 89 E
023880,002266:
023881,002267: # SUBROUTINES CALLED: CHKPOOH, R02BOTH, GOXDSPF, R63COMP, R60CSM
023882,002268:
023883,002269: # ALARMS 1. OPERATOR ERROR IF NOT IN P00
023884,002270: # 2. PROGRAM ALARM IF IMU IS OFF
023885,002271: # 3. PROGRAM ALARM IF IMU ORIENTATION IS UNKNOWN
023886,002272:
023887,002273: # ERASABLE INITIALIZATION REQUIRED: NONE
023888,002274:
023889,002275: # DEBRIS: OPTION1, OPTION1+1, PRFTRKAT(PREF ATT FLAG),P21TIME, 3AXISFLG
023890,002276:
023891,002277: 27,2564 00000 13560 DP1MIN 2DEC 6000 B-28
023892,002278:
023893,002279: 27,2566 E4,1574 EBANK= R63TIME
023894,002280: 31,2000 SETLOC V89TAG
023895,002281: 31,2000 BANK
023896,002282: 31,2310 COUNT* $$/R63
023897,002283:
023898,002284:
023899,002285: 31,2310 04647 V89CALL TC BANKCALL # IMU STATUS CHECK. RETURNS IF ORIENTATION
023900,002286: 31,2311 03737 CADR R02BOTH # KNOWN. ALARMS IF NOT.
023901,002287: 31,2312 06006 TC INTPRET
023902,002288: 31,2313 71214 CLEAR DLOAD
023903,002289: 31,2314 05667 AZIMFLAG
023904,002290: 31,2315 15204 ZEROVECS
023905,002291: 31,2316 03720 STORE UTPIT
023906,002292: 31,2317 03722 STORE UTYAW
023907,002293: 31,2320 77776 EXIT
023908,002294:
023909,002295: 31,2321 32354 CAF VB06N78
023910,002296: 31,2322 04647 TC BANKCALL
023911,002297: 31,2323 20761 CADR GOFLASHR
023912,002298: 31,2324 05537 TC ENDEXT
023913,002299: 31,2325 12332 TCF V89RECL
023914,002300: 31,2326 02321 TC -5
023915,002301:
023916,002302: 31,2327 34777 CAF BIT3
023917,002303: 31,2330 05531 TC BLANKET
023918,002304: 31,2331 05220 TC ENDOFJOB
023919,002305:
023920,002306: 31,2332 06006 V89RECL TC INTPRET
023921,002307: 31,2333 43234 RTB DAD
023922,002308: 31,2334 45563 LOADTIME # READ PRESENT TIME
023923,002309: 31,2335 16565 DP1MIN # INTEGRATE TO 1 MIN FROM NOW
023924,002310: 31,2336 36175 STCALL R63TIME # STORE TIME FOR CALL TO R63COMP. R63COMP
023925,002311: 31,2337 72010 R63COMP # LEAVES DESIRED GIM ANGS IN THETAD,LOS IN
023926,002312: 31,2340 77776 EXIT # POINTVSM, AND SELECTED AXIS IN SCAXIS.
023927,002313: 31,2341 35044 CAF VB06N18 # V 06 N 18
023928,002314: 31,2342 04647 TC BANKCALL # NOUN 18 REFERS TO THE DESIRED GIMBAL
023929,002315: 31,2343 20623 CADR GOFLASH
023930,002316: 31,2344 05537 TC ENDEXT # TERMINATE
023931,002317: 31,2345 02347 TC +2 # PROCEED
023932,002318: 31,2346 02332 TC V89RECL # RECYCLE
023933,002319: 31,2347 07722 TC DOWNFLAG # RESET 3 AXIS FLAG
023934,002320: 31,2350 00124 ADRES 3AXISFLG # RESET BIT 6 FLAG 5
023935,002321: 31,2351 04647 TC BANKCALL # PERFORMS CSM MANEUVER TO ALIGN SELECTED
023936,002322: 31,2352 56000 CADR R60CSM # SPACECRAFT AXIS TO LOS.
023937,002323: 31,2353 15537 TCF ENDEXT
023938,002324:
023939,002325:
023940,002326: 31,2354 01516 VB06N78 VN 0678
023941,002327:
023942,002328: 31,2355 5044 VB06N18 = V06N18
023943,002329:
023944,002330: 31,2355 35,2010 R63COMP EQUALS R63
023945,002331:
023946,002332: 14,2000 SETLOC RT53
023947,002333: 14,2000 BANK
023948,002334: 14,2000 COUNT* $$/STARS
023949,002335: 14,2000 43573 LOWMEMRY VLOAD* RVQ
023950,002336: 14,2001 33776 CATLOG,1
023951,002337: 4000 SETLOC FFTAG2
023952,002338: 4000 BANK
023953,002339:
023954,002340: 4557 COUNT* $$/R22
023955,002341: 4557 00006 GOTOV56 EXTEND # P20 TERMINATES BY GOTOV56 INSTEAD OF
023956,002342: 4560 34563 DCA VB56CADR # GOTOPOOH
023957,002343: 4561 15227 TCF SUPDXCHZ
023958,002344: 4562 0003777 EBANK= WHOCARES
023959,002345: 4562 02711 66107 VB56CADR 2CADR TRACKTRM
023960,002346:
023961,002347: 40,2000 SETLOC PINBALL1
023962,002348: 40,2000 BANK
023963,002349: 40,3640 COUNT* $$/EXTVB
023964,002350: 40,3640 06006 V67CALL TC INTPRET
023965,002351: 40,3641 77624 CALL
023966,002352: 40,3642 61666 V67WW
023967,002353: 40,3643 77776 EXIT
023968,002354: 40,3644 33750 V06N99DS CAF V06N99A
023969,002355: 40,3645 04647 TC BANKCALL
023970,002356: 40,3646 20456 CADR GOXDSPF
023971,002357: 40,3647 15537 TCF ENDEXT
023972,002358: 40,3650 03652 TC V06N9933
023973,002359: 40,3651 03644 TC V06N99DS
023974,002360: 40,3652 06006 V06N9933 TC INTPRET
023975,002361: 40,3653 46135 SLOAD BHIZ # IF R3 OF V67 = 0 EXIT
023976,002362: 40,3654 02206 WWOPT
023977,002363: 40,3655 61664 V67COMEX
023978,002364: 40,3656 73150 V6N99INP LXA,1 LXA,2
023979,002365: 40,3657 02201 WWPOS
023980,002366: 40,3660 02203 WWVEL
023981,002367: 40,3661 67130 SXA,1 SXA,2
023982,002368: 40,3662 02000 WRENDPOS
023983,002369: 40,3663 02001 WRENDVEL
023984,002370: 40,3664 77776 V67COMEX EXIT
023985,002371: 40,3665 15537 TCF ENDEXT
023986,002372: 40,3666 40020 V67WW STQ BOV
023987,002373: 40,3667 00051 S2
023988,002374: 40,3670 61671 +1
023989,002375: 40,3671 77624 CALL
023990,002376: 40,3672 11720 INTSTALL
023991,002377: 40,3673 71331 SSP DLOAD
023992,002378: 40,3674 00051 S1
023993,002379: 40,3675 00006 DEC 6 B-14
023994,002380: 40,3676 15204 ZEROVECS
023995,002381: 40,3677 02202 STORE WWPOS
023996,002382: 40,3700 02204 STORE WWVEL
023997,002383: 40,3701 02206 STORE WWOPT
023998,002384: 40,3702 77770 AXT,1
023999,002385: 40,3703 00044 DEC 36 B-14
024000,002386: 40,3704 47573 NXPOSVEL VLOAD* VSQ
024001,002387: 40,3705 02445 W +36D,1
024002,002388: 40,3706 77615 DAD
024003,002389: 40,3707 02202 WWPOS
024004,002390: 40,3710 02202 STORE WWPOS
024005,002391: 40,3711 47573 VLOAD* VSQ
024006,002392: 40,3712 02533 W +90D,1
024007,002393: 40,3713 77615 DAD
024008,002394: 40,3714 02204 WWVEL
024009,002395: 40,3715 02204 STORE WWVEL
024010,002396: 40,3716 75500 TIX,1 SQRT
024011,002397: 40,3717 61704 NXPOSVEL
024012,002398: 40,3720 16204 STODL WWVEL
024013,002399: 40,3721 02202 WWPOS
024014,002400: 40,3722 77766 SQRT
024015,002401: 40,3723 02202 STORE WWPOS
024016,002402: 40,3724 52000 BOV GOTO
024017,002403: 40,3725 61727 +2
024018,002404: 40,3726 61733 V67XXX
024019,002405: 40,3727 77745 DLOAD
024020,002406: 40,3730 15212 DPPOSMAX
024021,002407: 40,3731 02202 STORE WWPOS
024022,002408: 40,3732 02204 STORE WWVEL
024023,002409: 40,3733 45345 V67XXX DLOAD DSU
024024,002410: 40,3734 02202 WWPOS
024025,002411: 40,3735 21752 FT99999
024026,002412: 40,3736 71240 BMN DLOAD
024027,002413: 40,3737 61742 +3
024028,002414: 40,3740 21752 FT99999
024029,002415: 40,3741 02202 STORE WWPOS
024030,002416: 40,3742 66150 LXA,1 SXA,1
024031,002417: 40,3743 00051 S2
024032,002418: 40,3744 00052 QPRET
024033,002419: 40,3745 77776 EXIT
024034,002420: 40,3746 04666 TC POSTJUMP
024035,002421: 40,3747 11731 CADR INTWAKE
024036,002422: 40,3750 01543 V06N99A VN 0699
024037,002423: 40,3751 01670 17000 FT99999 2DEC 30479 B-19
024038,002424: 40,3753 30,2000 SBANK= LOWSUPER
024039,002425:
024040,002426: 30,2000 SETLOC P20S1
024041,002427: 30,2000 BANK
024042,002428: 30,2161 E6,1776 EBANK= R61CNTR
024043,002429: 30,2161 COUNT* $$/P25
024044,002430:
024045,002431: 30,2161 07710 P25CSM TC UPFLAG
024046,002432: 30,2162 00260 ADRES P25FLAG
024047,002433: 30,2163 07722 TC DOWNFLAG
024048,002434: 30,2164 00010 ADRES RNDVZFLG
024049,002435:
024050,002436: 30,2165 32250 CAF V06N72
024051,002437: 30,2166 05550 TC VNFLASH
024052,002438: 30,2167 02325 TC N72STUFF
024053,002439:
024054,002440: 30,2170 05235 TC TWIDBIT1
024055,002441: 30,2171 02231 ADRES READCYCL
024056,002442:
024057,002443: 30,2172 05375 TC 2PHSCHNG
024058,002444: 30,2173 00152 OCT 00152
024059,002445: 30,2174 05024 OCT 05024
024060,002446: 30,2175 20000 OCT 20000
024061,002447:
024062,002448: 30,2176 01,2052 2P15SPT1 = 2.15SPOT
024063,002449:
024064,002450: 30,2176 05235 TC TWIDBIT1
024065,002451: 30,2177 02264 ADRES CTASK
024066,002452:
024067,002453: 30,2200 35032 CAF 2SECS
024068,002454: 30,2201 04647 TC BANKCALL
024069,002455: 30,2202 01731 CADR DELAYJOB
024070,002456:
024071,002457: 30,2203 02207 TC BOTHSHOW
024072,002458:
024073,002459: 30,2204 32250 72SHOWX CAF V06N72
024074,002460: 30,2205 05550 TC VNFLASH
024075,002461: 30,2206 02325 TC N72STUFF
024076,002462:
024077,002463: 30,2207 34770 BOTHSHOW CAF NOUNBIT
024078,002464: 30,2210 70107 MASK FLGWRD11
024079,002465: 30,2211 10000 CCS A
024080,002466: 30,2212 12221 TCF 77SHOW
024081,002467:
024082,002468: 30,2213 32251 CAF V16N76
024083,002469: 30,2214 04647 TC BANKCALL
024084,002470: 30,2215 20623 CADR GOFLASH
024085,002471: 30,2216 14103 TCF GOTOPOOH
024086,002472: 30,2217 02221 TC 77SHOW
024087,002473: 30,2220 12204 TCF 72SHOWX
024088,002474:
024089,002475: 30,2221 07710 77SHOW TC UPFLAG
024090,002476: 30,2222 00252 ADRES NOUNFLG
024091,002477:
024092,002478: 30,2223 32252 CAF V16N77
024093,002479: 30,2224 04647 TC BANKCALL
024094,002480: 30,2225 20623 CADR GOFLASH
024095,002481: 30,2226 04103 TC GOTOPOOH
024096,002482: 30,2227 04103 TC GOTOPOOH
024097,002483: 30,2230 12204 TCF 72SHOWX
024098,002484:
024099,002485: 30,2231 05147 READCYCL TC FINVAC20
024100,002486: 30,2232 E7,1702 EBANK= MRKBUF1
024101,002487: 30,2232 02235 60067 2CADR R27JOB
024102,002488:
024103,002489: 30,2234 15327 TCF TASKOVER
024104,002490:
024105,002491: 30,2235 05415 R27JOB TC PHASCHNG
024106,002492: 30,2236 05022 OCT 05022
024107,002493: 30,2237 20000 OCT 20000
024108,002494:
024109,002495: 30,2240 06006 TC INTPRET
024110,002496: 30,2241 77624 CALL
024111,002497: 30,2242 60512 R27GO
024112,002498: 30,2243 77776 EXIT
024113,002499:
024114,002500: 30,2244 35032 CAF 2SECS
024115,002501: 30,2245 05236 TC TWIDDLE
024116,002502: 30,2246 02231 ADRES READCYCL
024117,002503:
024118,002504: 30,2247 15220 TCF ENDOFJOB
024119,002505:
024120,002506: 30,2250 01510 V06N72 VN 0672
024121,002507: 30,2251 04114 V16N76 VN 1676
024122,002508: 30,2252 04115 V16N77 VN 1677
024123,002509:
024124,002510: 30,2253 00006 TIMETASK EXTEND
024125,002511: 30,2254 41336 DCS BUFTIME
024126,002512: 30,2255 53340 DXCH TFO
024127,002513: 30,2256 00006 EXTEND
024128,002514: 30,2257 31334 DCA FIXTIME
024129,002515: 30,2260 21340 DAS TFO
024130,002516:
024131,002517: 30,2261 35003 CAF ZERO
024132,002518: 30,2262 02355 TC TFOCHECK
024133,002519: 30,2263 02325 TC N72STUFF
024134,002520:
024135,002521: 30,2264 35030 CTASK CAF 1SEC
024136,002522: 30,2265 05246 TC WAITLIST
024137,002523: 30,2266 1333 EBANK= FIXTIME
024138,002524: 30,2266 02253 60062 2CADR TIMETASK
024139,002525:
024140,002526: 30,2270 00006 EXTEND
024141,002527: 30,2271 41334 DCS FIXTIME
024142,002528: 30,2272 53340 DXCH TFO
024143,002529: 30,2273 00006 EXTEND
024144,002530: 30,2274 30025 DCA TIME2
024145,002531: 30,2275 21340 DAS TFO
024146,002532:
024147,002533: 30,2276 34773 CAF 0.64SEC
024148,002534: 30,2277 02355 TC TFOCHECK
024149,002535: 30,2300 15327 TCF TASKOVER
024150,002536:
024151,002537: 30,2301 34775 CAF TRACKBIT
024152,002538: 30,2302 70075 MASK FLAGWRD1
024153,002539: 30,2303 10000 CCS A
024154,002540: 30,2304 12306 TCF +2
024155,002541: 30,2305 15327 TCF TASKOVER
024156,002542:
|
|
The name of the following label is a guess.
|
024158,002544: 30,2306 05415 REDOCTSK TC PHASCHNG
024159,002545: 30,2307 00173 OCT 00173
024160,002546: 30,2310 01,2102 3P17SPT1 = 3.17SPOT
024161,002547:
024162,002548: 30,2310 00006 EXTEND
024163,002549: 30,2311 30033 DCA CDUX
024164,002550: 30,2312 53352 DXCH CDUSNAPX
024165,002551: 30,2313 00006 EXTEND
024166,002552: 30,2314 30035 DCA CDUZ
024167,002553: 30,2315 53354 DXCH CDUSNAPZ
024168,002554: 30,2316 30036 CA CDUS
024169,002555: 30,2317 55355 TS CDUSNAPS
024170,002556:
024171,002557: 30,2320 37651 CAF PRIO27
024172,002558: 30,2321 05150 TC FINDVAC
024173,002559: 30,2322 1333 EBANK= FIXTIME
024174,002560: 30,2322 02405 60062 2CADR PHIJOB
024175,002561:
024176,002562: 30,2324 15327 TCF TASKOVER
024177,002563:
024178,002564: 30,2325 00004 N72STUFF INHINT
024179,002565: 30,2326 34777 CAF TDFLGBIT
024180,002566: 30,2327 64770 AD NOUNBIT
024181,002567: 30,2330 40000 COM
024182,002568: 30,2331 70107 MASK FLGWRD11
024183,002569: 30,2332 54107 TS FLGWRD11
024184,002570:
024185,002571: 30,2333 00006 EXTEND
024186,002572: 30,2334 32510 DCA DP-.01
024187,002573: 30,2335 53342 DXCH PHETA
024188,002574:
024189,002575: 30,2336 31333 CA FIXTIME
024190,002576: 30,2337 00006 EXTEND
024191,002577: 30,2340 12342 BZF +2
024192,002578: 30,2341 12345 TCF +4
024193,002579:
024194,002580: 30,2342 40107 CS FLGWRD11
024195,002581: 30,2343 74770 MASK NOUNBIT
024196,002582: 30,2344 26107 ADS FLGWRD11
024197,002583:
024198,002584: 30,2345 44771 CS N77FBIT
024199,002585: 30,2346 70107 MASK FLGWRD11
024200,002586: 30,2347 54107 TS FLGWRD11
024201,002587:
024202,002588: 30,2350 00003 RELINT
024203,002589: 30,2351 00006 EXTEND
024204,002590: 30,2352 31334 DCA FIXTIME
024205,002591: 30,2353 53336 DXCH BUFTIME
024206,002592:
024207,002593: 30,2354 00002 TC Q
024208,002594:
|
|
The names of the following two labels are guesses.
|
024210,002596: 30,2355 54062 TFOCHECK TS ITEMP2
024211,002597:
024212,002598: 30,2356 35003 CAF ZERO
024213,002599: 30,2357 54061 TS ITEMP1
024214,002600:
024215,002601: 30,2360 11337 CCS TFO
024216,002602: 30,2361 12372 TCF POSTFO
024217,002603: 30,2362 12364 TCF +2
024218,002604: 30,2363 12367 TCF +4
024219,002605:
024220,002606: 30,2364 41340 CS TFO +1
024221,002607: 30,2365 00006 EXTEND
024222,002608: 30,2366 62372 BZMF POSTFO
024223,002609:
024224,002610: 30,2367 00006 EXTEND
024225,002611: 30,2370 31340 DCA TFO
024226,002612: 30,2371 12374 TCF POSTFO +2
024227,002613:
024228,002614: 30,2372 00006 POSTFO EXTEND
024229,002615: 30,2373 41340 DCS TFO
024230,002616: 30,2374 20062 +2 DAS ITEMP1
024231,002617:
024232,002618: 30,2375 10061 CCS ITEMP1
024233,002619: 30,2376 16706 TCF Q+1
024234,002620: 30,2377 12401 TCF +2
024235,002621: 30,2400 00002 TC Q
024236,002622:
024237,002623: 30,2401 40062 CS ITEMP2
024238,002624: 30,2402 00006 EXTEND
024239,002625: 30,2403 66706 BZMF Q+1
024240,002626: 30,2404 00002 TC Q
024241,002627:
024242,002628: 30,2405 35023 PHIJOB CAF .5SEC
024243,002629: 30,2406 04647 TC BANKCALL
024244,002630: 30,2407 01731 CADR DELAYJOB
024245,002631:
024246,002632: 30,2410 02416 TC PHICOMP
024247,002633:
024248,002634: 30,2411 07722 TC DOWNFLAG
024249,002635: 30,2412 00256 ADRES SNAPFLAG
024250,002636:
024251,002637: 30,2413 05415 TC PHASCHNG
024252,002638: 30,2414 00003 OCT 00003
024253,002639: 30,2415 15220 TCF ENDOFJOB
024254,002640:
024255,002641: 30,2416 00006 PHICOMP EXTEND
024256,002642: 30,2417 22377 QXCH PHIEXIT
024257,002643:
024258,002644: 30,2420 31355 CA CDUSNAPS
024259,002645: 30,2421 50120 INDEX FIXLOC
024260,002646: 30,2422 54011 TS 9D
024261,002647: 30,2423 31354 CA CDUSNAPT
024262,002648: 30,2424 50120 INDEX FIXLOC
024263,002649: 30,2425 54013 TS 11D
024264,002650: 30,2426 30120 CA FIXLOC
024265,002651: 30,2427 66211 AD SIX
024266,002652: 30,2430 40000 COM
024267,002653: 30,2431 50120 INDEX FIXLOC
024268,002654: 30,2432 54046 TS X1
024269,002655:
024270,002656: 30,2433 06006 TC INTPRET
024271,002657: 30,2434 77624 CALL
024272,002658: 30,2435 46000 SXTNB
024273,002659: 30,2436 02352 STORE VECLOS
024274,002660:
024275,002661: 30,2437 47014 BOFF RTB
024276,002662: 30,2440 05750 FIXFLAG
024277,002663: 30,2441 60446 NOWCOMP
024278,002664: 30,2442 45563 LOADTIME
024279,002665: 30,2443 51025 DSU BPL
024280,002666: 30,2444 01334 FIXTIME
024281,002667: 30,2445 60454 TDSNAP
024282,002668:
024283,002669: 30,2446 77634 NOWCOMP RTB
024284,002670: 30,2447 45563 LOADTIME
024285,002671: 30,2450 34041 STCALL TDEC1
024286,002672: 30,2451 11423 CSMCONIC
024287,002673: 30,2452 77650 GOTO
024288,002674: 30,2453 60461 PREANGLE
024289,002675:
024290,002676: 30,2454 71214 TDSNAP SET DLOAD
024291,002677: 30,2455 05474 TDFLAG
024292,002678: 30,2456 01334 FIXTIME
024293,002679: 30,2457 34041 STCALL TDEC1
024294,002680: 30,2460 11400 CSMPREC
024295,002681:
024296,002682: 30,2461 77201 PREANGLE SETPD VLOAD
024297,002683: 30,2462 00001 0
024298,002684: 30,2463 00001 RATT
024299,002685: 30,2464 00023 STORE 18D
024300,002686:
024301,002687: 30,2465 63256 UNIT PDVL
024302,002688: 30,2466 00007 VATT
024303,002689: 30,2467 00031 STORE 24D
024304,002690: 30,2470 77776 EXIT
024305,002691:
024306,002692: 30,2471 31351 CA CDUSNAPX
024307,002693: 30,2472 55165 TS CDUSPOTX
024308,002694: 30,2473 31352 CA CDUSNAPY
024309,002695: 30,2474 55161 TS CDUSPOTY
024310,002696: 30,2475 31353 CA CDUSNAPZ
024311,002697: 30,2476 55163 TS CDUSPOTZ
024312,002698:
024313,002699: 30,2477 04647 TC BANKCALL
024314,002700: 30,2500 47547 CADR QUICTRIG
024315,002701:
024316,002702: 30,2501 06006 TC INTPRET
024317,002703: 30,2502 45175 VLOAD CALL
024318,002704: 30,2503 02352 VECLOS
024319,002705: 30,2504 61513 ANGLER
024320,002706: 30,2505 77776 EXIT
024321,002707:
024322,002708: 30,2506 00377 TC PHIEXIT
024323,002709:
024324,002710: 30,2507 4773 0.64SEC = BIT7
024325,002711:
024326,002712: 30,2507 77777 DP-.01 OCT 77777 # CONSTANTS
024327,002713: 30,2510 61337 OCT 61337 # ADJACENT -.01 FOR MGA DSP
024328,002714:
|
|
The following word appears to be unreferenced.
|
024330,002716: 30,2511 01004 UNUSED1 OCT 01004
024331,002717:
024332,002718: 30,2512 45020 R27GO STQ CALL
024333,002719: 30,2513 02350 R27END
024334,002720: 30,2514 60616 R27RNGRD
024335,002721:
024336,002722: 30,2515 77601 SETPD
024337,002723: 30,2516 00001 0
024338,002724:
024339,002725: 30,2517 65345 DLOAD PDDL
024340,002726: 30,2520 01116 MARKTIME
024341,002727: 30,2521 01122 VHFRANGE
024342,002728: 30,2522 66206 PUSH SSP
024343,002729: 30,2523 02345 NPASS
024344,002730: 30,2524 77773 DEC -4 B-14
024345,002731: 30,2525 71214 BON DLOAD
024346,002732: 30,2526 05716 R27UP1
024347,002733: 30,2527 60534 +5
024348,002734: 30,2530 01122 VHFRANGE
024349,002735: 30,2531 02343 STORE RBUF
024350,002736:
024351,002737: 30,2532 77650 GOTO
024352,002738: 30,2533 60540 CYCVHF
024353,002739:
024354,002740: 30,2534 45014 BOFF CALL
024355,002741: 30,2535 05753 P25FLAG
024356,002742: 30,2536 60540 CYCVHF
024357,002743: 30,2537 60631 VHFMOD
024358,002744:
024359,002745: 30,2540 63154 CYCVHF LXA,2 INCR,2
024360,002746: 30,2541 02344 NPASS
024361,002747: 30,2542 00001 1D
024362,002748: 30,2543 45134 SXA,2 CALL
024363,002749: 30,2544 02344 NPASS
024364,002750: 30,2545 60616 R27RNGRD
024365,002751:
024366,002752: 30,2546 77601 SETPD
024367,002753: 30,2547 00005 4
024368,002754:
024369,002755: 30,2550 65345 DLOAD PDDL
024370,002756: 30,2551 01116 MARKTIME
024371,002757: 30,2552 01122 VHFRANGE
024372,002758: 30,2553 45206 PUSH DSU
024373,002759: 30,2554 00003 2
024374,002760: 30,2555 52054 BZE GOTO
024375,002761: 30,2556 60560 +2
024376,002762: 30,2557 60570 RANGCHNG
024377,002763:
024378,002764: 30,2560 77745 DLOAD
024379,002765: 30,2561 00005 4
024380,002766: 30,2562 00001 STORE 0
024381,002767:
024382,002768: 30,2563 46135 SLOAD BHIZ
024383,002769: 30,2564 02345 NPASS
024384,002770: 30,2565 60577 TAKE2
024385,002771: 30,2566 77650 GOTO
024386,002772: 30,2567 60540 CYCVHF
024387,002773:
|
|
The name of the following label is a guess.
|
024389,002775: 30,2570 45014 RANGCHNG BOFF CALL
024390,002776: 30,2571 05753 P25FLAG
024391,002777: 30,2572 60574 +2
024392,002778: 30,2573 60631 VHFMOD
024393,002779: 30,2574 45345 DLOAD DSU
024394,002780: 30,2575 00007 6
024395,002781: 30,2576 00003 2
024396,002782: 30,2577 71240 TAKE2 BMN DLOAD
024397,002783: 30,2600 60603 +3
024398,002784: 30,2601 77626 STADR
024399,002785: 30,2602 77774 STORE 2
024400,002786:
024401,002787: 30,2603 43345 DLOAD DAD
024402,002788: 30,2604 00005 4
024403,002789: 30,2605 00001 0
024404,002790: 30,2606 40342 SR1 SETPD
024405,002791: 30,2607 00001 0
024406,002792: 30,2610 71206 PUSH DLOAD
024407,002793: 30,2611 00003 2
024408,002794: 30,2612 41461 SL PUSH
024409,002795: 30,2613 20210 7
024410,002796: 30,2614 77650 GOTO
024411,002797: 30,2615 60700 SAMPLE
024412,002798:
|
|
The name of the following function is a guess.
|
024414,002800: 30,2616 77420 R27RNGRD STQ EXIT
024415,002801: 30,2617 02345 RNGRET
024416,002802:
024417,002803: 30,2620 04647 TC BANKCALL
024418,002804: 30,2621 70702 CADR RANGERD
024419,002805: 30,2622 02626 TC +4
024420,002806:
024421,002807: 30,2623 06006 TC INTPRET
024422,002808: 30,2624 77650 GOTO
024423,002809: 30,2625 02345 RNGRET
024424,002810:
024425,002811: 30,2626 06006 TC INTPRET
024426,002812: 30,2627 77650 GOTO
024427,002813: 30,2630 02350 R27END
024428,002814:
024429,002815: 30,2631 45345 VHFMOD DLOAD DSU
024430,002816: 30,2632 02343 RBUF
024431,002817: 30,2633 01122 VHFRANGE
024432,002818: 30,2634 00013 STORE 10D
024433,002819:
024434,002820: 30,2635 45246 ABS DSU
024435,002821: 30,2636 31414 VHFMODLO
024436,002822: 30,2637 71240 BMN DLOAD
024437,002823: 30,2640 60674 SETRBUF
024438,002824: 30,2641 32001 328NM
024439,002825: 30,2642 77765 SIGN
024440,002826: 30,2643 00013 10D
024441,002827: 30,2644 02343 STORE RBUF
024442,002828:
024443,002829: 30,2645 54170 AXT,1 XSU,1
024444,002830: 30,2646 77773 DEC -4 B-14
024445,002831: 30,2647 02344 NPASS
024446,002832: 30,2650 46135 SLOAD BHIZ
024447,002833: 30,2651 00047 X1
024448,002834: 30,2652 60657 +5
024449,002835:
024450,002836: 30,2653 45345 DLOAD DSU
024451,002837: 30,2654 00003 2
024452,002838: 30,2655 02343 RBUF
024453,002839: 30,2656 00003 STORE 2
024454,002840:
024455,002841: 30,2657 54345 DLOAD SL
024456,002842: 30,2660 02343 RBUF
024457,002843: 30,2661 20210 7
024458,002844: 30,2662 44214 BON BDSU
024459,002845: 30,2663 05715 R27UP2
024460,002846: 30,2664 60671 +5
024461,002847: 30,2665 02337 OPVEC
024462,002848: 30,2666 02337 STORE OPVEC
024463,002849: 30,2667 77650 GOTO
024464,002850: 30,2670 60674 SETRBUF
024465,002851:
024466,002852: 30,2671 77621 BDSU
024467,002853: 30,2672 03752 SVEC
024468,002854: 30,2673 03752 STORE SVEC
024469,002855:
|
|
The name of the following label is a guess.
|
024471,002857: 30,2674 77745 SETRBUF DLOAD
024472,002858: 30,2675 01122 VHFRANGE
024473,002859: 30,2676 02343 STORE RBUF
024474,002860: 30,2677 77616 RVQ
024475,002861:
024476,002862: 30,2700 43014 SAMPLE BON BON
024477,002863: 30,2701 05715 R27UP2
024478,002864: 30,2702 60763 WUNZMOR
024479,002865: 30,2703 05716 R27UP1
024480,002866: 30,2704 60714 HOWMUCHR
024481,002867:
024482,002868: 30,2705 45545 DLOAD STADR
024483,002869: 30,2706 61440 STODL OPVEC
024484,002870: 30,2707 77626 STADR
024485,002871: 30,2710 75436 STORE OPVEC +2
024486,002872:
024487,002873: 30,2711 52014 SET GOTO
024488,002874: 30,2712 05476 R27UP1
024489,002875: 30,2713 02350 R27END
024490,002876:
024491,002877: 30,2714 77745 HOWMUCHR DLOAD
024492,002878: 30,2715 77742 SR1
024493,002879: 30,2716 14007 STODL 6
024494,002880: 30,2717 02337 OPVEC
024495,002881: 30,2720 43342 SR1 DAD
024496,002882: 30,2721 00007 6
024497,002883: 30,2722 17502 STODL SVTEM
024498,002884:
024499,002885: 30,2723 70415 DAD SR1
024500,002886: 30,2724 02341 OPVEC +2
024501,002887: 30,2725 17510 STODL TEMTYM
024502,002888: 30,2726 00001 0
024503,002889: 30,2727 54225 DSU SL
024504,002890: 30,2730 02341 OPVEC +2
024505,002891: 30,2731 20217 14D
024506,002892: 30,2732 45325 PDDL DSU
024507,002893: 30,2733 00003 2
024508,002894: 30,2734 02337 OPVEC
024509,002895: 30,2735 45471 DDV STADR
024510,002896: 30,2736 60273 STODL SVTEM +2
024511,002897: 30,2737 15204 ZEROVECS
024512,002898: 30,2740 27506 STOVL SVTEM +4
024513,002899: 30,2741 15204 ZEROVECS
024514,002900: 30,2742 03462 STORE WMAT +2
024515,002901: 30,2743 17472 STODL WMAT +10D
024516,002902: 30,2744 34745 UPPERLEF
024517,002903: 30,2745 17460 STODL WMAT
024518,002904: 30,2746 34747 MIDDLE
024519,002905: 30,2747 77671 DDV
024520,002906: 30,2750 00001 0
024521,002907: 30,2751 17470 STODL WMAT +8D
024522,002908: 30,2752 34751 BOTTOMRI
024523,002909: 30,2753 17500 STODL WMAT +16D
024524,002910: 30,2754 03655 DELVIMU
024525,002911: 30,2755 37512 STCALL VSAVTEM
024526,002912: 30,2756 57046 GRP2PC
024527,002913: 30,2757 43014 CLEAR SETGO
024528,002914: 30,2760 05670 FIXFLAG
024529,002915: 30,2761 05435 R27UP2
024530,002916: 30,2762 61441 STOR77
024531,002917:
024532,002918: 30,2763 77776 WUNZMOR EXIT
024533,002919: 30,2764 35007 CAF THIRTEEN
024534,002920: 30,2765 05562 TC GENTRAN
024535,002921: 30,2766 01727 ADRES VHF.W
024536,002922: 30,2767 01457 ADRES WMAT
024537,002923: 30,2770 00003 RELINT
024538,002924:
024539,002925: 30,2771 35007 CAF THIRTEEN
024540,002926: 30,2772 05562 TC GENTRAN
024541,002927: 30,2773 01745 ADRES VHF.W +14D
024542,002928: 30,2774 01475 ADRES WMAT +14D
024543,002929:
024544,002930: 30,2775 06006 TC INTPRET
024545,002931: 30,2776 77614 BOFF
024546,002932: 30,2777 05752 P48FLAG
024547,002933: 30,3000 61011 TMCORP
024548,002934: 30,3001 45345 DLOAD DSU
024549,002935: 30,3002 03655 DELVIMU
024550,002936: 30,3003 03512 VSAVTEM
024551,002937: 30,3004 44352 SL1 BDSU
024552,002938: 30,3005 03504 SVTEM +2
024553,002939: 30,3006 17504 STODL SVTEM +2
024554,002940: 30,3007 03655 DELVIMU
024555,002941: 30,3010 03512 STORE VSAVTEM
024556,002942:
024557,002943: 30,3011 45545 TMCORP DLOAD STADR
024558,002944: 30,3012 62004 STODL VHF.OMEG
024559,002945: 30,3013 54225 DSU SL
024560,002946: 30,3014 03510 TEMTYM
024561,002947: 30,3015 20216 13D
024562,002948: 30,3016 01761 STORE VHF.B +2
024563,002949:
024564,002950: 30,3017 70516 DSQ SR1
024565,002951: 30,3020 15763 STODL VHF.B +4
024566,002952: 30,3021 03510 TEMTYM
024567,002953: 30,3022 14003 STODL 2D
024568,002954: 30,3023 15202 DPHALF
024569,002955: 30,3024 25757 STOVL VHF.B
024570,002956: 30,3025 01757 VHF.B
024571,002957: 30,3026 72441 DOT SL1
024572,002958: 30,3027 03502 SVTEM
024573,002959: 30,3030 54221 BDSU SL
024574,002960: 30,3031 01773 VHF.OMEG
024575,002961: 30,3032 20211 8D
024576,002962:
024577,002963: 30,3033 63201 SETPD PDVL
024578,002964: 30,3034 00005 4
024579,002965: 30,3035 01757 VHF.B
024580,002966: 30,3036 72505 VXM VSL2
024581,002967: 30,3037 03460 WMAT
024582,002968: 30,3040 01765 STORE VHF.Z
024583,002969:
024584,002970: 30,3041 43236 VSQ DAD
024585,002971: 30,3042 34743 VARGAP
024586,002972: 30,3043 60206 PUSH NORM
024587,002973: 30,3044 00050 X2
024588,002974: 30,3045 63265 BDDV PDVL
024589,002975: 30,3046 15174 1B2
024590,002976: 30,3047 01765 VHF.Z
024591,002977: 30,3050 77721 MXV
024592,002978: 30,3051 03460 WMAT
024593,002979: 30,3052 01773 STORE VHF.OMEG
024594,002980:
024595,002981: 30,3053 60246 ABS NORM
024596,002982: 30,3054 00047 X1
024597,002983: 30,3055 77264 XSU,2 VLOAD
024598,002984: 30,3056 00046 X1
024599,002985: 30,3057 01773 VHF.OMEG
024600,002986: 30,3060 74257 VSL* VXSC
024601,002987: 30,3061 20201 0,1
024602,002988: 30,3062 77626 STADR
024603,002989: 30,3063 76004 STORE VHF.OMEG
024604,002990:
024605,002991: 30,3064 53761 VXSC VSL*
024606,002992: 30,3065 00005 4
024607,002993: 30,3066 57603 0 -5,2
024608,002994: 30,3067 77655 VAD
024609,002995: 30,3070 03502 SVTEM
024610,002996: 30,3071 17502 STODL SVTEM
024611,002997: 30,3072 34743 VARGAP
024612,002998: 30,3073 75471 DDV SQRT
024613,002999: 30,3074 43342 SR1 DAD
024614,003000: 30,3075 15202 DPHALF
024615,003001: 30,3076 77665 BDDV
024616,003002: 30,3077 15174 DP1/4TH
024617,003003: 30,3100 03510 STORE TEMTYM
024618,003004:
024619,003005: 30,3101 76131 SSP AXT,1
024620,003006: 30,3102 00051 S1
024621,003007: 30,3103 00002 2
024622,003008: 30,3104 00006 6
024623,003009:
|
|
The name of the following label is a guess.
|
024625,003011: 30,3105 73775 TMCORP1 VLOAD VXSC*
024626,003012: 30,3106 01765 VHF.Z
024627,003013: 30,3107 02001 VHF.OMEG +6,1
024628,003014: 30,3110 53761 VXSC VSL*
024629,003015: 30,3111 03510 TEMTYM
024630,003016: 30,3112 57573 3,2
024631,003017: 30,3113 60006 PUSH TIX,1
024632,003018: 30,3114 61105 TMCORP1
024633,003019:
024634,003020: 30,3115 77775 VLOAD
024635,003021: 30,3116 77645 BVSU
024636,003022: 30,3117 03474 WMAT +12D
024637,003023: 30,3120 27474 STOVL WMAT +12D
024638,003024: 30,3121 77645 BVSU
024639,003025: 30,3122 03466 WMAT +6D
024640,003026: 30,3123 27466 STOVL WMAT +6D
024641,003027: 30,3124 77645 BVSU
024642,003028: 30,3125 03460 WMAT
024643,003029: 30,3126 03460 STORE WMAT
024644,003030:
024645,003031: 30,3127 71214 SWITCHGO BOFF DLOAD
024646,003032: 30,3130 05750 FIXFLAG
024647,003033: 30,3131 61222 WOTNOW
024648,003034: 30,3132 01334 FIXTIME
024649,003035: 30,3133 03510 STORE TEMTYM
024650,003036:
024651,003037: 30,3134 50021 BDSU BMN
024652,003038: 30,3135 00001 0
024653,003039: 30,3136 61206 SNAPPY
024654,003040: 30,3137 51025 DSU BPL
024655,003041: 30,3140 34756 95SECS
024656,003042: 30,3141 61152 OPDONE
024657,003043: 30,3142 43014 BON SET
024658,003044: 30,3143 05712 P48FLAG
024659,003045: 30,3144 61146 P48OPDUN
024660,003046: 30,3145 05474 TDFLAG
024661,003047:
024662,003048: 30,3146 43014 P48OPDUN CLEAR CLRGO
024663,003049: 30,3147 05671 SNAPFLAG
024664,003050: 30,3150 05626 N77FLAG
024665,003051: 30,3151 61363 THISJAZZ
024666,003052:
024667,003053: 30,3152 77745 OPDONE DLOAD
024668,003054: 30,3153 03502 SVTEM
024669,003055: 30,3154 16337 STODL OPVEC
024670,003056: 30,3155 03504 SVTEM +2
024671,003057: 30,3156 16341 STODL OPVEC +2
024672,003058: 30,3157 00001 0
024673,003059: 30,3160 03510 STORE TEMTYM
024674,003060:
024675,003061: 30,3161 54225 DSU SL
024676,003062: 30,3162 01334 FIXTIME
024677,003063: 30,3163 20216 13D
024678,003064: 30,3164 01761 STORE VHF.B +2
024679,003065:
024680,003066: 30,3165 70516 DSQ SR1
024681,003067: 30,3166 15763 STODL VHF.B +4
024682,003068: 30,3167 01334 FIXTIME
024683,003069: 30,3170 77615 DAD
024684,003070: 30,3171 34762 4MINS
024685,003071: 30,3172 02347 STORE FIXTEMP
024686,003072: 30,3173 77776 EXIT
024687,003073:
024688,003074: 30,3174 05415 TC PHASCHNG
024689,003075: 30,3175 00172 OCT 00172
024690,003076: 30,3176 01,2055 2P17SPT1 = 2.17SPOT
024691,003077:
024692,003078: 30,3176 06006 TC INTPRET
024693,003079: 30,3177 77745 DLOAD
024694,003080: 30,3200 02347 FIXTEMP
024695,003081: 30,3201 01334 STORE FIXTIME
024696,003082:
024697,003083: 30,3202 43014 SET CLRGO
024698,003084: 30,3203 05466 N77FLAG
024699,003085: 30,3204 05630 FIXFLAG
024700,003086: 30,3205 61255 XTRAP
024701,003087:
024702,003088: 30,3206 45345 SNAPPY DLOAD DSU
024703,003089: 30,3207 01334 FIXTIME
024704,003090: 30,3210 34760 20SEX
024705,003091: 30,3211 50021 BDSU BMN
024706,003092: 30,3212 00001 0
024707,003093: 30,3213 61363 THISJAZZ
024708,003094:
024709,003095: 30,3214 71214 SET DLOAD
024710,003096: 30,3215 05471 SNAPFLAG
024711,003097: 30,3216 20510 DP-.01
024712,003098: 30,3217 01342 STORE PHETA
024713,003099: 30,3220 77650 GOTO
024714,003100: 30,3221 61363 THISJAZZ
024715,003101:
024716,003102: 30,3222 45345 WOTNOW DLOAD DSU
024717,003103: 30,3223 00001 0
024718,003104: 30,3224 01334 FIXTIME
024719,003105: 30,3225 43244 BPL DAD
024720,003106: 30,3226 61252 XTRAP -3
024721,003107: 30,3227 34756 95SECS
024722,003108: 30,3230 71240 BMN DLOAD
024723,003109: 30,3231 61252 XTRAP -3
024724,003110: 30,3232 01334 FIXTIME
024725,003111: 30,3233 03510 STORE TEMTYM
024726,003112:
024727,003113: 30,3234 54225 DSU SL
024728,003114: 30,3235 00003 2
024729,003115: 30,3236 20216 13D
024730,003116: 30,3237 01761 STORE VHF.B +2
024731,003117:
024732,003118: 30,3240 70516 DSQ SR1
024733,003119: 30,3241 01763 STORE VHF.B +4
024734,003120: 30,3242 77776 EXIT
024735,003121:
024736,003122: 30,3243 05415 TC PHASCHNG
024737,003123: 30,3244 00112 OCT 00112
024738,003124: 30,3245 01,2044 2P11SPT1 = 2.11SPOT
024739,003125:
024740,003126: 30,3245 06006 TC INTPRET
024741,003127: 30,3246 43014 SET SETGO
024742,003128: 30,3247 05466 N77FLAG
024743,003129: 30,3250 05430 FIXFLAG
024744,003130: 30,3251 61255 XTRAP
024745,003131:
024746,003132: 30,3252 77745 -3 DLOAD
024747,003133: 30,3253 00001 0
024748,003134: 30,3254 03510 STORE TEMTYM
024749,003135: 30,3255 77775 XTRAP VLOAD
024750,003136: 30,3256 15200 HIUNITY
024751,003137: 30,3257 15765 STODL PMATRIX +6D
024752,003138: 30,3260 01761 VHF.B +2
024753,003139: 30,3261 77742 SR1
024754,003140: 30,3262 25771 STOVL PMATRIX +10D
024755,003141: 30,3263 15176 HIUNITZ
024756,003142: 30,3264 25773 STOVL PMATRIX +12D
024757,003143: 30,3265 03502 SVTEM
024758,003144: 30,3266 76521 MXV VSL1
024759,003145: 30,3267 01757 PMATRIX
024760,003146: 30,3270 27502 STOVL SVTEM
024761,003147: 30,3271 01757 PMATRIX
024762,003148: 30,3272 76505 VXM VSL1
024763,003149: 30,3273 03460 WMAT
024764,003150: 30,3274 27460 STOVL WMAT
024765,003151: 30,3275 01765 PMATRIX +6
024766,003152: 30,3276 76505 VXM VSL1
024767,003153: 30,3277 03460 WMAT
024768,003154: 30,3300 03466 STORE WMAT +6D
024769,003155:
024770,003156: 30,3301 57435 VXV VCOMP
024771,003157: 30,3302 03460 WMAT
024772,003158:
|
|
The names of the next four labels are guesses.
|
024774,003160: 30,3303 41401 CHECKMAG SETPD PUSH
024775,003161: 30,3304 00001 0
024776,003162:
024777,003163: 30,3305 60246 ABS NORM
024778,003164: 30,3306 00047 X1
024779,003165: 30,3307 77254 BZE VLOAD
024780,003166: 30,3310 61354 TOOSMALL
024781,003167: 30,3311 74457 VSL* VSR1
024782,003168: 30,3312 20201 0,1
024783,003169: 30,3313 50206 PUSH DOT
024784,003170: 30,3314 03474 WMAT +12D
024785,003171: 30,3315 47515 PDVL VSQ
024786,003172: 30,3316 00001 0
024787,003173: 30,3317 41325 PDDL DMP
024788,003174: 30,3320 01761 VHF.B +2
024789,003175: 30,3321 02335 RTRIDOT
024790,003176: 30,3322 65316 DSQ PDDL
024791,003177: 30,3323 00007 6
024792,003178: 30,3324 60316 DSQ NORM
024793,003179: 30,3325 00047 X1
024794,003180: 30,3326 77665 BDDV
024795,003181: 30,3327 53605 DMP SL*
024796,003182: 30,3330 00011 8D
024797,003183: 30,3331 20161 0 -16D,1
024798,003184: 30,3332 43200 BOV DAD
024799,003185: 30,3333 61360 TOOBIG
024800,003186: 30,3334 34754 1B18
024801,003187: 30,3335 45366 SQRT DSU
024802,003188: 30,3336 34753 1B9
024803,003189:
024804,003190: 30,3337 77725 WMATUPDT PDDL
024805,003191: 30,3340 55301 NORM BDDV
024806,003192: 30,3341 00050 X2
024807,003193: 30,3342 15174 DP1/4TH
024808,003194: 30,3343 41205 DMP DMP
024809,003195: 30,3344 74261 SL VXSC
024810,003196: 30,3345 20215 12D
024811,003197: 30,3346 53257 VSL* VAD
024812,003198: 30,3347 57577 0 -1D,2
024813,003199: 30,3350 03474 WMAT +12D
024814,003200: 30,3351 03474 STORE WMAT +12D
024815,003201: 30,3352 77650 GOTO
024816,003202: 30,3353 61363 THISJAZZ
024817,003203:
024818,003204: 30,3354 77775 TOOSMALL VLOAD
024819,003205: 30,3355 52061 VSL GOTO
024820,003206: 30,3356 20217 14D
024821,003207: 30,3357 61303 CHECKMAG
024822,003208:
024823,003209: 30,3360 52145 TOOBIG DLOAD GOTO
024824,003210: 30,3361 15212 NEARONE
024825,003211: 30,3362 61337 WMATUPDT
024826,003212:
024827,003213: 30,3363 43014 THISJAZZ BON BON
024828,003214: 30,3364 05713 P25FLAG
024829,003215: 30,3365 61441 STOR77
024830,003216: 30,3366 05714 TDFLAG
024831,003217: 30,3367 61441 STOR77
024832,003218: 30,3370 43014 BON BON
024833,003219: 30,3371 05711 SNAPFLAG
024834,003220: 30,3372 61441 STOR77
024835,003221: 30,3373 05712 P48FLAG
024836,003222: 30,3374 61416 STHETA
024837,003223: 30,3375 77614 BON
024838,003224: 30,3376 05301 INTFLAG
024839,003225: 30,3377 61441 STOR77
024840,003226:
024841,003227: 30,3400 77401 SETPD EXIT
024842,003228: 30,3401 00001 0
024843,003229:
024844,003230: 30,3402 00006 EXTEND
024845,003231: 30,3403 30033 DCA CDUX
024846,003232: 30,3404 53352 DXCH CDUSNAPX
024847,003233: 30,3405 00006 EXTEND
024848,003234: 30,3406 30035 DCA CDUZ
024849,003235: 30,3407 53354 DXCH CDUSNAPZ
024850,003236: 30,3410 30036 CA CDUS
024851,003237: 30,3411 55355 TS CDUSNAPS
024852,003238:
024853,003239: 30,3412 02416 TC PHICOMP
024854,003240:
024855,003241: 30,3413 06006 TC INTPRET
024856,003242: 30,3414 77650 GOTO
024857,003243: 30,3415 61441 STOR77
024858,003244:
024859,003245: 30,3416 77201 STHETA SETPD VLOAD
024860,003246: 30,3417 00001 0
024861,003247: 30,3420 01022 RN
024862,003248: 30,3421 00023 STORE 18D
024863,003249:
024864,003250: 30,3422 63256 UNIT PDVL
024865,003251: 30,3423 01030 VN
024866,003252: 30,3424 24031 STOVL 24D
024867,003253: 30,3425 15202 HIUNITX
024868,003254: 30,3426 77624 CALL
024869,003255: 30,3427 61513 ANGLER
024870,003256: 30,3430 47014 BOFF RTB
024871,003257: 30,3431 05750 FIXFLAG
024872,003258: 30,3432 61441 STOR77
024873,003259: 30,3433 45563 LOADTIME
024874,003260: 30,3434 50025 DSU BMN
024875,003261: 30,3435 01334 FIXTIME
024876,003262: 30,3436 61441 STOR77
024877,003263: 30,3437 77614 SET
024878,003264: 30,3440 05474 TDFLAG
024879,003265:
024880,003266: 30,3441 71214 STOR77 BON DLOAD
024881,003267: 30,3442 05706 N77FLAG
024882,003268: 30,3443 61450 GARDOPT
024883,003269: 30,3444 03502 SVTEM
024884,003270: 30,3445 16337 STODL OPVEC
024885,003271: 30,3446 03504 SVTEM +2
024886,003272: 30,3447 02341 STORE OPVEC +2
024887,003273:
024888,003274: 30,3450 77624 GARDOPT CALL
024889,003275: 30,3451 57046 GRP2PC
024890,003276: 30,3452 77776 EXIT
024891,003277:
024892,003278: 30,3453 35007 CAF THIRTEEN
024893,003279: 30,3454 05562 TC GENTRAN
024894,003280: 30,3455 01457 ADRES WMAT
024895,003281: 30,3456 01727 ADRES VHF.W
024896,003282: 30,3457 00003 RELINT
024897,003283:
024898,003284: 30,3460 35007 CAF THIRTEEN
024899,003285: 30,3461 05562 TC GENTRAN
024900,003286: 30,3462 01475 ADRES WMAT +14D
024901,003287: 30,3463 01745 ADRES VHF.W +14D
024902,003288:
024903,003289: 30,3464 06006 TC INTPRET
024904,003290: 30,3465 77624 CALL
024905,003291: 30,3466 57046 GRP2PC
024906,003292: 30,3467 77650 GOTO
024907,003293: 30,3470 02350 R27END
024908,003294:
024909,003295: 30,3471 06006 STARTFIX TC INTPRET
024910,003296: 30,3472 52014 CLEAR GOTO
024911,003297: 30,3473 05670 FIXFLAG
024912,003298: 30,3474 02350 R27END
024913,003299:
024914,003300: 30,3475 06006 ENDFIX TC INTPRET
024915,003301: 30,3476 71214 SET DLOAD
024916,003302: 30,3477 05470 FIXFLAG
024917,003303: 30,3500 01334 FIXTIME
024918,003304: 30,3501 53025 DSU BZE
024919,003305: 30,3502 02347 FIXTEMP
024920,003306: 30,3503 61506 +3
024921,003307: 30,3504 77650 GOTO
024922,003308: 30,3505 02350 R27END
024923,003309:
024924,003310: 30,3506 45345 DLOAD DSU
024925,003311: 30,3507 02347 FIXTEMP
024926,003312: 30,3510 34762 4MINS
024927,003313: 30,3511 35334 STCALL FIXTIME
024928,003314: 30,3512 02350 R27END
024929,003315:
024930,003316: 30,3513 45020 ANGLER STQ CALL
024931,003317: 30,3514 00050 S1
024932,003318: 30,3515 47625 *NBSM*
024933,003319: 30,3516 41505 VXM PUSH
024934,003320: 30,3517 01720 REFSMMAT
024935,003321: 30,3520 72431 VPROJ VSL2
024936,003322: 30,3521 00001 0
024937,003323: 30,3522 53445 BVSU UNIT
024938,003324: 30,3523 00007 6
024939,003325: 30,3524 47315 PDVL VXV
024940,003326: 30,3525 00023 18D
024941,003327: 30,3526 00031 24D
024942,003328: 30,3527 47256 UNIT VXV
024943,003329: 30,3530 00023 18D
024944,003330: 30,3531 63241 DOT PDVL
024945,003331: 30,3532 00015 12D
024946,003332: 30,3533 50372 VSL1 DOT
024947,003333: 30,3534 00007 6
024948,003334: 30,3535 72565 SIGN SL1
024949,003335: 30,3536 00015 12D
024950,003336: 30,3537 77726 ACOS
024951,003337: 30,3540 25342 STOVL PHETA
024952,003338: 30,3541 00023 18D
024953,003339: 30,3542 51041 DOT BPL
024954,003340: 30,3543 00007 6
024955,003341: 30,3544 61551 +5
024956,003342:
024957,003343: 30,3545 44345 DLOAD BDSU
024958,003344: 30,3546 01342 PHETA
024959,003345: 30,3547 15212 NEARONE
024960,003346: 30,3550 01342 STORE PHETA
024961,003347:
024962,003348: 30,3551 77650 GOTO
024963,003349: 30,3552 00050 S1
024964,003350:
|
|
The following word appears to be unreferenced.
|
024966,003352: 30,3553 00033 UNUSED2 OCT 00033
024967,003353:
024968,003354: 36,2000 SETLOC P20S7
024969,003355: 36,2000 BANK
024970,003356: 36,2742 COUNT* $$/P20
024971,003357:
024972,003358: 36,2742 00000 12347 VARGAP 2DEC 83.6127 B-22
024973,003359: 36,2744 00031 34122 UPPERLEF 2DEC 6.47 B-12
024974,003360: 36,2746 00063 27024 MIDDLE 2DEC 12.93 B-12
024975,003361: 36,2750 04216 15674 BOTTOMRI 2DEC 0.102 E-5 B17
024976,003362:
024977,003363: 36,2752 26,3173 1B2 = DP1/4TH
024978,003364: 36,2752 00040 1B9 OCT 00040
024979,003365: 36,2753 00000 1B18 OCT 00000
024980,003366: 36,2754 02000 OCT 02000
024981,003367:
024982,003368: 36,2755 00000 22434 95SECS 2DEC 9500 B-28
024983,003369: 36,2757 00000 03720 20SEX 2DEC 2000 B-28
024984,003370: 36,2761 00001 16700 4MINS 2DEC 24000 B-28
024985,003371:
024986,003372:
024987,003373: 41,2000 SETLOC EXTVBS2
024988,003374: 41,2000 BANK
024989,003375: 41,3561 E7,1702 EBANK= MRKBUF1
024990,003376: 41,3561 COUNT* $$/EXTVB
024991,003377:
024992,003378: 41,3561 33610 V64PERF CAF V06N94
024993,003379: 41,3562 04647 TC BANKCALL
024994,003380: 41,3563 20456 CADR GOXDSPF
024995,003381: 41,3564 05537 TC ENDEXT
024996,003382: 41,3565 13567 TCF +2
024997,003383: 41,3566 13561 TCF V64PERF
024998,003384:
024999,003385: 41,3567 06006 TC INTPRET
025000,003386: 41,3570 45160 AXC,1 CALL
025001,003387: 41,3571 03702 MRKBUF1
025002,003388: 41,3572 46000 SXTNB
025003,003389: 41,3573 14021 STODL COSTH
025004,003390: 41,3574 00025 THETA
025005,003391: 41,3575 57536 ASIN DCOMP
025006,003392: 41,3576 37720 STCALL UTPIT
025007,003393: 41,3577 22605 ARCTAN
025008,003394: 41,3600 03722 STORE UTYAW
025009,003395: 41,3601 77776 EXIT
025010,003396:
025011,003397: 41,3602 33611 CAF V06N78
025012,003398: 41,3603 04647 TC BANKCALL
025013,003399: 41,3604 20456 CADR GOXDSPF
025014,003400: 41,3605 05537 TC ENDEXT
025015,003401: 41,3606 05537 TC ENDEXT
025016,003402: 41,3607 13602 TCF -5
025017,003403:
025018,003404: 41,3610 01536 V06N94 VN 0694
025019,003405: 41,3611 01516 V06N78 VN 0678
End of include-file P20-P25.agc. Parent file is MAIN.agc