Source Code

These source-code files were obtained by digitally photographing the Colossus 237 program listing from the private collection of original AGC developer Fred Martin, and then modifying pre-existing Colossus 249 (Apollo 9) source files to incorporate changes. 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, 1968

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

End of include-file FRESH_START_AND_RESTART.agc.  Parent file is MAIN.agc