Source Code
![]() |
These source-code files were obtained by digitally photographing
an Artemis 72 program listing from a private collection and then
modifying pre-existing Comanche 55 (Apollo 11) source files to
incorporate changes. Note that the page images
presented online are of reduced quality, and that additional images
may be available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011 11:40 FEB. 26, 1971 THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS COLOSSUS 3 THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED IN REPORT R-577. THIS PROGRAM WAS PREPARED UNDER OSR PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT CENTER OF THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF TECHNOLOGY, CAMBRIDGE, MASS. |
008171,000002: # Copyright: Public domain.
008172,000003: # Filename: FRESH_START_AND_RESTART.agc
008173,000004: # Purpose: Part of the source code for Artemis (i.e., Colossus 3),
008174,000005: # build 072. This is for the Command Module's (CM)
008175,000006: # Apollo Guidance Computer (AGC), we believe for
008176,000007: # Apollo 15-17.
008177,000008: # Assembler: yaYUL
008178,000009: # Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
008179,000010: # Website: www.ibiblio.org/apollo/index.html
008180,000011: # Page scans: www.ibiblio.org/apollo/ScansForConversion/Artemis072/
008181,000012: # Mod history: 2009-07-28 JL Adapted from corresponding Comanche 055 file.
008182,000013: # 2009-09-03 JL Fixed symbol names.
008183,000014: # 2010-01-31 JL Fixed build errors.
008184,000015: # 2010-02-01 JL Fixed build errors.
008185,000016: # 2010-02-05 JL Fixed build errors.
008186,000017: # 2010-02-11 JL Fixed errors on p201, p226.
008187,000018: # 2010-02-20 RSB Un-##'d this header.
008188,000019: # 2010-12-29 JL Fixed indentation.
008189,000020:
008190,000021: # # Page 192
008191,000022:
008192,000023: # PROGRAM DESCRIPTION 8 APRIL, 1967
008193,000024: # SUNDISK REV 120
008194,000025: # FUNCTIONAL DESCRIPTION
008195,000026:
008196,000027: # SLAP1 MAN INITIATED FRESH START
008197,000028: # 1. EXECUTE STARTSUB
008198,000029: # 2. TURN OFF DSKY DISCRETE-LAMPS
008199,000030: # 3. CLEAR FAIL REGISTERS, SELF-CHECK ERROR COUNTER AND RESTART
008200,000031: # COUNTER
008201,000032: # 4. INITIALIZE OUTBIT CHANNEL 77
008202,000033: # 4. EXECUTE DOFSTART
008203,000034:
008204,000035: # DOFSTART MACHINE INITIATED FRESH START
008205,000036:
008206,000037: # 1. CLEAR SELF-CHECK REGISTERS, MODE REGISTER AND CDUZ REGISTER
008207,000038: # 2. CLEAR PHASE TABLE
008208,000039: # 3. INITIALIZE IMU FLAGS
008209,000040: # 4. INITIALIZE FLAGWORDS
008210,000041: # 5. TRANSFER CONTROL TO IDLE LOOP IN DUMMYJOB
008211,000042:
008212,000043: # GOPROG HARDWARE RESTART
008213,000044:
008214,000045: # 0. EXECUTE STARTSUB
008215,000046: # 1. TRANSFER CONTROL TO DOFSTART IF ANY OF THE FOLLOWING CONDITIONS
008216,000047: # EXIST.
008217,000048: # A. RESTART OCCURRED DURING EXECUTION OF ERASCHK
008218,000049: # B. BOTH OSCILLATOR FAIL AND AGC WARNING ARE ON
008219,000050: # C. MARK REJECT AND EITHER NAV OR MAIN DSKY ERROR LIGHT RESET
008220,000051: # ARE ON.
008221,000052: # 2. SCHEDULE A T5RUPT PROGRAM FOR THE DAP
008222,000053: # 3. SET FLAGWRD5 BITS FOR INTWAKE ROUTINE
008223,000054: # 4. EXTINGUISH ALL DSKY LAMPS, EXCEPT FOR PROGRAM ALARM, GIMBAL LOCK, AND
008224,000055: # NO ATT
008225,000056: # 5. INITIALIZE IMU FLAGS
008226,000057: # 6. IF ENGINE COMMAND IS ON (FLAGWRD5, BIT 7), SET ENGINE ON (CHANNEL
008227,000058: # 11, BIT 13).
008228,000059: # 7. TRANSFER CONTROL TO GOPROG3
008229,000060:
008230,000061: # ENEMA SOFTWARE RESTART -- INITIATED BY MAJOR MODE CHANGE
008231,000062:
008232,000063: # 1. EXECUTE STARTSB2
008233,000064: # 2. KILL PROGRAMS THAT WERE INTEGRATING OR WAITING FOR INTEGRATION
008234,000065: # ROUTINE
008235,000066: # 3. TRANSFER CONTROL TO GOPROG3
008236,000067:
008237,000068: # GOPROG3 SUBROUTINE COMMON TO GOPROG AND ENEMA
008238,000069:
008239,000070: # 1. TEST PHASE TABLES -- IF INCORRECT, DISPLAY ALARM 1107 AND
008240,000071: # TRANSFER CONTROL TO DOFSTART
008241,000072: # 2. DISPLAY MAJOR MODE
008242,000073:
008243,000074: # # Page 193
008244,000075:
008245,000076: # 3. IF ANY GROUPS WERE ACTIVE UPON RESTART, TRANSFER CONTROL TO THE
008246,000077: # RESTARTS SUBROUTINE TO RESCHEDULE PENDING TASKS, LONGCALLS, AND
008247,000078: # JOBS (P20 IS RESTARTED VIA FINDVAC)
008248,000079: # 4. IF NO GROUPS WERE ACTIVE UPON RESTART, DISPLAY ALARM CODE
008249,000080: # 1110 (RESTART WITH NO ACTIVE GROUPS).
008250,000081: # 5. TRANSFER CONTROL TO IDLE LOOP IN DUMMYJOB
008251,000082:
008252,000083: # STARTSUB SUBROUTINE COMMON TO SLAP1 AND GOPROG
008253,000084:
008254,000085: # 1. CLEAR OUTBIT CHANNELS 5 AND 6
008255,000086: # 2. INITIALIZE TIME5, TIME4, TIME3
008256,000087: # 3. TRANSFER CONTROL TO STARTSB2
008257,000088:
008258,000089: # STARTSB2 SUBROUTINE COMMON TO STARTSUB AND ENEMA
008259,000090:
008260,000091: # 1. INTIALIZE OUTBIT CHANNELS 11,12,13, AND 14
008261,000092: # 2. REPLACE ALL TASKS ON WAITLIST WITH ENDTASK
008262,000093: # 3. MAKE ALL EXECUTEVE REGISTERS AVAILABLE
008263,000094: # 4. MAKE ALL VAC AREAS AVAILABLE
008264,000095: # 5. CLEAR DSKY REGISTERS
008265,000096: # 6. ZERO NUMEROUS SWITCHES
008266,000097: # 7. INITIALIZE OPTICS FLAGS
008267,000098: # 8. INITIALIZE PIPA AND TELEMETRY FAIL FLAGS
008268,000099: # 9. INITIALIZE DOWN TELEMETRY
008269,000100:
008270,000101: # INPUT/OUTPUT INITIALIZATION
008271,000102:
008272,000103: # A. CALLING SEQUENCE
008273,000104:
008274,000105: # SLAP1 - TC POSTJUMP OR VERB 36,ENTER
008275,000106: # CADR SLAP1
008276,000107:
008277,000108: # ENEMA - TC POSTJUMP *** DO NOT CALL ENEMA WITHOUT ***
008278,000109: # CADR ENEMA *** CONSULTING POOH PEOPLE ***
008279,000110:
008280,000111: # B. OUTPUT
008281,000112:
008282,000113: # ERASABLE MEMORY INITIALIZATION
008283,000114:
008284,000115: # PROGRAM ANALYSIS
008285,000116:
008286,000117: # A. SUBROUTINES CALLED
008287,000118:
008288,000119: # MR.KLEAN,WAITLIST,DSPMM,ALARM,RESTARTS,FINDVAC
008289,000120:
008290,000121: # B. ALARMS
008291,000122:
008292,000123: # 1107 PHASE TABLE ERROR
008293,000124: # 1110 RESTART WTIH NO ACTIVE GROUPS
008294,000125:
008295,000126: # # Page 194
008296,000127: 05,2000 SETLOC FRANDRES
008297,000128: 05,2000 BANK
008298,000129:
008299,000130: 05,2367 E3,1400 EBANK= LST1
008300,000131:
008301,000132: 05,2367 COUNT* $$/START
008302,000133: 05,2367 00004 SLAP1 INHINT # FRESH START. COMES HERE FROM PINBALL.
008303,000134: 05,2370 03046 TC STARTSUB # SUBROUTINE DOES MOST OF THE WORK.
008304,000135:
008305,000136: 05,2371 12376 STARTSW TCF SKIPSIM
008306,000137:
008307,000138: 05,2372 34753 STARTSIM CAF BIT14
008308,000139:
008309,000140: 05,2373 05135 TC FINDVAC
008310,000141:
008311,000142: 05,2374 77777 SIM2CADR OCT 77777
008312,000143:
008313,000144: 05,2375 77777 OCT 77777
008314,000145: 05,2376 31241 SKIPSIM CA DSPTAB +11D
008315,000146: 05,2377 75004 MASK BITS4&6
008316,000147: 05,2400 64752 AD BIT15
008317,000148: 05,2401 55241 TS DSPTAB +11D # REQUESTED FRESH START.
008318,000149:
008319,000150: 05,2402 34772 CAF ZERO # SAME STORY ON ZEROING FAILREG.
008320,000151: 05,2403 55365 TS ERCOUNT
008321,000152: 05,2404 54375 TS FAILREG
008322,000153: 05,2405 54376 TS FAILREG +1
008323,000154: 05,2406 54377 TS FAILREG +2
008324,000155: 05,2407 55306 TS REDOCTR
008325,000156:
008326,000157: 05,2410 00006 EXTEND
008327,000158: 05,2411 01077 WRITE CHAN77 # ZERO CHANNEL 77
008328,000159: 05,2412 44664 CS PRIO12
008329,000160: 05,2413 55322 TS DSRUPTSW
008330,000161:
008331,000162: 05,2414 34772 DOFSTART CAF ZERO # DO A FRESH START.
008332,000163: 05,2415 55360 TS ERESTORE # ***** MUST NOT BE REMOVED FROM DOFSTART
008333,000164: 05,2416 55362 TS SMODE # ***** MUST NOT BE REMOVED FROM DOFSTART
008334,000165: 05,2417 55501 TS UPSVFLAG # UPDATE STATE VECTOR REQUEST FLAGWORD
008335,000166: 05,2420 00006 EXTEND
008336,000167: 05,2421 01005 WRITE CHAN5 # TURN OFF RCS JETS
008337,000168: 05,2422 00006 EXTEND
008338,000169: 05,2423 01006 WRITE CHAN6 # TURN OFF RCS JETS
008339,000170: 05,2424 00006 EXTEND
008340,000171: 05,2425 01011 WRITE DSALMOUT # ZERO CHANNEL 11
008341,000172: 05,2426 00006 EXTEND
008342,000173: 05,2427 01012 WRITE CHAN12 # ZERO CHANNEL 12
008343,000174: 05,2430 00006 EXTEND
008344,000175: 05,2431 01013 WRITE CHAN13 # ZERO CHANNEL 13
008345,000176: 05,2432 00006 EXTEND
008346,000177: # # Page 195
008347,000178: 05,2433 01014 WRITE CHAN14 # ZERO CHANNEL 14
008348,000179: 05,2434 55331 TS WTOPTION
008349,000180: 05,2435 54332 TS DNLSTCOD
008350,000181:
008351,000182: 05,2436 54370 TS NVSAVE
008352,000183: 05,2437 55275 TS EBANKTEM
008353,000184: 05,2440 54772 TS TRKMKCNT
008354,000185: 05,2441 54771 TS VHFCNT
008355,000186: 05,2442 55247 TS EXTVBACT
008356,000187:
008357,000188: 05,2443 54735 TS TRATE
008358,000189: 05,2444 54736 TS SRATE
008359,000190: 05,2445 54740 TS TOLD
008360,000191: 05,2446 54741 TS SOLD
008361,000192: 05,2447 41241 CS DSPTAB +11D
008362,000193: 05,2450 75004 MASK BITS4&6
008363,000194: 05,2451 10000 CCS A
008364,000195: 05,2452 02456 TC +4
008365,000196: 05,2453 35004 CA BITS4&6
008366,000197: 05,2454 00006 EXTEND # THE IMU WAS IN COARSE ALIGN IN GIMBAL
008367,000198: 05,2455 05012 WOR CHAN12 # LOCK, SO PUT IT BACK INTO COARSE ALIGN.
008368,000199: 05,2456 02536 TC MR.KLEAN
008369,000200:
008370,000201: 05,2457 44772 CS ZERO
008371,000202: 05,2460 55214 TS MODREG
008372,000203:
008373,000204: 05,2461 34346 CAF PRIO30
008374,000205: 05,2462 54365 TS RESTREG
008375,000206:
008376,000207: 05,2463 33247 CAF IM30INIF # FRESH START IMU INITIALIZATION.
008377,000208: 05,2464 55333 TS IMODES30
008378,000209:
008379,000210: 05,2465 37702 CAF NEGONE
008380,000211: 05,2466 55323 TS OPTIND # KILL COARSE OPTICS
008381,000212:
008382,000213: 05,2467 33251 CAF OPTINITF
008383,000214: 05,2470 55337 TS OPTMODES
008384,000215:
008385,000216: 05,2471 35055 CAF IM33INIT
008386,000217: 05,2472 55334 TS IMODES33
008387,000218:
008388,000219: 05,2473 00006 EXTEND # LET T5 IDLE.
008389,000220: 05,2474 33231 DCA T5IDLER
008390,000221: 05,2475 52113 DXCH T5LOC
008391,000222:
008392,000223: 05,2476 33252 CA SWINIT
008393,000224: 05,2477 54074 TS STATE
008394,000225:
008395,000226: 05,2500 30075 CA FLAGWRD1
008396,000227: 05,2501 74755 MASK NOP01BIT # LEAVE NODOP01 FLAG UNTOUCHED
008397,000228: # # Page 196
008398,000229: 05,2502 63253 AD SWINIT +1
008399,000230: 05,2503 54075 TS FLAGWRD1
008400,000231:
008401,000232: 05,2504 33254 CA SWINIT +2
008402,000233: 05,2505 54076 TS STATE +2
008403,000234:
008404,000235: 05,2506 30077 CA FLAGWRD3
008405,000236: 05,2507 74754 MASK REFSMBIT
008406,000237: 05,2510 63255 AD SWINIT +3
008407,000238: 05,2511 54077 TS FLAGWRD3
008408,000239:
008409,000240: 05,2512 00006 EXTEND
008410,000241: 05,2513 33257 DCA SWINIT +4
008411,000242: 05,2514 52101 DXCH STATE +4
008412,000243: 05,2515 00006 EXTEND
008413,000244: 05,2516 33261 DCA SWINIT +6
008414,000245: 05,2517 52103 DXCH STATE +6
008415,000246: 05,2520 30104 CA FLAGWRD8
008416,000247: 05,2521 72562 MASK OCT6200 # CMOONFLG, LMOONFLG, AND SUFFLAG
008417,000248: 05,2522 63262 AD SWINIT +8D
008418,000249: 05,2523 54104 TS FLAGWRD8
008419,000250:
008420,000251: 05,2524 33263 CA SWINIT +9D
008421,000252: 05,2525 54105 TS STATE +9D
008422,000253:
008423,000254: 05,2526 34756 CAF HDSUPBIT
008424,000255: 05,2527 70106 MASK FLGWRD10
008425,000256: 05,2530 63264 AD SWINIT +10D
008426,000257: 05,2531 54106 TS FLGWRD10
008427,000258:
008428,000259: 05,2532 33265 CAF SWINIT +11D
008429,000260: 05,2533 54107 TS FLGWRD11
008430,000261:
008431,000262: 05,2534 04655 ENDRSTRT TC POSTJUMP
008432,000263: 05,2535 03173 CADR DUMMYJOB +2 # DOES A RELINT. (IN A SWITCHED BANK.)
008433,000264:
008434,000265: 05,2536 00004 MR.KLEAN INHINT
008435,000266: 05,2537 00006 EXTEND
008436,000267: 05,2540 34772 DCA NEG0
008437,000268: 05,2541 53160 DXCH -PHASE2
008438,000269: 05,2542 00006 POOKLEAN EXTEND
008439,000270: 05,2543 34772 DCA NEG0
008440,000271: 05,2544 53164 DXCH -PHASE4
008441,000272: 05,2545 00006 EXTEND
008442,000273: 05,2546 34772 DCA NEG0
008443,000274: 05,2547 53156 DXCH -PHASE1
008444,000275: 05,2550 00006 V37KLEAN EXTEND
008445,000276: 05,2551 34772 DCA NEG0
008446,000277: 05,2552 53162 DXCH -PHASE3
008447,000278: 05,2553 00006 EXTEND
008448,000279: # # Page 197
008449,000280: 05,2554 34772 DCA NEG0
008450,000281: 05,2555 53166 DXCH -PHASE5
008451,000282: 05,2556 00006 UPKLEAN EXTEND
008452,000283: 05,2557 34772 DCA NEG0
008453,000284: 05,2560 53170 DXCH -PHASE6
008454,000285: 05,2561 00002 TC Q
008455,000286:
008456,000287: 05,2562 06200 OCT6200 OCT 6200
008457,000288:
008458,000289: # # Page 198
008459,000290: # COMES HERE FROM LOCATION 4000, GOJAM, RESTART ANY PROGRAMS WHICH MAY HAVE BEEN RUNNING AT THE TIME.
008460,000291:
008461,000292: 05,2563 25306 GOPROG INCR REDOCTR # ADVANCE RESTART COUNTER.
008462,000293:
008463,000294: 05,2564 22002 LXCH Q
008464,000295: 05,2565 00006 EXTEND
008465,000296: 05,2566 04007 ROR SUPERBNK
008466,000297: 05,2567 53433 DXCH RSBBQ
008467,000298: 05,2570 04636 TC BANKCALL # STORE ERASABLES FOR DEBUGGING PURPOSES.
008468,000299: 05,2571 40000 CADR VAC5STOR
008469,000300: 05,2572 34752 CA BIT15 # TEST OSC FAIL BIT TO SEE IF WE HAVE
008470,000301: 05,2573 00006 EXTEND # HAD A POWER TRANSIENT. IF SO, ATTEMPT
008471,000302: 05,2574 03033 WAND CHAN33 # A RESTART. IF NOT, CHECK THE PRESENT
008472,000303: 05,2575 00006 EXTEND # STATE OF AGC WARNING BIT.
008473,000304: 05,2576 12604 BZF BUTTONS
008474,000305:
008475,000306: 05,2577 34753 CA BIT14 # IF AGC WARNING ON (BIT = 0), DO A
008476,000307: 05,2600 00006 EXTEND # FRESH START ON ASSUMPTION THAT
008477,000308: 05,2601 02033 RAND CHAN33 # WE ARE IN A RESTART LOOP.
008478,000309: 05,2602 00006 EXTEND
008479,000310: 05,2603 13044 BZF NONAVKEY +1
008480,000311:
008481,000312: 05,2604 03023 BUTTONS TC LIGHTSET # MAKE FRESH START CHECKS BEFORE ERESTORE.
008482,000313:
008483,000314: # ERASCHK TEMPORARILY STORES THE CONTENST OF TWO ERASABLE LOCATIONS, X
008484,000315: # AND X+1 INTO SKEEP5 AND SKEEP6. IT ALSO STORES X INTO SKEEP7 AND
008485,000316: # ERESTORE. IF ERASCHK IS INTERRUPTED BY A RESTART, C(ERESTORE) SHOULD
008486,000317: # EQUAL C(SKEEP7), AND SHOULD BE A + NUMBER LESS THAN 2000 OCT. OTHERWISE
008487,000318: # C(ERESTORE) SHOULD EQUAL +0.
008488,000319:
008489,000320: 05,2605 34344 CAF HI5
008490,000321: 05,2606 71360 MASK ERESTORE
008491,000322: 05,2607 00006 EXTEND
008492,000323: 05,2610 12612 BZF +2 # IF ERESTORE NOT = +0 OR +N LESS THAN 2K,
008493,000324: 05,2611 13044 TCF NONAVKEY +1 # DOUBT E MEMORY AND DO A FRESH START
008494,000325: 05,2612 41360 CS ERESTORE
008495,000326: 05,2613 00006 EXTEND
008496,000327: 05,2614 12631 BZF ELRSKIP -1
008497,000328: 05,2615 61377 AD SKEEP7
008498,000329: 05,2616 00006 EXTEND
008499,000330: 05,2617 12621 BZF +2 # = SKEEP7, RESTORE E MEMORY.
008500,000331: 05,2620 13044 TCF NONAVKEY +1 # NOT = SKEEP7, DOUBT EMEM, DO FRESH START
008501,000332: 05,2621 31374 CA SKEEP4
008502,000333: 05,2622 54003 TS EBANK # EBANK OF E MEMORY THAT WAS UNDER TEST.
008503,000334: 05,2623 00006 EXTEND # (NOT DXCH SINCE THIS MIGHT HAPPEN AGAIN)
008504,000335: 05,2624 31376 DCA SKEEP5
008505,000336: 05,2625 51377 INDEX SKEEP7
008506,000337: 05,2626 52001 DXCH 0000 # E MEMORY RESTORED.
008507,000338: 05,2627 34772 CA ZERO
008508,000339: 05,2630 55360 TS ERESTORE
008509,000340: # # Page 199
008510,000341: 05,2631 03046 -1 TC STARTSUB # DO INITIALIZATION AFTER ERASE RESTORE.
008511,000342: 05,2632 30102 ELRSKIP CA FLAGWRD6 # RESTART AUTOPILOTS
008512,000343: 05,2633 74076 MASK DPCONFIG
008513,000344: 05,2634 00006 EXTEND
008514,000345: 05,2635 74766 MP BIT3 # BITS 15,14 00 T5IDLOC
008515,000346: 05,2636 76211 MASK SIX # 01 REDORCS
008516,000347: 05,2637 00006 EXTEND # 10 REDOTVC
008517,000348: 05,2640 50000 INDEX A # 11 REDOSAT
008518,000349: 05,2641 33231 DCA T5IDLER
008519,000350: 05,2642 52113 DXCH T5LOC
008520,000351:
008521,000352: 05,2643 44753 CS INTFLBIT
008522,000353: 05,2644 70106 MASK FLGWRD10
008523,000354: 05,2645 54106 TS FLGWRD10
008524,000355:
008525,000356: 05,2646 31337 CA OPTMODES
008526,000357: 05,2647 75001 MASK OPTINITR
008527,000358: 05,2650 64762 AD OCDUFBIT
008528,000359: 05,2651 55337 TS OPTMODES
008529,000360:
008530,000361: 05,2652 34763 CAF NOIMUDAP
008531,000362: 05,2653 71334 MASK IMODES33
008532,000363: 05,2654 65055 AD IM33INIT
008533,000364: 05,2655 55334 TS IMODES33
008534,000365:
008535,000366: 05,2656 34772 CAF ZERO
008536,000367: 05,2657 54740 TS TOLD
008537,000368: 05,2660 54741 TS SOLD
008538,000369: 05,2661 33250 CA 9,6,4 # LEAVE PROG ALARM, GIMBAL LOCK, NO ATT
008539,000370: 05,2662 71241 MASK DSPTAB +11D # LAMPS INTACT ON HARDWARE RESTART
008540,000371: 05,2663 64752 AD BIT15
008541,000372: 05,2664 57241 XCH DSPTAB +11D
008542,000373: 05,2665 74765 MASK BIT4 # IF NO ATT LAMP WAS ON, LEAVE ISS IN
008543,000374: 05,2666 00006 EXTEND # COARSE ALIGN
008544,000375: 05,2667 12676 BZF NOCOARSE
008545,000376: 05,2670 04714 TC IBNKCALL # IF NO ATT LAMP ON, RETURN ISS TO
008546,000377: 05,2671 17070 CADR SETCOARS # COARSE ALIGN.
008547,000378:
008548,000379: 05,2672 36211 CAF SIX
008549,000380: 05,2673 05233 TC WAITLIST
008550,000381: 05,2674 E3,1474 EBANK= CDUIND
008551,000382: 05,2674 03064 16063 2CADR CA+ECE
008552,000383:
008553,000384: 05,2676 33240 NOCOARSE CAF IFAILINH # LEAVE FAILURE INHIBITS INTACT ON
008554,000385: 05,2677 71333 MASK IMODES30 # HARDWARE RESTART. RESET ALL
008555,000386: 05,2700 67660 AD IM30INIR # FAILURE CODES.
008556,000387: 05,2701 55333 TS IMODES30
008557,000388:
008558,000389: 05,2702 40101 CS FLAGWRD5
008559,000390: 05,2703 74762 MASK ENGONBIT
008560,000391: # # Page 200
008561,000392: 05,2704 10000 CCS A
008562,000393: 05,2705 12730 TCF GOPROG3
008563,000394: 05,2706 34754 CAF BIT13
008564,000395: 05,2707 00006 EXTEND
008565,000396: 05,2710 05011 WOR DSALMOUT # TURN ENGINE ON
008566,000397: 05,2711 12730 TCF GOPROG3
008567,000398: 05,2712 00004 ENEMA INHINT
008568,000399: 05,2713 03023 TC LIGHTSET # EXIT TO DOFSTART IF ERROR RESET AND
008569,000400: 05,2714 03054 TC STARTSB2 # MARK REJECT DEPRESSED SIMULTANEOUSLY
008570,000401: 05,2715 44753 CS INTFLBIT
008571,000402: 05,2716 70106 MASK FLGWRD10
008572,000403: 05,2717 54106 TS FLGWRD10
008573,000404:
008574,000405: 05,2720 40102 CS FLAGWRD6 # IS TVC ON
008575,000406: 05,2721 74076 MASK DPCONFIG
008576,000407: 05,2722 00006 EXTEND
008577,000408: 05,2723 62730 BZMF GOPROG3 # NO
008578,000409:
008579,000410: 05,2724 35011 CAF .5SEC # YES, CALL TVCEXEC TASK WHICH WAS KILLED
008580,000411: 05,2725 05233 TC WAITLIST # IN STARTSB2.
008581,000412: 05,2726 E6,1446 EBANK= CNTR
008582,000413: 05,2726 03037 34066 2CADR TVCEXEC
008583,000414:
008584,000415: 05,2730 30102 GOPROG3 CA FLAGWRD6
008585,000416: 05,2731 74076 MASK DPCONFIG
008586,000417: 05,2732 00006 EXTEND
008587,000418: 05,2733 62744 BZMF GOPROG4
008588,000419: 05,2734 34764 CAF TRACKBIT
008589,000420: 05,2735 70075 MASK FLAGWRD1
008590,000421: 05,2736 10000 CCS A
008591,000422: 05,2737 12744 TCF GOPROG4
008592,000423: 05,2740 04611 TC E6SETTER
008593,000424: 05,2741 04463 TC STOPRATE
008594,000425: 05,2742 35024 CAF EBANK3
008595,000426: 05,2743 54003 TS EBANK
008596,000427: 05,2744 34773 GOPROG4 CAF NUMGRPS # VERIFY PHASE TABLE AGREEMENTS
008597,000428: 05,2745 54161 PCLOOP TS MPAC +5
008598,000429: 05,2746 60000 DOUBLE
008599,000430: 05,2747 00006 EXTEND
008600,000431: 05,2750 50000 INDEX A
008601,000432: 05,2751 31156 DCA -PHASE1 # COMPLEMENT INTO A, DIRECT INTO L.
008602,000433: 05,2752 00006 EXTEND
008603,000434: 05,2753 06001 RXOR LCHAN # RESULT MUST BE -0 FOR AGREEMENT.
008604,000435: 05,2754 10000 CCS A
008605,000436: 05,2755 13012 TCF PTBAD # RESTART FAILURE.
008606,000437: 05,2756 13012 TCF PTBAD
008607,000438: 05,2757 13012 TCF PTBAD
008608,000439:
008609,000440: 05,2760 10161 CCS MPAC +5 # PROCESS ALL RESTART GROUPS.
008610,000441: 05,2761 12745 TCF PCLOOP
008611,000442: # # Page 201
008612,000443: 05,2762 54162 TS MPAC +6 # SET TO +0.
008613,000444: 05,2763 05350 TC MMDSPLAY # DISPLAY MAJOR MODE
008614,000445:
008615,000446: 05,2764 00004 INHINT # RELINT DONE IN MMDSPLAY
008616,000447:
008617,000448: 05,2765 34773 CAF NUMGRPS # SEE IF ANY GROUPS RUNNING.
008618,000449: 05,2766 54161 NXTRST TS MPAC +5
008619,000450: 05,2767 60000 DOUBLE
008620,000451: 05,2770 50000 INDEX A
008621,000452: 05,2771 11156 CCS PHASE1
008622,000453: 05,2772 12774 TCF PACTIVE # PNZ - GROUP ACTIVE.
008623,000454: 05,2773 13001 TCF PINACT # +0 - GROUP NOT RUNNING.
008624,000455:
008625,000456: 05,2774 54154 PACTIVE TS MPAC
008626,000457: 05,2775 24154 INCR MPAC # ABS OF PHASE.
008627,000458: 05,2776 24162 INCR MPAC +6 # INDICATE GROUP DEMANDS PRESENT.
008628,000459: 05,2777 04636 TC BANKCALL
008629,000460: 05,3000 03467 CADR RESTARTS
008630,000461:
008631,000462: 05,3001 10161 PINACT CCS MPAC +5 # PROCESS ALL RESTART GROUPS.
008632,000463: 05,3002 12766 TCF NXTRST
008633,000464:
008634,000465: 05,3003 10162 CCS MPAC +6 # NO, CHECK PHASE ACTIVITY FLAG
008635,000466: 05,3004 12534 TCF ENDRSTRT # PHASE ACTIVE
008636,000467: 05,3005 34752 CAF BIT15 # IS MODE -0
008637,000468: 05,3006 71214 MASK MODREG
008638,000469: 05,3007 00006 EXTEND
008639,000470: 05,3010 14103 BZF GOTOPOOH # NO
008640,000471: 05,3011 12534 TCF ENDRSTRT # YES
008641,000472: 05,3012 05671 PTBAD TC ALARM # SET ALARM TO SHOW PHASE TABLE FAILURE.
008642,000473: 05,3013 01107 OCT 1107
008643,000474:
008644,000475: 05,3014 12414 TCF DOFSTART # IN R21.
008645,000476:
008646,000477: # ******** ****** ******
008647,000478:
008648,000479: # DO NOT USE GOPROG2 OR ENEMA WITHOUT CONSULTING POOH PEOPLE.
008649,000480:
008650,000481: 05,3015 00004 GOPROG2 INHINT
008651,000482: 05,3016 03054 TC STARTSB2
008652,000483: 05,3017 44753 CS INTFLBIT
008653,000484: 05,3020 70106 MASK FLGWRD10
008654,000485: 05,3021 54106 TS FLGWRD10
008655,000486: 05,3022 12744 TCF GOPROG4
008656,000487: 05,3023 4754 OCT10000 = BIT13
008657,000488: 05,3023 4346 OCT30000 = PRIO30
008658,000489: 05,3023 34762 LIGHTSET CAF BIT7 # DOFSTART IF MARK REJECT AND EITHER
008659,000490: 05,3024 00006 EXTEND # ERROR LIGHT RESET BUTTONS ARE DEPRESSED
008660,000491: 05,3025 02016 RAND NAVKEYIN
008661,000492: 05,3026 00006 EXTEND
008662,000493: # # Page 202
008663,000494: 05,3027 13043 BZF NONAVKEY # NO MARK REJECT
008664,000495: 05,3030 34342 CAF OCT37
008665,000496: 05,3031 00006 EXTEND
008666,000497: 05,3032 02016 RAND NAVKEYIN # NAV DSKY KEYCODES,MARK,MARK REJECT
008667,000498: 05,3033 63246 AD -ELR
008668,000499: 05,3034 00006 EXTEND
008669,000500: 05,3035 13044 BZF NONAVKEY +1
008670,000501: 05,3036 00006 EXTEND
008671,000502: 05,3037 00015 READ MNKEYIN # MAIN DSKY KEYCODES
008672,000503: 05,3040 63246 AD -ELR
008673,000504: 05,3041 00006 EXTEND
008674,000505: 05,3042 13044 BZF +2
008675,000506:
008676,000507: 05,3043 00002 NONAVKEY TC Q
008677,000508:
008678,000509: 05,3044 03046 +1 TC STARTSUB
008679,000510: 05,3045 12414 TCF DOFSTART
008680,000511: 05,3046 33241 STARTSUB CAF LDNPHAS1 # SET POINTER SO NEXT 20MS DOWNRUPT WILL
008681,000512: 05,3047 54334 TS DNTMGOTO # CAUSE THE CURRENT DOWNLIST TO BE
008682,000513: # INTERRUPTED AND START SENDING FROM THE
008683,000514: # BEGINNING OF THE CURRENT DOWNLIST.
008684,000515:
008685,000516: 05,3050 37662 CAF OCT37774 # 37774 TO TIME5
008686,000517: 05,3051 54030 TS TIME5
008687,000518: 05,3052 64770 AD ONE # 37775 TO TIME4
008688,000519: 05,3053 54027 TS TIME4
008689,000520:
008690,000521: 05,3054 33244 STARTSB2 CAF OCT77603 # TURN OFF UPLINK ACTY, TEMP CAUTION, KR,
008691,000522: 05,3055 00006 EXTEND # FLASH, OP. ERROR, LEAVE OTHERS UNCHANGED
008692,000523: 05,3056 03011 WAND DSALMOUT
008693,000524:
008694,000525: 05,3057 34750 CAF POSMAX # 37777 to TIME3.
008695,000526: 05,3060 54026 TS TIME3
008696,000527:
008697,000528: 05,3061 33245 CAF OCT74777 # TURN OFF TEST ALARMS, STANDBY ENABLE.
008698,000529: 05,3062 00006 EXTEND
008699,000530: 05,3063 03013 WAND CHAN13
008700,000531: 05,3064 34753 CAF R21BIT # CLEAR BITS
008701,000532: 05,3065 64755 AD P21BIT
008702,000533: 05,3066 64757 AD SKIPVBIT # NOW SET SKIPVHF FLAG.
008703,000534: 05,3067 40000 COM
008704,000535: 05,3070 70076 MASK FLAGWRD2
008705,000536: 05,3071 64757 AD SKIPVBIT # NOW SET SKIPVHF FLAG.
008706,000537: 05,3072 54076 TS FLAGWRD2
008707,000538: 05,3073 44765 CS MARKBIT
008708,000539: 05,3074 70075 MASK FLAGWRD1
008709,000540: 05,3075 54075 TS FLAGWRD1
008710,000541:
008711,000542: 05,3076 44765 CS CYC61BIT
008712,000543: 05,3077 70074 MASK FLAGWRD0
008713,000544: # # Page 203
008714,000545: 05,3100 54074 TS FLAGWRD0
008715,000546: 05,3101 E3,1400 EBANK= LST1
008716,000547: 05,3101 35024 CAF EBANK3
008717,000548: 05,3102 54003 TS EBANK # SET FOR E3
008718,000549:
008719,000550: 05,3103 34751 CAF NEG1/2 # INITIALIZE WAITLIST DELTA-TS.
008720,000551: 05,3104 55407 TS LST1 +7
008721,000552: 05,3105 55406 TS LST1 +6
008722,000553: 05,3106 55405 TS LST1 +5
008723,000554: 05,3107 55404 TS LST1 +4
008724,000555: 05,3110 55403 TS LST1 +3
008725,000556: 05,3111 55402 TS LST1 +2
008726,000557: 05,3112 55401 TS LST1 +1
008727,000558: 05,3113 55400 TS LST1
008728,000559:
008729,000560: 05,3114 45274 CS ENDTASK
008730,000561: 05,3115 55410 TS LST2
008731,000562: 05,3116 55412 TS LST2 +2
008732,000563: 05,3117 55414 TS LST2 +4
008733,000564: 05,3120 55416 TS LST2 +6
008734,000565: 05,3121 55420 TS LST2 +8D
008735,000566: 05,3122 55422 TS LST2 +10D
008736,000567: 05,3123 55424 TS LST2 +12D
008737,000568: 05,3124 55426 TS LST2 +14D
008738,000569: 05,3125 55430 TS LST2 +16D
008739,000570: 05,3126 45275 CS ENDTASK +1
008740,000571: 05,3127 55411 TS LST2 +1
008741,000572: 05,3130 55413 TS LST2 +3
008742,000573: 05,3131 55415 TS LST2 +5
008743,000574: 05,3132 55417 TS LST2 +7
008744,000575: 05,3133 55421 TS LST2 +9D
008745,000576: 05,3134 55423 TS LST2 +11D
008746,000577: 05,3135 55425 TS LST2 +13D
008747,000578: 05,3136 55427 TS LST2 +15D
008748,000579: 05,3137 55431 TS LST2 +17D
008749,000580:
008750,000581: 05,3140 44772 CS ZERO # MAKE ALL EXECUTIVE REGISTER SETS
008751,000582: 05,3141 54167 TS PRIORITY # AVAILABLE.
008752,000583: 05,3142 54203 TS PRIORITY +12D
008753,000584: 05,3143 54217 TS PRIORITY +24D
008754,000585: 05,3144 54233 TS PRIORITY +36D
008755,000586: 05,3145 54247 TS PRIORITY +48D
008756,000587: 05,3146 54263 TS PRIORITY +60D
008757,000588: 05,3147 54277 TS PRIORITY +72D
008758,000589:
008759,000590: 05,3150 55322 TS DSRUPTSW
008760,000591: 05,3151 54067 TS NEWJOB # SHOWS NO ACTIVE JOBS.
008761,000592:
008762,000593: 05,3152 33243 CAF VAC1ADRC # MAKE ALL VAC AREAS AVAILABLE.
008763,000594: 05,3153 54400 TS VAC1USE
008764,000595: # # Page 204
008765,000596: 05,3154 65005 AD LTHVACA
008766,000597: 05,3155 54454 TS VAC2USE
008767,000598: 05,3156 65005 AD LTHVACA
008768,000599: 05,3157 54530 TS VAC3USE
008769,000600: 05,3160 65005 AD LTHVACA
008770,000601: 05,3161 54604 TS VAC4USE
008771,000602: 05,3162 65005 AD LTHVACA
008772,000603: 05,3163 54660 TS VAC5USE
008773,000604:
008774,000605: 05,3164 34355 CAF TEN # BLANK DSKY REGISTERS (PROGRAM,VERB,NOUN,
008775,000606: # R1,R2,R3)
008776,000607: 05,3165 54154 DSPOFF TS MPAC
008777,000608: 05,3166 44755 CS BIT12
008778,000609: 05,3167 50154 INDEX MPAC
008779,000610: 05,3170 55226 TS DSPTAB
008780,000611: 05,3171 10154 CCS MPAC
008781,000612: 05,3172 13165 TCF DSPOFF
008782,000613:
008783,000614: 05,3173 55000 TS DELAYLOC
008784,000615: 05,3174 55001 TS DELAYLOC +1
008785,000616: 05,3175 55002 TS DELAYLOC +2
008786,000617: 05,3176 55003 TS DELAYLOC +3
008787,000618: 05,3177 54045 TS INLINK
008788,000619: 05,3200 55201 TS DSPCNT
008789,000620: 05,3201 55245 TS CADRSTOR
008790,000621: 05,3202 55216 TS REQRET
008791,000622: 05,3203 55220 TS CLPASS
008792,000623: 05,3204 55215 TS DSPLOCK
008793,000624: 05,3205 55223 TS MONSAVE # KILL MONITOR
008794,000625: 05,3206 55224 TS MONSAVE1
008795,000626: 05,3207 55204 TS VERBREG
008796,000627: 05,3210 55205 TS NOUNREG
008797,000628: 05,3211 55246 TS DSPLIST
008798,000629: 05,3212 55335 TS IMUCADR
008799,000630: 05,3213 55324 TS LGYRO
008800,000631: 05,3214 54100 TS FLAGWRD4 # KILL INTERFACE DISPLAYS
008801,000632: 05,3215 54301 TS MARKINDX
008802,000633: 05,3216 55247 TS EXTVBACT
008803,000634: 05,3217 34775 CAF NOUTCON
008804,000635: 05,3220 55221 TS NOUT
008805,000636:
008806,000637: 05,3221 33242 CAF LESCHK # SELF CHECK GO-TO REGISTER.
008807,000638: 05,3222 55361 TS SELFRET
008808,000639:
008809,000640: 05,3223 44351 CS VD1
008810,000641: 05,3224 55202 TS DSPCOUNT
008811,000642:
008812,000643: 05,3225 00002 TC Q
008813,000644: 05,3226 30001 T5IDLOC CA L # T5RUPT COMES HERE EVERY 163.84 SECS
008814,000645: 05,3227 15326 TCF NOQRSM +1 # WHEN NOBODY IS USING IT.
008815,000646:
008816,000647: # # Page 205
008817,000648: 05,3230 E6,1645 EBANK= OGANOW
008818,000649: 05,3230 03226 12066 T5IDLER 2CADR T5IDLOC
008819,000650:
008820,000651: 05,3232 E6,1645 EBANK= OGANOW
008821,000652: 05,3232 02123 42066 2CADR REDORCS
008822,000653:
008823,000654: 05,3234 E6,1645 EBANK= OGANOW
008824,000655: 05,3234 03222 34066 2CADR REDOTVC
008825,000656:
008826,000657: 05,3236 E6,1645 EBANK= OGANOW
008827,000658: 05,3236 02000 54066 2CADR REDOSAT
008828,000659:
008829,000660: 05,3240 00435 IFAILINH OCT 435
008830,000661: 05,3241 03446 LDNPHAS1 GENADR DNPHASE1
008831,000662: 05,3242 03270 LESCHK GENADR SELFCHK
008832,000663: 05,3243 00400 VAC1ADRC ADRES VAC1USE
008833,000664: 05,3244 77603 OCT77603 OCT 77603
008834,000665: 05,3245 74777 OCT74777 OCT 74777
008835,000666: 05,3246 4773 NUMGRPS EQUALS FIVE
008836,000667: 05,3246 77755 -ELR OCT -22 # -ERROR LIGHT RESET KEY CODE.
008837,000668: 05,3247 37411 IM30INIF OCT 37411 # INHIBITS IMU FAIL FOR 5 SEC AND PIP ISSW
008838,000669: 05,3250 7660 IM30INIR = PRIO37
008839,000670: 05,3250 5055 IM33INIT = PRIO16 # NO PIP OR TM FAIL SIGNALS.
008840,000671: 05,3250 00450 9,6,4 OCT 450
008841,000672: 05,3251 00130 OPTINITF OCT 130
008842,000673: 05,3252 5001 OPTINITR = BITS4&5
008843,000674: 05,3252 00000 SWINIT OCT 0
008844,000675: 05,3253 00000 OCT 0
008845,000676: 05,3254 00000 OCT 0
008846,000677: 05,3255 00000 OCT 0
008847,000678:
008848,000679: 05,3256 00000 OCT 0
008849,000680: 05,3257 00200 OCT 00200
008850,000681: 05,3260 00004 OCT 00004 # .05GSW
008851,000682: 05,3261 00000 OCT 0
008852,000683: 05,3262 00000 OCT 0
008853,000684: 05,3263 00000 OCT 0
008854,000685: 05,3264 00000 OCT 0
008855,000686: 05,3265 00000 OCT 0
008856,000687: # # Page 206
008857,000688: # ROUTINE NAME GOTOPOOH -- ENTRANCE TO ROUTINE R00 (SELECTION OF NEW PROGRAM VIA V37)
008858,000689: # FUNCTIONAL DESCRIPTION
008859,000690:
008860,000691: # 1. FLASH V37 TO REQUEST SELECTION OF NEW PROGRAM
008861,000692:
008862,000693: 4000 SETLOC FFTAG10
008863,000694: 4000 BANK
008864,000695:
008865,000696: 4103 COUNT* $$/POO
008866,000697: 4103 05561 GOTOPOOH TC DOWNFLAG
008867,000698: 4104 00236 ADRES AUTOSEQ
008868,000699: 4105 05402 MNKGOPOO TC PHASCHNG
008869,000700: 4106 05024 OCT 05024
008870,000701: 4107 13000 OCT 13000
008871,000702: 4110 04655 TC POSTJUMP
008872,000703: 4111 10000 CADR GOPOOFIX
008873,000704: 4112 34762 AUTOCHK CAF AUTSQBIT # IS THIS AN AUTO SEQUENCE
008874,000705: 4113 70106 MASK FLGWRD10
008875,000706: 4114 00006 EXTEND
008876,000707: 4115 16711 BZF TCQ # NO, RETURN TO CALLER
008877,000708: 4116 05402 AUTOCHK1 TC PHASCHNG
008878,000709: 4117 05024 OCT 05024
008879,000710: 4120 13000 OCT 13000
008880,000711:
008881,000712: # GROUP 4 USE IS OK SINCE V37 TO FOLLOW
008882,000713: 4121 34754 CAF BIT13
008883,000714: 4122 56004 XCH FBANK # INCORRECT IF P80'S NOT IN BANK 4 (BIT13)
008884,000715: 4123 01012 TC AUTPOINT
008885,000716: 04,2000 SETLOC VERB37
008886,000717: 04,2000 BANK
008887,000718:
008888,000719: 04,2000 COUNT* $$/POO
008889,000720: 04,2000 02767 GOPOOFIX TC INITSUB
008890,000721: 04,2001 05531 TC CLEARMRK +2
008891,000722: 04,2002 04112 TC AUTOCHK
008892,000723: 04,2003 32006 CAF V37N99
008893,000724: 04,2004 05535 TC VNFLASH
008894,000725: 04,2005 02003 TC -2
008895,000726:
008896,000727: 04,2006 11343 V37N99 VN 3799
008897,000728:
008898,000729: # # Page 207
008899,000730: # PROGRAM NAME V37 ASSEMBLY SUNDISK
008900,000731: # LOG SECTION FRESH START AND RESTART
008901,000732:
008902,000733: # FUNCTIONAL DESCRIPTION
008903,000734:
008904,000735: # 1. CHECK IF NEW PROGRAM ALLOWED. IF BIT 1 OF FLAGWRD2 (NODOFLAG) IS SET, AN ALARM 1520 IS CALLED.
008905,000736: # 2. CHECK FOR VALIDITY OF PROGRAM SELECTED. IF AN INVALID PROGRAM IS SELECTED, THE OPERATOR ERROR LIGHT IS
008906,000737: # SET AND CURRENT ACTIVITY, IF ANY, CONTINUES.
008907,000738: # 3. SERVICER IS TERMINATED IF IT HAS BEEN RUNNING.
008908,000739: # 4. INTSTALL IS EXECUTED TO AVOID INTERRUPTING INTEGRATION.
008909,000740: # 5. THE ENGINE IS TURNED OFF AND THE DAP IS INITIALIZED FOR COAST.
008910,000741: # 6. TRACK, UPDATE, AND TARG1 FLAGS ARE SET TO ZERO.
008911,000742: # 7. DISPLAY SYSTEM IS RELEASED.
008912,000743: # 8. THE FOLLOWING ARE PERFORMED FOR EACH OF THE THREE CASES.
008913,000744: # A. PROGRAM SELECTED IS P00.
008914,000745: # 1. RENDEZVOUS FLAG IS RESET (KILL P20).
008915,000746: # 2. STATINT1 IS SCHEDULED BY SETTING RESTART GROUP 2.
008916,000747: # 3. MAJOR MODE 00 IS STORED IN THE MODE REGISTER (MODREG).
008917,000748: # 4. SUPERBANK 3 IS SELECTED.
008918,000749: # 5. NODOFLAG IS RESET.
008919,000750: # 6. ALL RESTART GROUPS EXCEPT GROUP 2 ARE CLEARED. CONTROL IS TRANSFERRED TO RESTART PROGRAM (GOPROG2)
008920,000751: # WHICH CAUSES ALL CURRENT ACTIVITY TO BE DISCONTINUED AND A 9 MINUTE INTEGRATION CYCLE TO BE
008921,000752: # INITIATED.
008922,000753: # B. PROGRAM SELECTED IS P20
008923,000754: # 1. IF THE CURRENT MAJOR MODE IS THE SAME AS THE SELECTED NEWPROGRAM, THE PROGRAM IS RE-INITIALIZED
008924,000755: # VIA V37XEQ, ALL RESTART GROUPS, EXCEPT GROUP 4 ARE CLEARED.
008925,000756: # 2. IF THE CURRENT MAJOR MODE IS NOT EQUAL TO THE NEW REQUEST, A CHECK IS MADE TO SEE IF THE REQUEST-
008926,000757: # ED MAJOR MODE HAS BEEN RUNNING IN THE BACKGROUND,
008927,000758: # AND IF IT HAS, NO NEW PROGRAM IS SCHEDULED, THE EXISTING
008928,000759: # P20 IS RESTARTED TO CONTINUE, AND ITS MAJOR MODE IS SET.
008929,000760: # 3. CONTROL IS TRANSFERRED TO GOPROG2.
008930,000761: # C. PROGRAM SELECTED IS NEITHER P00 NOR P20
008931,000762: # 1. V37XEQ IS SCHEDULED (AS A JOB) BY SETTING RESTART GROUP 4
008932,000763: # 2. ALL CURRENT ACTIVITY EXCEPT RENDEZVOUS AND TRACKING IS DISCONTINUED BY CLEARING ALL RESTART
008933,000764: # GROUPS. GROUP 2 IS CLEARED. IF THE RENDEZVOUS FLAG IS ON P20 IS RESTARTED IN GOPROG2 VIA REDOP20,
008934,000765: # TO CONTINUE.
008935,000766:
008936,000767: # INPUT/OUTPUT INFORMATION
008937,000768:
008938,000769: # A. CALLING SEQUENCE
008939,000770:
008940,000771: # CONTROL IS DIRECTED TO V37 BY THE VERBFAN ROUTINE.
008941,000772: # VERBFAN GOES TO C(VERBTAB+C(VERBREG)). VERB 37 = MMCHANG.
008942,000773: # MMCHANG EXECUTES A TC POSTJUMP, CADR V37.
008943,000774:
008944,000775: # B. ERASABLE INITIALIZATION NONE
008945,000776:
008946,000777: # C. OUTPUT
008947,000778: # MAJOR MODE CHANGE
008948,000779: # # Page 208
008949,000780:
008950,000781: # D. DEBRIS
008951,000782: # MMNUMBER, MPAC +1, MINDEX, BASETEMP +C(MINDEX), FLAGWRD0, FLAGWRD1, FLAGWRD2, MODREG, GOLOC -1,
008952,000783: # GOLOC, GOLOC +1, GOLOC +2, BASETEMP, -PHASE2, PHASE2, -PHASE4
008953,000784:
008954,000785: # PROGRAM ANALYSIS
008955,000786:
008956,000787: # A. SUBROUTINES CALLED
008957,000788: # ALARM, RELDSP, PINBRNCH, INTSTALL, ENGINOF2, ALLCOAST, V37KLEAN, GOPROG2, FALTON, FINDVAC, SUPERSW,
008958,000789: # DSPMM
008959,000790:
008960,000791: # B. NORMAL EXIT TC ENDOFJOB
008961,000792:
008962,000793: # C. ALARMS 1520 (MAJOR MODE CHANGE NOT PERMITTED)
008963,000794:
008964,000795: 4000 SETLOC FFTAG10
008965,000796: 4000 BANK
008966,000797:
008967,000798: 4124 COUNT* $$/V37
008968,000799: 4124 00024 OCT24 MM 20 B-14
008969,000800: 4125 00031 OCT31 MM 25 B-14
008970,000801: 04,2000 SETLOC VERB37
008971,000802: 04,2000 BANK
008972,000803:
008973,000804: 04,2007 COUNT* $$/V37
008974,000805: 04,2007 55200 V37 TS MMNUMBER # SAVE MAJOR MODE
008975,000806: 04,2010 05561 TC DOWNFLAG
008976,000807: 04,2011 00236 ADRES AUTOSEQ
008977,000808: 04,2012 05561 TC DOWNFLAG
008978,000809: 04,2013 00226 ADRES PCMANFLG
008979,000810: 04,2014 05561 TC DOWNFLAG
008980,000811: 04,2015 00215 ADRES VHFRFLAG
008981,000812: 04,2016 04606 TC E7SETTER
008982,000813: 04,2017 E7,1722 EBANK= MRKBUF1
008983,000814: 04,2017 37702 CAF NEGONE
008984,000815: 04,2020 55722 TS MRKBUF1 # TO PREVENT P20 FROM PROCESSING P50's MRK
008985,000816: 04,2021 40077 CS FLAGWRD3
008986,000817: 04,2022 74754 MASK REFSMBIT
008987,000818: 04,2023 10000 CCS A
008988,000819: 04,2024 12044 TCF AUTO37
008989,000820: 04,2025 31200 CA MMNUMBER
008990,000821: 04,2026 62031 AD NEG79
008991,000822: 04,2027 10000 CCS A
008992,000823: 04,2030 12375 TCF V37NONO
008993,000824: 04,2031 77660 NEG79 DEC -79 B-14
008994,000825: 04,2032 12035 TCF MMOK
008995,000826: 04,2033 31200 RENDP79 CA MMNUMBER
008996,000827: 04,2034 12410 TCF REND30S +1
008997,000828: 04,2035 31200 MMOK CA MMNUMBER
008998,000829: 04,2036 62406 AD NEG30
008999,000830: 04,2037 00006 EXTEND
009000,000831: # # Page 209
009001,000832: 04,2040 62044 BZMF AUTO37 # P01 - P30
009002,000833: 04,2041 63770 AD NEG6
009003,000834: 04,2042 00006 EXTEND
009004,000835: 04,2043 62407 BZMF REND30S # P31 - P36 RENDEZVOUS
009005,000836: 04,2044 34346 AUTO37 CAF PRIO30
009006,000837: 04,2045 54365 TS RESTREG
009007,000838:
009008,000839: 04,2046 34772 CAF ZERO # ZERO OUT AUTO OPTICS RATE REGS
009009,000840: 04,2047 54740 TS TOLD
009010,000841: 04,2050 54741 TS SOLD
009011,000842: 04,2051 54735 TS TRATE
009012,000843: 04,2052 54736 TS SRATE
009013,000844: 04,2053 05561 TC DOWNFLAG
009014,000845: 04,2054 00210 ADRES P24FLAG
009015,000846: 04,2055 31333 CA IMODES30 # IS IMU BEING INITIALIZED
009016,000847: 04,2056 74763 MASK IMUNITBT
009017,000848: 04,2057 10000 CCS A
009018,000849: 04,2060 12125 TCF CANTROO
009019,000850:
009020,000851: 04,2061 34762 CAF ENGONBIT # IS ENGINE ON
009021,000852: 04,2062 70101 MASK FLAGWRD5
009022,000853: 04,2063 10000 CCS A
009023,000854: 04,2064 12071 TCF ROOTOPOO # YES, SET UP FOR POO
009024,000855:
009025,000856: 04,2065 40102 CS FLAGWRD6 # NO, IS TVC DAP ON
009026,000857: 04,2066 74076 MASK DPCONFIG
009027,000858: 04,2067 00006 EXTEND
009028,000859: 04,2070 62116 BZMF ISITPOO # NO, CONTINUE WITH ROO
009029,000860:
009030,000861: 04,2071 04611 ROOTOPOO TC E6SETTER
009031,000862:
009032,000863: 04,2072 E6,1465 EBANK= DAPDATR1
009033,000864: 04,2072 04636 TC BANKCALL # SPSOFF DOES AN INHINT
009034,000865: 04,2073 51045 CADR SPSOFF
009035,000866: 04,2074 04714 TC IBNKCALL
009036,000867: 04,2075 13313 CADR MASSPROP
009037,000868: 04,2076 33054 CAF 3.1SEC
009038,000869: 04,2077 04714 TC IBNKCALL
009039,000870: 04,2100 42043 CADR RCSDAPON +1
009040,000871:
009041,000872: 04,2101 04714 TC IBNKCALL
009042,000873: 04,2102 51161 CADR TVCZAP # DISABLE TVC
009043,000874: 04,2103 34772 CAF ZERO
009044,000875: 04,2104 55200 TS MMNUMBER
009045,000876: 04,2105 00003 RELINT
009046,000877: 04,2106 34773 CAF FIVE
009047,000878: 04,2107 04636 TC BANKCALL
009048,000879: 04,2110 01731 CADR DELAYJOB
009049,000880: 04,2111 34772 CAF ZERO
009050,000881: 04,2112 00006 EXTEND
009051,000882: # # Page 210
009052,000883: 04,2113 01005 WRITE 5
009053,000884: 04,2114 00006 EXTEND
009054,000885: 04,2115 01006 WRITE 6
009055,000886: 04,2116 31200 ISITPOO CA MMNUMBER
009056,000887: 04,2117 00006 EXTEND
009057,000888: 04,2120 12151 BZF ISSERVON # YES, CHECK SERVICER STATUS
009058,000889:
009059,000890: 04,2121 40076 CS FLAGWRD2 # NO, IS NODO V37 FLAG SET
009060,000891: 04,2122 74770 MASK NODOBIT
009061,000892: 04,2123 10000 CCS A
009062,000893: 04,2124 12132 TCF CHECKTAB # NO
009063,000894: 04,2125 05671 CANTROO TC ALARM
009064,000895: 04,2126 01520 OCT 1520
009065,000896:
009066,000897: 04,2127 04432 V37BAD TC RELDSP # RELEASES DISPLAY FROM ASTRONAUT
009067,000898:
009068,000899: 04,2130 04655 TC POSTJUMP # BRING BACK LAST NORMAL DISPLAY IF THERE
009069,000900: 04,2131 21275 CADR PINBRNCH # WAS ONE. OY
009070,000901:
009071,000902: 04,2132 33173 CHECKTAB CA NOV37MM # THE NO. OF MM
009072,000903: 04,2133 54155 AGAINMM TS MPAC +1
009073,000904: 04,2134 50155 NDX MPAC +1
009074,000905: 04,2135 33124 CA PREMM1 # OBTAIN WHICH MM THIS IS FOR
009075,000906: 04,2136 76043 MASK LOW7
009076,000907: 04,2137 40000 COM
009077,000908: 04,2140 61200 AD MMNUMBER
009078,000909: 04,2141 10000 CCS A
009079,000910: 04,2142 10155 CCS MPAC +1 # IF GR, SEE IF ANY MORE IN LIST
009080,000911: 04,2143 12133 TCF AGAINMM # YES, GET NEXT ONE
009081,000912: 04,2144 12375 TCF V37NONO # LAST TIME OR PASSED MM
009082,000913:
009083,000914: 04,2145 30155 CA MPAC +1
009084,000915: 04,2146 55177 TS MINDEX # SAVE INDEX FOR LATER
009085,000916:
009086,000917: 04,2147 05547 TC UPFLAG
009087,000918: 04,2150 00055 ADRES V50N18FL # 66935 55 518 490731Y
009088,000919:
009089,000920: 04,2151 40103 ISSERVON CS FLAGWRD7 # V37 FLAG SET - I.E. IS SERVICER GOING
009090,000921: 04,2152 74763 MASK V37FLBIT
009091,000922: 04,2153 10000 CCS A
009092,000923: 04,2154 12162 TCF CANV37 # NO
009093,000924:
009094,000925: 04,2155 00004 INHINT
009095,000926: 04,2156 44770 CS AVEGBIT # YES TURN OFF AVERAGE G FLAG AND WAIT
009096,000927: 04,2157 70075 MASK FLAGWRD1 # FOR SERVICER TO RETURN TO CANV37
009097,000928: 04,2160 54075 TS FLAGWRD1
009098,000929:
009099,000930: 04,2161 15205 TCF ENDOFJOB
009100,000931:
009101,000932: 04,2162 33053 CANV37 CAF ROOAD
009102,000933: # # Page 211
009103,000934: 04,2163 54373 TS TEMPFLSH
009104,000935:
009105,000936: 04,2164 05402 TC PHASCHNG
009106,000937: 04,2165 00014 OCT 14
009107,000938:
009108,000939: 04,2166 06006 ROO TC INTPRET
009109,000940:
009110,000941: 04,2167 77624 CALL # WAIT FOR INTEGRATION TO FINISH
009111,000942: 04,2170 27516 INTSTALL
009112,000943: 04,2171 77776 DUMMYAD EXIT
009113,000944:
009114,000945: 04,2172 45024 CS OCT1400 # CLEAR CAUTION RESET
009115,000946: 04,2173 00006 EXTEND # AND TEST CONNECTOR OUTBIT
009116,000947: 04,2174 03011 WAND 11
009117,000948:
009118,000949: 04,2175 33046 CAF OCT44571 # CLEAR ENABLE OPTICS ERROR COUNTER, STAR
009119,000950: 04,2176 00006 EXTEND # TRACKERS ON BIT, TVC ENABLE, ZERO OPTICS,
009120,000951: 04,2177 03012 WAND 12 # DISENGAGE OPTICS DAP, SIVB INJ SEQUENCE
009121,000952: # START, AND SIVB CUTOFF BIT.
009122,000953:
009123,000954: 04,2200 43047 CS OCT600 # CLEAR UNUSED BITS
009124,000955: 04,2201 00006 EXTEND
009125,000956: 04,2202 03013 WAND 13
009126,000957:
009127,000958: 04,2203 02767 TC INITSUB
009128,000959:
009129,000960: 04,2204 05527 TC CLEARMRK
009130,000961:
009131,000962: 04,2205 34772 CAF ZERO
009132,000963: 04,2206 54304 TS STARIND
009133,000964:
009134,000965: 04,2207 05561 TC DOWNFLAG
009135,000966: 04,2210 00020 ADRES STIKFLAG
009136,000967:
009137,000968: 04,2211 04415 TC UPACTOFF # TURN OFF UPLINK ACTIV LIGHT
009138,000969:
009139,000970: 04,2212 05561 TC DOWNFLAG
009140,000971: 04,2213 00037 ADRES R21MARK
009141,000972:
009142,000973: 04,2214 11200 CCS MMNUMBER # IS THIS A POOH REQUEST
009143,000974: 04,2215 12352 TCF NOUVEAU # NO, PICK UP NEW PROGRAM
009144,000975:
009145,000976: 04,2216 COUNT* $$/POO
009146,000977: 04,2216 04432 POOH TC RELDSP # RELEASE DISPLAY SYSTEM
009147,000978:
009148,000979: 04,2217 35047 CAF PRIO5 # SET VARIABLE RESTART REGISTER FOR P00.
009149,000980: 04,2220 55262 TS PHSPRDT2
009150,000981:
009151,000982: 04,2221 00004 INHINT
009152,000983: # # Page 212
009153,000984: 04,2222 44770 CS NODOBIT # TURN OFF NODOFLAG
009154,000985: 04,2223 70076 MASK FLAGWRD2
009155,000986: 04,2224 54076 TS FLAGWRD2
009156,000987:
009157,000988: 04,2225 34773 CA FIVE # SET 2.5 RESTART FOR STATEINT1
009158,000989: 04,2226 54001 TS L
009159,000990: 04,2227 40000 COM
009160,000991: 04,2230 01,2036 2P5SPT1 = 2.5SPOT
009161,000992: 04,2230 53160 DXCH -PHASE2
009162,000993:
009163,000994: 04,2231 34761 CA IMUSEBIT # RESET IMUSE AND
009164,000995: 04,2232 64762 AD RNDVZBIT # KILL P20
009165,000996: 04,2233 40000 COM
009166,000997: 04,2234 70074 MASK FLAGWRD0
009167,000998: 04,2235 54074 TS FLAGWRD0 # RENDFLG
009168,000999:
009169,001000: 04,2236 44760 CS UTBIT
009170,001001: 04,2237 70104 MASK FLAGWRD8
009171,001002: 04,2240 54104 TS FLAGWRD8
009172,001003:
009173,001004: 04,2241 34772 CAF DNLADP00
009174,001005:
009175,001006: 04,2242 COUNT* $$/V37
009176,001007: 04,2242 54332 SEUDOPOO TS DNLSTCOD # SET UP APPROPRIATE DOWNLIST.
009177,001008: # (OLD ONE WILL BE FINISHED FIRST)
009178,001009:
009179,001010: 04,2243 34764 CA TRACKBIT
009180,001011: 04,2244 64757 AD TARG1BIT
009181,001012: 04,2245 64762 AD UPDATBIT
009182,001013: 04,2246 40000 COM
009183,001014: 04,2247 55275 TS EBANKTEM
009184,001015: 04,2250 70075 MASK FLAGWRD1
009185,001016: 04,2251 54075 TS FLAGWRD1
009186,001017:
009187,001018: 04,2252 44767 CS R67BIT # CLEAR R67FLAG. P20 WILL SET IT AGAIN.
009188,001019: 04,2253 70104 MASK FLAGWRD8
009189,001020: 04,2254 54104 TS FLAGWRD8
009190,001021:
009191,001022: 04,2255 04714 GROUPKIL TC IBNKCALL # KILL GROUPS 3,5,6
009192,001023: 04,2256 12550 CADR V37KLEAN
009193,001024:
009194,001025: 04,2257 11200 CCS MMNUMBER # IS IT POOH
009195,001026: 04,2260 12270 TCF RENDVOO # NO
009196,001027: 04,2261 04714 TC IBNKCALL
009197,001028: 04,2262 12542 CADR POOKLEAN # REDUNDANT EXCEPT FOR GROUP 4.
009198,001029:
009199,001030: 04,2263 03002 TC INITSUBA
009200,001031: 04,2264 31200 GOMOD CA MMNUMBER
009201,001032: 04,2265 55214 TS MODREG
009202,001033:
009203,001034: # # Page 213
009204,001035:
009205,001036: 04,2266 04655 GOGOPROG TC POSTJUMP
009206,001037: 04,2267 13015 CADR GOPROG2
009207,001038:
009208,001039: 04,2270 41200 RENDVOO CS MMNUMBER # IS NEW PROG = 20
009209,001040: 04,2271 64124 AD OCT24 # 20
009210,001041: 04,2272 00006 EXTEND
009211,001042: 04,2273 12275 BZF RENDNOO # YES
009212,001043: 04,2274 12311 TCF POOFIZZ
009213,001044:
009214,001045: 04,2275 41200 RENDNOO CS MMNUMBER
009215,001046: 04,2276 61214 AD MODREG
009216,001047: 04,2277 00006 EXTEND
009217,001048: 04,2300 12321 BZF KILL20
009218,001049:
009219,001050: 04,2301 30104 CA FLAGWRD8
009220,001051: 04,2302 74760 MASK UTBIT
009221,001052: 04,2303 10000 CCS A
009222,001053: 04,2304 12333 TCF STATQUO1
009223,001054:
009224,001055: 04,2305 30074 CA FLAGWRD0 # IS RENDEZVOO FLAG SET
009225,001056: 04,2306 74762 MASK RNDVZBIT
009226,001057: 04,2307 10000 CCS A
009227,001058: 04,2310 12340 TCF STATQUO
009228,001059:
009229,001060: 04,2311 30104 POOFIZZ CA FLAGWRD8
009230,001061: 04,2312 74760 MASK UTBIT
009231,001062: 04,2313 10000 CCS A
009232,001063: 04,2314 12325 TCF KILL20 +4
009233,001064: 04,2315 34762 CAF RNDVZBIT
009234,001065: 04,2316 70074 MASK FLAGWRD0
009235,001066: 04,2317 10000 CCS A
009236,001067: 04,2320 12330 TCF REV37
009237,001068: 04,2321 00006 KILL20 EXTEND # NO, KILL GROUPS 1 + 2
009238,001069: 04,2322 34772 DCA NEG0
009239,001070: 04,2323 53156 DXCH -PHASE1
009240,001071:
009241,001072: 04,2324 03002 TC INITSUBA
009242,001073: 04,2325 00006 +4 EXTEND
009243,001074: 04,2326 34772 DCA NEG0
009244,001075: 04,2327 53160 DXCH -PHASE2
009245,001076:
009246,001077: 04,2330 33052 REV37 CAF V37QCAD # SET RESTART POINT
009247,001078: 04,2331 54373 TS TEMPFLSH
009248,001079:
009249,001080: 04,2332 12266 TCF GOGOPROG
009250,001081:
009251,001082: 04,2333 34773 STATQUO1 CAF FIVE # SET 2.5 RESTART for STATEINT1
009252,001083: 04,2334 54001 TS L
009253,001084: 04,2335 01,2036 2P5SPT2 = 2.5SPOT
009254,001085: 04,2335 40000 COM
009255,001086: # # Page 214
009256,001087: 04,2336 53160 DXCH -PHASE2
009257,001088: 04,2337 12343 TCF STATQUO +3
009258,001089: 04,2340 40075 STATQUO CS FLAGWRD1 # SET TRACK FLAG AND UPDATE FLAG
009259,001090: 04,2341 74762 MASK UPDATBIT
009260,001091: 04,2342 26075 ADS FLAGWRD1
009261,001092: 04,2343 40075 +3 CS FLAGWRD1
009262,001093: 04,2344 74764 MASK TRACKBIT
009263,001094: 04,2345 26075 ADS FLAGWRD1
009264,001095:
009265,001096: 04,2346 00006 EXTEND # KILL GROUP 4
009266,001097: 04,2347 34772 DCA NEG0
009267,001098: 04,2350 53164 DXCH -PHASE4
009268,001099:
009269,001100: 04,2351 12264 TCF GOMOD
009270,001101:
009271,001102: 04,2352 34762 NOUVEAU CAF RNDVZBIT
009272,001103: 04,2353 70074 MASK FLAGWRD0
009273,001104: 04,2354 10000 CCS A
009274,001105: 04,2355 12364 TCF +7
009275,001106: 04,2356 34760 CAF UTBIT
009276,001107: 04,2357 70104 MASK FLAGWRD8
009277,001108: 04,2360 10000 CCS A
009278,001109: 04,2361 12364 TCF +3
009279,001110: 04,2362 05561 TC DOWNFLAG # NO, RESET IMUSE FLAG.
009280,001111: 04,2363 00007 ADRES IMUSE # BIT 8 FLAG 0
009281,001112: 04,2364 51177 +3 INDEX MINDEX
009282,001113: 04,2365 33124 CAF PREMM1 # EXTRACT DOWNLIST ADDRESS
009283,001114: 04,2366 54022 TS CYL # SHIFT BITS 15 - 13 TO BITS 3 - 1
009284,001115: 04,2367 40022 CS CYL
009285,001116: 04,2370 40022 CS CYL
009286,001117: 04,2371 56022 XCH CYL
009287,001118: 04,2372 74774 MASK SEVEN # KEEP DOWNLIST CODE BITS
009288,001119: 04,2373 00004 INHINT
009289,001120: 04,2374 12242 TCF SEUDOPOO
009290,001121:
009291,001122: 04,2375 04362 V37NONO TC FALTON # COME HERE IF MM REQUESTED DOESNT EXIST
009292,001123:
009293,001124: 04,2376 12127 TCF V37BAD
009294,001125:
009295,001126: 04,2000 SETLOC VERB37 # MUST BE IN BANK 4 BECAUSE OF AUTOCHK
009296,001127: 04,2000 BANK
009297,001128: 04,2377 COUNT* $$/MNKEY
009298,001129: 04,2377 00051 DEC41 DEC 41 B-14
009299,001130: 04,2400 00114 DEC76 DEC 76 B-14
009300,001131: 04,2401 00064 DEC52 DEC 52 B-14
009301,001132: 04,2402 4124 DEC20 = OCT24
009302,001133: 04,2402 4342 DEC31 = LOW5
009303,001134: 04,2402 4763 DEC32 = BIT6
009304,001135: 04,2402 5004 DEC40 = OCT50
009305,001136: 04,2402 5003 DEC33 = 33DEC
009306,001137: # # Page 215
009307,001138: 04,2402 4260 DEC34 = 34DEC
009308,001139: 04,2402 00044 DEC36 DEC 36 B-14
009309,001140: 04,2403 00043 DEC35 DEC 35 B-14
009310,001141: 04,2404 00117 DEC79 DEC 79 B-14
009311,001142: 04,2405 04,3770 NEG6 = DEC-6
009312,001143: 04,2405 00126 DEC86 DEC 86 B-14
009313,001144: 04,2406 77741 NEG30 DEC -30 B-14
009314,001145: 04,2407 5011 DEC50 = OCT62
009315,001146: 04,2407 4777 CKLSTAUT = LOW4
009316,001147: 04,2407 62405 REND30S AD DEC86 # CHANGE P3X to P8X
009317,001148: 04,2410 55113 +1 TS TEMPMM # AND SAVE
009318,001149: 04,2411 34760 CAF UTBIT
009319,001150: 04,2412 70104 MASK FLAGWRD8
009320,001151: 04,2413 00006 EXTEND
009321,001152: 04,2414 12421 BZF UTOFF
009322,001153:
009323,001154: 04,2415 05561 TC DOWNFLAG
009324,001155: 04,2416 00031 ADRES TRACKFLG
009325,001156:
009326,001157: 04,2417 05561 TC DOWNFLAG
009327,001158: 04,2420 00176 ADRES UTFLAG
009328,001159:
009329,001160: 04,2421 40074 UTOFF CS FLAGWRD0 # HAS P20 BEEN ON
009330,001161: 04,2422 74762 MASK RNDVZBIT
009331,001162: 04,2423 00006 EXTEND
009332,001163: 04,2424 12431 BZF NOP20 # YES
009333,001164: 04,2425 05547 TC UPFLAG
009334,001165: 04,2426 00236 ADRES AUTOSEQ # SET TO CAUSE RETURN FROM P20
009335,001166:
009336,001167: 04,2427 34124 CAF DEC20 # NO - TURN ON P20
009337,001168: 04,2430 02507 TC AUTOSET
009338,001169: 04,2431 31113 NOP20 CA TEMPMM
009339,001170: 04,2432 55200 AUTOSETA TS MMNUMBER
009340,001171: 04,2433 02044 TC AUTO37
009341,001172: 04,2434 30002 MINKDISP CA Q
009342,001173: 04,2435 55012 TS AUTPOINT
009343,001174: 04,2436 45011 CS DEC50
009344,001175: 04,2437 61200 AD MMNUMBER
009345,001176: 04,2440 05347 TC NEWMODEA # CHANGE MAJOR MODE TO 30'S
009346,001177: 04,2441 04432 TC RELDSP
009347,001178: 04,2442 34777 CAF CKLSTAUT
009348,001179: 04,2443 04636 TC BANKCALL
009349,001180: 04,2444 21067 CADR GOPERF1
009350,001181: 04,2445 14103 TCF GOTOPOOH
009351,001182: 04,2446 02452 TC STARTAUT # PRO - DO MINKEY
009352,001183: 04,2447 05561 TC DOWNFLAG # ENTER - NO MINKEY
009353,001184: 04,2450 00236 ADRES AUTOSEQ
009354,001185: 04,2451 01012 TC AUTPOINT
009355,001186: 04,2452 30107 STARTAUT CA FLGWRD11 # INITIALIZE MINKEY
009356,001187: 04,2453 74761 MASK AZIMBIT
009357,001188: # # Page 216
009358,001189: 04,2454 10000 CCS A
009359,001190: 04,2455 12470 TCF STRTAUT1
009360,001191: 04,2456 05547 TC UPFLAG
009361,001192: 04,2457 00254 ADRES AZIMFLAG
009362,001193: 04,2460 22007 ZL
009363,001194: 04,2461 40106 CS FLGWRD10
009364,001195: 04,2462 74756 MASK HDSUPBIT
009365,001196: 04,2463 00006 EXTEND
009366,001197: 04,2464 12467 BZF +3
009367,001198: 04,2465 00006 EXTEND
009368,001199: 04,2466 33760 DCA XUNIT
009369,001200: 04,2467 53353 DXCH AZIMANGL
009370,001201: 04,2470 40101 STRTAUT1 CS FLAGWRD5
009371,001202: 04,2471 74770 MASK RENDWBIT
009372,001203: 04,2472 00006 EXTEND
009373,001204: 04,2473 12500 BZF +5 # YES
009374,001205: 04,2474 05547 TC UPFLAG # NO
009375,001206: 04,2475 00240 ADRES MANEUFLG
009376,001207: 04,2476 05547 TC UPFLAG
009377,001208: 04,2477 00241 ADRES PTV93FLG
009378,001209: 04,2500 05547 TC UPFLAG
009379,001210: 04,2501 00215 ADRES VHFRFLAG # EQUIVALENT TO A V87
009380,001211:
009381,001212: 04,2502 05561 TC DOWNFLAG
009382,001213: 04,2503 00244 ADRES PCFLAG
009383,001214: 04,2504 05547 TC UPFLAG
009384,001215: 04,2505 00236 ADRES AUTOSEQ
009385,001216:
009386,001217: 04,2506 01012 TC AUTPOINT
009387,001218: 04,2507 00006 AUTOSET EXTEND
009388,001219: 04,2510 23356 QXCH AUTTEMP
009389,001220: 04,2511 55200 +2 TS MMNUMBER
009390,001221: 04,2512 05402 TC PHASCHNG
009391,001222: 04,2513 04024 OCT 04024
009392,001223:
009393,001224: 04,2514 31356 CA AUTTEMP
009394,001225: 04,2515 55012 TS AUTPOINT
009395,001226:
009396,001227: 04,2516 02044 TC AUTO37
009397,001228:
009398,001229: 04,2517 00006 BURNHOW EXTEND
009399,001230: 04,2520 23356 QXCH AUTTEMP
009400,001231: 04,2521 06006 TC INTPRET
009401,001232: 04,2522 51575 VLOAD ABVAL
009402,001233: 04,2523 03405 DELVLVC
009403,001234: 04,2524 51025 DSU BPL
009404,001235: 04,2525 10536 DV40/41 # THRESHOLD DELTA V FOR SPS BURN
009405,001236: 04,2526 10532 P40BURN
009406,001237: 04,2527 77776 EXIT
009407,001238: 04,2530 32377 CAF DEC41 # CALL P41
009408,001239:
009409,001240: # # Page 217
009410,001241:
009411,001242: 04,2531 02511 TC AUTOSET +2
009412,001243: 04,2532 77776 P40BURN EXIT
009413,001244: 04,2533 35004 CAF DEC40 # CALL P40
009414,001245: 04,2534 02511 TC AUTOSET +2
009415,001246: 04,2535 00002 27311 DV40/41 2DEC .021336 B-7 # 7 PPS IN M/CS B-7
009416,001247:
009417,001248: 04,2537 02434 P81 TC MINKDISP
009418,001249: 04,2540 34342 P81CONT1 CAF DEC31
009419,001250: 04,2541 02507 TC AUTOSET
009420,001251: 04,2542 02517 TC BURNHOW
009421,001252: 04,2543 02724 TC AFTERBRN
009422,001253: 04,2544 12546 TCF P82CONT1
009423,001254: 04,2545 02434 P82 TC MINKDISP
009424,001255: 04,2546 05561 P82CONT1 TC DOWNFLAG
009425,001256: 04,2547 00256 ADRES CSISFLAG
009426,001257: 04,2550 34763 P82CONT2 CAF DEC32
009427,001258: 04,2551 02507 TC AUTOSET
009428,001259: 04,2552 02517 TC BURNHOW
009429,001260: 04,2553 02724 TC AFTERBRN
009430,001261: 04,2554 E7,1765 EBANK= NN
009431,001262: 04,2554 35046 CAF EBANK7
009432,001263: 04,2555 54003 TS EBANK
009433,001264: 04,2556 31765 CA NN
009434,001265: 04,2557 67701 AD NEG2
009435,001266: 04,2560 55414 TS RTARG
009436,001267:
009437,001268: 04,2561 05402 TC PHASCHNG
009438,001269: 04,2562 04024 OCT 04024
009439,001270:
009440,001271: 04,2563 31414 CA RTARG
009441,001272: 04,2564 55765 TS NN
009442,001273: 04,2565 67701 AD NEG2
009443,001274: 04,2566 40000 COM
009444,001275: 04,2567 00006 EXTEND
009445,001276: 04,2570 62572 BZMF +2 # N = 2 OR GREATER
009446,001277: 04,2571 12607 TCF P86CONT1 # N = 1
009447,001278: 04,2572 05547 TC UPFLAG
009448,001279: 04,2573 00256 ADRES CSISFLAG
009449,001280: 04,2574 06006 TC INTPRET
009450,001281: 04,2575 77745 DLOAD
009451,001282: 04,2576 02351 TCSI2
009452,001283: 04,2577 02463 STORE TCSI
009453,001284: 04,2600 77776 EXIT
009454,001285: 04,2601 31765 CA NN
009455,001286: 04,2602 67701 AD NEG2
009456,001287: 04,2603 00006 EXTEND
009457,001288: 04,2604 62540 BZMF P81CONT1 # N = 2 HAM
009458,001289: 04,2605 02546 TC P82CONT1 # MULTIPLE CSIS
009459,001290: 04,2606 02434 P86 TC MINKDISP
009460,001291: 04,2607 32402 P86CONT1 CAF DEC36
009461,001292: # # Page 218
009462,001293: 04,2610 02507 TC AUTOSET
009463,001294: 04,2611 06006 TC INTPRET
009464,001295: 04,2612 51575 VLOAD ABVAL
009465,001296: 04,2613 03405 DELVLVC
009466,001297: 04,2614 77454 BZE EXIT
009467,001298: 04,2615 10642 NOPC
009468,001299: 04,2616 32401 CAF DEC52
009469,001300: 04,2617 02507 TC AUTOSET
009470,001301: 04,2620 40106 CS FLGWRD10
009471,001302: 04,2621 74770 MASK PCBIT
009472,001303: 04,2622 00006 EXTEND
009473,001304: 04,2623 12637 BZF DOP41 # PULSE TORQUING NOT DONE - CALL P41
009474,001305: 04,2624 02517 TC BURNHOW # P40 OR P41
009475,001306: 04,2625 02724 TC AFTERBRN
009476,001307: 04,2626 05547 P86CONT2 TC UPFLAG
009477,001308: 04,2627 00226 ADRES PCMANFLG
009478,001309: 04,2630 34124 CAF DEC20 # MANEUVER TO TRACK ATTITUDE
009479,001310: 04,2631 02507 TC AUTOSET
009480,001311: 04,2632 05561 TC DOWNFLAG
009481,001312: 04,2633 00226 ADRES PCMANFLG
009482,001313: 04,2634 32401 CAF DEC52
009483,001314: 04,2635 02507 TC AUTOSET
009484,001315: 04,2636 02647 TC P83CONT1
009485,001316: 04,2637 32377 DOP41 CAF DEC41
009486,001317: 04,2640 02507 TC AUTOSET
009487,001318: 04,2641 02644 TC PCP76
009488,001319: 04,2642 77414 NOPC SET EXIT
009489,001320: 04,2643 05065 BURNFLAG
009490,001321: 04,2644 02724 PCP76 TC AFTERBRN
009491,001322: 04,2645 02647 TC P83CONT1
009492,001323: 04,2646 02434 P83 TC MINKDISP
009493,001324: 04,2647 35003 P83CONT1 CAF DEC33
009494,001325: 04,2650 02507 TC AUTOSET
009495,001326: 04,2651 02517 TC BURNHOW
009496,001327: 04,2652 05547 TC UPFLAG # SET TO INDICATE PASSIVE CDH
009497,001328: 04,2653 00050 ADRES AVFLAG
009498,001329: 04,2654 02724 TC AFTERBRN
009499,001330: 04,2655 12657 TCF P84CONT1
009500,001331: 04,2656 02434 P84 TC MINKDISP
009501,001332: 04,2657 34260 P84CONT1 CAF DEC34
009502,001333: 04,2660 02507 TC AUTOSET
009503,001334: 04,2661 02517 TC BURNHOW
009504,001335: 04,2662 02724 TC AFTERBRN
009505,001336: 04,2663 12665 TCF P85CONT1
009506,001337: 04,2664 02434 P85 TC MINKDISP
009507,001338: 04,2665 32403 P85CONT1 CAF DEC35
009508,001339: 04,2666 02507 TC AUTOSET
009509,001340: 04,2667 02517 TC BURNHOW
009510,001341: 04,2670 02724 TC AFTERBRN
009511,001342: 04,2671 32403 P89CONT1 CAF DEC35
009512,001343: # # Page 219
009513,001344: 04,2672 02507 TC AUTOSET
009514,001345: 04,2673 02517 TC BURNHOW
009515,001346: 04,2674 02724 TC AFTERBRN
009516,001347: 04,2675 32404 CAF DEC79
009517,001348: 04,2676 02432 TC AUTOSETA
009518,001349: 04,2677 COUNT* $$/P79
009519,001350: 04,2677 05547 P79 TC UPFLAG
009520,001351: 04,2700 00226 ADRES PCMANFLG # FORCE P20 TO EXIT AFTER MANEUVER
009521,001352:
009522,001353: 04,2701 05547 TC UPFLAG
009523,001354: 04,2702 00031 ADRES TRACKFLG
009524,001355:
009525,001356: 04,2703 34772 CAF ZERO
009526,001357: 04,2704 54001 TS L
009527,001358: 04,2705 53740 DXCH UTPIT
009528,001359:
009529,001360: 04,2706 32715 CAF P79LOCRT
009530,001361: 04,2707 55012 TS AUTPOINT
009531,001362: 04,2710 12452 TCF STARTAUT
009532,001363: 04,2711 32714 P791 CAF P79LOC
009533,001364: 04,2712 55012 TS AUTPOINT
009534,001365:
009535,001366: 04,2713 05205 TC ENDOFJOB
009536,001367: 04,2714 02716 P79LOC ADRES P79A
009537,001368:
009538,001369: 04,2715 02711 P79LOCRT ADRES P791
009539,001370:
009540,001371: 04,2716 35047 P79A CAF PRIO5
009541,001372: 04,2717 05135 TC FINDVAC
009542,001373: 04,2720 E4,1760 EBANK= SUBEXIT
009543,001374: 04,2720 02564 66104 2CADR V83PERF
009544,001375:
009545,001376: 04,2722 04655 TC POSTJUMP # RETURN TO P20 FOR TRACKING
009546,001377: 04,2723 74207 CADR P20TRACK
009547,001378: 04,2724 COUNT* $$/MNKEY
009548,001379: 04,2724 00006 AFTERBRN EXTEND
009549,001380: 04,2725 23356 QXCH AUTTEMP
009550,001381: 04,2726 35051 CAF PRIO7
009551,001382: 04,2727 05135 TC FINDVAC
009552,001383: 04,2730 0003777 EBANK= WHOCARES
009553,001384: 04,2730 02000 56067 2CADR HARTBURN
009554,001385:
009555,001386: 04,2732 05205 TC ENDOFJOB
009556,001387: 04,2733 77776 TIG76 EXIT
009557,001388: 04,2734 32400 CAF DEC76 # CALL P76
009558,001389: 04,2735 02511 TC AUTOSET +2
009559,001390: 27,2000 SETLOC JANESUB
009560,001391: 27,2000 BANK
009561,001392: 27,2000 COUNT* $$/MNKEY
009562,001393: 27,2000 06006 HARTBURN TC INTPRET
009563,001394: # # Page 220
009564,001395: 27,2001 77201 SETPD VLOAD
009565,001396: 27,2002 00001 0
009566,001397: 27,2003 15336 ZEROVECS
009567,001398: 27,2004 77614 BON
009568,001399: 27,2005 05305 BURNFLAG
009569,001400: 27,2006 56042 GOP76
009570,001401: 27,2007 77214 BOFF VLOAD
009571,001402: 27,2010 05354 TPIMNFLG
009572,001403: 27,2011 56044 NOTTPI
009573,001404: 27,2012 03554 RPASS3
009574,001405: 27,2013 26561 STOVL BURNTMP2
009575,001406: 27,2014 03540 RACT3
009576,001407: 27,2015 26553 STOVL BURNTMP1
009577,001408: 27,2016 03546 VACT3
009578,001409: 27,2017 26567 STOVL BURNTMP3
009579,001410: 27,2020 03562 VPASS3
009580,001411: 27,2021 02575 STORE BURNTMP4
009581,001412: 27,2022 77776 EXIT
009582,001413: 27,2023 05402 TC PHASCHNG
009583,001414: 27,2024 04024 OCT 04024
009584,001415:
009585,001416: 27,2025 06006 TC INTPRET
009586,001417: 27,2026 77775 VLOAD
009587,001418: 27,2027 02567 BURNTMP3
009588,001419: 27,2030 27562 STOVL VPASS3
009589,001420: 27,2031 02561 BURNTMP2
009590,001421: 27,2032 27540 STOVL RACT3
009591,001422: 27,2033 02553 BURNTMP1
009592,001423: 27,2034 27554 STOVL RPASS3
009593,001424: 27,2035 02575 BURNTMP4
009594,001425: 27,2036 37546 STCALL VACT3
009595,001426: 27,2037 74000 S34/35.1
009596,001427: 27,2040 77624 CALL
009597,001428: 27,2041 72561 S34/35.2 # COMPUTE DV(LV)
009598,001429: 27,2042 37540 GOP76 STCALL DELVOV
009599,001430: 27,2043 10733 TIG76
009600,001431: 27,2044 71214 NOTTPI BOFF DLOAD
009601,001432: 27,2045 01352 AVFLAG
009602,001433: 27,2046 56066 NOTCDH
009603,001434: 27,2047 03450 NOMTIG
009604,001435: 27,2050 77624 CALL
009605,001436: 27,2051 76560 ADVANCE
009606,001437: 27,2052 77624 CALL
009607,001438: 27,2053 56674 CDHMVR
009608,001439: 27,2054 77624 CALL
009609,001440: 27,2055 32050 S32/33.X
009610,001441: 27,2056 64375 VLOAD MXV
009611,001442: 27,2057 03667 DELVEET2
009612,001443: 27,2060 00001 0D
009613,001444: 27,2061 77772 VSL1
009614,001445: # # Page 221
009615,001446: 27,2062 17540 STODL DELVOV
009616,001447: 27,2063 02603 CMYDOT
009617,001448: 27,2064 77650 GOTO
009618,001449: 27,2065 56072 STORDV
009619,001450: 27,2066 57575 NOTCDH VLOAD VCOMP
009620,001451: 27,2067 03405 DELVLVC
009621,001452: 27,2070 17540 STODL DELVOV
009622,001453: 27,2071 02605 LMYDOT
009623,001454: 27,2072 37542 STORDV STCALL DELVOV +2
009624,001455: 27,2073 10733 TIG76
009625,001456: 27,2074 30,2000 SBANK= LOWSUPER
009626,001457: 04,2000 SETLOC VERB37
009627,001458: 04,2000 BANK
009628,001459:
009629,001460: 04,2736 COUNT* $$/V37
009630,001461: 04,2736 4765 OCT00010 EQUALS BIT4
009631,001462: 04,2736 00004 V37XEQ INHINT
009632,001463: 04,2737 35052 CAF PRIO13
009633,001464: 04,2740 55266 TS PHSPRDT4 # PRESTART GROUP4 RESTART PRIORITY
009634,001465: 04,2741 54063 V37XEQ+3 TS NEWPRIO # STORE PRIO FOR SPVAC
009635,001466: 04,2742 51177 INDEX MINDEX
009636,001467: 04,2743 33124 CAF PREMM1
009637,001468: 04,2744 55264 TS MMTEMP # OBTAIN PRIORITY BITS 15 - 11
009638,001469: 04,2745 00006 EXTEND
009639,001470: 04,2746 74761 MP BIT8
009640,001471: 04,2747 74774 MASK LOW3
009641,001472: 04,2750 54001 TS L
009642,001473: 04,2751 51177 INDEX MINDEX
009643,001474: 04,2752 33055 CAF FCADRMM1
009644,001475: 04,2753 55265 TS BASETEMP
009645,001476: 04,2754 74344 MASK HI5
009646,001477: 04,2755 26001 ADS L
009647,001478:
009648,001479: 04,2756 31265 CA BASETEMP # OBTAIN GENADR PORTION OF 2CADR.
009649,001480: 04,2757 75041 MASK LOW10
009650,001481: 04,2760 64756 AD BIT11
009651,001482:
009652,001483: 04,2761 05146 TC SPVAC
009653,001484:
009654,001485: 04,2762 31264 V37XEQC CA MMTEMP # UPON RETURN FROM FINDVAC PLACE THE
009655,001486: 04,2763 76043 MASK LOW7 # NEW MM IN MODREG (THE LOW 7 BITS OF
009656,001487: 04,2764 05347 TC NEWMODEA # PHSBRDT1)
009657,001488:
009658,001489: 04,2765 04432 TC RELDSP # RELEASE DISPLAY
009659,001490: 04,2766 05205 TC ENDOFJOB # AND EXIT
009660,001491:
009661,001492: 04,2767 00004 INITSUB INHINT
009662,001493: 04,2770 34775 CAF ELEVEN # CLEAR INDICATED FLAG BITS
009663,001494: 04,2771 54154 RAKE TS MPAC # LOOP STARTS HERE
009664,001495: # # Page 222
009665,001496: 04,2772 50154 INDEX MPAC
009666,001497: 04,2773 43032 CS FLAGTABL
009667,001498: 04,2774 50154 INDEX MPAC
009668,001499: 04,2775 70074 MASK FLAGWRD0
009669,001500: 04,2776 50154 INDEX MPAC # RESTORE REVISED FLAGWORD
009670,001501: 04,2777 54074 TS FLAGWRD0
009671,001502:
009672,001503: 04,3000 10154 CCS MPAC
009673,001504: 04,3001 12771 TCF RAKE
009674,001505:
009675,001506: 04,3002 00006 INITSUBA EXTEND
009676,001507: 04,3003 22155 QXCH MPAC +1
009677,001508:
009678,001509: 04,3004 00004 INHINT
009679,001510: 04,3005 34764 CAF TRACKBIT # BYPASS IF TRACKFLG ON
009680,001511: 04,3006 70075 MASK FLAGWRD1
009681,001512: 04,3007 10000 CCS A
009682,001513: 04,3010 13024 TCF INITRET
009683,001514: 04,3011 04611 TC E6SETTER # FOR DB CODE.. STARTSB2 WILL RESET.
009684,001515: 04,3012 04463 TC STOPRATE
009685,001516:
009686,001517: 04,3013 30105 CA FLAGWRD9 # RESTORE DEADBAND
009687,001518: 04,3014 74755 MASK MAXDBBIT
009688,001519: 04,3015 10000 CCS A
009689,001520: 04,3016 13022 TCF SETMAXER # MAX DB SELECTED
009690,001521: 04,3017 04636 TC BANKCALL # MIN DB SELECTED
009691,001522: 04,3020 51203 CADR SETMINDB
009692,001523: 04,3021 13024 TCF INITRET
009693,001524:
009694,001525: 04,3022 04636 SETMAXER TC BANKCALL
009695,001526: 04,3023 51217 CADR SETMAXDB
009696,001527:
009697,001528: 04,3024 00003 INITRET RELINT
009698,001529: 04,3025 37702 CA NEGONE
009699,001530: 04,3026 55323 TS OPTIND
009700,001531: 04,3027 00155 TC MPAC +1 # RETURN FROM INITSUB
009701,001532:
009702,001533: 04,3030 03002 INITSUBB TC INITSUBA # ENTRANCE USED BY RTB CALL FROM V56
009703,001534: 04,3031 06030 TC DANZIG
009704,001535:
009705,001536: 04,3032 00001 FLAGTABL OCT 1 # P29FLAG
009706,001537: 04,3033 00040 OCT 40 # IDLEFAIL
009707,001538: 04,3034 06400 OCT 06400 # P21FLAG,STEERSW,IMPULSW
009708,001539: 04,3035 20400 OCT 20400 # GLOKFAIL, POOFLAG
009709,001540: 04,3036 00000 OCT 0
009710,001541: 04,3037 05100 OCT 05100 # V59FLAG,NEWTFLAG,ENGONFLG
009711,001542: 04,3040 10000 OCT 10000 # STRULLSW
009712,001543: 04,3041 16000 OCT 16000 # IGNFLAG,ASTNFLAG,TIMRFLAG
009713,001544: 04,3042 00000 OCT 0
009714,001545: 04,3043 42000 OCT 42000 # SWTOVER,V94FLAG
009715,001546: # # Page 223
009716,001547: 04,3044 00000 OCT 0
009717,001548: 04,3045 00000 OCT 0
009718,001549:
009719,001550: 20,2000 SETLOC VAC5LOC
009720,001551: 20,2000 BANK
009721,001552: 20,2000 COUNT* $$/START
009722,001553: 20,2000 34772 VAC5STOR CA ZERO # INITIALIZE INDEX REGISTERS
009723,001554: 20,2001 54061 TS ITEMP1
009724,001555: 20,2002 54062 TS ITEMP2
009725,001556:
009726,001557: 20,2003 00006 V5LOOP1 EXTEND # LOOP TO STORE LOCS, BANKSETS, AND PRIOS.
009727,001558: 20,2004 50061 INDEX ITEMP1
009728,001559: 20,2005 30165 DCA LOC
009729,001560: 20,2006 50062 INDEX ITEMP2
009730,001561: 20,2007 52662 DXCH VAC5
009731,001562:
009732,001563: 20,2010 50061 INDEX ITEMP1
009733,001564: 20,2011 30167 CA PRIORITY
009734,001565: 20,2012 50062 INDEX ITEMP2
009735,001566: 20,2013 54663 TS VAC5 +2
009736,001567:
009737,001568: 20,2014 40062 CS ITEMP2 # HAVE WE STORED THEM ALL?
009738,001569: 20,2015 65000 AD EIGHTEEN
009739,001570: 20,2016 00006 EXTEND
009740,001571: 20,2017 12025 BZF V5OUT1 # YES, GET PHASE INFORMATION.
009741,001572:
009742,001573: 20,2020 35775 CA TWELVE # NO, INCREMENT INDEXES AND LOOP.
009743,001574: 20,2021 26061 ADS ITEMP1
009744,001575: 20,2022 36214 CA THREE
009745,001576: 20,2023 26062 ADS ITEMP2
009746,001577: 20,2024 12003 TCF V5LOOP1
009747,001578:
009748,001579: 20,2025 E3,1436 EBANK= PHSNAME1
009749,001580: 20,2025 35024 V5OUT1 CA EBANK3 # PHSNAME REGISTERS ARE IN EBANK3.
009750,001581: 20,2026 54003 TS EBANK
009751,001582:
009752,001583: 20,2027 34775 CA ELEVEN # GET PHASE 2CADRS.
009753,001584: 20,2030 05607 TC GENTRAN
009754,001585: 20,2031 01436 ADRES PHSNAME1
009755,001586: 20,2032 00706 ADRES VAC5 +21D
009756,001587:
009757,001588: 20,2033 34772 CA ZERO # NOW INITIALIZE INDEXES AGAIN.
009758,001589: 20,2034 54061 TS ITEMP1
009759,001590: 20,2035 54062 TS ITEMP2
009760,001591:
009761,001592: 20,2036 50061 V5LOOP2 INDEX ITEMP1 # LOOP TO GET PHASE TABLES.
009762,001593: 20,2037 31156 CA PHASE1
009763,001594: 20,2040 50062 INDEX ITEMP2
009764,001595: 20,2041 54722 TS VAC5 +33D
009765,001596: # # Page 224
009766,001597: 20,2042 40062 CS ITEMP2 # DO WE HAVE THEM ALL?
009767,001598: 20,2043 64773 AD FIVE
009768,001599: 20,2044 00006 EXTEND
009769,001600: 20,2045 12052 BZF V5OUT2 # YES, GO FINISH UP.
009770,001601:
009771,001602: 20,2046 34767 CA TWO # NO, INCREMENT INDEXES AND LOOP.
009772,001603: 20,2047 26061 ADS ITEMP1
009773,001604: 20,2050 24062 INCR ITEMP2
009774,001605: 20,2051 12036 TCF V5LOOP2
009775,001606:
009776,001607: 20,2052 30157 V5OUT2 CA MPAC +3
009777,001608: 20,2053 54730 TS VAC5 +39D
009778,001609:
009779,001610: 20,2054 00006 EXTEND
009780,001611: 20,2055 30066 DCA NEWLOC
009781,001612: 20,2056 52732 DXCH VAC5 +40D
009782,001613:
009783,001614: 20,2057 30067 CA NEWJOB
009784,001615: 20,2060 54707 TS VAC5 +22D
009785,001616:
009786,001617: 20,2061 30063 CA NEWPRIO
009787,001618: 20,2062 54713 TS VAC5 +26D
009788,001619:
009789,001620: 20,2063 04651 TC SWRETURN
009790,001621:
009791,001622: 20,2064 5000 EIGHTEEN EQUALS OCT22
009792,001623: 04,2000 SETLOC VERB37
009793,001624: 04,2000 BANK
009794,001625:
009795,001626: 04,3046 COUNT* $$/V37
009796,001627: 04,3046 5736 NEG7 EQUALS OCT77770
009797,001628:
009798,001629: 04,3046 44571 OCT44571 OCT 44571 # CONSTANTS TO CLEAR CHANNEL BITS IN V37
009799,001630: 04,3047 00600 OCT600 OCT 600
009800,001631: 04,3050 00300 BIT7-8 OCT 300
009801,001632: 04,3051 01120 OCT01120 OCT 01120
009802,001633:
009803,001634: 04,3052 10741 V37QCAD CADR V37XEQ+3
009804,001635: 04,3053 10171 ROOAD CADR DUMMYAD
009805,001636: 04,3054 37312 3.1SEC OCT 37312 # 2.5 + 0.6 SEC
009806,001637:
009807,001638: # FOR VERB 37 TWO TABLES ARE MAINTAINED. EACH TABLE HAS AN ENTRY FOR EACH
009808,001639: # MAJOR MODE THAT CAN BE STARTED FROM THE KEYBOARD. THE ENTRIES ARE PUT
009809,001640: # INTO THE TABLE WITH THE ENTRY FOR THE HIGHEST MAJOR MODE COMING FIRST,
009810,001641: # TO THE LOWEST MAJOR MODE WHICH IS THE LAST ENTRY IN EACH TABLE.
009811,001642:
009812,001643: # THE FCADRMM TABLE CONTAINS THE FCADR OF THE STARTING JOB OF
009813,001644: # THE MAJOR MODE. FOR EXAMPLE,
009814,001645:
009815,001646: # FCADRMM1 FCADR P79 # START OF P 79
009816,001647: # # Page 225
009817,001648: # FCADR PROG18 # START OF P 18
009818,001649: # FCADR P01 # START OF P 01
009819,001650:
009820,001651: 04,3055 FCADRMM1 EQUALS
009821,001652: 04,3055 10606 FCADR P86
009822,001653: 04,3056 10664 FCADR P85
009823,001654: 04,3057 10656 FCADR P84
009824,001655: 04,3060 10646 FCADR P83
009825,001656: 04,3061 10545 FCADR P82
009826,001657: 04,3062 10537 FCADR P81
009827,001658: 04,3063 10677 FCADR P79
009828,001659: 04,3064 26071 FCADR P76ER77
009829,001660: 04,3065 26071 FCADR P76ER77
009830,001661: 04,3066 72212 FCADR P75
009831,001662: 04,3067 72002 FCADR P74
009832,001663: 04,3070 11575 FCADR P73
009833,001664: 04,3071 11405 FCADR P72
009834,001665: 04,3072 54321 FCADR P62
009835,001666: 04,3073 54234 FCADR P61
009836,001667: 04,3074 30002 FCADR P54
009837,001668: 04,3075 31414 FCADR P53
009838,001669: 04,3076 30002 FCADR PROG52
009839,001670: 04,3077 31414 FCADR P51
009840,001671: 04,3100 51662 FCADR P47CSM
009841,001672: 04,3101 51563 FCADR P41CSM
009842,001673: 04,3102 50214 FCADR P40CSM
009843,001674: 04,3103 74476 FCADR P37
009844,001675: 04,3104 45334 FCADR P36
009845,001676: 04,3105 72206 FCADR P35
009846,001677: 04,3106 72000 FCADR P34
009847,001678: 04,3107 11573 FCADR P33
009848,001679: 04,3110 11403 FCADR P32
009849,001680: 04,3111 11303 FCADR P31
009850,001681: 04,3112 73433 FCADR P30
009851,001682: 04,3113 60000 FCADR P29
009852,001683: 04,3114 26254 FCADR PROG24
009853,001684: 04,3115 62444 FCADR P23
009854,001685: 04,3116 60153 FCADR PROG22
009855,001686: 04,3117 76000 FCADR PROG21
009856,001687: 04,3120 74016 FCADR PROG20
009857,001688: 04,3121 67455 FCADR P15JOB
009858,001689: 04,3122 55654 FCADR P06
009859,001690: 04,3123 66001 FCADR GTSCPSS1 # GYROCOMPASS STANDARD LEAD IN.
009860,001691:
009861,001692: # THE PREMM TABLE CONTAINS THE E-BANK, MAJOR MODE, AND DOWNLINK INFO.
009862,001693: # IT IS IN THE FOLLOWING FORMAT
009863,001694: # DDD 00E EEM MMM MMM
009864,001695: # WHERE THE 7 M BITS CONTAIN THE MAJOR MODE NUMBER
009865,001696: # 3 E BITS CONTAIN THE E-BANK NUMBER
009866,001697: # # Page 226
009867,001698: # 3 D BITS CONTAIN THE DOWNLIST ID
009868,001699:
009869,001700: # COAST AND ALIGN LIST = 0
009870,001701: # ENTRY LIST = 1
009871,001702: # RENDEZVOUS LIST = 2
009872,001703: # POWERED FLIGHT LIST = 3
009873,001704: # P22 LIST = 4
009874,001705:
009875,001706: # FOR EXAMPLE,
009876,001707:
009877,001708: # OCT 21137 # DOWNLIST = 2 (RENDEZVOUS)
009878,001709: # # E-BANK = 4
009879,001710: # # MAJOR MODE = 95
009880,001711:
009881,001712: # OCT 11476 # DOWNLIST = 1 (ENTRY)
009882,001713: # # E-BANK = 6
009883,001714: # # MAJOR MODE = 62
009884,001715:
009885,001716: 04,3124 PREMM1 EQUALS
009886,001717: 04,3124 21526 OCT 21526 # MM 86 EBANK 6 DOWNLIST 2
009887,001718: 04,3125 21525 OCT 21525 # MM 85 EBANK 6 DOWNLIST 2
009888,001719: 04,3126 21524 OCT 21524 # MM 84 EBANK 6 DOWNLIST 2
009889,001720: 04,3127 21523 OCT 21523 # MM 83 EBANK 6 DOWNLIST 2
009890,001721: 04,3130 21522 OCT 21522 # MM 82 EBANK 6 DOWNLIST 2
009891,001722: 04,3131 21521 OCT 21521 # MM 81 EBANK 6 DOWNLIST 2
009892,001723: 04,3132 21717 OCT 21717 # MM 79 EBANK 7 DOWNLIST 2
009893,001724: 04,3133 21715 OCT 21715
009894,001725: 04,3134 21714 OCT 21714 # MM 76 EBANK 7 DOWNLIST 2
009895,001726: 04,3135 21113 OCT 21113 # MM 75 EBANK 4 DOWNLIST 2
009896,001727: 04,3136 21112 OCT 21112 # MM 74 EBANK 4 DOWNLIST 2
009897,001728: 04,3137 21111 OCT 21111 # MM 73 EBANK 4 DOWNLIST 2
009898,001729: 04,3140 21110 OCT 21110 # MM 72 EBANK 4 DOWNLIST 2
009899,001730: 04,3141 11476 OCT 11476 # MM 62 EBANK 6 DOWNLIST 1
009900,001731: 04,3142 31475 OCT 31475 # MM 61 EBANK 6 DOWNLIST 3
009901,001732: 04,3143 01266 OCT 01266 # MM 54 EBANK 5 DOWNLIST 0
009902,001733: 04,3144 01265 OCT 01265 # MM 53 EBANK 5 DOWNLIST 0
009903,001734: 04,3145 01264 OCT 01264 # MM 52 EBANK 5 DOWNLIST 0
009904,001735: 04,3146 01263 OCT 01263 # MM 51 EBANK 5 DOWNLIST 0
009905,001736: 04,3147 31657 OCT 31657 # MM 47 EBANK 7 DOWNLIST 3
009906,001737: 04,3150 31451 OCT 31451 # MM 41 EBANK 6 DOWNLIST 3
009907,001738: 04,3151 31450 OCT 31450 # MM 40 EBANK 6 DOWNLIST 3
009908,001739: 04,3152 21645 OCT 21645 # MM 37 EBANK 7 DOWNLIST 2
009909,001740: 04,3153 21044 OCT 21044 # MM 36 EBANK 4 DOWNLIST 2
009910,001741: 04,3154 21043 OCT 21043 # MM 35 EBANK 4 DOWNLIST 2
009911,001742: 04,3155 21042 OCT 21042 # MM 34 EBANK 4 DOWNLIST 2
009912,001743: 04,3156 21041 OCT 21041 # MM 33 EBANK 4 DOWNLIST 2
009913,001744: 04,3157 21040 OCT 21040 # MM 32 EBANK 4 DOWNLIST 2
009914,001745: 04,3160 21037 OCT 21037 # MM 31 EBANK 4 DOWNLIST 2
009915,001746: 04,3161 21636 OCT 21636 # MM 30 EBANK 7 DOWNLIST 2
009916,001747: 04,3162 21635 OCT 21635 # MM 29 EBANK 7 DOWNLIST 2
009917,001748: # # Page 227
009918,001749: 04,3163 41230 OCT 41230 # MM 24 EBANK 5 DOWNLIST 4
009919,001750: 04,3164 21627 OCT 21627 # MM 23 EBANK 7 DOWNLIST 2
009920,001751: 04,3165 41626 OCT 41626 # MM 22 EBANK 7 DOWNLIST 4
009921,001752: 04,3166 21025 OCT 21025 # MM 21 EBANK 4 DOWNLIST 2
009922,001753: 04,3167 21424 OCT 21424 # MM 20 EBANK 6 DOWNLIST 2
009923,001754: 04,3170 31617 OCT 31617 # MM 15 EBANK 7 DOWNLIST 3
009924,001755: 04,3171 01006 OCT 01006 # MM 06 EBANK 4 DOWNLIST 0
009925,001756: 04,3172 01201 OCT 01201 # MM 01 EBANK 5 DOWNLIST 0
009926,001757:
009927,001758: # NOTE: THE FOLLOWING CONSTANT IS THE NUMBER OF ENTRIES IN EACH OF
009928,001759: # ----- THE ABOVE LISTS-1 (I.E., THE NUMBER OF MAJOR MODES (EXCEPT P00)
009929,001760: # THAT CAN BE CALLED FROM THE KEYBOARD MINUS ONE)
009930,001761:
009931,001762: 04,3173 EPREMM1 EQUALS # END OF PREMM1 TABLE
009932,001763: 04,3124 SETLOC PREMM1 # THIS CODING WILL AUTOMATICALLY CHANGE
009933,001764: 04,3124 NO.MMS =MINUS EPREMM1 # THE 'NOV37MM' CONSTANT AS ENTRIES ARE
009934,001765: 04,2000 SETLOC VERB37 # INSERTED(IN) OR DELETED(FROM) THE
009935,001766: 04,2000 BANK # 'PREMM1' TABLE.
009936,001767:
009937,001768: 04,3173 00046 NOV37MM ADRES NO.MMS -1 # ITEMS IN 'PREMM1' TABLE - 1. *DON'T MOVE*
009938,001769:
009939,001770: 04,3174 4772 DNLADP00 = ZERO
009940,001771:
009941,001772: # ORBITAL INTEGRATION CONSTANTS
009942,001773:
009943,001774: # THESE CONSTANTS ARE USED IN COMPUTING THE SETTING OF MIDFLAG.
009944,001775:
009945,001776: 04,3174 00465 32324 RMM 2DEC 2538.09 E3 B-27 # 800 KM ABOVE LUNAR SURFACE
009946,001777:
009947,001778: 04,3176 00333 01733 RME 2DEC 7178165 B-29 # 800 KM ABOVE EQ. RADIUS
009948,001779:
009949,001780: 13,2000 SETLOC INTINIT
009950,001781: 13,2000 BANK
009951,001782:
009952,001783: 13,2000 COUNT* $$/INTIN
009953,001784:
009954,001785: 13,2000 E3,1554 EBANK= RRECTCSM
009955,001786:
009956,001787: 13,2000 43014 STATEUP SET BOF # EXTRAPOLATE CM STATE VECTOR
009957,001788: 13,2001 01474 VINTFLAG
009958,001789: 13,2002 01751 ORBWFLAG # ALSO 6X6 W-MATRIX IF VALID
009959,001790: 13,2003 26006 +3 # FOR ORBITAL NAVIGATION
009960,001791: 13,2004 77614 SET
009961,001792: 13,2005 01476 DIM0FLAG
009962,001793: 13,2006 45014 CLEAR CALL
009963,001794: 13,2007 01667 PRECIFLG
009964,001795: 13,2010 27236 INTEGRV
009965,001796: 13,2011 71214 BON DLOAD
009966,001797: 13,2012 04307 SURFFLAG
009967,001798: # # Page 228
009968,001799: 13,2013 26031 STATEND
009969,001800: 13,2014 01571 TETCSM
009970,001801: 13,2015 34041 STCALL TDEC1
009971,001802: 13,2016 27516 INTSTALL
009972,001803: 13,2017 45014 CLEAR CALL # EXTRAPOLATE LM STATE VECTOR
009973,001804: 13,2020 01674 VINTFLAG
009974,001805: 13,2021 26744 SETIFLGS # AND 6X6 W-MATRIX IF VALID
009975,001806: 13,2022 43014 BOF SET
009976,001807: 13,2023 02756 RENDWFLG # FOR RENDEZVOUS NAVIGATION
009977,001808: 13,2024 26026 +2
009978,001809: 13,2025 01476 DIM0FLAG
009979,001810: 13,2026 45014 SET CALL
009980,001811: 13,2027 01467 PRECIFLG
009981,001812: 13,2030 27236 INTEGRV
009982,001813: 13,2031 77614 STATEND CLRGO
009983,001814: 13,2032 01236 NODOFLAG
009984,001815: 13,2033 26732 ENDINT
009985,001816:
009986,001817: # THISVINT IS CALLED BY MIDTOAV1 AND 2
009987,001818:
009988,001819: 13,2034 43414 THISVINT SET RVQ
009989,001820: 13,2035 01474 VINTFLAG
End of include-file FRESH_START_AND_RESTART.agc. Parent file is MAIN.agc