Source Code

007418,000001: # Copyright: Public domain. 007419,000002: # Filename: FRESH_START_AND_RESTART.agc 007420,000003: # Purpose: Part of the source code for Comanche, build 055. It 007421,000004: # is part of the source code for the Command Module's 007422,000005: # (CM) Apollo Guidance Computer (AGC), Apollo 11. 007423,000006: # Assembler: yaYUL 007424,000007: # Reference: pp. 181-210 007425,000008: # Contact: Ron Burkey <info@sandroid.org>, 007426,000009: # Fabrizio Bernardini <fabrizio@spacecraft.it> 007427,000010: # Website: http://www.ibiblio.org/apollo. 007428,000011: # Mod history: 2009-05-16 FB Transcription Batch 2 Assignment. 007429,000012: # 2009-05-20 RSB Removed an extraneous "TC STARTSUB". 007430,000013: # 2009-05-21 RSB Changed a "TC BANKCALL" to "TC STOPRATE" 007431,000014: # in INITSUB. 007432,000015: 007433,000016: # The contents of the "Comanche055" files, in general, are transcribed 007434,000017: # from scanned documents. 007435,000018: 007436,000019: # Assemble revision 055 of AGC program Comanche by NASA 007437,000020: # 2021113-051. April 1, 1969. 007438,000021: 007439,000022: # This AGC program shall also be referred to as Colossus 2A 007440,000023: 007441,000024: # Prepared by 007442,000025: # Massachussets Institute of Technology 007443,000026: # 75 Cambridge Parkway 007444,000027: # Cambridge, Massachusetts 007445,000028: 007446,000029: # under NASA contract NAS 9-4065. 007447,000030: 007448,000031: # Refer directly to the online document mentioned above for further 007449,000032: # information. Please report any errors to info@sandroid.org. 007450,000033: 007451,000034: # Page 181 007452,000035: # PROGRAM DESCRIPTION 8 APRIL, 1967 007453,000036: # SUNDISK REV 120 007454,000037: # FUNCTIONAL DESCRIPTION 007455,000038: 007456,000039: # SLAP1 MAN INITIATED FRESH START 007457,000040: # 1. EXECUTE STARTSUB 007458,000041: # 2. TURN OFF DSKY DISCRETE-LAMPS 007459,000042: # 3. CLEAR FAIL REGISTERS, SELF-CHECK ERROR COUNTER AND RESTART 007460,000043: # COUNTER 007461,000044: # 4. EXECUTE DOFSTART 007462,000045: 007463,000046: # DOFSTART MACHINE INITIATED FRESH START 007464,000047: 007465,000048: # 1. CLEAR SELF-CHECK REGISTERS, MODE REGISTER AND CDUZ REGISTER 007466,000049: # 2. CLEAR PHASE TABLE 007467,000050: # 3. INITIALIZE IMU FLAGS 007468,000051: # 4. INITIALIZE FLAGWORDS 007469,000052: # 5. TRANSFER CONTROL TO IDLE LOOP IN DUMMYJOB 007470,000053: 007471,000054: # GOPROG HARDWARE RESTART 007472,000055: 007473,000056: # 0. EXECUTE STARTSUB 007474,000057: # 1. TRANSFER CONTROL TO DOFSTART IF ANY OF THE FOLLOWING CONDITIONS 007475,000058: # EXIST. 007476,000059: # A. RESTART OCCURRED DURING EXECUTION OF ERASCHK. 007477,000060: # B. BOTH OSCILLATOR FAIL AND AGC WARNING ARE ON. 007478,000061: # C. MARK REJECT AND EITHER NAV OR MAIN DSKY ERROR LIGHT RESET 007479,000062: # ARE ON. 007480,000063: # 2. SCHEDULE A T5RUPT PROGRAM FOR THE DAP 007481,000064: # 3. SET FLAGWRD5 BITS FOR INTWAKE ROUTINE 007482,000065: # 4. EXTINGUISH ALL DSKY LAMPS, EXCEPT FOR PROGRAM ALARM, GIMBAL LOCK, AND 007483,000066: # NO ATT 007484,000067: # 5. INITIALIZE IMU FLAGS 007485,000068: # 6. IF ENGINE COMMAND IS ON (FLAGWRD5, BIT 7), SET ENGINE ON (CHANNEL 007486,000069: # 11, BIT 13). 007487,000070: # 7. TRANSFER CONTROL TO GOPROG3 007488,000071: 007489,000072: # ENEMA SOFTWARE RESTART -- INITIATED BY MAJOR MODE CHANGE 007490,000073: 007491,000074: # 1. EXECUTE STARTSB2 007492,000075: # 2. KILL PROGRAMS THAT WERE INTEGRATING OR WAITING FOR INTEGRATION 007493,000076: # ROUTINE 007494,000077: # 3. TRANSFER CONTROL TO GOPROG3 007495,000078: 007496,000079: # GOPROG3 SUBROUTINE COMMON TO GOPROG AND ENEMA 007497,000080: 007498,000081: # 1. TEST PHASE TABLES -- IF INCORRECT, DISPLAY ALARM 1107 AND 007499,000082: # TRANSFER CONTROL TO DOFSTART 007500,000083: # 2. DISPLAY MAJOR MODE 007501,000084: # 3. IF ANY GROUPS WERE ACTIVE UPON RESTART, TRANSFER CONTROL TO THE 007502,000085: # Page 182 007503,000086: # RESTARTS SUBROUTINE TO RESCHEDULE PENDING TASKS, LONGCALLS, AND 007504,000087: # JOBS (P20 IS RESTARTED VIA FINDVAC) 007505,000088: # 4. IF NO GROUPS WERE ACTIVE UPON RESTART, DISPLAY ALARM CODE 007506,000089: # 1110 (RESTART WITH NO ACTIVE GROUPS) 007507,000090: # 5. TRANSFER CONTROL TO IDLE LOOP IN DUMMYJOB 007508,000091: 007509,000092: # STARTSUB SUBROUTINE COMMON TO SLAP1 AND GOPROG 007510,000093: 007511,000094: # 1. CLEAR OUTBIT CHANNELS 5 AND 6 007512,000095: # 2. INITIALIZE TIME5, TIME4, TIME3 007513,000096: # 3. TRANSFER CONTROL TO STARTSB2 007514,000097: 007515,000098: # STARTSB2 SUBROUTINE COMMON TO STARTSUB AND ENEMA 007516,000099: 007517,000100: # 1. INTIALIZE OUTBIT CHANNELS 11,12,13, AND 14 007518,000101: # 2. REPLACE ALL TASKS ON WAITLIST WITH ENDTASK 007519,000102: # 3. MAKE ALL EXECUTEVE REGISTERS AVAILABLE 007520,000103: # 4. MAKE ALL VAC AREAS AVAILABLE 007521,000104: # 5. CLEAR DSKY REGISTERS 007522,000105: # 6. ZERO NUMEROUS SWITCHES 007523,000106: # 7. INITIALIZE OPTICS FLAGS 007524,000107: # 8. INITIALIZE PIPA AND TELEMETRY FAIL FLAGS 007525,000108: # 9. INITIALIZE DOWN TELEMETRY 007526,000109: 007527,000110: # INPUT/OUTPUT INITIALIZATION 007528,000111: 007529,000112: # A. CALLING SEQUENCE 007530,000113: 007531,000114: # SLAP1 -- TC POSTJUMP OR VERB 36,ENTER 007532,000115: # CADR SLAP1 007533,000116: 007534,000117: # ENEMA -- TC POSTJUMP *** DO NOT CALL ENEMA WITHOUT *** 007535,000118: # CADR ENEMA *** CONSULTING P00H PEOPLE *** 007536,000119: 007537,000120: # B. OUTPUT 007538,000121: 007539,000122: # ERASABLE MEMORY INITIALIZATION 007540,000123: 007541,000124: # PROGRAM ANALYSIS 007542,000125: 007543,000126: # A. SUBROUTINES CALLED 007544,000127: 007545,000128: # MR.KLEAN,WAITLIST,DSPMM,ALARM,RESTARTS,FINDVAC 007546,000129: 007547,000130: # B. ALARMS 007548,000131: 007549,000132: # 1107 PHASE TABLE ERROR 007550,000133: # 1110 RESTART WTIH NO ACTIVE GROUPS 007551,000134: 007552,000135: # Page 183 007553,000136: 10,2203 BANK 10 007554,000137: 05,2000 SETLOC FRANDRES 007555,000138: 05,2000 BANK 007556,000139: 007557,000140: 05,2342 E3,1400 EBANK= LST1 007558,000141: 007559,000142: 05,2342 COUNT 05/START 007560,000143: 007561,000144: 05,2342 00004 SLAP1 INHINT # FRESH START. COMES HERE FROM PINBALL. 007562,000145: 05,2343 02776 TC STARTSUB # SUBROUTINE DOES MOST OF THE WORK. 007563,000146: 007564,000147: 05,2344 12351 STARTSW TCF SKIPSIM # PATCH....TCF STARTSIM...FOR SIMULATION 007565,000148: 05,2345 35002 STARTSIM CAF BIT14 007566,000149: 05,2346 05147 TC FINDVAC 007567,000150: 05,2347 77777 SIM2CADR OCT 77777 # PATCH 2CADR (AND EBANK DESIGNATION) OF 007568,000151: 05,2350 77777 OCT 77777 # SIMULATION START ADDRESS. 007569,000152: 007570,000153: 05,2351 31036 SKIPSIM CA DSPTAB +11D 007571,000154: 05,2352 75033 MASK BITS4&6 007572,000155: 05,2353 65001 AD BIT15 007573,000156: 05,2354 55036 TS DSPTAB +11D # REQUESTED FRESH START. 007574,000157: 007575,000158: 05,2355 35021 CA ZERO # SAME STORY ON ZEROING FAILREG. 007576,000159: 05,2356 55365 TS ERCOUNT 007577,000160: 05,2357 54375 TS FAILREG 007578,000161: 05,2360 54376 TS FAILREG +1 007579,000162: 05,2361 54377 TS FAILREG +2 007580,000163: 05,2362 55154 TS REDOCTR 007581,000164: 007582,000165: 05,2363 44710 CS PRIO12 007583,000166: 05,2364 55302 TS DSRUPTSW 007584,000167: 007585,000168: 05,2365 35021 DOFSTART CAF ZERO # DO A FRESH START. 007586,000169: 05,2366 55360 TS ERESTORE # ***** MUST NOT BE REMOVED FROM DOFSTART 007587,000170: 05,2367 55362 TS SMODE # ***** MUST NOT BE REMOVED FROM DOFSTART 007588,000171: 05,2370 55501 TS UPSVFLAG # UPDATE STATE VECTOR REQUEST FLAGWORD 007589,000172: 05,2371 00006 EXTEND 007590,000173: 05,2372 01005 WRITE CHAN5 # TURN OFF RCS JETS 007591,000174: 05,2373 00006 EXTEND 007592,000175: 05,2374 01006 WRITE CHAN6 # TURN OFF RCS JETS 007593,000176: 05,2375 00006 EXTEND 007594,000177: 05,2376 01011 WRITE DSALMOUT # ZERO CHANNEL 11 007595,000178: 05,2377 00006 EXTEND 007596,000179: 05,2400 01012 WRITE CHAN12 # ZERO CHANNEL 12 007597,000180: 05,2401 00006 EXTEND 007598,000181: 05,2402 01013 WRITE CHAN13 # ZERO CHANNEL 13 007599,000182: 05,2403 00006 EXTEND 007600,000183: 05,2404 01014 WRITE CHAN14 # ZERO CHANNEL 14 007601,000184: 05,2405 55316 TS WTOPTION 007602,000185: 05,2406 54332 TS DNLSTCOD 007603,000186: # Page 184 007604,000187: 05,2407 54371 TS NVSAVE 007605,000188: 05,2410 55071 TS EBANKTEM 007606,000189: 05,2411 55130 TS RATEINDX 007607,000190: 05,2412 55126 TS TRKMKCNT 007608,000191: 05,2413 55125 TS VHFCNT 007609,000192: 05,2414 55044 TS EXTVBACT 007610,000193: 007611,000194: 05,2415 41036 CS DSPTAB +11D 007612,000195: 05,2416 75033 MASK BITS4&6 007613,000196: 05,2417 10000 CCS A 007614,000197: 05,2420 02424 TC +4 007615,000198: 05,2421 35033 CA BITS4&6 007616,000199: 05,2422 00006 EXTEND # THE IMU WAS IN COARSE ALIGN IN GIMBAL 007617,000200: 05,2423 05012 WOR CHAN12 # LOCK, SO PUT IT BACK INTO COARSE ALIGN. 007618,000201: 05,2424 02501 TC MR.KLEAN 007619,000202: 007620,000203: 05,2425 45021 CS ZERO 007621,000204: 05,2426 55011 TS MODREG 007622,000205: 007623,000206: 05,2427 34371 CAF PRIO30 007624,000207: 05,2430 54366 TS RESTREG 007625,000208: 007626,000209: 05,2431 33177 CAF IM30INIF # FRESH START IMU INITIALIZATION. 007627,000210: 05,2432 55320 TS IMODES30 007628,000211: 007629,000212: 05,2433 37716 CAF NEGONE 007630,000213: 05,2434 55303 TS OPTIND # KILL COARSE OPTICS 007631,000214: 007632,000215: 05,2435 33202 CAF OPTINITF 007633,000216: 05,2436 55331 TS OPTMODES 007634,000217: 007635,000218: 05,2437 35070 CAF IM33INIT 007636,000219: 05,2440 55321 TS IMODES33 007637,000220: 007638,000221: 05,2441 00006 EXTEND # LET T5 IDLE. 007639,000222: 05,2442 33156 DCA T5IDLER 007640,000223: 05,2443 53313 DXCH T5LOC 007641,000224: 007642,000225: 05,2444 33204 CA SWINIT 007643,000226: 05,2445 54074 TS STATE 007644,000227: 007645,000228: 05,2446 30075 CA FLAGWRD1 007646,000229: 05,2447 75004 MASK NOP01BIT # LEAVE NODOP01 FLAG UNTOUCHED 007647,000230: 05,2450 63205 AD SWINIT +1 007648,000231: 05,2451 54075 TS FLAGWRD1 007649,000232: 007650,000233: 05,2452 33206 CA SWINIT +2 007651,000234: 05,2453 54076 TS STATE +2 007652,000235: 007653,000236: 05,2454 30077 CA FLAGWRD3 007654,000237: # Page 185 007655,000238: 05,2455 75003 MASK BIT13 # REFSMMAT FLAG 007656,000239: 05,2456 63207 AD SWINIT +3 007657,000240: 05,2457 54077 TS FLAGWRD3 007658,000241: 007659,000242: 05,2460 00006 EXTEND 007660,000243: 05,2461 33211 DCA SWINIT +4 007661,000244: 05,2462 52101 DXCH STATE +4 007662,000245: 05,2463 00006 EXTEND 007663,000246: 05,2464 33213 DCA SWINIT +6 007664,000247: 05,2465 52103 DXCH STATE +6 007665,000248: 05,2466 30104 CA FLAGWRD8 007666,000249: 05,2467 72525 MASK OCT6200 # CMOONFLG, LMOONFLG, AND SUFFLAG 007667,000250: 05,2470 63214 AD SWINIT +8D 007668,000251: 05,2471 54104 TS FLAGWRD8 007669,000252: 007670,000253: 05,2472 33215 CA SWINIT +9D 007671,000254: 05,2473 54105 TS STATE +9D 007672,000255: 007673,000256: 05,2474 00006 EXTEND 007674,000257: 05,2475 33217 DCA SWINIT +10D 007675,000258: 05,2476 52107 DXCH STATE +10D 007676,000259: 007677,000260: 05,2477 04701 ENDRSTRT TC POSTJUMP 007678,000261: 05,2500 03225 CADR DUMMYJOB +2 # PICKS UP AT RELINT. (IN A SWITCHED BANK.) 007679,000262: 007680,000263: 05,2501 00004 MR.KLEAN INHINT 007681,000264: 05,2502 00006 EXTEND 007682,000265: 05,2503 35021 DCA NEG0 007683,000266: 05,2504 52755 DXCH -PHASE2 007684,000267: 05,2505 00006 P00KLEAN EXTEND 007685,000268: 05,2506 35021 DCA NEG0 007686,000269: 05,2507 52761 DXCH -PHASE4 007687,000270: 05,2510 00006 EXTEND 007688,000271: 05,2511 35021 DCA NEG0 007689,000272: 05,2512 52753 DXCH -PHASE1 007690,000273: 05,2513 00006 V37KLEAN EXTEND 007691,000274: 05,2514 35021 DCA NEG0 007692,000275: 05,2515 52757 DXCH -PHASE3 007693,000276: 05,2516 00006 EXTEND 007694,000277: 05,2517 35021 DCA NEG0 007695,000278: 05,2520 52763 DXCH -PHASE5 007696,000279: 05,2521 00006 EXTEND 007697,000280: 05,2522 35021 DCA NEG0 007698,000281: 05,2523 52765 DXCH -PHASE6 007699,000282: 05,2524 00002 TC Q 007700,000283: 007701,000284: 05,2525 06200 OCT6200 OCT 6200 007702,000285: 007703,000286: # Page 186 007704,000287: # COMES HERE FROM LOCATION 4000, GOJAM, RESTART ANY PROGRAMS WHICH MAY HAVE BEEN RUNNING AT THE TIME. 007705,000288: 007706,000289: 05,2526 25154 GOPROG INCR REDOCTR # ADVANCE RESTART COUNTER. 007707,000290: 007708,000291: 05,2527 22002 LXCH Q 007709,000292: 05,2530 00006 EXTEND 007710,000293: 05,2531 04007 ROR SUPERBNK 007711,000294: 05,2532 53433 DXCH RSBBQ 007712,000295: 05,2533 04662 TC BANKCALL # STORE ERASABLES FOR DEBUGGING PURPOSES. 007713,000296: 05,2534 40000 CADR VAC5STOR 007714,000297: 05,2535 35001 CA BIT15 # TEST OSC FAIL BIT TO SEE IF WE HAVE 007715,000298: 05,2536 00006 EXTEND # HAD A POWER TRANSIENT. IF SO, ATTEMPT 007716,000299: 05,2537 03033 WAND CHAN33 # A RESTART. IF NOT, CHECK THE PRESENT 007717,000300: 05,2540 00006 EXTEND # STATE OF AGC WARNING BIT. 007718,000301: 05,2541 12547 BZF BUTTONS 007719,000302: 007720,000303: 05,2542 35002 CA BIT14 # IF AGC WARNING ON (BIT = 0), DO A 007721,000304: 05,2543 00006 EXTEND # FRESH START ON THE ASSUMPTION THAT 007722,000305: 05,2544 02033 RAND CHAN33 # WE ARE IN A RESTART LOOP. 007723,000306: 05,2545 00006 EXTEND 007724,000307: 05,2546 12774 BZF NONAVKEY +1 007725,000308: 007726,000309: 05,2547 02753 BUTTONS TC LIGHTSET # MAKE FRESH START CHECKS BEFORE ERESTORE. 007727,000310: 007728,000311: # ERASCHK TEMPORARILY STORES THE CONTENST OF TWO ERASABLE LOCATIONS, X 007729,000312: # AND X+1 INTO SKEEP5 AND SKEEP6. IT ALSO STORES X INTO SKEEP7 AND 007730,000313: # ERESTORE. IF ERASCHK IS INTERRUPTED BY A RESTART, C(ERESTORE) SHOULD 007731,000314: # EQUAL C(SKEEP7), AND SHOULD BE A + NUMBER LESS THAN 2000 OCT. OTHERWISE 007732,000315: # C(ERESTORE) SHOULD EQUAL +0. 007733,000316: 007734,000317: 05,2550 34364 CAF HI5 007735,000318: 05,2551 71360 MASK ERESTORE 007736,000319: 05,2552 00006 EXTEND 007737,000320: 05,2553 12555 BZF +2 # IF ERESTORE NOT = +0 OR +N LESS THAN 2K, 007738,000321: 05,2554 12774 TCF NONAVKEY +1 # DOUBT E MEMORY AND DO A FRESH START 007739,000322: 05,2555 41360 CS ERESTORE 007740,000323: 05,2556 00006 EXTEND 007741,000324: 05,2557 12574 BZF ELRSKIP -1 007742,000325: 05,2560 61377 AD SKEEP7 007743,000326: 05,2561 00006 EXTEND 007744,000327: 05,2562 12564 BZF +2 # = SKEEP7, RESTORE E MEMORY. 007745,000328: 05,2563 12774 TCF NONAVKEY +1 # NOT = SKEEP7, DOUBT E MEM, DO FRESH START 007746,000329: 05,2564 31374 CA SKEEP4 007747,000330: 05,2565 54003 TS EBANK # EBANK OF E MEMORY THAT WAS UNDER TEST. 007748,000331: 05,2566 00006 EXTEND # (NOT DXCH SINCE THIS MIGHT HAPPEN AGAIN) 007749,000332: 05,2567 31376 DCA SKEEP5 007750,000333: 05,2570 51377 INDEX SKEEP7 007751,000334: 05,2571 52001 DXCH 0000 # E MEMORY RESTORED 007752,000335: 05,2572 35021 CA ZERO 007753,000336: 05,2573 55360 TS ERESTORE 007754,000337: # Page 187 007755,000338: 05,2574 02776 TC STARTSUB # DO INITIALIZATION AFTER ERASE RESTORE. 007756,000339: 05,2575 30102 ELRSKIP CA FLAGWRD6 # RESTART AUTOPILOTS 007757,000340: 05,2576 00006 EXTEND 007758,000341: 05,2577 75015 MP BIT3 # BITS 15,14 00 T5IDLOC 007759,000342: 05,2600 76211 MASK SIX # 01 REDORCS 007760,000343: 05,2601 00006 EXTEND # 10 REDOTVC 007761,000344: 05,2602 50000 INDEX A # 11 REDOSAT 007762,000345: 05,2603 33156 DCA T5IDLER 007763,000346: 05,2604 53313 DXCH T5LOC 007764,000347: 007765,000348: 05,2605 45002 CS INTFLBIT 007766,000349: 05,2606 70106 MASK RASFLAG 007767,000350: 05,2607 54106 TS RASFLAG 007768,000351: 007769,000352: 05,2610 31331 CA OPTMODES 007770,000353: 05,2611 73203 MASK OPTINITR 007771,000354: 05,2612 65011 AD BIT7 007772,000355: 05,2613 55331 TS OPTMODES 007773,000356: 007774,000357: 05,2614 35012 CAF BIT6 007775,000358: 05,2615 71321 MASK IMODES33 007776,000359: 05,2616 65070 AD IM33INIT 007777,000360: 05,2617 55321 TS IMODES33 007778,000361: 007779,000362: 05,2620 33201 CA 9,6,4 # LEAVE PROG ALARM, GIMBAL LOCK, NO ATT 007780,000363: 05,2621 71036 MASK DSPTAB +11D # LAMPS INTACT ON HARDWARE RESTART 007781,000364: 05,2622 65001 AD BIT15 007782,000365: 05,2623 57036 XCH DSPTAB +11D 007783,000366: 05,2624 75014 MASK BIT4 # IF NO ATT LAMP WAS ON, LEAVE ISS IN 007784,000367: 05,2625 00006 EXTEND # COARSE ALIGN 007785,000368: 05,2626 12635 BZF NOCOARSE 007786,000369: 05,2627 04740 TC IBNKCALL # IF NO ATT LAMP ON, RETURN ISS TO 007787,000370: 05,2630 17027 CADR SETCOARS # COARSE ALIGN. 007788,000371: 007789,000372: 05,2631 36211 CAF SIX 007790,000373: 05,2632 05245 TC WAITLIST 007791,000374: 05,2633 E3,1474 EBANK= CDUIND 007792,000375: 05,2633 03023 16063 2CADR CA+ECE 007793,000376: 007794,000377: 05,2635 33165 NOCOARSE CAF IFAILINH # LEAVE FAILURE INHIBITS INTACT ON 007795,000378: 05,2636 71320 MASK IMODES30 # HARDWARE RESTART. RESET ALL 007796,000379: 05,2637 63200 AD IM30INIR # FAILURE CODES. 007797,000380: 05,2640 55320 TS IMODES30 007798,000381: 007799,000382: 05,2641 40101 CS FLAGWRD5 007800,000383: 05,2642 75011 MASK ENGONBIT 007801,000384: 05,2643 10000 CCS A 007802,000385: 05,2644 12667 TCF GOPROG3 007803,000386: 05,2645 35003 CAF BIT13 007804,000387: 05,2646 00006 EXTEND 007805,000388: # Page 188 007806,000389: 05,2647 05011 WOR DSALMOUT # TURN ENGINE ON 007807,000390: 05,2650 12667 TCF GOPROG3 007808,000391: 007809,000392: 05,2651 00004 ENEMA INHINT 007810,000393: 05,2652 02753 TC LIGHTSET # EXIT TO DOFSTART IF ERROR RESET AND 007811,000394: 05,2653 03006 TC STARTSB2 # MARK REJECT DEPRESSED SIMULTANEOUSLY 007812,000395: 05,2654 43172 CS INTMASK # RESET INTEGRATION BITS 007813,000396: 05,2655 70106 MASK RASFLAG 007814,000397: 05,2656 54106 TS RASFLAG 007815,000398: 007816,000399: 05,2657 40102 CS FLAGWRD6 # IS TVC ON 007817,000400: 05,2660 74105 MASK OCT60000 007818,000401: 05,2661 00006 EXTEND 007819,000402: 05,2662 62667 BZMF GOPROG3 # NO 007820,000403: 007821,000404: 05,2663 35036 CAF .5SEC # YES, CALL TVCEXEC TASK WHICH WAS KILLED 007822,000405: 05,2664 05245 TC WAITLIST # IN STARTSB2 007823,000406: 05,2665 E6,1702 EBANK= BZERO 007824,000407: 05,2665 02720 34066 2CADR TVCEXEC 007825,000408: 007826,000409: 05,2667 35022 GOPROG3 CAF NUMGRPS # VERIFY PHASE TABLE AGREEMENTS 007827,000410: 05,2670 54161 PCLOOP TS MPAC +5 007828,000411: 05,2671 60000 DOUBLE 007829,000412: 05,2672 00006 EXTEND 007830,000413: 05,2673 50000 INDEX A 007831,000414: 05,2674 30753 DCA -PHASE1 # COMPLEMENT INTO A, DIRECT INTO L. 007832,000415: 05,2675 00006 EXTEND 007833,000416: 05,2676 06001 RXOR LCHAN # RESULT MUST BE -0 FOR AGREEMENT. 007834,000417: 05,2677 10000 CCS A 007835,000418: 05,2700 12746 TCF PTBAD # RESTART FAILURE. 007836,000419: 05,2701 12746 TCF PTBAD 007837,000420: 05,2702 12746 TCF PTBAD 007838,000421: 007839,000422: 05,2703 10161 CCS MPAC +5 # PROCESS ALL RESTART GROUPS. 007840,000423: 05,2704 12670 TCF PCLOOP 007841,000424: 007842,000425: 05,2705 54162 TS MPAC +6 # SET TO +0. 007843,000426: 05,2706 05360 TC MMDSPLAY # DISPLAY MAJOR MODE 007844,000427: 007845,000428: 05,2707 00004 INHINT # RELINT DONE IN MMDSPLAY 007846,000429: 007847,000430: 05,2710 30102 CAE FLAGWRD6 # IS RCS DAP RUNNING (BITS 15 14 OF 007848,000431: 05,2711 74105 MASK OCT60000 # FLAGWORD6 = 01) 007849,000432: 05,2712 00006 EXTEND # YES, DO STOPRATE 007850,000433: 05,2713 62721 BZMF NXTRST -1 # NO, SKIP TO NXTRST -1 007851,000434: 05,2714 35057 CAF EBANK6 # STOPRATE IS DONE IN EBANK 6 007852,000435: 05,2715 54003 TS EBANK 007853,000436: 05,2716 04526 TC STOPRATE # ZERO DELCDUS, WBODYS, AND BIASES THUS 007854,000437: # STOPPING AUTOMATIC MANEUVERING 007855,000438: 007856,000439: 05,2717 35051 CAF EBANK3 007857,000440: 05,2720 54003 TS EBANK 007858,000441: # Page 189 007859,000442: 05,2721 35022 CAF NUMGRPS # SEE IF ANY GROUPS RUNNING 007860,000443: 05,2722 54161 NXTRST TS MPAC +5 007861,000444: 05,2723 60000 DOUBLE 007862,000445: 05,2724 50000 INDEX A 007863,000446: 05,2725 10753 CCS PHASE1 007864,000447: 05,2726 12730 TCF PACTIVE # PNZ -- GROUP ACTIVE. 007865,000448: 05,2727 12735 TCF PINACT # +0 -- GROUP NOT RUNNING. 007866,000449: 007867,000450: 05,2730 54154 PACTIVE TS MPAC 007868,000451: 05,2731 24154 INCR MPAC # ABS OF PHASE. 007869,000452: 05,2732 24162 INCR MPAC +6 # INDICATE GROUP DEMANDS PRESENT. 007870,000453: 05,2733 32752 CA RACTCADR 007871,000454: 05,2734 04666 TC SWCALL # MUST RETURN TO SWRETURN. 007872,000455: 007873,000456: 05,2735 10161 PINACT CCS MPAC +5 # PROCESS ALL RESTART GROUPS. 007874,000457: 05,2736 12722 TCF NXTRST 007875,000458: 007876,000459: 05,2737 10162 CCS MPAC +6 # NO, CHECK PHASE ACTIVITY FLAG 007877,000460: 05,2740 12477 TCF ENDRSTRT # PHASE ACTIVE 007878,000461: 05,2741 35001 CAF BIT15 # IS MODE -0 007879,000462: 05,2742 71011 MASK MODREG 007880,000463: 05,2743 00006 EXTEND 007881,000464: 05,2744 14106 BZF GOTOP00H # NO 007882,000465: 05,2745 12477 TCF ENDRSTRT # YES 007883,000466: 05,2746 05650 PTBAD TC ALARM # SET ALARM TO SHOW PHASE TABLE FAILURE. 007884,000467: 05,2747 01107 OCT 1107 007885,000468: 007886,000469: 05,2750 12365 TCF DOFSTART # IN R21. 007887,000470: 007888,000471: # ********* ********* ********** 007889,000472: 007890,000473: # DO NOT USE GOPROG2 OR ENEMA WITHOUT CONSULTING P00H PEOPLE. 007891,000474: 007892,000475: 05,2751 05,2651 GOPROG2 EQUALS ENEMA 007893,000476: 05,2751 5003 OCT10000 = BIT13 007894,000477: 05,2751 4371 OCT30000 = PRIO30 007895,000478: 05,2751 07777 OCT7777 OCT 7777 007896,000479: 05,2752 03520 RACTCADR CADR RESTARTS 007897,000480: 007898,000481: 05,2753 35011 LIGHTSET CAF BIT7 # DOFSTART IF MARK REJECT AND EITHER 007899,000482: 05,2754 00006 EXTEND # ERROR LIGHT RESET BUTTONS ARE DEPRESSED 007900,000483: 05,2755 02016 RAND NAVKEYIN 007901,000484: 05,2756 00006 EXTEND 007902,000485: 05,2757 12773 BZF NONAVKEY # NO MARK REJECT 007903,000486: 05,2760 34362 CAF OCT37 007904,000487: 05,2761 00006 EXTEND 007905,000488: 05,2762 02016 RAND NAVKEYIN # NAV DSKY KEYCODES,MARK,MARK REJECT 007906,000489: 05,2763 63176 AD -ELR 007907,000490: 05,2764 00006 EXTEND 007908,000491: 05,2765 12774 BZF NONAVKEY +1 007909,000492: 05,2766 00006 EXTEND 007910,000493: # Page 190 007911,000494: 05,2767 00015 READ MNKEYIN # MAIN DSKY KEYCODES 007912,000495: 05,2770 63176 AD -ELR 007913,000496: 05,2771 00006 EXTEND 007914,000497: 05,2772 12774 BZF +2 007915,000498: 007916,000499: 05,2773 00002 NONAVKEY TC Q 007917,000500: 007918,000501: 05,2774 02776 TC STARTSUB 007919,000502: 05,2775 12365 TCF DOFSTART 007920,000503: 05,2776 33166 STARTSUB CAF LDNPHAS1 # SET POINTER SO NEXT 20MS DOWNRUPT WILL 007921,000504: 05,2777 54335 TS DNTMGOTO # CAUSE THE CURRENT DOWNLIST TO BE 007922,000505: # INTERRUPTED AND START SENDING FROM THE 007923,000506: # BEGINNING OF THE CURRENT DOWNLIST. 007924,000507: 05,3000 34777 CAF POSMAX 007925,000508: 05,3001 54026 TS TIME3 # 37777 TO TIME3. 007926,000509: 05,3002 67715 AD MINUS2 007927,000510: 05,3003 54027 TS TIME4 # 37775 TO TIME4. 007928,000511: 05,3004 67716 AD NEGONE 007929,000512: 05,3005 54030 TS TIME5 # 37774 TO TIME5. 007930,000513: 007931,000514: 05,3006 33173 STARTSB2 CAF OCT77603 # TURN OFF UPLINK ACTY, TEMP CAUTION, KR, 007932,000515: 05,3007 00006 EXTEND # FLASH, OP. ERROR, LEAVE OTHERS UNCHANGED. 007933,000516: 05,3010 03011 WAND DSALMOUT 007934,000517: 007935,000518: 05,3011 33174 CAF OCT74777 # TURN OFF TEST ALARMS, STANDBY ENABLE. 007936,000519: 05,3012 00006 EXTEND 007937,000520: 05,3013 03013 WAND CHAN13 007938,000521: 05,3014 47662 CS PRIO25 # CLEAR R21MARK, P21FLAG, AND SKIPVHF BIT. 007939,000522: 05,3015 70076 MASK FLAGWRD2 007940,000523: 05,3016 65006 AD SKIPVBIT # NOW SET SKIPVHF FLAG. 007941,000524: 05,3017 54076 TS FLAGWRD2 007942,000525: 05,3020 E3,1400 EBANK= LST1 007943,000526: 05,3020 33175 CAF STARTEB 007944,000527: 05,3021 54003 TS EBANK # SET FOR E3 007945,000528: 007946,000529: 05,3022 35000 CAF NEG1/2 # INITIALIZE WAITLIST DELTA-TS. 007947,000530: 05,3023 55407 TS LST1 +7 007948,000531: 05,3024 55406 TS LST1 +6 007949,000532: 05,3025 55405 TS LST1 +5 007950,000533: 05,3026 55404 TS LST1 +4 007951,000534: 05,3027 55403 TS LST1 +3 007952,000535: 05,3030 55402 TS LST1 +2 007953,000536: 05,3031 55401 TS LST1 +1 007954,000537: 05,3032 55400 TS LST1 007955,000538: 007956,000539: 05,3033 45304 CS ENDTASK 007957,000540: 05,3034 55410 TS LST2 007958,000541: 05,3035 55412 TS LST2 +2 007959,000542: 05,3036 55414 TS LST2 +4 007960,000543: # Page 191 007961,000544: 05,3037 55416 TS LST2 +6 007962,000545: 05,3040 55420 TS LST2 +8D 007963,000546: 05,3041 55422 TS LST2 +10D 007964,000547: 05,3042 55424 TS LST2 +12D 007965,000548: 05,3043 55426 TS LST2 +14D 007966,000549: 05,3044 55430 TS LST2 +16D 007967,000550: 05,3045 45305 CS ENDTASK +1 007968,000551: 05,3046 55411 TS LST2 +1 007969,000552: 05,3047 55413 TS LST2 +3 007970,000553: 05,3050 55415 TS LST2 +5 007971,000554: 05,3051 55417 TS LST2 +7 007972,000555: 05,3052 55421 TS LST2 +9D 007973,000556: 05,3053 55423 TS LST2 +11D 007974,000557: 05,3054 55425 TS LST2 +13D 007975,000558: 05,3055 55427 TS LST2 +15D 007976,000559: 05,3056 55431 TS LST2 +17D 007977,000560: 007978,000561: 05,3057 45021 CS ZERO # MAKE ALL EXECUTIVE REGISTER SETS 007979,000562: 05,3060 54167 TS PRIORITY # AVAILABLE. 007980,000563: 05,3061 54203 TS PRIORITY +12D 007981,000564: 05,3062 54217 TS PRIORITY +24D 007982,000565: 05,3063 54233 TS PRIORITY +36D 007983,000566: 05,3064 54247 TS PRIORITY +48D 007984,000567: 05,3065 54263 TS PRIORITY +60D 007985,000568: 05,3066 54277 TS PRIORITY +72D 007986,000569: 007987,000570: 05,3067 55302 TS DSRUPTSW 007988,000571: 05,3070 54067 TS NEWJOB # SHOWS NO ACTIVE JOBS. 007989,000572: 007990,000573: 05,3071 33170 CAF VAC1ADRC # MAKE ALL VAC AREAS AVAILABLE. 007991,000574: 05,3072 54400 TS VAC1USE 007992,000575: 05,3073 63171 AD LTHVACA 007993,000576: 05,3074 54454 TS VAC2USE 007994,000577: 05,3075 63171 AD LTHVACA 007995,000578: 05,3076 54530 TS VAC3USE 007996,000579: 05,3077 63171 AD LTHVACA 007997,000580: 05,3100 54604 TS VAC4USE 007998,000581: 05,3101 63171 AD LTHVACA 007999,000582: 05,3102 54660 TS VAC5USE 008000,000583: 008001,000584: 05,3103 34377 CAF TEN # BLANK DSKY REGISTERS (PROGRAM,VERB,NOUN, 008002,000585: # R1,R2,R3) 008003,000586: 05,3104 54154 DSPOFF TS MPAC 008004,000587: 05,3105 45004 CS BIT12 008005,000588: 05,3106 50154 INDEX MPAC 008006,000589: 05,3107 55023 TS DSPTAB 008007,000590: 05,3110 10154 CCS MPAC 008008,000591: 05,3111 13104 TCF DSPOFF 008009,000592: 008010,000593: 05,3112 55141 TS DELAYLOC 008011,000594: # Page 192 008012,000595: 05,3113 55142 TS DELAYLOC +1 008013,000596: 05,3114 55143 TS DELAYLOC +2 008014,000597: 05,3115 55144 TS DELAYLOC +3 008015,000598: 05,3116 55073 TS R1SAVE 008016,000599: 05,3117 54045 TS INLINK 008017,000600: 05,3120 54776 TS DSPCNT 008018,000601: 05,3121 55042 TS CADRSTOR 008019,000602: 05,3122 55013 TS REQRET 008020,000603: 05,3123 55015 TS CLPASS 008021,000604: 05,3124 55012 TS DSPLOCK 008022,000605: 05,3125 55020 TS MONSAVE # KILL MONITOR 008023,000606: 05,3126 55021 TS MONSAVE1 008024,000607: 05,3127 55001 TS VERBREG 008025,000608: 05,3130 55002 TS NOUNREG 008026,000609: 05,3131 55043 TS DSPLIST 008027,000610: 05,3132 55330 TS MARKSTAT 008028,000611: 05,3133 55322 TS IMUCADR 008029,000612: 05,3134 55323 TS OPTCADR 008030,000613: 05,3135 55324 TS RADCADR 008031,000614: 05,3136 55325 TS ATTCADR 008032,000615: 05,3137 55304 TS LGYRO 008033,000616: 05,3140 54100 TS FLAGWRD4 # KILL INTERFACE DISPLAYS 008034,000617: 05,3141 35024 CAF NOUTCON 008035,000618: 05,3142 55016 TS NOUT 008036,000619: 008037,000620: 05,3143 35002 CAF BIT14 008038,000621: 05,3144 71044 MASK EXTVBACT 008039,000622: 05,3145 55044 TS EXTVBACT 008040,000623: 05,3146 33167 CAF LESCHK # SELF CHECK GO-TO REGISTER. 008041,000624: 05,3147 55361 TS SELFRET 008042,000625: 008043,000626: 05,3150 44374 CS VD1 008044,000627: 05,3151 54777 TS DSPCOUNT 008045,000628: 008046,000629: 05,3152 00002 TC Q 008047,000630: 008048,000631: 05,3153 30001 T5IDLOC CA L # T5RUPT COMES HERE EVERY 163.84 SECS 008049,000632: 05,3154 15336 TCF NOQRSM +1 # WHEN NOBODY IS USING IT. 008050,000633: 008051,000634: 05,3155 E6,1662 EBANK= OGANOW 008052,000635: 05,3155 03153 12066 T5IDLER 2CADR T5IDLOC 008053,000636: 008054,000637: 05,3157 E6,1662 EBANK= OGANOW 008055,000638: 05,3157 02105 42066 2CADR REDORCS 008056,000639: 008057,000640: 05,3161 E6,1662 EBANK= OGANOW 008058,000641: 05,3161 03140 34066 2CADR REDOTVC 008059,000642: 008060,000643: 05,3163 E6,1662 EBANK= OGANOW 008061,000644: 05,3163 02765 46066 2CADR REDOSAT 008062,000645: # Page 193 008063,000646: 008064,000647: 05,3165 00435 IFAILINH OCT 435 008065,000648: 05,3166 03530 LDNPHAS1 GENADR DNPHASE1 008066,000649: 05,3167 03340 LESCHK GENADR SELFCHK 008067,000650: 05,3170 00400 VAC1ADRC ADRES VAC1USE 008068,000651: 05,3171 00054 LTHVACA DEC 44 B-14 008069,000652: 008070,000653: 05,3172 20100 INTMASK OCT 20100 008071,000654: 05,3173 77603 OCT77603 OCT 77603 008072,000655: 05,3174 74777 OCT74777 OCT 74777 008073,000656: 05,3175 01400 STARTEB ECADR LST1 008074,000657: 05,3176 5022 NUMGRPS EQUALS FIVE 008075,000658: 05,3176 77755 -ELR OCT -22 # -ERROR LIGHT RESET KEY CODE. 008076,000659: 05,3177 37411 IM30INIF OCT 37411 # INHIBITS IMU FAIL FOR 5 SEC AND PIP ISSW 008077,000660: 05,3200 37000 IM30INIR OCT 37000 008078,000661: 05,3201 5070 IM33INIT = PRIO16 # NO PIP OR TM FAIL SIGNALS. 008079,000662: 05,3201 00450 9,6,4 OCT 450 008080,000663: 05,3202 00130 OPTINITF OCT 130 008081,000664: 05,3203 00430 OPTINITR OCT 430 008082,000665: 05,3204 00000 SWINIT OCT 0 008083,000666: 05,3205 00000 OCT 0 008084,000667: 05,3206 00000 OCT 0 008085,000668: 05,3207 00000 OCT 0 008086,000669: 008087,000670: 05,3210 00000 OCT 0 008088,000671: 05,3211 00200 OCT 00200 008089,000672: 05,3212 00000 OCT 0 008090,000673: 05,3213 00000 OCT 0 008091,000674: 05,3214 00000 OCT 0 008092,000675: 05,3215 00000 OCT 0 008093,000676: 05,3216 00000 OCT 0 008094,000677: 05,3217 00000 OCT 0 008095,000678: # Page 194 008096,000679: # PROGRAM NAME GOTOP00H ASSEMBLY SUNDISK 008097,000680: # LOG SECTION FRESH START AND RESTART 008098,000681: 008099,000682: # FUNCTIONAL DESCRIPTION 008100,000683: 008101,000684: # 1. DISPLAY MAJOR MODE NUMBER 00 IN DSKY REGISTER R1 AND R3. FLASH V50N07 ON DSKY. (M M CHANGE REQUEST) 008102,000685: # 2. PERMIT A CURRENT PENDING REQUEST (FLASH ON DSKY) TO BE REPLACED (WITHOUT AN ABORT) BY THE MAJOR MODE 008103,000686: # CHANGE REQUEST. 008104,000687: 008105,000688: # INPUT/OUTPUT INFORMATION 008106,000689: 008107,000690: # A. CALLING SEQUENCE TC GOTOP00H 008108,000691: # B. ERASABLE INITIALIZATION NONE 008109,000692: # C. OUTPUT FLASH V 50 NOUN 07 ON DSKY 008110,000693: # D. DEBRIS L 008111,000694: 008112,000695: # PROGRAM ANALYSIS 008113,000696: 008114,000697: # A. SUBROUTINES CALLED GOPERF3, LINUS 008115,000698: # B. NORMAL EXIT TCF ENDOFJOB 008116,000699: # C. ALARM AND ABORT EXITS NONE 008117,000700: 008118,000701: 4106 BLOCK 02 008119,000702: 4000 SETLOC FFTAG10 008120,000703: 4000 BANK 008121,000704: 008122,000705: 4106 COUNT 02/P00 008123,000706: 008124,000707: 4106 05412 GOTOP00H TC PHASCHNG # RESTART GOTOP00H 008125,000708: 4107 00014 OCT 14 008126,000709: 008127,000710: 4110 04701 TC POSTJUMP 008128,000711: 4111 10000 CADR GOP00FIX 008129,000712: 10,2203 BANK 10 008130,000713: 04,2000 SETLOC VERB37 008131,000714: 04,2000 BANK 008132,000715: 008133,000716: 04,2000 COUNT 04/P00 008134,000717: 008135,000718: 04,2000 02330 GOP00FIX TC INITSUB 008136,000719: 04,2001 05540 TC CLEARMRK +2 008137,000720: 04,2002 32010 CAF V37N99 008138,000721: 04,2003 04662 TC BANKCALL 008139,000722: 04,2004 20720 CADR GOFLASH 008140,000723: 04,2005 12002 TCF -3 008141,000724: # Page 195 008142,000725: 04,2006 12002 TCF -4 008143,000726: 04,2007 12002 TCF -5 008144,000727: 04,2010 11343 V37N99 VN 3799 008145,000728: 008146,000729: # Page 196 008147,000730: # PROGRAM NAME V37 ASSEMBLY SUNDISK 008148,000731: 008149,000732: # LOG SECTION FRESH START AND RESTART 008150,000733: 008151,000734: # FUNCTIONAL DESCRIPTION 008152,000735: 008153,000736: # 1. CHECK IF NEW PROGRAM ALLOWED. IF BIT 1 OF FLAGWRD2 (NODOFLAG) IS SET, AN ALARM 1520 IS CALLED. 008154,000737: # 2. CHECK FOR VALIDITY OF PROGRAM SELECTED. IF AN INVALID PROGRAM IS SELECTED, THE OPERATOR ERROR LIGHT IS 008155,000738: # SET AND CURRENT ACTIVITY, IF ANY, CONTINUE. 008156,000739: # 3. SERVICER IS TERMINATED IF IT HAS BEEN RUNNING. 008157,000740: # 4. INSTALL IS EXECUTED TO AVOID INTERRUPTING INTEGRATION. 008158,000741: # 5. THE ENGINE IS TURNED OFF AND THE DAP IS INITIALIZED FOR COAST. 008159,000742: # 6. TRACK, UPDATE, AND TARG1 FLAGS ARE SET TO ZERO. 008160,000743: # 7. DISPLAY SYSTEM IS RELEASED. 008161,000744: # 8. THE FOLLOWING ARE PERFORMED FOR EACH OF THE THREE CASES. 008162,000745: # A. PROGRAM SELECTED IS P00. 008163,000746: # 1. RENDEZVOUS FLAG IS RESET. (KILL P20) 008164,000747: # 2. STATINT1 IS SCHEDULED BY SETTING RESTART GROUP 2. 008165,000748: # 3. MAJOR MODE 00 IS STORED IN THE MODE REGISTER (MODREG). 008166,000749: # 4. SUPERBANK 3 IS SELECTED. 008167,000750: # 5. NODOFLAG IS RESET. 008168,000751: # 6. ALL RESTART GROUPS EXCEPT GROUP2 ARE CLEARED. CONTROL IS TRANSFERRED TO RESTART PROGRAM (GOPROG2) 008169,000752: # WHICH CAUSES ALL CURRENT ACTIVITY TO BE DISCONTINUED AND A 9 MINUTE INTEGRATION CYCLE TO BE 008170,000753: # INITIATED. 008171,000754: # B. PROGRAM SELECTES IS P20. 008172,000755: # 1. IF THE CURRENT MAJOR MODE IS THE SAME AS THE SELECTED NEWPROGRAM. THE PROGRAM IS RE-INITIALIZED 008173,000756: # VIA V37XEQ, ALL RESTART GROUPS, EXCEPT GROUP 4 ARE CLEARED. 008174,000757: # 2. IF THE CURRENT MAJOR MODE IS NOT EQUAL TO THE NEW REQUEST, A CHECK IS MADE TO SEE IF THE REQUEST- 008175,000758: # ED MAJOR MODE HAS BEEN RUNNING THE BACKGROUND, 008176,000759: # AND IF IT HAS, NO NEW PROGRAM IS SCHEDULED, THE EXISTING 008177,000760: # P20 IS RESTARTED TO CONTINUE, AND ITS MAJORE MODE IS SET. 008178,000761: # 3. CONTROL IS TRANSFERRED TO GOPROG2. 008179,000762: # C. PROGRAM SELECTED IS NEITHER P00 NOR P20 008180,000763: # 1. V37XEQ IS SCHEDULED (AS A JOB) BY SETTING RESTART GROUP 4 008181,000764: # 2. ALL CURRENT ACTIVITY EXCEPT RENDEZVOUS AND TRACKING IS DISCONTINUED BY CLEARING ALL RESTART 008182,000765: # GROUPS. GROUP 2 IS CLEARED. IF THE RENDEZVOUS FLAG IS ON P20 IS RESTARTED IN GOPROG2 VIA REDOP20, 008183,000766: # TO CONTINUE. 008184,000767: 008185,000768: # INPUT/OUTPUT INFORMATION 008186,000769: 008187,000770: # A. CALLING SEQUENCE 008188,000771: # CONTROL IS DIRECTED TO V37 BY THE VERBFAN ROUTINE. 008189,000772: # VERBFAN GOES TO C(VERBTAB+C(VERBREG)). VERB 37 = MMCHANG. 008190,000773: # MMCHANG EXECUTES A TC POSTJUMP, CADR V37. 008191,000774: 008192,000775: # B. ERASABLE INITIALIZATION NONE 008193,000776: 008194,000777: # C. OUTPUT 008195,000778: # MAJOR MODE CHANGE 008196,000779: # Page 197 008197,000780: 008198,000781: # D. DEBRIS 008199,000782: # MMNUMBER, MPAC +1, MINDEX, BASETEMP +C(MINDEX), FLAGWRD0, FLAGWRD1, FLAGWRD2, MODREG, GOLOC -1, 008200,000783: # GOLOC, GOLOC +1, GOLOC +2, BASETEMP, -PHASE2, PHASE2, -PHASE4 008201,000784: 008202,000785: # PROGRAM ANALYSIS 008203,000786: 008204,000787: # A. SUBROUTINES CALLED 008205,000788: # ALARM, RELDSP, PINBRNCH, INTSTALL, ENGINOF2, ALLCOAST, V37KLEAN, GOPROG2, FALTON, FINDVAC, SUPERSW, 008206,000789: # DSPMM 008207,000790: 008208,000791: # B. NORMAL EXIT TC ENDOFJOB 008209,000792: 008210,000793: # C. ALARMS 1520 (MAJOR MODE CHANGE NOT PERMITTED) 008211,000794: 008212,000795: 4112 BLOCK 02 008213,000796: 4000 SETLOC FFTAG10 008214,000797: 4000 BANK 008215,000798: 008216,000799: 4112 COUNT 02/V37 008217,000800: 008218,000801: 4112 00024 OCT24 MM 20 B-14 008219,000802: 4113 00031 OCT31 MM 25 B-14 008220,000803: 27,2000 BANK 27 008221,000804: 04,2000 SETLOC VERB37 008222,000805: 04,2000 BANK 008223,000806: 008224,000807: 04,2011 COUNT 04/V37 008225,000808: 008226,000809: 04,2011 54775 V37 TS MMNUMBER # SAVE MAJOR MODE 008227,000810: 04,2012 34371 CAF PRIO30 # RESTART AT PINBALL PRIORITY 008228,000811: 04,2013 54366 TS RESTREG 008229,000812: 008230,000813: 04,2014 31320 CA IMODES30 # IS IMU BEING INITIALIZED 008231,000814: 04,2015 75012 MASK BIT6 008232,000815: 04,2016 10000 CCS A 008233,000816: 04,2017 12071 TCF CANTR00 008234,000817: 008235,000818: 04,2020 35003 CAF BIT13 # IS ENGINE ON 008236,000819: 04,2021 00006 EXTEND 008237,000820: 04,2022 02011 RAND DSALMOUT 008238,000821: 04,2023 10000 CCS A 008239,000822: 04,2024 12031 TCF R00TOP00 # YES, SET UP FOR P00 008240,000823: 008241,000824: 04,2025 40102 CS FLAGWRD6 # NO, IS TVC DAP ON 008242,000825: 04,2026 74105 MASK OCT60000 008243,000826: 04,2027 00006 EXTEND 008244,000827: 04,2030 62062 BZMF ISITP00 # NO, CONTINUE WITH R00 008245,000828: 008246,000829: 04,2031 00004 R00TOP00 INHINT 008247,000830: 04,2032 35057 CAF EBANK6 008248,000831: # Page 198 008249,000832: 04,2033 54003 TS EBANK 008250,000833: 04,2034 E6,1466 EBANK= DAPDATR1 008251,000834: 04,2034 31474 CAE CSMMASS 008252,000835: 04,2035 55652 TS MASSTMP 008253,000836: 04,2036 04740 TC IBNKCALL 008254,000837: 04,2037 51017 CADR SPSOFF 008255,000838: 04,2040 04740 TC IBNKCALL 008256,000839: 04,2041 13366 CADR MASSPROP 008257,000840: 04,2042 32415 CAF 3.1SEC 008258,000841: 04,2043 04740 TC IBNKCALL 008259,000842: 04,2044 42025 CADR RCSDAPON +1 008260,000843: 008261,000844: 04,2045 04740 TC IBNKCALL 008262,000845: 04,2046 51071 CADR TVCZAP # DISABLE TVC 008263,000846: 04,2047 35021 CAF ZERO 008264,000847: 04,2050 54775 TS MMNUMBER 008265,000848: 04,2051 00003 RELINT 008266,000849: 04,2052 35022 CAF FIVE 008267,000850: 04,2053 04662 TC BANKCALL 008268,000851: 04,2054 01732 CADR DELAYJOB 008269,000852: 04,2055 35021 CAF ZERO 008270,000853: 04,2056 00006 EXTEND 008271,000854: 04,2057 01005 WRITE 5 008272,000855: 04,2060 00006 EXTEND 008273,000856: 04,2061 01006 WRITE 6 008274,000857: 04,2062 30775 ISITP00 CA MMNUMBER 008275,000858: 04,2063 00006 EXTEND 008276,000859: 04,2064 12113 BZF ISSERVON # YES, CHECK SERVICER STATUS 008277,000860: 008278,000861: 04,2065 40076 CS FLAGWRD2 # NO, IS NODO V37 FLAG SET 008279,000862: 04,2066 75017 MASK NODOBIT 008280,000863: 04,2067 10000 CCS A 008281,000864: 04,2070 12076 TCF CHECKTAB # NO 008282,000865: 04,2071 05650 CANTR00 TC ALARM 008283,000866: 04,2072 01520 OCT 1520 008284,000867: 008285,000868: 04,2073 04473 V37BAD TC RELDSP # RELEASES DISPLAY FROM ASTRONAUT 008286,000869: 008287,000870: 04,2074 04701 TC POSTJUMP # BRING BACK LAST NORMAL DISPLAY IF THERE 008288,000871: 04,2075 21272 CADR PINBRNCH # WAS ONE. OY 008289,000872: 008290,000873: 04,2076 32520 CHECKTAB CA NOV37MM # THE NO. OF MM 008291,000874: 04,2077 54155 AGAINMM TS MPAC +1 008292,000875: 04,2100 50155 NDX MPAC +1 008293,000876: 04,2101 32457 CA PREMM1 # OBTAIN WHICH MM THIS IS FOR 008294,000877: 04,2102 76043 MASK LOW7 008295,000878: 04,2103 40000 COM 008296,000879: 04,2104 60775 AD MMNUMBER 008297,000880: 04,2105 10000 CCS A 008298,000881: 04,2106 10155 CCS MPAC +1 # IF GR, SEE IF ANY MORE IN LIST 008299,000882: # Page 199 008300,000883: 04,2107 12077 TCF AGAINMM # YES, GET NEXT ONE 008301,000884: 04,2110 12272 TCF V37NONO # LAST TIME OR PASSED MM 008302,000885: 008303,000886: 04,2111 30155 CA MPAC +1 008304,000887: 04,2112 54774 TS MINDEX # SAVE INDEX FOR LATER 008305,000888: 008306,000889: 04,2113 40103 ISSERVON CS FLAGWRD7 # V37 FLAG SET -- I.E., IS SERVICER GOING 008307,000890: 04,2114 75012 MASK V37FLBIT 008308,000891: 04,2115 10000 CCS A 008309,000892: 04,2116 12124 TCF CANV37 # NO 008310,000893: 008311,000894: 04,2117 00004 INHINT 008312,000895: 04,2120 45017 CS AVEGBIT # YES TURN OFF AVERAGE G FLAG AND WAIT 008313,000896: 04,2121 70075 MASK FLAGWRD1 # FOR SERVICER TO RETURN TO CANV37 008314,000897: 04,2122 54075 TS FLAGWRD1 008315,000898: 008316,000899: 04,2123 15217 TCF ENDOFJOB 008317,000900: 008318,000901: 04,2124 32412 CANV37 CAF R00AD 008319,000902: 04,2125 54374 TS TEMPFLSH 008320,000903: 008321,000904: 04,2126 05412 TC PHASCHNG 008322,000905: 04,2127 00014 OCT 14 008323,000906: 008324,000907: 04,2130 06006 ROC TC INTPRET 008325,000908: 008326,000909: 04,2131 77624 CALL # WAIT FOR INTEGRATION TO FINISH 008327,000910: 04,2132 27442 INTSTALL 008328,000911: 04,2133 77776 DUMMYAD EXIT 008329,000912: 008330,000913: 04,2134 45051 CS OCT1400 # CLEAR CAUTION RESET 008331,000914: 04,2135 00006 EXTEND # AND TEST CONNECTOR OUTBIT 008332,000915: 04,2136 03011 WAND 11 008333,000916: 008334,000917: 04,2137 32403 CAF OCT44571 # CLEAR ENABLE OPTICS ERROR COUNTER, STAR 008335,000918: 04,2140 00006 EXTEND # TRAKERS ON BIT, TVC ENABLE, ZERO OPTICS, 008336,000919: 04,2141 03012 WAND 12 # DISENGAGE OPTICS DAP, SIVB IN J SEQUENCE 008337,000920: # START, AND SIVB CUTOFF BIT. 008338,000921: 008339,000922: 04,2142 42404 CS OCT600 # CLEAR UNUSED BITS 008340,000923: 04,2143 00006 EXTEND 008341,000924: 04,2144 03013 WAND 13 008342,000925: 008343,000926: 04,2145 02330 TC INITSUB 008344,000927: 008345,000928: 04,2146 05536 TC CLEARMRK 008346,000929: 008347,000930: 04,2147 05560 TC DOWNFLAG 008348,000931: 04,2150 00020 ADRES STIKFLAG 008349,000932: 008350,000933: # Page 200 008351,000934: 04,2151 04662 TC BANKCALL 008352,000935: 04,2152 57757 CADR UPACTOFF # TURN OFF UPLINK ACTIV LIGHT 008353,000936: 008354,000937: 04,2153 05560 TC DOWNFLAG 008355,000938: 04,2154 00215 ADRES VHFRFLAG 008356,000939: 04,2155 05560 TC DOWNFLAG 008357,000940: 04,2156 00037 ADRES R21MARK 008358,000941: 008359,000942: 04,2157 10775 CCS MMNUMBER # IS THIS A P00H REQUEST 008360,000943: 04,2160 12260 TCF NOUVEAU # NO, PICK UP NEW PROGRAM 008361,000944: 008362,000945: 04,2161 COUNT 04/P00 008363,000946: 008364,000947: 04,2161 04473 P00H TC RELDSP # RELEASE DISPLAY SYSTEM 008365,000948: 04,2162 35061 CAF PRIO5 # SET VARIABLE RESTART REGISTER FOR P00. 008366,000949: 04,2163 55056 TS PHSPRDT2 008367,000950: 008368,000951: 04,2164 00004 INHINT 008369,000952: 008370,000953: 04,2165 45017 CS NODOBIT # TURN OFF NODOFLAG. 008371,000954: 04,2166 70076 MASK FLAGWRD2 008372,000955: 04,2167 54076 TS FLAGWRD2 008373,000956: 008374,000957: 04,2170 35022 CA FIVE # SET 2.5 RESTART FOR STATEINT1 008375,000958: 04,2171 54001 TS L 008376,000959: 04,2172 40000 COM 008377,000960: 04,2173 52755 DXCH -PHASE2 008378,000961: 008379,000962: 04,2174 42407 CS BIT7-8 # RESET IMUSE + KILL P20 BY TURNING OFF 008380,000963: 04,2175 70074 MASK FLAGWRD0 008381,000964: 04,2176 54074 TS FLAGWRD0 # RENDFLG 008382,000965: 008383,000966: 04,2177 35021 CAF DNLADP00 008384,000967: 008385,000968: 04,2200 COUNT 04/V37 008386,000969: 008387,000970: 04,2200 54332 SEUDOP00 TS DNLSTCOD # SET UP APPROPRIATE DOWNLIST CODE 008388,000971: # (OLD ONE WILL BE FINISHED FIRST) 008389,000972: 008390,000973: 04,2201 42410 CS OCT01120 # TURN OFF TRACK, TARG1, UPDATE FLAGS 008391,000974: 04,2202 55071 TS EBANKTEM 008392,000975: 04,2203 70075 MASK FLAGWRD1 008393,000976: 04,2204 54075 TS FLAGWRD1 008394,000977: 008395,000978: 04,2205 04740 GROUPKIL TC IBNKCALL # KILL GROUPS 3,5,6 008396,000979: 04,2206 12513 CADR V37KLEAN 008397,000980: 008398,000981: 04,2207 10775 CCS MMNUMBER # IS IT P00H 008399,000982: 04,2210 12217 TCF RENDV00 # NO 008400,000983: # Page 201 008401,000984: 04,2211 04740 TC IBNKCALL 008402,000985: 04,2212 12505 CADR P00KLEAN # REDUNDANT EXCEPT FOR GROUP 4. 008403,000986: 008404,000987: 04,2213 30775 GOMOD CA MMNUMBER 008405,000988: 04,2214 55011 TS MODREG 008406,000989: 008407,000990: 04,2215 04701 GOGOPROG TC POSTJUMP 008408,000991: 04,2216 12651 CADR GOPROG2 008409,000992: 008410,000993: 04,2217 40775 RENDV00 CS MMNUMBER # IS NEW PROG = 20 008411,000994: 04,2220 64112 AD OCT24 # 20 008412,000995: 04,2221 00006 EXTEND 008413,000996: 04,2222 12224 BZF RENDN00 # YES 008414,000997: 04,2223 12234 TCF P00FIZZ 008415,000998: 04,2224 40775 RENDN00 CS MMNUMBER 008416,000999: 04,2225 61011 AD MODREG 008417,001000: 04,2226 00006 EXTEND 008418,001001: 04,2227 12240 BZF KILL20 008419,001002: 008420,001003: 04,2230 30074 CA FLAGWRD0 # IS RENDZVOO FLAG SET 008421,001004: 04,2231 75011 MASK RNDVZBIT 008422,001005: 04,2232 10000 CCS A 008423,001006: 04,2233 12251 TCF STATQUO 008424,001007: 008425,001008: 04,2234 35011 P00FIZZ CAF RNDVZBIT 008426,001009: 04,2235 70074 MASK FLAGWRD0 008427,001010: 04,2236 10000 CCS A 008428,001011: 04,2237 12246 TCF REV37 008429,001012: 04,2240 00006 KILL20 EXTEND # NO, KILL GROUPS 1 + 2 008430,001013: 04,2241 35021 DCA NEG0 008431,001014: 04,2242 52753 DXCH -PHASE1 008432,001015: 008433,001016: 04,2243 00006 EXTEND 008434,001017: 04,2244 35021 DCA NEG0 008435,001018: 04,2245 52755 DXCH -PHASE2 008436,001019: 008437,001020: 04,2246 32411 REV37 CAF V37QCAD # SET RESTART POINT 008438,001021: 04,2247 54374 TS TEMPFLSH 008439,001022: 008440,001023: 04,2250 12215 TCF GOGOPROG 008441,001024: 008442,001025: 008443,001026: 04,2251 40075 STATQUO CS FLAGWRD1 # SET TRACKFLAG AND UPDATE FLAG 008444,001027: 04,2252 75037 MASK OCT120 008445,001028: 04,2253 26075 ADS FLAGWRD1 008446,001029: 008447,001030: 04,2254 00006 EXTEND # KILL GROUP 4 008448,001031: 04,2255 35021 DCA NEG0 008449,001032: 04,2256 52761 DXCH -PHASE4 008450,001033: 008451,001034: # Page 202 008452,001035: 04,2257 12213 TCF GOMOD 008453,001036: 008454,001037: 04,2260 35011 NOUVEAU CAF RNDVZBIT 008455,001038: 04,2261 70074 MASK FLAGWRD0 008456,001039: 04,2262 10000 CCS A 008457,001040: 04,2263 12266 TCF +3 008458,001041: 04,2264 05560 TC DOWNFLAG # NO, RESET IMUINUSE FLAG 008459,001042: 04,2265 00007 ADRES IMUSE # BIT 8 FLAG 0 008460,001043: 04,2266 50774 +3 INDEX MINDEX 008461,001044: 04,2267 32521 CAF DNLADMM1 # OBTAIN NEW DOWNLIST ADDRESS 008462,001045: 008463,001046: 04,2270 00004 INHINT 008464,001047: 04,2271 12200 TCF SEUDOP00 008465,001048: 008466,001049: 04,2272 04400 V37NONO TC FALTON # COME HERE IF MM REQUESTED DOESN'T EXIST 008467,001050: 04,2273 12073 TCF V37BAD 008468,001051: 008469,001052: 04,2274 5014 OCT00010 EQUALS BIT4 008470,001053: 04,2274 00004 V37XEQ INHINT 008471,001054: 04,2275 50774 INDEX MINDEX 008472,001055: 04,2276 32457 CAF PREMM1 008473,001056: 04,2277 55060 TS MMTEMP # OBTAIN PRIORITY BITS 15-11 008474,001057: 04,2300 54020 TS CYR # SHIFT RIGHT TO BITS 14-10 008475,001058: 008476,001059: 04,2301 30020 CA CYR 008477,001060: 04,2302 77674 MASK PRIO37 008478,001061: 04,2303 55062 TS PHSPRDT4 # PRESET GROUP 4 RESTART PRIORITY 008479,001062: 04,2304 54063 TS NEWPRIO # STORE PRIO FOR SPVAC 008480,001063: 008481,001064: 04,2305 31060 CA MMTEMP # OBTAIN EBANK -- BITS 8, 9, 10 OF MMTEMP. 008482,001065: 04,2306 00006 EXTEND 008483,001066: 04,2307 75010 MP BIT8 008484,001067: 04,2310 75023 MASK LOW3 008485,001068: 04,2311 54001 TS L 008486,001069: 04,2312 50774 INDEX MINDEX 008487,001070: 04,2313 32416 CAF FCADRMM1 008488,001071: 04,2314 55061 TS BASETEMP 008489,001072: 04,2315 74364 MASK HI5 008490,001073: 04,2316 26001 ADS L 008491,001074: 008492,001075: 04,2317 31061 CA BASETEMP # OBTAIN GENADR PORTION OF 2CADR. 008493,001076: 04,2320 75054 MASK LOW10 008494,001077: 04,2321 65005 AD BIT11 008495,001078: 008496,001079: 04,2322 05160 TC SPVAC 008497,001080: 008498,001081: 04,2323 31060 V37XEQC CA MMTEMP # UPON RETURN FROM FINDVAC PLACE THE 008499,001082: 04,2324 76043 MASK LOW7 # NEW MM IN MODREG (THE LOW 7 BITS OF 008500,001083: 04,2325 05357 TC NEWMODEA # PHSBRDT1) 008501,001084: 008502,001085: # Page 203 008503,001086: # FOR SUNDISK ONLY 008504,001087: 04,2326 04473 TC RELDSP # RELEASE DISPLAY 008505,001088: 04,2327 05217 TC ENDOFJOB # AND EXIT 008506,001089: 008507,001090: 04,2330 00006 INITSUB EXTEND 008508,001091: 04,2331 22155 QXCH MPAC +1 008509,001092: 008510,001093: 04,2332 35057 CAF EBANK6 # SET E6 FOR DEADBAND CODING 008511,001094: 04,2333 54003 TS EBANK # WILL BE RESET IN STARTSB2 008512,001095: 04,2334 00004 INHINT 008513,001096: 04,2335 04526 TC STOPRATE 008514,001097: 008515,001098: 04,2336 30105 CA FLAGWRD9 # RESTORE DEADBAND 008516,001099: 04,2337 75004 MASK MAXDBBIT 008517,001100: 04,2340 10000 CCS A 008518,001101: 04,2341 12345 TCF SETMAXER # MAX DE SELECTED 008519,001102: 04,2342 04662 TC BANKCALL # MIN DE SELECTED 008520,001103: 04,2343 50304 CADR SETMINDB 008521,001104: 04,2344 12347 TCF RAKE 008522,001105: 04,2345 04662 SETMAXER TC BANKCALL 008523,001106: 04,2346 50320 CADR SETMAXDB 008524,001107: 008525,001108: 04,2347 35024 RAKE CAF ELEVEN # THIS PART CLEARS FLAGWORD BITS. 008526,001109: 04,2350 54154 +1 TS MPAC # LOOP COMES HERE 008527,001110: 04,2351 50154 INDEX MPAC 008528,001111: 04,2352 42367 CS FLAGTABL 008529,001112: 04,2353 50154 INDEX MPAC 008530,001113: 04,2354 70074 MASK FLAGWRD0 008531,001114: 04,2355 50154 INDEX MPAC # PUT REVISED FLAGWORD BACK. 008532,001115: 04,2356 54074 TS FLAGWRD0 008533,001116: 04,2357 10154 CCS MPAC 008534,001117: 04,2360 12350 TCF RAKE +1 # GET THE NEXT FLAGWORD 008535,001118: 04,2361 00003 RELINT 008536,001119: 008537,001120: 04,2362 05546 TC UPFLAG # NOW SET IMPULSW 008538,001121: 04,2363 00044 ADRES IMPULSW 008539,001122: 008540,001123: 04,2364 37716 CA NEGONE 008541,001124: 04,2365 55303 TS OPTIND 008542,001125: 04,2366 00155 TC MPAC +1 # RETURN FROM INITSUB 008543,001126: 008544,001127: 04,2367 00000 FLAGTABL OCT 0 008545,001128: 04,2370 00040 OCT 00040 # IDLEFAIL 008546,001129: 04,2371 06000 OCT 06000 # P21FLAG, STEERSW 008547,001130: 04,2372 00000 OCT 0 008548,001131: 04,2373 00000 OCT 0 008549,001132: 04,2374 04140 OCT 04140 # V59FLAG, ENGONFLG, 3AXISFLG 008550,001133: 04,2375 10000 OCT 10000 # STRULLSW 008551,001134: 04,2376 16000 OCT 16000 008552,001135: 04,2377 00000 OCT 0 008553,001136: # Page 204 008554,001137: 04,2400 42000 OCT 42000 # SWTOVER, V94FLAG 008555,001138: 04,2401 00000 OCT 0 008556,001139: 04,2402 00000 OCT 0 008557,001140: 008558,001141: 20,2000 SETLOC VAC5LOC 008559,001142: 20,2000 BANK 008560,001143: 20,2000 35021 VAC5STOR CA ZERO # INITIALIZE INDEX REGISTERS 008561,001144: 20,2001 54061 TS ITEMP1 008562,001145: 20,2002 54062 TS ITEMP2 008563,001146: 008564,001147: 20,2003 00006 V5LOOP1 EXTEND # LOOP TO STORE LOCS, BANKSETS, AND PRIOS. 008565,001148: 20,2004 50061 INDEX ITEMP1 008566,001149: 20,2005 30165 DCA LOC 008567,001150: 20,2006 50062 INDEX ITEMP2 008568,001151: 20,2007 52662 DXCH VAC5 008569,001152: 008570,001153: 20,2010 50061 INDEX ITEMP1 008571,001154: 20,2011 30167 CA PRIORITY 008572,001155: 20,2012 50062 INDEX ITEMP2 008573,001156: 20,2013 54663 TS VAC5 +2 008574,001157: 008575,001158: 20,2014 40062 CS ITEMP2 # HAVE WE STORED THEM ALL? 008576,001159: 20,2015 62064 AD EIGHTEEN 008577,001160: 20,2016 00006 EXTEND 008578,001161: 20,2017 12025 BZF V5OUT1 # YES, GET PHASE INFORMATION. 008579,001162: 008580,001163: 20,2020 35771 CA TWELVE # NO, INCREMENT INDEXES AND LOOP. 008581,001164: 20,2021 26061 ADS ITEMP1 008582,001165: 20,2022 36214 CA THREE 008583,001166: 20,2023 26062 ADS ITEMP2 008584,001167: 20,2024 12003 TCF V5LOOP1 008585,001168: 008586,001169: 20,2025 E3,1436 EBANK= PHSNAME1 008587,001170: 20,2025 35051 V5OUT1 CA EBANK3 # PHSNAME REGISTERS ARE IN EBANK3. 008588,001171: 20,2026 54003 TS EBANK 008589,001172: 008590,001173: 20,2027 35024 CA ELEVEN # GET PHASE 2CADRS. 008591,001174: 20,2030 05606 TC GENTRAN 008592,001175: 20,2031 01436 ADRES PHSNAME1 008593,001176: 20,2032 00706 ADRES VAC5 +21D 008594,001177: 008595,001178: 20,2033 35021 CA ZERO # NOW INITIALIZE INDEXES AGAIN. 008596,001179: 20,2034 54061 TS ITEMP1 008597,001180: 20,2035 54062 TS ITEMP2 008598,001181: 008599,001182: 20,2036 50061 V5LOOP2 INDEX ITEMP1 # LOOP TO GET PHASE TABLES. 008600,001183: 20,2037 30753 CA PHASE1 008601,001184: 20,2040 50062 INDEX ITEMP2 008602,001185: 20,2041 54722 TS VAC5 +33D 008603,001186: 008604,001187: # Page 205 008605,001188: 20,2042 40062 CS ITEMP2 # DO WE HAVE THEM ALL? 008606,001189: 20,2043 65022 AD FIVE 008607,001190: 20,2044 00006 EXTEND 008608,001191: 20,2045 12052 BZF V5OUT2 # YES, GO FINISH UP. 008609,001192: 008610,001193: 20,2046 35016 CA TWO # NO, INCREMENT INDEXES AND LOOP. 008611,001194: 20,2047 26061 ADS ITEMP1 008612,001195: 20,2050 24062 INCR ITEMP2 008613,001196: 20,2051 12036 TCF V5LOOP2 008614,001197: 008615,001198: 20,2052 30157 V5OUT2 CA MPAC +3 008616,001199: 20,2053 54730 TS VAC5 +39D 008617,001200: 008618,001201: 20,2054 00006 EXTEND 008619,001202: 20,2055 30066 DCA NEWLOC 008620,001203: 20,2056 52732 DXCH VAC5 +40D 008621,001204: 008622,001205: 20,2057 30067 CA NEWJOB 008623,001206: 20,2060 54707 TS VAC5 +22D 008624,001207: 008625,001208: 20,2061 30063 CA NEWPRIO 008626,001209: 20,2062 54713 TS VAC5 +26D 008627,001210: 008628,001211: 20,2063 04675 TC SWRETURN 008629,001212: 008630,001213: 20,2064 00022 EIGHTEEN OCT 22 008631,001214: 04,2000 SETLOC VERB37 008632,001215: 04,2000 BANK 008633,001216: 008634,001217: 04,2403 5731 NEG7 EQUALS OCT77770 008635,001218: 008636,001219: 04,2403 44571 OCT44571 OCT 44571 # CONSTANTS TO CLEAR CHANNEL BITS IN V37 008637,001220: 04,2404 00600 OCT600 OCT 600 008638,001221: 04,2405 E6,1423 EBANK= PACTOFF 008639,001222: 04,2405 03153 12066 P00DAPAD 2CADR T5IDLOC 008640,001223: 008641,001224: 04,2407 1060 MMTEMP EQUALS PHSPRDT3 008642,001225: 04,2407 1061 BASETEMP EQUALS TBASE4 008643,001226: 04,2407 00300 BIT7-8 OCT 300 008644,001227: 04,2410 01120 OCT01120 OCT 01120 008645,001228: 008646,001229: 04,2411 10277 V37QCAD CADR V37XEQ +3 008647,001230: 04,2412 10133 R00AD CADR DUMMYAD 008648,001231: 04,2413 E6,1466 EBANK= DAPDATR1 008649,001232: 04,2413 02122 42066 RCSADDR4 2CADR RCSATT 008650,001233: 008651,001234: 04,2415 37312 3.1SEC OCT 37312 # 2.5 + 0.6 SEC 008652,001235: 008653,001236: # FOR VERB 37 TWO TABLES ARE MAINTAINED. EACH TABLE HAS AN ETRY FOR EACH 008654,001237: # MAJOR MODE THAT CAN BE STARTED FROM THE KEYBOARD. THE ENTRIES ARE PUT 008655,001238: # INTO THE TABLE WITH THE ENTRY FOR THE HIGHEST MAJOR MODE COMING FIRST, 008656,001239: # Page 206 008657,001240: # TO THE LOWEST MAJOR MODE WHICH IS THE LAST ENTRY IN EACH TABLE. 008658,001241: 008659,001242: # THE FCADRMM TABLE CONTAINS THE FCADR OF THE STARTING JOB OF 008660,001243: # THE MAJOR MODE. FOR EXAMPLE, 008661,001244: 008662,001245: # FCADRMM1 FCADR P79 # START OF P 79 008663,001246: # FCADR PROG18 # START OF P 18 008664,001247: # FCADR P01 # START OF P 01 008665,001248: 008666,001249: 04,2416 FCADRMM1 EQUALS 008667,001250: 04,2416 11172 FCADR P79 008668,001251: 04,2417 10744 FCADR P78 008669,001252: 04,2420 73153 FCADR P77 008670,001253: 04,2421 26071 FCADR P76 008671,001254: 04,2422 72163 FCADR P75 008672,001255: 04,2423 72002 FCADR P74 008673,001256: 04,2424 11441 FCADR P73 008674,001257: 04,2425 11305 FCADR P72 008675,001258: 04,2426 54320 FCADR P62 008676,001259: 04,2427 54217 FCADR P61 008677,001260: 04,2430 32000 FCADR P54 008678,001261: 04,2431 31067 FCADR P53 008679,001262: 04,2432 32000 FCADR PROG52 008680,001263: 04,2433 31067 FCADR P51 008681,001264: 04,2434 50463 FCADR P47CSM 008682,001265: 04,2435 56614 FCADR P41CSM 008683,001266: 04,2436 50073 FCADR P40CSM 008684,001267: 04,2437 11166 FCADR P39 008685,001268: 04,2440 10742 FCADR P38 008686,001269: 04,2441 74466 FCADR P37 008687,001270: 04,2442 72157 FCADR P35 008688,001271: 04,2443 72000 FCADR P34 008689,001272: 04,2444 11437 FCADR P33 008690,001273: 04,2445 11303 FCADR P32 008691,001274: 04,2446 73337 FCADR P31 008692,001275: 04,2447 73323 FCADR P30 008693,001276: 04,2450 62403 FCADR P23 008694,001277: 04,2451 60000 FCADR PROG22 008695,001278: 04,2452 76001 FCADR PROG21 008696,001279: 04,2453 76261 FCADR PROG20 008697,001280: 04,2454 73151 FCADR P17 008698,001281: 04,2455 55660 FCADR P06 008699,001282: 04,2456 66001 FCADR GTSCPSS1 # GYROCOMPASS STANDARD LEAD IN. 008700,001283: 008701,001284: # THE PREMM TABLE CONTAINS THE E-BANK, MAJOR MODE, AND PRIORITY 008702,001285: # INFORMATION, IT IS IN THE FOLLOWING FORM, 008703,001286: 008704,001287: # PPP PPE EEM MMM MMM 008705,001288: 008706,001289: # Page 207 008707,001290: # WHERE THE 7 M BITS CONTAIN THE MAJOR MODE NUMBER 008708,001291: # 3 E BITS CONTAIN THE E-BANK NUMBER 008709,001292: # 5 P BITS CONTAIN THE PRIORITY AT WHICH THE JOB IS 008710,001293: # TO BE STARTED 008711,001294: 008712,001295: # FOR EXAMPLE, 008713,001296: 008714,001297: # PREMM1 OCT 67213 # PRIORITY 33 008715,001298: # # E-BANK 5 008716,001299: # # MAJOR MODE 11 008717,001300: # OCT 25437 # PRIORITY 12 008718,001301: # # E-BANK 6 008719,001302: # # MAJOR MODE 31 008720,001303: 008721,001304: 04,2457 PREMM1 EQUALS 008722,001305: 04,2457 27117 OCT 27117 # MM 79 EBANK 4 PRIO 13 008723,001306: 04,2460 27116 OCT 27116 # MM 78 EBANK 4 PRIO 13 (original says PR23 13) 008724,001307: 04,2461 27115 OCT 27115 # MM 77 EBANK 4 PRIO 13 008725,001308: 04,2462 27714 OCT 27714 # MM 76 EBANK 4 PRIO 13 008726,001309: 04,2463 27113 OCT 27113 # MM 75 EBANK 4 PRIO 13 008727,001310: 04,2464 27112 OCT 27112 # MM 74 EBANK 4 PRIO 13 008728,001311: 04,2465 27111 OCT 27111 # MM 73 EBANK 4 PRIO 13 008729,001312: 04,2466 27110 OCT 27110 # MM 72 EBANK 4 PRIO 13 008730,001313: 04,2467 27476 OCT 27476 # MM 62 EBANK 6 PRIO 13 008731,001314: 04,2470 27475 OCT 27475 # MM 61 EBANK 6 PRIO 13 008732,001315: 04,2471 27266 OCT 27266 # MM 54 EBANK 5 PRIO 13 008733,001316: 04,2472 27265 OCT 27265 # MM 53 EBANK 5 PRIO 13 008734,001317: 04,2473 27264 OCT 27264 # MM 52 EBANK 5 PRIO 13 008735,001318: 04,2474 27263 OCT 27263 # MM 51 EBANK 5 PRIO 13 008736,001319: 04,2475 27657 OCT 27657 # MM 47 EBANK 7 PRIO 13 008737,001320: 04,2476 27451 OCT 27451 # MM 41 EBANK 6 PRIO 13 008738,001321: 04,2477 27450 OCT 27450 # MM 40 EBANK 6 PRIO 13 008739,001322: 04,2500 27047 OCT 27047 # MM 39 EBANK 4 PRIO 13 008740,001323: 04,2501 27046 OCT 27046 # MM 38 EBANK 4 PRIO 13 008741,001324: 04,2502 27645 OCT 27645 # MM 37 EBANK 7 PRIO 13 008742,001325: 04,2503 27043 OCT 27043 # MM 35 EBANK 4 PRIO 13 008743,001326: 04,2504 27042 OCT 27042 # MM 34 EBANK 4 PRIO 13 008744,001327: 04,2505 27041 OCT 27041 # MM 33 EBANK 4 PRIO 13 008745,001328: 04,2506 27040 OCT 27040 # MM 32 EBANK 4 PRIO 13 008746,001329: 04,2507 27637 OCT 27637 # MM 31 EBANK 7 PRIO 13 008747,001330: 04,2510 27636 OCT 27636 # MM 30 EBANK 7 PRIO 13 008748,001331: 04,2511 27227 OCT 27227 # MM 23 EBANK 5 PRIO 13 008749,001332: 04,2512 27226 OCT 27226 # MM 22 EBANK 5 PRIO 13 008750,001333: 04,2513 27025 OCT 27025 # MM 21 EBANK 4 PRIO 13 008751,001334: 04,2514 27424 OCT 27424 # MM 20 EBANK 6 PRIO 13 008752,001335: 04,2515 27021 OCT 27021 # MM 17 EBANK 6 PRIO 13 008753,001336: 04,2516 27006 OCT 27006 # MM 06 EBANK 4 PRIO 13 008754,001337: 04,2517 41201 OCT 41201 # MM 01 EBANK 5 PRIO 20 008755,001338: 008756,001339: # Page 208 008757,001340: # THE FOLLOWING LIST IS FOR THE PURPOSE OF VERIFYING THAT THE EBA 008758,001341: 008759,001342: 04,2520 E7,1412 EBANK= TIG # EBANK SETTING REQUIRED BY MM 76 008760,001343: 04,2520 E4,1763 EBANK= KT # EBANK SETTING REQUIRED BY MM 75 008761,001344: 04,2520 E4,1770 EBANK= SUBEXIT # EBANK SETTING REQUIRED BY MM 74 008762,001345: 04,2520 E4,1770 EBANK= SUBEXIT # EBANK SETTING REQUIRED BY MM 73 008763,001346: 04,2520 E4,1770 EBANK= SUBEXIT # EBANK SETTING REQUIRED BY MM 72 008764,001347: 04,2520 E6,1661 EBANK= AOG # EBANK SETTING REQUIRED BY MM 62 008765,001348: 04,2520 E6,1661 EBANK= AOG # EBANK SETTING REQUIRED BY MM 61 008766,001349: 04,2520 0302 EBANK= BESTI # EBANK SETTING REQUIRED BY MM 54 008767,001350: 04,2520 0304 EBANK= STARIND # EBANK SETTING REQUIRED BY MM 53 008768,001351: 04,2520 0302 EBANK= BESTI # EBANK SETTING REQUIRED BY MM 52 008769,001352: 04,2520 0304 EBANK= STARIND # EBANK SETTING REQUIRED BY MM 51 008770,001353: 04,2520 E7,1672 EBANK= P40TMP # EBANK SETTING REQUIRED BY MM 47 008771,001354: 04,2520 E6,1466 EBANK= DAPDATR1 # EBANK SETTING REQUIRED BY MM 41 008772,001355: 04,2520 E6,1510 EBANK= KMPAC # EBANK SETTING REQUIRED BY MM 40 008773,001356: 04,2520 E4,1763 EBANK= KT # EBANK SETTING REQUIRED BY MM 35 008774,001357: 04,2520 E4,1770 EBANK= SUBEXIT # EBANK SETTING REQUIRED BY MM 34 008775,001358: 04,2520 E4,1770 EBANK= SUBEXIT # EBANK SETTING REQUIRED BY MM 33 008776,001359: 04,2520 E4,1770 EBANK= SUBEXIT # EBANK SETTING REQUIRED BY MM 32 008777,001360: 04,2520 E7,1625 EBANK= +MGA # EBANK SETTING REQUIRED BY MM 30 008778,001361: 04,2520 E5,1751 EBANK= LANDMARK # EBANK SETTING REQUIRED BY MM 23 008779,001362: 04,2520 0301 EBANK= MARKINDX # EBANK SETTING REQUIRED BY MM 22 008780,001363: 04,2520 E7,1777 EBANK= WHOCARES # EBANK SETTING REQUIRED BY MM 21 008781,001364: 04,2520 E6,1413 EBANK= ESTROKER # EBANK SETTING REQUIRED BY MM 20 008782,001365: 04,2520 1150 EBANK= TIME2SAV # EBANK SETTING REQUIRED BY MM 06 008783,001366: 04,2520 E5,1425 EBANK= QPLACE # EBANK SETTING REQUIRED BY MM 01 008784,001367: 008785,001368: # NOTE: THE FOLLOWING CONSTANT IS THE NUMBER OF ENTRIES IN EACH OF 008786,001369: # ----- THE ABOVE LISTS-1 (I.E., THE NUMBER OF MAJOR MODES (EXCEPT P00) 008787,001370: # THAT CAN BE CALLED FROM THE KEYBOARD MINUS ONE) 008788,001371: 008789,001372: 04,2520 EPREMM1 EQUALS # END OF PREMM1 TABLE 008790,001373: 04,2457 SETLOC PREMM1 # THIS CODING WILL AUTOMATICALLY CHANGE 008791,001374: 04,2457 NO.MMS =MINUS EPREMM1 # THE "NOV37MM" CONSTANT AS ENTRIES ARE 008792,001375: 04,2000 SETLOC VERB37 # INSERTED(IN) OR DELETED(FROM) THE 008793,001376: 04,2000 BANK # "PREMM1" TABLE. 008794,001377: 008795,001378: 04,2520 00040 NOV37MM ADRES NO.MMS -1 # ITEMS IN "PREMM1" TABLE - 1. *DON'T MOVE* 008796,001379: 008797,001380: 04,2521 DNLADMM1 EQUALS 008798,001381: 04,2521 00002 ADRES RENDEZVU # P79 008799,001382: 04,2522 00002 ADRES RENDEZVU # P78 008800,001383: 04,2523 00002 ADRES RENDEZVU # P77 008801,001384: 04,2524 00002 ADRES RENDEZVU # P76 008802,001385: 04,2525 00002 ADRES RENDEZVU # P75 008803,001386: 04,2526 00002 ADRES RENDEZVU # P74 008804,001387: 04,2527 00002 ADRES RENDEZVU # P73 008805,001388: # Page 209 008806,001389: 04,2530 00002 ADRES RENDEZVU # P72 008807,001390: 04,2531 00001 ADRES ENTRYUPD # P62 008808,001391: 04,2532 00003 ADRES POWERED # P61 008809,001392: 04,2533 00000 ADRES COSTALIN 008810,001393: 04,2534 00000 ADRES COSTALIN 008811,001394: 04,2535 00000 ADRES COSTALIN # P52 008812,001395: 04,2536 00000 ADRES COSTALIN # P51 008813,001396: 04,2537 00003 ADRES POWERED # P47 008814,001397: 04,2540 00003 ADRES POWERED # P41 008815,001398: 04,2541 00003 ADRES POWERED # P40 008816,001399: 04,2542 00002 ADRES RENDEZVU # P39 008817,001400: 04,2543 00002 ADRES RENDEZVU # P38 008818,001401: 04,2544 00002 ADRES RENDEZVU # P37 008819,001402: 04,2545 00002 ADRES RENDEZVU # P35 008820,001403: 04,2546 00002 ADRES RENDEZVU # P34 008821,001404: 04,2547 00002 ADRES RENDEZVU # P33 008822,001405: 04,2550 00002 ADRES RENDEZVU # P32 008823,001406: 04,2551 00002 ADRES RENDEZVU 008824,001407: 04,2552 00002 ADRES RENDEZVU # P30 008825,001408: 04,2553 00002 ADRES RENDEZVU # P23 008826,001409: 04,2554 00004 ADRES P22DNLST # P22 008827,001410: 04,2555 00002 ADRES RENDEZVU # P21 008828,001411: 04,2556 00002 ADRES RENDEZVU # P20 008829,001412: 04,2557 00002 ADRES RENDEZVU # P17 008830,001413: 04,2560 00000 ADRES COSTALIN # P06 008831,001414: 04,2561 00000 ADRES COSTALIN # P01 008832,001415: 008833,001416: 04,2562 5021 DNLADP00 = ZERO 008834,001417: 04,2562 COSTALIN = 0 008835,001418: 04,2562 ENTRYUPD = 1 008836,001419: 04,2562 RENDEZVU = 2 008837,001420: 04,2562 POWERED = 3 008838,001421: 008839,001422: 04,2562 P22DNLST = 4 008840,001423: 008841,001424: # ORBITAL INTEGRATION CONSTANTS 008842,001425: 008843,001426: # THESE CONSTANTS ARE USED IN COMPUTING THE SETTING OF MIDFLAG. 008844,001427: 008845,001428: 04,2562 00465 32324 RMM 2DEC 2538.09 E3 B-27 # 800 KM ABOVE LUNAR SURFACE 008846,001429: 008847,001430: 04,2564 00333 01733 RME 2DEC 7178165 B-29 # 800 KM ABOVE EQ. RADIUS 008848,001431: 008849,001432: 13,2000 BANK 13 008850,001433: 13,2000 SETLOC INTINIT 008851,001434: 13,2000 BANK 008852,001435: 008853,001436: 13,2000 COUNT* $$/INTIN 008854,001437: 008855,001438: 13,2000 E3,1554 EBANK= RRECTCSM 008856,001439: 008857,001440: 13,2000 43014 STATEUP SET BOF # EXTRAPOLATE CM STATE VECTOR 008858,001441: 13,2001 01474 VINTFLAG 008859,001442: # Page 210 008860,001443: 13,2002 01751 ORBWFLAG # ALSO 6X6 W-MATRIX IF VALID 008861,001444: 13,2003 26006 +3 # FOR ORBITAL NAVIGATION 008862,001445: 13,2004 77614 SET 008863,001446: 13,2005 01476 DIM0FLAG 008864,001447: 13,2006 45014 CLEAR CALL 008865,001448: 13,2007 01667 PRECIFLG 008866,001449: 13,2010 27162 INTEGRV 008867,001450: 13,2011 71214 BON DLOAD 008868,001451: 13,2012 04307 SURFFLAG 008869,001452: 13,2013 26031 STATEND 008870,001453: 13,2014 01571 TETCSM 008871,001454: 13,2015 34041 STCALL TDEC1 008872,001455: 13,2016 27442 INTSTALL 008873,001456: 13,2017 45014 CLEAR CALL # EXTRAPOLATE LM STATE VECTOR 008874,001457: 13,2020 01674 VINTFLAG 008875,001458: 13,2021 26670 SETIFLGS # AND 6X6 W-MATRIX IF VALID 008876,001459: 13,2022 43014 BOF SET 008877,001460: 13,2023 02756 RENDWFLG # FOR RENDEZVOUS NAVIGATION 008878,001461: 13,2024 26026 +2 008879,001462: 13,2025 01476 DIM0FLAG 008880,001463: 13,2026 45014 SET CALL 008881,001464: 13,2027 01467 PRECIFLG 008882,001465: 13,2030 27162 INTEGRV 008883,001466: 13,2031 77614 STATEND CLRGO 008884,001467: 13,2032 01236 NODOFLAG 008885,001468: 13,2033 26656 ENDINT 008886,001469: 008887,001470: # THIS VINT IS CALLED BY MIDTOAV1 AND 2 008888,001471: 008889,001472: 13,2034 43414 THISVINT SET RVQ 008890,001473: 13,2035 01474 VINTFLAG 008891,001474: End of include-file FRESH_START_AND_RESTART.agc. Parent file is MAIN.agc