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