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