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