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. |
007806,000002: ## Copyright: Public domain. 007807,000003: ## Filename: FRESH_START_AND_RESTART.agc 007808,000004: ## Purpose: A section of Skylark revision 048. 007809,000005: ## It is part of the source code for the Apollo Guidance Computer (AGC) 007810,000006: ## for Skylab-2, Skylab-3, Skylab-4, and ASTP. No original listings of 007811,000007: ## this software are available; instead, this file was created via 007812,000008: ## disassembly of dumps of the core rope modules actually flown on 007813,000009: ## Skylab-2. Access to these modules was provided by the New Mexico 007814,000010: ## Museum of Space History. 007815,000011: ## Assembler: yaYUL 007816,000012: ## Contact: Ron Burkey <info@sandroid.org>. 007817,000013: ## Website: www.ibiblio.org/apollo/index.html 007818,000014: ## Mod history: 2023-09-04 MAS Created from Artemis 072. 007819,000015: ## 2024-02-27 MAS Updated for Skylark 48. 007820,000016: 007821,000017: 007822,000018: # PROGRAM DESCRIPTION 8 APRIL, 1967 007823,000019: # SUNDISK REV 120 007824,000020: # FUNCTIONAL DESCRIPTION 007825,000021: 007826,000022: # SLAP1 MAN INITIATED FRESH START 007827,000023: # 1. EXECUTE STARTSUB 007828,000024: # 2. TURN OFF DSKY DISCRETE-LAMPS 007829,000025: # 3. CLEAR FAIL REGISTERS,SELF CHECK ERROR COUNTER AND RESTART 007830,000026: # COUNTER 007831,000027: # 4. INITIALIZE OUTBIT CHANNEL 77 007832,000028: # 5. EXECUTE DOFSTART 007833,000029: 007834,000030: # DOFSTART MACHINE INITIATED FRESH START 007835,000031: 007836,000032: # 1. CLEAR SELF-CHECK REGISTERS, MODE REGISTER AND CDUZ REGISTER 007837,000033: # 2. CLEAR PHASE TABLE 007838,000034: # 3. INITIALIZE IMU FLAGS 007839,000035: # 4. INITIALIZE FLAGWORDS 007840,000036: # 5. TRANSFER CONTROL TO IDLE LOOP IN DUMMYJOB 007841,000037: 007842,000038: # GOPROG HARDWARE RESTART 007843,000039: 007844,000040: # 0. EXECUTE STARTSUB 007845,000041: # 1. TRANSFER CONTROL TO DOFSTART IF ANY OF THE FOLLOWING CONDITIONS 007846,000042: # EXIST. 007847,000043: # A. RESTART OCCURED DURING EXECUTION OF ERASCHK 007848,000044: # B. BOTH OSCILLATOR FAIL AND AGC WARNING ARE ON 007849,000045: # C. MARK REJECT AND EITHER NAV OR MAIN DSKY ERROR LIGHT RESET 007850,000046: # ARE ON. 007851,000047: # 2. SCHEDULE A T5RUPT PROGRAM FOR THE DAP 007852,000048: # 3. SET FLAGWRD5 BITS FOR INTWAKE ROUTINE 007853,000049: # 4. EXTINGUISH ALL DSKY LAMPS, EXCEPT PROGRAM ALARM, GIMBAL LOCK AND 007854,000050: # NO ATT 007855,000051: # 5. INITIALIZE IMU FLAGS 007856,000052: # 6. IF ENGINE COMMAND IS ON (FLAGWRD5, BIT 7), SET ENGINE ON (CHAN- 007857,000053: # NEL 11, BIT 13) 007858,000054: # 7. TRANSFER CONTROL TO GOPROG3 007859,000055: 007860,000056: # ENEMA SOFTWARE RESTART INITIATED BY MAJOR MODE CHANGE 007861,000057: 007862,000058: # 1. EXECUTE STARTSB2 007863,000059: # 2. KILL PROGRAMS THAT WERE INTEGRATING OR WAITING FOR INTEGRATION 007864,000060: # ROUTINE 007865,000061: # 3. TRANSFER CONTROL TO GOPROG3 007866,000062: 007867,000063: # GOPROG3 SUBROUTINE COMMON TO GOPROG AND ENEMA 007868,000064: 007869,000065: # 1. TEST PHASE TABLES - IF INCORRECT, DISPLAY ALARM 1107 AND 007870,000066: # TRANSFER CONTROL TO DOFSTART 007871,000067: # 2. DISPLAY MAJOR MODE 007872,000068: 007873,000069: 007874,000070: # 3. IF ANY GROUPS WERE ACTIVE UPON RESTART, TRANSFER CONTROL TO THE 007875,000071: # RESTARTS SUBROUTINE TO RESCHEDULE PENDING TASKS, LONGCALLS, AND 007876,000072: # JOBS (P20 IS RESTARTED VIA FINDVAC) 007877,000073: # 4. IF NO GROUPS WERE ACTIVE UPON RESTART, DISPLAY ALARM CODE 007878,000074: # 1110 (RESTART WITH NO ACTIVE GROUPS). 007879,000075: # 5. TRANSFER CONTROL TO IDLE LOOP IN DUMMYJOB 007880,000076: 007881,000077: # STARTSUB SUBROUTINE COMMON TO SLAP1 AND GOPROG 007882,000078: 007883,000079: # 1. CLEAR OUTBIT CHANNELS 5 AND 6 007884,000080: # 2. INITIALIZE TIME5, TIME4, TIME3 007885,000081: # 3. TRANSFER CONTROL TO STARTSB2 007886,000082: 007887,000083: # STARTSB2 SUBROUTINE COMMON TO STARTSUB AND ENEMA 007888,000084: 007889,000085: # 1. INITIALIZE OUTBIT CHANNELS 11,12,13 AND 14 007890,000086: # 2. REPLACE ALL TASKS ON WAITLIST WITH ENDTASK 007891,000087: # 3. MAKE ALL EXECUTIVE REGISTERS AVAILABLE 007892,000088: # 4. MAKE ALL VAC AREAS AVAILABLE 007893,000089: # 5. CLEAR DSKY REGISTERS 007894,000090: # 6. ZERO NUMEROUS SWITCHES 007895,000091: # 7. INITIALIZE OPTICS FLAGS 007896,000092: # 8. INITIALIZE PIPA AND TELEMETRY FAIL FLAGS 007897,000093: # 9. INITIALIZE DOWN TELEMETRY 007898,000094: 007899,000095: # INPUT/OUTPUT INITIALIZATION 007900,000096: 007901,000097: # A. CALLING SEQUENCE 007902,000098: 007903,000099: # SLAP1 - TC POSTJUMP OR VERB 36,ENTER 007904,000100: # CADR SLAP1 007905,000101: 007906,000102: # ENEMA - TC POSTJUMP *** DO NOT CALL ENEMA WITHOUT *** 007907,000103: # CADR ENEMA *** CONSULTING POOH PEOPLE *** 007908,000104: 007909,000105: # B. OUTPUT 007910,000106: 007911,000107: # ERASABLE MEMORY INITIALIZATION 007912,000108: 007913,000109: # PROGRAM ANALYSIS 007914,000110: 007915,000111: # A. SUBROUTINES CALLED 007916,000112: 007917,000113: # MR.KLEAN,WAITLIST,DSPMM,ALARM,RESTARTS,FINDVAC 007918,000114: 007919,000115: # B. ALARMS 007920,000116: 007921,000117: # 1107 PHASE TABLE ERROR 007922,000118: # 1110 RESTART WITH NO ACTIVE GROUPS 007923,000119: 007924,000120: 05,2000 SETLOC FRANDRES 007925,000121: 05,2000 BANK 007926,000122: 007927,000123: 05,2304 E3,1400 EBANK= LST1 007928,000124: 007929,000125: 05,2304 COUNT* $$/START 007930,000126: 05,2304 00004 SLAP1 INHINT # FRESH START. COMES HERE FROM PINBALL. 007931,000127: 05,2305 02751 TC STARTSUB # SUBROUTINE DOES MOST OF THE WORK. 007932,000128: 007933,000129: 05,2306 12313 STARTSW TCF SKIPSIM 007934,000130: 007935,000131: 05,2307 34764 STARTSIM CAF BIT14 007936,000132: 007937,000133: 05,2310 05150 TC FINDVAC 007938,000134: 007939,000135: 05,2311 77777 SIM2CADR OCT 77777 007940,000136: 007941,000137: 05,2312 77777 OCT 77777 007942,000138: 05,2313 31231 SKIPSIM CA DSPTAB +11D 007943,000139: 05,2314 75016 MASK BITS4&6 007944,000140: 05,2315 64763 AD BIT15 007945,000141: 05,2316 55231 TS DSPTAB +11D # REQUESTED FRESH START. 007946,000142: 007947,000143: 05,2317 35003 CAF ZERO # SAME STORY ON ZEROING FAILREG. 007948,000144: 05,2320 55365 TS ERCOUNT 007949,000145: 05,2321 54374 TS FAILREG 007950,000146: 05,2322 54375 TS FAILREG +1 007951,000147: 05,2323 54376 TS FAILREG +2 007952,000148: 05,2324 55276 TS REDOCTR 007953,000149: 007954,000150: 05,2325 00006 EXTEND 007955,000151: 05,2326 01077 WRITE CHAN77 # ZERO CHANNEL 77 007956,000152: 05,2327 44675 CS PRIO12 007957,000153: 05,2330 55312 TS DSRUPTSW 007958,000154: 007959,000155: 05,2331 35003 DOFSTART CAF ZERO # DO A FRESH START. 007960,000156: 05,2332 55360 TS ERESTORE # ***** MUST NOT BE REMOVED FROM DOFSTART 007961,000157: 05,2333 55362 TS SMODE # ***** MUST NOT BE REMOVED FROM DOFSTART 007962,000158: 05,2334 55501 TS UPSVFLAG # UPDATE STATE VECTOR REQUEST FLAGWORD 007963,000159: 05,2335 00006 EXTEND 007964,000160: 05,2336 01005 WRITE CHAN5 # TURN OFF RCS JETS 007965,000161: 05,2337 00006 EXTEND 007966,000162: 05,2340 01006 WRITE CHAN6 # TURN OFF RCS JETS 007967,000163: 05,2341 00006 EXTEND 007968,000164: 05,2342 01011 WRITE DSALMOUT # ZERO CHANNEL 11 007969,000165: 05,2343 00006 EXTEND 007970,000166: 05,2344 01012 WRITE CHAN12 # ZERO CHANNEL 12 007971,000167: 05,2345 00006 EXTEND 007972,000168: 05,2346 01013 WRITE CHAN13 # ZERO CHANNEL 13 007973,000169: 05,2347 00006 EXTEND 007974,000170: 05,2350 01014 WRITE CHAN14 # ZERO CHANNEL 14 007975,000171: 05,2351 55321 TS WTOPTION 007976,000172: 05,2352 54332 TS DNLSTCOD 007977,000173: 007978,000174: 05,2353 54367 TS NVSAVE 007979,000175: 05,2354 55265 TS EBANKTEM 007980,000176: 05,2355 54765 TS TRKMKCNT 007981,000177: 05,2356 54764 TS VHFCNT 007982,000178: 05,2357 55237 TS EXTVBACT 007983,000179: 007984,000180: 05,2360 41231 CS DSPTAB +11D 007985,000181: 05,2361 75016 MASK BITS4&6 007986,000182: 05,2362 10000 CCS A 007987,000183: 05,2363 02367 TC +4 007988,000184: 05,2364 35016 CA BITS4&6 007989,000185: 05,2365 00006 EXTEND # THE IMU WAS IN COARSE ALIGN IN GIMBAL 007990,000186: 05,2366 05012 WOR CHAN12 # LOCK, SO PUT IT BACK INTO COARSE ALIGN. 007991,000187: 05,2367 02444 TC MR.KLEAN 007992,000188: 007993,000189: 05,2370 45003 CS ZERO 007994,000190: 05,2371 55204 TS MODREG 007995,000191: 007996,000192: 05,2372 34346 CAF PRIO30 007997,000193: 05,2373 54364 TS RESTREG 007998,000194: 007999,000195: 05,2374 33153 CAF IM30INIF # FRESH START IMU INITIALIZATION. 008000,000196: 05,2375 55323 TS IMODES30 008001,000197: 008002,000198: 05,2376 37702 CAF NEGONE 008003,000199: 05,2377 55313 TS OPTIND # KILL COARSE OPTICS 008004,000200: 008005,000201: 05,2400 33155 CAF OPTINITF 008006,000202: 05,2401 55327 TS OPTMODES 008007,000203: 008008,000204: 05,2402 35067 CAF IM33INIT 008009,000205: 05,2403 55324 TS IMODES33 008010,000206: 008011,000207: 05,2404 00006 EXTEND # LET T5 IDLE. 008012,000208: 05,2405 33135 DCA T5IDLER 008013,000209: 05,2406 52113 DXCH T5LOC 008014,000210: 008015,000211: 05,2407 33156 CA SWINIT 008016,000212: 05,2410 54074 TS STATE 008017,000213: 008018,000214: 05,2411 30075 CA FLAGWRD1 008019,000215: 05,2412 74766 MASK NOP01BIT # LEAVE NODOP01 FLAG UNTOUCHED 008020,000216: 05,2413 63157 AD SWINIT +1 008021,000217: 05,2414 54075 TS FLAGWRD1 008022,000218: 008023,000219: 05,2415 33160 CA SWINIT +2 008024,000220: 05,2416 54076 TS STATE +2 008025,000221: 008026,000222: 05,2417 30077 CA FLAGWRD3 008027,000223: 05,2420 74765 MASK REFSMBIT 008028,000224: 05,2421 63161 AD SWINIT +3 008029,000225: 05,2422 54077 TS FLAGWRD3 008030,000226: 008031,000227: 05,2423 00006 EXTEND 008032,000228: 05,2424 33163 DCA SWINIT +4 008033,000229: 05,2425 52101 DXCH STATE +4 008034,000230: 05,2426 00006 EXTEND 008035,000231: 05,2427 33165 DCA SWINIT +6 008036,000232: 05,2430 52103 DXCH STATE +6 008037,000233: 05,2431 00006 EXTEND 008038,000234: 05,2432 33167 DCA SWINIT +8D 008039,000235: 05,2433 52105 DXCH STATE +8D 008040,000236: 008041,000237: 05,2434 34767 CAF HDSUPBIT 008042,000238: 05,2435 70106 MASK FLGWRD10 008043,000239: 05,2436 63170 AD SWINIT +10D 008044,000240: 05,2437 54106 TS FLGWRD10 008045,000241: 008046,000242: 05,2440 33171 CAF SWINIT +11D 008047,000243: 05,2441 54107 TS FLGWRD11 008048,000244: 008049,000245: 05,2442 04666 ENDRSTRT TC POSTJUMP 008050,000246: 05,2443 03201 CADR DUMMYJOB +2 # DOES A RELINT. (IN A SWITCHED BANK.) 008051,000247: 008052,000248: 05,2444 00004 MR.KLEAN INHINT 008053,000249: 05,2445 00006 EXTEND 008054,000250: 05,2446 35003 DCA NEG0 008055,000251: 05,2447 53150 DXCH -PHASE2 008056,000252: 05,2450 00006 POOKLEAN EXTEND 008057,000253: 05,2451 35003 DCA NEG0 008058,000254: 05,2452 53154 DXCH -PHASE4 008059,000255: 05,2453 00006 EXTEND 008060,000256: 05,2454 35003 DCA NEG0 008061,000257: 05,2455 53146 DXCH -PHASE1 008062,000258: 05,2456 00006 V37KLEAN EXTEND 008063,000259: 05,2457 35003 DCA NEG0 008064,000260: 05,2460 53152 DXCH -PHASE3 008065,000261: 05,2461 00006 EXTEND 008066,000262: 05,2462 35003 DCA NEG0 008067,000263: 05,2463 53156 DXCH -PHASE5 008068,000264: 05,2464 00006 UPKLEAN EXTEND 008069,000265: 05,2465 35003 DCA NEG0 008070,000266: 05,2466 53160 DXCH -PHASE6 008071,000267: 05,2467 00002 TC Q 008072,000268: 008073,000269: 05,2470 06200 OCT6200 OCT 6200 008074,000270: 008075,000271: # COMES HERE FROM LOCATION 4000, GOJAM. RESTART ANY PROGRAMS WHICH MAY HAVE BEEN RUNNING AT THE TIME. 008076,000272: 008077,000273: 05,2471 25276 GOPROG INCR REDOCTR # ADVANCE RESTART COUNTER. 008078,000274: 008079,000275: 05,2472 22002 LXCH Q 008080,000276: 05,2473 00006 EXTEND 008081,000277: 05,2474 04007 ROR SUPERBNK 008082,000278: 05,2475 53433 DXCH RSBBQ 008083,000279: 05,2476 04647 TC BANKCALL # STORE ERASABLES FOR DEBUGGING PURPOSES. 008084,000280: 05,2477 40000 CADR VAC5STOR 008085,000281: 05,2500 34763 CA BIT15 # TEST OSC FAIL BIT TO SEE IF WE HAVE 008086,000282: 05,2501 00006 EXTEND # HAD A POWER TRANSIENT. IF SO, ATTEMPT 008087,000283: 05,2502 03033 WAND CHAN33 # A RESTART. IF NOT, CHECK THE PRESENT 008088,000284: 05,2503 00006 EXTEND # STATE OF AGC WARNING BIT. 008089,000285: 05,2504 12512 BZF BUTTONS 008090,000286: 008091,000287: 05,2505 34764 CA BIT14 # IF AGC WARNING ON (BIT = 0), DO A 008092,000288: 05,2506 00006 EXTEND # FRESH START ON ASSUMPTION THAT 008093,000289: 05,2507 02033 RAND CHAN33 # WE ARE IN A RESTART LOOP. 008094,000290: 05,2510 00006 EXTEND 008095,000291: 05,2511 12747 BZF NONAVKEY +1 008096,000292: 008097,000293: 05,2512 02726 BUTTONS TC LIGHTSET # MAKE FRESH START CHECKS BEFORE ERESTORE. 008098,000294: 008099,000295: # ERASCHK TEMPORARILY STORES THE CONTENTS OF TWO ERASABLE LOCATIONS, X 008100,000296: # AND X+1 INTO SKEEP5 AND SKEEP6. IT ALSO STORES X INTO SKEEP7 AND 008101,000297: # ERESTORE. IF ERASCHK IS INTERRUPTED BY A RESTART, C(ERESTORE) SHOULD 008102,000298: # EQUAL C(SKEEP7),AND BE A + NUMBER LESS THAN 2000 OCT. OTHERWISE 008103,000299: # C(ERESTORE) SHOULD EQUAL +0. 008104,000300: 008105,000301: 05,2513 34344 CAF HI5 008106,000302: 05,2514 71360 MASK ERESTORE 008107,000303: 05,2515 00006 EXTEND 008108,000304: 05,2516 12520 BZF +2 # IF ERESTORE NOT = +0 OR +N LESS THAN 2K, 008109,000305: 05,2517 12747 TCF NONAVKEY +1 # DOUBT E MEMORY AND DO FRESH START. 008110,000306: 05,2520 41360 CS ERESTORE 008111,000307: 05,2521 00006 EXTEND 008112,000308: 05,2522 12537 BZF ELRSKIP -1 008113,000309: 05,2523 61377 AD SKEEP7 008114,000310: 05,2524 00006 EXTEND 008115,000311: 05,2525 12527 BZF +2 # = SKEEP7, RESTORE E MEMORY. 008116,000312: 05,2526 12747 TCF NONAVKEY +1 # NOT = SKEEP7, DOUBT EMEM, DO FRESH START 008117,000313: 05,2527 31374 CA SKEEP4 008118,000314: 05,2530 54003 TS EBANK # EBANK OF E MEMORY THAT WAS UNDER TEST. 008119,000315: 05,2531 00006 EXTEND # (NOT DXCH SINCE THIS MIGHT HAPPEN AGAIN) 008120,000316: 05,2532 31376 DCA SKEEP5 008121,000317: 05,2533 51377 INDEX SKEEP7 008122,000318: 05,2534 52001 DXCH 0000 # E MEMORY RESTORED. 008123,000319: 05,2535 35003 CA ZERO 008124,000320: 05,2536 55360 TS ERESTORE 008125,000321: 05,2537 02751 -1 TC STARTSUB # DO INITIALIZATION AFTER ERASE RESTORE. 008126,000322: 05,2540 30102 ELRSKIP CA FLAGWRD6 # RESTART AUTOPILOTS 008127,000323: 05,2541 74076 MASK DPCONFIG 008128,000324: 05,2542 00006 EXTEND 008129,000325: 05,2543 74777 MP BIT3 # BITS 15,14 00 T5IDLOC 008130,000326: 05,2544 76211 MASK SIX # 01 REDORCS 008131,000327: 05,2545 00006 EXTEND # 10 REDOTVC 008132,000328: 05,2546 50000 INDEX A # 11 REDOSAT 008133,000329: 05,2547 33135 DCA T5IDLER 008134,000330: 05,2550 52113 DXCH T5LOC 008135,000331: 008136,000332: 05,2551 44764 CS INTFLBIT 008137,000333: 05,2552 70106 MASK FLGWRD10 008138,000334: 05,2553 54106 TS FLGWRD10 008139,000335: 008140,000336: 05,2554 31327 CA OPTMODES 008141,000337: 05,2555 75012 MASK OPTINITR 008142,000338: 05,2556 64773 AD OCDUFBIT 008143,000339: 05,2557 55327 TS OPTMODES 008144,000340: 008145,000341: 05,2560 34774 CAF NOIMUDAP 008146,000342: 05,2561 71324 MASK IMODES33 008147,000343: 05,2562 65067 AD IM33INIT 008148,000344: 05,2563 55324 TS IMODES33 008149,000345: 008150,000346: 05,2564 33154 CA 9,6,4 # LEAVE PROG ALARM, GIMBAL LOCK, NO ATT 008151,000347: 05,2565 71231 MASK DSPTAB +11D # LAMPS INTACT ON HARDWARE RESTART 008152,000348: 05,2566 64763 AD BIT15 008153,000349: 05,2567 57231 XCH DSPTAB +11D 008154,000350: 05,2570 74776 MASK BIT4 # IF NO ATT LAMP WAS ON, LEAVE ISS IN 008155,000351: 05,2571 00006 EXTEND # COURSE ALIGN 008156,000352: 05,2572 12601 BZF NOCOARSE 008157,000353: 05,2573 04725 TC IBNKCALL # IF NO ATT LAMP ON, RETURN ISS TO 008158,000354: 05,2574 17021 CADR SETCOARS # COARSE ALIGN 008159,000355: 008160,000356: 05,2575 36211 CAF SIX 008161,000357: 05,2576 05246 TC WAITLIST 008162,000358: 05,2577 E3,1474 EBANK= CDUIND 008163,000359: 05,2577 03015 16063 2CADR CA+ECE 008164,000360: 008165,000361: 05,2601 33144 NOCOARSE CAF IFAILINH # LEAVE FAILURE INHIBITS INTACT ON 008166,000362: 05,2602 71323 MASK IMODES30 # HARDWARE RESTART. RESET ALL 008167,000363: 05,2603 67660 AD IM30INIR # FAILURE CODES. 008168,000364: 05,2604 55323 TS IMODES30 008169,000365: 008170,000366: 05,2605 40101 CS FLAGWRD5 008171,000367: 05,2606 74773 MASK ENGONBIT 008172,000368: 05,2607 10000 CCS A 008173,000369: 05,2610 12633 TCF GOPROG3 008174,000370: 05,2611 34765 CAF BIT13 008175,000371: 05,2612 00006 EXTEND 008176,000372: 05,2613 05011 WOR DSALMOUT # TURN ENGINE ON 008177,000373: 05,2614 12633 TCF GOPROG3 008178,000374: 05,2615 00004 ENEMA INHINT 008179,000375: 05,2616 02726 TC LIGHTSET # EXIT TO DOFSTART IF ERROR RESET AND 008180,000376: 05,2617 02757 TC STARTSB2 # MARK REJECT DEPRESSED SIMULTANEOUSLY 008181,000377: 05,2620 44764 CS INTFLBIT 008182,000378: 05,2621 70106 MASK FLGWRD10 008183,000379: 05,2622 54106 TS FLGWRD10 008184,000380: 008185,000381: 05,2623 40102 CS FLAGWRD6 # IS TVC ON 008186,000382: 05,2624 74076 MASK DPCONFIG 008187,000383: 05,2625 00006 EXTEND 008188,000384: 05,2626 62633 BZMF GOPROG3 # NO 008189,000385: 008190,000386: 05,2627 35023 CAF .5SEC # YES, CALL TVCEXEC TASK WHICH WAS KILLED 008191,000387: 05,2630 05246 TC WAITLIST # IN STARTSB2. 008192,000388: 05,2631 E6,1453 EBANK= CNTR 008193,000389: 05,2631 03013 34066 2CADR TVCEXEC 008194,000390: 008195,000391: 05,2633 30102 GOPROG3 CA FLAGWRD6 008196,000392: 05,2634 74076 MASK DPCONFIG 008197,000393: 05,2635 00006 EXTEND 008198,000394: 05,2636 62647 BZMF GOPROG4 008199,000395: 05,2637 34775 CAF TRACKBIT 008200,000396: 05,2640 70075 MASK FLAGWRD1 008201,000397: 05,2641 10000 CCS A 008202,000398: 05,2642 12647 TCF GOPROG4 008203,000399: 05,2643 04611 TC E6SETTER 008204,000400: 05,2644 04463 TC STOPRATE 008205,000401: 05,2645 35037 CAF EBANK3 008206,000402: 05,2646 54003 TS EBANK 008207,000403: 05,2647 35004 GOPROG4 CAF NUMGRPS # VERIFY PHASE TABLE AGREEMENTS 008208,000404: 05,2650 54161 PCLOOP TS MPAC +5 008209,000405: 05,2651 60000 DOUBLE 008210,000406: 05,2652 00006 EXTEND 008211,000407: 05,2653 50000 INDEX A 008212,000408: 05,2654 31146 DCA -PHASE1 # COMPLEMENT INTO A, DIRECT INTO L. 008213,000409: 05,2655 00006 EXTEND 008214,000410: 05,2656 06001 RXOR LCHAN # RESULT MUST BE -0 FOR AGREEMENT. 008215,000411: 05,2657 10000 CCS A 008216,000412: 05,2660 12715 TCF PTBAD # RESTART FAILURE. 008217,000413: 05,2661 12715 TCF PTBAD 008218,000414: 05,2662 12715 TCF PTBAD 008219,000415: 008220,000416: 05,2663 10161 CCS MPAC +5 # PROCESS ALL RESTART GROUPS. 008221,000417: 05,2664 12650 TCF PCLOOP 008222,000418: 05,2665 54162 TS MPAC +6 # SET TO +0. 008223,000419: 05,2666 05363 TC MMDSPLAY # DISPLAY MAJOR MODE 008224,000420: 008225,000421: 05,2667 00004 INHINT # RELINT DONE IN MMDSPLAY 008226,000422: 008227,000423: 05,2670 35004 CAF NUMGRPS # SEE IF ANY GROUPS RUNNING. 008228,000424: 05,2671 54161 NXTRST TS MPAC +5 008229,000425: 05,2672 60000 DOUBLE 008230,000426: 05,2673 50000 INDEX A 008231,000427: 05,2674 11146 CCS PHASE1 008232,000428: 05,2675 12677 TCF PACTIVE # PNZ - GROUP ACTIVE. 008233,000429: 05,2676 12704 TCF PINACT # +0 - GROUP NOT RUNNING. 008234,000430: 008235,000431: 05,2677 54154 PACTIVE TS MPAC 008236,000432: 05,2700 24154 INCR MPAC # ABS OF PHASE. 008237,000433: 05,2701 24162 INCR MPAC +6 # INDICATE GROUP DEMANDS PRESENT. 008238,000434: 05,2702 04647 TC BANKCALL 008239,000435: 05,2703 03475 CADR RESTARTS 008240,000436: 008241,000437: 05,2704 10161 PINACT CCS MPAC +5 # PROCESS ALL RESTART GROUPS. 008242,000438: 05,2705 12671 TCF NXTRST 008243,000439: 008244,000440: 05,2706 10162 CCS MPAC +6 # NO, CHECK PHASE ACTIVITY FLAG 008245,000441: 05,2707 12442 TCF ENDRSTRT # PHASE ACTIVE 008246,000442: 05,2710 34763 CAF BIT15 # IS MODE -0 008247,000443: 05,2711 71204 MASK MODREG 008248,000444: 05,2712 00006 EXTEND 008249,000445: 05,2713 14103 BZF GOTOPOOH # NO 008250,000446: 05,2714 12442 TCF ENDRSTRT # YES 008251,000447: 05,2715 05644 PTBAD TC ALARM # SET ALARM TO SHOW PHASE TABLE FAILURE. 008252,000448: 05,2716 01107 OCT 1107 008253,000449: 008254,000450: 05,2717 12331 TCF DOFSTART # IN R2). 008255,000451: 008256,000452: # ******** ****** ****** 008257,000453: 008258,000454: # DO NOT USE GOPROG2 OR ENEMA WITHOUT CONSULTING POOH PEOPLE 008259,000455: 008260,000456: 05,2720 00004 GOPROG2 INHINT 008261,000457: 05,2721 02757 TC STARTSB2 008262,000458: 05,2722 44764 CS INTFLBIT 008263,000459: 05,2723 70106 MASK FLGWRD10 008264,000460: 05,2724 54106 TS FLGWRD10 008265,000461: 05,2725 12647 TCF GOPROG4 008266,000462: 05,2726 4765 OCT10000 = BIT13 008267,000463: 05,2726 4346 OCT30000 = PRIO30 008268,000464: 05,2726 34773 LIGHTSET CAF BIT7 # DOFSTART IF MARK REJECT AND EITHER 008269,000465: 05,2727 00006 EXTEND # ERROR LIGHT RESET BUTTONS ARE DEPRESSED 008270,000466: 05,2730 02016 RAND NAVKEYIN 008271,000467: 05,2731 00006 EXTEND 008272,000468: 05,2732 12746 BZF NONAVKEY # NO MARK REJECT 008273,000469: 05,2733 34342 CAF OCT37 008274,000470: 05,2734 00006 EXTEND 008275,000471: 05,2735 02016 RAND NAVKEYIN # NAV DSKY KEYCODES,MARK,MARK REJECT 008276,000472: 05,2736 63152 AD -ELR 008277,000473: 05,2737 00006 EXTEND 008278,000474: 05,2740 12747 BZF NONAVKEY +1 008279,000475: 05,2741 00006 EXTEND 008280,000476: 05,2742 00015 READ MNKEYIN # MAIN DSKY KEYCODES 008281,000477: 05,2743 63152 AD -ELR 008282,000478: 05,2744 00006 EXTEND 008283,000479: 05,2745 12747 BZF +2 008284,000480: 008285,000481: 05,2746 00002 NONAVKEY TC Q 008286,000482: 008287,000483: 05,2747 02751 +1 TC STARTSUB 008288,000484: 05,2750 12331 TCF DOFSTART 008289,000485: 05,2751 33145 STARTSUB CAF LDNPHAS1 # SET POINTER SO NEXT 20MS DOWNRUPT WILL 008290,000486: 05,2752 54334 TS DNTMGOTO # CAUSE THE CURRENT DOWNLIST TO BE 008291,000487: # INTERRUPTED AND START SENDING FROM THE 008292,000488: # BEGINNING OF THE CURRENT DOWNLIST. 008293,000489: 008294,000490: 05,2753 37662 CAF OCT37774 # 37774 TO TIME5 008295,000491: 05,2754 54030 TS TIME5 008296,000492: 05,2755 65001 AD ONE # 37775 TO TIME4 008297,000493: 05,2756 54027 TS TIME4 008298,000494: 008299,000495: 05,2757 33150 STARTSB2 CAF OCT77603 # TURN OFF UPLINK ACTY, TEMP CAUTION, KR, 008300,000496: 05,2760 00006 EXTEND # FLASH, OP. ERROR, LEAVE OTHERS UNCHANGED 008301,000497: 05,2761 03011 WAND DSALMOUT 008302,000498: 008303,000499: 05,2762 34761 CAF POSMAX # 37777 to TIME3. 008304,000500: 05,2763 54026 TS TIME3 008305,000501: 008306,000502: 05,2764 33151 CAF OCT74777 # TURN OFF TEST ALARMS, STANDBY ENABLE. 008307,000503: 05,2765 00006 EXTEND 008308,000504: 05,2766 03013 WAND CHAN13 008309,000505: 05,2767 34764 CAF R21BIT # CLEAR BITS 008310,000506: 05,2770 64766 AD P21BIT 008311,000507: 05,2771 64770 AD SKIPVBIT 008312,000508: 05,2772 64775 AD REVBIT 008313,000509: 05,2773 40000 COM 008314,000510: 05,2774 70076 MASK FLAGWRD2 008315,000511: 05,2775 64770 AD SKIPVBIT # NOW SET SKIPVHF FLAG. 008316,000512: 05,2776 54076 TS FLAGWRD2 008317,000513: 05,2777 44776 CS MARKBIT 008318,000514: 05,3000 70075 MASK FLAGWRD1 008319,000515: 05,3001 54075 TS FLAGWRD1 008320,000516: 008321,000517: 05,3002 44776 CS CYC61BIT 008322,000518: 05,3003 70074 MASK FLAGWRD0 008323,000519: 05,3004 54074 TS FLAGWRD0 008324,000520: 05,3005 E3,1400 EBANK= LST1 008325,000521: 05,3005 35037 CAF EBANK3 008326,000522: 05,3006 54003 TS EBANK # SET FOR E3 008327,000523: 008328,000524: 05,3007 34762 CAF NEG1/2 # INITIALIZE WAITLIST DELTA-TS. 008329,000525: 05,3010 55407 TS LST1 +7 008330,000526: 05,3011 55406 TS LST1 +6 008331,000527: 05,3012 55405 TS LST1 +5 008332,000528: 05,3013 55404 TS LST1 +4 008333,000529: 05,3014 55403 TS LST1 +3 008334,000530: 05,3015 55402 TS LST1 +2 008335,000531: 05,3016 55401 TS LST1 +1 008336,000532: 05,3017 55400 TS LST1 008337,000533: 008338,000534: 05,3020 45307 CS ENDTASK 008339,000535: 05,3021 55410 TS LST2 008340,000536: 05,3022 55412 TS LST2 +2 008341,000537: 05,3023 55414 TS LST2 +4 008342,000538: 05,3024 55416 TS LST2 +6 008343,000539: 05,3025 55420 TS LST2 +8D 008344,000540: 05,3026 55422 TS LST2 +10D 008345,000541: 05,3027 55424 TS LST2 +12D 008346,000542: 05,3030 55426 TS LST2 +14D 008347,000543: 05,3031 55430 TS LST2 +16D 008348,000544: 05,3032 45310 CS ENDTASK +1 008349,000545: 05,3033 55411 TS LST2 +1 008350,000546: 05,3034 55413 TS LST2 +3 008351,000547: 05,3035 55415 TS LST2 +5 008352,000548: 05,3036 55417 TS LST2 +7 008353,000549: 05,3037 55421 TS LST2 +9D 008354,000550: 05,3040 55423 TS LST2 +11D 008355,000551: 05,3041 55425 TS LST2 +13D 008356,000552: 05,3042 55427 TS LST2 +15D 008357,000553: 05,3043 55431 TS LST2 +17D 008358,000554: 008359,000555: 05,3044 45003 CS ZERO # MAKE ALL EXECUTIVE REGISTER SETS 008360,000556: 05,3045 54167 TS PRIORITY # AVAILABLE. 008361,000557: 05,3046 54203 TS PRIORITY +12D 008362,000558: 05,3047 54217 TS PRIORITY +24D 008363,000559: 05,3050 54233 TS PRIORITY +36D 008364,000560: 05,3051 54247 TS PRIORITY +48D 008365,000561: 05,3052 54263 TS PRIORITY +60D 008366,000562: 05,3053 54277 TS PRIORITY +72D 008367,000563: 008368,000564: 05,3054 55312 TS DSRUPTSW 008369,000565: 05,3055 54067 TS NEWJOB # SHOWS NO ACTIVE JOBS. 008370,000566: 008371,000567: 05,3056 33147 CAF VAC1ADRC # MAKE ALL VAC AREAS AVAILABLE. 008372,000568: 05,3057 54400 TS VAC1USE 008373,000569: 05,3060 65017 AD LTHVACA 008374,000570: 05,3061 54454 TS VAC2USE 008375,000571: 05,3062 65017 AD LTHVACA 008376,000572: 05,3063 54530 TS VAC3USE 008377,000573: 05,3064 65017 AD LTHVACA 008378,000574: 05,3065 54604 TS VAC4USE 008379,000575: 05,3066 65017 AD LTHVACA 008380,000576: 05,3067 54660 TS VAC5USE 008381,000577: 008382,000578: 05,3070 34355 CAF TEN # BLANK DSKY REGISTERS (PROGRAM,VERB,NOUN, 008383,000579: # R1,R2,R3) 008384,000580: 05,3071 54154 DSPOFF TS MPAC 008385,000581: 05,3072 44766 CS BIT12 008386,000582: 05,3073 50154 INDEX MPAC 008387,000583: 05,3074 55216 TS DSPTAB 008388,000584: 05,3075 10154 CCS MPAC 008389,000585: 05,3076 13071 TCF DSPOFF 008390,000586: 008391,000587: 05,3077 54773 TS DELAYLOC 008392,000588: 05,3100 54774 TS DELAYLOC +1 008393,000589: 05,3101 54775 TS DELAYLOC +2 008394,000590: 05,3102 54776 TS DELAYLOC +3 008395,000591: 05,3103 54045 TS INLINK 008396,000592: 05,3104 55171 TS DSPCNT 008397,000593: 05,3105 55235 TS CADRSTOR 008398,000594: 05,3106 55206 TS REQRET 008399,000595: 05,3107 55210 TS CLPASS 008400,000596: 05,3110 55205 TS DSPLOCK 008401,000597: 05,3111 55213 TS MONSAVE # KILL MONITOR 008402,000598: 05,3112 55214 TS MONSAVE1 008403,000599: 05,3113 55174 TS VERBREG 008404,000600: 05,3114 55175 TS NOUNREG 008405,000601: 05,3115 55236 TS DSPLIST 008406,000602: 05,3116 55325 TS IMUCADR 008407,000603: 05,3117 55314 TS LGYRO 008408,000604: 05,3120 54100 TS FLAGWRD4 # KILL INTERFACE DISPLAYS 008409,000605: 05,3121 54301 TS MARKINDX 008410,000606: 05,3122 55237 TS EXTVBACT 008411,000607: 05,3123 35006 CAF NOUTCON 008412,000608: 05,3124 55211 TS NOUT 008413,000609: 008414,000610: 05,3125 33146 CAF LESCHK # SELF CHECK GO-TO REGISTER. 008415,000611: 05,3126 55361 TS SELFRET 008416,000612: 008417,000613: 05,3127 44351 CS VD1 008418,000614: 05,3130 55172 TS DSPCOUNT 008419,000615: 008420,000616: 05,3131 00002 TC Q 008421,000617: 05,3132 30001 T5IDLOC CA L # T5RUPT COMES HERE EVERY 163.84 SECS 008422,000618: 05,3133 15341 TCF NOQRSM +1 # WHEN NOBODY IS USING IT. 008423,000619: 008424,000620: 05,3134 E6,1674 EBANK= OGANOW 008425,000621: 05,3134 03132 12066 T5IDLER 2CADR T5IDLOC 008426,000622: 008427,000623: 05,3136 E6,1674 EBANK= OGANOW 008428,000624: 05,3136 02043 42066 2CADR REDORCS 008429,000625: 008430,000626: 05,3140 E6,1674 EBANK= OGANOW 008431,000627: 05,3140 03176 34066 2CADR REDOTVC 008432,000628: 008433,000629: 05,3142 E6,1674 EBANK= OGANOW 008434,000630: 05,3142 02000 54066 2CADR REDOSAT 008435,000631: 008436,000632: 05,3144 00435 IFAILINH OCT 435 008437,000633: 05,3145 03444 LDNPHAS1 GENADR DNPHASE1 008438,000634: 05,3146 03333 LESCHK GENADR SELFCHK 008439,000635: 05,3147 00400 VAC1ADRC ADRES VAC1USE 008440,000636: 05,3150 77603 OCT77603 OCT 77603 008441,000637: 05,3151 74777 OCT74777 OCT 74777 008442,000638: 05,3152 5004 NUMGRPS EQUALS FIVE 008443,000639: 05,3152 77755 -ELR OCT -22 # -ERROR LIGHT RESET KEY CODE. 008444,000640: 05,3153 37411 IM30INIF OCT 37411 # INHIBITS IMU FAIL FOR 5 SEC AND PIP ISSW 008445,000641: 05,3154 7660 IM30INIR = PRIO37 008446,000642: 05,3154 5067 IM33INIT = PRIO16 # NO PIP OR TM FAIL SIGNALS. 008447,000643: 05,3154 00450 9,6,4 OCT 450 008448,000644: 05,3155 00130 OPTINITF OCT 130 008449,000645: 05,3156 5012 OPTINITR = BITS4&5 008450,000646: 05,3156 00000 SWINIT OCT 0 008451,000647: 05,3157 00000 OCT 0 008452,000648: 05,3160 00000 OCT 0 008453,000649: 05,3161 00000 OCT 0 008454,000650: 008455,000651: 05,3162 00000 OCT 0 008456,000652: 05,3163 00000 OCT 0 008457,000653: 05,3164 00004 OCT 00004 # .05GSW 008458,000654: 05,3165 00000 OCT 0 008459,000655: 05,3166 00000 OCT 0 008460,000656: 05,3167 00000 OCT 0 008461,000657: 05,3170 00000 OCT 0 008462,000658: 05,3171 00000 OCT 0 008463,000659: # ROUTINE NAME GOTOPOOH -- ENTRANCE TO ROUTINE R00 (SELECTION OF NEW PROGRAM VIA V37) 008464,000660: # FUNCTIONAL DESCRIPTION 008465,000661: 008466,000662: # 1. FLASH V37 TO REQUEST SELECTION OF NEW PROGRAM 008467,000663: 008468,000664: 4000 SETLOC FFTAG10 008469,000665: 4000 BANK 008470,000666: 008471,000667: 4103 COUNT* $$/POO 008472,000668: 4103 07722 GOTOPOOH TC DOWNFLAG 008473,000669: 4104 00236 ADRES AUTOSEQ 008474,000670: 4105 05415 MNKGOPOO TC PHASCHNG 008475,000671: 4106 05024 OCT 05024 008476,000672: 4107 13000 OCT 13000 008477,000673: 4110 04666 TC POSTJUMP 008478,000674: 4111 10000 CADR GOPOOFIX 008479,000675: 4112 34773 AUTOCHK CAF AUTSQBIT # IS THIS AN AUTO SEQUENCE 008480,000676: 4113 70106 MASK FLGWRD10 008481,000677: 4114 00006 EXTEND 008482,000678: 4115 16711 BZF TCQ # NO, RETURN TO CALLER 008483,000679: 4116 05415 AUTOCHK1 TC PHASCHNG 008484,000680: 4117 05024 OCT 05024 008485,000681: 4120 13000 OCT 13000 008486,000682: 008487,000683: # GROUP 4 USE IS OK SINCE V37 TO FOLLOW 008488,000684: 4121 34765 CAF BIT13 008489,000685: 4122 56004 XCH FBANK # INCORRECT IF P80'S NOT IN BANK 4 (BIT13) 008490,000686: 4123 01005 TC AUTPOINT 008491,000687: 04,2000 SETLOC VERB37 008492,000688: 04,2000 BANK 008493,000689: 008494,000690: 04,2000 COUNT* $$/POO 008495,000691: 04,2000 02676 GOPOOFIX TC INITSUB 008496,000692: 04,2001 05544 TC CLEARMRK +2 008497,000693: 04,2002 04112 TC AUTOCHK 008498,000694: 04,2003 32006 CAF V37N99 008499,000695: 04,2004 05550 TC VNFLASH 008500,000696: 04,2005 02003 TC -2 008501,000697: 008502,000698: 04,2006 11343 V37N99 VN 3799 008503,000699: 008504,000700: # PROGRAM NAME V37 ASSEMBLY SUNDISK 008505,000701: # LOG SECTION FRESH START AND RESTART 008506,000702: 008507,000703: # FUNCTIONAL DESCRIPTION 008508,000704: 008509,000705: # 1. CHECK IF NEW PROGRAM ALLOWED. IF BIT 1 OF FLAGWRD2 (NODOFLAG) IS SET, AN ALARM 1520 IS CALLED. 008510,000706: # 2. CHECK FOR VALIDITY OF PROGRAM SELECTED. IF AN INVALID PROGRAM IS SELECTED, THE OPERATOR ERROR LIGHT IS 008511,000707: # SET AND CURRENT ACTIVITY, IF ANY, CONTINUES. 008512,000708: # 3. SERVICER IS TERMINATED IF IT HAS BEEN RUNNING. 008513,000709: # 4. INSTALL IS EXECUTED TO AVOID INTERRUPTING INTEGRATION. 008514,000710: # 5. THE ENGINE IS TURNED OFF AND THE DAP IS INITIALIZED FOR COAST. 008515,000711: # 6. TRACK, UPDATE AND TARG1 FLAGS ARE SET TO ZERO. 008516,000712: # 7. DISPLAY SYSTEM IS RELEASED. 008517,000713: # 8. THE FOLLOWING ARE PERFORMED FOR EACH OF THE THREE CASES. 008518,000714: # A. PROGRAM SELECTED IS P00. 008519,000715: # 1. RENDEZVOUS FLAG IS RESET (KILL P20). 008520,000716: # 2. STATINT1 IS SCHEDULED BY SETTING RESTART GROUP 2. 008521,000717: # 3. MAJOR MODE 00 IS STORED IN THE MODE REGISTER (MODREG). 008522,000718: # 4. SUPERBANK 3 IS SELECTED. 008523,000719: # 5. NODOFLAG IS RESET. 008524,000720: # 6. ALL RESTART GROUPS EXCEPT GROUP 2 ARE CLEARED. CONTROL IS TRANSFERRED TO RESTART PROGRAM (GOPROG2) 008525,000721: # WHICH CAUSES ALL CURRENT ACTIVITY TO BE DISCONTINUED AND A 9 MINUTE INTEGRATION CYCLE TO BE 008526,000722: # INITIATED. 008527,000723: # B. PROGRAM SELECTED IS P20 008528,000724: # 1. IF THE CURRENT MAJOR MODE IS THE SAME AS THE SELECTED NEWPROGRAM, THE PROGRAM IS RE-INITIALIZED 008529,000725: # VIA V37XEQ, ALL RESTART GROUPS, EXCEPT GROUP 4 ARE CLEARED. 008530,000726: # 2. IF THE CURRENT MAJOR MODE IS NOT EQUAL TO THE NEW REQUEST, A CHECK IS MADE TO SEE IF THE REQUEST- 008531,000727: # ED MAJOR MODE HAS BEEN RUNNING IN THE BACKGROUND, 008532,000728: # AND IF IT HAS, NO NEW PROGRAM IS SCHEDULED, THE EXISTING 008533,000729: # P20 IS RESTARTED TO CONTINUE, AND ITS MAJOR MODE IS SET. 008534,000730: # 3. CONTROL IS TRANSFERRED TO GOPROG2. 008535,000731: # C. PROGRAM SELECTED IS NEITHER P00 NOR P20 008536,000732: # 1. V37XEQ IS SCHEDULED (AS A JOB) BY SETTING RESTART GROUP 4 008537,000733: # 2. ALL CURRENT ACTIVITY EXCEPT RENDEZVOUS AND TRACKING IS DISCONTINUED BY CLEARING ALL RESTART 008538,000734: # GROUPS. GROUP 2 IS CLEARED. IF THE RENDEZVOUS FLAG IS ON P20 IS RESTARTED IN GOPROG2 VIA REDOP20. 008539,000735: # TO CONTINUE. 008540,000736: 008541,000737: # INPUT/OUTPUT INFORMATION 008542,000738: 008543,000739: # A. CALLING SEQUENCE 008544,000740: 008545,000741: # CONTROL IS DIRECTED TO V37 BY THE VERBFAN ROUTINE. 008546,000742: # VERBFAN GOES TO C(VERBTAB+C(VERBREG)). VERB 37 = MMCHANG. 008547,000743: # MMCHANG EXECUTES A TC POSTJUMP, CADR V37. 008548,000744: 008549,000745: # B. ERASABLE INITIALIZATION NONE 008550,000746: 008551,000747: # C. OUTPUT 008552,000748: # MAJOR MODE CHANGE 008553,000749: 008554,000750: # D. DEBRIS 008555,000751: # MMNUMBER, MPAC +1, MINDEX, BASETEMP +C(MINDEX), FLAGWRD0, FLAGWRD1, FLAGWRD2, MODREG, GOLOC -1, 008556,000752: # GOLOC, GOLOC +1, GOLOC +2, BASETEMP, -PHASE2, PHASE2, -PHASE4 008557,000753: 008558,000754: # PROGRAM ANALYSIS 008559,000755: 008560,000756: # A. SUBROUTINES CALLED 008561,000757: # ALARM, RELDSP, PINBRNCH, INTSTALL, ENGINOF2, ALLCOAST, V37KLEAN, GOPROG2, FALTON, FINDVAC, SUPERSW, 008562,000758: # DSPMM 008563,000759: 008564,000760: # B. NORMAL EXIT TC ENDOFJOB 008565,000761: 008566,000762: # C. ALARMS 1520 (MAJOR MODE CHANGE NOT PERMITTED) 008567,000763: 008568,000764: 4000 SETLOC FFTAG10 008569,000765: 4000 BANK 008570,000766: 008571,000767: 4124 COUNT* $$/V37 008572,000768: 4124 00024 OCT24 MM 20 B-14 008573,000769: 4125 00031 OCT31 MM 25 B-14 008574,000770: 04,2000 SETLOC VERB37 008575,000771: 04,2000 BANK 008576,000772: 008577,000773: 04,2007 COUNT* $$/V37 008578,000774: 04,2007 55170 V37 TS MMNUMBER # SAVE MAJOR MODE 008579,000775: 04,2010 07722 TC DOWNFLAG 008580,000776: 04,2011 00236 ADRES AUTOSEQ 008581,000777: 04,2012 07722 TC DOWNFLAG 008582,000778: 04,2013 00242 ADRES TPIMNFLG 008583,000779: 04,2014 07722 TC DOWNFLAG 008584,000780: 04,2015 00226 ADRES PCMANFLG 008585,000781: 04,2016 07722 TC DOWNFLAG 008586,000782: 04,2017 00215 ADRES VHFRFLAG 008587,000783: 04,2020 04606 TC E7SETTER 008588,000784: 04,2021 E7,1702 EBANK= MRKBUF1 008589,000785: 04,2021 37702 CAF NEGONE 008590,000786: 04,2022 55702 TS MRKBUF1 # TO PREVENT P20 FROM PROCESSING P50'S MRK 008591,000787: 04,2023 41170 CS MMNUMBER 008592,000788: 04,2024 65026 AD DEC80 008593,000789: 04,2025 00006 EXTEND 008594,000790: 04,2026 62400 BZMF V37NONO 008595,000791: 04,2027 40077 CS FLAGWRD3 008596,000792: 04,2030 74765 MASK REFSMBIT 008597,000793: 04,2031 10000 CCS A 008598,000794: 04,2032 12042 TCF AUTO37 008599,000795: 04,2033 31170 MMOK CA MMNUMBER 008600,000796: 04,2034 62412 AD NEG30 008601,000797: 04,2035 00006 EXTEND 008602,000798: 04,2036 62042 BZMF AUTO37 # P01 - P30 008603,000799: 04,2037 66171 AD NEG8 008604,000800: 04,2040 00006 EXTEND 008605,000801: 04,2041 62413 BZMF REND30S # P31 - P38 RENDEZVOUS 008606,000802: 04,2042 34346 AUTO37 CAF PRIO30 008607,000803: 04,2043 54364 TS RESTREG 008608,000804: 008609,000805: 04,2044 31323 CA IMODES30 # IS IMU BEING INITIALIZED 008610,000806: 04,2045 74774 MASK IMUNITBT 008611,000807: 04,2046 10000 CCS A 008612,000808: 04,2047 12114 TCF CANTROO 008613,000809: 008614,000810: 04,2050 34773 CAF ENGONBIT # IS ENGINE ON 008615,000811: 04,2051 70101 MASK FLAGWRD5 008616,000812: 04,2052 10000 CCS A 008617,000813: 04,2053 12060 TCF ROOTOPOO # YES, SET UP FOR POO 008618,000814: 008619,000815: 04,2054 40102 CS FLAGWRD6 # NO, IS TVC DAP ON 008620,000816: 04,2055 74076 MASK DPCONFIG 008621,000817: 04,2056 00006 EXTEND 008622,000818: 04,2057 62105 BZMF ISITPOO # NO, CONTINUE WITH ROO 008623,000819: 008624,000820: 04,2060 04611 ROOTOPOO TC E6SETTER 008625,000821: 008626,000822: 04,2061 E6,1514 EBANK= DAPDATR1 008627,000823: 04,2061 04647 TC BANKCALL # SPSOFF DOES AN INHINT 008628,000824: 04,2062 50677 CADR SPSOFF 008629,000825: 04,2063 04725 TC IBNKCALL 008630,000826: 04,2064 13311 CADR MASSPROP 008631,000827: 04,2065 32763 CAF 3.1SEC 008632,000828: 04,2066 04725 TC IBNKCALL 008633,000829: 04,2067 45505 CADR RCSDAPON +1 008634,000830: 008635,000831: 04,2070 04725 TC IBNKCALL 008636,000832: 04,2071 51013 CADR TVCZAP # DISABLE TVC 008637,000833: 04,2072 35003 CAF ZERO 008638,000834: 04,2073 55170 TS MMNUMBER 008639,000835: 04,2074 00003 RELINT 008640,000836: 04,2075 35004 CAF FIVE 008641,000837: 04,2076 04647 TC BANKCALL 008642,000838: 04,2077 01731 CADR DELAYJOB 008643,000839: 04,2100 35003 CAF ZERO 008644,000840: 04,2101 00006 EXTEND 008645,000841: 04,2102 01005 WRITE 5 008646,000842: 04,2103 00006 EXTEND 008647,000843: 04,2104 01006 WRITE 6 008648,000844: 04,2105 31170 ISITPOO CA MMNUMBER 008649,000845: 04,2106 00006 EXTEND 008650,000846: 04,2107 12140 BZF ISSERVON # YES, CHECK SERVICER STATUS 008651,000847: 008652,000848: 04,2110 40076 CS FLAGWRD2 # NO, IS NODO V37 FLAG SET 008653,000849: 04,2111 75001 MASK NODOBIT 008654,000850: 04,2112 10000 CCS A 008655,000851: 04,2113 12121 TCF CHECKTAB # NO 008656,000852: 04,2114 05644 CANTROO TC ALARM 008657,000853: 04,2115 01520 OCT 1520 008658,000854: 008659,000855: 04,2116 04432 V37BAD TC RELDSP # RELEASES DISPLAY FROM ASTRONAUT 008660,000856: 008661,000857: 04,2117 04666 TC POSTJUMP # BRING BACK LAST NORMAL DISPLAY IF THERE 008662,000858: 04,2120 21155 CADR PINBRNCH # WAS ONE. OY 008663,000859: 008664,000860: 04,2121 33074 CHECKTAB CA NOV37MM # THE NO. OF MM 008665,000861: 04,2122 54155 AGAINMM TS MPAC +1 008666,000862: 04,2123 50155 NDX MPAC +1 008667,000863: 04,2124 33030 CA PREMM1 # OBTAIN WHICH MM THIS IS FOR 008668,000864: 04,2125 76043 MASK LOW7 008669,000865: 04,2126 40000 COM 008670,000866: 04,2127 61170 AD MMNUMBER 008671,000867: 04,2130 10000 CCS A 008672,000868: 04,2131 10155 CCS MPAC +1 # IF GR, SEE IF ANY MORE IN LIST 008673,000869: 04,2132 12122 TCF AGAINMM # YES, GET NEXT ONE 008674,000870: 04,2133 12400 TCF V37NONO # LAST TIME OR PASSED MM 008675,000871: 008676,000872: 04,2134 30155 CA MPAC +1 008677,000873: 04,2135 55167 TS MINDEX # SAVE INDEX FOR LATER 008678,000874: 008679,000875: 04,2136 07710 TC UPFLAG 008680,000876: 04,2137 00055 ADRES V50N18FL # 66935 55 518 490731Y 008681,000877: 008682,000878: 04,2140 40103 ISSERVON CS FLAGWRD7 # V37 FLAG SET - I.E. IS SERVICER GOING 008683,000879: 04,2141 74774 MASK V37FLBIT 008684,000880: 04,2142 10000 CCS A 008685,000881: 04,2143 12151 TCF CANV37 # NO 008686,000882: 008687,000883: 04,2144 00004 INHINT 008688,000884: 04,2145 45001 CS AVEGBIT # YES TURN OFF AVERAGE G FLAG AND WAIT 008689,000885: 04,2146 70075 MASK FLAGWRD1 # FOR SERVICER TO RETURN TO CANV37 008690,000886: 04,2147 54075 TS FLAGWRD1 008691,000887: 008692,000888: 04,2150 15220 TCF ENDOFJOB 008693,000889: 008694,000890: 04,2151 32762 CANV37 CAF ROOAD 008695,000891: 04,2152 54372 TS TEMPFLSH 008696,000892: 008697,000893: 04,2153 05415 TC PHASCHNG 008698,000894: 04,2154 00014 OCT 14 008699,000895: 008700,000896: 04,2155 06006 ROO TC INTPRET 008701,000897: 008702,000898: 04,2156 77624 CALL # WAIT FOR INTEGRATION TO FINISH 008703,000899: 04,2157 11720 INTSTALL 008704,000900: 04,2160 77776 DUMMYAD EXIT 008705,000901: 008706,000902: 04,2161 45037 CS OCT1400 # CLEAR CAUTION RESET 008707,000903: 04,2162 00006 EXTEND # AND TEST CONNECTOR OUTBIT 008708,000904: 04,2163 03011 WAND 11 008709,000905: 008710,000906: 04,2164 32755 CAF OCT44571 # CLEAR ENABLE OPTICS ERROR COUNTER, STAR 008711,000907: 04,2165 00006 EXTEND # TRAKERS ON BIT, TVC ENABLE, ZERO OPTICS, 008712,000908: 04,2166 03012 WAND 12 # DISENGAGE OPTICS DAP, SIVB INJ SEQUENCE 008713,000909: # START, AND SIVB CUTOFF BIT. 008714,000910: 008715,000911: 04,2167 42756 CS OCT600 # CLEAR UNUSED BITS 008716,000912: 04,2170 00006 EXTEND 008717,000913: 04,2171 03013 WAND 13 008718,000914: 008719,000915: 04,2172 02676 TC INITSUB 008720,000916: 008721,000917: 04,2173 05542 TC CLEARMRK 008722,000918: 008723,000919: 04,2174 35003 CAF ZERO 008724,000920: 04,2175 54304 TS STARIND 008725,000921: 008726,000922: 04,2176 07722 TC DOWNFLAG 008727,000923: 04,2177 00020 ADRES STIKFLAG 008728,000924: 008729,000925: 04,2200 04415 TC UPACTOFF # TURN OFF UPLINK ACTIV LIGHT 008730,000926: 008731,000927: 04,2201 07722 TC DOWNFLAG 008732,000928: 04,2202 00037 ADRES R21MARK 008733,000929: 008734,000930: 04,2203 07722 TC DOWNFLAG 008735,000931: 04,2204 00234 ADRES EXTRANGE 008736,000932: 008737,000933: 04,2205 11170 CCS MMNUMBER # IS THIS A POOH REQUEST 008738,000934: 04,2206 12355 TCF NOUVEAU # NO, PICK UP NEW PROGRAM 008739,000935: 008740,000936: 04,2207 COUNT* $$/POO 008741,000937: 04,2207 04432 POOH TC RELDSP # RELEASE DISPLAY SYSTEM 008742,000938: 008743,000939: 04,2210 35061 CAF PRIO5 # SET VARIABLE RESTART REGISTER FOR P00. 008744,000940: 04,2211 55252 TS PHSPRDT2 008745,000941: 008746,000942: 04,2212 00004 INHINT 008747,000943: 04,2213 45001 CS NODOBIT # TURN OFF NODOFLAG 008748,000944: 04,2214 70076 MASK FLAGWRD2 008749,000945: 04,2215 54076 TS FLAGWRD2 008750,000946: 008751,000947: 04,2216 35004 CA FIVE # SET 2.5 RESTART FOR STATEINT1 008752,000948: 04,2217 54001 TS L 008753,000949: 04,2220 40000 COM 008754,000950: 04,2221 01,2036 2P5SPT1 = 2.5SPOT 008755,000951: 04,2221 53150 DXCH -PHASE2 008756,000952: 008757,000953: 04,2222 34772 CA IMUSEBIT # RESET IMUSE AND 008758,000954: 04,2223 64773 AD RNDVZBIT # KILL P20 008759,000955: 04,2224 40000 COM 008760,000956: 04,2225 70074 MASK FLAGWRD0 008761,000957: 04,2226 54074 TS FLAGWRD0 # RENDFLG 008762,000958: 008763,000959: 04,2227 44771 CS UTBIT 008764,000960: 04,2230 70104 MASK FLAGWRD8 008765,000961: 04,2231 54104 TS FLAGWRD8 008766,000962: 008767,000963: 04,2232 35003 CAF DNLADP00 008768,000964: 008769,000965: 04,2233 COUNT* $$/V37 008770,000966: 04,2233 54332 SEUDOPOO TS DNLSTCOD # SET UP APPROPRIATE DOWNLIST. 008771,000967: # (OLD ONE WILL BE FINISHED FIRST) 008772,000968: 008773,000969: 04,2234 34775 CA TRACKBIT 008774,000970: 04,2235 64770 AD TARG1BIT 008775,000971: 04,2236 64773 AD UPDATBIT 008776,000972: 04,2237 40000 COM 008777,000973: 04,2240 55265 TS EBANKTEM 008778,000974: 04,2241 70075 MASK FLAGWRD1 008779,000975: 04,2242 54075 TS FLAGWRD1 008780,000976: 008781,000977: 04,2243 45000 CS R67BIT # CLEAR R67FLAG. P20 WILL SET IT AGAIN 008782,000978: 04,2244 70104 MASK FLAGWRD8 # IF APPROPRIATE 008783,000979: 04,2245 54104 TS FLAGWRD8 008784,000980: 008785,000981: 04,2246 35001 CAF R27UP1BT 008786,000982: 04,2247 65000 AD R27UP2BT 008787,000983: 04,2250 64777 AD TDFLGBIT 008788,000984: 04,2251 64776 AD P25BIT 008789,000985: 04,2252 64775 AD P48BIT 008790,000986: 04,2253 64774 AD SNAPBIT 008791,000987: 04,2254 64767 AD CYCLFBIT 008792,000988: 04,2255 40000 COM 008793,000989: 04,2256 70107 MASK FLGWRD11 008794,000990: 04,2257 54107 TS FLGWRD11 008795,000991: 008796,000992: 04,2260 04725 GROUPKIL TC IBNKCALL # KILL GROUPS 3(5,6 008797,000993: 04,2261 12456 CADR V37KLEAN 008798,000994: 008799,000995: 04,2262 11170 CCS MMNUMBER # IS IT POOH 008800,000996: 04,2263 12273 TCF RENDVOO # NO 008801,000997: 04,2264 04725 TC IBNKCALL 008802,000998: 04,2265 12450 CADR POOKLEAN # REDUNDANT EXCEPT FOR GROUP 4. 008803,000999: 008804,001000: 04,2266 02711 TC INITSUBA 008805,001001: 04,2267 31170 GOMOD CA MMNUMBER 008806,001002: 04,2270 55204 TS MODREG 008807,001003: 008808,001004: 008809,001005: 04,2271 04666 GOGOPROG TC POSTJUMP 008810,001006: 04,2272 12720 CADR GOPROG2 008811,001007: 008812,001008: 04,2273 41170 RENDVOO CS MMNUMBER # IS NEW PROG = 20 008813,001009: 04,2274 64124 AD OCT24 # 20 008814,001010: 04,2275 00006 EXTEND 008815,001011: 04,2276 12300 BZF RENDNOO # YES 008816,001012: 04,2277 12314 TCF POOFIZZ 008817,001013: 008818,001014: 04,2300 41170 RENDNOO CS MMNUMBER 008819,001015: 04,2301 61204 AD MODREG 008820,001016: 04,2302 00006 EXTEND 008821,001017: 04,2303 12324 BZF KILL20 008822,001018: 008823,001019: 04,2304 30104 CA FLAGWRD8 008824,001020: 04,2305 74771 MASK UTBIT 008825,001021: 04,2306 10000 CCS A 008826,001022: 04,2307 12336 TCF STATQUO1 008827,001023: 008828,001024: 04,2310 30074 CA FLAGWRD0 # IS RENDEZVOO FLAG SET 008829,001025: 04,2311 74773 MASK RNDVZBIT 008830,001026: 04,2312 10000 CCS A 008831,001027: 04,2313 12343 TCF STATQUO 008832,001028: 008833,001029: 04,2314 30104 POOFIZZ CA FLAGWRD8 008834,001030: 04,2315 74771 MASK UTBIT 008835,001031: 04,2316 10000 CCS A 008836,001032: 04,2317 12330 TCF KILL20 +4 008837,001033: 04,2320 34773 CAF RNDVZBIT 008838,001034: 04,2321 70074 MASK FLAGWRD0 008839,001035: 04,2322 10000 CCS A 008840,001036: 04,2323 12333 TCF REV37 008841,001037: 04,2324 00006 KILL20 EXTEND # NO, KILL GROUPS 1 + 2 008842,001038: 04,2325 35003 DCA NEG0 008843,001039: 04,2326 53146 DXCH -PHASE1 008844,001040: 008845,001041: 04,2327 02711 TC INITSUBA 008846,001042: 04,2330 00006 +4 EXTEND 008847,001043: 04,2331 35003 DCA NEG0 008848,001044: 04,2332 53150 DXCH -PHASE2 008849,001045: 008850,001046: 04,2333 32761 REV37 CAF V37QCAD # SET RESTART POINT 008851,001047: 04,2334 54372 TS TEMPFLSH 008852,001048: 008853,001049: 04,2335 12271 TCF GOGOPROG 008854,001050: 008855,001051: 04,2336 35004 STATQUO1 CAF FIVE # SET 2.5 RESTART for STATEINT1 008856,001052: 04,2337 54001 TS L 008857,001053: 04,2340 01,2036 2P5SPT2 = 2.5SPOT 008858,001054: 04,2340 40000 COM 008859,001055: 04,2341 53150 DXCH -PHASE2 008860,001056: 04,2342 12346 TCF STATQUO +3 008861,001057: 04,2343 40075 STATQUO CS FLAGWRD1 # SET TRACK FLAG AND UPDATE FLAG 008862,001058: 04,2344 74773 MASK UPDATBIT 008863,001059: 04,2345 26075 ADS FLAGWRD1 008864,001060: 04,2346 40075 +3 CS FLAGWRD1 008865,001061: 04,2347 74775 MASK TRACKBIT 008866,001062: 04,2350 26075 ADS FLAGWRD1 008867,001063: 008868,001064: 04,2351 00006 EXTEND # KILL GROUP 4 008869,001065: 04,2352 35003 DCA NEG0 008870,001066: 04,2353 53154 DXCH -PHASE4 008871,001067: 008872,001068: 04,2354 12267 TCF GOMOD 008873,001069: 008874,001070: 04,2355 34773 NOUVEAU CAF RNDVZBIT 008875,001071: 04,2356 70074 MASK FLAGWRD0 008876,001072: 04,2357 10000 CCS A 008877,001073: 04,2360 12367 TCF +7 008878,001074: 04,2361 34771 CAF UTBIT 008879,001075: 04,2362 70104 MASK FLAGWRD8 008880,001076: 04,2363 10000 CCS A 008881,001077: 04,2364 12367 TCF +3 008882,001078: 04,2365 07722 TC DOWNFLAG # NO, RESET IMUSE FLAG. 008883,001079: 04,2366 00007 ADRES IMUSE # BIT 8 FLAG 0 008884,001080: 04,2367 51167 +3 INDEX MINDEX 008885,001081: 04,2370 33030 CAF PREMM1 # EXTRACT DOWNLIST ADDRESS 008886,001082: 04,2371 54022 TS CYL # SHIFT BITS 15 - 13 TO BITS 3 - 1 008887,001083: 04,2372 40022 CS CYL 008888,001084: 04,2373 40022 CS CYL 008889,001085: 04,2374 56022 XCH CYL 008890,001086: 04,2375 75005 MASK SEVEN # KEEP DOWNLIST CODE BITS 008891,001087: 04,2376 00004 INHINT 008892,001088: 04,2377 12233 TCF SEUDOPOO 008893,001089: 008894,001090: 04,2400 04362 V37NONO TC FALTON # COME HERE IF MM REQUESTED DOESNT EXIST 008895,001091: 008896,001092: 04,2401 12116 TCF V37BAD 008897,001093: 008898,001094: 04,2000 SETLOC VERB37 # MUST BE IN BANK 4 BECAUSE OF AUTOCHK 008899,001095: 04,2000 BANK 008900,001096: 04,2402 COUNT* $$/MNKEY 008901,001097: 04,2402 00051 DEC41 DEC 41 B-14 008902,001098: 04,2403 00064 DEC52 DEC 52 B-14 008903,001099: 04,2404 4124 DEC20 = OCT24 008904,001100: 04,2404 4342 DEC31 = LOW5 008905,001101: 04,2404 4774 DEC32 = BIT6 008906,001102: 04,2404 5016 DEC40 = OCT50 008907,001103: 04,2404 5014 DEC33 = 33DEC 008908,001104: 04,2404 4260 DEC34 = 34DEC 008909,001105: 04,2404 00044 DEC36 DEC 36 B-14 008910,001106: 04,2405 00043 DEC35 DEC 35 B-14 008911,001107: 04,2406 00045 DEC37 DEC 37 B-14 008912,001108: 04,2407 00046 DEC38 DEC 38 B-14 008913,001109: 04,2410 00060 DEC48 DEC 48 B-14 008914,001110: 04,2411 5026 DEC80 = SUPER101 008915,001111: 04,2411 6171 NEG8 = -OCT10 008916,001112: 04,2411 00130 DEC88 DEC 88 B-14 008917,001113: 04,2412 77741 NEG30 DEC -30 B-14 008918,001114: 04,2413 5023 DEC50 = OCT62 008919,001115: 04,2413 5010 CKLSTAUT = LOW4 008920,001116: 04,2413 62411 REND30S AD DEC88 # CHANGE P3X to P8X 008921,001117: 04,2414 55347 +1 TS TEMPMM # AND SAVE 008922,001118: 04,2415 34771 CAF UTBIT 008923,001119: 04,2416 70104 MASK FLAGWRD8 008924,001120: 04,2417 00006 EXTEND 008925,001121: 04,2420 12425 BZF UTOFF 008926,001122: 008927,001123: 04,2421 07722 TC DOWNFLAG 008928,001124: 04,2422 00031 ADRES TRACKFLG 008929,001125: 008930,001126: 04,2423 07722 TC DOWNFLAG 008931,001127: 04,2424 00176 ADRES UTFLAG 008932,001128: 008933,001129: 04,2425 40074 UTOFF CS FLAGWRD0 # HAS P20 BEEN ON 008934,001130: 04,2426 74773 MASK RNDVZBIT 008935,001131: 04,2427 00006 EXTEND 008936,001132: 04,2430 12435 BZF NOP20 # YES 008937,001133: 04,2431 07710 TC UPFLAG 008938,001134: 04,2432 00236 ADRES AUTOSEQ # SET TO CAUSE RETURN FROM P20 008939,001135: 008940,001136: 04,2433 34124 CAF DEC20 # NO - TURN ON P20 008941,001137: 04,2434 02511 TC AUTOSET 008942,001138: 04,2435 31347 NOP20 CA TEMPMM 008943,001139: 04,2436 55170 AUTOSETA TS MMNUMBER 008944,001140: 04,2437 02042 TC AUTO37 008945,001141: 04,2440 30002 MINKDISP CA Q 008946,001142: 04,2441 55005 TS AUTPOINT 008947,001143: 04,2442 45023 CS DEC50 008948,001144: 04,2443 61170 AD MMNUMBER 008949,001145: 04,2444 05362 TC NEWMODEA # CHANGE MAJOR MODE TO 30'S 008950,001146: 04,2445 04432 TC RELDSP 008951,001147: 04,2446 35010 CAF CKLSTAUT 008952,001148: 04,2447 04647 TC BANKCALL 008953,001149: 04,2450 20747 CADR GOPERF1 008954,001150: 04,2451 14103 TCF GOTOPOOH 008955,001151: 04,2452 02456 TC STARTAUT # PRO - DO MINKEY 008956,001152: 04,2453 07722 TC DOWNFLAG # ENTER - NO MINKEY 008957,001153: 04,2454 00236 ADRES AUTOSEQ 008958,001154: 04,2455 01005 TC AUTPOINT 008959,001155: 04,2456 30107 STARTAUT CA FLGWRD11 # INITIALIZE MINKEY 008960,001156: 04,2457 74772 MASK AZIMBIT 008961,001157: 04,2460 10000 CCS A 008962,001158: 04,2461 12474 TCF STRTAUT1 008963,001159: 04,2462 07710 TC UPFLAG 008964,001160: 04,2463 00254 ADRES AZIMFLAG 008965,001161: 04,2464 22007 ZL 008966,001162: 04,2465 40106 CS FLGWRD10 008967,001163: 04,2466 74767 MASK HDSUPBIT 008968,001164: 04,2467 00006 EXTEND 008969,001165: 04,2470 12473 BZF +3 008970,001166: 04,2471 22007 ZL 008971,001167: 04,2472 34764 CA HALF 008972,001168: 04,2473 53345 DXCH AZIMANGL 008973,001169: 04,2474 40101 STRTAUT1 CS FLAGWRD5 008974,001170: 04,2475 75001 MASK RENDWBIT 008975,001171: 04,2476 00006 EXTEND 008976,001172: 04,2477 12504 BZF +5 # YES 008977,001173: 04,2500 07710 TC UPFLAG # NO 008978,001174: 04,2501 00240 ADRES MANEUFLG 008979,001175: 04,2502 07710 TC UPFLAG 008980,001176: 04,2503 00241 ADRES PTV93FLG 008981,001177: 04,2504 07722 TC DOWNFLAG 008982,001178: 04,2505 00244 ADRES PCFLAG 008983,001179: 04,2506 07710 TC UPFLAG 008984,001180: 04,2507 00236 ADRES AUTOSEQ 008985,001181: 008986,001182: 04,2510 01005 TC AUTPOINT 008987,001183: 04,2511 00006 AUTOSET EXTEND 008988,001184: 04,2512 23350 QXCH AUTTEMP 008989,001185: 04,2513 55170 +2 TS MMNUMBER 008990,001186: 04,2514 05415 TC PHASCHNG 008991,001187: 04,2515 04024 OCT 04024 008992,001188: 008993,001189: 04,2516 31350 CA AUTTEMP 008994,001190: 04,2517 55005 TS AUTPOINT 008995,001191: 008996,001192: 04,2520 02042 TC AUTO37 008997,001193: 008998,001194: 04,2521 00006 BURNHOW EXTEND 008999,001195: 04,2522 23350 QXCH AUTTEMP 009000,001196: 04,2523 06006 TC INTPRET 009001,001197: 04,2524 51575 VLOAD ABVAL 009002,001198: 04,2525 03405 DELVLVC 009003,001199: 04,2526 51025 DSU BPL 009004,001200: 04,2527 10540 DV40/41 # THRESHHOLD DELTA V FOR SPS BURN 009005,001201: 04,2530 10534 P40BURN 009006,001202: 04,2531 77776 EXIT 009007,001203: 04,2532 32402 CAF DEC41 # CALL P41 009008,001204: 009009,001205: 009010,001206: 04,2533 02513 TC AUTOSET +2 009011,001207: 04,2534 77776 P40BURN EXIT 009012,001208: 04,2535 35016 CAF DEC40 # CALL P40 009013,001209: 04,2536 02513 TC AUTOSET +2 009014,001210: 04,2537 00003 34661 DV40/41 2DEC .03048 B-7 # 10 FPS IN M/CS B-7 009015,001211: 009016,001212: 04,2541 02440 P81 TC MINKDISP 009017,001213: 04,2542 34342 P81CONT1 CAF DEC31 009018,001214: 04,2543 02511 TC AUTOSET 009019,001215: 04,2544 02521 TC BURNHOW 009020,001216: 04,2545 12547 TCF P82CONT1 009021,001217: 04,2546 02440 P82 TC MINKDISP 009022,001218: 04,2547 34774 P82CONT1 CAF DEC32 009023,001219: 04,2550 02511 TC AUTOSET 009024,001220: 04,2551 02521 TC BURNHOW 009025,001221: 04,2552 12554 TCF P83CONT1 009026,001222: 04,2553 02440 P83 TC MINKDISP 009027,001223: 04,2554 35014 P83CONT1 CAF DEC33 009028,001224: 04,2555 02511 TC AUTOSET 009029,001225: 04,2556 02521 TC BURNHOW 009030,001226: 04,2557 12561 TCF P84CONT1 009031,001227: 04,2560 02440 P84 TC MINKDISP 009032,001228: 04,2561 34260 P84CONT1 CAF DEC34 009033,001229: 04,2562 02511 TC AUTOSET 009034,001230: 04,2563 02521 TC BURNHOW 009035,001231: 04,2564 12566 TCF P85CONT1 009036,001232: 04,2565 02440 P85 TC MINKDISP 009037,001233: 04,2566 32405 P85CONT1 CA DEC35 009038,001234: 04,2567 02511 TC AUTOSET 009039,001235: 04,2570 02521 TC BURNHOW 009040,001236: 04,2571 02573 TC P86CONT1 009041,001237: 04,2572 02440 P86 TC MINKDISP 009042,001238: 04,2573 32404 P86CONT1 CAF DEC36 009043,001239: 04,2574 02511 TC AUTOSET 009044,001240: 04,2575 02521 TC BURNHOW 009045,001241: 04,2576 32404 CAF DEC36 009046,001242: 04,2577 02511 TC AUTOSET 009047,001243: 04,2600 02521 TC BURNHOW 009048,001244: 04,2601 02603 TC P87CONT1 009049,001245: 04,2602 02440 P87 TC MINKDISP 009050,001246: 04,2603 32406 P87CONT1 CAF DEC37 009051,001247: 04,2604 02511 TC AUTOSET 009052,001248: 04,2605 32410 CAF DEC48 009053,001249: 04,2606 02511 TC AUTOSET 009054,001250: 04,2607 04103 TC GOTOPOOH 009055,001251: 04,2610 02440 P88 TC MINKDISP 009056,001252: 04,2611 32407 CAF DEC38 009057,001253: 04,2612 02511 TC AUTOSET 009058,001254: 04,2613 06006 TC INTPRET 009059,001255: 04,2614 51575 VLOAD ABVAL 009060,001256: 04,2615 03405 DELVLVC 009061,001257: 04,2616 77454 BZE EXIT 009062,001258: 04,2617 10643 NOPC 009063,001259: 04,2620 32403 CAF DEC52 009064,001260: 04,2621 02511 TC AUTOSET 009065,001261: 04,2622 40106 CS FLGWRD10 009066,001262: 04,2623 75001 MASK PCBIT 009067,001263: 04,2624 00006 EXTEND 009068,001264: 04,2625 12640 BZF DOP41 # PULSE TORQUING NOT DONE - CALL P41 009069,001265: 04,2626 02521 TC BURNHOW # P40 OR P41 009070,001266: 04,2627 07710 P86CONT2 TC UPFLAG 009071,001267: 04,2630 00226 ADRES PCMANFLG 009072,001268: 04,2631 34124 CAF DEC20 # MANEUVER TO TRACK ATTITUDE 009073,001269: 04,2632 02511 TC AUTOSET 009074,001270: 04,2633 07722 TC DOWNFLAG 009075,001271: 04,2634 00226 ADRES PCMANFLG 009076,001272: 04,2635 32403 CAF DEC52 009077,001273: 04,2636 02511 TC AUTOSET 009078,001274: 04,2637 04103 TC GOTOPOOH 009079,001275: 04,2640 32402 DOP41 CAF DEC41 009080,001276: 04,2641 02511 TC AUTOSET 009081,001277: 04,2642 04103 TC GOTOPOOH 009082,001278: 04,2643 77776 NOPC EXIT 009083,001279: 04,2644 04103 PCP76 TC GOTOPOOH 009084,001280: 009085,001281: 04,2645 30,2000 SBANK= LOWSUPER 009086,001282: 04,2000 SETLOC VERB37 009087,001283: 04,2000 BANK 009088,001284: 009089,001285: 04,2645 COUNT* $$/V37 009090,001286: 04,2645 4776 OCT00010 EQUALS BIT4 009091,001287: 04,2645 00004 V37XEQ INHINT 009092,001288: 04,2646 35064 CAF PRIO13 009093,001289: 04,2647 55256 TS PHSPRDT4 # PRESET GROUP4 RESTART PRIORITY 009094,001290: 04,2650 54063 V37XEQ+3 TS NEWPRIO # STORE PRIO FOR SPVAC 009095,001291: 04,2651 51167 INDEX MINDEX 009096,001292: 04,2652 33030 CAF PREMM1 009097,001293: 04,2653 55254 TS MMTEMP # OBTAIN PRIORITY BITS 15 - 11 009098,001294: 04,2654 00006 EXTEND 009099,001295: 04,2655 74772 MP BIT8 009100,001296: 04,2656 75005 MASK LOW3 009101,001297: 04,2657 54001 TS L 009102,001298: 04,2660 51167 INDEX MINDEX 009103,001299: 04,2661 32764 CAF FCADRMM1 009104,001300: 04,2662 55255 TS BASETEMP 009105,001301: 04,2663 74344 MASK HI5 009106,001302: 04,2664 26001 ADS L 009107,001303: 009108,001304: 04,2665 31255 CA BASETEMP # OBTAIN GENADR PORTION OF 2CADR. 009109,001305: 04,2666 75053 MASK LOW10 009110,001306: 04,2667 64767 AD BIT11 009111,001307: 009112,001308: 04,2670 05161 TC SPVAC 009113,001309: 009114,001310: 04,2671 31254 V37XEQC CA MMTEMP # UPON RETURN FROM FINDVAC PLACE THE 009115,001311: 04,2672 76043 MASK LOW7 # NEW MM IN MODREG (THE LOW 7 BITS OF 009116,001312: 04,2673 05362 TC NEWMODEA # PHSBRDT1) 009117,001313: 009118,001314: 04,2674 04432 TC RELDSP # RELEASE DISPLAY 009119,001315: 04,2675 05220 TC ENDOFJOB # AND EXIT 009120,001316: 009121,001317: 04,2676 00004 INITSUB INHINT 009122,001318: 04,2677 35006 CAF ELEVEN # CLEAR INDICATED FLAG BITS 009123,001319: 04,2700 54154 RAKE TS MPAC # LOOP STARTS HERE 009124,001320: 04,2701 50154 INDEX MPAC 009125,001321: 04,2702 42741 CS FLAGTABL 009126,001322: 04,2703 50154 INDEX MPAC 009127,001323: 04,2704 70074 MASK FLAGWRD0 009128,001324: 04,2705 50154 INDEX MPAC # RESTORE REVISED FLAGWORD 009129,001325: 04,2706 54074 TS FLAGWRD0 009130,001326: 009131,001327: 04,2707 10154 CCS MPAC 009132,001328: 04,2710 12700 TCF RAKE 009133,001329: 009134,001330: 04,2711 00006 INITSUBA EXTEND 009135,001331: 04,2712 22155 QXCH MPAC +1 009136,001332: 009137,001333: 04,2713 00004 INHINT 009138,001334: 04,2714 34775 CAF TRACKBIT # BYPASS IF TRACKFLG ON 009139,001335: 04,2715 70075 MASK FLAGWRD1 009140,001336: 04,2716 10000 CCS A 009141,001337: 04,2717 12733 TCF INITRET 009142,001338: 04,2720 04611 TC E6SETTER # FOR DB CODE.. STARTSB2 WILL RESET. 009143,001339: 04,2721 04463 TC STOPRATE 009144,001340: 009145,001341: 04,2722 30105 CA FLAGWRD9 # RESTORE DEADBAND 009146,001342: 04,2723 74766 MASK MAXDBBIT 009147,001343: 04,2724 10000 CCS A 009148,001344: 04,2725 12731 TCF SETMAXER # MAX DB SELECTED 009149,001345: 04,2726 04647 TC BANKCALL # MIN DB SELECTED 009150,001346: 04,2727 51035 CADR SETMINDB 009151,001347: 04,2730 12733 TCF INITRET 009152,001348: 009153,001349: 04,2731 04647 SETMAXER TC BANKCALL 009154,001350: 04,2732 51057 CADR SETMAXDB 009155,001351: 009156,001352: 04,2733 00003 INITRET RELINT 009157,001353: 04,2734 37702 CA NEGONE 009158,001354: 04,2735 55313 TS OPTIND 009159,001355: 04,2736 00155 TC MPAC +1 # RETURN FROM INITSUB 009160,001356: 009161,001357: 04,2737 02711 INITSUBB TC INITSUBA # ENTRANCE USED BY RTB CALL FROM V56 009162,001358: 04,2740 06030 TC DANZIG 009163,001359: 009164,001360: 04,2741 17001 FLAGTABL OCT 17001 # P55.1FLG,P50.1FLG,ATMFLAG,P50FLAG,P29FLAG 009165,001361: 04,2742 00040 OCT 40 # IDLEFAIL 009166,001362: 04,2743 06404 OCT 06404 # P21FLAG,STEERSW,IMPULSW,SBFLAG 009167,001363: 04,2744 20400 OCT 20400 # GLOKFAIL, POOFLAG 009168,001364: 04,2745 00000 OCT 0 009169,001365: 04,2746 01100 OCT 01100 # NEWTFLAG,ENGONFLG 009170,001366: 04,2747 10000 OCT 10000 # STRULLSW 009171,001367: 04,2750 16000 OCT 16000 # IGNFLAG,ASTNFLAG,TIMRFLAG 009172,001368: 04,2751 00000 OCT 0 009173,001369: 04,2752 40000 OCT 40000 # SWTOVER 009174,001370: 04,2753 00000 OCT 0 009175,001371: 04,2754 00000 OCT 0 009176,001372: 009177,001373: 20,2000 SETLOC VAC5LOC 009178,001374: 20,2000 BANK 009179,001375: 20,2000 COUNT* $$/START 009180,001376: 20,2000 35003 VAC5STOR CA ZERO # INITIALIZE INDEX REGISTERS 009181,001377: 20,2001 54061 TS ITEMP1 009182,001378: 20,2002 54062 TS ITEMP2 009183,001379: 009184,001380: 20,2003 00006 V5LOOP1 EXTEND # LOOP TO STORE LOCS, BANKSETS, AND PRIOS. 009185,001381: 20,2004 50061 INDEX ITEMP1 009186,001382: 20,2005 30165 DCA LOC 009187,001383: 20,2006 50062 INDEX ITEMP2 009188,001384: 20,2007 52662 DXCH VAC5 009189,001385: 009190,001386: 20,2010 50061 INDEX ITEMP1 009191,001387: 20,2011 30167 CA PRIORITY 009192,001388: 20,2012 50062 INDEX ITEMP2 009193,001389: 20,2013 54663 TS VAC5 +2 009194,001390: 009195,001391: 20,2014 40062 CS ITEMP2 # HAVE WE STORED THEM ALL? 009196,001392: 20,2015 65011 AD EIGHTEEN 009197,001393: 20,2016 00006 EXTEND 009198,001394: 20,2017 12025 BZF V5OUT1 # YES, GET PHASE INFORMATION. 009199,001395: 009200,001396: 20,2020 35750 CA TWELVE # NO, INCREMENT INDEXES AND LOOP. 009201,001397: 20,2021 26061 ADS ITEMP1 009202,001398: 20,2022 36214 CA THREE 009203,001399: 20,2023 26062 ADS ITEMP2 009204,001400: 20,2024 12003 TCF V5LOOP1 009205,001401: 009206,001402: 20,2025 E3,1436 EBANK= PHSNAME1 009207,001403: 20,2025 35037 V5OUT1 CA EBANK3 # PHSNAME REGISTERS ARE IN EBANK3. 009208,001404: 20,2026 54003 TS EBANK 009209,001405: 009210,001406: 20,2027 35006 CA ELEVEN # GET PHASE 2CADRS. 009211,001407: 20,2030 05562 TC GENTRAN 009212,001408: 20,2031 01436 ADRES PHSNAME1 009213,001409: 20,2032 00706 ADRES VAC5 +21D 009214,001410: 009215,001411: 20,2033 35003 CA ZERO # NOW INITIALIZE INDEXES AGAIN. 009216,001412: 20,2034 54061 TS ITEMP1 009217,001413: 20,2035 54062 TS ITEMP2 009218,001414: 009219,001415: 20,2036 50061 V5LOOP2 INDEX ITEMP1 # LOOP TO GET PHASE TABLES. 009220,001416: 20,2037 31146 CA PHASE1 009221,001417: 20,2040 50062 INDEX ITEMP2 009222,001418: 20,2041 54722 TS VAC5 +33D 009223,001419: 20,2042 40062 CS ITEMP2 # DO WE HAVE THEM ALL? 009224,001420: 20,2043 65004 AD FIVE 009225,001421: 20,2044 00006 EXTEND 009226,001422: 20,2045 12052 BZF V5OUT2 # YES, GO FINISH UP. 009227,001423: 009228,001424: 20,2046 35000 CA TWO # NO, INCREMENT INDEXES AND LOOP. 009229,001425: 20,2047 26061 ADS ITEMP1 009230,001426: 20,2050 24062 INCR ITEMP2 009231,001427: 20,2051 12036 TCF V5LOOP2 009232,001428: 009233,001429: 20,2052 30157 V5OUT2 CA MPAC +3 009234,001430: 20,2053 54730 TS VAC5 +39D 009235,001431: 009236,001432: 20,2054 00006 EXTEND 009237,001433: 20,2055 30066 DCA NEWLOC 009238,001434: 20,2056 52732 DXCH VAC5 +40D 009239,001435: 009240,001436: 20,2057 30067 CA NEWJOB 009241,001437: 20,2060 54707 TS VAC5 +22D 009242,001438: 009243,001439: 20,2061 30063 CA NEWPRIO 009244,001440: 20,2062 54713 TS VAC5 +26D 009245,001441: 009246,001442: 20,2063 04662 TC SWRETURN 009247,001443: 009248,001444: 20,2064 5011 EIGHTEEN EQUALS OCT22 009249,001445: 04,2000 SETLOC VERB37 009250,001446: 04,2000 BANK 009251,001447: 009252,001448: 04,2755 COUNT* $$/V37 009253,001449: 04,2755 5711 NEG7 EQUALS OCT77770 009254,001450: 009255,001451: 04,2755 44571 OCT44571 OCT 44571 # CONSTANTS TO CLEAR CHANNEL BITS IN V37 009256,001452: 04,2756 00600 OCT600 OCT 600 009257,001453: 04,2757 00300 BIT7-8 OCT 300 009258,001454: 04,2760 01120 OCT01120 OCT 01120 009259,001455: 009260,001456: 04,2761 10650 V37QCAD CADR V37XEQ+3 009261,001457: 04,2762 10160 ROOAD CADR DUMMYAD 009262,001458: 04,2763 37312 3.1SEC OCT 37312 # 2.5 + 0.6 SEC 009263,001459: 009264,001460: # FOR VERB 37 TWO TABLES ARE MAINTAINED. EACH TABLE HAS AN ENTRY FOR EACH 009265,001461: # MAJOR MODE THAT CAN BE STARTED FROM THE KEYBOARD. THE ENTRIES ARE PUT 009266,001462: # INTO THE TABLE WITH THE ENTRY FOR THE HIGHEST MAJOR MODE COMING FIRST, 009267,001463: # TO THE LOWEST MAJOR MODE WHICH IS THE LAST ENTRY IN EACH TABLE. 009268,001464: 009269,001465: # THE FCADRMM TABLE CONTAINS THE FCADR OF THE STARTING JOB OF 009270,001466: # THE MAJOR MODE. FOR EXAMPLE, 009271,001467: 009272,001468: # FCADRMM1 FCADR P79 START OF P 79 009273,001469: # FCADR PROG18 START OF P 18 009274,001470: # FCADR P01 START OF P 01 009275,001471: 009276,001472: 04,2764 FCADRMM1 EQUALS 009277,001473: 04,2764 10610 FCADR P88 009278,001474: 04,2765 10602 FCADR P87 009279,001475: 04,2766 10572 FCADR P86 009280,001476: 04,2767 10565 FCADR P85 009281,001477: 04,2770 10560 FCADR P84 009282,001478: 04,2771 10553 FCADR P83 009283,001479: 04,2772 10546 FCADR P82 009284,001480: 04,2773 10541 FCADR P81 009285,001481: 04,2774 13172 FCADR P77 009286,001482: 04,2775 54170 FCADR P62 009287,001483: 04,2776 54103 FCADR P61 009288,001484: 04,2777 16312 FCADR P55 009289,001485: 04,3000 30002 FCADR P54 009290,001486: 04,3001 31255 FCADR P53 009291,001487: 04,3002 30002 FCADR PROG52 009292,001488: 04,3003 31255 FCADR P51 009293,001489: 04,3004 22167 FCADR P50 009294,001490: 04,3005 61557 FCADR P48CSM 009295,001491: 04,3006 61554 FCADR P47CSM 009296,001492: 04,3007 51705 FCADR P41CSM 009297,001493: 04,3010 50000 FCADR P40CSM 009298,001494: 04,3011 45271 FCADR P38 009299,001495: 04,3012 11127 FCADR P37 009300,001496: 04,3013 72626 FCADR P36 009301,001497: 04,3014 72367 FCADR P35 009302,001498: 04,3015 62444 FCADR P34 009303,001499: 04,3016 65355 FCADR P33 009304,001500: 04,3017 64013 FCADR P32 009305,001501: 04,3020 64000 FCADR P31 009306,001502: 04,3021 72250 FCADR P30 009307,001503: 04,3022 60000 FCADR P29 009308,001504: 04,3023 60161 FCADR P25CSM 009309,001505: 04,3024 76000 FCADR PROG21 009310,001506: 04,3025 74243 FCADR PROG20 009311,001507: 04,3026 55320 FCADR P06 009312,001508: 04,3027 66001 FCADR GTSCPSS1 # GYROCOMPASS STANDARD LEAD IN. 009313,001509: 009314,001510: # THE PREMM TABLE CONTAINS THE EBANK,MAJOR MODE AND DOWNLINK INFO. 009315,001511: # IT IS IN THE FOLLOWING FORMAT 009316,001512: # DDD 00E EEM MMM MMM 009317,001513: # WHERE THE 7 M BITS CONTAIN THE MAJOR MODE NUMBER 009318,001514: # 3 E BITS CONTAIN THE E-BANK NUMBER 009319,001515: # 3 D BITS CONTAIN THE DOWNLIST ID 009320,001516: 009321,001517: # COAST AND ALIGN LIST = 0 009322,001518: # EUTRY LIST = 1 009323,001519: # RENDEZVOUS LIST = 2 009324,001520: # POWERED FLIGHT LIST = 3 009325,001521: # P22 LIST = 4 009326,001522: 009327,001523: # FOR EXAMPLE, 009328,001524: 009329,001525: # OCT 21137 DOWNLIST = 2 (RENDEZVOUS) 009330,001526: # E-BANK = 4 009331,001527: # MAJOR MODE = 95 009332,001528: 009333,001529: # OCT 11476 DOWNLIST = 1 (ENTRY) 009334,001530: # E-BANK = 6 009335,001531: # MAFOR MODE = 62 009336,001532: 009337,001533: 04,3030 PREMM1 EQUALS 009338,001534: 04,3030 21530 OCT 21530 # MM 88 EBANK 6 DOWNLIST 2 009339,001535: 04,3031 21527 OCT 21527 # MM 87 EBANK 6 DOWNLIST 2 009340,001536: 04,3032 21526 OCT 21526 # MM 86 EBANK 6 DOWNLIST 2 009341,001537: 04,3033 21525 OCT 21525 # MM 85 EBANK 6 DOWNLIST 2 009342,001538: 04,3034 21524 OCT 21524 # MM 84 EBANK 6 DOWNLIST 2 009343,001539: 04,3035 21523 OCT 21523 # MM 83 EBANK 6 DOWNLIST 2 009344,001540: 04,3036 21522 OCT 21522 # MM 82 EBANK 6 DOWNLIST 2 009345,001541: 04,3037 21521 OCT 21521 # MM 81 EBANK 6 DOWNLIST 2 009346,001542: 04,3040 21715 OCT 21715 # MM 77 EBANK 7 DOWNLIST 2 009347,001543: 04,3041 11476 OCT 11476 # MM 62 EBANK 6 DOWNLIST 1 009348,001544: 04,3042 31475 OCT 31475 # MM 61 EBANK 6 DOWNLIST 3 009349,001545: 04,3043 01667 OCT 01667 # MM 55 EBANK 7 DOWNLIST 0 009350,001546: 04,3044 01266 OCT 01266 # MM 54 EBANK 5 DOWNLIST 0 009351,001547: 04,3045 01265 OCT 01265 # MM 53 EBANK 5 DOWNLIST 0 009352,001548: 04,3046 01264 OCT 01264 # MM 52 EBANK 5 DOWNLIST 0 009353,001549: 04,3047 01263 OCT 01263 # MM 51 EBANK 5 DOWNLIST 0 009354,001550: 04,3050 01662 OCT 01662 # MM 50 EBANK 7 DOWNLIST 0 009355,001551: 04,3051 31460 OCT 31460 # MM 48 EBANK 6 DOWNLIST 3 009356,001552: 04,3052 31457 OCT 31457 # MM 47 EBANK 6 DOWNLIST 3 009357,001553: 04,3053 31451 OCT 31451 # MM 41 EBANK 6 DOWNLIST 3 009358,001554: 04,3054 31450 OCT 31450 # MM 40 EBANK 6 DOWNLIST 3 009359,001555: 04,3055 21046 OCT 21046 # MM 38 EBANK 4 DOWNLIST 2 009360,001556: 04,3056 21645 OCT 21645 # MM 37 EBANK 7 DOWNLIST 2 009361,001557: 04,3057 21044 OCT 21044 # MM 36 EBANK 4 DOWNLIST 2 009362,001558: 04,3060 21043 OCT 21043 # MM 35 EBANK 4 DOWNLIST 2 009363,001559: 04,3061 21042 OCT 21042 # MM 34 EBANK 4 DOWNLIST 2 009364,001560: 04,3062 21041 OCT 21041 # MM 33 EBANK 4 DOWNLIST 2 009365,001561: 04,3063 21040 OCT 21040 # MM 32 EBANK 4 DOWNLIST 2 009366,001562: 04,3064 21037 OCT 21037 # MM 31 EBANK 4 DOWNLIST 2 009367,001563: 04,3065 21636 OCT 21636 # MM 30 EBANK 7 DOWNLIST 2 009368,001564: 04,3066 21635 OCT 21635 # MM 29 EBANK 7 DOWNLIST 2 009369,001565: 04,3067 21431 OCT 21431 # MM 25 EBANK 6 DOWNLIST 2 009370,001566: 04,3070 21025 OCT 21025 # MM 21 EBANK 4 DOWNLIST 2 009371,001567: 04,3071 21424 OCT 21424 # MM 20 EBANK 6 DOWNLIST 2 009372,001568: 04,3072 01006 OCT 01006 # MM 06 EBANK 4 DOWNLIST 0 009373,001569: 04,3073 01201 OCT 01201 # MM 01 EBANK 5 DOWNLIST 0 009374,001570: 009375,001571: # NOTE, THE FOLLOWING CONSTANT IS THE NUMBER OF ENTRIES IN EACH OF 009376,001572: # ---- THE ABOVE LISTS-1 (IE, THE NUMBER OF MAJOR MODES(EXCEPT P00) 009377,001573: # THAT CAN BE CALLED FROM THE KEYBOARD MINUS ONE) 009378,001574: 009379,001575: 04,3074 EPREMM1 EQUALS # END OF PREMM1 TABLE 009380,001576: 04,3030 SETLOC PREMM1 # THIS CODING WILL AUTOMATICALLY CHANGE 009381,001577: 04,3030 NO.MMS =MINUS EPREMM1 # THE 'NOV37MM' CONSTANT AS ENTRIES ARE 009382,001578: 04,2000 SETLOC VERB37 # INSERTED(IN) OR DELETED(FROM) THE 009383,001579: 04,2000 BANK # 'PREMM1' TABLE. 009384,001580: 009385,001581: 04,3074 00043 NOV37MM ADRES NO.MMS -1 # ITEMS IN 'PREMM1' TABLE - 1. *DON'T MOVE* 009386,001582: 009387,001583: 04,3075 5003 DNLADP00 = ZERO 009388,001584: 009389,001585: 17,2000 SETLOC INTINIT3 009390,001586: 17,2000 BANK 009391,001587: 009392,001588: 17,2000 COUNT* $$/INTIN 009393,001589: 009394,001590: 17,2000 E3,1554 EBANK= RRECTCSM 009395,001591: 009396,001592: 17,2000 77614 STATEUP SET # EXTRAPOLATE CM STATE VECTOR 009397,001593: 17,2001 01474 VINTFLAG 009398,001594: 17,2002 45014 CLEAR CALL 009399,001595: 17,2003 01667 PRECIFLG 009400,001596: 17,2004 11460 INTEGRV 009401,001597: 17,2005 77745 DLOAD 009402,001598: 17,2006 01571 TETCSM 009403,001599: 17,2007 34041 STCALL TDEC1 009404,001600: 17,2010 11720 INTSTALL 009405,001601: 17,2011 45014 CLEAR CALL # EXTRAPOLATE LM STATE VECTOR 009406,001602: 17,2012 01674 VINTFLAG 009407,001603: 17,2013 11272 SETIFLGS # AND 6X6 W-MATRIX IF VALID 009408,001604: 17,2014 43014 BOF SET 009409,001605: 17,2015 02756 RENDWFLG # FOR RENDEZVOUS NAVIGATION 009410,001606: 17,2016 36020 +2 009411,001607: 17,2017 01476 DIM0FLAG 009412,001608: 17,2020 45014 SET CALL 009413,001609: 17,2021 01467 PRECIFLG 009414,001610: 17,2022 11460 INTEGRV 009415,001611: 17,2023 77614 STATEND CLRGO 009416,001612: 17,2024 01236 NODOFLAG 009417,001613: 17,2025 11260 ENDINT 009418,001614: 009419,001615: # THISVINT IS CALLED BY MIDTOAV1 AND 2 009420,001616: 009421,001617: 17,2026 43414 THISVINT SET RVQ 009422,001618: 17,2027 01474 VINTFLAG End of include-file FRESH_START_AND_RESTART.agc. Parent file is MAIN.agc