Source Code

007237,000001: # Copyright: Public domain. 007238,000002: # Filename: FRESH_START_AND_RESTART.agc 007239,000003: # Purpose: Part of the source code for Colossus, build 249. 007240,000004: # It is part of the source code for the Command Module's (CM) 007241,000005: # Apollo Guidance Computer (AGC), possibly for Apollo 8 and 9. 007242,000006: # Assembler: yaYUL 007243,000007: # Reference: pp. 179-206 of 1701.pdf. 007244,000008: # Contact: Ron Burkey <info@sandroid.org>. 007245,000009: # Website: www.ibiblio.org/apollo. 007246,000010: # Mod history: 08/07/04 RSB. Adapted from similar Luminary 131 file. 007247,000011: # Oddly, the 2 pages of introductory comments 007248,000012: # aren't present in Luminary. 007249,000013: # 2010-08-29 JL Added missing comment character. 007250,000014: # 2010-10-24 JL Pseudo-label indentation fixes. 007251,000015: 007252,000016: # The contents of the "Colossus249" files, in general, are transcribed 007253,000017: # from a scanned document obtained from MIT's website, 007254,000018: # http://hrst.mit.edu/hrs/apollo/public/archive/1701.pdf. Notations on this 007255,000019: # document read, in part: 007256,000020: 007257,000021: # Assemble revision 249 of AGC program Colossus by NASA 007258,000022: # 2021111-041. October 28, 1968. 007259,000023: 007260,000024: # This AGC program shall also be referred to as 007261,000025: # Colossus 1A 007262,000026: 007263,000027: # Prepared by 007264,000028: # Massachusetts Institute of Technology 007265,000029: # 75 Cambridge Parkway 007266,000030: # Cambridge, Massachusetts 007267,000031: # under NASA contract NAS 9-4065. 007268,000032: 007269,000033: # Refer directly to the online document mentioned above for further information. 007270,000034: # Please report any errors (relative to 1701.pdf) to info@sandroid.org. 007271,000035: 007272,000036: # In some cases, where the source code for Luminary 131 overlaps that of 007273,000037: # Colossus 249, this code is instead copied from the corresponding Luminary 131 007274,000038: # source file, and then is proofed to incorporate any changes. 007275,000039: 007276,000040: # PROGRAM DESCRIPTION 8 APRIL, 1967 007277,000041: # SUNDISK REV 120 007278,000042: # FUNCTIONAL DESCRIPTION 007279,000043: 007280,000044: # SLAP1 MAN INITIATED FRESH START 007281,000045: # 1. EXECUTE STARTSUB 007282,000046: # 2. TURN OFF DSKY DISCRETE-LAMPS 007283,000047: # 3. CLEAR FAIL REGISTERS, SELF-CHECK ERROR COUNTER AND RESTART 007284,000048: # COUNTER 007285,000049: # 4. EXECUTE DOFSTART 007286,000050: 007287,000051: # DOFSTART MACHINE INITIATED FRESH START 007288,000052: 007289,000053: # 1. CLEAR SELF-CHECK REGISTERS, MODE REGISTER AND CDUZ REGISTER 007290,000054: # 2. CLEAR PHASE TABLE 007291,000055: # 3. INITIALIZE IMU FLAGS 007292,000056: # 4. INITIALIZE FLAGWORDS 007293,000057: # 5. TRANSFER CONTROL TO IDLE LOOP IN DUMMYJOB 007294,000058: 007295,000059: # GOPROG HARDWARE RESTART 007296,000060: 007297,000061: # 0. EXECUTE STARTSUB 007298,000062: # 1. TRANSFER CONTROL TO DOFSTART IF ANY OF THE FOLLOWING CONDITIONS 007299,000063: # EXIST. 007300,000064: # A. RESTART OCCURRED DURING EXECUTION OF ERASCHK. 007301,000065: # B. BOTH OSCILLATOR FAIL AND AGC WARNING ARE ON. 007302,000066: # C. MARK REJECT AND EITHER NAV OR MAIN DSKY ERROR LIGHT RESET 007303,000067: # ARE ON. 007304,000068: # 2. SCHEDULE A T5RUPT PROGRAM FOR THE DAP 007305,000069: # 3. SET FLAGWRD5 BITS FOR INTWAKE ROUTINE 007306,000070: # 4. EXTINGUISH ALL DSKY LAMPS, EXCEPT FOR PROGRAM ALARM, GIMBAL LOCK, AND 007307,000071: # NO ATT 007308,000072: # 5. INITIALIZE IMU FLAGS 007309,000073: # 6. IF ENGINE COMMAND IS ON (FLAGWRD5, BIT 7), SET ENGINE ON (CHANNEL 007310,000074: # 11, BIT 13). 007311,000075: # 7. TRANSFER CONTROL TO GOPROG3 007312,000076: 007313,000077: # ENEMA SOFTWARE RESTART -- INITIATED BY MAJOR MODE CHANGE 007314,000078: 007315,000079: # 1. EXECUTE STARTSR2 007316,000080: # 2. KILL PROGRAMS THAT WERE INTEGRATING OR WAITING FOR INTEGRATION 007317,000081: # ROUTINE 007318,000082: # 3. TRANSFER CONTROL TO GOPROG3 007319,000083: 007320,000084: # GOPROG3 SUBROUTINE COMMON TO GOPROG AND ENEMA 007321,000085: 007322,000086: # 1. TEST PHASE TABLES -- IF INCORRECT, DISPLAY ALARM 1107 AND 007323,000087: # TRANSFER CONTROL TO DOFSTART 007324,000088: # 2. DISPLAY MAJOR MODE 007325,000089: # 3. IF ANY GROUPS WERE ACTIVE UPON RESTART, TRANSFER CONTROL TO THE 007326,000090: # Page 180 007327,000091: # RESTARTS SUBROUTINE TO RESCHEDULE PENDING TASKS, LONGCALLS, AND 007328,000092: # JOBS (P20 IS RESTARTED VIA FINDVAC) 007329,000093: # 4. IF NO GROUPS WERE ACTIVE UPON RESTART, DISPLAY ALARM CODE 007330,000094: # 1110 (RESTART WITH NO ACTIVE GROUPS) 007331,000095: # 5. TRANSFER CONTROL TO IDLE LOOP IN DUMMYJOB 007332,000096: 007333,000097: # STARTSUB SUBROUTINE COMMON TO SLAP1 AND GOPROG 007334,000098: 007335,000099: # 1. CLEAR OUTBIT CHANNELS 5 AND 6 007336,000100: # 2. INITIALIZE TIME5, TIME4, AND TIME3 007337,000101: # 3. TRANSFER CONTROL TO STARTSB2 007338,000102: 007339,000103: # STARTSB2 SUBROUTINE COMMON TO STARTSUB AND ENEMA 007340,000104: 007341,000105: # 1. INTIALIZE OUTBIT CHANNELS 11,12,13, AND 14 007342,000106: # 2. REPLACE ALL TASKS ON WAITLIST WITH ENDTASK 007343,000107: # 3. MAKE ALL EXECUTEVE REGISTERS AVAILABLE 007344,000108: # 4. MAKE ALL VAC AREAS AVAILABLE 007345,000109: # 5. CLEAR DSKY REGISTERS 007346,000110: # 6. ZERO NUMEROUS SWITCHES 007347,000111: # 7. INITIALIZE OPTICS FLAGS 007348,000112: # 8. INITIALIZE PIPA AND TELEMETRY FAIL FLAGS 007349,000113: # 9. INITIALIZE DOWN TELEMETRY 007350,000114: 007351,000115: # INPUT/OUTPUT INITIALIZATION 007352,000116: 007353,000117: # A. CALLING SEQUENCE 007354,000118: 007355,000119: # SLAP1 -- TC POSTJUMP OR VERB 36,ENTER 007356,000120: # CADR SLAP1 007357,000121: 007358,000122: # ENEMA -- TC POSTJUMP *** DO NOT CALL ENEMA WITHOUT *** 007359,000123: # CADR ENEMA *** CONSULTING P00H PEOPLE *** 007360,000124: 007361,000125: # B. OUTPUT 007362,000126: 007363,000127: # ERASABLE MEMORY INITIALIZATION 007364,000128: 007365,000129: # PROGRAM ANALYSIS 007366,000130: 007367,000131: # A. SUBROUTINES CALLED 007368,000132: 007369,000133: # MR.KLEAN,WAITLIST,DSPMM,ALARM,RESTARTS,FINDVAC 007370,000134: 007371,000135: # B. ALARMS 007372,000136: 007373,000137: # 1107 PHASE TABLE ERROR 007374,000138: # 1110 RESTART WTIH NO ACTIVE GROUPS 007375,000139: 007376,000140: # Page 181 007377,000141: 10,2203 BANK 10 007378,000142: 05,2000 SETLOC FRANDRES 007379,000143: 05,2000 BANK 007380,000144: 007381,000145: 05,2347 E3,1400 EBANK= LST1 007382,000146: 007383,000147: 05,2347 COUNT 05/START # FRESH AND RESTART 007384,000148: 05,2347 00004 SLAP1 INHINT # FRESH START. COMES HERE FROM PINBALL. 007385,000149: 05,2350 02767 TC STARTSUB # SUBROUTINE DOES MOST OF THE WORK 007386,000150: 007387,000151: 05,2351 12356 STARTSW TCF SKIPSIM # PATCH....TCF STARTSIM FOR SIMULATION 007388,000152: 05,2352 34675 STARTSIM CAF BIT14 007389,000153: 05,2353 05042 TC FINDVAC 007390,000154: 05,2354 77777 SIM2CADR OCT 77777 # PATCH 2CADR (AND EBANK DESIGNATION) OF 007391,000155: 05,2355 77777 OCT 77777 # SIMULATION START ADDRESS. 007392,000156: 007393,000157: 05,2356 31036 SKIPSIM CA DSPTAB +11D 007394,000158: 05,2357 74726 MASK BITS4&6 007395,000159: 05,2360 64674 AD BIT15 007396,000160: 05,2361 55036 TS DSPTAB +11D # REQUESTED FRESH START 007397,000161: 007398,000162: 05,2362 34714 CA ZERO # SAVE STORY ON ZEROING FAILREG. 007399,000163: 05,2363 55365 TS ERCOUNT 007400,000164: 05,2364 54375 TS FAILREG 007401,000165: 05,2365 54376 TS FAILREG +1 007402,000166: 05,2366 54377 TS FAILREG +2 007403,000167: 05,2367 55154 TS REDOCTR 007404,000168: 007405,000169: 05,2370 44603 CS PRIO12 007406,000170: 05,2371 55302 TS DSRUPTSW 007407,000171: 007408,000172: 05,2372 34714 DOFSTART CAF ZERO # DO A FRESH START 007409,000173: 05,2373 55360 TS ERESTORE # ***** MUST NOT BE REMOVED FROM DOFSTART 007410,000174: 05,2374 55362 TS SMODE # ***** MUST NOT BE REMOVED FROM DOFSTART 007411,000175: 05,2375 55501 TS UPSVFLAG # UPDATE STATE VECTOR REQUEST FLAGWORD 007412,000176: 05,2376 00006 EXTEND 007413,000177: 05,2377 01005 WRITE CHAN5 # TURN OFF RCS JETS 007414,000178: 05,2400 00006 EXTEND 007415,000179: 05,2401 01006 WRITE CHAN6 # TURN OFF RCS JETS 007416,000180: 05,2402 00006 EXTEND 007417,000181: 05,2403 01011 WRITE DSALMOUT # ZERO CHANNEL 11 007418,000182: 05,2404 00006 EXTEND 007419,000183: 05,2405 01012 WRITE CHAN12 # ZERO CHANNEL 12 007420,000184: 05,2406 00006 EXTEND 007421,000185: 05,2407 01013 WRITE CHAN13 # ZERO CHANNEL 13 007422,000186: 05,2410 00006 EXTEND 007423,000187: 05,2411 01014 WRITE CHAN14 # ZERO CHANNEL 14 007424,000188: 05,2412 55316 TS WTOPTION 007425,000189: 05,2413 54332 TS DNLSTCOD 007426,000190: # Page 182 007427,000191: 05,2414 54371 TS NVSAVE 007428,000192: 05,2415 55071 TS EBANKTEM 007429,000193: 05,2416 55130 TS RATEINDX 007430,000194: 05,2417 55126 TS TRKMKCNT 007431,000195: 05,2420 55125 TS VHFCNT 007432,000196: 05,2421 55044 TS EXTVBACT 007433,000197: 007434,000198: 05,2422 41036 CS DSPTAB +11D 007435,000199: 05,2423 74726 MASK BITS4&6 007436,000200: 05,2424 10000 CCS A 007437,000201: 05,2425 02431 TC +4 007438,000202: 05,2426 34726 CA BITS4&6 007439,000203: 05,2427 00006 EXTEND # THE IMU WAS IN COARSE ALIGN IN GIMBAL 007440,000204: 05,2430 05012 WOR CHAN12 # LOCK, SO PUT IT BACK INTO COARSE ALIGN. 007441,000205: 05,2431 02474 TC MR.KLEAN 007442,000206: 007443,000207: 05,2432 44714 CS ZERO 007444,000208: 05,2433 55011 TS MODREG 007445,000209: 007446,000210: 05,2434 34371 CAF PRIO30 007447,000211: 05,2435 54366 TS RESTREG 007448,000212: 007449,000213: 05,2436 33167 CAF IM30INIF # FRESH START IMU INITIALIZATION 007450,000214: 05,2437 55320 TS IMODES30 007451,000215: 007452,000216: 05,2440 37716 CAF NEGONE 007453,000217: 05,2441 55303 TS OPTIND # KILL COARSE OPTICS 007454,000218: 007455,000219: 05,2442 33172 CAF OPTINITF 007456,000220: 05,2443 55331 TS OPTMODES 007457,000221: 007458,000222: 05,2444 34763 CAF IM33INIT 007459,000223: 05,2445 55321 TS IMODES33 007460,000224: 007461,000225: 05,2446 00006 EXTEND # LET T5 IDLE. 007462,000226: 05,2447 33146 DCA T5IDLER 007463,000227: 05,2450 53313 DXCH T5LOC 007464,000228: 007465,000229: 05,2451 00006 EXTEND # INITIALIZE SWITCHES ONLY ON FRESH START. 007466,000230: 05,2452 33175 DCA SWINIT 007467,000231: 05,2453 52075 DXCH STATE 007468,000232: 05,2454 00006 EXTEND 007469,000233: 05,2455 33177 DCA SWINIT +2 007470,000234: 05,2456 52077 DXCH STATE +2 007471,000235: 05,2457 00006 EXTEND 007472,000236: 05,2460 33201 DCA SWINIT +4 007473,000237: 05,2461 52101 DXCH STATE +4 007474,000238: 05,2462 00006 EXTEND 007475,000239: 05,2463 33203 DCA SWINIT +6 007476,000240: 05,2464 52103 DXCH STATE +6 007477,000241: # Page 183 007478,000242: 05,2465 00006 EXTEND 007479,000243: 05,2466 33205 DCA SWINIT +8D 007480,000244: 05,2467 52105 DXCH STATE +8D 007481,000245: 007482,000246: 05,2470 33206 CA SWINIT +10D 007483,000247: 05,2471 54106 TS STATE +10D 007484,000248: 007485,000249: 05,2472 04574 ENDRSTRT TC POSTJUMP 007486,000250: 05,2473 03225 CADR DUMMYJOB +2 # PICKS UP AT RELINT. (IN A SWITCHED BANK.) 007487,000251: 007488,000252: 05,2474 00004 MR.KLEAN INHINT 007489,000253: 05,2475 00006 EXTEND 007490,000254: 05,2476 34714 DCA NEG0 007491,000255: 05,2477 52755 DXCH -PHASE2 007492,000256: 05,2500 00006 P00KLEAN EXTEND 007493,000257: 05,2501 34714 DCA NEG0 007494,000258: 05,2502 52761 DXCH -PHASE4 007495,000259: 05,2503 00006 EXTEND 007496,000260: 05,2504 34714 DCA NEG0 007497,000261: 05,2505 52753 DXCH -PHASE1 007498,000262: 05,2506 00006 V37KLEAN EXTEND 007499,000263: 05,2507 34714 DCA NEG0 007500,000264: 05,2510 52757 DXCH -PHASE3 007501,000265: 05,2511 00006 EXTEND 007502,000266: 05,2512 34714 DCA NEG0 007503,000267: 05,2513 52763 DXCH -PHASE5 007504,000268: 05,2514 00006 EXTEND 007505,000269: 05,2515 34714 DCA NEG0 007506,000270: 05,2516 52765 DXCH -PHASE6 007507,000271: 05,2517 00002 TC Q 007508,000272: 007509,000273: # Page 184 007510,000274: # COMES HERE FROM LOCATION 4000, GOJAM, RESTART ANY PROGRAMS WHICH MAY HAVE BEEN RUNNING AT THE TIME. 007511,000275: 007512,000276: 05,2520 25154 GOPROG INCR REDOCTR # ADVANCE RESTART COUNTER. 007513,000277: 007514,000278: 05,2521 22002 LXCH Q 007515,000279: 05,2522 00006 EXTEND 007516,000280: 05,2523 04007 ROR SUPERBNK 007517,000281: 05,2524 53433 DXCH RSBBQ 007518,000282: 05,2525 02767 TC STARTSUB 007519,000283: 007520,000284: # ERACHK TEMPORARILY STORES THE CONTENST OF TWO ERASABLE LOCATIONS, X 007521,000285: # AND X+1 INTO SKEEP5 AND SKEEP6. IT ALSO STORES X INTO SKEEP7 AND 007522,000286: # ERESTORE. IF ERASCHK IS INTERRUPTED BY A RESTART, C(ERESTORE) SHOULD 007523,000287: # EQUAL C(SKEEP7), AND SHOULD BE A + NUMBER LESS THAN 2000 OCT. OTHERWISE 007524,000288: # C(ERESTORE) SHOULD EQUAL +0. 007525,000289: 007526,000290: 05,2526 34364 CAF HI5 007527,000291: 05,2527 71360 MASK ERESTORE 007528,000292: 05,2530 00006 EXTEND 007529,000293: 05,2531 12533 BZF +2 # IF ERESTORE NOT = +0 OR +N LESS THAN 2K, 007530,000294: 05,2532 12372 TCF DOFSTART # DOUBT E MEMORY AND DO A FRESH START 007531,000295: 05,2533 41360 CS ERESTORE 007532,000296: 05,2534 00006 EXTEND 007533,000297: 05,2535 12552 BZF DORSTART # = +0 CONTINUE WITH RESTART. 007534,000298: 05,2536 61377 AD SKEEP7 007535,000299: 05,2537 00006 EXTEND 007536,000300: 05,2540 12542 BZF +2 # = SKEEP7, RESTORE E MEMORY. 007537,000301: 05,2541 12372 TCF DOFSTART # NOT = SKEEP7, DOUBT E MEM, DO FRESH START 007538,000302: 05,2542 31374 CA SKEEP4 007539,000303: 05,2543 54003 TS EBANK # EBANK OF E MEMORY THAT WAS UNDER TEST. 007540,000304: 05,2544 00006 EXTEND # (NOT DXCH SINCE THIS MIGHT HAPPEN AGAIN) 007541,000305: 05,2545 31376 DCA SKEEP5 007542,000306: 05,2546 51377 INDEX SKEEP7 007543,000307: 05,2547 52001 DXCH 0000 # E MEMORY RESTORED 007544,000308: 05,2550 34714 CA ZERO 007545,000309: 05,2551 55360 TS ERESTORE 007546,000310: 05,2552 34674 DORSTART CA BIT15 # TEST OSC FAIL BIT TO SEE IF WE HAVE 007547,000311: 05,2553 00006 EXTEND # HAD A POWER TRANSIENT. IF SO, ATTEMPT 007548,000312: 05,2554 03033 WAND CHAN33 # A RESTART. IF NOT, CHECK THE PRESENT 007549,000313: 05,2555 00006 EXTEND # STATE OF AGC WARNING. 007550,000314: 05,2556 12564 BZF BUTTONS 007551,000315: 007552,000316: 05,2557 34675 CA BIT14 # IF AGC WARNING ON (BIT = 0), DO A FRESH 007553,000317: 05,2560 00006 EXTEND # START ON THE ASSUMPTION THAT WE'RE IN A 007554,000318: 05,2561 02033 RAND CHAN33 # RESTART LOOP. 007555,000319: 05,2562 00006 EXTEND 007556,000320: 05,2563 12372 BZF DOFSTART 007557,000321: 007558,000322: 05,2564 02744 BUTTONS TC LIGHTSET # EXIT 007559,000323: # MARK REJECT DEPRESSED SIMULTANEOUSLY. 007560,000324: # Page 185 007561,000325: 05,2565 30102 ELRSKIP CA FLAGWRD6 # RESTART AUTOPILOTS 007562,000326: 05,2566 00006 EXTEND 007563,000327: 05,2567 74710 MP BIT3 # BITS 15,14 00 T5IDLOC 007564,000328: 05,2570 76211 MASK SIX # 01 REDORCS 007565,000329: 05,2571 00006 EXTEND # 10 REDOTVC 007566,000330: 05,2572 50000 INDEX A # 11 REDOSAT 007567,000331: 05,2573 33146 DCA T5IDLER 007568,000332: 05,2574 53313 DXCH T5LOC 007569,000333: 007570,000334: 05,2575 44675 CS INTFLBIT 007571,000335: 05,2576 70106 MASK RASFLAG 007572,000336: 05,2577 54106 TS RASFLAG 007573,000337: 007574,000338: 05,2600 31331 CA OPTMODES 007575,000339: 05,2601 73173 MASK OPTINITR 007576,000340: 05,2602 64704 AD BIT7 007577,000341: 05,2603 55331 TS OPTMODES 007578,000342: 007579,000343: 05,2604 34705 CAF BIT6 007580,000344: 05,2605 71321 MASK IMODES33 007581,000345: 05,2606 64763 AD IM33INIT 007582,000346: 05,2607 55321 TS IMODES33 007583,000347: 007584,000348: 05,2610 33171 CA 9,6,4 # LEAVE PROG ALARM, GIMBAL LOCK, NO ATT 007585,000349: 05,2611 71036 MASK DSPTAB +11D # LAMPS INTACT ON HARDWARE RESTART 007586,000350: 05,2612 64674 AD BIT15 007587,000351: 05,2613 57036 XCH DSPTAB +11D 007588,000352: 05,2614 74707 MASK BIT4 # IF NO ATT LAMP WAS ON, LEAVE ISS IN 007589,000353: 05,2615 00006 EXTEND # COARSE ALIGN 007590,000354: 05,2616 12625 BZF NOCOARSE 007591,000355: 05,2617 04633 TC IBNKCALL # IF NO ATT LAMP ON, RETURN ISS TO 007592,000356: 05,2620 16746 CADR SETCOARS # COARSE ALIGN. 007593,000357: 007594,000358: 05,2621 36211 CAF SIX 007595,000359: 05,2622 05140 TC WAITLIST 007596,000360: 05,2623 E3,1474 EBANK= CDUIND 007597,000361: 05,2623 02742 16063 2CADR CA+ECE 007598,000362: 007599,000363: 05,2625 33155 NOCOARSE CAF IFAILINH # LEAVE FAILURE INHIBITS INTACT ON 007600,000364: 05,2626 71320 MASK IMODES30 # HARDWARE RESTART. RESET ALL 007601,000365: 05,2627 63170 AD IM30INIR # FAILURE CODES. 007602,000366: 05,2630 55320 TS IMODES30 007603,000367: 007604,000368: 05,2631 40101 CS FLAGWRD5 007605,000369: 05,2632 74704 MASK BIT7 007606,000370: 05,2633 10000 CCS A 007607,000371: 05,2634 12657 TCF GOPROG3 007608,000372: 05,2635 34676 CAF BIT13 007609,000373: 05,2636 00006 EXTEND 007610,000374: 05,2637 05011 WOR DSALMOUT # TURN ENGINE ON 007611,000375: # Page 186 007612,000376: 05,2640 12657 TCF GOPROG3 007613,000377: 007614,000378: 05,2641 00004 ENEMA INHINT 007615,000379: 05,2642 02744 TC LIGHTSET # EXIT TO DOFSTART IF ERROR RESET AND 007616,000380: 05,2643 02777 TC STARTSB2 # MARK REJECT DEPRESSED SIMULTANEOUSLY 007617,000381: 05,2644 43162 CS INTMASK # RESET INTEGRATION BITS 007618,000382: 05,2645 70106 MASK RASFLAG 007619,000383: 05,2646 54106 TS RASFLAG 007620,000384: 007621,000385: 05,2647 40102 CS FLAGWRD6 # IS TVC ON 007622,000386: 05,2650 74105 MASK OCT60000 007623,000387: 05,2651 00006 EXTEND 007624,000388: 05,2652 62657 BZMF GOPROG3 # NO 007625,000389: 007626,000390: 05,2653 34731 CAF .5SEC # YES, CALL TVCEXEC TASK WHICH WAS KILLED 007627,000391: 05,2654 05140 TC WAITLIST # IN STARTSB2 007628,000392: 05,2655 E6,1742 EBANK= BZERO 007629,000393: 05,2655 02660 34066 2CADR TVCEXEC 007630,000394: 007631,000395: 05,2657 34715 GOPROG3 CAF NUMGRPS # VERIFY PHASE TABLE AGREEMENTS 007632,000396: 05,2660 54161 PCLOOP TS MPAC +5 007633,000397: 05,2661 60000 DOUBLE 007634,000398: 05,2662 00006 EXTEND 007635,000399: 05,2663 50000 INDEX A 007636,000400: 05,2664 30753 DCA -PHASE1 # COMPLEMENT INTO A, DIRECT INTO L. 007637,000401: 05,2665 00006 EXTEND 007638,000402: 05,2666 06001 RXOR LCHAN # RESULT MUST BE -0 FOR AGREEMENT. 007639,000403: 05,2667 10000 CCS A 007640,000404: 05,2670 12737 TCF PTBAD # RESTART FAILURE. 007641,000405: 05,2671 12737 TCF PTBAD 007642,000406: 05,2672 12737 TCF PTBAD 007643,000407: 05,2673 10161 CCS MPAC +5 # PROCESS ALL RESTART GROUPS. 007644,000408: 05,2674 12660 TCF PCLOOP 007645,000409: 007646,000410: 05,2675 54162 TS MPAC +6 # SET TO +0. 007647,000411: 05,2676 05247 TC MMDSPLAY # DISPLAY MAJOR MODE 007648,000412: 007649,000413: 05,2677 00004 INHINT # RELINT DONE IN MMDSPLAY 007650,000414: 007651,000415: 05,2700 30102 CAE FLAGWRD6 # IS RCS DAP RUNNING (BITS 15 14 OF 007652,000416: 05,2701 74105 MASK OCT60000 # FLAGWORD6 = 01) 007653,000417: 05,2702 00006 EXTEND # YES, DO STOPRATE 007654,000418: 05,2703 62712 BZMF NXTRST -1 # NO, SKIP TO NXTRST -1 007655,000419: 05,2704 34752 CAF EBANK6 # STOPRATE IS DONE IN EBANK 6 007656,000420: 05,2705 54003 TS EBANK 007657,000421: 05,2706 04633 TC IBNKCALL # ZERO DELCDUS, WBODYS, AND BIASES THUS 007658,000422: 05,2707 45245 CADR STOPRATE # STOPPING AUTOMATIC MANEUVERING 007659,000423: 05,2710 34744 CAF EBANK3 007660,000424: 05,2711 54003 TS EBANK 007661,000425: 05,2712 34715 CAF NUMGRPS # SEE IF ANY GROUPS RUNNING 007662,000426: # Page 187 007663,000427: 05,2713 54161 NXTRST TS MPAC +5 007664,000428: 05,2714 60000 DOUBLE 007665,000429: 05,2715 50000 INDEX A 007666,000430: 05,2716 10753 CCS PHASE1 007667,000431: 05,2717 12721 TCF PACTIVE # PNZ -- GROUP ACTIVE. 007668,000432: 05,2720 12726 TCF PINACT # +0 -- GROUP NOT RUNNING. 007669,000433: 007670,000434: 05,2721 54154 PACTIVE TS MPAC 007671,000435: 05,2722 24154 INCR MPAC # ABS OF PHASE. 007672,000436: 05,2723 24162 INCR MPAC +6 # INDICATE GROUP DEMANDS PRESENT. 007673,000437: 05,2724 32743 CA RACTCADR 007674,000438: 05,2725 04561 TC SWCALL # MUST RETURN TO SWRETURN. 007675,000439: 007676,000440: 05,2726 10161 PINACT CCS MPAC +5 # PROCESS ALL RESTART GROUPS. 007677,000441: 05,2727 12713 TCF NXTRST 007678,000442: 007679,000443: 05,2730 10162 CCS MPAC +6 # NO, CHECK PHASE ACTIVITY FLAG 007680,000444: 05,2731 12472 TCF ENDRSTRT # PHASE ACTIVE 007681,000445: 05,2732 34674 CAF BIT15 # IS MODE -0 007682,000446: 05,2733 71011 MASK MODREG 007683,000447: 05,2734 00006 EXTEND 007684,000448: 05,2735 14106 BZF GOTOP00H # NO 007685,000449: 05,2736 12472 TCF ENDRSTRT # YES 007686,000450: 05,2737 05537 PTBAD TC ALARM # SET ALARM TO SHOW PHASE TABLE FAILURE. 007687,000451: 05,2740 01107 OCT 1107 007688,000452: 007689,000453: 05,2741 12372 TCF DOFSTART # IN R21. 007690,000454: 007691,000455: # ********* ********* ********** 007692,000456: 007693,000457: # DO NOT USE GOPROG2 OR ENEMA WITHOUT CONSULTING P00H PEOPLE. 007694,000458: 007695,000459: 05,2742 05,2641 GOPROG2 EQUALS ENEMA 007696,000460: 05,2742 4676 OCT10000 = BIT13 007697,000461: 05,2742 4371 OCT30000 = PRIO30 007698,000462: 05,2742 07777 OCT7777 OCT 7777 007699,000463: 05,2743 03520 RACTCADR CADR RESTARTS 007700,000464: 007701,000465: 05,2744 34704 LIGHTSET CAF BIT7 # DOFSTART IF MARK REJECT AND EITHER 007702,000466: 05,2745 00006 EXTEND # ERROR LIGHT RESET BUTTONS ARE DEPRESSED 007703,000467: 05,2746 02016 RAND NAVKEYIN 007704,000468: 05,2747 00006 EXTEND 007705,000469: 05,2750 12764 BZF NONAVKEY # NO MARK REJECT 007706,000470: 05,2751 34362 CAF OCT37 007707,000471: 05,2752 00006 EXTEND 007708,000472: 05,2753 02016 RAND NAVKEYIN # NAV DSKY KEYCODES,MARK,MARK REJECT 007709,000473: 05,2754 63166 AD -ELR 007710,000474: 05,2755 00006 EXTEND 007711,000475: 05,2756 12765 BZF NONAVKEY +1 007712,000476: 05,2757 00006 EXTEND 007713,000477: 05,2760 00015 READ MNKEYIN # MAIN DSKY KEYCODES 007714,000478: # Page 188 007715,000479: 05,2761 63166 AD -ELR 007716,000480: 05,2762 00006 EXTEND 007717,000481: 05,2763 12765 BZF +2 007718,000482: 007719,000483: 05,2764 00002 NONAVKEY TC Q 007720,000484: 007721,000485: 05,2765 02767 TC STARTSUB 007722,000486: 05,2766 12372 TCF DOFSTART 007723,000487: 05,2767 33156 STARTSUB CAF LDNPHAS1 # SET POINTER SO NEXT 20MS DOWNRUPT WILL 007724,000488: 05,2770 54335 TS DNTMGOTO # CAUSE THE CURRENT DOWNLIST TO BE 007725,000489: # INTERRUPTED AND START SENDING FROM THE 007726,000490: # BEGINNING OF THE CURRENT DOWNLIST. 007727,000491: 05,2771 34672 CAF POSMAX 007728,000492: 05,2772 54026 TS TIME3 # 37777 TO TIME3. 007729,000493: 05,2773 67715 AD MINUS2 007730,000494: 05,2774 54027 TS TIME4 # 37775 TO TIME4. 007731,000495: 05,2775 67716 AD NEGONE 007732,000496: 05,2776 54030 TS TIME5 # 37774 TO TIME5. 007733,000497: 007734,000498: 05,2777 33163 STARTSB2 CAF OCT77603 # TURN OFF UPLINK ACTY, TEMP CAUTION, KR, 007735,000499: 05,3000 00006 EXTEND # FLASH, OP. ERROR, LEAVE OTHERS UNCHANGED. 007736,000500: 05,3001 03011 WAND DSALMOUT 007737,000501: 007738,000502: 05,3002 33164 CAF OCT74777 # TURN OFF TEST ALARMS, STANDBY ENABLE 007739,000503: 05,3003 00006 EXTEND 007740,000504: 05,3004 03013 WAND CHAN13 007741,000505: 05,3005 44675 CS BIT14 # CLEAR R21MARK 007742,000506: 05,3006 70076 MASK FLAGWRD2 # R21 SETS R21MARK AND RESETS IF IF R21 007743,000507: 05,3007 54076 TS FLAGWRD2 # IS TERMINATED NORMALLY 007744,000508: 05,3010 E3,1400 EBANK= LST1 007745,000509: 05,3010 33165 CAF STARTEB 007746,000510: 05,3011 54003 TS EBANK # SET FOR E3 007747,000511: 007748,000512: 05,3012 34673 CAF NEG1/2 # INITIALIZE WAITLIST DELTA-TS. 007749,000513: 05,3013 55407 TS LST1 +7 007750,000514: 05,3014 55406 TS LST1 +6 007751,000515: 05,3015 55405 TS LST1 +5 007752,000516: 05,3016 55404 TS LST1 +4 007753,000517: 05,3017 55403 TS LST1 +3 007754,000518: 05,3020 55402 TS LST1 +2 007755,000519: 05,3021 55401 TS LST1 +1 007756,000520: 05,3022 55400 TS LST1 007757,000521: 007758,000522: 05,3023 45173 CS ENDTASK 007759,000523: 05,3024 55410 TS LST2 007760,000524: 05,3025 55412 TS LST2 +2 007761,000525: 05,3026 55414 TS LST2 +4 007762,000526: 05,3027 55416 TS LST2 +6 007763,000527: 05,3030 55420 TS LST2 +8D 007764,000528: # Page 189 007765,000529: 05,3031 55422 TS LST2 +10D 007766,000530: 05,3032 55424 TS LST2 +12D 007767,000531: 05,3033 55426 TS LST2 +14D 007768,000532: 05,3034 55430 TS LST2 +16D 007769,000533: 05,3035 45174 CS ENDTASK +1 007770,000534: 05,3036 55411 TS LST2 +1 007771,000535: 05,3037 55413 TS LST2 +3 007772,000536: 05,3040 55415 TS LST2 +5 007773,000537: 05,3041 55417 TS LST2 +7 007774,000538: 05,3042 55421 TS LST2 +9D 007775,000539: 05,3043 55423 TS LST2 +11D 007776,000540: 05,3044 55425 TS LST2 +13D 007777,000541: 05,3045 55427 TS LST2 +15D 007778,000542: 05,3046 55431 TS LST2 +17D 007779,000543: 007780,000544: 05,3047 44714 CS ZERO # MAKE ALL EXECUTIVE REGISTER SETS 007781,000545: 05,3050 54167 TS PRIORITY # AVAILABLE. 007782,000546: 05,3051 54203 TS PRIORITY +12D 007783,000547: 05,3052 54217 TS PRIORITY +24D 007784,000548: 05,3053 54233 TS PRIORITY +36D 007785,000549: 05,3054 54247 TS PRIORITY +48D 007786,000550: 05,3055 54263 TS PRIORITY +60D 007787,000551: 05,3056 54277 TS PRIORITY +72D 007788,000552: 007789,000553: 05,3057 55302 TS DSRUPTSW 007790,000554: 05,3060 54067 TS NEWJOB # SHOWS NO ACTIVE JOBS. 007791,000555: 007792,000556: 05,3061 33160 CAF VAC1ADRC # MAKE ALL VAC AREAS AVAILABLE. 007793,000557: 05,3062 54400 TS VAC1USE 007794,000558: 05,3063 63161 AD LTHVACA 007795,000559: 05,3064 54454 TS VAC2USE 007796,000560: 05,3065 63161 AD LTHVACA 007797,000561: 05,3066 54530 TS VAC3USE 007798,000562: 05,3067 63161 AD LTHVACA 007799,000563: 05,3070 54604 TS VAC4USE 007800,000564: 05,3071 63161 AD LTHVACA 007801,000565: 05,3072 54660 TS VAC5USE 007802,000566: 007803,000567: 05,3073 34377 CAF TEN 007804,000568: 05,3074 54154 DSPOFF TS MPAC 007805,000569: 05,3075 44677 CS BIT12 007806,000570: 05,3076 50154 INDEX MPAC 007807,000571: 05,3077 55023 TS DSPTAB 007808,000572: 05,3100 10154 CCS MPAC 007809,000573: 05,3101 13074 TCF DSPOFF 007810,000574: 007811,000575: 05,3102 55141 TS DELAYLOC 007812,000576: 05,3103 55142 TS DELAYLOC +1 007813,000577: 05,3104 55143 TS DELAYLOC +2 007814,000578: # Page 190 007815,000579: 05,3105 55144 TS DELAYLOC +3 007816,000580: 05,3106 55073 TS R1SAVE 007817,000581: 05,3107 54045 TS INLINK 007818,000582: 05,3110 54776 TS DSPCNT 007819,000583: 05,3111 55042 TS CADRSTOR 007820,000584: 05,3112 55013 TS REQRET 007821,000585: 05,3113 55015 TS CLPASS 007822,000586: 05,3114 55012 TS DSPLOCK 007823,000587: 05,3115 55020 TS MONSAVE # KILL MONITOR 007824,000588: 05,3116 55021 TS MONSAVE1 007825,000589: 05,3117 55001 TS VERBREG 007826,000590: 05,3120 55002 TS NOUNREG 007827,000591: 05,3121 55043 TS DSPLIST 007828,000592: 05,3122 55330 TS MARKSTAT 007829,000593: 05,3123 55322 TS IMUCADR 007830,000594: 05,3124 55323 TS OPTCADR 007831,000595: 05,3125 55324 TS RADCADR 007832,000596: 05,3126 55325 TS ATTCADR 007833,000597: 05,3127 55304 TS LGYRO 007834,000598: 05,3130 54100 TS FLAGWRD4 # KILL INTERFACE DISPLAYS 007835,000599: 05,3131 34717 CAF NOUTCON 007836,000600: 05,3132 55016 TS NOUT 007837,000601: 007838,000602: 05,3133 34675 CAF BIT14 007839,000603: 05,3134 71044 MASK EXTVBACT 007840,000604: 05,3135 55044 TS EXTVBACT 007841,000605: 05,3136 33157 CAF LESCHK # SELF CHECK GO-TO REGISTER 007842,000606: 05,3137 55361 TS SELFRET 007843,000607: 007844,000608: 05,3140 44374 CS VD1 007845,000609: 05,3141 54777 TS DSPCOUNT 007846,000610: 007847,000611: 05,3142 00002 TC Q 007848,000612: 007849,000613: 05,3143 30001 T5IDLOC CA L # T5RUPT COMES HERE EVERY 163.84 SECS 007850,000614: 05,3144 15225 TCF NOQRSM +1 # WHEN NOBODY IS USING IT. 007851,000615: 007852,000616: 05,3145 E6,1672 EBANK= OGANOW 007853,000617: 05,3145 03143 12066 T5IDLER 2CADR T5IDLOC 007854,000618: 007855,000619: 05,3147 E6,1672 EBANK= OGANOW 007856,000620: 05,3147 02071 42066 2CADR REDORCS 007857,000621: 007858,000622: 05,3151 E6,1672 EBANK= OGANOW 007859,000623: 05,3151 03165 34066 2CADR REDOTVC 007860,000624: 007861,000625: 05,3153 E6,1672 EBANK= OGANOW 007862,000626: 05,3153 02765 46066 2CADR REDOSAT 007863,000627: 007864,000628: 05,3155 00435 IFAILINH OCT 435 007865,000629: 05,3156 03351 LDNPHAS1 GENADR DNPHASE1 007866,000630: # Page 191 007867,000631: 05,3157 03334 LESCHK GENADR SELFCHK 007868,000632: 05,3160 00400 VAC1ADRC ADRES VAC1USE 007869,000633: 05,3161 00054 LTHVACA DEC 44 B-14 007870,000634: 007871,000635: 05,3162 20100 INTMASK OCT 20100 007872,000636: 05,3163 77603 OCT77603 OCT 77603 007873,000637: 05,3164 74777 OCT74777 OCT 74777 007874,000638: 05,3165 01400 STARTEB ECADR LST1 007875,000639: 05,3166 4715 NUMGRPS EQUALS FIVE 007876,000640: 05,3166 77755 -ELR OCT -22 # -ERROR LIGHT RESET KEY CODE. 007877,000641: 05,3167 37411 IM30INIF OCT 37411 # INHIBITS IMU FAIL FOR 5 SEC AND PIP ISSW 007878,000642: 05,3170 37000 IM30INIR OCT 37000 007879,000643: 05,3171 4763 IM33INIT = PRIO16 # NO PIP OR TM FAIL SIGNALS. 007880,000644: 05,3171 00450 9,6,4 OCT 450 007881,000645: 05,3172 00130 OPTINITF OCT 130 007882,000646: 05,3173 00430 OPTINITR OCT 430 007883,000647: 05,3174 00000 SWINIT OCT 0 007884,000648: 05,3175 00000 OCT 0 007885,000649: 05,3176 00000 OCT 0 007886,000650: 05,3177 00000 OCT 0 007887,000651: 007888,000652: 05,3200 00000 OCT 0 007889,000653: 05,3201 00200 OCT 00200 007890,000654: 05,3202 00000 OCT 0 007891,000655: 05,3203 00100 OCT 00100 007892,000656: 007893,000657: 05,3204 00000 OCT 0 007894,000658: 05,3205 00000 OCT 0 007895,000659: 05,3206 00000 OCT 0 007896,000660: # Page 192 007897,000661: # PROGRAM NAME GOTOP00H ASSEMBLY SUNDISK 007898,000662: # LOG SECTION FRESH START AND RESTART 007899,000663: 007900,000664: # FUNCTIONAL DESCRIPTION 007901,000665: 007902,000666: # 1. DISPLAY MAJOR MODE NUMBER 00 IN DSKY REGISTER R1 AND R3. FLASH V50N07 ON DSKY. (M M CHANGE REQUEST) 007903,000667: # 2. PERMIT A CURRENT PENDING REQUEST (FLASH ON DSKY) TO BE REPLACED (WITHOUT AN ABORT) BY THE MAJOR MODE 007904,000668: # CHANGE REQUEST. 007905,000669: 007906,000670: # INPUT/OUTPUT INFORMATION 007907,000671: 007908,000672: # A. CALLING SEQUENCE TC GOTOP00H 007909,000673: # B. ERASABLE INITIALIZATION NONE 007910,000674: # C. OUTPUT FLASH V 50 NOUN 07 ON DSKY 007911,000675: # D. DEBRIS L 007912,000676: 007913,000677: # PROGRAM ANALYSIS 007914,000678: 007915,000679: # A. SUBROUTINES CALLED GOPERF3, LINUS 007916,000680: # B. NORMAL EXIT TCF ENDOFJOB 007917,000681: # C. ALARM AND ABORT EXITS NONE 007918,000682: 007919,000683: 4106 BLOCK 02 007920,000684: 4000 SETLOC FFTAG10 007921,000685: 4000 BANK 007922,000686: 007923,000687: 4106 COUNT 02/P00 007924,000688: 007925,000689: 4106 05301 GOTOP00H TC PHASCHNG # RESTART GOTOP00H 007926,000690: 4107 00014 OCT 14 007927,000691: 007928,000692: 4110 04574 TC POSTJUMP 007929,000693: 4111 10000 CADR GOP00FIX 007930,000694: 10,2203 BANK 10 007931,000695: 04,2000 SETLOC VERB37 007932,000696: 04,2000 BANK 007933,000697: 007934,000698: 04,2000 COUNT 04/P00 007935,000699: 007936,000700: 04,2000 02315 GOP00FIX TC INITSUB 007937,000701: 04,2001 32007 CAF V37N99 007938,000702: 04,2002 04555 TC BANKCALL 007939,000703: 04,2003 20624 CADR GOFLASH 007940,000704: 04,2004 12001 TCF -3 007941,000705: 04,2005 12001 TCF -4 007942,000706: # Page 193 007943,000707: 04,2006 12001 TCF -5 007944,000708: 04,2007 11343 V37N99 VN 3799 007945,000709: 007946,000710: # Page 194 007947,000711: # PROGRAM NAME V37 ASSEMBLY SUNDISK 007948,000712: 007949,000713: # LOG SECTION FRESH START AND RESTART 007950,000714: 007951,000715: # FUNCTIONAL DESCRIPTION 007952,000716: 007953,000717: # 1. CHECK IF NEW PROGRAM ALLOWED. IF BIT 1 OF FLAGWRD2 (NODOFLAG) IS SET, AN ALARM 1520 IS CALLED. 007954,000718: # 2. CHECK FOR VALIDITY OF PROGRAM SELECTED. IF AN INVALID PROGRAM IS SELECTED, THE OPERATOR ERROR LIGHT IS 007955,000719: # SET AND CURRENT ACTIVITY, IF ANY, CONTINUE. 007956,000720: # 3. SERVICER IS TERMINATED IF IT HAS BEEN RUNNING. 007957,000721: # 4. INSTALL IS EXECUTED TO AVOID INTERRUPTING INTEGRATION. 007958,000722: # 5. THE ENGINE IS TURNED OFF AND THE DAP IS INITIALIZED FOR COAST. 007959,000723: # 6. TRACK, UPDATE, AND TARG1 FLAGS ARE SET TO ZERO. 007960,000724: # 7. DISPLAY SYSTEM IS RELEASED. 007961,000725: # 8. THE FOLLOWING ARE PERFORMED FOR EACH OF THE THREE CASES. 007962,000726: # A. PROGRAM SELECTED IS P00 007963,000727: # 1. RENDEZVOUS AND P25 FLAGS ARE RESET. (KILL P20) 007964,000728: # 2. STATINT1 IS SCHEDULED BY SETTING RESTART GROUP 2. 007965,000729: # 3. MAJOR MODE 00 IS STORED IN THE MODE REGISTER (MODREG). 007966,000730: # 4. SUPERBANK 3 IS SELECTED. 007967,000731: # 5. NODOFLAG IS RESET. 007968,000732: # 6. ALL RESTART GROUPS EXCEPT GROUP2 ARE CLEARED. CONTROL IS TRANSFERRED TO RESTART PROGRAM (GOPROG2) 007969,000733: # WHICH CAUSES ALL CURRENT ACTIVITY TO BE DISCONTINUED AND A 9 MINUTE INTEGRATION CYCLE TO BE 007970,000734: # INITIATED. 007971,000735: # B. PROGRAM SELECTES IS P20. 007972,000736: # 1. IF THE CURRENT MAJOR MODE IS THE SAME AS THE SELECTED NEWPROGRAM. THE PROGRAM IS RE-INITIALIZED 007973,000737: # VIA V37XEQ, ALL RESTART GROUPS, EXCEPT GROUP 4 ARE CLEARED. 007974,000738: # 2. IF THE CURRENT MAJOR MODE IS NOT EQUAL TO THE NEW REQUEST, A CHECK IS MADE TO SEE IF THE REQUEST- 007975,000739: # ED MAJOR MODE HAS BEEN RUNNING THE BACKGROUND, 007976,000740: # AND IF IT HAS, NO NEW PROGRAM IS SCHEDULED, THE EXISTING 007977,000741: # P20 IS RESTARTED TO CONTINUE, AND ITS MAJORE MODE IS SET. 007978,000742: # 3. CONTROL IS TRANSFERRED TO GOPROG2. 007979,000743: # C. PROGRAM SELECTED IS NEITHER P00 NOR P20 007980,000744: # 1. V37XEQ IS SCHEDULED (AS A JOB) BY SETTING RESTART GROUP 4 007981,000745: # 2. ALL CURRENT ACTIVITY EXCEPT RENDEZVOUS AND TRACKING IS DISCONTINUED BY CLEARING ALL RESTART 007982,000746: # GROUPS. IF THE RENDEZVOUS OR THE P25 FLAG IS ON, GROUP2 IS NOT CLEARED, ALLOWING THESE PROGRAMS 007983,000747: # TO CONTINUE. 007984,000748: 007985,000749: # INPUT/OUTPUT INFORMATION 007986,000750: 007987,000751: # A. CALLING SEQUENCE 007988,000752: # CONTROL IS DIRECTED TO V37 BY THE VERBFAN ROUTINE. 007989,000753: # VERBFAN GOES TO C(VERBTAB+C(VERBREG)). VERB 37 = MMCHANG. 007990,000754: # MMCHANG EXECUTES A `TC POSTJUMP', CADR V37. 007991,000755: 007992,000756: # B. ERASABLE INITIALIZATION NONE 007993,000757: 007994,000758: # C. OUTPUT 007995,000759: # MAJOR MODE CHANGE 007996,000760: # Page 195 007997,000761: 007998,000762: # D. DEBRIS 007999,000763: # MMNUMBER, MPAC +1, MINDEX, BASETEMP +C(MINDEX), FLAGWRD0, FLAGWRD1, FLAGWRD2, MODREG, GOLOC -1, 008000,000764: # GOLOC, GOLOC +1, GOLOC +2, BASETEMP, -PHASE2, PHASE2, -PHASE4 008001,000765: 008002,000766: # PROGRAM ANALYSIS 008003,000767: 008004,000768: # A. SUBROUTINES CALLED 008005,000769: # ALARM, RELDSP, PINBRNCH, INTSTALL, ENGINOF2, ALLCOAST, V37KLEAN, GOPROG2, FALTON, FINDVAC, SUPERSW, 008006,000770: # DSPMM 008007,000771: 008008,000772: # B. NORMAL EXIT TC ENDOFJOB 008009,000773: 008010,000774: # C. ALARMS 1520 (MAJOR MODE CHANGE NOT PERMITTED) 008011,000775: 008012,000776: 4112 BLOCK 02 008013,000777: 4000 SETLOC FFTAG10 008014,000778: 4000 BANK 008015,000779: 008016,000780: 4112 COUNT 02/V37 008017,000781: 008018,000782: 4112 00024 OCT24 MM 20 B-14 008019,000783: 4113 00031 OCT31 MM 25 B-14 008020,000784: 27,2000 BANK 27 008021,000785: 04,2000 SETLOC VERB37 008022,000786: 04,2000 BANK 008023,000787: 008024,000788: 04,2010 COUNT 04/V37 008025,000789: 008026,000790: 04,2010 54775 V37 TS MMNUMBER # SAVE MAJOR MODE 008027,000791: 04,2011 34371 CAF PRIO30 # RESTART AT PINBALL PRIORITY 008028,000792: 04,2012 54366 TS RESTREG 008029,000793: 008030,000794: 04,2013 31320 CA IMODES30 # IS IMU BEING INITIALIZED 008031,000795: 04,2014 74705 MASK BIT6 008032,000796: 04,2015 10000 CCS A 008033,000797: 04,2016 12070 TCF CANTR00 008034,000798: 008035,000799: 04,2017 34676 CAF BIT13 # IS ENGINE ON 008036,000800: 04,2020 00006 EXTEND 008037,000801: 04,2021 02011 RAND DSALMOUT 008038,000802: 04,2022 10000 CCS A 008039,000803: 04,2023 12030 TCF R00TOP00 # YES, SET UP FOR P00 008040,000804: 008041,000805: 04,2024 40102 CS FLAGWRD6 # NO, IS TVC DAP ON 008042,000806: 04,2025 74105 MASK OCT60000 008043,000807: 04,2026 00006 EXTEND 008044,000808: 04,2027 62061 BZMF ISITP00 # NO, CONTINUE WITH R00 008045,000809: 008046,000810: 04,2030 00004 R00TOP00 INHINT 008047,000811: 04,2031 34752 CAF EBANK6 008048,000812: # Page 196 008049,000813: 04,2032 54003 TS EBANK 008050,000814: 04,2033 E6,1466 EBANK= DAPDATR1 008051,000815: 04,2033 31474 CAE CSMMASS 008052,000816: 04,2034 55662 TS MASSTMP 008053,000817: 04,2035 04633 TC IBNKCALL 008054,000818: 04,2036 50737 CADR SPSOFF 008055,000819: 04,2037 04633 TC IBNKCALL 008056,000820: 04,2040 13207 CADR MASSPROP 008057,000821: 04,2041 32402 CAF 3.1SEC 008058,000822: 04,2042 04633 TC IBNKCALL 008059,000823: 04,2043 42011 CADR RCSDAPON +1 008060,000824: 008061,000825: 04,2044 04633 TC IBNKCALL 008062,000826: 04,2045 51003 CADR TVCZAP # DISABLE TVC 008063,000827: 04,2046 34714 CAF ZERO 008064,000828: 04,2047 54775 TS MMNUMBER 008065,000829: 04,2050 00003 RELINT 008066,000830: 04,2051 34715 CAF FIVE 008067,000831: 04,2052 04555 TC BANKCALL 008068,000832: 04,2053 01732 CADR DELAYJOB 008069,000833: 04,2054 34714 CAF ZERO 008070,000834: 04,2055 00006 EXTEND 008071,000835: 04,2056 01005 WRITE 5 008072,000836: 04,2057 00006 EXTEND 008073,000837: 04,2060 01006 WRITE 6 008074,000838: 04,2061 30775 ISITP00 CA MMNUMBER 008075,000839: 04,2062 00006 EXTEND 008076,000840: 04,2063 12112 BZF ISSERVON # YES, CHECK SERVICER STATUS 008077,000841: 008078,000842: 04,2064 40076 CS FLAGWRD2 # NO, IS NODO V37 FLAG SET 008079,000843: 04,2065 74712 MASK BIT1 008080,000844: 04,2066 10000 CCS A 008081,000845: 04,2067 12075 TCF CHECKTAB # NO 008082,000846: 04,2070 05537 CANTR00 TC ALARM 008083,000847: 04,2071 01520 OCT 1520 008084,000848: 008085,000849: 04,2072 04473 V37BAD TC RELDSP # RELEASED DISPLAY FROM ASTRONAUT 008086,000850: 008087,000851: 04,2073 04574 TC POSTJUMP # BRING BACK LAST NORMAL DISPLAY IF THERE 008088,000852: 04,2074 21176 CADR PINBRNCH # WAS ONE. OY 008089,000853: 008090,000854: 04,2075 32475 CHECKTAB CA NOV37MM # THE NO. OF MM 008091,000855: 04,2076 54155 AGAINMM TS MPAC +1 008092,000856: 04,2077 50155 NDX MPAC +1 008093,000857: 04,2100 32440 CA PREMM1 # OBTAIN WHICH MM THIS IS FOR 008094,000858: 04,2101 76043 MASK LOW7 008095,000859: 04,2102 40000 COM 008096,000860: 04,2103 60775 AD MMNUMBER 008097,000861: 04,2104 10000 CCS A 008098,000862: 04,2105 10155 CCS MPAC +1 # IF GR, SEE IF ANY MORE IN LIST 008099,000863: # Page 197 008100,000864: 04,2106 12076 TCF AGAINMM # YES, GET NEXT ONE 008101,000865: 04,2107 12257 TCF V37NONO # LAST TIME OR PASSED MM 008102,000866: 008103,000867: 04,2110 30155 CA MPAC +1 008104,000868: 04,2111 54774 TS MINDEX # SAVE INDEX FOR LATER 008105,000869: 008106,000870: 04,2112 40103 ISSERVON CS FLAGWRD7 # V37 FLAG SET -- I.E., IS SERVICER GOING 008107,000871: 04,2113 74705 MASK BIT6 008108,000872: 04,2114 10000 CCS A 008109,000873: 04,2115 12123 TCF CANV37 008110,000874: 008111,000875: 04,2116 00004 INHINT 008112,000876: 04,2117 44712 CS BIT1 # YES, TURN OFF AVERAGE G FLAG AND WAIT 008113,000877: 04,2120 70075 MASK FLAGWRD1 # FOR SERVICER TO RETURN TO CANV37 008114,000878: 04,2121 54075 TS FLAGWRD1 008115,000879: 008116,000880: 04,2122 15112 TCF ENDOFJOB 008117,000881: 008118,000882: 04,2123 32377 CANV37 CAF R00AD 008119,000883: 04,2124 54374 TS TEMPFLSH 008120,000884: 008121,000885: 04,2125 05301 TC PHASCHNG 008122,000886: 04,2126 00014 OCT 14 008123,000887: 008124,000888: 04,2127 06006 ROC TC INTPRET 008125,000889: 008126,000890: 04,2130 77624 CALL # WAIT FOR INTEGRATION TO FINISH 008127,000891: 04,2131 27371 INTSTALL 008128,000892: 04,2132 77776 DUMMYAD EXIT 008129,000893: 008130,000894: 04,2133 02315 TC INITSUB 008131,000895: 008132,000896: 04,2134 05447 TC DOWNFLAG 008133,000897: 04,2135 00020 ADRES STIKFLAG 008134,000898: 008135,000899: 04,2136 04555 TC BANKCALL 008136,000900: 04,2137 57750 CADR UPACTOFF # TURN OFF UPLINK ACTIV LIGHT 008137,000901: 008138,000902: 04,2140 05447 TC DOWNFLAG 008139,000903: 04,2141 00215 ADRES VHFRFLAG 008140,000904: 04,2142 05447 TC DOWNFLAG 008141,000905: 04,2143 00037 ADRES R21MARK 008142,000906: 008143,000907: 04,2144 10775 CCS MMNUMBER # IS THIS A P00H REQUEST 008144,000908: 04,2145 12245 TCF NOUVEAU # NO, PICK UP NEW PROGRAM 008145,000909: 008146,000910: 04,2146 COUNT 04/P00 008147,000911: 008148,000912: 04,2146 04473 P00H TC RELDSP # RELEASE DISPLAY SYSTEM 008149,000913: # Page 198 008150,000914: 04,2147 34754 CAF PRIO5 # SET VARIABLE RESTART REGISTER FOR P00. 008151,000915: 04,2150 55056 TS PHSPRDT2 008152,000916: 008153,000917: 04,2151 00004 INHINT 008154,000918: 008155,000919: 04,2152 44712 CS BIT1 # TURN OFF NODOFLAG. 008156,000920: 04,2153 70076 MASK FLAGWRD2 008157,000921: 04,2154 54076 TS FLAGWRD2 008158,000922: 008159,000923: 04,2155 34715 CA FIVE # SET 2.5 RESTART FOR STATEINT1 008160,000924: 04,2156 54001 TS L 008161,000925: 04,2157 40000 COM 008162,000926: 04,2160 52755 DXCH -PHASE2 008163,000927: 008164,000928: 04,2161 42374 CS BIT7-8 # RESET IMUSE + KILL P20 BY TURNING OFF 008165,000929: 04,2162 70074 MASK FLAGWRD0 008166,000930: 04,2163 54074 TS FLAGWRD0 # REMDFLG 008167,000931: 008168,000932: 04,2164 34714 CAF DNLADP00 008169,000933: 008170,000934: 04,2165 COUNT 04/V37 008171,000935: 008172,000936: 04,2165 54332 SEUDOP00 TS DNLSTCOD # SET UP APPROPRIATE DOWNLIST CODE 008173,000937: # (OLD ONE WILL BE FINISHED FIRST) 008174,000938: 008175,000939: 04,2166 42375 CS OCT01120 # TURN OFF TRACK, TARG1, UPDATE FLAGS 008176,000940: 04,2167 55071 TS EBANKTEM 008177,000941: 04,2170 70075 MASK FLAGWRD1 008178,000942: 04,2171 54075 TS FLAGWRD1 008179,000943: 008180,000944: 04,2172 04633 GROUPKIL TC IBNKCALL # KILL GROUPS 3,5,6 008181,000945: 04,2173 12506 CADR V37KLEAN 008182,000946: 008183,000947: 04,2174 10775 CCS MMNUMBER # IS IT P00H 008184,000948: 04,2175 12204 TCF RENDV00 # NO 008185,000949: 04,2176 04633 TC IBNKCALL 008186,000950: 04,2177 12500 CADR P00KLEAN # REDUNDANT EXCEPT FOR GROUP 4 008187,000951: 008188,000952: 04,2200 30775 GOMOD CA MMNUMBER 008189,000953: 04,2201 55011 TS MODREG 008190,000954: 008191,000955: 04,2202 04574 GOGOPROG TC POSTJUMP 008192,000956: 04,2203 12641 CADR GOPROG2 008193,000957: 008194,000958: 04,2204 40775 RENDV00 CS MMNUMBER # IS NEW PROG = 20 008195,000959: 04,2205 64112 AD OCT24 008196,000960: 04,2206 00006 EXTEND 008197,000961: 04,2207 12211 BZF RENDN00 # YES 008198,000962: 04,2210 12221 TCF P00FIZZ 008199,000963: # Page 199 008200,000964: 04,2211 40775 RENDN00 CS MMNUMBER 008201,000965: 04,2212 61011 AD MODREG 008202,000966: 04,2213 00006 EXTEND 008203,000967: 04,2214 12225 BZF KILL20 008204,000968: 008205,000969: 04,2215 30074 CA FLAGWRD0 # IS RENDZVOO FLAG SET 008206,000970: 04,2216 74704 MASK BIT7 008207,000971: 04,2217 10000 CCS A 008208,000972: 04,2220 12236 TCF STATQUO 008209,000973: 008210,000974: 04,2221 34704 P00FIZZ CAF BIT7 008211,000975: 04,2222 70074 MASK FLAGWRD0 008212,000976: 04,2223 10000 CCS A 008213,000977: 04,2224 12233 TCF REV37 008214,000978: 04,2225 00006 KILL20 EXTEND # NO, KILL GROUPS 1 + 2 008215,000979: 04,2226 34714 DCA NEG0 008216,000980: 04,2227 52753 DXCH -PHASE1 008217,000981: 008218,000982: 04,2230 00006 EXTEND 008219,000983: 04,2231 34714 DCA NEG0 008220,000984: 04,2232 52755 DXCH -PHASE2 008221,000985: 008222,000986: 04,2233 32376 REV37 CAF V37QCAD # SET RESTART POINT 008223,000987: 04,2234 54374 TS TEMPFLSH 008224,000988: 008225,000989: 04,2235 12202 TCF GOGOPROG 008226,000990: 008227,000991: 008228,000992: 04,2236 40075 STATQUO CS FLAGWRD1 # SET TRACKFLAG AND UPDATE FLAG 008229,000993: 04,2237 74732 MASK OCT120 008230,000994: 04,2240 26075 ADS FLAGWRD1 008231,000995: 008232,000996: 04,2241 00006 EXTEND # KILL GROUP 4 008233,000997: 04,2242 34714 DCA NEG0 008234,000998: 04,2243 52761 DXCH -PHASE4 008235,000999: 008236,001000: 04,2244 12200 TCF GOMOD 008237,001001: 008238,001002: 04,2245 34704 NOUVEAU CAF BIT7 008239,001003: 04,2246 70074 MASK FLAGWRD0 008240,001004: 04,2247 10000 CCS A 008241,001005: 04,2250 12253 TCF +3 008242,001006: 04,2251 05447 TC DOWNFLAG # NO, RESET IMUINUSE FLAG 008243,001007: 04,2252 00007 ADRES IMUSE # BIT 8 FLAG 0 008244,001008: 04,2253 50774 +3 INDEX MINDEX 008245,001009: 04,2254 32476 CAF DNLADMM1 # OBTAIN APPROPRIATE DOWNLIST ADDRESS 008246,001010: 008247,001011: 04,2255 00004 INHINT 008248,001012: 04,2256 12165 TCF SEUDOP00 008249,001013: 008250,001014: 04,2257 04400 V37NONO TC FALTON # COME HERE IF MM REQUESTED DOESN'T EXIST 008251,001015: # Page 200 008252,001016: 04,2260 12072 TCF V37BAD 008253,001017: 008254,001018: 04,2261 4707 OCT00010 EQUALS BIT4 008255,001019: 04,2261 00004 V37XEQ INHINT 008256,001020: 04,2262 50774 INDEX MINDEX 008257,001021: 04,2263 32440 CAF PREMM1 008258,001022: 04,2264 55060 TS MMTEMP # OBTAIN PRIORITY BITS 15-11 008259,001023: 04,2265 54020 TS CYR # SHIFT RIGHT TO BITS 14-10 008260,001024: 008261,001025: 04,2266 30020 CA CYR 008262,001026: 04,2267 77674 MASK PRIO37 008263,001027: 04,2270 55062 TS PHSPRDT4 # PRESET GROUP 4 RESTART PRIORITY 008264,001028: 04,2271 54063 TS NEWPRIO # STORE PRIO FOR SPVAC 008265,001029: 008266,001030: 04,2272 31060 CA MMTEMP # OBTAIN EBANK -- BITS 8, 9, 10 OF MMTEMP. 008267,001031: 04,2273 00006 EXTEND 008268,001032: 04,2274 74703 MP BIT8 008269,001033: 04,2275 74716 MASK LOW3 008270,001034: 04,2276 54001 TS L 008271,001035: 04,2277 50774 INDEX MINDEX 008272,001036: 04,2300 32403 CAF FCADRMM1 008273,001037: 04,2301 55061 TS BASETEMP 008274,001038: 04,2302 74364 MASK HI5 008275,001039: 04,2303 26001 ADS L 008276,001040: 008277,001041: 04,2304 31061 CA BASETEMP # OBTAIN GENADR PORTION OF 2CADR. 008278,001042: 04,2305 74747 MASK LOW10 008279,001043: 04,2306 64700 AD BIT11 008280,001044: 008281,001045: 04,2307 05053 TC SPVAC 008282,001046: 008283,001047: 04,2310 31060 V37XEQC CA MMTEMP # UPON RETURN FROM FINDVAC PLACE THE 008284,001048: 04,2311 76043 MASK LOW7 # NEW MM IN MODREG (THE LOW 7 BITS OF 008285,001049: 04,2312 05246 TC NEWMODEA # PHSPRDT1) 008286,001050: 008287,001051: # FOR SUNDISK ONLY 008288,001052: 04,2313 04473 TC RELDSP 008289,001053: 04,2314 05112 TC ENDOFJOB # AND EXIT 008290,001054: 008291,001055: 04,2315 00006 INITSUB EXTEND 008292,001056: 04,2316 22155 QXCH MPAC +1 008293,001057: 008294,001058: 04,2317 34752 CAF EBANK6 # SET E6 FOR DEADBAND CODING 008295,001059: 04,2320 54003 TS EBANK # WILL BE RESET IN STARTSB2 008296,001060: 04,2321 00004 INHINT 008297,001061: 04,2322 04555 TC BANKCALL 008298,001062: 04,2323 45245 CADR STOPRATE 008299,001063: 008300,001064: 04,2324 30105 CA FLAGWRD9 # RESTORE DEADBAND 008301,001065: 04,2325 74677 MASK BIT12 008302,001066: # Page 201 008303,001067: 04,2326 10000 CCS A 008304,001068: 04,2327 12333 TCF SETMAXER # MAX DE SELECTED 008305,001069: 04,2330 04555 TC BANKCALL # MIN DE SELECTED 008306,001070: 04,2331 50213 CADR SETMINDB 008307,001071: 04,2332 12335 TCF RAKE 008308,001072: 04,2333 04555 SETMAXER TC BANKCALL 008309,001073: 04,2334 50227 CADR SETMAXDB 008310,001074: 008311,001075: 04,2335 34717 RAKE CAF ELEVEN # THIS PART CLEARS FLAGWORD BITS. 008312,001076: 04,2336 54154 +1 TS MPAC # LOOP COMES HERE 008313,001077: 04,2337 50154 INDEX MPAC 008314,001078: 04,2340 42356 CS FLAGTABL 008315,001079: 04,2341 50154 INDEX MPAC 008316,001080: 04,2342 70074 MASK FLAGWRD0 008317,001081: 04,2343 50154 INDEX MPAC # PUT REVISED FLAGWORD BACK. 008318,001082: 04,2344 54074 TS FLAGWRD0 008319,001083: 04,2345 10154 CCS MPAC 008320,001084: 04,2346 12336 TCF RAKE +1 # GET THE NEXT FLAGWORD 008321,001085: 04,2347 00003 RELINT 008322,001086: 008323,001087: 04,2350 05435 TC UPFLAG # NOW SET IMPULSW 008324,001088: 04,2351 00044 ADRES IMPULSW 008325,001089: 008326,001090: 04,2352 05425 TC CLEARMRK 008327,001091: 008328,001092: 04,2353 37716 CA NEGONE 008329,001093: 04,2354 55303 TS OPTIND 008330,001094: 04,2355 00155 TC MPAC +1 # RETURN FROM INITSUB 008331,001095: 008332,001096: 04,2356 00000 FLAGTABL OCT 0 008333,001097: 04,2357 00040 OCT 00040 # IDLEFAIL 008334,001098: 04,2360 02000 OCT 02000 # STEERSW 008335,001099: 04,2361 00000 OCT 0 008336,001100: 04,2362 00000 OCT 0 008337,001101: 04,2363 04140 OCT 04140 # V59FLAG, ENGONFLG, 3AXISFLG 008338,001102: 04,2364 10000 OCT 10000 # STRULLSW 008339,001103: 04,2365 16020 OCT 16020 # IGNFLAG, ASTNFLAG, TIMRFLAG, NOUPFLAG 008340,001104: 04,2366 00000 OCT 0 008341,001105: 04,2367 42000 OCT 42000 # SWTOVER, V94FLAG 008342,001106: 04,2370 00000 OCT 0 008343,001107: 04,2371 00000 OCT 0 008344,001108: 008345,001109: 04,2372 5630 NEG7 EQUALS OCT77770 008346,001110: 008347,001111: 04,2372 E6,1425 EBANK= PACTOFF 008348,001112: 04,2372 03143 12066 P00DAPAD 2CADR T5IDLOC 008349,001113: 008350,001114: 04,2374 1060 MMTEMP EQUALS PHSPRDT3 008351,001115: 04,2374 1061 BASETEMP EQUALS TBASE4 008352,001116: 04,2374 00300 BIT7-8 OCT 300 008353,001117: # Page 202 008354,001118: 04,2375 01120 OCT01120 OCT 01120 008355,001119: 008356,001120: 04,2376 10264 V37QCAD CADR V37XEQ +3 008357,001121: 04,2377 10132 R00AD CADR DUMMYAD 008358,001122: 04,2400 E6,1466 EBANK= DAPDATR1 008359,001123: 04,2400 02106 42066 RCSADDR4 2CADR RCSATT 008360,001124: 008361,001125: 04,2402 37312 3.1SEC OCT 37312 # 2.5 + 0.6 SEC 008362,001126: 008363,001127: # FOR VERB 37 TWO TABLES ARE MAINTAINED. EACH TABLE HAS AN ETRY FOR EACH 008364,001128: # MAJOR MODE THAT CAN BE STARTED FROM THE KEYBOARD. THE ENTRIES ARE PUT 008365,001129: # INTO THE TABLE WITH THE ENTRY FOR THE HIGHEST MAJOR MODE COMING FIRST, 008366,001130: # TO THE LOWEST MAJOR MODE WHICH IS THE LAST ENTRY IN EACH TABLE. 008367,001131: 008368,001132: # THE FCADRMM TABLE CONTAINS THE FCADR OF THE STARTING JOB OF 008369,001133: # THE MAJOR MODE. FOR EXAMPLE, 008370,001134: 008371,001135: # FCADRMM1 FCADR P79 # START OF P 79 008372,001136: # FCADR PROG18 # START OF P 18 008373,001137: # FCADR P01 # START OF P 01 008374,001138: 008375,001139: # NOTE: THE FIRST ENTRY MUST BE LABELED FCADRMM1. 008376,001140: # ----- 008377,001141: 008378,001142: 04,2403 11334 FCADRMM1 FCADR P79 008379,001143: 04,2404 11106 FCADR P78 008380,001144: 04,2405 73433 FCADR P77 008381,001145: 04,2406 26036 FCADR P76 008382,001146: 04,2407 72157 FCADR P75 008383,001147: 04,2410 72002 FCADR P74 008384,001148: 04,2411 54320 FCADR P62 008385,001149: 04,2412 54217 FCADR P61 008386,001150: 04,2413 32000 FCADR P54 008387,001151: 04,2414 31054 FCADR P53 008388,001152: 04,2415 32000 FCADR PROG52 008389,001153: 04,2416 31054 FCADR P51 008390,001154: 04,2417 50410 FCADR P47CSM 008391,001155: 04,2420 50235 FCADR P41CSM 008392,001156: 04,2421 50002 FCADR P40CSM 008393,001157: 04,2422 11327 FCADR P39 008394,001158: 04,2423 11103 FCADR P38 008395,001159: 04,2424 74502 FCADR P37 008396,001160: 04,2425 72153 FCADR P35 008397,001161: 04,2426 72000 FCADR P34 008398,001162: 04,2427 73620 FCADR P31 008399,001163: 04,2430 73604 FCADR P30 008400,001164: 04,2431 62021 FCADR P23 008401,001165: 04,2432 60000 FCADR PROG22 008402,001166: 04,2433 76001 FCADR PROG21 008403,001167: 04,2434 76207 FCADR PROG20 008404,001168: 04,2435 73431 FCADR P17 008405,001169: 04,2436 55655 FCADR P06 008406,001170: # Page 203 008407,001171: 04,2437 66001 FCADR GTSCPSS1 # GYROCOMPASS STANDARD LEAD IN. 008408,001172: 008409,001173: # THE PREMM TABLE CONTAINS THE E-BANK, MAJOR MODE, AND PRIORITY 008410,001174: # INFORMATION, IT IS IN THE FOLLOWING FORM, 008411,001175: 008412,001176: # PPP PPE EEM MMM MMM 008413,001177: 008414,001178: # WHERE THE 7 M BITS CONTAIN THE MAJOR MODE NUMBER 008415,001179: # 3 E BITS CONTAIN THE E-BANK NUMBER 008416,001180: # 5 P BITS CONTAIN THE PRIORITY AT WHICH THE JOB IS 008417,001181: # TO BE STARTED 008418,001182: 008419,001183: # FOR EXAMPLE, 008420,001184: 008421,001185: # PREMM1 OCT 67213 # PRIORITY 33 008422,001186: # # E-BANK 5 008423,001187: # # MAJOR MODE 11 008424,001188: # OCT 25437 # PRIORITY 12 008425,001189: # # E-BANK 6 008426,001190: # # MAJOR MODE 31 008427,001191: 008428,001192: # NOTE: THE FIRST ENTRY MUST BE LABELED PREMM1 008429,001193: 008430,001194: 04,2440 PREMM1 EQUALS 008431,001195: 04,2440 27117 OCT 27117 # MM 79 EBANK 4 PRIO 13 008432,001196: 04,2441 27116 OCT 27116 # MM 78 EBANK 4 PRIO 13 008433,001197: 04,2442 27115 OCT 27115 # MM 77 EBANK 4 PRIO 13 008434,001198: 04,2443 27714 OCT 27714 # MM 76 EBANK 4 PRIO 13 008435,001199: 04,2444 27113 OCT 27113 # MM 75 EBANK 4 PRIO 13 008436,001200: 04,2445 27112 OCT 27112 # MM 74 EBANK 4 PRIO 13 008437,001201: 008438,001202: 04,2446 27476 OCT 27476 # MM 62 EBANK 6 PRIO 13 008439,001203: 04,2447 27475 OCT 27475 # MM 61 EBANK 6 PRIO 13 008440,001204: 008441,001205: 04,2450 27266 OCT 27266 # MM 54 EBANK 5 PRIO 13 008442,001206: 04,2451 27265 OCT 27265 # MM 53 EBANK 5 PRIO 13 008443,001207: 04,2452 27264 OCT 27264 # MM 52 EBANK 5 PRIO 13 008444,001208: 04,2453 27263 OCT 27263 # MM 51 EBANK 5 PRIO 13 008445,001209: 008446,001210: 04,2454 27657 OCT 27657 # MM 47 EBANK 7 PRIO 13 008447,001211: 04,2455 27451 OCT 27451 # MM 41 EBANK 6 PRIO 13 008448,001212: 04,2456 27450 OCT 27450 # MM 40 EBANK 6 PRIO 13 008449,001213: 008450,001214: 04,2457 27047 OCT 27047 # MM 39 EBANK 4 PRIO 13 008451,001215: 04,2460 27046 OCT 27046 # MM 38 EBANK 4 PRIO 13 008452,001216: 04,2461 27645 OCT 27645 # MM 37 EBANK 7 PRIO 13 008453,001217: 04,2462 27043 OCT 27043 # MM 35 EBANK 4 PRIO 13 008454,001218: 04,2463 27042 OCT 27042 # MM 34 EBANK 4 PRIO 13 008455,001219: 04,2464 27637 OCT 27637 # MM 31 EBANK 7 PRIO 13 008456,001220: 04,2465 27636 OCT 27636 # MM 30 EBANK 7 PRIO 13 008457,001221: 008458,001222: 04,2466 27227 OCT 27227 # MM 23 EBANK 5 PRIO 13 008459,001223: 04,2467 27226 OCT 27226 # MM 22 EBANK 5 PRIO 13 008460,001224: 04,2470 27025 OCT 27025 # MM 21 EBANK 4 PRIO 13 008461,001225: 04,2471 27424 OCT 27424 # MM 20 EBANK 6 PRIO 13 008462,001226: 008463,001227: 04,2472 27021 OCT 27021 # MM 17 EBANK 6 PRIO 13 008464,001228: # Page 204 008465,001229: 04,2473 27006 OCT 27006 # MM 06 EBANK 4 PRIO 13 008466,001230: 04,2474 41201 OCT 41201 # MM 01 EBANK 5 PRIO 20 008467,001231: 008468,001232: # THE FOLLOWING LIST IS FOR THE PURPOSE OF VERIFYING THAT THE EBA 008469,001233: 008470,001234: 04,2475 E7,1412 EBANK= TIG # EBANK SETTING REQUIRED BY MM 76 008471,001235: 04,2475 E4,1763 EBANK= KT # EBANK SETTING REQUIRED BY MM 75 008472,001236: 04,2475 E4,1770 EBANK= SUBEXIT # EBANK SETTING REQUIRED BY MM 74 008473,001237: 04,2475 E6,1661 EBANK= AOG # EBANK SETTING REQUIRED BY MM 62 008474,001238: 04,2475 E6,1661 EBANK= AOG # EBANK SETTING REQUIRED BY MM 61 008475,001239: 04,2475 0302 EBANK= BESTI # EBANK SETTING REQUIRED BY MM 54 008476,001240: 04,2475 0304 EBANK= STARIND # EBANK SETTING REQUIRED BY MM 53 008477,001241: 04,2475 0302 EBANK= BESTI # EBANK SETTING REQUIRED BY MM 52 008478,001242: 04,2475 0304 EBANK= STARIND # EBANK SETTING REQUIRED BY MM 51 008479,001243: 04,2475 E7,1672 EBANK= P40TMP # EBANK SETTING REQUIRED BY MM 47 008480,001244: 04,2475 E7,1477 EBANK= AXISCODE # EBANK SETTING REQUIRED BY MM 41 008481,001245: 04,2475 E6,1510 EBANK= KMPAC # EBANK SETTING REQUIRED BY MM 40 008482,001246: 04,2475 E4,1763 EBANK= KT # EBANK SETTING REQUIRED BY MM 35 008483,001247: 04,2475 E4,1770 EBANK= SUBEXIT # EBANK SETTING REQUIRED BY MM 34 008484,001248: 04,2475 E7,1625 EBANK= +MGA # EBANK SETTING REQUIRED BY MM 30 008485,001249: 04,2475 0002751 EBANK= LANDMARK # EBANK SETTING REQUIRED BY MM 23 008486,001250: 04,2475 0301 EBANK= MARKINDX # EBANK SETTING REQUIRED BY MM 22 008487,001251: 04,2475 0003777 EBANK= WHOCARES # EBANK SETTING REQUIRED BY MM 21 008488,001252: 04,2475 E6,1412 EBANK= ESTROKER # EBANK SETTING REQUIRED BY MM 20 008489,001253: 04,2475 1150 EBANK= TIME2SAV # EBANK SETTING REQUIRED BY MM 06 008490,001254: 04,2475 E5,1425 EBANK= QPLACE # EBANK SETTING REQUIRED BY MM 01 008491,001255: 008492,001256: # NOTE: THE FOLLOWING CONSTANT IS THE NUMBER OF ENTRIES IN EACH OF 008493,001257: # ----- THE ABOVE LISTS-1 (I.E., THE NUMBER OF MAJOR MODES (EXCEPT P00) 008494,001258: # THAT CAN BE CALLED FROM THE KEYBOARD MINUS ONE) 008495,001259: 008496,001260: 04,2475 EPREMM1 EQUALS # END OF PREMM1 TABLE 008497,001261: 04,2440 SETLOC PREMM1 # THIS CODING WILL AUTOMATICALLY CHANGE 008498,001262: 04,2440 NO.MMS =MINUS EPREMM1 # THE "NOV37MM" CONSTANT AS ENTRIES ARE 008499,001263: 04,2000 SETLOC VERB37 # INSERTED(IN) OR DELETED(FROM) THE 008500,001264: 04,2000 BANK # "PREMM1" TABLE. 008501,001265: 008502,001266: 04,2475 00034 NOV37MM ADRES NO.MMS -1 # ITEMS IN "PREMM1" TABLE - 1. *DON'T MOVE* 008503,001267: 008504,001268: 04,2476 DNLADMM1 EQUALS 008505,001269: 04,2476 00002 ADRES RENDEZVU # P79 008506,001270: 04,2477 00002 ADRES RENDEZVU # P78 008507,001271: 04,2500 00002 ADRES RENDEZVU # P77 008508,001272: 04,2501 00002 ADRES RENDEZVU # P76 008509,001273: 04,2502 00002 ADRES RENDEZVU # P75 008510,001274: 04,2503 00002 ADRES RENDEZVU # P74 008511,001275: # Page 205 008512,001276: 04,2504 00001 ADRES ENTRYUPD # P62 008513,001277: 04,2505 00003 ADRES POWERED # P61 008514,001278: 04,2506 00000 ADRES COSTALIN 008515,001279: 04,2507 00000 ADRES COSTALIN 008516,001280: 04,2510 00000 ADRES COSTALIN # P52 008517,001281: 04,2511 00000 ADRES COSTALIN # P51 008518,001282: 04,2512 00003 ADRES POWERED # P47 008519,001283: 04,2513 00003 ADRES POWERED # P41 008520,001284: 04,2514 00003 ADRES POWERED # P40 008521,001285: 04,2515 00002 ADRES RENDEZVU # P39 008522,001286: 04,2516 00002 ADRES RENDEZVU # P38 008523,001287: 04,2517 00002 ADRES RENDEZVU # P37 008524,001288: 04,2520 00002 ADRES RENDEZVU # P35 008525,001289: 04,2521 00002 ADRES RENDEZVU # P34 008526,001290: 04,2522 00002 ADRES RENDEZVU 008527,001291: 04,2523 00002 ADRES RENDEZVU # P30 008528,001292: 04,2524 00002 ADRES RENDEZVU # P23 008529,001293: 04,2525 00004 ADRES P22DNLST # P22 008530,001294: 04,2526 00002 ADRES RENDEZVU # P21 008531,001295: 04,2527 00002 ADRES RENDEZVU # P20 008532,001296: 04,2530 00002 ADRES RENDEZVU # P17 008533,001297: 04,2531 00000 ADRES COSTALIN # P06 008534,001298: 04,2532 00000 ADRES COSTALIN # P01 008535,001299: 008536,001300: 04,2533 4714 DNLADP00 = ZERO 008537,001301: 04,2533 COSTALIN = 0 008538,001302: 04,2533 ENTRYUPD = 1 008539,001303: 04,2533 RENDEZVU = 2 008540,001304: 04,2533 POWERED = 3 008541,001305: 008542,001306: 04,2533 P22DNLST = 4 008543,001307: 008544,001308: # ORBITAL INTEGRATION CONSTANTS 008545,001309: 008546,001310: # THESE CONSTANTS ARE USED IN COMPUTING THE SETTING OF MIDFLAG. 008547,001311: 008548,001312: 04,2533 00465 32324 RMM 2DEC 2538.09 E3 B-27 # 600 KM ABOVE LUNAR SURFACE 008549,001313: 008550,001314: 04,2535 00333 01733 RME 2DEC 7178165 B-29 # 800 KM ABOVE EQ. RADIUS 008551,001315: 008552,001316: 13,2000 BANK 13 008553,001317: 13,2000 SETLOC INTINIT 008554,001318: 13,2000 BANK 008555,001319: 008556,001320: 13,2000 COUNT* $$/INTIN 008557,001321: 008558,001322: 13,2000 E3,1554 EBANK= RRECTCSM 008559,001323: 008560,001324: 13,2000 43014 STATEUP SET BOF # EXTRAPOLATE CM STATE VECTOR 008561,001325: 13,2001 01474 VINTFLAG 008562,001326: 13,2002 01751 ORBWFLAG # ALSO 6X6 W-MATRIX IF VALID 008563,001327: 13,2003 26006 +3 # FOR ORBITAL NAVIGATION 008564,001328: 13,2004 77614 SET 008565,001329: # Page 206 008566,001330: 13,2005 01476 DIM0FLAG 008567,001331: 13,2006 45014 CLEAR CALL 008568,001332: 13,2007 01667 PRECIFLG 008569,001333: 13,2010 27113 INTEGRV 008570,001334: 008571,001335: 13,2011 71214 BON DLOAD 008572,001336: 13,2012 04307 SURFFLAG 008573,001337: 13,2013 26031 STATEND 008574,001338: 13,2014 01571 TETCSM 008575,001339: 13,2015 34041 STCALL TDEC1 008576,001340: 13,2016 27371 INTSTALL 008577,001341: 13,2017 45014 CLEAR CALL # EXTRAPOLATE LM STATE VECTOR 008578,001342: 13,2020 01674 VINTFLAG 008579,001343: 13,2021 26621 SETIFLGS # AND 6X6 W-MATRIX IF VALID 008580,001344: 13,2022 43014 BOF SET 008581,001345: 13,2023 02756 RENDWFLG # FOR RENDEZVOUS NAVIGATION 008582,001346: 13,2024 26026 +2 008583,001347: 13,2025 01476 DIM0FLAG 008584,001348: 13,2026 45014 SET CALL 008585,001349: 13,2027 01467 PRECIFLG 008586,001350: 13,2030 27113 INTEGRV 008587,001351: 13,2031 77614 STATEND CLRGO 008588,001352: 13,2032 01236 NODOFLAG 008589,001353: 13,2033 26607 ENDINT 008590,001354: 008591,001355: # THIS VINT IS CALLED BY MIDTOAV1 AND 2 008592,001356: 008593,001357: 13,2034 43414 THISVINT SET RVQ 008594,001358: 13,2035 01474 VINTFLAG 008595,001359: 008596,001360: End of include-file FRESH_START_AND_RESTART.agc. Parent file is MAIN.agc