Source Code

These source-code files were derived from scans of the Colossus 237 (Apollo 8 Command Module) program listing from the private collection of original AGC developer Fred Martin. Scanning was by Ron Burkey. Pre-existing Colossus 249 (Apollo 9 CM) source files were used as a template, and changes between Colossus 249 and Colossus 237 were manually transcribed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS 
	BY NASA 2021111-031  1:17 AUG. 24, 1968
Note that the date is the date of the printout, not the date of the program revision.

007577,000002:                                                                                                  ## Copyright:   Public domain.
007578,000003:                                                                                                  ## Filename:    FRESH_START_AND_RESTART.agc
007579,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus build 237.  
007580,000005:                                                                                                  ##              This is for the Command Module's (CM) Apollo Guidance
007581,000006:                                                                                                  ##              Computer (AGC), for Apollo 8.
007582,000007:                                                                                                  ## Assembler:   yaYUL
007583,000008:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
007584,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
007585,000010:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Colossus237/
007586,000011:                                                                                                  ## Mod history: 2011-01-10 JL   Adapted from corresponding Colossus 249 file.
007587,000012:                                                                                                  ##              2011-04-27 JL   Minor fixes.
007588,000013:                                                                                                  ##              2016-12-29 RSB  Proofed comment text using octopus/ProoferComments,
007589,000014:                                                                                                  ##                              and corrected errors found.
007590,000015:                                                                                                  ##              2017-01-14 RSB  Fixed comment-text errors discovered while proofing
007591,000016:                                                                                                  ##                              Colossus 249 comment text.
007592,000017:                                                                                                  ##              2017-01-28 RSB  WTIH -> WITH.
007593,000018: 

Page 176

007595,000020: 
007596,000021:                                                                                                  #  PROGRAM DESCRIPTION                                 8 APRIL, 1967
007597,000022:                                                                                                  #                                                      SUNDISK REV 120
007598,000023:                                                                                                  #  FUNCTIONAL DESCRIPTION
007599,000024: 
007600,000025:                                                                                                  #      SLAP1       MAN INITIATED FRESH START
007601,000026:                                                                                                  #        1. EXECUTE STARTSUB
007602,000027:                                                                                                  #        2. TURN OFF DSKY DISCRETE-LAMPS
007603,000028:                                                                                                  #        3. CLEAR FAIL REGISTERS,SELF CHECK ERROR COUNTER AND RESTART
007604,000029:                                                                                                  #           COUNTER
007605,000030:                                                                                                  #        4. EXECUTE DOFSTART
007606,000031: 
007607,000032:                                                                                                  #      DOFSTART    MACHINE INITIATED FRESH START
007608,000033: 
007609,000034:                                                                                                  #        1. CLEAR SELF-CHECK REGISTERS, MODE REGISTER AND CDUZ REGISTER
007610,000035:                                                                                                  #        2. CLEAR PHASE TABLE
007611,000036:                                                                                                  #        3. INITIALIZE IMU FLAGS
007612,000037:                                                                                                  #        4. INITIALIZE FLAGWORDS
007613,000038:                                                                                                  #        5. TRANSFER CONTROL TO IDLE LOOP IN DUMMYJOB
007614,000039: 
007615,000040:                                                                                                  #      GOPROG      HARDWARE RESTART
007616,000041: 
007617,000042:                                                                                                  #        0. EXECUTE STARTSUB
007618,000043:                                                                                                  #        1. TRANSFER CONTROL TO DOFSTART IF ANY OF THE FOLLOWING CONDITIONS
007619,000044:                                                                                                  #           EXIST.
007620,000045:                                                                                                  #           A. RESTART OCCURED DURING EXECUTION OF ERASCHK
007621,000046:                                                                                                  #           B. BOTH OSCILLATOR FAIL AND AGC WARNING ARE ON
007622,000047:                                                                                                  #           C. MARK REJECT AND EITHER NAV OR MAIN DSKY ERROR LIGHT RESET
007623,000048:                                                                                                  #              ARE ON.
007624,000049:                                                                                                  #        2. SCHEDULE A T5RUPT PROGRAM FOR THE DAP
007625,000050:                                                                                                  #        3. SET FLAGWRD5 BITS FOR INTWAKE ROUTINE
007626,000051:                                                                                                  #        4. EXTINGUISH ALL DSKY LAMPS, EXCEPT PROGRAM ALARM,GIMBAL LOCK AND
007627,000052:                                                                                                  #           NO ATT
007628,000053:                                                                                                  #        5. INITIALIZE IMU FLAGS
007629,000054:                                                                                                  #        6. IF ENGINE COMMAND IS ON (FLAGWRD5,BIT 7), SET ENGINE ON (CHAN-
007630,000055:                                                                                                  #           NEL 11, BIT 13)
007631,000056:                                                                                                  #        7. TRANSFER CONTROL TO GOPROG3
007632,000057: 
007633,000058:                                                                                                  #      ENEMA       SOFTWARE RESTART    INITIATED BY MAJOR MODE CHANGE
007634,000059: 
007635,000060:                                                                                                  #        1. EXECUTE STARTSB2
007636,000061:                                                                                                  #        2. KILL PROGRAMS THAT WERE INTEGRATING OR WAITING FOR INTEGRATION
007637,000062:                                                                                                  #           ROUTINE
007638,000063:                                                                                                  #        3. TRANSFER CONTROL TO GOPROG3
007639,000064: 
007640,000065:                                                                                                  #      GOPROG3     SUBROUTINE COMMON TO GOPROG AND ENEMA
007641,000066: 
007642,000067:                                                                                                  #        1. TEST PHASE TABLES - IF INCORRECT, DISPLAY ALARM 1107 AND
007643,000068:                                                                                                  #           TRANSFER CONTROL TO DOFSTART
007644,000069:                                                                                                  #        2. DISPLAY MAJOR MODE
007645,000070:                                                                                                  #        3. IF ANY GROUPS WERE ACTIVE UPON RESTART,TRANSFER CONTROL TO THE

Page 177

007647,000072:                                                                                                  #           RESTARTS SUBROUTINE TO RESCHEDULE PENDING TASKS, LONGCALLS, AND
007648,000073:                                                                                                  #           JOBS (P20 IS RESTARTED VIA FINDVAC)
007649,000074:                                                                                                  #        4. IF NO GROUPS WERE ACTIVE UPON RESTART, DISPLAY ALARM CODE
007650,000075:                                                                                                  #           1110 (RESTART WITH NO ACTIVE GROUPS).
007651,000076:                                                                                                  #        5. TRANSFER CONTROL TO IDLE LOOP IN DUMMYJOB
007652,000077: 
007653,000078:                                                                                                  #      STARTSUB    SUBROUTINE COMMON TO SLAP1 AND GOPROG
007654,000079: 
007655,000080:                                                                                                  #        1. CLEAR OUTBIT CHANNELS 5 AND 6
007656,000081:                                                                                                  #        2. INITIALIZE TIME5,TIME4,TIME3
007657,000082:                                                                                                  #        3. TRANSFER CONTROL TO STARTSB2
007658,000083: 
007659,000084:                                                                                                  #      STARTSB2    SUBROUTINE COMMON TO STARTSUB AND ENEMA
007660,000085: 
007661,000086:                                                                                                  #        1. INITIALIZE OUTBIT CHANNELS 11,12,13 AND 14
007662,000087:                                                                                                  #        2. REPLACE ALL TASKS ON WAITLIST WITH ENDTASK
007663,000088:                                                                                                  #        3. MAKE ALL EXECUTIVE REGISTERS AVAILABLE
007664,000089:                                                                                                  #        4. MAKE ALL VAC AREAS AVAILABLE
007665,000090:                                                                                                  #        5. CLEAR DSKY REGISTERS
007666,000091:                                                                                                  #        6. ZERO NUMEROUS SWITCHES
007667,000092:                                                                                                  #        7. INITIALIZE OPTICS FLAGS
007668,000093:                                                                                                  #        8. INITIALIZE PIPA AND TELEMETRY FAIL FLAGS
007669,000094:                                                                                                  #        9. INITIALIZE DOWN TELEMETRY
007670,000095: 
007671,000096: 
007672,000097:                                                                                                  #  INPUT/OUTPUT INITIALIZATION
007673,000098: 
007674,000099:                                                                                                  #      A. CALLING SEQUENCE
007675,000100: 
007676,000101:                                                                                                  #            SLAP1 -  TC POSTJUMP      OR    VERB 36,ENTER
007677,000102:                                                                                                  #                     CADR SLAP1
007678,000103: 
007679,000104:                                                                                                  #            ENEMA -  TC POSTJUMP       ***  DO NOT CALL ENEMA WITHOUT  ***
007680,000105:                                                                                                  #                     CADR ENEMA        ***  CONSULTING POOH PEOPLE     ***
007681,000106: 
007682,000107:                                                                                                  #      B. OUTPUT
007683,000108: 
007684,000109:                                                                                                  #            ERASABLE MEMORY INITIALIZATION
007685,000110: 
007686,000111:                                                                                                  #  PROGRAM ANALYSIS
007687,000112: 
007688,000113:                                                                                                  #      A. SUBROUTINES CALLED
007689,000114: 
007690,000115:                                                                                                  #           MR.KLEAN,WAITLIST,DSPMM,ALARM,RESTARTS,FINDVAC
007691,000116: 
007692,000117:                                                                                                  #      B. ALARMS
007693,000118: 
007694,000119:                                                                                                  #           1107  PHASE TABLE ERROR
007695,000120:                                                                                                  #           1110  RESTART WITH NO ACTIVE GROUPS
007696,000121: 

Page 178

007698,000123: 10,2203                                           BANK     10                                    
007699,000124: 05,2000                                           SETLOC   FRANDRES                              
007700,000125: 05,2000                                           BANK                                           
007701,000126: 
007702,000127: 05,2347  E3,1400                                  EBANK=   LST1                                  
007703,000128: 
007704,000129: 05,2347                                           COUNT    05/START                              
007705,000130: 
007706,000131: 05,2347           00004        SLAP1              INHINT                                         #  FRESH START. COMES HERE FROM PINBALL.
007707,000132: 05,2350           02750                           TC       STARTSUB                              #  SUBROUTINE DOES MOST OF THE WORK.
007708,000133: 
007709,000134: 05,2351           12356        STARTSW            TCF      SKIPSIM                               #  PATCH....TCF STARTSIM...FOR SIMULATION
007710,000135: 05,2352           34675        STARTSIM           CAF      BIT14                                 
007711,000136: 05,2353           05042                           TC       FINDVAC                               
007712,000137: 05,2354           77777        SIM2CADR           OCT      77777                                 #  PATCH 2CADR (AND EBANK DESIGNATION) OF
007713,000138: 05,2355           77777                           OCT      77777                                 #  SIMULATION START ADDRESS.
007714,000139: 
007715,000140: 05,2356           34674        SKIPSIM            CAF      BIT15                                 #  TURN OFF ALL DSPTAB+11D LAMPS ONLY ON
007716,000141: 05,2357           55036                           TS       DSPTAB     +11D                       #  REQUESTED FRESH START.
007717,000142: 
007718,000143: 05,2360           34714                           CAF      ZERO                                  #  SAME STORY ON ZEROING FAILREG.
007719,000144: 05,2361           55365                           TS       ERCOUNT                               
007720,000145: 05,2362           54375                           TS       FAILREG                               
007721,000146: 05,2363           54376                           TS       FAILREG    +1                         
007722,000147: 05,2364           54377                           TS       FAILREG    +2                         
007723,000148: 05,2365           55154                           TS       REDOCTR                               
007724,000149: 
007725,000150: 05,2366           44603                           CS       PRIO12                                
007726,000151: 05,2367           55302                           TS       DSRUPTSW                              
007727,000152: 
007728,000153: 05,2370           34714        DOFSTART           CAF      ZERO                                  #  DO A FRESH START.
007729,000154: 05,2371           55360                           TS       ERESTORE                              #  ***** MUST NOT BE REMOVED FROM DOFSTART
007730,000155: 05,2372           55362                           TS       SMODE                                 #  ***** MUST NOT BE REMOVED FROM DOFSTART
007731,000156: 05,2373           55501                           TS       UPSVFLAG                              #  UPDATE STATE VECTOR REQUEST FLAGWORD
007732,000157: 05,2374           00006                           EXTEND                                         
007733,000158: 05,2375           01005                           WRITE    CHAN5                                 #  TURN OFF RCS JETS
007734,000159: 05,2376           00006                           EXTEND                                         
007735,000160: 05,2377           01006                           WRITE    CHAN6                                 #  TURN OFF RCS JETS
007736,000161: 05,2400           00006                           EXTEND                                         
007737,000162: 05,2401           01011                           WRITE    DSALMOUT                              #  ZERO CHANNEL 11
007738,000163: 05,2402           00006                           EXTEND                                         
007739,000164: 05,2403           01012                           WRITE    CHAN12                                #  ZERO CHANNEL 12
007740,000165: 05,2404           00006                           EXTEND                                         
007741,000166: 05,2405           01013                           WRITE    CHAN13                                #  ZERO CHANNEL 13
007742,000167: 05,2406           00006                           EXTEND                                         
007743,000168: 05,2407           01014                           WRITE    CHAN14                                #  ZERO CHANNEL 14
007744,000169: 05,2410           55316                           TS       WTOPTION                              
007745,000170: 05,2411           54332                           TS       DNLSTCOD                              
007746,000171: 05,2412           54371                           TS       NVSAVE                                

Page 179

007748,000173: 05,2413           55071                           TS       EBANKTEM                              
007749,000174: 05,2414           55130                           TS       RATEINDX                              
007750,000175: 05,2415           55126                           TS       TRKMKCNT                              
007751,000176: 05,2416           55125                           TS       VHFCNT                                
007752,000177: 05,2417           55044                           TS       EXTVBACT                              
007753,000178: 
007754,000179: 05,2420           02465                           TC       MR.KLEAN                              
007755,000180: 
007756,000181: 05,2421           44714                           CS       ZERO                                  
007757,000182: 05,2422           55011                           TS       MODREG                                
007758,000183: 
007759,000184: 05,2423           34371                           CAF      PRIO30                                
007760,000185: 05,2424           54366                           TS       RESTREG                               
007761,000186: 
007762,000187: 05,2425           33156                           CAF      IM30INIF                              #  FRESH START IMU INITIALIZATION.
007763,000188: 05,2426           55320                           TS       IMODES30                              
007764,000189: 
007765,000190: 05,2427           04633                           TC       IBNKCALL                              #  IN CASE RESTART CALLS DOFSTART
007766,000191: 05,2430           17070                           CADR     NOATTOFF                              
007767,000192: 
007768,000193: 05,2431           37716                           CAF      NEGONE                                
007769,000194: 05,2432           55303                           TS       OPTIND                                #  KILL COARSE OPTICS
007770,000195: 
007771,000196: 05,2433           33161                           CAF      OPTINITF                              
007772,000197: 05,2434           55331                           TS       OPTMODES                              
007773,000198: 
007774,000199: 05,2435           34763                           CAF      IM33INIT                              
007775,000200: 05,2436           55321                           TS       IMODES33                              
007776,000201: 
007777,000202: 05,2437           00006                           EXTEND                                         #  LET T5 IDLE.
007778,000203: 05,2440           33135                           DCA      T5IDLER                               
007779,000204: 05,2441           53313                           DXCH     T5LOC                                 
007780,000205: 
007781,000206: 05,2442           00006                           EXTEND                                         #  INITIALIZE SWITCHES ONLY ON FRESH START.
007782,000207: 05,2443           33164                           DCA      SWINIT                                
007783,000208: 05,2444           52075                           DXCH     STATE                                 
007784,000209: 05,2445           00006                           EXTEND                                         
007785,000210: 05,2446           33166                           DCA      SWINIT     +2                         
007786,000211: 05,2447           52077                           DXCH     STATE      +2                         
007787,000212: 05,2450           00006                           EXTEND                                         
007788,000213: 05,2451           33170                           DCA      SWINIT     +4                         
007789,000214: 05,2452           52101                           DXCH     STATE      +4                         
007790,000215: 05,2453           00006                           EXTEND                                         
007791,000216: 05,2454           33172                           DCA      SWINIT     +6                         
007792,000217: 05,2455           52103                           DXCH     STATE      +6                         
007793,000218: 05,2456           00006                           EXTEND                                         
007794,000219: 05,2457           33174                           DCA      SWINIT     +8D                        
007795,000220: 05,2460           52105                           DXCH     STATE      +8D                        
007796,000221: 
007797,000222: 05,2461           33175                           CA       SWINIT     +10D                       

Page 180

007799,000224: 05,2462           54106                           TS       STATE      +10D                       
007800,000225: 
007801,000226: 05,2463           04574        ENDRSTRT           TC       POSTJUMP                              
007802,000227: 05,2464           03225                           CADR     DUMMYJOB   +          2               #  DOES A RELINT.  (IN A SWITCHED BANK.)
007803,000228: 
007804,000229: 05,2465           00004        MR.KLEAN           INHINT                                         
007805,000230: 05,2466           00006                           EXTEND                                         
007806,000231: 05,2467           34714                           DCA      NEG0                                  
007807,000232: 05,2470           52755                           DXCH     -PHASE2                               
007808,000233: 05,2471           00006        POOKLEAN           EXTEND                                         
007809,000234: 05,2472           34714                           DCA      NEG0                                  
007810,000235: 05,2473           52761                           DXCH     -PHASE4                               
007811,000236: 05,2474           00006                           EXTEND                                         
007812,000237: 05,2475           34714                           DCA      NEG0                                  
007813,000238: 05,2476           52753                           DXCH     -PHASE1                               
007814,000239: 05,2477           00006        V37KLEAN           EXTEND                                         
007815,000240: 05,2500           34714                           DCA      NEG0                                  
007816,000241: 05,2501           52757                           DXCH     -PHASE3                               
007817,000242: 05,2502           00006                           EXTEND                                         
007818,000243: 05,2503           34714                           DCA      NEG0                                  
007819,000244: 05,2504           52763                           DXCH     -PHASE5                               
007820,000245: 05,2505           00006                           EXTEND                                         
007821,000246: 05,2506           34714                           DCA      NEG0                                  
007822,000247: 05,2507           52765                           DXCH     -PHASE6                               
007823,000248: 05,2510           00002                           TC       Q                                     
007824,000249: 

Page 181

007826,000251: 
007827,000252:                                                                                                  #            COMES HERE FROM LOCATION 4000, GOJAM. RESTART ANY PROGRAMS WHICH MAY HAVE BEEN RUNNING AT THE TIME.
007828,000253: 
007829,000254: 05,2511           25154        GOPROG             INCR     REDOCTR                               #  ADVANCE RESTART COUNTER.
007830,000255: 
007831,000256: 05,2512           22002                           LXCH     Q                                     
007832,000257: 05,2513           00006                           EXTEND                                         
007833,000258: 05,2514           04007                           ROR      SUPERBNK                              
007834,000259: 05,2515           53433                           DXCH     RSBBQ                                 
007835,000260: 05,2516           02750                           TC       STARTSUB                              
007836,000261: 
007837,000262:                                                                                                  #                                   ERASCHK TEMPORARILY STORES THE CONTENTS OF TWO ERASABLE LOCATIONS, X
007838,000263:                                                                                                  #                                   AND X+1 INTO SKEEP5 AND SKEEP6. IT ALSO STORES X INTO SKEEP7 AND
007839,000264:                                                                                                  #                                   ERESTORE. IF ERASCHK IS INTERRUPTED BY A RESTART, C(ERESTORE) SHOULD
007840,000265:                                                                                                  #                                   EQUAL C(SKEEP7),AND BE A + NUMBER LESS THAN 2000 OCT. OTHERWISE
007841,000266:                                                                                                  #                                   C(ERESTORE) SHOULD EQUAL +0.
007842,000267: 
007843,000268: 05,2517           34364                           CAF      HI5                                   
007844,000269: 05,2520           71360                           MASK     ERESTORE                              
007845,000270: 05,2521           00006                           EXTEND                                         
007846,000271: 05,2522           12524                           BZF      +2                                    #  IF ERESTORE NOT = +0 OR +N LESS THAN 2K,
007847,000272: 05,2523           12370                           TCF      DOFSTART                              #  DOUBT E MEMORY AND DO A FRESH START.
007848,000273: 05,2524           41360                           CS       ERESTORE                              
007849,000274: 05,2525           00006                           EXTEND                                         
007850,000275: 05,2526           12543                           BZF      DORSTART                              #  = +0 CONTINUE WITH RESTART.
007851,000276: 05,2527           61377                           AD       SKEEP7                                
007852,000277: 05,2530           00006                           EXTEND                                         
007853,000278: 05,2531           12533                           BZF      +2                                    #  = SKEEP7, RESTORE E MEMORY.
007854,000279: 05,2532           12370                           TCF      DOFSTART                              #  NOT = SKEEP7, DOUBE E MEM,DO FRESH START.
007855,000280: 05,2533           31374                           CA       SKEEP4                                
007856,000281: 05,2534           54003                           TS       EBANK                                 #  EBANK OF E MEMORY THAT WAS UNDER TEST.
007857,000282: 05,2535           00006                           EXTEND                                         #  (NOT DXCH SINCE THIS MIGHT HAPPEN AGAIN)
007858,000283: 05,2536           31376                           DCA      SKEEP5                                
007859,000284: 05,2537           51377                           INDEX    SKEEP7                                
007860,000285: 05,2540           52001                           DXCH     0000                                  #  E MEMORY RESTORED.
007861,000286: 05,2541           34714                           CA       ZERO                                  
007862,000287: 05,2542           55360                           TS       ERESTORE                              
007863,000288: 05,2543           34674        DORSTART           CA       BIT15                                 #  TEST OSC FAIL BIT TO SEE IF WE HAVE
007864,000289: 05,2544           00006                           EXTEND                                         #  HAD A POWER TRANSIENT.  IF SO, ATTEMPT
007865,000290: 05,2545           03033                           WAND     CHAN33                                #  A RESTART.  IF NOT, CHACK THE PRESENT
007866,000291: 05,2546           00006                           EXTEND                                         #  STATE OF AGC WARNING.
007867,000292: 05,2547           12555                           BZF      BUTTONS                               
007868,000293: 
007869,000294: 05,2550           34675                           CA       BIT14                                 #  IF AGC WARNING ON (BIT = 0), DO A FRESH
007870,000295: 05,2551           00006                           EXTEND                                         #  START ON THE ASSUMPTION THAT WE'RE IN A
007871,000296: 05,2552           02033                           RAND     CHAN33                                #  RESTART LOOP.
007872,000297: 05,2553           00006                           EXTEND                                         
007873,000298: 05,2554           12370                           BZF      DOFSTART                              
007874,000299: 
007875,000300: 05,2555           02725        BUTTONS            TC       LIGHTSET                              #  EXIT
007876,000301:                                                                                                  #  MARK REJECT DEPRESSED SIMULTANEOUSLY

Page 182

007878,000303: 05,2556           30102        ELRSKIP            CA       FLAGWRD6                              #  RESTART AUTOPILOTS
007879,000304: 05,2557           00006                           EXTEND                                         
007880,000305: 05,2560           74710                           MP       BIT3                                  #  BITS 15,14 00 T5IDLOC
007881,000306: 05,2561           76211                           MASK     SIX                                   #             01 REDORCS
007882,000307: 05,2562           00006                           EXTEND                                         #             10 REDOTVC
007883,000308: 05,2563           50000                           INDEX    A                                     #             11 REDOSAT
007884,000309: 05,2564           33135                           DCA      T5IDLER                               
007885,000310: 05,2565           53313                           DXCH     T5LOC                                 
007886,000311: 
007887,000312: 05,2566           44675                           CS       INTFLBIT                              
007888,000313: 05,2567           70106                           MASK     RASFLAG                               
007889,000314: 05,2570           54106                           TS       RASFLAG                               
007890,000315: 
007891,000316: 05,2571           31331                           CA       OPTMODES                              
007892,000317: 05,2572           73162                           MASK     OPTINITR                              
007893,000318: 05,2573           64704                           AD       BIT7                                  
007894,000319: 05,2574           55331                           TS       OPTMODES                              
007895,000320: 
007896,000321: 05,2575           34705                           CAF      BIT6                                  
007897,000322: 05,2576           71321                           MASK     IMODES33                              
007898,000323: 05,2577           64763                           AD       IM33INIT                              
007899,000324: 05,2600           55321                           TS       IMODES33                              
007900,000325: 
007901,000326: 05,2601           33160                           CA       9,6,4                                 #  LEAVE PROG ALARM,GIMBAL LOCK, NO ATT
007902,000327: 05,2602           71036                           MASK     DSPTAB     +11D                       #  LAMPS INTACT ON HARDWARE RESTART
007903,000328: 05,2603           64674                           AD       BIT15                                 
007904,000329: 05,2604           57036                           XCH      DSPTAB     +11D                       
007905,000330: 05,2605           74707                           MASK     BIT4                                  #  IF NO ATT LAMP WAS ON, LEAVE ISS IN
007906,000331: 05,2606           00006                           EXTEND                                         #  COURSE ALIGN
007907,000332: 05,2607           12616                           BZF      NOCOARSE                              
007908,000333: 05,2610           04633                           TC       IBNKCALL                              #  IF NO ATT LAMP ON, RETURN ISS TO
007909,000334: 05,2611           16746                           CADR     SETCOARS                              #      COARSE ALIGN
007910,000335: 
007911,000336: 05,2612           36211                           CAF      SIX                                   
007912,000337: 05,2613           05140                           TC       WAITLIST                              
007913,000338: 05,2614  E3,1474                                  EBANK=   CDUIND                                
007914,000339: 05,2614           02742 16063                     2CADR    CA+ECE                                
007915,000340: 
007916,000341: 05,2616           33144        NOCOARSE           CAF      IFAILINH                              #  LEAVE FAILURE INHIBITS INTACT ON
007917,000342: 05,2617           71320                           MASK     IMODES30                              #      HARDWARE RESTART. RESET ALL
007918,000343: 05,2620           63157                           AD       IM30INIR                              #      FAILURE CODES.
007919,000344: 05,2621           55320                           TS       IMODES30                              
007920,000345: 
007921,000346: 05,2622           40101                           CS       FLAGWRD5                              
007922,000347: 05,2623           74704                           MASK     BIT7                                  
007923,000348: 05,2624           10000                           CCS      A                                     
007924,000349: 05,2625           12640                           TCF      GOPROG3                               
007925,000350: 05,2626           34676                           CAF      BIT13                                 
007926,000351: 05,2627           00006                           EXTEND                                         
007927,000352: 05,2630           05011                           WOR      DSALMOUT                              #  TURN ENGINE ON

Page 183

007929,000354: 05,2631           12640                           TCF      GOPROG3                               
007930,000355: 05,2632           00004        ENEMA              INHINT                                         
007931,000356: 05,2633           02725                           TC       LIGHTSET                              #  EXIT TO DOFSTART IF ERROR RESET AND
007932,000357: 05,2634           02760                           TC       STARTSB2                              #  MARK REJECT DEPRESSED SIMULTANEOUSLY
007933,000358: 05,2635           43151                           CS       INTMASK                               #  RESET INTEGRATION BITS
007934,000359: 05,2636           70106                           MASK     RASFLAG                               
007935,000360: 05,2637           54106                           TS       RASFLAG                               
007936,000361: 
007937,000362: 05,2640           34715        GOPROG3            CAF      NUMGRPS                               #  VERIFY PHASE TABLE AGREEMENTS
007938,000363: 05,2641           54161        PCLOOP             TS       MPAC       +5                         
007939,000364: 05,2642           60000                           DOUBLE                                         
007940,000365: 05,2643           00006                           EXTEND                                         
007941,000366: 05,2644           50000                           INDEX    A                                     
007942,000367: 05,2645           30753                           DCA      -PHASE1                               #  COMPLEMENT INTO A, DIRECT INTO L.
007943,000368: 05,2646           00006                           EXTEND                                         
007944,000369: 05,2647           06001                           RXOR     LCHAN                                 #  RESULT MUST BE -0 FOR AGREEMENT.
007945,000370: 05,2650           10000                           CCS      A                                     
007946,000371: 05,2651           12720                           TCF      PTBAD                                 #  RESTART FAILURE.
007947,000372: 05,2652           12720                           TCF      PTBAD                                 
007948,000373: 05,2653           12720                           TCF      PTBAD                                 
007949,000374: 
007950,000375: 05,2654           10161                           CCS      MPAC       +5                         #  PROCESS ALL RESTART GROUPS.
007951,000376: 05,2655           12641                           TCF      PCLOOP                                
007952,000377: 
007953,000378: 05,2656           54162                           TS       MPAC       +6                         #  SET TO +0.
007954,000379: 05,2657           05247                           TC       MMDSPLAY                              #  DISPLAY MAJOR MODE
007955,000380: 
007956,000381: 05,2660           00004                           INHINT                                         #  RELINT DONE IN MMDSPLAY
007957,000382: 
007958,000383: 05,2661           30102                           CAE      FLAGWRD6                              #  IS RCS DAP RUNNING (BITS 15 14 OF
007959,000384: 05,2662           74105                           MASK     OCT60000                              #  FLAGWRD6 = 01)
007960,000385: 05,2663           00006                           EXTEND                                         #  YES, DO STOPRATE
007961,000386: 05,2664           62673                           BZMF     NXTRST     -1                         #  NO, SKIP TO NXTRST -1
007962,000387: 05,2665           34752                           CAF      EBANK6                                #  STOPRATE IS DONE IN EBANK 6
007963,000388: 05,2666           54003                           TS       EBANK                                 
007964,000389: 05,2667           04633                           TC       IBNKCALL                              #  ZERO DELCDUS, WBODYS, AND BIASES THUS
007965,000390: 05,2670           45245                           CADR     STOPRATE                              #  STOPING AUTOMATIC MANEUVERING
007966,000391: 05,2671           34744                           CAF      EBANK3                                
007967,000392: 05,2672           54003                           TS       EBANK                                 
007968,000393: 05,2673           34715                           CAF      NUMGRPS                               #  SEE IF ANY GROUPS RUNNING.
007969,000394: 05,2674           54161        NXTRST             TS       MPAC       +5                         
007970,000395: 05,2675           60000                           DOUBLE                                         
007971,000396: 05,2676           50000                           INDEX    A                                     
007972,000397: 05,2677           10753                           CCS      PHASE1                                
007973,000398: 05,2700           12702                           TCF      PACTIVE                               #  PNZ - GROUP ACTIVE.
007974,000399: 05,2701           12707                           TCF      PINACT                                #  +0 - GROUP NOT RUNNING.
007975,000400: 
007976,000401: 05,2702           54154        PACTIVE            TS       MPAC                                  
007977,000402: 05,2703           24154                           INCR     MPAC                                  #  ABS OF PHASE.
007978,000403: 05,2704           24162                           INCR     MPAC       +6                         #  INDICATE GROUP DEMANDS PRESENT.

Page 184

007980,000405: 05,2705           32724                           CA       RACTCADR                              
007981,000406: 05,2706           04561                           TC       SWCALL                                #  MUST RETURN TO SWRETURN.
007982,000407: 
007983,000408: 05,2707           10161        PINACT             CCS      MPAC       +5                         #  PROCESS ALL RESTART GROUPS.
007984,000409: 05,2710           12674                           TCF      NXTRST                                
007985,000410: 
007986,000411: 05,2711           10162                           CCS      MPAC       +6                         #  NO, CHECK PHASE ACTIVITY FLAG
007987,000412: 05,2712           12463                           TCF      ENDRSTRT                              #  PHASE ACTIVE
007988,000413: 05,2713           34674                           CAF      BIT15                                 #  IS MODE -0
007989,000414: 05,2714           71011                           MASK     MODREG                                
007990,000415: 05,2715           00006                           EXTEND                                         
007991,000416: 05,2716           14106                           BZF      GOTOPOOH                              #  NO
007992,000417: 05,2717           12463                           TCF      ENDRSTRT                              #  YES
007993,000418: 05,2720           05537        PTBAD              TC       ALARM                                 #  SET ALARM TO SHOW PHASE TABLE FAILURE.
007994,000419: 05,2721           01107                           OCT      1107                                  
007995,000420: 
007996,000421: 05,2722           12370                           TCF      DOFSTART                              #  IN R2).
007997,000422: 
007998,000423:                                                                                                  #  ******** ****** ******
007999,000424: 
008000,000425:                                                                                                  #  DO NOT USE GOPROG2 OR ENEMA WITHOUT CONSULTING POOH PEOPLE
008001,000426: 
008002,000427: 05,2723  05,2632               GOPROG2            EQUALS   ENEMA                                 
008003,000428: 05,2723     4676               OCT10000           =        BIT13                                 
008004,000429: 05,2723     4371               OCT30000           =        PRIO30                                
008005,000430: 05,2723           07777        OCT7777            OCT      7777                                  
008006,000431: 05,2724           03520        RACTCADR           CADR     RESTARTS                              
008007,000432: 05,2725           34704        LIGHTSET           CAF      BIT7                                  #  DOFSTART IF MARK REJECT AND EITHER
008008,000433: 05,2726           00006                           EXTEND                                         #  ERROR LIGHT RESET BUTTONS ARE DEPRESSED
008009,000434: 05,2727           02016                           RAND     NAVKEYIN                              
008010,000435: 05,2730           00006                           EXTEND                                         
008011,000436: 05,2731           12745                           BZF      NONAVKEY                              #  NO MARK REJECT
008012,000437: 05,2732           34362                           CAF      OCT37                                 
008013,000438: 05,2733           00006                           EXTEND                                         
008014,000439: 05,2734           02016                           RAND     NAVKEYIN                              #  NAV DSKY KEYCODES,MARK,MARK REJECT
008015,000440: 05,2735           63155                           AD       -ELR                                  
008016,000441: 05,2736           00006                           EXTEND                                         
008017,000442: 05,2737           12746                           BZF      NONAVKEY   +1                         
008018,000443: 05,2740           00006                           EXTEND                                         
008019,000444: 05,2741           00015                           READ     MNKEYIN                               #  MAIN DSKY KEYCODES
008020,000445: 05,2742           63155                           AD       -ELR                                  
008021,000446: 05,2743           00006                           EXTEND                                         
008022,000447: 05,2744           12746                           BZF      +2                                    
008023,000448: 
008024,000449: 05,2745           00002        NONAVKEY           TC       Q                                     
008025,000450: 
008026,000451: 05,2746           02750                           TC       STARTSUB                              
008027,000452: 05,2747           12370                           TCF      DOFSTART                              
008028,000453: 05,2750           33145        STARTSUB           CAF      LDNPHAS1                              #  SET POINTER SO NEXT 20MS DOWNRUPT WILL
008029,000454: 05,2751           54335                           TS       DNTMGOTO                              #  CAUSE THE CURRENT DOWNLIST TO BE

Page 185

008031,000456:                                                                                                  #  INTERRUPTED AND START SENDING FROM THE
008032,000457:                                                                                                  #  BEGINNING OF THE CURRENT DOWNLIST.
008033,000458: 
008034,000459: 05,2752           34672                           CA       POSMAX                                
008035,000460: 05,2753           54026                           TS       TIME3                                 #  37777 TO TIME3.
008036,000461: 05,2754           67715                           AD       MINUS2                                
008037,000462: 05,2755           54027                           TS       TIME4                                 #  37775 TO TIME4.
008038,000463: 05,2756           67716                           AD       NEGONE                                
008039,000464: 05,2757           54030                           TS       TIME5                                 #  37774 TO TIME5.
008040,000465: 
008041,000466: 05,2760           34712        STARTSB2           CAF      BIT1                                  #  DURING SOFTWARE RESTART, DO NOT DISTURB
008042,000467: 05,2761           00006                           EXTEND                                         #  ISS WARNING
008043,000468: 05,2762           03011                           WAND     DSALMOUT                              
008044,000469: 
008045,000470: 05,2763           33152                           CAF      OCT70                                 #  DURING SOFTWARE RESTART, DO NOT DISTURB
008046,000471: 05,2764           00006                           EXTEND                                         #  IMU FLAGS. (COURSE ALIGN ENABLE, ZERO
008047,000472: 05,2765           03012                           WAND     CHAN12                                #  IMU CDUS. ENABLE IMU ERROR COUNTER)
008048,000473: 
008049,000474: 05,2766           33153                           CAF      OCT74160                              #  DURING SOFTWARE RESTART, DO NOT DUSTURB
008050,000475: 05,2767           00006                           EXTEND                                         #  TELEMETRY FLAGS, RESET TRAP FLAGS, AND
008051,000476: 05,2770           03013                           WAND     CHAN13                                #  ENABLE T6RUPT FLAG.
008052,000477: 
008053,000478: 05,2771           34705                           CAF      BIT6                                  #  DURING SOFTWARE RESTART, DO NOT DISTURB
008054,000479: 05,2772           00006                           EXTEND                                         #  GYRO ENABLE FLAG.
008055,000480: 05,2773           03014                           WAND     CHAN14                                #  
008056,000481: 
008057,000482: 05,2774           44675                           CS       BIT14                                 #  CLEAR R21MARK
008058,000483: 05,2775           70076                           MASK     FLAGWRD2                              #  R21 SETS R21MARK AND RESETS IT IF R21
008059,000484: 05,2776           54076                           TS       FLAGWRD2                              #  IS TERMINATED NORMALLY
008060,000485: 05,2777  E3,1400                                  EBANK=   LST1                                  
008061,000486: 05,2777           33154                           CAF      STARTEB                               
008062,000487: 05,3000           54003                           TS       EBANK                                 #  SET FOR E3
008063,000488: 
008064,000489: 05,3001           34673                           CAF      NEG1/2                                #  INITIALIZE WAITLIST DELTA-TS.
008065,000490: 05,3002           55407                           TS       LST1       +7                         
008066,000491: 05,3003           55406                           TS       LST1       +6                         
008067,000492: 05,3004           55405                           TS       LST1       +5                         
008068,000493: 05,3005           55404                           TS       LST1       +4                         
008069,000494: 05,3006           55403                           TS       LST1       +3                         
008070,000495: 05,3007           55402                           TS       LST1       +2                         
008071,000496: 05,3010           55401                           TS       LST1       +1                         
008072,000497: 05,3011           55400                           TS       LST1                                  
008073,000498: 
008074,000499: 05,3012           45173                           CS       ENDTASK                               
008075,000500: 05,3013           55410                           TS       LST2                                  
008076,000501: 05,3014           55412                           TS       LST2       +2                         
008077,000502: 05,3015           55414                           TS       LST2       +4                         
008078,000503: 05,3016           55416                           TS       LST2       +6                         
008079,000504: 05,3017           55420                           TS       LST2       +8D                        
008080,000505: 05,3020           55422                           TS       LST2       +10D                       

Page 186

008082,000507: 05,3021           55424                           TS       LST2       +12D                       
008083,000508: 05,3022           55426                           TS       LST2       +14D                       
008084,000509: 05,3023           55430                           TS       LST2       +16D                       
008085,000510: 05,3024           45174                           CS       ENDTASK    +1                         
008086,000511: 05,3025           55411                           TS       LST2       +1                         
008087,000512: 05,3026           55413                           TS       LST2       +3                         
008088,000513: 05,3027           55415                           TS       LST2       +5                         
008089,000514: 05,3030           55417                           TS       LST2       +7                         
008090,000515: 05,3031           55421                           TS       LST2       +9D                        
008091,000516: 05,3032           55423                           TS       LST2       +11D                       
008092,000517: 05,3033           55425                           TS       LST2       +13D                       
008093,000518: 05,3034           55427                           TS       LST2       +15D                       
008094,000519: 05,3035           55431                           TS       LST2       +17D                       
008095,000520: 
008096,000521: 05,3036           44714                           CS       ZERO                                  #  MAKE ALL EXECUTIVE REGISTER SETS
008097,000522: 05,3037           54167                           TS       PRIORITY                              #  AVAILABLE.
008098,000523: 05,3040           54203                           TS       PRIORITY   +12D                       
008099,000524: 05,3041           54217                           TS       PRIORITY   +24D                       
008100,000525: 05,3042           54233                           TS       PRIORITY   +36D                       
008101,000526: 05,3043           54247                           TS       PRIORITY   +48D                       
008102,000527: 05,3044           54263                           TS       PRIORITY   +60D                       
008103,000528: 05,3045           54277                           TS       PRIORITY   +72D                       
008104,000529: 
008105,000530: 05,3046           55302                           TS       DSRUPTSW                              
008106,000531: 05,3047           54067                           TS       NEWJOB                                #  SHOWS NO ACTIVE JOBS.
008107,000532: 
008108,000533: 05,3050           33147                           CAF      VAC1ADRC                              #  MAKE ALL VAC AREAS AVAILABLE.
008109,000534: 05,3051           54400                           TS       VAC1USE                               
008110,000535: 05,3052           63150                           AD       LTHVACA                               
008111,000536: 05,3053           54454                           TS       VAC2USE                               
008112,000537: 05,3054           63150                           AD       LTHVACA                               
008113,000538: 05,3055           54530                           TS       VAC3USE                               
008114,000539: 05,3056           63150                           AD       LTHVACA                               
008115,000540: 05,3057           54604                           TS       VAC4USE                               
008116,000541: 05,3060           63150                           AD       LTHVACA                               
008117,000542: 05,3061           54660                           TS       VAC5USE                               
008118,000543: 
008119,000544: 05,3062           34377                           CAF      TEN                                   #  BLANK DSKY REGISTERS (PROGRAM,VERB,NOUN,
008120,000545:                                                                                                  #  R1,R2,R3)
008121,000546: 05,3063           54154        DSPOFF             TS       MPAC                                  
008122,000547: 05,3064           44677                           CS       BIT12                                 
008123,000548: 05,3065           50154                           INDEX    MPAC                                  
008124,000549: 05,3066           55023                           TS       DSPTAB                                
008125,000550: 05,3067           10154                           CCS      MPAC                                  
008126,000551: 05,3070           13063                           TCF      DSPOFF                                
008127,000552: 
008128,000553: 05,3071           55141                           TS       DELAYLOC                              
008129,000554: 05,3072           55142                           TS       DELAYLOC   +1                         
008130,000555: 05,3073           55143                           TS       DELAYLOC   +2                         
008131,000556: 05,3074           55144                           TS       DELAYLOC   +3                         

Page 187

008133,000558: 05,3075           55073                           TS       R1SAVE                                
008134,000559: 05,3076           54045                           TS       INLINK                                
008135,000560: 05,3077           54776                           TS       DSPCNT                                
008136,000561: 05,3100           55042                           TS       CADRSTOR                              
008137,000562: 05,3101           55013                           TS       REQRET                                
008138,000563: 05,3102           55015                           TS       CLPASS                                
008139,000564: 05,3103           55012                           TS       DSPLOCK                               
008140,000565: 05,3104           55020                           TS       MONSAVE                               #  KILL MONITOR
008141,000566: 05,3105           55021                           TS       MONSAVE1                              
008142,000567: 05,3106           55001                           TS       VERBREG                               
008143,000568: 05,3107           55002                           TS       NOUNREG                               
008144,000569: 05,3110           55043                           TS       DSPLIST                               
008145,000570: 05,3111           55330                           TS       MARKSTAT                              
008146,000571: 05,3112           55322                           TS       IMUCADR                               
008147,000572: 05,3113           55323                           TS       OPTCADR                               
008148,000573: 05,3114           55324                           TS       RADCADR                               
008149,000574: 05,3115           55325                           TS       ATTCADR                               
008150,000575: 05,3116           55304                           TS       LGYRO                                 
008151,000576: 05,3117           54100                           TS       FLAGWRD4                              #  KILL INTERFACE DISPLAYS
008152,000577: 05,3120           34717                           CAF      NOUTCON                               
008153,000578: 05,3121           55016                           TS       NOUT                                  
008154,000579: 
008155,000580: 05,3122           34675                           CAF      BIT14                                 
008156,000581: 05,3123           71044                           MASK     EXTVBACT                              
008157,000582: 05,3124           55044                           TS       EXTVBACT                              
008158,000583: 05,3125           33146                           CAF      LESCHK                                #  SELF CHECK GO-TO REGISTER.
008159,000584: 05,3126           55361                           TS       SELFRET                               
008160,000585: 
008161,000586: 05,3127           44374                           CS       VD1                                   
008162,000587: 05,3130           54777                           TS       DSPCOUNT                              
008163,000588: 
008164,000589: 05,3131           00002                           TC       Q                                     
008165,000590: 05,3132           30001        T5IDLOC            CA       L                                     #  T5RUPT COMES HERE EVERY 163.84 SECS
008166,000591: 05,3133           15225                           TCF      NOQRSM     +1                         #  WHEN NOBODY IS USING IT.
008167,000592: 
008168,000593: 05,3134  E6,1672                                  EBANK=   OGANOW                                
008169,000594: 05,3134           03132 12066  T5IDLER            2CADR    T5IDLOC                               
008170,000595: 
008171,000596: 05,3136  E6,1672                                  EBANK=   OGANOW                                
008172,000597: 05,3136           02071 42066                     2CADR    REDORCS                               
008173,000598: 
008174,000599: 05,3140  E6,1672                                  EBANK=   OGANOW                                
008175,000600: 05,3140           03165 34066                     2CADR    REDOTVC                               
008176,000601: 
008177,000602: 05,3142  E6,1672                                  EBANK=   OGANOW                                
008178,000603: 05,3142           02765 46066                     2CADR    REDOSAT                               
008179,000604: 
008180,000605: 05,3144           00435        IFAILINH           OCT      435                                   
008181,000606: 05,3145           03340        LDNPHAS1           GENADR   DNPHASE1                              
008182,000607: 05,3146           03333        LESCHK             GENADR   SELFCHK                               

Page 188

008184,000609: 05,3147           00400        VAC1ADRC           ADRES    VAC1USE                               
008185,000610: 05,3150           00054        LTHVACA            DEC      44         B-14                       
008186,000611: 
008187,000612: 05,3151           20100        INTMASK            OCT      20100                                 
008188,000613: 05,3152           00070        OCT70              OCT      00070                                 
008189,000614: 05,3153           74160        OCT74160           OCT      74160                                 
008190,000615: 05,3154           01400        STARTEB            ECADR    LST1                                  
008191,000616: 05,3155     4715               NUMGRPS            EQUALS   FIVE                                  
008192,000617: 05,3155           77755        -ELR               OCT      -22                                   #  -ERROR LIGHT RESET KEY CODE.
008193,000618: 05,3156           37411        IM30INIF           OCT      37411                                 #  INHIBITS IMU FAIL FOR 5 SEC AND PIP ISSW
008194,000619: 05,3157           37000        IM30INIR           OCT      37000                                 
008195,000620: 05,3160     4763               IM33INIT           =        PRIO16                                #  NO PIP OR TM FAIL SIGNALS.
008196,000621: 05,3160           00450        9,6,4              OCT      450                                   
008197,000622: 05,3161           00130        OPTINITF           OCT      130                                   
008198,000623: 05,3162           00430        OPTINITR           OCT      430                                   
008199,000624: 05,3163           00000        SWINIT             OCT      0                                     
008200,000625: 05,3164           00000                           OCT      0                                     
008201,000626: 05,3165           00000                           OCT      0                                     
008202,000627: 05,3166           00000                           OCT      0                                     
008203,000628: 
008204,000629: 05,3167           00000                           OCT      0                                     
008205,000630: 05,3170           00200                           OCT      00200                                 
008206,000631: 05,3171           00000                           OCT      0                                     
008207,000632: 05,3172           00100                           OCT      00100                                 
008208,000633: 
008209,000634: 05,3173           00000                           OCT      0                                     
008210,000635: 05,3174           00000                           OCT      0                                     
008211,000636: 05,3175           00000                           OCT      0                                     
008212,000637: 

Page 189

008214,000639: 
008215,000640:                                                                                                  #  PROGRAM NAME    GOTOPOOH                  ASSEMBLY      SUNDISK
008216,000641:                                                                                                  #  LOG SECTION     FRESH START AND RESTART
008217,000642: 
008218,000643:                                                                                                  #  FUNCTIONAL DESCRIPTION
008219,000644: 
008220,000645:                                                                                                  #        1. DISPLAY MAJOR MODE NUMBER 00 IN DSKY REGISTER R1 AND R3. FLASH V50 N07 ON DSKY. (M M CHANGE REQUEST)
008221,000646:                                                                                                  #        2. PERMIT A CURRENT PENDING REQUEST (FLASH ON DSKY) TO BE REPLACED (WITHOUT AN ABORT) BY THE MAJOR MODE
008222,000647:                                                                                                  #           CHANGE REQUEST
008223,000648: 
008224,000649:                                                                                                  #  INPUT/OUTPUT INFORMATION
008225,000650: 
008226,000651:                                                                                                  #        A. CALLING SEQUENCE        TC GOTOPOOH
008227,000652: 
008228,000653:                                                                                                  #        B. ERASABLE INITIALIZATION       NONE
008229,000654: 
008230,000655:                                                                                                  #        C. OUTPUT       FLASH VERB 50 NOUN 07 ON DSKY
008231,000656: 
008232,000657:                                                                                                  #        D. DEBRIS       L
008233,000658: 
008234,000659:                                                                                                  #  PROGRAM ANALYSIS
008235,000660: 
008236,000661:                                                                                                  #        A. SUBROUTINES CALLED     GOPERF3, LINUS
008237,000662: 
008238,000663:                                                                                                  #        B. NORMAL EXIT        TCF ENDOFJOB
008239,000664: 
008240,000665:                                                                                                  #        C. ALARM AND ABORT EXITS       NONE
008241,000666: 
008242,000667:    4106                                           BLOCK    02                                    
008243,000668:    4000                                           SETLOC   FFTAG10                               
008244,000669:    4000                                           BANK                                           
008245,000670: 
008246,000671:    4106                                           COUNT    02/P00                                
008247,000672: 
008248,000673:    4106           05301        GOTOPOOH           TC       PHASCHNG                              #  RESTART GOTOPOOH
008249,000674:    4107           00014                           OCT      14                                    
008250,000675: 
008251,000676:    4110           04574                           TC       POSTJUMP                              
008252,000677:    4111           10000                           CADR     GOPOOFIX                              
008253,000678: 10,2203                                           BANK     10                                    
008254,000679: 04,2000                                           SETLOC   VERB37                                
008255,000680: 04,2000                                           BANK                                           
008256,000681: 
008257,000682: 04,2000                                           COUNT    04/P00                                
008258,000683: 
008259,000684: 04,2000           02315        GOPOOFIX           TC       INITSUB                               
008260,000685: 04,2001           32007                           CAF      V37N99                                
008261,000686: 04,2002           04555                           TC       BANKCALL                              
008262,000687: 04,2003           20624                           CADR     GOFLASH                               
008263,000688: 04,2004           12001                           TCF      -3                                    
008264,000689: 04,2005           12001                           TCF      -4                                    

Page 190

008266,000691: 04,2006           12001                           TCF      -5                                    
008267,000692: 04,2007           11343        V37N99             VN       3799                                  
008268,000693: 

Page 191

008270,000695: 
008271,000696:                                                                                                  #  PROGRAM NAME    V37                       ASSEMBLY      SUNDISK
008272,000697:                                                                                                  #  LOG SECTION     FRESH START AND RESTART
008273,000698: 
008274,000699:                                                                                                  #  FUNCTIONAL DESCRIPTION
008275,000700: 
008276,000701:                                                                                                  #        1. CHECK IF NEW PROGRAM ALLOWED. IF BIT 1 OF FLAGWRD2(NODOFLAG) ISSET, AN ALARM 1520 IS CALLED.
008277,000702:                                                                                                  #        2. CHECK FOR VALIDITY OF PROGRAM SELECTED. IF AN INVALID PROGRAM  IS SELECTED, THE OPERATOR ERROR LIGHT IS
008278,000703:                                                                                                  #           SET AND CURRENT ACTIVITY, IF ANY, CONTINUES.
008279,000704:                                                                                                  #        3. SERVICER IS TERMINATED IF IT HAS BEEN RUNNING.
008280,000705:                                                                                                  #        4. INSTALL IS EXECUTED TO AVOID INTERRUPTING INTEGRATION.
008281,000706:                                                                                                  #        5. THE ENGINE IS TURNED OFF AND THE DAP IS INITIALIZED FOR COAST.
008282,000707:                                                                                                  #        6. TRACK, UPDATE AND TARG1 FLAGS ARE SET TO ZERO.
008283,000708:                                                                                                  #        7. DISPLAY SYSTEM IS RELEASED.
008284,000709:                                                                                                  #        8. THE FOLLOWING ARE PERFORMED FOR EACH OF THE THREE CASES.
008285,000710:                                                                                                  #           A. PROGRAM SELECTED IS P00.
008286,000711:                                                                                                  #              1. RENDEZVOUS FLAG IS RESET (KILL P20).
008287,000712:                                                                                                  #              2. STATINT1     IS SCHEDULED BY SETTING RESTART GROUP 2.
008288,000713:                                                                                                  #              3. MAJOR MODE 00 IS STORED IN THE MODE REGISTER(MODREG).
008289,000714:                                                                                                  #              4. SUPERBANK 3 IS SELECTED.
008290,000715:                                                                                                  #              5. NODOFLAG IS RESET.
008291,000716:                                                                                                  #              6. ALL RESTART GROUPS EXCEPT GROUP2 ARE CLEARED. CONTROL ISTRANSFERRED TO RESTART PROGRAM (GOPROG2)
008292,000717:                                                                                                  #                 WHICH CAUSES ALL CURRENT ACTIVITY TO BE DISCONTINUED AND A 9 MINUTE INTEGRATION CYCLE TO BE
008293,000718:                                                                                                  #                 INITIATED.
008294,000719:                                                                                                  #           B. PROGRAM SELECTED IS P20
008295,000720:                                                                                                  #              1. IF THE CURRENT MAJOR MODE IS THE SAME AS THE SELECTED NEWPROGRAM, THE PROGRAM IS RE-INITIALIZED
008296,000721:                                                                                                  #                 VIA V37XEQ, ALL RESTART GROUPS, EXCEPT GROUP 4 ARE CLEARED.
008297,000722:                                                                                                  #              2. IF THE CURRENT MAJOR MODE IS NOT EQUAL TO THE NEW REQUEST, A CHECK IS MADE TO SEE IF THE REQUEST-
008298,000723:                                                                                                  #                 ED MAJOR MODE HAS BEEN RUNNING IN THE BACKGROUND,
008299,000724:                                                                                                  #                 AND IF IT HAS, NO NEW PROGRAM IS SCHEDULED, THE EXISTING
008300,000725:                                                                                                  #                 P20 IS RESTARTED TO CONTINUE, AND ITS MAJOR MODE IS SET.
008301,000726:                                                                                                  #              3. CONTROL IS TRANSFERRED TO GOPROG2.
008302,000727:                                                                                                  #           C. PROGRAM SELECTED IS NEITHER P00 NOR P20
008303,000728:                                                                                                  #              1. V37XEQ IS SCHEDULED (AS A JOB) BY SETTING RESTART GROUP 4
008304,000729:                                                                                                  #              2. ALL CURRENT ACTIVITY EXCEPT RENDEZVOUS AND TRACKING IS DISCONTINUED BY CLEARING ALL RESTART
008305,000730:                                                                                                  #                 GROUPS. GROUP 2 IS CLEARED. IF THE RENDEZVOUS FLAG IS ON P20 IS RESTARTED IN GOPROG2 VIA REDOP20.
008306,000731:                                                                                                  #                 TO CONTINUE.
008307,000732: 
008308,000733:                                                                                                  #  INPUT/OUTPUT INFORMATION
008309,000734: 
008310,000735:                                                                                                  #        A. CALLING SEQUENCE
008311,000736: 
008312,000737:                                                                                                  #            CONTROL IS DIRECTED TO V37 BY THE VERBFAN ROUTINE.
008313,000738:                                                                                                  #               VERBFAN GOES TO C(VERBTAB+C(VERBREG)). VERB 37 = MMCHANG.
008314,000739:                                                                                                  #               MMCHANG EXECUTES A   TC POSTJUMP, CADR V37.
008315,000740: 
008316,000741:                                                                                                  #        B. ERASABLE INITIALIZATION      NONE
008317,000742: 
008318,000743:                                                                                                  #                C. OUTPUT
008319,000744:                                                                                                  #            MAJOR MODE CHANGE

Page 192

008321,000746: 
008322,000747:                                                                                                  #        D. DEBRIS
008323,000748:                                                                                                  #             MMNUMBER, MPAC +1, MINDEX, BASETEMP +C(MINDEX), FLAGWRD0, FLAGWRD1, FLAGWRD2, MODREG, GOLOC -1,
008324,000749:                                                                                                  #             GOLOC, GOLOC +1, GOLOC +2, BASETEMP, -PHASE2, PHASE2, -PHASE4
008325,000750: 
008326,000751:                                                                                                  #  PROGRAM ANALYSIS
008327,000752: 
008328,000753:                                                                                                  #        A. SUBROUTINES CALLED
008329,000754:                                                                                                  #             ALARM, RELDSP, PINBRNCH, INTSTALL, ENGINOF2, ALLCOAST, V37KLEAN, GOPROG2, FALTON, FINDVAC, SUPERSW,
008330,000755:                                                                                                  #             DSPMM
008331,000756: 
008332,000757:                                                                                                  #        B. NORMAL EXIT        TC ENDOFJOB
008333,000758: 
008334,000759:                                                                                                  #        C. ALARMS      1520 (MAJOR MODE CHANGE NOT PERMITTED)
008335,000760: 
008336,000761:    4112                                           BLOCK    02                                    
008337,000762:    4000                                           SETLOC   FFTAG10                               
008338,000763:    4000                                           BANK                                           
008339,000764: 
008340,000765:    4112                                           COUNT    02/V37                                
008341,000766: 
008342,000767:    4112           00024        OCT24              MM       20         B-14                       
008343,000768:    4113           00031        OCT31              MM       25         B-14                       
008344,000769: 27,2000                                           BANK     27                                    
008345,000770: 04,2000                                           SETLOC   VERB37                                
008346,000771: 04,2000                                           BANK                                           
008347,000772: 
008348,000773: 04,2010                                           COUNT    04/V37                                
008349,000774: 
008350,000775: 04,2010           54775        V37                TS       MMNUMBER                              #  SAVE MAJOR MODE
008351,000776: 04,2011           34371                           CAF      PRIO30                                #  RESTART AT PINBALL PRIORITY
008352,000777: 04,2012           54366                           TS       RESTREG                               
008353,000778: 
008354,000779: 04,2013           31320                           CA       IMODES30                              #  IS IMU BEING INITIALIZED
008355,000780: 04,2014           74705                           MASK     BIT6                                  
008356,000781: 04,2015           10000                           CCS      A                                     
008357,000782: 04,2016           12070                           TCF      CANTROO                               
008358,000783: 
008359,000784: 04,2017           34676                           CAF      BIT13                                 #  IS ENGINE ON
008360,000785: 04,2020           00006                           EXTEND                                         
008361,000786: 04,2021           02011                           RAND     DSALMOUT                              
008362,000787: 04,2022           10000                           CCS      A                                     
008363,000788: 04,2023           12030                           TCF      ROOTOPOO                              #  YES, SET UP FOR POO
008364,000789: 
008365,000790: 04,2024           40102                           CS       FLAGWRD6                              #  NO, IS TVC DAP ON
008366,000791: 04,2025           74105                           MASK     OCT60000                              
008367,000792: 04,2026           00006                           EXTEND                                         
008368,000793: 04,2027           62061                           BZMF     ISITPOO                               #  NO, CONTINUE WITH ROO
008369,000794: 
008370,000795: 04,2030           00004        ROOTOPOO           INHINT                                         
008371,000796: 04,2031           34752                           CAF      EBANK6                                

Page 193

008373,000798: 04,2032           54003                           TS       EBANK                                 
008374,000799: 04,2033  E6,1466                                  EBANK=   DAPDATR1                              
008375,000800: 04,2033           31474                           CAE      CSMMASS                               
008376,000801: 04,2034           55662                           TS       MASSTMP                               
008377,000802: 04,2035           04633                           TC       IBNKCALL                              
008378,000803: 04,2036           50741                           CADR     SPSOFF                                
008379,000804: 04,2037           04633                           TC       IBNKCALL                              
008380,000805: 04,2040           13176                           CADR     MASSPROP                              
008381,000806: 04,2041           32402                           CAF      3.1SEC                                
008382,000807: 04,2042           04633                           TC       IBNKCALL                              
008383,000808: 04,2043           42011                           CADR     RCSDAPON   +1                         
008384,000809: 
008385,000810: 04,2044           04633                           TC       IBNKCALL                              
008386,000811: 04,2045           51005                           CADR     TVCZAP                                #  DISABLE TVC
008387,000812: 04,2046           34714                           CAF      ZERO                                  
008388,000813: 04,2047           54775                           TS       MMNUMBER                              
008389,000814: 04,2050           00003                           RELINT                                         
008390,000815: 04,2051           34715                           CAF      FIVE                                  
008391,000816: 04,2052           04555                           TC       BANKCALL                              
008392,000817: 04,2053           01730                           CADR     DELAYJOB                              
008393,000818: 04,2054           34714                           CAF      ZERO                                  
008394,000819: 04,2055           00006                           EXTEND                                         
008395,000820: 04,2056           01005                           WRITE    5                                     
008396,000821: 04,2057           00006                           EXTEND                                         
008397,000822: 04,2060           01006                           WRITE    6                                     
008398,000823: 04,2061           30775        ISITPOO            CA       MMNUMBER                              
008399,000824: 04,2062           00006                           EXTEND                                         
008400,000825: 04,2063           12112                           BZF      ISSERVON                              #  YES, CHECK SERVICER STATUS
008401,000826: 
008402,000827: 04,2064           40076                           CS       FLAGWRD2                              #  NO, IS NODO V37 FLAG SET
008403,000828: 04,2065           74712                           MASK     BIT1                                  
008404,000829: 04,2066           10000                           CCS      A                                     
008405,000830: 04,2067           12075                           TCF      CHECKTAB                              #  NO
008406,000831: 04,2070           05537        CANTROO            TC       ALARM                                 
008407,000832: 04,2071           01520                           OCT      1520                                  
008408,000833: 
008409,000834: 04,2072           04473        V37BAD             TC       RELDSP                                #  RELEASES DISPLAY FROM ASTRONAUT
008410,000835: 
008411,000836: 04,2073           04574                           TC       POSTJUMP                              #  BRING BACK LAST NORMAL DISPLAY IF THERE
008412,000837: 04,2074           21176                           CADR     PINBRNCH                              #  WAS ONE. OY
008413,000838: 
008414,000839: 04,2075           32475        CHECKTAB           CA       NOV37MM                               #  THE NO. OF MM
008415,000840: 04,2076           54155        AGAINMM            TS       MPAC       +1                         
008416,000841: 04,2077           50155                           NDX      MPAC       +1                         
008417,000842: 04,2100           32440                           CA       PREMM1                                #  OBTAIN WHICH MM THIS IS FOR
008418,000843: 04,2101           76043                           MASK     LOW7                                  
008419,000844: 04,2102           40000                           COM                                            
008420,000845: 04,2103           60775                           AD       MMNUMBER                              
008421,000846: 04,2104           10000                           CCS      A                                     
008422,000847: 04,2105           10155                           CCS      MPAC       +1                         #  IF GR, SEE IF ANYMORE IN LIST

Page 194

008424,000849: 04,2106           12076                           TCF      AGAINMM                               #  YES, GET NEXT ONE
008425,000850: 04,2107           12257                           TCF      V37NONO                               #  LAST TIME OR PASSED MM
008426,000851: 
008427,000852: 04,2110           30155                           CA       MPAC       +1                         
008428,000853: 04,2111           54774                           TS       MINDEX                                #  SAVE INDEX FOR LATER
008429,000854: 
008430,000855: 04,2112           40103        ISSERVON           CS       FLAGWRD7                              #  V37 FLAG SET - I.E. IS SERVICER GOING
008431,000856: 04,2113           74705                           MASK     BIT6                                  
008432,000857: 04,2114           10000                           CCS      A                                     
008433,000858: 04,2115           12123                           TCF      CANV37                                #  NO
008434,000859: 
008435,000860: 04,2116           00004                           INHINT                                         
008436,000861: 04,2117           44712                           CS       BIT1                                  #  YES, TURN OFF AVERAGE G FLAG AND WAIT
008437,000862: 04,2120           70075                           MASK     FLAGWRD1                              #  FOR SERVICER TO RETURN TO CANV37
008438,000863: 04,2121           54075                           TS       FLAGWRD1                              
008439,000864: 
008440,000865: 04,2122           15112                           TCF      ENDOFJOB                              
008441,000866: 
008442,000867: 04,2123           32377        CANV37             CAF      ROOAD                                 
008443,000868: 04,2124           54374                           TS       TEMPFLSH                              
008444,000869: 
008445,000870: 04,2125           05301                           TC       PHASCHNG                              
008446,000871: 04,2126           00014                           OCT      14                                    
008447,000872: 
008448,000873: 04,2127           06006        ROO                TC       INTPRET                               
008449,000874: 
008450,000875: 04,2130           77624                           CALL                                           #  WAIT FOR INTEGRATION TO FINISH
008451,000876: 04,2131           27371                                    INTSTALL                              
008452,000877: 04,2132           77776        DUMMYAD            EXIT                                           
008453,000878: 
008454,000879: 04,2133           02315                           TC       INITSUB                               
008455,000880: 
008456,000881: 04,2134           05447                           TC       DOWNFLAG                              
008457,000882: 04,2135           00020                           ADRES    STIKFLAG                              
008458,000883: 
008459,000884: 04,2136           04555                           TC       BANKCALL                              
008460,000885: 04,2137           57721                           CADR     UPACTOFF                              #  TURN OFF UPLINK ACTIV LIGHT
008461,000886: 
008462,000887: 04,2140           05447                           TC       DOWNFLAG                              
008463,000888: 04,2141           00215                           ADRES    VHFRFLAG                              
008464,000889: 04,2142           05447                           TC       DOWNFLAG                              
008465,000890: 04,2143           00037                           ADRES    R21MARK                               
008466,000891: 
008467,000892: 04,2144           10775                           CCS      MMNUMBER                              #  IS THIS A POOH REQUEST
008468,000893: 04,2145           12245                           TCF      NOUVEAU                               #  NO, PICK UP NEW PROGRAM
008469,000894: 
008470,000895: 04,2146                                           COUNT    04/P00                                
008471,000896: 
008472,000897: 04,2146           04473        POOH               TC       RELDSP                                #  RELEASE DISPLAY SYSTEM

Page 195

008474,000899: 04,2147           34754                           CAF      PRIO5                                 #  SET VARIABLE RESTART REGISTER FOR P00.
008475,000900: 04,2150           55056                           TS       PHSPRDT2                              
008476,000901: 
008477,000902: 04,2151           00004                           INHINT                                         
008478,000903: 
008479,000904: 04,2152           44712                           CS       BIT1                                  #  TURN OFF NODOFLAG
008480,000905: 04,2153           70076                           MASK     FLAGWRD2                              
008481,000906: 04,2154           54076                           TS       FLAGWRD2                              
008482,000907: 
008483,000908: 04,2155           34715                           CA       FIVE                                  #  SET 2.5 RESTART FOR STATEINT1
008484,000909: 04,2156           54001                           TS       L                                     
008485,000910: 04,2157           40000                           COM                                            
008486,000911: 04,2160           52755                           DXCH     -PHASE2                               
008487,000912: 
008488,000913: 04,2161           42374                           CS       BIT7-8                                #  RESET IMUSE + KILL P20 BY TURNING OFF
008489,000914: 04,2162           70074                           MASK     FLAGWRD0                              
008490,000915: 04,2163           54074                           TS       FLAGWRD0                              #                         RENDFLG
008491,000916: 
008492,000917: 04,2164           34714                           CAF      DNLADP00                              
008493,000918: 
008494,000919: 04,2165                                           COUNT    04/V37                                
008495,000920: 
008496,000921: 04,2165           54332        SEUDOPOO           TS       DNLSTCOD                              #  SET UP APPROPRIATE DOWNLIST.
008497,000922: 
008498,000923:                                                                                                  #    (OLD ONE WILL BE FINISHED FIRST)
008499,000924: 04,2166           42375                           CS       OCT01120                              #  TURN OFF TRACK, TARG1, UPDATE FLAGS
008500,000925: 04,2167           55071                           TS       EBANKTEM                              
008501,000926: 04,2170           70075                           MASK     FLAGWRD1                              
008502,000927: 04,2171           54075                           TS       FLAGWRD1                              
008503,000928: 
008504,000929: 04,2172           04633        GROUPKIL           TC       IBNKCALL                              #  KILL GROUPS 3(5,6
008505,000930: 04,2173           12477                           CADR     V37KLEAN                              
008506,000931: 
008507,000932: 04,2174           10775                           CCS      MMNUMBER                              #  IS IT POOH
008508,000933: 04,2175           12204                           TCF      RENDVOO                               #  NO
008509,000934: 04,2176           04633                           TC       IBNKCALL                              
008510,000935: 04,2177           12471                           CADR     POOKLEAN                              #  REDUNDANT EXCEPT FOR GROUP 4.
008511,000936: 
008512,000937: 04,2200           30775        GOMOD              CA       MMNUMBER                              
008513,000938: 04,2201           55011                           TS       MODREG                                
008514,000939: 
008515,000940: 04,2202           04574        GOGOPROG           TC       POSTJUMP                              
008516,000941: 04,2203           12632                           CADR     GOPROG2                               
008517,000942: 
008518,000943: 04,2204           40775        RENDVOO            CS       MMNUMBER                              #  IS NEW PROG = 20
008519,000944: 04,2205           64112                           AD       OCT24                                 #  20
008520,000945: 04,2206           00006                           EXTEND                                         
008521,000946: 04,2207           12211                           BZF      RENDNOO                               #  YES
008522,000947: 04,2210           12221                           TCF      POOFIZZ                               

Page 196

008524,000949: 04,2211           40775        RENDNOO            CS       MMNUMBER                              
008525,000950: 04,2212           61011                           AD       MODREG                                
008526,000951: 04,2213           00006                           EXTEND                                         
008527,000952: 04,2214           12225                           BZF      KILL20                                
008528,000953: 
008529,000954: 04,2215           30074                           CA       FLAGWRD0                              #  IS RENDEZVOO FLAG SET
008530,000955: 04,2216           74704                           MASK     BIT7                                  
008531,000956: 04,2217           10000                           CCS      A                                     
008532,000957: 04,2220           12236                           TCF      STATQUO                               
008533,000958: 
008534,000959: 04,2221           34704        POOFIZZ            CAF      BIT7                                  
008535,000960: 04,2222           70074                           MASK     FLAGWRD0                              
008536,000961: 04,2223           10000                           CCS      A                                     
008537,000962: 04,2224           12233                           TCF      REV37                                 
008538,000963: 04,2225           00006        KILL20             EXTEND                                         #  NO, KILL GROUPS 1 + 2
008539,000964: 04,2226           34714                           DCA      NEG0                                  
008540,000965: 04,2227           52753                           DXCH     -PHASE1                               
008541,000966: 
008542,000967: 04,2230           00006                           EXTEND                                         
008543,000968: 04,2231           34714                           DCA      NEG0                                  
008544,000969: 04,2232           52755                           DXCH     -PHASE2                               
008545,000970: 
008546,000971: 04,2233           32376        REV37              CAF      V37QCAD                               #  SET RESTART POINT
008547,000972: 04,2234           54374                           TS       TEMPFLSH                              
008548,000973: 
008549,000974: 04,2235           12202                           TCF      GOGOPROG                              
008550,000975: 
008551,000976: 04,2236           40075        STATQUO            CS       FLAGWRD1                              #  SET TRACKFLAG AND UPDATE FLAG
008552,000977: 04,2237           74732                           MASK     OCT120                                
008553,000978: 04,2240           26075                           ADS      FLAGWRD1                              
008554,000979: 
008555,000980: 04,2241           00006                           EXTEND                                         #  KILL GROUP 4
008556,000981: 04,2242           34714                           DCA      NEG0                                  
008557,000982: 04,2243           52761                           DXCH     -PHASE4                               
008558,000983: 
008559,000984: 04,2244           12200                           TCF      GOMOD                                 
008560,000985: 
008561,000986: 04,2245           34704        NOUVEAU            CAF      BIT7                                  
008562,000987: 04,2246           70074                           MASK     FLAGWRD0                              
008563,000988: 04,2247           10000                           CCS      A                                     
008564,000989: 04,2250           12253                           TCF      +3                                    
008565,000990: 04,2251           05447                           TC       DOWNFLAG                              #  NO, RESET IMUSE FLAG.
008566,000991: 04,2252           00007                           ADRES    IMUSE                                 #  BIT 8 FLAG 0
008567,000992: 04,2253           50774                 +3        INDEX    MINDEX                                
008568,000993: 04,2254           32476                           CAF      DNLADMM1                              #  OBTAIN NEW DOWNLIST ADDRESS
008569,000994: 
008570,000995: 04,2255           00004                           INHINT                                         
008571,000996: 04,2256           12165                           TCF      SEUDOPOO                              
008572,000997: 
008573,000998: 04,2257           04400        V37NONO            TC       FALTON                                #  COME HERE IF MM REQUESTED DOESNT EXIST

Page 197

008575,001000: 04,2260           12072                           TCF      V37BAD                                
008576,001001: 
008577,001002: 04,2261     4707               OCT00010           EQUALS   BIT4                                  
008578,001003: 04,2261           00004        V37XEQ             INHINT                                         
008579,001004: 04,2262           50774                           INDEX    MINDEX                                
008580,001005: 04,2263           32440                           CAF      PREMM1                                
008581,001006: 04,2264           55060                           TS       MMTEMP                                #  OBTAIN PRIORITY BITS 15 - 11
008582,001007: 04,2265           54020                           TS       CYR                                   #  SHIFT RIGHT TO BITS 14 - 10
008583,001008: 
008584,001009: 04,2266           30020                           CA       CYR                                   
008585,001010: 04,2267           77674                           MASK     PRIO37                                
008586,001011: 04,2270           55062                           TS       PHSPRDT4                              #  PRESET GROUP 4 RESTART PRIORITY
008587,001012: 04,2271           54063                           TS       NEWPRIO                               #  STORE PRIO FOR SPVAC
008588,001013: 
008589,001014: 04,2272           31060                           CA       MMTEMP                                #  OBTAIN EBANK - BITS 8, 9, 10 OF MMTEMP.
008590,001015: 04,2273           00006                           EXTEND                                         
008591,001016: 04,2274           74703                           MP       BIT8                                  
008592,001017: 04,2275           74716                           MASK     LOW3                                  
008593,001018: 04,2276           54001                           TS       L                                     
008594,001019: 04,2277           50774                           INDEX    MINDEX                                
008595,001020: 04,2300           32403                           CAF      FCADRMM1                              
008596,001021: 04,2301           55061                           TS       BASETEMP                              
008597,001022: 04,2302           74364                           MASK     HI5                                   
008598,001023: 04,2303           26001                           ADS      L                                     
008599,001024: 
008600,001025: 04,2304           31061                           CA       BASETEMP                              #  OBTAIN GENADR PORTION OF 2CADR.
008601,001026: 04,2305           74747                           MASK     LOW10                                 
008602,001027: 04,2306           64700                           AD       BIT11                                 
008603,001028: 
008604,001029: 04,2307           05053                           TC       SPVAC                                 
008605,001030: 
008606,001031: 04,2310           31060        V37XEQC            CA       MMTEMP                                #  UPON RETURN FROM FINDVAC PLACE THE
008607,001032: 04,2311           76043                           MASK     LOW7                                  #  NEW MM IN MODREG (THE LOW 7 BITS OF
008608,001033: 04,2312           05246                           TC       NEWMODEA                              #  PHSBRDT1)
008609,001034: 
008610,001035:                                                                                                  #  FOR SUNDISK ONLY
008611,001036: 04,2313           04473                           TC       RELDSP                                #  RELEASE DISPLAY
008612,001037: 04,2314           05112                           TC       ENDOFJOB                              #  AND EXIT
008613,001038: 
008614,001039: 04,2315           00006        INITSUB            EXTEND                                         
008615,001040: 04,2316           22155                           QXCH     MPAC       +1                         
008616,001041: 
008617,001042: 04,2317           34752                           CAF      EBANK6                                #  SET E6 FOR DEADBAND CODING
008618,001043: 04,2320           54003                           TS       EBANK                                 #  WILL BE RESET IN STARTSB2.
008619,001044: 04,2321           00004                           INHINT                                         
008620,001045: 04,2322           30105                           CA       FLAGWRD9                              #  RESTORE DEADBAND
008621,001046: 04,2323           74677                           MASK     BIT12                                 
008622,001047: 04,2324           10000                           CCS      A                                     
008623,001048: 04,2325           12331                           TCF      SETMAXER                              #  MAX DB SELECTED
008624,001049: 04,2326           04555                           TC       BANKCALL                              #  MIN DB SELECTED

Page 198

008626,001051: 04,2327           50213                           CADR     SETMINDB                              
008627,001052: 04,2330           12333                           TCF      RAKE                                  
008628,001053: 04,2331           04555        SETMAXER           TC       BANKCALL                              
008629,001054: 04,2332           50227                           CADR     SETMAXDB                              
008630,001055: 
008631,001056: 04,2333           34717        RAKE               CAF      ELEVEN                                #  THIS PART CLEARS FLAGWORD BITS.
008632,001057: 04,2334           54154                 +1        TS       MPAC                                  #  LOOP COMES HERE.
008633,001058: 04,2335           50154                           INDEX    MPAC                                  
008634,001059: 04,2336           42356                           CS       FLAGTABL                              
008635,001060: 04,2337           50154                           INDEX    MPAC                                  
008636,001061: 04,2340           70074                           MASK     FLAGWRD0                              
008637,001062: 04,2341           50154                           INDEX    MPAC                                  #  PUT REVISED FLAGWORD BACK.
008638,001063: 04,2342           54074                           TS       FLAGWRD0                              
008639,001064: 04,2343           10154                           CCS      MPAC                                  
008640,001065: 04,2344           12334                           TCF      RAKE       +1                         #  GET THE NEXT FLAGWORD.
008641,001066: 04,2345           00003                           RELINT                                         
008642,001067: 
008643,001068: 04,2346           05435                           TC       UPFLAG                                #  NOW SET IMPULSW
008644,001069: 04,2347           00044                           ADRES    IMPULSW                               
008645,001070: 
008646,001071: 04,2350           05425                           TC       CLEARMRK                              
008647,001072: 
008648,001073: 04,2351           04555                           TC       BANKCALL                              
008649,001074: 04,2352           45245                           CADR     STOPRATE                              
008650,001075: 
008651,001076: 04,2353           37716                           CA       NEGONE                                
008652,001077: 04,2354           55303                           TS       OPTIND                                
008653,001078: 04,2355           00155                           TC       MPAC       +1                         #  RETURN FROM INITSUB
008654,001079: 
008655,001080: 04,2356           00000        FLAGTABL           OCT      0                                     
008656,001081: 04,2357           00040                           OCT      00040                                 #  IDLEFAIL
008657,001082: 04,2360           02000                           OCT      02000                                 #  STEERSW
008658,001083: 04,2361           00000                           OCT      0                                     
008659,001084: 04,2362           00000                           OCT      0                                     
008660,001085: 04,2363           04140                           OCT      04140                                 #  V59FLAG, ENGONFLG, 3AXISFLG
008661,001086: 04,2364           10000                           OCT      10000                                 #  STRULLSW
008662,001087: 04,2365           16020                           OCT      16020                                 #  IGNFLAG, ASTNFLAG, TIMRFLAG, NOUPFLAG
008663,001088: 04,2366           00000                           OCT      0                                     
008664,001089: 04,2367           42000                           OCT      42000                                 #  SWTOVER, V94FLAG
008665,001090: 04,2370           00000                           OCT      0                                     
008666,001091: 04,2371           00000                           OCT      0                                     
008667,001092: 
008668,001093: 04,2372     5630               NEG7               EQUALS   OCT77770                              
008669,001094: 
008670,001095: 04,2372  E6,1425                                  EBANK=   PACTOFF                               
008671,001096: 04,2372           03132 12066  POODAPAD           2CADR    T5IDLOC                               
008672,001097: 
008673,001098: 04,2374     1060               MMTEMP             EQUALS   PHSPRDT3                              
008674,001099: 04,2374     1061               BASETEMP           EQUALS   TBASE4                                
008675,001100: 04,2374           00300        BIT7-8             OCT      300                                   

Page 199

008677,001102: 04,2375           01120        OCT01120           OCT      01120                                 
008678,001103: 
008679,001104: 04,2376           10264        V37QCAD            CADR     V37XEQ     +3                         
008680,001105: 04,2377           10132        ROOAD              CADR     DUMMYAD                               
008681,001106: 04,2400  E6,1466                                  EBANK=   DAPDATR1                              
008682,001107: 04,2400           02106 42066  RCSADDR4           2CADR    RCSATT                                
008683,001108: 
008684,001109: 04,2402           37312        3.1SEC             OCT      37312                                 #  2.5 + 0.6 SEC
008685,001110:                                                                                                  #  FOR VERB 37 TWO TABLES ARE MAINTAINED. EACH TABLE HAS AN ENTRY FOR EACH
008686,001111:                                                                                                  #  MAJOR MODE THAT CAN BE STARTED FROM THE KEYBOARD. THE ENTRIES ARE PUT
008687,001112:                                                                                                  #  INTO THE TABLE WITH THE ENTRY FOR THE HIGHEST MAJOR MODE COMING FIRST,
008688,001113: 
008689,001114:                                                                                                  #  TO THE LOWEST MAJOR MODE WHICH IS THE LAST ENTRY IN EACH TABLE.
008690,001115: 
008691,001116:                                                                                                  #           THE FCADRMM TABLE CONTAINS THE FCADR OF THE STARTING JOB OF
008692,001117:                                                                                                  #  THE MAJOR MODE.   FOR EXAMPLE, 
008693,001118: 
008694,001119:                                                                                                  #                                          FCADRMM1 FCADR  P79             START OF P 79
008695,001120:                                                                                                  #                                                   FCADR  PROG18          START OF P 18
008696,001121:                                                                                                  #                                                   FCADR  P01             START OF P 01
008697,001122: 
008698,001123: 04,2403                        FCADRMM1           EQUALS                                         
008699,001124: 04,2403           11331                           FCADR    P79                                   
008700,001125: 04,2404           11106                           FCADR    P78                                   
008701,001126: 04,2405           73433                           FCADR    P77                                   
008702,001127: 04,2406           26036                           FCADR    P76                                   
008703,001128: 04,2407           72157                           FCADR    P75                                   
008704,001129: 04,2410           72002                           FCADR    P74                                   
008705,001130: 04,2411           54320                           FCADR    P62                                   
008706,001131: 04,2412           54217                           FCADR    P61                                   
008707,001132: 04,2413           32000                           FCADR    P54                                   
008708,001133: 04,2414           31061                           FCADR    P53                                   
008709,001134: 04,2415           32000                           FCADR    PROG52                                
008710,001135: 04,2416           31061                           FCADR    P51                                   
008711,001136: 04,2417           50412                           FCADR    P47CSM                                
008712,001137: 04,2420           50235                           FCADR    P41CSM                                
008713,001138: 04,2421           50002                           FCADR    P40CSM                                
008714,001139: 04,2422           11324                           FCADR    P39                                   
008715,001140: 04,2423           11103                           FCADR    P38                                   
008716,001141: 04,2424           74502                           FCADR    P37                                   
008717,001142: 04,2425           72153                           FCADR    P35                                   
008718,001143: 04,2426           72000                           FCADR    P34                                   
008719,001144: 04,2427           73620                           FCADR    P31                                   
008720,001145: 04,2430           73604                           FCADR    P30                                   
008721,001146: 04,2431           62021                           FCADR    P23                                   
008722,001147: 04,2432           60000                           FCADR    PROG22                                
008723,001148: 04,2433           76001                           FCADR    PROG21                                
008724,001149: 04,2434           76207                           FCADR    PROG20                                
008725,001150: 04,2435           73431                           FCADR    P17                                   
008726,001151: 04,2436           55655                           FCADR    P06                                   

Page 200

008728,001153: 04,2437           66001                           FCADR    GTSCPSS1                              #  GYROCOMPASS STANDARD LEAD IN.
008729,001154: 
008730,001155: 
008731,001156:                                                                                                  #           THE PREMM TABLE CONTAINS THE E-BANK,MAJOR MODE, AND PRIORITY
008732,001157:                                                                                                  #  INFORMATION, IT IS IN THE FOLLOWING FORM,
008733,001158: 
008734,001159:                                                                                                  #           PPP PPE EEM MMM MMM
008735,001160: 
008736,001161:                                                                                                  #           WHERE THE 7 M BITS CONTAIN THE MAJOR MODE NUMBER
008737,001162:                                                                                                  #                      3 E BITS CONTAIN THE E-BANK NUMBER
008738,001163:                                                                                                  #                      5 P BITS CONTAIN THE PRIORITY AT WHICH THE JOB IS
008739,001164:                                                                                                  #                               TO BE STARTED
008740,001165: 
008741,001166:                                                                                                  #           FOR EXAMPLE,
008742,001167: 
008743,001168:                                                                                                  #                                          PREMM1   OCT    67213           PRIORITY     33
008744,001169:                                                                                                  #                                                                          E-BANK        5
008745,001170:                                                                                                  #                                                                          MAJOR MODE   11
008746,001171:                                                                                                  #                                                   OCT    25437           PRIORITY      12
008747,001172:                                                                                                  #                                                                          E-BANK        6
008748,001173:                                                                                                  #                                                                          MAJOR MODE   31
008749,001174: 
008750,001175: 04,2440                        PREMM1             EQUALS                                         
008751,001176: 04,2440           27117                           OCT      27117                                 #  MM 79  EBANK 4  PRIO 13
008752,001177: 04,2441           27116                           OCT      27116                                 #  MM 78  EBANK 4 PR23 13
008753,001178: 04,2442           27115                           OCT      27115                                 #  MM 77  EBANK 4  PRIO 13
008754,001179: 04,2443           27714                           OCT      27714                                 #  MM 76  EBANK 7  PRIO 13
008755,001180: 04,2444           27113                           OCT      27113                                 #  MM 75  EBANK 4  PRIO 13
008756,001181: 04,2445           27112                           OCT      27112                                 #  MM 74  EBANK 4  PRIO13
008757,001182: 04,2446           27476                           OCT      27476                                 #  MM 62  EBANK 6  PRIO 13
008758,001183: 04,2447           27475                           OCT      27475                                 #  MM 61  EBANK 6  PRIO 13
008759,001184: 04,2450           27266                           OCT      27266                                 #  MM 54  EBANK 5  PRIO 13
008760,001185: 04,2451           27265                           OCT      27265                                 #  MM 53  EBANK 5  PRIO 13
008761,001186: 04,2452           27264                           OCT      27264                                 #  MM 52  EBANK 5  PRIO 13
008762,001187: 04,2453           27263                           OCT      27263                                 #  MM 51  EBANK 5  PRIO 13
008763,001188: 04,2454           27657                           OCT      27657                                 #  MM 47  EBANK 7  PRIO 13
008764,001189: 04,2455           27451                           OCT      27451                                 #  MM 41  EBANK 6  PRIO 13
008765,001190: 04,2456           27450                           OCT      27450                                 #  MM 40  EBANK 6  PRIO 13
008766,001191: 04,2457           27047                           OCT      27047                                 #  MM 39  EBANK 4 PRIO13
008767,001192: 04,2460           27046                           OCT      27046                                 #  MM 38  EBANK 4 PRIO 13
008768,001193: 04,2461           27645                           OCT      27645                                 #  MM 37  EBANK 7 PRIO13
008769,001194: 04,2462           27043                           OCT      27043                                 #  MM 35  EBANK 4  PRIO 13
008770,001195: 04,2463           27042                           OCT      27042                                 #  MM 34  EBANK 4  PRIO13
008771,001196: 04,2464           27637                           OCT      27637                                 #  MM 31  EBANK 7  PRIO 13
008772,001197: 04,2465           27636                           OCT      27636                                 #  MM 30  EBANK 7  PRIO 13
008773,001198: 04,2466           27227                           OCT      27227                                 #  MM 23  EBANK 5  PRIO 13
008774,001199: 04,2467           27226                           OCT      27226                                 #  MM 22  EBANK 5  PRIO 13
008775,001200: 04,2470           27025                           OCT      27025                                 #  MM 21  EBANK 4  PRIO 13
008776,001201: 04,2471           27424                           OCT      27424                                 #  MM 20  EBANK 6  PRIO 13
008777,001202: 04,2472           27021                           OCT      27021                                 #  MM 17  EBANK 4  PRIO 13

Page 201

008779,001204: 04,2473           27006                           OCT      27006                                 #  MM 06  EBANK 4  PRIO 13
008780,001205: 04,2474           41201                           OCT      41201                                 #  MM 01  EBANK 5  PRIO 20
008781,001206: 
008782,001207: 
008783,001208: 
008784,001209:                                                                                                  #  THE FOLLOWING LIST IS FOR THE PURPOSE OF VERIFYING THAT THE EBA
008785,001210: 
008786,001211: 04,2475  E7,1412                                  EBANK=   TIG                                   #  EBANK SETTING REQUIRED BY MM 76
008787,001212: 04,2475  E4,1763                                  EBANK=   KT                                    #  EBANK SETTING REQUIRED BY MM 75
008788,001213: 04,2475  E4,1770                                  EBANK=   SUBEXIT                               #  EBANK SETTING REQUIRED BY MM 74
008789,001214: 04,2475  E6,1661                                  EBANK=   AOG                                   #  EBANK SETTING REQUIRED BY MM 62
008790,001215: 04,2475  E6,1661                                  EBANK=   AOG                                   #  EBANK SETTING REQUIRED BY MM 61
008791,001216: 04,2475     0302                                  EBANK=   BESTI                                 #  EBANK SETTING REQUIRED BY MM 54
008792,001217: 04,2475     0304                                  EBANK=   STARIND                               #  EBANK SETTING REQUIRED BY MM 53
008793,001218: 04,2475     0302                                  EBANK=   BESTI                                 #  EBANK SETTING REQUIRED BY MM 52
008794,001219: 04,2475     0304                                  EBANK=   STARIND                               #  EBANK SETTING REQUIRED BY MM 51
008795,001220: 04,2475  E7,1672                                  EBANK=   P40TMP                                #  EBANK SETTING REQUIRED BY MM 47
008796,001221: 04,2475  E7,1477                                  EBANK=   AXISCODE                              #  EBANK SETTING REQUIRED BY MM 41
008797,001222: 04,2475  E6,1510                                  EBANK=   KMPAC                                 #  EBANK SETTING REQUIRED BY MM 40
008798,001223: 04,2475  E4,1763                                  EBANK=   KT                                    #  EBANK SETTING REQUIRED BY MM 35
008799,001224: 04,2475  E4,1770                                  EBANK=   SUBEXIT                               #  EBANK SETTING REQUIRED BY MM 34
008800,001225: 04,2475  E7,1625                                  EBANK=   +MGA                                  #  EBANK SETTING REQUIRED BY MM 30
008801,001226: 04,2475  E5,1751                                  EBANK=   LANDMARK                              #  EBANK SETTING REQUIRED BY MM 23
008802,001227: 04,2475     0301                                  EBANK=   MARKINDX                              #  EBANK SETTING REQUIRED BY MM 22
008803,001228: 04,2475  0003777                                  EBANK=   WHOCARES                              #  EBANK SETTING REQUIRED BY MM 21
008804,001229: 04,2475  E6,1412                                  EBANK=   ESTROKER                              #  EBANK SETTING REQUIRED BY MM 20
008805,001230: 04,2475     1150                                  EBANK=   TIME2SAV                              #  EBANK SETTING REQUIRED BY MM 06
008806,001231: 04,2475  E5,1425                                  EBANK=   QPLACE                                #  EBANK SETTING REQUIRED BY MM 01
008807,001232: 
008808,001233: 
008809,001234:                                                                                                  #  NOTE,    THE FOLLOWING CONSTANT IS THE NUMBER OF ENTRIES IN EACH OF
008810,001235:                                                                                                  #  ----     THE ABOVE LISTS-1(IE, THE NUMBER OF MAJOR MODES(EXCEPT P00)
008811,001236:                                                                                                  #           THAT CAN BE CALLED FROM THE KEYBOARD MINUS ONE)
008812,001237: 
008813,001238: 04,2475                        EPREMM1            EQUALS                                         #  END OF PREMM1 TABLE
008814,001239: 04,2440                                           SETLOC   PREMM1                                #  THIS CODING WILL AUTOMATICALLY CHANGE
008815,001240: 04,2440                        NO.MMS             =MINUS   EPREMM1                               #  THE 'NOV37MM' CONSTANT AS ENTRIES ARE
008816,001241: 04,2000                                           SETLOC   VERB37                                #  INSERTED(IN) OR DELETED(FROM) THE
008817,001242: 04,2000                                           BANK                                           #  'PREMM1' TABLE.
008818,001243: 
008819,001244: 04,2475           00034        NOV37MM            ADRES    NO.MMS     -1                         #  ITEMS IN 'PREMM1'TABLE - 1. *DON'T MOVE*
008820,001245: 
008821,001246: 
008822,001247: 04,2476                        DNLADMM1           EQUALS                                         
008823,001248: 04,2476           00002                           ADRES    RENDEZVU                              #  P79
008824,001249: 04,2477           00002                           ADRES    RENDEZVU                              #  P78
008825,001250: 04,2500           00002                           ADRES    RENDEZVU                              #  P77
008826,001251: 04,2501           00002                           ADRES    RENDEZVU                              #  P76
008827,001252: 04,2502           00002                           ADRES    RENDEZVU                              #  P75
008828,001253: 04,2503           00002                           ADRES    RENDEZVU                              #  P74

Page 202

008830,001255: 04,2504           00001                           ADRES    ENTRYUPD                              #  P62
008831,001256: 04,2505           00003                           ADRES    POWERED                               #  P61
008832,001257: 04,2506           00000                           ADRES    COSTALIN                              
008833,001258: 04,2507           00000                           ADRES    COSTALIN                              
008834,001259: 04,2510           00000                           ADRES    COSTALIN                              #  P52
008835,001260: 04,2511           00000                           ADRES    COSTALIN                              #  P51
008836,001261: 04,2512           00003                           ADRES    POWERED                               #  P47
008837,001262: 04,2513           00003                           ADRES    POWERED                               #  P41
008838,001263: 04,2514           00003                           ADRES    POWERED                               #  P40
008839,001264: 04,2515           00002                           ADRES    RENDEZVU                              #  P39
008840,001265: 04,2516           00002                           ADRES    RENDEZVU                              #  P38
008841,001266: 04,2517           00002                           ADRES    RENDEZVU                              #  P37
008842,001267: 04,2520           00002                           ADRES    RENDEZVU                              #  P35
008843,001268: 04,2521           00002                           ADRES    RENDEZVU                              #  P34
008844,001269: 04,2522           00002                           ADRES    RENDEZVU                              
008845,001270: 04,2523           00002                           ADRES    RENDEZVU                              #  P30
008846,001271: 04,2524           00002                           ADRES    RENDEZVU                              #  P23
008847,001272: 04,2525           00004                           ADRES    P22DNLST                              #  P22
008848,001273: 04,2526           00002                           ADRES    RENDEZVU                              #  P21
008849,001274: 04,2527           00002                           ADRES    RENDEZVU                              #  P20
008850,001275: 04,2530           00002                           ADRES    RENDEZVU                              #  P17
008851,001276: 04,2531           00000                           ADRES    COSTALIN                              #  P06
008852,001277: 04,2532           00000                           ADRES    COSTALIN                              #  P01
008853,001278: 04,2533     4714               DNLADP00           =        ZERO                                  
008854,001279: 04,2533                        COSTALIN           =        0                                     
008855,001280: 04,2533                        ENTRYUPD           =        1                                     
008856,001281: 04,2533                        RENDEZVU           =        2                                     
008857,001282: 04,2533                        POWERED            =        3                                     
008858,001283: 
008859,001284: 04,2533                        P22DNLST           =        4                                     
008860,001285:                                                                                                  #  ORBITAL INTEGRATION CONSTANTS
008861,001286: 
008862,001287:                                                                                                  #  THESE CONSTANTS ARE USED IN COMPUTING THE SETTING OF MIDFLAG.
008863,001288: 04,2533           00465 32324  RMM                2DEC     2538.09    E3         B-27            #  800 KM ABOVE LUNAR SURFACE
008864,001289: 04,2535           00333 01733  RME                2DEC     7178165    B-29                       #  800 KM ABOVE EQ. RADIUS
008865,001290: 
008866,001291: 13,2000                                           BANK     13                                    
008867,001292: 13,2000                                           SETLOC   INTINIT                               
008868,001293: 13,2000                                           BANK                                           
008869,001294: 
008870,001295: 13,2000                                           COUNT*   $$/INTIN                              
008871,001296: 
008872,001297: 13,2000  E3,1554                                  EBANK=   RRECTCSM                              
008873,001298: 
008874,001299: 13,2000           43014        STATEUP            SET      BOF                                   #  EXTRAPOLATE CM STATE VECTOR
008875,001300: 13,2001           01474                                    VINTFLAG                              
008876,001301: 13,2002           01751                                    ORBWFLAG                              #  ALSO 6X6 W-MATRIX IF VALID
008877,001302: 13,2003           26006                                    +3                                    #       FOR ORBITAL NAVIGATION
008878,001303: 13,2004           77614                           SET                                            

Page 203

008880,001305: 13,2005           01476                                    DIM0FLAG                              
008881,001306: 13,2006           45014                           CLEAR    CALL                                  
008882,001307: 13,2007           01667                                    PRECIFLG                              
008883,001308: 13,2010           27113                                    INTEGRV                               
008884,001309: 13,2011           71214                           BON      DLOAD                                 
008885,001310: 13,2012           04307                                    SURFFLAG                              
008886,001311: 13,2013           26031                                    STATEND                               
008887,001312: 13,2014           01571                                    TETCSM                                
008888,001313: 13,2015           34041                           STCALL   TDEC1                                 
008889,001314: 13,2016           27371                                    INTSTALL                              
008890,001315: 13,2017           45014                           CLEAR    CALL                                  #  EXTRAPOLATE LM STATE VECTOR
008891,001316: 13,2020           01674                                    VINTFLAG                              
008892,001317: 13,2021           26621                                    SETIFLGS                              #       AND 6X6 W-MATRIX IF VALID
008893,001318: 13,2022           43014                           BOF      SET                                   
008894,001319: 13,2023           02756                                    RENDWFLG                              #       FOR RENDEZVOUS NAVIGATION
008895,001320: 13,2024           26026                                    +2                                    
008896,001321: 13,2025           01476                                    DIM0FLAG                              
008897,001322: 13,2026           45014                           SET      CALL                                  
008898,001323: 13,2027           01467                                    PRECIFLG                              
008899,001324: 13,2030           27113                                    INTEGRV                               
008900,001325: 13,2031           77614        STATEND            CLRGO                                          
008901,001326: 13,2032           01236                                    NODOFLAG                              
008902,001327: 13,2033           26607                                    ENDINT                                
008903,001328: 
008904,001329: 
008905,001330:                                                                                                  #   THISVINT IS CALLED BY MIDTOAV1 AND2
008906,001331: 
008907,001332: 13,2034           43414        THISVINT           SET      RVQ                                   
008908,001333: 13,2035           01474                                    VINTFLAG                              

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