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