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