Source Code

These source-code files were from the printout at the MIT Museum, with many thanks to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing it to us. The printout was digitally photographed by Paul Fjeld. A team of volunteers transcribed the source code manually from these images or, where appropriate, modified already-transcribed but similar source Colossus 249 (Apollo 9) source code to agree with the images from the printout. Note that the page images presented online are of reduced quality, and that higher-quality images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051
	10:28 APR.  1,1969
Note that the date is the date of the printout, not the date of the program revision.

007478,000002:                                                                                                  ## Copyright:   Public domain.
007479,000003:                                                                                                  ## Filename:    FRESH_START_AND_RESTART.agc
007480,000004:                                                                                                  ## Purpose:     Part of the source code for Comanche, build 055. It
007481,000005:                                                                                                  ##              is part of the source code for the Command Module's
007482,000006:                                                                                                  ##              (CM) Apollo Guidance Computer (AGC), Apollo 11.
007483,000007:                                                                                                  ## Assembler:   yaYUL
007484,000008:                                                                                                  ## Reference:   pp. 181-210
007485,000009:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>,
007486,000010:                                                                                                  ##              Fabrizio Bernardini <fabrizio@spacecraft.it>
007487,000011:                                                                                                  ## Website:     http://www.ibiblio.org/apollo.
007488,000012:                                                                                                  ## Mod history: 2009-05-16 FB   Transcription Batch 2 Assignment.
007489,000013:                                                                                                  ##              2009-05-20 RSB  Removed an extraneous "TC STARTSUB".
007490,000014:                                                                                                  ##              2009-05-21 RSB  Changed a "TC BANKCALL" to "TC STOPRATE"
007491,000015:                                                                                                  ##                              in INITSUB.
007492,000016:                                                                                                  ##              2016-12-10 RSB  Proofed comments with octopus/ProoferComments
007493,000017:                                                                                                  ##                              and fixed the errors found.
007494,000018:                                                                                                  ##              2017-01-14 RSB  Fixed comment-text errors discovered while proofing
007495,000019:                                                                                                  ##                              Colossus 249 comment text.
007496,000020:                                                                                                  ##              2017-01-28 RSB  WTIH -> WITH.
007497,000021:                                                                                                  ##              2017-03-13 RSB  GOP00FIX -> GOPOOFIX.
007498,000022:                                                                                                  ##              2017-08-19 MAS  Fixed label errors found transcribing Zerlina 56.
007499,000023:                                                                                                  ##
007500,000024:                                                                                                  ## The contents of the "Comanche055" files, in general, are transcribed
007501,000025:                                                                                                  ## from scanned documents.
007502,000026:                                                                                                  ##
007503,000027:                                                                                                  ##      Assemble revision 055 of AGC program Comanche by NASA
007504,000028:                                                                                                  ##      2021113-051.  April 1, 1969.
007505,000029:                                                                                                  ##
007506,000030:                                                                                                  ##      This AGC program shall also be referred to as Colossus 2A
007507,000031:                                                                                                  ##
007508,000032:                                                                                                  ##      Prepared by
007509,000033:                                                                                                  ##                      Massachusetts Institute of Technology
007510,000034:                                                                                                  ##                      75 Cambridge Parkway
007511,000035:                                                                                                  ##                      Cambridge, Massachusetts
007512,000036:                                                                                                  ##
007513,000037:                                                                                                  ##      under NASA contract NAS 9-4065.
007514,000038:                                                                                                  ##
007515,000039:                                                                                                  ## Refer directly to the online document mentioned above for further
007516,000040:                                                                                                  ## information.  Please report any errors to info@sandroid.org.
007517,000041: 

Page 181

007519,000043:                                                                                                  #  PROGRAM DESCRIPTION                                           8 APRIL, 1967
007520,000044:                                                                                                  #                                                                SUNDISK REV 120
007521,000045:                                                                                                  #  FUNCTIONAL DESCRIPTION
007522,000046: 
007523,000047:                                                                                                  #  SLAP1         MAN INITIATED FRESH START
007524,000048:                                                                                                  #        1.      EXECUTE STARTSUB
007525,000049:                                                                                                  #        2.      TURN OFF DSKY DISCRETE-LAMPS
007526,000050:                                                                                                  #        3.      CLEAR FAIL REGISTERS,SELF CHECK ERROR COUNTER AND RESTART
007527,000051:                                                                                                  #                COUNTER
007528,000052:                                                                                                  #        4.      EXECUTE DOFSTART
007529,000053: 
007530,000054:                                                                                                  #  DOFSTART      MACHINE INITIATED FRESH START
007531,000055: 
007532,000056:                                                                                                  #        1.      CLEAR SELF-CHECK REGISTERS, MODE REGISTER AND CDUZ REGISTER
007533,000057:                                                                                                  #        2.      CLEAR PHASE TABLE
007534,000058:                                                                                                  #        3.      INITIALIZE IMU FLAGS
007535,000059:                                                                                                  #        4.      INITIALIZE FLAGWORDS
007536,000060:                                                                                                  #        5.      TRANSFER CONTROL TO IDLE LOOP IN DUMMYJOB
007537,000061: 
007538,000062:                                                                                                  #  GOPROG        HARDWARE RESTART
007539,000063: 
007540,000064:                                                                                                  #        0.      EXECUTE STARTSUB
007541,000065:                                                                                                  #        1.      TRANSFER CONTROL TO DOFSTART IF ANY OF THE FOLLOWING CONDITIONS
007542,000066:                                                                                                  #                EXIST.
007543,000067:                                                                                                  #                A.      RESTART OCCURED DURING EXECUTION OF ERASCHK
007544,000068:                                                                                                  #                B.      BOTH OSCILLATOR FAIL AND AGC WARNING ARE ON
007545,000069:                                                                                                  #                C.      MARK REJECT AND EITHER NAV OR MAIN DSKY ERROR LIGHT RESET
007546,000070:                                                                                                  #                        ARE ON.
007547,000071:                                                                                                  #        2.      SCHEDULE A T5RUPT PROGRAM FOR THE DAP
007548,000072:                                                                                                  #        3.      SET FLAGWRD5 BITS FOR INTWAKE ROUTINE
007549,000073:                                                                                                  #        4.      EXTINGUISH ALL DSKY LAMPS, EXCEPT PROGRAM ALARM, GIMBAL LOCK AND
007550,000074:                                                                                                  #                NO ATT
007551,000075:                                                                                                  #        5.      INITIALIZE IMU FLAGS
007552,000076:                                                                                                  #        6.      IF ENGINE COMMAND IS ON (FLAGWRD5,BIT 7), SET ENGINE ON (CHAN-
007553,000077:                                                                                                  #                NEL 11, BIT 13)
007554,000078:                                                                                                  #        7.      TRANSFER CONTROL TO GOPROG3
007555,000079: 
007556,000080:                                                                                                  #  ENEMA         SOFTWARE RESTART    INITIATED BY MAJOR MODE CHANGE
007557,000081: 
007558,000082:                                                                                                  #        1.      EXECUTE STARTSB2
007559,000083:                                                                                                  #        2.      KILL PROGRAMS THAT WERE INTEGRATING OR WAITING FOR INTEGRATION
007560,000084:                                                                                                  #                ROUTINE
007561,000085:                                                                                                  #        3.      TRANSFER CONTROL TO GOPROG3
007562,000086: 
007563,000087:                                                                                                  #  GOPROG3       SUBROUTINE COMMON TO GOPROG AND ENEMA
007564,000088: 
007565,000089:                                                                                                  #        1.      TEST PHASE TABLES - IF INCORRECT, DISPLAY ALARM 1107 AND
007566,000090:                                                                                                  #                TRANSFER CONTROL TO DOFSTART
007567,000091:                                                                                                  #        2.      DISPLAY MAJOR MODE
007568,000092:                                                                                                  #        3.      IF ANY GROUPS WERE ACTIVE UPON RESTART, TRANSFER CONTROL TO THE

Page 182

007570,000094:                                                                                                  #                RESTARTS SUBROUTINE TO RESCHEDULE PENDING TASKS, LONGCALLS, AND
007571,000095:                                                                                                  #                JOBS (P20 IS RESTARTED VIA FINDVAC)
007572,000096:                                                                                                  #        4.      IF NO GROUPS WERE ACTIVE UPON RESTART, DISPLAY ALARM CODE
007573,000097:                                                                                                  #                1110 (RESTART WITH NO ACTIVE GROUPS).
007574,000098:                                                                                                  #        5.      TRANSFER CONTROL TO IDLE LOOP IN DUMMYJOB
007575,000099: 
007576,000100:                                                                                                  #  STARTSUB      SUBROUTINE COMMON TO SLAP1 AND GOPROG
007577,000101: 
007578,000102:                                                                                                  #        1.      CLEAR OUTBIT CHANNELS 5 AND 6
007579,000103:                                                                                                  #        2.      INITIALIZE TIME5, TIME4, TIME3
007580,000104:                                                                                                  #        3.      TRANSFER CONTROL TO STARTSB2
007581,000105: 
007582,000106:                                                                                                  #  STARTSB2      SUBROUTINE COMMON TO STARTSUB AND ENEMA
007583,000107: 
007584,000108:                                                                                                  #        1.      INITIALIZE OUTBIT CHANNELS 11,12,13 AND 14
007585,000109:                                                                                                  #        2.      REPLACE ALL TASKS ON WAITLIST WITH ENDTASK
007586,000110:                                                                                                  #        3.      MAKE ALL EXECUTIVE REGISTERS AVAILABLE
007587,000111:                                                                                                  #        4.      MAKE ALL VAC AREAS AVAILABLE
007588,000112:                                                                                                  #        5.      CLEAR DSKY REGISTERS
007589,000113:                                                                                                  #        6.      ZERO NUMEROUS SWITCHES
007590,000114:                                                                                                  #        7.      INITIALIZE OPTICS FLAGS
007591,000115:                                                                                                  #        8.      INITIALIZE PIPA AND TELEMETRY FAIL FLAGS
007592,000116:                                                                                                  #        9.      INITIALIZE DOWN TELEMETRY
007593,000117: 
007594,000118:                                                                                                  #  INPUT/OUTPUT INITIALIZATION
007595,000119: 
007596,000120:                                                                                                  #        A.      CALLING SEQUENCE
007597,000121: 
007598,000122:                                                                                                  #                SLAP1 -         TC POSTJUMP     OR      VERB 36,ENTER
007599,000123:                                                                                                  #                                CADR SLAP1
007600,000124: 
007601,000125:                                                                                                  #                ENEMA -         TC POSTJUMP     *** DO NOT CALL ENEMA WITHOUT ***
007602,000126:                                                                                                  #                                CADR ENEMA      ***  CONSULTING POOH PEOPLE   ***
007603,000127: 
007604,000128:                                                                                                  #        B.      OUTPUT
007605,000129: 
007606,000130:                                                                                                  #                ERASABLE MEMORY INITIALIZATION
007607,000131: 
007608,000132:                                                                                                  #  PROGRAM ANALYSIS
007609,000133: 
007610,000134:                                                                                                  #        A.      SUBROUTINES CALLED
007611,000135: 
007612,000136:                                                                                                  #                MR.KLEAN,WAITLIST,DSPMM,ALARM,RESTARTS,FINDVAC
007613,000137: 
007614,000138:                                                                                                  #        B.      ALARMS
007615,000139: 
007616,000140:                                                                                                  #                1107    PHASE TABLE ERROR
007617,000141:                                                                                                  #                1110    RESTART WITH NO ACTIVE GROUPS
007618,000142: 

Page 183

007620,000144: 10,2203                                           BANK     10                                    
007621,000145: 05,2000                                           SETLOC   FRANDRES                              
007622,000146: 05,2000                                           BANK                                           
007623,000147: 
007624,000148: 05,2342  E3,1400                                  EBANK=   LST1                                  
007625,000149: 
007626,000150: 05,2342                                           COUNT    05/START                              
007627,000151: 
007628,000152: 05,2342           00004        SLAP1              INHINT                                         #  FRESH START.  COMES HERE FROM PINBALL.
007629,000153: 05,2343           02776                           TC       STARTSUB                              #  SUBROUTINE DOES MOST OF THE WORK.
007630,000154: 
007631,000155: 05,2344           12351        STARTSW            TCF      SKIPSIM                               #  PATCH....TCF STARTSIM...FOR SIMULATION
007632,000156: 05,2345           35002        STARTSIM           CAF      BIT14                                 
007633,000157: 05,2346           05147                           TC       FINDVAC                               
007634,000158: 05,2347           77777        SIM2CADR           OCT      77777                                 #  PATCH 2CADR (AND EBANK DESIGNATION) OF
007635,000159: 05,2350           77777                           OCT      77777                                 #  SIMULATION START ADDRESS.
007636,000160: 
007637,000161: 05,2351           31036        SKIPSIM            CA       DSPTAB     +11D                       
007638,000162: 05,2352           75033                           MASK     BITS4&6                               
007639,000163: 05,2353           65001                           AD       BIT15                                 
007640,000164: 05,2354           55036                           TS       DSPTAB     +11D                       #  REQUESTED FRESH START.
007641,000165: 
007642,000166: 05,2355           35021                           CA       ZERO                                  #  SAME STORY ON ZEROING FAILREG.
007643,000167: 05,2356           55365                           TS       ERCOUNT                               
007644,000168: 05,2357           54375                           TS       FAILREG                               
007645,000169: 05,2360           54376                           TS       FAILREG    +1                         
007646,000170: 05,2361           54377                           TS       FAILREG    +2                         
007647,000171: 05,2362           55154                           TS       REDOCTR                               
007648,000172: 
007649,000173: 05,2363           44710                           CS       PRIO12                                
007650,000174: 05,2364           55302                           TS       DSRUPTSW                              
007651,000175: 
007652,000176: 05,2365           35021        DOFSTART           CAF      ZERO                                  #  DO A FRESH START.
007653,000177: 05,2366           55360                           TS       ERESTORE                              #  ***** MUST NOT BE REMOVED FROM DOFSTART
007654,000178: 05,2367           55362                           TS       SMODE                                 #  ***** MUST NOT BE REMOVED FROM DOFSTART
007655,000179: 05,2370           55501                           TS       UPSVFLAG                              #  UPDATE STATE VECTOR REQUEST FLAGWORD
007656,000180: 05,2371           00006                           EXTEND                                         
007657,000181: 05,2372           01005                           WRITE    CHAN5                                 #  TURN OFF RCS JETS
007658,000182: 05,2373           00006                           EXTEND                                         
007659,000183: 05,2374           01006                           WRITE    CHAN6                                 #  TURN OFF RCS JETS
007660,000184: 05,2375           00006                           EXTEND                                         
007661,000185: 05,2376           01011                           WRITE    DSALMOUT                              #  ZERO CHANNEL 11
007662,000186: 05,2377           00006                           EXTEND                                         
007663,000187: 05,2400           01012                           WRITE    CHAN12                                #  ZERO CHANNEL 12
007664,000188: 05,2401           00006                           EXTEND                                         
007665,000189: 05,2402           01013                           WRITE    CHAN13                                #  ZERO CHANNEL 13
007666,000190: 05,2403           00006                           EXTEND                                         
007667,000191: 05,2404           01014                           WRITE    CHAN14                                #  ZERO CHANNEL 14
007668,000192: 05,2405           55316                           TS       WTOPTION                              
007669,000193: 05,2406           54332                           TS       DNLSTCOD                              

Page 184

007671,000195: 05,2407           54371                           TS       NVSAVE                                
007672,000196: 05,2410           55071                           TS       EBANKTEM                              
007673,000197: 05,2411           55130                           TS       RATEINDX                              
007674,000198: 05,2412           55126                           TS       TRKMKCNT                              
007675,000199: 05,2413           55125                           TS       VHFCNT                                
007676,000200: 05,2414           55044                           TS       EXTVBACT                              
007677,000201: 
007678,000202: 05,2415           41036                           CS       DSPTAB     +11D                       
007679,000203: 05,2416           75033                           MASK     BITS4&6                               
007680,000204: 05,2417           10000                           CCS      A                                     
007681,000205: 05,2420           02424                           TC       +4                                    
007682,000206: 05,2421           35033                           CA       BITS4&6                               
007683,000207: 05,2422           00006                           EXTEND                                         #  THE IMU WAS IN COARSE ALIGN IN GIMBAL
007684,000208: 05,2423           05012                           WOR      CHAN12                                #  LOCK, SO PUT IT BACK INTO COARSE ALIGN.
007685,000209: 05,2424           02501                           TC       MR.KLEAN                              
007686,000210: 
007687,000211: 05,2425           45021                           CS       ZERO                                  
007688,000212: 05,2426           55011                           TS       MODREG                                
007689,000213: 
007690,000214: 05,2427           34371                           CAF      PRIO30                                
007691,000215: 05,2430           54366                           TS       RESTREG                               
007692,000216: 
007693,000217: 05,2431           33177                           CAF      IM30INIF                              #  FRESH START IMU INITIALIZATION.
007694,000218: 05,2432           55320                           TS       IMODES30                              
007695,000219: 
007696,000220: 05,2433           37716                           CAF      NEGONE                                
007697,000221: 05,2434           55303                           TS       OPTIND                                #  KILL COARSE OPTICS
007698,000222: 
007699,000223: 05,2435           33202                           CAF      OPTINITF                              
007700,000224: 05,2436           55331                           TS       OPTMODES                              
007701,000225: 
007702,000226: 05,2437           35070                           CAF      IM33INIT                              
007703,000227: 05,2440           55321                           TS       IMODES33                              
007704,000228: 
007705,000229: 05,2441           00006                           EXTEND                                         #  LET T5 IDLE.
007706,000230: 05,2442           33156                           DCA      T5IDLER                               
007707,000231: 05,2443           53313                           DXCH     T5LOC                                 
007708,000232: 
007709,000233: 05,2444           33204                           CA       SWINIT                                
007710,000234: 05,2445           54074                           TS       STATE                                 
007711,000235: 
007712,000236: 05,2446           30075                           CA       FLAGWRD1                              
007713,000237: 05,2447           75004                           MASK     NOP01BIT                              #  LEAVE NODOP01 FLAG UNTOUCHED
007714,000238: 05,2450           63205                           AD       SWINIT     +1                         
007715,000239: 05,2451           54075                           TS       FLAGWRD1                              
007716,000240: 
007717,000241: 05,2452           33206                           CA       SWINIT     +2                         
007718,000242: 05,2453           54076                           TS       STATE      +2                         
007719,000243: 
007720,000244: 05,2454           30077                           CA       FLAGWRD3                              

Page 185

007722,000246: 05,2455           75003                           MASK     BIT13                                 #  REFSMMAT FLAG
007723,000247: 05,2456           63207                           AD       SWINIT     +3                         
007724,000248: 05,2457           54077                           TS       FLAGWRD3                              
007725,000249: 
007726,000250: 05,2460           00006                           EXTEND                                         
007727,000251: 05,2461           33211                           DCA      SWINIT     +4                         
007728,000252: 05,2462           52101                           DXCH     STATE      +4                         
007729,000253: 05,2463           00006                           EXTEND                                         
007730,000254: 05,2464           33213                           DCA      SWINIT     +6                         
007731,000255: 05,2465           52103                           DXCH     STATE      +6                         
007732,000256: 05,2466           30104                           CA       FLAGWRD8                              
007733,000257: 05,2467           72525                           MASK     OCT6200                               #  CMOONFLG, LMOONFLG, AND SUFFLAG
007734,000258: 05,2470           63214                           AD       SWINIT     +8D                        
007735,000259: 05,2471           54104                           TS       FLAGWRD8                              
007736,000260: 
007737,000261: 05,2472           33215                           CA       SWINIT     +9D                        
007738,000262: 05,2473           54105                           TS       STATE      +9D                        
007739,000263: 
007740,000264: 05,2474           00006                           EXTEND                                         
007741,000265: 05,2475           33217                           DCA      SWINIT     +10D                       
007742,000266: 05,2476           52107                           DXCH     STATE      +10D                       
007743,000267: 
007744,000268: 05,2477           04701        ENDRSTRT           TC       POSTJUMP                              
007745,000269: 05,2500           03225                           CADR     DUMMYJOB   +2                         #  DOES A RELINT.        (IN A SWITCHED BANK.)
007746,000270: 
007747,000271: 05,2501           00004        MR.KLEAN           INHINT                                         
007748,000272: 05,2502           00006                           EXTEND                                         
007749,000273: 05,2503           35021                           DCA      NEG0                                  
007750,000274: 05,2504           52755                           DXCH     -PHASE2                               
007751,000275: 05,2505           00006        P00KLEAN           EXTEND                                         
007752,000276: 05,2506           35021                           DCA      NEG0                                  
007753,000277: 05,2507           52761                           DXCH     -PHASE4                               
007754,000278: 05,2510           00006                           EXTEND                                         
007755,000279: 05,2511           35021                           DCA      NEG0                                  
007756,000280: 05,2512           52753                           DXCH     -PHASE1                               
007757,000281: 05,2513           00006        V37KLEAN           EXTEND                                         
007758,000282: 05,2514           35021                           DCA      NEG0                                  
007759,000283: 05,2515           52757                           DXCH     -PHASE3                               
007760,000284: 05,2516           00006                           EXTEND                                         
007761,000285: 05,2517           35021                           DCA      NEG0                                  
007762,000286: 05,2520           52763                           DXCH     -PHASE5                               
007763,000287: 05,2521           00006                           EXTEND                                         
007764,000288: 05,2522           35021                           DCA      NEG0                                  
007765,000289: 05,2523           52765                           DXCH     -PHASE6                               
007766,000290: 05,2524           00002                           TC       Q                                     
007767,000291: 
007768,000292: 05,2525           06200        OCT6200            OCT      6200                                  
007769,000293: 

Page 186

007771,000295:                                                                                                  #  COMES HERE FROM LOCATION 4000, GOJAM. RESTART ANY PROGRAMS WHICH MAY HAVE BEEN RUNNING AT THE TIME.
007772,000296: 
007773,000297: 05,2526           25154        GOPROG             INCR     REDOCTR                               #  ADVANCE RESTART COUNTER.
007774,000298: 
007775,000299: 05,2527           22002                           LXCH     Q                                     
007776,000300: 05,2530           00006                           EXTEND                                         
007777,000301: 05,2531           04007                           ROR      SUPERBNK                              
007778,000302: 05,2532           53433                           DXCH     RSBBQ                                 
007779,000303: 05,2533           04662                           TC       BANKCALL                              #  STORE ERASABLES FOR DEBUGGING PURPOSES.
007780,000304: 05,2534           40000                           CADR     VAC5STOR                              
007781,000305: 05,2535           35001                           CA       BIT15                                 #  TEST OSC FAIL BIT TO SEE IF WE HAVE
007782,000306: 05,2536           00006                           EXTEND                                         #  HAD A POWER TRANSIENT. IF SO, ATTEMPT
007783,000307: 05,2537           03033                           WAND     CHAN33                                #  A RESTART. IF NOT, CHECK THE PRESENT
007784,000308: 05,2540           00006                           EXTEND                                         #  STATE OF AGC WARNING BIT.
007785,000309: 05,2541           12547                           BZF      BUTTONS                               
007786,000310: 
007787,000311: 05,2542           35002                           CA       BIT14                                 #  IF AGC WARNING ON (BIT = 0), DO A
007788,000312: 05,2543           00006                           EXTEND                                         #  FRESH START ON ASSUMPTION THAT
007789,000313: 05,2544           02033                           RAND     CHAN33                                #  WE ARE IN A RESTART LOOP.
007790,000314: 05,2545           00006                           EXTEND                                         
007791,000315: 05,2546           12774                           BZF      NONAVKEY   +1                         
007792,000316: 
007793,000317: 05,2547           02753        BUTTONS            TC       LIGHTSET                              #  MAKE FRESH START CHECKS BEFORE ERESTORE.
007794,000318: 
007795,000319:                                                                                                  #  ERASCHK TEMPORARILY STORES THE CONTENTS OF TWO ERASABLE LOCATIONS, X
007796,000320:                                                                                                  #  AND X+1 INTO SKEEP5 AND SKEEP6.  IT ALSO STORES X INTO SKEEP7 AND
007797,000321:                                                                                                  #  ERESTORE.  IF ERASCHK IS INTERRUPTED BY A RESTART, C(ERESTORE) SHOULD
007798,000322:                                                                                                  #  EQUAL C(SKEEP7),AND BE A + NUMBER LESS THAN 2000 OCT.  OTHERWISE
007799,000323:                                                                                                  #  C(ERESTORE) SHOULD EQUAL +0.
007800,000324: 
007801,000325: 05,2550           34364                           CAF      HI5                                   
007802,000326: 05,2551           71360                           MASK     ERESTORE                              
007803,000327: 05,2552           00006                           EXTEND                                         
007804,000328: 05,2553           12555                           BZF      +2                                    #  IF ERESTORE NOT = +0 OR +N LESS THAN 2K,
007805,000329: 05,2554           12774                           TCF      NONAVKEY   +1                         #  DOUBT E MEMORY AND DO FRESH START.
007806,000330: 05,2555           41360                           CS       ERESTORE                              
007807,000331: 05,2556           00006                           EXTEND                                         
007808,000332: 05,2557           12574                           BZF      ELRSKIP    -1                         
007809,000333: 05,2560           61377                           AD       SKEEP7                                
007810,000334: 05,2561           00006                           EXTEND                                         
007811,000335: 05,2562           12564                           BZF      +2                                    #  = SKEEP7, RESTORE E MEMORY.
007812,000336: 05,2563           12774                           TCF      NONAVKEY   +1                         #  NOT = SKEEP7, DOUBT EMEM, DO FRESH START
007813,000337: 05,2564           31374                           CA       SKEEP4                                
007814,000338: 05,2565           54003                           TS       EBANK                                 #  EBANK OF E MEMORY THAT WAS UNDER TEST.
007815,000339: 05,2566           00006                           EXTEND                                         #  (NOT DXCH SINCE THIS MIGHT HAPPEN AGAIN)
007816,000340: 05,2567           31376                           DCA      SKEEP5                                
007817,000341: 05,2570           51377                           INDEX    SKEEP7                                
007818,000342: 05,2571           52001                           DXCH     0000                                  #  E MEMORY RESTORED.
007819,000343: 05,2572           35021                           CA       ZERO                                  
007820,000344: 05,2573           55360                           TS       ERESTORE                              

Page 187

007822,000346: 05,2574           02776                           TC       STARTSUB                              #  DO INITIALIZATION AFTER ERASE RESTORE.
007823,000347: 05,2575           30102        ELRSKIP            CA       FLAGWRD6                              #  RESTART AUTOPILOTS
007824,000348: 05,2576           00006                           EXTEND                                         
007825,000349: 05,2577           75015                           MP       BIT3                                  #  BITS 15,14    00      T5IDLOC
007826,000350: 05,2600           76211                           MASK     SIX                                   #                01      REDORCS
007827,000351: 05,2601           00006                           EXTEND                                         #                10      REDOTVC
007828,000352: 05,2602           50000                           INDEX    A                                     #                11      REDOSAT
007829,000353: 05,2603           33156                           DCA      T5IDLER                               
007830,000354: 05,2604           53313                           DXCH     T5LOC                                 
007831,000355: 
007832,000356: 05,2605           45002                           CS       INTFLBIT                              
007833,000357: 05,2606           70106                           MASK     RASFLAG                               
007834,000358: 05,2607           54106                           TS       RASFLAG                               
007835,000359: 
007836,000360: 05,2610           31331                           CA       OPTMODES                              
007837,000361: 05,2611           73203                           MASK     OPTINITR                              
007838,000362: 05,2612           65011                           AD       BIT7                                  
007839,000363: 05,2613           55331                           TS       OPTMODES                              
007840,000364: 
007841,000365: 05,2614           35012                           CAF      BIT6                                  
007842,000366: 05,2615           71321                           MASK     IMODES33                              
007843,000367: 05,2616           65070                           AD       IM33INIT                              
007844,000368: 05,2617           55321                           TS       IMODES33                              
007845,000369: 
007846,000370: 05,2620           33201                           CA       9,6,4                                 #  LEAVE PROG ALARM, GIMBAL LOCK, NO ATT
007847,000371: 05,2621           71036                           MASK     DSPTAB     +11D                       #  LAMPS INTACT ON HARDWARE RESTART
007848,000372: 05,2622           65001                           AD       BIT15                                 
007849,000373: 05,2623           57036                           XCH      DSPTAB     +11D                       
007850,000374: 05,2624           75014                           MASK     BIT4                                  #  IF NO ATT LAMP WAS ON, LEAVE ISS IN
007851,000375: 05,2625           00006                           EXTEND                                         #  COURSE ALIGN
007852,000376: 05,2626           12635                           BZF      NOCOARSE                              
007853,000377: 05,2627           04740                           TC       IBNKCALL                              #  IF NO ATT LAMP ON, RETURN ISS TO
007854,000378: 05,2630           17027                           CADR     SETCOARS                              #        COARSE ALIGN
007855,000379: 
007856,000380: 05,2631           36211                           CAF      SIX                                   
007857,000381: 05,2632           05245                           TC       WAITLIST                              
007858,000382: 05,2633  E3,1474                                  EBANK=   CDUIND                                
007859,000383: 05,2633           03023 16063                     2CADR    CA+ECE                                
007860,000384: 
007861,000385: 05,2635           33165        NOCOARSE           CAF      IFAILINH                              #  LEAVE FAILURE INHIBITS INTACT ON
007862,000386: 05,2636           71320                           MASK     IMODES30                              #        HARDWARE RESTART.  RESET ALL
007863,000387: 05,2637           63200                           AD       IM30INIR                              #        FAILURE CODES.
007864,000388: 05,2640           55320                           TS       IMODES30                              
007865,000389: 
007866,000390: 05,2641           40101                           CS       FLAGWRD5                              
007867,000391: 05,2642           75011                           MASK     ENGONBIT                              
007868,000392: 05,2643           10000                           CCS      A                                     
007869,000393: 05,2644           12667                           TCF      GOPROG3                               
007870,000394: 05,2645           35003                           CAF      BIT13                                 
007871,000395: 05,2646           00006                           EXTEND                                         

Page 188

007873,000397: 05,2647           05011                           WOR      DSALMOUT                              #  TURN ENGINE ON
007874,000398: 05,2650           12667                           TCF      GOPROG3                               
007875,000399: 
007876,000400: 05,2651           00004        ENEMA              INHINT                                         
007877,000401: 05,2652           02753                           TC       LIGHTSET                              #  EXIT TO DOFSTART IF ERROR RESET AND
007878,000402: 05,2653           03006                           TC       STARTSB2                              #  MARK REJECT DEPRESSED SIMULTANEOUSLY
007879,000403: 05,2654           43172                           CS       INTMASK                               #  RESET INTEGRATION BITS
007880,000404: 05,2655           70106                           MASK     RASFLAG                               
007881,000405: 05,2656           54106                           TS       RASFLAG                               
007882,000406: 
007883,000407: 05,2657           40102                           CS       FLAGWRD6                              #  IS TVC ON
007884,000408: 05,2660           74105                           MASK     OCT60000                              
007885,000409: 05,2661           00006                           EXTEND                                         
007886,000410: 05,2662           62667                           BZMF     GOPROG3                               #  NO
007887,000411: 
007888,000412: 05,2663           35036                           CAF      .5SEC                                 #  YES, CALL TVCEXEC TASK WHICH WAS KILLED
007889,000413: 05,2664           05245                           TC       WAITLIST                              #        IN STARTSB2.
007890,000414: 05,2665  E6,1702                                  EBANK=   BZERO                                 
007891,000415: 05,2665           02720 34066                     2CADR    TVCEXEC                               
007892,000416: 
007893,000417: 05,2667           35022        GOPROG3            CAF      NUMGRPS                               #  VERIFY PHASE TABLE AGREEMENTS
007894,000418: 05,2670           54161        PCLOOP             TS       MPAC       +5                         
007895,000419: 05,2671           60000                           DOUBLE                                         
007896,000420: 05,2672           00006                           EXTEND                                         
007897,000421: 05,2673           50000                           INDEX    A                                     
007898,000422: 05,2674           30753                           DCA      -PHASE1                               #  COMPLEMENT INTO A, DIRECT INTO L.
007899,000423: 05,2675           00006                           EXTEND                                         
007900,000424: 05,2676           06001                           RXOR     LCHAN                                 #  RESULT MUST BE -0 FOR AGREEMENT.
007901,000425: 05,2677           10000                           CCS      A                                     
007902,000426: 05,2700           12746                           TCF      PTBAD                                 #  RESTART FAILURE.
007903,000427: 05,2701           12746                           TCF      PTBAD                                 
007904,000428: 05,2702           12746                           TCF      PTBAD                                 
007905,000429: 
007906,000430: 05,2703           10161                           CCS      MPAC       +5                         #  PROCESS ALL RESTART GROUPS.
007907,000431: 05,2704           12670                           TCF      PCLOOP                                
007908,000432: 
007909,000433: 05,2705           54162                           TS       MPAC       +6                         #  SET TO +0.
007910,000434: 05,2706           05360                           TC       MMDSPLAY                              #  DISPLAY MAJOR MODE
007911,000435: 
007912,000436: 05,2707           00004                           INHINT                                         #  RELINT DONE IN MMDSPLAY
007913,000437: 
007914,000438: 05,2710           30102                           CAE      FLAGWRD6                              #  IS RCS DAP RUNNING (BITS 15 14 OF
007915,000439: 05,2711           74105                           MASK     OCT60000                              #  FLAGWRD6 = 01)
007916,000440: 05,2712           00006                           EXTEND                                         #  YES, DO STOPRATE
007917,000441: 05,2713           62721                           BZMF     NXTRST     -1                         #  NO, SKIP TO NXTRST -1
007918,000442: 05,2714           35057                           CAF      EBANK6                                #  STOPRATE IS DONE IN EBANK 6
007919,000443: 05,2715           54003                           TS       EBANK                                 
007920,000444: 05,2716           04526                           TC       STOPRATE                              #  ZERO DELCDUS, WBODYS, AND BIASES THUS
007921,000445:                                                                                                  #  STOPPING AUTOMATIC MANEUVERING
007922,000446: 
007923,000447: 05,2717           35051                           CAF      EBANK3                                
007924,000448: 05,2720           54003                           TS       EBANK                                 

Page 189

007926,000450: 05,2721           35022                           CAF      NUMGRPS                               #  SEE IF ANY GROUPS RUNNING.
007927,000451: 05,2722           54161        NXTRST             TS       MPAC       +5                         
007928,000452: 05,2723           60000                           DOUBLE                                         
007929,000453: 05,2724           50000                           INDEX    A                                     
007930,000454: 05,2725           10753                           CCS      PHASE1                                
007931,000455: 05,2726           12730                           TCF      PACTIVE                               #  PNZ - GROUP ACTIVE.
007932,000456: 05,2727           12735                           TCF      PINACT                                #  +0 - GROUP NOT RUNNING.
007933,000457: 
007934,000458: 05,2730           54154        PACTIVE            TS       MPAC                                  
007935,000459: 05,2731           24154                           INCR     MPAC                                  #  ABS OF PHASE.
007936,000460: 05,2732           24162                           INCR     MPAC       +6                         #  INDICATE GROUP DEMANDS PRESENT.
007937,000461: 05,2733           32752                           CA       RACTCADR                              
007938,000462: 05,2734           04666                           TC       SWCALL                                #  MUST RETURN TO SWRETURN.
007939,000463: 
007940,000464: 05,2735           10161        PINACT             CCS      MPAC       +5                         #  PROCESS ALL RESTART GROUPS.
007941,000465: 05,2736           12722                           TCF      NXTRST                                
007942,000466: 
007943,000467: 05,2737           10162                           CCS      MPAC       +6                         #  NO, CHECK PHASE ACTIVITY FLAG
007944,000468: 05,2740           12477                           TCF      ENDRSTRT                              #  PHASE ACTIVE
007945,000469: 05,2741           35001                           CAF      BIT15                                 #  IS MODE -0
007946,000470: 05,2742           71011                           MASK     MODREG                                
007947,000471: 05,2743           00006                           EXTEND                                         
007948,000472: 05,2744           14106                           BZF      GOTOPOOH                              #  NO
007949,000473: 05,2745           12477                           TCF      ENDRSTRT                              #  YES
007950,000474: 05,2746           05650        PTBAD              TC       ALARM                                 #  SET ALARM TO SHOW PHASE TABLE FAILURE.
007951,000475: 05,2747           01107                           OCT      1107                                  
007952,000476: 
007953,000477: 05,2750           12365                           TCF      DOFSTART                              #  IN R2).
007954,000478: 
007955,000479:                                                                                                  #  ******** ****** ******
007956,000480: 
007957,000481:                                                                                                  #  DO NOT USE GOPROG2 OR ENEMA WITHOUT CONSULTING POOH PEOPLE
007958,000482: 
007959,000483: 05,2751  05,2651               GOPROG2            EQUALS   ENEMA                                 
007960,000484: 05,2751     5003               OCT10000           =        BIT13                                 
007961,000485: 05,2751     4371               OCT30000           =        PRIO30                                
007962,000486: 05,2751           07777        OCT7777            OCT      7777                                  
007963,000487: 05,2752           03520        RACTCADR           CADR     RESTARTS                              
007964,000488: 
007965,000489: 05,2753           35011        LIGHTSET           CAF      BIT7                                  #  DOFSTART IF MARK REJECT AND EITHER
007966,000490: 05,2754           00006                           EXTEND                                         #  ERROR LIGHT RESET BUTTONS ARE DEPRESSED
007967,000491: 05,2755           02016                           RAND     NAVKEYIN                              
007968,000492: 05,2756           00006                           EXTEND                                         
007969,000493: 05,2757           12773                           BZF      NONAVKEY                              #  NO MARK REJECT
007970,000494: 05,2760           34362                           CAF      OCT37                                 
007971,000495: 05,2761           00006                           EXTEND                                         
007972,000496: 05,2762           02016                           RAND     NAVKEYIN                              #  NAV DSKY KEYCODES,MARK,MARK REJECT
007973,000497: 05,2763           63176                           AD       -ELR                                  
007974,000498: 05,2764           00006                           EXTEND                                         
007975,000499: 05,2765           12774                           BZF      NONAVKEY   +1                         
007976,000500: 05,2766           00006                           EXTEND                                         

Page 190

007978,000502: 05,2767           00015                           READ     MNKEYIN                               #  MAIN DSKY KEYCODES
007979,000503: 05,2770           63176                           AD       -ELR                                  
007980,000504: 05,2771           00006                           EXTEND                                         
007981,000505: 05,2772           12774                           BZF      +2                                    
007982,000506: 
007983,000507: 05,2773           00002        NONAVKEY           TC       Q                                     
007984,000508: 
007985,000509: 05,2774           02776                           TC       STARTSUB                              
007986,000510: 05,2775           12365                           TCF      DOFSTART                              
007987,000511: 05,2776           33166        STARTSUB           CAF      LDNPHAS1                              #  SET POINTER SO NEXT 20MS DOWNRUPT WILL
007988,000512: 05,2777           54335                           TS       DNTMGOTO                              #  CAUSE THE CURRENT DOWNLIST TO BE
007989,000513:                                                                                                  #  INTERRUPTED AND START SENDING FROM THE
007990,000514:                                                                                                  #  BEGINNING OF THE CURRENT DOWNLIST.
007991,000515: 05,3000           34777                           CAF      POSMAX                                
007992,000516: 05,3001           54026                           TS       TIME3                                 #  37777 TO TIME3.
007993,000517: 05,3002           67715                           AD       MINUS2                                
007994,000518: 05,3003           54027                           TS       TIME4                                 #  37775 TO TIME4.
007995,000519: 05,3004           67716                           AD       NEGONE                                
007996,000520: 05,3005           54030                           TS       TIME5                                 #  37774 TO TIME5.
007997,000521: 
007998,000522: 05,3006           33173        STARTSB2           CAF      OCT77603                              #  TURN OFF UPLINK ACTY, TEMP CAUTION, KR,
007999,000523: 05,3007           00006                           EXTEND                                         #  FLASH, OP. ERROR, LEAVE OTHERS UNCHANGED
008000,000524: 05,3010           03011                           WAND     DSALMOUT                              
008001,000525: 
008002,000526: 05,3011           33174                           CAF      OCT74777                              #  TURN OFF TEST ALARMS, STANDBY ENABLE.
008003,000527: 05,3012           00006                           EXTEND                                         
008004,000528: 05,3013           03013                           WAND     CHAN13                                
008005,000529: 05,3014           47662                           CS       PRIO25                                #  CLEAR R21MARK, P21FLAG, AND SKIPVHF BIT.
008006,000530: 05,3015           70076                           MASK     FLAGWRD2                              
008007,000531: 05,3016           65006                           AD       SKIPVBIT                              #  NOW SET SKIPVHF FLAG.
008008,000532: 05,3017           54076                           TS       FLAGWRD2                              
008009,000533: 05,3020  E3,1400                                  EBANK=   LST1                                  
008010,000534: 05,3020           33175                           CAF      STARTEB                               
008011,000535: 05,3021           54003                           TS       EBANK                                 #  SET FOR E3
008012,000536: 
008013,000537: 05,3022           35000                           CAF      NEG1/2                                #  INITIALIZE WAITLIST DELTA-TS.
008014,000538: 05,3023           55407                           TS       LST1       +7                         
008015,000539: 05,3024           55406                           TS       LST1       +6                         
008016,000540: 05,3025           55405                           TS       LST1       +5                         
008017,000541: 05,3026           55404                           TS       LST1       +4                         
008018,000542: 05,3027           55403                           TS       LST1       +3                         
008019,000543: 05,3030           55402                           TS       LST1       +2                         
008020,000544: 05,3031           55401                           TS       LST1       +1                         
008021,000545: 05,3032           55400                           TS       LST1                                  
008022,000546: 
008023,000547: 05,3033           45304                           CS       ENDTASK                               
008024,000548: 05,3034           55410                           TS       LST2                                  
008025,000549: 05,3035           55412                           TS       LST2       +2                         
008026,000550: 05,3036           55414                           TS       LST2       +4                         

Page 191

008028,000552: 05,3037           55416                           TS       LST2       +6                         
008029,000553: 05,3040           55420                           TS       LST2       +8D                        
008030,000554: 05,3041           55422                           TS       LST2       +10D                       
008031,000555: 05,3042           55424                           TS       LST2       +12D                       
008032,000556: 05,3043           55426                           TS       LST2       +14D                       
008033,000557: 05,3044           55430                           TS       LST2       +16D                       
008034,000558: 05,3045           45305                           CS       ENDTASK    +1                         
008035,000559: 05,3046           55411                           TS       LST2       +1                         
008036,000560: 05,3047           55413                           TS       LST2       +3                         
008037,000561: 05,3050           55415                           TS       LST2       +5                         
008038,000562: 05,3051           55417                           TS       LST2       +7                         
008039,000563: 05,3052           55421                           TS       LST2       +9D                        
008040,000564: 05,3053           55423                           TS       LST2       +11D                       
008041,000565: 05,3054           55425                           TS       LST2       +13D                       
008042,000566: 05,3055           55427                           TS       LST2       +15D                       
008043,000567: 05,3056           55431                           TS       LST2       +17D                       
008044,000568: 
008045,000569: 05,3057           45021                           CS       ZERO                                  #  MAKE ALL EXECUTIVE REGISTER SETS
008046,000570: 05,3060           54167                           TS       PRIORITY                              #  AVAILABLE.
008047,000571: 05,3061           54203                           TS       PRIORITY   +12D                       
008048,000572: 05,3062           54217                           TS       PRIORITY   +24D                       
008049,000573: 05,3063           54233                           TS       PRIORITY   +36D                       
008050,000574: 05,3064           54247                           TS       PRIORITY   +48D                       
008051,000575: 05,3065           54263                           TS       PRIORITY   +60D                       
008052,000576: 05,3066           54277                           TS       PRIORITY   +72D                       
008053,000577: 
008054,000578: 05,3067           55302                           TS       DSRUPTSW                              
008055,000579: 05,3070           54067                           TS       NEWJOB                                #  SHOWS NO ACTIVE JOBS.
008056,000580: 
008057,000581: 05,3071           33170                           CAF      VAC1ADRC                              #  MAKE ALL VAC AREAS AVAILABLE.
008058,000582: 05,3072           54400                           TS       VAC1USE                               
008059,000583: 05,3073           63171                           AD       LTHVACA                               
008060,000584: 05,3074           54454                           TS       VAC2USE                               
008061,000585: 05,3075           63171                           AD       LTHVACA                               
008062,000586: 05,3076           54530                           TS       VAC3USE                               
008063,000587: 05,3077           63171                           AD       LTHVACA                               
008064,000588: 05,3100           54604                           TS       VAC4USE                               
008065,000589: 05,3101           63171                           AD       LTHVACA                               
008066,000590: 05,3102           54660                           TS       VAC5USE                               
008067,000591: 
008068,000592: 05,3103           34377                           CAF      TEN                                   #  BLANK DSKY REGISTERS (PROGRAM,VERB,NOUN,
008069,000593:                                                                                                  #  R1,R2,R3)
008070,000594: 05,3104           54154        DSPOFF             TS       MPAC                                  
008071,000595: 05,3105           45004                           CS       BIT12                                 
008072,000596: 05,3106           50154                           INDEX    MPAC                                  
008073,000597: 05,3107           55023                           TS       DSPTAB                                
008074,000598: 05,3110           10154                           CCS      MPAC                                  
008075,000599: 05,3111           13104                           TCF      DSPOFF                                
008076,000600: 
008077,000601: 05,3112           55141                           TS       DELAYLOC                              

Page 192

008079,000603: 05,3113           55142                           TS       DELAYLOC   +1                         
008080,000604: 05,3114           55143                           TS       DELAYLOC   +2                         
008081,000605: 05,3115           55144                           TS       DELAYLOC   +3                         
008082,000606: 05,3116           55073                           TS       R1SAVE                                
008083,000607: 05,3117           54045                           TS       INLINK                                
008084,000608: 05,3120           54776                           TS       DSPCNT                                
008085,000609: 05,3121           55042                           TS       CADRSTOR                              
008086,000610: 05,3122           55013                           TS       REQRET                                
008087,000611: 05,3123           55015                           TS       CLPASS                                
008088,000612: 05,3124           55012                           TS       DSPLOCK                               
008089,000613: 05,3125           55020                           TS       MONSAVE                               #  KILL MONITOR
008090,000614: 05,3126           55021                           TS       MONSAVE1                              
008091,000615: 05,3127           55001                           TS       VERBREG                               
008092,000616: 05,3130           55002                           TS       NOUNREG                               
008093,000617: 05,3131           55043                           TS       DSPLIST                               
008094,000618: 05,3132           55330                           TS       MARKSTAT                              
008095,000619: 05,3133           55322                           TS       IMUCADR                               
008096,000620: 05,3134           55323                           TS       OPTCADR                               
008097,000621: 05,3135           55324                           TS       RADCADR                               
008098,000622: 05,3136           55325                           TS       ATTCADR                               
008099,000623: 05,3137           55304                           TS       LGYRO                                 
008100,000624: 05,3140           54100                           TS       FLAGWRD4                              #  KILL INTERFACE DISPLAYS
008101,000625: 05,3141           35024                           CAF      NOUTCON                               
008102,000626: 05,3142           55016                           TS       NOUT                                  
008103,000627: 
008104,000628: 05,3143           35002                           CAF      BIT14                                 
008105,000629: 05,3144           71044                           MASK     EXTVBACT                              
008106,000630: 05,3145           55044                           TS       EXTVBACT                              
008107,000631: 05,3146           33167                           CAF      LESCHK                                #  SELF CHECK GO-TO REGISTER.
008108,000632: 05,3147           55361                           TS       SELFRET                               
008109,000633: 
008110,000634: 05,3150           44374                           CS       VD1                                   
008111,000635: 05,3151           54777                           TS       DSPCOUNT                              
008112,000636: 
008113,000637: 05,3152           00002                           TC       Q                                     
008114,000638: 
008115,000639: 05,3153           30001        T5IDLOC            CA       L                                     #  T5RUPT COMES HERE EVERY 163.84 SECS
008116,000640: 05,3154           15336                           TCF      NOQRSM     +1                         #  WHEN NOBODY IS USING IT.
008117,000641: 
008118,000642: 05,3155  E6,1662                                  EBANK=   OGANOW                                
008119,000643: 05,3155           03153 12066  T5IDLER            2CADR    T5IDLOC                               
008120,000644: 
008121,000645: 05,3157  E6,1662                                  EBANK=   OGANOW                                
008122,000646: 05,3157           02105 42066                     2CADR    REDORCS                               
008123,000647: 
008124,000648: 05,3161  E6,1662                                  EBANK=   OGANOW                                
008125,000649: 05,3161           03140 34066                     2CADR    REDOTVC                               
008126,000650: 
008127,000651: 05,3163  E6,1662                                  EBANK=   OGANOW                                
008128,000652: 05,3163           02765 46066                     2CADR    REDOSAT                               

Page 193

008130,000654: 
008131,000655: 05,3165           00435        IFAILINH           OCT      435                                   
008132,000656: 05,3166           03530        LDNPHAS1           GENADR   DNPHASE1                              
008133,000657: 05,3167           03340        LESCHK             GENADR   SELFCHK                               
008134,000658: 05,3170           00400        VAC1ADRC           ADRES    VAC1USE                               
008135,000659: 05,3171           00054        LTHVACA            DEC      44         B-14                       
008136,000660: 
008137,000661: 05,3172           20100        INTMASK            OCT      20100                                 
008138,000662: 05,3173           77603        OCT77603           OCT      77603                                 
008139,000663: 05,3174           74777        OCT74777           OCT      74777                                 
008140,000664: 05,3175           01400        STARTEB            ECADR    LST1                                  
008141,000665: 05,3176     5022               NUMGRPS            EQUALS   FIVE                                  
008142,000666: 05,3176           77755        -ELR               OCT      -22                                   #  -ERROR LIGHT RESET KEY CODE.
008143,000667: 05,3177           37411        IM30INIF           OCT      37411                                 #  INHIBITS IMU FAIL FOR 5 SEC AND PIP ISSW
008144,000668: 05,3200           37000        IM30INIR           OCT      37000                                 
008145,000669: 05,3201     5070               IM33INIT           =        PRIO16                                #  NO PIP OR TM FAIL SIGNALS.
008146,000670: 05,3201           00450        9,6,4              OCT      450                                   
008147,000671: 05,3202           00130        OPTINITF           OCT      130                                   
008148,000672: 05,3203           00430        OPTINITR           OCT      430                                   
008149,000673: 05,3204           00000        SWINIT             OCT      0                                     
008150,000674: 05,3205           00000                           OCT      0                                     
008151,000675: 05,3206           00000                           OCT      0                                     
008152,000676: 05,3207           00000                           OCT      0                                     
008153,000677: 
008154,000678: 05,3210           00000                           OCT      0                                     
008155,000679: 05,3211           00200                           OCT      00200                                 
008156,000680: 05,3212           00000                           OCT      0                                     
008157,000681: 05,3213           00000                           OCT      0                                     
008158,000682: 05,3214           00000                           OCT      0                                     
008159,000683: 05,3215           00000                           OCT      0                                     
008160,000684: 05,3216           00000                           OCT      0                                     
008161,000685: 05,3217           00000                           OCT      0                                     

Page 194

008163,000687:                                                                                                  #  PROGRAM NAME          GOTOPOOH                ASSEMBLY SUNDISK
008164,000688:                                                                                                  #  LOG SECTION           FRESH START AND RESTART
008165,000689: 
008166,000690:                                                                                                  #  FUNCTIONAL DESCRIPTION
008167,000691: 
008168,000692:                                                                                                  #        1.      DISPLAY MAJOR MODE NUMBER 00 IN DSKY REGISTER R1 AND R3.  FLASH V50N07 ON DSKY.  (M M CHANGE REQUEST)
008169,000693:                                                                                                  #        2.      PERMIT A CURRENT PENDING REQUEST (FLASH ON DSKY) TO BE REPLACED (WITHOUT AN ABORT) BY THE MAJOR MODE
008170,000694:                                                                                                  #                CHANGE REQUEST
008171,000695: 
008172,000696:                                                                                                  #  INPUT/OUTPUT INFORMATION
008173,000697: 
008174,000698:                                                                                                  #        A. CALLING SEQUENCE                     TC GOTOPOOH
008175,000699:                                                                                                  #        B. ERASABLE INITIALIZATION              NONE
008176,000700:                                                                                                  #        C. OUTPUT                               FLASH VERB 50 NOUN 07 ON DSKY
008177,000701:                                                                                                  #        D. DEBRIS                               L
008178,000702: 
008179,000703:                                                                                                  #  PROGRAM ANALYSIS
008180,000704: 
008181,000705:                                                                                                  #        A. SUBROUTINES CALLED                   GOPERF3, LINUS
008182,000706:                                                                                                  #        B. NORMAL EXIT                          TCF ENDOFJOB
008183,000707:                                                                                                  #        C. ALARM AND ABORT EXITS                NONE
008184,000708: 
008185,000709:    4106                                           BLOCK    02                                    
008186,000710:    4000                                           SETLOC   FFTAG10                               
008187,000711:    4000                                           BANK                                           
008188,000712: 
008189,000713:    4106                                           COUNT    02/P00                                
008190,000714: 
008191,000715:    4106           05412        GOTOPOOH           TC       PHASCHNG                              #  RESTART GOTOPOOH
008192,000716:    4107           00014                           OCT      14                                    
008193,000717: 
008194,000718:    4110           04701                           TC       POSTJUMP                              
008195,000719:    4111           10000                           CADR     GOPOOFIX                              
008196,000720: 10,2203                                           BANK     10                                    
008197,000721: 04,2000                                           SETLOC   VERB37                                
008198,000722: 04,2000                                           BANK                                           
008199,000723: 
008200,000724: 04,2000                                           COUNT    04/P00                                
008201,000725: 
008202,000726: 04,2000           02330        GOPOOFIX           TC       INITSUB                               
008203,000727: 04,2001           05540                           TC       CLEARMRK   +2                         
008204,000728: 04,2002           32010                           CAF      V37N99                                
008205,000729: 04,2003           04662                           TC       BANKCALL                              
008206,000730: 04,2004           20720                           CADR     GOFLASH                               
008207,000731: 04,2005           12002                           TCF      -3                                    

Page 195

008209,000733: 04,2006           12002                           TCF      -4                                    
008210,000734: 04,2007           12002                           TCF      -5                                    
008211,000735: 04,2010           11343        V37N99             VN       3799                                  
008212,000736: 

Page 196

008214,000738:                                                                                                  #  PROGRAM NAME          V37                     ASSEMBLY SUNDISK
008215,000739: 
008216,000740:                                                                                                  #  LOG SECTION           FRESH START AND RESTART
008217,000741: 
008218,000742:                                                                                                  #  FUNCTIONAL DESCRIPTION
008219,000743: 
008220,000744:                                                                                                  #        1. CHECK IF NEW PROGRAM ALLOWED.  IF BIT 1 OF FLAGWRD2 (NODOFLAG) IS SET, AN ALARM 1520 IS CALLED.
008221,000745:                                                                                                  #        2. CHECK FOR VALIDITY OF PROGRAM SELECTED.  IF AN INVALID PROGRAM IS SELECTED, THE OPERATOR ERROR LIGHT IS
008222,000746:                                                                                                  #           SET AND CURRENT ACTIVITY, IF ANY, CONTINUES.
008223,000747:                                                                                                  #        3. SERVICER IS TERMINATED IF IT HAS BEEN RUNNING.
008224,000748:                                                                                                  #        4. INSTALL IS EXECUTED TO AVOID INTERRUPTING INTEGRATION.
008225,000749:                                                                                                  #        5. THE ENGINE IS TURNED OFF AND THE DAP IS INITIALIZED FOR COAST.
008226,000750:                                                                                                  #        6. TRACK, UPDATE AND TARG1 FLAGS ARE SET TO ZERO.
008227,000751:                                                                                                  #        7. DISPLAY SYSTEM IS RELEASED.
008228,000752:                                                                                                  #        8. THE FOLLOWING ARE PERFORMED FOR EACH OF THE THREE CASES.
008229,000753:                                                                                                  #                A. PROGRAM SELECTED IS P00.
008230,000754:                                                                                                  #                        1. RENDEZVOUS FLAG IS RESET (KILL P20).
008231,000755:                                                                                                  #                        2. STATINT1 IS SCHEDULED BY SETTING RESTART GROUP 2.
008232,000756:                                                                                                  #                        3. MAJOR MODE 00 IS STORED IN THE MODE REGISTER (MODREG).
008233,000757:                                                                                                  #                        4. SUPERBANK 3 IS SELECTED.
008234,000758:                                                                                                  #                        5. NODOFLAG IS RESET.
008235,000759:                                                                                                  #                        6. ALL RESTART GROUPS EXCEPT GROUP2 ARE CLEARED. CONTROL IS TRANSFERRED TO RESTART PROGRAM (GOPROG2)
008236,000760:                                                                                                  #                           WHICH CAUSES ALL CURRENT ACTIVITY TO BE DISCONTINUED AND A 9 MINUTE INTEGRATION CYCLE TO BE
008237,000761:                                                                                                  #                           INITIATED.
008238,000762:                                                                                                  #                B. PROGRAM SELECTED IS P20
008239,000763:                                                                                                  #                        1. IF THE CURRENT MAJOR MODE IS THE SAME AS THE SELECTED NEWPROGRAM, THE PROGRAM IS RE-INITIALIZED
008240,000764:                                                                                                  #                           VIA V37XEQ, ALL RESTART GROUPS, EXCEPT GROUP 4 ARE CLEARED.
008241,000765:                                                                                                  #                        2. IF THE CURRENT MAJOR MODE IS NOT EQUAL TO THE NEW REQUEST, A CHECK IS MADE TO SEE IF THE REQUEST-
008242,000766:                                                                                                  #                           ED MAJOR MODE HAS BEEN RUNNING IN THE BACKGROUND,
008243,000767:                                                                                                  #                           AND IF IT HAS, NO NEW PROGRAM IS SCHEDULED, THE EXISTING
008244,000768:                                                                                                  #                           P20 IS RESTARTED TO CONTINUE, AND ITS MAJOR MODE IS SET.
008245,000769:                                                                                                  #                        3. CONTROL IS TRANSFERRED TO GOPROG2.
008246,000770:                                                                                                  #                C. PROGRAM SELECTED IS NEITHER P00 NOR P20
008247,000771:                                                                                                  #                        1. V37XEQ IS SCHEDULED (AS A JOB) BY SETTING RESTART GROUP 4
008248,000772:                                                                                                  #                        2. ALL CURRENT ACTIVITY EXCEPT RENDEZVOUS AND TRACKING IS DISCONTINUED BY CLEARING ALL RESTART
008249,000773:                                                                                                  #                           GROUPS. GROUP 2 IS CLEARED. IF THE RENDEZVOUS FLAG IS ON P20 IS RESTARTED IN GOPROG2 VIA REDOP20.
008250,000774:                                                                                                  #                           TO CONTINUE.
008251,000775: 
008252,000776:                                                                                                  #  INPUT/OUTPUT INFORMATION
008253,000777: 
008254,000778:                                                                                                  #        A. CALLING SEQUENCE
008255,000779:                                                                                                  #                CONTROL IS DIRECTED TO V37 BY THE VERBFAN ROUTINE.
008256,000780:                                                                                                  #                VERBFAN GOES TO C(VERBTAB+C(VERBREG)). VERB 37 = MMCHANG.
008257,000781:                                                                                                  #                MMCHANG EXECUTES A TC POSTJUMP, CADR V37.
008258,000782: 
008259,000783:                                                                                                  #        B. ERASABLE INITIALIZATION              NONE
008260,000784: 
008261,000785:                                                                                                  #        C. OUTPUT
008262,000786:                                                                                                  #                MAJOR MODE CHANGE

Page 197

008264,000788: 
008265,000789:                                                                                                  #        D. DEBRIS
008266,000790:                                                                                                  #                MMNUMBER, MPAC +1, MINDEX, BASETEMP +C(MINDEX), FLAGWRD0, FLAGWRD1, FLAGWRD2, MODREG, GOLOC -1,
008267,000791:                                                                                                  #                GOLOC, GOLOC +1, GOLOC +2, BASETEMP, -PHASE2, PHASE2, -PHASE4
008268,000792: 
008269,000793:                                                                                                  #  PROGRAM ANALYSIS
008270,000794: 
008271,000795:                                                                                                  #        A. SUBROUTINES CALLED
008272,000796:                                                                                                  #                ALARM, RELDSP, PINBRNCH, INTSTALL, ENGINOF2, ALLCOAST, V37KLEAN, GOPROG2, FALTON, FINDVAC, SUPERSW,
008273,000797:                                                                                                  #                DSPMM
008274,000798: 
008275,000799:                                                                                                  #        B. NORMAL EXIT                          TC ENDOFJOB
008276,000800: 
008277,000801:                                                                                                  #        C. ALARMS                               1520 (MAJOR MODE CHANGE NOT PERMITTED)
008278,000802: 
008279,000803:    4112                                           BLOCK    02                                    
008280,000804:    4000                                           SETLOC   FFTAG10                               
008281,000805:    4000                                           BANK                                           
008282,000806: 
008283,000807:    4112                                           COUNT    02/V37                                
008284,000808: 
008285,000809:    4112           00024        OCT24              MM       20         B-14                       
008286,000810:    4113           00031        OCT31              MM       25         B-14                       
008287,000811: 27,2000                                           BANK     27                                    
008288,000812: 04,2000                                           SETLOC   VERB37                                
008289,000813: 04,2000                                           BANK                                           
008290,000814: 
008291,000815: 04,2011                                           COUNT    04/V37                                
008292,000816: 
008293,000817: 04,2011           54775        V37                TS       MMNUMBER                              #  SAVE MAJOR MODE
008294,000818: 04,2012           34371                           CAF      PRIO30                                #  RESTART AT PINBALL PRIORITY
008295,000819: 04,2013           54366                           TS       RESTREG                               
008296,000820: 
008297,000821: 04,2014           31320                           CA       IMODES30                              #  IS IMU BEING INITIALIZED
008298,000822: 04,2015           75012                           MASK     BIT6                                  
008299,000823: 04,2016           10000                           CCS      A                                     
008300,000824: 04,2017           12071                           TCF      CANTR00                               
008301,000825: 
008302,000826: 04,2020           35003                           CAF      BIT13                                 #  IS ENGINE ON
008303,000827: 04,2021           00006                           EXTEND                                         
008304,000828: 04,2022           02011                           RAND     DSALMOUT                              
008305,000829: 04,2023           10000                           CCS      A                                     
008306,000830: 04,2024           12031                           TCF      R00TOP00                              #  YES, SET UP FOR POO
008307,000831: 
008308,000832: 04,2025           40102                           CS       FLAGWRD6                              #  NO, IS TVC DAP ON
008309,000833: 04,2026           74105                           MASK     OCT60000                              
008310,000834: 04,2027           00006                           EXTEND                                         
008311,000835: 04,2030           62062                           BZMF     ISITP00                               #  NO, CONTINUE WITH ROO
008312,000836: 
008313,000837: 04,2031           00004        R00TOP00           INHINT                                         
008314,000838: 04,2032           35057                           CAF      EBANK6                                

Page 198

008316,000840: 04,2033           54003                           TS       EBANK                                 
008317,000841: 04,2034  E6,1466                                  EBANK=   DAPDATR1                              
008318,000842: 04,2034           31474                           CAE      CSMMASS                               
008319,000843: 04,2035           55652                           TS       MASSTMP                               
008320,000844: 04,2036           04740                           TC       IBNKCALL                              
008321,000845: 04,2037           51017                           CADR     SPSOFF                                
008322,000846: 04,2040           04740                           TC       IBNKCALL                              
008323,000847: 04,2041           13366                           CADR     MASSPROP                              
008324,000848: 04,2042           32415                           CAF      3.1SEC                                
008325,000849: 04,2043           04740                           TC       IBNKCALL                              
008326,000850: 04,2044           42025                           CADR     RCSDAPON   +1                         
008327,000851: 
008328,000852: 04,2045           04740                           TC       IBNKCALL                              
008329,000853: 04,2046           51071                           CADR     TVCZAP                                #  DISABLE TVC
008330,000854: 04,2047           35021                           CAF      ZERO                                  
008331,000855: 04,2050           54775                           TS       MMNUMBER                              
008332,000856: 04,2051           00003                           RELINT                                         
008333,000857: 04,2052           35022                           CAF      FIVE                                  
008334,000858: 04,2053           04662                           TC       BANKCALL                              
008335,000859: 04,2054           01732                           CADR     DELAYJOB                              
008336,000860: 04,2055           35021                           CAF      ZERO                                  
008337,000861: 04,2056           00006                           EXTEND                                         
008338,000862: 04,2057           01005                           WRITE    5                                     
008339,000863: 04,2060           00006                           EXTEND                                         
008340,000864: 04,2061           01006                           WRITE    6                                     
008341,000865: 04,2062           30775        ISITP00            CA       MMNUMBER                              
008342,000866: 04,2063           00006                           EXTEND                                         
008343,000867: 04,2064           12113                           BZF      ISSERVON                              #  YES, CHECK SERVICER STATUS
008344,000868: 
008345,000869: 04,2065           40076                           CS       FLAGWRD2                              #  NO, IS NODO V37 FLAG SET
008346,000870: 04,2066           75017                           MASK     NODOBIT                               
008347,000871: 04,2067           10000                           CCS      A                                     
008348,000872: 04,2070           12076                           TCF      CHECKTAB                              #  NO
008349,000873: 04,2071           05650        CANTR00            TC       ALARM                                 
008350,000874: 04,2072           01520                           OCT      1520                                  
008351,000875: 
008352,000876: 04,2073           04473        V37BAD             TC       RELDSP                                #  RELEASES DISPLAY FROM ASTRONAUT
008353,000877: 
008354,000878: 04,2074           04701                           TC       POSTJUMP                              #  BRING BACK LAST NORMAL DISPLAY IF THERE
008355,000879: 04,2075           21272                           CADR     PINBRNCH                              #  WAS ONE.  OY
008356,000880: 
008357,000881: 04,2076           32520        CHECKTAB           CA       NOV37MM                               #  THE NO. OF MM
008358,000882: 04,2077           54155        AGAINMM            TS       MPAC       +1                         
008359,000883: 04,2100           50155                           NDX      MPAC       +1                         
008360,000884: 04,2101           32457                           CA       PREMM1                                #  OBTAIN WHICH MM THIS IS FOR
008361,000885: 04,2102           76043                           MASK     LOW7                                  
008362,000886: 04,2103           40000                           COM                                            
008363,000887: 04,2104           60775                           AD       MMNUMBER                              
008364,000888: 04,2105           10000                           CCS      A                                     
008365,000889: 04,2106           10155                           CCS      MPAC       +1                         #  IF GR, SEE IF ANY MORE IN LIST

Page 199

008367,000891: 04,2107           12077                           TCF      AGAINMM                               #  YES, GET NEXT ONE
008368,000892: 04,2110           12272                           TCF      V37NONO                               #  LAST TIME OR PASSED MM
008369,000893: 
008370,000894: 04,2111           30155                           CA       MPAC       +1                         
008371,000895: 04,2112           54774                           TS       MINDEX                                #  SAVE INDEX FOR LATER
008372,000896: 
008373,000897: 04,2113           40103        ISSERVON           CS       FLAGWRD7                              #  V37 FLAG SET - I.E. IS SERVICER GOING
008374,000898: 04,2114           75012                           MASK     V37FLBIT                              
008375,000899: 04,2115           10000                           CCS      A                                     
008376,000900: 04,2116           12124                           TCF      CANV37                                #  NO
008377,000901: 
008378,000902: 04,2117           00004                           INHINT                                         
008379,000903: 04,2120           45017                           CS       AVEGBIT                               #  YES TURN OFF AVERAGE G FLAG AND WAIT
008380,000904: 04,2121           70075                           MASK     FLAGWRD1                              #  FOR SERVICER TO RETURN TO CANV37
008381,000905: 04,2122           54075                           TS       FLAGWRD1                              
008382,000906: 
008383,000907: 04,2123           15217                           TCF      ENDOFJOB                              
008384,000908: 
008385,000909: 04,2124           32412        CANV37             CAF      R00AD                                 
008386,000910: 04,2125           54374                           TS       TEMPFLSH                              
008387,000911: 
008388,000912: 04,2126           05412                           TC       PHASCHNG                              
008389,000913: 04,2127           00014                           OCT      14                                    
008390,000914: 
008391,000915: 04,2130           06006        ROC                TC       INTPRET                               
008392,000916: 
008393,000917: 04,2131           77624                           CALL                                           #  WAIT FOR INTEGRATION TO FINISH
008394,000918: 04,2132           27442                                    INTSTALL                              
008395,000919: 04,2133           77776        DUMMYAD            EXIT                                           
008396,000920: 
008397,000921: 04,2134           45051                           CS       OCT1400                               #  CLEAR CAUTION RESET
008398,000922: 04,2135           00006                           EXTEND                                         #    AND TEST CONNECTOR OUTBIT
008399,000923: 04,2136           03011                           WAND     11                                    
008400,000924: 
008401,000925: 04,2137           32403                           CAF      OCT44571                              #  CLEAR ENABLE OPTICS ERROR COUNTER, STAR
008402,000926: 04,2140           00006                           EXTEND                                         #  TRAKERS ON BIT, TVC ENABLE, ZERO OPTICS,
008403,000927: 04,2141           03012                           WAND     12                                    #  DISENGAGE OPTICS DAP, SIVB IN J SEQUENCE
008404,000928:                                                                                                  #  START, AND SIVB CUTOFF BIT.
008405,000929: 
008406,000930: 04,2142           42404                           CS       OCT600                                #  CLEAR UNUSED BITS
008407,000931: 04,2143           00006                           EXTEND                                         
008408,000932: 04,2144           03013                           WAND     13                                    
008409,000933: 
008410,000934: 04,2145           02330                           TC       INITSUB                               
008411,000935: 
008412,000936: 04,2146           05536                           TC       CLEARMRK                              
008413,000937: 
008414,000938: 04,2147           05560                           TC       DOWNFLAG                              
008415,000939: 04,2150           00020                           ADRES    STIKFLAG                              
008416,000940: 

Page 200

008418,000942: 04,2151           04662                           TC       BANKCALL                              
008419,000943: 04,2152           57757                           CADR     UPACTOFF                              #  TURN OFF UPLINK ACTIV LIGHT
008420,000944: 
008421,000945: 04,2153           05560                           TC       DOWNFLAG                              
008422,000946: 04,2154           00215                           ADRES    VHFRFLAG                              
008423,000947: 04,2155           05560                           TC       DOWNFLAG                              
008424,000948: 04,2156           00037                           ADRES    R21MARK                               
008425,000949: 
008426,000950: 04,2157           10775                           CCS      MMNUMBER                              #  IS THIS A POOH REQUEST
008427,000951: 04,2160           12260                           TCF      NOUVEAU                               #  NO, PICK UP NEW PROGRAM
008428,000952: 
008429,000953: 04,2161                                           COUNT    04/P00                                
008430,000954: 
008431,000955: 04,2161           04473        POOH               TC       RELDSP                                #  RELEASE DISPLAY SYSTEM
008432,000956: 04,2162           35061                           CAF      PRIO5                                 #  SET VARIABLE RESTART REGISTER FOR P00.
008433,000957: 04,2163           55056                           TS       PHSPRDT2                              
008434,000958: 
008435,000959: 04,2164           00004                           INHINT                                         
008436,000960: 
008437,000961: 04,2165           45017                           CS       NODOBIT                               #  TURN OFF NODOFLAG
008438,000962: 04,2166           70076                           MASK     FLAGWRD2                              
008439,000963: 04,2167           54076                           TS       FLAGWRD2                              
008440,000964: 
008441,000965: 04,2170           35022                           CA       FIVE                                  #  SET 2.5 RESTART FOR STATEINT1
008442,000966: 04,2171           54001                           TS       L                                     
008443,000967: 04,2172           40000                           COM                                            
008444,000968: 04,2173           52755                           DXCH     -PHASE2                               
008445,000969: 
008446,000970: 04,2174           42407                           CS       BIT7-8                                #  RESET IMUSE + KILL P20 BY TURNING OFF
008447,000971: 04,2175           70074                           MASK     FLAGWRD0                              
008448,000972: 04,2176           54074                           TS       FLAGWRD0                              #                         RENDFLG
008449,000973: 
008450,000974: 04,2177           35021                           CAF      DNLADP00                              
008451,000975: 
008452,000976: 04,2200                                           COUNT    04/V37                                
008453,000977: 
008454,000978: 04,2200           54332        SEUDOP00           TS       DNLSTCOD                              #  SET UP APPROPRIATE DOWNLIST.
008455,000979:                                                                                                  #  (OLD ONE WILL BE FINISHED FIRST)
008456,000980: 
008457,000981: 04,2201           42410                           CS       OCT01120                              #  TURN OFF TRACK, TARG1, UPDATE FLAGS
008458,000982: 04,2202           55071                           TS       EBANKTEM                              
008459,000983: 04,2203           70075                           MASK     FLAGWRD1                              
008460,000984: 04,2204           54075                           TS       FLAGWRD1                              
008461,000985: 
008462,000986: 04,2205           04740        GROUPKIL           TC       IBNKCALL                              #  KILL GROUPS 3(5,6
008463,000987: 04,2206           12513                           CADR     V37KLEAN                              
008464,000988: 
008465,000989: 04,2207           10775                           CCS      MMNUMBER                              #  IS IT POOH
008466,000990: 04,2210           12217                           TCF      RENDVOO                               #  NO

Page 201

008468,000992: 04,2211           04740                           TC       IBNKCALL                              
008469,000993: 04,2212           12505                           CADR     P00KLEAN                              #  REDUNDANT EXCEPT FOR GROUP 4.
008470,000994: 
008471,000995: 04,2213           30775        GOMOD              CA       MMNUMBER                              
008472,000996: 04,2214           55011                           TS       MODREG                                
008473,000997: 
008474,000998: 04,2215           04701        GOGOPROG           TC       POSTJUMP                              
008475,000999: 04,2216           12651                           CADR     GOPROG2                               
008476,001000: 
008477,001001: 04,2217           40775        RENDVOO            CS       MMNUMBER                              #  IS NEW PROG = 20
008478,001002: 04,2220           64112                           AD       OCT24                                 #  20
008479,001003: 04,2221           00006                           EXTEND                                         
008480,001004: 04,2222           12224                           BZF      RENDNOO                               #  YES
008481,001005: 04,2223           12234                           TCF      P00FIZZ                               
008482,001006: 04,2224           40775        RENDNOO            CS       MMNUMBER                              
008483,001007: 04,2225           61011                           AD       MODREG                                
008484,001008: 04,2226           00006                           EXTEND                                         
008485,001009: 04,2227           12240                           BZF      KILL20                                
008486,001010: 
008487,001011: 04,2230           30074                           CA       FLAGWRD0                              #  IS RENDEZVOO FLAG SET
008488,001012: 04,2231           75011                           MASK     RNDVZBIT                              
008489,001013: 04,2232           10000                           CCS      A                                     
008490,001014: 04,2233           12251                           TCF      STATQUO                               
008491,001015: 
008492,001016: 04,2234           35011        P00FIZZ            CAF      RNDVZBIT                              
008493,001017: 04,2235           70074                           MASK     FLAGWRD0                              
008494,001018: 04,2236           10000                           CCS      A                                     
008495,001019: 04,2237           12246                           TCF      REV37                                 
008496,001020: 04,2240           00006        KILL20             EXTEND                                         #  NO, KILL GROUPS 1 + 2
008497,001021: 04,2241           35021                           DCA      NEG0                                  
008498,001022: 04,2242           52753                           DXCH     -PHASE1                               
008499,001023: 
008500,001024: 04,2243           00006                           EXTEND                                         
008501,001025: 04,2244           35021                           DCA      NEG0                                  
008502,001026: 04,2245           52755                           DXCH     -PHASE2                               
008503,001027: 
008504,001028: 04,2246           32411        REV37              CAF      V37QCAD                               #  SET RESTART POINT
008505,001029: 04,2247           54374                           TS       TEMPFLSH                              
008506,001030: 
008507,001031: 04,2250           12215                           TCF      GOGOPROG                              
008508,001032: 
008509,001033: 
008510,001034: 04,2251           40075        STATQUO            CS       FLAGWRD1                              #  SET TRACKFLAG AND UPDATE FLAG
008511,001035: 04,2252           75037                           MASK     OCT120                                
008512,001036: 04,2253           26075                           ADS      FLAGWRD1                              
008513,001037: 
008514,001038: 04,2254           00006                           EXTEND                                         #  KILL GROUP 4
008515,001039: 04,2255           35021                           DCA      NEG0                                  
008516,001040: 04,2256           52761                           DXCH     -PHASE4                               
008517,001041: 

Page 202

008519,001043: 04,2257           12213                           TCF      GOMOD                                 
008520,001044: 
008521,001045: 04,2260           35011        NOUVEAU            CAF      RNDVZBIT                              
008522,001046: 04,2261           70074                           MASK     FLAGWRD0                              
008523,001047: 04,2262           10000                           CCS      A                                     
008524,001048: 04,2263           12266                           TCF      +3                                    
008525,001049: 04,2264           05560                           TC       DOWNFLAG                              #  NO, RESET IMUSE FLAG.
008526,001050: 04,2265           00007                           ADRES    IMUSE                                 #  BIT 8 FLAG 0
008527,001051: 04,2266           50774                 +3        INDEX    MINDEX                                
008528,001052: 04,2267           32521                           CAF      DNLADMM1                              #  OBTAIN NEW DOWNLIST ADDRESS
008529,001053: 
008530,001054: 04,2270           00004                           INHINT                                         
008531,001055: 04,2271           12200                           TCF      SEUDOP00                              
008532,001056: 
008533,001057: 04,2272           04400        V37NONO            TC       FALTON                                #  COME HERE IF MM REQUESTED DOESNT EXIST
008534,001058: 04,2273           12073                           TCF      V37BAD                                
008535,001059: 
008536,001060: 04,2274     5014               OCT00010           EQUALS   BIT4                                  
008537,001061: 04,2274           00004        V37XEQ             INHINT                                         
008538,001062: 04,2275           50774                           INDEX    MINDEX                                
008539,001063: 04,2276           32457                           CAF      PREMM1                                
008540,001064: 04,2277           55060                           TS       MMTEMP                                #  OBTAIN PRIORITY BITS 15-11
008541,001065: 04,2300           54020                           TS       CYR                                   #  SHIFT RIGHT TO BITS 14-10
008542,001066: 
008543,001067: 04,2301           30020                           CA       CYR                                   
008544,001068: 04,2302           77674                           MASK     PRIO37                                
008545,001069: 04,2303           55062                           TS       PHSPRDT4                              #  PRESET GROUP 4 RESTART PRIORITY
008546,001070: 04,2304           54063                           TS       NEWPRIO                               #  STORE PRIO FOR SPVAC
008547,001071: 
008548,001072: 04,2305           31060                           CA       MMTEMP                                #  OBTAIN EBANK - BITS 8, 9, 10 OF MMTEMP.
008549,001073: 04,2306           00006                           EXTEND                                         
008550,001074: 04,2307           75010                           MP       BIT8                                  
008551,001075: 04,2310           75023                           MASK     LOW3                                  
008552,001076: 04,2311           54001                           TS       L                                     
008553,001077: 04,2312           50774                           INDEX    MINDEX                                
008554,001078: 04,2313           32416                           CAF      FCADRMM1                              
008555,001079: 04,2314           55061                           TS       BASETEMP                              
008556,001080: 04,2315           74364                           MASK     HI5                                   
008557,001081: 04,2316           26001                           ADS      L                                     
008558,001082: 
008559,001083: 04,2317           31061                           CA       BASETEMP                              #  OBTAIN GENADR PORTION OF 2CADR.
008560,001084: 04,2320           75054                           MASK     LOW10                                 
008561,001085: 04,2321           65005                           AD       BIT11                                 
008562,001086: 
008563,001087: 04,2322           05160                           TC       SPVAC                                 
008564,001088: 
008565,001089: 04,2323           31060        V37XEQC            CA       MMTEMP                                #  UPON RETURN FROM FINDVAC PLACE THE
008566,001090: 04,2324           76043                           MASK     LOW7                                  #  NEW MM IN MODREG (THE LOW 7 BITS OF
008567,001091: 04,2325           05357                           TC       NEWMODEA                              #  PHSBRDT1)
008568,001092: 

Page 203

008570,001094:                                                                                                  #  FOR SUNDISK ONLY
008571,001095: 04,2326           04473                           TC       RELDSP                                #  RELEASE DISPLAY
008572,001096: 04,2327           05217                           TC       ENDOFJOB                              #  AND EXIT
008573,001097: 
008574,001098: 04,2330           00006        INITSUB            EXTEND                                         
008575,001099: 04,2331           22155                           QXCH     MPAC       +1                         
008576,001100: 
008577,001101: 04,2332           35057                           CAF      EBANK6                                #  SET E6 FOR DEADBAND CODING
008578,001102: 04,2333           54003                           TS       EBANK                                 #  WILL BE RESET IN STARTSB2.
008579,001103: 04,2334           00004                           INHINT                                         
008580,001104: 04,2335           04526                           TC       STOPRATE                              
008581,001105: 
008582,001106: 04,2336           30105                           CA       FLAGWRD9                              #  RESTORE DEADBAND
008583,001107: 04,2337           75004                           MASK     MAXDBBIT                              
008584,001108: 04,2340           10000                           CCS      A                                     
008585,001109: 04,2341           12345                           TCF      SETMAXER                              #  MAX DB SELECTED
008586,001110: 04,2342           04662                           TC       BANKCALL                              #  MIN DB SELECTED
008587,001111: 04,2343           50304                           CADR     SETMINDB                              
008588,001112: 04,2344           12347                           TCF      RAKE                                  
008589,001113: 04,2345           04662        SETMAXER           TC       BANKCALL                              
008590,001114: 04,2346           50320                           CADR     SETMAXDB                              
008591,001115: 
008592,001116: 04,2347           35024        RAKE               CAF      ELEVEN                                #  THIS PART CLEARS FLAGWORD BITS.
008593,001117: 04,2350           54154                 +1        TS       MPAC                                  #  LOOP COMES HERE.
008594,001118: 04,2351           50154                           INDEX    MPAC                                  
008595,001119: 04,2352           42367                           CS       FLAGTABL                              
008596,001120: 04,2353           50154                           INDEX    MPAC                                  
008597,001121: 04,2354           70074                           MASK     FLAGWRD0                              
008598,001122: 04,2355           50154                           INDEX    MPAC                                  #  PUT REVISED FLAGWORD BACK.
008599,001123: 04,2356           54074                           TS       FLAGWRD0                              
008600,001124: 04,2357           10154                           CCS      MPAC                                  
008601,001125: 04,2360           12350                           TCF      RAKE       +1                         #  GET THE NEXT FLAGWORD.
008602,001126: 04,2361           00003                           RELINT                                         
008603,001127: 
008604,001128: 04,2362           05546                           TC       UPFLAG                                #  NOW SET IMPULSW
008605,001129: 04,2363           00044                           ADRES    IMPULSW                               
008606,001130: 
008607,001131: 04,2364           37716                           CA       NEGONE                                
008608,001132: 04,2365           55303                           TS       OPTIND                                
008609,001133: 04,2366           00155                           TC       MPAC       +1                         #  RETURN FROM INITSUB
008610,001134: 
008611,001135: 04,2367           00000        FLAGTABL           OCT      0                                     
008612,001136: 04,2370           00040                           OCT      00040                                 #  IDLEFAIL
008613,001137: 04,2371           06000                           OCT      06000                                 #  P21FLAG, STEERSW
008614,001138: 04,2372           00000                           OCT      0                                     
008615,001139: 04,2373           00000                           OCT      0                                     
008616,001140: 04,2374           04140                           OCT      04140                                 #  V59FLAG, ENGONFLG, 3AXISFLG
008617,001141: 04,2375           10000                           OCT      10000                                 #  STRULLSW
008618,001142: 04,2376           16000                           OCT      16000                                 
008619,001143: 04,2377           00000                           OCT      0                                     

Page 204

008621,001145: 04,2400           42000                           OCT      42000                                 #  SWTOVER, V94FLAG
008622,001146: 04,2401           00000                           OCT      0                                     
008623,001147: 04,2402           00000                           OCT      0                                     
008624,001148: 
008625,001149: 20,2000                                           SETLOC   VAC5LOC                               
008626,001150: 20,2000                                           BANK                                           
008627,001151: 20,2000           35021        VAC5STOR           CA       ZERO                                  #  INITIALIZE INDEX REGISTERS
008628,001152: 20,2001           54061                           TS       ITEMP1                                
008629,001153: 20,2002           54062                           TS       ITEMP2                                
008630,001154: 
008631,001155: 20,2003           00006        V5LOOP1            EXTEND                                         #  LOOP TO STORE LOCS, BANKSETS, AND PRIOS.
008632,001156: 20,2004           50061                           INDEX    ITEMP1                                
008633,001157: 20,2005           30165                           DCA      LOC                                   
008634,001158: 20,2006           50062                           INDEX    ITEMP2                                
008635,001159: 20,2007           52662                           DXCH     VAC5                                  
008636,001160: 
008637,001161: 20,2010           50061                           INDEX    ITEMP1                                
008638,001162: 20,2011           30167                           CA       PRIORITY                              
008639,001163: 20,2012           50062                           INDEX    ITEMP2                                
008640,001164: 20,2013           54663                           TS       VAC5       +2                         
008641,001165: 
008642,001166: 20,2014           40062                           CS       ITEMP2                                #  HAVE WE STORED THEM ALL?
008643,001167: 20,2015           62064                           AD       EIGHTEEN                              
008644,001168: 20,2016           00006                           EXTEND                                         
008645,001169: 20,2017           12025                           BZF      V5OUT1                                #  YES, GET PHASE INFORMATION.
008646,001170: 
008647,001171: 20,2020           35771                           CA       TWELVE                                #  NO, INCREMENT INDEXES AND LOOP.
008648,001172: 20,2021           26061                           ADS      ITEMP1                                
008649,001173: 20,2022           36214                           CA       THREE                                 
008650,001174: 20,2023           26062                           ADS      ITEMP2                                
008651,001175: 20,2024           12003                           TCF      V5LOOP1                               
008652,001176: 
008653,001177: 20,2025  E3,1436                                  EBANK=   PHSNAME1                              
008654,001178: 20,2025           35051        V5OUT1             CA       EBANK3                                #  PHSNAME REGISTERS ARE IN EBANK3.
008655,001179: 20,2026           54003                           TS       EBANK                                 
008656,001180: 
008657,001181: 20,2027           35024                           CA       ELEVEN                                #  GET PHASE 2CADRS.
008658,001182: 20,2030           05606                           TC       GENTRAN                               
008659,001183: 20,2031           01436                           ADRES    PHSNAME1                              
008660,001184: 20,2032           00706                           ADRES    VAC5       +21D                       
008661,001185: 
008662,001186: 20,2033           35021                           CA       ZERO                                  #  NOW INITIALIZE INDEXES AGAIN.
008663,001187: 20,2034           54061                           TS       ITEMP1                                
008664,001188: 20,2035           54062                           TS       ITEMP2                                
008665,001189: 
008666,001190: 20,2036           50061        V5LOOP2            INDEX    ITEMP1                                #  LOOP TO GET PHASE TABLES.
008667,001191: 20,2037           30753                           CA       PHASE1                                
008668,001192: 20,2040           50062                           INDEX    ITEMP2                                
008669,001193: 20,2041           54722                           TS       VAC5       +33D                       
008670,001194: 

Page 205

008672,001196: 20,2042           40062                           CS       ITEMP2                                #  DO WE HAVE THEM ALL?
008673,001197: 20,2043           65022                           AD       FIVE                                  
008674,001198: 20,2044           00006                           EXTEND                                         
008675,001199: 20,2045           12052                           BZF      V5OUT2                                #  YES, GO FINISH UP.
008676,001200: 
008677,001201: 20,2046           35016                           CA       TWO                                   #  NO, INCREMENT INDEXES AND LOOP.
008678,001202: 20,2047           26061                           ADS      ITEMP1                                
008679,001203: 20,2050           24062                           INCR     ITEMP2                                
008680,001204: 20,2051           12036                           TCF      V5LOOP2                               
008681,001205: 
008682,001206: 20,2052           30157        V5OUT2             CA       MPAC       +3                         
008683,001207: 20,2053           54730                           TS       VAC5       +39D                       
008684,001208: 
008685,001209: 20,2054           00006                           EXTEND                                         
008686,001210: 20,2055           30066                           DCA      NEWLOC                                
008687,001211: 20,2056           52732                           DXCH     VAC5       +40D                       
008688,001212: 
008689,001213: 20,2057           30067                           CA       NEWJOB                                
008690,001214: 20,2060           54707                           TS       VAC5       +22D                       
008691,001215: 
008692,001216: 20,2061           30063                           CA       NEWPRIO                               
008693,001217: 20,2062           54713                           TS       VAC5       +26D                       
008694,001218: 
008695,001219: 20,2063           04675                           TC       SWRETURN                              
008696,001220: 
008697,001221: 20,2064           00022        EIGHTEEN           OCT      22                                    
008698,001222: 04,2000                                           SETLOC   VERB37                                
008699,001223: 04,2000                                           BANK                                           
008700,001224: 
008701,001225: 04,2403     5731               NEG7               EQUALS   OCT77770                              
008702,001226: 
008703,001227: 04,2403           44571        OCT44571           OCT      44571                                 #  CONSTANTS TO CLEAR CHANNEL BITS IN V37
008704,001228: 04,2404           00600        OCT600             OCT      600                                   
008705,001229: 04,2405  E6,1423                                  EBANK=   PACTOFF                               
008706,001230: 04,2405           03153 12066  P00DAPAD           2CADR    T5IDLOC                               
008707,001231: 
008708,001232: 04,2407     1060               MMTEMP             EQUALS   PHSPRDT3                              
008709,001233: 04,2407     1061               BASETEMP           EQUALS   TBASE4                                
008710,001234: 04,2407           00300        BIT7-8             OCT      300                                   
008711,001235: 04,2410           01120        OCT01120           OCT      01120                                 
008712,001236: 
008713,001237: 04,2411           10277        V37QCAD            CADR     V37XEQ     +3                         
008714,001238: 04,2412           10133        R00AD              CADR     DUMMYAD                               
008715,001239: 04,2413  E6,1466                                  EBANK=   DAPDATR1                              
008716,001240: 04,2413           02122 42066  RCSADDR4           2CADR    RCSATT                                
008717,001241: 
008718,001242: 04,2415           37312        3.1SEC             OCT      37312                                 #  2.5 + 0.6 SEC
008719,001243: 
008720,001244:                                                                                                  #  FOR VERB 37 TWO TABLES ARE MAINTAINED.  EACH TABLE HAS AN ENTRY FOR EACH
008721,001245:                                                                                                  #  MAJOR MODE THAT CAN BE STARTED FROM THE KEYBOARD.  THE ENTRIES ARE PUT
008722,001246:                                                                                                  #  INTO THE TABLE WITH THE ENTRY FOR THE HIGHEST MAJOR MODE COMING FIRST,

Page 206

008724,001248:                                                                                                  #  TO THE LOWEST MAJOR MODE WHICH IS THE LAST ENTRY IN EACH TABLE.
008725,001249: 
008726,001250:                                                                                                  #  THE FCADRMM TABLE CONTAINS THE FCADR OF THE STARTING JOB OF
008727,001251:                                                                                                  #  THE MAJOR MODE.  FOR EXAMPLE,
008728,001252: 
008729,001253:                                                                                                  #        FCADRMM1        FCADR   P79             START OF P 79
008730,001254:                                                                                                  #                        FCADR   PROG18          START OF P 18
008731,001255:                                                                                                  #                        FCADR   P01             START OF P 01
008732,001256: 
008733,001257: 04,2416                        FCADRMM1           EQUALS                                         
008734,001258: 04,2416           11172                           FCADR    P79                                   
008735,001259: 04,2417           10744                           FCADR    P78                                   
008736,001260: 04,2420           73153                           FCADR    P77                                   
008737,001261: 04,2421           26071                           FCADR    P76                                   
008738,001262: 04,2422           72163                           FCADR    P75                                   
008739,001263: 04,2423           72002                           FCADR    P74                                   
008740,001264: 04,2424           11441                           FCADR    P73                                   
008741,001265: 04,2425           11305                           FCADR    P72                                   
008742,001266: 04,2426           54320                           FCADR    P62                                   
008743,001267: 04,2427           54217                           FCADR    P61                                   
008744,001268: 04,2430           32000                           FCADR    P54                                   
008745,001269: 04,2431           31067                           FCADR    P53                                   
008746,001270: 04,2432           32000                           FCADR    PROG52                                
008747,001271: 04,2433           31067                           FCADR    P51                                   
008748,001272: 04,2434           50463                           FCADR    P47CSM                                
008749,001273: 04,2435           56614                           FCADR    P41CSM                                
008750,001274: 04,2436           50073                           FCADR    P40CSM                                
008751,001275: 04,2437           11166                           FCADR    P39                                   
008752,001276: 04,2440           10742                           FCADR    P38                                   
008753,001277: 04,2441           74466                           FCADR    P37                                   
008754,001278: 04,2442           72157                           FCADR    P35                                   
008755,001279: 04,2443           72000                           FCADR    P34                                   
008756,001280: 04,2444           11437                           FCADR    P33                                   
008757,001281: 04,2445           11303                           FCADR    P32                                   
008758,001282: 04,2446           73337                           FCADR    P31                                   
008759,001283: 04,2447           73323                           FCADR    P30                                   
008760,001284: 04,2450           62403                           FCADR    P23                                   
008761,001285: 04,2451           60000                           FCADR    PROG22                                
008762,001286: 04,2452           76001                           FCADR    PROG21                                
008763,001287: 04,2453           76261                           FCADR    PROG20                                
008764,001288: 04,2454           73151                           FCADR    P17                                   
008765,001289: 04,2455           55660                           FCADR    P06                                   
008766,001290: 04,2456           66001                           FCADR    GTSCPSS1                              #  GYROCOMPASS STANDARD LEAD IN.
008767,001291: 
008768,001292:                                                                                                  #  THE PREMM TABLE CONTAINS THE E-BANK, MAJOR MODE, AND PRIORITY
008769,001293:                                                                                                  #  INFORMATION, IT IS IN THE FOLLOWING FORM,
008770,001294: 
008771,001295:                                                                                                  #        PPP PPE EEM MMM MMM
008772,001296: 

Page 207

008774,001298:                                                                                                  #        WHERE THE       7 M BITS CONTAIN THE MAJOR MODE NUMBER
008775,001299:                                                                                                  #                        3 E BITS CONTAIN THE E-BANK NUMBER
008776,001300:                                                                                                  #                        5 P BITS CONTAIN THE PRIORITY AT WHICH THE JOB IS
008777,001301:                                                                                                  #                            TO BE STARTED
008778,001302: 
008779,001303:                                                                                                  #        FOR EXAMPLE,
008780,001304: 
008781,001305:                                                                                                  #                PREMM1          OCT     67213           PRIORITY        33
008782,001306:                                                                                                  #                                                        E-BANK  5
008783,001307:                                                                                                  #                                                        MAJOR MODE      11
008784,001308:                                                                                                  #                                OCT     25437           PRIORITY        12
008785,001309:                                                                                                  #                                                        E-BANK  6
008786,001310:                                                                                                  #                                                        MAJOR MODE      31
008787,001311: 
008788,001312: 04,2457                        PREMM1             EQUALS                                         
008789,001313: 04,2457           27117                           OCT      27117                                 #  MM 79         EBANK 4         PRIO 13
008790,001314: 04,2460           27116                           OCT      27116                                 #  MM 78         EBANK 4         PR23 13
008791,001315: 04,2461           27115                           OCT      27115                                 #  MM 77         EBANK 4         PRIO 13
008792,001316: 04,2462           27714                           OCT      27714                                 #  MM 76         EBANK 7         PRIO 13
008793,001317: 04,2463           27113                           OCT      27113                                 #  MM 75         EBANK 4         PRIO 13
008794,001318: 04,2464           27112                           OCT      27112                                 #  MM 74         EBANK 4         PRIO13
008795,001319: 04,2465           27111                           OCT      27111                                 #  MM 73         EBANK 4         PRIO 13
008796,001320: 04,2466           27110                           OCT      27110                                 #  MM 72         EBANK 4         PRIO 13
008797,001321: 04,2467           27476                           OCT      27476                                 #  MM 62         EBANK 6         PRIO 13
008798,001322: 04,2470           27475                           OCT      27475                                 #  MM 61         EBANK 6         PRIO 13
008799,001323: 04,2471           27266                           OCT      27266                                 #  MM 54         EBANK 5         PRIO 13
008800,001324: 04,2472           27265                           OCT      27265                                 #  MM 53         EBANK 5         PRIO 13
008801,001325: 04,2473           27264                           OCT      27264                                 #  MM 52         EBANK 5         PRIO 13
008802,001326: 04,2474           27263                           OCT      27263                                 #  MM 51         EBANK 5         PRIO 13
008803,001327: 04,2475           27657                           OCT      27657                                 #  MM 47         EBANK 7         PRIO 13
008804,001328: 04,2476           27451                           OCT      27451                                 #  MM 41         EBANK 6         PRIO 13
008805,001329: 04,2477           27450                           OCT      27450                                 #  MM 40         EBANK 6         PRIO 13
008806,001330: 04,2500           27047                           OCT      27047                                 #  MM 39         EBANK 4         PRIO 13
008807,001331: 04,2501           27046                           OCT      27046                                 #  MM 38         EBANK 4         PRIO 13
008808,001332: 04,2502           27645                           OCT      27645                                 #  MM 37         EBANK 7         PRIO 13
008809,001333: 04,2503           27043                           OCT      27043                                 #  MM 35         EBANK 4         PRIO 13
008810,001334: 04,2504           27042                           OCT      27042                                 #  MM 34         EBANK 4         PRIO 13
008811,001335: 04,2505           27041                           OCT      27041                                 #  MM 33         EBANK 4         PRIO 13
008812,001336: 04,2506           27040                           OCT      27040                                 #  MM 32         EBANK 4         PRIO 13
008813,001337: 04,2507           27637                           OCT      27637                                 #  MM 31         EBANK 7         PRIO 13
008814,001338: 04,2510           27636                           OCT      27636                                 #  MM 30         EBANK 7         PRIO 13
008815,001339: 04,2511           27227                           OCT      27227                                 #  MM 23         EBANK 5         PRIO 13
008816,001340: 04,2512           27226                           OCT      27226                                 #  MM 22         EBANK 5         PRIO 13
008817,001341: 04,2513           27025                           OCT      27025                                 #  MM 21         EBANK 4         PRIO 13
008818,001342: 04,2514           27424                           OCT      27424                                 #  MM 20         EBANK 6         PRIO 13
008819,001343: 04,2515           27021                           OCT      27021                                 #  MM 17         EBANK 4         PRIO 13
008820,001344: 04,2516           27006                           OCT      27006                                 #  MM 06         EBANK 4         PRIO 13
008821,001345: 04,2517           41201                           OCT      41201                                 #  MM 01         EBANK 5         PRIO 20
008822,001346: 

Page 208

008824,001348:                                                                                                  #  THE FOLLOWING LIST IS FOR THE PURPOSE OF VERIFYING THAT THE EBA
008825,001349: 
008826,001350: 04,2520  E7,1412                                  EBANK=   TIG                                   #  EBANK SETTING REQUIRED BY MM 76
008827,001351: 04,2520  E4,1763                                  EBANK=   KT                                    #  EBANK SETTING REQUIRED BY MM 75
008828,001352: 04,2520  E4,1770                                  EBANK=   SUBEXIT                               #  EBANK SETTING REQUIRED BY MM 74
008829,001353: 04,2520  E4,1770                                  EBANK=   SUBEXIT                               #  EBANK SETTING REQUIRED BY MM 73
008830,001354: 04,2520  E4,1770                                  EBANK=   SUBEXIT                               #  EBANK SETTING REQUIRED BY MM 72
008831,001355: 04,2520  E6,1661                                  EBANK=   AOG                                   #  EBANK SETTING REQUIRED BY MM 62
008832,001356: 04,2520  E6,1661                                  EBANK=   AOG                                   #  EBANK SETTING REQUIRED BY MM 61
008833,001357: 04,2520     0302                                  EBANK=   BESTI                                 #  EBANK SETTING REQUIRED BY MM 54
008834,001358: 04,2520     0304                                  EBANK=   STARIND                               #  EBANK SETTING REQUIRED BY MM 53
008835,001359: 04,2520     0302                                  EBANK=   BESTI                                 #  EBANK SETTING REQUIRED BY MM 52
008836,001360: 04,2520     0304                                  EBANK=   STARIND                               #  EBANK SETTING REQUIRED BY MM 51
008837,001361: 04,2520  E7,1672                                  EBANK=   P40TMP                                #  EBANK SETTING REQUIRED BY MM 47
008838,001362: 04,2520  E6,1466                                  EBANK=   DAPDATR1                              #  EBANK SETTING REQUIRED BY MM 41
008839,001363: 04,2520  E6,1510                                  EBANK=   KMPAC                                 #  EBANK SETTING REQUIRED BY MM 40
008840,001364: 04,2520  E4,1763                                  EBANK=   KT                                    #  EBANK SETTING REQUIRED BY MM 35
008841,001365: 04,2520  E4,1770                                  EBANK=   SUBEXIT                               #  EBANK SETTING REQUIRED BY MM 34
008842,001366: 04,2520  E4,1770                                  EBANK=   SUBEXIT                               #  EBANK SETTING REQUIRED BY MM 33
008843,001367: 04,2520  E4,1770                                  EBANK=   SUBEXIT                               #  EBANK SETTING REQUIRED BY MM 32
008844,001368: 04,2520  E7,1625                                  EBANK=   +MGA                                  #  EBANK SETTING REQUIRED BY MM 30
008845,001369: 04,2520  E5,1751                                  EBANK=   LANDMARK                              #  EBANK SETTING REQUIRED BY MM 23
008846,001370: 04,2520     0301                                  EBANK=   MARKINDX                              #  EBANK SETTING REQUIRED BY MM 22
008847,001371: 04,2520  E7,1777                                  EBANK=   WHOCARES                              #  EBANK SETTING REQUIRED BY MM 21
008848,001372: 04,2520  E6,1413                                  EBANK=   ESTROKER                              #  EBANK SETTING REQUIRED BY MM 20
008849,001373: 04,2520     1150                                  EBANK=   TIME2SAV                              #  EBANK SETTING REQUIRED BY MM 06
008850,001374: 04,2520  E5,1425                                  EBANK=   QPLACE                                #  EBANK SETTING REQUIRED BY MM 01
008851,001375: 
008852,001376:                                                                                                  #  NOTE,         THE FOLLOWING CONSTANT IS THE NUMBER OF ENTRIES IN EACH OF
008853,001377:                                                                                                  #  ----          THE ABOVE LISTS-1(IE, THE NUMBER OF MAJOR MODES (EXCEPT P00)
008854,001378:                                                                                                  #                THAT CAN BE CALLED FROM THE KEYBOARD MINUS ONE)
008855,001379: 
008856,001380: 04,2520                        EPREMM1            EQUALS                                         #  END OF PREMM1 TABLE
008857,001381: 04,2457                                           SETLOC   PREMM1                                #  THIS CODING WILL AUTOMATICALLY CHANGE
008858,001382: 04,2457                        NO.MMS             =MINUS   EPREMM1                               #  THE 'NOV37MM' CONSTANT AS ENTRIES ARE
008859,001383: 04,2000                                           SETLOC   VERB37                                #  INSERTED(IN) OR DELETED(FROM) THE
008860,001384: 04,2000                                           BANK                                           #  'PREMM1' TABLE.
008861,001385: 
008862,001386: 04,2520           00040        NOV37MM            ADRES    NO.MMS     -1                         #  ITEMS IN 'PREMM1'TABLE - 1.  *DON'T MOVE*
008863,001387: 
008864,001388: 04,2521                        DNLADMM1           EQUALS                                         
008865,001389: 04,2521           00002                           ADRES    RENDEZVU                              #  P79
008866,001390: 04,2522           00002                           ADRES    RENDEZVU                              #  P78
008867,001391: 04,2523           00002                           ADRES    RENDEZVU                              #  P77
008868,001392: 04,2524           00002                           ADRES    RENDEZVU                              #  P76
008869,001393: 04,2525           00002                           ADRES    RENDEZVU                              #  P75
008870,001394: 04,2526           00002                           ADRES    RENDEZVU                              #  P74
008871,001395: 04,2527           00002                           ADRES    RENDEZVU                              #  P73

Page 209

008873,001397: 04,2530           00002                           ADRES    RENDEZVU                              #  P72
008874,001398: 04,2531           00001                           ADRES    ENTRYUPD                              #  P62
008875,001399: 04,2532           00003                           ADRES    POWERED                               #  P61
008876,001400: 04,2533           00000                           ADRES    COSTALIN                              
008877,001401: 04,2534           00000                           ADRES    COSTALIN                              
008878,001402: 04,2535           00000                           ADRES    COSTALIN                              #  P52
008879,001403: 04,2536           00000                           ADRES    COSTALIN                              #  P51
008880,001404: 04,2537           00003                           ADRES    POWERED                               #  P47
008881,001405: 04,2540           00003                           ADRES    POWERED                               #  P41
008882,001406: 04,2541           00003                           ADRES    POWERED                               #  P40
008883,001407: 04,2542           00002                           ADRES    RENDEZVU                              #  P39
008884,001408: 04,2543           00002                           ADRES    RENDEZVU                              #  P38
008885,001409: 04,2544           00002                           ADRES    RENDEZVU                              #  P37
008886,001410: 04,2545           00002                           ADRES    RENDEZVU                              #  P35
008887,001411: 04,2546           00002                           ADRES    RENDEZVU                              #  P34
008888,001412: 04,2547           00002                           ADRES    RENDEZVU                              #  P33
008889,001413: 04,2550           00002                           ADRES    RENDEZVU                              #  P32
008890,001414: 04,2551           00002                           ADRES    RENDEZVU                              
008891,001415: 04,2552           00002                           ADRES    RENDEZVU                              #  P30
008892,001416: 04,2553           00002                           ADRES    RENDEZVU                              #  P23
008893,001417: 04,2554           00004                           ADRES    P22DNLST                              #  P22
008894,001418: 04,2555           00002                           ADRES    RENDEZVU                              #  P21
008895,001419: 04,2556           00002                           ADRES    RENDEZVU                              #  P20
008896,001420: 04,2557           00002                           ADRES    RENDEZVU                              #  P17
008897,001421: 04,2560           00000                           ADRES    COSTALIN                              #  P06
008898,001422: 04,2561           00000                           ADRES    COSTALIN                              #  P01
008899,001423: 
008900,001424: 04,2562     5021               DNLADP00           =        ZERO                                  
008901,001425: 04,2562                        COSTALIN           =        0                                     
008902,001426: 04,2562                        ENTRYUPD           =        1                                     
008903,001427: 04,2562                        RENDEZVU           =        2                                     
008904,001428: 04,2562                        POWERED            =        3                                     
008905,001429: 
008906,001430: 04,2562                        P22DNLST           =        4                                     
008907,001431: 
008908,001432:                                                                                                  #  ORBITAL INTEGRATION CONSTANTS
008909,001433: 
008910,001434:                                                                                                  #  THESE CONSTANTS ARE USED IN COMPUTING THE SETTING OF MIDFLAG.
008911,001435: 
008912,001436: 04,2562           00465 32324  RMM                2DEC     2538.09    E3         B-27            #  800 KM ABOVE LUNAR SURFACE
008913,001437: 
008914,001438: 04,2564           00333 01733  RME                2DEC     7178165    B-29                       #  800 KM ABOVE EQ. RADIUS
008915,001439: 
008916,001440: 13,2000                                           BANK     13                                    
008917,001441: 13,2000                                           SETLOC   INTINIT                               
008918,001442: 13,2000                                           BANK                                           
008919,001443: 
008920,001444: 13,2000                                           COUNT*   $$/INTIN                              
008921,001445: 
008922,001446: 13,2000  E3,1554                                  EBANK=   RRECTCSM                              
008923,001447: 
008924,001448: 13,2000           43014        STATEUP            SET      BOF                                   #  EXTRAPOLATE CM STATE VECTOR
008925,001449: 13,2001           01474                                    VINTFLAG                              

Page 210

008927,001451: 13,2002           01751                                    ORBWFLAG                              #  ALSO 6X6 W-MATRIX IF VALID
008928,001452: 13,2003           26006                                    +3                                    #        FOR ORBITAL NAVIGATION
008929,001453: 13,2004           77614                           SET                                            
008930,001454: 13,2005           01476                                    DIM0FLAG                              
008931,001455: 13,2006           45014                           CLEAR    CALL                                  
008932,001456: 13,2007           01667                                    PRECIFLG                              
008933,001457: 13,2010           27162                                    INTEGRV                               
008934,001458: 13,2011           71214                           BON      DLOAD                                 
008935,001459: 13,2012           04307                                    SURFFLAG                              
008936,001460: 13,2013           26031                                    STATEND                               
008937,001461: 13,2014           01571                                    TETCSM                                
008938,001462: 13,2015           34041                           STCALL   TDEC1                                 
008939,001463: 13,2016           27442                                    INTSTALL                              
008940,001464: 13,2017           45014                           CLEAR    CALL                                  #  EXTRAPOLATE LM STATE VECTOR
008941,001465: 13,2020           01674                                    VINTFLAG                              
008942,001466: 13,2021           26670                                    SETIFLGS                              #        AND 6X6 W-MATRIX IF VALID
008943,001467: 13,2022           43014                           BOF      SET                                   
008944,001468: 13,2023           02756                                    RENDWFLG                              #        FOR RENDEZVOUS NAVIGATION
008945,001469: 13,2024           26026                                    +2                                    
008946,001470: 13,2025           01476                                    DIM0FLAG                              
008947,001471: 13,2026           45014                           SET      CALL                                  
008948,001472: 13,2027           01467                                    PRECIFLG                              
008949,001473: 13,2030           27162                                    INTEGRV                               
008950,001474: 13,2031           77614        STATEND            CLRGO                                          
008951,001475: 13,2032           01236                                    NODOFLAG                              
008952,001476: 13,2033           26656                                    ENDINT                                
008953,001477: 
008954,001478:                                                                                                  #  THIS VINT IS CALLED BY MIDTOAV1 AND 2
008955,001479: 
008956,001480: 13,2034           43414        THISVINT           SET      RVQ                                   
008957,001481: 13,2035           01474                                    VINTFLAG                              
008958,001482: 

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