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